;;; -*- Mode: Lisp; Package: USER; Syntax: Common-Lisp; Base: 10 -*- ;;;; (IN-PACKAGE "USER") ; Creation date: April 2, 2000 19:52:23 ; Created as: /v/hank/v28/boyer/nqthm-2nd/nqthm-1992/examples/fm9001-piton/fm9001-replay.lib (EVAL-WHEN (LOAD EVAL COMPILE) (CHK-BASE-AND-PACKAGE-1992 10 *PACKAGE*)) (INIT-LIB (QUOTE (TYPE-PRESCRIPTION-LST LEMMAS TOTALP-LST LINEAR-LEMMAS QUICK-BLOCK-INFO SDEFN LISP-CODE SUBRP BODY ERRATICP TYPE-RESTRICTIONS INDUCTION-MACHINE LEVEL-NO JUSTIFICATIONS IDATE ELIMINATE-DESTRUCTORS-SEQ ELIMINATE-DESTRUCTORS-DESTS CONTROLLER-POCKETS SATELLITES MAIN-EVENT IMMEDIATE-DEPENDENTS0 EVENT LOCAL-UNDO-TUPLES)) (QUOTE (NONCONSTRUCTIVE-AXIOM-NAMES *1*BTM-OBJECTS RECOGNIZER-ALIST TRUE-COMPOUND-RECOGNIZER-ALIST FALSE-COMPOUND-RECOGNIZER-ALIST SHELL-ALIST SINGLETON-TYPE-SETS GENERALIZE-LEMMAS SHELL-POCKETS DEFINED-FUNCTIONS-TOGGLED DISABLED-LEMMAS *1*THM-MODE$ FREE-VARS-IN-REWRITE-RHSS CHRONOLOGY))) (SETQ LIB-DATE 1000402195223) (SETQ LIB-VERSION (QUOTE 7)) (SETQ NONCONSTRUCTIVE-AXIOM-NAMES (QUOTE NIL)) (SETQ *1*BTM-OBJECTS (QUOTE (ZERO))) (SETQ RECOGNIZER-ALIST (QUOTE ((IO-OUTP . 16384) (UNKNOWNP . 8192) (NET-ERRORP . 4096) (STUBP . 2048) (RAMP . 1024) (ROMP . 512) (ZP . 256) (XP . 128) (INDEXP . 64) (NEGATIVEP . 32) (LISTP . 16) (LITATOM . 8) (NUMBERP . 4) (TRUEP . 2) (FALSEP . 1)))) (SETQ TRUE-COMPOUND-RECOGNIZER-ALIST (QUOTE ((B-KNOWNP 259 . B-KNOWNP-COMPOUND-RECOGNIZER)))) (SETQ FALSE-COMPOUND-RECOGNIZER-ALIST (QUOTE ((B-KNOWNP -260 . B-KNOWNP-COMPOUND-RECOGNIZER)))) (SETQ SHELL-ALIST (QUOTE ((IO-OUT . 14) (UNKNOWN . 13) (NET-ERROR . 12) (STUB . 11) (RAM . 10) (ROM . 9) (Z . 8) (X . 7) (INDEX . 6) (MINUS . 5) (CONS . 4) (PACK . 3) (ADD1 . 2) (TRUE . 1) (FALSE . 0)))) (SETQ SINGLETON-TYPE-SETS (QUOTE (8192 256 128 2 1))) (SETQ GENERALIZE-LEMMAS (QUOTE ((GENERALIZE-LEMMA LESSP-REMAINDER (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y))))))) (SETQ SHELL-POCKETS (QUOTE ((IO-OUT IO-OUT-SIGNAL) (UNKNOWN) (NET-ERROR ERROR-LABEL ERROR-BODY) (STUB STUB-GUTS) (RAM RAM-GUTS) (ROM ROM-GUTS) (Z) (X) (INDEX I-NAME I-NUM) (MINUS NEGATIVE-GUTS) (CONS CAR CDR) (PACK UNPACK) (ADD1 SUB1) (TRUE) (FALSE)))) (SETQ DEFINED-FUNCTIONS-TOGGLED (QUOTE NIL)) (SETQ DISABLED-LEMMAS (QUOTE ((NAT-TO-V-OF-V-TO-NAT* NAT-TO-V-OF-V-TO-NAT*-OFF . T) (LESSP-QUOTIENT-TEST LESSP-QUOTIENT-TEST-OFF . T) (V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-INT-REWRITE-OFF . T) (V-ALU-CORRECT-NAT-REWRITE V-ALU-CORRECT-NAT-REWRITE-OFF . T) (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF . T) (INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-INEG-OFF . T) (INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY-OFF . T) (INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-IPLUS-OFF . T) (INTEGER-IN-RANGEP-THE-OBVIOUS-WAY INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF . T) (REWRITE-EQUAL-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0-OFF . T) (V-NEGP->NEGATIVEP-V-TO-INT V-NEGP->NEGATIVEP-V-TO-INT-OFF . T) (V-NEGP-AS-BOUNDS V-NEGP-AS-BOUNDS-OFF . T) (V-NZEROP-NAT-TO-V$HELP V-NZEROP-NAT-TO-V$HELP-OFF . T) (REWRITE-EQUAL-V-TO-NAT-0 REWRITE-EQUAL-V-TO-NAT-0-OFF . T) (COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-ON1) (IPLUS-0-RIGHT IPLUS-0-RIGHT-ON1) (IPLUS-0-LEFT IPLUS-0-LEFT-ON1) (V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-ON) (V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OFF1 . T) (V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OFF1 . T) (V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OFF1 . T) (V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-OFF1 . T) (V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-OFF1 . T) (V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 . T) (V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 . T) (V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 . T) (V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-ON) (V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-NEG-ON) (V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-ON) (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT-ON) (V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-DEC-ON) (V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-ON) (V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON) (V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON) (V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-INC-ON) (V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-ON) (V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT-ON) (V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON) (V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-ON) (V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-ON) (V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-ON) (V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT-ON) (V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON) (V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-DEC-ON) (V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-ON) (V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON) (V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON) (V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-ON) (V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-ON) (V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON) (V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON) (V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-NAT-INT-BUF-ON) (PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-ON) (PLUS-QUOTIENT-2-LEMMA PLUS-QUOTIENT-2-LEMMA-ON) (QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON) (EQUAL-IFF EQUAL-IFF-ON) (EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-ON) (EQUAL-NAT-TO-V-INVERTER-HACK1 EQUAL-NAT-TO-V-INVERTER-HACK1-ON) (V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK2-ON) (V-TO-NAT-FIRSTN-HACK1 V-TO-NAT-FIRSTN-HACK1-ON) (V-ADDER-CARRY-OUT=V-CARRY V-ADDER-CARRY-OUT=V-CARRY-ON) (V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-ON) (*1*DELETE G*1*DELETE-OFF1 . T) (DELETE DELETE-OFF1 . T) (*1*BAGDIFF G*1*BAGDIFF-OFF1 . T) (BAGDIFF BAGDIFF-OFF1 . T) (*1*BAGINT G*1*BAGINT-OFF1 . T) (BAGINT BAGINT-OFF1 . T) (*1*OCCURRENCES G*1*OCCURRENCES-OFF1 . T) (OCCURRENCES OCCURRENCES-OFF1 . T) (*1*SUBBAGP G*1*SUBBAGP-OFF1 . T) (SUBBAGP SUBBAGP-OFF1 . T) (DELETE-NON-MEMBER DELETE-NON-MEMBER-OFF1 . T) (DELETE-DELETE DELETE-DELETE-OFF1 . T) (EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-OFF1 . T) (MEMBER-NON-LIST MEMBER-NON-LIST-OFF1 . T) (MEMBER-DELETE MEMBER-DELETE-OFF1 . T) (MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 . T) (OCCURRENCES-DELETE OCCURRENCES-DELETE-OFF1 . T) (MEMBER-BAGDIFF MEMBER-BAGDIFF-OFF1 . T) (BAGDIFF-DELETE BAGDIFF-DELETE-OFF1 . T) (SUBBAGP-DELETE SUBBAGP-DELETE-OFF1 . T) (SUBBAGP-CDR1 SUBBAGP-CDR1-OFF1 . T) (SUBBAGP-CDR2 SUBBAGP-CDR2-OFF1 . T) (SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-OFF1 . T) (SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-OFF1 . T) (OCCURRENCES-BAGINT OCCURRENCES-BAGINT-OFF1 . T) (OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-OFF1 . T) (MEMBER-BAGINT MEMBER-BAGINT-OFF1 . T) (EQUAL-PLUS-0 EQUAL-PLUS-0-OFF1 . T) (EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-OFF1 . T) (COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-OFF1 . T) (COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-OFF1 . T) (PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-OFF1 . T) (PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-OFF1 . T) (PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-OFF1 . T) (ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-OFF1 . T) (PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-OFF1 . T) (PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-OFF1 . T) (DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 . T) (DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 . T) (DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-OFF1 . T) (DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-OFF1 . T) (*1*PLUS-FRINGE G*1*PLUS-FRINGE-OFF1 . T) (PLUS-FRINGE PLUS-FRINGE-OFF1 . T) (*1*PLUS-TREE G*1*PLUS-TREE-OFF1 . T) (PLUS-TREE PLUS-TREE-OFF1 . T) (EVAL$-QUOTE EVAL$-QUOTE-OFF2 . T) (*1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-OFF1 . T) (CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-OFF1 . T) (*1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-OFF1 . T) (CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-OFF1 . T) (DIFFERENCE-ELIM DIFFERENCE-ELIM-OFF1 . T) (DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-OFF1 . T) (DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-OFF1 . T) (DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-OFF1 . T) (DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-OFF1 . T) (DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-OFF1 . T) (DIFFERENCE-X-X DIFFERENCE-X-X-OFF1 . T) (*1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-OFF1 . T) (CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-OFF1 . T) (EQUAL-TIMES-0 EQUAL-TIMES-0-OFF1 . T) (EQUAL-TIMES-1 EQUAL-TIMES-1-OFF1 . T) (EQUAL-SUB1-0 EQUAL-SUB1-0-OFF1 . T) (TIMES-ZERO TIMES-ZERO-OFF1 . T) (TIMES-ADD1 TIMES-ADD1-OFF1 . T) (COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-OFF1 . T) (TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 . T) (TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-OFF1 . T) (COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-OFF1 . T) (ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-OFF1 . T) (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 . T) (TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 . T) (TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-OFF1 . T) (TIMES-QUOTIENT TIMES-QUOTIENT-OFF1 . T) (TIMES-1-ARG1 TIMES-1-ARG1-OFF1 . T) (LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-OFF1 . T) (LESSP-TIMES1 LESSP-TIMES1-OFF1 . T) (LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-OFF1 . T) (LESSP-TIMES2 LESSP-TIMES2-OFF1 . T) (LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-OFF1 . T) (LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-OFF1 . T) (LESSP-TIMES3 LESSP-TIMES3-OFF1 . T) (LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-OFF1 . T) (LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-OFF1 . T) (LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-OFF1 . T) (LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-OFF1 . T) (LESSP-1-TIMES LESSP-1-TIMES-OFF1 . T) (*1*TIMES-TREE G*1*TIMES-TREE-OFF1 . T) (TIMES-TREE TIMES-TREE-OFF1 . T) (*1*TIMES-FRINGE G*1*TIMES-FRINGE-OFF1 . T) (TIMES-FRINGE TIMES-FRINGE-OFF1 . T) (*1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-OFF1 . T) (OR-ZEROP-TREE OR-ZEROP-TREE-OFF1 . T) (*1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-OFF1 . T) (AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-OFF1 . T) (EVAL$-EQUAL EVAL$-EQUAL-OFF2 . T) (LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-OFF1 . T) (INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-OFF1 . T) (*1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-OFF1 . T) (CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-OFF1 . T) (*1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-OFF1 . T) (CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-OFF1 . T) (LESSP-REMAINDER LESSP-REMAINDER-OFF1 . T) (REMAINDER-NOOP REMAINDER-NOOP-OFF1 . T) (REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-OFF1 . T) (REMAINDER-ZERO REMAINDER-ZERO-OFF1 . T) (REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-OFF1 . T) (REMAINDER-ADD1 REMAINDER-ADD1-OFF1 . T) (REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-OFF1 . T) (REMAINDER-PLUS REMAINDER-PLUS-OFF1 . T) (EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 . T) (EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-OFF1 . T) (EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 . T) (REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-OFF1 . T) (REMAINDER-TIMES1 REMAINDER-TIMES1-OFF1 . T) (REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 . T) (REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-OFF1 . T) (REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-OFF1 . T) (REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-OFF1 . T) (REMAINDER-TIMES2 REMAINDER-TIMES2-OFF1 . T) (REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-OFF1 . T) (REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-OFF1 . T) (*1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 . T) (DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-OFF1 . T) (REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-OFF1 . T) (REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-OFF1 . T) (REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 . T) (REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-OFF1 . T) (REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 . T) (REMAINDER-REMAINDER REMAINDER-REMAINDER-OFF1 . T) (REMAINDER-1-ARG1 REMAINDER-1-ARG1-OFF1 . T) (REMAINDER-1-ARG2 REMAINDER-1-ARG2-OFF1 . T) (REMAINDER-X-X REMAINDER-X-X-OFF1 . T) (TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-OFF1 . T) (QUOTIENT-NOOP QUOTIENT-NOOP-OFF1 . T) (QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-OFF1 . T) (QUOTIENT-ZERO QUOTIENT-ZERO-OFF1 . T) (QUOTIENT-ADD1 QUOTIENT-ADD1-OFF1 . T) (EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-OFF1 . T) (QUOTIENT-SUB1 QUOTIENT-SUB1-OFF1 . T) (QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-OFF1 . T) (QUOTIENT-PLUS QUOTIENT-PLUS-OFF1 . T) (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 . T) (QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-OFF1 . T) (QUOTIENT-TIMES QUOTIENT-TIMES-OFF1 . T) (QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-OFF1 . T) (QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-OFF1 . T) (QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-OFF1 . T) (QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-OFF1 . T) (QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-OFF1 . T) (QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-OFF1 . T) (QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-OFF1 . T) (QUOTIENT-REMAINDER QUOTIENT-REMAINDER-OFF1 . T) (QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-OFF1 . T) (QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-OFF1 . T) (QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 . T) (QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-OFF1 . T) (QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 . T) (QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-OFF1 . T) (LEQ-QUOTIENT LEQ-QUOTIENT-OFF1 . T) (QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-OFF1 . T) (QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-OFF1 . T) (QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-OFF1 . T) (QUOTIENT-X-X QUOTIENT-X-X-OFF1 . T) (LESSP-QUOTIENT LESSP-QUOTIENT-OFF1 . T) (*1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-OFF1 . T) (CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-OFF1 . T) (*1*EXP G*1*EXP-OFF1 . T) (EXP EXP-OFF1 . T) (*1*LOG G*1*LOG-OFF1 . T) (LOG LOG-OFF1 . T) (*1*GCD G*1*GCD-OFF1 . T) (GCD GCD-OFF1 . T) (REMAINDER-EXP REMAINDER-EXP-OFF1 . T) (*1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-OFF1 . T) (DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-OFF1 . T) (REMAINDER-EXP-EXP REMAINDER-EXP-EXP-OFF1 . T) (QUOTIENT-EXP QUOTIENT-EXP-OFF1 . T) (EXP-ZERO EXP-ZERO-OFF1 . T) (EXP-ADD1 EXP-ADD1-OFF1 . T) (EXP-PLUS EXP-PLUS-OFF1 . T) (EXP-0-ARG1 EXP-0-ARG1-OFF1 . T) (EXP-1-ARG1 EXP-1-ARG1-OFF1 . T) (EXP-0-ARG2 EXP-0-ARG2-OFF1 . T) (EXP-TIMES EXP-TIMES-OFF1 . T) (EXP-EXP EXP-EXP-OFF1 . T) (EQUAL-EXP-0 EQUAL-EXP-0-OFF1 . T) (EQUAL-EXP-1 EQUAL-EXP-1-OFF1 . T) (EXP-DIFFERENCE EXP-DIFFERENCE-OFF1 . T) (EQUAL-LOG-0 EQUAL-LOG-0-OFF1 . T) (LOG-0 LOG-0-OFF1 . T) (LOG-1 LOG-1-OFF1 . T) (*1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-OFF1 . T) (DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-OFF1 . T) (LEQ-LOG-LOG LEQ-LOG-LOG-OFF1 . T) (LOG-QUOTIENT LOG-QUOTIENT-OFF1 . T) (LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-OFF1 . T) (LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-OFF1 . T) (LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-OFF1 . T) (LOG-TIMES-PROOF LOG-TIMES-PROOF-OFF1 . T) (LOG-TIMES LOG-TIMES-OFF1 . T) (LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-OFF1 . T) (LOG-TIMES-EXP LOG-TIMES-EXP-OFF1 . T) (LOG-EXP LOG-EXP-OFF1 . T) (COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-OFF1 . T) (*1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-OFF1 . T) (SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-OFF1 . T) (GCD-0 GCD-0-OFF1 . T) (GCD-1 GCD-1-OFF1 . T) (EQUAL-GCD-0 EQUAL-GCD-0-OFF1 . T) (LESSP-GCD LESSP-GCD-OFF1 . T) (GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 . T) (GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-OFF1 . T) (GCD-PLUS-PROOF GCD-PLUS-PROOF-OFF1 . T) (GCD-PLUS GCD-PLUS-OFF1 . T) (GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-OFF1 . T) (REMAINDER-GCD REMAINDER-GCD-OFF1 . T) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 . T) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 . T) (GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-OFF1 . T) (COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-OFF1 . T) (ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 . T) (ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-OFF1 . T) (COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 . T) (COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-OFF1 . T) (GCD-X-X GCD-X-X-OFF1 . T) (GCD-IDEMPOTENCE GCD-IDEMPOTENCE-OFF1 . T) (*1*INTEGERP G*1*INTEGERP-OFF1 . T) (*1*FIX-INT G*1*FIX-INT-OFF1 . T) (*1*IZEROP G*1*IZEROP-OFF1 . T) (IZEROP IZEROP-OFF1 . T) (*1*ILESSP G*1*ILESSP-OFF1 . T) (*1*ILEQ G*1*ILEQ-OFF1 . T) (ILEQ ILEQ-OFF1 . T) (*1*IPLUS G*1*IPLUS-OFF1 . T) (*1*INEG G*1*INEG-OFF1 . T) (*1*IDIFFERENCE G*1*IDIFFERENCE-OFF1 . T) (IDIFFERENCE IDIFFERENCE-OFF1 . T) (*1*IABS G*1*IABS-OFF1 . T) (*1*ITIMES G*1*ITIMES-OFF1 . T) (*1*IQUOTIENT G*1*IQUOTIENT-OFF1 . T) (*1*IREMAINDER G*1*IREMAINDER-OFF1 . T) (*1*IDIV G*1*IDIV-OFF1 . T) (*1*IMOD G*1*IMOD-OFF1 . T) (*1*IQUO G*1*IQUO-OFF1 . T) (*1*IREM G*1*IREM-OFF1 . T) (INTEGERP-FIX-INT INTEGERP-FIX-INT-OFF1 . T) (INTEGERP-IPLUS INTEGERP-IPLUS-OFF1 . T) (INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-OFF1 . T) (INTEGERP-INEG INTEGERP-INEG-OFF1 . T) (INTEGERP-IABS INTEGERP-IABS-OFF1 . T) (INTEGERP-ITIMES INTEGERP-ITIMES-OFF1 . T) (FIX-INT-REMOVER FIX-INT-REMOVER-OFF1 . T) (FIX-INT-FIX-INT FIX-INT-FIX-INT-OFF1 . T) (FIX-INT-IPLUS FIX-INT-IPLUS-OFF1 . T) (FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-OFF1 . T) (FIX-INT-INEG FIX-INT-INEG-OFF1 . T) (FIX-INT-IABS FIX-INT-IABS-OFF1 . T) (FIX-INT-ITIMES FIX-INT-ITIMES-OFF1 . T) (INEG-IPLUS INEG-IPLUS-OFF1 . T) (INEG-INEG INEG-INEG-OFF1 . T) (INEG-FIX-INT INEG-FIX-INT-OFF1 . T) (INEG-0 INEG-0-OFF1 . T) (IPLUS-0-LEFT IPLUS-0-LEFT-OFF1 . T) (IPLUS-0-RIGHT IPLUS-0-RIGHT-OFF1 . T) (COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-OFF1 . T) (COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-OFF1 . T) (ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-OFF1 . T) (IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-OFF1 . T) (IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-OFF1 . T) (IPLUS-INEG1 IPLUS-INEG1-OFF1 . T) (IPLUS-INEG2 IPLUS-INEG2-OFF1 . T) (IPLUS-FIX-INT1 IPLUS-FIX-INT1-OFF1 . T) (IPLUS-FIX-INT2 IPLUS-FIX-INT2-OFF1 . T) (IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-OFF1 . T) (IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-OFF1 . T) (*1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-OFF1 . T) (CANCEL-INEG-AUX CANCEL-INEG-AUX-OFF1 . T) (*1*CANCEL-INEG G*1*CANCEL-INEG-OFF1 . T) (CANCEL-INEG CANCEL-INEG-OFF1 . T) (EVAL$-LIST-CONS EVAL$-LIST-CONS-OFF1 . T) (EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-OFF1 . T) (EVAL$-LITATOM EVAL$-LITATOM-OFF1 . T) (EVAL$-OTHER EVAL$-OTHER-OFF1 . T) (*1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 . T) (EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-OFF1 . T) (EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 . T) (IPLUS-INEG3 IPLUS-INEG3-OFF1 . T) (IPLUS-INEG4 IPLUS-INEG4-OFF1 . T) (IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-OFF1 . T) (*1*IPLUS-FRINGE G*1*IPLUS-FRINGE-OFF1 . T) (IPLUS-FRINGE IPLUS-FRINGE-OFF1 . T) (*1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-OFF1 . T) (IPLUS-TREE-REC IPLUS-TREE-REC-OFF1 . T) (*1*IPLUS-TREE G*1*IPLUS-TREE-OFF1 . T) (*1*IPLUS-LIST G*1*IPLUS-LIST-OFF1 . T) (IPLUS-LIST IPLUS-LIST-OFF1 . T) (INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-OFF1 . T) (EVAL$-LIST-APPEND EVAL$-LIST-APPEND-OFF1 . T) (*1*CANCEL-IPLUS G*1*CANCEL-IPLUS-OFF1 . T) (EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-OFF1 . T) (IPLUS-LIST-APPEND IPLUS-LIST-APPEND-OFF1 . T) (IPLUS-INEG7 IPLUS-INEG7-OFF1 . T) (ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-OFF1 . T) (ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-OFF1 . T) (*1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 . T) (*1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-OFF1 . T) (CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-OFF1 . T) (IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 . T) (IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 . T) (*1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-OFF1 . T) (*1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-OFF1 . T) (CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-OFF1 . T) (ITIMES-0-LEFT ITIMES-0-LEFT-OFF1 . T) (ITIMES-0-RIGHT ITIMES-0-RIGHT-OFF1 . T) (ITIMES-FIX-INT1 ITIMES-FIX-INT1-OFF1 . T) (ITIMES-FIX-INT2 ITIMES-FIX-INT2-OFF1 . T) (COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-OFF1 . T) (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 . T) (ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 . T) (COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-OFF1 . T) (ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-OFF1 . T) (EQUAL-ITIMES-0 EQUAL-ITIMES-0-OFF1 . T) (EQUAL-ITIMES-1 EQUAL-ITIMES-1-OFF1 . T) (EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-OFF1 . T) (ITIMES-1-ARG1 ITIMES-1-ARG1-OFF1 . T) (QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-OFF1 . T) (DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-OFF1 . T) (DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-OFF1 . T) (DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-OFF1 . T) (DIVISION-THEOREM DIVISION-THEOREM-OFF1 . T) (IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 . T) (IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 . T) (IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-OFF1 . T) (ITIMES-INEG-1 ITIMES-INEG-1-OFF1 . T) (ITIMES-INEG-2 ITIMES-INEG-2-OFF1 . T) (ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-OFF1 . T) (ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-OFF1 . T) (ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-OFF1 . T) (INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-OFF1 . T) (INTEGERP-IREMAINDER INTEGERP-IREMAINDER-OFF1 . T) (INTEGERP-IDIV INTEGERP-IDIV-OFF1 . T) (INTEGERP-IMOD INTEGERP-IMOD-OFF1 . T) (INTEGERP-IQUO INTEGERP-IQUO-OFF1 . T) (INTEGERP-IREM INTEGERP-IREM-OFF1 . T) (IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-OFF1 . T) (IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-OFF1 . T) (IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-OFF1 . T) (IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-OFF1 . T) (IDIV-FIX-INT1 IDIV-FIX-INT1-OFF1 . T) (IDIV-FIX-INT2 IDIV-FIX-INT2-OFF1 . T) (IMOD-FIX-INT1 IMOD-FIX-INT1-OFF1 . T) (IMOD-FIX-INT2 IMOD-FIX-INT2-OFF1 . T) (IQUO-FIX-INT1 IQUO-FIX-INT1-OFF1 . T) (IQUO-FIX-INT2 IQUO-FIX-INT2-OFF1 . T) (IREM-FIX-INT1 IREM-FIX-INT1-OFF1 . T) (IREM-FIX-INT2 IREM-FIX-INT2-OFF1 . T) (FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-OFF1 . T) (FIX-INT-IREMAINDER FIX-INT-IREMAINDER-OFF1 . T) (FIX-INT-IDIV FIX-INT-IDIV-OFF1 . T) (FIX-INT-IMOD FIX-INT-IMOD-OFF1 . T) (FIX-INT-IQUO FIX-INT-IQUO-OFF1 . T) (FIX-INT-IREM FIX-INT-IREM-OFF1 . T) (*1*ITIMES-FRINGE G*1*ITIMES-FRINGE-OFF1 . T) (ITIMES-FRINGE ITIMES-FRINGE-OFF1 . T) (*1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-OFF1 . T) (ITIMES-TREE-REC ITIMES-TREE-REC-OFF1 . T) (*1*ITIMES-TREE G*1*ITIMES-TREE-OFF1 . T) (*1*ITIMES-LIST G*1*ITIMES-LIST-OFF1 . T) (ITIMES-LIST ITIMES-LIST-OFF1 . T) (INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-OFF1 . T) (*1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 . T) (*1*CANCEL-ITIMES G*1*CANCEL-ITIMES-OFF1 . T) (CANCEL-ITIMES CANCEL-ITIMES-OFF1 . T) (ITIMES-LIST-APPEND ITIMES-LIST-APPEND-OFF1 . T) (MEMBER-APPEND MEMBER-APPEND-OFF1 . T) (EQUAL-FIX-INT EQUAL-FIX-INT-OFF1 . T) (*1*SUBSETP G*1*SUBSETP-OFF1 . T) (SUBSETP SUBSETP-OFF1 . T) (*1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-OFF1 . T) (*1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 . T) (*1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-OFF1 . T) (CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-OFF1 . T) (ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 . T) (ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 . T) (ILESSP-STRICT ILESSP-STRICT-OFF1 . T) (*1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-OFF1 . T) (*1*ITIMES-FACTORS G*1*ITIMES-FACTORS-OFF1 . T) (ITIMES-FACTORS ITIMES-FACTORS-OFF1 . T) (ITIMES--1 ITIMES--1-OFF1 . T) (EQUAL-INEG-INEG EQUAL-INEG-INEG-OFF1 . T) (ILESSP-INEG-INEG ILESSP-INEG-INEG-OFF1 . T) (FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 . T) (EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-OFF1 . T) (INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-OFF1 . T) (IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 . T) (ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 . T) (*1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-OFF1 . T) (*1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-OFF1 . T) (CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-OFF1 . T) (*1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 . T) (CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 . T) (MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 . T) (MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-OFF1 . T) (*1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T) (CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T) (BAGINT-SINGLETON BAGINT-SINGLETON-OFF1 . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 . T) (ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 . T) (ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 . T) (EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 . T) (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 . T) (EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-OFF1 . T) (*1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 . T) (DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-OFF1 . T) (*1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-OFF1 . T) (CANCEL-FACTORS-0 CANCEL-FACTORS-0-OFF1 . T) (*1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-OFF1 . T) (SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-OFF1 . T) (EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 . T) (SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-OFF1 . T) (SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 . T) (*1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 . T) (CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-OFF1 . T) (*1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-OFF1 . T) (CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-OFF1 . T) (CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 . T) (*1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-OFF1 . T) (SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-OFF1 . T) (*1*REMOVE-INEGS G*1*REMOVE-INEGS-OFF1 . T) (*1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-OFF1 . T) (*1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 . T) (MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 . T) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T) (CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 . T) (CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 . T) (EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 . T) (EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 . T) (IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 . T) (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 . T) (MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 . T) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T) (CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 . T) (CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 . T) (IPLUS-CONSTANTS IPLUS-CONSTANTS-OFF1 . T) (CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 . T) (CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-OFF1 . T) (ILESSP-ADD1 ILESSP-ADD1-OFF1 . T) (ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-OFF1 . T) (CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 . T) (CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 . T) (CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-OFF1 . T) (B-APPROX B-APPROX-OFF2 . T) (B-KNOWNP B-KNOWNP-OFF2 . T) (DOUBLET-P DOUBLET-P-OFF1 . T) (OPEN-NTH OPEN-NTH-ON1) (DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-OFF1 . T) (DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-OFF1 . T) (DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 . T) (DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 . T) (DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 . T) (MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-OFF1 . T) (V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-OFF1 . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 . T) (MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-OFF1 . T) (V-APPROX-SUBRANGE V-APPROX-SUBRANGE-OFF1 . T) (V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-OFF1 . T) (S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 . T) (S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-OFF1 . T) (S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-OFF1 . T) (S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-OFF1 . T) (V-APPROX-LENGTH V-APPROX-LENGTH-OFF1 . T) (WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-OFF1 . T) (WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-OFF1 . T) (WRITE-MEM1-OPENER WRITE-MEM1-OPENER-OFF1 . T) (V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 . T) (S-APPROX-OPENER S-APPROX-OPENER-OFF1 . T) (BVP BVP-ON1) (DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-OFF1 . T) (DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 . T) (DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 . T) (EVAL$-APPEND-2 EVAL$-APPEND-2-OFF1 . T) (EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-OFF1 . T) (EVAL$-APPEND EVAL$-APPEND-OFF1 . T) (DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 . T) (S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 . T) (S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 . T) (EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-OFF1 . T) (EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-OFF1 . T) (READ-MEM-MONOTONE READ-MEM-MONOTONE-OFF1 . T) (V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-OFF1 . T) (V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-OFF1 . T) (V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 . T) (*1*B-KNOWNP G*1*B-KNOWNP-OFF2 . T) (V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 . T) (BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-OFF1 . T) (READ-MEM1-MONOTONE READ-MEM1-MONOTONE-OFF1 . T) (V-APPROX-BVP V-APPROX-BVP-OFF1 . T) (BVP-REVERSE BVP-REVERSE-OFF1 . T) (F-PULLUP F-PULLUP-OFF1 . T) (FT-WIRE FT-WIRE-OFF1 . T) (FT-BUF FT-BUF-OFF1 . T) (F-IF F-IF-OFF1 . T) (F-EQUV3 F-EQUV3-OFF1 . T) (F-EQUV F-EQUV-OFF1 . T) (F-XOR3 F-XOR3-OFF1 . T) (F-XOR F-XOR-OFF1 . T) (F-NOR8 F-NOR8-OFF1 . T) (F-NOR6 F-NOR6-OFF1 . T) (F-NOR5 F-NOR5-OFF1 . T) (F-NOR4 F-NOR4-OFF1 . T) (F-NOR3 F-NOR3-OFF1 . T) (F-NOR F-NOR-OFF1 . T) (F-OR4 F-OR4-OFF1 . T) (F-OR3 F-OR3-OFF1 . T) (F-OR F-OR-OFF1 . T) (F-NAND8 F-NAND8-OFF1 . T) (F-NAND6 F-NAND6-OFF1 . T) (F-NAND5 F-NAND5-OFF1 . T) (F-NAND4 F-NAND4-OFF1 . T) (F-NAND3 F-NAND3-OFF1 . T) (F-NAND F-NAND-OFF1 . T) (F-NOT F-NOT-OFF1 . T) (F-AND4 F-AND4-OFF1 . T) (F-AND3 F-AND3-OFF1 . T) (F-AND F-AND-OFF1 . T) (F-BUF F-BUF-OFF1 . T) (MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-OFF1 . T) (MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-OFF1 . T) (MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-OFF1 . T) (MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-OFF1 . T) (MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-OFF1 . T) (B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP-COMPOUND-RECOGNIZER-ON) (*1*B-APPROX G*1*B-APPROX-ON) (*1*V-APPROX G*1*V-APPROX-ON) (V-APPROX V-APPROX-ON1) (*1*V-KNOWNP G*1*V-KNOWNP-ON) (V-KNOWNP V-KNOWNP-ON1) (V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON) (*1*MEM-WIDTH G*1*MEM-WIDTH-ON1) (MEM-WIDTH MEM-WIDTH-ON1) (*1*S-APPROX G*1*S-APPROX-ON) (S-APPROX S-APPROX-ON1) (S-APPROX-X-X S-APPROX-X-X-ON) (*1*GOOD-S G*1*GOOD-S-ON) (GOOD-S GOOD-S-ON) (*1*S-KNOWNP G*1*S-KNOWNP-ON) (S-KNOWNP S-KNOWNP-ON1) (S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1) (*1*V-APPROX-ALIST G*1*V-APPROX-ALIST-ON) (V-APPROX-ALIST V-APPROX-ALIST-ON) (*1*S-APPROX-ALIST G*1*S-APPROX-ALIST-ON) (S-APPROX-ALIST S-APPROX-ALIST-ON) (*1*MONOTONICITY-PROPERTY G*1*MONOTONICITY-PROPERTY-ON) (MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON) (MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON) (MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON) (MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON) (F-BUF-MONOTONE F-BUF-MONOTONE-ON) (F-AND-MONOTONE F-AND-MONOTONE-ON) (F-AND3-MONOTONE F-AND3-MONOTONE-ON) (F-AND4-MONOTONE F-AND4-MONOTONE-ON) (F-NOT-MONOTONE F-NOT-MONOTONE-ON) (F-NAND-MONOTONE F-NAND-MONOTONE-ON) (F-NAND3-MONOTONE F-NAND3-MONOTONE-ON) (F-NAND4-MONOTONE F-NAND4-MONOTONE-ON) (F-NAND5-MONOTONE F-NAND5-MONOTONE-ON) (F-NAND6-MONOTONE F-NAND6-MONOTONE-ON) (F-NAND8-MONOTONE F-NAND8-MONOTONE-ON) (F-OR-MONOTONE F-OR-MONOTONE-ON) (F-OR3-MONOTONE F-OR3-MONOTONE-ON) (F-OR4-MONOTONE F-OR4-MONOTONE-ON) (F-NOR-MONOTONE F-NOR-MONOTONE-ON) (F-NOR3-MONOTONE F-NOR3-MONOTONE-ON) (F-NOR4-MONOTONE F-NOR4-MONOTONE-ON) (F-NOR5-MONOTONE F-NOR5-MONOTONE-ON) (F-NOR6-MONOTONE F-NOR6-MONOTONE-ON) (F-NOR8-MONOTONE F-NOR8-MONOTONE-ON) (F-XOR-MONOTONE F-XOR-MONOTONE-ON) (F-EQUV-MONOTONE F-EQUV-MONOTONE-ON) (F-XOR3-MONOTONE F-XOR3-MONOTONE-ON) (F-EQUV3-MONOTONE F-EQUV3-MONOTONE-ON) (F-IF-MONOTONE F-IF-MONOTONE-ON) (FT-BUF-MONOTONE FT-BUF-MONOTONE-ON) (FT-WIRE-MONOTONE FT-WIRE-MONOTONE-ON) (F-PULLUP-MONOTONE F-PULLUP-MONOTONE-ON) (DUAL-EVAL-0-PRIMP DUAL-EVAL-0-PRIMP-ON) (DUAL-EVAL-2-PRIMP DUAL-EVAL-2-PRIMP-ON) (S-APPROX-IMPLIES-B-APPROX S-APPROX-IMPLIES-B-APPROX-ON) (F-BUF-TYPE-SET F-BUF-TYPE-SET-ON) (FOURP-F-BUF FOURP-F-BUF-ON) (FOURP-F-IF FOURP-F-IF-ON) (FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1) (DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-VALUE-ON) (DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-STATE-ON) (AO2-MONOTONE AO2-MONOTONE-ON) (DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-VALUE-ON) (DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-STATE-ON) (AO4-MONOTONE AO4-MONOTONE-ON) (DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-VALUE-ON) (DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-STATE-ON) (AO6-MONOTONE AO6-MONOTONE-ON) (DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-VALUE-ON) (DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-STATE-ON) (AO7-MONOTONE AO7-MONOTONE-ON) (DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-VALUE-ON) (DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-STATE-ON) (B-AND-MONOTONE B-AND-MONOTONE-ON) (DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-VALUE-ON) (DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-STATE-ON) (B-AND3-MONOTONE B-AND3-MONOTONE-ON) (DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-VALUE-ON) (DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-STATE-ON) (B-AND4-MONOTONE B-AND4-MONOTONE-ON) (DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-VALUE-ON) (DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-STATE-ON) (B-EQUV-MONOTONE B-EQUV-MONOTONE-ON) (DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-VALUE-ON) (DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-STATE-ON) (B-EQUV3-MONOTONE B-EQUV3-MONOTONE-ON) (DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-VALUE-ON) (DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-STATE-ON) (B-IF-MONOTONE B-IF-MONOTONE-ON) (DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-VALUE-ON) (DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-STATE-ON) (B-NAND-MONOTONE B-NAND-MONOTONE-ON) (DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-VALUE-ON) (DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-STATE-ON) (B-NAND3-MONOTONE B-NAND3-MONOTONE-ON) (DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-VALUE-ON) (DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-STATE-ON) (B-NAND4-MONOTONE B-NAND4-MONOTONE-ON) (DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-VALUE-ON) (DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-STATE-ON) (B-NAND5-MONOTONE B-NAND5-MONOTONE-ON) (DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-VALUE-ON) (DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-STATE-ON) (B-NAND6-MONOTONE B-NAND6-MONOTONE-ON) (DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-VALUE-ON) (DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-STATE-ON) (B-NAND8-MONOTONE B-NAND8-MONOTONE-ON) (DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-VALUE-ON) (DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-STATE-ON) (B-NBUF-MONOTONE B-NBUF-MONOTONE-ON) (DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-VALUE-ON) (DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-STATE-ON) (B-NOR-MONOTONE B-NOR-MONOTONE-ON) (DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-VALUE-ON) (DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-STATE-ON) (B-NOR3-MONOTONE B-NOR3-MONOTONE-ON) (DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-VALUE-ON) (DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-STATE-ON) (B-NOR4-MONOTONE B-NOR4-MONOTONE-ON) (DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-VALUE-ON) (DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-STATE-ON) (B-NOR5-MONOTONE B-NOR5-MONOTONE-ON) (DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-VALUE-ON) (DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-STATE-ON) (B-NOR6-MONOTONE B-NOR6-MONOTONE-ON) (DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-VALUE-ON) (DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-STATE-ON) (B-NOR8-MONOTONE B-NOR8-MONOTONE-ON) (DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-VALUE-ON) (DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-STATE-ON) (B-NOT-MONOTONE B-NOT-MONOTONE-ON) (DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE-ON) (DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-STATE-ON) (B-NOT-B4IP-MONOTONE B-NOT-B4IP-MONOTONE-ON) (DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE-ON) (DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-STATE-ON) (B-NOT-IVAP-MONOTONE B-NOT-IVAP-MONOTONE-ON) (DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-VALUE-ON) (DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-STATE-ON) (B-OR-MONOTONE B-OR-MONOTONE-ON) (DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-VALUE-ON) (DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-STATE-ON) (B-OR3-MONOTONE B-OR3-MONOTONE-ON) (DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-VALUE-ON) (DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-STATE-ON) (B-OR4-MONOTONE B-OR4-MONOTONE-ON) (DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-VALUE-ON) (DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-STATE-ON) (B-XOR-MONOTONE B-XOR-MONOTONE-ON) (DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-VALUE-ON) (DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-STATE-ON) (B-XOR3-MONOTONE B-XOR3-MONOTONE-ON) (DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-VALUE-ON) (DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-STATE-ON) (DEL2-MONOTONE DEL2-MONOTONE-ON) (DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-VALUE-ON) (DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-STATE-ON) (DEL4-MONOTONE DEL4-MONOTONE-ON) (DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-VALUE-ON) (DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-STATE-ON) (DEL10-MONOTONE DEL10-MONOTONE-ON) (DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-VALUE-ON) (DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-STATE-ON) (PROCMON-MONOTONE PROCMON-MONOTONE-ON) (DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-VALUE-ON) (DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-STATE-ON) (FD1-MONOTONE FD1-MONOTONE-ON) (DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-VALUE-ON) (DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-STATE-ON) (FD1S-MONOTONE FD1S-MONOTONE-ON) (DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-VALUE-ON) (DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-STATE-ON) (FD1SP-MONOTONE FD1SP-MONOTONE-ON) (DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-VALUE-ON) (DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-STATE-ON) (FD1SLP-MONOTONE FD1SLP-MONOTONE-ON) (DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-VALUE-ON) (DUAL-EVAL-ID-STATE DUAL-EVAL-ID-STATE-ON) (ID-MONOTONE ID-MONOTONE-ON) (DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON) (DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON) (RAM-ENABLE-CIRCUIT-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE-ON) (DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-VALUE-ON) (DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-STATE-ON) (T-BUF-MONOTONE T-BUF-MONOTONE-ON) (DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-VALUE-ON) (DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-STATE-ON) (T-WIRE-MONOTONE T-WIRE-MONOTONE-ON) (DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-VALUE-ON) (DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-STATE-ON) (PULLUP-MONOTONE PULLUP-MONOTONE-ON) (DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE-ON) (DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE-ON) (TTL-BIDIRECT-MONOTONE TTL-BIDIRECT-MONOTONE-ON) (DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON) (DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE-ON) (TTL-CLK-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE-ON) (DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE-ON) (DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-STATE-ON) (TTL-INPUT-MONOTONE TTL-INPUT-MONOTONE-ON) (DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE-ON) (DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-STATE-ON) (TTL-OUTPUT-MONOTONE TTL-OUTPUT-MONOTONE-ON) (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON) (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON) (TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE-ON) (DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON) (DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON) (TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-FAST-MONOTONE-ON) (DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON) (DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON) (TTL-TRI-OUTPUT-MONOTONE TTL-TRI-OUTPUT-MONOTONE-ON) (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON) (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON) (TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE-ON) (DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-VALUE-ON) (DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-STATE-ON) (VDD-MONOTONE VDD-MONOTONE-ON) (DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON) (DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE-ON) (VDD-PARAMETRIC-MONOTONE VDD-PARAMETRIC-MONOTONE-ON) (DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-VALUE-ON) (DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-STATE-ON) (VSS-MONOTONE VSS-MONOTONE-ON) (BVP-REV1 BVP-REV1-ON) (*1*READ-MEM1-MONOTONE-INDUCTION G*1*READ-MEM1-MONOTONE-INDUCTION-ON) (READ-MEM1-MONOTONE-INDUCTION READ-MEM1-MONOTONE-INDUCTION-ON) (V-APPROX-X-X V-APPROX-X-X-ON1) (*1*DUAL-PORT-RAM-VALUE-BODY G*1*DUAL-PORT-RAM-VALUE-BODY-ON) (DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY-ON) (*1*WRITE-MEM1-MONOTONE-INDUCTION G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON) (WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION-ON) (*1*WRITE-MEM1-DOUBLE-INDUCTION G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON) (WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-DOUBLE-INDUCTION-ON) (DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-STATE-MONOTONE-ON) (*1*DUAL-PORT-RAM-STATE-BODY G*1*DUAL-PORT-RAM-STATE-BODY-ON) (DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY-ON) (*1*OK-NETLISTP G*1*OK-NETLISTP-ON) (OK-NETLISTP OK-NETLISTP-ON) (PRIMP-MONOTONE PRIMP-MONOTONE-ON) (*1*DUAL-EVAL-MONOTONE-INDUCTION G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON) (DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-MONOTONE-INDUCTION-ON) (V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON) (ALISTP-PAIRLIST ALISTP-PAIRLIST-ON) (ALISTP-APPEND ALISTP-APPEND-ON) (ALISTP-DUAL-EVAL-1 ALISTP-DUAL-EVAL-1-ON) (V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON) (*1*S-APPROX-LIST G*1*S-APPROX-LIST-ON) (S-APPROX-LIST S-APPROX-LIST-ON) (S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON) (V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-IMPLIES-V-APPROX-ALIST-ON) (ALISTP-OPENER ALISTP-OPENER-ON) (S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON) (V-APPROX-ALIST-APPEND V-APPROX-ALIST-APPEND-ON) (*1*DOUBLE-CDR-INDUCTION G*1*DOUBLE-CDR-INDUCTION-ON) (DOUBLE-CDR-INDUCTION DOUBLE-CDR-INDUCTION-ON) (S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON) (ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-3-ON) (S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-IMPLIES-S-APPROX-ALIST-ON) (S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON) (OK-NETLISTP-REDUCTION OK-NETLISTP-REDUCTION-ON) (OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION-REWRITE-ON) (DUAL-EVAL-MONOTONE-NO-RAM DUAL-EVAL-MONOTONE-NO-RAM-ON) (*1*GOOD-S-ALIST G*1*GOOD-S-ALIST-ON) (GOOD-S-ALIST GOOD-S-ALIST-ON) (GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST-PAIRLIST-ON) (GOOD-S-VALUE GOOD-S-VALUE-ON) (DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-ON) (GOOD-S-COLLECT-VALUE GOOD-S-COLLECT-VALUE-ON) (F-BUF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S-ON) (F-IF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S-ON) (GOOD-S-0 GOOD-S-0-ON) (AO2-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S-ON) (AO4-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S-ON) (AO6-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S-ON) (AO7-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S-ON) (B-AND-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S-ON) (B-AND3-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S-ON) (B-AND4-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S-ON) (B-EQUV-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S-ON) (B-EQUV3-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S-ON) (B-IF-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S-ON) (B-NAND-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S-ON) (B-NAND3-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S-ON) (B-NAND4-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S-ON) (B-NAND5-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S-ON) (B-NAND6-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S-ON) (B-NAND8-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S-ON) (B-NBUF-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S-ON) (B-NOR-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S-ON) (B-NOR3-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S-ON) (B-NOR4-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S-ON) (B-NOR5-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S-ON) (B-NOR6-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S-ON) (B-NOR8-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S-ON) (B-NOT-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S-ON) (B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S-ON) (B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S-ON) (B-OR-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S-ON) (B-OR3-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S-ON) (B-OR4-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S-ON) (B-XOR-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S-ON) (B-XOR3-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S-ON) (DEL2-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S-ON) (DEL4-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S-ON) (DEL10-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S-ON) (PROCMON-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S-ON) (FD1-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S-ON) (FD1S-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S-ON) (FD1SP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S-ON) (FD1SLP-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S-ON) (ID-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S-ON) (RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON) (T-BUF-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S-ON) (T-WIRE-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S-ON) (PULLUP-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S-ON) (TTL-BIDIRECT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S-ON) (TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S-ON) (TTL-INPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S-ON) (TTL-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S-ON) (TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON) (TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON) (TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (VDD-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S-ON) (VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S-ON) (VSS-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S-ON) (GOOD-S-CONSTANT-RAM GOOD-S-CONSTANT-RAM-ON) (GOOD-S-WRITE-MEM-1 GOOD-S-WRITE-MEM-1-ON) (GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-ON) (DP-RAM-16X32-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S-ON) (PRIMP-PRESERVES-GOOD-S PRIMP-PRESERVES-GOOD-S-ON) (GOOD-S-PRESERVED GOOD-S-PRESERVED-ON) (*1*V-APPROX-LIST G*1*V-APPROX-LIST-ON) (V-APPROX-LIST V-APPROX-LIST-ON) (*1*V-S-APPROX-LIST G*1*V-S-APPROX-LIST-ON) (V-S-APPROX-LIST V-S-APPROX-LIST-ON) (*1*NAT-LST-LST-INDUCTION G*1*NAT-LST-LST-INDUCTION-ON) (NAT-LST-LST-INDUCTION NAT-LST-LST-INDUCTION-ON) (V-APPROX-CAR-NTH V-APPROX-CAR-NTH-ON) (S-APPROX-CADR-NTH S-APPROX-CADR-NTH-ON) (*1*SIMULATE-MONOTONE-INDUCTION G*1*SIMULATE-MONOTONE-INDUCTION-ON) (SIMULATE-MONOTONE-INDUCTION SIMULATE-MONOTONE-INDUCTION-ON) (SIMULATE-MONOTONE SIMULATE-MONOTONE-ON) (V-APPROX-LIST-X-X V-APPROX-LIST-X-X-ON) (*1*DOUBLET-P G*1*DOUBLET-P-ON) (*1*DOUBLET-N-SIMULATE-INDUCTION G*1*DOUBLET-N-SIMULATE-INDUCTION-ON) (DOUBLET-N-SIMULATE-INDUCTION DOUBLET-N-SIMULATE-INDUCTION-ON) (DOUBLET-N-SIMULATE DOUBLET-N-SIMULATE-ON) (DOUBLET-P-EQUAL-APPROX DOUBLET-P-EQUAL-APPROX-ON) (LENGTH-SIMULATE LENGTH-SIMULATE-ON) (XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON) (XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-ON) (*1*COMPILE-UNCOMPILED-DEFNS G*1*COMPILE-UNCOMPILED-DEFNS-ON) (COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON2) (*1*UNKNOWN-REGFILE G*1*UNKNOWN-REGFILE-ON) (UNKNOWN-REGFILE UNKNOWN-REGFILE-ON) (*1*UNKNOWN-MACHINE-STATE G*1*UNKNOWN-MACHINE-STATE-ON) (UNKNOWN-MACHINE-STATE UNKNOWN-MACHINE-STATE-ON) (*1*UNKNOWN-MEMORY-STATE G*1*UNKNOWN-MEMORY-STATE-ON) (UNKNOWN-MEMORY-STATE UNKNOWN-MEMORY-STATE-ON) (*1*UNKNOWN-STATE G*1*UNKNOWN-STATE-ON) (UNKNOWN-STATE UNKNOWN-STATE-ON) (CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON) (FM9001-STATE-STRUCTURE-UNKNOWN-STATE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON) (*1*RESET-VECTOR G*1*RESET-VECTOR-ON) (RESET-VECTOR RESET-VECTOR-ON) (*1*RUN-VECTOR G*1*RUN-VECTOR-ON) (RUN-VECTOR RUN-VECTOR-ON) (*1*RESET-SEQUENCE G*1*RESET-SEQUENCE-ON) (RESET-SEQUENCE RESET-SEQUENCE-ON) (CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON) (*1*INITIALIZED-REGFILE G*1*INITIALIZED-REGFILE-ON) (INITIALIZED-REGFILE INITIALIZED-REGFILE-ON) (*1*INITIALIZED-MACHINE-STATE G*1*INITIALIZED-MACHINE-STATE-ON) (INITIALIZED-MACHINE-STATE INITIALIZED-MACHINE-STATE-ON) (*1*INITIALIZED-MEMORY-STATE G*1*INITIALIZED-MEMORY-STATE-ON) (INITIALIZED-MEMORY-STATE INITIALIZED-MEMORY-STATE-ON) (*1*FINAL-STATE G*1*FINAL-STATE-ON) (FINAL-STATE FINAL-STATE-ON) (RESET-WORKS RESET-WORKS-ON) (UNKNOWN-STATE-OKP UNKNOWN-STATE-OKP-ON) (FINAL-STATE-OKP FINAL-STATE-OKP-ON) (INSTANCE-THEOREM INSTANCE-THEOREM-ON) (FM9001-STATEP-MAP-UP-FINAL-STATE FM9001-STATEP-MAP-UP-FINAL-STATE-ON) (*1*RESET-VECTOR-CHIP G*1*RESET-VECTOR-CHIP-ON) (RESET-VECTOR-CHIP RESET-VECTOR-CHIP-ON) (*1*RUN-VECTOR-CHIP-1 G*1*RUN-VECTOR-CHIP-1-ON) (RUN-VECTOR-CHIP-1 RUN-VECTOR-CHIP-1-ON) (*1*RUN-VECTOR-CHIP-2 G*1*RUN-VECTOR-CHIP-2-ON) (RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-2-ON) (*1*RESET-SEQUENCE-CHIP-1 G*1*RESET-SEQUENCE-CHIP-1-ON) (RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1-ON) (*1*RESET-SEQUENCE-CHIP-2 G*1*RESET-SEQUENCE-CHIP-2-ON) (RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-2-ON) (RESET-SEQUENCE-CHIP-1-VS-2 RESET-SEQUENCE-CHIP-1-VS-2-ON) (SIMULATE-RESET-CHIP-FINAL-STATE SIMULATE-RESET-CHIP-FINAL-STATE-ON) (XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON) (FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON) (*1*V-FOURP G*1*V-FOURP-ON) (V-FOURP V-FOURP-ON) (*1*ALL-XS G*1*ALL-XS-ON) (ALL-XS ALL-XS-ON) (ALL-XS-APPROXIMATES ALL-XS-APPROXIMATES-ON) (ALL-XS-MAKE-LIST ALL-XS-MAKE-LIST-ON) (*1*MEMORY-V-FOURP G*1*MEMORY-V-FOURP-ON) (MEMORY-V-FOURP MEMORY-V-FOURP-ON) (*1*NEW-MACHINE-STATE-INVARIANT G*1*NEW-MACHINE-STATE-INVARIANT-ON) (NEW-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-ON) (S-APPROX-MAKE-LIST S-APPROX-MAKE-LIST-ON) (V-FOURP-IMPLIES-PROPERP V-FOURP-IMPLIES-PROPERP-ON) (LISTP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP-ON) (RAMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP-ON) (ROMP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP-ON) (STUBP-IMPLIES-NOT-FOURP STUBP-IMPLIES-NOT-FOURP-ON) (B-APPROX-X B-APPROX-X-ON) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON) (GOOD-S-OPENER GOOD-S-OPENER-ON) (MEMORY-V-FOURP-IMPLIES-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S-ON) (V-FOURP-IS-GOOD-S V-FOURP-IS-GOOD-S-ON) (NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON) (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON) (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON) (NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON) (MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON) (NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON) (FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON) (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON) (CADR-MAP-UP CADR-MAP-UP-ON) (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON) (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON) (LENGTH-RESET-SEQUENCE-CHIP-1 LENGTH-RESET-SEQUENCE-CHIP-1-ON) (RESET-CHIP RESET-CHIP-ON) (RESET-CHIP-FROM-ANY-STATE RESET-CHIP-FROM-ANY-STATE-ON) (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON) (CHIP-WELL-FORMED CHIP-WELL-FORMED-ON) (CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON) (CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-SIMPLE-ON) (FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 . T) (MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-OFF1 . T) (*1*B-TO-NAT G*1*B-TO-NAT-OFF . T) (B-TO-NAT B-TO-NAT-OFF . T) (BVP-CDR BVP-CDR-OFF . T) (*1*V-ALU-NAT-INT-BUF G*1*V-ALU-NAT-INT-BUF-OFF . T) (V-ALU-NAT-INT-BUF V-ALU-NAT-INT-BUF-OFF . T) (NTH-LENGTH-V NTH-LENGTH-V-OFF . T) (REMAINDER-PLUS-MULTIPLE REMAINDER-PLUS-MULTIPLE-OFF . T) (DIVIDES-PLUS-PLUS DIVIDES-PLUS-PLUS-OFF . T) (REMAINDER-ADD1-PLUS-MULTIPLE REMAINDER-ADD1-PLUS-MULTIPLE-OFF . T) (V-TO-NAT-FIRSTN V-TO-NAT-FIRSTN-OFF . T) (V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-OF-NAT-TO-V-HACK-OFF . T) (V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-OFF . T) (REMAINDER-PLUS-X-X-2 REMAINDER-PLUS-X-X-2-OFF . T) (QUOTIENT-PLUS-X-X-2 QUOTIENT-PLUS-X-X-2-OFF . T) (NAT-TO-V-PLUS-X-X NAT-TO-V-PLUS-X-X-OFF . T) (FIRSTN-ADD1-CONS FIRSTN-ADD1-CONS-OFF . T) (FIRSTN-ZEROP FIRSTN-ZEROP-OFF . T) (FIRSTN-NLISTP FIRSTN-NLISTP-OFF . T) (NAT-TO-V-OF-V-TO-NAT-GENERAL NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF . T) (FIRSTN-LENGTH FIRSTN-LENGTH-OFF . T) (NAT-TO-V-OF-V-TO-NAT NAT-TO-V-OF-V-TO-NAT-OFF . T) (NAT-TO-V-ZEROP NAT-TO-V-ZEROP-OFF . T) (EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF . T) (NAT-TO-V-REMAINDER NAT-TO-V-REMAINDER-OFF . T) (EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-OFF . T) (V-TO-NAT-V-NOT-LEMMA V-TO-NAT-V-NOT-LEMMA-OFF . T) (V-TO-NAT-V-NOT V-TO-NAT-V-NOT-OFF . T) (LESSP-V-TO-NAT-EXP LESSP-V-TO-NAT-EXP-OFF . T) (V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF . T) (LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP-REWRITE-OFF . T) (NOT-LESSP-QUOTIENT NOT-LESSP-QUOTIENT-OFF . T) (V-TO-NAT-APPEND V-TO-NAT-APPEND-OFF . T) (*1*V-ALU-NAT-ADDER-OUTPUT G*1*V-ALU-NAT-ADDER-OUTPUT-OFF . T) (V-ALU-NAT-ADDER-OUTPUT V-ALU-NAT-ADDER-OUTPUT-OFF . T) (*1*V-ALU-NAT-ADDER-CARRY-OUT G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF . T) (V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-CARRY-OUT-OFF . T) (*1*V-ALU-NAT-ADDER G*1*V-ALU-NAT-ADDER-OFF . T) (V-ALU-NAT-ADDER V-ALU-NAT-ADDER-OFF . T) (*1*V-ALU-NAT-INC G*1*V-ALU-NAT-INC-OFF . T) (V-ALU-NAT-INC V-ALU-NAT-INC-OFF . T) (*1*V-ALU-NAT-SUBTRACTER-OUTPUT G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF . T) (V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-SUBTRACTER-OUTPUT-OFF . T) (*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF . T) (V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF . T) (*1*V-ALU-NAT-SUBTRACTER G*1*V-ALU-NAT-SUBTRACTER-OFF . T) (V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-OFF . T) (*1*V-ALU-NAT-DEC G*1*V-ALU-NAT-DEC-OFF . T) (V-ALU-NAT-DEC V-ALU-NAT-DEC-OFF . T) (*1*V-ALU-NAT-LSR-OUTPUT G*1*V-ALU-NAT-LSR-OUTPUT-OFF . T) (V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-LSR-OUTPUT-OFF . T) (*1*V-ALU-NAT-LSR-CARRY-OUT G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF . T) (V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-CARRY-OUT-OFF . T) (*1*V-ALU-NAT-LSR G*1*V-ALU-NAT-LSR-OFF . T) (V-ALU-NAT-LSR V-ALU-NAT-LSR-OFF . T) (*1*V-ALU-NAT-NOT-OUTPUT G*1*V-ALU-NAT-NOT-OUTPUT-OFF . T) (V-ALU-NAT-NOT-OUTPUT V-ALU-NAT-NOT-OUTPUT-OFF . T) (*1*V-ALU-NAT-NOT G*1*V-ALU-NAT-NOT-OFF . T) (V-ALU-NAT-NOT V-ALU-NAT-NOT-OFF . T) (*1*V-ALU-NAT G*1*V-ALU-NAT-OFF . T) (V-ALU-NAT V-ALU-NAT-OFF . T) (V-ALU-CORRECT-NAT V-ALU-CORRECT-NAT-OFF . T) (*1*INT-TO-V G*1*INT-TO-V-OFF . T) (INT-TO-V INT-TO-V-OFF . T) (*1*V-TO-INT G*1*V-TO-INT-OFF . T) (V-TO-INT V-TO-INT-OFF . T) (*1*INTEGER-IN-RANGEP G*1*INTEGER-IN-RANGEP-OFF . T) (INTEGER-IN-RANGEP INTEGER-IN-RANGEP-OFF . T) (IPLUS-PLUS IPLUS-PLUS-OFF . T) (ILESSP-LESSP ILESSP-LESSP-OFF . T) (TIMES-2 TIMES-2-OFF . T) (B-TO-NAT-LEQ B-TO-NAT-LEQ-OFF . T) (LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF . T) (FIX-INT-NUMBERP FIX-INT-NUMBERP-OFF . T) (IPLUS3-PLUS-DIFFERENCE IPLUS3-PLUS-DIFFERENCE-OFF . T) (V-TO-INT-V-NOT V-TO-INT-V-NOT-OFF . T) (V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF . T) (IDIFFERENCE-DIFFERENCE IDIFFERENCE-DIFFERENCE-OFF . T) (IDIV-QUOTIENT IDIV-QUOTIENT-OFF . T) (IDIV-ILESSP-0 IDIV-ILESSP-0-OFF . T) (IPLUS-DIV-HACK1 IPLUS-DIV-HACK1-OFF . T) (LESSP-QUOTIENT-2 LESSP-QUOTIENT-2-OFF . T) (*1*V-ALU-INT-ADDER-OUTPUT G*1*V-ALU-INT-ADDER-OUTPUT-OFF . T) (V-ALU-INT-ADDER-OUTPUT V-ALU-INT-ADDER-OUTPUT-OFF . T) (*1*V-ALU-INT-ADDER-OVERFLOWP G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF . T) (V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP-OFF . T) (*1*V-ALU-INT-ADDER G*1*V-ALU-INT-ADDER-OFF . T) (V-ALU-INT-ADDER V-ALU-INT-ADDER-OFF . T) (*1*V-ALU-INT-INC G*1*V-ALU-INT-INC-OFF . T) (V-ALU-INT-INC V-ALU-INT-INC-OFF . T) (*1*V-ALU-INT-SUBTRACTER-OUTPUT G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF . T) (V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-SUBTRACTER-OUTPUT-OFF . T) (*1*V-ALU-INT-SUBTRACTER-OVERFLOWP G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF . T) (V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF . T) (*1*V-ALU-INT-SUBTRACTER G*1*V-ALU-INT-SUBTRACTER-OFF . T) (V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OFF . T) (*1*V-ALU-INT-DEC G*1*V-ALU-INT-DEC-OFF . T) (V-ALU-INT-DEC V-ALU-INT-DEC-OFF . T) (*1*V-ALU-INT-ASR-OUTPUT G*1*V-ALU-INT-ASR-OUTPUT-OFF . T) (V-ALU-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT-OFF . T) (*1*V-ALU-INT-ASR G*1*V-ALU-INT-ASR-OFF . T) (V-ALU-INT-ASR V-ALU-INT-ASR-OFF . T) (*1*V-ALU-INT-NEG G*1*V-ALU-INT-NEG-OFF . T) (V-ALU-INT-NEG V-ALU-INT-NEG-OFF . T) (*1*V-ALU-INT-NOT-OUTPUT G*1*V-ALU-INT-NOT-OUTPUT-OFF . T) (V-ALU-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT-OFF . T) (*1*V-ALU-INT-NOT G*1*V-ALU-INT-NOT-OFF . T) (V-ALU-INT-NOT V-ALU-INT-NOT-OFF . T) (V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NOT-OUTPUT-OFF . T) (*1*V-ALU-INT G*1*V-ALU-INT-OFF . T) (V-ALU-INT V-ALU-INT-OFF . T) (V-ALU-CORRECT-INT V-ALU-CORRECT-INT-OFF . T) (V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OFF . T) (V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-NEG-OFF . T) (V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OFF . T) (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT-OFF . T) (V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-DEC-OFF . T) (V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OFF . T) (V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF . T) (V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF . T) (V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-INC-OFF . T) (V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OFF . T) (V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF . T) (V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF . T) (V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OFF . T) (V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 . T) (V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OFF . T) (V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF . T) (V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF . T) (V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-DEC-OFF . T) (V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OFF . T) (V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF . T) (V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF . T) (V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-OFF . T) (V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OFF . T) (V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF . T) (V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF . T) (V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-NAT-INT-BUF-OFF . T) (PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-OFF . T) (PLUS-QUOTIENT-2-LEMMA PLUS-QUOTIENT-2-LEMMA-OFF . T) (QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF . T) (V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF . T) (EQUAL-IFF EQUAL-IFF-OFF . T) (EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-OFF . T) (EQUAL-NAT-TO-V-INVERTER-HACK1 EQUAL-NAT-TO-V-INVERTER-HACK1-OFF . T) (V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK2-OFF . T) (V-TO-NAT-FIRSTN-HACK1 V-TO-NAT-FIRSTN-HACK1-OFF . T) (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 . T) (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 . T) (CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 . T) (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 . T) (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 . T) (CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 . T) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T) (CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 . T) (CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T) (CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 . T) (CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-OFF1 . T) (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 . T) (CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-OFF1 . T) (CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-OFF1 . T) (V-ADDER-CARRY-OUT=V-CARRY V-ADDER-CARRY-OUT=V-CARRY-OFF . T) (V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-OFF . T) (*1*DELETE G*1*DELETE-ON) (DELETE DELETE-ON) (*1*BAGDIFF G*1*BAGDIFF-ON) (BAGDIFF BAGDIFF-ON) (*1*BAGINT G*1*BAGINT-ON) (BAGINT BAGINT-ON) (*1*OCCURRENCES G*1*OCCURRENCES-ON) (OCCURRENCES OCCURRENCES-ON) (*1*SUBBAGP G*1*SUBBAGP-ON) (SUBBAGP SUBBAGP-ON) (DELETE-NON-MEMBER DELETE-NON-MEMBER-ON) (DELETE-DELETE DELETE-DELETE-ON) (EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-ON) (MEMBER-NON-LIST MEMBER-NON-LIST-ON) (MEMBER-DELETE MEMBER-DELETE-ON) (MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON) (OCCURRENCES-DELETE OCCURRENCES-DELETE-ON) (MEMBER-BAGDIFF MEMBER-BAGDIFF-ON) (BAGDIFF-DELETE BAGDIFF-DELETE-ON) (SUBBAGP-DELETE SUBBAGP-DELETE-ON) (SUBBAGP-CDR1 SUBBAGP-CDR1-ON) (SUBBAGP-CDR2 SUBBAGP-CDR2-ON) (SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-ON) (SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-ON) (OCCURRENCES-BAGINT OCCURRENCES-BAGINT-ON) (OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-ON) (MEMBER-BAGINT MEMBER-BAGINT-ON) (EQUAL-PLUS-0 EQUAL-PLUS-0-ON) (EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-ON) (COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-ON) (COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-ON) (PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-ON) (PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-ON) (PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-ON) (ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-ON) (PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-ON) (PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-ON) (DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-ON) (DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON) (DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-ON) (DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-ON) (*1*PLUS-FRINGE G*1*PLUS-FRINGE-ON) (PLUS-FRINGE PLUS-FRINGE-ON) (*1*PLUS-TREE G*1*PLUS-TREE-ON) (PLUS-TREE PLUS-TREE-ON) (EVAL$-QUOTE EVAL$-QUOTE-ON1) (*1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-ON) (CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-ON) (CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON) (*1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-ON) (CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-ON) (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON) (DIFFERENCE-ELIM DIFFERENCE-ELIM-ON) (DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-ON) (DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-ON) (DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-ON) (DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-ON) (DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-ON) (DIFFERENCE-X-X DIFFERENCE-X-X-ON) (*1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-ON) (CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-ON) (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON) (EQUAL-TIMES-0 EQUAL-TIMES-0-ON) (EQUAL-TIMES-1 EQUAL-TIMES-1-ON) (EQUAL-SUB1-0 EQUAL-SUB1-0-ON) (TIMES-ZERO TIMES-ZERO-ON) (TIMES-ADD1 TIMES-ADD1-ON) (COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-ON) (TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON) (TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-ON) (COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-ON) (ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-ON) (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON) (TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON) (TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-ON) (TIMES-QUOTIENT TIMES-QUOTIENT-ON) (TIMES-1-ARG1 TIMES-1-ARG1-ON) (LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-ON) (LESSP-TIMES1 LESSP-TIMES1-ON) (LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-ON) (LESSP-TIMES2 LESSP-TIMES2-ON) (LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-ON) (LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-ON) (LESSP-TIMES3 LESSP-TIMES3-ON) (LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-ON) (LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-ON) (LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-ON) (LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-ON) (LESSP-1-TIMES LESSP-1-TIMES-ON) (*1*TIMES-TREE G*1*TIMES-TREE-ON) (TIMES-TREE TIMES-TREE-ON) (*1*TIMES-FRINGE G*1*TIMES-FRINGE-ON) (TIMES-FRINGE TIMES-FRINGE-ON) (*1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-ON) (OR-ZEROP-TREE OR-ZEROP-TREE-ON) (*1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-ON) (AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-ON) (EVAL$-EQUAL EVAL$-EQUAL-ON1) (LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-ON) (INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-ON) (*1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-ON) (CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-ON) (CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON) (*1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-ON) (CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-ON) (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON) (LESSP-REMAINDER LESSP-REMAINDER-ON) (REMAINDER-NOOP REMAINDER-NOOP-ON) (REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-ON) (REMAINDER-ZERO REMAINDER-ZERO-ON) (REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-ON) (REMAINDER-ADD1 REMAINDER-ADD1-ON) (REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-ON) (REMAINDER-PLUS REMAINDER-PLUS-ON) (EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-ON) (EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-ON) (EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON) (REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-ON) (REMAINDER-TIMES1 REMAINDER-TIMES1-ON) (REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-ON) (REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-ON) (REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-ON) (REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-ON) (REMAINDER-TIMES2 REMAINDER-TIMES2-ON) (REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-ON) (REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-ON) (*1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-ON) (DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-ON) (REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-ON) (REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-ON) (REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-ON) (REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-ON) (REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON) (REMAINDER-REMAINDER REMAINDER-REMAINDER-ON) (REMAINDER-1-ARG1 REMAINDER-1-ARG1-ON) (REMAINDER-1-ARG2 REMAINDER-1-ARG2-ON) (REMAINDER-X-X REMAINDER-X-X-ON) (TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-ON) (QUOTIENT-NOOP QUOTIENT-NOOP-ON) (QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-ON) (QUOTIENT-ZERO QUOTIENT-ZERO-ON) (QUOTIENT-ADD1 QUOTIENT-ADD1-ON) (EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-ON) (QUOTIENT-SUB1 QUOTIENT-SUB1-ON) (QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-ON) (QUOTIENT-PLUS QUOTIENT-PLUS-ON) (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON) (QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-ON) (QUOTIENT-TIMES QUOTIENT-TIMES-ON) (QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-ON) (QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-ON) (QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-ON) (QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-ON) (QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-ON) (QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-ON) (QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-ON) (QUOTIENT-REMAINDER QUOTIENT-REMAINDER-ON) (QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-ON) (QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-ON) (QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON) (QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-ON) (QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON) (QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-ON) (LEQ-QUOTIENT LEQ-QUOTIENT-ON) (QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-ON) (QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-ON) (QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-ON) (QUOTIENT-X-X QUOTIENT-X-X-ON) (LESSP-QUOTIENT LESSP-QUOTIENT-ON) (*1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-ON) (CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-ON) (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON) (*1*EXP G*1*EXP-ON) (EXP EXP-ON) (*1*LOG G*1*LOG-ON) (LOG LOG-ON) (*1*GCD G*1*GCD-ON) (GCD GCD-ON) (REMAINDER-EXP REMAINDER-EXP-ON) (*1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-ON) (DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-ON) (REMAINDER-EXP-EXP REMAINDER-EXP-EXP-ON) (QUOTIENT-EXP QUOTIENT-EXP-ON) (EXP-ZERO EXP-ZERO-ON) (EXP-ADD1 EXP-ADD1-ON) (EXP-PLUS EXP-PLUS-ON) (EXP-0-ARG1 EXP-0-ARG1-ON) (EXP-1-ARG1 EXP-1-ARG1-ON) (EXP-0-ARG2 EXP-0-ARG2-ON) (EXP-TIMES EXP-TIMES-ON) (EXP-EXP EXP-EXP-ON) (EQUAL-EXP-0 EQUAL-EXP-0-ON) (EQUAL-EXP-1 EQUAL-EXP-1-ON) (EXP-DIFFERENCE EXP-DIFFERENCE-ON) (EQUAL-LOG-0 EQUAL-LOG-0-ON) (LOG-0 LOG-0-ON) (LOG-1 LOG-1-ON) (*1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-ON) (DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-ON) (LEQ-LOG-LOG LEQ-LOG-LOG-ON) (LOG-QUOTIENT LOG-QUOTIENT-ON) (LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-ON) (LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-ON) (LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-ON) (LOG-TIMES-PROOF LOG-TIMES-PROOF-ON) (LOG-TIMES LOG-TIMES-ON) (LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-ON) (LOG-TIMES-EXP LOG-TIMES-EXP-ON) (LOG-EXP LOG-EXP-ON) (COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-ON) (*1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-ON) (SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-ON) (GCD-0 GCD-0-ON) (GCD-1 GCD-1-ON) (EQUAL-GCD-0 EQUAL-GCD-0-ON) (LESSP-GCD LESSP-GCD-ON) (GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-ON) (GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-ON) (GCD-PLUS-PROOF GCD-PLUS-PROOF-ON) (GCD-PLUS GCD-PLUS-ON) (GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-ON) (REMAINDER-GCD REMAINDER-GCD-ON) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON) (GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-ON) (COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-ON) (ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON) (ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ON) (COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON) (COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ON) (GCD-X-X GCD-X-X-ON) (GCD-IDEMPOTENCE GCD-IDEMPOTENCE-ON) (*1*INTEGERP G*1*INTEGERP-ON) (*1*FIX-INT G*1*FIX-INT-ON) (*1*IZEROP G*1*IZEROP-ON) (IZEROP IZEROP-ON) (*1*ILESSP G*1*ILESSP-ON) (*1*ILEQ G*1*ILEQ-ON) (ILEQ ILEQ-ON) (*1*IPLUS G*1*IPLUS-ON) (*1*INEG G*1*INEG-ON) (*1*IDIFFERENCE G*1*IDIFFERENCE-ON) (IDIFFERENCE IDIFFERENCE-ON) (*1*IABS G*1*IABS-ON) (*1*ITIMES G*1*ITIMES-ON) (*1*IQUOTIENT G*1*IQUOTIENT-ON) (*1*IREMAINDER G*1*IREMAINDER-ON) (*1*IDIV G*1*IDIV-ON) (*1*IMOD G*1*IMOD-ON) (*1*IQUO G*1*IQUO-ON) (*1*IREM G*1*IREM-ON) (INTEGERP-FIX-INT INTEGERP-FIX-INT-ON) (INTEGERP-IPLUS INTEGERP-IPLUS-ON) (INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-ON) (INTEGERP-INEG INTEGERP-INEG-ON) (INTEGERP-IABS INTEGERP-IABS-ON) (INTEGERP-ITIMES INTEGERP-ITIMES-ON) (FIX-INT-REMOVER FIX-INT-REMOVER-ON) (FIX-INT-FIX-INT FIX-INT-FIX-INT-ON) (FIX-INT-IPLUS FIX-INT-IPLUS-ON) (FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-ON) (FIX-INT-INEG FIX-INT-INEG-ON) (FIX-INT-IABS FIX-INT-IABS-ON) (FIX-INT-ITIMES FIX-INT-ITIMES-ON) (INEG-IPLUS INEG-IPLUS-ON) (INEG-INEG INEG-INEG-ON) (INEG-FIX-INT INEG-FIX-INT-ON) (INEG-0 INEG-0-ON) (IPLUS-0-LEFT IPLUS-0-LEFT-ON) (IPLUS-0-RIGHT IPLUS-0-RIGHT-ON) (COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-ON) (COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-ON) (ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-ON) (IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-ON) (IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-ON) (IPLUS-INEG1 IPLUS-INEG1-ON) (IPLUS-INEG2 IPLUS-INEG2-ON) (IPLUS-FIX-INT1 IPLUS-FIX-INT1-ON) (IPLUS-FIX-INT2 IPLUS-FIX-INT2-ON) (IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-ON) (IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-ON) (*1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-ON) (CANCEL-INEG-AUX CANCEL-INEG-AUX-ON) (*1*CANCEL-INEG G*1*CANCEL-INEG-ON) (CANCEL-INEG CANCEL-INEG-ON) (EVAL$-LIST-CONS EVAL$-LIST-CONS-ON) (EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-ON) (EVAL$-LITATOM EVAL$-LITATOM-ON) (EVAL$-OTHER EVAL$-OTHER-ON) (*1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-ON) (EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-ON) (EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON) (IPLUS-INEG3 IPLUS-INEG3-ON) (IPLUS-INEG4 IPLUS-INEG4-ON) (IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-ON) (CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-ON) (*1*IPLUS-FRINGE G*1*IPLUS-FRINGE-ON) (IPLUS-FRINGE IPLUS-FRINGE-ON) (*1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-ON) (IPLUS-TREE-REC IPLUS-TREE-REC-ON) (*1*IPLUS-TREE G*1*IPLUS-TREE-ON) (*1*IPLUS-LIST G*1*IPLUS-LIST-ON) (IPLUS-LIST IPLUS-LIST-ON) (INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-ON) (EVAL$-LIST-APPEND EVAL$-LIST-APPEND-ON) (*1*CANCEL-IPLUS G*1*CANCEL-IPLUS-ON) (EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-ON) (IPLUS-LIST-APPEND IPLUS-LIST-APPEND-ON) (IPLUS-INEG7 IPLUS-INEG7-ON) (CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-ON) (ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-ON) (ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-ON) (*1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON) (*1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-ON) (CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-ON) (IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-ON) (IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-ON) (*1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-ON) (*1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-ON) (CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-ON) (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON) (ITIMES-0-LEFT ITIMES-0-LEFT-ON) (ITIMES-0-RIGHT ITIMES-0-RIGHT-ON) (ITIMES-FIX-INT1 ITIMES-FIX-INT1-ON) (ITIMES-FIX-INT2 ITIMES-FIX-INT2-ON) (COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-ON) (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON) (ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-ON) (COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-ON) (ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-ON) (EQUAL-ITIMES-0 EQUAL-ITIMES-0-ON) (EQUAL-ITIMES-1 EQUAL-ITIMES-1-ON) (EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-ON) (ITIMES-1-ARG1 ITIMES-1-ARG1-ON) (QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-ON) (DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-ON) (DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-ON) (DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-ON) (DIVISION-THEOREM DIVISION-THEOREM-ON) (IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON) (IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON) (IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-ON) (ITIMES-INEG-1 ITIMES-INEG-1-ON) (ITIMES-INEG-2 ITIMES-INEG-2-ON) (ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-ON) (ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-ON) (ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-ON) (INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-ON) (INTEGERP-IREMAINDER INTEGERP-IREMAINDER-ON) (INTEGERP-IDIV INTEGERP-IDIV-ON) (INTEGERP-IMOD INTEGERP-IMOD-ON) (INTEGERP-IQUO INTEGERP-IQUO-ON) (INTEGERP-IREM INTEGERP-IREM-ON) (IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-ON) (IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-ON) (IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-ON) (IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-ON) (IDIV-FIX-INT1 IDIV-FIX-INT1-ON) (IDIV-FIX-INT2 IDIV-FIX-INT2-ON) (IMOD-FIX-INT1 IMOD-FIX-INT1-ON) (IMOD-FIX-INT2 IMOD-FIX-INT2-ON) (IQUO-FIX-INT1 IQUO-FIX-INT1-ON) (IQUO-FIX-INT2 IQUO-FIX-INT2-ON) (IREM-FIX-INT1 IREM-FIX-INT1-ON) (IREM-FIX-INT2 IREM-FIX-INT2-ON) (FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-ON) (FIX-INT-IREMAINDER FIX-INT-IREMAINDER-ON) (FIX-INT-IDIV FIX-INT-IDIV-ON) (FIX-INT-IMOD FIX-INT-IMOD-ON) (FIX-INT-IQUO FIX-INT-IQUO-ON) (FIX-INT-IREM FIX-INT-IREM-ON) (*1*ITIMES-FRINGE G*1*ITIMES-FRINGE-ON) (ITIMES-FRINGE ITIMES-FRINGE-ON) (*1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-ON) (ITIMES-TREE-REC ITIMES-TREE-REC-ON) (*1*ITIMES-TREE G*1*ITIMES-TREE-ON) (*1*ITIMES-LIST G*1*ITIMES-LIST-ON) (ITIMES-LIST ITIMES-LIST-ON) (INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-ON) (*1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON) (*1*CANCEL-ITIMES G*1*CANCEL-ITIMES-ON) (CANCEL-ITIMES CANCEL-ITIMES-ON) (ITIMES-LIST-APPEND ITIMES-LIST-APPEND-ON) (MEMBER-APPEND MEMBER-APPEND-ON) (EQUAL-FIX-INT EQUAL-FIX-INT-ON) (*1*SUBSETP G*1*SUBSETP-ON) (SUBSETP SUBSETP-ON) (*1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-ON) (*1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON) (*1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-ON) (CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-ON) (ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-ON) (ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-ON) (ILESSP-STRICT ILESSP-STRICT-ON) (*1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-ON) (*1*ITIMES-FACTORS G*1*ITIMES-FACTORS-ON) (ITIMES-FACTORS ITIMES-FACTORS-ON) (ITIMES--1 ITIMES--1-ON) (EQUAL-INEG-INEG EQUAL-INEG-INEG-ON) (ILESSP-INEG-INEG ILESSP-INEG-INEG-ON) (FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-ON) (EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-ON) (INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-ON) (IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-ON) (ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-ON) (*1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-ON) (*1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-ON) (CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-ON) (*1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON) (CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON) (MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON) (MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-ON) (CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON) (*1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON) (CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-ON) (BAGINT-SINGLETON BAGINT-SINGLETON-ON) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON) (ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON) (ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON) (MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON) (EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON) (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON) (EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-ON) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON) (*1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-ON) (DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-ON) (*1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-ON) (CANCEL-FACTORS-0 CANCEL-FACTORS-0-ON) (*1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-ON) (SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-ON) (EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-ON) (SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-ON) (SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-ON) (CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-ON) (*1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-ON) (CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-ON) (*1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-ON) (CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-ON) (CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON) (CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON) (*1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-ON) (SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-ON) (*1*REMOVE-INEGS G*1*REMOVE-INEGS-ON) (*1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-ON) (*1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON) (EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON) (IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (IPLUS-CONSTANTS IPLUS-CONSTANTS-ON) (CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-ON) (CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-ON) (ILESSP-ADD1 ILESSP-ADD1-ON) (ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-ON) (CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON) (CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON) (CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-ON) (B-APPROX B-APPROX-ON1) (B-KNOWNP B-KNOWNP-ON1) (MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-ON) (FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON) (DOUBLET-P DOUBLET-P-ON) (OPEN-NTH OPEN-NTH-OFF1 . T) (DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-ON) (DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-ON) (DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-ON) (DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON) (DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON) (MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-ON) (V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-ON) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON) (MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-ON) (V-APPROX-SUBRANGE V-APPROX-SUBRANGE-ON) (V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-ON) (S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON) (S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-ON) (S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-ON) (S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-ON) (V-APPROX-LENGTH V-APPROX-LENGTH-ON) (WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-ON) (WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-ON) (WRITE-MEM1-OPENER WRITE-MEM1-OPENER-ON) (V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON) (S-APPROX-OPENER S-APPROX-OPENER-ON) (BVP BVP-OFF2 . T) (DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-ON) (DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-ON) (DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON) (EVAL$-APPEND-2 EVAL$-APPEND-2-ON) (EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-ON) (EVAL$-APPEND EVAL$-APPEND-ON) (DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-ON) (S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-ON) (S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON) (EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-ON) (EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-ON) (READ-MEM-MONOTONE READ-MEM-MONOTONE-ON) (V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-ON) (V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-ON) (V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON) (*1*B-KNOWNP G*1*B-KNOWNP-ON1) (V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-ON) (BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-ON) (READ-MEM1-MONOTONE READ-MEM1-MONOTONE-ON) (V-APPROX-BVP V-APPROX-BVP-ON) (BVP-REVERSE BVP-REVERSE-ON) (F-PULLUP F-PULLUP-ON) (FT-WIRE FT-WIRE-ON) (FT-BUF FT-BUF-ON) (F-IF F-IF-ON) (F-EQUV3 F-EQUV3-ON) (F-EQUV F-EQUV-ON) (F-XOR3 F-XOR3-ON) (F-XOR F-XOR-ON) (F-NOR8 F-NOR8-ON) (F-NOR6 F-NOR6-ON) (F-NOR5 F-NOR5-ON) (F-NOR4 F-NOR4-ON) (F-NOR3 F-NOR3-ON) (F-NOR F-NOR-ON) (F-OR4 F-OR4-ON) (F-OR3 F-OR3-ON) (F-OR F-OR-ON) (F-NAND8 F-NAND8-ON) (F-NAND6 F-NAND6-ON) (F-NAND5 F-NAND5-ON) (F-NAND4 F-NAND4-ON) (F-NAND3 F-NAND3-ON) (F-NAND F-NAND-ON) (F-NOT F-NOT-ON) (F-AND4 F-AND4-ON) (F-AND3 F-AND3-ON) (F-AND F-AND-ON) (F-BUF F-BUF-ON) (MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-ON) (MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-ON) (MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-ON) (MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-ON) (MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-ON) (B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP-COMPOUND-RECOGNIZER-OFF . T) (*1*B-APPROX G*1*B-APPROX-OFF . T) (*1*V-APPROX G*1*V-APPROX-OFF . T) (V-APPROX V-APPROX-OFF1 . T) (*1*V-KNOWNP G*1*V-KNOWNP-OFF . T) (V-KNOWNP V-KNOWNP-OFF1 . T) (V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF . T) (*1*MEM-WIDTH G*1*MEM-WIDTH-OFF1 . T) (MEM-WIDTH MEM-WIDTH-OFF1 . T) (*1*S-APPROX G*1*S-APPROX-OFF . T) (S-APPROX S-APPROX-OFF1 . T) (S-APPROX-X-X S-APPROX-X-X-OFF . T) (*1*GOOD-S G*1*GOOD-S-OFF . T) (GOOD-S GOOD-S-OFF . T) (*1*S-KNOWNP G*1*S-KNOWNP-OFF . T) (S-KNOWNP S-KNOWNP-OFF1 . T) (S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 . T) (*1*V-APPROX-ALIST G*1*V-APPROX-ALIST-OFF . T) (V-APPROX-ALIST V-APPROX-ALIST-OFF . T) (*1*S-APPROX-ALIST G*1*S-APPROX-ALIST-OFF . T) (S-APPROX-ALIST S-APPROX-ALIST-OFF . T) (*1*MONOTONICITY-PROPERTY G*1*MONOTONICITY-PROPERTY-OFF . T) (MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF . T) (MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF . T) (MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF . T) (MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF . T) (F-BUF-MONOTONE F-BUF-MONOTONE-OFF . T) (F-AND-MONOTONE F-AND-MONOTONE-OFF . T) (F-AND3-MONOTONE F-AND3-MONOTONE-OFF . T) (F-AND4-MONOTONE F-AND4-MONOTONE-OFF . T) (F-NOT-MONOTONE F-NOT-MONOTONE-OFF . T) (F-NAND-MONOTONE F-NAND-MONOTONE-OFF . T) (F-NAND3-MONOTONE F-NAND3-MONOTONE-OFF . T) (F-NAND4-MONOTONE F-NAND4-MONOTONE-OFF . T) (F-NAND5-MONOTONE F-NAND5-MONOTONE-OFF . T) (F-NAND6-MONOTONE F-NAND6-MONOTONE-OFF . T) (F-NAND8-MONOTONE F-NAND8-MONOTONE-OFF . T) (F-OR-MONOTONE F-OR-MONOTONE-OFF . T) (F-OR3-MONOTONE F-OR3-MONOTONE-OFF . T) (F-OR4-MONOTONE F-OR4-MONOTONE-OFF . T) (F-NOR-MONOTONE F-NOR-MONOTONE-OFF . T) (F-NOR3-MONOTONE F-NOR3-MONOTONE-OFF . T) (F-NOR4-MONOTONE F-NOR4-MONOTONE-OFF . T) (F-NOR5-MONOTONE F-NOR5-MONOTONE-OFF . T) (F-NOR6-MONOTONE F-NOR6-MONOTONE-OFF . T) (F-NOR8-MONOTONE F-NOR8-MONOTONE-OFF . T) (F-XOR-MONOTONE F-XOR-MONOTONE-OFF . T) (F-EQUV-MONOTONE F-EQUV-MONOTONE-OFF . T) (F-XOR3-MONOTONE F-XOR3-MONOTONE-OFF . T) (F-EQUV3-MONOTONE F-EQUV3-MONOTONE-OFF . T) (F-IF-MONOTONE F-IF-MONOTONE-OFF . T) (FT-BUF-MONOTONE FT-BUF-MONOTONE-OFF . T) (FT-WIRE-MONOTONE FT-WIRE-MONOTONE-OFF . T) (F-PULLUP-MONOTONE F-PULLUP-MONOTONE-OFF . T) (DUAL-EVAL-0-PRIMP DUAL-EVAL-0-PRIMP-OFF . T) (DUAL-EVAL-2-PRIMP DUAL-EVAL-2-PRIMP-OFF . T) (S-APPROX-IMPLIES-B-APPROX S-APPROX-IMPLIES-B-APPROX-OFF . T) (F-BUF-TYPE-SET F-BUF-TYPE-SET-OFF . T) (FOURP-F-BUF FOURP-F-BUF-OFF . T) (FOURP-F-IF FOURP-F-IF-OFF . T) (FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 . T) (DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-VALUE-OFF . T) (DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-STATE-OFF . T) (AO2-MONOTONE AO2-MONOTONE-OFF . T) (DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-VALUE-OFF . T) (DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-STATE-OFF . T) (AO4-MONOTONE AO4-MONOTONE-OFF . T) (DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-VALUE-OFF . T) (DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-STATE-OFF . T) (AO6-MONOTONE AO6-MONOTONE-OFF . T) (DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-VALUE-OFF . T) (DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-STATE-OFF . T) (AO7-MONOTONE AO7-MONOTONE-OFF . T) (DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-VALUE-OFF . T) (DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-STATE-OFF . T) (B-AND-MONOTONE B-AND-MONOTONE-OFF . T) (DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-VALUE-OFF . T) (DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-STATE-OFF . T) (B-AND3-MONOTONE B-AND3-MONOTONE-OFF . T) (DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-VALUE-OFF . T) (DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-STATE-OFF . T) (B-AND4-MONOTONE B-AND4-MONOTONE-OFF . T) (DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-VALUE-OFF . T) (DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-STATE-OFF . T) (B-EQUV-MONOTONE B-EQUV-MONOTONE-OFF . T) (DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-VALUE-OFF . T) (DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-STATE-OFF . T) (B-EQUV3-MONOTONE B-EQUV3-MONOTONE-OFF . T) (DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-VALUE-OFF . T) (DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-STATE-OFF . T) (B-IF-MONOTONE B-IF-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-VALUE-OFF . T) (DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-STATE-OFF . T) (B-NAND-MONOTONE B-NAND-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-VALUE-OFF . T) (DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-STATE-OFF . T) (B-NAND3-MONOTONE B-NAND3-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-VALUE-OFF . T) (DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-STATE-OFF . T) (B-NAND4-MONOTONE B-NAND4-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-VALUE-OFF . T) (DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-STATE-OFF . T) (B-NAND5-MONOTONE B-NAND5-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-VALUE-OFF . T) (DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-STATE-OFF . T) (B-NAND6-MONOTONE B-NAND6-MONOTONE-OFF . T) (DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-VALUE-OFF . T) (DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-STATE-OFF . T) (B-NAND8-MONOTONE B-NAND8-MONOTONE-OFF . T) (DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-VALUE-OFF . T) (DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-STATE-OFF . T) (B-NBUF-MONOTONE B-NBUF-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-VALUE-OFF . T) (DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-STATE-OFF . T) (B-NOR-MONOTONE B-NOR-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-VALUE-OFF . T) (DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-STATE-OFF . T) (B-NOR3-MONOTONE B-NOR3-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-VALUE-OFF . T) (DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-STATE-OFF . T) (B-NOR4-MONOTONE B-NOR4-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-VALUE-OFF . T) (DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-STATE-OFF . T) (B-NOR5-MONOTONE B-NOR5-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-VALUE-OFF . T) (DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-STATE-OFF . T) (B-NOR6-MONOTONE B-NOR6-MONOTONE-OFF . T) (DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-VALUE-OFF . T) (DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-STATE-OFF . T) (B-NOR8-MONOTONE B-NOR8-MONOTONE-OFF . T) (DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-VALUE-OFF . T) (DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-STATE-OFF . T) (B-NOT-MONOTONE B-NOT-MONOTONE-OFF . T) (DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE-OFF . T) (DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-STATE-OFF . T) (B-NOT-B4IP-MONOTONE B-NOT-B4IP-MONOTONE-OFF . T) (DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE-OFF . T) (DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-STATE-OFF . T) (B-NOT-IVAP-MONOTONE B-NOT-IVAP-MONOTONE-OFF . T) (DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-VALUE-OFF . T) (DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-STATE-OFF . T) (B-OR-MONOTONE B-OR-MONOTONE-OFF . T) (DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-VALUE-OFF . T) (DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-STATE-OFF . T) (B-OR3-MONOTONE B-OR3-MONOTONE-OFF . T) (DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-VALUE-OFF . T) (DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-STATE-OFF . T) (B-OR4-MONOTONE B-OR4-MONOTONE-OFF . T) (DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-VALUE-OFF . T) (DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-STATE-OFF . T) (B-XOR-MONOTONE B-XOR-MONOTONE-OFF . T) (DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-VALUE-OFF . T) (DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-STATE-OFF . T) (B-XOR3-MONOTONE B-XOR3-MONOTONE-OFF . T) (DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-VALUE-OFF . T) (DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-STATE-OFF . T) (DEL2-MONOTONE DEL2-MONOTONE-OFF . T) (DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-VALUE-OFF . T) (DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-STATE-OFF . T) (DEL4-MONOTONE DEL4-MONOTONE-OFF . T) (DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-VALUE-OFF . T) (DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-STATE-OFF . T) (DEL10-MONOTONE DEL10-MONOTONE-OFF . T) (DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-VALUE-OFF . T) (DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-STATE-OFF . T) (PROCMON-MONOTONE PROCMON-MONOTONE-OFF . T) (DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-VALUE-OFF . T) (DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-STATE-OFF . T) (FD1-MONOTONE FD1-MONOTONE-OFF . T) (DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-VALUE-OFF . T) (DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-STATE-OFF . T) (FD1S-MONOTONE FD1S-MONOTONE-OFF . T) (DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-VALUE-OFF . T) (DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-STATE-OFF . T) (FD1SP-MONOTONE FD1SP-MONOTONE-OFF . T) (DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-VALUE-OFF . T) (DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-STATE-OFF . T) (FD1SLP-MONOTONE FD1SLP-MONOTONE-OFF . T) (DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-VALUE-OFF . T) (DUAL-EVAL-ID-STATE DUAL-EVAL-ID-STATE-OFF . T) (ID-MONOTONE ID-MONOTONE-OFF . T) (DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF . T) (DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF . T) (RAM-ENABLE-CIRCUIT-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE-OFF . T) (DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-VALUE-OFF . T) (DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-STATE-OFF . T) (T-BUF-MONOTONE T-BUF-MONOTONE-OFF . T) (DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-VALUE-OFF . T) (DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-STATE-OFF . T) (T-WIRE-MONOTONE T-WIRE-MONOTONE-OFF . T) (DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-VALUE-OFF . T) (DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-STATE-OFF . T) (PULLUP-MONOTONE PULLUP-MONOTONE-OFF . T) (DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF . T) (DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE-OFF . T) (TTL-BIDIRECT-MONOTONE TTL-BIDIRECT-MONOTONE-OFF . T) (DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF . T) (DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF . T) (TTL-CLK-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE-OFF . T) (DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE-OFF . T) (DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-STATE-OFF . T) (TTL-INPUT-MONOTONE TTL-INPUT-MONOTONE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-STATE-OFF . T) (TTL-OUTPUT-MONOTONE TTL-OUTPUT-MONOTONE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF . T) (TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF . T) (DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF . T) (TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-FAST-MONOTONE-OFF . T) (DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF . T) (DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF . T) (TTL-TRI-OUTPUT-MONOTONE TTL-TRI-OUTPUT-MONOTONE-OFF . T) (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF . T) (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF . T) (TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE-OFF . T) (DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-VALUE-OFF . T) (DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-STATE-OFF . T) (VDD-MONOTONE VDD-MONOTONE-OFF . T) (DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF . T) (DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF . T) (VDD-PARAMETRIC-MONOTONE VDD-PARAMETRIC-MONOTONE-OFF . T) (DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-VALUE-OFF . T) (DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-STATE-OFF . T) (VSS-MONOTONE VSS-MONOTONE-OFF . T) (BVP-REV1 BVP-REV1-OFF . T) (*1*READ-MEM1-MONOTONE-INDUCTION G*1*READ-MEM1-MONOTONE-INDUCTION-OFF . T) (READ-MEM1-MONOTONE-INDUCTION READ-MEM1-MONOTONE-INDUCTION-OFF . T) (V-APPROX-X-X V-APPROX-X-X-OFF1 . T) (*1*DUAL-PORT-RAM-VALUE-BODY G*1*DUAL-PORT-RAM-VALUE-BODY-OFF . T) (DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY-OFF . T) (*1*WRITE-MEM1-MONOTONE-INDUCTION G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF . T) (WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION-OFF . T) (*1*WRITE-MEM1-DOUBLE-INDUCTION G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF . T) (WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-DOUBLE-INDUCTION-OFF . T) (DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-STATE-MONOTONE-OFF . T) (*1*DUAL-PORT-RAM-STATE-BODY G*1*DUAL-PORT-RAM-STATE-BODY-OFF . T) (DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY-OFF . T) (*1*OK-NETLISTP G*1*OK-NETLISTP-OFF . T) (OK-NETLISTP OK-NETLISTP-OFF . T) (PRIMP-MONOTONE PRIMP-MONOTONE-OFF . T) (*1*DUAL-EVAL-MONOTONE-INDUCTION G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF . T) (DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-MONOTONE-INDUCTION-OFF . T) (V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF . T) (ALISTP-PAIRLIST ALISTP-PAIRLIST-OFF . T) (ALISTP-APPEND ALISTP-APPEND-OFF . T) (ALISTP-DUAL-EVAL-1 ALISTP-DUAL-EVAL-1-OFF . T) (V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF . T) (*1*S-APPROX-LIST G*1*S-APPROX-LIST-OFF . T) (S-APPROX-LIST S-APPROX-LIST-OFF . T) (S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF . T) (V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-IMPLIES-V-APPROX-ALIST-OFF . T) (ALISTP-OPENER ALISTP-OPENER-OFF . T) (S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF . T) (V-APPROX-ALIST-APPEND V-APPROX-ALIST-APPEND-OFF . T) (*1*DOUBLE-CDR-INDUCTION G*1*DOUBLE-CDR-INDUCTION-OFF . T) (DOUBLE-CDR-INDUCTION DOUBLE-CDR-INDUCTION-OFF . T) (S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF . T) (ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-3-OFF . T) (S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-IMPLIES-S-APPROX-ALIST-OFF . T) (S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF . T) (OK-NETLISTP-REDUCTION OK-NETLISTP-REDUCTION-OFF . T) (OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION-REWRITE-OFF . T) (DUAL-EVAL-MONOTONE-NO-RAM DUAL-EVAL-MONOTONE-NO-RAM-OFF . T) (*1*GOOD-S-ALIST G*1*GOOD-S-ALIST-OFF . T) (GOOD-S-ALIST GOOD-S-ALIST-OFF . T) (GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST-PAIRLIST-OFF . T) (GOOD-S-VALUE GOOD-S-VALUE-OFF . T) (DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-OFF . T) (GOOD-S-COLLECT-VALUE GOOD-S-COLLECT-VALUE-OFF . T) (F-BUF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S-OFF . T) (F-IF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S-OFF . T) (GOOD-S-0 GOOD-S-0-OFF . T) (AO2-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S-OFF . T) (AO4-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S-OFF . T) (AO6-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S-OFF . T) (AO7-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S-OFF . T) (B-AND-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S-OFF . T) (B-AND3-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S-OFF . T) (B-AND4-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S-OFF . T) (B-EQUV-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S-OFF . T) (B-EQUV3-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S-OFF . T) (B-IF-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S-OFF . T) (B-NAND-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S-OFF . T) (B-NAND3-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S-OFF . T) (B-NAND4-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S-OFF . T) (B-NAND5-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S-OFF . T) (B-NAND6-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S-OFF . T) (B-NAND8-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S-OFF . T) (B-NBUF-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S-OFF . T) (B-NOR-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S-OFF . T) (B-NOR3-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S-OFF . T) (B-NOR4-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S-OFF . T) (B-NOR5-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S-OFF . T) (B-NOR6-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S-OFF . T) (B-NOR8-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S-OFF . T) (B-NOT-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S-OFF . T) (B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S-OFF . T) (B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S-OFF . T) (B-OR-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S-OFF . T) (B-OR3-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S-OFF . T) (B-OR4-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S-OFF . T) (B-XOR-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S-OFF . T) (B-XOR3-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S-OFF . T) (DEL2-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S-OFF . T) (DEL4-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S-OFF . T) (DEL10-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S-OFF . T) (PROCMON-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S-OFF . T) (FD1-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S-OFF . T) (FD1S-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S-OFF . T) (FD1SP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S-OFF . T) (FD1SLP-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S-OFF . T) (ID-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S-OFF . T) (RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF . T) (T-BUF-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S-OFF . T) (T-WIRE-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S-OFF . T) (PULLUP-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S-OFF . T) (TTL-BIDIRECT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S-OFF . T) (TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF . T) (TTL-INPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S-OFF . T) (TTL-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S-OFF . T) (TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF . T) (TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF . T) (TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF . T) (TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF . T) (VDD-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S-OFF . T) (VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF . T) (VSS-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S-OFF . T) (GOOD-S-CONSTANT-RAM GOOD-S-CONSTANT-RAM-OFF . T) (GOOD-S-WRITE-MEM-1 GOOD-S-WRITE-MEM-1-OFF . T) (GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-OFF . T) (DP-RAM-16X32-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S-OFF . T) (PRIMP-PRESERVES-GOOD-S PRIMP-PRESERVES-GOOD-S-OFF . T) (GOOD-S-PRESERVED GOOD-S-PRESERVED-OFF . T) (*1*V-APPROX-LIST G*1*V-APPROX-LIST-OFF . T) (V-APPROX-LIST V-APPROX-LIST-OFF . T) (*1*V-S-APPROX-LIST G*1*V-S-APPROX-LIST-OFF . T) (V-S-APPROX-LIST V-S-APPROX-LIST-OFF . T) (*1*NAT-LST-LST-INDUCTION G*1*NAT-LST-LST-INDUCTION-OFF . T) (NAT-LST-LST-INDUCTION NAT-LST-LST-INDUCTION-OFF . T) (V-APPROX-CAR-NTH V-APPROX-CAR-NTH-OFF . T) (S-APPROX-CADR-NTH S-APPROX-CADR-NTH-OFF . T) (*1*SIMULATE-MONOTONE-INDUCTION G*1*SIMULATE-MONOTONE-INDUCTION-OFF . T) (SIMULATE-MONOTONE-INDUCTION SIMULATE-MONOTONE-INDUCTION-OFF . T) (SIMULATE-MONOTONE SIMULATE-MONOTONE-OFF . T) (V-APPROX-LIST-X-X V-APPROX-LIST-X-X-OFF . T) (*1*DOUBLET-P G*1*DOUBLET-P-OFF . T) (*1*DOUBLET-N-SIMULATE-INDUCTION G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF . T) (DOUBLET-N-SIMULATE-INDUCTION DOUBLET-N-SIMULATE-INDUCTION-OFF . T) (DOUBLET-N-SIMULATE DOUBLET-N-SIMULATE-OFF . T) (DOUBLET-P-EQUAL-APPROX DOUBLET-P-EQUAL-APPROX-OFF . T) (LENGTH-SIMULATE LENGTH-SIMULATE-OFF . T) (XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF . T) (XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-OFF . T) (*1*COMPILE-UNCOMPILED-DEFNS G*1*COMPILE-UNCOMPILED-DEFNS-OFF . T) (COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-OFF . T) (*1*UNKNOWN-REGFILE G*1*UNKNOWN-REGFILE-OFF . T) (UNKNOWN-REGFILE UNKNOWN-REGFILE-OFF . T) (*1*UNKNOWN-MACHINE-STATE G*1*UNKNOWN-MACHINE-STATE-OFF . T) (UNKNOWN-MACHINE-STATE UNKNOWN-MACHINE-STATE-OFF . T) (*1*UNKNOWN-MEMORY-STATE G*1*UNKNOWN-MEMORY-STATE-OFF . T) (UNKNOWN-MEMORY-STATE UNKNOWN-MEMORY-STATE-OFF . T) (*1*UNKNOWN-STATE G*1*UNKNOWN-STATE-OFF . T) (UNKNOWN-STATE UNKNOWN-STATE-OFF . T) (CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF . T) (FM9001-STATE-STRUCTURE-UNKNOWN-STATE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF . T) (*1*RESET-VECTOR G*1*RESET-VECTOR-OFF . T) (RESET-VECTOR RESET-VECTOR-OFF . T) (*1*RUN-VECTOR G*1*RUN-VECTOR-OFF . T) (RUN-VECTOR RUN-VECTOR-OFF . T) (*1*RESET-SEQUENCE G*1*RESET-SEQUENCE-OFF . T) (RESET-SEQUENCE RESET-SEQUENCE-OFF . T) (CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF . T) (*1*INITIALIZED-REGFILE G*1*INITIALIZED-REGFILE-OFF . T) (INITIALIZED-REGFILE INITIALIZED-REGFILE-OFF . T) (*1*INITIALIZED-MACHINE-STATE G*1*INITIALIZED-MACHINE-STATE-OFF . T) (INITIALIZED-MACHINE-STATE INITIALIZED-MACHINE-STATE-OFF . T) (*1*INITIALIZED-MEMORY-STATE G*1*INITIALIZED-MEMORY-STATE-OFF . T) (INITIALIZED-MEMORY-STATE INITIALIZED-MEMORY-STATE-OFF . T) (*1*FINAL-STATE G*1*FINAL-STATE-OFF . T) (FINAL-STATE FINAL-STATE-OFF . T) (RESET-WORKS RESET-WORKS-OFF . T) (UNKNOWN-STATE-OKP UNKNOWN-STATE-OKP-OFF . T) (FINAL-STATE-OKP FINAL-STATE-OKP-OFF . T) (INSTANCE-THEOREM INSTANCE-THEOREM-OFF . T) (FM9001-STATEP-MAP-UP-FINAL-STATE FM9001-STATEP-MAP-UP-FINAL-STATE-OFF . T) (*1*RESET-VECTOR-CHIP G*1*RESET-VECTOR-CHIP-OFF . T) (RESET-VECTOR-CHIP RESET-VECTOR-CHIP-OFF . T) (*1*RUN-VECTOR-CHIP-1 G*1*RUN-VECTOR-CHIP-1-OFF . T) (RUN-VECTOR-CHIP-1 RUN-VECTOR-CHIP-1-OFF . T) (*1*RUN-VECTOR-CHIP-2 G*1*RUN-VECTOR-CHIP-2-OFF . T) (RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-2-OFF . T) (*1*RESET-SEQUENCE-CHIP-1 G*1*RESET-SEQUENCE-CHIP-1-OFF . T) (RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1-OFF . T) (*1*RESET-SEQUENCE-CHIP-2 G*1*RESET-SEQUENCE-CHIP-2-OFF . T) (RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-2-OFF . T) (RESET-SEQUENCE-CHIP-1-VS-2 RESET-SEQUENCE-CHIP-1-VS-2-OFF . T) (SIMULATE-RESET-CHIP-FINAL-STATE SIMULATE-RESET-CHIP-FINAL-STATE-OFF . T) (XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF . T) (FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF . T) (*1*V-FOURP G*1*V-FOURP-OFF . T) (V-FOURP V-FOURP-OFF . T) (*1*ALL-XS G*1*ALL-XS-OFF . T) (ALL-XS ALL-XS-OFF . T) (ALL-XS-APPROXIMATES ALL-XS-APPROXIMATES-OFF . T) (ALL-XS-MAKE-LIST ALL-XS-MAKE-LIST-OFF . T) (*1*MEMORY-V-FOURP G*1*MEMORY-V-FOURP-OFF . T) (MEMORY-V-FOURP MEMORY-V-FOURP-OFF . T) (*1*NEW-MACHINE-STATE-INVARIANT G*1*NEW-MACHINE-STATE-INVARIANT-OFF . T) (NEW-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-OFF . T) (S-APPROX-MAKE-LIST S-APPROX-MAKE-LIST-OFF . T) (V-FOURP-IMPLIES-PROPERP V-FOURP-IMPLIES-PROPERP-OFF . T) (LISTP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP-OFF . T) (RAMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP-OFF . T) (ROMP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP-OFF . T) (STUBP-IMPLIES-NOT-FOURP STUBP-IMPLIES-NOT-FOURP-OFF . T) (B-APPROX-X B-APPROX-X-OFF . T) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF . T) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF . T) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF . T) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF . T) (GOOD-S-OPENER GOOD-S-OPENER-OFF . T) (MEMORY-V-FOURP-IMPLIES-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF . T) (V-FOURP-IS-GOOD-S V-FOURP-IS-GOOD-S-OFF . T) (NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF . T) (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF . T) (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF . T) (NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF . T) (MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF . T) (NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF . T) (FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF . T) (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF . T) (CADR-MAP-UP CADR-MAP-UP-OFF . T) (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF . T) (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF . T) (LENGTH-RESET-SEQUENCE-CHIP-1 LENGTH-RESET-SEQUENCE-CHIP-1-OFF . T) (RESET-CHIP RESET-CHIP-OFF . T) (RESET-CHIP-FROM-ANY-STATE RESET-CHIP-FROM-ANY-STATE-OFF . T) (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF . T) (CHIP-WELL-FORMED CHIP-WELL-FORMED-OFF . T) (CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF . T) (CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-SIMPLE-OFF . T) (COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON1) (B-APPROX B-APPROX-OFF1 . T) (B-KNOWNP B-KNOWNP-OFF1 . T) (MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-OFF . T) (B-APPROX B-APPROX-ON) (B-KNOWNP B-KNOWNP-ON) (FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF . T) (COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON) (DOUBLET-P DOUBLET-P-OFF . T) (OPEN-NTH OPEN-NTH-ON) (V-APPROX-X-X V-APPROX-X-X-ON) (DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-OFF . T) (DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-OFF . T) (DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-OFF . T) (DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF . T) (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF . T) (DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF . T) (MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-OFF . T) (V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-OFF . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF . T) (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF . T) (MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-OFF . T) (V-APPROX-SUBRANGE V-APPROX-SUBRANGE-OFF . T) (V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-OFF . T) (S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF . T) (S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-OFF . T) (S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-OFF . T) (S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-OFF . T) (V-APPROX-LENGTH V-APPROX-LENGTH-OFF . T) (WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-OFF . T) (WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-OFF . T) (WRITE-MEM1-OPENER WRITE-MEM1-OPENER-OFF . T) (V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF . T) (MEM-WIDTH MEM-WIDTH-ON) (*1*MEM-WIDTH G*1*MEM-WIDTH-ON) (S-APPROX S-APPROX-ON) (S-APPROX-OPENER S-APPROX-OPENER-OFF . T) (S-KNOWNP S-KNOWNP-ON) (V-APPROX V-APPROX-ON) (FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON) (BVP BVP-ON) (S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON) (V-KNOWNP V-KNOWNP-ON) (DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-OFF . T) (DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF . T) (DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF . T) (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF . T) (EVAL$-APPEND-2 EVAL$-APPEND-2-OFF . T) (EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-OFF . T) (EVAL$-APPEND EVAL$-APPEND-OFF . T) (DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-OFF . T) (S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF . T) (S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF . T) (EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-OFF . T) (EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-OFF . T) (READ-MEM-MONOTONE READ-MEM-MONOTONE-OFF . T) (V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-OFF . T) (V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-OFF . T) (V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF . T) (*1*B-KNOWNP G*1*B-KNOWNP-OFF1 . T) (V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-OFF . T) (V-APPROX-X-X V-APPROX-X-X-OFF . T) (BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-OFF . T) (READ-MEM1-MONOTONE READ-MEM1-MONOTONE-OFF . T) (V-APPROX-BVP V-APPROX-BVP-OFF . T) (BVP-REVERSE BVP-REVERSE-OFF . T) (MEM-WIDTH MEM-WIDTH-OFF . T) (*1*MEM-WIDTH G*1*MEM-WIDTH-OFF . T) (S-APPROX S-APPROX-OFF . T) (S-KNOWNP S-KNOWNP-OFF . T) (V-APPROX V-APPROX-OFF . T) (FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF . T) (BVP BVP-OFF1 . T) (S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF . T) (V-KNOWNP V-KNOWNP-OFF . T) (*1*B-KNOWNP G*1*B-KNOWNP-ON) (B-APPROX B-APPROX-OFF . T) (F-PULLUP F-PULLUP-OFF . T) (FT-WIRE FT-WIRE-OFF . T) (FT-BUF FT-BUF-OFF . T) (F-IF F-IF-OFF . T) (F-EQUV3 F-EQUV3-OFF . T) (F-EQUV F-EQUV-OFF . T) (F-XOR3 F-XOR3-OFF . T) (F-XOR F-XOR-OFF . T) (F-NOR8 F-NOR8-OFF . T) (F-NOR6 F-NOR6-OFF . T) (F-NOR5 F-NOR5-OFF . T) (F-NOR4 F-NOR4-OFF . T) (F-NOR3 F-NOR3-OFF . T) (F-NOR F-NOR-OFF . T) (F-OR4 F-OR4-OFF . T) (F-OR3 F-OR3-OFF . T) (F-OR F-OR-OFF . T) (F-NAND8 F-NAND8-OFF . T) (F-NAND6 F-NAND6-OFF . T) (F-NAND5 F-NAND5-OFF . T) (F-NAND4 F-NAND4-OFF . T) (F-NAND3 F-NAND3-OFF . T) (F-NAND F-NAND-OFF . T) (F-NOT F-NOT-OFF . T) (F-AND4 F-AND4-OFF . T) (F-AND3 F-AND3-OFF . T) (F-AND F-AND-OFF . T) (F-BUF F-BUF-OFF . T) (MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-OFF . T) (MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-OFF . T) (MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-OFF . T) (MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-OFF . T) (MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-OFF . T) (PLUS-ADD1 PLUS-ADD1-ON) (PLUS-ADD1 PLUS-ADD1-OFF . T) (*1*B-KNOWNP G*1*B-KNOWNP-OFF . T) (B-KNOWNP B-KNOWNP-OFF . T) (HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE-STRUCTURE-OFF . T) (MAP-DOWN-RELATION MAP-DOWN-RELATION-OFF . T) (FM9001-STEP* FM9001-STEP*-OFF . T) (MAP-UP MAP-UP-OFF . T) (MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT*-OFF . T) (TOTAL-MICROCYCLES TOTAL-MICROCYCLES-OFF . T) (OPERATING-INPUTS-P OPERATING-INPUTS-P-OFF . T) (READ-FN READ-FN-OFF . T) (RUN-INPUTS-P RUN-INPUTS-P-OFF . T) (CHIP-SYSTEM=FM9001$STEP CHIP-SYSTEM=FM9001$STEP-OFF . T) (MAP-UP-INPUTS MAP-UP-INPUTS-OFF . T) (CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P-OFF . T) (CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-OFF . T) (CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM$STATE-HELP-OFF . T) (CHIP-SYSTEM& CHIP-SYSTEM&-OFF . T) (*1*CHIP-SYSTEM* G*1*CHIP-SYSTEM*-OFF . T) (CHIP-SYSTEM*$DESTRUCTURE CHIP-SYSTEM*$DESTRUCTURE-OFF . T) (CHIP-SYSTEM* CHIP-SYSTEM*-OFF . T) (CHIP& CHIP&-OFF . T) (*1*CHIP* G*1*CHIP*-OFF . T) (CHIP*$DESTRUCTURE CHIP*$DESTRUCTURE-OFF . T) (CHIP* CHIP*-OFF . T) (BV-AS-SUBRANGE BV-AS-SUBRANGE-OFF . T) (REG-40$VALUE-AS-CNTL-STATE REG-40$VALUE-AS-CNTL-STATE-OFF . T) (CHIP-MODULE& CHIP-MODULE&-OFF . T) (*1*CHIP-MODULE* G*1*CHIP-MODULE*-OFF . T) (CHIP-MODULE*$DESTRUCTURE CHIP-MODULE*$DESTRUCTURE-OFF . T) (CHIP-MODULE* CHIP-MODULE*-OFF . T) (RUN-FM9001-STEP-CASE RUN-FM9001-STEP-CASE-OFF . T) (RUN-FM9001 RUN-FM9001-OFF . T) (FM9001-NEXT-STATE FM9001-NEXT-STATE-OFF . T) (PC-REG-INPUT PC-REG-INPUT-OFF . T) (HOLD--INPUT HOLD--INPUT-OFF . T) (RESET--INPUT RESET--INPUT-OFF . T) (CNTL-STATE CNTL-STATE-OFF . T) (PC-REG PC-REG-OFF . T) (HOLD- HOLD--OFF . T) (DTACK- DTACK--OFF . T) (RESET- RESET--OFF . T) (ADDR-OUT ADDR-OUT-OFF . T) (DATA-OUT DATA-OUT-OFF . T) (I-REG I-REG-OFF . T) (B-REG B-REG-OFF . T) (A-REG A-REG-OFF . T) (TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS$VALUE-OFF . T) (TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$VALUE-OFF . T) (TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF . T) (TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS&-OFF . T) (TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF . T) (TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS*-OFF . T) (TTL-BIDIRECT-PADS-BODY TTL-BIDIRECT-PADS-BODY-OFF . T) (TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE-OFF . T) (TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF . T) (TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T) (TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS&-OFF . T) (TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF . T) (TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS*-OFF . T) (TTL-TRI-OUTPUT-PADS-BODY TTL-TRI-OUTPUT-PADS-BODY-OFF . T) (TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE-OFF . T) (TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T) (TTL-OUTPUT-PADS& TTL-OUTPUT-PADS&-OFF . T) (TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS*$DESTRUCTURE-OFF . T) (TTL-OUTPUT-PADS* TTL-OUTPUT-PADS*-OFF . T) (TTL-OUTPUT-PADS-BODY TTL-OUTPUT-PADS-BODY-OFF . T) (TTL-INPUT-PADS$VALUE TTL-INPUT-PADS$VALUE-OFF . T) (TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE-OFF . T) (TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T) (TTL-INPUT-PADS& TTL-INPUT-PADS&-OFF . T) (TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS*$DESTRUCTURE-OFF . T) (TTL-INPUT-PADS* TTL-INPUT-PADS*-OFF . T) (TTL-INPUT-PADS-BODY TTL-INPUT-PADS-BODY-OFF . T) (EXTEND-IMMEDIATE$VALUE EXTEND-IMMEDIATE$VALUE-OFF . T) (F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE-OFF . T) (EXTEND-IMMEDIATE& EXTEND-IMMEDIATE&-OFF . T) (*1*EXTEND-IMMEDIATE* G*1*EXTEND-IMMEDIATE*-OFF . T) (EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE*$DESTRUCTURE-OFF . T) (EXTEND-IMMEDIATE* EXTEND-IMMEDIATE*-OFF . T) (FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-OFF . T) (FLAGS$PARTIAL-STATE-HELP FLAGS$PARTIAL-STATE-HELP-OFF . T) (FLAGS$STATE FLAGS$STATE-OFF . T) (FLAGS$STATE-HELP FLAGS$STATE-HELP-OFF . T) (F$UPDATE-FLAGS F$UPDATE-FLAGS-OFF . T) (FLAGS$VALUE FLAGS$VALUE-OFF . T) (FLAGS& FLAGS&-OFF . T) (*1*FLAGS* G*1*FLAGS*-OFF . T) (FLAGS*$DESTRUCTURE FLAGS*$DESTRUCTURE-OFF . T) (FLAGS* FLAGS*-OFF . T) (REGFILE$STATE REGFILE$STATE-OFF . T) (F$WRITE-REGS F$WRITE-REGS-OFF . T) (REGFILE$VALUE REGFILE$VALUE-OFF . T) (F$READ-REGS F$READ-REGS-OFF . T) (REGFILE& REGFILE&-OFF . T) (*1*REGFILE* G*1*REGFILE*-OFF . T) (REGFILE*$DESTRUCTURE REGFILE*$DESTRUCTURE-OFF . T) (REGFILE* REGFILE*-OFF . T) (WRITE-REGS WRITE-REGS-OFF . T) (READ-REGS READ-REGS-OFF . T) (NEXT-CNTL-STATE$VALUE NEXT-CNTL-STATE$VALUE-OFF . T) (NEXT-CNTL-STATE& NEXT-CNTL-STATE&-OFF . T) (V-OR-CROCK-FOR-F$NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF . T) (F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE-OFF . T) (NEXT-CNTL-STATE NEXT-CNTL-STATE-OFF . T) (CV$VALUE CV$VALUE-OFF . T) (CV& CV&-OFF . T) (MAKE-LIST-CROCK-FOR-F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV-OFF . T) (F$CV F$CV-OFF . T) (CV CV-OFF . T) (NEXT-STATE$VALUE NEXT-STATE$VALUE-OFF . T) (NEXT-STATE& NEXT-STATE&-OFF . T) (F$NEXT-STATE F$NEXT-STATE-OFF . T) (CONTROL-LET$VALUE CONTROL-LET$VALUE-OFF . T) (CONTROL-LET& CONTROL-LET&-OFF . T) (F$CONTROL-LET F$CONTROL-LET-OFF . T) (BVP-CV-VECTORS BVP-CV-VECTORS-OFF . T) (CV_V11111$DESTRUCTURE CV_V11111$DESTRUCTURE-OFF . T) (CV_V11111 CV_V11111-OFF . T) (CV_RESET2$DESTRUCTURE CV_RESET2$DESTRUCTURE-OFF . T) (CV_RESET2 CV_RESET2-OFF . T) (CV_RESET1$DESTRUCTURE CV_RESET1$DESTRUCTURE-OFF . T) (CV_RESET1 CV_RESET1-OFF . T) (CV_RESET0$DESTRUCTURE CV_RESET0$DESTRUCTURE-OFF . T) (CV_RESET0 CV_RESET0-OFF . T) (CV_V11011$DESTRUCTURE CV_V11011$DESTRUCTURE-OFF . T) (CV_V11011 CV_V11011-OFF . T) (CV_V11010$DESTRUCTURE CV_V11010$DESTRUCTURE-OFF . T) (CV_V11010 CV_V11010-OFF . T) (CV_HOLD1$DESTRUCTURE CV_HOLD1$DESTRUCTURE-OFF . T) (CV_HOLD1 CV_HOLD1-OFF . T) (CV_HOLD0$DESTRUCTURE CV_HOLD0$DESTRUCTURE-OFF . T) (CV_HOLD0 CV_HOLD0-OFF . T) (CV_SEFB1$DESTRUCTURE CV_SEFB1$DESTRUCTURE-OFF . T) (CV_SEFB1 CV_SEFB1-OFF . T) (CV_SEFB0$DESTRUCTURE CV_SEFB0$DESTRUCTURE-OFF . T) (CV_SEFB0 CV_SEFB0-OFF . T) (CV_SEFA1$DESTRUCTURE CV_SEFA1$DESTRUCTURE-OFF . T) (CV_SEFA1 CV_SEFA1-OFF . T) (CV_SEFA0$DESTRUCTURE CV_SEFA0$DESTRUCTURE-OFF . T) (CV_SEFA0 CV_SEFA0-OFF . T) (CV_WRITE3$DESTRUCTURE CV_WRITE3$DESTRUCTURE-OFF . T) (CV_WRITE3 CV_WRITE3-OFF . T) (CV_WRITE2$DESTRUCTURE CV_WRITE2$DESTRUCTURE-OFF . T) (CV_WRITE2 CV_WRITE2-OFF . T) (CV_WRITE1$DESTRUCTURE CV_WRITE1$DESTRUCTURE-OFF . T) (CV_WRITE1 CV_WRITE1-OFF . T) (CV_WRITE0$DESTRUCTURE CV_WRITE0$DESTRUCTURE-OFF . T) (CV_WRITE0 CV_WRITE0-OFF . T) (CV_READB3$DESTRUCTURE CV_READB3$DESTRUCTURE-OFF . T) (CV_READB3 CV_READB3-OFF . T) (CV_READB2$DESTRUCTURE CV_READB2$DESTRUCTURE-OFF . T) (CV_READB2 CV_READB2-OFF . T) (CV_READB1$DESTRUCTURE CV_READB1$DESTRUCTURE-OFF . T) (CV_READB1 CV_READB1-OFF . T) (CV_READB0$DESTRUCTURE CV_READB0$DESTRUCTURE-OFF . T) (CV_READB0 CV_READB0-OFF . T) (CV_READA3$DESTRUCTURE CV_READA3$DESTRUCTURE-OFF . T) (CV_READA3 CV_READA3-OFF . T) (CV_READA2$DESTRUCTURE CV_READA2$DESTRUCTURE-OFF . T) (CV_READA2 CV_READA2-OFF . T) (CV_READA1$DESTRUCTURE CV_READA1$DESTRUCTURE-OFF . T) (CV_READA1 CV_READA1-OFF . T) (CV_READA0$DESTRUCTURE CV_READA0$DESTRUCTURE-OFF . T) (CV_READA0 CV_READA0-OFF . T) (CV_UPDATE$DESTRUCTURE CV_UPDATE$DESTRUCTURE-OFF . T) (CV_UPDATE CV_UPDATE-OFF . T) (CV_REGB$DESTRUCTURE CV_REGB$DESTRUCTURE-OFF . T) (CV_REGB CV_REGB-OFF . T) (CV_REGA$DESTRUCTURE CV_REGA$DESTRUCTURE-OFF . T) (CV_REGA CV_REGA-OFF . T) (CV_DECODE$DESTRUCTURE CV_DECODE$DESTRUCTURE-OFF . T) (CV_DECODE CV_DECODE-OFF . T) (CV_FETCH3$DESTRUCTURE CV_FETCH3$DESTRUCTURE-OFF . T) (CV_FETCH3 CV_FETCH3-OFF . T) (CV_FETCH2$DESTRUCTURE CV_FETCH2$DESTRUCTURE-OFF . T) (CV_FETCH2 CV_FETCH2-OFF . T) (CV_FETCH1$DESTRUCTURE CV_FETCH1$DESTRUCTURE-OFF . T) (CV_FETCH1 CV_FETCH1-OFF . T) (CV_FETCH0$DESTRUCTURE CV_FETCH0$DESTRUCTURE-OFF . T) (CV_FETCH0 CV_FETCH0-OFF . T) (ALU-MPG ALU-MPG-OFF . T) (ALU-OP ALU-OP-OFF . T) (REGS-ADDRESS REGS-ADDRESS-OFF . T) (WE-FLAGS WE-FLAGS-OFF . T) (STATE STATE-OFF . T) (ALU-ZERO ALU-ZERO-OFF . T) (ALU-C ALU-C-OFF . T) (SELECT-IMMEDIATE SELECT-IMMEDIATE-OFF . T) (DEC-ADDR-OUT DEC-ADDR-OUT-OFF . T) (DATA-IN-SELECT DATA-IN-SELECT-OFF . T) (WE-PC-REG WE-PC-REG-OFF . T) (WE-HOLD- WE-HOLD--OFF . T) (WE-ADDR-OUT WE-ADDR-OUT-OFF . T) (WE-DATA-OUT WE-DATA-OUT-OFF . T) (WE-I-REG WE-I-REG-OFF . T) (WE-B-REG WE-B-REG-OFF . T) (WE-A-REG WE-A-REG-OFF . T) (WE-REGS WE-REGS-OFF . T) (HDACK- HDACK--OFF . T) (STROBE- STROBE--OFF . T) (RW- RW--OFF . T) (BVP-LENGTH-STATE-VECTORS BVP-LENGTH-STATE-VECTORS-OFF . T) (*1*N_V11111 G*1*N_V11111-OFF . T) (N_V11111 N_V11111-OFF . T) (*1*V_V11111 G*1*V_V11111-OFF . T) (V_V11111 V_V11111-OFF . T) (*1*N_RESET2 G*1*N_RESET2-OFF . T) (N_RESET2 N_RESET2-OFF . T) (*1*V_RESET2 G*1*V_RESET2-OFF . T) (V_RESET2 V_RESET2-OFF . T) (*1*N_RESET1 G*1*N_RESET1-OFF . T) (N_RESET1 N_RESET1-OFF . T) (*1*V_RESET1 G*1*V_RESET1-OFF . T) (V_RESET1 V_RESET1-OFF . T) (*1*N_RESET0 G*1*N_RESET0-OFF . T) (N_RESET0 N_RESET0-OFF . T) (*1*V_RESET0 G*1*V_RESET0-OFF . T) (V_RESET0 V_RESET0-OFF . T) (*1*N_V11011 G*1*N_V11011-OFF . T) (N_V11011 N_V11011-OFF . T) (*1*V_V11011 G*1*V_V11011-OFF . T) (V_V11011 V_V11011-OFF . T) (*1*N_V11010 G*1*N_V11010-OFF . T) (N_V11010 N_V11010-OFF . T) (*1*V_V11010 G*1*V_V11010-OFF . T) (V_V11010 V_V11010-OFF . T) (*1*N_HOLD1 G*1*N_HOLD1-OFF . T) (N_HOLD1 N_HOLD1-OFF . T) (*1*V_HOLD1 G*1*V_HOLD1-OFF . T) (V_HOLD1 V_HOLD1-OFF . T) (*1*N_HOLD0 G*1*N_HOLD0-OFF . T) (N_HOLD0 N_HOLD0-OFF . T) (*1*V_HOLD0 G*1*V_HOLD0-OFF . T) (V_HOLD0 V_HOLD0-OFF . T) (*1*N_SEFB1 G*1*N_SEFB1-OFF . T) (N_SEFB1 N_SEFB1-OFF . T) (*1*V_SEFB1 G*1*V_SEFB1-OFF . T) (V_SEFB1 V_SEFB1-OFF . T) (*1*N_SEFB0 G*1*N_SEFB0-OFF . T) (N_SEFB0 N_SEFB0-OFF . T) (*1*V_SEFB0 G*1*V_SEFB0-OFF . T) (V_SEFB0 V_SEFB0-OFF . T) (*1*N_SEFA1 G*1*N_SEFA1-OFF . T) (N_SEFA1 N_SEFA1-OFF . T) (*1*V_SEFA1 G*1*V_SEFA1-OFF . T) (V_SEFA1 V_SEFA1-OFF . T) (*1*N_SEFA0 G*1*N_SEFA0-OFF . T) (N_SEFA0 N_SEFA0-OFF . T) (*1*V_SEFA0 G*1*V_SEFA0-OFF . T) (V_SEFA0 V_SEFA0-OFF . T) (*1*N_WRITE3 G*1*N_WRITE3-OFF . T) (N_WRITE3 N_WRITE3-OFF . T) (*1*V_WRITE3 G*1*V_WRITE3-OFF . T) (V_WRITE3 V_WRITE3-OFF . T) (*1*N_WRITE2 G*1*N_WRITE2-OFF . T) (N_WRITE2 N_WRITE2-OFF . T) (*1*V_WRITE2 G*1*V_WRITE2-OFF . T) (V_WRITE2 V_WRITE2-OFF . T) (*1*N_WRITE1 G*1*N_WRITE1-OFF . T) (N_WRITE1 N_WRITE1-OFF . T) (*1*V_WRITE1 G*1*V_WRITE1-OFF . T) (V_WRITE1 V_WRITE1-OFF . T) (*1*N_WRITE0 G*1*N_WRITE0-OFF . T) (N_WRITE0 N_WRITE0-OFF . T) (*1*V_WRITE0 G*1*V_WRITE0-OFF . T) (V_WRITE0 V_WRITE0-OFF . T) (*1*N_READB3 G*1*N_READB3-OFF . T) (N_READB3 N_READB3-OFF . T) (*1*V_READB3 G*1*V_READB3-OFF . T) (V_READB3 V_READB3-OFF . T) (*1*N_READB2 G*1*N_READB2-OFF . T) (N_READB2 N_READB2-OFF . T) (*1*V_READB2 G*1*V_READB2-OFF . T) (V_READB2 V_READB2-OFF . T) (*1*N_READB1 G*1*N_READB1-OFF . T) (N_READB1 N_READB1-OFF . T) (*1*V_READB1 G*1*V_READB1-OFF . T) (V_READB1 V_READB1-OFF . T) (*1*N_READB0 G*1*N_READB0-OFF . T) (N_READB0 N_READB0-OFF . T) (*1*V_READB0 G*1*V_READB0-OFF . T) (V_READB0 V_READB0-OFF . T) (*1*N_READA3 G*1*N_READA3-OFF . T) (N_READA3 N_READA3-OFF . T) (*1*V_READA3 G*1*V_READA3-OFF . T) (V_READA3 V_READA3-OFF . T) (*1*N_READA2 G*1*N_READA2-OFF . T) (N_READA2 N_READA2-OFF . T) (*1*V_READA2 G*1*V_READA2-OFF . T) (V_READA2 V_READA2-OFF . T) (*1*N_READA1 G*1*N_READA1-OFF . T) (N_READA1 N_READA1-OFF . T) (*1*V_READA1 G*1*V_READA1-OFF . T) (V_READA1 V_READA1-OFF . T) (*1*N_READA0 G*1*N_READA0-OFF . T) (N_READA0 N_READA0-OFF . T) (*1*V_READA0 G*1*V_READA0-OFF . T) (V_READA0 V_READA0-OFF . T) (*1*N_UPDATE G*1*N_UPDATE-OFF . T) (N_UPDATE N_UPDATE-OFF . T) (*1*V_UPDATE G*1*V_UPDATE-OFF . T) (V_UPDATE V_UPDATE-OFF . T) (*1*N_REGB G*1*N_REGB-OFF . T) (N_REGB N_REGB-OFF . T) (*1*V_REGB G*1*V_REGB-OFF . T) (V_REGB V_REGB-OFF . T) (*1*N_REGA G*1*N_REGA-OFF . T) (N_REGA N_REGA-OFF . T) (*1*V_REGA G*1*V_REGA-OFF . T) (V_REGA V_REGA-OFF . T) (*1*N_DECODE G*1*N_DECODE-OFF . T) (N_DECODE N_DECODE-OFF . T) (*1*V_DECODE G*1*V_DECODE-OFF . T) (V_DECODE V_DECODE-OFF . T) (*1*N_FETCH3 G*1*N_FETCH3-OFF . T) (N_FETCH3 N_FETCH3-OFF . T) (*1*V_FETCH3 G*1*V_FETCH3-OFF . T) (V_FETCH3 V_FETCH3-OFF . T) (*1*N_FETCH2 G*1*N_FETCH2-OFF . T) (N_FETCH2 N_FETCH2-OFF . T) (*1*V_FETCH2 G*1*V_FETCH2-OFF . T) (V_FETCH2 V_FETCH2-OFF . T) (*1*N_FETCH1 G*1*N_FETCH1-OFF . T) (N_FETCH1 N_FETCH1-OFF . T) (*1*V_FETCH1 G*1*V_FETCH1-OFF . T) (V_FETCH1 V_FETCH1-OFF . T) (*1*N_FETCH0 G*1*N_FETCH0-OFF . T) (N_FETCH0 N_FETCH0-OFF . T) (*1*V_FETCH0 G*1*V_FETCH0-OFF . T) (V_FETCH0 V_FETCH0-OFF . T) (B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF . T) (F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS-OFF . T) (B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF . T) (F$SET-SOME-FLAGS F$SET-SOME-FLAGS-OFF . T) (SET-SOME-FLAGS SET-SOME-FLAGS-OFF . T) (ENCODE-32$VALUE-ON-A-VECTOR ENCODE-32$VALUE-ON-A-VECTOR-OFF . T) (ENCODE-32$VALUE ENCODE-32$VALUE-OFF . T) (ENCODE-32& ENCODE-32&-OFF . T) (F$ENCODE-32 F$ENCODE-32-OFF . T) (ENCODE-32 ENCODE-32-OFF . T) (DECODE-5$VALUE DECODE-5$VALUE-OFF . T) (DECODE-5& DECODE-5&-OFF . T) (DECODE-5 DECODE-5-OFF . T) (F$DECODE-5 F$DECODE-5-OFF . T) (FANOUT-32$VALUE FANOUT-32$VALUE-OFF . T) (FANOUT-32& FANOUT-32&-OFF . T) (FANOUT-5$VALUE FANOUT-5$VALUE-OFF . T) (FANOUT-5& FANOUT-5&-OFF . T) (FANOUT-4$VALUE FANOUT-4$VALUE-OFF . T) (FANOUT-4& FANOUT-4&-OFF . T) (V-IF-F-4$RESET-VALUE V-IF-F-4$RESET-VALUE-OFF . T) (F$V-IF-F-4 F$V-IF-F-4-OFF . T) (V-IF-F-4& V-IF-F-4&-OFF . T) (SELECT-OP-CODE$VALUE SELECT-OP-CODE$VALUE-OFF . T) (SELECT-OP-CODE& SELECT-OP-CODE&-OFF . T) (F$SELECT-OP-CODE F$SELECT-OP-CODE-OFF . T) (DECODE-REG-MODE$VALUE DECODE-REG-MODE$VALUE-OFF . T) (DECODE-REG-MODE& DECODE-REG-MODE&-OFF . T) (F$DECODE-REG-MODE F$DECODE-REG-MODE-OFF . T) (UNARY-OP-CODE-P$VALUE UNARY-OP-CODE-P$VALUE-OFF . T) (UNARY-OP-CODE-P& UNARY-OP-CODE-P&-OFF . T) (F$UNARY-OP-CODE-P F$UNARY-OP-CODE-P-OFF . T) (B-STORE-RESULTP& B-STORE-RESULTP&-OFF . T) (F$B-STORE-RESULTP F$B-STORE-RESULTP-OFF . T) (B-STORE-RESULTP B-STORE-RESULTP-OFF . T) (STORE-RESULTP-MUX$VALUE STORE-RESULTP-MUX$VALUE-OFF . T) (STORE-RESULTP-MUX& STORE-RESULTP-MUX&-OFF . T) (F$STORE-RESULTP-MUX F$STORE-RESULTP-MUX-OFF . T) (FM9001-INTR FM9001-INTR-OFF . T) (FM9001-INTERPRETER FM9001-INTERPRETER-OFF . T) (FM9001 FM9001-OFF . T) (FM9001-STEP FM9001-STEP-OFF . T) (FLAGS FLAGS-OFF . T) (REGS REGS-OFF . T) (UPDATE-FLAGS UPDATE-FLAGS-OFF . T) (STORE-RESULTP STORE-RESULTP-OFF . T) (POST-INC-P POST-INC-P-OFF . T) (PRE-DEC-P PRE-DEC-P-OFF . T) (REG-INDIRECT-P REG-INDIRECT-P-OFF . T) (REG-DIRECT-P REG-DIRECT-P-OFF . T) (C-FLAG C-FLAG-OFF . T) (V-FLAG V-FLAG-OFF . T) (N-FLAG N-FLAG-OFF . T) (Z-FLAG Z-FLAG-OFF . T) (C-SET C-SET-OFF . T) (V-SET V-SET-OFF . T) (N-SET N-SET-OFF . T) (Z-SET Z-SET-OFF . T) (OP-CODE OP-CODE-OFF . T) (STORE-CC STORE-CC-OFF . T) (SET-FLAGS SET-FLAGS-OFF . T) (MODE-B MODE-B-OFF . T) (MODE-A MODE-A-OFF . T) (RN-B RN-B-OFF . T) (RN-A RN-A-OFF . T) (A-IMMEDIATE A-IMMEDIATE-OFF . T) (A-IMMEDIATE-P A-IMMEDIATE-P-OFF . T) (CORE-ALU$VALUE CORE-ALU$VALUE-OFF . T) (CORE-ALU& CORE-ALU&-OFF . T) (CORE-ALU*$DESTRUCTURE CORE-ALU*$DESTRUCTURE-OFF . T) (CORE-ALU* CORE-ALU*-OFF . T) (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF . T) (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF . T) (CORE-ALU CORE-ALU-OFF . T) (F$CORE-ALU F$CORE-ALU-OFF . T) (TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE-ZERO-OFF . T) (TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF$VALUE-OFF . T) (TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF&-OFF . T) (TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF . T) (TV-SHIFT-OR-BUF* TV-SHIFT-OR-BUF*-OFF . T) (SHIFT-OR-BUF SHIFT-OR-BUF-OFF . T) (F$SHIFT-OR-BUF F$SHIFT-OR-BUF-OFF . T) (SHIFT-OR-BUF-CNTL$VALUE SHIFT-OR-BUF-CNTL$VALUE-OFF . T) (SHIFT-OR-BUF-CNTL& SHIFT-OR-BUF-CNTL&-OFF . T) (F$SHIFT-OR-BUF-CNTL F$SHIFT-OR-BUF-CNTL-OFF . T) (OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE-ZERO-OFF . T) (OVERFLOW-HELP$VALUE OVERFLOW-HELP$VALUE-OFF . T) (OVERFLOW-HELP& OVERFLOW-HELP&-OFF . T) (F$OVERFLOW-HELP F$OVERFLOW-HELP-OFF . T) (CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE-ZERO-OFF . T) (CARRY-OUT-HELP$VALUE CARRY-OUT-HELP$VALUE-OFF . T) (CARRY-OUT-HELP& CARRY-OUT-HELP&-OFF . T) (F$CARRY-OUT-HELP F$CARRY-OUT-HELP-OFF . T) (TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-OFF . T) (TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP$VALUE-BASE-CASE-OFF . T) (TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-LEMMA-CROCK-OFF . T) (TV-ALU-HELP& TV-ALU-HELP&-OFF . T) (TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP*$DESTRUCTURE-OFF . T) (TV-ALU-HELP* TV-ALU-HELP*-OFF . T) (F$TV-ALU-HELP F$TV-ALU-HELP-OFF . T) (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-NEG-WORKS-OFF . T) (TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-B-WORKS-OFF . T) (TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-DEC-A-WORKS-OFF . T) (TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-B-WORKS-OFF . T) (TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-INC-A-WORKS-OFF . T) (TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF . T) (TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-TV-ADDER-WORKS-OFF . T) (TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-BUF-WORKS-OFF . T) (TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-NOT-WORKS-OFF . T) (TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-XOR-WORKS-OFF . T) (TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-OR-WORKS-OFF . T) (TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-V-AND-WORKS-OFF . T) (TV-ALU-HELP-ZERO TV-ALU-HELP-ZERO-OFF . T) (TV-ALU-HELP TV-ALU-HELP-OFF . T) (ALU-CELL$VALUE-ZERO ALU-CELL$VALUE-ZERO-OFF . T) (ALU-CELL$VALUE ALU-CELL$VALUE-OFF . T) (ALU-CELL& ALU-CELL&-OFF . T) (F$ALU-CELL F$ALU-CELL-OFF . T) (G-CELL$VALUE G-CELL$VALUE-OFF . T) (G-CELL& G-CELL&-OFF . T) (F$G-CELL F$G-CELL-OFF . T) (P-CELL$VALUE P-CELL$VALUE-OFF . T) (P-CELL& P-CELL&-OFF . T) (F$P-CELL F$P-CELL-OFF . T) (CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE-ZERO-OFF . T) (CARRY-IN-HELP$VALUE CARRY-IN-HELP$VALUE-OFF . T) (CARRY-IN-HELP-ZERO CARRY-IN-HELP-ZERO-OFF . T) (CARRY-IN-HELP& CARRY-IN-HELP&-OFF . T) (F$CARRY-IN-HELP F$CARRY-IN-HELP-OFF . T) (CARRY-IN-HELP CARRY-IN-HELP-OFF . T) (MPG$VALUE-ZERO MPG$VALUE-ZERO-OFF . T) (MPG$VALUE MPG$VALUE-OFF . T) (MPG& MPG&-OFF . T) (MPG-ZERO MPG-ZERO-OFF . T) (MPG MPG-OFF . T) (F$MPG F$MPG-OFF . T) (DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE-ZERO-OFF . T) (DECODE-GEN$VALUE DECODE-GEN$VALUE-OFF . T) (DECODE-GEN& DECODE-GEN&-OFF . T) (F$DECODE-GEN F$DECODE-GEN-OFF . T) (DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE-ZERO-OFF . T) (DECODE-PROP$VALUE DECODE-PROP$VALUE-OFF . T) (DECODE-PROP& DECODE-PROP&-OFF . T) (F$DECODE-PROP F$DECODE-PROP-OFF . T) (DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE-ZERO-OFF . T) (DECODE-MODE$VALUE DECODE-MODE$VALUE-OFF . T) (DECODE-MODE& DECODE-MODE&-OFF . T) (F$DECODE-MODE F$DECODE-MODE-OFF . T) (*1*ALU-DEC-OP G*1*ALU-DEC-OP-OFF . T) (ALU-DEC-OP ALU-DEC-OP-OFF . T) (*1*ALU-INC-OP G*1*ALU-INC-OP-OFF . T) (ALU-INC-OP ALU-INC-OP-OFF . T) (UNARY-OP-CODE-P->V-ALU=V-ALU-1 UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF . T) (V-ALU-1 V-ALU-1-OFF . T) (UNARY-OP-CODE-P UNARY-OP-CODE-P-OFF . T) (V-ALU V-ALU-OFF . T) (BV BV-OFF . T) (ZB ZB-OFF . T) (N N-OFF . T) (V V-OFF . T) (C C-OFF . T) (WE-REG$STATE WE-REG$STATE-OFF . T) (WE-REG-BODY$STATE WE-REG-BODY$STATE-OFF . T) (WE-REG$VALUE WE-REG$VALUE-OFF . T) (WE-REG-BODY$VALUE WE-REG-BODY$VALUE-OFF . T) (WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF . T) (WE-REG-BODY$UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY-OFF . T) (WE-REG& WE-REG&-OFF . T) (WE-REG*$DESTRUCTURE WE-REG*$DESTRUCTURE-OFF . T) (WE-REG* WE-REG*-OFF . T) (WE-REG-BODY WE-REG-BODY-OFF . T) (REG$STATE REG$STATE-OFF . T) (REG$VALUE REG$VALUE-OFF . T) (REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY-OFF . T) (REG-BODY$UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY-OFF . T) (REG& REG&-OFF . T) (REG*$DESTRUCTURE REG*$DESTRUCTURE-OFF . T) (REG* REG*-OFF . T) (REG-BODY REG-BODY-OFF . T) (DEC-PASS$VALUE DEC-PASS$VALUE-OFF . T) (F$DEC-PASS F$DEC-PASS-OFF . T) (DEC-PASS& DEC-PASS&-OFF . T) (DEC-PASS*$DESTRUCTURE DEC-PASS*$DESTRUCTURE-OFF . T) (DEC-PASS* DEC-PASS*-OFF . T) (TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG$VALUE-OFF . T) (TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-LEMMA-CROCK-OFF . T) (TV-DEC-PASS-NG& TV-DEC-PASS-NG&-OFF . T) (TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG*$DESTRUCTURE-OFF . T) (TV-DEC-PASS-NG* TV-DEC-PASS-NG*-OFF . T) (TV-DEC-PASS-NG-BODY TV-DEC-PASS-NG-BODY-OFF . T) (DEC-PASS-CELL& DEC-PASS-CELL&-OFF . T) (F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF . T) (F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-OFF . T) (TV-DEC-PASS-NG TV-DEC-PASS-NG-OFF . T) (TV-DEC-PASS TV-DEC-PASS-OFF . T) (F$V-INC4$V F$V-INC4$V-OFF . T) (V-INC4$VALUE V-INC4$VALUE-OFF . T) (V-INC4& V-INC4&-OFF . T) (F$V-INC4 F$V-INC4-OFF . T) (V-EQUAL$VALUE V-EQUAL$VALUE-OFF . T) (F$V-EQUAL F$V-EQUAL-OFF . T) (V-EQUAL& V-EQUAL&-OFF . T) (V-EQUAL*$DESTRUCTURE V-EQUAL*$DESTRUCTURE-OFF . T) (V-EQUAL* V-EQUAL*-OFF . T) (FAST-ZERO& FAST-ZERO&-OFF . T) (FAST-ZERO*$DESTRUCTURE FAST-ZERO*$DESTRUCTURE-OFF . T) (FAST-ZERO* FAST-ZERO*-OFF . T) (F$FAST-ZERO F$FAST-ZERO-OFF . T) (TV-ZEROP$VALUE TV-ZEROP$VALUE-OFF . T) (F$TV-ZEROP F$TV-ZEROP-OFF . T) (TV-ZEROP& TV-ZEROP&-OFF . T) (TV-ZEROP*$DESTRUCTURE TV-ZEROP*$DESTRUCTURE-OFF . T) (TV-ZEROP* TV-ZEROP*-OFF . T) (BTR-OR-NOR BTR-OR-NOR-OFF . T) (T-OR-NOR$VALUE T-OR-NOR$VALUE-OFF . T) (TR-OR-NOR TR-OR-NOR-OFF . T) (T-OR-NOR& T-OR-NOR&-OFF . T) (T-OR-NOR*$DESTRUCTURE T-OR-NOR*$DESTRUCTURE-OFF . T) (T-OR-NOR* T-OR-NOR*-OFF . T) (TV-IF$VALUE TV-IF$VALUE-OFF . T) (TV-IF-LEMMA-CROCK TV-IF-LEMMA-CROCK-OFF . T) (TV-IF& TV-IF&-OFF . T) (TV-IF*$DESTRUCTURE TV-IF*$DESTRUCTURE-OFF . T) (TV-IF* TV-IF*-OFF . T) (TV-ADDER-AS-P-G-SUM TV-ADDER-AS-P-G-SUM-OFF . T) (CDDR-TV-ADDER-AS-SUM CDDR-TV-ADDER-AS-SUM-OFF . T) (CADR-TV-ADDER-AS-G CADR-TV-ADDER-AS-G-OFF . T) (CAR-TV-ADDER-AS-P CAR-TV-ADDER-AS-P-OFF . T) (TV-ADDER TV-ADDER-OFF . T) (V-PROPAGATE-APPEND V-PROPAGATE-APPEND-OFF . T) (T-CARRY$VALUE T-CARRY$VALUE-OFF . T) (T-CARRY& T-CARRY&-OFF . T) (T-CARRY T-CARRY-OFF . T) (F$T-CARRY F$T-CARRY-OFF . T) (V-GENERATE V-GENERATE-OFF . T) (V-PROPAGATE V-PROPAGATE-OFF . T) (V-CARRY V-CARRY-OFF . T) (V-SUM V-SUM-OFF . T) (BV-ADDER$VALUE BV-ADDER$VALUE-OFF . T) (BV-ADDER-BODY$VALUE BV-ADDER-BODY$VALUE-OFF . T) (BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF . T) (BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF . T) (BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER$UNBOUND-IN-BODY-SUM-OFF . T) (BV-ADDER$NETLIST BV-ADDER$NETLIST-OFF . T) (BV-ADDER& BV-ADDER&-OFF . T) (BV-ADDER*$DESTRUCTURE BV-ADDER*$DESTRUCTURE-OFF . T) (BV-ADDER* BV-ADDER*-OFF . T) (BV-ADDER-BODY BV-ADDER-BODY-OFF . T) (M2$STATE M2$STATE-OFF . T) (M2$VALUE M2$VALUE-OFF . T) (M2& M2&-OFF . T) (M1$STATE M1$STATE-OFF . T) (M1$VALUE M1$VALUE-OFF . T) (M1& M1&-OFF . T) (FULL-ADDER& FULL-ADDER&-OFF . T) (HALF-ADDER$VALUE HALF-ADDER$VALUE-OFF . T) (HALF-ADDER& HALF-ADDER&-OFF . T) (COUNT-PRIMITIVES COUNT-PRIMITIVES-OFF . T) (V-WIRE$VALUE V-WIRE$VALUE-OFF . T) (V-WIRE$BODY-VALUE V-WIRE$BODY-VALUE-OFF . T) (V-WIRE$UNBOUND-IN-BODY V-WIRE$UNBOUND-IN-BODY-OFF . T) (V-WIRE& V-WIRE&-OFF . T) (V-WIRE*$DESTRUCTURE V-WIRE*$DESTRUCTURE-OFF . T) (V-WIRE* V-WIRE*-OFF . T) (V-WIRE$BODY V-WIRE$BODY-OFF . T) (V-PULLUP$VALUE V-PULLUP$VALUE-OFF . T) (V-PULLUP$BODY-VALUE V-PULLUP$BODY-VALUE-OFF . T) (V-PULLUP$UNBOUND-IN-BODY V-PULLUP$UNBOUND-IN-BODY-OFF . T) (V-PULLUP& V-PULLUP&-OFF . T) (V-PULLUP*$DESTRUCTURE V-PULLUP*$DESTRUCTURE-OFF . T) (V-PULLUP* V-PULLUP*-OFF . T) (V-PULLUP$BODY V-PULLUP$BODY-OFF . T) (V-XOR$VALUE V-XOR$VALUE-OFF . T) (V-XOR$BODY-VALUE V-XOR$BODY-VALUE-OFF . T) (V-XOR$UNBOUND-IN-BODY V-XOR$UNBOUND-IN-BODY-OFF . T) (V-XOR& V-XOR&-OFF . T) (V-XOR*$DESTRUCTURE V-XOR*$DESTRUCTURE-OFF . T) (V-XOR* V-XOR*-OFF . T) (V-XOR$BODY V-XOR$BODY-OFF . T) (V-OR$VALUE V-OR$VALUE-OFF . T) (V-OR$BODY-VALUE V-OR$BODY-VALUE-OFF . T) (V-OR$UNBOUND-IN-BODY V-OR$UNBOUND-IN-BODY-OFF . T) (V-OR& V-OR&-OFF . T) (V-OR*$DESTRUCTURE V-OR*$DESTRUCTURE-OFF . T) (V-OR* V-OR*-OFF . T) (V-OR$BODY V-OR$BODY-OFF . T) (V-BUF$VALUE V-BUF$VALUE-OFF . T) (V-BUF$BODY-VALUE V-BUF$BODY-VALUE-OFF . T) (V-BUF$UNBOUND-IN-BODY V-BUF$UNBOUND-IN-BODY-OFF . T) (V-BUF& V-BUF&-OFF . T) (V-BUF*$DESTRUCTURE V-BUF*$DESTRUCTURE-OFF . T) (V-BUF* V-BUF*-OFF . T) (V-BUF$BODY V-BUF$BODY-OFF . T) (ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-OFF . T) (UNBOUND-IN-BODY UNBOUND-IN-BODY-OFF . T) (MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-OFF . T) (MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-STATE-1-OFF . T) (MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-OFF . T) (MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32$STRUCTURED-VALUE-1-OFF . T) (LIST-32-NTH-COLLAPSE LIST-32-NTH-COLLAPSE-OFF . T) (MEM-32X32-ARGS-CROCK MEM-32X32-ARGS-CROCK-OFF . T) (DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-STATE-OFF . T) (DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32$STRUCTURED-VALUE-OFF . T) (DP-RAM-16X32-ARGS-CROCK DP-RAM-16X32-ARGS-CROCK-OFF . T) (B-BUF-PWR$VALUE B-BUF-PWR$VALUE-OFF . T) (B-BUF-PWR& B-BUF-PWR&-OFF . T) (B-BUF$VALUE B-BUF$VALUE-OFF . T) (B-BUF& B-BUF&-OFF . T) (MEM-32X32$STATE MEM-32X32$STATE-OFF . T) (FD1SLP$STATE FD1SLP$STATE-OFF . T) (FD1SP$STATE FD1SP$STATE-OFF . T) (FD1S$STATE FD1S$STATE-OFF . T) (FD1$STATE FD1$STATE-OFF . T) (DP-RAM-16X32$STATE DP-RAM-16X32$STATE-OFF . T) (VSS$VALUE VSS$VALUE-OFF . T) (VSS& VSS&-OFF . T) (VDD-PARAMETRIC$VALUE VDD-PARAMETRIC$VALUE-OFF . T) (VDD-PARAMETRIC& VDD-PARAMETRIC&-OFF . T) (VDD$VALUE VDD$VALUE-OFF . T) (VDD& VDD&-OFF . T) (TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST$VALUE-OFF . T) (TTL-TRI-OUTPUT-FAST& TTL-TRI-OUTPUT-FAST&-OFF . T) (TTL-TRI-OUTPUT$VALUE TTL-TRI-OUTPUT$VALUE-OFF . T) (TTL-TRI-OUTPUT& TTL-TRI-OUTPUT&-OFF . T) (TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-FAST$VALUE-OFF . T) (TTL-OUTPUT-FAST& TTL-OUTPUT-FAST&-OFF . T) (TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT-PARAMETRIC$VALUE-OFF . T) (TTL-OUTPUT-PARAMETRIC& TTL-OUTPUT-PARAMETRIC&-OFF . T) (TTL-OUTPUT$VALUE TTL-OUTPUT$VALUE-OFF . T) (TTL-OUTPUT& TTL-OUTPUT&-OFF . T) (TTL-INPUT$VALUE TTL-INPUT$VALUE-OFF . T) (TTL-INPUT& TTL-INPUT&-OFF . T) (TTL-CLK-INPUT$VALUE TTL-CLK-INPUT$VALUE-OFF . T) (TTL-CLK-INPUT& TTL-CLK-INPUT&-OFF . T) (TTL-BIDIRECT$VALUE TTL-BIDIRECT$VALUE-OFF . T) (TTL-BIDIRECT& TTL-BIDIRECT&-OFF . T) (PULLUP$VALUE PULLUP$VALUE-OFF . T) (PULLUP& PULLUP&-OFF . T) (T-WIRE$VALUE T-WIRE$VALUE-OFF . T) (T-WIRE& T-WIRE&-OFF . T) (T-BUF$VALUE T-BUF$VALUE-OFF . T) (T-BUF& T-BUF&-OFF . T) (RAM-ENABLE-CIRCUIT$VALUE RAM-ENABLE-CIRCUIT$VALUE-OFF . T) (RAM-ENABLE-CIRCUIT& RAM-ENABLE-CIRCUIT&-OFF . T) (MEM-32X32$VALUE MEM-32X32$VALUE-OFF . T) (MEM-32X32& MEM-32X32&-OFF . T) (ID$VALUE ID$VALUE-OFF . T) (ID& ID&-OFF . T) (FD1SLP$VALUE FD1SLP$VALUE-OFF . T) (FD1SLP& FD1SLP&-OFF . T) (FD1SP$VALUE FD1SP$VALUE-OFF . T) (FD1SP& FD1SP&-OFF . T) (FD1S$VALUE FD1S$VALUE-OFF . T) (FD1S& FD1S&-OFF . T) (FD1$VALUE FD1$VALUE-OFF . T) (FD1& FD1&-OFF . T) (DP-RAM-16X32$VALUE DP-RAM-16X32$VALUE-OFF . T) (DP-RAM-16X32& DP-RAM-16X32&-OFF . T) (PROCMON$VALUE PROCMON$VALUE-OFF . T) (PROCMON& PROCMON&-OFF . T) (DEL10$VALUE DEL10$VALUE-OFF . T) (DEL10& DEL10&-OFF . T) (DEL4$VALUE DEL4$VALUE-OFF . T) (DEL4& DEL4&-OFF . T) (DEL2$VALUE DEL2$VALUE-OFF . T) (DEL2& DEL2&-OFF . T) (B-XOR3$VALUE B-XOR3$VALUE-OFF . T) (B-XOR3& B-XOR3&-OFF . T) (B-XOR$VALUE B-XOR$VALUE-OFF . T) (B-XOR& B-XOR&-OFF . T) (B-OR4$VALUE B-OR4$VALUE-OFF . T) (B-OR4& B-OR4&-OFF . T) (B-OR3$VALUE B-OR3$VALUE-OFF . T) (B-OR3& B-OR3&-OFF . T) (B-OR$VALUE B-OR$VALUE-OFF . T) (B-OR& B-OR&-OFF . T) (B-NOT-IVAP$VALUE B-NOT-IVAP$VALUE-OFF . T) (B-NOT-IVAP& B-NOT-IVAP&-OFF . T) (B-NOT-B4IP$VALUE B-NOT-B4IP$VALUE-OFF . T) (B-NOT-B4IP& B-NOT-B4IP&-OFF . T) (B-NOT$VALUE B-NOT$VALUE-OFF . T) (B-NOT& B-NOT&-OFF . T) (B-NOR8$VALUE B-NOR8$VALUE-OFF . T) (B-NOR8& B-NOR8&-OFF . T) (B-NOR6$VALUE B-NOR6$VALUE-OFF . T) (B-NOR6& B-NOR6&-OFF . T) (B-NOR5$VALUE B-NOR5$VALUE-OFF . T) (B-NOR5& B-NOR5&-OFF . T) (B-NOR4$VALUE B-NOR4$VALUE-OFF . T) (B-NOR4& B-NOR4&-OFF . T) (B-NOR3$VALUE B-NOR3$VALUE-OFF . T) (B-NOR3& B-NOR3&-OFF . T) (B-NOR$VALUE B-NOR$VALUE-OFF . T) (B-NOR& B-NOR&-OFF . T) (B-NBUF$VALUE B-NBUF$VALUE-OFF . T) (B-NBUF& B-NBUF&-OFF . T) (B-NAND8$VALUE B-NAND8$VALUE-OFF . T) (B-NAND8& B-NAND8&-OFF . T) (B-NAND6$VALUE B-NAND6$VALUE-OFF . T) (B-NAND6& B-NAND6&-OFF . T) (B-NAND5$VALUE B-NAND5$VALUE-OFF . T) (B-NAND5& B-NAND5&-OFF . T) (B-NAND4$VALUE B-NAND4$VALUE-OFF . T) (B-NAND4& B-NAND4&-OFF . T) (B-NAND3$VALUE B-NAND3$VALUE-OFF . T) (B-NAND3& B-NAND3&-OFF . T) (B-NAND$VALUE B-NAND$VALUE-OFF . T) (B-NAND& B-NAND&-OFF . T) (B-IF$VALUE B-IF$VALUE-OFF . T) (B-IF& B-IF&-OFF . T) (B-EQUV3$VALUE B-EQUV3$VALUE-OFF . T) (B-EQUV3& B-EQUV3&-OFF . T) (B-EQUV$VALUE B-EQUV$VALUE-OFF . T) (B-EQUV& B-EQUV&-OFF . T) (B-AND4$VALUE B-AND4$VALUE-OFF . T) (B-AND4& B-AND4&-OFF . T) (B-AND3$VALUE B-AND3$VALUE-OFF . T) (B-AND3& B-AND3&-OFF . T) (B-AND$VALUE B-AND$VALUE-OFF . T) (B-AND& B-AND&-OFF . T) (AO7$VALUE AO7$VALUE-OFF . T) (AO7& AO7&-OFF . T) (AO6$VALUE AO6$VALUE-OFF . T) (AO6& AO6&-OFF . T) (AO4$VALUE AO4$VALUE-OFF . T) (AO4& AO4&-OFF . T) (AO2$VALUE AO2$VALUE-OFF . T) (AO2& AO2&-OFF . T) (NETLIST-LOADINGS-AND-DRIVES NETLIST-LOADINGS-AND-DRIVES-OFF . T) (LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES-OFF . T) (FIX-DEPENDENT-DRS FIX-DEPENDENT-DRS-OFF . T) (STATE-OKP STATE-OKP-OFF . T) (TYPE-COUNT-LESSP3 TYPE-COUNT-LESSP3-OFF . T) (TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP2-OFF . T) (TYPE-COUNT-LESSP1 TYPE-COUNT-LESSP1-OFF . T) (STATE-OKP-0 STATE-OKP-0-OFF . T) (TYPE-COUNT TYPE-COUNT-OFF . T) (NETLIST-STATE-TYPES NETLIST-STATE-TYPES-OFF . T) (STATE-TYPE-REQUIREMENT STATE-TYPE-REQUIREMENT-OFF . T) (ARG-TYPES-OKP ARG-TYPES-OKP-OFF . T) (ARG-TYPES-MATCHP ARG-TYPES-MATCHP-OFF . T) (NETLIST-TYPE-TABLE NETLIST-TYPE-TABLE-OFF . T) (IO-TYPES IO-TYPES-OFF . T) (IO-TYPES-COLLECTOR IO-TYPES-COLLECTOR-OFF . T) (OUTPUT-DEPENDENCIES OUTPUT-DEPENDENCIES-OFF . T) (DEPENDENCY-TABLE DEPENDENCY-TABLE-OFF . T) (OUT-DEPENDS OUT-DEPENDS-OFF . T) (PRIMITIVE-COUNT PRIMITIVE-COUNT-OFF . T) (DELETE-NULL-ENTRIES DELETE-NULL-ENTRIES-OFF . T) (SUBNET SUBNET-OFF . T) (SUBNET0 SUBNET0-OFF . T) (BOUNDP BOUNDP-OFF1 . T) (BOUNDP BOUNDP-ON) (PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-PREDICATE-OFF . T) (PRIMP-DATABASE-ERRORS PRIMP-DATABASE-ERRORS-OFF . T) (PRIMITIVE-OK PRIMITIVE-OK-OFF . T) (PARENT-PROPS-ALIST PARENT-PROPS-ALIST-OFF . T) (OK-OUTPUT-TYPES OK-OUTPUT-TYPES-OFF . T) (OK-INPUT-TYPES OK-INPUT-TYPES-OFF . T) (OK-OUT-DEPENDS OK-OUT-DEPENDS-OFF . T) (OK-STATES OK-STATES-OFF . T) (OK-NAME-LIST OK-NAME-LIST-OFF . T) (PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-ERRORS-OFF . T) (PRIMITIVE-PROP-OK PRIMITIVE-PROP-OK-OFF . T) (PNEW-STATES-OK PNEW-STATES-OK-OFF . T) (PRESULTS-OK PRESULTS-OK-OFF . T) (PRESULTS-ERRORS PRESULTS-ERRORS-OFF . T) (RESULTS-LENGTH RESULTS-LENGTH-OFF . T) (PRESULT-OK PRESULT-OK-OFF . T) (PRESULT-FORM-ERRORS PRESULT-FORM-ERRORS-OFF . T) (UNKNOWN-ARGS UNKNOWN-ARGS-OFF . T) (PSTATE-TYPES-OK PSTATE-TYPES-OK-OFF . T) (PSTATE-TYPES-ERRORS PSTATE-TYPES-ERRORS-OFF . T) (PSTATE-TYPE-OK PSTATE-TYPE-OK-OFF . T) (PSTATE-TYPE-LIST-ERRORS PSTATE-TYPE-LIST-ERRORS-OFF . T) (ONE-PSTATE-TYPE-OK ONE-PSTATE-TYPE-OK-OFF . T) (PADDRESSED-STATE-CALL-OK PADDRESSED-STATE-CALL-OK-OFF . T) (PMEMORY-WORD-CALL-OK PMEMORY-WORD-CALL-OK-OFF . T) (LITERAL-STATE-TYPE-OK LITERAL-STATE-TYPE-OK-OFF . T) (BOOLP-LIST-OK BOOLP-LIST-OK-OFF . T) (ADDRESSED-STATE ADDRESSED-STATE-OFF . T) (PSTATES-OK PSTATES-OK-OFF . T) (POUT-DEPENDS-OK POUT-DEPENDS-OK-OFF . T) (POUT-DEPENDS-ERRORS POUT-DEPENDS-ERRORS-OFF . T) (POUT-DEPENDS-ONE-OK POUT-DEPENDS-ONE-OK-OFF . T) (PLSI-NAME-OK PLSI-NAME-OK-OFF . T) (PLOADINGS-OK PLOADINGS-OK-OFF . T) (PLOADINGS-ERRORS PLOADINGS-ERRORS-OFF . T) (PLOADING-OK PLOADING-OK-OFF . T) (PDRIVES-OK PDRIVES-OK-OFF . T) (PDRIVES-ERRORS PDRIVES-ERRORS-OFF . T) (PDRIVE-OK PDRIVE-OK-OFF . T) (PDELAYS-OK PDELAYS-OK-OFF . T) (PDELAYS-ERRORS PDELAYS-ERRORS-OFF . T) (PDELAY-OK PDELAY-OK-OFF . T) (PHALF-DELAY-OK PHALF-DELAY-OK-OFF . T) (P-T-WIRE-ARGS-OK P-T-WIRE-ARGS-OK-OFF . T) (P-NAME-PROP-VALUE-OK P-NAME-PROP-VALUE-OK-OFF . T) (POUT-TYPES-OK POUT-TYPES-OK-OFF . T) (POUT-TYPE-ERRORS POUT-TYPE-ERRORS-OFF . T) (POUT-TYPE-OK POUT-TYPE-OK-OFF . T) (PIN-TYPES-OK PIN-TYPES-OK-OFF . T) (PIN-TYPE-ERRORS PIN-TYPE-ERRORS-OFF . T) (PIN-TYPE-OK PIN-TYPE-OK-OFF . T) (ALL-OUTPUT-TYPES ALL-OUTPUT-TYPES-OFF . T) (*1*ALL-INPUT-TYPES G*1*ALL-INPUT-TYPES-OFF . T) (ALL-INPUT-TYPES ALL-INPUT-TYPES-OFF . T) (ID-OUT-PROP-SIGNALS ID-OUT-PROP-SIGNALS-OFF . T) (OUT-PROP-SIGNALS OUT-PROP-SIGNALS-OFF . T) (IO-CDR IO-CDR-OFF . T) (IO-CAR IO-CAR-OFF . T) (UCDR UCDR-OFF . T) (UCAR UCAR-OFF . T) (STATE-LABEL STATE-LABEL-OFF . T) (OUTPUT-LABEL OUTPUT-LABEL-OFF . T) (INPUT-LABEL INPUT-LABEL-OFF . T) (IO-LABEL IO-LABEL-OFF . T) (FUNCTION-CALL-OK FUNCTION-CALL-OK-OFF . T) (PNAME-LISTP PNAME-LISTP-OFF . T) (LSI-TOP-LEVEL-PREDICATE LSI-TOP-LEVEL-PREDICATE-OFF . T) (TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE-OFF . T) (*1*PREDICATE-PROPERTIES G*1*PREDICATE-PROPERTIES-OFF . T) (PREDICATE-PROPERTIES PREDICATE-PROPERTIES-OFF . T) (NETLIST-DATABASE NETLIST-DATABASE-OFF . T) (NETLIST-PROPERTIES NETLIST-PROPERTIES-OFF . T) (UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS-OFF . T) (UNBIND-NETLIST-PROPS-0 UNBIND-NETLIST-PROPS-0-OFF . T) (REQUIRED-PROPS REQUIRED-PROPS-OFF . T) (GET-REQUIRED-PROPS GET-REQUIRED-PROPS-OFF . T) (REQUIRED-FOR-PROP REQUIRED-FOR-PROP-OFF . T) (MODULE-DATABASE MODULE-DATABASE-OFF . T) (MODULE-DATA MODULE-DATA-OFF . T) (COLLECT-MODULE-DATA COLLECT-MODULE-DATA-OFF . T) (COLLECT-MODULE-ERRORS COLLECT-MODULE-ERRORS-OFF . T) (MODULE-PROP-ERROR MODULE-PROP-ERROR-OFF . T) (COLLECT-MODULE-PROPS COLLECT-MODULE-PROPS-OFF . T) (COLLECT-MODULE-PROP COLLECT-MODULE-PROP-OFF . T) (OCCURRENCE-DATA OCCURRENCE-DATA-OFF . T) (COMPOSE-OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA-OFF . T) (COMPOSED-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA-OFF . T) (ADD-COMPOSED-DATA ADD-COMPOSED-DATA-OFF . T) (COMPOSED-LOADINGS-DRIVES-DELAYS COMPOSED-LOADINGS-DRIVES-DELAYS-OFF . T) (COMPOSED-IO-TYPES COMPOSED-IO-TYPES-OFF . T) (COLLECT-OCCURRENCE-DATA COLLECT-OCCURRENCE-DATA-OFF . T) (FUNCTION-PROPERTIES FUNCTION-PROPERTIES-OFF . T) (UPDATE-OCC-BINDINGS UPDATE-OCC-BINDINGS-OFF . T) (UPDATE-OPROP-BINDING UPDATE-OPROP-BINDING-OFF . T) (INITIAL-OCC-DATA INITIAL-OCC-DATA-OFF . T) (TRI-STATE-ERRORS TRI-STATE-ERRORS-OFF . T) (COLLECT-TRI-STATE-DATA COLLECT-TRI-STATE-DATA-OFF . T) (COLLECT-SYNONYMS COLLECT-SYNONYMS-OFF . T) (COMPOSE-TRI-STATE-DATA COMPOSE-TRI-STATE-DATA-OFF . T) (T-WIRE-ERROR T-WIRE-ERROR-OFF . T) (IO-RENAME-ERROR IO-RENAME-ERROR-OFF . T) (IO-SIGNAL-RENAMES IO-SIGNAL-RENAMES-OFF . T) (UPDATE-TRI-STATE-DATA UPDATE-TRI-STATE-DATA-OFF . T) (ADD-SYNONYMS ADD-SYNONYMS-OFF . T) (FUNCTION-SYNONYMS FUNCTION-SYNONYMS-OFF . T) (FUNCTION-T-WIRE-INS FUNCTION-T-WIRE-INS-OFF . T) (INITIAL-OCC-TRI-STATE-DATA INITIAL-OCC-TRI-STATE-DATA-OFF . T) (STATE-TYPES-ERROR STATE-TYPES-ERROR-OFF . T) (COLLECT-STATE-TYPES COLLECT-STATE-TYPES-OFF . T) (UPDATE-STATE-TYPES UPDATE-STATE-TYPES-OFF . T) (OUT-DEPENDS-ERROR OUT-DEPENDS-ERROR-OFF . T) (COLLECT-OUT-DEPENDS-ERRORS COLLECT-OUT-DEPENDS-ERRORS-OFF . T) (COLLECT-OUT-DEPENDS COLLECT-OUT-DEPENDS-OFF . T) (UPDATE-OUT-DEPENDS UPDATE-OUT-DEPENDS-OFF . T) (ADD-OUT-DEPENDS ADD-OUT-DEPENDS-OFF . T) (INITIAL-OCC-OUT-DEPENDS INITIAL-OCC-OUT-DEPENDS-OFF . T) (DELAYS-ERROR DELAYS-ERROR-OFF . T) (COLLECT-DELAYS COLLECT-DELAYS-OFF . T) (COLLECT-DELAYS-0 COLLECT-DELAYS-0-OFF . T) (OUTPUT-DELAY OUTPUT-DELAY-OFF . T) (OR-DELAY-ARGS OR-DELAY-ARGS-OFF . T) (MAKE-OUTPUT-DELAY MAKE-OUTPUT-DELAY-OFF . T) (TYPE-DELAY-SLOPE TYPE-DELAY-SLOPE-OFF . T) (INPUT-DELAY INPUT-DELAY-OFF . T) (INPUT-DELAY0 INPUT-DELAY0-OFF . T) (RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF2 . T) (ADDABLE-INPUT-DELAY ADDABLE-INPUT-DELAY-OFF . T) (RANGE-DEPENDENCIES RANGE-DEPENDENCIES-ON1) (DELAY-TO-RANGE DELAY-TO-RANGE-OFF . T) (MAKE-DELAY-OR MAKE-DELAY-OR-OFF . T) (OR-DELAY-ARGS-TO-RANGES OR-DELAY-ARGS-TO-RANGES-OFF . T) (LITERAL-DELAY-TO-RANGE LITERAL-DELAY-TO-RANGE-OFF . T) (INSERT-INPUT-DELAY INSERT-INPUT-DELAY-OFF . T) (MERGEABLE-INPUT-DELAY-P MERGEABLE-INPUT-DELAY-P-OFF . T) (MERGE-INPUT-DELAYS MERGE-INPUT-DELAYS-OFF . T) (LOADED-DELAYS LOADED-DELAYS-OFF . T) (LOADED-DELAY LOADED-DELAY-OFF . T) (ADD-LOAD-DELAY ADD-LOAD-DELAY-OFF . T) (UPDATE-DELAYS UPDATE-DELAYS-OFF . T) (ADD-DELAYS ADD-DELAYS-OFF . T) (LOCAL-DELAY LOCAL-DELAY-OFF . T) (DELAY-DEPENDENCIES DELAY-DEPENDENCIES-OFF1 . T) (RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF1 . T) (LOCAL-DELAY-COUNT-HELP LOCAL-DELAY-COUNT-HELP-OFF . T) (DELAY-DEPENDENCIES DELAY-DEPENDENCIES-ON) (RANGE-DEPENDENCIES RANGE-DEPENDENCIES-ON) (LOCAL-DELAY-COUNT-HELP-0 LOCAL-DELAY-COUNT-HELP-0-OFF . T) (SLOPE-TIMES-LOAD SLOPE-TIMES-LOAD-OFF . T) (RANGE-PLUS RANGE-PLUS-OFF . T) (PER-PF-DELAY-SLOPE PER-PF-DELAY-SLOPE-OFF . T) (PER-STD-LOAD-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE-OFF . T) (DETERMINED-RANGEP DETERMINED-RANGEP-OFF . T) (RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF . T) (RANGE-MAX RANGE-MAX-OFF . T) (RANGE-MIN RANGE-MIN-OFF . T) (RANGEP RANGEP-OFF . T) (MAKE-RANGE MAKE-RANGE-OFF . T) (DETERMINED-DELAYP DETERMINED-DELAYP-OFF . T) (MAKE-DELAY MAKE-DELAY-OFF . T) (MAKE-DELAY-0 MAKE-DELAY-0-OFF . T) (DELAY-DEPENDENCIES DELAY-DEPENDENCIES-OFF . T) (DELAY-INTERCEPT-HL DELAY-INTERCEPT-HL-OFF . T) (DELAY-INTERCEPT-LH DELAY-INTERCEPT-LH-OFF . T) (DELAY-SLOPE-HL DELAY-SLOPE-HL-OFF . T) (DELAY-SLOPE-LH DELAY-SLOPE-LH-OFF . T) (DELAY-HL DELAY-HL-OFF . T) (DELAY-LH DELAY-LH-OFF . T) (PS-PFP PS-PFP-OFF . T) (DRIVES-ERROR DRIVES-ERROR-OFF . T) (COLLECT-DRIVES COLLECT-DRIVES-OFF . T) (COLLECT-DRIVES-0 COLLECT-DRIVES-0-OFF . T) (MAKE-DRIVE-MIN MAKE-DRIVE-MIN-OFF . T) (DRIVE-MIN DRIVE-MIN-OFF . T) (DRIVE-LESSP DRIVE-LESSP-OFF . T) (TYPE-DRIVE TYPE-DRIVE-OFF . T) (NUMERIC-DRIVES NUMERIC-DRIVES-OFF . T) (COLLECT-MIN-ARGS COLLECT-MIN-ARGS-OFF . T) (LOADINGS-ERROR LOADINGS-ERROR-OFF . T) (COLLECT-LOADINGS COLLECT-LOADINGS-OFF . T) (TYPE-LOADING TYPE-LOADING-OFF . T) (NET-DRIVES-SIMPLE NET-DRIVES-SIMPLE-OFF . T) (ADD-NET-DRIVE ADD-NET-DRIVE-OFF . T) (ADD-NET-MIN-DRIVE ADD-NET-MIN-DRIVE-OFF . T) (NET-MIN-ARGS NET-MIN-ARGS-OFF . T) (LITERAL-NET-DRIVE LITERAL-NET-DRIVE-OFF . T) (TRANSFER-LOADINGS TRANSFER-LOADINGS-OFF . T) (TRANSFER-LOADING TRANSFER-LOADING-OFF . T) (UPDATE-DRIVES UPDATE-DRIVES-OFF . T) (ADD-DRIVES ADD-DRIVES-OFF . T) (LOCAL-DRIVE LOCAL-DRIVE-OFF . T) (UPDATE-LOADINGS UPDATE-LOADINGS-OFF . T) (ADD-LOADINGS ADD-LOADINGS-OFF . T) (ADD-LOADING ADD-LOADING-OFF . T) (LOADING-PLUS LOADING-PLUS-OFF . T) (MA-LESSP MA-LESSP-OFF . T) (PF-LESSP PF-LESSP-OFF . T) (PF-DIFFERENCE PF-DIFFERENCE-OFF . T) (PF-PLUS PF-PLUS-OFF . T) (ZERO-LOADINGP ZERO-LOADINGP-OFF . T) (STD-DRIVE-TO-MA STD-DRIVE-TO-MA-OFF . T) (MA-TO-STD-DRIVE MA-TO-STD-DRIVE-OFF . T) (PF-TO-STD-LOAD PF-TO-STD-LOAD-OFF . T) (STD-LOAD-TO-PF STD-LOAD-TO-PF-OFF . T) (PF-TO-MA PF-TO-MA-OFF . T) (MA-TO-PF MA-TO-PF-OFF . T) (PFP PFP-OFF . T) (MAP MAP-OFF . T) (OUT-TYPES-ERROR OUT-TYPES-ERROR-OFF . T) (IN-TYPES-ERROR IN-TYPES-ERROR-OFF . T) (COLLECT-OUT-TYPES COLLECT-OUT-TYPES-OFF . T) (COLLECT-OUT-TYPE COLLECT-OUT-TYPE-OFF . T) (COLLECT-IN-TYPES COLLECT-IN-TYPES-OFF . T) (COMPOSE-IO-TYPES COMPOSE-IO-TYPES-OFF . T) (COMPOSED-TYPE-MAPS COMPOSED-TYPE-MAPS-OFF . T) (COMPOSE-TYPE COMPOSE-TYPE-OFF . T) (TRANSFER-IN-TYPE TRANSFER-IN-TYPE-OFF . T) (OK-OUT-TYPE OK-OUT-TYPE-OFF . T) (OK-IN-TYPE OK-IN-TYPE-OFF . T) (IO-TYPES-COMPATIBLE IO-TYPES-COMPATIBLE-OFF . T) (IO-TYPE-ERROR IO-TYPE-ERROR-OFF . T) (UPDATE-OUT-TYPES UPDATE-OUT-TYPES-OFF . T) (ADD-OUT-TYPES ADD-OUT-TYPES-OFF . T) (ADD-OUT-TYPE ADD-OUT-TYPE-OFF . T) (UPDATE-IN-TYPES UPDATE-IN-TYPES-OFF . T) (ADD-IN-TYPES ADD-IN-TYPES-OFF . T) (ADD-IN-TYPE ADD-IN-TYPE-OFF . T) (OUTPUT-TYPE OUTPUT-TYPE-OFF . T) (INPUT-TYPE INPUT-TYPE-OFF . T) (TYPE-VALUE TYPE-VALUE-OFF . T) (TYPE-VALUE0 TYPE-VALUE0-OFF . T) (TRI-STATE-TYPEP TRI-STATE-TYPEP-OFF . T) (TYPES-COMPATIBLEP TYPES-COMPATIBLEP-OFF . T) (SUBTYPE SUBTYPE-OFF . T) (EXTERNALIZE-PARENTS EXTERNALIZE-PARENTS-OFF . T) (EXTRACT-NAMES EXTRACT-NAMES-OFF . T) (PARENT-SYNONYMS-LIST PARENT-SYNONYMS-LIST-OFF . T) (PARENT-SYNONYM PARENT-SYNONYM-OFF . T) (PARENT-SYNONYM0 PARENT-SYNONYM0-OFF . T) (SIGNAL-NAMEP SIGNAL-NAMEP-OFF . T) (COLLECT-VALUE2 COLLECT-VALUE2-OFF . T) (VALUE2 VALUE2-OFF . T) (UNMARK-IO-OUTS UNMARK-IO-OUTS-OFF . T) (UNMARK-IO-OUT UNMARK-IO-OUT-OFF . T) (MARK-IO-OUTS MARK-IO-OUTS-OFF . T) (MARK-IO-OUTS-0 MARK-IO-OUTS-0-OFF . T) (MARK-IO-OUT MARK-IO-OUT-OFF . T) (COLLECT-VALUE-OR-UNKNOWN COLLECT-VALUE-OR-UNKNOWN-OFF . T) (VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN-OFF . T) (*1*ALL-MODULE-PROPS G*1*ALL-MODULE-PROPS-OFF . T) (ALL-MODULE-PROPS ALL-MODULE-PROPS-OFF . T) (*1*PRIMITIVE-PROPERTIES G*1*PRIMITIVE-PROPERTIES-OFF . T) (PRIMITIVE-PROPERTIES PRIMITIVE-PROPERTIES-OFF . T) (LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-OK-OFF . T) (LSI-NETLIST-SYNTAX-CHECK LSI-NETLIST-SYNTAX-CHECK-OFF . T) (LSI-MODULE-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK-OFF . T) (LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-OCCURRENCES-CHECK-OFF . T) (LSI-MODULE-OUTPUTS-OK LSI-MODULE-OUTPUTS-OK-OFF . T) (LSI-MODULE-INPUTS-OK LSI-MODULE-INPUTS-OK-OFF . T) (LSI-MODULE-NAME-OK LSI-MODULE-NAME-OK-OFF . T) (LSI-OCC-BODY-SYNTAX-CHECK LSI-OCC-BODY-SYNTAX-CHECK-OFF . T) (UPDATE-LSI-OCC-SYNTAX-DATA UPDATE-LSI-OCC-SYNTAX-DATA-OFF . T) (INITIAL-LSI-OCC-SYNTAX-DATA INITIAL-LSI-OCC-SYNTAX-DATA-OFF . T) (LSI-OCC-SYNTAX-OK LSI-OCC-SYNTAX-OK-OFF . T) (LSI-OCC-INPUTS-OK LSI-OCC-INPUTS-OK-OFF . T) (LSI-OCC-OUTPUTS-OK LSI-OCC-OUTPUTS-OK-OFF . T) (LSI-OCC-NAME-OK LSI-OCC-NAME-OK-OFF . T) (MAX-OCC-HIERARCHICAL-NAME MAX-OCC-HIERARCHICAL-NAME-OFF . T) (MAX-HIERARCHICAL-LENGTH-AND-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF . T) (HIERARCHICAL-NAME-MAX HIERARCHICAL-NAME-MAX-OFF . T) (NAME-LENGTH NAME-LENGTH-OFF . T) (LSI-FUNCTION-NAME LSI-FUNCTION-NAME-OFF . T) (LSI-NAME-LIST-OK LSI-NAME-LIST-OK-OFF . T) (LSI-NAME-LIST-ERRORS LSI-NAME-LIST-ERRORS-OFF . T) (LSI-BAD-NAMES LSI-BAD-NAMES-OFF . T) (LSI-NAME-OK LSI-NAME-OK-OFF . T) (*1*LSI-KEYWORDS G*1*LSI-KEYWORDS-OFF . T) (LSI-KEYWORDS LSI-KEYWORDS-OFF . T) (BAD-LSI-NAME-CHARS BAD-LSI-NAME-CHARS-OFF . T) (DIGITP DIGITP-OFF . T) (LETTERP LETTERP-OFF . T) (NETLIST-SYNTAX-OK NETLIST-SYNTAX-OK-OFF . T) (NETLIST-SYNTAX-ERRORS NETLIST-SYNTAX-ERRORS-OFF . T) (MODULE-SYNTAX-OK MODULE-SYNTAX-OK-OFF . T) (MODULE-SYNTAX-ERRORS MODULE-SYNTAX-ERRORS-OFF . T) (MODULE-ANNOTATION-OK MODULE-ANNOTATION-OK-OFF . T) (MODULE-STATENAMES-OK MODULE-STATENAMES-OK-OFF . T) (MODULE-OCCURRENCES-OK MODULE-OCCURRENCES-OK-OFF . T) (STATES-LIST-OR-NIL STATES-LIST-OR-NIL-OFF . T) (MODULE-OUTPUTS-OK MODULE-OUTPUTS-OK-OFF . T) (MODULE-INPUTS-OK MODULE-INPUTS-OK-OFF . T) (MODULE-NAME-OK MODULE-NAME-OK-OFF . T) (MODULE-FORM-OK MODULE-FORM-OK-OFF . T) (OCC-BODY-SYNTAX-ERRORS OCC-BODY-SYNTAX-ERRORS-OFF . T) (COMPOSITE-OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF . T) (UPDATE-OCC-SYNTAX-DATA UPDATE-OCC-SYNTAX-DATA-OFF . T) (INITIAL-OCC-SYNTAX-DATA INITIAL-OCC-SYNTAX-DATA-OFF . T) (OCC-SYNTAX-OK OCC-SYNTAX-OK-OFF . T) (OCC-SYNTAX-ERRORS OCC-SYNTAX-ERRORS-OFF . T) (OCC-ANNOTATION-OK OCC-ANNOTATION-OK-OFF . T) (OCC-FUNCTION-OK OCC-FUNCTION-OK-OFF . T) (OCC-INPUTS-OK OCC-INPUTS-OK-OFF . T) (OCC-OUTPUTS-OK OCC-OUTPUTS-OK-OFF . T) (OCC-NAME-OK OCC-NAME-OK-OFF . T) (OCC-FORM-OK OCC-FORM-OK-OFF . T) (OCC-ARG-LENGTH-ERROR OCC-ARG-LENGTH-ERROR-OFF . T) (NAME-LIST-OK NAME-LIST-OK-OFF . T) (NAME-LIST-ERRORS NAME-LIST-ERRORS-OFF . T) (BAD-NAMES BAD-NAMES-OFF . T) (NAME-OKP NAME-OKP-OFF . T) (NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF . T) (LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE-OFF . T) (COLLECT-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE-OFF . T) (COLLECT-LOADINGS-SIMPLE COLLECT-LOADINGS-SIMPLE-OFF . T) (EXTERNAL-LOADING EXTERNAL-LOADING-OFF . T) (NET-DRIVES NET-DRIVES-OFF . T) (FIX-DRIVES FIX-DRIVES-OFF . T) (FIX-LOADINGS FIX-LOADINGS-OFF . T) (SUM-LOADINGS SUM-LOADINGS-OFF . T) (SUM-LOADING SUM-LOADING-OFF . T) (EXTRACT-NAMES-SIMPLE EXTRACT-NAMES-SIMPLE-OFF . T) (SUM-NUMBERS SUM-NUMBERS-OFF . T) (ADD-LOADING-SIMPLES ADD-LOADING-SIMPLES-OFF . T) (ADD-LOADING-SIMPLE ADD-LOADING-SIMPLE-OFF . T) (PARENT-SYNONYM-SIMPLE PARENT-SYNONYM-SIMPLE-OFF . T) (FIX-DEPENDENT-LDS FIX-DEPENDENT-LDS-OFF . T) (APPLY-STATE-SIMPLE-OKP APPLY-STATE-SIMPLE-OKP-OFF . T) (STATE-SIMPLE-OKP STATE-SIMPLE-OKP-OFF . T) (NETLIST-STATE-TYPES-SIMPLE NETLIST-STATE-TYPES-SIMPLE-OFF . T) (STATE-TYPE-REQUIREMENT-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF . T) (MAKE-RAM-STATE MAKE-RAM-STATE-OFF . T) (ARG-TYPES-SIMPLE-OKP ARG-TYPES-SIMPLE-OKP-OFF . T) (ARG-TYPES-MATCH-SIMPLEP ARG-TYPES-MATCH-SIMPLEP-OFF . T) (NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF . T) (NETLIST-TYPES-ACCEPTABLE-LIST NETLIST-TYPES-ACCEPTABLE-LIST-OFF . T) (TYPES-ACCEPTABLEP TYPES-ACCEPTABLEP-OFF . T) (NETLIST-TYPE-TABLE-SIMPLE NETLIST-TYPE-TABLE-SIMPLE-OFF . T) (IO-TYPES-SIMPLE IO-TYPES-SIMPLE-OFF . T) (FIX-DEPENDENT-TYPES FIX-DEPENDENT-TYPES-OFF . T) (UPDATE-KNOWN-TYPES UPDATE-KNOWN-TYPES-OFF . T) (ADD-NEW-TYPE ADD-NEW-TYPE-OFF . T) (COLLECT-TYPES COLLECT-TYPES-OFF . T) (TYPE-VALUE-SIMPLE TYPE-VALUE-SIMPLE-OFF . T) (OUTPUT-DEPENDENCIES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE-OFF . T) (SIMPLE-DEPENDENCY-TABLE SIMPLE-DEPENDENCY-TABLE-OFF . T) (OUT-DEPENDS-SIMPLE OUT-DEPENDS-SIMPLE-OFF . T) (NETLIST-SYNTAX-SIMPLE-OKP NETLIST-SYNTAX-SIMPLE-OKP-OFF . T) (MODULE-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP-OFF . T) (OCC-BODY-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP-OFF . T) (OCC-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP-OFF . T) (NAME-LIST-SIMPLE-OKP NAME-LIST-SIMPLE-OKP-OFF . T) (NAME-SIMPLE-OKP NAME-SIMPLE-OKP-OFF . T) (LIST-COLLECT-VALUE LIST-COLLECT-VALUE-OFF . T) (LABEL-ERROR LABEL-ERROR-OFF . T) (ALL-BOUND-OR-ERR ALL-BOUND-OR-ERR-OFF . T) (DISJOINT-OR-ERR DISJOINT-OR-ERR-OFF . T) (NO-DUPLICATES-OR-ERR NO-DUPLICATES-OR-ERR-OFF . T) (SUBSET-OR-ERR SUBSET-OR-ERR-OFF . T) (NIL-OR-ERR NIL-OR-ERR-OFF . T) (NLISTP-OR-ERR NLISTP-OR-ERR-OFF . T) (T-OR-ERR T-OR-ERR-OFF . T) (ERR-AND ERR-AND-OFF . T) (COLLECT-NET-ERRORS COLLECT-NET-ERRORS-OFF . T) (NET-ERRORS NET-ERRORS-OFF . T) (ERROR-ENTRY ERROR-ENTRY-OFF . T) (PRED-ERROR PRED-ERROR-OFF . T) (REPORT-ERROR REPORT-ERROR-OFF . T) (LIST-LIST-SORT LIST-LIST-SORT-OFF . T) (LIST-SORT LIST-SORT-OFF . T) (MIN-TOKEN MIN-TOKEN-OFF . T) (MIN-TOKEN-HELP MIN-TOKEN-HELP-OFF . T) (TOKEN-LESSP TOKEN-LESSP-OFF . T) (LIST-LESSP LIST-LESSP-OFF . T) (M-STATES-LIST M-STATES-LIST-OFF . T) (LOOKUP-MODULE-IN-UNBIND-LIST LOOKUP-MODULE-IN-UNBIND-LIST-OFF . T) (UNBIND-LIST UNBIND-LIST-OFF . T) (UNBIND UNBIND-OFF . T) (BOUNDP BOUNDP-OFF . T) (LOOKUP-MODULE-IN-DELETE-MODULE LOOKUP-MODULE-IN-DELETE-MODULE-OFF . T) (UNBOUND-KEYS UNBOUND-KEYS-OFF . T) (LIST-UNION-VALUES LIST-UNION-VALUES-OFF . T) (UNION-VALUES UNION-VALUES-OFF . T) (SET-VALUE SET-VALUE-OFF . T) (ALIST-ENTRY ALIST-ENTRY-OFF . T) (ALISTP ALISTP-OFF . T) (LISTIFY LISTIFY-OFF . T) (IS-HEAD IS-HEAD-OFF . T) (FLATTEN-LIST FLATTEN-LIST-OFF . T) (APPEND-LIST APPEND-LIST-OFF . T) (REMOVE-DUPLICATES REMOVE-DUPLICATES-OFF . T) (LIST-DUPLICATES LIST-DUPLICATES-OFF . T) (LAST-CDR LAST-CDR-OFF . T) (INTERSECTION INTERSECTION-OFF . T) (SET-DIFF SET-DIFF-OFF . T) (SET-EQUAL SET-EQUAL-OFF . T) (INSERT INSERT-OFF . T) (MIN MIN-OFF . T) (SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2-OFF . T) (DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS-OFF . T) (DUAL-EVAL DUAL-EVAL-OFF . T) (DUAL-APPLY-STATE DUAL-APPLY-STATE-OFF . T) (DUAL-APPLY-VALUE DUAL-APPLY-VALUE-OFF . T) (PRIMP PRIMP-OFF . T) (DELETE-MODULE DELETE-MODULE-OFF . T) (LOOKUP-MODULE LOOKUP-MODULE-OFF . T) (VFT-BUF-REWRITE VFT-BUF-REWRITE-OFF . T) (VFT-BUF VFT-BUF-OFF . T) (FV-SHIFT-RIGHT FV-SHIFT-RIGHT-OFF . T) (V-PULLUP V-PULLUP-OFF . T) (V-WIRE V-WIRE-OFF . T) (FV-IF-REWRITE FV-IF-REWRITE-OFF . T) (FV-IF FV-IF-OFF . T) (FV-XOR FV-XOR-OFF . T) (FV-OR FV-OR-OFF . T) (F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF . T) (F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF . T) (F-BUF-DELETE-LEMMAS F-BUF-DELETE-LEMMAS-OFF . T) (F-NOT-F-NOT=F-BUF F-NOT-F-NOT=F-BUF-OFF . T) (THREEFIX-HELP-LEMMA THREEFIX-HELP-LEMMA-OFF . T) (EXPAND-F-FUNCTIONS EXPAND-F-FUNCTIONS-OFF . T) (TREE-NUMBER TREE-NUMBER-OFF . T) (MEM-STATE MEM-STATE-OFF . T) (MEM-VALUE MEM-VALUE-OFF . T) (MEMORY-VALUE MEMORY-VALUE-OFF . T) (NEXT-MEMORY-STATE NEXT-MEMORY-STATE-OFF . T) (CONSTANT-RAM CONSTANT-RAM-OFF . T) (ALL-RAMP-MEM ALL-RAMP-MEM-OFF . T) (RAMP-MEM RAMP-MEM-OFF . T) (RAMP-MEM1 RAMP-MEM1-OFF . T) (WRITE-MEM WRITE-MEM-OFF . T) (WRITE-MEM1 WRITE-MEM1-OFF . T) (READ-MEM READ-MEM-OFF . T) (READ-MEM1 READ-MEM1-OFF . T) (MEMORY-OKP MEMORY-OKP-OFF . T) (MEMORY-PROPERP MEMORY-PROPERP-OFF . T) (VALUE-PAIRLIST VALUE-PAIRLIST-OFF . T) (COLLECT-VALUE COLLECT-VALUE-OFF . T) (VALUE VALUE-OFF . T) (V-IFF V-IFF-OFF . T) (V-FOURFIX V-FOURFIX-OFF . T) (V-THREEFIX-APPEND V-THREEFIX-APPEND-OFF . T) (V-THREEFIX V-THREEFIX-OFF . T) (V-DEC V-DEC-OFF . T) (V-INC V-INC-OFF . T) (V-ADDER V-ADDER-OFF . T) (SIGN-EXTEND-AS-APPEND SIGN-EXTEND-AS-APPEND-OFF . T) (SIGN-EXTEND SIGN-EXTEND-OFF . T) (V-NEGP-AS-NTH V-NEGP-AS-NTH-OFF . T) (V-NEGP V-NEGP-OFF . T) (V-NZEROP V-NZEROP-OFF . T) (UPDATE-V-NTH UPDATE-V-NTH-OFF . T) (V-NTH V-NTH-OFF . T) (NAT-TO-V NAT-TO-V-OFF . T) (V-TO-NAT V-TO-NAT-OFF . T) (RESTN-V-NOT RESTN-V-NOT-OFF . T) (FIRSTN-V-NOT FIRSTN-V-NOT-OFF . T) (V-IF V-IF-OFF . T) (V-SHIFT-RIGHT V-SHIFT-RIGHT-OFF . T) (V-XOR V-XOR-OFF . T) (V-OR V-OR-OFF . T) (V-AND V-AND-OFF . T) (V-NOT V-NOT-OFF . T) (V-BUF V-BUF-OFF . T) (BOOLP-B-GATES BOOLP-B-GATES-OFF . T) (SHOW-THAT-NTH=T SHOW-THAT-NTH=T-OFF . T) (BVP-LENGTH BVP-LENGTH-OFF . T) (BVP BVP-OFF . T) (THREEFIX=X THREEFIX=X-OFF . T) (BOOLP-IMPLIES-NOT-EQUAL-Z BOOLP-IMPLIES-NOT-EQUAL-Z-OFF . T) (BOOLP BOOLP-OFF . T) (NTH-INDICES NTH-INDICES-OFF . T) (INDICES-AS-APPEND INDICES-AS-APPEND-OFF . T) (INDICES INDICES-OFF . T) (LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH-OFF . T) (LIST-ELIM-4 LIST-ELIM-4-OFF . T) (LIST-REWRITE-4 LIST-REWRITE-4-OFF . T) (MAKE-TREE MAKE-TREE-OFF . T) (TREE-HEIGHT TREE-HEIGHT-OFF . T) (MAKE-LIST-APPEND-TREE-CROCK MAKE-LIST-APPEND-TREE-CROCK-OFF . T) (TREE-SIZE TREE-SIZE-OFF . T) (OPEN-MAKE-LIST OPEN-MAKE-LIST-OFF . T) (MAKE-LIST MAKE-LIST-OFF . T) (UPDATE-NTH UPDATE-NTH-OFF . T) (OPEN-SUBRANGE OPEN-SUBRANGE-OFF . T) (SUBRANGE-CONS SUBRANGE-CONS-OFF . T) (SUBRANGE SUBRANGE-OFF . T) (CDR-NTHCDR CDR-NTHCDR-OFF . T) (PROPERP-AS-NULL-NTHCDR PROPERP-AS-NULL-NTHCDR-OFF . T) (NTHCDR NTHCDR-OFF . T) (NTH-RESTN NTH-RESTN-OFF . T) (NTH-IF NTH-IF-OFF . T) (OPEN-NTH OPEN-NTH-OFF . T) (NTH NTH-OFF . T) (PAIRLIST PAIRLIST-OFF . T) (CDR-RESTN CDR-RESTN-OFF . T) (RESTN RESTN-OFF . T) (FIRSTN FIRSTN-OFF . T) (DUPLICATES? DUPLICATES?-OFF . T) (DISJOINT DISJOINT-OFF . T) (SUBSET SUBSET-OFF . T) (DELETE* DELETE*-OFF . T) (REVERSE REVERSE-OFF . T) (REV1 REV1-OFF . T) (EQUAL-LENGTH-ADD1 EQUAL-LENGTH-ADD1-OFF . T) (LENGTH LENGTH-OFF . T) (POSITION POSITION-OFF . T) (PROPERP PROPERP-OFF . T) (APPEND APPEND-OFF . T) (DIFFERENCE DIFFERENCE-OFF . T) (PLUS PLUS-OFF . T) (OUR-CAR-CDR-ELIM OUR-CAR-CDR-ELIM-OFF . T) (EXPAND-*-CONNECTIVES EXPAND-*-CONNECTIVES-OFF . T) (NOT* NOT*-OFF . T) (AND* AND*-OFF . T) (OR* OR*-OFF . T) (IF* IF*-OFF . T) (*1*DELETE G*1*DELETE-OFF . T) (DELETE DELETE-OFF . T) (*1*BAGDIFF G*1*BAGDIFF-OFF . T) (BAGDIFF BAGDIFF-OFF . T) (*1*BAGINT G*1*BAGINT-OFF . T) (BAGINT BAGINT-OFF . T) (*1*OCCURRENCES G*1*OCCURRENCES-OFF . T) (OCCURRENCES OCCURRENCES-OFF . T) (*1*SUBBAGP G*1*SUBBAGP-OFF . T) (SUBBAGP SUBBAGP-OFF . T) (DELETE-NON-MEMBER DELETE-NON-MEMBER-OFF . T) (DELETE-DELETE DELETE-DELETE-OFF . T) (EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-OFF . T) (MEMBER-NON-LIST MEMBER-NON-LIST-OFF . T) (MEMBER-DELETE MEMBER-DELETE-OFF . T) (MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF . T) (OCCURRENCES-DELETE OCCURRENCES-DELETE-OFF . T) (MEMBER-BAGDIFF MEMBER-BAGDIFF-OFF . T) (BAGDIFF-DELETE BAGDIFF-DELETE-OFF . T) (SUBBAGP-DELETE SUBBAGP-DELETE-OFF . T) (SUBBAGP-CDR1 SUBBAGP-CDR1-OFF . T) (SUBBAGP-CDR2 SUBBAGP-CDR2-OFF . T) (SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-OFF . T) (SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-OFF . T) (OCCURRENCES-BAGINT OCCURRENCES-BAGINT-OFF . T) (OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-OFF . T) (MEMBER-BAGINT MEMBER-BAGINT-OFF . T) (EQUAL-PLUS-0 EQUAL-PLUS-0-OFF . T) (EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-OFF . T) (COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-OFF . T) (COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-OFF . T) (PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-OFF . T) (PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-OFF . T) (PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-OFF . T) (ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-OFF . T) (PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-OFF . T) (PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-OFF . T) (DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF . T) (DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF . T) (DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-OFF . T) (DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-OFF . T) (*1*PLUS-FRINGE G*1*PLUS-FRINGE-OFF . T) (PLUS-FRINGE PLUS-FRINGE-OFF . T) (*1*PLUS-TREE G*1*PLUS-TREE-OFF . T) (PLUS-TREE PLUS-TREE-OFF . T) (EVAL$-QUOTE EVAL$-QUOTE-OFF1 . T) (*1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-OFF . T) (CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-OFF . T) (CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF . T) (*1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-OFF . T) (CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-OFF . T) (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF . T) (DIFFERENCE-ELIM DIFFERENCE-ELIM-OFF . T) (DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-OFF . T) (DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-OFF . T) (DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-OFF . T) (DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-OFF . T) (DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-OFF . T) (DIFFERENCE-X-X DIFFERENCE-X-X-OFF . T) (*1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-OFF . T) (CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-OFF . T) (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF . T) (EQUAL-TIMES-0 EQUAL-TIMES-0-OFF . T) (EQUAL-TIMES-1 EQUAL-TIMES-1-OFF . T) (EQUAL-SUB1-0 EQUAL-SUB1-0-OFF . T) (TIMES-ZERO TIMES-ZERO-OFF . T) (TIMES-ADD1 TIMES-ADD1-OFF . T) (COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-OFF . T) (TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF . T) (TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-OFF . T) (COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-OFF . T) (ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-OFF . T) (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF . T) (TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF . T) (TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-OFF . T) (TIMES-QUOTIENT TIMES-QUOTIENT-OFF . T) (TIMES-1-ARG1 TIMES-1-ARG1-OFF . T) (LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-OFF . T) (LESSP-TIMES1 LESSP-TIMES1-OFF . T) (LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-OFF . T) (LESSP-TIMES2 LESSP-TIMES2-OFF . T) (LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-OFF . T) (LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-OFF . T) (LESSP-TIMES3 LESSP-TIMES3-OFF . T) (LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-OFF . T) (LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-OFF . T) (LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-OFF . T) (LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-OFF . T) (LESSP-1-TIMES LESSP-1-TIMES-OFF . T) (*1*TIMES-TREE G*1*TIMES-TREE-OFF . T) (TIMES-TREE TIMES-TREE-OFF . T) (*1*TIMES-FRINGE G*1*TIMES-FRINGE-OFF . T) (TIMES-FRINGE TIMES-FRINGE-OFF . T) (*1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-OFF . T) (OR-ZEROP-TREE OR-ZEROP-TREE-OFF . T) (*1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-OFF . T) (AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-OFF . T) (EVAL$-EQUAL EVAL$-EQUAL-OFF1 . T) (LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-OFF . T) (INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-OFF . T) (*1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-OFF . T) (CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-OFF . T) (CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF . T) (*1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-OFF . T) (CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-OFF . T) (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF . T) (LESSP-REMAINDER LESSP-REMAINDER-OFF . T) (REMAINDER-NOOP REMAINDER-NOOP-OFF . T) (REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-OFF . T) (REMAINDER-ZERO REMAINDER-ZERO-OFF . T) (REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-OFF . T) (REMAINDER-ADD1 REMAINDER-ADD1-OFF . T) (REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-OFF . T) (REMAINDER-PLUS REMAINDER-PLUS-OFF . T) (EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-OFF . T) (EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-OFF . T) (EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF . T) (REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-OFF . T) (REMAINDER-TIMES1 REMAINDER-TIMES1-OFF . T) (REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-OFF . T) (REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-OFF . T) (REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-OFF . T) (REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-OFF . T) (REMAINDER-TIMES2 REMAINDER-TIMES2-OFF . T) (REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-OFF . T) (REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-OFF . T) (*1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-OFF . T) (DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-OFF . T) (REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-OFF . T) (REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-OFF . T) (REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF . T) (REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-OFF . T) (REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF . T) (REMAINDER-REMAINDER REMAINDER-REMAINDER-OFF . T) (REMAINDER-1-ARG1 REMAINDER-1-ARG1-OFF . T) (REMAINDER-1-ARG2 REMAINDER-1-ARG2-OFF . T) (REMAINDER-X-X REMAINDER-X-X-OFF . T) (TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-OFF . T) (QUOTIENT-NOOP QUOTIENT-NOOP-OFF . T) (QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-OFF . T) (QUOTIENT-ZERO QUOTIENT-ZERO-OFF . T) (QUOTIENT-ADD1 QUOTIENT-ADD1-OFF . T) (EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-OFF . T) (QUOTIENT-SUB1 QUOTIENT-SUB1-OFF . T) (QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-OFF . T) (QUOTIENT-PLUS QUOTIENT-PLUS-OFF . T) (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF . T) (QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-OFF . T) (QUOTIENT-TIMES QUOTIENT-TIMES-OFF . T) (QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-OFF . T) (QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-OFF . T) (QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-OFF . T) (QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-OFF . T) (QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-OFF . T) (QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-OFF . T) (QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-OFF . T) (QUOTIENT-REMAINDER QUOTIENT-REMAINDER-OFF . T) (QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-OFF . T) (QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-OFF . T) (QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF . T) (QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-OFF . T) (QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF . T) (QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-OFF . T) (LEQ-QUOTIENT LEQ-QUOTIENT-OFF . T) (QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-OFF . T) (QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-OFF . T) (QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-OFF . T) (QUOTIENT-X-X QUOTIENT-X-X-OFF . T) (LESSP-QUOTIENT LESSP-QUOTIENT-OFF . T) (*1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-OFF . T) (CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-OFF . T) (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF . T) (*1*EXP G*1*EXP-OFF . T) (EXP EXP-OFF . T) (*1*LOG G*1*LOG-OFF . T) (LOG LOG-OFF . T) (*1*GCD G*1*GCD-OFF . T) (GCD GCD-OFF . T) (REMAINDER-EXP REMAINDER-EXP-OFF . T) (*1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-OFF . T) (DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-OFF . T) (REMAINDER-EXP-EXP REMAINDER-EXP-EXP-OFF . T) (QUOTIENT-EXP QUOTIENT-EXP-OFF . T) (EXP-ZERO EXP-ZERO-OFF . T) (EXP-ADD1 EXP-ADD1-OFF . T) (EXP-PLUS EXP-PLUS-OFF . T) (EXP-0-ARG1 EXP-0-ARG1-OFF . T) (EXP-1-ARG1 EXP-1-ARG1-OFF . T) (EXP-0-ARG2 EXP-0-ARG2-OFF . T) (EXP-TIMES EXP-TIMES-OFF . T) (EXP-EXP EXP-EXP-OFF . T) (EQUAL-EXP-0 EQUAL-EXP-0-OFF . T) (EQUAL-EXP-1 EQUAL-EXP-1-OFF . T) (EXP-DIFFERENCE EXP-DIFFERENCE-OFF . T) (EQUAL-LOG-0 EQUAL-LOG-0-OFF . T) (LOG-0 LOG-0-OFF . T) (LOG-1 LOG-1-OFF . T) (*1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-OFF . T) (DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-OFF . T) (LEQ-LOG-LOG LEQ-LOG-LOG-OFF . T) (LOG-QUOTIENT LOG-QUOTIENT-OFF . T) (LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-OFF . T) (LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-OFF . T) (LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-OFF . T) (LOG-TIMES-PROOF LOG-TIMES-PROOF-OFF . T) (LOG-TIMES LOG-TIMES-OFF . T) (LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-OFF . T) (LOG-TIMES-EXP LOG-TIMES-EXP-OFF . T) (LOG-EXP LOG-EXP-OFF . T) (COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-OFF . T) (*1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-OFF . T) (SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-OFF . T) (GCD-0 GCD-0-OFF . T) (GCD-1 GCD-1-OFF . T) (EQUAL-GCD-0 EQUAL-GCD-0-OFF . T) (LESSP-GCD LESSP-GCD-OFF . T) (GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF . T) (GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-OFF . T) (GCD-PLUS-PROOF GCD-PLUS-PROOF-OFF . T) (GCD-PLUS GCD-PLUS-OFF . T) (GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-OFF . T) (REMAINDER-GCD REMAINDER-GCD-OFF . T) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF . T) (DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF . T) (GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-OFF . T) (COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-OFF . T) (ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF . T) (ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-OFF . T) (COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF . T) (COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-OFF . T) (GCD-X-X GCD-X-X-OFF . T) (GCD-IDEMPOTENCE GCD-IDEMPOTENCE-OFF . T) (*1*INTEGERP G*1*INTEGERP-OFF . T) (*1*FIX-INT G*1*FIX-INT-OFF . T) (*1*IZEROP G*1*IZEROP-OFF . T) (IZEROP IZEROP-OFF . T) (*1*ILESSP G*1*ILESSP-OFF . T) (*1*ILEQ G*1*ILEQ-OFF . T) (ILEQ ILEQ-OFF . T) (*1*IPLUS G*1*IPLUS-OFF . T) (*1*INEG G*1*INEG-OFF . T) (*1*IDIFFERENCE G*1*IDIFFERENCE-OFF . T) (IDIFFERENCE IDIFFERENCE-OFF . T) (*1*IABS G*1*IABS-OFF . T) (*1*ITIMES G*1*ITIMES-OFF . T) (*1*IQUOTIENT G*1*IQUOTIENT-OFF . T) (*1*IREMAINDER G*1*IREMAINDER-OFF . T) (*1*IDIV G*1*IDIV-OFF . T) (*1*IMOD G*1*IMOD-OFF . T) (*1*IQUO G*1*IQUO-OFF . T) (*1*IREM G*1*IREM-OFF . T) (INTEGERP-FIX-INT INTEGERP-FIX-INT-OFF . T) (INTEGERP-IPLUS INTEGERP-IPLUS-OFF . T) (INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-OFF . T) (INTEGERP-INEG INTEGERP-INEG-OFF . T) (INTEGERP-IABS INTEGERP-IABS-OFF . T) (INTEGERP-ITIMES INTEGERP-ITIMES-OFF . T) (FIX-INT-REMOVER FIX-INT-REMOVER-OFF . T) (FIX-INT-FIX-INT FIX-INT-FIX-INT-OFF . T) (FIX-INT-IPLUS FIX-INT-IPLUS-OFF . T) (FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-OFF . T) (FIX-INT-INEG FIX-INT-INEG-OFF . T) (FIX-INT-IABS FIX-INT-IABS-OFF . T) (FIX-INT-ITIMES FIX-INT-ITIMES-OFF . T) (INEG-IPLUS INEG-IPLUS-OFF . T) (INEG-INEG INEG-INEG-OFF . T) (INEG-FIX-INT INEG-FIX-INT-OFF . T) (INEG-0 INEG-0-OFF . T) (IPLUS-0-LEFT IPLUS-0-LEFT-OFF . T) (IPLUS-0-RIGHT IPLUS-0-RIGHT-OFF . T) (COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-OFF . T) (COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-OFF . T) (ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-OFF . T) (IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-OFF . T) (IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-OFF . T) (IPLUS-INEG1 IPLUS-INEG1-OFF . T) (IPLUS-INEG2 IPLUS-INEG2-OFF . T) (IPLUS-FIX-INT1 IPLUS-FIX-INT1-OFF . T) (IPLUS-FIX-INT2 IPLUS-FIX-INT2-OFF . T) (IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-OFF . T) (IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-OFF . T) (*1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-OFF . T) (CANCEL-INEG-AUX CANCEL-INEG-AUX-OFF . T) (*1*CANCEL-INEG G*1*CANCEL-INEG-OFF . T) (CANCEL-INEG CANCEL-INEG-OFF . T) (EVAL$-LIST-CONS EVAL$-LIST-CONS-OFF . T) (EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-OFF . T) (EVAL$-LITATOM EVAL$-LITATOM-OFF . T) (EVAL$-OTHER EVAL$-OTHER-OFF . T) (*1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF . T) (EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-OFF . T) (EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF . T) (IPLUS-INEG3 IPLUS-INEG3-OFF . T) (IPLUS-INEG4 IPLUS-INEG4-OFF . T) (IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-OFF . T) (CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-OFF . T) (*1*IPLUS-FRINGE G*1*IPLUS-FRINGE-OFF . T) (IPLUS-FRINGE IPLUS-FRINGE-OFF . T) (*1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-OFF . T) (IPLUS-TREE-REC IPLUS-TREE-REC-OFF . T) (*1*IPLUS-TREE G*1*IPLUS-TREE-OFF . T) (*1*IPLUS-LIST G*1*IPLUS-LIST-OFF . T) (IPLUS-LIST IPLUS-LIST-OFF . T) (INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-OFF . T) (EVAL$-LIST-APPEND EVAL$-LIST-APPEND-OFF . T) (*1*CANCEL-IPLUS G*1*CANCEL-IPLUS-OFF . T) (EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-OFF . T) (IPLUS-LIST-APPEND IPLUS-LIST-APPEND-OFF . T) (IPLUS-INEG7 IPLUS-INEG7-OFF . T) (CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-OFF . T) (ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-OFF . T) (ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-OFF . T) (*1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF . T) (*1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-OFF . T) (CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-OFF . T) (IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-OFF . T) (IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-OFF . T) (*1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-OFF . T) (*1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-OFF . T) (CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-OFF . T) (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF . T) (ITIMES-0-LEFT ITIMES-0-LEFT-OFF . T) (ITIMES-0-RIGHT ITIMES-0-RIGHT-OFF . T) (ITIMES-FIX-INT1 ITIMES-FIX-INT1-OFF . T) (ITIMES-FIX-INT2 ITIMES-FIX-INT2-OFF . T) (COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-OFF . T) (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF . T) (ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-OFF . T) (COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-OFF . T) (ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-OFF . T) (EQUAL-ITIMES-0 EQUAL-ITIMES-0-OFF . T) (EQUAL-ITIMES-1 EQUAL-ITIMES-1-OFF . T) (EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-OFF . T) (ITIMES-1-ARG1 ITIMES-1-ARG1-OFF . T) (QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-OFF . T) (DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-OFF . T) (DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-OFF . T) (DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-OFF . T) (DIVISION-THEOREM DIVISION-THEOREM-OFF . T) (IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF . T) (IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF . T) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF . T) (IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-OFF . T) (ITIMES-INEG-1 ITIMES-INEG-1-OFF . T) (ITIMES-INEG-2 ITIMES-INEG-2-OFF . T) (ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-OFF . T) (ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-OFF . T) (ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-OFF . T) (INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-OFF . T) (INTEGERP-IREMAINDER INTEGERP-IREMAINDER-OFF . T) (INTEGERP-IDIV INTEGERP-IDIV-OFF . T) (INTEGERP-IMOD INTEGERP-IMOD-OFF . T) (INTEGERP-IQUO INTEGERP-IQUO-OFF . T) (INTEGERP-IREM INTEGERP-IREM-OFF . T) (IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-OFF . T) (IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-OFF . T) (IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-OFF . T) (IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-OFF . T) (IDIV-FIX-INT1 IDIV-FIX-INT1-OFF . T) (IDIV-FIX-INT2 IDIV-FIX-INT2-OFF . T) (IMOD-FIX-INT1 IMOD-FIX-INT1-OFF . T) (IMOD-FIX-INT2 IMOD-FIX-INT2-OFF . T) (IQUO-FIX-INT1 IQUO-FIX-INT1-OFF . T) (IQUO-FIX-INT2 IQUO-FIX-INT2-OFF . T) (IREM-FIX-INT1 IREM-FIX-INT1-OFF . T) (IREM-FIX-INT2 IREM-FIX-INT2-OFF . T) (FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-OFF . T) (FIX-INT-IREMAINDER FIX-INT-IREMAINDER-OFF . T) (FIX-INT-IDIV FIX-INT-IDIV-OFF . T) (FIX-INT-IMOD FIX-INT-IMOD-OFF . T) (FIX-INT-IQUO FIX-INT-IQUO-OFF . T) (FIX-INT-IREM FIX-INT-IREM-OFF . T) (*1*ITIMES-FRINGE G*1*ITIMES-FRINGE-OFF . T) (ITIMES-FRINGE ITIMES-FRINGE-OFF . T) (*1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-OFF . T) (ITIMES-TREE-REC ITIMES-TREE-REC-OFF . T) (*1*ITIMES-TREE G*1*ITIMES-TREE-OFF . T) (*1*ITIMES-LIST G*1*ITIMES-LIST-OFF . T) (ITIMES-LIST ITIMES-LIST-OFF . T) (INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-OFF . T) (*1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF . T) (*1*CANCEL-ITIMES G*1*CANCEL-ITIMES-OFF . T) (CANCEL-ITIMES CANCEL-ITIMES-OFF . T) (ITIMES-LIST-APPEND ITIMES-LIST-APPEND-OFF . T) (MEMBER-APPEND MEMBER-APPEND-OFF . T) (EQUAL-FIX-INT EQUAL-FIX-INT-OFF . T) (*1*SUBSETP G*1*SUBSETP-OFF . T) (SUBSETP SUBSETP-OFF . T) (*1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-OFF . T) (*1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T) (*1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-OFF . T) (CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-OFF . T) (ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-OFF . T) (ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF . T) (ILESSP-STRICT ILESSP-STRICT-OFF . T) (*1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-OFF . T) (*1*ITIMES-FACTORS G*1*ITIMES-FACTORS-OFF . T) (ITIMES-FACTORS ITIMES-FACTORS-OFF . T) (ITIMES--1 ITIMES--1-OFF . T) (EQUAL-INEG-INEG EQUAL-INEG-INEG-OFF . T) (ILESSP-INEG-INEG ILESSP-INEG-INEG-OFF . T) (FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-OFF . T) (EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-OFF . T) (INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-OFF . T) (IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-OFF . T) (ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-OFF . T) (*1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-OFF . T) (*1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-OFF . T) (CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-OFF . T) (*1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF . T) (CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF . T) (MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF . T) (MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF . T) (*1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF . T) (CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-OFF . T) (BAGINT-SINGLETON BAGINT-SINGLETON-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF . T) (ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF . T) (ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF . T) (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF . T) (EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF . T) (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF . T) (EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF . T) (*1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-OFF . T) (DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-OFF . T) (*1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-OFF . T) (CANCEL-FACTORS-0 CANCEL-FACTORS-0-OFF . T) (*1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-OFF . T) (SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-OFF . T) (EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF . T) (SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-OFF . T) (SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-OFF . T) (CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF . T) (*1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF . T) (CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-OFF . T) (*1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-OFF . T) (CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-OFF . T) (CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF . T) (CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF . T) (*1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-OFF . T) (SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-OFF . T) (*1*REMOVE-INEGS G*1*REMOVE-INEGS-OFF . T) (*1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-OFF . T) (*1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF . T) (MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF . T) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T) (CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T) (*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T) (CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T) (EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF . T) (EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF . T) (IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF . T) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T) (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF . T) (MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF . T) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T) (CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T) (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T) (CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T) (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T) (IPLUS-CONSTANTS IPLUS-CONSTANTS-OFF . T) (CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-OFF . T) (CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-OFF . T) (ILESSP-ADD1 ILESSP-ADD1-OFF . T) (ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-OFF . T) (CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF . T) (CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF . T) (CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-OFF . T) (EVAL$ EVAL$-ON) (DIFFERENCE-IDIFFERENCE DIFFERENCE-IDIFFERENCE-OFF . T) (NUMBERP-IS-INTEGERP NUMBERP-IS-INTEGERP-OFF . T) (PLUS-IPLUS PLUS-IPLUS-OFF . T) (INTEGERP-EVAL$-IPLUS-OR-INEG-TERM INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF . T) (MINUS-INEG MINUS-INEG-OFF . T) (CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T) (REMOVE-INEGS REMOVE-INEGS-OFF . T) (IPLUS-OR-INEG-TERM IPLUS-OR-INEG-TERM-OFF . T) (CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T) (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF . T) (SUBBAGP-SUBSETP SUBBAGP-SUBSETP-OFF . T) (NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF . T) (NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-OFF . T) (LISTP-CDR-FACTORS-IMPLIES-INTEGERP LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF . T) (ILESSP-ITIMES-0 ILESSP-ITIMES-0-OFF . T) (ILESSP-0-ITIMES ILESSP-0-ITIMES-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF . T) (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF . T) (IZEROP-ILESSP-0-RELATIONSHIP IZEROP-ILESSP-0-RELATIONSHIP-OFF1 . T) (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF . T) (EVAL$-LIST-BAGINT-0 EVAL$-LIST-BAGINT-0-OFF . T) (IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF . T) (ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-OFF . T) (ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF . T) (ITIMES-LIST-EVAL$-FACTORS-LEMMA ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF . T) (EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF . T) (ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T) (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF . T) (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF . T) (LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF2 . T) (LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-ON1) (LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF1 . T) (LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-ON) (ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-OFF1 . T) (IZEROP-ILESSP-0-RELATIONSHIP IZEROP-ILESSP-0-RELATIONSHIP-OFF . T) (ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-ON) (IPLUS-OR-ITIMES-TERM IPLUS-OR-ITIMES-TERM-OFF . T) (CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS-EXPANDED-OFF . T) (ITIMES-TREE-INEG ITIMES-TREE-INEG-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF . T) (LISTP-BAGINT-WITH-SINGLETON-MEMBER LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF . T) (ITIMES-LIST-EVAL$-LIST-0 ITIMES-LIST-EVAL$-LIST-0-OFF . T) (LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF . T) (EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T) (EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF . T) (EVAL$-ITIMES-TREE-NO-FIX-INT-1 EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 . T) (CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF . T) (EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF . T) (EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF . T) (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF . T) (IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF . T) (EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF . T) (EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF . T) (EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF . T) (EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF . T) (MEMBER-IZEROP-ITIMES-FRINGE MEMBER-IZEROP-ITIMES-FRINGE-OFF . T) (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T) (ITIMES-LIST-BAGDIFF ITIMES-LIST-BAGDIFF-OFF . T) (INTEGERP-EVAL$-ITIMES INTEGERP-EVAL$-ITIMES-OFF . T) (ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-EVAL$-FRINGE-OFF . T) (EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-OFF . T) (EVAL$-ITIMES-TREE-REC EVAL$-ITIMES-TREE-REC-OFF . T) (QUOTIENT-DIFFERENCE-LESSP-ARG2 QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF . T) (MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF . T) (EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF . T) (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF . T) (LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF . T) (LESSP-DIFFERENCE-PLUS-ARG1 LESSP-DIFFERENCE-PLUS-ARG1-OFF . T) (EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-BAGDIFF-OFF . T) (IPLUS-LIST-EVAL$-FRINGE IPLUS-LIST-EVAL$-FRINGE-OFF . T) (EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-OFF . T) (EVAL$-IPLUS-TREE-REC EVAL$-IPLUS-TREE-REC-OFF . T) (LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF . T) (EVAL$-IPLUS EVAL$-IPLUS-OFF . T) (EVAL$-CANCEL-IPLUS EVAL$-CANCEL-IPLUS-OFF . T) (SAME-FIX-INT-IMPLIES-NOT-ILESSP SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF . T) (ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF . T) (MAKE-CANCEL-ITIMES-INEQUALITY MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T) (ITIMES-TREE-NO-FIX-INT ITIMES-TREE-NO-FIX-INT-OFF . T) (CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF . T) (MAKE-CANCEL-ITIMES-EQUALITY MAKE-CANCEL-ITIMES-EQUALITY-OFF . T) (EVAL$-EQUAL EVAL$-EQUAL-ON) (ITIMES-LIST-EVAL$-DELETE ITIMES-LIST-EVAL$-DELETE-OFF . T) (ITIMES-TREE ITIMES-TREE-OFF . T) (IREM IREM-OFF . T) (IQUO IQUO-OFF . T) (IMOD IMOD-OFF . T) (IDIV IDIV-OFF . T) (IREMAINDER IREMAINDER-OFF . T) (IQUOTIENT IQUOTIENT-OFF . T) (ITIMES-ZERO2 ITIMES-ZERO2-OFF . T) (ITIMES-ZERO1 ITIMES-ZERO1-OFF . T) (MAKE-CANCEL-IPLUS-INEQUALITY-1 MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF . T) (IPLUS-TREE-NO-FIX-INT IPLUS-TREE-NO-FIX-INT-OFF . T) (IPLUS-INEG6 IPLUS-INEG6-OFF . T) (IPLUS-INEG5 IPLUS-INEG5-OFF . T) (IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-2-OFF . T) (IPLUS-INEG5-LEMMA-1 IPLUS-INEG5-LEMMA-1-OFF . T) (IPLUS-TREE IPLUS-TREE-OFF . T) (CANCEL-IPLUS CANCEL-IPLUS-OFF . T) (CORRECTNESS-OF-CANCEL-INEG-AUX CORRECTNESS-OF-CANCEL-INEG-AUX-OFF . T) (IPLUS-INEG-PROMOTE IPLUS-INEG-PROMOTE-OFF . T) (EVAL$ EVAL$-OFF . T) (EVAL$-QUOTE EVAL$-QUOTE-ON) (IPLUS-RIGHT-ID IPLUS-RIGHT-ID-OFF . T) (IPLUS-LEFT-ID IPLUS-LEFT-ID-OFF . T) (INEG-OF-NON-INTEGERP INEG-OF-NON-INTEGERP-OFF . T) (ITIMES ITIMES-OFF . T) (IABS IABS-OFF . T) (INEG INEG-OFF . T) (IPLUS IPLUS-OFF . T) (ILESSP ILESSP-OFF . T) (FIX-INT FIX-INT-OFF . T) (INTEGERP INTEGERP-OFF . T) (EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF . T) (ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF . T) (REMAINDER-EQUALS-ITS-FIRST-ARGUMENT REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF . T) (QUOTIENT-TIMES-TIMES QUOTIENT-TIMES-TIMES-OFF . T) (QUOTIENT-TIMES-INSTANCE-TEMP QUOTIENT-TIMES-INSTANCE-TEMP-OFF . T) (LESSP-PLUS-FACT LESSP-PLUS-FACT-OFF . T) (EQUAL-REMAINDER-DIFFERENCE-0 EQUAL-REMAINDER-DIFFERENCE-0-OFF . T) (REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE3-OFF . T) (REMAINDER-TIMES-TIMES REMAINDER-TIMES-TIMES-OFF . T) (EQUAL-REMAINDER-PLUS-REMAINDER EQUAL-REMAINDER-PLUS-REMAINDER-OFF . T) (PLUS-REMAINDER-TIMES-QUOTIENT PLUS-REMAINDER-TIMES-QUOTIENT-OFF . T) (CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF . T) (CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF . T) (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF . T) (ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF . T) (ZEROP-MAKES-LESSP-FALSE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF . T) (EVAL$-LESSP-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF . T) (TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-OF-TIMES-FRINGE-OFF . T) (TIMES-TREE-APPEND TIMES-TREE-APPEND-OFF . T) (ZEROP-MAKES-TIMES-TREE-ZERO2 ZEROP-MAKES-TIMES-TREE-ZERO2-OFF . T) (OR-ZEROP-TREE-IS-NOT-ZEROP-TREE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF . T) (ZEROP-MAKES-TIMES-TREE-ZERO ZEROP-MAKES-TIMES-TREE-ZERO-OFF . T) (EVAL$-TIMES-MEMBER EVAL$-TIMES-MEMBER-OFF . T) (EQUAL-TIMES-BRIDGE EQUAL-TIMES-BRIDGE-OFF . T) (EQUAL-TIMES-ARG1 EQUAL-TIMES-ARG1-OFF . T) (NUMBERP-EVAL$-TIMES-TREE NUMBERP-EVAL$-TIMES-TREE-OFF . T) (EVAL$-IF EVAL$-IF-OFF . T) (EVAL$-QUOTIENT EVAL$-QUOTIENT-OFF . T) (EVAL$-LESSP EVAL$-LESSP-OFF . T) (EVAL$-EQUAL EVAL$-EQUAL-OFF . T) (EVAL$-OR EVAL$-OR-OFF . T) (EVAL$-TIMES EVAL$-TIMES-OFF . T) (NUMBERP-EVAL$-TIMES NUMBERP-EVAL$-TIMES-OFF . T) (LESSP-TIMES-CANCELLATION1 LESSP-TIMES-CANCELLATION1-OFF . T) (LESSP-DIFFERENCE-CANCELLATION LESSP-DIFFERENCE-CANCELLATION-OFF . T) (LISTP-EVAL$ LISTP-EVAL$-OFF . T) (EVAL$-QUOTE EVAL$-QUOTE-OFF . T) (CADR-EVAL$-LIST CADR-EVAL$-LIST-OFF . T) (MEMBER-IMPLIES-NUMBERP MEMBER-IMPLIES-NUMBERP-OFF . T) (PLUS-TREE-PLUS-FRINGE PLUS-TREE-PLUS-FRINGE-OFF . T) (EVAL$-PLUS-TREE-APPEND EVAL$-PLUS-TREE-APPEND-OFF . T) (BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T) (NUMBERP-EVAL$-BRIDGE NUMBERP-EVAL$-BRIDGE-OFF . T) (PLUS-TREE-BAGDIFF PLUS-TREE-BAGDIFF-OFF . T) (SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T) (PLUS-TREE-DELETE PLUS-TREE-DELETE-OFF . T) (MEMBER-IMPLIES-PLUS-TREE-GREATEREQP MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T) (NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS-TREE-OFF . T) (NUMBERP-EVAL$-PLUS NUMBERP-EVAL$-PLUS-OFF . T) (DIFFERENCE-LESSP-ARG1 DIFFERENCE-LESSP-ARG1-OFF . T) (DIFF-DIFF-DIFF DIFF-DIFF-DIFF-OFF . T) (DIFF-SUB1-ARG2 DIFF-SUB1-ARG2-OFF . T) (DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF . T) (DIFFERENCE-PLUS-PLUS-CANCELLATION DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF . T) (DIFFERENCE-PLUS-CANCELLATION DIFFERENCE-PLUS-CANCELLATION-OFF . T) (DIFFERENCE-CANCELLATION DIFFERENCE-CANCELLATION-OFF . T) (PLUS-CANCELLATION PLUS-CANCELLATION-OFF . T) (LISTP-DELETE LISTP-DELETE-OFF . T) (APPLY$ GROUND-ZERO . T) (V&C-APPLY$ GROUND-ZERO . T)))) (SETQ *1*THM-MODE$ (QUOTE NQTHM)) (SETQ FREE-VARS-IN-REWRITE-RHSS (QUOTE NIL)) (SETQ CHRONOLOGY (QUOTE (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT*-OFF NAT-TO-V-OF-V-TO-NAT* NAT-TO-V-AS-REMAINDER LESSP-QUOTIENT-TEST-OFF LESSP-QUOTIENT-TEST V-ALU-CORRECT-INT-REWRITE-OFF V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-NAT-REWRITE-OFF V-ALU-CORRECT-NAT-REWRITE V-V-ALU C-V-ALU BV-V-ALU ZB-CVZBV V-CVZBV C-CVZBV BV-CVZBV V-NEG FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y EQUAL-SUB1-PLUS-X-X FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP--1 LENGTH-INT-TO-V NOT-V-NEGP-NAT-TO-V-0 INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-OFF INTEGER-IN-RANGEP-IPLUS-INEG NOT-INTEGERP-MINUS-ZERO INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS-OFF INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF INTEGER-IN-RANGEP-THE-OBVIOUS-WAY LESSP-REMAINDER-THEOREM EXP-2-L-1<=EXP-2-L SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT EXP-LINEAR-BOUNDS LESSP-A-PLUS-A-A INTEGER-IN-RANGEP-1 LESSP-1-PLUS-X-X NOT-EQUAL-IPLUS-MINUS-0 INTEGER-IN-RANGEP-MINUS-0 V-TO-INT-NAT-TO-V-0 BVP-INT-TO-V INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0-OFF REWRITE-EQUAL-V-TO-INT-0 V-NEGP->NEGATIVEP-V-TO-INT-OFF V-NEGP->NEGATIVEP-V-TO-INT NEGATIVEP-IDIFFERENCE-ON-NUMBERPS V-NEGP-AS-BOUNDS-OFF V-NEGP-AS-BOUNDS INTEGERP-V-TO-INT V-TO-NAT-LESSP-EXP-2-LENGTH IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY DIFFERENCE-LINEAR REMAINDER-THEOREM-FOR-SUBB FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR LESSP-V-TO-NAT-EXP-2-LENGTH-A LESSP-SUB1-PLUS-A-B-B V-NZEROP-NAT-TO-V V-NZEROP-NAT-TO-V$HELP-OFF V-NZEROP-NAT-TO-V$HELP QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP DOUBLE-DIFFERENCE-INDUCTION WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS N-V-ALU ZB-V-ALU OPCODE-THEORY OP-M15 OP-NOT OP-AND OP-OR OP-XOR OP-LSR OP-ASR OP-ROR OP-SUB OP-SUBB OP-DEC OP-NEG OP-ADD OP-ADDC OP-INC OP-MOVE CONDITION-CODE-THEORY CC-F CC-T CC-LE CC-GT CC-LT CC-GE CC-LS CC-HI CC-EQ CC-NE CC-MI CC-PL CC-VS CC-VC CC-CS CC-CC REWRITE-EQUAL-V-TO-NAT-0-OFF REWRITE-EQUAL-V-TO-NAT-0 V-NOT-V-NOT V-NZEROP-NAT-TO-V-ZERO V-TO-NAT-EQUAL BOOLP-FLAG-EXTRACTERS V-ZEROP-IMPLIES-V-TO-NAT-0 V-NEGP->V-NZEROP COMMUTATIVITY-OF-IPLUS-ON1 IPLUS-0-RIGHT-ON1 IPLUS-0-LEFT-ON1 V-TO-NAT-OF-NAT-TO-V-ON V-ALU-CORRECT-NAT-LSR-OFF1 V-ALU-CORRECT-INT-ASR-OFF1 V-ALU-CORRECT-NAT-ADDER-OFF1 V-ALU-CORRECT-NAT-INC-OFF1 V-ADDER-OUTPUT=V-SUM-OFF1 V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-INT-NOT-ON V-ALU-CORRECT-INT-NEG-ON V-ALU-CORRECT-INT-ASR-ON V-ALU-CORRECT-INT-ASR-OUTPUT-ON V-ALU-CORRECT-INT-DEC-ON V-ALU-CORRECT-INT-SUBTRACTER-ON V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON V-ALU-CORRECT-INT-INC-ON V-ALU-CORRECT-INT-ADDER-ON V-ALU-CORRECT-INT-ADDER-OUTPUT-ON V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON V-ALU-CORRECT-NAT-NOT-ON V-ALU-CORRECT-NAT-NOT-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-ON V-ALU-CORRECT-NAT-LSR-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON V-ALU-CORRECT-NAT-DEC-ON V-ALU-CORRECT-NAT-SUBTRACTER-ON V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON V-ALU-CORRECT-NAT-INC-ON V-ALU-CORRECT-NAT-ADDER-ON V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON V-ALU-CORRECT-NAT-INT-BUF-ON PLUS-QUOTIENT-2-ON PLUS-QUOTIENT-2-LEMMA-ON QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON EQUAL-IFF-ON EQUAL-NAT-TO-V-INVERTER-HACK2-ON EQUAL-NAT-TO-V-INVERTER-HACK1-ON V-TO-NAT-FIRSTN-HACK2-ON V-TO-NAT-FIRSTN-HACK1-ON V-ADDER-CARRY-OUT=V-CARRY-ON V-ADDER-OUTPUT=V-SUM-ON G*1*DELETE-OFF1 DELETE-OFF1 G*1*BAGDIFF-OFF1 BAGDIFF-OFF1 G*1*BAGINT-OFF1 BAGINT-OFF1 G*1*OCCURRENCES-OFF1 OCCURRENCES-OFF1 G*1*SUBBAGP-OFF1 SUBBAGP-OFF1 DELETE-NON-MEMBER-OFF1 DELETE-DELETE-OFF1 EQUAL-OCCURRENCES-ZERO-OFF1 MEMBER-NON-LIST-OFF1 MEMBER-DELETE-OFF1 MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 OCCURRENCES-DELETE-OFF1 MEMBER-BAGDIFF-OFF1 BAGDIFF-DELETE-OFF1 SUBBAGP-DELETE-OFF1 SUBBAGP-CDR1-OFF1 SUBBAGP-CDR2-OFF1 SUBBAGP-BAGINT1-OFF1 SUBBAGP-BAGINT2-OFF1 OCCURRENCES-BAGINT-OFF1 OCCURRENCES-BAGDIFF-OFF1 MEMBER-BAGINT-OFF1 EQUAL-PLUS-0-OFF1 EQUAL-DIFFERENCE-0-OFF1 COMMUTATIVITY-OF-PLUS-OFF1 COMMUTATIVITY2-OF-PLUS-OFF1 PLUS-ZERO-ARG2-OFF1 PLUS-ADD1-ARG1-OFF1 PLUS-ADD1-ARG2-OFF1 ASSOCIATIVITY-OF-PLUS-OFF1 PLUS-DIFFERENCE-ARG1-OFF1 PLUS-DIFFERENCE-ARG2-OFF1 DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 DIFF-DIFF-ARG1-OFF1 DIFF-DIFF-ARG2-OFF1 G*1*PLUS-FRINGE-OFF1 PLUS-FRINGE-OFF1 G*1*PLUS-TREE-OFF1 PLUS-TREE-OFF1 EVAL$-QUOTE-OFF2 G*1*CANCEL-EQUAL-PLUS-OFF1 CANCEL-EQUAL-PLUS-OFF1 G*1*CANCEL-DIFFERENCE-PLUS-OFF1 CANCEL-DIFFERENCE-PLUS-OFF1 DIFFERENCE-ELIM-OFF1 DIFFERENCE-LEQ-ARG1-OFF1 DIFFERENCE-ADD1-ARG2-OFF1 DIFFERENCE-SUB1-ARG2-OFF1 DIFFERENCE-DIFFERENCE-ARG1-OFF1 DIFFERENCE-DIFFERENCE-ARG2-OFF1 DIFFERENCE-X-X-OFF1 G*1*CANCEL-LESSP-PLUS-OFF1 CANCEL-LESSP-PLUS-OFF1 EQUAL-TIMES-0-OFF1 EQUAL-TIMES-1-OFF1 EQUAL-SUB1-0-OFF1 TIMES-ZERO-OFF1 TIMES-ADD1-OFF1 COMMUTATIVITY-OF-TIMES-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-OFF1 COMMUTATIVITY2-OF-TIMES-OFF1 ASSOCIATIVITY-OF-TIMES-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 TIMES-QUOTIENT-PROOF-OFF1 TIMES-QUOTIENT-OFF1 TIMES-1-ARG1-OFF1 LESSP-TIMES1-PROOF-OFF1 LESSP-TIMES1-OFF1 LESSP-TIMES2-PROOF-OFF1 LESSP-TIMES2-OFF1 LESSP-TIMES3-PROOF1-OFF1 LESSP-TIMES3-PROOF2-OFF1 LESSP-TIMES3-OFF1 LESSP-TIMES-CANCELLATION-PROOF-OFF1 LESSP-PLUS-TIMES-PROOF-OFF1 LESSP-PLUS-TIMES1-OFF1 LESSP-PLUS-TIMES2-OFF1 LESSP-1-TIMES-OFF1 G*1*TIMES-TREE-OFF1 TIMES-TREE-OFF1 G*1*TIMES-FRINGE-OFF1 TIMES-FRINGE-OFF1 G*1*OR-ZEROP-TREE-OFF1 OR-ZEROP-TREE-OFF1 G*1*AND-NOT-ZEROP-TREE-OFF1 AND-NOT-ZEROP-TREE-OFF1 EVAL$-EQUAL-OFF2 LESSP-TIMES-ARG1-OFF1 INFER-EQUALITY-FROM-NOT-LESSP-OFF1 G*1*CANCEL-LESSP-TIMES-OFF1 CANCEL-LESSP-TIMES-OFF1 G*1*CANCEL-EQUAL-TIMES-OFF1 CANCEL-EQUAL-TIMES-OFF1 LESSP-REMAINDER-OFF1 REMAINDER-NOOP-OFF1 REMAINDER-OF-NON-NUMBER-OFF1 REMAINDER-ZERO-OFF1 REMAINDER-QUOTIENT-ELIM-OFF1 REMAINDER-ADD1-OFF1 REMAINDER-PLUS-PROOF-OFF1 REMAINDER-PLUS-OFF1 EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 EQUAL-REMAINDER-PLUS-0-OFF1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 REMAINDER-TIMES1-PROOF-OFF1 REMAINDER-TIMES1-OFF1 REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 REMAINDER-TIMES1-INSTANCE-OFF1 REMAINDER-TIMES-TIMES-PROOF-OFF1 REMAINDER-TIMES2-PROOF-OFF1 REMAINDER-TIMES2-OFF1 REMAINDER-TIMES2-INSTANCE-OFF1 REMAINDER-DIFFERENCE1-OFF1 G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 DOUBLE-REMAINDER-INDUCTION-OFF1 REMAINDER-DIFFERENCE2-OFF1 REMAINDER-PLUS-FACT-OFF1 REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 REMAINDER-PLUS-TIMES-TIMES-OFF1 REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 REMAINDER-REMAINDER-OFF1 REMAINDER-1-ARG1-OFF1 REMAINDER-1-ARG2-OFF1 REMAINDER-X-X-OFF1 TRANSITIVITY-OF-DIVIDES-OFF1 QUOTIENT-NOOP-OFF1 QUOTIENT-OF-NON-NUMBER-OFF1 QUOTIENT-ZERO-OFF1 QUOTIENT-ADD1-OFF1 EQUAL-QUOTIENT-0-OFF1 QUOTIENT-SUB1-OFF1 QUOTIENT-PLUS-PROOF-OFF1 QUOTIENT-PLUS-OFF1 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 QUOTIENT-TIMES-PROOF-OFF1 QUOTIENT-TIMES-OFF1 QUOTIENT-TIMES-INSTANCE-OFF1 QUOTIENT-TIMES-TIMES-PROOF-OFF1 QUOTIENT-DIFFERENCE1-OFF1 QUOTIENT-LESSP-ARG1-OFF1 QUOTIENT-DIFFERENCE2-OFF1 QUOTIENT-DIFFERENCE3-OFF1 QUOTIENT-REMAINDER-TIMES-OFF1 QUOTIENT-REMAINDER-OFF1 QUOTIENT-REMAINDER-INSTANCE-OFF1 QUOTIENT-PLUS-FACT-OFF1 QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 QUOTIENT-PLUS-TIMES-TIMES-OFF1 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 QUOTIENT-QUOTIENT-OFF1 LEQ-QUOTIENT-OFF1 QUOTIENT-1-ARG2-OFF1 QUOTIENT-1-ARG1-CASESPLIT-OFF1 QUOTIENT-1-ARG1-OFF1 QUOTIENT-X-X-OFF1 LESSP-QUOTIENT-OFF1 G*1*CANCEL-QUOTIENT-TIMES-OFF1 CANCEL-QUOTIENT-TIMES-OFF1 G*1*EXP-OFF1 EXP-OFF1 G*1*LOG-OFF1 LOG-OFF1 G*1*GCD-OFF1 GCD-OFF1 REMAINDER-EXP-OFF1 G*1*DOUBLE-NUMBER-INDUCTION-OFF1 DOUBLE-NUMBER-INDUCTION-OFF1 REMAINDER-EXP-EXP-OFF1 QUOTIENT-EXP-OFF1 EXP-ZERO-OFF1 EXP-ADD1-OFF1 EXP-PLUS-OFF1 EXP-0-ARG1-OFF1 EXP-1-ARG1-OFF1 EXP-0-ARG2-OFF1 EXP-TIMES-OFF1 EXP-EXP-OFF1 EQUAL-EXP-0-OFF1 EQUAL-EXP-1-OFF1 EXP-DIFFERENCE-OFF1 EQUAL-LOG-0-OFF1 LOG-0-OFF1 LOG-1-OFF1 G*1*DOUBLE-LOG-INDUCTION-OFF1 DOUBLE-LOG-INDUCTION-OFF1 LEQ-LOG-LOG-OFF1 LOG-QUOTIENT-OFF1 LOG-QUOTIENT-TIMES-PROOF-OFF1 LOG-QUOTIENT-TIMES-OFF1 LOG-QUOTIENT-EXP-OFF1 LOG-TIMES-PROOF-OFF1 LOG-TIMES-OFF1 LOG-TIMES-EXP-PROOF-OFF1 LOG-TIMES-EXP-OFF1 LOG-EXP-OFF1 COMMUTATIVITY-OF-GCD-OFF1 G*1*SINGLE-NUMBER-INDUCTION-OFF1 SINGLE-NUMBER-INDUCTION-OFF1 GCD-0-OFF1 GCD-1-OFF1 EQUAL-GCD-0-OFF1 LESSP-GCD-OFF1 GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 GCD-PLUS-INSTANCE-TEMP-OFF1 GCD-PLUS-PROOF-OFF1 GCD-PLUS-OFF1 GCD-PLUS-INSTANCE-OFF1 REMAINDER-GCD-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 GCD-IS-THE-GREATEST-OFF1 COMMON-DIVISOR-DIVIDES-GCD-OFF1 ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 ASSOCIATIVITY-OF-GCD-OFF1 COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 COMMUTATIVITY2-OF-GCD-OFF1 GCD-X-X-OFF1 GCD-IDEMPOTENCE-OFF1 G*1*INTEGERP-OFF1 G*1*FIX-INT-OFF1 G*1*IZEROP-OFF1 IZEROP-OFF1 G*1*ILESSP-OFF1 G*1*ILEQ-OFF1 ILEQ-OFF1 G*1*IPLUS-OFF1 G*1*INEG-OFF1 G*1*IDIFFERENCE-OFF1 IDIFFERENCE-OFF1 G*1*IABS-OFF1 G*1*ITIMES-OFF1 G*1*IQUOTIENT-OFF1 G*1*IREMAINDER-OFF1 G*1*IDIV-OFF1 G*1*IMOD-OFF1 G*1*IQUO-OFF1 G*1*IREM-OFF1 INTEGERP-FIX-INT-OFF1 INTEGERP-IPLUS-OFF1 INTEGERP-IDIFFERENCE-OFF1 INTEGERP-INEG-OFF1 INTEGERP-IABS-OFF1 INTEGERP-ITIMES-OFF1 FIX-INT-REMOVER-OFF1 FIX-INT-FIX-INT-OFF1 FIX-INT-IPLUS-OFF1 FIX-INT-IDIFFERENCE-OFF1 FIX-INT-INEG-OFF1 FIX-INT-IABS-OFF1 FIX-INT-ITIMES-OFF1 INEG-IPLUS-OFF1 INEG-INEG-OFF1 INEG-FIX-INT-OFF1 INEG-0-OFF1 IPLUS-0-LEFT-OFF1 IPLUS-0-RIGHT-OFF1 COMMUTATIVITY2-OF-IPLUS-OFF1 COMMUTATIVITY-OF-IPLUS-OFF1 ASSOCIATIVITY-OF-IPLUS-OFF1 IPLUS-CANCELLATION-1-OFF1 IPLUS-CANCELLATION-2-OFF1 IPLUS-INEG1-OFF1 IPLUS-INEG2-OFF1 IPLUS-FIX-INT1-OFF1 IPLUS-FIX-INT2-OFF1 IDIFFERENCE-FIX-INT1-OFF1 IDIFFERENCE-FIX-INT2-OFF1 G*1*CANCEL-INEG-AUX-OFF1 CANCEL-INEG-AUX-OFF1 G*1*CANCEL-INEG-OFF1 CANCEL-INEG-OFF1 EVAL$-LIST-CONS-OFF1 EVAL$-LIST-NLISTP-OFF1 EVAL$-LITATOM-OFF1 EVAL$-OTHER-OFF1 G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 IPLUS-INEG3-OFF1 IPLUS-INEG4-OFF1 IPLUS-X-Y-INEG-X-OFF1 G*1*IPLUS-FRINGE-OFF1 IPLUS-FRINGE-OFF1 G*1*IPLUS-TREE-REC-OFF1 IPLUS-TREE-REC-OFF1 G*1*IPLUS-TREE-OFF1 G*1*IPLUS-LIST-OFF1 IPLUS-LIST-OFF1 INTEGERP-IPLUS-LIST-OFF1 EVAL$-LIST-APPEND-OFF1 G*1*CANCEL-IPLUS-OFF1 EVAL$-IPLUS-LIST-DELETE-OFF1 IPLUS-LIST-APPEND-OFF1 IPLUS-INEG7-OFF1 ILESSP-FIX-INT-1-OFF1 ILESSP-FIX-INT-2-OFF1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 G*1*CANCEL-IPLUS-ILESSP-1-OFF1 CANCEL-IPLUS-ILESSP-1-OFF1 IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 G*1*IPLUS-TREE-NO-FIX-INT-OFF1 G*1*CANCEL-IPLUS-ILESSP-OFF1 CANCEL-IPLUS-ILESSP-OFF1 ITIMES-0-LEFT-OFF1 ITIMES-0-RIGHT-OFF1 ITIMES-FIX-INT1-OFF1 ITIMES-FIX-INT2-OFF1 COMMUTATIVITY-OF-ITIMES-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 COMMUTATIVITY2-OF-ITIMES-OFF1 ASSOCIATIVITY-OF-ITIMES-OFF1 EQUAL-ITIMES-0-OFF1 EQUAL-ITIMES-1-OFF1 EQUAL-ITIMES-MINUS-1-OFF1 ITIMES-1-ARG1-OFF1 QUOTIENT-REMAINDER-UNIQUENESS-OFF1 DIVISION-THEOREM-PART1-OFF1 DIVISION-THEOREM-PART2-OFF1 DIVISION-THEOREM-PART3-OFF1 DIVISION-THEOREM-OFF1 IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 IDIV-IMOD-UNIQUENESS-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 IQUO-IREM-UNIQUENESS-OFF1 ITIMES-INEG-1-OFF1 ITIMES-INEG-2-OFF1 ITIMES-CANCELLATION-1-OFF1 ITIMES-CANCELLATION-2-OFF1 ITIMES-CANCELLATION-3-OFF1 INTEGERP-IQUOTIENT-OFF1 INTEGERP-IREMAINDER-OFF1 INTEGERP-IDIV-OFF1 INTEGERP-IMOD-OFF1 INTEGERP-IQUO-OFF1 INTEGERP-IREM-OFF1 IQUOTIENT-FIX-INT1-OFF1 IQUOTIENT-FIX-INT2-OFF1 IREMAINDER-FIX-INT1-OFF1 IREMAINDER-FIX-INT2-OFF1 IDIV-FIX-INT1-OFF1 IDIV-FIX-INT2-OFF1 IMOD-FIX-INT1-OFF1 IMOD-FIX-INT2-OFF1 IQUO-FIX-INT1-OFF1 IQUO-FIX-INT2-OFF1 IREM-FIX-INT1-OFF1 IREM-FIX-INT2-OFF1 FIX-INT-IQUOTIENT-OFF1 FIX-INT-IREMAINDER-OFF1 FIX-INT-IDIV-OFF1 FIX-INT-IMOD-OFF1 FIX-INT-IQUO-OFF1 FIX-INT-IREM-OFF1 G*1*ITIMES-FRINGE-OFF1 ITIMES-FRINGE-OFF1 G*1*ITIMES-TREE-REC-OFF1 ITIMES-TREE-REC-OFF1 G*1*ITIMES-TREE-OFF1 G*1*ITIMES-LIST-OFF1 ITIMES-LIST-OFF1 INTEGERP-ITIMES-LIST-OFF1 G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 G*1*CANCEL-ITIMES-OFF1 CANCEL-ITIMES-OFF1 ITIMES-LIST-APPEND-OFF1 MEMBER-APPEND-OFF1 EQUAL-FIX-INT-OFF1 G*1*SUBSETP-OFF1 SUBSETP-OFF1 G*1*ITIMES-TREE-NO-FIX-INT-OFF1 G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 G*1*CANCEL-ITIMES-ILESSP-OFF1 CANCEL-ITIMES-ILESSP-OFF1 ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 ILESSP-STRICT-OFF1 G*1*ITIMES-TREE-INEG-OFF1 G*1*ITIMES-FACTORS-OFF1 ITIMES-FACTORS-OFF1 ITIMES--1-OFF1 EQUAL-INEG-INEG-OFF1 ILESSP-INEG-INEG-OFF1 FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 EVAL$-ITIMES-TREE-INEG-OFF1 INEG-EVAL$-ITIMES-TREE-INEG-OFF1 IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 G*1*IPLUS-OR-ITIMES-TERM-OFF1 G*1*CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS-OFF1 G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 MEMBER-0-EVAL$-LIST-OFF1 G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CANCEL-ITIMES-ILESSP-FACTORS-OFF1 BAGINT-SINGLETON-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 EQUAL-FIX-INT-TO-ILESSP-OFF1 G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 DISJOIN-EQUALITIES-WITH-0-OFF1 G*1*CANCEL-FACTORS-0-OFF1 CANCEL-FACTORS-0-OFF1 G*1*SOME-EVAL$S-TO-0-OFF1 SOME-EVAL$S-TO-0-OFF1 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 SOME-EVAL$S-TO-0-APPEND-OFF1 SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 CONJOIN-INEQUALITIES-WITH-0-OFF1 G*1*CANCEL-FACTORS-ILESSP-0-OFF1 CANCEL-FACTORS-ILESSP-0-OFF1 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 G*1*SPLIT-OUT-INEG-TERMS-OFF1 SPLIT-OUT-INEG-TERMS-OFF1 G*1*REMOVE-INEGS-OFF1 G*1*IPLUS-OR-INEG-TERM-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 IPLUS-CONSTANTS-OFF1 CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 CANCEL-CONSTANTS-EQUAL-OFF1 ILESSP-ADD1-OFF1 ILESSP-ADD1-IPLUS-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 CANCEL-CONSTANTS-ILESSP-OFF1 B-APPROX-OFF2 B-KNOWNP-OFF2 DOUBLET-P-OFF1 OPEN-NTH-ON1 DP-RAM-16X32-MONOTONE-OFF1 DP-RAM-16X32-MONOTONE-STATE-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 MEM-WIDTH-LINEAR-FACTS-OFF1 V-APPROX-PRESERVES-PROPERP-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 MEM-WIDTH-NON-ZERO-OFF1 V-APPROX-SUBRANGE-OFF1 V-APPROX-PRESERVES-LENGTH-OFF1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 S-APPROX-CONSTANT-RAM-X-ID-OFF1 S-APPROX-WRITE-MEM-ID-OFF1 S-APPROX-WRITE-MEM1-ID-OFF1 V-APPROX-LENGTH-OFF1 WRITE-MEM-MONOTONE-OFF1 WRITE-MEM1-MONOTONE-OFF1 WRITE-MEM1-OPENER-OFF1 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 S-APPROX-OPENER-OFF1 BVP-ON1 DP-RAM-16X32-MONOTONE-VALUE-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 EVAL$-APPEND-2-OFF1 EVAL$-PAIRLIST-CONS-OFF1 EVAL$-APPEND-OFF1 DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 EQUAL-LENGTH-READ-MEM-OFF1 EQUAL-LENGTH-READ-MEM1-OFF1 READ-MEM-MONOTONE-OFF1 V-APPROX-MAKE-LIST-X-OFF1 V-APPROX-BVP-SUBRANGE-OFF1 V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 G*1*B-KNOWNP-OFF2 V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 BVP-IMPLIES-V-KNOWNP-OFF1 READ-MEM1-MONOTONE-OFF1 V-APPROX-BVP-OFF1 BVP-REVERSE-OFF1 F-PULLUP-OFF1 FT-WIRE-OFF1 FT-BUF-OFF1 F-IF-OFF1 F-EQUV3-OFF1 F-EQUV-OFF1 F-XOR3-OFF1 F-XOR-OFF1 F-NOR8-OFF1 F-NOR6-OFF1 F-NOR5-OFF1 F-NOR4-OFF1 F-NOR3-OFF1 F-NOR-OFF1 F-OR4-OFF1 F-OR3-OFF1 F-OR-OFF1 F-NAND8-OFF1 F-NAND6-OFF1 F-NAND5-OFF1 F-NAND4-OFF1 F-NAND3-OFF1 F-NAND-OFF1 F-NOT-OFF1 F-AND4-OFF1 F-AND3-OFF1 F-AND-OFF1 F-BUF-OFF1 MONOTONICITY-PROPERTY-OPENER-3-OFF1 MONOTONICITY-PROPERTY-OPENER-2-OFF1 MONOTONICITY-PROPERTY-OPENER-1-OFF1 MONOTONICITY-PROPERTY-OPENER-0-OFF1 MONOTONICITY-PROPERTY-OFF1 B-KNOWNP-COMPOUND-RECOGNIZER-ON G*1*B-APPROX-ON G*1*V-APPROX-ON V-APPROX-ON1 G*1*V-KNOWNP-ON V-KNOWNP-ON1 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON G*1*MEM-WIDTH-ON1 MEM-WIDTH-ON1 G*1*S-APPROX-ON S-APPROX-ON1 S-APPROX-X-X-ON G*1*GOOD-S-ON GOOD-S-ON G*1*S-KNOWNP-ON S-KNOWNP-ON1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1 G*1*V-APPROX-ALIST-ON V-APPROX-ALIST-ON G*1*S-APPROX-ALIST-ON S-APPROX-ALIST-ON G*1*MONOTONICITY-PROPERTY-ON MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON F-BUF-MONOTONE-ON F-AND-MONOTONE-ON F-AND3-MONOTONE-ON F-AND4-MONOTONE-ON F-NOT-MONOTONE-ON F-NAND-MONOTONE-ON F-NAND3-MONOTONE-ON F-NAND4-MONOTONE-ON F-NAND5-MONOTONE-ON F-NAND6-MONOTONE-ON F-NAND8-MONOTONE-ON F-OR-MONOTONE-ON F-OR3-MONOTONE-ON F-OR4-MONOTONE-ON F-NOR-MONOTONE-ON F-NOR3-MONOTONE-ON F-NOR4-MONOTONE-ON F-NOR5-MONOTONE-ON F-NOR6-MONOTONE-ON F-NOR8-MONOTONE-ON F-XOR-MONOTONE-ON F-EQUV-MONOTONE-ON F-XOR3-MONOTONE-ON F-EQUV3-MONOTONE-ON F-IF-MONOTONE-ON FT-BUF-MONOTONE-ON FT-WIRE-MONOTONE-ON F-PULLUP-MONOTONE-ON DUAL-EVAL-0-PRIMP-ON DUAL-EVAL-2-PRIMP-ON S-APPROX-IMPLIES-B-APPROX-ON F-BUF-TYPE-SET-ON FOURP-F-BUF-ON FOURP-F-IF-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1 DUAL-EVAL-AO2-VALUE-ON DUAL-EVAL-AO2-STATE-ON AO2-MONOTONE-ON DUAL-EVAL-AO4-VALUE-ON DUAL-EVAL-AO4-STATE-ON AO4-MONOTONE-ON DUAL-EVAL-AO6-VALUE-ON DUAL-EVAL-AO6-STATE-ON AO6-MONOTONE-ON DUAL-EVAL-AO7-VALUE-ON DUAL-EVAL-AO7-STATE-ON AO7-MONOTONE-ON DUAL-EVAL-B-AND-VALUE-ON DUAL-EVAL-B-AND-STATE-ON B-AND-MONOTONE-ON DUAL-EVAL-B-AND3-VALUE-ON DUAL-EVAL-B-AND3-STATE-ON B-AND3-MONOTONE-ON DUAL-EVAL-B-AND4-VALUE-ON DUAL-EVAL-B-AND4-STATE-ON B-AND4-MONOTONE-ON DUAL-EVAL-B-EQUV-VALUE-ON DUAL-EVAL-B-EQUV-STATE-ON B-EQUV-MONOTONE-ON DUAL-EVAL-B-EQUV3-VALUE-ON DUAL-EVAL-B-EQUV3-STATE-ON B-EQUV3-MONOTONE-ON DUAL-EVAL-B-IF-VALUE-ON DUAL-EVAL-B-IF-STATE-ON B-IF-MONOTONE-ON DUAL-EVAL-B-NAND-VALUE-ON DUAL-EVAL-B-NAND-STATE-ON B-NAND-MONOTONE-ON DUAL-EVAL-B-NAND3-VALUE-ON DUAL-EVAL-B-NAND3-STATE-ON B-NAND3-MONOTONE-ON DUAL-EVAL-B-NAND4-VALUE-ON DUAL-EVAL-B-NAND4-STATE-ON B-NAND4-MONOTONE-ON DUAL-EVAL-B-NAND5-VALUE-ON DUAL-EVAL-B-NAND5-STATE-ON B-NAND5-MONOTONE-ON DUAL-EVAL-B-NAND6-VALUE-ON DUAL-EVAL-B-NAND6-STATE-ON B-NAND6-MONOTONE-ON DUAL-EVAL-B-NAND8-VALUE-ON DUAL-EVAL-B-NAND8-STATE-ON B-NAND8-MONOTONE-ON DUAL-EVAL-B-NBUF-VALUE-ON DUAL-EVAL-B-NBUF-STATE-ON B-NBUF-MONOTONE-ON DUAL-EVAL-B-NOR-VALUE-ON DUAL-EVAL-B-NOR-STATE-ON B-NOR-MONOTONE-ON DUAL-EVAL-B-NOR3-VALUE-ON DUAL-EVAL-B-NOR3-STATE-ON B-NOR3-MONOTONE-ON DUAL-EVAL-B-NOR4-VALUE-ON DUAL-EVAL-B-NOR4-STATE-ON B-NOR4-MONOTONE-ON DUAL-EVAL-B-NOR5-VALUE-ON DUAL-EVAL-B-NOR5-STATE-ON B-NOR5-MONOTONE-ON DUAL-EVAL-B-NOR6-VALUE-ON DUAL-EVAL-B-NOR6-STATE-ON B-NOR6-MONOTONE-ON DUAL-EVAL-B-NOR8-VALUE-ON DUAL-EVAL-B-NOR8-STATE-ON B-NOR8-MONOTONE-ON DUAL-EVAL-B-NOT-VALUE-ON DUAL-EVAL-B-NOT-STATE-ON B-NOT-MONOTONE-ON DUAL-EVAL-B-NOT-B4IP-VALUE-ON DUAL-EVAL-B-NOT-B4IP-STATE-ON B-NOT-B4IP-MONOTONE-ON DUAL-EVAL-B-NOT-IVAP-VALUE-ON DUAL-EVAL-B-NOT-IVAP-STATE-ON B-NOT-IVAP-MONOTONE-ON DUAL-EVAL-B-OR-VALUE-ON DUAL-EVAL-B-OR-STATE-ON B-OR-MONOTONE-ON DUAL-EVAL-B-OR3-VALUE-ON DUAL-EVAL-B-OR3-STATE-ON B-OR3-MONOTONE-ON DUAL-EVAL-B-OR4-VALUE-ON DUAL-EVAL-B-OR4-STATE-ON B-OR4-MONOTONE-ON DUAL-EVAL-B-XOR-VALUE-ON DUAL-EVAL-B-XOR-STATE-ON B-XOR-MONOTONE-ON DUAL-EVAL-B-XOR3-VALUE-ON DUAL-EVAL-B-XOR3-STATE-ON B-XOR3-MONOTONE-ON DUAL-EVAL-DEL2-VALUE-ON DUAL-EVAL-DEL2-STATE-ON DEL2-MONOTONE-ON DUAL-EVAL-DEL4-VALUE-ON DUAL-EVAL-DEL4-STATE-ON DEL4-MONOTONE-ON DUAL-EVAL-DEL10-VALUE-ON DUAL-EVAL-DEL10-STATE-ON DEL10-MONOTONE-ON DUAL-EVAL-PROCMON-VALUE-ON DUAL-EVAL-PROCMON-STATE-ON PROCMON-MONOTONE-ON DUAL-EVAL-FD1-VALUE-ON DUAL-EVAL-FD1-STATE-ON FD1-MONOTONE-ON DUAL-EVAL-FD1S-VALUE-ON DUAL-EVAL-FD1S-STATE-ON FD1S-MONOTONE-ON DUAL-EVAL-FD1SP-VALUE-ON DUAL-EVAL-FD1SP-STATE-ON FD1SP-MONOTONE-ON DUAL-EVAL-FD1SLP-VALUE-ON DUAL-EVAL-FD1SLP-STATE-ON FD1SLP-MONOTONE-ON DUAL-EVAL-ID-VALUE-ON DUAL-EVAL-ID-STATE-ON ID-MONOTONE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON RAM-ENABLE-CIRCUIT-MONOTONE-ON DUAL-EVAL-T-BUF-VALUE-ON DUAL-EVAL-T-BUF-STATE-ON T-BUF-MONOTONE-ON DUAL-EVAL-T-WIRE-VALUE-ON DUAL-EVAL-T-WIRE-STATE-ON T-WIRE-MONOTONE-ON DUAL-EVAL-PULLUP-VALUE-ON DUAL-EVAL-PULLUP-STATE-ON PULLUP-MONOTONE-ON DUAL-EVAL-TTL-BIDIRECT-VALUE-ON DUAL-EVAL-TTL-BIDIRECT-STATE-ON TTL-BIDIRECT-MONOTONE-ON DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON DUAL-EVAL-TTL-CLK-INPUT-STATE-ON TTL-CLK-INPUT-MONOTONE-ON DUAL-EVAL-TTL-INPUT-VALUE-ON DUAL-EVAL-TTL-INPUT-STATE-ON TTL-INPUT-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-VALUE-ON DUAL-EVAL-TTL-OUTPUT-STATE-ON TTL-OUTPUT-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON TTL-OUTPUT-PARAMETRIC-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON TTL-OUTPUT-FAST-MONOTONE-ON DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON TTL-TRI-OUTPUT-MONOTONE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON TTL-TRI-OUTPUT-FAST-MONOTONE-ON DUAL-EVAL-VDD-VALUE-ON DUAL-EVAL-VDD-STATE-ON VDD-MONOTONE-ON DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON DUAL-EVAL-VDD-PARAMETRIC-STATE-ON VDD-PARAMETRIC-MONOTONE-ON DUAL-EVAL-VSS-VALUE-ON DUAL-EVAL-VSS-STATE-ON VSS-MONOTONE-ON BVP-REV1-ON G*1*READ-MEM1-MONOTONE-INDUCTION-ON READ-MEM1-MONOTONE-INDUCTION-ON V-APPROX-X-X-ON1 G*1*DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-BODY-ON G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON WRITE-MEM1-MONOTONE-INDUCTION-ON G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON WRITE-MEM1-DOUBLE-INDUCTION-ON DUAL-PORT-RAM-STATE-MONOTONE-ON G*1*DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-BODY-ON G*1*OK-NETLISTP-ON OK-NETLISTP-ON PRIMP-MONOTONE-ON G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON DUAL-EVAL-MONOTONE-INDUCTION-ON V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON ALISTP-PAIRLIST-ON ALISTP-APPEND-ON ALISTP-DUAL-EVAL-1-ON V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON G*1*S-APPROX-LIST-ON S-APPROX-LIST-ON S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON V-APPROX-IMPLIES-V-APPROX-ALIST-ON ALISTP-OPENER-ON S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON V-APPROX-ALIST-APPEND-ON G*1*DOUBLE-CDR-INDUCTION-ON DOUBLE-CDR-INDUCTION-ON S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON ALISTP-DUAL-EVAL-3-ON S-APPROX-IMPLIES-S-APPROX-ALIST-ON S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON OK-NETLISTP-REDUCTION-ON OK-NETLISTP-REDUCTION-REWRITE-ON DUAL-EVAL-MONOTONE-NO-RAM-ON G*1*GOOD-S-ALIST-ON GOOD-S-ALIST-ON GOOD-S-ALIST-PAIRLIST-ON GOOD-S-VALUE-ON DUAL-EVAL-MONOTONE-ON GOOD-S-COLLECT-VALUE-ON F-BUF-PRESERVES-GOOD-S-ON F-IF-PRESERVES-GOOD-S-ON GOOD-S-0-ON AO2-PRESERVES-GOOD-S-ON AO4-PRESERVES-GOOD-S-ON AO6-PRESERVES-GOOD-S-ON AO7-PRESERVES-GOOD-S-ON B-AND-PRESERVES-GOOD-S-ON B-AND3-PRESERVES-GOOD-S-ON B-AND4-PRESERVES-GOOD-S-ON B-EQUV-PRESERVES-GOOD-S-ON B-EQUV3-PRESERVES-GOOD-S-ON B-IF-PRESERVES-GOOD-S-ON B-NAND-PRESERVES-GOOD-S-ON B-NAND3-PRESERVES-GOOD-S-ON B-NAND4-PRESERVES-GOOD-S-ON B-NAND5-PRESERVES-GOOD-S-ON B-NAND6-PRESERVES-GOOD-S-ON B-NAND8-PRESERVES-GOOD-S-ON B-NBUF-PRESERVES-GOOD-S-ON B-NOR-PRESERVES-GOOD-S-ON B-NOR3-PRESERVES-GOOD-S-ON B-NOR4-PRESERVES-GOOD-S-ON B-NOR5-PRESERVES-GOOD-S-ON B-NOR6-PRESERVES-GOOD-S-ON B-NOR8-PRESERVES-GOOD-S-ON B-NOT-PRESERVES-GOOD-S-ON B-NOT-B4IP-PRESERVES-GOOD-S-ON B-NOT-IVAP-PRESERVES-GOOD-S-ON B-OR-PRESERVES-GOOD-S-ON B-OR3-PRESERVES-GOOD-S-ON B-OR4-PRESERVES-GOOD-S-ON B-XOR-PRESERVES-GOOD-S-ON B-XOR3-PRESERVES-GOOD-S-ON DEL2-PRESERVES-GOOD-S-ON DEL4-PRESERVES-GOOD-S-ON DEL10-PRESERVES-GOOD-S-ON PROCMON-PRESERVES-GOOD-S-ON FD1-PRESERVES-GOOD-S-ON FD1S-PRESERVES-GOOD-S-ON FD1SP-PRESERVES-GOOD-S-ON FD1SLP-PRESERVES-GOOD-S-ON ID-PRESERVES-GOOD-S-ON RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON T-BUF-PRESERVES-GOOD-S-ON T-WIRE-PRESERVES-GOOD-S-ON PULLUP-PRESERVES-GOOD-S-ON TTL-BIDIRECT-PRESERVES-GOOD-S-ON TTL-CLK-INPUT-PRESERVES-GOOD-S-ON TTL-INPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON VDD-PRESERVES-GOOD-S-ON VDD-PARAMETRIC-PRESERVES-GOOD-S-ON VSS-PRESERVES-GOOD-S-ON GOOD-S-CONSTANT-RAM-ON GOOD-S-WRITE-MEM-1-ON GOOD-S-WRITE-MEM-ON DP-RAM-16X32-PRESERVES-GOOD-S-ON PRIMP-PRESERVES-GOOD-S-ON GOOD-S-PRESERVED-ON G*1*V-APPROX-LIST-ON V-APPROX-LIST-ON G*1*V-S-APPROX-LIST-ON V-S-APPROX-LIST-ON G*1*NAT-LST-LST-INDUCTION-ON NAT-LST-LST-INDUCTION-ON V-APPROX-CAR-NTH-ON S-APPROX-CADR-NTH-ON G*1*SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-ON V-APPROX-LIST-X-X-ON G*1*DOUBLET-P-ON G*1*DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-ON DOUBLET-P-EQUAL-APPROX-ON LENGTH-SIMULATE-ON XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON XS-SUFFICE-FOR-RESET-LEMMA-ON G*1*COMPILE-UNCOMPILED-DEFNS-ON COMPILE-UNCOMPILED-DEFNS-ON2 G*1*UNKNOWN-REGFILE-ON UNKNOWN-REGFILE-ON G*1*UNKNOWN-MACHINE-STATE-ON UNKNOWN-MACHINE-STATE-ON G*1*UNKNOWN-MEMORY-STATE-ON UNKNOWN-MEMORY-STATE-ON G*1*UNKNOWN-STATE-ON UNKNOWN-STATE-ON CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON G*1*RESET-VECTOR-ON RESET-VECTOR-ON G*1*RUN-VECTOR-ON RUN-VECTOR-ON G*1*RESET-SEQUENCE-ON RESET-SEQUENCE-ON CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON G*1*INITIALIZED-REGFILE-ON INITIALIZED-REGFILE-ON G*1*INITIALIZED-MACHINE-STATE-ON INITIALIZED-MACHINE-STATE-ON G*1*INITIALIZED-MEMORY-STATE-ON INITIALIZED-MEMORY-STATE-ON G*1*FINAL-STATE-ON FINAL-STATE-ON RESET-WORKS-ON UNKNOWN-STATE-OKP-ON FINAL-STATE-OKP-ON INSTANCE-THEOREM-ON FM9001-STATEP-MAP-UP-FINAL-STATE-ON G*1*RESET-VECTOR-CHIP-ON RESET-VECTOR-CHIP-ON G*1*RUN-VECTOR-CHIP-1-ON RUN-VECTOR-CHIP-1-ON G*1*RUN-VECTOR-CHIP-2-ON RUN-VECTOR-CHIP-2-ON G*1*RESET-SEQUENCE-CHIP-1-ON RESET-SEQUENCE-CHIP-1-ON G*1*RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-1-VS-2-ON SIMULATE-RESET-CHIP-FINAL-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON G*1*V-FOURP-ON V-FOURP-ON G*1*ALL-XS-ON ALL-XS-ON ALL-XS-APPROXIMATES-ON ALL-XS-MAKE-LIST-ON G*1*MEMORY-V-FOURP-ON MEMORY-V-FOURP-ON G*1*NEW-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT-ON S-APPROX-MAKE-LIST-ON V-FOURP-IMPLIES-PROPERP-ON LISTP-IMPLIES-NOT-FOURP-ON RAMP-IMPLIES-NOT-FOURP-ON ROMP-IMPLIES-NOT-FOURP-ON STUBP-IMPLIES-NOT-FOURP-ON B-APPROX-X-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON GOOD-S-OPENER-ON MEMORY-V-FOURP-IMPLIES-GOOD-S-ON V-FOURP-IS-GOOD-S-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON CADR-MAP-UP-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON LENGTH-RESET-SEQUENCE-CHIP-1-ON RESET-CHIP-ON RESET-CHIP-FROM-ANY-STATE-ON CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON CHIP-WELL-FORMED-ON CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON CHIP-WELL-FORMED-SIMPLE-ON FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 MAP-DOWN-INVERTS-MAP-UP-OFF1 G*1*B-TO-NAT-OFF B-TO-NAT-OFF BVP-CDR-OFF G*1*V-ALU-NAT-INT-BUF-OFF V-ALU-NAT-INT-BUF-OFF NTH-LENGTH-V-OFF REMAINDER-PLUS-MULTIPLE-OFF DIVIDES-PLUS-PLUS-OFF REMAINDER-ADD1-PLUS-MULTIPLE-OFF V-TO-NAT-FIRSTN-OFF V-TO-NAT-OF-NAT-TO-V-HACK-OFF V-TO-NAT-OF-NAT-TO-V-OFF REMAINDER-PLUS-X-X-2-OFF QUOTIENT-PLUS-X-X-2-OFF NAT-TO-V-PLUS-X-X-OFF FIRSTN-ADD1-CONS-OFF FIRSTN-ZEROP-OFF FIRSTN-NLISTP-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF FIRSTN-LENGTH-OFF NAT-TO-V-OF-V-TO-NAT-OFF NAT-TO-V-ZEROP-OFF EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF NAT-TO-V-REMAINDER-OFF EQUAL-NAT-TO-V-INVERTER-OFF V-TO-NAT-V-NOT-LEMMA-OFF V-TO-NAT-V-NOT-OFF LESSP-V-TO-NAT-EXP-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF LESSP-V-TO-NAT-EXP-REWRITE-OFF NOT-LESSP-QUOTIENT-OFF V-TO-NAT-APPEND-OFF G*1*V-ALU-NAT-ADDER-OUTPUT-OFF V-ALU-NAT-ADDER-OUTPUT-OFF G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF V-ALU-NAT-ADDER-CARRY-OUT-OFF G*1*V-ALU-NAT-ADDER-OFF V-ALU-NAT-ADDER-OFF G*1*V-ALU-NAT-INC-OFF V-ALU-NAT-INC-OFF G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-NAT-SUBTRACTER-OUTPUT-OFF G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF G*1*V-ALU-NAT-SUBTRACTER-OFF V-ALU-NAT-SUBTRACTER-OFF G*1*V-ALU-NAT-DEC-OFF V-ALU-NAT-DEC-OFF G*1*V-ALU-NAT-LSR-OUTPUT-OFF V-ALU-NAT-LSR-OUTPUT-OFF G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF V-ALU-NAT-LSR-CARRY-OUT-OFF G*1*V-ALU-NAT-LSR-OFF V-ALU-NAT-LSR-OFF G*1*V-ALU-NAT-NOT-OUTPUT-OFF V-ALU-NAT-NOT-OUTPUT-OFF G*1*V-ALU-NAT-NOT-OFF V-ALU-NAT-NOT-OFF G*1*V-ALU-NAT-OFF V-ALU-NAT-OFF V-ALU-CORRECT-NAT-OFF G*1*INT-TO-V-OFF INT-TO-V-OFF G*1*V-TO-INT-OFF V-TO-INT-OFF G*1*INTEGER-IN-RANGEP-OFF INTEGER-IN-RANGEP-OFF IPLUS-PLUS-OFF ILESSP-LESSP-OFF TIMES-2-OFF B-TO-NAT-LEQ-OFF LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF FIX-INT-NUMBERP-OFF IPLUS3-PLUS-DIFFERENCE-OFF V-TO-INT-V-NOT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF IDIFFERENCE-DIFFERENCE-OFF IDIV-QUOTIENT-OFF IDIV-ILESSP-0-OFF IPLUS-DIV-HACK1-OFF LESSP-QUOTIENT-2-OFF G*1*V-ALU-INT-ADDER-OUTPUT-OFF V-ALU-INT-ADDER-OUTPUT-OFF G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF V-ALU-INT-ADDER-OVERFLOWP-OFF G*1*V-ALU-INT-ADDER-OFF V-ALU-INT-ADDER-OFF G*1*V-ALU-INT-INC-OFF V-ALU-INT-INC-OFF G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF V-ALU-INT-SUBTRACTER-OUTPUT-OFF G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF G*1*V-ALU-INT-SUBTRACTER-OFF V-ALU-INT-SUBTRACTER-OFF G*1*V-ALU-INT-DEC-OFF V-ALU-INT-DEC-OFF G*1*V-ALU-INT-ASR-OUTPUT-OFF V-ALU-INT-ASR-OUTPUT-OFF G*1*V-ALU-INT-ASR-OFF V-ALU-INT-ASR-OFF G*1*V-ALU-INT-NEG-OFF V-ALU-INT-NEG-OFF G*1*V-ALU-INT-NOT-OUTPUT-OFF V-ALU-INT-NOT-OUTPUT-OFF G*1*V-ALU-INT-NOT-OFF V-ALU-INT-NOT-OFF V-ALU-CORRECT-INT-NOT-OUTPUT-OFF G*1*V-ALU-INT-OFF V-ALU-INT-OFF V-ALU-CORRECT-INT-OFF V-ALU-CORRECT-INT-NOT-OFF V-ALU-CORRECT-INT-NEG-OFF V-ALU-CORRECT-INT-ASR-OFF V-ALU-CORRECT-INT-ASR-OUTPUT-OFF V-ALU-CORRECT-INT-DEC-OFF V-ALU-CORRECT-INT-SUBTRACTER-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-CORRECT-INT-INC-OFF V-ALU-CORRECT-INT-ADDER-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF V-ALU-CORRECT-NAT-NOT-OFF V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-NAT-LSR-OFF V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF V-ALU-CORRECT-NAT-DEC-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-INC-OFF V-ALU-CORRECT-NAT-ADDER-OFF V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-INT-BUF-OFF V-ALU-CORRECT-INT V-ALU-INT V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-NOT V-ALU-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-INT-NEG V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC V-ALU-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-INC V-ALU-INT-INC V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT LESSP-QUOTIENT-2 PLUS-QUOTIENT-2-OFF PLUS-QUOTIENT-2-LEMMA-OFF QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF IPLUS-DIV-HACK1 PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-LEMMA QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG IDIV-ILESSP-0 IDIV-QUOTIENT IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE FIX-INT-NUMBERP LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED B-TO-NAT-LEQ TIMES-2 ILESSP-LESSP IPLUS-PLUS INTEGER-IN-RANGEP V-TO-INT INT-TO-V V-ALU-CORRECT-NAT V-ALU-NAT V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-NAT-NOT V-ALU-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-DEC V-ALU-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-INC V-ALU-NAT-INC V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT V-TO-NAT-APPEND NOT-LESSP-QUOTIENT LESSP-V-TO-NAT-EXP-REWRITE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA EQUAL-IFF-OFF EQUAL-IFF LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2-OFF EQUAL-NAT-TO-V-INVERTER-HACK1-OFF EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 NAT-TO-V-REMAINDER EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 NAT-TO-V-ZEROP NAT-TO-V-OF-V-TO-NAT FIRSTN-LENGTH NAT-TO-V-OF-V-TO-NAT-GENERAL FIRSTN-NLISTP FIRSTN-ZEROP FIRSTN-ADD1-CONS NAT-TO-V-PLUS-X-X QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2-OFF V-TO-NAT-FIRSTN-HACK1-OFF V-TO-NAT-FIRSTN V-TO-NAT-FIRSTN-HACK2 REMAINDER-ADD1-PLUS-MULTIPLE V-TO-NAT-FIRSTN-HACK1 DIVIDES-PLUS-PLUS REMAINDER-PLUS-MULTIPLE NTH-LENGTH-V V-ALU-CORRECT-NAT-INT-BUF V-ALU-NAT-INT-BUF CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-OFF1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-IPLUS-OFF1 CORRECTNESS-OF-CANCEL-INEG-OFF1 INTEGER-METAS BVP-CDR V-ADDER-CARRY-OUT=V-CARRY-OFF V-ADDER-OUTPUT=V-SUM-OFF B-TO-NAT G*1*DELETE-ON DELETE-ON G*1*BAGDIFF-ON BAGDIFF-ON G*1*BAGINT-ON BAGINT-ON G*1*OCCURRENCES-ON OCCURRENCES-ON G*1*SUBBAGP-ON SUBBAGP-ON DELETE-NON-MEMBER-ON DELETE-DELETE-ON EQUAL-OCCURRENCES-ZERO-ON MEMBER-NON-LIST-ON MEMBER-DELETE-ON MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON OCCURRENCES-DELETE-ON MEMBER-BAGDIFF-ON BAGDIFF-DELETE-ON SUBBAGP-DELETE-ON SUBBAGP-CDR1-ON SUBBAGP-CDR2-ON SUBBAGP-BAGINT1-ON SUBBAGP-BAGINT2-ON OCCURRENCES-BAGINT-ON OCCURRENCES-BAGDIFF-ON MEMBER-BAGINT-ON EQUAL-PLUS-0-ON EQUAL-DIFFERENCE-0-ON COMMUTATIVITY-OF-PLUS-ON COMMUTATIVITY2-OF-PLUS-ON PLUS-ZERO-ARG2-ON PLUS-ADD1-ARG1-ON PLUS-ADD1-ARG2-ON ASSOCIATIVITY-OF-PLUS-ON PLUS-DIFFERENCE-ARG1-ON PLUS-DIFFERENCE-ARG2-ON DIFFERENCE-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON DIFF-DIFF-ARG1-ON DIFF-DIFF-ARG2-ON G*1*PLUS-FRINGE-ON PLUS-FRINGE-ON G*1*PLUS-TREE-ON PLUS-TREE-ON EVAL$-QUOTE-ON1 G*1*CANCEL-EQUAL-PLUS-ON CANCEL-EQUAL-PLUS-ON CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON G*1*CANCEL-DIFFERENCE-PLUS-ON CANCEL-DIFFERENCE-PLUS-ON CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON DIFFERENCE-ELIM-ON DIFFERENCE-LEQ-ARG1-ON DIFFERENCE-ADD1-ARG2-ON DIFFERENCE-SUB1-ARG2-ON DIFFERENCE-DIFFERENCE-ARG1-ON DIFFERENCE-DIFFERENCE-ARG2-ON DIFFERENCE-X-X-ON G*1*CANCEL-LESSP-PLUS-ON CANCEL-LESSP-PLUS-ON CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON EQUAL-TIMES-0-ON EQUAL-TIMES-1-ON EQUAL-SUB1-0-ON TIMES-ZERO-ON TIMES-ADD1-ON COMMUTATIVITY-OF-TIMES-ON TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON TIMES-DISTRIBUTES-OVER-PLUS-ON COMMUTATIVITY2-OF-TIMES-ON ASSOCIATIVITY-OF-TIMES-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON TIMES-QUOTIENT-PROOF-ON TIMES-QUOTIENT-ON TIMES-1-ARG1-ON LESSP-TIMES1-PROOF-ON LESSP-TIMES1-ON LESSP-TIMES2-PROOF-ON LESSP-TIMES2-ON LESSP-TIMES3-PROOF1-ON LESSP-TIMES3-PROOF2-ON LESSP-TIMES3-ON LESSP-TIMES-CANCELLATION-PROOF-ON LESSP-PLUS-TIMES-PROOF-ON LESSP-PLUS-TIMES1-ON LESSP-PLUS-TIMES2-ON LESSP-1-TIMES-ON G*1*TIMES-TREE-ON TIMES-TREE-ON G*1*TIMES-FRINGE-ON TIMES-FRINGE-ON G*1*OR-ZEROP-TREE-ON OR-ZEROP-TREE-ON G*1*AND-NOT-ZEROP-TREE-ON AND-NOT-ZEROP-TREE-ON EVAL$-EQUAL-ON1 LESSP-TIMES-ARG1-ON INFER-EQUALITY-FROM-NOT-LESSP-ON G*1*CANCEL-LESSP-TIMES-ON CANCEL-LESSP-TIMES-ON CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON G*1*CANCEL-EQUAL-TIMES-ON CANCEL-EQUAL-TIMES-ON CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON LESSP-REMAINDER-ON REMAINDER-NOOP-ON REMAINDER-OF-NON-NUMBER-ON REMAINDER-ZERO-ON REMAINDER-QUOTIENT-ELIM-ON REMAINDER-ADD1-ON REMAINDER-PLUS-PROOF-ON REMAINDER-PLUS-ON EQUAL-REMAINDER-PLUS-0-PROOF-ON EQUAL-REMAINDER-PLUS-0-ON EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON REMAINDER-TIMES1-PROOF-ON REMAINDER-TIMES1-ON REMAINDER-TIMES1-INSTANCE-PROOF-ON REMAINDER-TIMES1-INSTANCE-ON REMAINDER-TIMES-TIMES-PROOF-ON REMAINDER-TIMES2-PROOF-ON REMAINDER-TIMES2-ON REMAINDER-TIMES2-INSTANCE-ON REMAINDER-DIFFERENCE1-ON G*1*DOUBLE-REMAINDER-INDUCTION-ON DOUBLE-REMAINDER-INDUCTION-ON REMAINDER-DIFFERENCE2-ON REMAINDER-PLUS-FACT-ON REMAINDER-PLUS-TIMES-TIMES-PROOF-ON REMAINDER-PLUS-TIMES-TIMES-ON REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON REMAINDER-REMAINDER-ON REMAINDER-1-ARG1-ON REMAINDER-1-ARG2-ON REMAINDER-X-X-ON TRANSITIVITY-OF-DIVIDES-ON QUOTIENT-NOOP-ON QUOTIENT-OF-NON-NUMBER-ON QUOTIENT-ZERO-ON QUOTIENT-ADD1-ON EQUAL-QUOTIENT-0-ON QUOTIENT-SUB1-ON QUOTIENT-PLUS-PROOF-ON QUOTIENT-PLUS-ON QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON QUOTIENT-TIMES-PROOF-ON QUOTIENT-TIMES-ON QUOTIENT-TIMES-INSTANCE-ON QUOTIENT-TIMES-TIMES-PROOF-ON QUOTIENT-DIFFERENCE1-ON QUOTIENT-LESSP-ARG1-ON QUOTIENT-DIFFERENCE2-ON QUOTIENT-DIFFERENCE3-ON QUOTIENT-REMAINDER-TIMES-ON QUOTIENT-REMAINDER-ON QUOTIENT-REMAINDER-INSTANCE-ON QUOTIENT-PLUS-FACT-ON QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON QUOTIENT-PLUS-TIMES-TIMES-ON QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON QUOTIENT-QUOTIENT-ON LEQ-QUOTIENT-ON QUOTIENT-1-ARG2-ON QUOTIENT-1-ARG1-CASESPLIT-ON QUOTIENT-1-ARG1-ON QUOTIENT-X-X-ON LESSP-QUOTIENT-ON G*1*CANCEL-QUOTIENT-TIMES-ON CANCEL-QUOTIENT-TIMES-ON CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON G*1*EXP-ON EXP-ON G*1*LOG-ON LOG-ON G*1*GCD-ON GCD-ON REMAINDER-EXP-ON G*1*DOUBLE-NUMBER-INDUCTION-ON DOUBLE-NUMBER-INDUCTION-ON REMAINDER-EXP-EXP-ON QUOTIENT-EXP-ON EXP-ZERO-ON EXP-ADD1-ON EXP-PLUS-ON EXP-0-ARG1-ON EXP-1-ARG1-ON EXP-0-ARG2-ON EXP-TIMES-ON EXP-EXP-ON EQUAL-EXP-0-ON EQUAL-EXP-1-ON EXP-DIFFERENCE-ON EQUAL-LOG-0-ON LOG-0-ON LOG-1-ON G*1*DOUBLE-LOG-INDUCTION-ON DOUBLE-LOG-INDUCTION-ON LEQ-LOG-LOG-ON LOG-QUOTIENT-ON LOG-QUOTIENT-TIMES-PROOF-ON LOG-QUOTIENT-TIMES-ON LOG-QUOTIENT-EXP-ON LOG-TIMES-PROOF-ON LOG-TIMES-ON LOG-TIMES-EXP-PROOF-ON LOG-TIMES-EXP-ON LOG-EXP-ON COMMUTATIVITY-OF-GCD-ON G*1*SINGLE-NUMBER-INDUCTION-ON SINGLE-NUMBER-INDUCTION-ON GCD-0-ON GCD-1-ON EQUAL-GCD-0-ON LESSP-GCD-ON GCD-PLUS-INSTANCE-TEMP-PROOF-ON GCD-PLUS-INSTANCE-TEMP-ON GCD-PLUS-PROOF-ON GCD-PLUS-ON GCD-PLUS-INSTANCE-ON REMAINDER-GCD-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON GCD-IS-THE-GREATEST-ON COMMON-DIVISOR-DIVIDES-GCD-ON ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON ASSOCIATIVITY-OF-GCD-ON COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON COMMUTATIVITY2-OF-GCD-ON GCD-X-X-ON GCD-IDEMPOTENCE-ON G*1*INTEGERP-ON G*1*FIX-INT-ON G*1*IZEROP-ON IZEROP-ON G*1*ILESSP-ON G*1*ILEQ-ON ILEQ-ON G*1*IPLUS-ON G*1*INEG-ON G*1*IDIFFERENCE-ON IDIFFERENCE-ON G*1*IABS-ON G*1*ITIMES-ON G*1*IQUOTIENT-ON G*1*IREMAINDER-ON G*1*IDIV-ON G*1*IMOD-ON G*1*IQUO-ON G*1*IREM-ON INTEGERP-FIX-INT-ON INTEGERP-IPLUS-ON INTEGERP-IDIFFERENCE-ON INTEGERP-INEG-ON INTEGERP-IABS-ON INTEGERP-ITIMES-ON FIX-INT-REMOVER-ON FIX-INT-FIX-INT-ON FIX-INT-IPLUS-ON FIX-INT-IDIFFERENCE-ON FIX-INT-INEG-ON FIX-INT-IABS-ON FIX-INT-ITIMES-ON INEG-IPLUS-ON INEG-INEG-ON INEG-FIX-INT-ON INEG-0-ON IPLUS-0-LEFT-ON IPLUS-0-RIGHT-ON COMMUTATIVITY2-OF-IPLUS-ON COMMUTATIVITY-OF-IPLUS-ON ASSOCIATIVITY-OF-IPLUS-ON IPLUS-CANCELLATION-1-ON IPLUS-CANCELLATION-2-ON IPLUS-INEG1-ON IPLUS-INEG2-ON IPLUS-FIX-INT1-ON IPLUS-FIX-INT2-ON IDIFFERENCE-FIX-INT1-ON IDIFFERENCE-FIX-INT2-ON G*1*CANCEL-INEG-AUX-ON CANCEL-INEG-AUX-ON G*1*CANCEL-INEG-ON CANCEL-INEG-ON EVAL$-LIST-CONS-ON EVAL$-LIST-NLISTP-ON EVAL$-LITATOM-ON EVAL$-OTHER-ON G*1*EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON IPLUS-INEG3-ON IPLUS-INEG4-ON IPLUS-X-Y-INEG-X-ON CORRECTNESS-OF-CANCEL-INEG-ON G*1*IPLUS-FRINGE-ON IPLUS-FRINGE-ON G*1*IPLUS-TREE-REC-ON IPLUS-TREE-REC-ON G*1*IPLUS-TREE-ON G*1*IPLUS-LIST-ON IPLUS-LIST-ON INTEGERP-IPLUS-LIST-ON EVAL$-LIST-APPEND-ON G*1*CANCEL-IPLUS-ON EVAL$-IPLUS-LIST-DELETE-ON IPLUS-LIST-APPEND-ON IPLUS-INEG7-ON CORRECTNESS-OF-CANCEL-IPLUS-ON ILESSP-FIX-INT-1-ON ILESSP-FIX-INT-2-ON G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON G*1*CANCEL-IPLUS-ILESSP-1-ON CANCEL-IPLUS-ILESSP-1-ON IPLUS-CANCELLATION-1-FOR-ILESSP-ON IPLUS-CANCELLATION-2-FOR-ILESSP-ON G*1*IPLUS-TREE-NO-FIX-INT-ON G*1*CANCEL-IPLUS-ILESSP-ON CANCEL-IPLUS-ILESSP-ON CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON ITIMES-0-LEFT-ON ITIMES-0-RIGHT-ON ITIMES-FIX-INT1-ON ITIMES-FIX-INT2-ON COMMUTATIVITY-OF-ITIMES-ON ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON ITIMES-DISTRIBUTES-OVER-IPLUS-ON COMMUTATIVITY2-OF-ITIMES-ON ASSOCIATIVITY-OF-ITIMES-ON EQUAL-ITIMES-0-ON EQUAL-ITIMES-1-ON EQUAL-ITIMES-MINUS-1-ON ITIMES-1-ARG1-ON QUOTIENT-REMAINDER-UNIQUENESS-ON DIVISION-THEOREM-PART1-ON DIVISION-THEOREM-PART2-ON DIVISION-THEOREM-PART3-ON DIVISION-THEOREM-ON IQUOTIENT-IREMAINDER-UNIQUENESS-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON IDIV-IMOD-UNIQUENESS-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON IQUO-IREM-UNIQUENESS-ON ITIMES-INEG-1-ON ITIMES-INEG-2-ON ITIMES-CANCELLATION-1-ON ITIMES-CANCELLATION-2-ON ITIMES-CANCELLATION-3-ON INTEGERP-IQUOTIENT-ON INTEGERP-IREMAINDER-ON INTEGERP-IDIV-ON INTEGERP-IMOD-ON INTEGERP-IQUO-ON INTEGERP-IREM-ON IQUOTIENT-FIX-INT1-ON IQUOTIENT-FIX-INT2-ON IREMAINDER-FIX-INT1-ON IREMAINDER-FIX-INT2-ON IDIV-FIX-INT1-ON IDIV-FIX-INT2-ON IMOD-FIX-INT1-ON IMOD-FIX-INT2-ON IQUO-FIX-INT1-ON IQUO-FIX-INT2-ON IREM-FIX-INT1-ON IREM-FIX-INT2-ON FIX-INT-IQUOTIENT-ON FIX-INT-IREMAINDER-ON FIX-INT-IDIV-ON FIX-INT-IMOD-ON FIX-INT-IQUO-ON FIX-INT-IREM-ON G*1*ITIMES-FRINGE-ON ITIMES-FRINGE-ON G*1*ITIMES-TREE-REC-ON ITIMES-TREE-REC-ON G*1*ITIMES-TREE-ON G*1*ITIMES-LIST-ON ITIMES-LIST-ON INTEGERP-ITIMES-LIST-ON G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON G*1*CANCEL-ITIMES-ON CANCEL-ITIMES-ON ITIMES-LIST-APPEND-ON MEMBER-APPEND-ON EQUAL-FIX-INT-ON G*1*SUBSETP-ON SUBSETP-ON G*1*ITIMES-TREE-NO-FIX-INT-ON G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON G*1*CANCEL-ITIMES-ILESSP-ON CANCEL-ITIMES-ILESSP-ON ILESSP-ITIMES-RIGHT-POSITIVE-ON ILESSP-ITIMES-RIGHT-NEGATIVE-ON ILESSP-STRICT-ON G*1*ITIMES-TREE-INEG-ON G*1*ITIMES-FACTORS-ON ITIMES-FACTORS-ON ITIMES--1-ON EQUAL-INEG-INEG-ON ILESSP-INEG-INEG-ON FIX-INT-EVAL$-ITIMES-TREE-REC-ON EVAL$-ITIMES-TREE-INEG-ON INEG-EVAL$-ITIMES-TREE-INEG-ON IPLUS-EVAL$-ITIMES-TREE-INEG-ON ITIMES-EVAL$-ITIMES-TREE-INEG-ON G*1*IPLUS-OR-ITIMES-TERM-ON G*1*CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS-ON G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON MEMBER-0-EVAL$-LIST-ON CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON CANCEL-ITIMES-ILESSP-FACTORS-ON BAGINT-SINGLETON-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON EQUAL-FIX-INT-TO-ILESSP-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON G*1*DISJOIN-EQUALITIES-WITH-0-ON DISJOIN-EQUALITIES-WITH-0-ON G*1*CANCEL-FACTORS-0-ON CANCEL-FACTORS-0-ON G*1*SOME-EVAL$S-TO-0-ON SOME-EVAL$S-TO-0-ON EVAL$-DISJOIN-EQUALITIES-WITH-0-ON SOME-EVAL$S-TO-0-APPEND-ON SOME-EVAL$S-TO-0-ELIMINATOR-ON CORRECTNESS-OF-CANCEL-FACTORS-0-ON G*1*CONJOIN-INEQUALITIES-WITH-0-ON CONJOIN-INEQUALITIES-WITH-0-ON G*1*CANCEL-FACTORS-ILESSP-0-ON CANCEL-FACTORS-ILESSP-0-ON CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON G*1*SPLIT-OUT-INEG-TERMS-ON SPLIT-OUT-INEG-TERMS-ON G*1*REMOVE-INEGS-ON G*1*IPLUS-OR-INEG-TERM-ON G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON MAKE-CANCEL-INEG-TERMS-EQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON CANCEL-INEG-TERMS-FROM-EQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON IPLUS-CONSTANTS-ON CANCEL-CONSTANTS-EQUAL-LEMMA-ON CANCEL-CONSTANTS-EQUAL-ON ILESSP-ADD1-ON ILESSP-ADD1-IPLUS-ON CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON CANCEL-CONSTANTS-ILESSP-ON B-APPROX-ON1 B-KNOWNP-ON1 MAP-DOWN-INVERTS-MAP-UP-ON FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON DOUBLET-P-ON OPEN-NTH-OFF1 DP-RAM-16X32-MONOTONE-ON DP-RAM-16X32-MONOTONE-STATE-ON DUAL-APPLY-STATE-DP-RAM-16X32-ON DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON MEM-WIDTH-LINEAR-FACTS-ON V-APPROX-PRESERVES-PROPERP-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON MEM-WIDTH-NON-ZERO-ON V-APPROX-SUBRANGE-ON V-APPROX-PRESERVES-LENGTH-ON S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON S-APPROX-CONSTANT-RAM-X-ID-ON S-APPROX-WRITE-MEM-ID-ON S-APPROX-WRITE-MEM1-ID-ON V-APPROX-LENGTH-ON WRITE-MEM-MONOTONE-ON WRITE-MEM1-MONOTONE-ON WRITE-MEM1-OPENER-ON V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON S-APPROX-OPENER-ON BVP-OFF2 DP-RAM-16X32-MONOTONE-VALUE-ON DUAL-APPLY-VALUE-DP-RAM-16X32-ON DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON EVAL$-APPEND-2-ON EVAL$-PAIRLIST-CONS-ON EVAL$-APPEND-ON DUAL-PORT-RAM-VALUE-MONOTONE-ON S-APPROX-IMPLIES-PROPERP-READ-MEM-ON S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON EQUAL-LENGTH-READ-MEM-ON EQUAL-LENGTH-READ-MEM1-ON READ-MEM-MONOTONE-ON V-APPROX-MAKE-LIST-X-ON V-APPROX-BVP-SUBRANGE-ON V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON G*1*B-KNOWNP-ON1 V-APPROX-IMPLIES-B-APPROX-NTH-ON BVP-IMPLIES-V-KNOWNP-ON READ-MEM1-MONOTONE-ON V-APPROX-BVP-ON BVP-REVERSE-ON F-PULLUP-ON FT-WIRE-ON FT-BUF-ON F-IF-ON F-EQUV3-ON F-EQUV-ON F-XOR3-ON F-XOR-ON F-NOR8-ON F-NOR6-ON F-NOR5-ON F-NOR4-ON F-NOR3-ON F-NOR-ON F-OR4-ON F-OR3-ON F-OR-ON F-NAND8-ON F-NAND6-ON F-NAND5-ON F-NAND4-ON F-NAND3-ON F-NAND-ON F-NOT-ON F-AND4-ON F-AND3-ON F-AND-ON F-BUF-ON MONOTONICITY-PROPERTY-OPENER-3-ON MONOTONICITY-PROPERTY-OPENER-2-ON MONOTONICITY-PROPERTY-OPENER-1-ON MONOTONICITY-PROPERTY-OPENER-0-ON MONOTONICITY-PROPERTY-ON B-KNOWNP-COMPOUND-RECOGNIZER-OFF G*1*B-APPROX-OFF G*1*V-APPROX-OFF V-APPROX-OFF1 G*1*V-KNOWNP-OFF V-KNOWNP-OFF1 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF G*1*MEM-WIDTH-OFF1 MEM-WIDTH-OFF1 G*1*S-APPROX-OFF S-APPROX-OFF1 S-APPROX-X-X-OFF G*1*GOOD-S-OFF GOOD-S-OFF G*1*S-KNOWNP-OFF S-KNOWNP-OFF1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 G*1*V-APPROX-ALIST-OFF V-APPROX-ALIST-OFF G*1*S-APPROX-ALIST-OFF S-APPROX-ALIST-OFF G*1*MONOTONICITY-PROPERTY-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF F-BUF-MONOTONE-OFF F-AND-MONOTONE-OFF F-AND3-MONOTONE-OFF F-AND4-MONOTONE-OFF F-NOT-MONOTONE-OFF F-NAND-MONOTONE-OFF F-NAND3-MONOTONE-OFF F-NAND4-MONOTONE-OFF F-NAND5-MONOTONE-OFF F-NAND6-MONOTONE-OFF F-NAND8-MONOTONE-OFF F-OR-MONOTONE-OFF F-OR3-MONOTONE-OFF F-OR4-MONOTONE-OFF F-NOR-MONOTONE-OFF F-NOR3-MONOTONE-OFF F-NOR4-MONOTONE-OFF F-NOR5-MONOTONE-OFF F-NOR6-MONOTONE-OFF F-NOR8-MONOTONE-OFF F-XOR-MONOTONE-OFF F-EQUV-MONOTONE-OFF F-XOR3-MONOTONE-OFF F-EQUV3-MONOTONE-OFF F-IF-MONOTONE-OFF FT-BUF-MONOTONE-OFF FT-WIRE-MONOTONE-OFF F-PULLUP-MONOTONE-OFF DUAL-EVAL-0-PRIMP-OFF DUAL-EVAL-2-PRIMP-OFF S-APPROX-IMPLIES-B-APPROX-OFF F-BUF-TYPE-SET-OFF FOURP-F-BUF-OFF FOURP-F-IF-OFF FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 DUAL-EVAL-AO2-VALUE-OFF DUAL-EVAL-AO2-STATE-OFF AO2-MONOTONE-OFF DUAL-EVAL-AO4-VALUE-OFF DUAL-EVAL-AO4-STATE-OFF AO4-MONOTONE-OFF DUAL-EVAL-AO6-VALUE-OFF DUAL-EVAL-AO6-STATE-OFF AO6-MONOTONE-OFF DUAL-EVAL-AO7-VALUE-OFF DUAL-EVAL-AO7-STATE-OFF AO7-MONOTONE-OFF DUAL-EVAL-B-AND-VALUE-OFF DUAL-EVAL-B-AND-STATE-OFF B-AND-MONOTONE-OFF DUAL-EVAL-B-AND3-VALUE-OFF DUAL-EVAL-B-AND3-STATE-OFF B-AND3-MONOTONE-OFF DUAL-EVAL-B-AND4-VALUE-OFF DUAL-EVAL-B-AND4-STATE-OFF B-AND4-MONOTONE-OFF DUAL-EVAL-B-EQUV-VALUE-OFF DUAL-EVAL-B-EQUV-STATE-OFF B-EQUV-MONOTONE-OFF DUAL-EVAL-B-EQUV3-VALUE-OFF DUAL-EVAL-B-EQUV3-STATE-OFF B-EQUV3-MONOTONE-OFF DUAL-EVAL-B-IF-VALUE-OFF DUAL-EVAL-B-IF-STATE-OFF B-IF-MONOTONE-OFF DUAL-EVAL-B-NAND-VALUE-OFF DUAL-EVAL-B-NAND-STATE-OFF B-NAND-MONOTONE-OFF DUAL-EVAL-B-NAND3-VALUE-OFF DUAL-EVAL-B-NAND3-STATE-OFF B-NAND3-MONOTONE-OFF DUAL-EVAL-B-NAND4-VALUE-OFF DUAL-EVAL-B-NAND4-STATE-OFF B-NAND4-MONOTONE-OFF DUAL-EVAL-B-NAND5-VALUE-OFF DUAL-EVAL-B-NAND5-STATE-OFF B-NAND5-MONOTONE-OFF DUAL-EVAL-B-NAND6-VALUE-OFF DUAL-EVAL-B-NAND6-STATE-OFF B-NAND6-MONOTONE-OFF DUAL-EVAL-B-NAND8-VALUE-OFF DUAL-EVAL-B-NAND8-STATE-OFF B-NAND8-MONOTONE-OFF DUAL-EVAL-B-NBUF-VALUE-OFF DUAL-EVAL-B-NBUF-STATE-OFF B-NBUF-MONOTONE-OFF DUAL-EVAL-B-NOR-VALUE-OFF DUAL-EVAL-B-NOR-STATE-OFF B-NOR-MONOTONE-OFF DUAL-EVAL-B-NOR3-VALUE-OFF DUAL-EVAL-B-NOR3-STATE-OFF B-NOR3-MONOTONE-OFF DUAL-EVAL-B-NOR4-VALUE-OFF DUAL-EVAL-B-NOR4-STATE-OFF B-NOR4-MONOTONE-OFF DUAL-EVAL-B-NOR5-VALUE-OFF DUAL-EVAL-B-NOR5-STATE-OFF B-NOR5-MONOTONE-OFF DUAL-EVAL-B-NOR6-VALUE-OFF DUAL-EVAL-B-NOR6-STATE-OFF B-NOR6-MONOTONE-OFF DUAL-EVAL-B-NOR8-VALUE-OFF DUAL-EVAL-B-NOR8-STATE-OFF B-NOR8-MONOTONE-OFF DUAL-EVAL-B-NOT-VALUE-OFF DUAL-EVAL-B-NOT-STATE-OFF B-NOT-MONOTONE-OFF DUAL-EVAL-B-NOT-B4IP-VALUE-OFF DUAL-EVAL-B-NOT-B4IP-STATE-OFF B-NOT-B4IP-MONOTONE-OFF DUAL-EVAL-B-NOT-IVAP-VALUE-OFF DUAL-EVAL-B-NOT-IVAP-STATE-OFF B-NOT-IVAP-MONOTONE-OFF DUAL-EVAL-B-OR-VALUE-OFF DUAL-EVAL-B-OR-STATE-OFF B-OR-MONOTONE-OFF DUAL-EVAL-B-OR3-VALUE-OFF DUAL-EVAL-B-OR3-STATE-OFF B-OR3-MONOTONE-OFF DUAL-EVAL-B-OR4-VALUE-OFF DUAL-EVAL-B-OR4-STATE-OFF B-OR4-MONOTONE-OFF DUAL-EVAL-B-XOR-VALUE-OFF DUAL-EVAL-B-XOR-STATE-OFF B-XOR-MONOTONE-OFF DUAL-EVAL-B-XOR3-VALUE-OFF DUAL-EVAL-B-XOR3-STATE-OFF B-XOR3-MONOTONE-OFF DUAL-EVAL-DEL2-VALUE-OFF DUAL-EVAL-DEL2-STATE-OFF DEL2-MONOTONE-OFF DUAL-EVAL-DEL4-VALUE-OFF DUAL-EVAL-DEL4-STATE-OFF DEL4-MONOTONE-OFF DUAL-EVAL-DEL10-VALUE-OFF DUAL-EVAL-DEL10-STATE-OFF DEL10-MONOTONE-OFF DUAL-EVAL-PROCMON-VALUE-OFF DUAL-EVAL-PROCMON-STATE-OFF PROCMON-MONOTONE-OFF DUAL-EVAL-FD1-VALUE-OFF DUAL-EVAL-FD1-STATE-OFF FD1-MONOTONE-OFF DUAL-EVAL-FD1S-VALUE-OFF DUAL-EVAL-FD1S-STATE-OFF FD1S-MONOTONE-OFF DUAL-EVAL-FD1SP-VALUE-OFF DUAL-EVAL-FD1SP-STATE-OFF FD1SP-MONOTONE-OFF DUAL-EVAL-FD1SLP-VALUE-OFF DUAL-EVAL-FD1SLP-STATE-OFF FD1SLP-MONOTONE-OFF DUAL-EVAL-ID-VALUE-OFF DUAL-EVAL-ID-STATE-OFF ID-MONOTONE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF RAM-ENABLE-CIRCUIT-MONOTONE-OFF DUAL-EVAL-T-BUF-VALUE-OFF DUAL-EVAL-T-BUF-STATE-OFF T-BUF-MONOTONE-OFF DUAL-EVAL-T-WIRE-VALUE-OFF DUAL-EVAL-T-WIRE-STATE-OFF T-WIRE-MONOTONE-OFF DUAL-EVAL-PULLUP-VALUE-OFF DUAL-EVAL-PULLUP-STATE-OFF PULLUP-MONOTONE-OFF DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF DUAL-EVAL-TTL-BIDIRECT-STATE-OFF TTL-BIDIRECT-MONOTONE-OFF DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF TTL-CLK-INPUT-MONOTONE-OFF DUAL-EVAL-TTL-INPUT-VALUE-OFF DUAL-EVAL-TTL-INPUT-STATE-OFF TTL-INPUT-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-STATE-OFF TTL-OUTPUT-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF TTL-OUTPUT-FAST-MONOTONE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF TTL-TRI-OUTPUT-MONOTONE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE-OFF DUAL-EVAL-VDD-VALUE-OFF DUAL-EVAL-VDD-STATE-OFF VDD-MONOTONE-OFF DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF VDD-PARAMETRIC-MONOTONE-OFF DUAL-EVAL-VSS-VALUE-OFF DUAL-EVAL-VSS-STATE-OFF VSS-MONOTONE-OFF BVP-REV1-OFF G*1*READ-MEM1-MONOTONE-INDUCTION-OFF READ-MEM1-MONOTONE-INDUCTION-OFF V-APPROX-X-X-OFF1 G*1*DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-BODY-OFF G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF WRITE-MEM1-MONOTONE-INDUCTION-OFF G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF WRITE-MEM1-DOUBLE-INDUCTION-OFF DUAL-PORT-RAM-STATE-MONOTONE-OFF G*1*DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-BODY-OFF G*1*OK-NETLISTP-OFF OK-NETLISTP-OFF PRIMP-MONOTONE-OFF G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF DUAL-EVAL-MONOTONE-INDUCTION-OFF V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF ALISTP-PAIRLIST-OFF ALISTP-APPEND-OFF ALISTP-DUAL-EVAL-1-OFF V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF G*1*S-APPROX-LIST-OFF S-APPROX-LIST-OFF S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF V-APPROX-IMPLIES-V-APPROX-ALIST-OFF ALISTP-OPENER-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF V-APPROX-ALIST-APPEND-OFF G*1*DOUBLE-CDR-INDUCTION-OFF DOUBLE-CDR-INDUCTION-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF ALISTP-DUAL-EVAL-3-OFF S-APPROX-IMPLIES-S-APPROX-ALIST-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF OK-NETLISTP-REDUCTION-OFF OK-NETLISTP-REDUCTION-REWRITE-OFF DUAL-EVAL-MONOTONE-NO-RAM-OFF G*1*GOOD-S-ALIST-OFF GOOD-S-ALIST-OFF GOOD-S-ALIST-PAIRLIST-OFF GOOD-S-VALUE-OFF DUAL-EVAL-MONOTONE-OFF GOOD-S-COLLECT-VALUE-OFF F-BUF-PRESERVES-GOOD-S-OFF F-IF-PRESERVES-GOOD-S-OFF GOOD-S-0-OFF AO2-PRESERVES-GOOD-S-OFF AO4-PRESERVES-GOOD-S-OFF AO6-PRESERVES-GOOD-S-OFF AO7-PRESERVES-GOOD-S-OFF B-AND-PRESERVES-GOOD-S-OFF B-AND3-PRESERVES-GOOD-S-OFF B-AND4-PRESERVES-GOOD-S-OFF B-EQUV-PRESERVES-GOOD-S-OFF B-EQUV3-PRESERVES-GOOD-S-OFF B-IF-PRESERVES-GOOD-S-OFF B-NAND-PRESERVES-GOOD-S-OFF B-NAND3-PRESERVES-GOOD-S-OFF B-NAND4-PRESERVES-GOOD-S-OFF B-NAND5-PRESERVES-GOOD-S-OFF B-NAND6-PRESERVES-GOOD-S-OFF B-NAND8-PRESERVES-GOOD-S-OFF B-NBUF-PRESERVES-GOOD-S-OFF B-NOR-PRESERVES-GOOD-S-OFF B-NOR3-PRESERVES-GOOD-S-OFF B-NOR4-PRESERVES-GOOD-S-OFF B-NOR5-PRESERVES-GOOD-S-OFF B-NOR6-PRESERVES-GOOD-S-OFF B-NOR8-PRESERVES-GOOD-S-OFF B-NOT-PRESERVES-GOOD-S-OFF B-NOT-B4IP-PRESERVES-GOOD-S-OFF B-NOT-IVAP-PRESERVES-GOOD-S-OFF B-OR-PRESERVES-GOOD-S-OFF B-OR3-PRESERVES-GOOD-S-OFF B-OR4-PRESERVES-GOOD-S-OFF B-XOR-PRESERVES-GOOD-S-OFF B-XOR3-PRESERVES-GOOD-S-OFF DEL2-PRESERVES-GOOD-S-OFF DEL4-PRESERVES-GOOD-S-OFF DEL10-PRESERVES-GOOD-S-OFF PROCMON-PRESERVES-GOOD-S-OFF FD1-PRESERVES-GOOD-S-OFF FD1S-PRESERVES-GOOD-S-OFF FD1SP-PRESERVES-GOOD-S-OFF FD1SLP-PRESERVES-GOOD-S-OFF ID-PRESERVES-GOOD-S-OFF RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF T-BUF-PRESERVES-GOOD-S-OFF T-WIRE-PRESERVES-GOOD-S-OFF PULLUP-PRESERVES-GOOD-S-OFF TTL-BIDIRECT-PRESERVES-GOOD-S-OFF TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF TTL-INPUT-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF VDD-PRESERVES-GOOD-S-OFF VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF VSS-PRESERVES-GOOD-S-OFF GOOD-S-CONSTANT-RAM-OFF GOOD-S-WRITE-MEM-1-OFF GOOD-S-WRITE-MEM-OFF DP-RAM-16X32-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S-OFF GOOD-S-PRESERVED-OFF G*1*V-APPROX-LIST-OFF V-APPROX-LIST-OFF G*1*V-S-APPROX-LIST-OFF V-S-APPROX-LIST-OFF G*1*NAT-LST-LST-INDUCTION-OFF NAT-LST-LST-INDUCTION-OFF V-APPROX-CAR-NTH-OFF S-APPROX-CADR-NTH-OFF G*1*SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-OFF V-APPROX-LIST-X-X-OFF G*1*DOUBLET-P-OFF G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-OFF DOUBLET-P-EQUAL-APPROX-OFF LENGTH-SIMULATE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF XS-SUFFICE-FOR-RESET-LEMMA-OFF G*1*COMPILE-UNCOMPILED-DEFNS-OFF COMPILE-UNCOMPILED-DEFNS-OFF G*1*UNKNOWN-REGFILE-OFF UNKNOWN-REGFILE-OFF G*1*UNKNOWN-MACHINE-STATE-OFF UNKNOWN-MACHINE-STATE-OFF G*1*UNKNOWN-MEMORY-STATE-OFF UNKNOWN-MEMORY-STATE-OFF G*1*UNKNOWN-STATE-OFF UNKNOWN-STATE-OFF CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF G*1*RESET-VECTOR-OFF RESET-VECTOR-OFF G*1*RUN-VECTOR-OFF RUN-VECTOR-OFF G*1*RESET-SEQUENCE-OFF RESET-SEQUENCE-OFF CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF G*1*INITIALIZED-REGFILE-OFF INITIALIZED-REGFILE-OFF G*1*INITIALIZED-MACHINE-STATE-OFF INITIALIZED-MACHINE-STATE-OFF G*1*INITIALIZED-MEMORY-STATE-OFF INITIALIZED-MEMORY-STATE-OFF G*1*FINAL-STATE-OFF FINAL-STATE-OFF RESET-WORKS-OFF UNKNOWN-STATE-OKP-OFF FINAL-STATE-OKP-OFF INSTANCE-THEOREM-OFF FM9001-STATEP-MAP-UP-FINAL-STATE-OFF G*1*RESET-VECTOR-CHIP-OFF RESET-VECTOR-CHIP-OFF G*1*RUN-VECTOR-CHIP-1-OFF RUN-VECTOR-CHIP-1-OFF G*1*RUN-VECTOR-CHIP-2-OFF RUN-VECTOR-CHIP-2-OFF G*1*RESET-SEQUENCE-CHIP-1-OFF RESET-SEQUENCE-CHIP-1-OFF G*1*RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-1-VS-2-OFF SIMULATE-RESET-CHIP-FINAL-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF G*1*V-FOURP-OFF V-FOURP-OFF G*1*ALL-XS-OFF ALL-XS-OFF ALL-XS-APPROXIMATES-OFF ALL-XS-MAKE-LIST-OFF G*1*MEMORY-V-FOURP-OFF MEMORY-V-FOURP-OFF G*1*NEW-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT-OFF S-APPROX-MAKE-LIST-OFF V-FOURP-IMPLIES-PROPERP-OFF LISTP-IMPLIES-NOT-FOURP-OFF RAMP-IMPLIES-NOT-FOURP-OFF ROMP-IMPLIES-NOT-FOURP-OFF STUBP-IMPLIES-NOT-FOURP-OFF B-APPROX-X-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF GOOD-S-OPENER-OFF MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF V-FOURP-IS-GOOD-S-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF CADR-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF LENGTH-RESET-SEQUENCE-CHIP-1-OFF RESET-CHIP-OFF RESET-CHIP-FROM-ANY-STATE-OFF CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF CHIP-WELL-FORMED-OFF CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF CHIP-WELL-FORMED-SIMPLE-OFF CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED COMPILE-UNCOMPILED-DEFNS-ON1 CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET RESET-CHIP-FROM-ANY-STATE RESET-CHIP LENGTH-RESET-SEQUENCE-CHIP-1 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 B-APPROX-OFF1 B-KNOWNP-OFF1 MAP-DOWN-INVERTS-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET CADR-MAP-UP MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S V-FOURP-IS-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA B-APPROX-X STUBP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP V-FOURP-IMPLIES-PROPERP S-APPROX-MAKE-LIST NEW-MACHINE-STATE-INVARIANT MEMORY-V-FOURP ALL-XS-MAKE-LIST ALL-XS-APPROXIMATES B-APPROX-ON B-KNOWNP-ON ALL-XS V-FOURP FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2 RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-1 RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-1 RESET-VECTOR-CHIP FM9001-STATEP-MAP-UP-FINAL-STATE INSTANCE-THEOREM FINAL-STATE-OKP UNKNOWN-STATE-OKP RESET-WORKS FINAL-STATE INITIALIZED-MEMORY-STATE INITIALIZED-MACHINE-STATE INITIALIZED-REGFILE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE RESET-SEQUENCE RUN-VECTOR RESET-VECTOR FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-STATE UNKNOWN-MEMORY-STATE UNKNOWN-MACHINE-STATE UNKNOWN-REGFILE COMPILE-UNCOMPILED-DEFNS-ON COMPILE-UNCOMPILED-DEFNS XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE LENGTH-SIMULATE DOUBLET-P-OFF DOUBLET-P-EQUAL-APPROX DOUBLET-N-SIMULATE DOUBLET-N-SIMULATE-INDUCTION DOUBLET-P V-APPROX-LIST-X-X SIMULATE-MONOTONE SIMULATE-MONOTONE-INDUCTION S-APPROX-CADR-NTH V-APPROX-CAR-NTH OPEN-NTH-ON NAT-LST-LST-INDUCTION V-S-APPROX-LIST V-APPROX-LIST GOOD-S-PRESERVED PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY DP-RAM-16X32-PRESERVES-GOOD-S GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-1 GOOD-S-CONSTANT-RAM VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S GOOD-S-0 F-IF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE GOOD-S-VALUE GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST DUAL-EVAL-MONOTONE-NO-RAM OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-IMPLIES-S-APPROX-ALIST ALISTP-DUAL-EVAL-3 S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE DOUBLE-CDR-INDUCTION V-APPROX-ALIST-APPEND S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE ALISTP-OPENER V-APPROX-IMPLIES-V-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE ALISTP-DUAL-EVAL-1 ALISTP-APPEND ALISTP-PAIRLIST V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-X-X-ON DUAL-EVAL-MONOTONE-INDUCTION PRIMP-MONOTONE OK-NETLISTP DP-RAM-16X32-MONOTONE-OFF DP-RAM-16X32-MONOTONE-STATE-OFF DUAL-APPLY-STATE-DP-RAM-16X32-OFF DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF MEM-WIDTH-LINEAR-FACTS-OFF V-APPROX-PRESERVES-PROPERP-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF MEM-WIDTH-NON-ZERO-OFF V-APPROX-SUBRANGE-OFF V-APPROX-PRESERVES-LENGTH-OFF S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF S-APPROX-CONSTANT-RAM-X-ID-OFF S-APPROX-WRITE-MEM-ID-OFF S-APPROX-WRITE-MEM1-ID-OFF V-APPROX-LENGTH-OFF WRITE-MEM-MONOTONE-OFF WRITE-MEM1-MONOTONE-OFF WRITE-MEM1-OPENER-OFF V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF MEM-WIDTH-ON G*1*MEM-WIDTH-ON S-APPROX-ON S-APPROX-OPENER-OFF S-KNOWNP-ON V-APPROX-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON BVP-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON V-KNOWNP-ON DP-RAM-16X32-MONOTONE-VALUE-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-OFF DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF EVAL$-APPEND-2-OFF EVAL$-PAIRLIST-CONS-OFF EVAL$-APPEND-OFF DUAL-PORT-RAM-VALUE-MONOTONE-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF EQUAL-LENGTH-READ-MEM-OFF EQUAL-LENGTH-READ-MEM1-OFF READ-MEM-MONOTONE-OFF V-APPROX-MAKE-LIST-X-OFF V-APPROX-BVP-SUBRANGE-OFF V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF G*1*B-KNOWNP-OFF1 V-APPROX-IMPLIES-B-APPROX-NTH-OFF V-APPROX-X-X-OFF BVP-IMPLIES-V-KNOWNP-OFF READ-MEM1-MONOTONE-OFF V-APPROX-BVP-OFF BVP-REVERSE-OFF DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-STATE DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE MEM-WIDTH-LINEAR-FACTS V-APPROX-PRESERVES-PROPERP S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 MEM-WIDTH-NON-ZERO V-APPROX-SUBRANGE V-APPROX-PRESERVES-LENGTH S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM1-DOUBLE-INDUCTION V-APPROX-LENGTH WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-OPENER V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T MEM-WIDTH-OFF G*1*MEM-WIDTH-OFF S-APPROX-OFF S-APPROX-OPENER S-KNOWNP-OFF V-APPROX-OFF FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF BVP-OFF1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF V-KNOWNP-OFF DP-RAM-16X32-MONOTONE-VALUE DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 EVAL$-APPEND-2 EVAL$-PAIRLIST-CONS EVAL$-APPEND DUAL-PORT-RAM-VALUE-MONOTONE S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM1 READ-MEM-MONOTONE V-APPROX-MAKE-LIST-X V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL G*1*B-KNOWNP-ON V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-X-X BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE READ-MEM1-MONOTONE-INDUCTION V-APPROX-BVP BVP-REVERSE BVP-REV1 PRIMITIVES-MONOTONE VSS-MONOTONE DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE VDD-PARAMETRIC-MONOTONE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE VDD-MONOTONE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE TTL-TRI-OUTPUT-FAST-MONOTONE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE TTL-TRI-OUTPUT-MONOTONE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE TTL-OUTPUT-FAST-MONOTONE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE TTL-OUTPUT-PARAMETRIC-MONOTONE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE TTL-OUTPUT-MONOTONE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE TTL-INPUT-MONOTONE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE TTL-CLK-INPUT-MONOTONE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE TTL-BIDIRECT-MONOTONE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE PULLUP-MONOTONE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE T-WIRE-MONOTONE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE T-BUF-MONOTONE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE RAM-ENABLE-CIRCUIT-MONOTONE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE ID-MONOTONE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE FD1SLP-MONOTONE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE FD1SP-MONOTONE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE FD1S-MONOTONE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE FD1-MONOTONE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE PROCMON-MONOTONE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DEL10-MONOTONE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DEL4-MONOTONE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DEL2-MONOTONE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE B-XOR3-MONOTONE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE B-XOR-MONOTONE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE B-OR4-MONOTONE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE B-OR3-MONOTONE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE B-OR-MONOTONE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE B-NOT-IVAP-MONOTONE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE B-NOT-B4IP-MONOTONE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE B-NOT-MONOTONE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE B-NOR8-MONOTONE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE B-NOR6-MONOTONE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE B-NOR5-MONOTONE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE B-NOR4-MONOTONE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE B-NOR3-MONOTONE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE B-NOR-MONOTONE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE B-NBUF-MONOTONE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE B-NAND8-MONOTONE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE B-NAND6-MONOTONE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE B-NAND5-MONOTONE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE B-NAND4-MONOTONE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE B-NAND3-MONOTONE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE B-NAND-MONOTONE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE B-IF-MONOTONE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE B-EQUV3-MONOTONE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE B-EQUV-MONOTONE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE B-AND4-MONOTONE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE B-AND3-MONOTONE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE B-AND-MONOTONE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE AO7-MONOTONE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE AO6-MONOTONE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE AO4-MONOTONE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE AO2-MONOTONE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-IF FOURP-F-BUF F-BUF-TYPE-SET S-APPROX-IMPLIES-B-APPROX DUAL-EVAL-2-PRIMP DUAL-EVAL-0-PRIMP B-APPROX-OFF MONOTONICITY-LEMMAS F-PULLUP-OFF FT-WIRE-OFF FT-BUF-OFF F-IF-OFF F-EQUV3-OFF F-EQUV-OFF F-XOR3-OFF F-XOR-OFF F-NOR8-OFF F-NOR6-OFF F-NOR5-OFF F-NOR4-OFF F-NOR3-OFF F-NOR-OFF F-OR4-OFF F-OR3-OFF F-OR-OFF F-NAND8-OFF F-NAND6-OFF F-NAND5-OFF F-NAND4-OFF F-NAND3-OFF F-NAND-OFF F-NOT-OFF F-AND4-OFF F-AND3-OFF F-AND-OFF F-BUF-OFF F-PULLUP-MONOTONE FT-WIRE-MONOTONE FT-BUF-MONOTONE F-IF-MONOTONE F-EQUV3-MONOTONE F-XOR3-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-NOR8-MONOTONE F-NOR6-MONOTONE F-NOR5-MONOTONE F-NOR4-MONOTONE F-NOR3-MONOTONE F-NOR-MONOTONE F-OR4-MONOTONE F-OR3-MONOTONE F-OR-MONOTONE F-NAND8-MONOTONE F-NAND6-MONOTONE F-NAND5-MONOTONE F-NAND4-MONOTONE F-NAND3-MONOTONE F-NAND-MONOTONE F-NOT-MONOTONE F-AND4-MONOTONE F-AND3-MONOTONE F-AND-MONOTONE F-BUF-MONOTONE MONOTONICITY-PROPERTY-OPENER-3-OFF MONOTONICITY-PROPERTY-OPENER-2-OFF MONOTONICITY-PROPERTY-OPENER-1-OFF MONOTONICITY-PROPERTY-OPENER-0-OFF MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-OFF MONOTONICITY-PROPERTY S-APPROX-ALIST V-APPROX-ALIST PLUS-ADD1-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP GOOD-S S-APPROX-X-X S-APPROX MEM-WIDTH PLUS-ADD1-OFF V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-KNOWNP V-APPROX B-APPROX G*1*B-KNOWNP-OFF B-KNOWNP-OFF B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP FM9001=CHIP-SYSTEM-SUMMARY NO-HOLDS-RESET-OR-TEST FM9001=CHIP-SYSTEM FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN MEM-MAP-DOWN P-MAP-DOWN FM9001-STATEP FM9001-MACHINE-STATEP FM9001-INTERPRETER-CORRECT$MAP-DOWN MAP-DOWN-RELATION-LEMMA HIGH-LEVEL-STATE-STRUCTURE-OFF HIGH-LEVEL-STATE-STRUCTURE MAP-DOWN-RELATION-OFF MAP-DOWN-RELATION FM9001=FM9001-INTERPRETER CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MACROCYCLE-INVARIANT==>PC-REG MIDDLE=HIGH$HELP FM9001-STEP*-LEMMA FM9001-STEP*-OFF FM9001-STEP* OPEN-MAP-UP MAP-UP-OFF MAP-UP MEM-MAP-UP P-MAP-UP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT*-OFF MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP MACROCYCLE-INVARIANT OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES-OFF TOTAL-MICROCYCLES MICROCYCLES OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT OPERATING-INPUTS-P-1 OPERATING-INPUTS-P-PLUS OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P-OFF OPERATING-INPUTS-P T_FETCH1 T_REGA T_REGB T_READA0 T_READB0 T_UPDATE T_WRITE0 T_SEFA0 T_SEFB0 T_SEFB1 T_FETCH0 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 ZEROP-NOT-ZEROP-CASES WRITE3$PROGRESS WRITE3$PROGRESS-HELP WRITE3$INDUCTION READB3$PROGRESS READB3$PROGRESS-HELP READB3$INDUCTION READA3$PROGRESS READA3$PROGRESS-HELP READA3$INDUCTION FETCH3$PROGRESS FETCH3$PROGRESS-HELP FETCH3$INDUCTION BVP-READ-FN PROPERP-READ-FN LENGTH-READ-FN OPEN-READ-FN READ-FN-OFF READ-FN FM9001-STEP-THEORY SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS REGFILE-OKP OPEN-RUN-INPUTS-P-ADD1 RUN-INPUTS-P-1 RUN-INPUTS-P-PLUS OPEN-RUN-INPUTS-P RUN-INPUTS-P-OFF RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=RUN-FM9001$INDUCTION CHIP-SYSTEM=FM9001$STEP-OFF CHIP-SYSTEM=FM9001$STEP OPEN-MAP-UP-INPUTS MAP-UP-INPUTS-OFF MAP-UP-INPUTS MAP-UP-1-INPUT OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P-OFF CHIP-SYSTEM-OPERATING-INPUTS-P REWRITE-CHIP-SYSTEM-INPUT-INVARIANT CHIP-SYSTEM-INPUT-INVARIANT FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-OFF CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP-OFF CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE CHIP-SYSTEM-INVARIANT MEMORY-STATE-INVARIANT CHIP-SYSTEM$NETLIST CHIP-SYSTEM&-OFF CHIP-SYSTEM& G*1*CHIP-SYSTEM*-OFF CHIP-SYSTEM*$DESTRUCTURE-OFF CHIP-SYSTEM*-OFF CHIP-SYSTEM*$DESTRUCTURE CHIP-SYSTEM* CHIP$VALUE CHIP$STATE CHIP$NETLIST CHIP&-OFF CHIP& G*1*CHIP*-OFF CHIP*$DESTRUCTURE-OFF CHIP*-OFF CHIP*$DESTRUCTURE CHIP* CHIP-MODULE$VALUE CHIP-MODULE$STATE MACHINE-STATE-INVARIANT BV-AS-SUBRANGE-OFF BV-AS-SUBRANGE REG-40$VALUE-AS-CNTL-STATE-OFF REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE CHIP-MODULE$NETLIST CHIP-MODULE&-OFF CHIP-MODULE& G*1*CHIP-MODULE*-OFF CHIP-MODULE*$DESTRUCTURE-OFF CHIP-MODULE*-OFF CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$INDUCTION FM9001-STATE-STRUCTURE$STEP FM9001-STATE-STRUCTURE RUN-FM9001-PLUS RUN-FM9001-STEP-CASE-OFF RUN-FM9001-STEP-CASE RUN-FM9001-BASE-CASE RUN-FM9001-OFF RUN-FM9001 FM9001-NEXT-STATE-OFF FM9001-NEXT-STATE FM9001-EXTERNAL-INPUT-ACCESSORS PC-REG-INPUT-OFF HOLD--INPUT-OFF RESET--INPUT-OFF PC-REG-INPUT HOLD--INPUT RESET--INPUT FM9001-HARDWARE-STATE-ACCESSORS CNTL-STATE-OFF PC-REG-OFF HOLD--OFF DTACK--OFF RESET--OFF ADDR-OUT-OFF DATA-OUT-OFF I-REG-OFF B-REG-OFF A-REG-OFF CNTL-STATE PC-REG HOLD- DTACK- RESET- ADDR-OUT DATA-OUT I-REG B-REG A-REG TTL-BIDIRECT-PADS$VALUE-OFF TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE-OFF TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS$NETLIST TTL-BIDIRECT-PADS&-OFF TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF TTL-BIDIRECT-PADS*-OFF TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY-OFF TTL-BIDIRECT-PADS-BODY TTL-TRI-OUTPUT-PADS$VALUE-OFF TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS$NETLIST TTL-TRI-OUTPUT-PADS&-OFF TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-TRI-OUTPUT-PADS*-OFF TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY-OFF TTL-TRI-OUTPUT-PADS-BODY TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE-OFF TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS$NETLIST TTL-OUTPUT-PADS&-OFF TTL-OUTPUT-PADS& TTL-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-OUTPUT-PADS*-OFF TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS* TTL-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY-OFF TTL-OUTPUT-PADS-BODY TTL-INPUT-PADS$VALUE-OFF TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE-OFF TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS$NETLIST TTL-INPUT-PADS&-OFF TTL-INPUT-PADS& TTL-INPUT-PADS*$DESTRUCTURE-OFF TTL-INPUT-PADS*-OFF TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS* TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY-OFF TTL-INPUT-PADS-BODY EXTEND-IMMEDIATE$VALUE-OFF EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE-OFF F$EXTEND-IMMEDIATE CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE&-OFF EXTEND-IMMEDIATE& G*1*EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*$DESTRUCTURE-OFF EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* FLAGS$PARTIAL-STATE-OFF FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP-OFF FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-OFF FLAGS$STATE FLAGS$STATE-HELP-OFF FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS PROPERP-LENGTH-F$UPDATE-FLAGS F$UPDATE-FLAGS-OFF F$UPDATE-FLAGS FLAGS$VALUE-OFF FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS$NETLIST FLAGS&-OFF FLAGS& G*1*FLAGS*-OFF FLAGS*$DESTRUCTURE-OFF FLAGS*-OFF FLAGS*$DESTRUCTURE FLAGS* REGFILE$STATE-OFF REGFILE$STATE F$WRITE-REGS=WRITE-REGS PROPERP-LENGTH-F$WRITE-REGS F$WRITE-REGS-OFF F$WRITE-REGS REGFILE$VALUE-OFF REGFILE$VALUE F$READ-REGS=READ-REGS PROPERP-LENGTH-F$READ-REGS F$READ-REGS-OFF F$READ-REGS CHECK-REGFILE$NETLIST REGFILE$NETLIST REGFILE&-OFF REGFILE& G*1*REGFILE*-OFF REGFILE*$DESTRUCTURE-OFF REGFILE*-OFF REGFILE*$DESTRUCTURE REGFILE* BVP-LENGTH-READ-REGS-32 READ-REGS=READ-MEM-WRITE-MEM READ-REGS=READ-MEM ALL-RAMP-MEM-AFTER-WRITE-REGS READ-REGS-WRITE-REGS-F WRITE-REGS-OK WRITE-REGS-IF PROPERP-LENGTH-WRITE-REGS WRITE-REGS-F-BV-CROCK WRITE-REGS-F-WRITE-REGS-F WRITE-REGS-OFF WRITE-REGS READ-REGS-OFF READ-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE-OFF NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE&-OFF NEXT-CNTL-STATE& NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF V-OR-CROCK-FOR-F$NEXT-CNTL-STATE PROPERP-LENGTH-F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE-OFF F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE NEXT-CNTL-STATE-OFF NEXT-CNTL-STATE CV$VALUE-OFF CV$VALUE CHECK-CV$NETLIST CV$NETLIST CV&-OFF CV& CV* PROPERP-LENGTH-F$CV BVP-LENGTH-CV F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV-OFF MAKE-LIST-CROCK-FOR-F$CV=CV F$CV-OFF F$CV CV-OFF CV NEXT-STATE$VALUE-OFF NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE BVP-LENGTH-NEXT-STATE NEXT-STATE$NETLIST NEXT-STATE&-OFF NEXT-STATE& NEXT-STATE* F$NEXT-STATE=NEXT-STATE F$NEXT-STATE-OFF F$NEXT-STATE NEXT-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE-OFF CONTROL-LET$VALUE CONTROL-LET$NETLIST CONTROL-LET&-OFF CONTROL-LET& CONTROL-LET* F$CONTROL-LET-OFF F$CONTROL-LET PROPERP-LENGTH-CV_FETCH1 CV_FETCH1$RW-DOAN-MATTA BVP-CV-VECTORS-OFF BVP-CV-VECTORS CV-DESTRUCTURE-THEORY CV-THEORY CV_V11111$DESTRUCTURE-OFF CV_V11111$DESTRUCTURE CV_V11111-OFF CV_V11111 CV_RESET2$DESTRUCTURE-OFF CV_RESET2$DESTRUCTURE CV_RESET2-OFF CV_RESET2 CV_RESET1$DESTRUCTURE-OFF CV_RESET1$DESTRUCTURE CV_RESET1-OFF CV_RESET1 CV_RESET0$DESTRUCTURE-OFF CV_RESET0$DESTRUCTURE CV_RESET0-OFF CV_RESET0 CV_V11011$DESTRUCTURE-OFF CV_V11011$DESTRUCTURE CV_V11011-OFF CV_V11011 CV_V11010$DESTRUCTURE-OFF CV_V11010$DESTRUCTURE CV_V11010-OFF CV_V11010 CV_HOLD1$DESTRUCTURE-OFF CV_HOLD1$DESTRUCTURE CV_HOLD1-OFF CV_HOLD1 CV_HOLD0$DESTRUCTURE-OFF CV_HOLD0$DESTRUCTURE CV_HOLD0-OFF CV_HOLD0 CV_SEFB1$DESTRUCTURE-OFF CV_SEFB1$DESTRUCTURE CV_SEFB1-OFF CV_SEFB1 CV_SEFB0$DESTRUCTURE-OFF CV_SEFB0$DESTRUCTURE CV_SEFB0-OFF CV_SEFB0 CV_SEFA1$DESTRUCTURE-OFF CV_SEFA1$DESTRUCTURE CV_SEFA1-OFF CV_SEFA1 CV_SEFA0$DESTRUCTURE-OFF CV_SEFA0$DESTRUCTURE CV_SEFA0-OFF CV_SEFA0 CV_WRITE3$DESTRUCTURE-OFF CV_WRITE3$DESTRUCTURE CV_WRITE3-OFF CV_WRITE3 CV_WRITE2$DESTRUCTURE-OFF CV_WRITE2$DESTRUCTURE CV_WRITE2-OFF CV_WRITE2 CV_WRITE1$DESTRUCTURE-OFF CV_WRITE1$DESTRUCTURE CV_WRITE1-OFF CV_WRITE1 CV_WRITE0$DESTRUCTURE-OFF CV_WRITE0$DESTRUCTURE CV_WRITE0-OFF CV_WRITE0 CV_READB3$DESTRUCTURE-OFF CV_READB3$DESTRUCTURE CV_READB3-OFF CV_READB3 CV_READB2$DESTRUCTURE-OFF CV_READB2$DESTRUCTURE CV_READB2-OFF CV_READB2 CV_READB1$DESTRUCTURE-OFF CV_READB1$DESTRUCTURE CV_READB1-OFF CV_READB1 CV_READB0$DESTRUCTURE-OFF CV_READB0$DESTRUCTURE CV_READB0-OFF CV_READB0 CV_READA3$DESTRUCTURE-OFF CV_READA3$DESTRUCTURE CV_READA3-OFF CV_READA3 CV_READA2$DESTRUCTURE-OFF CV_READA2$DESTRUCTURE CV_READA2-OFF CV_READA2 CV_READA1$DESTRUCTURE-OFF CV_READA1$DESTRUCTURE CV_READA1-OFF CV_READA1 CV_READA0$DESTRUCTURE-OFF CV_READA0$DESTRUCTURE CV_READA0-OFF CV_READA0 CV_UPDATE$DESTRUCTURE-OFF CV_UPDATE$DESTRUCTURE CV_UPDATE-OFF CV_UPDATE CV_REGB$DESTRUCTURE-OFF CV_REGB$DESTRUCTURE CV_REGB-OFF CV_REGB CV_REGA$DESTRUCTURE-OFF CV_REGA$DESTRUCTURE CV_REGA-OFF CV_REGA CV_DECODE$DESTRUCTURE-OFF CV_DECODE$DESTRUCTURE CV_DECODE-OFF CV_DECODE CV_FETCH3$DESTRUCTURE-OFF CV_FETCH3$DESTRUCTURE CV_FETCH3-OFF CV_FETCH3 CV_FETCH2$DESTRUCTURE-OFF CV_FETCH2$DESTRUCTURE CV_FETCH2-OFF CV_FETCH2 CV_FETCH1$DESTRUCTURE-OFF CV_FETCH1$DESTRUCTURE CV_FETCH1-OFF CV_FETCH1 CV_FETCH0$DESTRUCTURE-OFF CV_FETCH0$DESTRUCTURE CV_FETCH0-OFF CV_FETCH0 CONTROL-STATE-ACCESSOR-THEORY ALU-MPG-OFF ALU-MPG ALU-OP-OFF ALU-OP REGS-ADDRESS-OFF REGS-ADDRESS WE-FLAGS-OFF WE-FLAGS STATE-OFF STATE ALU-ZERO-OFF ALU-ZERO ALU-C-OFF ALU-C SELECT-IMMEDIATE-OFF SELECT-IMMEDIATE DEC-ADDR-OUT-OFF DEC-ADDR-OUT DATA-IN-SELECT-OFF DATA-IN-SELECT WE-PC-REG-OFF WE-PC-REG WE-HOLD--OFF WE-HOLD- WE-ADDR-OUT-OFF WE-ADDR-OUT WE-DATA-OUT-OFF WE-DATA-OUT WE-I-REG-OFF WE-I-REG WE-B-REG-OFF WE-B-REG WE-A-REG-OFF WE-A-REG WE-REGS-OFF WE-REGS HDACK--OFF HDACK- STROBE--OFF STROBE- RW--OFF RW- BVP-LENGTH-STATE-VECTORS-OFF BVP-LENGTH-STATE-VECTORS NATURAL-STATE-THEORY VECTOR-STATE-THEORY G*1*N_V11111-OFF N_V11111-OFF N_V11111 G*1*V_V11111-OFF V_V11111-OFF V_V11111 G*1*N_RESET2-OFF N_RESET2-OFF N_RESET2 G*1*V_RESET2-OFF V_RESET2-OFF V_RESET2 G*1*N_RESET1-OFF N_RESET1-OFF N_RESET1 G*1*V_RESET1-OFF V_RESET1-OFF V_RESET1 G*1*N_RESET0-OFF N_RESET0-OFF N_RESET0 G*1*V_RESET0-OFF V_RESET0-OFF V_RESET0 G*1*N_V11011-OFF N_V11011-OFF N_V11011 G*1*V_V11011-OFF V_V11011-OFF V_V11011 G*1*N_V11010-OFF N_V11010-OFF N_V11010 G*1*V_V11010-OFF V_V11010-OFF V_V11010 G*1*N_HOLD1-OFF N_HOLD1-OFF N_HOLD1 G*1*V_HOLD1-OFF V_HOLD1-OFF V_HOLD1 G*1*N_HOLD0-OFF N_HOLD0-OFF N_HOLD0 G*1*V_HOLD0-OFF V_HOLD0-OFF V_HOLD0 G*1*N_SEFB1-OFF N_SEFB1-OFF N_SEFB1 G*1*V_SEFB1-OFF V_SEFB1-OFF V_SEFB1 G*1*N_SEFB0-OFF N_SEFB0-OFF N_SEFB0 G*1*V_SEFB0-OFF V_SEFB0-OFF V_SEFB0 G*1*N_SEFA1-OFF N_SEFA1-OFF N_SEFA1 G*1*V_SEFA1-OFF V_SEFA1-OFF V_SEFA1 G*1*N_SEFA0-OFF N_SEFA0-OFF N_SEFA0 G*1*V_SEFA0-OFF V_SEFA0-OFF V_SEFA0 G*1*N_WRITE3-OFF N_WRITE3-OFF N_WRITE3 G*1*V_WRITE3-OFF V_WRITE3-OFF V_WRITE3 G*1*N_WRITE2-OFF N_WRITE2-OFF N_WRITE2 G*1*V_WRITE2-OFF V_WRITE2-OFF V_WRITE2 G*1*N_WRITE1-OFF N_WRITE1-OFF N_WRITE1 G*1*V_WRITE1-OFF V_WRITE1-OFF V_WRITE1 G*1*N_WRITE0-OFF N_WRITE0-OFF N_WRITE0 G*1*V_WRITE0-OFF V_WRITE0-OFF V_WRITE0 G*1*N_READB3-OFF N_READB3-OFF N_READB3 G*1*V_READB3-OFF V_READB3-OFF V_READB3 G*1*N_READB2-OFF N_READB2-OFF N_READB2 G*1*V_READB2-OFF V_READB2-OFF V_READB2 G*1*N_READB1-OFF N_READB1-OFF N_READB1 G*1*V_READB1-OFF V_READB1-OFF V_READB1 G*1*N_READB0-OFF N_READB0-OFF N_READB0 G*1*V_READB0-OFF V_READB0-OFF V_READB0 G*1*N_READA3-OFF N_READA3-OFF N_READA3 G*1*V_READA3-OFF V_READA3-OFF V_READA3 G*1*N_READA2-OFF N_READA2-OFF N_READA2 G*1*V_READA2-OFF V_READA2-OFF V_READA2 G*1*N_READA1-OFF N_READA1-OFF N_READA1 G*1*V_READA1-OFF V_READA1-OFF V_READA1 G*1*N_READA0-OFF N_READA0-OFF N_READA0 G*1*V_READA0-OFF V_READA0-OFF V_READA0 G*1*N_UPDATE-OFF N_UPDATE-OFF N_UPDATE G*1*V_UPDATE-OFF V_UPDATE-OFF V_UPDATE G*1*N_REGB-OFF N_REGB-OFF N_REGB G*1*V_REGB-OFF V_REGB-OFF V_REGB G*1*N_REGA-OFF N_REGA-OFF N_REGA G*1*V_REGA-OFF V_REGA-OFF V_REGA G*1*N_DECODE-OFF N_DECODE-OFF N_DECODE G*1*V_DECODE-OFF V_DECODE-OFF V_DECODE G*1*N_FETCH3-OFF N_FETCH3-OFF N_FETCH3 G*1*V_FETCH3-OFF V_FETCH3-OFF V_FETCH3 G*1*N_FETCH2-OFF N_FETCH2-OFF N_FETCH2 G*1*V_FETCH2-OFF V_FETCH2-OFF V_FETCH2 G*1*N_FETCH1-OFF N_FETCH1-OFF N_FETCH1 G*1*V_FETCH1-OFF V_FETCH1-OFF V_FETCH1 G*1*N_FETCH0-OFF N_FETCH0-OFF N_FETCH0 G*1*V_FETCH0-OFF V_FETCH0-OFF V_FETCH0 CV-HYPS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$ALL-T-REGS-ADDRESS-OFF F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS F$SET-SOME-FLAGS-OFF F$SET-SOME-FLAGS BOOLP-C-FLAG NOT-SET-SOME-FLAGS-UPDATE-FLAGS FLAGS-HYPS NOT-SET-SOME-FLAGS-MAKE-LIST-4-F SET-SOME-FLAGS-OFF SET-SOME-FLAGS ENCODE-32$VALUE-ON-A-VECTOR-OFF ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 PROPERP-LENGTH-F$ENCODE-32 BVP-LENGTH-ENCODE-32 F$ENCODE-32=ENCODE-32 ENCODE-32$VALUE-OFF ENCODE-32$VALUE ENCODE-32$NETLIST ENCODE-32&-OFF ENCODE-32& ENCODE-32* F$ENCODE-32-OFF F$ENCODE-32 ENCODE-32-OFF ENCODE-32 DECODE-5$VALUE-OFF F$DECODE-5=DECODE-5 DECODE-5$VALUE PROPERP-LENGTH-F$DECODE-5 DECODE-5$NETLIST DECODE-5&-OFF DECODE-5& DECODE-5* BVP-LENGTH-DECODE-5 DECODE-5-OFF DECODE-5 F$DECODE-5-OFF F$DECODE-5 FANOUT-32$VALUE-OFF FANOUT-32$VALUE FANOUT-32$NETLIST FANOUT-32&-OFF FANOUT-32& FANOUT-32* FANOUT-5$VALUE-OFF FANOUT-5$VALUE FANOUT-5$NETLIST FANOUT-5&-OFF FANOUT-5& FANOUT-5* FANOUT-4$VALUE-OFF FANOUT-4$VALUE FANOUT-4$NETLIST FANOUT-4&-OFF FANOUT-4& FANOUT-4* V-IF-F-4$RESET-VALUE-OFF V-IF-F-4$RESET-VALUE F$V-IF-F-4=FV-IF V-IF-F-4$VALUE PROPERP-LENGTH-F$V-IF-F-4 F$V-IF-F-4-OFF F$V-IF-F-4 V-IF-F-4$NETLIST V-IF-F-4&-OFF V-IF-F-4& V-IF-F-4* SELECT-OP-CODE$VALUE-OFF SELECT-OP-CODE$VALUE SELECT-OP-CODE$NETLIST SELECT-OP-CODE&-OFF SELECT-OP-CODE& SELECT-OP-CODE* F$SELECT-OP-CODE-SELECTS PROPERP-LENGTH-F$SELECT-OP-CODE F$SELECT-OP-CODE-OFF F$SELECT-OP-CODE F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE-OFF DECODE-REG-MODE$VALUE DECODE-REG-MODE$NETLIST DECODE-REG-MODE&-OFF DECODE-REG-MODE& DECODE-REG-MODE* F$DECODE-REG-MODE-OFF F$DECODE-REG-MODE UNARY-OP-CODE-P$VALUE-OFF UNARY-OP-CODE-P$VALUE UNARY-OP-CODE-P$NETLIST UNARY-OP-CODE-P&-OFF UNARY-OP-CODE-P& UNARY-OP-CODE-P* F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$UNARY-OP-CODE-P-OFF F$UNARY-OP-CODE-P B-STORE-RESULTP$VALUE B-STORE-RESULTP=STORE-RESULTP B-STORE-RESULTP=STORE-RESULTP$HELP B-STORE-RESULTP$NETLIST B-STORE-RESULTP&-OFF B-STORE-RESULTP& B-STORE-RESULTP* F$B-STORE-RESULTP=B-STORE-RESULTP F$B-STORE-RESULTP-OFF F$B-STORE-RESULTP B-STORE-RESULTP-OFF B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX$VALUE-OFF STORE-RESULTP-MUX$VALUE STORE-RESULTP-MUX$NETLIST STORE-RESULTP-MUX&-OFF STORE-RESULTP-MUX& STORE-RESULTP-MUX* F$STORE-RESULTP-MUX-OFF F$STORE-RESULTP-MUX STORE-RESULTP-MUX ASM-AND-FM9001 EXECUTE-FM9001 UN-FM9001 MEM-TO-LIST LIST-TO-TREE-MEM LIST-TO-MEM STUB-RIGHT LIST-TO-MEM1 LIST-TO-MEM2 LIST-TO-MEM3 ADD-RAM-MARKER MAKE-PAIRS V-TO-HEX-ALL V-TO-HEX V-TO-0S-THROUGH-FS V-TO-NAT-ALL ASM-TO-1-AND-0 T-AND-F-TO-1-AND-0 ASM ASM-LIST ASM-LINE UPDATE-LIST RESOLVE-NAMES ASM-FLAGS ASM-STORE-CC ASM-OP-CODE ASM-REGISTER-A ASM-REGISTER LOG2 QUOTIENT-STUFF EXP2 SUB INTEGER-MINUS ADD C10-INT C10-TF BV-TO-INT INT-TO-BV INTP UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 BOOLP-STORE-RESULT-P REG-DIRECT->NOT-REG-INDIRECT BVP-A-IMMEDIATE BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-INTR-OFF FM9001-INTR OPEN-FM9001-INTERPRETER FM9001-INTERPRETER-OFF FM9001-INTERPRETER FM9001-OFF FM9001 FM9001-STEP-OFF FM9001-STEP FM9001-FETCH FM9001-OPERAND-A FM9001-OPERAND-B FM9001-ALU-OPERATION FLAGS-OFF REGS-OFF FLAGS REGS UPDATE-FLAGS-OFF UPDATE-FLAGS STORE-RESULTP-OFF STORE-RESULTP REG-MODE-THEORY POST-INC-P-OFF PRE-DEC-P-OFF REG-INDIRECT-P-OFF REG-DIRECT-P-OFF POST-INC-P PRE-DEC-P REG-INDIRECT-P REG-DIRECT-P FLAGS-THEORY C-FLAG-OFF V-FLAG-OFF N-FLAG-OFF Z-FLAG-OFF C-FLAG V-FLAG N-FLAG Z-FLAG SET-FLAGS-THEORY C-SET-OFF V-SET-OFF N-SET-OFF Z-SET-OFF C-SET V-SET N-SET Z-SET IR-FIELDS-THEORY OP-CODE-OFF STORE-CC-OFF SET-FLAGS-OFF MODE-B-OFF MODE-A-OFF RN-B-OFF RN-A-OFF A-IMMEDIATE-OFF A-IMMEDIATE-P-OFF OP-CODE STORE-CC SET-FLAGS MODE-B RN-B MODE-A RN-A A-IMMEDIATE A-IMMEDIATE-P REG-SIZE CORE-ALU$VALUE-OFF CORE-ALU$VALUE CORE-ALU$NETLIST CORE-ALU&-OFF CORE-ALU& CORE-ALU*$DESTRUCTURE-OFF CORE-ALU*-OFF CORE-ALU*$DESTRUCTURE CORE-ALU* CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK BOOLP-BVP-CORE-ALU LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU PROPERP-LENGTH-F$CORE-ALU CORE-ALU-OFF CORE-ALU F$CORE-ALU-OFF F$CORE-ALU TV-SHIFT-OR-BUF$VALUE-ZERO-OFF TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE-OFF TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF$NETLIST TV-SHIFT-OR-BUF&-OFF TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF TV-SHIFT-OR-BUF*-OFF TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF PROPERP-LENGTH-F$SHIFT-OR-BUF SHIFT-OR-BUF-OFF SHIFT-OR-BUF F$SHIFT-OR-BUF-OFF F$SHIFT-OR-BUF SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL$VALUE-OFF SHIFT-OR-BUF-CNTL$VALUE SHIFT-OR-BUF-CNTL$NETLIST SHIFT-OR-BUF-CNTL&-OFF SHIFT-OR-BUF-CNTL& SHIFT-OR-BUF-CNTL* F$SHIFT-OR-BUF-CNTL-OFF F$SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL COLLECT-VALUE-V-SHIFT-RIGHT PROPERP-SHIFT-RIGHT-NAMES LENGTH-V-SHIFT-RIGHT-NAMES V-SHIFT-RIGHT-NAMES OVERFLOW-HELP$VALUE-ZERO-OFF OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP OVERFLOW-HELP$VALUE-OFF OVERFLOW-HELP$VALUE OVERFLOW-HELP$NETLIST OVERFLOW-HELP&-OFF OVERFLOW-HELP& OVERFLOW-HELP* F$OVERFLOW-HELP-OFF F$OVERFLOW-HELP OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO-OFF CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP-CONGRUENCE F$CARRY-OUT-HELP=CARRY-OUT-HELP CARRY-OUT-HELP$VALUE-OFF CARRY-OUT-HELP$VALUE CARRY-OUT-HELP$NETLIST CARRY-OUT-HELP&-OFF CARRY-OUT-HELP& CARRY-OUT-HELP* F$CARRY-OUT-HELP-OFF F$CARRY-OUT-HELP CARRY-OUT-HELP TV-ALU-HELP$VALUE-OFF TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP$VALUE-BASE-CASE-OFF TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK-OFF TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-INDUCTION TV-ALU-HELP$NETLIST TV-ALU-HELP&-OFF TV-ALU-HELP& TV-ALU-HELP*$DESTRUCTURE-OFF TV-ALU-HELP*-OFF TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP* TV-ALU-HELP-BODY F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP-OFF F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS-OFF TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS-OFF TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS-OFF TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS-OFF TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS-OFF TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS-OFF TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS-OFF TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS-OFF TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS-OFF TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS-OFF TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS-OFF TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO-OFF TV-ALU-HELP-ZERO BVP-LENGTH-TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP-OFF TV-ALU-HELP F$ALU-CELL-V-THREEFIX-MPG ALU-CELL$VALUE-ZERO-OFF ALU-CELL$VALUE-ZERO ALU-CELL$VALUE-OFF ALU-CELL$VALUE ALU-CELL$NETLIST ALU-CELL&-OFF ALU-CELL& ALU-CELL* F$ALU-CELL=ALU-CELL F$ALU-CELL-OFF F$ALU-CELL ALU-CELL G-CELL$VALUE-ZERO F$G-CELL=G-CELL G-CELL$VALUE-OFF G-CELL$VALUE G-CELL$NETLIST G-CELL&-OFF G-CELL& G-CELL* F$G-CELL-OFF F$G-CELL G-CELL P-CELL$VALUE-ZERO F$P-CELL=P-CELL P-CELL$VALUE-OFF P-CELL$VALUE P-CELL$NETLIST P-CELL&-OFF P-CELL& P-CELL* F$P-CELL-OFF F$P-CELL P-CELL CARRY-IN-HELP$VALUE-ZERO-OFF CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE-OFF CARRY-IN-HELP$VALUE CARRY-IN-HELP-IF-OP-CODE CARRY-IN-HELP-ZERO-OFF CARRY-IN-HELP-ZERO CARRY-IN-HELP$NETLIST CARRY-IN-HELP&-OFF CARRY-IN-HELP& CARRY-IN-HELP* F$CARRY-IN-HELP=CARRY-IN-HELP F$CARRY-IN-HELP-OFF F$CARRY-IN-HELP CARRY-IN-HELP-OFF CARRY-IN-HELP MPG$VALUE-ZERO-OFF MPG$VALUE-ZERO MPG$VALUE-OFF MPG$VALUE MPG$NETLIST MPG&-OFF MPG& MPG* MPG-ZERO-OFF MPG-ZERO MPG-IF-OP-CODE PROPERP-MPG BVP-MPG LENGTH-MPG PROPERP-LENGTH-F$MPG F$MPG=MPG MPG-OFF MPG F$MPG-OFF F$MPG DECODE-GEN$VALUE-ZERO-OFF DECODE-GEN$VALUE-ZERO F$DECODE-GEN=DECODE-GEN DECODE-GEN$VALUE-OFF DECODE-GEN$VALUE DECODE-GEN$NETLIST DECODE-GEN&-OFF DECODE-GEN& DECODE-GEN* F$DECODE-GEN-OFF F$DECODE-GEN DECODE-GEN DECODE-PROP$VALUE-ZERO-OFF DECODE-PROP$VALUE-ZERO F$DECODE-PROP=DECODE-PROP DECODE-PROP$VALUE-OFF DECODE-PROP$VALUE DECODE-PROP$NETLIST DECODE-PROP&-OFF DECODE-PROP& DECODE-PROP* F$DECODE-PROP-OFF F$DECODE-PROP DECODE-PROP DECODE-MODE$VALUE-ZERO-OFF DECODE-MODE$VALUE-ZERO F$DECODE-MODE=DECODE-MODE DECODE-MODE$VALUE-OFF DECODE-MODE$VALUE DECODE-MODE$NETLIST DECODE-MODE&-OFF DECODE-MODE& DECODE-MODE* F$DECODE-MODE-OFF F$DECODE-MODE DECODE-MODE BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-ALU-DEC-OP G*1*ALU-DEC-OP-OFF ALU-DEC-OP-OFF ALU-DEC-OP BVP-LENGTH-ALU-INC-OP G*1*ALU-INC-OP-OFF ALU-INC-OP-OFF ALU-INC-OP UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU-1 BVP-V-ALU-1 V-ALU-1-OFF V-ALU-1 UNARY-OP-CODE-P-OFF UNARY-OP-CODE-P BVP-LENGTH-BV LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU-OFF V-ALU CVZBV-V-LSR CVZBV-V-ASR CVZBV-V-NOT CVZBV-DEC CVZBV-NEG CVZBV-INC CVZBV-V-SUBTRACTER CVZBV-V-LSL CVZBV-V-ADDER CVZBV-V-ROR BVP-CVZBV BOOLP-BVP-CVZBV BOOLP-N BV-OFF ZB-OFF N-OFF V-OFF C-OFF ZB N BV V C CVZBV WE-REG$STATE-OFF WE-REG$STATE WE-REG-BODY$STATE-OFF WE-REG-BODY$STATE WE-REG$VALUE-OFF WE-REG$VALUE WE-REG-BODY$VALUE-OFF WE-REG-BODY$VALUE WE-REG-BODY-INDUCTION WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY-OFF WE-REG-BODY$UNBOUND-IN-BODY WE-REG$NETLIST WE-REG&-OFF WE-REG& WE-REG*$DESTRUCTURE-OFF WE-REG*-OFF WE-REG*$DESTRUCTURE WE-REG* WE-REG-BODY-OFF WE-REG-BODY REG$STATE-OFF REG$STATE REG-BODY$STATE REG$VALUE-OFF REG$VALUE REG-BODY$VALUE REG-BODY-INDUCTION REG-BODY$ALL-UNBOUND-IN-BODY-OFF REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY-OFF REG-BODY$UNBOUND-IN-BODY REG$NETLIST REG&-OFF REG& REG*$DESTRUCTURE-OFF REG*-OFF REG*$DESTRUCTURE REG* REG-BODY-OFF REG-BODY CHECK-DEC-PASS$NETLIST DEC-PASS$NETLIST DEC-PASS$VALUE-OFF DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS F$DEC-PASS-OFF F$DEC-PASS DEC-PASS&-OFF DEC-PASS& DEC-PASS*$DESTRUCTURE-OFF DEC-PASS*-OFF DEC-PASS*$DESTRUCTURE DEC-PASS* CHECK-TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$VALUE-OFF TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK-OFF TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG&-OFF TV-DEC-PASS-NG& TV-DEC-PASS-NG*$DESTRUCTURE-OFF TV-DEC-PASS-NG*-OFF TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG* TV-DEC-PASS-NG-BODY-OFF TV-DEC-PASS-NG-BODY TV-DEC-PASS-NAME DEC-PASS-CELL$VALUE DEC-PASS-CELL$NETLIST DEC-PASS-CELL&-OFF DEC-PASS-CELL& DEC-PASS-CELL* F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH F$TV-DEC-PASS-NG-OFF F$TV-DEC-PASS-NG TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BOOLP-CAR-TV-DEC-PASS-NG TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-LENGTH-TV-DEC-PASS-NG BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-OFF TV-DEC-PASS-NG TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 BVP-LENGTH-TV-DEC-PASS BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS TV-DEC-PASS-LENGTH CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS-OFF TV-DEC-PASS F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V F$V-INC4$V-OFF F$V-INC4$V F$V-INC4=V-INC4 V-INC4$VALUE-OFF V-INC4$VALUE V-INC4$NETLIST V-INC4&-OFF V-INC4& V-INC4* F$V-INC4-OFF F$V-INC4 V-INC4 F$V-EQUAL=EQUAL* V-EQUAL$VALUE-OFF V-EQUAL$VALUE F$V-EQUAL-OFF F$V-EQUAL V-EQUAL$NETLIST V-EQUAL&-OFF V-EQUAL& V-EQUAL*$DESTRUCTURE-OFF V-EQUAL*-OFF V-EQUAL*$DESTRUCTURE V-EQUAL* FAST-ZERO$VALUE CHECK-FAST-ZERO$NETLIST FAST-ZERO$NETLIST FAST-ZERO&-OFF FAST-ZERO& FAST-ZERO*$DESTRUCTURE-OFF FAST-ZERO*-OFF FAST-ZERO*$DESTRUCTURE FAST-ZERO* F$FAST-ZERO=V-ZEROP F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO-OFF F$FAST-ZERO F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE-OFF TV-ZEROP$VALUE F$TV-ZEROP-OFF F$TV-ZEROP TV-ZEROP$NETLIST TV-ZEROP&-OFF TV-ZEROP& TV-ZEROP*$DESTRUCTURE-OFF TV-ZEROP*-OFF TV-ZEROP*$DESTRUCTURE TV-ZEROP* BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR-OFF BTR-OR-NOR T-OR-NOR$VALUE-OFF T-OR-NOR$VALUE TR-OR-NOR-OFF TR-OR-NOR T-OR-NOR-INDUCTION T-OR-NOR$NETLIST T-OR-NOR&-OFF T-OR-NOR& T-OR-NOR*$DESTRUCTURE-OFF T-OR-NOR*-OFF T-OR-NOR*$DESTRUCTURE T-OR-NOR* T-OR-NOR-BODY TV-IF$VALUE-OFF TV-IF$VALUE TV-IF-LEMMA-CROCK-OFF TV-IF-LEMMA-CROCK TV-IF-INDUCTION TV-IF$NETLIST TV-IF&-OFF TV-IF& TV-IF*$DESTRUCTURE-OFF TV-IF*-OFF TV-IF*$DESTRUCTURE TV-IF* TV-IF-BODY TV-ADDER-AS-P-G-SUM-OFF CDDR-TV-ADDER-AS-SUM-OFF CADR-TV-ADDER-AS-G-OFF CAR-TV-ADDER-AS-P-OFF TV-ADDER-AS-P-G-SUM EQUALITY-OF-THREE-ELEMENT-LISTS CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER-OFF TV-ADDER V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM T-CARRY-P-G-CARRY APPEND-SUM GENERATE-APPEND V-PROPAGATE-APPEND-OFF V-PROPAGATE-APPEND V-APPEND-PROPAGATE T-CARRY$VALUE-OFF T-CARRY$VALUE T-CARRY$NETLIST T-CARRY&-OFF T-CARRY& T-CARRY* T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY T-CARRY-OFF T-CARRY F$T-CARRY-OFF F$T-CARRY V-GENERATE-OFF V-GENERATE V-PROPAGATE-OFF V-PROPAGATE V-CARRY-OFF V-CARRY A-1+1=A V-SUM-CONGRUENCE LENGTH-SUM BVP-SUM V-SUM-OFF V-SUM BV-ADDER$VALUE-OFF BV-ADDER-BODY$VALUE-OFF BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF BV-ADDER$UNBOUND-IN-BODY-SUM-OFF BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER-BODY$INDUCTION BV-ADDER$NETLIST-OFF BV-ADDER$NETLIST BV-ADDER&-OFF BV-ADDER& BV-ADDER*$DESTRUCTURE-OFF BV-ADDER*-OFF BV-ADDER*$DESTRUCTURE BV-ADDER* BV-ADDER-BODY-OFF BV-ADDER-BODY BV-ADDER M2$STATE-OFF M2$STATE M2$VALUE-OFF M2$VALUE M2&-OFF M2& M2$NETLIST M2* M1$STATE-OFF M1$STATE M1$VALUE-OFF M1$VALUE M1&-OFF M1& M1$NETLIST M1* F$FULL-ADDER=FULL-ADDER FULL-ADDER FULL-ADDER$VALUE F$FULL-ADDER FULL-ADDER&-OFF FULL-ADDER& FULL-ADDER$NETLIST FULL-ADDER* HALF-ADDER$VALUE-OFF HALF-ADDER$VALUE HALF-ADDER&-OFF HALF-ADDER& HALF-ADDER$NETLIST HALF-ADDER* COUNT-PRIMITIVES-OFF COUNT-PRIMITIVES COLLECT-PRIMITIVES LISP-NETLIST NUMBER-TO-LIST NUMBER-TO-LIST1 NUMBER-TO-DIGIT REV-0 V-WIRE$VALUE-OFF V-WIRE$VALUE V-WIRE$BODY-VALUE-OFF V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY-OFF V-WIRE$UNBOUND-IN-BODY V-WIRE$NETLIST V-WIRE&-OFF V-WIRE& V-WIRE*$DESTRUCTURE-OFF V-WIRE*-OFF V-WIRE*$DESTRUCTURE V-WIRE* V-WIRE$BODY-OFF V-WIRE$BODY V-PULLUP$VALUE-OFF V-PULLUP$VALUE V-PULLUP$BODY-VALUE-OFF V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY-OFF V-PULLUP$UNBOUND-IN-BODY V-PULLUP$NETLIST V-PULLUP&-OFF V-PULLUP& V-PULLUP*$DESTRUCTURE-OFF V-PULLUP*-OFF V-PULLUP*$DESTRUCTURE V-PULLUP* V-PULLUP$BODY-OFF V-PULLUP$BODY V-XOR$VALUE-OFF V-XOR$VALUE V-XOR$BODY-VALUE-OFF V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY-OFF V-XOR$UNBOUND-IN-BODY V-XOR$NETLIST V-XOR&-OFF V-XOR& V-XOR*$DESTRUCTURE-OFF V-XOR*-OFF V-XOR*$DESTRUCTURE V-XOR* V-XOR$BODY-OFF V-XOR$BODY V-OR$VALUE-OFF V-OR$VALUE V-OR$BODY-VALUE-OFF V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY-OFF V-OR$UNBOUND-IN-BODY V-OR$NETLIST V-OR&-OFF V-OR& V-OR*$DESTRUCTURE-OFF V-OR*-OFF V-OR*$DESTRUCTURE V-OR* V-OR$BODY-OFF V-OR$BODY V-BUF$VALUE-OFF V-BUF$VALUE V-BUF$BODY-VALUE-OFF V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY-OFF V-BUF$UNBOUND-IN-BODY V-BUF$NETLIST V-BUF&-OFF V-BUF& V-BUF*$DESTRUCTURE-OFF V-BUF*-OFF V-BUF*$DESTRUCTURE V-BUF* V-BUF$BODY-OFF V-BUF$BODY VECTOR-MODULE-INDUCTION ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND ALL-UNBOUND-IN-BODY-LISTP ALL-UNBOUND-IN-BODY-NLISTP ALL-UNBOUND-IN-BODY-OFF ALL-UNBOUND-IN-BODY UNBOUND-IN-BODY-LISTP UNBOUND-IN-BODY-NLISTP UNBOUND-IN-BODY-OFF UNBOUND-IN-BODY MEM-32X32$STRUCTURED-STATE-OFF MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1-OFF MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-OFF MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1-OFF MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE-OFF LIST-32-NTH-COLLAPSE MEM-32X32-ARGS-CROCK-OFF MEM-32X32-ARGS-CROCK DP-RAM-16X32$STRUCTURED-STATE-OFF DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE-OFF DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32-ARGS-CROCK-OFF DP-RAM-16X32-ARGS-CROCK B-BUF-PWR$VALUE-OFF B-BUF-PWR$VALUE B-BUF-PWR$NETLIST B-BUF-PWR&-OFF B-BUF-PWR& B-BUF-PWR* B-BUF$VALUE-OFF B-BUF$VALUE B-BUF$NETLIST B-BUF&-OFF B-BUF& B-BUF* MEM-32X32$STATE-OFF MEM-32X32$STATE FD1SLP$STATE-OFF FD1SLP$STATE FD1SP$STATE-OFF FD1SP$STATE FD1S$STATE-OFF FD1S$STATE FD1$STATE-OFF FD1$STATE DP-RAM-16X32$STATE-OFF DP-RAM-16X32$STATE VSS$VALUE-OFF VSS$VALUE VSS$NETLIST VSS&-OFF VSS& VDD-PARAMETRIC$VALUE-OFF VDD-PARAMETRIC$VALUE VDD-PARAMETRIC$NETLIST VDD-PARAMETRIC&-OFF VDD-PARAMETRIC& VDD$VALUE-OFF VDD$VALUE VDD$NETLIST VDD&-OFF VDD& TTL-TRI-OUTPUT-FAST$VALUE-OFF TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST$NETLIST TTL-TRI-OUTPUT-FAST&-OFF TTL-TRI-OUTPUT-FAST& TTL-TRI-OUTPUT$VALUE-OFF TTL-TRI-OUTPUT$VALUE TTL-TRI-OUTPUT$NETLIST TTL-TRI-OUTPUT&-OFF TTL-TRI-OUTPUT& TTL-OUTPUT-FAST$VALUE-OFF TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-FAST$NETLIST TTL-OUTPUT-FAST&-OFF TTL-OUTPUT-FAST& TTL-OUTPUT-PARAMETRIC$VALUE-OFF TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT-PARAMETRIC$NETLIST TTL-OUTPUT-PARAMETRIC&-OFF TTL-OUTPUT-PARAMETRIC& TTL-OUTPUT$VALUE-OFF TTL-OUTPUT$VALUE TTL-OUTPUT$NETLIST TTL-OUTPUT&-OFF TTL-OUTPUT& TTL-INPUT$VALUE-OFF TTL-INPUT$VALUE TTL-INPUT$NETLIST TTL-INPUT&-OFF TTL-INPUT& TTL-CLK-INPUT$VALUE-OFF TTL-CLK-INPUT$VALUE TTL-CLK-INPUT$NETLIST TTL-CLK-INPUT&-OFF TTL-CLK-INPUT& TTL-BIDIRECT$VALUE-OFF TTL-BIDIRECT$VALUE TTL-BIDIRECT$NETLIST TTL-BIDIRECT&-OFF TTL-BIDIRECT& PULLUP$VALUE-OFF PULLUP$VALUE PULLUP$NETLIST PULLUP&-OFF PULLUP& T-WIRE$VALUE-OFF T-WIRE$VALUE T-WIRE$NETLIST T-WIRE&-OFF T-WIRE& T-BUF$VALUE-OFF T-BUF$VALUE T-BUF$NETLIST T-BUF&-OFF T-BUF& RAM-ENABLE-CIRCUIT$VALUE-OFF RAM-ENABLE-CIRCUIT$VALUE RAM-ENABLE-CIRCUIT$NETLIST RAM-ENABLE-CIRCUIT&-OFF RAM-ENABLE-CIRCUIT& MEM-32X32$VALUE-OFF MEM-32X32$VALUE MEM-32X32$NETLIST MEM-32X32&-OFF MEM-32X32& ID$VALUE-OFF ID$VALUE ID$NETLIST ID&-OFF ID& FD1SLP$VALUE-OFF FD1SLP$VALUE FD1SLP$NETLIST FD1SLP&-OFF FD1SLP& FD1SP$VALUE-OFF FD1SP$VALUE FD1SP$NETLIST FD1SP&-OFF FD1SP& FD1S$VALUE-OFF FD1S$VALUE FD1S$NETLIST FD1S&-OFF FD1S& FD1$VALUE-OFF FD1$VALUE FD1$NETLIST FD1&-OFF FD1& DP-RAM-16X32$VALUE-OFF DP-RAM-16X32$VALUE DP-RAM-16X32$NETLIST DP-RAM-16X32&-OFF DP-RAM-16X32& PROCMON$VALUE-OFF PROCMON$VALUE PROCMON$NETLIST PROCMON&-OFF PROCMON& DEL10$VALUE-OFF DEL10$VALUE DEL10$NETLIST DEL10&-OFF DEL10& DEL4$VALUE-OFF DEL4$VALUE DEL4$NETLIST DEL4&-OFF DEL4& DEL2$VALUE-OFF DEL2$VALUE DEL2$NETLIST DEL2&-OFF DEL2& B-XOR3$VALUE-OFF B-XOR3$VALUE B-XOR3$NETLIST B-XOR3&-OFF B-XOR3& B-XOR$VALUE-OFF B-XOR$VALUE B-XOR$NETLIST B-XOR&-OFF B-XOR& B-OR4$VALUE-OFF B-OR4$VALUE B-OR4$NETLIST B-OR4&-OFF B-OR4& B-OR3$VALUE-OFF B-OR3$VALUE B-OR3$NETLIST B-OR3&-OFF B-OR3& B-OR$VALUE-OFF B-OR$VALUE B-OR$NETLIST B-OR&-OFF B-OR& B-NOT-IVAP$VALUE-OFF B-NOT-IVAP$VALUE B-NOT-IVAP$NETLIST B-NOT-IVAP&-OFF B-NOT-IVAP& B-NOT-B4IP$VALUE-OFF B-NOT-B4IP$VALUE B-NOT-B4IP$NETLIST B-NOT-B4IP&-OFF B-NOT-B4IP& B-NOT$VALUE-OFF B-NOT$VALUE B-NOT$NETLIST B-NOT&-OFF B-NOT& B-NOR8$VALUE-OFF B-NOR8$VALUE B-NOR8$NETLIST B-NOR8&-OFF B-NOR8& B-NOR6$VALUE-OFF B-NOR6$VALUE B-NOR6$NETLIST B-NOR6&-OFF B-NOR6& B-NOR5$VALUE-OFF B-NOR5$VALUE B-NOR5$NETLIST B-NOR5&-OFF B-NOR5& B-NOR4$VALUE-OFF B-NOR4$VALUE B-NOR4$NETLIST B-NOR4&-OFF B-NOR4& B-NOR3$VALUE-OFF B-NOR3$VALUE B-NOR3$NETLIST B-NOR3&-OFF B-NOR3& B-NOR$VALUE-OFF B-NOR$VALUE B-NOR$NETLIST B-NOR&-OFF B-NOR& B-NBUF$VALUE-OFF B-NBUF$VALUE B-NBUF$NETLIST B-NBUF&-OFF B-NBUF& B-NAND8$VALUE-OFF B-NAND8$VALUE B-NAND8$NETLIST B-NAND8&-OFF B-NAND8& B-NAND6$VALUE-OFF B-NAND6$VALUE B-NAND6$NETLIST B-NAND6&-OFF B-NAND6& B-NAND5$VALUE-OFF B-NAND5$VALUE B-NAND5$NETLIST B-NAND5&-OFF B-NAND5& B-NAND4$VALUE-OFF B-NAND4$VALUE B-NAND4$NETLIST B-NAND4&-OFF B-NAND4& B-NAND3$VALUE-OFF B-NAND3$VALUE B-NAND3$NETLIST B-NAND3&-OFF B-NAND3& B-NAND$VALUE-OFF B-NAND$VALUE B-NAND$NETLIST B-NAND&-OFF B-NAND& B-IF$VALUE-OFF B-IF$VALUE B-IF$NETLIST B-IF&-OFF B-IF& B-EQUV3$VALUE-OFF B-EQUV3$VALUE B-EQUV3$NETLIST B-EQUV3&-OFF B-EQUV3& B-EQUV$VALUE-OFF B-EQUV$VALUE B-EQUV$NETLIST B-EQUV&-OFF B-EQUV& B-AND4$VALUE-OFF B-AND4$VALUE B-AND4$NETLIST B-AND4&-OFF B-AND4& B-AND3$VALUE-OFF B-AND3$VALUE B-AND3$NETLIST B-AND3&-OFF B-AND3& B-AND$VALUE-OFF B-AND$VALUE B-AND$NETLIST B-AND&-OFF B-AND& AO7$VALUE-OFF AO7$VALUE AO7$NETLIST AO7&-OFF AO7& AO6$VALUE-OFF AO6$VALUE AO6$NETLIST AO6&-OFF AO6& AO4$VALUE-OFF AO4$VALUE AO4$NETLIST AO4&-OFF AO4& AO2$VALUE-OFF AO2$VALUE AO2$NETLIST AO2&-OFF AO2& NETLIST-LOADINGS-AND-DRIVES-OFF NETLIST-LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES-OFF LOADINGS-AND-DRIVES FIX-DEPENDENT-DRS-OFF FIX-DEPENDENT-DRS STATE-OKP-OFF STATE-OKP TYPE-COUNT-LESSP3-OFF TYPE-COUNT-LESSP2-OFF TYPE-COUNT-LESSP1-OFF STATE-OKP-0-OFF STATE-OKP-0 TYPE-COUNT-OFF TYPE-COUNT-LESSP3 TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP1 TYPE-COUNT NETLIST-STATE-TYPES-OFF NETLIST-STATE-TYPES STATE-TYPE-REQUIREMENT-OFF STATE-TYPE-REQUIREMENT ARG-TYPES-OKP-OFF ARG-TYPES-OKP ARG-TYPES-MATCHP-OFF ARG-TYPES-MATCHP NETLIST-TYPE-TABLE-OFF NETLIST-TYPE-TABLE IO-TYPES-OFF IO-TYPES IO-TYPES-COLLECTOR-OFF IO-TYPES-COLLECTOR OUTPUT-DEPENDENCIES-OFF OUTPUT-DEPENDENCIES DEPENDENCY-TABLE-OFF DEPENDENCY-TABLE OUT-DEPENDS-OFF OUT-DEPENDS PRIMITIVE-COUNT-OFF PRIMITIVE-COUNT DELETE-NULL-ENTRIES-OFF DELETE-NULL-ENTRIES SUBNET-OFF SUBNET SUBNET0-OFF BOUNDP-OFF1 SUBNET0 BOUNDP-ON PRIMP-DATABASE-PREDICATE-OFF PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-ERRORS-OFF PRIMP-DATABASE-ERRORS PRIMITIVE-OK-OFF PRIMITIVE-OK PARENT-PROPS-ALIST-OFF PARENT-PROPS-ALIST OK-OUTPUT-TYPES-OFF OK-OUTPUT-TYPES OK-INPUT-TYPES-OFF OK-INPUT-TYPES OK-OUT-DEPENDS-OFF OK-OUT-DEPENDS OK-STATES-OFF OK-STATES OK-NAME-LIST-OFF OK-NAME-LIST PRIMITIVE-PROP-ERRORS-OFF PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-OK-OFF PRIMITIVE-PROP-OK PNEW-STATES-OK-OFF PNEW-STATES-OK PRESULTS-OK-OFF PRESULTS-OK PRESULTS-ERRORS-OFF PRESULTS-ERRORS RESULTS-LENGTH-OFF RESULTS-LENGTH PRESULT-OK-OFF PRESULT-OK PRESULT-FORM-ERRORS-OFF PRESULT-FORM-ERRORS UNKNOWN-ARGS-OFF UNKNOWN-ARGS PSTATE-TYPES-OK-OFF PSTATE-TYPES-OK PSTATE-TYPES-ERRORS-OFF PSTATE-TYPES-ERRORS PSTATE-TYPE-OK-OFF PSTATE-TYPE-OK PSTATE-TYPE-LIST-ERRORS-OFF PSTATE-TYPE-LIST-ERRORS ONE-PSTATE-TYPE-OK-OFF ONE-PSTATE-TYPE-OK PADDRESSED-STATE-CALL-OK-OFF PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK-OFF PMEMORY-WORD-CALL-OK LITERAL-STATE-TYPE-OK-OFF LITERAL-STATE-TYPE-OK BOOLP-LIST-OK-OFF BOOLP-LIST-OK ADDRESSED-STATE-OFF ADDRESSED-STATE PSTATES-OK-OFF PSTATES-OK POUT-DEPENDS-OK-OFF POUT-DEPENDS-OK POUT-DEPENDS-ERRORS-OFF POUT-DEPENDS-ERRORS POUT-DEPENDS-ONE-OK-OFF POUT-DEPENDS-ONE-OK PLSI-NAME-OK-OFF PLSI-NAME-OK PLOADINGS-OK-OFF PLOADINGS-OK PLOADINGS-ERRORS-OFF PLOADINGS-ERRORS PLOADING-OK-OFF PLOADING-OK PDRIVES-OK-OFF PDRIVES-OK PDRIVES-ERRORS-OFF PDRIVES-ERRORS PDRIVE-OK-OFF PDRIVE-OK PDELAYS-OK-OFF PDELAYS-OK PDELAYS-ERRORS-OFF PDELAYS-ERRORS PDELAY-OK-OFF PDELAY-OK PHALF-DELAY-OK-OFF PHALF-DELAY-OK P-T-WIRE-ARGS-OK-OFF P-T-WIRE-ARGS-OK P-NAME-PROP-VALUE-OK-OFF P-NAME-PROP-VALUE-OK POUT-TYPES-OK-OFF POUT-TYPES-OK POUT-TYPE-ERRORS-OFF POUT-TYPE-ERRORS POUT-TYPE-OK-OFF POUT-TYPE-OK PIN-TYPES-OK-OFF PIN-TYPES-OK PIN-TYPE-ERRORS-OFF PIN-TYPE-ERRORS PIN-TYPE-OK-OFF PIN-TYPE-OK ALL-OUTPUT-TYPES-OFF ALL-OUTPUT-TYPES G*1*ALL-INPUT-TYPES-OFF ALL-INPUT-TYPES-OFF ALL-INPUT-TYPES ID-OUT-PROP-SIGNALS-OFF ID-OUT-PROP-SIGNALS OUT-PROP-SIGNALS-OFF OUT-PROP-SIGNALS IO-CDR-OFF IO-CDR IO-CAR-OFF IO-CAR UCDR-OFF UCDR UCAR-OFF UCAR STATE-LABEL-OFF STATE-LABEL OUTPUT-LABEL-OFF OUTPUT-LABEL INPUT-LABEL-OFF INPUT-LABEL IO-LABEL-OFF IO-LABEL FUNCTION-CALL-OK-OFF FUNCTION-CALL-OK PNAME-LISTP-OFF PNAME-LISTP LSI-TOP-LEVEL-PREDICATE-OFF LSI-TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE-OFF TOP-LEVEL-PREDICATE G*1*PREDICATE-PROPERTIES-OFF PREDICATE-PROPERTIES-OFF PREDICATE-PROPERTIES NETLIST-DATABASE-OFF NETLIST-DATABASE NETLIST-PROPERTIES-OFF NETLIST-PROPERTIES UNBIND-NETLIST-PROPS-OFF UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS-0-OFF UNBIND-NETLIST-PROPS-0 REQUIRED-PROPS-OFF REQUIRED-PROPS GET-REQUIRED-PROPS-OFF GET-REQUIRED-PROPS REQUIRED-FOR-PROP-OFF REQUIRED-FOR-PROP MODULE-DATABASE-OFF MODULE-DATABASE MODULE-DATA-OFF MODULE-DATA COLLECT-MODULE-DATA-OFF COLLECT-MODULE-DATA COLLECT-MODULE-ERRORS-OFF COLLECT-MODULE-ERRORS MODULE-PROP-ERROR-OFF MODULE-PROP-ERROR COLLECT-MODULE-PROPS-OFF COLLECT-MODULE-PROPS COLLECT-MODULE-PROP-OFF COLLECT-MODULE-PROP OCCURRENCE-DATA-OFF OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA-OFF COMPOSE-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA-OFF COMPOSED-OCCURRENCE-DATA ADD-COMPOSED-DATA-OFF ADD-COMPOSED-DATA COMPOSED-LOADINGS-DRIVES-DELAYS-OFF COMPOSED-LOADINGS-DRIVES-DELAYS COMPOSED-IO-TYPES-OFF COMPOSED-IO-TYPES COLLECT-OCCURRENCE-DATA-OFF COLLECT-OCCURRENCE-DATA FUNCTION-PROPERTIES-OFF FUNCTION-PROPERTIES UPDATE-OCC-BINDINGS-OFF UPDATE-OCC-BINDINGS UPDATE-OPROP-BINDING-OFF UPDATE-OPROP-BINDING INITIAL-OCC-DATA-OFF INITIAL-OCC-DATA TRI-STATE-ERRORS-OFF TRI-STATE-ERRORS COLLECT-TRI-STATE-DATA-OFF COLLECT-TRI-STATE-DATA COLLECT-SYNONYMS-OFF COLLECT-SYNONYMS COMPOSE-TRI-STATE-DATA-OFF COMPOSE-TRI-STATE-DATA T-WIRE-ERROR-OFF T-WIRE-ERROR IO-RENAME-ERROR-OFF IO-RENAME-ERROR IO-SIGNAL-RENAMES-OFF IO-SIGNAL-RENAMES UPDATE-TRI-STATE-DATA-OFF UPDATE-TRI-STATE-DATA ADD-SYNONYMS-OFF ADD-SYNONYMS FUNCTION-SYNONYMS-OFF FUNCTION-SYNONYMS FUNCTION-T-WIRE-INS-OFF FUNCTION-T-WIRE-INS INITIAL-OCC-TRI-STATE-DATA-OFF INITIAL-OCC-TRI-STATE-DATA STATE-TYPES-ERROR-OFF STATE-TYPES-ERROR COLLECT-STATE-TYPES-OFF COLLECT-STATE-TYPES UPDATE-STATE-TYPES-OFF UPDATE-STATE-TYPES INITIAL-OCC-STATE-TYPES OUT-DEPENDS-ERROR-OFF OUT-DEPENDS-ERROR COLLECT-OUT-DEPENDS-ERRORS-OFF COLLECT-OUT-DEPENDS-ERRORS COLLECT-OUT-DEPENDS-OFF COLLECT-OUT-DEPENDS UPDATE-OUT-DEPENDS-OFF UPDATE-OUT-DEPENDS ADD-OUT-DEPENDS-OFF ADD-OUT-DEPENDS INITIAL-OCC-OUT-DEPENDS-OFF INITIAL-OCC-OUT-DEPENDS DELAYS-ERROR-OFF DELAYS-ERROR COLLECT-DELAYS-OFF COLLECT-DELAYS COLLECT-DELAYS-0-OFF COLLECT-DELAYS-0 OUTPUT-DELAY-OFF OUTPUT-DELAY OR-DELAY-ARGS-OFF OR-DELAY-ARGS MAKE-OUTPUT-DELAY-OFF MAKE-OUTPUT-DELAY TYPE-DELAY-SLOPE-OFF TYPE-DELAY-SLOPE INPUT-DELAY-OFF INPUT-DELAY INPUT-DELAY0-OFF RANGE-DEPENDENCIES-OFF2 INPUT-DELAY0 ADDABLE-INPUT-DELAY-OFF ADDABLE-INPUT-DELAY RANGE-DEPENDENCIES-ON1 DELAY-TO-RANGE-OFF DELAY-TO-RANGE MAKE-DELAY-OR-OFF MAKE-DELAY-OR OR-DELAY-ARGS-TO-RANGES-OFF OR-DELAY-ARGS-TO-RANGES LITERAL-DELAY-TO-RANGE-OFF LITERAL-DELAY-TO-RANGE INSERT-INPUT-DELAY-OFF INSERT-INPUT-DELAY MERGEABLE-INPUT-DELAY-P-OFF MERGEABLE-INPUT-DELAY-P MERGE-INPUT-DELAYS-OFF MERGE-INPUT-DELAYS LOADED-DELAYS-OFF LOADED-DELAYS LOADED-DELAY-OFF LOADED-DELAY ADD-LOAD-DELAY-OFF ADD-LOAD-DELAY UPDATE-DELAYS-OFF UPDATE-DELAYS ADD-DELAYS-OFF ADD-DELAYS LOCAL-DELAY-OFF DELAY-DEPENDENCIES-OFF1 RANGE-DEPENDENCIES-OFF1 LOCAL-DELAY-COUNT-HELP-OFF LOCAL-DELAY DELAY-DEPENDENCIES-ON RANGE-DEPENDENCIES-ON LOCAL-DELAY-COUNT-HELP-0-OFF LOCAL-DELAY-COUNT-HELP LOCAL-DELAY-COUNT-HELP-0 INITIAL-OCC-DELAYS SLOPE-TIMES-LOAD-OFF SLOPE-TIMES-LOAD RANGE-PLUS-OFF RANGE-PLUS PER-PF-DELAY-SLOPE-OFF PER-PF-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE-OFF PER-STD-LOAD-DELAY-SLOPE DETERMINED-RANGEP-OFF DETERMINED-RANGEP RANGE-DEPENDENCIES-OFF RANGE-DEPENDENCIES RANGE-MAX-OFF RANGE-MAX RANGE-MIN-OFF RANGE-MIN RANGEP-OFF RANGEP MAKE-RANGE-OFF MAKE-RANGE DETERMINED-DELAYP-OFF DETERMINED-DELAYP MAKE-DELAY-OFF MAKE-DELAY MAKE-DELAY-0-OFF MAKE-DELAY-0 DELAY-DEPENDENCIES-OFF DELAY-DEPENDENCIES DELAY-INTERCEPT-HL-OFF DELAY-INTERCEPT-HL DELAY-INTERCEPT-LH-OFF DELAY-INTERCEPT-LH DELAY-SLOPE-HL-OFF DELAY-SLOPE-HL DELAY-SLOPE-LH-OFF DELAY-SLOPE-LH DELAY-HL-OFF DELAY-HL DELAY-LH-OFF DELAY-LH PS-PFP-OFF PS-PFP DRIVES-ERROR-OFF DRIVES-ERROR COLLECT-DRIVES-OFF COLLECT-DRIVES COLLECT-DRIVES-0-OFF COLLECT-DRIVES-0 MAKE-DRIVE-MIN-OFF MAKE-DRIVE-MIN DRIVE-MIN-OFF DRIVE-MIN DRIVE-LESSP-OFF DRIVE-LESSP TYPE-DRIVE-OFF TYPE-DRIVE NUMERIC-DRIVES-OFF NUMERIC-DRIVES COLLECT-MIN-ARGS-OFF COLLECT-MIN-ARGS LOADINGS-ERROR-OFF LOADINGS-ERROR COLLECT-LOADINGS-OFF COLLECT-LOADINGS TYPE-LOADING-OFF TYPE-LOADING NET-DRIVES-SIMPLE-OFF NET-DRIVES-SIMPLE ADD-NET-DRIVE-OFF ADD-NET-DRIVE ADD-NET-MIN-DRIVE-OFF ADD-NET-MIN-DRIVE NET-MIN-ARGS-OFF NET-MIN-ARGS LITERAL-NET-DRIVE-OFF LITERAL-NET-DRIVE TRANSFER-LOADINGS-OFF TRANSFER-LOADINGS TRANSFER-LOADING-OFF TRANSFER-LOADING UPDATE-DRIVES-OFF UPDATE-DRIVES ADD-DRIVES-OFF ADD-DRIVES LOCAL-DRIVE-OFF LOCAL-DRIVE UPDATE-LOADINGS-OFF UPDATE-LOADINGS ADD-LOADINGS-OFF ADD-LOADINGS ADD-LOADING-OFF ADD-LOADING INITIAL-OCC-DRIVES INITIAL-OCC-LOADINGS LOADING-PLUS-OFF LOADING-PLUS MA-LESSP-OFF MA-LESSP PF-LESSP-OFF PF-LESSP PF-DIFFERENCE-OFF PF-DIFFERENCE PF-PLUS-OFF PF-PLUS ZERO-LOADINGP-OFF ZERO-LOADINGP STD-DRIVE-TO-MA-OFF STD-DRIVE-TO-MA MA-TO-STD-DRIVE-OFF MA-TO-STD-DRIVE PF-TO-STD-LOAD-OFF PF-TO-STD-LOAD STD-LOAD-TO-PF-OFF STD-LOAD-TO-PF PF-TO-MA-OFF PF-TO-MA MA-TO-PF-OFF MA-TO-PF PFP-OFF PFP MAP-OFF MAP OUT-TYPES-ERROR-OFF OUT-TYPES-ERROR IN-TYPES-ERROR-OFF IN-TYPES-ERROR COLLECT-OUT-TYPES-OFF COLLECT-OUT-TYPES COLLECT-OUT-TYPE-OFF COLLECT-OUT-TYPE COLLECT-IN-TYPES-OFF COLLECT-IN-TYPES COMPOSE-IO-TYPES-OFF COMPOSE-IO-TYPES COMPOSED-TYPE-MAPS-OFF COMPOSED-TYPE-MAPS COMPOSE-TYPE-OFF COMPOSE-TYPE TRANSFER-IN-TYPE-OFF TRANSFER-IN-TYPE OK-OUT-TYPE-OFF OK-OUT-TYPE OK-IN-TYPE-OFF OK-IN-TYPE IO-TYPES-COMPATIBLE-OFF IO-TYPES-COMPATIBLE IO-TYPE-ERROR-OFF IO-TYPE-ERROR UPDATE-OUT-TYPES-OFF UPDATE-OUT-TYPES ADD-OUT-TYPES-OFF ADD-OUT-TYPES ADD-OUT-TYPE-OFF ADD-OUT-TYPE UPDATE-IN-TYPES-OFF UPDATE-IN-TYPES ADD-IN-TYPES-OFF ADD-IN-TYPES ADD-IN-TYPE-OFF ADD-IN-TYPE INITIAL-OCC-OUT-TYPES INITIAL-OCC-IN-TYPES OUTPUT-TYPE-OFF OUTPUT-TYPE INPUT-TYPE-OFF INPUT-TYPE TYPE-VALUE-OFF TYPE-VALUE TYPE-VALUE0-OFF TYPE-VALUE0 TRI-STATE-TYPEP-OFF TRI-STATE-TYPEP TYPES-COMPATIBLEP-OFF TYPES-COMPATIBLEP SUBTYPE-OFF SUBTYPE EXTERNALIZE-PARENTS-OFF EXTERNALIZE-PARENTS EXTRACT-NAMES-OFF EXTRACT-NAMES PARENT-SYNONYMS-LIST-OFF PARENT-SYNONYMS-LIST PARENT-SYNONYM-OFF PARENT-SYNONYM PARENT-SYNONYM0-OFF PARENT-SYNONYM0 SIGNAL-NAMEP-OFF SIGNAL-NAMEP COLLECT-VALUE2-OFF COLLECT-VALUE2 VALUE2-OFF VALUE2 UNMARK-IO-OUTS-OFF UNMARK-IO-OUTS UNMARK-IO-OUT-OFF UNMARK-IO-OUT MARK-IO-OUTS-OFF MARK-IO-OUTS MARK-IO-OUTS-0-OFF MARK-IO-OUTS-0 MARK-IO-OUT-OFF MARK-IO-OUT IO-OUT COLLECT-VALUE-OR-UNKNOWN-OFF COLLECT-VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN-OFF VALUE-OR-UNKNOWN UNKNOWN G*1*ALL-MODULE-PROPS-OFF ALL-MODULE-PROPS-OFF ALL-MODULE-PROPS G*1*PRIMITIVE-PROPERTIES-OFF PRIMITIVE-PROPERTIES-OFF PRIMITIVE-PROPERTIES LSI-NETLIST-SYNTAX-OK-OFF LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-CHECK-OFF LSI-NETLIST-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK-OFF LSI-MODULE-SYNTAX-CHECK LSI-MODULE-OCCURRENCES-CHECK-OFF LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-OUTPUTS-OK-OFF LSI-MODULE-OUTPUTS-OK LSI-MODULE-INPUTS-OK-OFF LSI-MODULE-INPUTS-OK LSI-MODULE-NAME-OK-OFF LSI-MODULE-NAME-OK LSI-OCC-BODY-SYNTAX-CHECK-OFF LSI-OCC-BODY-SYNTAX-CHECK UPDATE-LSI-OCC-SYNTAX-DATA-OFF UPDATE-LSI-OCC-SYNTAX-DATA INITIAL-LSI-OCC-SYNTAX-DATA-OFF INITIAL-LSI-OCC-SYNTAX-DATA LSI-OCC-SYNTAX-OK-OFF LSI-OCC-SYNTAX-OK LSI-OCC-INPUTS-OK-OFF LSI-OCC-INPUTS-OK LSI-OCC-OUTPUTS-OK-OFF LSI-OCC-OUTPUTS-OK LSI-OCC-NAME-OK-OFF LSI-OCC-NAME-OK MAX-OCC-HIERARCHICAL-NAME-OFF MAX-OCC-HIERARCHICAL-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF MAX-HIERARCHICAL-LENGTH-AND-NAME HIERARCHICAL-NAME-MAX-OFF HIERARCHICAL-NAME-MAX NAME-LENGTH-OFF NAME-LENGTH LSI-FUNCTION-NAME-OFF LSI-FUNCTION-NAME LSI-NAME-LIST-OK-OFF LSI-NAME-LIST-OK LSI-NAME-LIST-ERRORS-OFF LSI-NAME-LIST-ERRORS LSI-BAD-NAMES-OFF LSI-BAD-NAMES LSI-NAME-OK-OFF LSI-NAME-OK G*1*LSI-KEYWORDS-OFF LSI-KEYWORDS-OFF LSI-KEYWORDS BAD-LSI-NAME-CHARS-OFF BAD-LSI-NAME-CHARS DIGITP-OFF DIGITP LETTERP-OFF LETTERP NETLIST-SYNTAX-OK-OFF NETLIST-SYNTAX-OK NETLIST-SYNTAX-ERRORS-OFF NETLIST-SYNTAX-ERRORS MODULE-SYNTAX-OK-OFF MODULE-SYNTAX-OK MODULE-SYNTAX-ERRORS-OFF MODULE-SYNTAX-ERRORS MODULE-ANNOTATION-OK-OFF MODULE-ANNOTATION-OK MODULE-STATENAMES-OK-OFF MODULE-STATENAMES-OK MODULE-OCCURRENCES-OK-OFF MODULE-OCCURRENCES-OK STATES-LIST-OR-NIL-OFF STATES-LIST-OR-NIL MODULE-OUTPUTS-OK-OFF MODULE-OUTPUTS-OK MODULE-INPUTS-OK-OFF MODULE-INPUTS-OK MODULE-NAME-OK-OFF MODULE-NAME-OK MODULE-FORM-OK-OFF MODULE-FORM-OK OCC-BODY-SYNTAX-ERRORS-OFF OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF COMPOSITE-OCC-BODY-SYNTAX-ERRORS UPDATE-OCC-SYNTAX-DATA-OFF UPDATE-OCC-SYNTAX-DATA INITIAL-OCC-SYNTAX-DATA-OFF INITIAL-OCC-SYNTAX-DATA OCC-SYNTAX-OK-OFF OCC-SYNTAX-OK OCC-SYNTAX-ERRORS-OFF OCC-SYNTAX-ERRORS OCC-ANNOTATION-OK-OFF OCC-ANNOTATION-OK OCC-FUNCTION-OK-OFF OCC-FUNCTION-OK OCC-INPUTS-OK-OFF OCC-INPUTS-OK OCC-OUTPUTS-OK-OFF OCC-OUTPUTS-OK OCC-NAME-OK-OFF OCC-NAME-OK OCC-FORM-OK-OFF OCC-FORM-OK OCC-ARG-LENGTH-ERROR-OFF OCC-ARG-LENGTH-ERROR NAME-LIST-OK-OFF NAME-LIST-OK NAME-LIST-ERRORS-OFF NAME-LIST-ERRORS BAD-NAMES-OFF BAD-NAMES NAME-OKP-OFF NAME-OKP TOP-LEVEL-PREDICATE-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE-OFF LOADINGS-AND-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE-OFF COLLECT-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE-OFF COLLECT-LOADINGS-SIMPLE EXTERNAL-LOADING-OFF EXTERNAL-LOADING NET-DRIVES-OFF NET-DRIVES FIX-DRIVES-OFF FIX-DRIVES FIX-LOADINGS-OFF FIX-LOADINGS SUM-LOADINGS-OFF SUM-LOADINGS SUM-LOADING-OFF SUM-LOADING EXTRACT-NAMES-SIMPLE-OFF EXTRACT-NAMES-SIMPLE SUM-NUMBERS-OFF SUM-NUMBERS ADD-LOADING-SIMPLES-OFF ADD-LOADING-SIMPLES ADD-LOADING-SIMPLE-OFF ADD-LOADING-SIMPLE PARENT-SYNONYM-SIMPLE-OFF PARENT-SYNONYM-SIMPLE FIX-DEPENDENT-LDS-OFF FIX-DEPENDENT-LDS APPLY-STATE-SIMPLE-OKP-OFF APPLY-STATE-SIMPLE-OKP STATE-SIMPLE-OKP-OFF STATE-SIMPLE-OKP NETLIST-STATE-TYPES-SIMPLE-OFF NETLIST-STATE-TYPES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF STATE-TYPE-REQUIREMENT-SIMPLE MAKE-RAM-STATE-OFF MAKE-RAM-STATE ARG-TYPES-SIMPLE-OKP-OFF ARG-TYPES-SIMPLE-OKP ARG-TYPES-MATCH-SIMPLEP-OFF ARG-TYPES-MATCH-SIMPLEP NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPES-ACCEPTABLE-LIST-OFF NETLIST-TYPES-ACCEPTABLE-LIST TYPES-ACCEPTABLEP-OFF TYPES-ACCEPTABLEP NETLIST-TYPE-TABLE-SIMPLE-OFF NETLIST-TYPE-TABLE-SIMPLE IO-TYPES-SIMPLE-OFF IO-TYPES-SIMPLE FIX-DEPENDENT-TYPES-OFF FIX-DEPENDENT-TYPES UPDATE-KNOWN-TYPES-OFF UPDATE-KNOWN-TYPES ADD-NEW-TYPE-OFF ADD-NEW-TYPE COLLECT-TYPES-OFF COLLECT-TYPES TYPE-VALUE-SIMPLE-OFF TYPE-VALUE-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE-OFF OUTPUT-DEPENDENCIES-SIMPLE SIMPLE-DEPENDENCY-TABLE-OFF SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE-OFF OUT-DEPENDS-SIMPLE NETLIST-SYNTAX-SIMPLE-OKP-OFF NETLIST-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP-OFF MODULE-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP-OFF OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP-OFF OCC-SYNTAX-SIMPLE-OKP NAME-LIST-SIMPLE-OKP-OFF NAME-LIST-SIMPLE-OKP NAME-SIMPLE-OKP-OFF NAME-SIMPLE-OKP LIST-COLLECT-VALUE-OFF LIST-COLLECT-VALUE LABEL-ERROR-OFF LABEL-ERROR ALL-BOUND-OR-ERR-OFF ALL-BOUND-OR-ERR DISJOINT-OR-ERR-OFF DISJOINT-OR-ERR NO-DUPLICATES-OR-ERR-OFF NO-DUPLICATES-OR-ERR SUBSET-OR-ERR-OFF SUBSET-OR-ERR NIL-OR-ERR-OFF NIL-OR-ERR NLISTP-OR-ERR-OFF NLISTP-OR-ERR T-OR-ERR-OFF T-OR-ERR ERR-AND-OFF ERR-AND COLLECT-NET-ERRORS-OFF COLLECT-NET-ERRORS NET-ERRORS-OFF NET-ERRORS ERROR-ENTRY-OFF ERROR-ENTRY PRED-ERROR-OFF PRED-ERROR REPORT-ERROR-OFF REPORT-ERROR NET-ERROR LIST-LIST-SORT-OFF LIST-LIST-SORT LIST-SORT-OFF LIST-SORT DELETE*-LEMMA DELETE*-COUNT MIN-TOKEN-LEMMA MIN-TOKEN-HELP-LEMMA MIN-TOKEN-OFF MIN-TOKEN MIN-TOKEN-HELP-OFF MIN-TOKEN-HELP TOKEN-LESSP-OFF TOKEN-LESSP LIST-LESSP-OFF LIST-LESSP M-STATES-LIST-OFF M-STATES-LIST LOOKUP-MODULE-IN-UNBIND-LIST-OFF UNBIND-LIST-OFF UNBIND-OFF BOUNDP-OFF LESSP-UNBIND-LIST-COUNT LOOKUP-MODULE-IN-DELETE-MODULE-OFF LOOKUP-MODULE-IN-UNBIND-LIST LOOKUP-MODULE-IN-DELETE-MODULE UNBIND-LIST UNBOUND-KEYS-OFF UNBOUND-KEYS LIST-UNION-VALUES-OFF LIST-UNION-VALUES UNION-VALUES-OFF UNION-VALUES SET-VALUE-OFF SET-VALUE UNBIND ALIST-ENTRY-OFF ALIST-ENTRY BOUNDP ALISTP-OFF ALISTP LISTIFY-OFF LISTIFY IS-HEAD-OFF IS-HEAD FLATTEN-LIST-OFF FLATTEN-LIST APPEND-LIST-OFF APPEND-LIST REMOVE-DUPLICATES-OFF REMOVE-DUPLICATES LIST-DUPLICATES-OFF LIST-DUPLICATES LAST-CDR-OFF LAST-CDR INTERSECTION-OFF INTERSECTION SET-DIFF-OFF SET-DIFF SET-EQUAL-OFF SET-EQUAL INSERT-OFF INSERT MIN-OFF MIN OPEN-SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2-OFF SIMULATE-DUAL-EVAL-2 SIMULATE OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS-OFF DUAL-EVAL-BODY-BINDINGS LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL-OFF DUAL-EVAL DUAL-APPLY-STATE-OFF DUAL-APPLY-STATE DUAL-APPLY-VALUE-OFF DUAL-APPLY-VALUE PRIMP2 PRIMP-LOOKUP NOT-LITATOM==>NOT-PRIMP PRIMP-OFF PRIMP OCC-ANNOTATION OCC-INPUTS OCC-FUNCTION OCC-OUTPUTS OCC-NAME MODULE-ANNOTATION MODULE-STATENAMES MODULE-OCCURRENCES MODULE-OUTPUTS MODULE-INPUTS MODULE-NAME COLLECT-STATES PAIRSTATES DELETE-MODULE-LOOKUP-MODULE-COUNT DELETE-MODULE-OFF DELETE-MODULE LOOKUP-MODULE-OFF LOOKUP-MODULE PRIMP-DATABASE VFT-BUF-REWRITE-OFF VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF VFT-BUF-OFF VFT-BUF V-THREEFIX-FV-SHIFT-RIGHT PROPERP-LENGTH-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-SHIFT-RIGHT-OFF FV-SHIFT-RIGHT V-PULLUP-MAKE-LIST-Z V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP V-PULLUP-OFF V-PULLUP V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X V-WIRE-OFF V-WIRE FV-IF-V-THREEFIX FV-IF-REWRITE-OFF FV-IF-REWRITE FV-IF-WHEN-BVP FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF FV-IF-OFF FV-IF FV-XOR=V-XOR PROPERP-LENGTH-FV-XOR FV-XOR-OFF FV-XOR FV-OR=V-OR PROPERP-LENGTH-FV-OR FV-OR-OFF FV-OR F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS-OFF F-BUF-DELETE-LEMMAS F-NOT-F-NOT=F-BUF-OFF F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA-OFF THREEFIX-HELP-LEMMA F-PULLUP-REWRITE FT-WIRE-REWRITE F-IF-REWRITE FT-BUF-REWRITE F-NOT-REWRITE F-OR-REWRITE F-AND-REWRITE F-BUF-LEMMA EXPAND-F-FUNCTIONS-OFF EXPAND-F-FUNCTIONS F$AO2 F-PULLUP FT-WIRE FT-BUF F-IF F-EQUV3 F-EQUV F-XOR3 F-XOR F-NOR8 F-NOR6 F-NOR5 F-NOR4 F-NOR3 F-NOR F-OR4 F-OR3 F-OR F-NAND8 F-NAND6 F-NAND5 F-NAND4 F-NAND3 F-NAND F-NOT F-AND4 F-AND3 F-AND F-BUF TREE-NUMBER-OFF TREE-NUMBER COLLECT-BREADTH-TREE BREADTH-TREE FIX-BREADTH-TREE-STACK PROPERP-LENGTH-NEXT-MEMORY-STATE NEXT-MEMORY-STATE$INDUCTION EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE MEM-STATE-OFF MEM-STATE MEM-VALUE-OFF MEM-VALUE MEMORY-VALUE-OFF MEMORY-VALUE NEXT-MEMORY-STATE-OFF NEXT-MEMORY-STATE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE MEMORY-OKP==>MEMORY-PROPERP ALL-RAMP-MEM-CONSTANT-RAM ALL-RAMP-MEM-AFTER-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM ALL-RAMP-MEM->RAMP-MEM1 BVP-READ-MEM-32 BVP-READ-MEM BVP-READ-MEM1 PROPERP-READ-MEM-32 PROPERP-READ-MEM PROPERP-READ-MEM1 READ-MEM-WRITE-MEM NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM MEMORY-OKP-IF MEMORY-PROPERP-IF CONSTANT-RAM-OFF CONSTANT-RAM ALL-RAMP-MEM-OFF ALL-RAMP-MEM RAMP-MEM-OFF RAMP-MEM RAMP-MEM1-OFF RAMP-MEM1 WRITE-MEM-OFF WRITE-MEM WRITE-MEM1-OFF WRITE-MEM1 READ-MEM-OFF READ-MEM READ-MEM1-OFF READ-MEM1 MEMORY-OKP-OFF MEMORY-OKP MEMORY-PROPERP-OFF MEMORY-PROPERP STUB RAM ROM COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS CDR-CDR-SUB1-SUB1-INDUCTION COLLECT-VALUE-MAKE-LIST COLLECT-VALUE-SPLITTING-CROCK COLLECT-VALUE-SPLITTING-CROCK-HELPER COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE SINGLETON-COLLECT-VALUE COLLECT-VALUE-CONS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN EQUAL-COLLECT-VALUE-PROMOTE-ALISTS COLLECT-VALUE-LITATOM-INDICES-SPEEDUP COLLECT-VALUE-DISJOINT-PAIRLIST COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET LENGTH-COLLECT-VALUE COLLECT-VALUE-APPEND LISTP-COLLECT-VALUE COLLECT-VALUE-NLISTP VALUE-INDICES-HACK VALUE-PAIRLIST-OFF VALUE-PAIRLIST VALUE-APPEND-PAIRLIST REWRITE-VALUE-4X REWRITE-VALUE COLLECT-VALUE-OFF COLLECT-VALUE VALUE-OFF VALUE BOOLP-IF* BVP-SUBRANGE V-IFF=EQUAL V-IFF-REVERSE V-IFF-REV1 V-IFF-X-X V-IFF-OFF V-IFF V-THREEFIX-V-FOURFIX V-FOURFIX-MAKE-LIST BVP-V-FOURFIX V-FOURFIX-OFF V-FOURFIX V-THREEFIX-MAKE-LIST-X BVP-V-THREEFIX V-THREEFIX-IDEMPOTENCE V-THREEFIX-APPEND-OFF V-THREEFIX-APPEND APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP OPEN-V-THREEFIX V-THREEFIX-OFF V-THREEFIX V-ADDER-WORKS V-IF-WORKS V-BUF-WORKS BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-SUBTRACTER-OUTPUT LENGTH-OF-V-ADDER-OUTPUT BVP-V-ADDER LENGTH-OF-V-ADDER V-DEC-OFF V-DEC V-INC-OFF V-INC V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OUTPUT V-ADDER-OVERFLOWP V-ADDER-CARRY-OUT V-ADDER-OUTPUT V-ADDER-OFF V-ADDER SIGN-EXTEND-AS-APPEND-OFF SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND LENGTH-SIGN-EXTEND SIGN-EXTEND-OFF SIGN-EXTEND V-NEGP-AS-NTH-OFF V-NEGP-AS-NTH BOOLP-V-NEGP V-NEGP-OFF V-NEGP NOT-V-NZEROP-ALL-F V-ZEROP-MAKE-LIST-F V-XOR-NZEROP=NOT-EQUAL NOT-V-NZEROP-V-XOR-X-X NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK V-ZEROP V-NZEROP-OFF V-NZEROP UPDATE-V-NTH-OFF UPDATE-V-NTH V-NTH-OFF V-NTH ANY-OF-NAT-TO-V-0-IS-F CAR-NAT-TO-V-0-IS-F BVP-NAT-TO-V LENGTH-NAT-TO-V RESTN-NAT-TO-V-0-HACK FIRSTN-NAT-TO-V NAT-TO-V-OFF NAT-TO-V V-TO-NAT-OFF V-TO-NAT V-OR-MAKE-LIST-F V-NOT-INVERTS-ALL RESTN-V-NOT-OFF RESTN-V-NOT FIRSTN-V-NOT-OFF FIRSTN-V-NOT V-NOT-RESTN V-NOT-FIRSTN V-IF-C-CONGRUENCE V-IF-APPEND-HELP V-BUF-APPEND-HELP V-NOT-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP LENGTH-V-IF LENGTH-V-ROR LENGTH-V-ASR LENGTH-V-LSR LENGTH-V-SHIFT-RIGHT LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF BVP-V-IF BVP-V-ROR BVP-V-ASR BVP-V-LSR BVP-V-SHIFT-RIGHT BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF V-IF-OFF V-IF V-ASR V-ROR V-LSR V-SHIFT-RIGHT-OFF V-SHIFT-RIGHT V-XOR-OFF V-XOR V-OR-OFF V-OR V-AND-OFF V-AND V-NOT-OFF V-NOT V-BUF-OFF V-BUF VDD VSS AO7 AO6 AO4 AO2 ID BOOLP-B-GATES-OFF BOOLP-B-GATES B-GATES B-BUF-X=X B-AND-REWRITE OPEN-B-EQUV3 OPEN-B-EQUV OPEN-B-XOR3 OPEN-B-XOR B-IF B-NOR8 B-NOR6 B-NOR5 B-NOR4 B-NOR3 B-NOR B-AND4 B-AND3 B-AND B-EQUV3 B-EQUV B-XOR3 B-XOR B-OR4 B-OR3 B-OR B-NAND8 B-NAND6 B-NAND5 B-NAND4 B-NAND3 B-NAND B-NOT B-BUF XOR ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH BOOLP-NTH SHOW-THAT-NTH=T-OFF SHOW-THAT-NTH=T BVP-LENGTH-RESTN BOOLP-CAR-X BOOLFIX-CAR-X=X BVP-LENGTH-CDR BVP-LENGTH-OFF BVP-LENGTH BV2P BVP-IF* BVP-IF BVP-NTHCDR BVP-MAKE-LIST BVP-IS-PROPERP BVP-APPEND BVP-RESTN BVP-FIRSTN BVP-CONS BVP-NLISTP BVP-OFF BVP FOURFIX FOURP THREEFIX=X-OFF THREEFIX=X THREEFIX-IDEMPOTENT THREEFIX THREEP BOOLFIX BOOLP-IMPLIES-NOT-EQUAL-Z-OFF BOOLP-IMPLIES-NOT-EQUAL-Z BOOLP-LEMMAS PROVE-BOOLP BOOLP-OFF BOOLP Z X NTH-INDICES-OFF NTH-INDICES POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LISTP-INDICES LENGTH-INDICES INDICES-AS-APPEND-OFF INDICES-AS-APPEND OPEN-INDICES INDICES-ZEROP INDICES-OFF INDICES LNFIX INDEX EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH OPEN-LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH-OFF LIST-AS-COLLECTED-NTH LIST-ELIM-4-OFF LIST-ELIM-4 LIST-REWRITE-4-OFF LIST-REWRITE-4 LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE-OFF MAKE-TREE TREE-HEIGHT-OFF TREE-HEIGHT TRESTN TFIRSTN MAKE-LIST-APPEND-TREE-CROCK-OFF MAKE-LIST-APPEND-TREE-CROCK TREE-SIZE-LEMMAS A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS TREE-SIZE-1-CROCK NOT-EQUAL-TREE-SIZE-TREE-0 TREE-SIZE-NLISTP TREE-SIZE-OFF TREE-SIZE FIRSTN-MAKE-LIST PROPERP-MAKE-LIST MAKE-LIST-APPEND LENGTH-MAKE-LIST OPEN-MAKE-LIST-OFF OPEN-MAKE-LIST MAKE-LIST-OFF MAKE-LIST UPDATE-NTH-OFF UPDATE-NTH OPEN-SUBRANGE-OFF OPEN-SUBRANGE DISJOINT-SUBRANGE NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE LISTP-SUBRANGE SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE SUBRANGE-CONS-OFF SUBRANGE-CONS PROPERP-SUBRANGE SUBRANGE-OFF SUBRANGE LISTP-NTHCDR CDR-NTHCDR-OFF CDR-NTHCDR PROPERP-AS-NULL-NTHCDR-OFF PROPERP-AS-NULL-NTHCDR OPEN-NTHCDR NTHCDR-OFF NTHCDR NTH-APPEND-TOO NTH-APPEND NTH-RESTN-OFF NTH-RESTN NTH-IF-OFF NTH-IF OPEN-NTH-OFF OPEN-NTH NTH-OFF NTH PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP PROPERP-PAIRLIST PAIRLIST-APPEND PAIRLIST-CONS PAIRLIST-NLISTP PAIRLIST-OFF APPEND-FIRSTN-RESTN NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN-RESTN-LEMMAS CDR-RESTN-OFF CDR-RESTN TOO-MANY-RESTNS RESTN-APPEND PROPERP-RESTN DISJOINT-RESTN1 DISJOINT-RESTN SUBSET-RESTN NOT-MEMBER-RESTN NOT-DUPLICATES?-RESTN LENGTH-RESTN RESTN-OFF RESTN FIRSTN-APPEND PROPERP-FIRSTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN FIRSTN-BOTTOM SUBSET-FIRSTN NOT-DUPLICATES?-FIRSTN NOT-MEMBER-FIRSTN CAR-FIRSTN LENGTH-FIRSTN2 LENGTH-FIRSTN1 LENGTH-FIRSTN FIRSTN-OFF FIRSTN DUPLICATES-APPEND DUPLICATES?-CONS DUPLICATES?-OFF DUPLICATES? DISJOINT-APPEND DISJOINT-CONS DISJOINT-NLISTP DISJOINT-OFF DISJOINT SUBSET-X-X SUBSET-APPEND SUBSET-X-CONS-Y-Z SUBSET-CONS SUBSET-NLISTP SUBSET-OFF SUBSET DELETE*-OFF DELETE* LENGTH-REVERSE LENGTH-REV1 REVERSE-OFF REVERSE REV1-OFF REV1 LENGTH-IF* LENGTH-IF EQUAL-LENGTH-CDR LENGTH-CDR EQUAL-LENGTH-ADD1-OFF EQUAL-LENGTH-ADD1 LENGTH-CDR-LEMMAS LENGTH-APPEND LENGTH-CONS LENGTH-1 LENGTH-BOTTOM LENGTH-NLISTP LENGTH-OFF LENGTH MEMBER==>POSITION POSITION-OFF POSITION PROPERP-IF* PROPERP-APPEND-NIL PROPERP-APPEND PROPERP-CONS PROPERP-NLISTP PROPERP-IF PROPERP-OFF PROPERP EQUAL-APPEND-X-X ASSOCIATIVITY-OF-APPEND OUR-MEMBER-APPEND APPEND-CONS APPEND-NLISTP APPEND8 APPEND7 APPEND6 APPEND5 APPEND-OFF LEQ-LESSP-DIFFERENCE LESSP-X-1 LESSP-SUB1-X-X LESSP-SUB1-X-Y-CROCK LESSP-X-X ZEROP-QUOTIENT QUOTIENT-LESSP TIMES-COMMUTES TIMES-ADD1-AGAIN TIMES-1 TIMES-BOTTOM LESSP-DIFFERENCE=0 NOT-LESSP-DIFFERENCE DIFFERENCE-ADD1-ADD1 DIFFERENCE-0 OUR-EQUAL-DIFFERENCE-0 OUR-DIFFERENCE-X-X DIFFERENCE-X-1 DIFFERENCE-OFF PLUS-ADD1-SUB1 PLUS-BOTTOM PLUS-ADD1 PLUS-0 PLUS-OFF OUR-CAR-CDR-ELIM-OFF OUR-CAR-CDR-ELIM CAR-CDR-IF-CONS EXPAND-*-CONNECTIVES-OFF EXPAND-*-CONNECTIVES REWRITE-OR* REWRITE-AND* REWRITE-NOT* IF*-CONS IF*-C-X-X SIMPLIFY-IF* PROP*-THEORY NOT*-OFF NOT* AND*-OFF AND* OR*-OFF OR* IF*-OFF IF* G*1*DELETE-OFF DELETE-OFF G*1*BAGDIFF-OFF BAGDIFF-OFF G*1*BAGINT-OFF BAGINT-OFF G*1*OCCURRENCES-OFF OCCURRENCES-OFF G*1*SUBBAGP-OFF SUBBAGP-OFF DELETE-NON-MEMBER-OFF DELETE-DELETE-OFF EQUAL-OCCURRENCES-ZERO-OFF MEMBER-NON-LIST-OFF MEMBER-DELETE-OFF MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF OCCURRENCES-DELETE-OFF MEMBER-BAGDIFF-OFF BAGDIFF-DELETE-OFF SUBBAGP-DELETE-OFF SUBBAGP-CDR1-OFF SUBBAGP-CDR2-OFF SUBBAGP-BAGINT1-OFF SUBBAGP-BAGINT2-OFF OCCURRENCES-BAGINT-OFF OCCURRENCES-BAGDIFF-OFF MEMBER-BAGINT-OFF EQUAL-PLUS-0-OFF EQUAL-DIFFERENCE-0-OFF COMMUTATIVITY-OF-PLUS-OFF COMMUTATIVITY2-OF-PLUS-OFF PLUS-ZERO-ARG2-OFF PLUS-ADD1-ARG1-OFF PLUS-ADD1-ARG2-OFF ASSOCIATIVITY-OF-PLUS-OFF PLUS-DIFFERENCE-ARG1-OFF PLUS-DIFFERENCE-ARG2-OFF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF DIFF-DIFF-ARG1-OFF DIFF-DIFF-ARG2-OFF G*1*PLUS-FRINGE-OFF PLUS-FRINGE-OFF G*1*PLUS-TREE-OFF PLUS-TREE-OFF EVAL$-QUOTE-OFF1 G*1*CANCEL-EQUAL-PLUS-OFF CANCEL-EQUAL-PLUS-OFF CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF G*1*CANCEL-DIFFERENCE-PLUS-OFF CANCEL-DIFFERENCE-PLUS-OFF CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF DIFFERENCE-ELIM-OFF DIFFERENCE-LEQ-ARG1-OFF DIFFERENCE-ADD1-ARG2-OFF DIFFERENCE-SUB1-ARG2-OFF DIFFERENCE-DIFFERENCE-ARG1-OFF DIFFERENCE-DIFFERENCE-ARG2-OFF DIFFERENCE-X-X-OFF G*1*CANCEL-LESSP-PLUS-OFF CANCEL-LESSP-PLUS-OFF CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF EQUAL-TIMES-0-OFF EQUAL-TIMES-1-OFF EQUAL-SUB1-0-OFF TIMES-ZERO-OFF TIMES-ADD1-OFF COMMUTATIVITY-OF-TIMES-OFF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF TIMES-DISTRIBUTES-OVER-PLUS-OFF COMMUTATIVITY2-OF-TIMES-OFF ASSOCIATIVITY-OF-TIMES-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF TIMES-QUOTIENT-PROOF-OFF TIMES-QUOTIENT-OFF TIMES-1-ARG1-OFF LESSP-TIMES1-PROOF-OFF LESSP-TIMES1-OFF LESSP-TIMES2-PROOF-OFF LESSP-TIMES2-OFF LESSP-TIMES3-PROOF1-OFF LESSP-TIMES3-PROOF2-OFF LESSP-TIMES3-OFF LESSP-TIMES-CANCELLATION-PROOF-OFF LESSP-PLUS-TIMES-PROOF-OFF LESSP-PLUS-TIMES1-OFF LESSP-PLUS-TIMES2-OFF LESSP-1-TIMES-OFF G*1*TIMES-TREE-OFF TIMES-TREE-OFF G*1*TIMES-FRINGE-OFF TIMES-FRINGE-OFF G*1*OR-ZEROP-TREE-OFF OR-ZEROP-TREE-OFF G*1*AND-NOT-ZEROP-TREE-OFF AND-NOT-ZEROP-TREE-OFF EVAL$-EQUAL-OFF1 LESSP-TIMES-ARG1-OFF INFER-EQUALITY-FROM-NOT-LESSP-OFF G*1*CANCEL-LESSP-TIMES-OFF CANCEL-LESSP-TIMES-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF G*1*CANCEL-EQUAL-TIMES-OFF CANCEL-EQUAL-TIMES-OFF CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF LESSP-REMAINDER-OFF REMAINDER-NOOP-OFF REMAINDER-OF-NON-NUMBER-OFF REMAINDER-ZERO-OFF REMAINDER-QUOTIENT-ELIM-OFF REMAINDER-ADD1-OFF REMAINDER-PLUS-PROOF-OFF REMAINDER-PLUS-OFF EQUAL-REMAINDER-PLUS-0-PROOF-OFF EQUAL-REMAINDER-PLUS-0-OFF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF REMAINDER-TIMES1-PROOF-OFF REMAINDER-TIMES1-OFF REMAINDER-TIMES1-INSTANCE-PROOF-OFF REMAINDER-TIMES1-INSTANCE-OFF REMAINDER-TIMES-TIMES-PROOF-OFF REMAINDER-TIMES2-PROOF-OFF REMAINDER-TIMES2-OFF REMAINDER-TIMES2-INSTANCE-OFF REMAINDER-DIFFERENCE1-OFF G*1*DOUBLE-REMAINDER-INDUCTION-OFF DOUBLE-REMAINDER-INDUCTION-OFF REMAINDER-DIFFERENCE2-OFF REMAINDER-PLUS-FACT-OFF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF REMAINDER-PLUS-TIMES-TIMES-OFF REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF REMAINDER-REMAINDER-OFF REMAINDER-1-ARG1-OFF REMAINDER-1-ARG2-OFF REMAINDER-X-X-OFF TRANSITIVITY-OF-DIVIDES-OFF QUOTIENT-NOOP-OFF QUOTIENT-OF-NON-NUMBER-OFF QUOTIENT-ZERO-OFF QUOTIENT-ADD1-OFF EQUAL-QUOTIENT-0-OFF QUOTIENT-SUB1-OFF QUOTIENT-PLUS-PROOF-OFF QUOTIENT-PLUS-OFF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF QUOTIENT-TIMES-PROOF-OFF QUOTIENT-TIMES-OFF QUOTIENT-TIMES-INSTANCE-OFF QUOTIENT-TIMES-TIMES-PROOF-OFF QUOTIENT-DIFFERENCE1-OFF QUOTIENT-LESSP-ARG1-OFF QUOTIENT-DIFFERENCE2-OFF QUOTIENT-DIFFERENCE3-OFF QUOTIENT-REMAINDER-TIMES-OFF QUOTIENT-REMAINDER-OFF QUOTIENT-REMAINDER-INSTANCE-OFF QUOTIENT-PLUS-FACT-OFF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF QUOTIENT-PLUS-TIMES-TIMES-OFF QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF QUOTIENT-QUOTIENT-OFF LEQ-QUOTIENT-OFF QUOTIENT-1-ARG2-OFF QUOTIENT-1-ARG1-CASESPLIT-OFF QUOTIENT-1-ARG1-OFF QUOTIENT-X-X-OFF LESSP-QUOTIENT-OFF G*1*CANCEL-QUOTIENT-TIMES-OFF CANCEL-QUOTIENT-TIMES-OFF CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF G*1*EXP-OFF EXP-OFF G*1*LOG-OFF LOG-OFF G*1*GCD-OFF GCD-OFF REMAINDER-EXP-OFF G*1*DOUBLE-NUMBER-INDUCTION-OFF DOUBLE-NUMBER-INDUCTION-OFF REMAINDER-EXP-EXP-OFF QUOTIENT-EXP-OFF EXP-ZERO-OFF EXP-ADD1-OFF EXP-PLUS-OFF EXP-0-ARG1-OFF EXP-1-ARG1-OFF EXP-0-ARG2-OFF EXP-TIMES-OFF EXP-EXP-OFF EQUAL-EXP-0-OFF EQUAL-EXP-1-OFF EXP-DIFFERENCE-OFF EQUAL-LOG-0-OFF LOG-0-OFF LOG-1-OFF G*1*DOUBLE-LOG-INDUCTION-OFF DOUBLE-LOG-INDUCTION-OFF LEQ-LOG-LOG-OFF LOG-QUOTIENT-OFF LOG-QUOTIENT-TIMES-PROOF-OFF LOG-QUOTIENT-TIMES-OFF LOG-QUOTIENT-EXP-OFF LOG-TIMES-PROOF-OFF LOG-TIMES-OFF LOG-TIMES-EXP-PROOF-OFF LOG-TIMES-EXP-OFF LOG-EXP-OFF COMMUTATIVITY-OF-GCD-OFF G*1*SINGLE-NUMBER-INDUCTION-OFF SINGLE-NUMBER-INDUCTION-OFF GCD-0-OFF GCD-1-OFF EQUAL-GCD-0-OFF LESSP-GCD-OFF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF GCD-PLUS-INSTANCE-TEMP-OFF GCD-PLUS-PROOF-OFF GCD-PLUS-OFF GCD-PLUS-INSTANCE-OFF REMAINDER-GCD-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF GCD-IS-THE-GREATEST-OFF COMMON-DIVISOR-DIVIDES-GCD-OFF ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF ASSOCIATIVITY-OF-GCD-OFF COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF COMMUTATIVITY2-OF-GCD-OFF GCD-X-X-OFF GCD-IDEMPOTENCE-OFF G*1*INTEGERP-OFF G*1*FIX-INT-OFF G*1*IZEROP-OFF IZEROP-OFF G*1*ILESSP-OFF G*1*ILEQ-OFF ILEQ-OFF G*1*IPLUS-OFF G*1*INEG-OFF G*1*IDIFFERENCE-OFF IDIFFERENCE-OFF G*1*IABS-OFF G*1*ITIMES-OFF G*1*IQUOTIENT-OFF G*1*IREMAINDER-OFF G*1*IDIV-OFF G*1*IMOD-OFF G*1*IQUO-OFF G*1*IREM-OFF INTEGERP-FIX-INT-OFF INTEGERP-IPLUS-OFF INTEGERP-IDIFFERENCE-OFF INTEGERP-INEG-OFF INTEGERP-IABS-OFF INTEGERP-ITIMES-OFF FIX-INT-REMOVER-OFF FIX-INT-FIX-INT-OFF FIX-INT-IPLUS-OFF FIX-INT-IDIFFERENCE-OFF FIX-INT-INEG-OFF FIX-INT-IABS-OFF FIX-INT-ITIMES-OFF INEG-IPLUS-OFF INEG-INEG-OFF INEG-FIX-INT-OFF INEG-0-OFF IPLUS-0-LEFT-OFF IPLUS-0-RIGHT-OFF COMMUTATIVITY2-OF-IPLUS-OFF COMMUTATIVITY-OF-IPLUS-OFF ASSOCIATIVITY-OF-IPLUS-OFF IPLUS-CANCELLATION-1-OFF IPLUS-CANCELLATION-2-OFF IPLUS-INEG1-OFF IPLUS-INEG2-OFF IPLUS-FIX-INT1-OFF IPLUS-FIX-INT2-OFF IDIFFERENCE-FIX-INT1-OFF IDIFFERENCE-FIX-INT2-OFF G*1*CANCEL-INEG-AUX-OFF CANCEL-INEG-AUX-OFF G*1*CANCEL-INEG-OFF CANCEL-INEG-OFF EVAL$-LIST-CONS-OFF EVAL$-LIST-NLISTP-OFF EVAL$-LITATOM-OFF EVAL$-OTHER-OFF G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF IPLUS-INEG3-OFF IPLUS-INEG4-OFF IPLUS-X-Y-INEG-X-OFF CORRECTNESS-OF-CANCEL-INEG-OFF G*1*IPLUS-FRINGE-OFF IPLUS-FRINGE-OFF G*1*IPLUS-TREE-REC-OFF IPLUS-TREE-REC-OFF G*1*IPLUS-TREE-OFF G*1*IPLUS-LIST-OFF IPLUS-LIST-OFF INTEGERP-IPLUS-LIST-OFF EVAL$-LIST-APPEND-OFF G*1*CANCEL-IPLUS-OFF EVAL$-IPLUS-LIST-DELETE-OFF IPLUS-LIST-APPEND-OFF IPLUS-INEG7-OFF CORRECTNESS-OF-CANCEL-IPLUS-OFF ILESSP-FIX-INT-1-OFF ILESSP-FIX-INT-2-OFF G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF G*1*CANCEL-IPLUS-ILESSP-1-OFF CANCEL-IPLUS-ILESSP-1-OFF IPLUS-CANCELLATION-1-FOR-ILESSP-OFF IPLUS-CANCELLATION-2-FOR-ILESSP-OFF G*1*IPLUS-TREE-NO-FIX-INT-OFF G*1*CANCEL-IPLUS-ILESSP-OFF CANCEL-IPLUS-ILESSP-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF ITIMES-0-LEFT-OFF ITIMES-0-RIGHT-OFF ITIMES-FIX-INT1-OFF ITIMES-FIX-INT2-OFF COMMUTATIVITY-OF-ITIMES-OFF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF ITIMES-DISTRIBUTES-OVER-IPLUS-OFF COMMUTATIVITY2-OF-ITIMES-OFF ASSOCIATIVITY-OF-ITIMES-OFF EQUAL-ITIMES-0-OFF EQUAL-ITIMES-1-OFF EQUAL-ITIMES-MINUS-1-OFF ITIMES-1-ARG1-OFF QUOTIENT-REMAINDER-UNIQUENESS-OFF DIVISION-THEOREM-PART1-OFF DIVISION-THEOREM-PART2-OFF DIVISION-THEOREM-PART3-OFF DIVISION-THEOREM-OFF IQUOTIENT-IREMAINDER-UNIQUENESS-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF IDIV-IMOD-UNIQUENESS-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF IQUO-IREM-UNIQUENESS-OFF ITIMES-INEG-1-OFF ITIMES-INEG-2-OFF ITIMES-CANCELLATION-1-OFF ITIMES-CANCELLATION-2-OFF ITIMES-CANCELLATION-3-OFF INTEGERP-IQUOTIENT-OFF INTEGERP-IREMAINDER-OFF INTEGERP-IDIV-OFF INTEGERP-IMOD-OFF INTEGERP-IQUO-OFF INTEGERP-IREM-OFF IQUOTIENT-FIX-INT1-OFF IQUOTIENT-FIX-INT2-OFF IREMAINDER-FIX-INT1-OFF IREMAINDER-FIX-INT2-OFF IDIV-FIX-INT1-OFF IDIV-FIX-INT2-OFF IMOD-FIX-INT1-OFF IMOD-FIX-INT2-OFF IQUO-FIX-INT1-OFF IQUO-FIX-INT2-OFF IREM-FIX-INT1-OFF IREM-FIX-INT2-OFF FIX-INT-IQUOTIENT-OFF FIX-INT-IREMAINDER-OFF FIX-INT-IDIV-OFF FIX-INT-IMOD-OFF FIX-INT-IQUO-OFF FIX-INT-IREM-OFF G*1*ITIMES-FRINGE-OFF ITIMES-FRINGE-OFF G*1*ITIMES-TREE-REC-OFF ITIMES-TREE-REC-OFF G*1*ITIMES-TREE-OFF G*1*ITIMES-LIST-OFF ITIMES-LIST-OFF INTEGERP-ITIMES-LIST-OFF G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF G*1*CANCEL-ITIMES-OFF CANCEL-ITIMES-OFF ITIMES-LIST-APPEND-OFF MEMBER-APPEND-OFF EQUAL-FIX-INT-OFF G*1*SUBSETP-OFF SUBSETP-OFF G*1*ITIMES-TREE-NO-FIX-INT-OFF G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF G*1*CANCEL-ITIMES-ILESSP-OFF CANCEL-ITIMES-ILESSP-OFF ILESSP-ITIMES-RIGHT-POSITIVE-OFF ILESSP-ITIMES-RIGHT-NEGATIVE-OFF ILESSP-STRICT-OFF G*1*ITIMES-TREE-INEG-OFF G*1*ITIMES-FACTORS-OFF ITIMES-FACTORS-OFF ITIMES--1-OFF EQUAL-INEG-INEG-OFF ILESSP-INEG-INEG-OFF FIX-INT-EVAL$-ITIMES-TREE-REC-OFF EVAL$-ITIMES-TREE-INEG-OFF INEG-EVAL$-ITIMES-TREE-INEG-OFF IPLUS-EVAL$-ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG-OFF G*1*IPLUS-OR-ITIMES-TERM-OFF G*1*CANCEL-ITIMES-FACTORS-OFF CANCEL-ITIMES-FACTORS-OFF G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF MEMBER-0-EVAL$-LIST-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF CANCEL-ITIMES-ILESSP-FACTORS-OFF BAGINT-SINGLETON-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF EQUAL-FIX-INT-TO-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF G*1*DISJOIN-EQUALITIES-WITH-0-OFF DISJOIN-EQUALITIES-WITH-0-OFF G*1*CANCEL-FACTORS-0-OFF CANCEL-FACTORS-0-OFF G*1*SOME-EVAL$S-TO-0-OFF SOME-EVAL$S-TO-0-OFF EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF SOME-EVAL$S-TO-0-APPEND-OFF SOME-EVAL$S-TO-0-ELIMINATOR-OFF CORRECTNESS-OF-CANCEL-FACTORS-0-OFF G*1*CONJOIN-INEQUALITIES-WITH-0-OFF CONJOIN-INEQUALITIES-WITH-0-OFF G*1*CANCEL-FACTORS-ILESSP-0-OFF CANCEL-FACTORS-ILESSP-0-OFF CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF G*1*SPLIT-OUT-INEG-TERMS-OFF SPLIT-OUT-INEG-TERMS-OFF G*1*REMOVE-INEGS-OFF G*1*IPLUS-OR-INEG-TERM-OFF G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF IPLUS-CONSTANTS-OFF CANCEL-CONSTANTS-EQUAL-LEMMA-OFF CANCEL-CONSTANTS-EQUAL-OFF ILESSP-ADD1-OFF ILESSP-ADD1-IPLUS-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF CANCEL-CONSTANTS-ILESSP-OFF MATH-THEORY EVAL$-ON INTEGERS DIFFERENCE-IDIFFERENCE-OFF NUMBERP-IS-INTEGERP-OFF PLUS-IPLUS-OFF CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS ILESSP-ADD1 CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-LEMMA DIFFERENCE-IDIFFERENCE NUMBERP-IS-INTEGERP IPLUS-CONSTANTS PLUS-IPLUS INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF MINUS-INEG-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY REMOVE-INEGS-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS MINUS-INEG EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS IPLUS-OR-INEG-TERM-OFF INTEGERP-EVAL$-IPLUS-OR-INEG-TERM CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY IPLUS-OR-INEG-TERM REMOVE-INEGS SPLIT-OUT-INEG-TERMS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF SUBBAGP-SUBSETP-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-OFF LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF ILESSP-ITIMES-0-OFF ILESSP-0-ITIMES-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF IZEROP-ILESSP-0-RELATIONSHIP-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF EVAL$-LIST-BAGINT-0-OFF IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF ITIMES-LIST-EVAL$-FACTORS-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CANCEL-FACTORS-ILESSP-0 LESSP-COUNT-LISTP-CDR-OFF2 CONJOIN-INEQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON1 CORRECTNESS-OF-CANCEL-FACTORS-0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-APPEND EVAL$-DISJOIN-EQUALITIES-WITH-0 SOME-EVAL$S-TO-0 CANCEL-FACTORS-0 LESSP-COUNT-LISTP-CDR-OFF1 DISJOIN-EQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS ILESSP-TRICHOTOMY-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP IZEROP-ILESSP-0-RELATIONSHIP-OFF ILESSP-TRICHOTOMY-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ZERO-ILESSP-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 IZEROP-ILESSP-0-RELATIONSHIP BAGINT-SINGLETON CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0 IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA MEMBER-0-EVAL$-LIST MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 IPLUS-OR-ITIMES-TERM-OFF CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS IPLUS-OR-ITIMES-TERM ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC ILESSP-INEG-INEG EQUAL-INEG-INEG ITIMES--1 ITIMES-FACTORS ITIMES-TREE-INEG CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF ITIMES-LIST-EVAL$-LIST-0-OFF LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF MEMBER-IZEROP-ITIMES-FRINGE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ITIMES-LIST-BAGDIFF-OFF INTEGERP-EVAL$-ITIMES-OFF ITIMES-LIST-EVAL$-FRINGE-OFF EVAL$-ITIMES-TREE-OFF EVAL$-ITIMES-TREE-REC-OFF QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF LESSP-DIFFERENCE-PLUS-ARG1-OFF EVAL$-IPLUS-LIST-BAGDIFF-OFF IPLUS-LIST-EVAL$-FRINGE-OFF EVAL$-IPLUS-TREE-OFF EVAL$-IPLUS-TREE-REC-OFF LESSP-COUNT-LISTP-CDR-OFF EVAL$-IPLUS-OFF EVAL$-CANCEL-IPLUS-OFF ILESSP-STRICT CORRECTNESS-OF-CANCEL-ITIMES-ILESSP SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF ILESSP-TRICHOTOMY-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 ILESSP-TRICHOTOMY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA LISTP-BAGINT-WITH-SINGLETON-MEMBER CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-LIST-EVAL$-LIST-0 LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY CANCEL-ITIMES-ILESSP MAKE-CANCEL-ITIMES-INEQUALITY ITIMES-TREE-NO-FIX-INT-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 ITIMES-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 SUBBAGP-SUBSETP SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 SUBSETP IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EQUAL-FIX-INT EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 MAKE-CANCEL-ITIMES-EQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EVAL$-EQUAL-ON CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 MEMBER-IZEROP-ITIMES-FRINGE MEMBER-APPEND ITIMES-LIST-EVAL$-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-DELETE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES INTEGERP-EVAL$-ITIMES ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND CANCEL-ITIMES MAKE-CANCEL-ITIMES-EQUALITY ITIMES-TREE-OFF EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC INTEGERP-ITIMES-LIST ITIMES-LIST ITIMES-TREE ITIMES-TREE-REC ITIMES-FRINGE IREM-OFF IQUO-OFF IMOD-OFF IDIV-OFF IREMAINDER-OFF IQUOTIENT-OFF FIX-INT-IREM FIX-INT-IQUO FIX-INT-IMOD FIX-INT-IDIV FIX-INT-IREMAINDER FIX-INT-IQUOTIENT IREM-FIX-INT2 IREM-FIX-INT1 IQUO-FIX-INT2 IQUO-FIX-INT1 IMOD-FIX-INT2 IMOD-FIX-INT1 IDIV-FIX-INT2 IDIV-FIX-INT1 IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT1 IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IREM INTEGERP-IQUO INTEGERP-IMOD INTEGERP-IDIV INTEGERP-IREMAINDER INTEGERP-IQUOTIENT ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 QUOTIENT-REMAINDER-UNIQUENESS ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-ZERO2-OFF ITIMES-0-RIGHT ITIMES-ZERO2 ITIMES-ZERO1-OFF ITIMES-0-LEFT ITIMES-ZERO1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER IPLUS-TREE-NO-FIX-INT-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT IPLUS-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED LESSP-DIFFERENCE-PLUS-ARG1 CANCEL-IPLUS-ILESSP-1 MAKE-CANCEL-IPLUS-INEQUALITY-1 ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 IPLUS-INEG6-OFF IPLUS-INEG5-OFF CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 EVAL$-IPLUS IPLUS-INEG6 IPLUS-INEG5-LEMMA-2-OFF IPLUS-INEG5-LEMMA-1-OFF IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 IPLUS-LIST-EVAL$-FRINGE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS IPLUS-TREE-OFF IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE CANCEL-IPLUS-OFF EVAL$-CANCEL-IPLUS CANCEL-IPLUS EVAL$-LIST-APPEND EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC INTEGERP-IPLUS-LIST IPLUS-LIST IPLUS-TREE IPLUS-TREE-REC LESSP-COUNT-LISTP-CDR IPLUS-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX-OFF CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-INEG-PROMOTE-OFF IPLUS-X-Y-INEG-X IPLUS-INEG-PROMOTE IPLUS-INEG4 IPLUS-INEG3 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-FN EVAL$-OFF EVAL$-OTHER EVAL$-QUOTE-ON EVAL$-LITATOM EVAL$-LIST-NLISTP EVAL$-LIST-CONS CANCEL-INEG CANCEL-INEG-AUX IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT1 IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-INEG2 IPLUS-INEG1 IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS COMMUTATIVITY2-OF-IPLUS IPLUS-0-RIGHT IPLUS-0-LEFT IPLUS-RIGHT-ID-OFF IPLUS-RIGHT-ID IPLUS-LEFT-ID-OFF IPLUS-LEFT-ID INEG-0 INEG-OF-NON-INTEGERP-OFF INEG-OF-NON-INTEGERP INEG-FIX-INT INEG-INEG INEG-IPLUS FIX-INT-ITIMES FIX-INT-IABS FIX-INT-INEG FIX-INT-IDIFFERENCE FIX-INT-IPLUS FIX-INT-FIX-INT FIX-INT-REMOVER INTEGERP-ITIMES INTEGERP-IABS INTEGERP-INEG INTEGERP-IDIFFERENCE INTEGERP-IPLUS INTEGERP-FIX-INT ITIMES-OFF IABS-OFF INEG-OFF IPLUS-OFF ILESSP-OFF FIX-INT-OFF INTEGERP-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS IREM IQUO IMOD IDIV IREMAINDER IQUOTIENT ITIMES IABS IDIFFERENCE INEG IPLUS ILEQ ILESSP IZEROP FIX-INT INTEGERP NATURALS GCDS GCD-IDEMPOTENCE GCD-X-X COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ZERO-CASE COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-INSTANCE GCD-PLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD EQUAL-GCD-0 GCD-1 GCD-0 SINGLE-NUMBER-INDUCTION COMMUTATIVITY-OF-GCD LOGS LOG-EXP LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-TIMES LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT LEQ-LOG-LOG DOUBLE-LOG-INDUCTION LOG-1 LOG-0 EQUAL-LOG-0 EXPONENTIATION EXP-DIFFERENCE EQUAL-EXP-1 EQUAL-EXP-0 EXP-EXP EXP-TIMES EXP-0-ARG2 EXP-1-ARG1 EXP-0-ARG1 EXP-PLUS EXP-ADD1 EXP-ZERO QUOTIENT-EXP REMAINDER-EXP-EXP DOUBLE-NUMBER-INDUCTION REMAINDER-EXP GCD LOG EXP QUOTIENTS CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-QUOTIENT-TIMES LESSP-QUOTIENT QUOTIENT-X-X QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG2 LEQ-QUOTIENT QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-LESSP-ARG1 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-TIMES-OFF QUOTIENT-TIMES-TIMES QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-OFF QUOTIENT-TIMES-INSTANCE-TEMP QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-PLUS QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 EQUAL-QUOTIENT-0 QUOTIENT-ADD1 QUOTIENT-ZERO QUOTIENT-OF-NON-NUMBER QUOTIENT-NOOP REMAINDERS TRANSITIVITY-OF-DIVIDES REMAINDER-X-X REMAINDER-1-ARG2 REMAINDER-1-ARG1 REMAINDER-REMAINDER REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-FACT LESSP-PLUS-FACT-OFF LESSP-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0-OFF EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3-OFF REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 DOUBLE-REMAINDER-INDUCTION REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-OFF REMAINDER-TIMES-TIMES REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1 REMAINDER-TIMES1-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-OFF EQUAL-REMAINDER-PLUS-REMAINDER EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-PROOF REMAINDER-PLUS REMAINDER-PLUS-PROOF REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM PLUS-REMAINDER-TIMES-QUOTIENT-OFF PLUS-REMAINDER-TIMES-QUOTIENT REMAINDER-ZERO REMAINDER-OF-NON-NUMBER REMAINDER-NOOP LESSP-REMAINDER MULTIPLICATION CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES TIMES-TREE-OF-TIMES-FRINGE-OFF TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND-OFF TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO2-OFF ZEROP-MAKES-TIMES-TREE-ZERO2 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF OR-ZEROP-TREE-IS-NOT-ZEROP-TREE ZEROP-MAKES-TIMES-TREE-ZERO-OFF ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER-OFF EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE-OFF EQUAL-TIMES-BRIDGE EQUAL-TIMES-ARG1-OFF EQUAL-TIMES-ARG1 INFER-EQUALITY-FROM-NOT-LESSP LESSP-TIMES-ARG1 NUMBERP-EVAL$-TIMES-TREE-OFF NUMBERP-EVAL$-TIMES-TREE EVAL$-IF-OFF EVAL$-IF EVAL$-QUOTIENT-OFF EVAL$-QUOTIENT EVAL$-LESSP-OFF EVAL$-LESSP EVAL$-EQUAL-OFF EVAL$-EQUAL EVAL$-OR-OFF EVAL$-OR EVAL$-TIMES-OFF EVAL$-TIMES NUMBERP-EVAL$-TIMES-OFF NUMBERP-EVAL$-TIMES AND-NOT-ZEROP-TREE OR-ZEROP-TREE TIMES-FRINGE TIMES-TREE LESSP-1-TIMES LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION1-OFF LESSP-TIMES-CANCELLATION1 LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES3 LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF1 LESSP-TIMES2 LESSP-TIMES2-PROOF LESSP-TIMES1 LESSP-TIMES1-PROOF TIMES-1-ARG1 TIMES-QUOTIENT TIMES-QUOTIENT-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ASSOCIATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-PROOF COMMUTATIVITY-OF-TIMES TIMES-ADD1 TIMES-ZERO EQUAL-SUB1-0 EQUAL-TIMES-1 EQUAL-TIMES-0 ADDITION CORRECTNESS-OF-CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS LESSP-DIFFERENCE-CANCELLATION-OFF LESSP-DIFFERENCE-CANCELLATION DIFFERENCE-X-X DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-SUB1-ARG2 DIFFERENCE-ADD1-ARG2 DIFFERENCE-LEQ-ARG1 DIFFERENCE-ELIM CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$-OFF LISTP-EVAL$ EVAL$-QUOTE-OFF EVAL$-QUOTE CADR-EVAL$-LIST-OFF CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP-OFF MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE-OFF PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND-OFF EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-BRIDGE-OFF NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF-OFF PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE-OFF PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE-OFF NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS-OFF NUMBERP-EVAL$-PLUS PLUS-TREE PLUS-FRINGE DIFFERENCE-LESSP-ARG1-OFF DIFFERENCE-LESSP-ARG1 DIFF-DIFF-DIFF-OFF DIFF-DIFF-DIFF DIFF-DIFF-ARG2 DIFF-DIFF-ARG1 DIFF-SUB1-ARG2-OFF DIFF-SUB1-ARG2 DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-CANCELLATION DIFFERENCE-PLUS-CANCELLATION-PROOF PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG1 ASSOCIATIVITY-OF-PLUS PLUS-ADD1-ARG2 PLUS-ADD1-ARG1 PLUS-ZERO-ARG2 COMMUTATIVITY2-OF-PLUS COMMUTATIVITY-OF-PLUS DIFFERENCE-CANCELLATION-OFF DIFFERENCE-CANCELLATION EQUAL-DIFFERENCE-0 PLUS-CANCELLATION-OFF PLUS-CANCELLATION EQUAL-PLUS-0 BAGS MEMBER-BAGINT OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE BAGDIFF-DELETE MEMBER-BAGDIFF OCCURRENCES-DELETE MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE MEMBER-NON-LIST EQUAL-OCCURRENCES-ZERO DELETE-DELETE DELETE-NON-MEMBER LISTP-DELETE-OFF LISTP-DELETE SUBBAGP OCCURRENCES BAGINT BAGDIFF DELETE GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-PROPS (QUOTE (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT*-OFF NAT-TO-V-OF-V-TO-NAT* NAT-TO-V-AS-REMAINDER LESSP-QUOTIENT-TEST-OFF LESSP-QUOTIENT-TEST V-ALU-CORRECT-INT-REWRITE-OFF V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-NAT-REWRITE-OFF V-ALU-CORRECT-NAT-REWRITE V-V-ALU C-V-ALU BV-V-ALU ZB-CVZBV V-CVZBV C-CVZBV BV-CVZBV *1*V-NEG V-NEG FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y EQUAL-SUB1-PLUS-X-X FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP--1 LENGTH-INT-TO-V NOT-V-NEGP-NAT-TO-V-0 INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-OFF INTEGER-IN-RANGEP-IPLUS-INEG NOT-INTEGERP-MINUS-ZERO INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS-OFF INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF INTEGER-IN-RANGEP-THE-OBVIOUS-WAY LESSP-REMAINDER-THEOREM EXP-2-L-1<=EXP-2-L SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT EXP-LINEAR-BOUNDS LESSP-A-PLUS-A-A INTEGER-IN-RANGEP-1 LESSP-1-PLUS-X-X NOT-EQUAL-IPLUS-MINUS-0 INTEGER-IN-RANGEP-MINUS-0 V-TO-INT-NAT-TO-V-0 BVP-INT-TO-V INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0-OFF REWRITE-EQUAL-V-TO-INT-0 V-NEGP->NEGATIVEP-V-TO-INT-OFF V-NEGP->NEGATIVEP-V-TO-INT NEGATIVEP-IDIFFERENCE-ON-NUMBERPS V-NEGP-AS-BOUNDS-OFF V-NEGP-AS-BOUNDS INTEGERP-V-TO-INT V-TO-NAT-LESSP-EXP-2-LENGTH IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY DIFFERENCE-LINEAR REMAINDER-THEOREM-FOR-SUBB FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR LESSP-V-TO-NAT-EXP-2-LENGTH-A LESSP-SUB1-PLUS-A-B-B V-NZEROP-NAT-TO-V V-NZEROP-NAT-TO-V$HELP-OFF V-NZEROP-NAT-TO-V$HELP QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP *1*DOUBLE-DIFFERENCE-INDUCTION DOUBLE-DIFFERENCE-INDUCTION WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS N-V-ALU ZB-V-ALU OPCODE-THEORY *1*OP-M15 OP-M15 *1*OP-NOT OP-NOT *1*OP-AND OP-AND *1*OP-OR OP-OR *1*OP-XOR OP-XOR *1*OP-LSR OP-LSR *1*OP-ASR OP-ASR *1*OP-ROR OP-ROR *1*OP-SUB OP-SUB *1*OP-SUBB OP-SUBB *1*OP-DEC OP-DEC *1*OP-NEG OP-NEG *1*OP-ADD OP-ADD *1*OP-ADDC OP-ADDC *1*OP-INC OP-INC *1*OP-MOVE OP-MOVE CONDITION-CODE-THEORY *1*CC-F CC-F *1*CC-T CC-T *1*CC-LE CC-LE *1*CC-GT CC-GT *1*CC-LT CC-LT *1*CC-GE CC-GE *1*CC-LS CC-LS *1*CC-HI CC-HI *1*CC-EQ CC-EQ *1*CC-NE CC-NE *1*CC-MI CC-MI *1*CC-PL CC-PL *1*CC-VS CC-VS *1*CC-VC CC-VC *1*CC-CS CC-CS *1*CC-CC CC-CC REWRITE-EQUAL-V-TO-NAT-0-OFF REWRITE-EQUAL-V-TO-NAT-0 V-NOT-V-NOT V-NZEROP-NAT-TO-V-ZERO V-TO-NAT-EQUAL BOOLP-FLAG-EXTRACTERS V-ZEROP-IMPLIES-V-TO-NAT-0 V-NEGP->V-NZEROP COMMUTATIVITY-OF-IPLUS-ON1 IPLUS-0-RIGHT-ON1 IPLUS-0-LEFT-ON1 V-TO-NAT-OF-NAT-TO-V-ON V-ALU-CORRECT-NAT-LSR-OFF1 V-ALU-CORRECT-INT-ASR-OFF1 V-ALU-CORRECT-NAT-ADDER-OFF1 V-ALU-CORRECT-NAT-INC-OFF1 V-ADDER-OUTPUT=V-SUM-OFF1 V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-INT-NOT-ON V-ALU-CORRECT-INT-NEG-ON V-ALU-CORRECT-INT-ASR-ON V-ALU-CORRECT-INT-ASR-OUTPUT-ON V-ALU-CORRECT-INT-DEC-ON V-ALU-CORRECT-INT-SUBTRACTER-ON V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON V-ALU-CORRECT-INT-INC-ON V-ALU-CORRECT-INT-ADDER-ON V-ALU-CORRECT-INT-ADDER-OUTPUT-ON V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON V-ALU-CORRECT-NAT-NOT-ON V-ALU-CORRECT-NAT-NOT-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-ON V-ALU-CORRECT-NAT-LSR-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON V-ALU-CORRECT-NAT-DEC-ON V-ALU-CORRECT-NAT-SUBTRACTER-ON V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON V-ALU-CORRECT-NAT-INC-ON V-ALU-CORRECT-NAT-ADDER-ON V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON V-ALU-CORRECT-NAT-INT-BUF-ON PLUS-QUOTIENT-2-ON PLUS-QUOTIENT-2-LEMMA-ON QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON EQUAL-IFF-ON EQUAL-NAT-TO-V-INVERTER-HACK2-ON EQUAL-NAT-TO-V-INVERTER-HACK1-ON V-TO-NAT-FIRSTN-HACK2-ON V-TO-NAT-FIRSTN-HACK1-ON V-ADDER-CARRY-OUT=V-CARRY-ON V-ADDER-OUTPUT=V-SUM-ON G*1*DELETE-OFF1 DELETE-OFF1 G*1*BAGDIFF-OFF1 BAGDIFF-OFF1 G*1*BAGINT-OFF1 BAGINT-OFF1 G*1*OCCURRENCES-OFF1 OCCURRENCES-OFF1 G*1*SUBBAGP-OFF1 SUBBAGP-OFF1 DELETE-NON-MEMBER-OFF1 DELETE-DELETE-OFF1 EQUAL-OCCURRENCES-ZERO-OFF1 MEMBER-NON-LIST-OFF1 MEMBER-DELETE-OFF1 MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 OCCURRENCES-DELETE-OFF1 MEMBER-BAGDIFF-OFF1 BAGDIFF-DELETE-OFF1 SUBBAGP-DELETE-OFF1 SUBBAGP-CDR1-OFF1 SUBBAGP-CDR2-OFF1 SUBBAGP-BAGINT1-OFF1 SUBBAGP-BAGINT2-OFF1 OCCURRENCES-BAGINT-OFF1 OCCURRENCES-BAGDIFF-OFF1 MEMBER-BAGINT-OFF1 EQUAL-PLUS-0-OFF1 EQUAL-DIFFERENCE-0-OFF1 COMMUTATIVITY-OF-PLUS-OFF1 COMMUTATIVITY2-OF-PLUS-OFF1 PLUS-ZERO-ARG2-OFF1 PLUS-ADD1-ARG1-OFF1 PLUS-ADD1-ARG2-OFF1 ASSOCIATIVITY-OF-PLUS-OFF1 PLUS-DIFFERENCE-ARG1-OFF1 PLUS-DIFFERENCE-ARG2-OFF1 DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 DIFF-DIFF-ARG1-OFF1 DIFF-DIFF-ARG2-OFF1 G*1*PLUS-FRINGE-OFF1 PLUS-FRINGE-OFF1 G*1*PLUS-TREE-OFF1 PLUS-TREE-OFF1 EVAL$-QUOTE-OFF2 G*1*CANCEL-EQUAL-PLUS-OFF1 CANCEL-EQUAL-PLUS-OFF1 G*1*CANCEL-DIFFERENCE-PLUS-OFF1 CANCEL-DIFFERENCE-PLUS-OFF1 DIFFERENCE-ELIM-OFF1 DIFFERENCE-LEQ-ARG1-OFF1 DIFFERENCE-ADD1-ARG2-OFF1 DIFFERENCE-SUB1-ARG2-OFF1 DIFFERENCE-DIFFERENCE-ARG1-OFF1 DIFFERENCE-DIFFERENCE-ARG2-OFF1 DIFFERENCE-X-X-OFF1 G*1*CANCEL-LESSP-PLUS-OFF1 CANCEL-LESSP-PLUS-OFF1 EQUAL-TIMES-0-OFF1 EQUAL-TIMES-1-OFF1 EQUAL-SUB1-0-OFF1 TIMES-ZERO-OFF1 TIMES-ADD1-OFF1 COMMUTATIVITY-OF-TIMES-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-OFF1 COMMUTATIVITY2-OF-TIMES-OFF1 ASSOCIATIVITY-OF-TIMES-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 TIMES-QUOTIENT-PROOF-OFF1 TIMES-QUOTIENT-OFF1 TIMES-1-ARG1-OFF1 LESSP-TIMES1-PROOF-OFF1 LESSP-TIMES1-OFF1 LESSP-TIMES2-PROOF-OFF1 LESSP-TIMES2-OFF1 LESSP-TIMES3-PROOF1-OFF1 LESSP-TIMES3-PROOF2-OFF1 LESSP-TIMES3-OFF1 LESSP-TIMES-CANCELLATION-PROOF-OFF1 LESSP-PLUS-TIMES-PROOF-OFF1 LESSP-PLUS-TIMES1-OFF1 LESSP-PLUS-TIMES2-OFF1 LESSP-1-TIMES-OFF1 G*1*TIMES-TREE-OFF1 TIMES-TREE-OFF1 G*1*TIMES-FRINGE-OFF1 TIMES-FRINGE-OFF1 G*1*OR-ZEROP-TREE-OFF1 OR-ZEROP-TREE-OFF1 G*1*AND-NOT-ZEROP-TREE-OFF1 AND-NOT-ZEROP-TREE-OFF1 EVAL$-EQUAL-OFF2 LESSP-TIMES-ARG1-OFF1 INFER-EQUALITY-FROM-NOT-LESSP-OFF1 G*1*CANCEL-LESSP-TIMES-OFF1 CANCEL-LESSP-TIMES-OFF1 G*1*CANCEL-EQUAL-TIMES-OFF1 CANCEL-EQUAL-TIMES-OFF1 LESSP-REMAINDER-OFF1 REMAINDER-NOOP-OFF1 REMAINDER-OF-NON-NUMBER-OFF1 REMAINDER-ZERO-OFF1 REMAINDER-QUOTIENT-ELIM-OFF1 REMAINDER-ADD1-OFF1 REMAINDER-PLUS-PROOF-OFF1 REMAINDER-PLUS-OFF1 EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 EQUAL-REMAINDER-PLUS-0-OFF1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 REMAINDER-TIMES1-PROOF-OFF1 REMAINDER-TIMES1-OFF1 REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 REMAINDER-TIMES1-INSTANCE-OFF1 REMAINDER-TIMES-TIMES-PROOF-OFF1 REMAINDER-TIMES2-PROOF-OFF1 REMAINDER-TIMES2-OFF1 REMAINDER-TIMES2-INSTANCE-OFF1 REMAINDER-DIFFERENCE1-OFF1 G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 DOUBLE-REMAINDER-INDUCTION-OFF1 REMAINDER-DIFFERENCE2-OFF1 REMAINDER-PLUS-FACT-OFF1 REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 REMAINDER-PLUS-TIMES-TIMES-OFF1 REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 REMAINDER-REMAINDER-OFF1 REMAINDER-1-ARG1-OFF1 REMAINDER-1-ARG2-OFF1 REMAINDER-X-X-OFF1 TRANSITIVITY-OF-DIVIDES-OFF1 QUOTIENT-NOOP-OFF1 QUOTIENT-OF-NON-NUMBER-OFF1 QUOTIENT-ZERO-OFF1 QUOTIENT-ADD1-OFF1 EQUAL-QUOTIENT-0-OFF1 QUOTIENT-SUB1-OFF1 QUOTIENT-PLUS-PROOF-OFF1 QUOTIENT-PLUS-OFF1 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 QUOTIENT-TIMES-PROOF-OFF1 QUOTIENT-TIMES-OFF1 QUOTIENT-TIMES-INSTANCE-OFF1 QUOTIENT-TIMES-TIMES-PROOF-OFF1 QUOTIENT-DIFFERENCE1-OFF1 QUOTIENT-LESSP-ARG1-OFF1 QUOTIENT-DIFFERENCE2-OFF1 QUOTIENT-DIFFERENCE3-OFF1 QUOTIENT-REMAINDER-TIMES-OFF1 QUOTIENT-REMAINDER-OFF1 QUOTIENT-REMAINDER-INSTANCE-OFF1 QUOTIENT-PLUS-FACT-OFF1 QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 QUOTIENT-PLUS-TIMES-TIMES-OFF1 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 QUOTIENT-QUOTIENT-OFF1 LEQ-QUOTIENT-OFF1 QUOTIENT-1-ARG2-OFF1 QUOTIENT-1-ARG1-CASESPLIT-OFF1 QUOTIENT-1-ARG1-OFF1 QUOTIENT-X-X-OFF1 LESSP-QUOTIENT-OFF1 G*1*CANCEL-QUOTIENT-TIMES-OFF1 CANCEL-QUOTIENT-TIMES-OFF1 G*1*EXP-OFF1 EXP-OFF1 G*1*LOG-OFF1 LOG-OFF1 G*1*GCD-OFF1 GCD-OFF1 REMAINDER-EXP-OFF1 G*1*DOUBLE-NUMBER-INDUCTION-OFF1 DOUBLE-NUMBER-INDUCTION-OFF1 REMAINDER-EXP-EXP-OFF1 QUOTIENT-EXP-OFF1 EXP-ZERO-OFF1 EXP-ADD1-OFF1 EXP-PLUS-OFF1 EXP-0-ARG1-OFF1 EXP-1-ARG1-OFF1 EXP-0-ARG2-OFF1 EXP-TIMES-OFF1 EXP-EXP-OFF1 EQUAL-EXP-0-OFF1 EQUAL-EXP-1-OFF1 EXP-DIFFERENCE-OFF1 EQUAL-LOG-0-OFF1 LOG-0-OFF1 LOG-1-OFF1 G*1*DOUBLE-LOG-INDUCTION-OFF1 DOUBLE-LOG-INDUCTION-OFF1 LEQ-LOG-LOG-OFF1 LOG-QUOTIENT-OFF1 LOG-QUOTIENT-TIMES-PROOF-OFF1 LOG-QUOTIENT-TIMES-OFF1 LOG-QUOTIENT-EXP-OFF1 LOG-TIMES-PROOF-OFF1 LOG-TIMES-OFF1 LOG-TIMES-EXP-PROOF-OFF1 LOG-TIMES-EXP-OFF1 LOG-EXP-OFF1 COMMUTATIVITY-OF-GCD-OFF1 G*1*SINGLE-NUMBER-INDUCTION-OFF1 SINGLE-NUMBER-INDUCTION-OFF1 GCD-0-OFF1 GCD-1-OFF1 EQUAL-GCD-0-OFF1 LESSP-GCD-OFF1 GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 GCD-PLUS-INSTANCE-TEMP-OFF1 GCD-PLUS-PROOF-OFF1 GCD-PLUS-OFF1 GCD-PLUS-INSTANCE-OFF1 REMAINDER-GCD-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 GCD-IS-THE-GREATEST-OFF1 COMMON-DIVISOR-DIVIDES-GCD-OFF1 ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 ASSOCIATIVITY-OF-GCD-OFF1 COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 COMMUTATIVITY2-OF-GCD-OFF1 GCD-X-X-OFF1 GCD-IDEMPOTENCE-OFF1 G*1*INTEGERP-OFF1 G*1*FIX-INT-OFF1 G*1*IZEROP-OFF1 IZEROP-OFF1 G*1*ILESSP-OFF1 G*1*ILEQ-OFF1 ILEQ-OFF1 G*1*IPLUS-OFF1 G*1*INEG-OFF1 G*1*IDIFFERENCE-OFF1 IDIFFERENCE-OFF1 G*1*IABS-OFF1 G*1*ITIMES-OFF1 G*1*IQUOTIENT-OFF1 G*1*IREMAINDER-OFF1 G*1*IDIV-OFF1 G*1*IMOD-OFF1 G*1*IQUO-OFF1 G*1*IREM-OFF1 INTEGERP-FIX-INT-OFF1 INTEGERP-IPLUS-OFF1 INTEGERP-IDIFFERENCE-OFF1 INTEGERP-INEG-OFF1 INTEGERP-IABS-OFF1 INTEGERP-ITIMES-OFF1 FIX-INT-REMOVER-OFF1 FIX-INT-FIX-INT-OFF1 FIX-INT-IPLUS-OFF1 FIX-INT-IDIFFERENCE-OFF1 FIX-INT-INEG-OFF1 FIX-INT-IABS-OFF1 FIX-INT-ITIMES-OFF1 INEG-IPLUS-OFF1 INEG-INEG-OFF1 INEG-FIX-INT-OFF1 INEG-0-OFF1 IPLUS-0-LEFT-OFF1 IPLUS-0-RIGHT-OFF1 COMMUTATIVITY2-OF-IPLUS-OFF1 COMMUTATIVITY-OF-IPLUS-OFF1 ASSOCIATIVITY-OF-IPLUS-OFF1 IPLUS-CANCELLATION-1-OFF1 IPLUS-CANCELLATION-2-OFF1 IPLUS-INEG1-OFF1 IPLUS-INEG2-OFF1 IPLUS-FIX-INT1-OFF1 IPLUS-FIX-INT2-OFF1 IDIFFERENCE-FIX-INT1-OFF1 IDIFFERENCE-FIX-INT2-OFF1 G*1*CANCEL-INEG-AUX-OFF1 CANCEL-INEG-AUX-OFF1 G*1*CANCEL-INEG-OFF1 CANCEL-INEG-OFF1 EVAL$-LIST-CONS-OFF1 EVAL$-LIST-NLISTP-OFF1 EVAL$-LITATOM-OFF1 EVAL$-OTHER-OFF1 G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 IPLUS-INEG3-OFF1 IPLUS-INEG4-OFF1 IPLUS-X-Y-INEG-X-OFF1 G*1*IPLUS-FRINGE-OFF1 IPLUS-FRINGE-OFF1 G*1*IPLUS-TREE-REC-OFF1 IPLUS-TREE-REC-OFF1 G*1*IPLUS-TREE-OFF1 G*1*IPLUS-LIST-OFF1 IPLUS-LIST-OFF1 INTEGERP-IPLUS-LIST-OFF1 EVAL$-LIST-APPEND-OFF1 G*1*CANCEL-IPLUS-OFF1 EVAL$-IPLUS-LIST-DELETE-OFF1 IPLUS-LIST-APPEND-OFF1 IPLUS-INEG7-OFF1 ILESSP-FIX-INT-1-OFF1 ILESSP-FIX-INT-2-OFF1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 G*1*CANCEL-IPLUS-ILESSP-1-OFF1 CANCEL-IPLUS-ILESSP-1-OFF1 IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 G*1*IPLUS-TREE-NO-FIX-INT-OFF1 G*1*CANCEL-IPLUS-ILESSP-OFF1 CANCEL-IPLUS-ILESSP-OFF1 ITIMES-0-LEFT-OFF1 ITIMES-0-RIGHT-OFF1 ITIMES-FIX-INT1-OFF1 ITIMES-FIX-INT2-OFF1 COMMUTATIVITY-OF-ITIMES-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 COMMUTATIVITY2-OF-ITIMES-OFF1 ASSOCIATIVITY-OF-ITIMES-OFF1 EQUAL-ITIMES-0-OFF1 EQUAL-ITIMES-1-OFF1 EQUAL-ITIMES-MINUS-1-OFF1 ITIMES-1-ARG1-OFF1 QUOTIENT-REMAINDER-UNIQUENESS-OFF1 DIVISION-THEOREM-PART1-OFF1 DIVISION-THEOREM-PART2-OFF1 DIVISION-THEOREM-PART3-OFF1 DIVISION-THEOREM-OFF1 IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 IDIV-IMOD-UNIQUENESS-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 IQUO-IREM-UNIQUENESS-OFF1 ITIMES-INEG-1-OFF1 ITIMES-INEG-2-OFF1 ITIMES-CANCELLATION-1-OFF1 ITIMES-CANCELLATION-2-OFF1 ITIMES-CANCELLATION-3-OFF1 INTEGERP-IQUOTIENT-OFF1 INTEGERP-IREMAINDER-OFF1 INTEGERP-IDIV-OFF1 INTEGERP-IMOD-OFF1 INTEGERP-IQUO-OFF1 INTEGERP-IREM-OFF1 IQUOTIENT-FIX-INT1-OFF1 IQUOTIENT-FIX-INT2-OFF1 IREMAINDER-FIX-INT1-OFF1 IREMAINDER-FIX-INT2-OFF1 IDIV-FIX-INT1-OFF1 IDIV-FIX-INT2-OFF1 IMOD-FIX-INT1-OFF1 IMOD-FIX-INT2-OFF1 IQUO-FIX-INT1-OFF1 IQUO-FIX-INT2-OFF1 IREM-FIX-INT1-OFF1 IREM-FIX-INT2-OFF1 FIX-INT-IQUOTIENT-OFF1 FIX-INT-IREMAINDER-OFF1 FIX-INT-IDIV-OFF1 FIX-INT-IMOD-OFF1 FIX-INT-IQUO-OFF1 FIX-INT-IREM-OFF1 G*1*ITIMES-FRINGE-OFF1 ITIMES-FRINGE-OFF1 G*1*ITIMES-TREE-REC-OFF1 ITIMES-TREE-REC-OFF1 G*1*ITIMES-TREE-OFF1 G*1*ITIMES-LIST-OFF1 ITIMES-LIST-OFF1 INTEGERP-ITIMES-LIST-OFF1 G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 G*1*CANCEL-ITIMES-OFF1 CANCEL-ITIMES-OFF1 ITIMES-LIST-APPEND-OFF1 MEMBER-APPEND-OFF1 EQUAL-FIX-INT-OFF1 G*1*SUBSETP-OFF1 SUBSETP-OFF1 G*1*ITIMES-TREE-NO-FIX-INT-OFF1 G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 G*1*CANCEL-ITIMES-ILESSP-OFF1 CANCEL-ITIMES-ILESSP-OFF1 ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 ILESSP-STRICT-OFF1 G*1*ITIMES-TREE-INEG-OFF1 G*1*ITIMES-FACTORS-OFF1 ITIMES-FACTORS-OFF1 ITIMES--1-OFF1 EQUAL-INEG-INEG-OFF1 ILESSP-INEG-INEG-OFF1 FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 EVAL$-ITIMES-TREE-INEG-OFF1 INEG-EVAL$-ITIMES-TREE-INEG-OFF1 IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 G*1*IPLUS-OR-ITIMES-TERM-OFF1 G*1*CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS-OFF1 G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 MEMBER-0-EVAL$-LIST-OFF1 G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CANCEL-ITIMES-ILESSP-FACTORS-OFF1 BAGINT-SINGLETON-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 EQUAL-FIX-INT-TO-ILESSP-OFF1 G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 DISJOIN-EQUALITIES-WITH-0-OFF1 G*1*CANCEL-FACTORS-0-OFF1 CANCEL-FACTORS-0-OFF1 G*1*SOME-EVAL$S-TO-0-OFF1 SOME-EVAL$S-TO-0-OFF1 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 SOME-EVAL$S-TO-0-APPEND-OFF1 SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 CONJOIN-INEQUALITIES-WITH-0-OFF1 G*1*CANCEL-FACTORS-ILESSP-0-OFF1 CANCEL-FACTORS-ILESSP-0-OFF1 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 G*1*SPLIT-OUT-INEG-TERMS-OFF1 SPLIT-OUT-INEG-TERMS-OFF1 G*1*REMOVE-INEGS-OFF1 G*1*IPLUS-OR-INEG-TERM-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 IPLUS-CONSTANTS-OFF1 CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 CANCEL-CONSTANTS-EQUAL-OFF1 ILESSP-ADD1-OFF1 ILESSP-ADD1-IPLUS-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 CANCEL-CONSTANTS-ILESSP-OFF1 B-APPROX-OFF2 B-KNOWNP-OFF2 DOUBLET-P-OFF1 OPEN-NTH-ON1 DP-RAM-16X32-MONOTONE-OFF1 DP-RAM-16X32-MONOTONE-STATE-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 MEM-WIDTH-LINEAR-FACTS-OFF1 V-APPROX-PRESERVES-PROPERP-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 MEM-WIDTH-NON-ZERO-OFF1 V-APPROX-SUBRANGE-OFF1 V-APPROX-PRESERVES-LENGTH-OFF1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 S-APPROX-CONSTANT-RAM-X-ID-OFF1 S-APPROX-WRITE-MEM-ID-OFF1 S-APPROX-WRITE-MEM1-ID-OFF1 V-APPROX-LENGTH-OFF1 WRITE-MEM-MONOTONE-OFF1 WRITE-MEM1-MONOTONE-OFF1 WRITE-MEM1-OPENER-OFF1 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 S-APPROX-OPENER-OFF1 BVP-ON1 DP-RAM-16X32-MONOTONE-VALUE-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 EVAL$-APPEND-2-OFF1 EVAL$-PAIRLIST-CONS-OFF1 EVAL$-APPEND-OFF1 DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 EQUAL-LENGTH-READ-MEM-OFF1 EQUAL-LENGTH-READ-MEM1-OFF1 READ-MEM-MONOTONE-OFF1 V-APPROX-MAKE-LIST-X-OFF1 V-APPROX-BVP-SUBRANGE-OFF1 V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 G*1*B-KNOWNP-OFF2 V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 BVP-IMPLIES-V-KNOWNP-OFF1 READ-MEM1-MONOTONE-OFF1 V-APPROX-BVP-OFF1 BVP-REVERSE-OFF1 F-PULLUP-OFF1 FT-WIRE-OFF1 FT-BUF-OFF1 F-IF-OFF1 F-EQUV3-OFF1 F-EQUV-OFF1 F-XOR3-OFF1 F-XOR-OFF1 F-NOR8-OFF1 F-NOR6-OFF1 F-NOR5-OFF1 F-NOR4-OFF1 F-NOR3-OFF1 F-NOR-OFF1 F-OR4-OFF1 F-OR3-OFF1 F-OR-OFF1 F-NAND8-OFF1 F-NAND6-OFF1 F-NAND5-OFF1 F-NAND4-OFF1 F-NAND3-OFF1 F-NAND-OFF1 F-NOT-OFF1 F-AND4-OFF1 F-AND3-OFF1 F-AND-OFF1 F-BUF-OFF1 MONOTONICITY-PROPERTY-OPENER-3-OFF1 MONOTONICITY-PROPERTY-OPENER-2-OFF1 MONOTONICITY-PROPERTY-OPENER-1-OFF1 MONOTONICITY-PROPERTY-OPENER-0-OFF1 MONOTONICITY-PROPERTY-OFF1 B-KNOWNP-COMPOUND-RECOGNIZER-ON G*1*B-APPROX-ON G*1*V-APPROX-ON V-APPROX-ON1 G*1*V-KNOWNP-ON V-KNOWNP-ON1 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON G*1*MEM-WIDTH-ON1 MEM-WIDTH-ON1 G*1*S-APPROX-ON S-APPROX-ON1 S-APPROX-X-X-ON G*1*GOOD-S-ON GOOD-S-ON G*1*S-KNOWNP-ON S-KNOWNP-ON1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1 G*1*V-APPROX-ALIST-ON V-APPROX-ALIST-ON G*1*S-APPROX-ALIST-ON S-APPROX-ALIST-ON G*1*MONOTONICITY-PROPERTY-ON MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON F-BUF-MONOTONE-ON F-AND-MONOTONE-ON F-AND3-MONOTONE-ON F-AND4-MONOTONE-ON F-NOT-MONOTONE-ON F-NAND-MONOTONE-ON F-NAND3-MONOTONE-ON F-NAND4-MONOTONE-ON F-NAND5-MONOTONE-ON F-NAND6-MONOTONE-ON F-NAND8-MONOTONE-ON F-OR-MONOTONE-ON F-OR3-MONOTONE-ON F-OR4-MONOTONE-ON F-NOR-MONOTONE-ON F-NOR3-MONOTONE-ON F-NOR4-MONOTONE-ON F-NOR5-MONOTONE-ON F-NOR6-MONOTONE-ON F-NOR8-MONOTONE-ON F-XOR-MONOTONE-ON F-EQUV-MONOTONE-ON F-XOR3-MONOTONE-ON F-EQUV3-MONOTONE-ON F-IF-MONOTONE-ON FT-BUF-MONOTONE-ON FT-WIRE-MONOTONE-ON F-PULLUP-MONOTONE-ON DUAL-EVAL-0-PRIMP-ON DUAL-EVAL-2-PRIMP-ON S-APPROX-IMPLIES-B-APPROX-ON F-BUF-TYPE-SET-ON FOURP-F-BUF-ON FOURP-F-IF-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1 DUAL-EVAL-AO2-VALUE-ON DUAL-EVAL-AO2-STATE-ON AO2-MONOTONE-ON DUAL-EVAL-AO4-VALUE-ON DUAL-EVAL-AO4-STATE-ON AO4-MONOTONE-ON DUAL-EVAL-AO6-VALUE-ON DUAL-EVAL-AO6-STATE-ON AO6-MONOTONE-ON DUAL-EVAL-AO7-VALUE-ON DUAL-EVAL-AO7-STATE-ON AO7-MONOTONE-ON DUAL-EVAL-B-AND-VALUE-ON DUAL-EVAL-B-AND-STATE-ON B-AND-MONOTONE-ON DUAL-EVAL-B-AND3-VALUE-ON DUAL-EVAL-B-AND3-STATE-ON B-AND3-MONOTONE-ON DUAL-EVAL-B-AND4-VALUE-ON DUAL-EVAL-B-AND4-STATE-ON B-AND4-MONOTONE-ON DUAL-EVAL-B-EQUV-VALUE-ON DUAL-EVAL-B-EQUV-STATE-ON B-EQUV-MONOTONE-ON DUAL-EVAL-B-EQUV3-VALUE-ON DUAL-EVAL-B-EQUV3-STATE-ON B-EQUV3-MONOTONE-ON DUAL-EVAL-B-IF-VALUE-ON DUAL-EVAL-B-IF-STATE-ON B-IF-MONOTONE-ON DUAL-EVAL-B-NAND-VALUE-ON DUAL-EVAL-B-NAND-STATE-ON B-NAND-MONOTONE-ON DUAL-EVAL-B-NAND3-VALUE-ON DUAL-EVAL-B-NAND3-STATE-ON B-NAND3-MONOTONE-ON DUAL-EVAL-B-NAND4-VALUE-ON DUAL-EVAL-B-NAND4-STATE-ON B-NAND4-MONOTONE-ON DUAL-EVAL-B-NAND5-VALUE-ON DUAL-EVAL-B-NAND5-STATE-ON B-NAND5-MONOTONE-ON DUAL-EVAL-B-NAND6-VALUE-ON DUAL-EVAL-B-NAND6-STATE-ON B-NAND6-MONOTONE-ON DUAL-EVAL-B-NAND8-VALUE-ON DUAL-EVAL-B-NAND8-STATE-ON B-NAND8-MONOTONE-ON DUAL-EVAL-B-NBUF-VALUE-ON DUAL-EVAL-B-NBUF-STATE-ON B-NBUF-MONOTONE-ON DUAL-EVAL-B-NOR-VALUE-ON DUAL-EVAL-B-NOR-STATE-ON B-NOR-MONOTONE-ON DUAL-EVAL-B-NOR3-VALUE-ON DUAL-EVAL-B-NOR3-STATE-ON B-NOR3-MONOTONE-ON DUAL-EVAL-B-NOR4-VALUE-ON DUAL-EVAL-B-NOR4-STATE-ON B-NOR4-MONOTONE-ON DUAL-EVAL-B-NOR5-VALUE-ON DUAL-EVAL-B-NOR5-STATE-ON B-NOR5-MONOTONE-ON DUAL-EVAL-B-NOR6-VALUE-ON DUAL-EVAL-B-NOR6-STATE-ON B-NOR6-MONOTONE-ON DUAL-EVAL-B-NOR8-VALUE-ON DUAL-EVAL-B-NOR8-STATE-ON B-NOR8-MONOTONE-ON DUAL-EVAL-B-NOT-VALUE-ON DUAL-EVAL-B-NOT-STATE-ON B-NOT-MONOTONE-ON DUAL-EVAL-B-NOT-B4IP-VALUE-ON DUAL-EVAL-B-NOT-B4IP-STATE-ON B-NOT-B4IP-MONOTONE-ON DUAL-EVAL-B-NOT-IVAP-VALUE-ON DUAL-EVAL-B-NOT-IVAP-STATE-ON B-NOT-IVAP-MONOTONE-ON DUAL-EVAL-B-OR-VALUE-ON DUAL-EVAL-B-OR-STATE-ON B-OR-MONOTONE-ON DUAL-EVAL-B-OR3-VALUE-ON DUAL-EVAL-B-OR3-STATE-ON B-OR3-MONOTONE-ON DUAL-EVAL-B-OR4-VALUE-ON DUAL-EVAL-B-OR4-STATE-ON B-OR4-MONOTONE-ON DUAL-EVAL-B-XOR-VALUE-ON DUAL-EVAL-B-XOR-STATE-ON B-XOR-MONOTONE-ON DUAL-EVAL-B-XOR3-VALUE-ON DUAL-EVAL-B-XOR3-STATE-ON B-XOR3-MONOTONE-ON DUAL-EVAL-DEL2-VALUE-ON DUAL-EVAL-DEL2-STATE-ON DEL2-MONOTONE-ON DUAL-EVAL-DEL4-VALUE-ON DUAL-EVAL-DEL4-STATE-ON DEL4-MONOTONE-ON DUAL-EVAL-DEL10-VALUE-ON DUAL-EVAL-DEL10-STATE-ON DEL10-MONOTONE-ON DUAL-EVAL-PROCMON-VALUE-ON DUAL-EVAL-PROCMON-STATE-ON PROCMON-MONOTONE-ON DUAL-EVAL-FD1-VALUE-ON DUAL-EVAL-FD1-STATE-ON FD1-MONOTONE-ON DUAL-EVAL-FD1S-VALUE-ON DUAL-EVAL-FD1S-STATE-ON FD1S-MONOTONE-ON DUAL-EVAL-FD1SP-VALUE-ON DUAL-EVAL-FD1SP-STATE-ON FD1SP-MONOTONE-ON DUAL-EVAL-FD1SLP-VALUE-ON DUAL-EVAL-FD1SLP-STATE-ON FD1SLP-MONOTONE-ON DUAL-EVAL-ID-VALUE-ON DUAL-EVAL-ID-STATE-ON ID-MONOTONE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON RAM-ENABLE-CIRCUIT-MONOTONE-ON DUAL-EVAL-T-BUF-VALUE-ON DUAL-EVAL-T-BUF-STATE-ON T-BUF-MONOTONE-ON DUAL-EVAL-T-WIRE-VALUE-ON DUAL-EVAL-T-WIRE-STATE-ON T-WIRE-MONOTONE-ON DUAL-EVAL-PULLUP-VALUE-ON DUAL-EVAL-PULLUP-STATE-ON PULLUP-MONOTONE-ON DUAL-EVAL-TTL-BIDIRECT-VALUE-ON DUAL-EVAL-TTL-BIDIRECT-STATE-ON TTL-BIDIRECT-MONOTONE-ON DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON DUAL-EVAL-TTL-CLK-INPUT-STATE-ON TTL-CLK-INPUT-MONOTONE-ON DUAL-EVAL-TTL-INPUT-VALUE-ON DUAL-EVAL-TTL-INPUT-STATE-ON TTL-INPUT-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-VALUE-ON DUAL-EVAL-TTL-OUTPUT-STATE-ON TTL-OUTPUT-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON TTL-OUTPUT-PARAMETRIC-MONOTONE-ON DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON TTL-OUTPUT-FAST-MONOTONE-ON DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON TTL-TRI-OUTPUT-MONOTONE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON TTL-TRI-OUTPUT-FAST-MONOTONE-ON DUAL-EVAL-VDD-VALUE-ON DUAL-EVAL-VDD-STATE-ON VDD-MONOTONE-ON DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON DUAL-EVAL-VDD-PARAMETRIC-STATE-ON VDD-PARAMETRIC-MONOTONE-ON DUAL-EVAL-VSS-VALUE-ON DUAL-EVAL-VSS-STATE-ON VSS-MONOTONE-ON BVP-REV1-ON G*1*READ-MEM1-MONOTONE-INDUCTION-ON READ-MEM1-MONOTONE-INDUCTION-ON V-APPROX-X-X-ON1 G*1*DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-BODY-ON G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON WRITE-MEM1-MONOTONE-INDUCTION-ON G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON WRITE-MEM1-DOUBLE-INDUCTION-ON DUAL-PORT-RAM-STATE-MONOTONE-ON G*1*DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-BODY-ON G*1*OK-NETLISTP-ON OK-NETLISTP-ON PRIMP-MONOTONE-ON G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON DUAL-EVAL-MONOTONE-INDUCTION-ON V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON ALISTP-PAIRLIST-ON ALISTP-APPEND-ON ALISTP-DUAL-EVAL-1-ON V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON G*1*S-APPROX-LIST-ON S-APPROX-LIST-ON S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON V-APPROX-IMPLIES-V-APPROX-ALIST-ON ALISTP-OPENER-ON S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON V-APPROX-ALIST-APPEND-ON G*1*DOUBLE-CDR-INDUCTION-ON DOUBLE-CDR-INDUCTION-ON S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON ALISTP-DUAL-EVAL-3-ON S-APPROX-IMPLIES-S-APPROX-ALIST-ON S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON OK-NETLISTP-REDUCTION-ON OK-NETLISTP-REDUCTION-REWRITE-ON DUAL-EVAL-MONOTONE-NO-RAM-ON G*1*GOOD-S-ALIST-ON GOOD-S-ALIST-ON GOOD-S-ALIST-PAIRLIST-ON GOOD-S-VALUE-ON DUAL-EVAL-MONOTONE-ON GOOD-S-COLLECT-VALUE-ON F-BUF-PRESERVES-GOOD-S-ON F-IF-PRESERVES-GOOD-S-ON GOOD-S-0-ON AO2-PRESERVES-GOOD-S-ON AO4-PRESERVES-GOOD-S-ON AO6-PRESERVES-GOOD-S-ON AO7-PRESERVES-GOOD-S-ON B-AND-PRESERVES-GOOD-S-ON B-AND3-PRESERVES-GOOD-S-ON B-AND4-PRESERVES-GOOD-S-ON B-EQUV-PRESERVES-GOOD-S-ON B-EQUV3-PRESERVES-GOOD-S-ON B-IF-PRESERVES-GOOD-S-ON B-NAND-PRESERVES-GOOD-S-ON B-NAND3-PRESERVES-GOOD-S-ON B-NAND4-PRESERVES-GOOD-S-ON B-NAND5-PRESERVES-GOOD-S-ON B-NAND6-PRESERVES-GOOD-S-ON B-NAND8-PRESERVES-GOOD-S-ON B-NBUF-PRESERVES-GOOD-S-ON B-NOR-PRESERVES-GOOD-S-ON B-NOR3-PRESERVES-GOOD-S-ON B-NOR4-PRESERVES-GOOD-S-ON B-NOR5-PRESERVES-GOOD-S-ON B-NOR6-PRESERVES-GOOD-S-ON B-NOR8-PRESERVES-GOOD-S-ON B-NOT-PRESERVES-GOOD-S-ON B-NOT-B4IP-PRESERVES-GOOD-S-ON B-NOT-IVAP-PRESERVES-GOOD-S-ON B-OR-PRESERVES-GOOD-S-ON B-OR3-PRESERVES-GOOD-S-ON B-OR4-PRESERVES-GOOD-S-ON B-XOR-PRESERVES-GOOD-S-ON B-XOR3-PRESERVES-GOOD-S-ON DEL2-PRESERVES-GOOD-S-ON DEL4-PRESERVES-GOOD-S-ON DEL10-PRESERVES-GOOD-S-ON PROCMON-PRESERVES-GOOD-S-ON FD1-PRESERVES-GOOD-S-ON FD1S-PRESERVES-GOOD-S-ON FD1SP-PRESERVES-GOOD-S-ON FD1SLP-PRESERVES-GOOD-S-ON ID-PRESERVES-GOOD-S-ON RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON T-BUF-PRESERVES-GOOD-S-ON T-WIRE-PRESERVES-GOOD-S-ON PULLUP-PRESERVES-GOOD-S-ON TTL-BIDIRECT-PRESERVES-GOOD-S-ON TTL-CLK-INPUT-PRESERVES-GOOD-S-ON TTL-INPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON VDD-PRESERVES-GOOD-S-ON VDD-PARAMETRIC-PRESERVES-GOOD-S-ON VSS-PRESERVES-GOOD-S-ON GOOD-S-CONSTANT-RAM-ON GOOD-S-WRITE-MEM-1-ON GOOD-S-WRITE-MEM-ON DP-RAM-16X32-PRESERVES-GOOD-S-ON PRIMP-PRESERVES-GOOD-S-ON GOOD-S-PRESERVED-ON G*1*V-APPROX-LIST-ON V-APPROX-LIST-ON G*1*V-S-APPROX-LIST-ON V-S-APPROX-LIST-ON G*1*NAT-LST-LST-INDUCTION-ON NAT-LST-LST-INDUCTION-ON V-APPROX-CAR-NTH-ON S-APPROX-CADR-NTH-ON G*1*SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-ON V-APPROX-LIST-X-X-ON G*1*DOUBLET-P-ON G*1*DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-ON DOUBLET-P-EQUAL-APPROX-ON LENGTH-SIMULATE-ON XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON XS-SUFFICE-FOR-RESET-LEMMA-ON G*1*COMPILE-UNCOMPILED-DEFNS-ON COMPILE-UNCOMPILED-DEFNS-ON2 G*1*UNKNOWN-REGFILE-ON UNKNOWN-REGFILE-ON G*1*UNKNOWN-MACHINE-STATE-ON UNKNOWN-MACHINE-STATE-ON G*1*UNKNOWN-MEMORY-STATE-ON UNKNOWN-MEMORY-STATE-ON G*1*UNKNOWN-STATE-ON UNKNOWN-STATE-ON CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON G*1*RESET-VECTOR-ON RESET-VECTOR-ON G*1*RUN-VECTOR-ON RUN-VECTOR-ON G*1*RESET-SEQUENCE-ON RESET-SEQUENCE-ON CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON G*1*INITIALIZED-REGFILE-ON INITIALIZED-REGFILE-ON G*1*INITIALIZED-MACHINE-STATE-ON INITIALIZED-MACHINE-STATE-ON G*1*INITIALIZED-MEMORY-STATE-ON INITIALIZED-MEMORY-STATE-ON G*1*FINAL-STATE-ON FINAL-STATE-ON RESET-WORKS-ON UNKNOWN-STATE-OKP-ON FINAL-STATE-OKP-ON INSTANCE-THEOREM-ON FM9001-STATEP-MAP-UP-FINAL-STATE-ON G*1*RESET-VECTOR-CHIP-ON RESET-VECTOR-CHIP-ON G*1*RUN-VECTOR-CHIP-1-ON RUN-VECTOR-CHIP-1-ON G*1*RUN-VECTOR-CHIP-2-ON RUN-VECTOR-CHIP-2-ON G*1*RESET-SEQUENCE-CHIP-1-ON RESET-SEQUENCE-CHIP-1-ON G*1*RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-1-VS-2-ON SIMULATE-RESET-CHIP-FINAL-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON G*1*V-FOURP-ON V-FOURP-ON G*1*ALL-XS-ON ALL-XS-ON ALL-XS-APPROXIMATES-ON ALL-XS-MAKE-LIST-ON G*1*MEMORY-V-FOURP-ON MEMORY-V-FOURP-ON G*1*NEW-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT-ON S-APPROX-MAKE-LIST-ON V-FOURP-IMPLIES-PROPERP-ON LISTP-IMPLIES-NOT-FOURP-ON RAMP-IMPLIES-NOT-FOURP-ON ROMP-IMPLIES-NOT-FOURP-ON STUBP-IMPLIES-NOT-FOURP-ON B-APPROX-X-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON GOOD-S-OPENER-ON MEMORY-V-FOURP-IMPLIES-GOOD-S-ON V-FOURP-IS-GOOD-S-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON CADR-MAP-UP-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON LENGTH-RESET-SEQUENCE-CHIP-1-ON RESET-CHIP-ON RESET-CHIP-FROM-ANY-STATE-ON CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON CHIP-WELL-FORMED-ON CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON CHIP-WELL-FORMED-SIMPLE-ON FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 MAP-DOWN-INVERTS-MAP-UP-OFF1 G*1*B-TO-NAT-OFF B-TO-NAT-OFF BVP-CDR-OFF G*1*V-ALU-NAT-INT-BUF-OFF V-ALU-NAT-INT-BUF-OFF NTH-LENGTH-V-OFF REMAINDER-PLUS-MULTIPLE-OFF DIVIDES-PLUS-PLUS-OFF REMAINDER-ADD1-PLUS-MULTIPLE-OFF V-TO-NAT-FIRSTN-OFF V-TO-NAT-OF-NAT-TO-V-HACK-OFF V-TO-NAT-OF-NAT-TO-V-OFF REMAINDER-PLUS-X-X-2-OFF QUOTIENT-PLUS-X-X-2-OFF NAT-TO-V-PLUS-X-X-OFF FIRSTN-ADD1-CONS-OFF FIRSTN-ZEROP-OFF FIRSTN-NLISTP-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF FIRSTN-LENGTH-OFF NAT-TO-V-OF-V-TO-NAT-OFF NAT-TO-V-ZEROP-OFF EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF NAT-TO-V-REMAINDER-OFF EQUAL-NAT-TO-V-INVERTER-OFF V-TO-NAT-V-NOT-LEMMA-OFF V-TO-NAT-V-NOT-OFF LESSP-V-TO-NAT-EXP-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF LESSP-V-TO-NAT-EXP-REWRITE-OFF NOT-LESSP-QUOTIENT-OFF V-TO-NAT-APPEND-OFF G*1*V-ALU-NAT-ADDER-OUTPUT-OFF V-ALU-NAT-ADDER-OUTPUT-OFF G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF V-ALU-NAT-ADDER-CARRY-OUT-OFF G*1*V-ALU-NAT-ADDER-OFF V-ALU-NAT-ADDER-OFF G*1*V-ALU-NAT-INC-OFF V-ALU-NAT-INC-OFF G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-NAT-SUBTRACTER-OUTPUT-OFF G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF G*1*V-ALU-NAT-SUBTRACTER-OFF V-ALU-NAT-SUBTRACTER-OFF G*1*V-ALU-NAT-DEC-OFF V-ALU-NAT-DEC-OFF G*1*V-ALU-NAT-LSR-OUTPUT-OFF V-ALU-NAT-LSR-OUTPUT-OFF G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF V-ALU-NAT-LSR-CARRY-OUT-OFF G*1*V-ALU-NAT-LSR-OFF V-ALU-NAT-LSR-OFF G*1*V-ALU-NAT-NOT-OUTPUT-OFF V-ALU-NAT-NOT-OUTPUT-OFF G*1*V-ALU-NAT-NOT-OFF V-ALU-NAT-NOT-OFF G*1*V-ALU-NAT-OFF V-ALU-NAT-OFF V-ALU-CORRECT-NAT-OFF G*1*INT-TO-V-OFF INT-TO-V-OFF G*1*V-TO-INT-OFF V-TO-INT-OFF G*1*INTEGER-IN-RANGEP-OFF INTEGER-IN-RANGEP-OFF IPLUS-PLUS-OFF ILESSP-LESSP-OFF TIMES-2-OFF B-TO-NAT-LEQ-OFF LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF FIX-INT-NUMBERP-OFF IPLUS3-PLUS-DIFFERENCE-OFF V-TO-INT-V-NOT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF IDIFFERENCE-DIFFERENCE-OFF IDIV-QUOTIENT-OFF IDIV-ILESSP-0-OFF IPLUS-DIV-HACK1-OFF LESSP-QUOTIENT-2-OFF G*1*V-ALU-INT-ADDER-OUTPUT-OFF V-ALU-INT-ADDER-OUTPUT-OFF G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF V-ALU-INT-ADDER-OVERFLOWP-OFF G*1*V-ALU-INT-ADDER-OFF V-ALU-INT-ADDER-OFF G*1*V-ALU-INT-INC-OFF V-ALU-INT-INC-OFF G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF V-ALU-INT-SUBTRACTER-OUTPUT-OFF G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF G*1*V-ALU-INT-SUBTRACTER-OFF V-ALU-INT-SUBTRACTER-OFF G*1*V-ALU-INT-DEC-OFF V-ALU-INT-DEC-OFF G*1*V-ALU-INT-ASR-OUTPUT-OFF V-ALU-INT-ASR-OUTPUT-OFF G*1*V-ALU-INT-ASR-OFF V-ALU-INT-ASR-OFF G*1*V-ALU-INT-NEG-OFF V-ALU-INT-NEG-OFF G*1*V-ALU-INT-NOT-OUTPUT-OFF V-ALU-INT-NOT-OUTPUT-OFF G*1*V-ALU-INT-NOT-OFF V-ALU-INT-NOT-OFF V-ALU-CORRECT-INT-NOT-OUTPUT-OFF G*1*V-ALU-INT-OFF V-ALU-INT-OFF V-ALU-CORRECT-INT-OFF V-ALU-CORRECT-INT-NOT-OFF V-ALU-CORRECT-INT-NEG-OFF V-ALU-CORRECT-INT-ASR-OFF V-ALU-CORRECT-INT-ASR-OUTPUT-OFF V-ALU-CORRECT-INT-DEC-OFF V-ALU-CORRECT-INT-SUBTRACTER-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-CORRECT-INT-INC-OFF V-ALU-CORRECT-INT-ADDER-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF V-ALU-CORRECT-NAT-NOT-OFF V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-NAT-LSR-OFF V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF V-ALU-CORRECT-NAT-DEC-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-INC-OFF V-ALU-CORRECT-NAT-ADDER-OFF V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-INT-BUF-OFF V-ALU-CORRECT-INT *1*V-ALU-INT V-ALU-INT V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT *1*V-ALU-INT-NOT V-ALU-INT-NOT *1*V-ALU-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG *1*V-ALU-INT-NEG V-ALU-INT-NEG V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT *1*V-ALU-INT-ASR V-ALU-INT-ASR *1*V-ALU-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC *1*V-ALU-INT-DEC V-ALU-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP *1*V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER *1*V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OVERFLOWP *1*V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-INC *1*V-ALU-INT-INC V-ALU-INT-INC V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP *1*V-ALU-INT-ADDER V-ALU-INT-ADDER *1*V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP *1*V-ALU-INT-ADDER-OUTPUT V-ALU-INT-ADDER-OUTPUT LESSP-QUOTIENT-2 PLUS-QUOTIENT-2-OFF PLUS-QUOTIENT-2-LEMMA-OFF QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF IPLUS-DIV-HACK1 PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-LEMMA QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG IDIV-ILESSP-0 IDIV-QUOTIENT IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE FIX-INT-NUMBERP LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED B-TO-NAT-LEQ TIMES-2 ILESSP-LESSP IPLUS-PLUS *1*INTEGER-IN-RANGEP INTEGER-IN-RANGEP *1*V-TO-INT V-TO-INT *1*INT-TO-V INT-TO-V V-ALU-CORRECT-NAT *1*V-ALU-NAT V-ALU-NAT V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT *1*V-ALU-NAT-NOT V-ALU-NAT-NOT *1*V-ALU-NAT-NOT-OUTPUT V-ALU-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT *1*V-ALU-NAT-LSR V-ALU-NAT-LSR *1*V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-CARRY-OUT *1*V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-DEC *1*V-ALU-NAT-DEC V-ALU-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT *1*V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-CARRY-OUT *1*V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-INC *1*V-ALU-NAT-INC V-ALU-NAT-INC V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT *1*V-ALU-NAT-ADDER V-ALU-NAT-ADDER *1*V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-CARRY-OUT *1*V-ALU-NAT-ADDER-OUTPUT V-ALU-NAT-ADDER-OUTPUT V-TO-NAT-APPEND NOT-LESSP-QUOTIENT LESSP-V-TO-NAT-EXP-REWRITE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA EQUAL-IFF-OFF EQUAL-IFF LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2-OFF EQUAL-NAT-TO-V-INVERTER-HACK1-OFF EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 NAT-TO-V-REMAINDER EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 NAT-TO-V-ZEROP NAT-TO-V-OF-V-TO-NAT FIRSTN-LENGTH NAT-TO-V-OF-V-TO-NAT-GENERAL FIRSTN-NLISTP FIRSTN-ZEROP FIRSTN-ADD1-CONS NAT-TO-V-PLUS-X-X QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2-OFF V-TO-NAT-FIRSTN-HACK1-OFF V-TO-NAT-FIRSTN V-TO-NAT-FIRSTN-HACK2 REMAINDER-ADD1-PLUS-MULTIPLE V-TO-NAT-FIRSTN-HACK1 DIVIDES-PLUS-PLUS REMAINDER-PLUS-MULTIPLE NTH-LENGTH-V V-ALU-CORRECT-NAT-INT-BUF *1*V-ALU-NAT-INT-BUF V-ALU-NAT-INT-BUF CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-OFF1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-IPLUS-OFF1 CORRECTNESS-OF-CANCEL-INEG-OFF1 INTEGER-METAS BVP-CDR V-ADDER-CARRY-OUT=V-CARRY-OFF V-ADDER-OUTPUT=V-SUM-OFF *1*B-TO-NAT B-TO-NAT G*1*DELETE-ON DELETE-ON G*1*BAGDIFF-ON BAGDIFF-ON G*1*BAGINT-ON BAGINT-ON G*1*OCCURRENCES-ON OCCURRENCES-ON G*1*SUBBAGP-ON SUBBAGP-ON DELETE-NON-MEMBER-ON DELETE-DELETE-ON EQUAL-OCCURRENCES-ZERO-ON MEMBER-NON-LIST-ON MEMBER-DELETE-ON MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON OCCURRENCES-DELETE-ON MEMBER-BAGDIFF-ON BAGDIFF-DELETE-ON SUBBAGP-DELETE-ON SUBBAGP-CDR1-ON SUBBAGP-CDR2-ON SUBBAGP-BAGINT1-ON SUBBAGP-BAGINT2-ON OCCURRENCES-BAGINT-ON OCCURRENCES-BAGDIFF-ON MEMBER-BAGINT-ON EQUAL-PLUS-0-ON EQUAL-DIFFERENCE-0-ON COMMUTATIVITY-OF-PLUS-ON COMMUTATIVITY2-OF-PLUS-ON PLUS-ZERO-ARG2-ON PLUS-ADD1-ARG1-ON PLUS-ADD1-ARG2-ON ASSOCIATIVITY-OF-PLUS-ON PLUS-DIFFERENCE-ARG1-ON PLUS-DIFFERENCE-ARG2-ON DIFFERENCE-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON DIFF-DIFF-ARG1-ON DIFF-DIFF-ARG2-ON G*1*PLUS-FRINGE-ON PLUS-FRINGE-ON G*1*PLUS-TREE-ON PLUS-TREE-ON EVAL$-QUOTE-ON1 G*1*CANCEL-EQUAL-PLUS-ON CANCEL-EQUAL-PLUS-ON CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON G*1*CANCEL-DIFFERENCE-PLUS-ON CANCEL-DIFFERENCE-PLUS-ON CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON DIFFERENCE-ELIM-ON DIFFERENCE-LEQ-ARG1-ON DIFFERENCE-ADD1-ARG2-ON DIFFERENCE-SUB1-ARG2-ON DIFFERENCE-DIFFERENCE-ARG1-ON DIFFERENCE-DIFFERENCE-ARG2-ON DIFFERENCE-X-X-ON G*1*CANCEL-LESSP-PLUS-ON CANCEL-LESSP-PLUS-ON CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON EQUAL-TIMES-0-ON EQUAL-TIMES-1-ON EQUAL-SUB1-0-ON TIMES-ZERO-ON TIMES-ADD1-ON COMMUTATIVITY-OF-TIMES-ON TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON TIMES-DISTRIBUTES-OVER-PLUS-ON COMMUTATIVITY2-OF-TIMES-ON ASSOCIATIVITY-OF-TIMES-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON TIMES-QUOTIENT-PROOF-ON TIMES-QUOTIENT-ON TIMES-1-ARG1-ON LESSP-TIMES1-PROOF-ON LESSP-TIMES1-ON LESSP-TIMES2-PROOF-ON LESSP-TIMES2-ON LESSP-TIMES3-PROOF1-ON LESSP-TIMES3-PROOF2-ON LESSP-TIMES3-ON LESSP-TIMES-CANCELLATION-PROOF-ON LESSP-PLUS-TIMES-PROOF-ON LESSP-PLUS-TIMES1-ON LESSP-PLUS-TIMES2-ON LESSP-1-TIMES-ON G*1*TIMES-TREE-ON TIMES-TREE-ON G*1*TIMES-FRINGE-ON TIMES-FRINGE-ON G*1*OR-ZEROP-TREE-ON OR-ZEROP-TREE-ON G*1*AND-NOT-ZEROP-TREE-ON AND-NOT-ZEROP-TREE-ON EVAL$-EQUAL-ON1 LESSP-TIMES-ARG1-ON INFER-EQUALITY-FROM-NOT-LESSP-ON G*1*CANCEL-LESSP-TIMES-ON CANCEL-LESSP-TIMES-ON CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON G*1*CANCEL-EQUAL-TIMES-ON CANCEL-EQUAL-TIMES-ON CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON LESSP-REMAINDER-ON REMAINDER-NOOP-ON REMAINDER-OF-NON-NUMBER-ON REMAINDER-ZERO-ON REMAINDER-QUOTIENT-ELIM-ON REMAINDER-ADD1-ON REMAINDER-PLUS-PROOF-ON REMAINDER-PLUS-ON EQUAL-REMAINDER-PLUS-0-PROOF-ON EQUAL-REMAINDER-PLUS-0-ON EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON REMAINDER-TIMES1-PROOF-ON REMAINDER-TIMES1-ON REMAINDER-TIMES1-INSTANCE-PROOF-ON REMAINDER-TIMES1-INSTANCE-ON REMAINDER-TIMES-TIMES-PROOF-ON REMAINDER-TIMES2-PROOF-ON REMAINDER-TIMES2-ON REMAINDER-TIMES2-INSTANCE-ON REMAINDER-DIFFERENCE1-ON G*1*DOUBLE-REMAINDER-INDUCTION-ON DOUBLE-REMAINDER-INDUCTION-ON REMAINDER-DIFFERENCE2-ON REMAINDER-PLUS-FACT-ON REMAINDER-PLUS-TIMES-TIMES-PROOF-ON REMAINDER-PLUS-TIMES-TIMES-ON REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON REMAINDER-REMAINDER-ON REMAINDER-1-ARG1-ON REMAINDER-1-ARG2-ON REMAINDER-X-X-ON TRANSITIVITY-OF-DIVIDES-ON QUOTIENT-NOOP-ON QUOTIENT-OF-NON-NUMBER-ON QUOTIENT-ZERO-ON QUOTIENT-ADD1-ON EQUAL-QUOTIENT-0-ON QUOTIENT-SUB1-ON QUOTIENT-PLUS-PROOF-ON QUOTIENT-PLUS-ON QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON QUOTIENT-TIMES-PROOF-ON QUOTIENT-TIMES-ON QUOTIENT-TIMES-INSTANCE-ON QUOTIENT-TIMES-TIMES-PROOF-ON QUOTIENT-DIFFERENCE1-ON QUOTIENT-LESSP-ARG1-ON QUOTIENT-DIFFERENCE2-ON QUOTIENT-DIFFERENCE3-ON QUOTIENT-REMAINDER-TIMES-ON QUOTIENT-REMAINDER-ON QUOTIENT-REMAINDER-INSTANCE-ON QUOTIENT-PLUS-FACT-ON QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON QUOTIENT-PLUS-TIMES-TIMES-ON QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON QUOTIENT-QUOTIENT-ON LEQ-QUOTIENT-ON QUOTIENT-1-ARG2-ON QUOTIENT-1-ARG1-CASESPLIT-ON QUOTIENT-1-ARG1-ON QUOTIENT-X-X-ON LESSP-QUOTIENT-ON G*1*CANCEL-QUOTIENT-TIMES-ON CANCEL-QUOTIENT-TIMES-ON CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON G*1*EXP-ON EXP-ON G*1*LOG-ON LOG-ON G*1*GCD-ON GCD-ON REMAINDER-EXP-ON G*1*DOUBLE-NUMBER-INDUCTION-ON DOUBLE-NUMBER-INDUCTION-ON REMAINDER-EXP-EXP-ON QUOTIENT-EXP-ON EXP-ZERO-ON EXP-ADD1-ON EXP-PLUS-ON EXP-0-ARG1-ON EXP-1-ARG1-ON EXP-0-ARG2-ON EXP-TIMES-ON EXP-EXP-ON EQUAL-EXP-0-ON EQUAL-EXP-1-ON EXP-DIFFERENCE-ON EQUAL-LOG-0-ON LOG-0-ON LOG-1-ON G*1*DOUBLE-LOG-INDUCTION-ON DOUBLE-LOG-INDUCTION-ON LEQ-LOG-LOG-ON LOG-QUOTIENT-ON LOG-QUOTIENT-TIMES-PROOF-ON LOG-QUOTIENT-TIMES-ON LOG-QUOTIENT-EXP-ON LOG-TIMES-PROOF-ON LOG-TIMES-ON LOG-TIMES-EXP-PROOF-ON LOG-TIMES-EXP-ON LOG-EXP-ON COMMUTATIVITY-OF-GCD-ON G*1*SINGLE-NUMBER-INDUCTION-ON SINGLE-NUMBER-INDUCTION-ON GCD-0-ON GCD-1-ON EQUAL-GCD-0-ON LESSP-GCD-ON GCD-PLUS-INSTANCE-TEMP-PROOF-ON GCD-PLUS-INSTANCE-TEMP-ON GCD-PLUS-PROOF-ON GCD-PLUS-ON GCD-PLUS-INSTANCE-ON REMAINDER-GCD-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON GCD-IS-THE-GREATEST-ON COMMON-DIVISOR-DIVIDES-GCD-ON ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON ASSOCIATIVITY-OF-GCD-ON COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON COMMUTATIVITY2-OF-GCD-ON GCD-X-X-ON GCD-IDEMPOTENCE-ON G*1*INTEGERP-ON G*1*FIX-INT-ON G*1*IZEROP-ON IZEROP-ON G*1*ILESSP-ON G*1*ILEQ-ON ILEQ-ON G*1*IPLUS-ON G*1*INEG-ON G*1*IDIFFERENCE-ON IDIFFERENCE-ON G*1*IABS-ON G*1*ITIMES-ON G*1*IQUOTIENT-ON G*1*IREMAINDER-ON G*1*IDIV-ON G*1*IMOD-ON G*1*IQUO-ON G*1*IREM-ON INTEGERP-FIX-INT-ON INTEGERP-IPLUS-ON INTEGERP-IDIFFERENCE-ON INTEGERP-INEG-ON INTEGERP-IABS-ON INTEGERP-ITIMES-ON FIX-INT-REMOVER-ON FIX-INT-FIX-INT-ON FIX-INT-IPLUS-ON FIX-INT-IDIFFERENCE-ON FIX-INT-INEG-ON FIX-INT-IABS-ON FIX-INT-ITIMES-ON INEG-IPLUS-ON INEG-INEG-ON INEG-FIX-INT-ON INEG-0-ON IPLUS-0-LEFT-ON IPLUS-0-RIGHT-ON COMMUTATIVITY2-OF-IPLUS-ON COMMUTATIVITY-OF-IPLUS-ON ASSOCIATIVITY-OF-IPLUS-ON IPLUS-CANCELLATION-1-ON IPLUS-CANCELLATION-2-ON IPLUS-INEG1-ON IPLUS-INEG2-ON IPLUS-FIX-INT1-ON IPLUS-FIX-INT2-ON IDIFFERENCE-FIX-INT1-ON IDIFFERENCE-FIX-INT2-ON G*1*CANCEL-INEG-AUX-ON CANCEL-INEG-AUX-ON G*1*CANCEL-INEG-ON CANCEL-INEG-ON EVAL$-LIST-CONS-ON EVAL$-LIST-NLISTP-ON EVAL$-LITATOM-ON EVAL$-OTHER-ON G*1*EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON IPLUS-INEG3-ON IPLUS-INEG4-ON IPLUS-X-Y-INEG-X-ON CORRECTNESS-OF-CANCEL-INEG-ON G*1*IPLUS-FRINGE-ON IPLUS-FRINGE-ON G*1*IPLUS-TREE-REC-ON IPLUS-TREE-REC-ON G*1*IPLUS-TREE-ON G*1*IPLUS-LIST-ON IPLUS-LIST-ON INTEGERP-IPLUS-LIST-ON EVAL$-LIST-APPEND-ON G*1*CANCEL-IPLUS-ON EVAL$-IPLUS-LIST-DELETE-ON IPLUS-LIST-APPEND-ON IPLUS-INEG7-ON CORRECTNESS-OF-CANCEL-IPLUS-ON ILESSP-FIX-INT-1-ON ILESSP-FIX-INT-2-ON G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON G*1*CANCEL-IPLUS-ILESSP-1-ON CANCEL-IPLUS-ILESSP-1-ON IPLUS-CANCELLATION-1-FOR-ILESSP-ON IPLUS-CANCELLATION-2-FOR-ILESSP-ON G*1*IPLUS-TREE-NO-FIX-INT-ON G*1*CANCEL-IPLUS-ILESSP-ON CANCEL-IPLUS-ILESSP-ON CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON ITIMES-0-LEFT-ON ITIMES-0-RIGHT-ON ITIMES-FIX-INT1-ON ITIMES-FIX-INT2-ON COMMUTATIVITY-OF-ITIMES-ON ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON ITIMES-DISTRIBUTES-OVER-IPLUS-ON COMMUTATIVITY2-OF-ITIMES-ON ASSOCIATIVITY-OF-ITIMES-ON EQUAL-ITIMES-0-ON EQUAL-ITIMES-1-ON EQUAL-ITIMES-MINUS-1-ON ITIMES-1-ARG1-ON QUOTIENT-REMAINDER-UNIQUENESS-ON DIVISION-THEOREM-PART1-ON DIVISION-THEOREM-PART2-ON DIVISION-THEOREM-PART3-ON DIVISION-THEOREM-ON IQUOTIENT-IREMAINDER-UNIQUENESS-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON IDIV-IMOD-UNIQUENESS-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON IQUO-IREM-UNIQUENESS-ON ITIMES-INEG-1-ON ITIMES-INEG-2-ON ITIMES-CANCELLATION-1-ON ITIMES-CANCELLATION-2-ON ITIMES-CANCELLATION-3-ON INTEGERP-IQUOTIENT-ON INTEGERP-IREMAINDER-ON INTEGERP-IDIV-ON INTEGERP-IMOD-ON INTEGERP-IQUO-ON INTEGERP-IREM-ON IQUOTIENT-FIX-INT1-ON IQUOTIENT-FIX-INT2-ON IREMAINDER-FIX-INT1-ON IREMAINDER-FIX-INT2-ON IDIV-FIX-INT1-ON IDIV-FIX-INT2-ON IMOD-FIX-INT1-ON IMOD-FIX-INT2-ON IQUO-FIX-INT1-ON IQUO-FIX-INT2-ON IREM-FIX-INT1-ON IREM-FIX-INT2-ON FIX-INT-IQUOTIENT-ON FIX-INT-IREMAINDER-ON FIX-INT-IDIV-ON FIX-INT-IMOD-ON FIX-INT-IQUO-ON FIX-INT-IREM-ON G*1*ITIMES-FRINGE-ON ITIMES-FRINGE-ON G*1*ITIMES-TREE-REC-ON ITIMES-TREE-REC-ON G*1*ITIMES-TREE-ON G*1*ITIMES-LIST-ON ITIMES-LIST-ON INTEGERP-ITIMES-LIST-ON G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON G*1*CANCEL-ITIMES-ON CANCEL-ITIMES-ON ITIMES-LIST-APPEND-ON MEMBER-APPEND-ON EQUAL-FIX-INT-ON G*1*SUBSETP-ON SUBSETP-ON G*1*ITIMES-TREE-NO-FIX-INT-ON G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON G*1*CANCEL-ITIMES-ILESSP-ON CANCEL-ITIMES-ILESSP-ON ILESSP-ITIMES-RIGHT-POSITIVE-ON ILESSP-ITIMES-RIGHT-NEGATIVE-ON ILESSP-STRICT-ON G*1*ITIMES-TREE-INEG-ON G*1*ITIMES-FACTORS-ON ITIMES-FACTORS-ON ITIMES--1-ON EQUAL-INEG-INEG-ON ILESSP-INEG-INEG-ON FIX-INT-EVAL$-ITIMES-TREE-REC-ON EVAL$-ITIMES-TREE-INEG-ON INEG-EVAL$-ITIMES-TREE-INEG-ON IPLUS-EVAL$-ITIMES-TREE-INEG-ON ITIMES-EVAL$-ITIMES-TREE-INEG-ON G*1*IPLUS-OR-ITIMES-TERM-ON G*1*CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS-ON G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON MEMBER-0-EVAL$-LIST-ON CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON CANCEL-ITIMES-ILESSP-FACTORS-ON BAGINT-SINGLETON-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON EQUAL-FIX-INT-TO-ILESSP-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON G*1*DISJOIN-EQUALITIES-WITH-0-ON DISJOIN-EQUALITIES-WITH-0-ON G*1*CANCEL-FACTORS-0-ON CANCEL-FACTORS-0-ON G*1*SOME-EVAL$S-TO-0-ON SOME-EVAL$S-TO-0-ON EVAL$-DISJOIN-EQUALITIES-WITH-0-ON SOME-EVAL$S-TO-0-APPEND-ON SOME-EVAL$S-TO-0-ELIMINATOR-ON CORRECTNESS-OF-CANCEL-FACTORS-0-ON G*1*CONJOIN-INEQUALITIES-WITH-0-ON CONJOIN-INEQUALITIES-WITH-0-ON G*1*CANCEL-FACTORS-ILESSP-0-ON CANCEL-FACTORS-ILESSP-0-ON CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON G*1*SPLIT-OUT-INEG-TERMS-ON SPLIT-OUT-INEG-TERMS-ON G*1*REMOVE-INEGS-ON G*1*IPLUS-OR-INEG-TERM-ON G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON MAKE-CANCEL-INEG-TERMS-EQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON CANCEL-INEG-TERMS-FROM-EQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON IPLUS-CONSTANTS-ON CANCEL-CONSTANTS-EQUAL-LEMMA-ON CANCEL-CONSTANTS-EQUAL-ON ILESSP-ADD1-ON ILESSP-ADD1-IPLUS-ON CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON CANCEL-CONSTANTS-ILESSP-ON B-APPROX-ON1 B-KNOWNP-ON1 MAP-DOWN-INVERTS-MAP-UP-ON FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON DOUBLET-P-ON OPEN-NTH-OFF1 DP-RAM-16X32-MONOTONE-ON DP-RAM-16X32-MONOTONE-STATE-ON DUAL-APPLY-STATE-DP-RAM-16X32-ON DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON MEM-WIDTH-LINEAR-FACTS-ON V-APPROX-PRESERVES-PROPERP-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON MEM-WIDTH-NON-ZERO-ON V-APPROX-SUBRANGE-ON V-APPROX-PRESERVES-LENGTH-ON S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON S-APPROX-CONSTANT-RAM-X-ID-ON S-APPROX-WRITE-MEM-ID-ON S-APPROX-WRITE-MEM1-ID-ON V-APPROX-LENGTH-ON WRITE-MEM-MONOTONE-ON WRITE-MEM1-MONOTONE-ON WRITE-MEM1-OPENER-ON V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON S-APPROX-OPENER-ON BVP-OFF2 DP-RAM-16X32-MONOTONE-VALUE-ON DUAL-APPLY-VALUE-DP-RAM-16X32-ON DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON EVAL$-APPEND-2-ON EVAL$-PAIRLIST-CONS-ON EVAL$-APPEND-ON DUAL-PORT-RAM-VALUE-MONOTONE-ON S-APPROX-IMPLIES-PROPERP-READ-MEM-ON S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON EQUAL-LENGTH-READ-MEM-ON EQUAL-LENGTH-READ-MEM1-ON READ-MEM-MONOTONE-ON V-APPROX-MAKE-LIST-X-ON V-APPROX-BVP-SUBRANGE-ON V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON G*1*B-KNOWNP-ON1 V-APPROX-IMPLIES-B-APPROX-NTH-ON BVP-IMPLIES-V-KNOWNP-ON READ-MEM1-MONOTONE-ON V-APPROX-BVP-ON BVP-REVERSE-ON F-PULLUP-ON FT-WIRE-ON FT-BUF-ON F-IF-ON F-EQUV3-ON F-EQUV-ON F-XOR3-ON F-XOR-ON F-NOR8-ON F-NOR6-ON F-NOR5-ON F-NOR4-ON F-NOR3-ON F-NOR-ON F-OR4-ON F-OR3-ON F-OR-ON F-NAND8-ON F-NAND6-ON F-NAND5-ON F-NAND4-ON F-NAND3-ON F-NAND-ON F-NOT-ON F-AND4-ON F-AND3-ON F-AND-ON F-BUF-ON MONOTONICITY-PROPERTY-OPENER-3-ON MONOTONICITY-PROPERTY-OPENER-2-ON MONOTONICITY-PROPERTY-OPENER-1-ON MONOTONICITY-PROPERTY-OPENER-0-ON MONOTONICITY-PROPERTY-ON B-KNOWNP-COMPOUND-RECOGNIZER-OFF G*1*B-APPROX-OFF G*1*V-APPROX-OFF V-APPROX-OFF1 G*1*V-KNOWNP-OFF V-KNOWNP-OFF1 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF G*1*MEM-WIDTH-OFF1 MEM-WIDTH-OFF1 G*1*S-APPROX-OFF S-APPROX-OFF1 S-APPROX-X-X-OFF G*1*GOOD-S-OFF GOOD-S-OFF G*1*S-KNOWNP-OFF S-KNOWNP-OFF1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 G*1*V-APPROX-ALIST-OFF V-APPROX-ALIST-OFF G*1*S-APPROX-ALIST-OFF S-APPROX-ALIST-OFF G*1*MONOTONICITY-PROPERTY-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF F-BUF-MONOTONE-OFF F-AND-MONOTONE-OFF F-AND3-MONOTONE-OFF F-AND4-MONOTONE-OFF F-NOT-MONOTONE-OFF F-NAND-MONOTONE-OFF F-NAND3-MONOTONE-OFF F-NAND4-MONOTONE-OFF F-NAND5-MONOTONE-OFF F-NAND6-MONOTONE-OFF F-NAND8-MONOTONE-OFF F-OR-MONOTONE-OFF F-OR3-MONOTONE-OFF F-OR4-MONOTONE-OFF F-NOR-MONOTONE-OFF F-NOR3-MONOTONE-OFF F-NOR4-MONOTONE-OFF F-NOR5-MONOTONE-OFF F-NOR6-MONOTONE-OFF F-NOR8-MONOTONE-OFF F-XOR-MONOTONE-OFF F-EQUV-MONOTONE-OFF F-XOR3-MONOTONE-OFF F-EQUV3-MONOTONE-OFF F-IF-MONOTONE-OFF FT-BUF-MONOTONE-OFF FT-WIRE-MONOTONE-OFF F-PULLUP-MONOTONE-OFF DUAL-EVAL-0-PRIMP-OFF DUAL-EVAL-2-PRIMP-OFF S-APPROX-IMPLIES-B-APPROX-OFF F-BUF-TYPE-SET-OFF FOURP-F-BUF-OFF FOURP-F-IF-OFF FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 DUAL-EVAL-AO2-VALUE-OFF DUAL-EVAL-AO2-STATE-OFF AO2-MONOTONE-OFF DUAL-EVAL-AO4-VALUE-OFF DUAL-EVAL-AO4-STATE-OFF AO4-MONOTONE-OFF DUAL-EVAL-AO6-VALUE-OFF DUAL-EVAL-AO6-STATE-OFF AO6-MONOTONE-OFF DUAL-EVAL-AO7-VALUE-OFF DUAL-EVAL-AO7-STATE-OFF AO7-MONOTONE-OFF DUAL-EVAL-B-AND-VALUE-OFF DUAL-EVAL-B-AND-STATE-OFF B-AND-MONOTONE-OFF DUAL-EVAL-B-AND3-VALUE-OFF DUAL-EVAL-B-AND3-STATE-OFF B-AND3-MONOTONE-OFF DUAL-EVAL-B-AND4-VALUE-OFF DUAL-EVAL-B-AND4-STATE-OFF B-AND4-MONOTONE-OFF DUAL-EVAL-B-EQUV-VALUE-OFF DUAL-EVAL-B-EQUV-STATE-OFF B-EQUV-MONOTONE-OFF DUAL-EVAL-B-EQUV3-VALUE-OFF DUAL-EVAL-B-EQUV3-STATE-OFF B-EQUV3-MONOTONE-OFF DUAL-EVAL-B-IF-VALUE-OFF DUAL-EVAL-B-IF-STATE-OFF B-IF-MONOTONE-OFF DUAL-EVAL-B-NAND-VALUE-OFF DUAL-EVAL-B-NAND-STATE-OFF B-NAND-MONOTONE-OFF DUAL-EVAL-B-NAND3-VALUE-OFF DUAL-EVAL-B-NAND3-STATE-OFF B-NAND3-MONOTONE-OFF DUAL-EVAL-B-NAND4-VALUE-OFF DUAL-EVAL-B-NAND4-STATE-OFF B-NAND4-MONOTONE-OFF DUAL-EVAL-B-NAND5-VALUE-OFF DUAL-EVAL-B-NAND5-STATE-OFF B-NAND5-MONOTONE-OFF DUAL-EVAL-B-NAND6-VALUE-OFF DUAL-EVAL-B-NAND6-STATE-OFF B-NAND6-MONOTONE-OFF DUAL-EVAL-B-NAND8-VALUE-OFF DUAL-EVAL-B-NAND8-STATE-OFF B-NAND8-MONOTONE-OFF DUAL-EVAL-B-NBUF-VALUE-OFF DUAL-EVAL-B-NBUF-STATE-OFF B-NBUF-MONOTONE-OFF DUAL-EVAL-B-NOR-VALUE-OFF DUAL-EVAL-B-NOR-STATE-OFF B-NOR-MONOTONE-OFF DUAL-EVAL-B-NOR3-VALUE-OFF DUAL-EVAL-B-NOR3-STATE-OFF B-NOR3-MONOTONE-OFF DUAL-EVAL-B-NOR4-VALUE-OFF DUAL-EVAL-B-NOR4-STATE-OFF B-NOR4-MONOTONE-OFF DUAL-EVAL-B-NOR5-VALUE-OFF DUAL-EVAL-B-NOR5-STATE-OFF B-NOR5-MONOTONE-OFF DUAL-EVAL-B-NOR6-VALUE-OFF DUAL-EVAL-B-NOR6-STATE-OFF B-NOR6-MONOTONE-OFF DUAL-EVAL-B-NOR8-VALUE-OFF DUAL-EVAL-B-NOR8-STATE-OFF B-NOR8-MONOTONE-OFF DUAL-EVAL-B-NOT-VALUE-OFF DUAL-EVAL-B-NOT-STATE-OFF B-NOT-MONOTONE-OFF DUAL-EVAL-B-NOT-B4IP-VALUE-OFF DUAL-EVAL-B-NOT-B4IP-STATE-OFF B-NOT-B4IP-MONOTONE-OFF DUAL-EVAL-B-NOT-IVAP-VALUE-OFF DUAL-EVAL-B-NOT-IVAP-STATE-OFF B-NOT-IVAP-MONOTONE-OFF DUAL-EVAL-B-OR-VALUE-OFF DUAL-EVAL-B-OR-STATE-OFF B-OR-MONOTONE-OFF DUAL-EVAL-B-OR3-VALUE-OFF DUAL-EVAL-B-OR3-STATE-OFF B-OR3-MONOTONE-OFF DUAL-EVAL-B-OR4-VALUE-OFF DUAL-EVAL-B-OR4-STATE-OFF B-OR4-MONOTONE-OFF DUAL-EVAL-B-XOR-VALUE-OFF DUAL-EVAL-B-XOR-STATE-OFF B-XOR-MONOTONE-OFF DUAL-EVAL-B-XOR3-VALUE-OFF DUAL-EVAL-B-XOR3-STATE-OFF B-XOR3-MONOTONE-OFF DUAL-EVAL-DEL2-VALUE-OFF DUAL-EVAL-DEL2-STATE-OFF DEL2-MONOTONE-OFF DUAL-EVAL-DEL4-VALUE-OFF DUAL-EVAL-DEL4-STATE-OFF DEL4-MONOTONE-OFF DUAL-EVAL-DEL10-VALUE-OFF DUAL-EVAL-DEL10-STATE-OFF DEL10-MONOTONE-OFF DUAL-EVAL-PROCMON-VALUE-OFF DUAL-EVAL-PROCMON-STATE-OFF PROCMON-MONOTONE-OFF DUAL-EVAL-FD1-VALUE-OFF DUAL-EVAL-FD1-STATE-OFF FD1-MONOTONE-OFF DUAL-EVAL-FD1S-VALUE-OFF DUAL-EVAL-FD1S-STATE-OFF FD1S-MONOTONE-OFF DUAL-EVAL-FD1SP-VALUE-OFF DUAL-EVAL-FD1SP-STATE-OFF FD1SP-MONOTONE-OFF DUAL-EVAL-FD1SLP-VALUE-OFF DUAL-EVAL-FD1SLP-STATE-OFF FD1SLP-MONOTONE-OFF DUAL-EVAL-ID-VALUE-OFF DUAL-EVAL-ID-STATE-OFF ID-MONOTONE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF RAM-ENABLE-CIRCUIT-MONOTONE-OFF DUAL-EVAL-T-BUF-VALUE-OFF DUAL-EVAL-T-BUF-STATE-OFF T-BUF-MONOTONE-OFF DUAL-EVAL-T-WIRE-VALUE-OFF DUAL-EVAL-T-WIRE-STATE-OFF T-WIRE-MONOTONE-OFF DUAL-EVAL-PULLUP-VALUE-OFF DUAL-EVAL-PULLUP-STATE-OFF PULLUP-MONOTONE-OFF DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF DUAL-EVAL-TTL-BIDIRECT-STATE-OFF TTL-BIDIRECT-MONOTONE-OFF DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF TTL-CLK-INPUT-MONOTONE-OFF DUAL-EVAL-TTL-INPUT-VALUE-OFF DUAL-EVAL-TTL-INPUT-STATE-OFF TTL-INPUT-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-STATE-OFF TTL-OUTPUT-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF TTL-OUTPUT-FAST-MONOTONE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF TTL-TRI-OUTPUT-MONOTONE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE-OFF DUAL-EVAL-VDD-VALUE-OFF DUAL-EVAL-VDD-STATE-OFF VDD-MONOTONE-OFF DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF VDD-PARAMETRIC-MONOTONE-OFF DUAL-EVAL-VSS-VALUE-OFF DUAL-EVAL-VSS-STATE-OFF VSS-MONOTONE-OFF BVP-REV1-OFF G*1*READ-MEM1-MONOTONE-INDUCTION-OFF READ-MEM1-MONOTONE-INDUCTION-OFF V-APPROX-X-X-OFF1 G*1*DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-BODY-OFF G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF WRITE-MEM1-MONOTONE-INDUCTION-OFF G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF WRITE-MEM1-DOUBLE-INDUCTION-OFF DUAL-PORT-RAM-STATE-MONOTONE-OFF G*1*DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-BODY-OFF G*1*OK-NETLISTP-OFF OK-NETLISTP-OFF PRIMP-MONOTONE-OFF G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF DUAL-EVAL-MONOTONE-INDUCTION-OFF V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF ALISTP-PAIRLIST-OFF ALISTP-APPEND-OFF ALISTP-DUAL-EVAL-1-OFF V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF G*1*S-APPROX-LIST-OFF S-APPROX-LIST-OFF S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF V-APPROX-IMPLIES-V-APPROX-ALIST-OFF ALISTP-OPENER-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF V-APPROX-ALIST-APPEND-OFF G*1*DOUBLE-CDR-INDUCTION-OFF DOUBLE-CDR-INDUCTION-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF ALISTP-DUAL-EVAL-3-OFF S-APPROX-IMPLIES-S-APPROX-ALIST-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF OK-NETLISTP-REDUCTION-OFF OK-NETLISTP-REDUCTION-REWRITE-OFF DUAL-EVAL-MONOTONE-NO-RAM-OFF G*1*GOOD-S-ALIST-OFF GOOD-S-ALIST-OFF GOOD-S-ALIST-PAIRLIST-OFF GOOD-S-VALUE-OFF DUAL-EVAL-MONOTONE-OFF GOOD-S-COLLECT-VALUE-OFF F-BUF-PRESERVES-GOOD-S-OFF F-IF-PRESERVES-GOOD-S-OFF GOOD-S-0-OFF AO2-PRESERVES-GOOD-S-OFF AO4-PRESERVES-GOOD-S-OFF AO6-PRESERVES-GOOD-S-OFF AO7-PRESERVES-GOOD-S-OFF B-AND-PRESERVES-GOOD-S-OFF B-AND3-PRESERVES-GOOD-S-OFF B-AND4-PRESERVES-GOOD-S-OFF B-EQUV-PRESERVES-GOOD-S-OFF B-EQUV3-PRESERVES-GOOD-S-OFF B-IF-PRESERVES-GOOD-S-OFF B-NAND-PRESERVES-GOOD-S-OFF B-NAND3-PRESERVES-GOOD-S-OFF B-NAND4-PRESERVES-GOOD-S-OFF B-NAND5-PRESERVES-GOOD-S-OFF B-NAND6-PRESERVES-GOOD-S-OFF B-NAND8-PRESERVES-GOOD-S-OFF B-NBUF-PRESERVES-GOOD-S-OFF B-NOR-PRESERVES-GOOD-S-OFF B-NOR3-PRESERVES-GOOD-S-OFF B-NOR4-PRESERVES-GOOD-S-OFF B-NOR5-PRESERVES-GOOD-S-OFF B-NOR6-PRESERVES-GOOD-S-OFF B-NOR8-PRESERVES-GOOD-S-OFF B-NOT-PRESERVES-GOOD-S-OFF B-NOT-B4IP-PRESERVES-GOOD-S-OFF B-NOT-IVAP-PRESERVES-GOOD-S-OFF B-OR-PRESERVES-GOOD-S-OFF B-OR3-PRESERVES-GOOD-S-OFF B-OR4-PRESERVES-GOOD-S-OFF B-XOR-PRESERVES-GOOD-S-OFF B-XOR3-PRESERVES-GOOD-S-OFF DEL2-PRESERVES-GOOD-S-OFF DEL4-PRESERVES-GOOD-S-OFF DEL10-PRESERVES-GOOD-S-OFF PROCMON-PRESERVES-GOOD-S-OFF FD1-PRESERVES-GOOD-S-OFF FD1S-PRESERVES-GOOD-S-OFF FD1SP-PRESERVES-GOOD-S-OFF FD1SLP-PRESERVES-GOOD-S-OFF ID-PRESERVES-GOOD-S-OFF RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF T-BUF-PRESERVES-GOOD-S-OFF T-WIRE-PRESERVES-GOOD-S-OFF PULLUP-PRESERVES-GOOD-S-OFF TTL-BIDIRECT-PRESERVES-GOOD-S-OFF TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF TTL-INPUT-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF VDD-PRESERVES-GOOD-S-OFF VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF VSS-PRESERVES-GOOD-S-OFF GOOD-S-CONSTANT-RAM-OFF GOOD-S-WRITE-MEM-1-OFF GOOD-S-WRITE-MEM-OFF DP-RAM-16X32-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S-OFF GOOD-S-PRESERVED-OFF G*1*V-APPROX-LIST-OFF V-APPROX-LIST-OFF G*1*V-S-APPROX-LIST-OFF V-S-APPROX-LIST-OFF G*1*NAT-LST-LST-INDUCTION-OFF NAT-LST-LST-INDUCTION-OFF V-APPROX-CAR-NTH-OFF S-APPROX-CADR-NTH-OFF G*1*SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-OFF V-APPROX-LIST-X-X-OFF G*1*DOUBLET-P-OFF G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-OFF DOUBLET-P-EQUAL-APPROX-OFF LENGTH-SIMULATE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF XS-SUFFICE-FOR-RESET-LEMMA-OFF G*1*COMPILE-UNCOMPILED-DEFNS-OFF COMPILE-UNCOMPILED-DEFNS-OFF G*1*UNKNOWN-REGFILE-OFF UNKNOWN-REGFILE-OFF G*1*UNKNOWN-MACHINE-STATE-OFF UNKNOWN-MACHINE-STATE-OFF G*1*UNKNOWN-MEMORY-STATE-OFF UNKNOWN-MEMORY-STATE-OFF G*1*UNKNOWN-STATE-OFF UNKNOWN-STATE-OFF CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF G*1*RESET-VECTOR-OFF RESET-VECTOR-OFF G*1*RUN-VECTOR-OFF RUN-VECTOR-OFF G*1*RESET-SEQUENCE-OFF RESET-SEQUENCE-OFF CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF G*1*INITIALIZED-REGFILE-OFF INITIALIZED-REGFILE-OFF G*1*INITIALIZED-MACHINE-STATE-OFF INITIALIZED-MACHINE-STATE-OFF G*1*INITIALIZED-MEMORY-STATE-OFF INITIALIZED-MEMORY-STATE-OFF G*1*FINAL-STATE-OFF FINAL-STATE-OFF RESET-WORKS-OFF UNKNOWN-STATE-OKP-OFF FINAL-STATE-OKP-OFF INSTANCE-THEOREM-OFF FM9001-STATEP-MAP-UP-FINAL-STATE-OFF G*1*RESET-VECTOR-CHIP-OFF RESET-VECTOR-CHIP-OFF G*1*RUN-VECTOR-CHIP-1-OFF RUN-VECTOR-CHIP-1-OFF G*1*RUN-VECTOR-CHIP-2-OFF RUN-VECTOR-CHIP-2-OFF G*1*RESET-SEQUENCE-CHIP-1-OFF RESET-SEQUENCE-CHIP-1-OFF G*1*RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-1-VS-2-OFF SIMULATE-RESET-CHIP-FINAL-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF G*1*V-FOURP-OFF V-FOURP-OFF G*1*ALL-XS-OFF ALL-XS-OFF ALL-XS-APPROXIMATES-OFF ALL-XS-MAKE-LIST-OFF G*1*MEMORY-V-FOURP-OFF MEMORY-V-FOURP-OFF G*1*NEW-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT-OFF S-APPROX-MAKE-LIST-OFF V-FOURP-IMPLIES-PROPERP-OFF LISTP-IMPLIES-NOT-FOURP-OFF RAMP-IMPLIES-NOT-FOURP-OFF ROMP-IMPLIES-NOT-FOURP-OFF STUBP-IMPLIES-NOT-FOURP-OFF B-APPROX-X-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF GOOD-S-OPENER-OFF MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF V-FOURP-IS-GOOD-S-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF CADR-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF LENGTH-RESET-SEQUENCE-CHIP-1-OFF RESET-CHIP-OFF RESET-CHIP-FROM-ANY-STATE-OFF CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF CHIP-WELL-FORMED-OFF CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF CHIP-WELL-FORMED-SIMPLE-OFF CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED COMPILE-UNCOMPILED-DEFNS-ON1 CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET RESET-CHIP-FROM-ANY-STATE RESET-CHIP LENGTH-RESET-SEQUENCE-CHIP-1 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 B-APPROX-OFF1 B-KNOWNP-OFF1 MAP-DOWN-INVERTS-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET CADR-MAP-UP MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S V-FOURP-IS-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA B-APPROX-X STUBP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP V-FOURP-IMPLIES-PROPERP S-APPROX-MAKE-LIST *1*NEW-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT *1*MEMORY-V-FOURP MEMORY-V-FOURP ALL-XS-MAKE-LIST ALL-XS-APPROXIMATES B-APPROX-ON B-KNOWNP-ON *1*ALL-XS ALL-XS *1*V-FOURP V-FOURP FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2 *1*RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-2 *1*RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1 *1*RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-2 *1*RUN-VECTOR-CHIP-1 RUN-VECTOR-CHIP-1 *1*RESET-VECTOR-CHIP RESET-VECTOR-CHIP FM9001-STATEP-MAP-UP-FINAL-STATE INSTANCE-THEOREM FINAL-STATE-OKP UNKNOWN-STATE-OKP RESET-WORKS *1*FINAL-STATE FINAL-STATE *1*INITIALIZED-MEMORY-STATE INITIALIZED-MEMORY-STATE *1*INITIALIZED-MACHINE-STATE INITIALIZED-MACHINE-STATE *1*INITIALIZED-REGFILE INITIALIZED-REGFILE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE *1*RESET-SEQUENCE RESET-SEQUENCE *1*RUN-VECTOR RUN-VECTOR *1*RESET-VECTOR RESET-VECTOR FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE *1*UNKNOWN-STATE UNKNOWN-STATE *1*UNKNOWN-MEMORY-STATE UNKNOWN-MEMORY-STATE *1*UNKNOWN-MACHINE-STATE UNKNOWN-MACHINE-STATE *1*UNKNOWN-REGFILE UNKNOWN-REGFILE COMPILE-UNCOMPILED-DEFNS-ON *1*COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE LENGTH-SIMULATE DOUBLET-P-OFF DOUBLET-P-EQUAL-APPROX DOUBLET-N-SIMULATE *1*DOUBLET-N-SIMULATE-INDUCTION DOUBLET-N-SIMULATE-INDUCTION *1*DOUBLET-P DOUBLET-P V-APPROX-LIST-X-X SIMULATE-MONOTONE *1*SIMULATE-MONOTONE-INDUCTION SIMULATE-MONOTONE-INDUCTION S-APPROX-CADR-NTH V-APPROX-CAR-NTH OPEN-NTH-ON *1*NAT-LST-LST-INDUCTION NAT-LST-LST-INDUCTION *1*V-S-APPROX-LIST V-S-APPROX-LIST *1*V-APPROX-LIST V-APPROX-LIST GOOD-S-PRESERVED PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY DP-RAM-16X32-PRESERVES-GOOD-S GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-1 GOOD-S-CONSTANT-RAM VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S GOOD-S-0 F-IF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE GOOD-S-VALUE GOOD-S-ALIST-PAIRLIST *1*GOOD-S-ALIST GOOD-S-ALIST DUAL-EVAL-MONOTONE-NO-RAM OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-IMPLIES-S-APPROX-ALIST ALISTP-DUAL-EVAL-3 S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE *1*DOUBLE-CDR-INDUCTION DOUBLE-CDR-INDUCTION V-APPROX-ALIST-APPEND S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE ALISTP-OPENER V-APPROX-IMPLIES-V-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST *1*S-APPROX-LIST S-APPROX-LIST V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE ALISTP-DUAL-EVAL-1 ALISTP-APPEND ALISTP-PAIRLIST V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-X-X-ON *1*DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-MONOTONE-INDUCTION PRIMP-MONOTONE *1*OK-NETLISTP OK-NETLISTP DP-RAM-16X32-MONOTONE-OFF DP-RAM-16X32-MONOTONE-STATE-OFF DUAL-APPLY-STATE-DP-RAM-16X32-OFF DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF MEM-WIDTH-LINEAR-FACTS-OFF V-APPROX-PRESERVES-PROPERP-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF MEM-WIDTH-NON-ZERO-OFF V-APPROX-SUBRANGE-OFF V-APPROX-PRESERVES-LENGTH-OFF S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF S-APPROX-CONSTANT-RAM-X-ID-OFF S-APPROX-WRITE-MEM-ID-OFF S-APPROX-WRITE-MEM1-ID-OFF V-APPROX-LENGTH-OFF WRITE-MEM-MONOTONE-OFF WRITE-MEM1-MONOTONE-OFF WRITE-MEM1-OPENER-OFF V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF MEM-WIDTH-ON G*1*MEM-WIDTH-ON S-APPROX-ON S-APPROX-OPENER-OFF S-KNOWNP-ON V-APPROX-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON BVP-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON V-KNOWNP-ON DP-RAM-16X32-MONOTONE-VALUE-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-OFF DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF EVAL$-APPEND-2-OFF EVAL$-PAIRLIST-CONS-OFF EVAL$-APPEND-OFF DUAL-PORT-RAM-VALUE-MONOTONE-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF EQUAL-LENGTH-READ-MEM-OFF EQUAL-LENGTH-READ-MEM1-OFF READ-MEM-MONOTONE-OFF V-APPROX-MAKE-LIST-X-OFF V-APPROX-BVP-SUBRANGE-OFF V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF G*1*B-KNOWNP-OFF1 V-APPROX-IMPLIES-B-APPROX-NTH-OFF V-APPROX-X-X-OFF BVP-IMPLIES-V-KNOWNP-OFF READ-MEM1-MONOTONE-OFF V-APPROX-BVP-OFF BVP-REVERSE-OFF DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-STATE DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY *1*DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE MEM-WIDTH-LINEAR-FACTS V-APPROX-PRESERVES-PROPERP S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 MEM-WIDTH-NON-ZERO V-APPROX-SUBRANGE V-APPROX-PRESERVES-LENGTH S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID *1*WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-DOUBLE-INDUCTION V-APPROX-LENGTH WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE *1*WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-OPENER V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T MEM-WIDTH-OFF G*1*MEM-WIDTH-OFF S-APPROX-OFF S-APPROX-OPENER S-KNOWNP-OFF V-APPROX-OFF FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF BVP-OFF1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF V-KNOWNP-OFF DP-RAM-16X32-MONOTONE-VALUE DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY *1*DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 EVAL$-APPEND-2 EVAL$-PAIRLIST-CONS EVAL$-APPEND DUAL-PORT-RAM-VALUE-MONOTONE S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM1 READ-MEM-MONOTONE V-APPROX-MAKE-LIST-X V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL G*1*B-KNOWNP-ON V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-X-X BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE *1*READ-MEM1-MONOTONE-INDUCTION READ-MEM1-MONOTONE-INDUCTION V-APPROX-BVP BVP-REVERSE BVP-REV1 PRIMITIVES-MONOTONE VSS-MONOTONE DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE VDD-PARAMETRIC-MONOTONE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE VDD-MONOTONE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE TTL-TRI-OUTPUT-FAST-MONOTONE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE TTL-TRI-OUTPUT-MONOTONE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE TTL-OUTPUT-FAST-MONOTONE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE TTL-OUTPUT-PARAMETRIC-MONOTONE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE TTL-OUTPUT-MONOTONE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE TTL-INPUT-MONOTONE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE TTL-CLK-INPUT-MONOTONE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE TTL-BIDIRECT-MONOTONE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE PULLUP-MONOTONE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE T-WIRE-MONOTONE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE T-BUF-MONOTONE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE RAM-ENABLE-CIRCUIT-MONOTONE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE ID-MONOTONE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE FD1SLP-MONOTONE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE FD1SP-MONOTONE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE FD1S-MONOTONE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE FD1-MONOTONE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE PROCMON-MONOTONE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DEL10-MONOTONE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DEL4-MONOTONE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DEL2-MONOTONE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE B-XOR3-MONOTONE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE B-XOR-MONOTONE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE B-OR4-MONOTONE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE B-OR3-MONOTONE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE B-OR-MONOTONE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE B-NOT-IVAP-MONOTONE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE B-NOT-B4IP-MONOTONE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE B-NOT-MONOTONE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE B-NOR8-MONOTONE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE B-NOR6-MONOTONE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE B-NOR5-MONOTONE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE B-NOR4-MONOTONE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE B-NOR3-MONOTONE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE B-NOR-MONOTONE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE B-NBUF-MONOTONE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE B-NAND8-MONOTONE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE B-NAND6-MONOTONE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE B-NAND5-MONOTONE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE B-NAND4-MONOTONE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE B-NAND3-MONOTONE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE B-NAND-MONOTONE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE B-IF-MONOTONE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE B-EQUV3-MONOTONE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE B-EQUV-MONOTONE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE B-AND4-MONOTONE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE B-AND3-MONOTONE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE B-AND-MONOTONE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE AO7-MONOTONE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE AO6-MONOTONE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE AO4-MONOTONE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE AO2-MONOTONE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-IF FOURP-F-BUF F-BUF-TYPE-SET S-APPROX-IMPLIES-B-APPROX DUAL-EVAL-2-PRIMP DUAL-EVAL-0-PRIMP B-APPROX-OFF MONOTONICITY-LEMMAS F-PULLUP-OFF FT-WIRE-OFF FT-BUF-OFF F-IF-OFF F-EQUV3-OFF F-EQUV-OFF F-XOR3-OFF F-XOR-OFF F-NOR8-OFF F-NOR6-OFF F-NOR5-OFF F-NOR4-OFF F-NOR3-OFF F-NOR-OFF F-OR4-OFF F-OR3-OFF F-OR-OFF F-NAND8-OFF F-NAND6-OFF F-NAND5-OFF F-NAND4-OFF F-NAND3-OFF F-NAND-OFF F-NOT-OFF F-AND4-OFF F-AND3-OFF F-AND-OFF F-BUF-OFF F-PULLUP-MONOTONE FT-WIRE-MONOTONE FT-BUF-MONOTONE F-IF-MONOTONE F-EQUV3-MONOTONE F-XOR3-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-NOR8-MONOTONE F-NOR6-MONOTONE F-NOR5-MONOTONE F-NOR4-MONOTONE F-NOR3-MONOTONE F-NOR-MONOTONE F-OR4-MONOTONE F-OR3-MONOTONE F-OR-MONOTONE F-NAND8-MONOTONE F-NAND6-MONOTONE F-NAND5-MONOTONE F-NAND4-MONOTONE F-NAND3-MONOTONE F-NAND-MONOTONE F-NOT-MONOTONE F-AND4-MONOTONE F-AND3-MONOTONE F-AND-MONOTONE F-BUF-MONOTONE MONOTONICITY-PROPERTY-OPENER-3-OFF MONOTONICITY-PROPERTY-OPENER-2-OFF MONOTONICITY-PROPERTY-OPENER-1-OFF MONOTONICITY-PROPERTY-OPENER-0-OFF MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-OFF *1*MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY *1*S-APPROX-ALIST S-APPROX-ALIST *1*V-APPROX-ALIST V-APPROX-ALIST PLUS-ADD1-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL *1*S-KNOWNP S-KNOWNP *1*GOOD-S GOOD-S S-APPROX-X-X *1*S-APPROX S-APPROX *1*MEM-WIDTH MEM-WIDTH PLUS-ADD1-OFF V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL *1*V-KNOWNP V-KNOWNP *1*V-APPROX V-APPROX *1*B-APPROX B-APPROX G*1*B-KNOWNP-OFF B-KNOWNP-OFF B-KNOWNP-COMPOUND-RECOGNIZER *1*B-KNOWNP B-KNOWNP FM9001=CHIP-SYSTEM-SUMMARY *1*NO-HOLDS-RESET-OR-TEST NO-HOLDS-RESET-OR-TEST FM9001=CHIP-SYSTEM FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN *1*MAP-DOWN MAP-DOWN *1*MEM-MAP-DOWN MEM-MAP-DOWN *1*P-MAP-DOWN P-MAP-DOWN *1*FM9001-STATEP FM9001-STATEP *1*FM9001-MACHINE-STATEP FM9001-MACHINE-STATEP FM9001-INTERPRETER-CORRECT$MAP-DOWN MAP-DOWN-RELATION-LEMMA HIGH-LEVEL-STATE-STRUCTURE-OFF *1*HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE-STRUCTURE MAP-DOWN-RELATION-OFF *1*MAP-DOWN-RELATION MAP-DOWN-RELATION FM9001=FM9001-INTERPRETER CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MACROCYCLE-INVARIANT==>PC-REG MIDDLE=HIGH$HELP FM9001-STEP*-LEMMA FM9001-STEP*-OFF *1*FM9001-STEP* FM9001-STEP* OPEN-MAP-UP MAP-UP-OFF *1*MAP-UP MAP-UP *1*MEM-MAP-UP MEM-MAP-UP *1*P-MAP-UP P-MAP-UP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT*-OFF *1*MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP *1*MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES-OFF *1*TOTAL-MICROCYCLES TOTAL-MICROCYCLES *1*MICROCYCLES MICROCYCLES OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT OPERATING-INPUTS-P-1 OPERATING-INPUTS-P-PLUS OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P-OFF *1*OPERATING-INPUTS-P OPERATING-INPUTS-P *1*T_FETCH1 T_FETCH1 *1*T_REGA T_REGA *1*T_REGB T_REGB *1*T_READA0 T_READA0 *1*T_READB0 T_READB0 *1*T_UPDATE T_UPDATE *1*T_WRITE0 T_WRITE0 *1*T_SEFA0 T_SEFA0 *1*T_SEFB0 T_SEFB0 *1*T_SEFB1 T_SEFB1 *1*T_FETCH0 T_FETCH0 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 *1*ZEROP-NOT-ZEROP-CASES ZEROP-NOT-ZEROP-CASES WRITE3$PROGRESS WRITE3$PROGRESS-HELP *1*WRITE3$INDUCTION WRITE3$INDUCTION READB3$PROGRESS READB3$PROGRESS-HELP *1*READB3$INDUCTION READB3$INDUCTION READA3$PROGRESS READA3$PROGRESS-HELP *1*READA3$INDUCTION READA3$INDUCTION FETCH3$PROGRESS FETCH3$PROGRESS-HELP *1*FETCH3$INDUCTION FETCH3$INDUCTION BVP-READ-FN PROPERP-READ-FN LENGTH-READ-FN OPEN-READ-FN READ-FN-OFF *1*READ-FN READ-FN FM9001-STEP-THEORY SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS *1*REGFILE-OKP REGFILE-OKP OPEN-RUN-INPUTS-P-ADD1 RUN-INPUTS-P-1 RUN-INPUTS-P-PLUS OPEN-RUN-INPUTS-P RUN-INPUTS-P-OFF *1*RUN-INPUTS-P RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001 *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION CHIP-SYSTEM=RUN-FM9001$INDUCTION CHIP-SYSTEM=FM9001$STEP-OFF CHIP-SYSTEM=FM9001$STEP OPEN-MAP-UP-INPUTS MAP-UP-INPUTS-OFF *1*MAP-UP-INPUTS MAP-UP-INPUTS *1*MAP-UP-1-INPUT MAP-UP-1-INPUT OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P-OFF *1*CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P REWRITE-CHIP-SYSTEM-INPUT-INVARIANT *1*CHIP-SYSTEM-INPUT-INVARIANT CHIP-SYSTEM-INPUT-INVARIANT FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-OFF CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP-OFF CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE *1*CHIP-SYSTEM-INVARIANT CHIP-SYSTEM-INVARIANT *1*MEMORY-STATE-INVARIANT MEMORY-STATE-INVARIANT *1*CHIP-SYSTEM$NETLIST CHIP-SYSTEM$NETLIST CHIP-SYSTEM&-OFF *1*CHIP-SYSTEM& CHIP-SYSTEM& G*1*CHIP-SYSTEM*-OFF CHIP-SYSTEM*$DESTRUCTURE-OFF CHIP-SYSTEM*-OFF CHIP-SYSTEM*$DESTRUCTURE *1*CHIP-SYSTEM* CHIP-SYSTEM* CHIP$VALUE CHIP$STATE *1*CHIP$NETLIST CHIP$NETLIST CHIP&-OFF *1*CHIP& CHIP& G*1*CHIP*-OFF CHIP*$DESTRUCTURE-OFF CHIP*-OFF CHIP*$DESTRUCTURE *1*CHIP* CHIP* CHIP-MODULE$VALUE CHIP-MODULE$STATE *1*MACHINE-STATE-INVARIANT MACHINE-STATE-INVARIANT BV-AS-SUBRANGE-OFF BV-AS-SUBRANGE REG-40$VALUE-AS-CNTL-STATE-OFF REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE *1*CHIP-MODULE$NETLIST CHIP-MODULE$NETLIST CHIP-MODULE&-OFF *1*CHIP-MODULE& CHIP-MODULE& G*1*CHIP-MODULE*-OFF CHIP-MODULE*$DESTRUCTURE-OFF CHIP-MODULE*-OFF CHIP-MODULE*$DESTRUCTURE *1*CHIP-MODULE* CHIP-MODULE* FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$INDUCTION FM9001-STATE-STRUCTURE$STEP *1*FM9001-STATE-STRUCTURE FM9001-STATE-STRUCTURE RUN-FM9001-PLUS RUN-FM9001-STEP-CASE-OFF RUN-FM9001-STEP-CASE RUN-FM9001-BASE-CASE RUN-FM9001-OFF *1*RUN-FM9001 RUN-FM9001 FM9001-NEXT-STATE-OFF *1*FM9001-NEXT-STATE FM9001-NEXT-STATE FM9001-EXTERNAL-INPUT-ACCESSORS PC-REG-INPUT-OFF HOLD--INPUT-OFF RESET--INPUT-OFF *1*PC-REG-INPUT PC-REG-INPUT *1*HOLD--INPUT HOLD--INPUT *1*RESET--INPUT RESET--INPUT FM9001-HARDWARE-STATE-ACCESSORS CNTL-STATE-OFF PC-REG-OFF HOLD--OFF DTACK--OFF RESET--OFF ADDR-OUT-OFF DATA-OUT-OFF I-REG-OFF B-REG-OFF A-REG-OFF *1*CNTL-STATE CNTL-STATE *1*PC-REG PC-REG *1*HOLD- HOLD- *1*DTACK- DTACK- *1*RESET- RESET- *1*ADDR-OUT ADDR-OUT *1*DATA-OUT DATA-OUT *1*I-REG I-REG *1*B-REG B-REG *1*A-REG A-REG TTL-BIDIRECT-PADS$VALUE-OFF TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE-OFF TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY *1*TTL-BIDIRECT-PADS$NETLIST TTL-BIDIRECT-PADS$NETLIST TTL-BIDIRECT-PADS&-OFF *1*TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF TTL-BIDIRECT-PADS*-OFF TTL-BIDIRECT-PADS*$DESTRUCTURE *1*TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS* *1*TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY-OFF *1*TTL-BIDIRECT-PADS-BODY TTL-BIDIRECT-PADS-BODY TTL-TRI-OUTPUT-PADS$VALUE-OFF TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY *1*TTL-TRI-OUTPUT-PADS$NETLIST TTL-TRI-OUTPUT-PADS$NETLIST TTL-TRI-OUTPUT-PADS&-OFF *1*TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-TRI-OUTPUT-PADS*-OFF TTL-TRI-OUTPUT-PADS*$DESTRUCTURE *1*TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS* *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY-OFF *1*TTL-TRI-OUTPUT-PADS-BODY TTL-TRI-OUTPUT-PADS-BODY TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE-OFF TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY *1*TTL-OUTPUT-PADS$NETLIST TTL-OUTPUT-PADS$NETLIST TTL-OUTPUT-PADS&-OFF *1*TTL-OUTPUT-PADS& TTL-OUTPUT-PADS& TTL-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-OUTPUT-PADS*-OFF TTL-OUTPUT-PADS*$DESTRUCTURE *1*TTL-OUTPUT-PADS* TTL-OUTPUT-PADS* *1*TTL-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY-OFF *1*TTL-OUTPUT-PADS-BODY TTL-OUTPUT-PADS-BODY TTL-INPUT-PADS$VALUE-OFF TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE-OFF TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY *1*TTL-INPUT-PADS$NETLIST TTL-INPUT-PADS$NETLIST TTL-INPUT-PADS&-OFF *1*TTL-INPUT-PADS& TTL-INPUT-PADS& TTL-INPUT-PADS*$DESTRUCTURE-OFF TTL-INPUT-PADS*-OFF TTL-INPUT-PADS*$DESTRUCTURE *1*TTL-INPUT-PADS* TTL-INPUT-PADS* *1*TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY-OFF *1*TTL-INPUT-PADS-BODY TTL-INPUT-PADS-BODY EXTEND-IMMEDIATE$VALUE-OFF EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE-OFF *1*F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE CHECK-EXTEND-IMMEDIATE$NETLIST *1*EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE&-OFF *1*EXTEND-IMMEDIATE& EXTEND-IMMEDIATE& G*1*EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*$DESTRUCTURE-OFF EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*$DESTRUCTURE *1*EXTEND-IMMEDIATE* EXTEND-IMMEDIATE* FLAGS$PARTIAL-STATE-OFF FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP-OFF FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-OFF FLAGS$STATE FLAGS$STATE-HELP-OFF FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS PROPERP-LENGTH-F$UPDATE-FLAGS F$UPDATE-FLAGS-OFF *1*F$UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE-OFF FLAGS$VALUE CHECK-FLAGS$NETLIST *1*FLAGS$NETLIST FLAGS$NETLIST FLAGS&-OFF *1*FLAGS& FLAGS& G*1*FLAGS*-OFF FLAGS*$DESTRUCTURE-OFF FLAGS*-OFF FLAGS*$DESTRUCTURE *1*FLAGS* FLAGS* REGFILE$STATE-OFF REGFILE$STATE F$WRITE-REGS=WRITE-REGS PROPERP-LENGTH-F$WRITE-REGS F$WRITE-REGS-OFF *1*F$WRITE-REGS F$WRITE-REGS REGFILE$VALUE-OFF REGFILE$VALUE F$READ-REGS=READ-REGS PROPERP-LENGTH-F$READ-REGS F$READ-REGS-OFF *1*F$READ-REGS F$READ-REGS CHECK-REGFILE$NETLIST *1*REGFILE$NETLIST REGFILE$NETLIST REGFILE&-OFF *1*REGFILE& REGFILE& G*1*REGFILE*-OFF REGFILE*$DESTRUCTURE-OFF REGFILE*-OFF REGFILE*$DESTRUCTURE *1*REGFILE* REGFILE* BVP-LENGTH-READ-REGS-32 READ-REGS=READ-MEM-WRITE-MEM READ-REGS=READ-MEM ALL-RAMP-MEM-AFTER-WRITE-REGS READ-REGS-WRITE-REGS-F WRITE-REGS-OK WRITE-REGS-IF PROPERP-LENGTH-WRITE-REGS WRITE-REGS-F-BV-CROCK WRITE-REGS-F-WRITE-REGS-F WRITE-REGS-OFF *1*WRITE-REGS WRITE-REGS READ-REGS-OFF *1*READ-REGS READ-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE-OFF NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST *1*NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE&-OFF *1*NEXT-CNTL-STATE& NEXT-CNTL-STATE& *1*NEXT-CNTL-STATE* NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF V-OR-CROCK-FOR-F$NEXT-CNTL-STATE PROPERP-LENGTH-F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE-OFF *1*F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE NEXT-CNTL-STATE-OFF *1*NEXT-CNTL-STATE NEXT-CNTL-STATE CV$VALUE-OFF CV$VALUE CHECK-CV$NETLIST *1*CV$NETLIST CV$NETLIST CV&-OFF *1*CV& CV& *1*CV* CV* PROPERP-LENGTH-F$CV BVP-LENGTH-CV F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV-OFF MAKE-LIST-CROCK-FOR-F$CV=CV F$CV-OFF *1*F$CV F$CV CV-OFF *1*CV CV NEXT-STATE$VALUE-OFF NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE BVP-LENGTH-NEXT-STATE *1*NEXT-STATE$NETLIST NEXT-STATE$NETLIST NEXT-STATE&-OFF *1*NEXT-STATE& NEXT-STATE& *1*NEXT-STATE* NEXT-STATE* F$NEXT-STATE=NEXT-STATE F$NEXT-STATE-OFF *1*F$NEXT-STATE F$NEXT-STATE *1*NEXT-STATE NEXT-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE-OFF CONTROL-LET$VALUE *1*CONTROL-LET$NETLIST CONTROL-LET$NETLIST CONTROL-LET&-OFF *1*CONTROL-LET& CONTROL-LET& *1*CONTROL-LET* CONTROL-LET* F$CONTROL-LET-OFF *1*F$CONTROL-LET F$CONTROL-LET PROPERP-LENGTH-CV_FETCH1 CV_FETCH1$RW-DOAN-MATTA BVP-CV-VECTORS-OFF BVP-CV-VECTORS CV-DESTRUCTURE-THEORY CV-THEORY CV_V11111$DESTRUCTURE-OFF CV_V11111$DESTRUCTURE CV_V11111-OFF *1*CV_V11111 CV_V11111 CV_RESET2$DESTRUCTURE-OFF CV_RESET2$DESTRUCTURE CV_RESET2-OFF *1*CV_RESET2 CV_RESET2 CV_RESET1$DESTRUCTURE-OFF CV_RESET1$DESTRUCTURE CV_RESET1-OFF *1*CV_RESET1 CV_RESET1 CV_RESET0$DESTRUCTURE-OFF CV_RESET0$DESTRUCTURE CV_RESET0-OFF *1*CV_RESET0 CV_RESET0 CV_V11011$DESTRUCTURE-OFF CV_V11011$DESTRUCTURE CV_V11011-OFF *1*CV_V11011 CV_V11011 CV_V11010$DESTRUCTURE-OFF CV_V11010$DESTRUCTURE CV_V11010-OFF *1*CV_V11010 CV_V11010 CV_HOLD1$DESTRUCTURE-OFF CV_HOLD1$DESTRUCTURE CV_HOLD1-OFF *1*CV_HOLD1 CV_HOLD1 CV_HOLD0$DESTRUCTURE-OFF CV_HOLD0$DESTRUCTURE CV_HOLD0-OFF *1*CV_HOLD0 CV_HOLD0 CV_SEFB1$DESTRUCTURE-OFF CV_SEFB1$DESTRUCTURE CV_SEFB1-OFF *1*CV_SEFB1 CV_SEFB1 CV_SEFB0$DESTRUCTURE-OFF CV_SEFB0$DESTRUCTURE CV_SEFB0-OFF *1*CV_SEFB0 CV_SEFB0 CV_SEFA1$DESTRUCTURE-OFF CV_SEFA1$DESTRUCTURE CV_SEFA1-OFF *1*CV_SEFA1 CV_SEFA1 CV_SEFA0$DESTRUCTURE-OFF CV_SEFA0$DESTRUCTURE CV_SEFA0-OFF *1*CV_SEFA0 CV_SEFA0 CV_WRITE3$DESTRUCTURE-OFF CV_WRITE3$DESTRUCTURE CV_WRITE3-OFF *1*CV_WRITE3 CV_WRITE3 CV_WRITE2$DESTRUCTURE-OFF CV_WRITE2$DESTRUCTURE CV_WRITE2-OFF *1*CV_WRITE2 CV_WRITE2 CV_WRITE1$DESTRUCTURE-OFF CV_WRITE1$DESTRUCTURE CV_WRITE1-OFF *1*CV_WRITE1 CV_WRITE1 CV_WRITE0$DESTRUCTURE-OFF CV_WRITE0$DESTRUCTURE CV_WRITE0-OFF *1*CV_WRITE0 CV_WRITE0 CV_READB3$DESTRUCTURE-OFF CV_READB3$DESTRUCTURE CV_READB3-OFF *1*CV_READB3 CV_READB3 CV_READB2$DESTRUCTURE-OFF CV_READB2$DESTRUCTURE CV_READB2-OFF *1*CV_READB2 CV_READB2 CV_READB1$DESTRUCTURE-OFF CV_READB1$DESTRUCTURE CV_READB1-OFF *1*CV_READB1 CV_READB1 CV_READB0$DESTRUCTURE-OFF CV_READB0$DESTRUCTURE CV_READB0-OFF *1*CV_READB0 CV_READB0 CV_READA3$DESTRUCTURE-OFF CV_READA3$DESTRUCTURE CV_READA3-OFF *1*CV_READA3 CV_READA3 CV_READA2$DESTRUCTURE-OFF CV_READA2$DESTRUCTURE CV_READA2-OFF *1*CV_READA2 CV_READA2 CV_READA1$DESTRUCTURE-OFF CV_READA1$DESTRUCTURE CV_READA1-OFF *1*CV_READA1 CV_READA1 CV_READA0$DESTRUCTURE-OFF CV_READA0$DESTRUCTURE CV_READA0-OFF *1*CV_READA0 CV_READA0 CV_UPDATE$DESTRUCTURE-OFF CV_UPDATE$DESTRUCTURE CV_UPDATE-OFF *1*CV_UPDATE CV_UPDATE CV_REGB$DESTRUCTURE-OFF CV_REGB$DESTRUCTURE CV_REGB-OFF *1*CV_REGB CV_REGB CV_REGA$DESTRUCTURE-OFF CV_REGA$DESTRUCTURE CV_REGA-OFF *1*CV_REGA CV_REGA CV_DECODE$DESTRUCTURE-OFF CV_DECODE$DESTRUCTURE CV_DECODE-OFF *1*CV_DECODE CV_DECODE CV_FETCH3$DESTRUCTURE-OFF CV_FETCH3$DESTRUCTURE CV_FETCH3-OFF *1*CV_FETCH3 CV_FETCH3 CV_FETCH2$DESTRUCTURE-OFF CV_FETCH2$DESTRUCTURE CV_FETCH2-OFF *1*CV_FETCH2 CV_FETCH2 CV_FETCH1$DESTRUCTURE-OFF CV_FETCH1$DESTRUCTURE CV_FETCH1-OFF *1*CV_FETCH1 CV_FETCH1 CV_FETCH0$DESTRUCTURE-OFF CV_FETCH0$DESTRUCTURE CV_FETCH0-OFF *1*CV_FETCH0 CV_FETCH0 CONTROL-STATE-ACCESSOR-THEORY ALU-MPG-OFF *1*ALU-MPG ALU-MPG ALU-OP-OFF *1*ALU-OP ALU-OP REGS-ADDRESS-OFF *1*REGS-ADDRESS REGS-ADDRESS WE-FLAGS-OFF *1*WE-FLAGS WE-FLAGS STATE-OFF *1*STATE STATE ALU-ZERO-OFF *1*ALU-ZERO ALU-ZERO ALU-C-OFF *1*ALU-C ALU-C SELECT-IMMEDIATE-OFF *1*SELECT-IMMEDIATE SELECT-IMMEDIATE DEC-ADDR-OUT-OFF *1*DEC-ADDR-OUT DEC-ADDR-OUT DATA-IN-SELECT-OFF *1*DATA-IN-SELECT DATA-IN-SELECT WE-PC-REG-OFF *1*WE-PC-REG WE-PC-REG WE-HOLD--OFF *1*WE-HOLD- WE-HOLD- WE-ADDR-OUT-OFF *1*WE-ADDR-OUT WE-ADDR-OUT WE-DATA-OUT-OFF *1*WE-DATA-OUT WE-DATA-OUT WE-I-REG-OFF *1*WE-I-REG WE-I-REG WE-B-REG-OFF *1*WE-B-REG WE-B-REG WE-A-REG-OFF *1*WE-A-REG WE-A-REG WE-REGS-OFF *1*WE-REGS WE-REGS HDACK--OFF *1*HDACK- HDACK- STROBE--OFF *1*STROBE- STROBE- RW--OFF *1*RW- RW- BVP-LENGTH-STATE-VECTORS-OFF BVP-LENGTH-STATE-VECTORS NATURAL-STATE-THEORY VECTOR-STATE-THEORY G*1*N_V11111-OFF N_V11111-OFF *1*N_V11111 N_V11111 G*1*V_V11111-OFF V_V11111-OFF *1*V_V11111 V_V11111 G*1*N_RESET2-OFF N_RESET2-OFF *1*N_RESET2 N_RESET2 G*1*V_RESET2-OFF V_RESET2-OFF *1*V_RESET2 V_RESET2 G*1*N_RESET1-OFF N_RESET1-OFF *1*N_RESET1 N_RESET1 G*1*V_RESET1-OFF V_RESET1-OFF *1*V_RESET1 V_RESET1 G*1*N_RESET0-OFF N_RESET0-OFF *1*N_RESET0 N_RESET0 G*1*V_RESET0-OFF V_RESET0-OFF *1*V_RESET0 V_RESET0 G*1*N_V11011-OFF N_V11011-OFF *1*N_V11011 N_V11011 G*1*V_V11011-OFF V_V11011-OFF *1*V_V11011 V_V11011 G*1*N_V11010-OFF N_V11010-OFF *1*N_V11010 N_V11010 G*1*V_V11010-OFF V_V11010-OFF *1*V_V11010 V_V11010 G*1*N_HOLD1-OFF N_HOLD1-OFF *1*N_HOLD1 N_HOLD1 G*1*V_HOLD1-OFF V_HOLD1-OFF *1*V_HOLD1 V_HOLD1 G*1*N_HOLD0-OFF N_HOLD0-OFF *1*N_HOLD0 N_HOLD0 G*1*V_HOLD0-OFF V_HOLD0-OFF *1*V_HOLD0 V_HOLD0 G*1*N_SEFB1-OFF N_SEFB1-OFF *1*N_SEFB1 N_SEFB1 G*1*V_SEFB1-OFF V_SEFB1-OFF *1*V_SEFB1 V_SEFB1 G*1*N_SEFB0-OFF N_SEFB0-OFF *1*N_SEFB0 N_SEFB0 G*1*V_SEFB0-OFF V_SEFB0-OFF *1*V_SEFB0 V_SEFB0 G*1*N_SEFA1-OFF N_SEFA1-OFF *1*N_SEFA1 N_SEFA1 G*1*V_SEFA1-OFF V_SEFA1-OFF *1*V_SEFA1 V_SEFA1 G*1*N_SEFA0-OFF N_SEFA0-OFF *1*N_SEFA0 N_SEFA0 G*1*V_SEFA0-OFF V_SEFA0-OFF *1*V_SEFA0 V_SEFA0 G*1*N_WRITE3-OFF N_WRITE3-OFF *1*N_WRITE3 N_WRITE3 G*1*V_WRITE3-OFF V_WRITE3-OFF *1*V_WRITE3 V_WRITE3 G*1*N_WRITE2-OFF N_WRITE2-OFF *1*N_WRITE2 N_WRITE2 G*1*V_WRITE2-OFF V_WRITE2-OFF *1*V_WRITE2 V_WRITE2 G*1*N_WRITE1-OFF N_WRITE1-OFF *1*N_WRITE1 N_WRITE1 G*1*V_WRITE1-OFF V_WRITE1-OFF *1*V_WRITE1 V_WRITE1 G*1*N_WRITE0-OFF N_WRITE0-OFF *1*N_WRITE0 N_WRITE0 G*1*V_WRITE0-OFF V_WRITE0-OFF *1*V_WRITE0 V_WRITE0 G*1*N_READB3-OFF N_READB3-OFF *1*N_READB3 N_READB3 G*1*V_READB3-OFF V_READB3-OFF *1*V_READB3 V_READB3 G*1*N_READB2-OFF N_READB2-OFF *1*N_READB2 N_READB2 G*1*V_READB2-OFF V_READB2-OFF *1*V_READB2 V_READB2 G*1*N_READB1-OFF N_READB1-OFF *1*N_READB1 N_READB1 G*1*V_READB1-OFF V_READB1-OFF *1*V_READB1 V_READB1 G*1*N_READB0-OFF N_READB0-OFF *1*N_READB0 N_READB0 G*1*V_READB0-OFF V_READB0-OFF *1*V_READB0 V_READB0 G*1*N_READA3-OFF N_READA3-OFF *1*N_READA3 N_READA3 G*1*V_READA3-OFF V_READA3-OFF *1*V_READA3 V_READA3 G*1*N_READA2-OFF N_READA2-OFF *1*N_READA2 N_READA2 G*1*V_READA2-OFF V_READA2-OFF *1*V_READA2 V_READA2 G*1*N_READA1-OFF N_READA1-OFF *1*N_READA1 N_READA1 G*1*V_READA1-OFF V_READA1-OFF *1*V_READA1 V_READA1 G*1*N_READA0-OFF N_READA0-OFF *1*N_READA0 N_READA0 G*1*V_READA0-OFF V_READA0-OFF *1*V_READA0 V_READA0 G*1*N_UPDATE-OFF N_UPDATE-OFF *1*N_UPDATE N_UPDATE G*1*V_UPDATE-OFF V_UPDATE-OFF *1*V_UPDATE V_UPDATE G*1*N_REGB-OFF N_REGB-OFF *1*N_REGB N_REGB G*1*V_REGB-OFF V_REGB-OFF *1*V_REGB V_REGB G*1*N_REGA-OFF N_REGA-OFF *1*N_REGA N_REGA G*1*V_REGA-OFF V_REGA-OFF *1*V_REGA V_REGA G*1*N_DECODE-OFF N_DECODE-OFF *1*N_DECODE N_DECODE G*1*V_DECODE-OFF V_DECODE-OFF *1*V_DECODE V_DECODE G*1*N_FETCH3-OFF N_FETCH3-OFF *1*N_FETCH3 N_FETCH3 G*1*V_FETCH3-OFF V_FETCH3-OFF *1*V_FETCH3 V_FETCH3 G*1*N_FETCH2-OFF N_FETCH2-OFF *1*N_FETCH2 N_FETCH2 G*1*V_FETCH2-OFF V_FETCH2-OFF *1*V_FETCH2 V_FETCH2 G*1*N_FETCH1-OFF N_FETCH1-OFF *1*N_FETCH1 N_FETCH1 G*1*V_FETCH1-OFF V_FETCH1-OFF *1*V_FETCH1 V_FETCH1 G*1*N_FETCH0-OFF N_FETCH0-OFF *1*N_FETCH0 N_FETCH0 G*1*V_FETCH0-OFF V_FETCH0-OFF *1*V_FETCH0 V_FETCH0 *1*CV-HYPS CV-HYPS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$ALL-T-REGS-ADDRESS-OFF *1*F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS F$SET-SOME-FLAGS-OFF *1*F$SET-SOME-FLAGS F$SET-SOME-FLAGS BOOLP-C-FLAG NOT-SET-SOME-FLAGS-UPDATE-FLAGS *1*FLAGS-HYPS FLAGS-HYPS NOT-SET-SOME-FLAGS-MAKE-LIST-4-F SET-SOME-FLAGS-OFF *1*SET-SOME-FLAGS SET-SOME-FLAGS ENCODE-32$VALUE-ON-A-VECTOR-OFF ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 PROPERP-LENGTH-F$ENCODE-32 BVP-LENGTH-ENCODE-32 F$ENCODE-32=ENCODE-32 ENCODE-32$VALUE-OFF ENCODE-32$VALUE *1*ENCODE-32$NETLIST ENCODE-32$NETLIST ENCODE-32&-OFF *1*ENCODE-32& ENCODE-32& *1*ENCODE-32* ENCODE-32* F$ENCODE-32-OFF *1*F$ENCODE-32 F$ENCODE-32 ENCODE-32-OFF *1*ENCODE-32 ENCODE-32 DECODE-5$VALUE-OFF F$DECODE-5=DECODE-5 DECODE-5$VALUE PROPERP-LENGTH-F$DECODE-5 *1*DECODE-5$NETLIST DECODE-5$NETLIST DECODE-5&-OFF *1*DECODE-5& DECODE-5& *1*DECODE-5* DECODE-5* BVP-LENGTH-DECODE-5 DECODE-5-OFF *1*DECODE-5 DECODE-5 F$DECODE-5-OFF *1*F$DECODE-5 F$DECODE-5 FANOUT-32$VALUE-OFF FANOUT-32$VALUE *1*FANOUT-32$NETLIST FANOUT-32$NETLIST FANOUT-32&-OFF *1*FANOUT-32& FANOUT-32& *1*FANOUT-32* FANOUT-32* FANOUT-5$VALUE-OFF FANOUT-5$VALUE *1*FANOUT-5$NETLIST FANOUT-5$NETLIST FANOUT-5&-OFF *1*FANOUT-5& FANOUT-5& *1*FANOUT-5* FANOUT-5* FANOUT-4$VALUE-OFF FANOUT-4$VALUE *1*FANOUT-4$NETLIST FANOUT-4$NETLIST FANOUT-4&-OFF *1*FANOUT-4& FANOUT-4& *1*FANOUT-4* FANOUT-4* V-IF-F-4$RESET-VALUE-OFF V-IF-F-4$RESET-VALUE F$V-IF-F-4=FV-IF V-IF-F-4$VALUE PROPERP-LENGTH-F$V-IF-F-4 F$V-IF-F-4-OFF *1*F$V-IF-F-4 F$V-IF-F-4 *1*V-IF-F-4$NETLIST V-IF-F-4$NETLIST V-IF-F-4&-OFF *1*V-IF-F-4& V-IF-F-4& *1*V-IF-F-4* V-IF-F-4* SELECT-OP-CODE$VALUE-OFF SELECT-OP-CODE$VALUE *1*SELECT-OP-CODE$NETLIST SELECT-OP-CODE$NETLIST SELECT-OP-CODE&-OFF *1*SELECT-OP-CODE& SELECT-OP-CODE& *1*SELECT-OP-CODE* SELECT-OP-CODE* F$SELECT-OP-CODE-SELECTS PROPERP-LENGTH-F$SELECT-OP-CODE F$SELECT-OP-CODE-OFF *1*F$SELECT-OP-CODE F$SELECT-OP-CODE F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE-OFF DECODE-REG-MODE$VALUE *1*DECODE-REG-MODE$NETLIST DECODE-REG-MODE$NETLIST DECODE-REG-MODE&-OFF *1*DECODE-REG-MODE& DECODE-REG-MODE& *1*DECODE-REG-MODE* DECODE-REG-MODE* F$DECODE-REG-MODE-OFF *1*F$DECODE-REG-MODE F$DECODE-REG-MODE UNARY-OP-CODE-P$VALUE-OFF UNARY-OP-CODE-P$VALUE *1*UNARY-OP-CODE-P$NETLIST UNARY-OP-CODE-P$NETLIST UNARY-OP-CODE-P&-OFF *1*UNARY-OP-CODE-P& UNARY-OP-CODE-P& *1*UNARY-OP-CODE-P* UNARY-OP-CODE-P* F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$UNARY-OP-CODE-P-OFF *1*F$UNARY-OP-CODE-P F$UNARY-OP-CODE-P B-STORE-RESULTP$VALUE B-STORE-RESULTP=STORE-RESULTP B-STORE-RESULTP=STORE-RESULTP$HELP *1*B-STORE-RESULTP$NETLIST B-STORE-RESULTP$NETLIST B-STORE-RESULTP&-OFF *1*B-STORE-RESULTP& B-STORE-RESULTP& *1*B-STORE-RESULTP* B-STORE-RESULTP* F$B-STORE-RESULTP=B-STORE-RESULTP F$B-STORE-RESULTP-OFF *1*F$B-STORE-RESULTP F$B-STORE-RESULTP B-STORE-RESULTP-OFF *1*B-STORE-RESULTP B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX$VALUE-OFF STORE-RESULTP-MUX$VALUE *1*STORE-RESULTP-MUX$NETLIST STORE-RESULTP-MUX$NETLIST STORE-RESULTP-MUX&-OFF *1*STORE-RESULTP-MUX& STORE-RESULTP-MUX& *1*STORE-RESULTP-MUX* STORE-RESULTP-MUX* F$STORE-RESULTP-MUX-OFF *1*F$STORE-RESULTP-MUX F$STORE-RESULTP-MUX *1*STORE-RESULTP-MUX STORE-RESULTP-MUX *1*ASM-AND-FM9001 ASM-AND-FM9001 *1*EXECUTE-FM9001 EXECUTE-FM9001 *1*UN-FM9001 UN-FM9001 *1*MEM-TO-LIST MEM-TO-LIST *1*LIST-TO-TREE-MEM LIST-TO-TREE-MEM *1*LIST-TO-MEM LIST-TO-MEM *1*STUB-RIGHT STUB-RIGHT *1*LIST-TO-MEM1 LIST-TO-MEM1 *1*LIST-TO-MEM2 LIST-TO-MEM2 *1*LIST-TO-MEM3 LIST-TO-MEM3 *1*ADD-RAM-MARKER ADD-RAM-MARKER *1*MAKE-PAIRS MAKE-PAIRS *1*V-TO-HEX-ALL V-TO-HEX-ALL *1*V-TO-HEX V-TO-HEX *1*V-TO-0S-THROUGH-FS V-TO-0S-THROUGH-FS *1*V-TO-NAT-ALL V-TO-NAT-ALL *1*ASM-TO-1-AND-0 ASM-TO-1-AND-0 *1*T-AND-F-TO-1-AND-0 T-AND-F-TO-1-AND-0 *1*ASM ASM *1*ASM-LIST ASM-LIST *1*ASM-LINE ASM-LINE *1*UPDATE-LIST UPDATE-LIST *1*RESOLVE-NAMES RESOLVE-NAMES *1*ASM-FLAGS ASM-FLAGS *1*ASM-STORE-CC ASM-STORE-CC *1*ASM-OP-CODE ASM-OP-CODE *1*ASM-REGISTER-A ASM-REGISTER-A *1*ASM-REGISTER ASM-REGISTER *1*LOG2 LOG2 QUOTIENT-STUFF *1*EXP2 EXP2 *1*SUB SUB *1*INTEGER-MINUS INTEGER-MINUS *1*ADD ADD *1*C10-INT C10-INT *1*C10-TF C10-TF *1*BV-TO-INT BV-TO-INT *1*INT-TO-BV INT-TO-BV *1*INTP INTP UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 BOOLP-STORE-RESULT-P REG-DIRECT->NOT-REG-INDIRECT BVP-A-IMMEDIATE BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-INTR-OFF *1*FM9001-INTR FM9001-INTR OPEN-FM9001-INTERPRETER FM9001-INTERPRETER-OFF *1*FM9001-INTERPRETER FM9001-INTERPRETER FM9001-OFF *1*FM9001 FM9001 FM9001-STEP-OFF *1*FM9001-STEP FM9001-STEP *1*FM9001-FETCH FM9001-FETCH *1*FM9001-OPERAND-A FM9001-OPERAND-A *1*FM9001-OPERAND-B FM9001-OPERAND-B *1*FM9001-ALU-OPERATION FM9001-ALU-OPERATION FLAGS-OFF REGS-OFF *1*FLAGS FLAGS *1*REGS REGS UPDATE-FLAGS-OFF *1*UPDATE-FLAGS UPDATE-FLAGS STORE-RESULTP-OFF *1*STORE-RESULTP STORE-RESULTP REG-MODE-THEORY POST-INC-P-OFF PRE-DEC-P-OFF REG-INDIRECT-P-OFF REG-DIRECT-P-OFF *1*POST-INC-P POST-INC-P *1*PRE-DEC-P PRE-DEC-P *1*REG-INDIRECT-P REG-INDIRECT-P *1*REG-DIRECT-P REG-DIRECT-P FLAGS-THEORY C-FLAG-OFF V-FLAG-OFF N-FLAG-OFF Z-FLAG-OFF *1*C-FLAG C-FLAG *1*V-FLAG V-FLAG *1*N-FLAG N-FLAG *1*Z-FLAG Z-FLAG SET-FLAGS-THEORY C-SET-OFF V-SET-OFF N-SET-OFF Z-SET-OFF *1*C-SET C-SET *1*V-SET V-SET *1*N-SET N-SET *1*Z-SET Z-SET IR-FIELDS-THEORY OP-CODE-OFF STORE-CC-OFF SET-FLAGS-OFF MODE-B-OFF MODE-A-OFF RN-B-OFF RN-A-OFF A-IMMEDIATE-OFF A-IMMEDIATE-P-OFF *1*OP-CODE OP-CODE *1*STORE-CC STORE-CC *1*SET-FLAGS SET-FLAGS *1*MODE-B MODE-B *1*RN-B RN-B *1*MODE-A MODE-A *1*RN-A RN-A *1*A-IMMEDIATE A-IMMEDIATE *1*A-IMMEDIATE-P A-IMMEDIATE-P *1*REG-SIZE REG-SIZE CORE-ALU$VALUE-OFF CORE-ALU$VALUE *1*CORE-ALU$NETLIST CORE-ALU$NETLIST CORE-ALU&-OFF *1*CORE-ALU& CORE-ALU& CORE-ALU*$DESTRUCTURE-OFF CORE-ALU*-OFF CORE-ALU*$DESTRUCTURE *1*CORE-ALU* CORE-ALU* CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK BOOLP-BVP-CORE-ALU LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU PROPERP-LENGTH-F$CORE-ALU CORE-ALU-OFF *1*CORE-ALU CORE-ALU F$CORE-ALU-OFF *1*F$CORE-ALU F$CORE-ALU TV-SHIFT-OR-BUF$VALUE-ZERO-OFF TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE-OFF TV-SHIFT-OR-BUF$VALUE *1*TV-SHIFT-OR-BUF$NETLIST TV-SHIFT-OR-BUF$NETLIST TV-SHIFT-OR-BUF&-OFF *1*TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF TV-SHIFT-OR-BUF*-OFF TV-SHIFT-OR-BUF*$DESTRUCTURE *1*TV-SHIFT-OR-BUF* TV-SHIFT-OR-BUF* SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF PROPERP-LENGTH-F$SHIFT-OR-BUF SHIFT-OR-BUF-OFF *1*SHIFT-OR-BUF SHIFT-OR-BUF F$SHIFT-OR-BUF-OFF *1*F$SHIFT-OR-BUF F$SHIFT-OR-BUF SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL$VALUE-OFF SHIFT-OR-BUF-CNTL$VALUE *1*SHIFT-OR-BUF-CNTL$NETLIST SHIFT-OR-BUF-CNTL$NETLIST SHIFT-OR-BUF-CNTL&-OFF *1*SHIFT-OR-BUF-CNTL& SHIFT-OR-BUF-CNTL& *1*SHIFT-OR-BUF-CNTL* SHIFT-OR-BUF-CNTL* F$SHIFT-OR-BUF-CNTL-OFF *1*F$SHIFT-OR-BUF-CNTL F$SHIFT-OR-BUF-CNTL *1*SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL COLLECT-VALUE-V-SHIFT-RIGHT PROPERP-SHIFT-RIGHT-NAMES LENGTH-V-SHIFT-RIGHT-NAMES *1*V-SHIFT-RIGHT-NAMES V-SHIFT-RIGHT-NAMES OVERFLOW-HELP$VALUE-ZERO-OFF OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP OVERFLOW-HELP$VALUE-OFF OVERFLOW-HELP$VALUE *1*OVERFLOW-HELP$NETLIST OVERFLOW-HELP$NETLIST OVERFLOW-HELP&-OFF *1*OVERFLOW-HELP& OVERFLOW-HELP& *1*OVERFLOW-HELP* OVERFLOW-HELP* F$OVERFLOW-HELP-OFF *1*F$OVERFLOW-HELP F$OVERFLOW-HELP *1*OVERFLOW-HELP OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO-OFF CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP-CONGRUENCE F$CARRY-OUT-HELP=CARRY-OUT-HELP CARRY-OUT-HELP$VALUE-OFF CARRY-OUT-HELP$VALUE *1*CARRY-OUT-HELP$NETLIST CARRY-OUT-HELP$NETLIST CARRY-OUT-HELP&-OFF *1*CARRY-OUT-HELP& CARRY-OUT-HELP& *1*CARRY-OUT-HELP* CARRY-OUT-HELP* F$CARRY-OUT-HELP-OFF *1*F$CARRY-OUT-HELP F$CARRY-OUT-HELP *1*CARRY-OUT-HELP CARRY-OUT-HELP TV-ALU-HELP$VALUE-OFF TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP$VALUE-BASE-CASE-OFF TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK-OFF TV-ALU-HELP-LEMMA-CROCK *1*TV-ALU-HELP-INDUCTION TV-ALU-HELP-INDUCTION *1*TV-ALU-HELP$NETLIST TV-ALU-HELP$NETLIST TV-ALU-HELP&-OFF *1*TV-ALU-HELP& TV-ALU-HELP& TV-ALU-HELP*$DESTRUCTURE-OFF TV-ALU-HELP*-OFF TV-ALU-HELP*$DESTRUCTURE *1*TV-ALU-HELP* TV-ALU-HELP* *1*TV-ALU-HELP-BODY TV-ALU-HELP-BODY F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP-OFF *1*F$TV-ALU-HELP F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS-OFF TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS-OFF TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS-OFF TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS-OFF TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS-OFF TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS-OFF TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS-OFF TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS-OFF TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS-OFF TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS-OFF TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS-OFF TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO-OFF TV-ALU-HELP-ZERO BVP-LENGTH-TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP-OFF *1*TV-ALU-HELP TV-ALU-HELP F$ALU-CELL-V-THREEFIX-MPG ALU-CELL$VALUE-ZERO-OFF ALU-CELL$VALUE-ZERO ALU-CELL$VALUE-OFF ALU-CELL$VALUE *1*ALU-CELL$NETLIST ALU-CELL$NETLIST ALU-CELL&-OFF *1*ALU-CELL& ALU-CELL& *1*ALU-CELL* ALU-CELL* F$ALU-CELL=ALU-CELL F$ALU-CELL-OFF *1*F$ALU-CELL F$ALU-CELL *1*ALU-CELL ALU-CELL G-CELL$VALUE-ZERO F$G-CELL=G-CELL G-CELL$VALUE-OFF G-CELL$VALUE *1*G-CELL$NETLIST G-CELL$NETLIST G-CELL&-OFF *1*G-CELL& G-CELL& *1*G-CELL* G-CELL* F$G-CELL-OFF *1*F$G-CELL F$G-CELL *1*G-CELL G-CELL P-CELL$VALUE-ZERO F$P-CELL=P-CELL P-CELL$VALUE-OFF P-CELL$VALUE *1*P-CELL$NETLIST P-CELL$NETLIST P-CELL&-OFF *1*P-CELL& P-CELL& *1*P-CELL* P-CELL* F$P-CELL-OFF *1*F$P-CELL F$P-CELL *1*P-CELL P-CELL CARRY-IN-HELP$VALUE-ZERO-OFF CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE-OFF CARRY-IN-HELP$VALUE CARRY-IN-HELP-IF-OP-CODE CARRY-IN-HELP-ZERO-OFF CARRY-IN-HELP-ZERO *1*CARRY-IN-HELP$NETLIST CARRY-IN-HELP$NETLIST CARRY-IN-HELP&-OFF *1*CARRY-IN-HELP& CARRY-IN-HELP& *1*CARRY-IN-HELP* CARRY-IN-HELP* F$CARRY-IN-HELP=CARRY-IN-HELP F$CARRY-IN-HELP-OFF *1*F$CARRY-IN-HELP F$CARRY-IN-HELP CARRY-IN-HELP-OFF *1*CARRY-IN-HELP CARRY-IN-HELP MPG$VALUE-ZERO-OFF MPG$VALUE-ZERO MPG$VALUE-OFF MPG$VALUE *1*MPG$NETLIST MPG$NETLIST MPG&-OFF *1*MPG& MPG& *1*MPG* MPG* MPG-ZERO-OFF MPG-ZERO MPG-IF-OP-CODE PROPERP-MPG BVP-MPG LENGTH-MPG PROPERP-LENGTH-F$MPG F$MPG=MPG MPG-OFF *1*MPG MPG F$MPG-OFF *1*F$MPG F$MPG DECODE-GEN$VALUE-ZERO-OFF DECODE-GEN$VALUE-ZERO F$DECODE-GEN=DECODE-GEN DECODE-GEN$VALUE-OFF DECODE-GEN$VALUE *1*DECODE-GEN$NETLIST DECODE-GEN$NETLIST DECODE-GEN&-OFF *1*DECODE-GEN& DECODE-GEN& *1*DECODE-GEN* DECODE-GEN* F$DECODE-GEN-OFF *1*F$DECODE-GEN F$DECODE-GEN *1*DECODE-GEN DECODE-GEN DECODE-PROP$VALUE-ZERO-OFF DECODE-PROP$VALUE-ZERO F$DECODE-PROP=DECODE-PROP DECODE-PROP$VALUE-OFF DECODE-PROP$VALUE *1*DECODE-PROP$NETLIST DECODE-PROP$NETLIST DECODE-PROP&-OFF *1*DECODE-PROP& DECODE-PROP& *1*DECODE-PROP* DECODE-PROP* F$DECODE-PROP-OFF *1*F$DECODE-PROP F$DECODE-PROP *1*DECODE-PROP DECODE-PROP DECODE-MODE$VALUE-ZERO-OFF DECODE-MODE$VALUE-ZERO F$DECODE-MODE=DECODE-MODE DECODE-MODE$VALUE-OFF DECODE-MODE$VALUE *1*DECODE-MODE$NETLIST DECODE-MODE$NETLIST DECODE-MODE&-OFF *1*DECODE-MODE& DECODE-MODE& *1*DECODE-MODE* DECODE-MODE* F$DECODE-MODE-OFF *1*F$DECODE-MODE F$DECODE-MODE *1*DECODE-MODE DECODE-MODE BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-ALU-DEC-OP G*1*ALU-DEC-OP-OFF ALU-DEC-OP-OFF *1*ALU-DEC-OP ALU-DEC-OP BVP-LENGTH-ALU-INC-OP G*1*ALU-INC-OP-OFF ALU-INC-OP-OFF *1*ALU-INC-OP ALU-INC-OP UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU-1 BVP-V-ALU-1 V-ALU-1-OFF *1*V-ALU-1 V-ALU-1 UNARY-OP-CODE-P-OFF *1*UNARY-OP-CODE-P UNARY-OP-CODE-P BVP-LENGTH-BV LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU-OFF *1*V-ALU V-ALU *1*CVZBV-V-LSR CVZBV-V-LSR *1*CVZBV-V-ASR CVZBV-V-ASR *1*CVZBV-V-NOT CVZBV-V-NOT *1*CVZBV-DEC CVZBV-DEC *1*CVZBV-NEG CVZBV-NEG *1*CVZBV-INC CVZBV-INC *1*CVZBV-V-SUBTRACTER CVZBV-V-SUBTRACTER *1*CVZBV-V-LSL CVZBV-V-LSL *1*CVZBV-V-ADDER CVZBV-V-ADDER *1*CVZBV-V-ROR CVZBV-V-ROR BVP-CVZBV BOOLP-BVP-CVZBV BOOLP-N BV-OFF ZB-OFF N-OFF V-OFF C-OFF *1*ZB ZB *1*N N *1*BV BV *1*V V *1*C C *1*CVZBV CVZBV WE-REG$STATE-OFF WE-REG$STATE WE-REG-BODY$STATE-OFF WE-REG-BODY$STATE WE-REG$VALUE-OFF WE-REG$VALUE WE-REG-BODY$VALUE-OFF WE-REG-BODY$VALUE *1*WE-REG-BODY-INDUCTION WE-REG-BODY-INDUCTION WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY-OFF WE-REG-BODY$UNBOUND-IN-BODY *1*WE-REG$NETLIST WE-REG$NETLIST WE-REG&-OFF *1*WE-REG& WE-REG& WE-REG*$DESTRUCTURE-OFF WE-REG*-OFF WE-REG*$DESTRUCTURE *1*WE-REG* WE-REG* WE-REG-BODY-OFF *1*WE-REG-BODY WE-REG-BODY REG$STATE-OFF REG$STATE REG-BODY$STATE REG$VALUE-OFF REG$VALUE REG-BODY$VALUE *1*REG-BODY-INDUCTION REG-BODY-INDUCTION REG-BODY$ALL-UNBOUND-IN-BODY-OFF REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY-OFF REG-BODY$UNBOUND-IN-BODY *1*REG$NETLIST REG$NETLIST REG&-OFF *1*REG& REG& REG*$DESTRUCTURE-OFF REG*-OFF REG*$DESTRUCTURE *1*REG* REG* REG-BODY-OFF *1*REG-BODY REG-BODY CHECK-DEC-PASS$NETLIST *1*DEC-PASS$NETLIST DEC-PASS$NETLIST DEC-PASS$VALUE-OFF DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS F$DEC-PASS-OFF *1*F$DEC-PASS F$DEC-PASS DEC-PASS&-OFF *1*DEC-PASS& DEC-PASS& DEC-PASS*$DESTRUCTURE-OFF DEC-PASS*-OFF DEC-PASS*$DESTRUCTURE *1*DEC-PASS* DEC-PASS* CHECK-TV-DEC-PASS-NG$NETLIST *1*TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$VALUE-OFF TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK-OFF TV-DEC-PASS-NG-LEMMA-CROCK *1*TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG&-OFF *1*TV-DEC-PASS-NG& TV-DEC-PASS-NG& TV-DEC-PASS-NG*$DESTRUCTURE-OFF TV-DEC-PASS-NG*-OFF TV-DEC-PASS-NG*$DESTRUCTURE *1*TV-DEC-PASS-NG* TV-DEC-PASS-NG* TV-DEC-PASS-NG-BODY-OFF *1*TV-DEC-PASS-NG-BODY TV-DEC-PASS-NG-BODY *1*TV-DEC-PASS-NAME TV-DEC-PASS-NAME DEC-PASS-CELL$VALUE *1*DEC-PASS-CELL$NETLIST DEC-PASS-CELL$NETLIST DEC-PASS-CELL&-OFF *1*DEC-PASS-CELL& DEC-PASS-CELL& *1*DEC-PASS-CELL* DEC-PASS-CELL* F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH F$TV-DEC-PASS-NG-OFF *1*F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BOOLP-CAR-TV-DEC-PASS-NG TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-LENGTH-TV-DEC-PASS-NG BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-OFF *1*TV-DEC-PASS-NG TV-DEC-PASS-NG TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 BVP-LENGTH-TV-DEC-PASS BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS TV-DEC-PASS-LENGTH CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS-OFF *1*TV-DEC-PASS TV-DEC-PASS F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V F$V-INC4$V-OFF *1*F$V-INC4$V F$V-INC4$V F$V-INC4=V-INC4 V-INC4$VALUE-OFF V-INC4$VALUE *1*V-INC4$NETLIST V-INC4$NETLIST V-INC4&-OFF *1*V-INC4& V-INC4& *1*V-INC4* V-INC4* F$V-INC4-OFF *1*F$V-INC4 F$V-INC4 *1*V-INC4 V-INC4 F$V-EQUAL=EQUAL* V-EQUAL$VALUE-OFF V-EQUAL$VALUE F$V-EQUAL-OFF *1*F$V-EQUAL F$V-EQUAL *1*V-EQUAL$NETLIST V-EQUAL$NETLIST V-EQUAL&-OFF *1*V-EQUAL& V-EQUAL& V-EQUAL*$DESTRUCTURE-OFF V-EQUAL*-OFF V-EQUAL*$DESTRUCTURE *1*V-EQUAL* V-EQUAL* FAST-ZERO$VALUE CHECK-FAST-ZERO$NETLIST *1*FAST-ZERO$NETLIST FAST-ZERO$NETLIST FAST-ZERO&-OFF *1*FAST-ZERO& FAST-ZERO& FAST-ZERO*$DESTRUCTURE-OFF FAST-ZERO*-OFF FAST-ZERO*$DESTRUCTURE *1*FAST-ZERO* FAST-ZERO* F$FAST-ZERO=V-ZEROP F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO-OFF *1*F$FAST-ZERO F$FAST-ZERO F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE-OFF TV-ZEROP$VALUE F$TV-ZEROP-OFF *1*F$TV-ZEROP F$TV-ZEROP *1*TV-ZEROP$NETLIST TV-ZEROP$NETLIST TV-ZEROP&-OFF *1*TV-ZEROP& TV-ZEROP& TV-ZEROP*$DESTRUCTURE-OFF TV-ZEROP*-OFF TV-ZEROP*$DESTRUCTURE *1*TV-ZEROP* TV-ZEROP* BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR-OFF *1*BTR-OR-NOR BTR-OR-NOR T-OR-NOR$VALUE-OFF T-OR-NOR$VALUE TR-OR-NOR-OFF *1*TR-OR-NOR TR-OR-NOR *1*T-OR-NOR-INDUCTION T-OR-NOR-INDUCTION *1*T-OR-NOR$NETLIST T-OR-NOR$NETLIST T-OR-NOR&-OFF *1*T-OR-NOR& T-OR-NOR& T-OR-NOR*$DESTRUCTURE-OFF T-OR-NOR*-OFF T-OR-NOR*$DESTRUCTURE *1*T-OR-NOR* T-OR-NOR* *1*T-OR-NOR-BODY T-OR-NOR-BODY TV-IF$VALUE-OFF TV-IF$VALUE TV-IF-LEMMA-CROCK-OFF TV-IF-LEMMA-CROCK *1*TV-IF-INDUCTION TV-IF-INDUCTION *1*TV-IF$NETLIST TV-IF$NETLIST TV-IF&-OFF *1*TV-IF& TV-IF& TV-IF*$DESTRUCTURE-OFF TV-IF*-OFF TV-IF*$DESTRUCTURE *1*TV-IF* TV-IF* *1*TV-IF-BODY TV-IF-BODY TV-ADDER-AS-P-G-SUM-OFF CDDR-TV-ADDER-AS-SUM-OFF CADR-TV-ADDER-AS-G-OFF CAR-TV-ADDER-AS-P-OFF TV-ADDER-AS-P-G-SUM EQUALITY-OF-THREE-ELEMENT-LISTS CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER-OFF *1*TV-ADDER TV-ADDER V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM T-CARRY-P-G-CARRY APPEND-SUM GENERATE-APPEND V-PROPAGATE-APPEND-OFF V-PROPAGATE-APPEND V-APPEND-PROPAGATE T-CARRY$VALUE-OFF T-CARRY$VALUE *1*T-CARRY$NETLIST T-CARRY$NETLIST T-CARRY&-OFF *1*T-CARRY& T-CARRY& *1*T-CARRY* T-CARRY* T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY T-CARRY-OFF *1*T-CARRY T-CARRY F$T-CARRY-OFF *1*F$T-CARRY F$T-CARRY V-GENERATE-OFF *1*V-GENERATE V-GENERATE V-PROPAGATE-OFF *1*V-PROPAGATE V-PROPAGATE V-CARRY-OFF *1*V-CARRY V-CARRY A-1+1=A V-SUM-CONGRUENCE LENGTH-SUM BVP-SUM V-SUM-OFF *1*V-SUM V-SUM BV-ADDER$VALUE-OFF BV-ADDER-BODY$VALUE-OFF BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF BV-ADDER$UNBOUND-IN-BODY-SUM-OFF BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM *1*BV-ADDER-BODY$INDUCTION BV-ADDER-BODY$INDUCTION BV-ADDER$NETLIST-OFF *1*BV-ADDER$NETLIST BV-ADDER$NETLIST BV-ADDER&-OFF *1*BV-ADDER& BV-ADDER& BV-ADDER*$DESTRUCTURE-OFF BV-ADDER*-OFF BV-ADDER*$DESTRUCTURE *1*BV-ADDER* BV-ADDER* BV-ADDER-BODY-OFF *1*BV-ADDER-BODY BV-ADDER-BODY *1*BV-ADDER BV-ADDER M2$STATE-OFF M2$STATE M2$VALUE-OFF M2$VALUE M2&-OFF *1*M2& M2& *1*M2$NETLIST M2$NETLIST *1*M2* M2* M1$STATE-OFF M1$STATE M1$VALUE-OFF M1$VALUE M1&-OFF *1*M1& M1& *1*M1$NETLIST M1$NETLIST *1*M1* M1* F$FULL-ADDER=FULL-ADDER *1*FULL-ADDER FULL-ADDER FULL-ADDER$VALUE *1*F$FULL-ADDER F$FULL-ADDER FULL-ADDER&-OFF *1*FULL-ADDER& FULL-ADDER& *1*FULL-ADDER$NETLIST FULL-ADDER$NETLIST *1*FULL-ADDER* FULL-ADDER* HALF-ADDER$VALUE-OFF HALF-ADDER$VALUE HALF-ADDER&-OFF *1*HALF-ADDER& HALF-ADDER& *1*HALF-ADDER$NETLIST HALF-ADDER$NETLIST *1*HALF-ADDER* HALF-ADDER* COUNT-PRIMITIVES-OFF *1*COUNT-PRIMITIVES COUNT-PRIMITIVES *1*COLLECT-PRIMITIVES COLLECT-PRIMITIVES *1*LISP-NETLIST LISP-NETLIST *1*NUMBER-TO-LIST NUMBER-TO-LIST *1*NUMBER-TO-LIST1 NUMBER-TO-LIST1 *1*NUMBER-TO-DIGIT NUMBER-TO-DIGIT *1*REV-0 REV-0 V-WIRE$VALUE-OFF V-WIRE$VALUE V-WIRE$BODY-VALUE-OFF V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY-OFF V-WIRE$UNBOUND-IN-BODY *1*V-WIRE$NETLIST V-WIRE$NETLIST V-WIRE&-OFF *1*V-WIRE& V-WIRE& V-WIRE*$DESTRUCTURE-OFF V-WIRE*-OFF V-WIRE*$DESTRUCTURE *1*V-WIRE* V-WIRE* V-WIRE$BODY-OFF *1*V-WIRE$BODY V-WIRE$BODY V-PULLUP$VALUE-OFF V-PULLUP$VALUE V-PULLUP$BODY-VALUE-OFF V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY-OFF V-PULLUP$UNBOUND-IN-BODY *1*V-PULLUP$NETLIST V-PULLUP$NETLIST V-PULLUP&-OFF *1*V-PULLUP& V-PULLUP& V-PULLUP*$DESTRUCTURE-OFF V-PULLUP*-OFF V-PULLUP*$DESTRUCTURE *1*V-PULLUP* V-PULLUP* V-PULLUP$BODY-OFF *1*V-PULLUP$BODY V-PULLUP$BODY V-XOR$VALUE-OFF V-XOR$VALUE V-XOR$BODY-VALUE-OFF V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY-OFF V-XOR$UNBOUND-IN-BODY *1*V-XOR$NETLIST V-XOR$NETLIST V-XOR&-OFF *1*V-XOR& V-XOR& V-XOR*$DESTRUCTURE-OFF V-XOR*-OFF V-XOR*$DESTRUCTURE *1*V-XOR* V-XOR* V-XOR$BODY-OFF *1*V-XOR$BODY V-XOR$BODY V-OR$VALUE-OFF V-OR$VALUE V-OR$BODY-VALUE-OFF V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY-OFF V-OR$UNBOUND-IN-BODY *1*V-OR$NETLIST V-OR$NETLIST V-OR&-OFF *1*V-OR& V-OR& V-OR*$DESTRUCTURE-OFF V-OR*-OFF V-OR*$DESTRUCTURE *1*V-OR* V-OR* V-OR$BODY-OFF *1*V-OR$BODY V-OR$BODY V-BUF$VALUE-OFF V-BUF$VALUE V-BUF$BODY-VALUE-OFF V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY-OFF V-BUF$UNBOUND-IN-BODY *1*V-BUF$NETLIST V-BUF$NETLIST V-BUF&-OFF *1*V-BUF& V-BUF& V-BUF*$DESTRUCTURE-OFF V-BUF*-OFF V-BUF*$DESTRUCTURE *1*V-BUF* V-BUF* V-BUF$BODY-OFF *1*V-BUF$BODY V-BUF$BODY *1*VECTOR-MODULE-INDUCTION VECTOR-MODULE-INDUCTION ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND ALL-UNBOUND-IN-BODY-LISTP ALL-UNBOUND-IN-BODY-NLISTP ALL-UNBOUND-IN-BODY-OFF *1*ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY UNBOUND-IN-BODY-LISTP UNBOUND-IN-BODY-NLISTP UNBOUND-IN-BODY-OFF *1*UNBOUND-IN-BODY UNBOUND-IN-BODY MEM-32X32$STRUCTURED-STATE-OFF MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1-OFF MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-OFF MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1-OFF MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE-OFF LIST-32-NTH-COLLAPSE MEM-32X32-ARGS-CROCK-OFF MEM-32X32-ARGS-CROCK DP-RAM-16X32$STRUCTURED-STATE-OFF DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE-OFF DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32-ARGS-CROCK-OFF DP-RAM-16X32-ARGS-CROCK B-BUF-PWR$VALUE-OFF B-BUF-PWR$VALUE *1*B-BUF-PWR$NETLIST B-BUF-PWR$NETLIST B-BUF-PWR&-OFF *1*B-BUF-PWR& B-BUF-PWR& *1*B-BUF-PWR* B-BUF-PWR* B-BUF$VALUE-OFF B-BUF$VALUE *1*B-BUF$NETLIST B-BUF$NETLIST B-BUF&-OFF *1*B-BUF& B-BUF& *1*B-BUF* B-BUF* MEM-32X32$STATE-OFF MEM-32X32$STATE FD1SLP$STATE-OFF FD1SLP$STATE FD1SP$STATE-OFF FD1SP$STATE FD1S$STATE-OFF FD1S$STATE FD1$STATE-OFF FD1$STATE DP-RAM-16X32$STATE-OFF DP-RAM-16X32$STATE VSS$VALUE-OFF VSS$VALUE *1*VSS$NETLIST VSS$NETLIST VSS&-OFF *1*VSS& VSS& VDD-PARAMETRIC$VALUE-OFF VDD-PARAMETRIC$VALUE *1*VDD-PARAMETRIC$NETLIST VDD-PARAMETRIC$NETLIST VDD-PARAMETRIC&-OFF *1*VDD-PARAMETRIC& VDD-PARAMETRIC& VDD$VALUE-OFF VDD$VALUE *1*VDD$NETLIST VDD$NETLIST VDD&-OFF *1*VDD& VDD& TTL-TRI-OUTPUT-FAST$VALUE-OFF TTL-TRI-OUTPUT-FAST$VALUE *1*TTL-TRI-OUTPUT-FAST$NETLIST TTL-TRI-OUTPUT-FAST$NETLIST TTL-TRI-OUTPUT-FAST&-OFF *1*TTL-TRI-OUTPUT-FAST& TTL-TRI-OUTPUT-FAST& TTL-TRI-OUTPUT$VALUE-OFF TTL-TRI-OUTPUT$VALUE *1*TTL-TRI-OUTPUT$NETLIST TTL-TRI-OUTPUT$NETLIST TTL-TRI-OUTPUT&-OFF *1*TTL-TRI-OUTPUT& TTL-TRI-OUTPUT& TTL-OUTPUT-FAST$VALUE-OFF TTL-OUTPUT-FAST$VALUE *1*TTL-OUTPUT-FAST$NETLIST TTL-OUTPUT-FAST$NETLIST TTL-OUTPUT-FAST&-OFF *1*TTL-OUTPUT-FAST& TTL-OUTPUT-FAST& TTL-OUTPUT-PARAMETRIC$VALUE-OFF TTL-OUTPUT-PARAMETRIC$VALUE *1*TTL-OUTPUT-PARAMETRIC$NETLIST TTL-OUTPUT-PARAMETRIC$NETLIST TTL-OUTPUT-PARAMETRIC&-OFF *1*TTL-OUTPUT-PARAMETRIC& TTL-OUTPUT-PARAMETRIC& TTL-OUTPUT$VALUE-OFF TTL-OUTPUT$VALUE *1*TTL-OUTPUT$NETLIST TTL-OUTPUT$NETLIST TTL-OUTPUT&-OFF *1*TTL-OUTPUT& TTL-OUTPUT& TTL-INPUT$VALUE-OFF TTL-INPUT$VALUE *1*TTL-INPUT$NETLIST TTL-INPUT$NETLIST TTL-INPUT&-OFF *1*TTL-INPUT& TTL-INPUT& TTL-CLK-INPUT$VALUE-OFF TTL-CLK-INPUT$VALUE *1*TTL-CLK-INPUT$NETLIST TTL-CLK-INPUT$NETLIST TTL-CLK-INPUT&-OFF *1*TTL-CLK-INPUT& TTL-CLK-INPUT& TTL-BIDIRECT$VALUE-OFF TTL-BIDIRECT$VALUE *1*TTL-BIDIRECT$NETLIST TTL-BIDIRECT$NETLIST TTL-BIDIRECT&-OFF *1*TTL-BIDIRECT& TTL-BIDIRECT& PULLUP$VALUE-OFF PULLUP$VALUE *1*PULLUP$NETLIST PULLUP$NETLIST PULLUP&-OFF *1*PULLUP& PULLUP& T-WIRE$VALUE-OFF T-WIRE$VALUE *1*T-WIRE$NETLIST T-WIRE$NETLIST T-WIRE&-OFF *1*T-WIRE& T-WIRE& T-BUF$VALUE-OFF T-BUF$VALUE *1*T-BUF$NETLIST T-BUF$NETLIST T-BUF&-OFF *1*T-BUF& T-BUF& RAM-ENABLE-CIRCUIT$VALUE-OFF RAM-ENABLE-CIRCUIT$VALUE *1*RAM-ENABLE-CIRCUIT$NETLIST RAM-ENABLE-CIRCUIT$NETLIST RAM-ENABLE-CIRCUIT&-OFF *1*RAM-ENABLE-CIRCUIT& RAM-ENABLE-CIRCUIT& MEM-32X32$VALUE-OFF MEM-32X32$VALUE *1*MEM-32X32$NETLIST MEM-32X32$NETLIST MEM-32X32&-OFF *1*MEM-32X32& MEM-32X32& ID$VALUE-OFF ID$VALUE *1*ID$NETLIST ID$NETLIST ID&-OFF *1*ID& ID& FD1SLP$VALUE-OFF FD1SLP$VALUE *1*FD1SLP$NETLIST FD1SLP$NETLIST FD1SLP&-OFF *1*FD1SLP& FD1SLP& FD1SP$VALUE-OFF FD1SP$VALUE *1*FD1SP$NETLIST FD1SP$NETLIST FD1SP&-OFF *1*FD1SP& FD1SP& FD1S$VALUE-OFF FD1S$VALUE *1*FD1S$NETLIST FD1S$NETLIST FD1S&-OFF *1*FD1S& FD1S& FD1$VALUE-OFF FD1$VALUE *1*FD1$NETLIST FD1$NETLIST FD1&-OFF *1*FD1& FD1& DP-RAM-16X32$VALUE-OFF DP-RAM-16X32$VALUE *1*DP-RAM-16X32$NETLIST DP-RAM-16X32$NETLIST DP-RAM-16X32&-OFF *1*DP-RAM-16X32& DP-RAM-16X32& PROCMON$VALUE-OFF PROCMON$VALUE *1*PROCMON$NETLIST PROCMON$NETLIST PROCMON&-OFF *1*PROCMON& PROCMON& DEL10$VALUE-OFF DEL10$VALUE *1*DEL10$NETLIST DEL10$NETLIST DEL10&-OFF *1*DEL10& DEL10& DEL4$VALUE-OFF DEL4$VALUE *1*DEL4$NETLIST DEL4$NETLIST DEL4&-OFF *1*DEL4& DEL4& DEL2$VALUE-OFF DEL2$VALUE *1*DEL2$NETLIST DEL2$NETLIST DEL2&-OFF *1*DEL2& DEL2& B-XOR3$VALUE-OFF B-XOR3$VALUE *1*B-XOR3$NETLIST B-XOR3$NETLIST B-XOR3&-OFF *1*B-XOR3& B-XOR3& B-XOR$VALUE-OFF B-XOR$VALUE *1*B-XOR$NETLIST B-XOR$NETLIST B-XOR&-OFF *1*B-XOR& B-XOR& B-OR4$VALUE-OFF B-OR4$VALUE *1*B-OR4$NETLIST B-OR4$NETLIST B-OR4&-OFF *1*B-OR4& B-OR4& B-OR3$VALUE-OFF B-OR3$VALUE *1*B-OR3$NETLIST B-OR3$NETLIST B-OR3&-OFF *1*B-OR3& B-OR3& B-OR$VALUE-OFF B-OR$VALUE *1*B-OR$NETLIST B-OR$NETLIST B-OR&-OFF *1*B-OR& B-OR& B-NOT-IVAP$VALUE-OFF B-NOT-IVAP$VALUE *1*B-NOT-IVAP$NETLIST B-NOT-IVAP$NETLIST B-NOT-IVAP&-OFF *1*B-NOT-IVAP& B-NOT-IVAP& B-NOT-B4IP$VALUE-OFF B-NOT-B4IP$VALUE *1*B-NOT-B4IP$NETLIST B-NOT-B4IP$NETLIST B-NOT-B4IP&-OFF *1*B-NOT-B4IP& B-NOT-B4IP& B-NOT$VALUE-OFF B-NOT$VALUE *1*B-NOT$NETLIST B-NOT$NETLIST B-NOT&-OFF *1*B-NOT& B-NOT& B-NOR8$VALUE-OFF B-NOR8$VALUE *1*B-NOR8$NETLIST B-NOR8$NETLIST B-NOR8&-OFF *1*B-NOR8& B-NOR8& B-NOR6$VALUE-OFF B-NOR6$VALUE *1*B-NOR6$NETLIST B-NOR6$NETLIST B-NOR6&-OFF *1*B-NOR6& B-NOR6& B-NOR5$VALUE-OFF B-NOR5$VALUE *1*B-NOR5$NETLIST B-NOR5$NETLIST B-NOR5&-OFF *1*B-NOR5& B-NOR5& B-NOR4$VALUE-OFF B-NOR4$VALUE *1*B-NOR4$NETLIST B-NOR4$NETLIST B-NOR4&-OFF *1*B-NOR4& B-NOR4& B-NOR3$VALUE-OFF B-NOR3$VALUE *1*B-NOR3$NETLIST B-NOR3$NETLIST B-NOR3&-OFF *1*B-NOR3& B-NOR3& B-NOR$VALUE-OFF B-NOR$VALUE *1*B-NOR$NETLIST B-NOR$NETLIST B-NOR&-OFF *1*B-NOR& B-NOR& B-NBUF$VALUE-OFF B-NBUF$VALUE *1*B-NBUF$NETLIST B-NBUF$NETLIST B-NBUF&-OFF *1*B-NBUF& B-NBUF& B-NAND8$VALUE-OFF B-NAND8$VALUE *1*B-NAND8$NETLIST B-NAND8$NETLIST B-NAND8&-OFF *1*B-NAND8& B-NAND8& B-NAND6$VALUE-OFF B-NAND6$VALUE *1*B-NAND6$NETLIST B-NAND6$NETLIST B-NAND6&-OFF *1*B-NAND6& B-NAND6& B-NAND5$VALUE-OFF B-NAND5$VALUE *1*B-NAND5$NETLIST B-NAND5$NETLIST B-NAND5&-OFF *1*B-NAND5& B-NAND5& B-NAND4$VALUE-OFF B-NAND4$VALUE *1*B-NAND4$NETLIST B-NAND4$NETLIST B-NAND4&-OFF *1*B-NAND4& B-NAND4& B-NAND3$VALUE-OFF B-NAND3$VALUE *1*B-NAND3$NETLIST B-NAND3$NETLIST B-NAND3&-OFF *1*B-NAND3& B-NAND3& B-NAND$VALUE-OFF B-NAND$VALUE *1*B-NAND$NETLIST B-NAND$NETLIST B-NAND&-OFF *1*B-NAND& B-NAND& B-IF$VALUE-OFF B-IF$VALUE *1*B-IF$NETLIST B-IF$NETLIST B-IF&-OFF *1*B-IF& B-IF& B-EQUV3$VALUE-OFF B-EQUV3$VALUE *1*B-EQUV3$NETLIST B-EQUV3$NETLIST B-EQUV3&-OFF *1*B-EQUV3& B-EQUV3& B-EQUV$VALUE-OFF B-EQUV$VALUE *1*B-EQUV$NETLIST B-EQUV$NETLIST B-EQUV&-OFF *1*B-EQUV& B-EQUV& B-AND4$VALUE-OFF B-AND4$VALUE *1*B-AND4$NETLIST B-AND4$NETLIST B-AND4&-OFF *1*B-AND4& B-AND4& B-AND3$VALUE-OFF B-AND3$VALUE *1*B-AND3$NETLIST B-AND3$NETLIST B-AND3&-OFF *1*B-AND3& B-AND3& B-AND$VALUE-OFF B-AND$VALUE *1*B-AND$NETLIST B-AND$NETLIST B-AND&-OFF *1*B-AND& B-AND& AO7$VALUE-OFF AO7$VALUE *1*AO7$NETLIST AO7$NETLIST AO7&-OFF *1*AO7& AO7& AO6$VALUE-OFF AO6$VALUE *1*AO6$NETLIST AO6$NETLIST AO6&-OFF *1*AO6& AO6& AO4$VALUE-OFF AO4$VALUE *1*AO4$NETLIST AO4$NETLIST AO4&-OFF *1*AO4& AO4& AO2$VALUE-OFF AO2$VALUE *1*AO2$NETLIST AO2$NETLIST AO2&-OFF *1*AO2& AO2& NETLIST-LOADINGS-AND-DRIVES-OFF *1*NETLIST-LOADINGS-AND-DRIVES NETLIST-LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES-OFF *1*LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES FIX-DEPENDENT-DRS-OFF *1*FIX-DEPENDENT-DRS FIX-DEPENDENT-DRS STATE-OKP-OFF *1*STATE-OKP STATE-OKP TYPE-COUNT-LESSP3-OFF TYPE-COUNT-LESSP2-OFF TYPE-COUNT-LESSP1-OFF STATE-OKP-0-OFF *1*STATE-OKP-0 STATE-OKP-0 TYPE-COUNT-OFF TYPE-COUNT-LESSP3 TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP1 *1*TYPE-COUNT TYPE-COUNT NETLIST-STATE-TYPES-OFF *1*NETLIST-STATE-TYPES NETLIST-STATE-TYPES STATE-TYPE-REQUIREMENT-OFF *1*STATE-TYPE-REQUIREMENT STATE-TYPE-REQUIREMENT ARG-TYPES-OKP-OFF *1*ARG-TYPES-OKP ARG-TYPES-OKP ARG-TYPES-MATCHP-OFF *1*ARG-TYPES-MATCHP ARG-TYPES-MATCHP NETLIST-TYPE-TABLE-OFF *1*NETLIST-TYPE-TABLE NETLIST-TYPE-TABLE IO-TYPES-OFF *1*IO-TYPES IO-TYPES IO-TYPES-COLLECTOR-OFF *1*IO-TYPES-COLLECTOR IO-TYPES-COLLECTOR OUTPUT-DEPENDENCIES-OFF *1*OUTPUT-DEPENDENCIES OUTPUT-DEPENDENCIES DEPENDENCY-TABLE-OFF *1*DEPENDENCY-TABLE DEPENDENCY-TABLE OUT-DEPENDS-OFF *1*OUT-DEPENDS OUT-DEPENDS PRIMITIVE-COUNT-OFF *1*PRIMITIVE-COUNT PRIMITIVE-COUNT DELETE-NULL-ENTRIES-OFF *1*DELETE-NULL-ENTRIES DELETE-NULL-ENTRIES SUBNET-OFF *1*SUBNET SUBNET SUBNET0-OFF BOUNDP-OFF1 *1*SUBNET0 SUBNET0 BOUNDP-ON PRIMP-DATABASE-PREDICATE-OFF *1*PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-ERRORS-OFF *1*PRIMP-DATABASE-ERRORS PRIMP-DATABASE-ERRORS PRIMITIVE-OK-OFF *1*PRIMITIVE-OK PRIMITIVE-OK PARENT-PROPS-ALIST-OFF *1*PARENT-PROPS-ALIST PARENT-PROPS-ALIST OK-OUTPUT-TYPES-OFF *1*OK-OUTPUT-TYPES OK-OUTPUT-TYPES OK-INPUT-TYPES-OFF *1*OK-INPUT-TYPES OK-INPUT-TYPES OK-OUT-DEPENDS-OFF *1*OK-OUT-DEPENDS OK-OUT-DEPENDS OK-STATES-OFF *1*OK-STATES OK-STATES OK-NAME-LIST-OFF *1*OK-NAME-LIST OK-NAME-LIST PRIMITIVE-PROP-ERRORS-OFF *1*PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-OK-OFF *1*PRIMITIVE-PROP-OK PRIMITIVE-PROP-OK PNEW-STATES-OK-OFF *1*PNEW-STATES-OK PNEW-STATES-OK PRESULTS-OK-OFF *1*PRESULTS-OK PRESULTS-OK PRESULTS-ERRORS-OFF *1*PRESULTS-ERRORS PRESULTS-ERRORS RESULTS-LENGTH-OFF *1*RESULTS-LENGTH RESULTS-LENGTH PRESULT-OK-OFF *1*PRESULT-OK PRESULT-OK PRESULT-FORM-ERRORS-OFF *1*PRESULT-FORM-ERRORS PRESULT-FORM-ERRORS UNKNOWN-ARGS-OFF *1*UNKNOWN-ARGS UNKNOWN-ARGS PSTATE-TYPES-OK-OFF *1*PSTATE-TYPES-OK PSTATE-TYPES-OK PSTATE-TYPES-ERRORS-OFF *1*PSTATE-TYPES-ERRORS PSTATE-TYPES-ERRORS PSTATE-TYPE-OK-OFF *1*PSTATE-TYPE-OK PSTATE-TYPE-OK PSTATE-TYPE-LIST-ERRORS-OFF *1*PSTATE-TYPE-LIST-ERRORS PSTATE-TYPE-LIST-ERRORS ONE-PSTATE-TYPE-OK-OFF *1*ONE-PSTATE-TYPE-OK ONE-PSTATE-TYPE-OK PADDRESSED-STATE-CALL-OK-OFF *1*PADDRESSED-STATE-CALL-OK PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK-OFF *1*PMEMORY-WORD-CALL-OK PMEMORY-WORD-CALL-OK LITERAL-STATE-TYPE-OK-OFF *1*LITERAL-STATE-TYPE-OK LITERAL-STATE-TYPE-OK BOOLP-LIST-OK-OFF *1*BOOLP-LIST-OK BOOLP-LIST-OK ADDRESSED-STATE-OFF *1*ADDRESSED-STATE ADDRESSED-STATE PSTATES-OK-OFF *1*PSTATES-OK PSTATES-OK POUT-DEPENDS-OK-OFF *1*POUT-DEPENDS-OK POUT-DEPENDS-OK POUT-DEPENDS-ERRORS-OFF *1*POUT-DEPENDS-ERRORS POUT-DEPENDS-ERRORS POUT-DEPENDS-ONE-OK-OFF *1*POUT-DEPENDS-ONE-OK POUT-DEPENDS-ONE-OK PLSI-NAME-OK-OFF *1*PLSI-NAME-OK PLSI-NAME-OK PLOADINGS-OK-OFF *1*PLOADINGS-OK PLOADINGS-OK PLOADINGS-ERRORS-OFF *1*PLOADINGS-ERRORS PLOADINGS-ERRORS PLOADING-OK-OFF *1*PLOADING-OK PLOADING-OK PDRIVES-OK-OFF *1*PDRIVES-OK PDRIVES-OK PDRIVES-ERRORS-OFF *1*PDRIVES-ERRORS PDRIVES-ERRORS PDRIVE-OK-OFF *1*PDRIVE-OK PDRIVE-OK PDELAYS-OK-OFF *1*PDELAYS-OK PDELAYS-OK PDELAYS-ERRORS-OFF *1*PDELAYS-ERRORS PDELAYS-ERRORS PDELAY-OK-OFF *1*PDELAY-OK PDELAY-OK PHALF-DELAY-OK-OFF *1*PHALF-DELAY-OK PHALF-DELAY-OK P-T-WIRE-ARGS-OK-OFF *1*P-T-WIRE-ARGS-OK P-T-WIRE-ARGS-OK P-NAME-PROP-VALUE-OK-OFF *1*P-NAME-PROP-VALUE-OK P-NAME-PROP-VALUE-OK POUT-TYPES-OK-OFF *1*POUT-TYPES-OK POUT-TYPES-OK POUT-TYPE-ERRORS-OFF *1*POUT-TYPE-ERRORS POUT-TYPE-ERRORS POUT-TYPE-OK-OFF *1*POUT-TYPE-OK POUT-TYPE-OK PIN-TYPES-OK-OFF *1*PIN-TYPES-OK PIN-TYPES-OK PIN-TYPE-ERRORS-OFF *1*PIN-TYPE-ERRORS PIN-TYPE-ERRORS PIN-TYPE-OK-OFF *1*PIN-TYPE-OK PIN-TYPE-OK ALL-OUTPUT-TYPES-OFF *1*ALL-OUTPUT-TYPES ALL-OUTPUT-TYPES G*1*ALL-INPUT-TYPES-OFF ALL-INPUT-TYPES-OFF *1*ALL-INPUT-TYPES ALL-INPUT-TYPES ID-OUT-PROP-SIGNALS-OFF *1*ID-OUT-PROP-SIGNALS ID-OUT-PROP-SIGNALS OUT-PROP-SIGNALS-OFF *1*OUT-PROP-SIGNALS OUT-PROP-SIGNALS IO-CDR-OFF *1*IO-CDR IO-CDR IO-CAR-OFF *1*IO-CAR IO-CAR UCDR-OFF *1*UCDR UCDR UCAR-OFF *1*UCAR UCAR STATE-LABEL-OFF *1*STATE-LABEL STATE-LABEL OUTPUT-LABEL-OFF *1*OUTPUT-LABEL OUTPUT-LABEL INPUT-LABEL-OFF *1*INPUT-LABEL INPUT-LABEL IO-LABEL-OFF *1*IO-LABEL IO-LABEL FUNCTION-CALL-OK-OFF *1*FUNCTION-CALL-OK FUNCTION-CALL-OK PNAME-LISTP-OFF *1*PNAME-LISTP PNAME-LISTP LSI-TOP-LEVEL-PREDICATE-OFF *1*LSI-TOP-LEVEL-PREDICATE LSI-TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE-OFF *1*TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE G*1*PREDICATE-PROPERTIES-OFF PREDICATE-PROPERTIES-OFF *1*PREDICATE-PROPERTIES PREDICATE-PROPERTIES NETLIST-DATABASE-OFF *1*NETLIST-DATABASE NETLIST-DATABASE NETLIST-PROPERTIES-OFF *1*NETLIST-PROPERTIES NETLIST-PROPERTIES UNBIND-NETLIST-PROPS-OFF *1*UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS-0-OFF *1*UNBIND-NETLIST-PROPS-0 UNBIND-NETLIST-PROPS-0 REQUIRED-PROPS-OFF *1*REQUIRED-PROPS REQUIRED-PROPS GET-REQUIRED-PROPS-OFF *1*GET-REQUIRED-PROPS GET-REQUIRED-PROPS REQUIRED-FOR-PROP-OFF *1*REQUIRED-FOR-PROP REQUIRED-FOR-PROP MODULE-DATABASE-OFF *1*MODULE-DATABASE MODULE-DATABASE MODULE-DATA-OFF *1*MODULE-DATA MODULE-DATA COLLECT-MODULE-DATA-OFF *1*COLLECT-MODULE-DATA COLLECT-MODULE-DATA COLLECT-MODULE-ERRORS-OFF *1*COLLECT-MODULE-ERRORS COLLECT-MODULE-ERRORS MODULE-PROP-ERROR-OFF *1*MODULE-PROP-ERROR MODULE-PROP-ERROR COLLECT-MODULE-PROPS-OFF *1*COLLECT-MODULE-PROPS COLLECT-MODULE-PROPS COLLECT-MODULE-PROP-OFF *1*COLLECT-MODULE-PROP COLLECT-MODULE-PROP OCCURRENCE-DATA-OFF *1*OCCURRENCE-DATA OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA-OFF *1*COMPOSE-OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA-OFF *1*COMPOSED-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA ADD-COMPOSED-DATA-OFF *1*ADD-COMPOSED-DATA ADD-COMPOSED-DATA COMPOSED-LOADINGS-DRIVES-DELAYS-OFF *1*COMPOSED-LOADINGS-DRIVES-DELAYS COMPOSED-LOADINGS-DRIVES-DELAYS COMPOSED-IO-TYPES-OFF *1*COMPOSED-IO-TYPES COMPOSED-IO-TYPES COLLECT-OCCURRENCE-DATA-OFF *1*COLLECT-OCCURRENCE-DATA COLLECT-OCCURRENCE-DATA FUNCTION-PROPERTIES-OFF *1*FUNCTION-PROPERTIES FUNCTION-PROPERTIES UPDATE-OCC-BINDINGS-OFF *1*UPDATE-OCC-BINDINGS UPDATE-OCC-BINDINGS UPDATE-OPROP-BINDING-OFF *1*UPDATE-OPROP-BINDING UPDATE-OPROP-BINDING INITIAL-OCC-DATA-OFF *1*INITIAL-OCC-DATA INITIAL-OCC-DATA TRI-STATE-ERRORS-OFF *1*TRI-STATE-ERRORS TRI-STATE-ERRORS COLLECT-TRI-STATE-DATA-OFF *1*COLLECT-TRI-STATE-DATA COLLECT-TRI-STATE-DATA COLLECT-SYNONYMS-OFF *1*COLLECT-SYNONYMS COLLECT-SYNONYMS COMPOSE-TRI-STATE-DATA-OFF *1*COMPOSE-TRI-STATE-DATA COMPOSE-TRI-STATE-DATA T-WIRE-ERROR-OFF *1*T-WIRE-ERROR T-WIRE-ERROR IO-RENAME-ERROR-OFF *1*IO-RENAME-ERROR IO-RENAME-ERROR IO-SIGNAL-RENAMES-OFF *1*IO-SIGNAL-RENAMES IO-SIGNAL-RENAMES UPDATE-TRI-STATE-DATA-OFF *1*UPDATE-TRI-STATE-DATA UPDATE-TRI-STATE-DATA ADD-SYNONYMS-OFF *1*ADD-SYNONYMS ADD-SYNONYMS FUNCTION-SYNONYMS-OFF *1*FUNCTION-SYNONYMS FUNCTION-SYNONYMS FUNCTION-T-WIRE-INS-OFF *1*FUNCTION-T-WIRE-INS FUNCTION-T-WIRE-INS INITIAL-OCC-TRI-STATE-DATA-OFF *1*INITIAL-OCC-TRI-STATE-DATA INITIAL-OCC-TRI-STATE-DATA STATE-TYPES-ERROR-OFF *1*STATE-TYPES-ERROR STATE-TYPES-ERROR COLLECT-STATE-TYPES-OFF *1*COLLECT-STATE-TYPES COLLECT-STATE-TYPES UPDATE-STATE-TYPES-OFF *1*UPDATE-STATE-TYPES UPDATE-STATE-TYPES *1*INITIAL-OCC-STATE-TYPES INITIAL-OCC-STATE-TYPES OUT-DEPENDS-ERROR-OFF *1*OUT-DEPENDS-ERROR OUT-DEPENDS-ERROR COLLECT-OUT-DEPENDS-ERRORS-OFF *1*COLLECT-OUT-DEPENDS-ERRORS COLLECT-OUT-DEPENDS-ERRORS COLLECT-OUT-DEPENDS-OFF *1*COLLECT-OUT-DEPENDS COLLECT-OUT-DEPENDS UPDATE-OUT-DEPENDS-OFF *1*UPDATE-OUT-DEPENDS UPDATE-OUT-DEPENDS ADD-OUT-DEPENDS-OFF *1*ADD-OUT-DEPENDS ADD-OUT-DEPENDS INITIAL-OCC-OUT-DEPENDS-OFF *1*INITIAL-OCC-OUT-DEPENDS INITIAL-OCC-OUT-DEPENDS DELAYS-ERROR-OFF *1*DELAYS-ERROR DELAYS-ERROR COLLECT-DELAYS-OFF *1*COLLECT-DELAYS COLLECT-DELAYS COLLECT-DELAYS-0-OFF *1*COLLECT-DELAYS-0 COLLECT-DELAYS-0 OUTPUT-DELAY-OFF *1*OUTPUT-DELAY OUTPUT-DELAY OR-DELAY-ARGS-OFF *1*OR-DELAY-ARGS OR-DELAY-ARGS MAKE-OUTPUT-DELAY-OFF *1*MAKE-OUTPUT-DELAY MAKE-OUTPUT-DELAY TYPE-DELAY-SLOPE-OFF *1*TYPE-DELAY-SLOPE TYPE-DELAY-SLOPE INPUT-DELAY-OFF *1*INPUT-DELAY INPUT-DELAY INPUT-DELAY0-OFF RANGE-DEPENDENCIES-OFF2 *1*INPUT-DELAY0 INPUT-DELAY0 ADDABLE-INPUT-DELAY-OFF *1*ADDABLE-INPUT-DELAY ADDABLE-INPUT-DELAY RANGE-DEPENDENCIES-ON1 DELAY-TO-RANGE-OFF *1*DELAY-TO-RANGE DELAY-TO-RANGE MAKE-DELAY-OR-OFF *1*MAKE-DELAY-OR MAKE-DELAY-OR OR-DELAY-ARGS-TO-RANGES-OFF *1*OR-DELAY-ARGS-TO-RANGES OR-DELAY-ARGS-TO-RANGES LITERAL-DELAY-TO-RANGE-OFF *1*LITERAL-DELAY-TO-RANGE LITERAL-DELAY-TO-RANGE INSERT-INPUT-DELAY-OFF *1*INSERT-INPUT-DELAY INSERT-INPUT-DELAY MERGEABLE-INPUT-DELAY-P-OFF *1*MERGEABLE-INPUT-DELAY-P MERGEABLE-INPUT-DELAY-P MERGE-INPUT-DELAYS-OFF *1*MERGE-INPUT-DELAYS MERGE-INPUT-DELAYS LOADED-DELAYS-OFF *1*LOADED-DELAYS LOADED-DELAYS LOADED-DELAY-OFF *1*LOADED-DELAY LOADED-DELAY ADD-LOAD-DELAY-OFF *1*ADD-LOAD-DELAY ADD-LOAD-DELAY UPDATE-DELAYS-OFF *1*UPDATE-DELAYS UPDATE-DELAYS ADD-DELAYS-OFF *1*ADD-DELAYS ADD-DELAYS LOCAL-DELAY-OFF DELAY-DEPENDENCIES-OFF1 RANGE-DEPENDENCIES-OFF1 LOCAL-DELAY-COUNT-HELP-OFF *1*LOCAL-DELAY LOCAL-DELAY DELAY-DEPENDENCIES-ON RANGE-DEPENDENCIES-ON LOCAL-DELAY-COUNT-HELP-0-OFF LOCAL-DELAY-COUNT-HELP LOCAL-DELAY-COUNT-HELP-0 *1*INITIAL-OCC-DELAYS INITIAL-OCC-DELAYS SLOPE-TIMES-LOAD-OFF *1*SLOPE-TIMES-LOAD SLOPE-TIMES-LOAD RANGE-PLUS-OFF *1*RANGE-PLUS RANGE-PLUS PER-PF-DELAY-SLOPE-OFF *1*PER-PF-DELAY-SLOPE PER-PF-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE-OFF *1*PER-STD-LOAD-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE DETERMINED-RANGEP-OFF *1*DETERMINED-RANGEP DETERMINED-RANGEP RANGE-DEPENDENCIES-OFF *1*RANGE-DEPENDENCIES RANGE-DEPENDENCIES RANGE-MAX-OFF *1*RANGE-MAX RANGE-MAX RANGE-MIN-OFF *1*RANGE-MIN RANGE-MIN RANGEP-OFF *1*RANGEP RANGEP MAKE-RANGE-OFF *1*MAKE-RANGE MAKE-RANGE DETERMINED-DELAYP-OFF *1*DETERMINED-DELAYP DETERMINED-DELAYP MAKE-DELAY-OFF *1*MAKE-DELAY MAKE-DELAY MAKE-DELAY-0-OFF *1*MAKE-DELAY-0 MAKE-DELAY-0 DELAY-DEPENDENCIES-OFF *1*DELAY-DEPENDENCIES DELAY-DEPENDENCIES DELAY-INTERCEPT-HL-OFF *1*DELAY-INTERCEPT-HL DELAY-INTERCEPT-HL DELAY-INTERCEPT-LH-OFF *1*DELAY-INTERCEPT-LH DELAY-INTERCEPT-LH DELAY-SLOPE-HL-OFF *1*DELAY-SLOPE-HL DELAY-SLOPE-HL DELAY-SLOPE-LH-OFF *1*DELAY-SLOPE-LH DELAY-SLOPE-LH DELAY-HL-OFF *1*DELAY-HL DELAY-HL DELAY-LH-OFF *1*DELAY-LH DELAY-LH PS-PFP-OFF *1*PS-PFP PS-PFP DRIVES-ERROR-OFF *1*DRIVES-ERROR DRIVES-ERROR COLLECT-DRIVES-OFF *1*COLLECT-DRIVES COLLECT-DRIVES COLLECT-DRIVES-0-OFF *1*COLLECT-DRIVES-0 COLLECT-DRIVES-0 MAKE-DRIVE-MIN-OFF *1*MAKE-DRIVE-MIN MAKE-DRIVE-MIN DRIVE-MIN-OFF *1*DRIVE-MIN DRIVE-MIN DRIVE-LESSP-OFF *1*DRIVE-LESSP DRIVE-LESSP TYPE-DRIVE-OFF *1*TYPE-DRIVE TYPE-DRIVE NUMERIC-DRIVES-OFF *1*NUMERIC-DRIVES NUMERIC-DRIVES COLLECT-MIN-ARGS-OFF *1*COLLECT-MIN-ARGS COLLECT-MIN-ARGS LOADINGS-ERROR-OFF *1*LOADINGS-ERROR LOADINGS-ERROR COLLECT-LOADINGS-OFF *1*COLLECT-LOADINGS COLLECT-LOADINGS TYPE-LOADING-OFF *1*TYPE-LOADING TYPE-LOADING NET-DRIVES-SIMPLE-OFF *1*NET-DRIVES-SIMPLE NET-DRIVES-SIMPLE ADD-NET-DRIVE-OFF *1*ADD-NET-DRIVE ADD-NET-DRIVE ADD-NET-MIN-DRIVE-OFF *1*ADD-NET-MIN-DRIVE ADD-NET-MIN-DRIVE NET-MIN-ARGS-OFF *1*NET-MIN-ARGS NET-MIN-ARGS LITERAL-NET-DRIVE-OFF *1*LITERAL-NET-DRIVE LITERAL-NET-DRIVE TRANSFER-LOADINGS-OFF *1*TRANSFER-LOADINGS TRANSFER-LOADINGS TRANSFER-LOADING-OFF *1*TRANSFER-LOADING TRANSFER-LOADING UPDATE-DRIVES-OFF *1*UPDATE-DRIVES UPDATE-DRIVES ADD-DRIVES-OFF *1*ADD-DRIVES ADD-DRIVES LOCAL-DRIVE-OFF *1*LOCAL-DRIVE LOCAL-DRIVE UPDATE-LOADINGS-OFF *1*UPDATE-LOADINGS UPDATE-LOADINGS ADD-LOADINGS-OFF *1*ADD-LOADINGS ADD-LOADINGS ADD-LOADING-OFF *1*ADD-LOADING ADD-LOADING *1*INITIAL-OCC-DRIVES INITIAL-OCC-DRIVES *1*INITIAL-OCC-LOADINGS INITIAL-OCC-LOADINGS LOADING-PLUS-OFF *1*LOADING-PLUS LOADING-PLUS MA-LESSP-OFF *1*MA-LESSP MA-LESSP PF-LESSP-OFF *1*PF-LESSP PF-LESSP PF-DIFFERENCE-OFF *1*PF-DIFFERENCE PF-DIFFERENCE PF-PLUS-OFF *1*PF-PLUS PF-PLUS ZERO-LOADINGP-OFF *1*ZERO-LOADINGP ZERO-LOADINGP STD-DRIVE-TO-MA-OFF *1*STD-DRIVE-TO-MA STD-DRIVE-TO-MA MA-TO-STD-DRIVE-OFF *1*MA-TO-STD-DRIVE MA-TO-STD-DRIVE PF-TO-STD-LOAD-OFF *1*PF-TO-STD-LOAD PF-TO-STD-LOAD STD-LOAD-TO-PF-OFF *1*STD-LOAD-TO-PF STD-LOAD-TO-PF PF-TO-MA-OFF *1*PF-TO-MA PF-TO-MA MA-TO-PF-OFF *1*MA-TO-PF MA-TO-PF PFP-OFF *1*PFP PFP MAP-OFF *1*MAP MAP OUT-TYPES-ERROR-OFF *1*OUT-TYPES-ERROR OUT-TYPES-ERROR IN-TYPES-ERROR-OFF *1*IN-TYPES-ERROR IN-TYPES-ERROR COLLECT-OUT-TYPES-OFF *1*COLLECT-OUT-TYPES COLLECT-OUT-TYPES COLLECT-OUT-TYPE-OFF *1*COLLECT-OUT-TYPE COLLECT-OUT-TYPE COLLECT-IN-TYPES-OFF *1*COLLECT-IN-TYPES COLLECT-IN-TYPES COMPOSE-IO-TYPES-OFF *1*COMPOSE-IO-TYPES COMPOSE-IO-TYPES COMPOSED-TYPE-MAPS-OFF *1*COMPOSED-TYPE-MAPS COMPOSED-TYPE-MAPS COMPOSE-TYPE-OFF *1*COMPOSE-TYPE COMPOSE-TYPE TRANSFER-IN-TYPE-OFF *1*TRANSFER-IN-TYPE TRANSFER-IN-TYPE OK-OUT-TYPE-OFF *1*OK-OUT-TYPE OK-OUT-TYPE OK-IN-TYPE-OFF *1*OK-IN-TYPE OK-IN-TYPE IO-TYPES-COMPATIBLE-OFF *1*IO-TYPES-COMPATIBLE IO-TYPES-COMPATIBLE IO-TYPE-ERROR-OFF *1*IO-TYPE-ERROR IO-TYPE-ERROR UPDATE-OUT-TYPES-OFF *1*UPDATE-OUT-TYPES UPDATE-OUT-TYPES ADD-OUT-TYPES-OFF *1*ADD-OUT-TYPES ADD-OUT-TYPES ADD-OUT-TYPE-OFF *1*ADD-OUT-TYPE ADD-OUT-TYPE UPDATE-IN-TYPES-OFF *1*UPDATE-IN-TYPES UPDATE-IN-TYPES ADD-IN-TYPES-OFF *1*ADD-IN-TYPES ADD-IN-TYPES ADD-IN-TYPE-OFF *1*ADD-IN-TYPE ADD-IN-TYPE *1*INITIAL-OCC-OUT-TYPES INITIAL-OCC-OUT-TYPES *1*INITIAL-OCC-IN-TYPES INITIAL-OCC-IN-TYPES OUTPUT-TYPE-OFF *1*OUTPUT-TYPE OUTPUT-TYPE INPUT-TYPE-OFF *1*INPUT-TYPE INPUT-TYPE TYPE-VALUE-OFF *1*TYPE-VALUE TYPE-VALUE TYPE-VALUE0-OFF *1*TYPE-VALUE0 TYPE-VALUE0 TRI-STATE-TYPEP-OFF *1*TRI-STATE-TYPEP TRI-STATE-TYPEP TYPES-COMPATIBLEP-OFF *1*TYPES-COMPATIBLEP TYPES-COMPATIBLEP SUBTYPE-OFF *1*SUBTYPE SUBTYPE EXTERNALIZE-PARENTS-OFF *1*EXTERNALIZE-PARENTS EXTERNALIZE-PARENTS EXTRACT-NAMES-OFF *1*EXTRACT-NAMES EXTRACT-NAMES PARENT-SYNONYMS-LIST-OFF *1*PARENT-SYNONYMS-LIST PARENT-SYNONYMS-LIST PARENT-SYNONYM-OFF *1*PARENT-SYNONYM PARENT-SYNONYM PARENT-SYNONYM0-OFF *1*PARENT-SYNONYM0 PARENT-SYNONYM0 SIGNAL-NAMEP-OFF *1*SIGNAL-NAMEP SIGNAL-NAMEP COLLECT-VALUE2-OFF *1*COLLECT-VALUE2 COLLECT-VALUE2 VALUE2-OFF *1*VALUE2 VALUE2 UNMARK-IO-OUTS-OFF *1*UNMARK-IO-OUTS UNMARK-IO-OUTS UNMARK-IO-OUT-OFF *1*UNMARK-IO-OUT UNMARK-IO-OUT MARK-IO-OUTS-OFF *1*MARK-IO-OUTS MARK-IO-OUTS MARK-IO-OUTS-0-OFF *1*MARK-IO-OUTS-0 MARK-IO-OUTS-0 MARK-IO-OUT-OFF *1*MARK-IO-OUT MARK-IO-OUT COUNT-IO-OUT IO-OUT-SIGNAL-ELIM IO-OUT-IO-OUT-SIGNAL IO-OUT-EQUAL IO-OUT-SIGNAL-LESSEQP IO-OUT-SIGNAL-LESSP IO-OUT-SIGNAL-NIO-OUTP IO-OUT-SIGNAL-IO-OUT *1*IO-OUT *1*IO-OUT-SIGNAL IO-OUT-SIGNAL *1*IO-OUTP IO-OUTP IO-OUT COLLECT-VALUE-OR-UNKNOWN-OFF *1*COLLECT-VALUE-OR-UNKNOWN COLLECT-VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN-OFF *1*VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN *1*UNKNOWN *1*UNKNOWNP UNKNOWNP UNKNOWN G*1*ALL-MODULE-PROPS-OFF ALL-MODULE-PROPS-OFF *1*ALL-MODULE-PROPS ALL-MODULE-PROPS G*1*PRIMITIVE-PROPERTIES-OFF PRIMITIVE-PROPERTIES-OFF *1*PRIMITIVE-PROPERTIES PRIMITIVE-PROPERTIES LSI-NETLIST-SYNTAX-OK-OFF *1*LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-CHECK-OFF *1*LSI-NETLIST-SYNTAX-CHECK LSI-NETLIST-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK-OFF *1*LSI-MODULE-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK LSI-MODULE-OCCURRENCES-CHECK-OFF *1*LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-OUTPUTS-OK-OFF *1*LSI-MODULE-OUTPUTS-OK LSI-MODULE-OUTPUTS-OK LSI-MODULE-INPUTS-OK-OFF *1*LSI-MODULE-INPUTS-OK LSI-MODULE-INPUTS-OK LSI-MODULE-NAME-OK-OFF *1*LSI-MODULE-NAME-OK LSI-MODULE-NAME-OK LSI-OCC-BODY-SYNTAX-CHECK-OFF *1*LSI-OCC-BODY-SYNTAX-CHECK LSI-OCC-BODY-SYNTAX-CHECK UPDATE-LSI-OCC-SYNTAX-DATA-OFF *1*UPDATE-LSI-OCC-SYNTAX-DATA UPDATE-LSI-OCC-SYNTAX-DATA INITIAL-LSI-OCC-SYNTAX-DATA-OFF *1*INITIAL-LSI-OCC-SYNTAX-DATA INITIAL-LSI-OCC-SYNTAX-DATA LSI-OCC-SYNTAX-OK-OFF *1*LSI-OCC-SYNTAX-OK LSI-OCC-SYNTAX-OK LSI-OCC-INPUTS-OK-OFF *1*LSI-OCC-INPUTS-OK LSI-OCC-INPUTS-OK LSI-OCC-OUTPUTS-OK-OFF *1*LSI-OCC-OUTPUTS-OK LSI-OCC-OUTPUTS-OK LSI-OCC-NAME-OK-OFF *1*LSI-OCC-NAME-OK LSI-OCC-NAME-OK MAX-OCC-HIERARCHICAL-NAME-OFF *1*MAX-OCC-HIERARCHICAL-NAME MAX-OCC-HIERARCHICAL-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF *1*MAX-HIERARCHICAL-LENGTH-AND-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME HIERARCHICAL-NAME-MAX-OFF *1*HIERARCHICAL-NAME-MAX HIERARCHICAL-NAME-MAX NAME-LENGTH-OFF *1*NAME-LENGTH NAME-LENGTH LSI-FUNCTION-NAME-OFF *1*LSI-FUNCTION-NAME LSI-FUNCTION-NAME LSI-NAME-LIST-OK-OFF *1*LSI-NAME-LIST-OK LSI-NAME-LIST-OK LSI-NAME-LIST-ERRORS-OFF *1*LSI-NAME-LIST-ERRORS LSI-NAME-LIST-ERRORS LSI-BAD-NAMES-OFF *1*LSI-BAD-NAMES LSI-BAD-NAMES LSI-NAME-OK-OFF *1*LSI-NAME-OK LSI-NAME-OK G*1*LSI-KEYWORDS-OFF LSI-KEYWORDS-OFF *1*LSI-KEYWORDS LSI-KEYWORDS BAD-LSI-NAME-CHARS-OFF *1*BAD-LSI-NAME-CHARS BAD-LSI-NAME-CHARS DIGITP-OFF *1*DIGITP DIGITP LETTERP-OFF *1*LETTERP LETTERP NETLIST-SYNTAX-OK-OFF *1*NETLIST-SYNTAX-OK NETLIST-SYNTAX-OK NETLIST-SYNTAX-ERRORS-OFF *1*NETLIST-SYNTAX-ERRORS NETLIST-SYNTAX-ERRORS MODULE-SYNTAX-OK-OFF *1*MODULE-SYNTAX-OK MODULE-SYNTAX-OK MODULE-SYNTAX-ERRORS-OFF *1*MODULE-SYNTAX-ERRORS MODULE-SYNTAX-ERRORS MODULE-ANNOTATION-OK-OFF *1*MODULE-ANNOTATION-OK MODULE-ANNOTATION-OK MODULE-STATENAMES-OK-OFF *1*MODULE-STATENAMES-OK MODULE-STATENAMES-OK MODULE-OCCURRENCES-OK-OFF *1*MODULE-OCCURRENCES-OK MODULE-OCCURRENCES-OK STATES-LIST-OR-NIL-OFF *1*STATES-LIST-OR-NIL STATES-LIST-OR-NIL MODULE-OUTPUTS-OK-OFF *1*MODULE-OUTPUTS-OK MODULE-OUTPUTS-OK MODULE-INPUTS-OK-OFF *1*MODULE-INPUTS-OK MODULE-INPUTS-OK MODULE-NAME-OK-OFF *1*MODULE-NAME-OK MODULE-NAME-OK MODULE-FORM-OK-OFF *1*MODULE-FORM-OK MODULE-FORM-OK OCC-BODY-SYNTAX-ERRORS-OFF *1*OCC-BODY-SYNTAX-ERRORS OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS UPDATE-OCC-SYNTAX-DATA-OFF *1*UPDATE-OCC-SYNTAX-DATA UPDATE-OCC-SYNTAX-DATA INITIAL-OCC-SYNTAX-DATA-OFF *1*INITIAL-OCC-SYNTAX-DATA INITIAL-OCC-SYNTAX-DATA OCC-SYNTAX-OK-OFF *1*OCC-SYNTAX-OK OCC-SYNTAX-OK OCC-SYNTAX-ERRORS-OFF *1*OCC-SYNTAX-ERRORS OCC-SYNTAX-ERRORS OCC-ANNOTATION-OK-OFF *1*OCC-ANNOTATION-OK OCC-ANNOTATION-OK OCC-FUNCTION-OK-OFF *1*OCC-FUNCTION-OK OCC-FUNCTION-OK OCC-INPUTS-OK-OFF *1*OCC-INPUTS-OK OCC-INPUTS-OK OCC-OUTPUTS-OK-OFF *1*OCC-OUTPUTS-OK OCC-OUTPUTS-OK OCC-NAME-OK-OFF *1*OCC-NAME-OK OCC-NAME-OK OCC-FORM-OK-OFF *1*OCC-FORM-OK OCC-FORM-OK OCC-ARG-LENGTH-ERROR-OFF *1*OCC-ARG-LENGTH-ERROR OCC-ARG-LENGTH-ERROR NAME-LIST-OK-OFF *1*NAME-LIST-OK NAME-LIST-OK NAME-LIST-ERRORS-OFF *1*NAME-LIST-ERRORS NAME-LIST-ERRORS BAD-NAMES-OFF *1*BAD-NAMES BAD-NAMES NAME-OKP-OFF *1*NAME-OKP NAME-OKP *1*TOP-LEVEL-PREDICATE-SIMPLE TOP-LEVEL-PREDICATE-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE-OFF *1*LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE-OFF *1*COLLECT-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE-OFF *1*COLLECT-LOADINGS-SIMPLE COLLECT-LOADINGS-SIMPLE EXTERNAL-LOADING-OFF *1*EXTERNAL-LOADING EXTERNAL-LOADING NET-DRIVES-OFF *1*NET-DRIVES NET-DRIVES FIX-DRIVES-OFF *1*FIX-DRIVES FIX-DRIVES FIX-LOADINGS-OFF *1*FIX-LOADINGS FIX-LOADINGS SUM-LOADINGS-OFF *1*SUM-LOADINGS SUM-LOADINGS SUM-LOADING-OFF *1*SUM-LOADING SUM-LOADING EXTRACT-NAMES-SIMPLE-OFF *1*EXTRACT-NAMES-SIMPLE EXTRACT-NAMES-SIMPLE SUM-NUMBERS-OFF *1*SUM-NUMBERS SUM-NUMBERS ADD-LOADING-SIMPLES-OFF *1*ADD-LOADING-SIMPLES ADD-LOADING-SIMPLES ADD-LOADING-SIMPLE-OFF *1*ADD-LOADING-SIMPLE ADD-LOADING-SIMPLE PARENT-SYNONYM-SIMPLE-OFF *1*PARENT-SYNONYM-SIMPLE PARENT-SYNONYM-SIMPLE FIX-DEPENDENT-LDS-OFF *1*FIX-DEPENDENT-LDS FIX-DEPENDENT-LDS APPLY-STATE-SIMPLE-OKP-OFF *1*APPLY-STATE-SIMPLE-OKP APPLY-STATE-SIMPLE-OKP STATE-SIMPLE-OKP-OFF *1*STATE-SIMPLE-OKP STATE-SIMPLE-OKP NETLIST-STATE-TYPES-SIMPLE-OFF *1*NETLIST-STATE-TYPES-SIMPLE NETLIST-STATE-TYPES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF *1*STATE-TYPE-REQUIREMENT-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE MAKE-RAM-STATE-OFF *1*MAKE-RAM-STATE MAKE-RAM-STATE ARG-TYPES-SIMPLE-OKP-OFF *1*ARG-TYPES-SIMPLE-OKP ARG-TYPES-SIMPLE-OKP ARG-TYPES-MATCH-SIMPLEP-OFF *1*ARG-TYPES-MATCH-SIMPLEP ARG-TYPES-MATCH-SIMPLEP NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF *1*NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPES-ACCEPTABLE-LIST-OFF *1*NETLIST-TYPES-ACCEPTABLE-LIST NETLIST-TYPES-ACCEPTABLE-LIST TYPES-ACCEPTABLEP-OFF *1*TYPES-ACCEPTABLEP TYPES-ACCEPTABLEP NETLIST-TYPE-TABLE-SIMPLE-OFF *1*NETLIST-TYPE-TABLE-SIMPLE NETLIST-TYPE-TABLE-SIMPLE IO-TYPES-SIMPLE-OFF *1*IO-TYPES-SIMPLE IO-TYPES-SIMPLE FIX-DEPENDENT-TYPES-OFF *1*FIX-DEPENDENT-TYPES FIX-DEPENDENT-TYPES UPDATE-KNOWN-TYPES-OFF *1*UPDATE-KNOWN-TYPES UPDATE-KNOWN-TYPES ADD-NEW-TYPE-OFF *1*ADD-NEW-TYPE ADD-NEW-TYPE COLLECT-TYPES-OFF *1*COLLECT-TYPES COLLECT-TYPES TYPE-VALUE-SIMPLE-OFF *1*TYPE-VALUE-SIMPLE TYPE-VALUE-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE-OFF *1*OUTPUT-DEPENDENCIES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE SIMPLE-DEPENDENCY-TABLE-OFF *1*SIMPLE-DEPENDENCY-TABLE SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE-OFF *1*OUT-DEPENDS-SIMPLE OUT-DEPENDS-SIMPLE NETLIST-SYNTAX-SIMPLE-OKP-OFF *1*NETLIST-SYNTAX-SIMPLE-OKP NETLIST-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP-OFF *1*MODULE-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP-OFF *1*OCC-BODY-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP-OFF *1*OCC-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP NAME-LIST-SIMPLE-OKP-OFF *1*NAME-LIST-SIMPLE-OKP NAME-LIST-SIMPLE-OKP NAME-SIMPLE-OKP-OFF *1*NAME-SIMPLE-OKP NAME-SIMPLE-OKP LIST-COLLECT-VALUE-OFF *1*LIST-COLLECT-VALUE LIST-COLLECT-VALUE LABEL-ERROR-OFF *1*LABEL-ERROR LABEL-ERROR ALL-BOUND-OR-ERR-OFF *1*ALL-BOUND-OR-ERR ALL-BOUND-OR-ERR DISJOINT-OR-ERR-OFF *1*DISJOINT-OR-ERR DISJOINT-OR-ERR NO-DUPLICATES-OR-ERR-OFF *1*NO-DUPLICATES-OR-ERR NO-DUPLICATES-OR-ERR SUBSET-OR-ERR-OFF *1*SUBSET-OR-ERR SUBSET-OR-ERR NIL-OR-ERR-OFF *1*NIL-OR-ERR NIL-OR-ERR NLISTP-OR-ERR-OFF *1*NLISTP-OR-ERR NLISTP-OR-ERR T-OR-ERR-OFF *1*T-OR-ERR T-OR-ERR ERR-AND-OFF *1*ERR-AND ERR-AND COLLECT-NET-ERRORS-OFF *1*COLLECT-NET-ERRORS COLLECT-NET-ERRORS NET-ERRORS-OFF *1*NET-ERRORS NET-ERRORS ERROR-ENTRY-OFF *1*ERROR-ENTRY ERROR-ENTRY PRED-ERROR-OFF *1*PRED-ERROR PRED-ERROR REPORT-ERROR-OFF *1*REPORT-ERROR REPORT-ERROR COUNT-NET-ERROR ERROR-LABEL-ERROR-BODY-ELIM NET-ERROR-ERROR-LABEL-ERROR-BODY NET-ERROR-EQUAL ERROR-BODY-LESSEQP ERROR-BODY-LESSP ERROR-BODY-NNET-ERRORP ERROR-BODY-NET-ERROR ERROR-LABEL-LESSEQP ERROR-LABEL-LESSP ERROR-LABEL-NNET-ERRORP ERROR-LABEL-NET-ERROR *1*NET-ERROR *1*ERROR-BODY ERROR-BODY *1*ERROR-LABEL ERROR-LABEL *1*NET-ERRORP NET-ERRORP NET-ERROR LIST-LIST-SORT-OFF *1*LIST-LIST-SORT LIST-LIST-SORT LIST-SORT-OFF *1*LIST-SORT LIST-SORT DELETE*-LEMMA DELETE*-COUNT MIN-TOKEN-LEMMA MIN-TOKEN-HELP-LEMMA MIN-TOKEN-OFF *1*MIN-TOKEN MIN-TOKEN MIN-TOKEN-HELP-OFF *1*MIN-TOKEN-HELP MIN-TOKEN-HELP TOKEN-LESSP-OFF *1*TOKEN-LESSP TOKEN-LESSP LIST-LESSP-OFF *1*LIST-LESSP LIST-LESSP M-STATES-LIST-OFF *1*M-STATES-LIST M-STATES-LIST LOOKUP-MODULE-IN-UNBIND-LIST-OFF UNBIND-LIST-OFF UNBIND-OFF BOUNDP-OFF LESSP-UNBIND-LIST-COUNT LOOKUP-MODULE-IN-DELETE-MODULE-OFF LOOKUP-MODULE-IN-UNBIND-LIST LOOKUP-MODULE-IN-DELETE-MODULE *1*UNBIND-LIST UNBIND-LIST UNBOUND-KEYS-OFF *1*UNBOUND-KEYS UNBOUND-KEYS LIST-UNION-VALUES-OFF *1*LIST-UNION-VALUES LIST-UNION-VALUES UNION-VALUES-OFF *1*UNION-VALUES UNION-VALUES SET-VALUE-OFF *1*SET-VALUE SET-VALUE *1*UNBIND UNBIND ALIST-ENTRY-OFF *1*ALIST-ENTRY ALIST-ENTRY *1*BOUNDP BOUNDP ALISTP-OFF *1*ALISTP ALISTP LISTIFY-OFF *1*LISTIFY LISTIFY IS-HEAD-OFF *1*IS-HEAD IS-HEAD FLATTEN-LIST-OFF *1*FLATTEN-LIST FLATTEN-LIST APPEND-LIST-OFF *1*APPEND-LIST APPEND-LIST REMOVE-DUPLICATES-OFF *1*REMOVE-DUPLICATES REMOVE-DUPLICATES LIST-DUPLICATES-OFF *1*LIST-DUPLICATES LIST-DUPLICATES LAST-CDR-OFF *1*LAST-CDR LAST-CDR INTERSECTION-OFF *1*INTERSECTION INTERSECTION SET-DIFF-OFF *1*SET-DIFF SET-DIFF SET-EQUAL-OFF *1*SET-EQUAL SET-EQUAL INSERT-OFF *1*INSERT INSERT MIN-OFF *1*MIN MIN OPEN-SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2-OFF *1*SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2 *1*SIMULATE SIMULATE OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS-OFF *1*DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL-OFF *1*DUAL-EVAL DUAL-EVAL DUAL-APPLY-STATE-OFF *1*DUAL-APPLY-STATE DUAL-APPLY-STATE DUAL-APPLY-VALUE-OFF *1*DUAL-APPLY-VALUE DUAL-APPLY-VALUE *1*PRIMP2 PRIMP2 *1*PRIMP-LOOKUP PRIMP-LOOKUP NOT-LITATOM==>NOT-PRIMP PRIMP-OFF *1*PRIMP PRIMP *1*OCC-ANNOTATION OCC-ANNOTATION *1*OCC-INPUTS OCC-INPUTS *1*OCC-FUNCTION OCC-FUNCTION *1*OCC-OUTPUTS OCC-OUTPUTS *1*OCC-NAME OCC-NAME *1*MODULE-ANNOTATION MODULE-ANNOTATION *1*MODULE-STATENAMES MODULE-STATENAMES *1*MODULE-OCCURRENCES MODULE-OCCURRENCES *1*MODULE-OUTPUTS MODULE-OUTPUTS *1*MODULE-INPUTS MODULE-INPUTS *1*MODULE-NAME MODULE-NAME *1*COLLECT-STATES COLLECT-STATES *1*PAIRSTATES PAIRSTATES DELETE-MODULE-LOOKUP-MODULE-COUNT DELETE-MODULE-OFF *1*DELETE-MODULE DELETE-MODULE LOOKUP-MODULE-OFF *1*LOOKUP-MODULE LOOKUP-MODULE *1*PRIMP-DATABASE PRIMP-DATABASE VFT-BUF-REWRITE-OFF VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF VFT-BUF-OFF *1*VFT-BUF VFT-BUF V-THREEFIX-FV-SHIFT-RIGHT PROPERP-LENGTH-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-SHIFT-RIGHT-OFF *1*FV-SHIFT-RIGHT FV-SHIFT-RIGHT V-PULLUP-MAKE-LIST-Z V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP V-PULLUP-OFF *1*V-PULLUP V-PULLUP V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X V-WIRE-OFF *1*V-WIRE V-WIRE FV-IF-V-THREEFIX FV-IF-REWRITE-OFF FV-IF-REWRITE FV-IF-WHEN-BVP FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF FV-IF-OFF *1*FV-IF FV-IF FV-XOR=V-XOR PROPERP-LENGTH-FV-XOR FV-XOR-OFF *1*FV-XOR FV-XOR FV-OR=V-OR PROPERP-LENGTH-FV-OR FV-OR-OFF *1*FV-OR FV-OR F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS-OFF F-BUF-DELETE-LEMMAS F-NOT-F-NOT=F-BUF-OFF F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA-OFF THREEFIX-HELP-LEMMA F-PULLUP-REWRITE FT-WIRE-REWRITE F-IF-REWRITE FT-BUF-REWRITE F-NOT-REWRITE F-OR-REWRITE F-AND-REWRITE F-BUF-LEMMA EXPAND-F-FUNCTIONS-OFF EXPAND-F-FUNCTIONS *1*F$AO2 F$AO2 *1*F-PULLUP F-PULLUP *1*FT-WIRE FT-WIRE *1*FT-BUF FT-BUF *1*F-IF F-IF *1*F-EQUV3 F-EQUV3 *1*F-EQUV F-EQUV *1*F-XOR3 F-XOR3 *1*F-XOR F-XOR *1*F-NOR8 F-NOR8 *1*F-NOR6 F-NOR6 *1*F-NOR5 F-NOR5 *1*F-NOR4 F-NOR4 *1*F-NOR3 F-NOR3 *1*F-NOR F-NOR *1*F-OR4 F-OR4 *1*F-OR3 F-OR3 *1*F-OR F-OR *1*F-NAND8 F-NAND8 *1*F-NAND6 F-NAND6 *1*F-NAND5 F-NAND5 *1*F-NAND4 F-NAND4 *1*F-NAND3 F-NAND3 *1*F-NAND F-NAND *1*F-NOT F-NOT *1*F-AND4 F-AND4 *1*F-AND3 F-AND3 *1*F-AND F-AND *1*F-BUF F-BUF TREE-NUMBER-OFF *1*TREE-NUMBER TREE-NUMBER *1*COLLECT-BREADTH-TREE COLLECT-BREADTH-TREE *1*BREADTH-TREE BREADTH-TREE *1*FIX-BREADTH-TREE-STACK FIX-BREADTH-TREE-STACK PROPERP-LENGTH-NEXT-MEMORY-STATE *1*NEXT-MEMORY-STATE$INDUCTION NEXT-MEMORY-STATE$INDUCTION EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE MEM-STATE-OFF *1*MEM-STATE MEM-STATE MEM-VALUE-OFF *1*MEM-VALUE MEM-VALUE MEMORY-VALUE-OFF *1*MEMORY-VALUE MEMORY-VALUE NEXT-MEMORY-STATE-OFF *1*NEXT-MEMORY-STATE NEXT-MEMORY-STATE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE *1*DUAL-PORT-RAM-STATE DUAL-PORT-RAM-STATE *1*DUAL-PORT-RAM-VALUE DUAL-PORT-RAM-VALUE MEMORY-OKP==>MEMORY-PROPERP ALL-RAMP-MEM-CONSTANT-RAM ALL-RAMP-MEM-AFTER-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM ALL-RAMP-MEM->RAMP-MEM1 BVP-READ-MEM-32 BVP-READ-MEM BVP-READ-MEM1 PROPERP-READ-MEM-32 PROPERP-READ-MEM PROPERP-READ-MEM1 READ-MEM-WRITE-MEM NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM MEMORY-OKP-IF MEMORY-PROPERP-IF CONSTANT-RAM-OFF *1*CONSTANT-RAM CONSTANT-RAM ALL-RAMP-MEM-OFF *1*ALL-RAMP-MEM ALL-RAMP-MEM RAMP-MEM-OFF *1*RAMP-MEM RAMP-MEM RAMP-MEM1-OFF *1*RAMP-MEM1 RAMP-MEM1 WRITE-MEM-OFF *1*WRITE-MEM WRITE-MEM WRITE-MEM1-OFF *1*WRITE-MEM1 WRITE-MEM1 READ-MEM-OFF *1*READ-MEM READ-MEM READ-MEM1-OFF *1*READ-MEM1 READ-MEM1 MEMORY-OKP-OFF *1*MEMORY-OKP MEMORY-OKP MEMORY-PROPERP-OFF *1*MEMORY-PROPERP MEMORY-PROPERP COUNT-STUB STUB-GUTS-ELIM STUB-STUB-GUTS STUB-EQUAL STUB-GUTS-LESSEQP STUB-GUTS-LESSP STUB-GUTS-NSTUBP STUB-GUTS-STUB *1*STUB *1*STUB-GUTS STUB-GUTS *1*STUBP STUBP STUB COUNT-RAM RAM-GUTS-ELIM RAM-RAM-GUTS RAM-EQUAL RAM-GUTS-LESSEQP RAM-GUTS-LESSP RAM-GUTS-NRAMP RAM-GUTS-RAM *1*RAM *1*RAM-GUTS RAM-GUTS *1*RAMP RAMP RAM COUNT-ROM ROM-GUTS-ELIM ROM-ROM-GUTS ROM-EQUAL ROM-GUTS-LESSEQP ROM-GUTS-LESSP ROM-GUTS-NROMP ROM-GUTS-ROM *1*ROM *1*ROM-GUTS ROM-GUTS *1*ROMP ROMP ROM COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS *1*CDR-CDR-SUB1-SUB1-INDUCTION CDR-CDR-SUB1-SUB1-INDUCTION COLLECT-VALUE-MAKE-LIST COLLECT-VALUE-SPLITTING-CROCK COLLECT-VALUE-SPLITTING-CROCK-HELPER COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE SINGLETON-COLLECT-VALUE COLLECT-VALUE-CONS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN EQUAL-COLLECT-VALUE-PROMOTE-ALISTS COLLECT-VALUE-LITATOM-INDICES-SPEEDUP COLLECT-VALUE-DISJOINT-PAIRLIST COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET LENGTH-COLLECT-VALUE COLLECT-VALUE-APPEND LISTP-COLLECT-VALUE COLLECT-VALUE-NLISTP VALUE-INDICES-HACK VALUE-PAIRLIST-OFF VALUE-PAIRLIST VALUE-APPEND-PAIRLIST REWRITE-VALUE-4X REWRITE-VALUE COLLECT-VALUE-OFF *1*COLLECT-VALUE COLLECT-VALUE VALUE-OFF *1*VALUE VALUE BOOLP-IF* BVP-SUBRANGE V-IFF=EQUAL V-IFF-REVERSE V-IFF-REV1 V-IFF-X-X V-IFF-OFF *1*V-IFF V-IFF V-THREEFIX-V-FOURFIX V-FOURFIX-MAKE-LIST BVP-V-FOURFIX V-FOURFIX-OFF *1*V-FOURFIX V-FOURFIX V-THREEFIX-MAKE-LIST-X BVP-V-THREEFIX V-THREEFIX-IDEMPOTENCE V-THREEFIX-APPEND-OFF V-THREEFIX-APPEND APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP OPEN-V-THREEFIX V-THREEFIX-OFF *1*V-THREEFIX V-THREEFIX V-ADDER-WORKS V-IF-WORKS V-BUF-WORKS BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-SUBTRACTER-OUTPUT LENGTH-OF-V-ADDER-OUTPUT BVP-V-ADDER LENGTH-OF-V-ADDER V-DEC-OFF *1*V-DEC V-DEC V-INC-OFF *1*V-INC V-INC *1*V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-OVERFLOWP *1*V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-CARRY-OUT *1*V-SUBTRACTER-OUTPUT V-SUBTRACTER-OUTPUT *1*V-ADDER-OVERFLOWP V-ADDER-OVERFLOWP *1*V-ADDER-CARRY-OUT V-ADDER-CARRY-OUT *1*V-ADDER-OUTPUT V-ADDER-OUTPUT V-ADDER-OFF *1*V-ADDER V-ADDER SIGN-EXTEND-AS-APPEND-OFF SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND LENGTH-SIGN-EXTEND SIGN-EXTEND-OFF *1*SIGN-EXTEND SIGN-EXTEND V-NEGP-AS-NTH-OFF V-NEGP-AS-NTH BOOLP-V-NEGP V-NEGP-OFF *1*V-NEGP V-NEGP NOT-V-NZEROP-ALL-F V-ZEROP-MAKE-LIST-F V-XOR-NZEROP=NOT-EQUAL NOT-V-NZEROP-V-XOR-X-X NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK *1*V-ZEROP V-ZEROP V-NZEROP-OFF *1*V-NZEROP V-NZEROP UPDATE-V-NTH-OFF *1*UPDATE-V-NTH UPDATE-V-NTH V-NTH-OFF *1*V-NTH V-NTH ANY-OF-NAT-TO-V-0-IS-F CAR-NAT-TO-V-0-IS-F BVP-NAT-TO-V LENGTH-NAT-TO-V RESTN-NAT-TO-V-0-HACK FIRSTN-NAT-TO-V NAT-TO-V-OFF *1*NAT-TO-V NAT-TO-V V-TO-NAT-OFF *1*V-TO-NAT V-TO-NAT V-OR-MAKE-LIST-F V-NOT-INVERTS-ALL RESTN-V-NOT-OFF RESTN-V-NOT FIRSTN-V-NOT-OFF FIRSTN-V-NOT V-NOT-RESTN V-NOT-FIRSTN V-IF-C-CONGRUENCE V-IF-APPEND-HELP V-BUF-APPEND-HELP V-NOT-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP LENGTH-V-IF LENGTH-V-ROR LENGTH-V-ASR LENGTH-V-LSR LENGTH-V-SHIFT-RIGHT LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF BVP-V-IF BVP-V-ROR BVP-V-ASR BVP-V-LSR BVP-V-SHIFT-RIGHT BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF V-IF-OFF *1*V-IF V-IF *1*V-ASR V-ASR *1*V-ROR V-ROR *1*V-LSR V-LSR V-SHIFT-RIGHT-OFF *1*V-SHIFT-RIGHT V-SHIFT-RIGHT V-XOR-OFF *1*V-XOR V-XOR V-OR-OFF *1*V-OR V-OR V-AND-OFF *1*V-AND V-AND V-NOT-OFF *1*V-NOT V-NOT V-BUF-OFF *1*V-BUF V-BUF *1*VDD VDD *1*VSS VSS *1*AO7 AO7 *1*AO6 AO6 *1*AO4 AO4 *1*AO2 AO2 *1*ID ID BOOLP-B-GATES-OFF BOOLP-B-GATES B-GATES B-BUF-X=X B-AND-REWRITE OPEN-B-EQUV3 OPEN-B-EQUV OPEN-B-XOR3 OPEN-B-XOR *1*B-IF B-IF *1*B-NOR8 B-NOR8 *1*B-NOR6 B-NOR6 *1*B-NOR5 B-NOR5 *1*B-NOR4 B-NOR4 *1*B-NOR3 B-NOR3 *1*B-NOR B-NOR *1*B-AND4 B-AND4 *1*B-AND3 B-AND3 *1*B-AND B-AND *1*B-EQUV3 B-EQUV3 *1*B-EQUV B-EQUV *1*B-XOR3 B-XOR3 *1*B-XOR B-XOR *1*B-OR4 B-OR4 *1*B-OR3 B-OR3 *1*B-OR B-OR *1*B-NAND8 B-NAND8 *1*B-NAND6 B-NAND6 *1*B-NAND5 B-NAND5 *1*B-NAND4 B-NAND4 *1*B-NAND3 B-NAND3 *1*B-NAND B-NAND *1*B-NOT B-NOT *1*B-BUF B-BUF *1*XOR XOR ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH BOOLP-NTH SHOW-THAT-NTH=T-OFF SHOW-THAT-NTH=T BVP-LENGTH-RESTN BOOLP-CAR-X BOOLFIX-CAR-X=X BVP-LENGTH-CDR BVP-LENGTH-OFF *1*BVP-LENGTH BVP-LENGTH *1*BV2P BV2P BVP-IF* BVP-IF BVP-NTHCDR BVP-MAKE-LIST BVP-IS-PROPERP BVP-APPEND BVP-RESTN BVP-FIRSTN BVP-CONS BVP-NLISTP BVP-OFF *1*BVP BVP *1*FOURFIX FOURFIX *1*FOURP FOURP THREEFIX=X-OFF THREEFIX=X THREEFIX-IDEMPOTENT *1*THREEFIX THREEFIX *1*THREEP THREEP *1*BOOLFIX BOOLFIX BOOLP-IMPLIES-NOT-EQUAL-Z-OFF BOOLP-IMPLIES-NOT-EQUAL-Z BOOLP-LEMMAS PROVE-BOOLP BOOLP-OFF *1*BOOLP BOOLP *1*Z *1*ZP ZP Z *1*X *1*XP XP X NTH-INDICES-OFF NTH-INDICES POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LISTP-INDICES LENGTH-INDICES INDICES-AS-APPEND-OFF INDICES-AS-APPEND OPEN-INDICES INDICES-ZEROP INDICES-OFF *1*INDICES INDICES *1*LNFIX LNFIX COUNT-INDEX I-NAME-I-NUM-ELIM INDEX-I-NAME-I-NUM INDEX-EQUAL I-NUM-LESSEQP I-NUM-LESSP I-NUM-TYPE-RESTRICTION I-NUM-NINDEXP I-NUM-INDEX I-NAME-LESSEQP I-NAME-LESSP I-NAME-TYPE-RESTRICTION I-NAME-NINDEXP I-NAME-INDEX *1*INDEX *1*I-NUM I-NUM *1*I-NAME I-NAME *1*INDEXP INDEXP INDEX EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH OPEN-LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH-OFF *1*LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH LIST-ELIM-4-OFF LIST-ELIM-4 LIST-REWRITE-4-OFF LIST-REWRITE-4 LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE-OFF *1*MAKE-TREE MAKE-TREE TREE-HEIGHT-OFF *1*TREE-HEIGHT TREE-HEIGHT *1*TRESTN TRESTN *1*TFIRSTN TFIRSTN MAKE-LIST-APPEND-TREE-CROCK-OFF MAKE-LIST-APPEND-TREE-CROCK TREE-SIZE-LEMMAS A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS TREE-SIZE-1-CROCK NOT-EQUAL-TREE-SIZE-TREE-0 TREE-SIZE-NLISTP TREE-SIZE-OFF *1*TREE-SIZE TREE-SIZE FIRSTN-MAKE-LIST PROPERP-MAKE-LIST MAKE-LIST-APPEND LENGTH-MAKE-LIST OPEN-MAKE-LIST-OFF OPEN-MAKE-LIST MAKE-LIST-OFF *1*MAKE-LIST MAKE-LIST UPDATE-NTH-OFF *1*UPDATE-NTH UPDATE-NTH OPEN-SUBRANGE-OFF OPEN-SUBRANGE DISJOINT-SUBRANGE NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE LISTP-SUBRANGE SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE SUBRANGE-CONS-OFF SUBRANGE-CONS PROPERP-SUBRANGE SUBRANGE-OFF *1*SUBRANGE SUBRANGE LISTP-NTHCDR CDR-NTHCDR-OFF CDR-NTHCDR PROPERP-AS-NULL-NTHCDR-OFF PROPERP-AS-NULL-NTHCDR OPEN-NTHCDR NTHCDR-OFF *1*NTHCDR NTHCDR NTH-APPEND-TOO NTH-APPEND NTH-RESTN-OFF NTH-RESTN NTH-IF-OFF NTH-IF OPEN-NTH-OFF OPEN-NTH NTH-OFF *1*NTH NTH PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP PROPERP-PAIRLIST PAIRLIST-APPEND PAIRLIST-CONS PAIRLIST-NLISTP PAIRLIST-OFF APPEND-FIRSTN-RESTN NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN-RESTN-LEMMAS CDR-RESTN-OFF CDR-RESTN TOO-MANY-RESTNS RESTN-APPEND PROPERP-RESTN DISJOINT-RESTN1 DISJOINT-RESTN SUBSET-RESTN NOT-MEMBER-RESTN NOT-DUPLICATES?-RESTN LENGTH-RESTN RESTN-OFF *1*RESTN RESTN FIRSTN-APPEND PROPERP-FIRSTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN FIRSTN-BOTTOM SUBSET-FIRSTN NOT-DUPLICATES?-FIRSTN NOT-MEMBER-FIRSTN CAR-FIRSTN LENGTH-FIRSTN2 LENGTH-FIRSTN1 LENGTH-FIRSTN FIRSTN-OFF *1*FIRSTN FIRSTN DUPLICATES-APPEND DUPLICATES?-CONS DUPLICATES?-OFF *1*DUPLICATES? DUPLICATES? DISJOINT-APPEND DISJOINT-CONS DISJOINT-NLISTP DISJOINT-OFF *1*DISJOINT DISJOINT SUBSET-X-X SUBSET-APPEND SUBSET-X-CONS-Y-Z SUBSET-CONS SUBSET-NLISTP SUBSET-OFF *1*SUBSET SUBSET DELETE*-OFF *1*DELETE* DELETE* LENGTH-REVERSE LENGTH-REV1 REVERSE-OFF *1*REVERSE REVERSE REV1-OFF *1*REV1 REV1 LENGTH-IF* LENGTH-IF EQUAL-LENGTH-CDR LENGTH-CDR EQUAL-LENGTH-ADD1-OFF EQUAL-LENGTH-ADD1 LENGTH-CDR-LEMMAS LENGTH-APPEND LENGTH-CONS LENGTH-1 LENGTH-BOTTOM LENGTH-NLISTP LENGTH-OFF *1*LENGTH LENGTH MEMBER==>POSITION POSITION-OFF *1*POSITION POSITION PROPERP-IF* PROPERP-APPEND-NIL PROPERP-APPEND PROPERP-CONS PROPERP-NLISTP PROPERP-IF PROPERP-OFF *1*PROPERP PROPERP EQUAL-APPEND-X-X ASSOCIATIVITY-OF-APPEND OUR-MEMBER-APPEND APPEND-CONS APPEND-NLISTP *1*APPEND8 APPEND8 *1*APPEND7 APPEND7 *1*APPEND6 APPEND6 *1*APPEND5 APPEND5 APPEND-OFF LEQ-LESSP-DIFFERENCE LESSP-X-1 LESSP-SUB1-X-X LESSP-SUB1-X-Y-CROCK LESSP-X-X ZEROP-QUOTIENT QUOTIENT-LESSP TIMES-COMMUTES TIMES-ADD1-AGAIN TIMES-1 TIMES-BOTTOM LESSP-DIFFERENCE=0 NOT-LESSP-DIFFERENCE DIFFERENCE-ADD1-ADD1 DIFFERENCE-0 OUR-EQUAL-DIFFERENCE-0 OUR-DIFFERENCE-X-X DIFFERENCE-X-1 DIFFERENCE-OFF PLUS-ADD1-SUB1 PLUS-BOTTOM PLUS-ADD1 PLUS-0 PLUS-OFF OUR-CAR-CDR-ELIM-OFF OUR-CAR-CDR-ELIM CAR-CDR-IF-CONS EXPAND-*-CONNECTIVES-OFF EXPAND-*-CONNECTIVES REWRITE-OR* REWRITE-AND* REWRITE-NOT* IF*-CONS IF*-C-X-X SIMPLIFY-IF* PROP*-THEORY NOT*-OFF *1*NOT* NOT* AND*-OFF *1*AND* AND* OR*-OFF *1*OR* OR* IF*-OFF *1*IF* IF* G*1*DELETE-OFF DELETE-OFF G*1*BAGDIFF-OFF BAGDIFF-OFF G*1*BAGINT-OFF BAGINT-OFF G*1*OCCURRENCES-OFF OCCURRENCES-OFF G*1*SUBBAGP-OFF SUBBAGP-OFF DELETE-NON-MEMBER-OFF DELETE-DELETE-OFF EQUAL-OCCURRENCES-ZERO-OFF MEMBER-NON-LIST-OFF MEMBER-DELETE-OFF MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF OCCURRENCES-DELETE-OFF MEMBER-BAGDIFF-OFF BAGDIFF-DELETE-OFF SUBBAGP-DELETE-OFF SUBBAGP-CDR1-OFF SUBBAGP-CDR2-OFF SUBBAGP-BAGINT1-OFF SUBBAGP-BAGINT2-OFF OCCURRENCES-BAGINT-OFF OCCURRENCES-BAGDIFF-OFF MEMBER-BAGINT-OFF EQUAL-PLUS-0-OFF EQUAL-DIFFERENCE-0-OFF COMMUTATIVITY-OF-PLUS-OFF COMMUTATIVITY2-OF-PLUS-OFF PLUS-ZERO-ARG2-OFF PLUS-ADD1-ARG1-OFF PLUS-ADD1-ARG2-OFF ASSOCIATIVITY-OF-PLUS-OFF PLUS-DIFFERENCE-ARG1-OFF PLUS-DIFFERENCE-ARG2-OFF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF DIFF-DIFF-ARG1-OFF DIFF-DIFF-ARG2-OFF G*1*PLUS-FRINGE-OFF PLUS-FRINGE-OFF G*1*PLUS-TREE-OFF PLUS-TREE-OFF EVAL$-QUOTE-OFF1 G*1*CANCEL-EQUAL-PLUS-OFF CANCEL-EQUAL-PLUS-OFF CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF G*1*CANCEL-DIFFERENCE-PLUS-OFF CANCEL-DIFFERENCE-PLUS-OFF CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF DIFFERENCE-ELIM-OFF DIFFERENCE-LEQ-ARG1-OFF DIFFERENCE-ADD1-ARG2-OFF DIFFERENCE-SUB1-ARG2-OFF DIFFERENCE-DIFFERENCE-ARG1-OFF DIFFERENCE-DIFFERENCE-ARG2-OFF DIFFERENCE-X-X-OFF G*1*CANCEL-LESSP-PLUS-OFF CANCEL-LESSP-PLUS-OFF CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF EQUAL-TIMES-0-OFF EQUAL-TIMES-1-OFF EQUAL-SUB1-0-OFF TIMES-ZERO-OFF TIMES-ADD1-OFF COMMUTATIVITY-OF-TIMES-OFF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF TIMES-DISTRIBUTES-OVER-PLUS-OFF COMMUTATIVITY2-OF-TIMES-OFF ASSOCIATIVITY-OF-TIMES-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF TIMES-QUOTIENT-PROOF-OFF TIMES-QUOTIENT-OFF TIMES-1-ARG1-OFF LESSP-TIMES1-PROOF-OFF LESSP-TIMES1-OFF LESSP-TIMES2-PROOF-OFF LESSP-TIMES2-OFF LESSP-TIMES3-PROOF1-OFF LESSP-TIMES3-PROOF2-OFF LESSP-TIMES3-OFF LESSP-TIMES-CANCELLATION-PROOF-OFF LESSP-PLUS-TIMES-PROOF-OFF LESSP-PLUS-TIMES1-OFF LESSP-PLUS-TIMES2-OFF LESSP-1-TIMES-OFF G*1*TIMES-TREE-OFF TIMES-TREE-OFF G*1*TIMES-FRINGE-OFF TIMES-FRINGE-OFF G*1*OR-ZEROP-TREE-OFF OR-ZEROP-TREE-OFF G*1*AND-NOT-ZEROP-TREE-OFF AND-NOT-ZEROP-TREE-OFF EVAL$-EQUAL-OFF1 LESSP-TIMES-ARG1-OFF INFER-EQUALITY-FROM-NOT-LESSP-OFF G*1*CANCEL-LESSP-TIMES-OFF CANCEL-LESSP-TIMES-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF G*1*CANCEL-EQUAL-TIMES-OFF CANCEL-EQUAL-TIMES-OFF CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF LESSP-REMAINDER-OFF REMAINDER-NOOP-OFF REMAINDER-OF-NON-NUMBER-OFF REMAINDER-ZERO-OFF REMAINDER-QUOTIENT-ELIM-OFF REMAINDER-ADD1-OFF REMAINDER-PLUS-PROOF-OFF REMAINDER-PLUS-OFF EQUAL-REMAINDER-PLUS-0-PROOF-OFF EQUAL-REMAINDER-PLUS-0-OFF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF REMAINDER-TIMES1-PROOF-OFF REMAINDER-TIMES1-OFF REMAINDER-TIMES1-INSTANCE-PROOF-OFF REMAINDER-TIMES1-INSTANCE-OFF REMAINDER-TIMES-TIMES-PROOF-OFF REMAINDER-TIMES2-PROOF-OFF REMAINDER-TIMES2-OFF REMAINDER-TIMES2-INSTANCE-OFF REMAINDER-DIFFERENCE1-OFF G*1*DOUBLE-REMAINDER-INDUCTION-OFF DOUBLE-REMAINDER-INDUCTION-OFF REMAINDER-DIFFERENCE2-OFF REMAINDER-PLUS-FACT-OFF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF REMAINDER-PLUS-TIMES-TIMES-OFF REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF REMAINDER-REMAINDER-OFF REMAINDER-1-ARG1-OFF REMAINDER-1-ARG2-OFF REMAINDER-X-X-OFF TRANSITIVITY-OF-DIVIDES-OFF QUOTIENT-NOOP-OFF QUOTIENT-OF-NON-NUMBER-OFF QUOTIENT-ZERO-OFF QUOTIENT-ADD1-OFF EQUAL-QUOTIENT-0-OFF QUOTIENT-SUB1-OFF QUOTIENT-PLUS-PROOF-OFF QUOTIENT-PLUS-OFF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF QUOTIENT-TIMES-PROOF-OFF QUOTIENT-TIMES-OFF QUOTIENT-TIMES-INSTANCE-OFF QUOTIENT-TIMES-TIMES-PROOF-OFF QUOTIENT-DIFFERENCE1-OFF QUOTIENT-LESSP-ARG1-OFF QUOTIENT-DIFFERENCE2-OFF QUOTIENT-DIFFERENCE3-OFF QUOTIENT-REMAINDER-TIMES-OFF QUOTIENT-REMAINDER-OFF QUOTIENT-REMAINDER-INSTANCE-OFF QUOTIENT-PLUS-FACT-OFF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF QUOTIENT-PLUS-TIMES-TIMES-OFF QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF QUOTIENT-QUOTIENT-OFF LEQ-QUOTIENT-OFF QUOTIENT-1-ARG2-OFF QUOTIENT-1-ARG1-CASESPLIT-OFF QUOTIENT-1-ARG1-OFF QUOTIENT-X-X-OFF LESSP-QUOTIENT-OFF G*1*CANCEL-QUOTIENT-TIMES-OFF CANCEL-QUOTIENT-TIMES-OFF CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF G*1*EXP-OFF EXP-OFF G*1*LOG-OFF LOG-OFF G*1*GCD-OFF GCD-OFF REMAINDER-EXP-OFF G*1*DOUBLE-NUMBER-INDUCTION-OFF DOUBLE-NUMBER-INDUCTION-OFF REMAINDER-EXP-EXP-OFF QUOTIENT-EXP-OFF EXP-ZERO-OFF EXP-ADD1-OFF EXP-PLUS-OFF EXP-0-ARG1-OFF EXP-1-ARG1-OFF EXP-0-ARG2-OFF EXP-TIMES-OFF EXP-EXP-OFF EQUAL-EXP-0-OFF EQUAL-EXP-1-OFF EXP-DIFFERENCE-OFF EQUAL-LOG-0-OFF LOG-0-OFF LOG-1-OFF G*1*DOUBLE-LOG-INDUCTION-OFF DOUBLE-LOG-INDUCTION-OFF LEQ-LOG-LOG-OFF LOG-QUOTIENT-OFF LOG-QUOTIENT-TIMES-PROOF-OFF LOG-QUOTIENT-TIMES-OFF LOG-QUOTIENT-EXP-OFF LOG-TIMES-PROOF-OFF LOG-TIMES-OFF LOG-TIMES-EXP-PROOF-OFF LOG-TIMES-EXP-OFF LOG-EXP-OFF COMMUTATIVITY-OF-GCD-OFF G*1*SINGLE-NUMBER-INDUCTION-OFF SINGLE-NUMBER-INDUCTION-OFF GCD-0-OFF GCD-1-OFF EQUAL-GCD-0-OFF LESSP-GCD-OFF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF GCD-PLUS-INSTANCE-TEMP-OFF GCD-PLUS-PROOF-OFF GCD-PLUS-OFF GCD-PLUS-INSTANCE-OFF REMAINDER-GCD-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF GCD-IS-THE-GREATEST-OFF COMMON-DIVISOR-DIVIDES-GCD-OFF ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF ASSOCIATIVITY-OF-GCD-OFF COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF COMMUTATIVITY2-OF-GCD-OFF GCD-X-X-OFF GCD-IDEMPOTENCE-OFF G*1*INTEGERP-OFF G*1*FIX-INT-OFF G*1*IZEROP-OFF IZEROP-OFF G*1*ILESSP-OFF G*1*ILEQ-OFF ILEQ-OFF G*1*IPLUS-OFF G*1*INEG-OFF G*1*IDIFFERENCE-OFF IDIFFERENCE-OFF G*1*IABS-OFF G*1*ITIMES-OFF G*1*IQUOTIENT-OFF G*1*IREMAINDER-OFF G*1*IDIV-OFF G*1*IMOD-OFF G*1*IQUO-OFF G*1*IREM-OFF INTEGERP-FIX-INT-OFF INTEGERP-IPLUS-OFF INTEGERP-IDIFFERENCE-OFF INTEGERP-INEG-OFF INTEGERP-IABS-OFF INTEGERP-ITIMES-OFF FIX-INT-REMOVER-OFF FIX-INT-FIX-INT-OFF FIX-INT-IPLUS-OFF FIX-INT-IDIFFERENCE-OFF FIX-INT-INEG-OFF FIX-INT-IABS-OFF FIX-INT-ITIMES-OFF INEG-IPLUS-OFF INEG-INEG-OFF INEG-FIX-INT-OFF INEG-0-OFF IPLUS-0-LEFT-OFF IPLUS-0-RIGHT-OFF COMMUTATIVITY2-OF-IPLUS-OFF COMMUTATIVITY-OF-IPLUS-OFF ASSOCIATIVITY-OF-IPLUS-OFF IPLUS-CANCELLATION-1-OFF IPLUS-CANCELLATION-2-OFF IPLUS-INEG1-OFF IPLUS-INEG2-OFF IPLUS-FIX-INT1-OFF IPLUS-FIX-INT2-OFF IDIFFERENCE-FIX-INT1-OFF IDIFFERENCE-FIX-INT2-OFF G*1*CANCEL-INEG-AUX-OFF CANCEL-INEG-AUX-OFF G*1*CANCEL-INEG-OFF CANCEL-INEG-OFF EVAL$-LIST-CONS-OFF EVAL$-LIST-NLISTP-OFF EVAL$-LITATOM-OFF EVAL$-OTHER-OFF G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF IPLUS-INEG3-OFF IPLUS-INEG4-OFF IPLUS-X-Y-INEG-X-OFF CORRECTNESS-OF-CANCEL-INEG-OFF G*1*IPLUS-FRINGE-OFF IPLUS-FRINGE-OFF G*1*IPLUS-TREE-REC-OFF IPLUS-TREE-REC-OFF G*1*IPLUS-TREE-OFF G*1*IPLUS-LIST-OFF IPLUS-LIST-OFF INTEGERP-IPLUS-LIST-OFF EVAL$-LIST-APPEND-OFF G*1*CANCEL-IPLUS-OFF EVAL$-IPLUS-LIST-DELETE-OFF IPLUS-LIST-APPEND-OFF IPLUS-INEG7-OFF CORRECTNESS-OF-CANCEL-IPLUS-OFF ILESSP-FIX-INT-1-OFF ILESSP-FIX-INT-2-OFF G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF G*1*CANCEL-IPLUS-ILESSP-1-OFF CANCEL-IPLUS-ILESSP-1-OFF IPLUS-CANCELLATION-1-FOR-ILESSP-OFF IPLUS-CANCELLATION-2-FOR-ILESSP-OFF G*1*IPLUS-TREE-NO-FIX-INT-OFF G*1*CANCEL-IPLUS-ILESSP-OFF CANCEL-IPLUS-ILESSP-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF ITIMES-0-LEFT-OFF ITIMES-0-RIGHT-OFF ITIMES-FIX-INT1-OFF ITIMES-FIX-INT2-OFF COMMUTATIVITY-OF-ITIMES-OFF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF ITIMES-DISTRIBUTES-OVER-IPLUS-OFF COMMUTATIVITY2-OF-ITIMES-OFF ASSOCIATIVITY-OF-ITIMES-OFF EQUAL-ITIMES-0-OFF EQUAL-ITIMES-1-OFF EQUAL-ITIMES-MINUS-1-OFF ITIMES-1-ARG1-OFF QUOTIENT-REMAINDER-UNIQUENESS-OFF DIVISION-THEOREM-PART1-OFF DIVISION-THEOREM-PART2-OFF DIVISION-THEOREM-PART3-OFF DIVISION-THEOREM-OFF IQUOTIENT-IREMAINDER-UNIQUENESS-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF IDIV-IMOD-UNIQUENESS-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF IQUO-IREM-UNIQUENESS-OFF ITIMES-INEG-1-OFF ITIMES-INEG-2-OFF ITIMES-CANCELLATION-1-OFF ITIMES-CANCELLATION-2-OFF ITIMES-CANCELLATION-3-OFF INTEGERP-IQUOTIENT-OFF INTEGERP-IREMAINDER-OFF INTEGERP-IDIV-OFF INTEGERP-IMOD-OFF INTEGERP-IQUO-OFF INTEGERP-IREM-OFF IQUOTIENT-FIX-INT1-OFF IQUOTIENT-FIX-INT2-OFF IREMAINDER-FIX-INT1-OFF IREMAINDER-FIX-INT2-OFF IDIV-FIX-INT1-OFF IDIV-FIX-INT2-OFF IMOD-FIX-INT1-OFF IMOD-FIX-INT2-OFF IQUO-FIX-INT1-OFF IQUO-FIX-INT2-OFF IREM-FIX-INT1-OFF IREM-FIX-INT2-OFF FIX-INT-IQUOTIENT-OFF FIX-INT-IREMAINDER-OFF FIX-INT-IDIV-OFF FIX-INT-IMOD-OFF FIX-INT-IQUO-OFF FIX-INT-IREM-OFF G*1*ITIMES-FRINGE-OFF ITIMES-FRINGE-OFF G*1*ITIMES-TREE-REC-OFF ITIMES-TREE-REC-OFF G*1*ITIMES-TREE-OFF G*1*ITIMES-LIST-OFF ITIMES-LIST-OFF INTEGERP-ITIMES-LIST-OFF G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF G*1*CANCEL-ITIMES-OFF CANCEL-ITIMES-OFF ITIMES-LIST-APPEND-OFF MEMBER-APPEND-OFF EQUAL-FIX-INT-OFF G*1*SUBSETP-OFF SUBSETP-OFF G*1*ITIMES-TREE-NO-FIX-INT-OFF G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF G*1*CANCEL-ITIMES-ILESSP-OFF CANCEL-ITIMES-ILESSP-OFF ILESSP-ITIMES-RIGHT-POSITIVE-OFF ILESSP-ITIMES-RIGHT-NEGATIVE-OFF ILESSP-STRICT-OFF G*1*ITIMES-TREE-INEG-OFF G*1*ITIMES-FACTORS-OFF ITIMES-FACTORS-OFF ITIMES--1-OFF EQUAL-INEG-INEG-OFF ILESSP-INEG-INEG-OFF FIX-INT-EVAL$-ITIMES-TREE-REC-OFF EVAL$-ITIMES-TREE-INEG-OFF INEG-EVAL$-ITIMES-TREE-INEG-OFF IPLUS-EVAL$-ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG-OFF G*1*IPLUS-OR-ITIMES-TERM-OFF G*1*CANCEL-ITIMES-FACTORS-OFF CANCEL-ITIMES-FACTORS-OFF G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF MEMBER-0-EVAL$-LIST-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF CANCEL-ITIMES-ILESSP-FACTORS-OFF BAGINT-SINGLETON-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF EQUAL-FIX-INT-TO-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF G*1*DISJOIN-EQUALITIES-WITH-0-OFF DISJOIN-EQUALITIES-WITH-0-OFF G*1*CANCEL-FACTORS-0-OFF CANCEL-FACTORS-0-OFF G*1*SOME-EVAL$S-TO-0-OFF SOME-EVAL$S-TO-0-OFF EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF SOME-EVAL$S-TO-0-APPEND-OFF SOME-EVAL$S-TO-0-ELIMINATOR-OFF CORRECTNESS-OF-CANCEL-FACTORS-0-OFF G*1*CONJOIN-INEQUALITIES-WITH-0-OFF CONJOIN-INEQUALITIES-WITH-0-OFF G*1*CANCEL-FACTORS-ILESSP-0-OFF CANCEL-FACTORS-ILESSP-0-OFF CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF G*1*SPLIT-OUT-INEG-TERMS-OFF SPLIT-OUT-INEG-TERMS-OFF G*1*REMOVE-INEGS-OFF G*1*IPLUS-OR-INEG-TERM-OFF G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF IPLUS-CONSTANTS-OFF CANCEL-CONSTANTS-EQUAL-LEMMA-OFF CANCEL-CONSTANTS-EQUAL-OFF ILESSP-ADD1-OFF ILESSP-ADD1-IPLUS-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF CANCEL-CONSTANTS-ILESSP-OFF MATH-THEORY EVAL$-ON INTEGERS DIFFERENCE-IDIFFERENCE-OFF NUMBERP-IS-INTEGERP-OFF PLUS-IPLUS-OFF CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS ILESSP-ADD1 CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-LEMMA DIFFERENCE-IDIFFERENCE NUMBERP-IS-INTEGERP IPLUS-CONSTANTS PLUS-IPLUS INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF MINUS-INEG-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY REMOVE-INEGS-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS MINUS-INEG EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS IPLUS-OR-INEG-TERM-OFF INTEGERP-EVAL$-IPLUS-OR-INEG-TERM CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY *1*MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY *1*IPLUS-OR-INEG-TERM IPLUS-OR-INEG-TERM *1*REMOVE-INEGS REMOVE-INEGS *1*SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF SUBBAGP-SUBSETP-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-OFF LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF ILESSP-ITIMES-0-OFF ILESSP-0-ITIMES-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF IZEROP-ILESSP-0-RELATIONSHIP-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF EVAL$-LIST-BAGINT-0-OFF IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF ITIMES-LIST-EVAL$-FACTORS-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR *1*CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0 LESSP-COUNT-LISTP-CDR-OFF2 *1*CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON1 CORRECTNESS-OF-CANCEL-FACTORS-0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-APPEND EVAL$-DISJOIN-EQUALITIES-WITH-0 *1*SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0 *1*CANCEL-FACTORS-0 CANCEL-FACTORS-0 LESSP-COUNT-LISTP-CDR-OFF1 *1*DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS ILESSP-TRICHOTOMY-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP IZEROP-ILESSP-0-RELATIONSHIP-OFF ILESSP-TRICHOTOMY-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ZERO-ILESSP-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 IZEROP-ILESSP-0-RELATIONSHIP BAGINT-SINGLETON *1*CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0 IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA MEMBER-0-EVAL$-LIST MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 IPLUS-OR-ITIMES-TERM-OFF CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS *1*CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS-EXPANDED *1*CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS *1*IPLUS-OR-ITIMES-TERM IPLUS-OR-ITIMES-TERM ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC ILESSP-INEG-INEG EQUAL-INEG-INEG ITIMES--1 *1*ITIMES-FACTORS ITIMES-FACTORS *1*ITIMES-TREE-INEG ITIMES-TREE-INEG CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF ITIMES-LIST-EVAL$-LIST-0-OFF LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF MEMBER-IZEROP-ITIMES-FRINGE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ITIMES-LIST-BAGDIFF-OFF INTEGERP-EVAL$-ITIMES-OFF ITIMES-LIST-EVAL$-FRINGE-OFF EVAL$-ITIMES-TREE-OFF EVAL$-ITIMES-TREE-REC-OFF QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF LESSP-DIFFERENCE-PLUS-ARG1-OFF EVAL$-IPLUS-LIST-BAGDIFF-OFF IPLUS-LIST-EVAL$-FRINGE-OFF EVAL$-IPLUS-TREE-OFF EVAL$-IPLUS-TREE-REC-OFF LESSP-COUNT-LISTP-CDR-OFF EVAL$-IPLUS-OFF EVAL$-CANCEL-IPLUS-OFF ILESSP-STRICT CORRECTNESS-OF-CANCEL-ITIMES-ILESSP SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF ILESSP-TRICHOTOMY-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 ILESSP-TRICHOTOMY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA LISTP-BAGINT-WITH-SINGLETON-MEMBER CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-LIST-EVAL$-LIST-0 LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY *1*CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP *1*MAKE-CANCEL-ITIMES-INEQUALITY MAKE-CANCEL-ITIMES-INEQUALITY ITIMES-TREE-NO-FIX-INT-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 *1*ITIMES-TREE-NO-FIX-INT ITIMES-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 SUBBAGP-SUBSETP SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 *1*SUBSETP SUBSETP IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EQUAL-FIX-INT EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 MAKE-CANCEL-ITIMES-EQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EVAL$-EQUAL-ON CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 MEMBER-IZEROP-ITIMES-FRINGE MEMBER-APPEND ITIMES-LIST-EVAL$-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-DELETE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES INTEGERP-EVAL$-ITIMES ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND *1*CANCEL-ITIMES CANCEL-ITIMES *1*MAKE-CANCEL-ITIMES-EQUALITY MAKE-CANCEL-ITIMES-EQUALITY ITIMES-TREE-OFF EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC INTEGERP-ITIMES-LIST *1*ITIMES-LIST ITIMES-LIST *1*ITIMES-TREE ITIMES-TREE *1*ITIMES-TREE-REC ITIMES-TREE-REC *1*ITIMES-FRINGE ITIMES-FRINGE IREM-OFF IQUO-OFF IMOD-OFF IDIV-OFF IREMAINDER-OFF IQUOTIENT-OFF FIX-INT-IREM FIX-INT-IQUO FIX-INT-IMOD FIX-INT-IDIV FIX-INT-IREMAINDER FIX-INT-IQUOTIENT IREM-FIX-INT2 IREM-FIX-INT1 IQUO-FIX-INT2 IQUO-FIX-INT1 IMOD-FIX-INT2 IMOD-FIX-INT1 IDIV-FIX-INT2 IDIV-FIX-INT1 IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT1 IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IREM INTEGERP-IQUO INTEGERP-IMOD INTEGERP-IDIV INTEGERP-IREMAINDER INTEGERP-IQUOTIENT ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 QUOTIENT-REMAINDER-UNIQUENESS ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-ZERO2-OFF ITIMES-0-RIGHT ITIMES-ZERO2 ITIMES-ZERO1-OFF ITIMES-0-LEFT ITIMES-ZERO1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF *1*CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER IPLUS-TREE-NO-FIX-INT-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT *1*IPLUS-TREE-NO-FIX-INT IPLUS-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED LESSP-DIFFERENCE-PLUS-ARG1 *1*CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1 *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 MAKE-CANCEL-IPLUS-INEQUALITY-1 ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 IPLUS-INEG6-OFF IPLUS-INEG5-OFF CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 EVAL$-IPLUS IPLUS-INEG6 IPLUS-INEG5-LEMMA-2-OFF IPLUS-INEG5-LEMMA-1-OFF IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 IPLUS-LIST-EVAL$-FRINGE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS IPLUS-TREE-OFF IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE CANCEL-IPLUS-OFF EVAL$-CANCEL-IPLUS *1*CANCEL-IPLUS CANCEL-IPLUS EVAL$-LIST-APPEND EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC INTEGERP-IPLUS-LIST *1*IPLUS-LIST IPLUS-LIST *1*IPLUS-TREE IPLUS-TREE *1*IPLUS-TREE-REC IPLUS-TREE-REC LESSP-COUNT-LISTP-CDR *1*IPLUS-FRINGE IPLUS-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX-OFF CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-INEG-PROMOTE-OFF IPLUS-X-Y-INEG-X IPLUS-INEG-PROMOTE IPLUS-INEG4 IPLUS-INEG3 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN *1*EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN EVAL$-OFF EVAL$-OTHER EVAL$-QUOTE-ON EVAL$-LITATOM EVAL$-LIST-NLISTP EVAL$-LIST-CONS *1*CANCEL-INEG CANCEL-INEG *1*CANCEL-INEG-AUX CANCEL-INEG-AUX IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT1 IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-INEG2 IPLUS-INEG1 IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS COMMUTATIVITY2-OF-IPLUS IPLUS-0-RIGHT IPLUS-0-LEFT IPLUS-RIGHT-ID-OFF IPLUS-RIGHT-ID IPLUS-LEFT-ID-OFF IPLUS-LEFT-ID INEG-0 INEG-OF-NON-INTEGERP-OFF INEG-OF-NON-INTEGERP INEG-FIX-INT INEG-INEG INEG-IPLUS FIX-INT-ITIMES FIX-INT-IABS FIX-INT-INEG FIX-INT-IDIFFERENCE FIX-INT-IPLUS FIX-INT-FIX-INT FIX-INT-REMOVER INTEGERP-ITIMES INTEGERP-IABS INTEGERP-INEG INTEGERP-IDIFFERENCE INTEGERP-IPLUS INTEGERP-FIX-INT ITIMES-OFF IABS-OFF INEG-OFF IPLUS-OFF ILESSP-OFF FIX-INT-OFF INTEGERP-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS *1*IREM IREM *1*IQUO IQUO *1*IMOD IMOD *1*IDIV IDIV *1*IREMAINDER IREMAINDER *1*IQUOTIENT IQUOTIENT *1*ITIMES ITIMES *1*IABS IABS *1*IDIFFERENCE IDIFFERENCE *1*INEG INEG *1*IPLUS IPLUS *1*ILEQ ILEQ *1*ILESSP ILESSP *1*IZEROP IZEROP *1*FIX-INT FIX-INT *1*INTEGERP INTEGERP NATURALS GCDS GCD-IDEMPOTENCE GCD-X-X COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ZERO-CASE COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-INSTANCE GCD-PLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD EQUAL-GCD-0 GCD-1 GCD-0 *1*SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION COMMUTATIVITY-OF-GCD LOGS LOG-EXP LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-TIMES LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT LEQ-LOG-LOG *1*DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION LOG-1 LOG-0 EQUAL-LOG-0 EXPONENTIATION EXP-DIFFERENCE EQUAL-EXP-1 EQUAL-EXP-0 EXP-EXP EXP-TIMES EXP-0-ARG2 EXP-1-ARG1 EXP-0-ARG1 EXP-PLUS EXP-ADD1 EXP-ZERO QUOTIENT-EXP REMAINDER-EXP-EXP *1*DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION REMAINDER-EXP *1*GCD GCD *1*LOG LOG *1*EXP EXP QUOTIENTS CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE *1*CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES LESSP-QUOTIENT QUOTIENT-X-X QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG2 LEQ-QUOTIENT QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-LESSP-ARG1 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-TIMES-OFF QUOTIENT-TIMES-TIMES QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-OFF QUOTIENT-TIMES-INSTANCE-TEMP QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-PLUS QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 EQUAL-QUOTIENT-0 QUOTIENT-ADD1 QUOTIENT-ZERO QUOTIENT-OF-NON-NUMBER QUOTIENT-NOOP REMAINDERS TRANSITIVITY-OF-DIVIDES REMAINDER-X-X REMAINDER-1-ARG2 REMAINDER-1-ARG1 REMAINDER-REMAINDER REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-FACT LESSP-PLUS-FACT-OFF LESSP-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0-OFF EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3-OFF REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 *1*DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-OFF REMAINDER-TIMES-TIMES REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1 REMAINDER-TIMES1-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-OFF EQUAL-REMAINDER-PLUS-REMAINDER EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-PROOF REMAINDER-PLUS REMAINDER-PLUS-PROOF REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM PLUS-REMAINDER-TIMES-QUOTIENT-OFF PLUS-REMAINDER-TIMES-QUOTIENT REMAINDER-ZERO REMAINDER-OF-NON-NUMBER REMAINDER-NOOP LESSP-REMAINDER MULTIPLICATION CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE *1*CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF EVAL$-LESSP-TIMES-TREE-BAGDIFF *1*CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES TIMES-TREE-OF-TIMES-FRINGE-OFF TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND-OFF TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO2-OFF ZEROP-MAKES-TIMES-TREE-ZERO2 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF OR-ZEROP-TREE-IS-NOT-ZEROP-TREE ZEROP-MAKES-TIMES-TREE-ZERO-OFF ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER-OFF EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE-OFF EQUAL-TIMES-BRIDGE EQUAL-TIMES-ARG1-OFF EQUAL-TIMES-ARG1 INFER-EQUALITY-FROM-NOT-LESSP LESSP-TIMES-ARG1 NUMBERP-EVAL$-TIMES-TREE-OFF NUMBERP-EVAL$-TIMES-TREE EVAL$-IF-OFF EVAL$-IF EVAL$-QUOTIENT-OFF EVAL$-QUOTIENT EVAL$-LESSP-OFF EVAL$-LESSP EVAL$-EQUAL-OFF EVAL$-EQUAL EVAL$-OR-OFF EVAL$-OR EVAL$-TIMES-OFF EVAL$-TIMES NUMBERP-EVAL$-TIMES-OFF NUMBERP-EVAL$-TIMES *1*AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE *1*OR-ZEROP-TREE OR-ZEROP-TREE *1*TIMES-FRINGE TIMES-FRINGE *1*TIMES-TREE TIMES-TREE LESSP-1-TIMES LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION1-OFF LESSP-TIMES-CANCELLATION1 LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES3 LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF1 LESSP-TIMES2 LESSP-TIMES2-PROOF LESSP-TIMES1 LESSP-TIMES1-PROOF TIMES-1-ARG1 TIMES-QUOTIENT TIMES-QUOTIENT-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ASSOCIATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-PROOF COMMUTATIVITY-OF-TIMES TIMES-ADD1 TIMES-ZERO EQUAL-SUB1-0 EQUAL-TIMES-1 EQUAL-TIMES-0 ADDITION CORRECTNESS-OF-CANCEL-LESSP-PLUS *1*CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS LESSP-DIFFERENCE-CANCELLATION-OFF LESSP-DIFFERENCE-CANCELLATION DIFFERENCE-X-X DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-SUB1-ARG2 DIFFERENCE-ADD1-ARG2 DIFFERENCE-LEQ-ARG1 DIFFERENCE-ELIM CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS *1*CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS *1*CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$-OFF LISTP-EVAL$ EVAL$-QUOTE-OFF EVAL$-QUOTE CADR-EVAL$-LIST-OFF CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP-OFF MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE-OFF PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND-OFF EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-BRIDGE-OFF NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF-OFF PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE-OFF PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE-OFF NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS-OFF NUMBERP-EVAL$-PLUS *1*PLUS-TREE PLUS-TREE *1*PLUS-FRINGE PLUS-FRINGE DIFFERENCE-LESSP-ARG1-OFF DIFFERENCE-LESSP-ARG1 DIFF-DIFF-DIFF-OFF DIFF-DIFF-DIFF DIFF-DIFF-ARG2 DIFF-DIFF-ARG1 DIFF-SUB1-ARG2-OFF DIFF-SUB1-ARG2 DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-CANCELLATION DIFFERENCE-PLUS-CANCELLATION-PROOF PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG1 ASSOCIATIVITY-OF-PLUS PLUS-ADD1-ARG2 PLUS-ADD1-ARG1 PLUS-ZERO-ARG2 COMMUTATIVITY2-OF-PLUS COMMUTATIVITY-OF-PLUS DIFFERENCE-CANCELLATION-OFF DIFFERENCE-CANCELLATION EQUAL-DIFFERENCE-0 PLUS-CANCELLATION-OFF PLUS-CANCELLATION EQUAL-PLUS-0 BAGS MEMBER-BAGINT OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE BAGDIFF-DELETE MEMBER-BAGDIFF OCCURRENCES-DELETE MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE MEMBER-NON-LIST EQUAL-OCCURRENCES-ZERO DELETE-DELETE DELETE-NON-MEMBER LISTP-DELETE-OFF LISTP-DELETE *1*SUBBAGP SUBBAGP *1*OCCURRENCES OCCURRENCES *1*BAGINT BAGINT *1*BAGDIFF BAGDIFF *1*DELETE DELETE *1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-DEFS (QUOTE (*1*V-NEG *1*DOUBLE-DIFFERENCE-INDUCTION *1*OP-M15 *1*OP-NOT *1*OP-AND *1*OP-OR *1*OP-XOR *1*OP-LSR *1*OP-ASR *1*OP-ROR *1*OP-SUB *1*OP-SUBB *1*OP-DEC *1*OP-NEG *1*OP-ADD *1*OP-ADDC *1*OP-INC *1*OP-MOVE *1*CC-F *1*CC-T *1*CC-LE *1*CC-GT *1*CC-LT *1*CC-GE *1*CC-LS *1*CC-HI *1*CC-EQ *1*CC-NE *1*CC-MI *1*CC-PL *1*CC-VS *1*CC-VC *1*CC-CS *1*CC-CC *1*V-ALU-INT *1*V-ALU-INT-NOT *1*V-ALU-INT-NOT-OUTPUT *1*V-ALU-INT-NEG *1*V-ALU-INT-ASR *1*V-ALU-INT-ASR-OUTPUT *1*V-ALU-INT-DEC *1*V-ALU-INT-SUBTRACTER *1*V-ALU-INT-SUBTRACTER-OVERFLOWP *1*V-ALU-INT-SUBTRACTER-OUTPUT *1*V-ALU-INT-INC *1*V-ALU-INT-ADDER *1*V-ALU-INT-ADDER-OVERFLOWP *1*V-ALU-INT-ADDER-OUTPUT *1*INTEGER-IN-RANGEP *1*V-TO-INT *1*INT-TO-V *1*V-ALU-NAT *1*V-ALU-NAT-NOT *1*V-ALU-NAT-NOT-OUTPUT *1*V-ALU-NAT-LSR *1*V-ALU-NAT-LSR-CARRY-OUT *1*V-ALU-NAT-LSR-OUTPUT *1*V-ALU-NAT-DEC *1*V-ALU-NAT-SUBTRACTER *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT *1*V-ALU-NAT-SUBTRACTER-OUTPUT *1*V-ALU-NAT-INC *1*V-ALU-NAT-ADDER *1*V-ALU-NAT-ADDER-CARRY-OUT *1*V-ALU-NAT-ADDER-OUTPUT *1*V-ALU-NAT-INT-BUF *1*B-TO-NAT *1*NEW-MACHINE-STATE-INVARIANT *1*MEMORY-V-FOURP *1*ALL-XS *1*V-FOURP *1*RESET-SEQUENCE-CHIP-2 *1*RESET-SEQUENCE-CHIP-1 *1*RUN-VECTOR-CHIP-2 *1*RUN-VECTOR-CHIP-1 *1*RESET-VECTOR-CHIP *1*FINAL-STATE *1*INITIALIZED-MEMORY-STATE *1*INITIALIZED-MACHINE-STATE *1*INITIALIZED-REGFILE *1*RESET-SEQUENCE *1*RUN-VECTOR *1*RESET-VECTOR *1*UNKNOWN-STATE *1*UNKNOWN-MEMORY-STATE *1*UNKNOWN-MACHINE-STATE *1*UNKNOWN-REGFILE *1*COMPILE-UNCOMPILED-DEFNS *1*DOUBLET-N-SIMULATE-INDUCTION *1*DOUBLET-P *1*SIMULATE-MONOTONE-INDUCTION *1*NAT-LST-LST-INDUCTION *1*V-S-APPROX-LIST *1*V-APPROX-LIST *1*GOOD-S-ALIST *1*DOUBLE-CDR-INDUCTION *1*S-APPROX-LIST *1*DUAL-EVAL-MONOTONE-INDUCTION *1*OK-NETLISTP *1*DUAL-PORT-RAM-STATE-BODY *1*WRITE-MEM1-DOUBLE-INDUCTION *1*WRITE-MEM1-MONOTONE-INDUCTION *1*DUAL-PORT-RAM-VALUE-BODY *1*READ-MEM1-MONOTONE-INDUCTION *1*MONOTONICITY-PROPERTY *1*S-APPROX-ALIST *1*V-APPROX-ALIST *1*S-KNOWNP *1*GOOD-S *1*S-APPROX *1*MEM-WIDTH *1*V-KNOWNP *1*V-APPROX *1*B-APPROX *1*B-KNOWNP *1*NO-HOLDS-RESET-OR-TEST *1*MAP-DOWN *1*MEM-MAP-DOWN *1*P-MAP-DOWN *1*FM9001-STATEP *1*FM9001-MACHINE-STATEP *1*HIGH-LEVEL-STATE-STRUCTURE *1*MAP-DOWN-RELATION *1*FM9001-STEP* *1*MAP-UP *1*MEM-MAP-UP *1*P-MAP-UP *1*MACROCYCLE-INVARIANT* *1*MACROCYCLE-INVARIANT *1*TOTAL-MICROCYCLES *1*MICROCYCLES *1*OPERATING-INPUTS-P *1*T_FETCH1 *1*T_REGA *1*T_REGB *1*T_READA0 *1*T_READB0 *1*T_UPDATE *1*T_WRITE0 *1*T_SEFA0 *1*T_SEFB0 *1*T_SEFB1 *1*T_FETCH0 *1*ZEROP-NOT-ZEROP-CASES *1*WRITE3$INDUCTION *1*READB3$INDUCTION *1*READA3$INDUCTION *1*FETCH3$INDUCTION *1*READ-FN *1*REGFILE-OKP *1*RUN-INPUTS-P *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION *1*MAP-UP-INPUTS *1*MAP-UP-1-INPUT *1*CHIP-SYSTEM-OPERATING-INPUTS-P *1*CHIP-SYSTEM-INPUT-INVARIANT *1*CHIP-SYSTEM-INVARIANT *1*MEMORY-STATE-INVARIANT *1*CHIP-SYSTEM$NETLIST *1*CHIP-SYSTEM& *1*CHIP-SYSTEM* *1*CHIP$NETLIST *1*CHIP& *1*CHIP* *1*MACHINE-STATE-INVARIANT *1*CHIP-MODULE$NETLIST *1*CHIP-MODULE& *1*CHIP-MODULE* *1*FM9001-STATE-STRUCTURE *1*RUN-FM9001 *1*FM9001-NEXT-STATE *1*PC-REG-INPUT *1*HOLD--INPUT *1*RESET--INPUT *1*CNTL-STATE *1*PC-REG *1*HOLD- *1*DTACK- *1*RESET- *1*ADDR-OUT *1*DATA-OUT *1*I-REG *1*B-REG *1*A-REG *1*TTL-BIDIRECT-PADS$NETLIST *1*TTL-BIDIRECT-PADS& *1*TTL-BIDIRECT-PADS* *1*TTL-BIDIRECT-PADS-BODY$INDUCTION *1*TTL-BIDIRECT-PADS-BODY *1*TTL-TRI-OUTPUT-PADS$NETLIST *1*TTL-TRI-OUTPUT-PADS& *1*TTL-TRI-OUTPUT-PADS* *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION *1*TTL-TRI-OUTPUT-PADS-BODY *1*TTL-OUTPUT-PADS$NETLIST *1*TTL-OUTPUT-PADS& *1*TTL-OUTPUT-PADS* *1*TTL-OUTPUT-PADS-BODY$INDUCTION *1*TTL-OUTPUT-PADS-BODY *1*TTL-INPUT-PADS$NETLIST *1*TTL-INPUT-PADS& *1*TTL-INPUT-PADS* *1*TTL-INPUT-PADS-BODY$INDUCTION *1*TTL-INPUT-PADS-BODY *1*F$EXTEND-IMMEDIATE *1*EXTEND-IMMEDIATE$NETLIST *1*EXTEND-IMMEDIATE& *1*EXTEND-IMMEDIATE* *1*F$UPDATE-FLAGS *1*FLAGS$NETLIST *1*FLAGS& *1*FLAGS* *1*F$WRITE-REGS *1*F$READ-REGS *1*REGFILE$NETLIST *1*REGFILE& *1*REGFILE* *1*WRITE-REGS *1*READ-REGS *1*NEXT-CNTL-STATE$NETLIST *1*NEXT-CNTL-STATE& *1*NEXT-CNTL-STATE* *1*F$NEXT-CNTL-STATE *1*NEXT-CNTL-STATE *1*CV$NETLIST *1*CV& *1*CV* *1*F$CV *1*CV *1*NEXT-STATE$NETLIST *1*NEXT-STATE& *1*NEXT-STATE* *1*F$NEXT-STATE *1*NEXT-STATE *1*CONTROL-LET$NETLIST *1*CONTROL-LET& *1*CONTROL-LET* *1*F$CONTROL-LET *1*CV_V11111 *1*CV_RESET2 *1*CV_RESET1 *1*CV_RESET0 *1*CV_V11011 *1*CV_V11010 *1*CV_HOLD1 *1*CV_HOLD0 *1*CV_SEFB1 *1*CV_SEFB0 *1*CV_SEFA1 *1*CV_SEFA0 *1*CV_WRITE3 *1*CV_WRITE2 *1*CV_WRITE1 *1*CV_WRITE0 *1*CV_READB3 *1*CV_READB2 *1*CV_READB1 *1*CV_READB0 *1*CV_READA3 *1*CV_READA2 *1*CV_READA1 *1*CV_READA0 *1*CV_UPDATE *1*CV_REGB *1*CV_REGA *1*CV_DECODE *1*CV_FETCH3 *1*CV_FETCH2 *1*CV_FETCH1 *1*CV_FETCH0 *1*ALU-MPG *1*ALU-OP *1*REGS-ADDRESS *1*WE-FLAGS *1*STATE *1*ALU-ZERO *1*ALU-C *1*SELECT-IMMEDIATE *1*DEC-ADDR-OUT *1*DATA-IN-SELECT *1*WE-PC-REG *1*WE-HOLD- *1*WE-ADDR-OUT *1*WE-DATA-OUT *1*WE-I-REG *1*WE-B-REG *1*WE-A-REG *1*WE-REGS *1*HDACK- *1*STROBE- *1*RW- *1*N_V11111 *1*V_V11111 *1*N_RESET2 *1*V_RESET2 *1*N_RESET1 *1*V_RESET1 *1*N_RESET0 *1*V_RESET0 *1*N_V11011 *1*V_V11011 *1*N_V11010 *1*V_V11010 *1*N_HOLD1 *1*V_HOLD1 *1*N_HOLD0 *1*V_HOLD0 *1*N_SEFB1 *1*V_SEFB1 *1*N_SEFB0 *1*V_SEFB0 *1*N_SEFA1 *1*V_SEFA1 *1*N_SEFA0 *1*V_SEFA0 *1*N_WRITE3 *1*V_WRITE3 *1*N_WRITE2 *1*V_WRITE2 *1*N_WRITE1 *1*V_WRITE1 *1*N_WRITE0 *1*V_WRITE0 *1*N_READB3 *1*V_READB3 *1*N_READB2 *1*V_READB2 *1*N_READB1 *1*V_READB1 *1*N_READB0 *1*V_READB0 *1*N_READA3 *1*V_READA3 *1*N_READA2 *1*V_READA2 *1*N_READA1 *1*V_READA1 *1*N_READA0 *1*V_READA0 *1*N_UPDATE *1*V_UPDATE *1*N_REGB *1*V_REGB *1*N_REGA *1*V_REGA *1*N_DECODE *1*V_DECODE *1*N_FETCH3 *1*V_FETCH3 *1*N_FETCH2 *1*V_FETCH2 *1*N_FETCH1 *1*V_FETCH1 *1*N_FETCH0 *1*V_FETCH0 *1*CV-HYPS *1*F$ALL-T-REGS-ADDRESS *1*F$SET-SOME-FLAGS *1*FLAGS-HYPS *1*SET-SOME-FLAGS *1*ENCODE-32$NETLIST *1*ENCODE-32& *1*ENCODE-32* *1*F$ENCODE-32 *1*ENCODE-32 *1*DECODE-5$NETLIST *1*DECODE-5& *1*DECODE-5* *1*DECODE-5 *1*F$DECODE-5 *1*FANOUT-32$NETLIST *1*FANOUT-32& *1*FANOUT-32* *1*FANOUT-5$NETLIST *1*FANOUT-5& *1*FANOUT-5* *1*FANOUT-4$NETLIST *1*FANOUT-4& *1*FANOUT-4* *1*F$V-IF-F-4 *1*V-IF-F-4$NETLIST *1*V-IF-F-4& *1*V-IF-F-4* *1*SELECT-OP-CODE$NETLIST *1*SELECT-OP-CODE& *1*SELECT-OP-CODE* *1*F$SELECT-OP-CODE *1*DECODE-REG-MODE$NETLIST *1*DECODE-REG-MODE& *1*DECODE-REG-MODE* *1*F$DECODE-REG-MODE *1*UNARY-OP-CODE-P$NETLIST *1*UNARY-OP-CODE-P& *1*UNARY-OP-CODE-P* *1*F$UNARY-OP-CODE-P *1*B-STORE-RESULTP$NETLIST *1*B-STORE-RESULTP& *1*B-STORE-RESULTP* *1*F$B-STORE-RESULTP *1*B-STORE-RESULTP *1*STORE-RESULTP-MUX$NETLIST *1*STORE-RESULTP-MUX& *1*STORE-RESULTP-MUX* *1*F$STORE-RESULTP-MUX *1*STORE-RESULTP-MUX *1*ASM-AND-FM9001 *1*EXECUTE-FM9001 *1*UN-FM9001 *1*MEM-TO-LIST *1*LIST-TO-TREE-MEM *1*LIST-TO-MEM *1*STUB-RIGHT *1*LIST-TO-MEM1 *1*LIST-TO-MEM2 *1*LIST-TO-MEM3 *1*ADD-RAM-MARKER *1*MAKE-PAIRS *1*V-TO-HEX-ALL *1*V-TO-HEX *1*V-TO-0S-THROUGH-FS *1*V-TO-NAT-ALL *1*ASM-TO-1-AND-0 *1*T-AND-F-TO-1-AND-0 *1*ASM *1*ASM-LIST *1*ASM-LINE *1*UPDATE-LIST *1*RESOLVE-NAMES *1*ASM-FLAGS *1*ASM-STORE-CC *1*ASM-OP-CODE *1*ASM-REGISTER-A *1*ASM-REGISTER *1*LOG2 *1*EXP2 *1*SUB *1*INTEGER-MINUS *1*ADD *1*C10-INT *1*C10-TF *1*BV-TO-INT *1*INT-TO-BV *1*INTP *1*FM9001-INTR *1*FM9001-INTERPRETER *1*FM9001 *1*FM9001-STEP *1*FM9001-FETCH *1*FM9001-OPERAND-A *1*FM9001-OPERAND-B *1*FM9001-ALU-OPERATION *1*FLAGS *1*REGS *1*UPDATE-FLAGS *1*STORE-RESULTP *1*POST-INC-P *1*PRE-DEC-P *1*REG-INDIRECT-P *1*REG-DIRECT-P *1*C-FLAG *1*V-FLAG *1*N-FLAG *1*Z-FLAG *1*C-SET *1*V-SET *1*N-SET *1*Z-SET *1*OP-CODE *1*STORE-CC *1*SET-FLAGS *1*MODE-B *1*RN-B *1*MODE-A *1*RN-A *1*A-IMMEDIATE *1*A-IMMEDIATE-P *1*REG-SIZE *1*CORE-ALU$NETLIST *1*CORE-ALU& *1*CORE-ALU* *1*CORE-ALU *1*F$CORE-ALU *1*TV-SHIFT-OR-BUF$NETLIST *1*TV-SHIFT-OR-BUF& *1*TV-SHIFT-OR-BUF* *1*SHIFT-OR-BUF *1*F$SHIFT-OR-BUF *1*SHIFT-OR-BUF-CNTL$NETLIST *1*SHIFT-OR-BUF-CNTL& *1*SHIFT-OR-BUF-CNTL* *1*F$SHIFT-OR-BUF-CNTL *1*SHIFT-OR-BUF-CNTL *1*V-SHIFT-RIGHT-NAMES *1*OVERFLOW-HELP$NETLIST *1*OVERFLOW-HELP& *1*OVERFLOW-HELP* *1*F$OVERFLOW-HELP *1*OVERFLOW-HELP *1*CARRY-OUT-HELP$NETLIST *1*CARRY-OUT-HELP& *1*CARRY-OUT-HELP* *1*F$CARRY-OUT-HELP *1*CARRY-OUT-HELP *1*TV-ALU-HELP-INDUCTION *1*TV-ALU-HELP$NETLIST *1*TV-ALU-HELP& *1*TV-ALU-HELP* *1*TV-ALU-HELP-BODY *1*F$TV-ALU-HELP *1*TV-ALU-HELP *1*ALU-CELL$NETLIST *1*ALU-CELL& *1*ALU-CELL* *1*F$ALU-CELL *1*ALU-CELL *1*G-CELL$NETLIST *1*G-CELL& *1*G-CELL* *1*F$G-CELL *1*G-CELL *1*P-CELL$NETLIST *1*P-CELL& *1*P-CELL* *1*F$P-CELL *1*P-CELL *1*CARRY-IN-HELP$NETLIST *1*CARRY-IN-HELP& *1*CARRY-IN-HELP* *1*F$CARRY-IN-HELP *1*CARRY-IN-HELP *1*MPG$NETLIST *1*MPG& *1*MPG* *1*MPG *1*F$MPG *1*DECODE-GEN$NETLIST *1*DECODE-GEN& *1*DECODE-GEN* *1*F$DECODE-GEN *1*DECODE-GEN *1*DECODE-PROP$NETLIST *1*DECODE-PROP& *1*DECODE-PROP* *1*F$DECODE-PROP *1*DECODE-PROP *1*DECODE-MODE$NETLIST *1*DECODE-MODE& *1*DECODE-MODE* *1*F$DECODE-MODE *1*DECODE-MODE *1*ALU-DEC-OP *1*ALU-INC-OP *1*V-ALU-1 *1*UNARY-OP-CODE-P *1*V-ALU *1*CVZBV-V-LSR *1*CVZBV-V-ASR *1*CVZBV-V-NOT *1*CVZBV-DEC *1*CVZBV-NEG *1*CVZBV-INC *1*CVZBV-V-SUBTRACTER *1*CVZBV-V-LSL *1*CVZBV-V-ADDER *1*CVZBV-V-ROR *1*ZB *1*N *1*BV *1*V *1*C *1*CVZBV *1*WE-REG-BODY-INDUCTION *1*WE-REG$NETLIST *1*WE-REG& *1*WE-REG* *1*WE-REG-BODY *1*REG-BODY-INDUCTION *1*REG$NETLIST *1*REG& *1*REG* *1*REG-BODY *1*DEC-PASS$NETLIST *1*F$DEC-PASS *1*DEC-PASS& *1*DEC-PASS* *1*TV-DEC-PASS-NG$NETLIST *1*TV-DEC-PASS-NG-INDUCTION *1*TV-DEC-PASS-NG& *1*TV-DEC-PASS-NG* *1*TV-DEC-PASS-NG-BODY *1*TV-DEC-PASS-NAME *1*DEC-PASS-CELL$NETLIST *1*DEC-PASS-CELL& *1*DEC-PASS-CELL* *1*F$TV-DEC-PASS-NG *1*TV-DEC-PASS-NG *1*TV-DEC-PASS *1*F$V-INC4$V *1*V-INC4$NETLIST *1*V-INC4& *1*V-INC4* *1*F$V-INC4 *1*V-INC4 *1*F$V-EQUAL *1*V-EQUAL$NETLIST *1*V-EQUAL& *1*V-EQUAL* *1*FAST-ZERO$NETLIST *1*FAST-ZERO& *1*FAST-ZERO* *1*F$FAST-ZERO *1*F$TV-ZEROP *1*TV-ZEROP$NETLIST *1*TV-ZEROP& *1*TV-ZEROP* *1*BTR-OR-NOR *1*TR-OR-NOR *1*T-OR-NOR-INDUCTION *1*T-OR-NOR$NETLIST *1*T-OR-NOR& *1*T-OR-NOR* *1*T-OR-NOR-BODY *1*TV-IF-INDUCTION *1*TV-IF$NETLIST *1*TV-IF& *1*TV-IF* *1*TV-IF-BODY *1*TV-ADDER *1*T-CARRY$NETLIST *1*T-CARRY& *1*T-CARRY* *1*T-CARRY *1*F$T-CARRY *1*V-GENERATE *1*V-PROPAGATE *1*V-CARRY *1*V-SUM *1*BV-ADDER-BODY$INDUCTION *1*BV-ADDER$NETLIST *1*BV-ADDER& *1*BV-ADDER* *1*BV-ADDER-BODY *1*BV-ADDER *1*M2& *1*M2$NETLIST *1*M2* *1*M1& *1*M1$NETLIST *1*M1* *1*FULL-ADDER *1*F$FULL-ADDER *1*FULL-ADDER& *1*FULL-ADDER$NETLIST *1*FULL-ADDER* *1*HALF-ADDER& *1*HALF-ADDER$NETLIST *1*HALF-ADDER* *1*COUNT-PRIMITIVES *1*COLLECT-PRIMITIVES *1*LISP-NETLIST *1*NUMBER-TO-LIST *1*NUMBER-TO-LIST1 *1*NUMBER-TO-DIGIT *1*REV-0 *1*V-WIRE$NETLIST *1*V-WIRE& *1*V-WIRE* *1*V-WIRE$BODY *1*V-PULLUP$NETLIST *1*V-PULLUP& *1*V-PULLUP* *1*V-PULLUP$BODY *1*V-XOR$NETLIST *1*V-XOR& *1*V-XOR* *1*V-XOR$BODY *1*V-OR$NETLIST *1*V-OR& *1*V-OR* *1*V-OR$BODY *1*V-BUF$NETLIST *1*V-BUF& *1*V-BUF* *1*V-BUF$BODY *1*VECTOR-MODULE-INDUCTION *1*ALL-UNBOUND-IN-BODY *1*UNBOUND-IN-BODY *1*B-BUF-PWR$NETLIST *1*B-BUF-PWR& *1*B-BUF-PWR* *1*B-BUF$NETLIST *1*B-BUF& *1*B-BUF* *1*VSS$NETLIST *1*VSS& *1*VDD-PARAMETRIC$NETLIST *1*VDD-PARAMETRIC& *1*VDD$NETLIST *1*VDD& *1*TTL-TRI-OUTPUT-FAST$NETLIST *1*TTL-TRI-OUTPUT-FAST& *1*TTL-TRI-OUTPUT$NETLIST *1*TTL-TRI-OUTPUT& *1*TTL-OUTPUT-FAST$NETLIST *1*TTL-OUTPUT-FAST& *1*TTL-OUTPUT-PARAMETRIC$NETLIST *1*TTL-OUTPUT-PARAMETRIC& *1*TTL-OUTPUT$NETLIST *1*TTL-OUTPUT& *1*TTL-INPUT$NETLIST *1*TTL-INPUT& *1*TTL-CLK-INPUT$NETLIST *1*TTL-CLK-INPUT& *1*TTL-BIDIRECT$NETLIST *1*TTL-BIDIRECT& *1*PULLUP$NETLIST *1*PULLUP& *1*T-WIRE$NETLIST *1*T-WIRE& *1*T-BUF$NETLIST *1*T-BUF& *1*RAM-ENABLE-CIRCUIT$NETLIST *1*RAM-ENABLE-CIRCUIT& *1*MEM-32X32$NETLIST *1*MEM-32X32& *1*ID$NETLIST *1*ID& *1*FD1SLP$NETLIST *1*FD1SLP& *1*FD1SP$NETLIST *1*FD1SP& *1*FD1S$NETLIST *1*FD1S& *1*FD1$NETLIST *1*FD1& *1*DP-RAM-16X32$NETLIST *1*DP-RAM-16X32& *1*PROCMON$NETLIST *1*PROCMON& *1*DEL10$NETLIST *1*DEL10& *1*DEL4$NETLIST *1*DEL4& *1*DEL2$NETLIST *1*DEL2& *1*B-XOR3$NETLIST *1*B-XOR3& *1*B-XOR$NETLIST *1*B-XOR& *1*B-OR4$NETLIST *1*B-OR4& *1*B-OR3$NETLIST *1*B-OR3& *1*B-OR$NETLIST *1*B-OR& *1*B-NOT-IVAP$NETLIST *1*B-NOT-IVAP& *1*B-NOT-B4IP$NETLIST *1*B-NOT-B4IP& *1*B-NOT$NETLIST *1*B-NOT& *1*B-NOR8$NETLIST *1*B-NOR8& *1*B-NOR6$NETLIST *1*B-NOR6& *1*B-NOR5$NETLIST *1*B-NOR5& *1*B-NOR4$NETLIST *1*B-NOR4& *1*B-NOR3$NETLIST *1*B-NOR3& *1*B-NOR$NETLIST *1*B-NOR& *1*B-NBUF$NETLIST *1*B-NBUF& *1*B-NAND8$NETLIST *1*B-NAND8& *1*B-NAND6$NETLIST *1*B-NAND6& *1*B-NAND5$NETLIST *1*B-NAND5& *1*B-NAND4$NETLIST *1*B-NAND4& *1*B-NAND3$NETLIST *1*B-NAND3& *1*B-NAND$NETLIST *1*B-NAND& *1*B-IF$NETLIST *1*B-IF& *1*B-EQUV3$NETLIST *1*B-EQUV3& *1*B-EQUV$NETLIST *1*B-EQUV& *1*B-AND4$NETLIST *1*B-AND4& *1*B-AND3$NETLIST *1*B-AND3& *1*B-AND$NETLIST *1*B-AND& *1*AO7$NETLIST *1*AO7& *1*AO6$NETLIST *1*AO6& *1*AO4$NETLIST *1*AO4& *1*AO2$NETLIST *1*AO2& *1*NETLIST-LOADINGS-AND-DRIVES *1*LOADINGS-AND-DRIVES *1*FIX-DEPENDENT-DRS *1*STATE-OKP *1*STATE-OKP-0 *1*TYPE-COUNT *1*NETLIST-STATE-TYPES *1*STATE-TYPE-REQUIREMENT *1*ARG-TYPES-OKP *1*ARG-TYPES-MATCHP *1*NETLIST-TYPE-TABLE *1*IO-TYPES *1*IO-TYPES-COLLECTOR *1*OUTPUT-DEPENDENCIES *1*DEPENDENCY-TABLE *1*OUT-DEPENDS *1*PRIMITIVE-COUNT *1*DELETE-NULL-ENTRIES *1*SUBNET *1*SUBNET0 *1*PRIMP-DATABASE-PREDICATE *1*PRIMP-DATABASE-ERRORS *1*PRIMITIVE-OK *1*PARENT-PROPS-ALIST *1*OK-OUTPUT-TYPES *1*OK-INPUT-TYPES *1*OK-OUT-DEPENDS *1*OK-STATES *1*OK-NAME-LIST *1*PRIMITIVE-PROP-ERRORS *1*PRIMITIVE-PROP-OK *1*PNEW-STATES-OK *1*PRESULTS-OK *1*PRESULTS-ERRORS *1*RESULTS-LENGTH *1*PRESULT-OK *1*PRESULT-FORM-ERRORS *1*UNKNOWN-ARGS *1*PSTATE-TYPES-OK *1*PSTATE-TYPES-ERRORS *1*PSTATE-TYPE-OK *1*PSTATE-TYPE-LIST-ERRORS *1*ONE-PSTATE-TYPE-OK *1*PADDRESSED-STATE-CALL-OK *1*PMEMORY-WORD-CALL-OK *1*LITERAL-STATE-TYPE-OK *1*BOOLP-LIST-OK *1*ADDRESSED-STATE *1*PSTATES-OK *1*POUT-DEPENDS-OK *1*POUT-DEPENDS-ERRORS *1*POUT-DEPENDS-ONE-OK *1*PLSI-NAME-OK *1*PLOADINGS-OK *1*PLOADINGS-ERRORS *1*PLOADING-OK *1*PDRIVES-OK *1*PDRIVES-ERRORS *1*PDRIVE-OK *1*PDELAYS-OK *1*PDELAYS-ERRORS *1*PDELAY-OK *1*PHALF-DELAY-OK *1*P-T-WIRE-ARGS-OK *1*P-NAME-PROP-VALUE-OK *1*POUT-TYPES-OK *1*POUT-TYPE-ERRORS *1*POUT-TYPE-OK *1*PIN-TYPES-OK *1*PIN-TYPE-ERRORS *1*PIN-TYPE-OK *1*ALL-OUTPUT-TYPES *1*ALL-INPUT-TYPES *1*ID-OUT-PROP-SIGNALS *1*OUT-PROP-SIGNALS *1*IO-CDR *1*IO-CAR *1*UCDR *1*UCAR *1*STATE-LABEL *1*OUTPUT-LABEL *1*INPUT-LABEL *1*IO-LABEL *1*FUNCTION-CALL-OK *1*PNAME-LISTP *1*LSI-TOP-LEVEL-PREDICATE *1*TOP-LEVEL-PREDICATE *1*PREDICATE-PROPERTIES *1*NETLIST-DATABASE *1*NETLIST-PROPERTIES *1*UNBIND-NETLIST-PROPS *1*UNBIND-NETLIST-PROPS-0 *1*REQUIRED-PROPS *1*GET-REQUIRED-PROPS *1*REQUIRED-FOR-PROP *1*MODULE-DATABASE *1*MODULE-DATA *1*COLLECT-MODULE-DATA *1*COLLECT-MODULE-ERRORS *1*MODULE-PROP-ERROR *1*COLLECT-MODULE-PROPS *1*COLLECT-MODULE-PROP *1*OCCURRENCE-DATA *1*COMPOSE-OCCURRENCE-DATA *1*COMPOSED-OCCURRENCE-DATA *1*ADD-COMPOSED-DATA *1*COMPOSED-LOADINGS-DRIVES-DELAYS *1*COMPOSED-IO-TYPES *1*COLLECT-OCCURRENCE-DATA *1*FUNCTION-PROPERTIES *1*UPDATE-OCC-BINDINGS *1*UPDATE-OPROP-BINDING *1*INITIAL-OCC-DATA *1*TRI-STATE-ERRORS *1*COLLECT-TRI-STATE-DATA *1*COLLECT-SYNONYMS *1*COMPOSE-TRI-STATE-DATA *1*T-WIRE-ERROR *1*IO-RENAME-ERROR *1*IO-SIGNAL-RENAMES *1*UPDATE-TRI-STATE-DATA *1*ADD-SYNONYMS *1*FUNCTION-SYNONYMS *1*FUNCTION-T-WIRE-INS *1*INITIAL-OCC-TRI-STATE-DATA *1*STATE-TYPES-ERROR *1*COLLECT-STATE-TYPES *1*UPDATE-STATE-TYPES *1*INITIAL-OCC-STATE-TYPES *1*OUT-DEPENDS-ERROR *1*COLLECT-OUT-DEPENDS-ERRORS *1*COLLECT-OUT-DEPENDS *1*UPDATE-OUT-DEPENDS *1*ADD-OUT-DEPENDS *1*INITIAL-OCC-OUT-DEPENDS *1*DELAYS-ERROR *1*COLLECT-DELAYS *1*COLLECT-DELAYS-0 *1*OUTPUT-DELAY *1*OR-DELAY-ARGS *1*MAKE-OUTPUT-DELAY *1*TYPE-DELAY-SLOPE *1*INPUT-DELAY *1*INPUT-DELAY0 *1*ADDABLE-INPUT-DELAY *1*DELAY-TO-RANGE *1*MAKE-DELAY-OR *1*OR-DELAY-ARGS-TO-RANGES *1*LITERAL-DELAY-TO-RANGE *1*INSERT-INPUT-DELAY *1*MERGEABLE-INPUT-DELAY-P *1*MERGE-INPUT-DELAYS *1*LOADED-DELAYS *1*LOADED-DELAY *1*ADD-LOAD-DELAY *1*UPDATE-DELAYS *1*ADD-DELAYS *1*LOCAL-DELAY *1*INITIAL-OCC-DELAYS *1*SLOPE-TIMES-LOAD *1*RANGE-PLUS *1*PER-PF-DELAY-SLOPE *1*PER-STD-LOAD-DELAY-SLOPE *1*DETERMINED-RANGEP *1*RANGE-DEPENDENCIES *1*RANGE-MAX *1*RANGE-MIN *1*RANGEP *1*MAKE-RANGE *1*DETERMINED-DELAYP *1*MAKE-DELAY *1*MAKE-DELAY-0 *1*DELAY-DEPENDENCIES *1*DELAY-INTERCEPT-HL *1*DELAY-INTERCEPT-LH *1*DELAY-SLOPE-HL *1*DELAY-SLOPE-LH *1*DELAY-HL *1*DELAY-LH *1*PS-PFP *1*DRIVES-ERROR *1*COLLECT-DRIVES *1*COLLECT-DRIVES-0 *1*MAKE-DRIVE-MIN *1*DRIVE-MIN *1*DRIVE-LESSP *1*TYPE-DRIVE *1*NUMERIC-DRIVES *1*COLLECT-MIN-ARGS *1*LOADINGS-ERROR *1*COLLECT-LOADINGS *1*TYPE-LOADING *1*NET-DRIVES-SIMPLE *1*ADD-NET-DRIVE *1*ADD-NET-MIN-DRIVE *1*NET-MIN-ARGS *1*LITERAL-NET-DRIVE *1*TRANSFER-LOADINGS *1*TRANSFER-LOADING *1*UPDATE-DRIVES *1*ADD-DRIVES *1*LOCAL-DRIVE *1*UPDATE-LOADINGS *1*ADD-LOADINGS *1*ADD-LOADING *1*INITIAL-OCC-DRIVES *1*INITIAL-OCC-LOADINGS *1*LOADING-PLUS *1*MA-LESSP *1*PF-LESSP *1*PF-DIFFERENCE *1*PF-PLUS *1*ZERO-LOADINGP *1*STD-DRIVE-TO-MA *1*MA-TO-STD-DRIVE *1*PF-TO-STD-LOAD *1*STD-LOAD-TO-PF *1*PF-TO-MA *1*MA-TO-PF *1*PFP *1*MAP *1*OUT-TYPES-ERROR *1*IN-TYPES-ERROR *1*COLLECT-OUT-TYPES *1*COLLECT-OUT-TYPE *1*COLLECT-IN-TYPES *1*COMPOSE-IO-TYPES *1*COMPOSED-TYPE-MAPS *1*COMPOSE-TYPE *1*TRANSFER-IN-TYPE *1*OK-OUT-TYPE *1*OK-IN-TYPE *1*IO-TYPES-COMPATIBLE *1*IO-TYPE-ERROR *1*UPDATE-OUT-TYPES *1*ADD-OUT-TYPES *1*ADD-OUT-TYPE *1*UPDATE-IN-TYPES *1*ADD-IN-TYPES *1*ADD-IN-TYPE *1*INITIAL-OCC-OUT-TYPES *1*INITIAL-OCC-IN-TYPES *1*OUTPUT-TYPE *1*INPUT-TYPE *1*TYPE-VALUE *1*TYPE-VALUE0 *1*TRI-STATE-TYPEP *1*TYPES-COMPATIBLEP *1*SUBTYPE *1*EXTERNALIZE-PARENTS *1*EXTRACT-NAMES *1*PARENT-SYNONYMS-LIST *1*PARENT-SYNONYM *1*PARENT-SYNONYM0 *1*SIGNAL-NAMEP *1*COLLECT-VALUE2 *1*VALUE2 *1*UNMARK-IO-OUTS *1*UNMARK-IO-OUT *1*MARK-IO-OUTS *1*MARK-IO-OUTS-0 *1*MARK-IO-OUT *1*IO-OUT *1*IO-OUT-SIGNAL *1*IO-OUTP *1*COLLECT-VALUE-OR-UNKNOWN *1*VALUE-OR-UNKNOWN *1*UNKNOWN *1*UNKNOWNP *1*ALL-MODULE-PROPS *1*PRIMITIVE-PROPERTIES *1*LSI-NETLIST-SYNTAX-OK *1*LSI-NETLIST-SYNTAX-CHECK *1*LSI-MODULE-SYNTAX-CHECK *1*LSI-MODULE-OCCURRENCES-CHECK *1*LSI-MODULE-OUTPUTS-OK *1*LSI-MODULE-INPUTS-OK *1*LSI-MODULE-NAME-OK *1*LSI-OCC-BODY-SYNTAX-CHECK *1*UPDATE-LSI-OCC-SYNTAX-DATA *1*INITIAL-LSI-OCC-SYNTAX-DATA *1*LSI-OCC-SYNTAX-OK *1*LSI-OCC-INPUTS-OK *1*LSI-OCC-OUTPUTS-OK *1*LSI-OCC-NAME-OK *1*MAX-OCC-HIERARCHICAL-NAME *1*MAX-HIERARCHICAL-LENGTH-AND-NAME *1*HIERARCHICAL-NAME-MAX *1*NAME-LENGTH *1*LSI-FUNCTION-NAME *1*LSI-NAME-LIST-OK *1*LSI-NAME-LIST-ERRORS *1*LSI-BAD-NAMES *1*LSI-NAME-OK *1*LSI-KEYWORDS *1*BAD-LSI-NAME-CHARS *1*DIGITP *1*LETTERP *1*NETLIST-SYNTAX-OK *1*NETLIST-SYNTAX-ERRORS *1*MODULE-SYNTAX-OK *1*MODULE-SYNTAX-ERRORS *1*MODULE-ANNOTATION-OK *1*MODULE-STATENAMES-OK *1*MODULE-OCCURRENCES-OK *1*STATES-LIST-OR-NIL *1*MODULE-OUTPUTS-OK *1*MODULE-INPUTS-OK *1*MODULE-NAME-OK *1*MODULE-FORM-OK *1*OCC-BODY-SYNTAX-ERRORS *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS *1*UPDATE-OCC-SYNTAX-DATA *1*INITIAL-OCC-SYNTAX-DATA *1*OCC-SYNTAX-OK *1*OCC-SYNTAX-ERRORS *1*OCC-ANNOTATION-OK *1*OCC-FUNCTION-OK *1*OCC-INPUTS-OK *1*OCC-OUTPUTS-OK *1*OCC-NAME-OK *1*OCC-FORM-OK *1*OCC-ARG-LENGTH-ERROR *1*NAME-LIST-OK *1*NAME-LIST-ERRORS *1*BAD-NAMES *1*NAME-OKP *1*TOP-LEVEL-PREDICATE-SIMPLE *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE *1*LOADINGS-AND-DRIVES-SIMPLE *1*COLLECT-DRIVES-SIMPLE *1*COLLECT-LOADINGS-SIMPLE *1*EXTERNAL-LOADING *1*NET-DRIVES *1*FIX-DRIVES *1*FIX-LOADINGS *1*SUM-LOADINGS *1*SUM-LOADING *1*EXTRACT-NAMES-SIMPLE *1*SUM-NUMBERS *1*ADD-LOADING-SIMPLES *1*ADD-LOADING-SIMPLE *1*PARENT-SYNONYM-SIMPLE *1*FIX-DEPENDENT-LDS *1*APPLY-STATE-SIMPLE-OKP *1*STATE-SIMPLE-OKP *1*NETLIST-STATE-TYPES-SIMPLE *1*STATE-TYPE-REQUIREMENT-SIMPLE *1*MAKE-RAM-STATE *1*ARG-TYPES-SIMPLE-OKP *1*ARG-TYPES-MATCH-SIMPLEP *1*NETLIST-TYPE-CHECK-SIMPLE-OKP *1*NETLIST-TYPES-ACCEPTABLE-LIST *1*TYPES-ACCEPTABLEP *1*NETLIST-TYPE-TABLE-SIMPLE *1*IO-TYPES-SIMPLE *1*FIX-DEPENDENT-TYPES *1*UPDATE-KNOWN-TYPES *1*ADD-NEW-TYPE *1*COLLECT-TYPES *1*TYPE-VALUE-SIMPLE *1*OUTPUT-DEPENDENCIES-SIMPLE *1*SIMPLE-DEPENDENCY-TABLE *1*OUT-DEPENDS-SIMPLE *1*NETLIST-SYNTAX-SIMPLE-OKP *1*MODULE-SYNTAX-SIMPLE-OKP *1*OCC-BODY-SYNTAX-SIMPLE-OKP *1*OCC-SYNTAX-SIMPLE-OKP *1*NAME-LIST-SIMPLE-OKP *1*NAME-SIMPLE-OKP *1*LIST-COLLECT-VALUE *1*LABEL-ERROR *1*ALL-BOUND-OR-ERR *1*DISJOINT-OR-ERR *1*NO-DUPLICATES-OR-ERR *1*SUBSET-OR-ERR *1*NIL-OR-ERR *1*NLISTP-OR-ERR *1*T-OR-ERR *1*ERR-AND *1*COLLECT-NET-ERRORS *1*NET-ERRORS *1*ERROR-ENTRY *1*PRED-ERROR *1*REPORT-ERROR *1*NET-ERROR *1*ERROR-BODY *1*ERROR-LABEL *1*NET-ERRORP *1*LIST-LIST-SORT *1*LIST-SORT *1*MIN-TOKEN *1*MIN-TOKEN-HELP *1*TOKEN-LESSP *1*LIST-LESSP *1*M-STATES-LIST *1*UNBIND-LIST *1*UNBOUND-KEYS *1*LIST-UNION-VALUES *1*UNION-VALUES *1*SET-VALUE *1*UNBIND *1*ALIST-ENTRY *1*BOUNDP *1*ALISTP *1*LISTIFY *1*IS-HEAD *1*FLATTEN-LIST *1*APPEND-LIST *1*REMOVE-DUPLICATES *1*LIST-DUPLICATES *1*LAST-CDR *1*INTERSECTION *1*SET-DIFF *1*SET-EQUAL *1*INSERT *1*MIN *1*SIMULATE-DUAL-EVAL-2 *1*SIMULATE *1*DUAL-EVAL-BODY-BINDINGS *1*DUAL-EVAL *1*DUAL-APPLY-STATE *1*DUAL-APPLY-VALUE *1*PRIMP2 *1*PRIMP-LOOKUP *1*PRIMP *1*OCC-ANNOTATION *1*OCC-INPUTS *1*OCC-FUNCTION *1*OCC-OUTPUTS *1*OCC-NAME *1*MODULE-ANNOTATION *1*MODULE-STATENAMES *1*MODULE-OCCURRENCES *1*MODULE-OUTPUTS *1*MODULE-INPUTS *1*MODULE-NAME *1*COLLECT-STATES *1*PAIRSTATES *1*DELETE-MODULE *1*LOOKUP-MODULE *1*PRIMP-DATABASE *1*VFT-BUF *1*FV-SHIFT-RIGHT *1*V-PULLUP *1*V-WIRE *1*FV-IF *1*FV-XOR *1*FV-OR *1*F$AO2 *1*F-PULLUP *1*FT-WIRE *1*FT-BUF *1*F-IF *1*F-EQUV3 *1*F-EQUV *1*F-XOR3 *1*F-XOR *1*F-NOR8 *1*F-NOR6 *1*F-NOR5 *1*F-NOR4 *1*F-NOR3 *1*F-NOR *1*F-OR4 *1*F-OR3 *1*F-OR *1*F-NAND8 *1*F-NAND6 *1*F-NAND5 *1*F-NAND4 *1*F-NAND3 *1*F-NAND *1*F-NOT *1*F-AND4 *1*F-AND3 *1*F-AND *1*F-BUF *1*TREE-NUMBER *1*COLLECT-BREADTH-TREE *1*BREADTH-TREE *1*FIX-BREADTH-TREE-STACK *1*NEXT-MEMORY-STATE$INDUCTION *1*MEM-STATE *1*MEM-VALUE *1*MEMORY-VALUE *1*NEXT-MEMORY-STATE *1*DUAL-PORT-RAM-STATE *1*DUAL-PORT-RAM-VALUE *1*CONSTANT-RAM *1*ALL-RAMP-MEM *1*RAMP-MEM *1*RAMP-MEM1 *1*WRITE-MEM *1*WRITE-MEM1 *1*READ-MEM *1*READ-MEM1 *1*MEMORY-OKP *1*MEMORY-PROPERP *1*STUB *1*STUB-GUTS *1*STUBP *1*RAM *1*RAM-GUTS *1*RAMP *1*ROM *1*ROM-GUTS *1*ROMP *1*CDR-CDR-SUB1-SUB1-INDUCTION *1*COLLECT-VALUE *1*VALUE *1*V-IFF *1*V-FOURFIX *1*V-THREEFIX *1*V-DEC *1*V-INC *1*V-SUBTRACTER-OVERFLOWP *1*V-SUBTRACTER-CARRY-OUT *1*V-SUBTRACTER-OUTPUT *1*V-ADDER-OVERFLOWP *1*V-ADDER-CARRY-OUT *1*V-ADDER-OUTPUT *1*V-ADDER *1*SIGN-EXTEND *1*V-NEGP *1*V-ZEROP *1*V-NZEROP *1*UPDATE-V-NTH *1*V-NTH *1*NAT-TO-V *1*V-TO-NAT *1*V-IF *1*V-ASR *1*V-ROR *1*V-LSR *1*V-SHIFT-RIGHT *1*V-XOR *1*V-OR *1*V-AND *1*V-NOT *1*V-BUF *1*VDD *1*VSS *1*AO7 *1*AO6 *1*AO4 *1*AO2 *1*ID *1*B-IF *1*B-NOR8 *1*B-NOR6 *1*B-NOR5 *1*B-NOR4 *1*B-NOR3 *1*B-NOR *1*B-AND4 *1*B-AND3 *1*B-AND *1*B-EQUV3 *1*B-EQUV *1*B-XOR3 *1*B-XOR *1*B-OR4 *1*B-OR3 *1*B-OR *1*B-NAND8 *1*B-NAND6 *1*B-NAND5 *1*B-NAND4 *1*B-NAND3 *1*B-NAND *1*B-NOT *1*B-BUF *1*XOR *1*BVP-LENGTH *1*BV2P *1*BVP *1*FOURFIX *1*FOURP *1*THREEFIX *1*THREEP *1*BOOLFIX *1*BOOLP *1*Z *1*ZP *1*X *1*XP *1*INDICES *1*LNFIX *1*INDEX *1*I-NUM *1*I-NAME *1*INDEXP *1*LIST-AS-COLLECTED-NTH *1*MAKE-TREE *1*TREE-HEIGHT *1*TRESTN *1*TFIRSTN *1*TREE-SIZE *1*MAKE-LIST *1*UPDATE-NTH *1*SUBRANGE *1*NTHCDR *1*NTH *1*RESTN *1*FIRSTN *1*DUPLICATES? *1*DISJOINT *1*SUBSET *1*DELETE* *1*REVERSE *1*REV1 *1*LENGTH *1*POSITION *1*PROPERP *1*APPEND8 *1*APPEND7 *1*APPEND6 *1*APPEND5 *1*NOT* *1*AND* *1*OR* *1*IF* *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-INEQUALITY *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-EQUALITY *1*MAKE-CANCEL-INEG-TERMS-EQUALITY *1*IPLUS-OR-INEG-TERM *1*REMOVE-INEGS *1*SPLIT-OUT-INEG-TERMS *1*CANCEL-FACTORS-ILESSP-0 *1*CONJOIN-INEQUALITIES-WITH-0 *1*SOME-EVAL$S-TO-0 *1*CANCEL-FACTORS-0 *1*DISJOIN-EQUALITIES-WITH-0 *1*CANCEL-ITIMES-ILESSP-FACTORS *1*CANCEL-ITIMES-FACTORS-EXPANDED *1*CANCEL-ITIMES-FACTORS *1*IPLUS-OR-ITIMES-TERM *1*ITIMES-FACTORS *1*ITIMES-TREE-INEG *1*CANCEL-ITIMES-ILESSP *1*MAKE-CANCEL-ITIMES-INEQUALITY *1*ITIMES-TREE-NO-FIX-INT *1*SUBSETP *1*CANCEL-ITIMES *1*MAKE-CANCEL-ITIMES-EQUALITY *1*ITIMES-LIST *1*ITIMES-TREE *1*ITIMES-TREE-REC *1*ITIMES-FRINGE *1*CANCEL-IPLUS-ILESSP *1*IPLUS-TREE-NO-FIX-INT *1*CANCEL-IPLUS-ILESSP-1 *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 *1*CANCEL-IPLUS *1*IPLUS-LIST *1*IPLUS-TREE *1*IPLUS-TREE-REC *1*IPLUS-FRINGE *1*EVAL$-CANCEL-INEG-AUX-FN *1*CANCEL-INEG *1*CANCEL-INEG-AUX *1*IREM *1*IQUO *1*IMOD *1*IDIV *1*IREMAINDER *1*IQUOTIENT *1*ITIMES *1*IABS *1*IDIFFERENCE *1*INEG *1*IPLUS *1*ILEQ *1*ILESSP *1*IZEROP *1*FIX-INT *1*INTEGERP *1*SINGLE-NUMBER-INDUCTION *1*DOUBLE-LOG-INDUCTION *1*DOUBLE-NUMBER-INDUCTION *1*GCD *1*LOG *1*EXP *1*CANCEL-QUOTIENT-TIMES *1*DOUBLE-REMAINDER-INDUCTION *1*CANCEL-EQUAL-TIMES *1*CANCEL-LESSP-TIMES *1*AND-NOT-ZEROP-TREE *1*OR-ZEROP-TREE *1*TIMES-FRINGE *1*TIMES-TREE *1*CANCEL-LESSP-PLUS *1*CANCEL-DIFFERENCE-PLUS *1*CANCEL-EQUAL-PLUS *1*PLUS-TREE *1*PLUS-FRINGE *1*SUBBAGP *1*OCCURRENCES *1*BAGINT *1*BAGDIFF *1*DELETE *1*IDENTITY *1*FOR *1*QUANTIFIER-OPERATION *1*UNION *1*MAX *1*APPEND *1*ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE *1*EVAL$ *1*V&C-APPLY$ *1*V&C$ *1*SUM-CDRS *1*STRIP-CARS *1*FIX-COST *1*BODY *1*FORMALS *1*APPLY-SUBR *1*SUBRP *1*PAIRLIST *1*ASSOC *1*ORDINALP *1*ORD-LESSP *1*IFF *1*MEMBER *1*GEQ *1*LEQ *1*GREATERP))) (PUT1-LST (QUOTE BV-V-ALU-AS-INTEGER) (QUOTE (IDATE 1000402195223 EVENT (PROVE-LEMMA BV-V-ALU-AS-INTEGER NIL (IMPLIES (AND (BV2P A B) (EQUAL (LENGTH A) (QUOTE 32))) (EQUAL (BV (V-ALU C A B OP)) (IF (EQUAL OP (OP-INC)) (INT-TO-V (IPLUS (QUOTE 1) (V-TO-INT A)) (QUOTE 32)) (IF (EQUAL OP (OP-ADDC)) (INT-TO-V (IPLUS (B-TO-NAT C) (IPLUS (V-TO-INT A) (V-TO-INT B))) (QUOTE 32)) (IF (EQUAL OP (OP-ADD)) (INT-TO-V (IPLUS (V-TO-INT A) (V-TO-INT B)) (QUOTE 32)) (IF (EQUAL OP (OP-NEG)) (INT-TO-V (INEG (V-TO-INT A)) (QUOTE 32)) (IF (EQUAL OP (OP-DEC)) (INT-TO-V (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (QUOTE 32)) (IF (EQUAL OP (OP-SUBB)) (INT-TO-V (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))) (QUOTE 32)) (IF (EQUAL OP (OP-SUB)) (INT-TO-V (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)) (QUOTE 32)) (IF (EQUAL OP (OP-ASR)) (INT-TO-V (IDIV (V-TO-INT A) (QUOTE 2)) (QUOTE 32)) (BV (V-ALU C A B OP)))))))))))) ((DISABLE CVZBV BV) (ENABLE BV-CVZBV REMAINDER-REMAINDER REMAINDER-NOOP LESSP-QUOTIENT-TEST *1*B-TO-NAT *1*V-TO-INT *1*FIX-INT FIX-INT-IPLUS FIX-INT-INEG FIX-INT-IDIFFERENCE FIX-INT-INT-TO-V V-ALU-CORRECT-INT-REWRITE V-ALU-INT V-ALU-INT-NEG V-ALU-NAT-INT-BUF V-ALU-INT-INC V-ALU-INT-DEC V-ALU-INT-ADDER V-ALU-INT-ADDER-OUTPUT V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-CVZBV . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-REWRITE . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 FIX-INT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 INEG-AS-IDIFFERENCE . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 FIX-INT-INT-TO-V . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 IDIV . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-ASR . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-SUB . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-SUBB . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-DEC . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 INEG . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-NEG . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-ADD . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-ADDC . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-TO-INT . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 IPLUS . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 INT-TO-V . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 OP-INC . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 V-ALU . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 BV . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-V-ALU-AS-INTEGER) (IMMEDIATE-DEPENDENTS0 BV2P . BV-V-ALU-AS-INTEGER))))) (PUT1-LST (QUOTE INEG-AS-IDIFFERENCE) (QUOTE (IDATE 1000402195223 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER) EVENT (PROVE-LEMMA INEG-AS-IDIFFERENCE (REWRITE) (EQUAL (IDIFFERENCE (QUOTE 0) I) (INEG I)) ((ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 FIX-INT . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 INEG . INEG-AS-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INEG-AS-IDIFFERENCE) (LEMMAS IDIFFERENCE . INEG-AS-IDIFFERENCE))))) (PUT1-LST (QUOTE INT-TO-V-OF-V-TO-INT) (QUOTE (IDATE 1000402195223 EVENT (PROVE-LEMMA INT-TO-V-OF-V-TO-INT (REWRITE) (IMPLIES (AND (EQUAL L (LENGTH V)) (BVP V)) (EQUAL (INT-TO-V (V-TO-INT V) L) V)) ((ENABLE INT-TO-V V-TO-INT) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-DIFFERENCE . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 ILESSP . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-LESSP-EXP-2-LENGTH . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2 . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 INEG . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 BVP . INT-TO-V-OF-V-TO-INT) (IMMEDIATE-DEPENDENTS0 LENGTH . INT-TO-V-OF-V-TO-INT) (LEMMAS INT-TO-V . INT-TO-V-OF-V-TO-INT))))) (PUT1-LST (QUOTE FIX-INT-INT-TO-V) (QUOTE (IDATE 1000402195223 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER) EVENT (PROVE-LEMMA FIX-INT-INT-TO-V (REWRITE) (EQUAL (FIX-INT (V-TO-INT V)) (V-TO-INT V)) ((ENABLE FIX-INT V-TO-INT INTEGERP IDIFFERENCE IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 IPLUS . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FIX-INT-INT-TO-V) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-INT-TO-V) (LEMMAS FIX-INT . FIX-INT-INT-TO-V))))) (PUT1-LST (QUOTE BV-V-ALU-AS-NATURAL) (QUOTE (IDATE 1000402195223 EVENT (PROVE-LEMMA BV-V-ALU-AS-NATURAL NIL (IMPLIES (AND (BV2P A B) (EQUAL (LENGTH A) (QUOTE 32))) (EQUAL (BV (V-ALU C A B OP)) (IF (EQUAL OP (OP-INC)) (NAT-TO-V (PLUS (QUOTE 1) (V-TO-NAT A)) (QUOTE 32)) (IF (EQUAL OP (OP-ADDC)) (NAT-TO-V (PLUS (B-TO-NAT C) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (QUOTE 32)) (IF (EQUAL OP (OP-ADD)) (NAT-TO-V (PLUS (V-TO-NAT A) (V-TO-NAT B)) (QUOTE 32)) (IF (EQUAL OP (OP-DEC)) (NAT-TO-V (DIFFERENCE (PLUS (V-TO-NAT A) (EXP (QUOTE 2) (QUOTE 32))) (QUOTE 1)) (QUOTE 32)) (IF (EQUAL OP (OP-SUBB)) (NAT-TO-V (DIFFERENCE (PLUS (V-TO-NAT B) (EXP (QUOTE 2) (QUOTE 32))) (PLUS (V-TO-NAT A) (B-TO-NAT C))) (QUOTE 32)) (IF (EQUAL OP (OP-SUB)) (NAT-TO-V (DIFFERENCE (PLUS (V-TO-NAT B) (EXP (QUOTE 2) (QUOTE 32))) (V-TO-NAT A)) (QUOTE 32)) (IF (EQUAL OP (OP-LSR)) (NAT-TO-V (QUOTIENT (V-TO-NAT A) (QUOTE 2)) (QUOTE 32)) (BV (V-ALU C A B OP))))))))))) ((DISABLE CVZBV BV) (ENABLE BV-CVZBV NAT-TO-V-OF-V-TO-NAT* REMAINDER-REMAINDER REMAINDER-NOOP LESSP-QUOTIENT-TEST V-TO-NAT-OF-NAT-TO-V *1*B-TO-NAT V-ALU-CORRECT-NAT-REWRITE V-ALU-NAT V-ALU-NAT-INT-BUF V-ALU-NAT-INC V-ALU-NAT-DEC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-OUTPUT V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-LSR V-ALU-NAT-LSR-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-CVZBV . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-REWRITE . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INC . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 PLUS-0 . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-AS-REMAINDER . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OVERFLOWP . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 BVP . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-LSR . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-SUB . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-SUBB . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 EXP . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-DEC . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-ADD . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-ADDC . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 OP-INC . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 V-ALU . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 BV . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-V-ALU-AS-NATURAL) (IMMEDIATE-DEPENDENTS0 BV2P . BV-V-ALU-AS-NATURAL))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT*-OFF) (QUOTE (IDATE 1000402195222 EVENT (TOGGLE NAT-TO-V-OF-V-TO-NAT*-OFF NAT-TO-V-OF-V-TO-NAT* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-OF-V-TO-NAT* . NAT-TO-V-OF-V-TO-NAT*-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-OF-V-TO-NAT* NAT-TO-V-OF-V-TO-NAT*-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT*) (QUOTE (IDATE 1000402195222 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-OF-V-TO-NAT*-OFF) EVENT (PROVE-LEMMA NAT-TO-V-OF-V-TO-NAT* (REWRITE) (IMPLIES (AND (BVP V) (EQUAL L (LENGTH V))) (EQUAL (NAT-TO-V (V-TO-NAT V) L) V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2 . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 LENGTH . NAT-TO-V-OF-V-TO-NAT*) (IMMEDIATE-DEPENDENTS0 BVP . NAT-TO-V-OF-V-TO-NAT*) (LEMMAS NAT-TO-V . NAT-TO-V-OF-V-TO-NAT*))))) (PUT1-LST (QUOTE NAT-TO-V-AS-REMAINDER) (QUOTE (IDATE 1000402195222 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL) EVENT (PROVE-LEMMA NAT-TO-V-AS-REMAINDER (REWRITE) (EQUAL (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) L)) L) (NAT-TO-V N L)) ((ENABLE NAT-TO-V QUOTIENT-REMAINDER REMAINDER-EXP QUOTIENT-EXP REMAINDER-REMAINDER) (EXPAND (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) L)) L)) (INDUCT (NAT-TO-V N L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . NAT-TO-V-AS-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . NAT-TO-V-AS-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . NAT-TO-V-AS-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . NAT-TO-V-AS-REMAINDER) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-V-AS-REMAINDER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-AS-REMAINDER) (LEMMAS NAT-TO-V . NAT-TO-V-AS-REMAINDER))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-TEST-OFF) (QUOTE (IDATE 1000402195222 EVENT (TOGGLE LESSP-QUOTIENT-TEST-OFF LESSP-QUOTIENT-TEST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT-TEST . LESSP-QUOTIENT-TEST-OFF) (DISABLED-LEMMAS NIL LESSP-QUOTIENT-TEST LESSP-QUOTIENT-TEST-OFF . T))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-TEST) (QUOTE (IDATE 1000402195222 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST-OFF) EVENT (PROVE-LEMMA LESSP-QUOTIENT-TEST (REWRITE) (IMPLIES (LESSP N M) (EQUAL (LESSP (QUOTIENT N K) M) (QUOTE *1*TRUE))) ((ENABLE QUOTIENT LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . LESSP-QUOTIENT-TEST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LESSP-QUOTIENT-TEST) (LEMMAS LESSP . LESSP-QUOTIENT-TEST))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-REWRITE-OFF) (QUOTE (IDATE 1000402195222 EVENT (TOGGLE V-ALU-CORRECT-INT-REWRITE-OFF V-ALU-CORRECT-INT-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-REWRITE . V-ALU-CORRECT-INT-REWRITE-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-INT-REWRITE-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-REWRITE) (QUOTE (IDATE 1000402195222 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER V-ALU-CORRECT-INT-REWRITE-OFF) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-REWRITE (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ALU C A B OP) (V-ALU-INT C A B OP))) ((DISABLE V-ALU V-ALU-INT) (USE (V-ALU-CORRECT-INT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-REWRITE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT . V-ALU-CORRECT-INT-REWRITE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT . V-ALU-CORRECT-INT-REWRITE) (IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-CORRECT-INT-REWRITE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-REWRITE) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-REWRITE) (LEMMAS V-ALU . V-ALU-CORRECT-INT-REWRITE))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-REWRITE-OFF) (QUOTE (IDATE 1000402195222 EVENT (TOGGLE V-ALU-CORRECT-NAT-REWRITE-OFF V-ALU-CORRECT-NAT-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-REWRITE . V-ALU-CORRECT-NAT-REWRITE-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-REWRITE V-ALU-CORRECT-NAT-REWRITE-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-REWRITE) (QUOTE (IDATE 1000402195222 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL V-ALU-CORRECT-NAT-REWRITE-OFF) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-REWRITE (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-ALU C A B OP) (V-ALU-NAT C A B OP))) ((DISABLE V-ALU V-ALU-NAT) (USE (V-ALU-CORRECT-NAT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT . V-ALU-CORRECT-NAT-REWRITE) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT . V-ALU-CORRECT-NAT-REWRITE) (IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-CORRECT-NAT-REWRITE) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-REWRITE) (LEMMAS V-ALU . V-ALU-CORRECT-NAT-REWRITE))))) (PUT1-LST (QUOTE V-V-ALU) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA V-V-ALU NIL (IMPLIES (OR (EQUAL OP (OP-MOVE)) (OR (EQUAL OP (OP-ROR)) (OR (EQUAL OP (OP-ASR)) (OR (EQUAL OP (OP-ASR)) (OR (EQUAL OP (OP-LSR)) (OR (EQUAL OP (OP-XOR)) (OR (EQUAL OP (OP-OR)) (OR (EQUAL OP (OP-AND)) (OR (EQUAL OP (OP-NOT)) (EQUAL OP (OP-M15))))))))))) (EQUAL (V (V-ALU C A B OP)) (QUOTE *1*FALSE))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO OPCODE-THEORY) (ENABLE V-ALU V-CVZBV CVZBV-INC CVZBV-V-ADDER CVZBV-NEG CVZBV-DEC CVZBV-V-SUBTRACTER CVZBV-V-ROR CVZBV-V-ASR CVZBV-V-LSR CVZBV-V-NOT V-INC V-DEC V-NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-CVZBV . V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OPCODE-THEORY . V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . V-V-ALU) (IMMEDIATE-DEPENDENTS0 V . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-M15 . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-NOT . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-AND . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-OR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-XOR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-LSR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-ASR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-ROR . V-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-MOVE . V-V-ALU))))) (PUT1-LST (QUOTE C-V-ALU) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA C-V-ALU NIL (AND (IMPLIES (OR (EQUAL OP (OP-MOVE)) (OR (EQUAL OP (OP-XOR)) (OR (EQUAL OP (OP-OR)) (OR (EQUAL OP (OP-AND)) (OR (EQUAL OP (OP-NOT)) (EQUAL OP (OP-M15))))))) (EQUAL (C (V-ALU C A B OP)) (QUOTE *1*FALSE))) (IMPLIES (AND (LISTP A) (OR (EQUAL OP (OP-ROR)) (OR (EQUAL OP (OP-ASR)) (EQUAL OP (OP-LSR))))) (EQUAL (C (V-ALU C A B OP)) (NTH (QUOTE 0) A)))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO OPCODE-THEORY) (ENABLE V-ALU C-CVZBV CVZBV-INC CVZBV-V-ADDER CVZBV-NEG CVZBV-DEC CVZBV-V-SUBTRACTER CVZBV-V-ROR CVZBV-V-ASR CVZBV-V-LSR CVZBV-V-NOT V-INC V-DEC V-NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 C-CVZBV . C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OPCODE-THEORY . C-V-ALU) (IMMEDIATE-DEPENDENTS0 NTH . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-LSR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-ASR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-ROR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . C-V-ALU) (IMMEDIATE-DEPENDENTS0 C . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-M15 . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-NOT . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-AND . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-OR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-XOR . C-V-ALU) (IMMEDIATE-DEPENDENTS0 OP-MOVE . C-V-ALU))))) (PUT1-LST (QUOTE BV-V-ALU) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA BV-V-ALU NIL (EQUAL (BV (V-ALU C A B OP)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (V-BUF A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (V-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (V-ADDER-OUTPUT C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-ADDER-OUTPUT (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (V-NEG A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (V-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (V-SUBTRACTER-OUTPUT C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (V-ROR A C) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (V-ASR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (V-LSR A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (V-XOR A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (V-OR A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (V-AND A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (V-NOT A) (V-BUF A))))))))))))))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE V-ALU BV-CVZBV CVZBV-INC CVZBV-V-ADDER CVZBV-NEG CVZBV-DEC CVZBV-V-SUBTRACTER CVZBV-V-ROR CVZBV-V-ASR CVZBV-V-LSR CVZBV-V-NOT V-INC V-DEC V-NEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-CVZBV . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NOT . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-AND . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-OR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-XOR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-DEC . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NEG . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-INC . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-BUF . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BV . BV-V-ALU))))) (PUT1-LST (QUOTE ZB-CVZBV) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA ZB-CVZBV (REWRITE) (EQUAL (ZB (CVZBV C V BV)) (V-ZEROP BV)) ((ENABLE ZB CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . ZB-CVZBV) (IMMEDIATE-DEPENDENTS0 CVZBV . ZB-CVZBV) (IMMEDIATE-DEPENDENTS0 ZB . ZB-CVZBV) (LEMMAS ZB . ZB-CVZBV))))) (PUT1-LST (QUOTE V-CVZBV) (QUOTE (IDATE 1000402195221 IMMEDIATE-DEPENDENTS0 (V-V-ALU) EVENT (PROVE-LEMMA V-CVZBV (REWRITE) (EQUAL (V (CVZBV C V BV)) V) ((ENABLE V CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . V-CVZBV) (IMMEDIATE-DEPENDENTS0 CVZBV . V-CVZBV) (IMMEDIATE-DEPENDENTS0 V . V-CVZBV) (LEMMAS V . V-CVZBV))))) (PUT1-LST (QUOTE C-CVZBV) (QUOTE (IDATE 1000402195221 IMMEDIATE-DEPENDENTS0 (C-V-ALU) EVENT (PROVE-LEMMA C-CVZBV (REWRITE) (EQUAL (C (CVZBV C V BV)) C) ((ENABLE C CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . C-CVZBV) (IMMEDIATE-DEPENDENTS0 CVZBV . C-CVZBV) (IMMEDIATE-DEPENDENTS0 C . C-CVZBV) (LEMMAS C . C-CVZBV))))) (PUT1-LST (QUOTE BV-CVZBV) (QUOTE (IDATE 1000402195221 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL BV-V-ALU) EVENT (PROVE-LEMMA BV-CVZBV (REWRITE) (EQUAL (BV (CVZBV C V BV)) BV) ((ENABLE BV CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . BV-CVZBV) (IMMEDIATE-DEPENDENTS0 CVZBV . BV-CVZBV) (IMMEDIATE-DEPENDENTS0 BV . BV-CVZBV) (LEMMAS BV . BV-CVZBV))))) (PUT1-LST (QUOTE *1*V-NEG) (QUOTE (MAIN-EVENT V-NEG))) (PUT1-LST (QUOTE V-NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((V-NEG 24 NIL)) TOTALP-LST ((V-NEG . T)) SDEFN (LAMBDA (A) (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*V-NEG SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195221 SATELLITES (*1*V-NEG) IMMEDIATE-DEPENDENTS0 (BV-V-ALU) EVENT (DEFN V-NEG (A) (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-NEG) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-NEG) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . V-NEG) (DCELL . *1*V-NEG))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ASR-OVERFLOW NIL (IMPLIES (AND (BVP A) (V-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (INTEGER-IN-RANGEP (IDIV (V-TO-INT A) (QUOTE 2)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NOT (INTEGER-IN-RANGEP (IDIV (V-TO-INT A) (QUOTE 2)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT INTEGERP-IDIV ILESSP ILEQ IZEROP INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IDIV . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 EQUAL-IDIV-2-0 . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ASR . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IDIV . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-ASR . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-ASR-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ASR-GT-0) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ASR-GT-0 NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (AND (V-SET SET-FLAGS) (AND (N-SET SET-FLAGS) (Z-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (ILESSP (QUOTE 0) (IDIV (V-TO-INT A) (QUOTE 2)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (ILEQ (IDIV (V-TO-INT A) (QUOTE 2)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT INTEGERP-IDIV ILESSP ILEQ IZEROP INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IDIV . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IDIV-2-0 . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 IDIV . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 OP-ASR . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ASR-GT-0) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-ASR-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ASR-NEGATIVE NIL (IMPLIES (AND (BVP A) (NOT (ZEROP (LENGTH A)))) (AND (IMPLIES (N-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-PL) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NOT (NEGATIVEP (IDIV (V-TO-INT A) (QUOTE 2))))) (EQUAL (STORE-RESULTP (CC-MI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NEGATIVEP (IDIV (V-TO-INT A) (QUOTE 2)))))) (IMPLIES (AND (N-SET SET-FLAGS) (V-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NOT (NEGATIVEP (IDIV (V-TO-INT A) (QUOTE 2))))) (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NEGATIVEP (IDIV (V-TO-INT A) (QUOTE 2)))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT INTEGERP-IDIV INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IDIV . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-MI . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IDIV . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-ASR . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-PL . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-ASR-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ASR-CARRY) (QUOTE (IDATE 1000402195221 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ASR-CARRY NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (C-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (EQUAL (IMOD (V-TO-INT A) (QUOTE 2)) (QUOTE 0))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NOT (EQUAL (IMOD (V-TO-INT A) (QUOTE 2)) (QUOTE 0)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS IZEROP V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IDIV . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 IMOD-V-TO-INT-2 . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 IMOD . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 OP-ASR . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ASR-CARRY) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-ASR-CARRY))))) (PUT1-LST (QUOTE IMOD-V-TO-INT-2) (QUOTE (IDATE 1000402195221 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-CARRY) EVENT (PROVE-LEMMA IMOD-V-TO-INT-2 (REWRITE) (IMPLIES (LISTP A) (EQUAL (IMOD (V-TO-INT A) (QUOTE 2)) (B-TO-NAT (CAR A)))) ((ENABLE IMOD V-TO-INT V-TO-NAT B-TO-NAT EXP QUOTIENT-PLUS-X-X-2) (ENABLE-THEORY ALL-INTEGER-DEFNS) (EXPAND (V-TO-NAT A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1-PLUS-X-X-2 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-LESSP-EXP-2-LENGTH . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LENGTH-CDR . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 ITIMES . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 IDIV . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 INTEGERP . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 EXP . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 IPLUS . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 INEG . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 V-TO-INT . IMOD-V-TO-INT-2) (IMMEDIATE-DEPENDENTS0 IMOD . IMOD-V-TO-INT-2) (LEMMAS IMOD . IMOD-V-TO-INT-2))))) (PUT1-LST (QUOTE QUOTIENT-ADD1-PLUS-X-X-2) (QUOTE (IDATE 1000402195214 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2) EVENT (PROVE-LEMMA QUOTIENT-ADD1-PLUS-X-X-2 (REWRITE) (EQUAL (QUOTIENT (ADD1 (PLUS X X)) (QUOTE 2)) (FIX X)) ((ENABLE QUOTIENT PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-ADD1-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . QUOTIENT-ADD1-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-ADD1-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . QUOTIENT-ADD1-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . QUOTIENT-ADD1-PLUS-X-X-2) (LEMMAS QUOTIENT . QUOTIENT-ADD1-PLUS-X-X-2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (QUOTE (IDATE 1000402195214 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X X) (ADD1 (PLUS Y Y))) (QUOTE 2)) (SUB1 (DIFFERENCE X Y))) ((ENABLE QUOTIENT DIFFERENCE PLUS) (INDUCT (DIFFERENCE X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (QUOTE (IDATE 1000402195210 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X X) (PLUS Y Y)) (QUOTE 2)) (DIFFERENCE X Y)) ((ENABLE QUOTIENT DIFFERENCE PLUS) (INDUCT (DIFFERENCE X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (QUOTE (IDATE 1000402195208 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y (REWRITE) (IMPLIES (LESSP (ADD1 (PLUS Y Y)) (PLUS X X)) (EQUAL (REMAINDER (DIFFERENCE (PLUS X X) (ADD1 (PLUS Y Y))) (QUOTE 2)) (QUOTE 1))) ((ENABLE REMAINDER DIFFERENCE PLUS) (INDUCT (DIFFERENCE X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 LESSP-1-PLUS-X-X . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-0 . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (QUOTE (IDATE 1000402195207 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y (REWRITE) (EQUAL (REMAINDER (DIFFERENCE (PLUS X X) (PLUS Y Y)) (QUOTE 2)) (QUOTE 0)) ((ENABLE REMAINDER DIFFERENCE PLUS) (INDUCT (DIFFERENCE X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (IMMEDIATE-DEPENDENTS0 PLUS-0 . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y))))) (PUT1-LST (QUOTE EQUAL-SUB1-PLUS-X-X) (QUOTE (IDATE 1000402195207 EVENT (PROVE-LEMMA EQUAL-SUB1-PLUS-X-X (REWRITE) (EQUAL (EQUAL (SUB1 (PLUS X X)) (QUOTE 0)) (ZEROP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . EQUAL-SUB1-PLUS-X-X) (LEMMAS EQUAL . EQUAL-SUB1-PLUS-X-X))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ASR-ZERO) (QUOTE (IDATE 1000402195207 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ASR-ZERO NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (NOT (EQUAL (IDIV (V-TO-INT A) (QUOTE 2)) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ASR)))) (EQUAL (IDIV (V-TO-INT A) (QUOTE 2)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU INTEGERP-IDIV C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS IZEROP V-ALU-INT-ASR V-ALU-INT-ASR-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IDIV . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 EQUAL-IDIV-2-0 . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 IDIV . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 OP-ASR . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ASR-ZERO) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-ASR-ZERO))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IDIV) (QUOTE (IDATE 1000402195207 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IDIV (REWRITE) (IMPLIES (INTEGER-IN-RANGEP I L) (INTEGER-IN-RANGEP (IDIV I (QUOTE 2)) L)) ((ENABLE INTEGER-IN-RANGEP EXP V-NEGP-AS-BOUNDS INT-TO-V REMAINDER V-TO-INT QUOTIENT EXP QUOTIENT-LESSP QUOTIENT-STUFF NOT-LESSP-QUOTIENT) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 QUOTIENT-STUFF . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-QUOTIENT . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 IDIV . INTEGER-IN-RANGEP-IDIV) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IDIV) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IDIV))))) (PUT1-LST (QUOTE EQUAL-IDIV-2-0) (QUOTE (IDATE 1000402195206 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-ZERO) EVENT (PROVE-LEMMA EQUAL-IDIV-2-0 (REWRITE) (EQUAL (EQUAL (IDIV I (QUOTE 2)) (QUOTE 0)) (OR (IZEROP I) (EQUAL I (QUOTE 1)))) ((ENABLE IDIV FIX-INT IZEROP INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 IZEROP . EQUAL-IDIV-2-0) (IMMEDIATE-DEPENDENTS0 IDIV . EQUAL-IDIV-2-0) (LEMMAS EQUAL . EQUAL-IDIV-2-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUB-GT-0) (QUOTE (IDATE 1000402195206 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUB-GT-0 NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (ILESSP (QUOTE 0) (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (ILEQ (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)) (QUOTE 0))))) ((USE (INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (L (LENGTH A)))) (ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT IZEROP ILEQ IDIFFERENCE INTEGER-IN-RANGEP INEG) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 LESSP-1-EXP-2 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-IPLUS-MINUS-0 . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 OP-SUB . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUB-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUB-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (QUOTE (IDATE 1000402195206 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUB-NEGATIVE NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NEGATIVEP (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NOT (NEGATIVEP (IDIFFERENCE (V-TO-INT B) (V-TO-INT A))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS IDIFFERENCE V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-IPLUS-INEG) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-SUB . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUB-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (QUOTE (IDATE 1000402195206 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUB-OVERFLOW NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NOT (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (V-TO-INT A)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-SUB . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUB-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUBB-GT-0) (QUOTE (IDATE 1000402195206 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUBB-GT-0 NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (ILESSP (QUOTE 0) (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS)))))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (ILEQ (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS)))) (QUOTE 0))))) ((USE (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (C (B-TO-NAT (C-FLAG FLAGS))) (L (LENGTH A))) (INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (L (LENGTH A)))) (ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT IZEROP ILEQ IDIFFERENCE INTEGER-IN-RANGEP INEG) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INT-DEC-RANGEP-LEMMAS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 LESSP-1-EXP-2 . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-IPLUS-MINUS-0 . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 OP-SUBB . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUBB-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUBB-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (QUOTE (IDATE 1000402195127 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (NEGATIVEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS)))))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (NOT (NEGATIVEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS))))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS IDIFFERENCE V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-SUBB . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (QUOTE (IDATE 1000402195126 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS)))) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (NOT (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT (C-FLAG FLAGS)))) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-SUBB . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-DEC-GT-0) (QUOTE (IDATE 1000402195126 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-DEC-GT-0 NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (ILESSP (QUOTE 0) (IDIFFERENCE (V-TO-INT A) (QUOTE 1)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (ILEQ (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP ILEQ V-ALU-INT-DEC V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-IPLUS) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-DEC-RANGEP-LEMMAS . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP--1 . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 OP-DEC . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-DEC-GT-0) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-DEC-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-DEC-ZERO) (QUOTE (IDATE 1000402195126 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-DEC-ZERO NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (Z-SET SET-FLAGS)))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NOT (EQUAL (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (EQUAL (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP IPLUS V-ALU-INT-DEC V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP--1 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 INT-DEC-RANGEP-LEMMAS . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 PLUS-0 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 OP-DEC . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-DEC-ZERO) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-DEC-ZERO))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (QUOTE (IDATE 1000402195126 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-DEC-NEGATIVE NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS)))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NEGATIVEP (IDIFFERENCE (V-TO-INT A) (QUOTE 1)))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NOT (NEGATIVEP (IDIFFERENCE (V-TO-INT A) (QUOTE 1))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP V-ALU-INT-DEC V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-IPLUS) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP--1 . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-DEC . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-DEC-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (QUOTE (IDATE 1000402195126 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-DEC-OVERFLOW NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NOT (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT A) (QUOTE 1)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP V-ALU-INT-DEC V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-DEC . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-DEC-OVERFLOW))))) (PUT1-LST (QUOTE INT-DEC-RANGEP-LEMMAS) (QUOTE (IDATE 1000402195125 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO) EVENT (PROVE-LEMMA INT-DEC-RANGEP-LEMMAS (REWRITE) (AND (IMPLIES (NOT (INTEGER-IN-RANGEP (SUB1 (V-TO-INT A)) (LENGTH A))) (V-NZEROP (INT-TO-V (SUB1 (V-TO-INT A)) (LENGTH A)))) (AND (IMPLIES (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (NOT (INTEGER-IN-RANGEP (MINUS (ADD1 (NEGATIVE-GUTS (V-TO-INT A)))) (LENGTH A)))) (V-NZEROP (INT-TO-V (MINUS (ADD1 (NEGATIVE-GUTS (V-TO-INT A)))) (LENGTH A)))) (AND (IMPLIES (AND (NOT (NEGATIVEP (IPLUS (QUOTE -1) (V-TO-INT A)))) (V-NZEROP (INT-TO-V (IPLUS (QUOTE -1) (V-TO-INT A)) (LENGTH A)))) (NOT (EQUAL (IPLUS (QUOTE -1) (V-TO-INT A)) (QUOTE 0)))) (IMPLIES (AND (NOT (ZEROP (LENGTH A))) (AND (NOT (NEGATIVEP (IPLUS (QUOTE -1) (V-TO-INT A)))) (NOT (V-NZEROP (INT-TO-V (IPLUS (QUOTE -1) (V-TO-INT A)) (LENGTH A)))))) (EQUAL (IPLUS (QUOTE -1) (V-TO-INT A)) (QUOTE 0)))))) ((ENABLE INTEGER-IN-RANGEP EXP V-NEGP-AS-BOUNDS INT-TO-V REMAINDER V-TO-INT) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-1-EXP-2 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 EXP . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INEG . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILEQ . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILESSP . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-LESSP-EXP-2-LENGTH . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 IPLUS . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-NZEROP . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INT-DEC-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INT-DEC-RANGEP-LEMMAS) (LEMMAS IPLUS . INT-DEC-RANGEP-LEMMAS) (LEMMAS EQUAL . INT-DEC-RANGEP-LEMMAS) (LEMMAS V-NZEROP . INT-DEC-RANGEP-LEMMAS) (LEMMAS V-NZEROP . INT-DEC-RANGEP-LEMMAS))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-NEG-GT-0) (QUOTE (IDATE 1000402195124 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-NEG-GT-0 NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (ILESSP (QUOTE 0) (INEG (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (ILEQ (INEG (V-TO-INT A)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP ILEQ V-ALU-INT-NEG V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INT-NEG-RANGE-IMPLICATIONS . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 OP-NEG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-NEG-GT-0) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-NEG-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-NEG-ZERO) (QUOTE (IDATE 1000402195124 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-NEG-ZERO NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (NOT (EQUAL (INEG (V-TO-INT A)) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (EQUAL (INEG (V-TO-INT A)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP V-ALU-INT-NEG V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INT-NEG-RANGE-IMPLICATIONS . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 OP-NEG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-NEG-ZERO) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-NEG-ZERO))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (QUOTE (IDATE 1000402195124 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-NEG-NEGATIVE NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (NEGATIVEP (INEG (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (NOT (NEGATIVEP (INEG (V-TO-INT A))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP INTEGERP V-ALU-INT-NEG V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V-0 . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INT-NEG-RANGE-IMPLICATIONS . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-NEG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-NEG-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (QUOTE (IDATE 1000402195123 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-NEG-OVERFLOW NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (INTEGER-IN-RANGEP (INEG (V-TO-INT A)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-NEG)))) (NOT (INTEGER-IN-RANGEP (INEG (V-TO-INT A)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS INEG IDIFFERENCE IZEROP V-ALU-INT-NEG V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OVERFLOWP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-0 . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-NEG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-NEG-OVERFLOW))))) (PUT1-LST (QUOTE INT-NEG-RANGE-IMPLICATIONS) (QUOTE (IDATE 1000402195123 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) EVENT (PROVE-LEMMA INT-NEG-RANGE-IMPLICATIONS (REWRITE) (AND (IMPLIES (AND (NEGATIVEP (V-TO-INT A)) (NOT (INTEGER-IN-RANGEP (NEGATIVE-GUTS (V-TO-INT A)) (LENGTH A)))) (V-NEGP (INT-TO-V (NEGATIVE-GUTS (V-TO-INT A)) (LENGTH A)))) (AND (IMPLIES (AND (NOT (NEGATIVEP (V-TO-INT A))) (NOT (INTEGER-IN-RANGEP (MINUS (V-TO-INT A)) (LENGTH A)))) (NOT (V-NEGP (INT-TO-V (MINUS (V-TO-INT A)) (LENGTH A))))) (IMPLIES (AND (NOT (NEGATIVEP (V-TO-INT A))) (NOT (INTEGER-IN-RANGEP (MINUS (V-TO-INT A)) (LENGTH A)))) (V-NZEROP (INT-TO-V (MINUS (V-TO-INT A)) (LENGTH A)))))) ((ENABLE INTEGER-IN-RANGEP EXP V-NEGP-AS-BOUNDS INT-TO-V REMAINDER V-TO-INT) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IF . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 EXP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 INEG . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 IPLUS . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 ILEQ . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 ILESSP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 V-NZEROP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 V-NEGP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INT-NEG-RANGE-IMPLICATIONS) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INT-NEG-RANGE-IMPLICATIONS) (LEMMAS V-NZEROP . INT-NEG-RANGE-IMPLICATIONS) (LEMMAS V-NEGP . INT-NEG-RANGE-IMPLICATIONS) (LEMMAS V-NEGP . INT-NEG-RANGE-IMPLICATIONS))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADD-GT-0) (QUOTE (IDATE 1000402195123 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADD-GT-0 NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (ILESSP (QUOTE 0) (IPLUS (V-TO-INT A) (V-TO-INT B)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (ILEQ (IPLUS (V-TO-INT A) (V-TO-INT B)) (QUOTE 0))))) ((USE (INTEGER-IN-RANGEP-IPLUS$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (L (LENGTH A)))) (ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT IZEROP ILEQ INTEGER-IN-RANGEP INEG) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 LESSP-1-EXP-2 . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-IPLUS-MINUS-0 . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS$COMMUTED . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 OP-ADD . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADD-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADD-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (QUOTE (IDATE 1000402195122 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADD-NEGATIVE NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS)))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (NEGATIVEP (IPLUS (V-TO-INT A) (V-TO-INT B)))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (NOT (NEGATIVEP (IPLUS (V-TO-INT A) (V-TO-INT B))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT INTEGER-IN-RANGEP-IPLUS) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-ADD . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADD-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (QUOTE (IDATE 1000402195122 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADD-OVERFLOW NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (INTEGER-IN-RANGEP (IPLUS (V-TO-INT A) (V-TO-INT B)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (NOT (INTEGER-IN-RANGEP (IPLUS (V-TO-INT A) (V-TO-INT B)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-ADD . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADD-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADDC-GT-0) (QUOTE (IDATE 1000402195122 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADDC-GT-0 NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (ILESSP (QUOTE 0) (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B))))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (ILEQ (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B))) (QUOTE 0))))) ((USE (INTEGER-IN-RANGEP-IPLUS$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (L (LENGTH A))) (INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED (A (V-TO-INT A)) (B (V-TO-INT B)) (L (LENGTH A)))) (ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT IZEROP ILEQ INTEGER-IN-RANGEP INEG) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 LESSP-1-EXP-2 . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP-INC-V-NZEROP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-IPLUS-MINUS-0 . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INEG . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS$COMMUTED . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 OP-ADDC . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADDC-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADDC-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (QUOTE (IDATE 1000402195114 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE NIL (IMPLIES (AND (BV2P A B) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (NEGATIVEP (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B))))) (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (NOT (NEGATIVEP (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B)))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-IPLUS-CARRY) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-CARRY . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-ADDC . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (INTEGER-IN-RANGEP (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (NOT (INTEGER-IN-RANGEP (IPLUS (B-TO-NAT (C-FLAG FLAGS)) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-NZEROP-INT-TO-V . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-ADDC . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-INC-GT-0) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-INC-GT-0 NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (N-SET SET-FLAGS) (AND (V-SET SET-FLAGS) (Z-SET SET-FLAGS)))))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (ILESSP (QUOTE 0) (IPLUS (QUOTE 1) (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (ILEQ (IPLUS (QUOTE 1) (V-TO-INT A)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT INTEGER-IN-RANGEP-IPLUS IZEROP ILEQ) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP-INC-V-NZEROP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-1 . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 OP-INC . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-INC-GT-0) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-INC-GT-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-INC-NEGATIVE NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (AND (NOT (EQUAL (LENGTH A) (QUOTE 1))) (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS))))) (AND (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (NOT (NEGATIVEP (IPLUS (V-TO-INT A) (QUOTE 1))))) (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (NEGATIVEP (IPLUS (V-TO-INT A) (QUOTE 1)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT INTEGER-IN-RANGEP-IPLUS) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IZEROP-INC-V-NZEROP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-1 . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 OP-INC . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-INC-NEGATIVE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-INC-NEGATIVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-INC-ZERO) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-INC-ZERO NIL (IMPLIES (AND (BVP A) (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (NOT (EQUAL (IPLUS (V-TO-INT A) (QUOTE 1)) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (EQUAL (IPLUS (V-TO-INT A) (QUOTE 1)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS IZEROP V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 IZEROP-INC-V-NZEROP . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 OP-INC . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-INC-ZERO) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-INC-ZERO))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-INC-OVERFLOW NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (V-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (INTEGER-IN-RANGEP (IPLUS (V-TO-INT A) (QUOTE 1)) (LENGTH A))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (NOT (INTEGER-IN-RANGEP (IPLUS (V-TO-INT A) (QUOTE 1)) (LENGTH A)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV B-TO-NAT ZB FIX-INT ILESSP INTEGERP-IPLUS V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IZEROP-INC-V-NZEROP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INT-TO-V-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 IPLUS . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 OP-INC . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-INC-OVERFLOW) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-INC-OVERFLOW))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-INT-MOVE) (QUOTE (IDATE 1000402195113 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-INT-MOVE NIL (IMPLIES (BVP A) (AND (IMPLIES (V-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (INTEGER-IN-RANGEP (V-TO-INT A) (LENGTH A))) (AND (EQUAL (STORE-RESULTP (CC-VC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (INTEGER-IN-RANGEP (V-TO-INT A) (LENGTH A))) (AND (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NOT (INTEGER-IN-RANGEP (V-TO-INT A) (LENGTH A)))) (EQUAL (STORE-RESULTP (CC-VS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NOT (INTEGER-IN-RANGEP (V-TO-INT A) (LENGTH A)))))))) (AND (IMPLIES (Z-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NOT (EQUAL (V-TO-INT A) (QUOTE 0)))) (AND (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (EQUAL (V-TO-INT A) (QUOTE 0))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NOT (EQUAL (V-TO-INT A) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (IZEROP (V-TO-INT A))))))) (AND (IMPLIES (N-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-PL) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NOT (NEGATIVEP (V-TO-INT A)))) (AND (EQUAL (STORE-RESULTP (CC-MI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NEGATIVEP (V-TO-INT A))) (AND (EQUAL (STORE-RESULTP (CC-PL) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NOT (NEGATIVEP (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-MI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NEGATIVEP (V-TO-INT A))))))) (AND (IMPLIES (AND (V-SET SET-FLAGS) (N-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NOT (NEGATIVEP (V-TO-INT A)))) (AND (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NEGATIVEP (V-TO-INT A))) (AND (EQUAL (STORE-RESULTP (CC-GE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NOT (NEGATIVEP (V-TO-INT A)))) (EQUAL (STORE-RESULTP (CC-LT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NEGATIVEP (V-TO-INT A))))))) (IMPLIES (AND (V-SET SET-FLAGS) (AND (N-SET SET-FLAGS) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (ILESSP (QUOTE 0) (V-TO-INT A))) (AND (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (ILEQ (V-TO-INT A) (QUOTE 0))) (AND (EQUAL (STORE-RESULTP (CC-GT) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (ILESSP (QUOTE 0) (V-TO-INT A))) (EQUAL (STORE-RESULTP (CC-LE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (ILEQ (V-TO-INT A) (QUOTE 0)))))))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV *1*EXP *1*B-TO-NAT ZB IZEROP FIX-INT ILESSP ILEQ V-NEGP->NEGATIVEP-V-TO-INT REWRITE-EQUAL-V-TO-INT-0) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-NEGP->NEGATIVEP-V-TO-INT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-V-TO-INT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 INTEGERP-V-TO-INT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 REWRITE-EQUAL-V-TO-INT-0 . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 ILEQ . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-LE . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 ILESSP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-GT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-LT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-GE . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-MI . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-PL . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 IZEROP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-VS . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 OP-M15 . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-TO-INT . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 OP-MOVE . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-VC . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-INT-MOVE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-INT-MOVE))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP--1) (QUOTE (IDATE 1000402195113 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP--1 (REWRITE) (IMPLIES (NOT (ZEROP L)) (INTEGER-IN-RANGEP (QUOTE -1) L)) ((ENABLE INTEGER-IN-RANGEP) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP--1) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP--1) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP--1))))) (PUT1-LST (QUOTE LENGTH-INT-TO-V) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW) EVENT (PROVE-LEMMA LENGTH-INT-TO-V (REWRITE) (EQUAL (LENGTH (INT-TO-V I L)) (FIX L)) ((ENABLE INT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . LENGTH-INT-TO-V) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . LENGTH-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INT-TO-V . LENGTH-INT-TO-V) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-INT-TO-V) (LEMMAS LENGTH . LENGTH-INT-TO-V))))) (PUT1-LST (QUOTE NOT-V-NEGP-NAT-TO-V-0) (QUOTE (IDATE 1000402195112 EVENT (PROVE-LEMMA NOT-V-NEGP-NAT-TO-V-0 (REWRITE) (IMPLIES (ZEROP A) (NOT (V-NEGP (NAT-TO-V A L)))) ((ENABLE V-NEGP NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . NOT-V-NEGP-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . NOT-V-NEGP-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NOT-V-NEGP-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NOT-V-NEGP-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-NEGP . NOT-V-NEGP-NAT-TO-V-0) (LEMMAS V-NEGP . NOT-V-NEGP-NAT-TO-V-0))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-0) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-0 (REWRITE) (IMPLIES (IZEROP A) (INTEGER-IN-RANGEP A L)) ((ENABLE-THEORY ALL-INTEGER-DEFNS) (ENABLE INTEGER-IN-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-0) (IMMEDIATE-DEPENDENTS0 IZEROP . INTEGER-IN-RANGEP-0) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-0))))) (PUT1-LST (QUOTE V-NZEROP-INT-TO-V-0) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE) EVENT (PROVE-LEMMA V-NZEROP-INT-TO-V-0 (REWRITE) (IMPLIES (IZEROP Z) (NOT (V-NZEROP (INT-TO-V Z L)))) ((ENABLE INT-TO-V) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 ILESSP . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-INT-TO-V-0) (IMMEDIATE-DEPENDENTS0 IZEROP . V-NZEROP-INT-TO-V-0) (LEMMAS V-NZEROP . V-NZEROP-INT-TO-V-0))))) (PUT1-LST (QUOTE IZEROP-INC-V-NZEROP) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW) EVENT (PROVE-LEMMA IZEROP-INC-V-NZEROP (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP A L) (NOT (ZEROP L))) (EQUAL (V-NZEROP (INT-TO-V (IPLUS (QUOTE 1) A) L)) (NOT (IZEROP (IPLUS (QUOTE 1) A))))) ((ENABLE-THEORY ALL-INTEGER-DEFNS) (ENABLE EXP INT-TO-V INTEGER-IN-RANGEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LESSP-1-PLUS-X-X . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 EXP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 INEG . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 ILESSP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-0 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 INTEGERP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 ILEQ . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 IZEROP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 IPLUS . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 INT-TO-V . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NZEROP . IZEROP-INC-V-NZEROP) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . IZEROP-INC-V-NZEROP) (LEMMAS V-NZEROP . IZEROP-INC-V-NZEROP))))) (PUT1-LST (QUOTE V-NZEROP-INT-TO-V) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW) EVENT (PROVE-LEMMA V-NZEROP-INT-TO-V (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP N L) (NOT (ZEROP L))) (EQUAL (V-NZEROP (INT-TO-V N L)) (NOT (IZEROP N)))) ((ENABLE INT-TO-V INTEGER-IN-RANGEP EXP) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INEG . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 ILESSP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INTEGERP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 FIX-INT . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 IPLUS . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 EXP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 ILEQ . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 IZEROP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . V-NZEROP-INT-TO-V) (LEMMAS V-NZEROP . V-NZEROP-INT-TO-V))))) (PUT1-LST (QUOTE LESSP-1-EXP-2) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0) EVENT (PROVE-LEMMA LESSP-1-EXP-2 (REWRITE) (IMPLIES (NOT (ZEROP L)) (LESSP (QUOTE 1) (EXP (QUOTE 2) L))) ((ENABLE EXP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-1-EXP-2) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . LESSP-1-EXP-2) (IMMEDIATE-DEPENDENTS0 LESSP-1-PLUS-X-X . LESSP-1-EXP-2) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-1-EXP-2) (LINEAR-LEMMAS EXP . LESSP-1-EXP-2))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-GT-0) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (AND (NOT (ZEROP L)) (NOT (EQUAL L (QUOTE 1)))))) (EQUAL (NEGATIVEP (IPLUS B (INEG (IPLUS (QUOTE 1) A)))) (IFF (V-NEGP (INT-TO-V (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L)) (INTEGER-IN-RANGEP (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L)))) ((USE (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF) (QUOTE (IDATE 1000402195112 EVENT (TOGGLE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-INEG-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (QUOTE (IDATE 1000402195112 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY-OFF) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-INEG-CARRY (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (AND (NOT (ZEROP L)) (NOT (EQUAL L (QUOTE 1)))))) (EQUAL (INTEGER-IN-RANGEP (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L)) (NEGATIVEP (IPLUS B (INEG (IPLUS (QUOTE 1) A))))))) ((USE (SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (EXP-2-L-1<=EXP-2-L)) (EXPAND (REMAINDER B (PLUS (EXP (QUOTE 2) (SUB1 L)) (EXP (QUOTE 2) (SUB1 L))))) (ENABLE EXP INTEGER-IN-RANGEP ILESSP ILEQ INEG IPLUS INT-TO-V IDIFFERENCE FIX-INT V-NEGP-AS-BOUNDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-Y-CROCK . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-PLUS-A-B-B . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-A-PLUS-A-A . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 EXP-2-L-1<=EXP-2-L . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG-CARRY))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (QUOTE (IDATE 1000402195046 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (NEGATIVEP (IPLUS B (INEG A))) (IFF (INTEGER-IN-RANGEP (IPLUS B (INEG A)) L) (V-NEGP (INT-TO-V (IPLUS B (INEG A)) L))))) ((USE (INTEGER-IN-RANGEP-IPLUS-INEG)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG-OFF) (QUOTE (IDATE 1000402195046 EVENT (TOGGLE INTEGER-IN-RANGEP-IPLUS-INEG-OFF INTEGER-IN-RANGEP-IPLUS-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-INEG . INTEGER-IN-RANGEP-IPLUS-INEG-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-INEG-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-INEG) (QUOTE (IDATE 1000402195046 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-OFF) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-INEG (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS B (INEG A)) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS B (INEG A)) L)) (NEGATIVEP (IPLUS B (INEG A)))))) ((USE (SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (EXP-2-L-1<=EXP-2-L)) (ENABLE EXP INTEGER-IN-RANGEP ILESSP ILEQ INEG IPLUS INT-TO-V FIX-INT V-NEGP-AS-BOUNDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-ZEROP . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-MINUS-ZERO . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 LESSP-A-PLUS-A-A . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 EXP-2-L-1<=EXP-2-L . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-INEG) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-INEG))))) (PUT1-LST (QUOTE NOT-INTEGERP-MINUS-ZERO) (QUOTE (IDATE 1000402195041 IMMEDIATE-DEPENDENTS0 (INEG-AS-IDIFFERENCE FIX-INT-INT-TO-V IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG) EVENT (PROVE-LEMMA NOT-INTEGERP-MINUS-ZERO (REWRITE) (EQUAL (INTEGERP (MINUS X)) (NOT (ZEROP X))) ((ENABLE INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . NOT-INTEGERP-MINUS-ZERO) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . NOT-INTEGERP-MINUS-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP . NOT-INTEGERP-MINUS-ZERO) (LEMMAS INTEGERP . NOT-INTEGERP-MINUS-ZERO))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (QUOTE (IDATE 1000402195040 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADDC-GT-0) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (NEGATIVEP (IPLUS (QUOTE 1) (IPLUS A B))) (IFF (INTEGER-IN-RANGEP (IPLUS (QUOTE 1) (IPLUS A B)) L) (V-NEGP (INT-TO-V (IPLUS (QUOTE 1) (IPLUS A B)) L))))) ((USE (INTEGER-IN-RANGEP-IPLUS-CARRY)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-CARRY . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-CARRY-OFF) (QUOTE (IDATE 1000402195040 EVENT (TOGGLE INTEGER-IN-RANGEP-IPLUS-CARRY-OFF INTEGER-IN-RANGEP-IPLUS-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS-CARRY . INTEGER-IN-RANGEP-IPLUS-CARRY-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-CARRY) (QUOTE (IDATE 1000402195040 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY-OFF) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS-CARRY (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS (QUOTE 1) (IPLUS A B)) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS (QUOTE 1) (IPLUS A B)) L)) (NEGATIVEP (IPLUS (QUOTE 1) (IPLUS A B)))))) ((USE (ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (EXP-2-L-1<=EXP-2-L)) (ENABLE EXP INTEGER-IN-RANGEP V-NEGP-AS-BOUNDS INT-TO-V) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-A-PLUS-A-A . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-1-PLUS-X-X . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 EXP-2-L-1<=EXP-2-L . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS-CARRY) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-CARRY) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS-CARRY))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS$COMMUTED) (QUOTE (IDATE 1000402195038 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS$COMMUTED NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (NEGATIVEP (IPLUS A B)) (IFF (INTEGER-IN-RANGEP (IPLUS A B) L) (V-NEGP (INT-TO-V (IPLUS A B) L))))) ((USE (INTEGER-IN-RANGEP-IPLUS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 BVP-INT-TO-V . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS$COMMUTED) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS$COMMUTED))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS-OFF) (QUOTE (IDATE 1000402195038 EVENT (TOGGLE INTEGER-IN-RANGEP-IPLUS-OFF INTEGER-IN-RANGEP-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-IPLUS . INTEGER-IN-RANGEP-IPLUS-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-IPLUS-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-IPLUS) (QUOTE (IDATE 1000402195038 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS-OFF) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-IPLUS (REWRITE) (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS A B) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS A B) L)) (NEGATIVEP (IPLUS A B))))) ((USE (ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (EXP-2-L-1<=EXP-2-L)) (ENABLE INTEGER-IN-RANGEP EXP V-NEGP-AS-BOUNDS INT-TO-V) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 LESSP-A-PLUS-A-A . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-ZEROP . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 EXP-2-L-1<=EXP-2-L . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-IPLUS))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF) (QUOTE (IDATE 1000402195037 EVENT (TOGGLE INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF INTEGER-IN-RANGEP-THE-OBVIOUS-WAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP-THE-OBVIOUS-WAY INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (QUOTE (IDATE 1000402195037 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE INTEGER-IN-RANGEP-THE-OBVIOUS-WAY-OFF) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-THE-OBVIOUS-WAY (REWRITE) (IMPLIES (AND (NOT (ZEROP L)) (AND (INTEGERP I) (INTEGER-IN-RANGEP I L))) (EQUAL (V-NEGP (INT-TO-V I L)) (NEGATIVEP I))) ((USE (LESSP-REMAINDER-THEOREM (N I) (M (EXP (QUOTE 2) (SUB1 L))) (R (PLUS (EXP (QUOTE 2) (SUB1 L)) (EXP (QUOTE 2) (SUB1 L)))))) (ENABLE EXP INTEGER-IN-RANGEP V-NEGP-AS-BOUNDS INT-TO-V) (ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER-THEOREM . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 V-NEGP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) (LEMMAS V-NEGP . INTEGER-IN-RANGEP-THE-OBVIOUS-WAY))))) (PUT1-LST (QUOTE LESSP-REMAINDER-THEOREM) (QUOTE (IDATE 1000402195037 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-THE-OBVIOUS-WAY) EVENT (PROVE-LEMMA LESSP-REMAINDER-THEOREM NIL (IMPLIES (LESSP N M) (LESSP (REMAINDER N R) M)))))) (PUT1-LST (QUOTE EXP-2-L-1<=EXP-2-L) (QUOTE (IDATE 1000402195037 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS) EVENT (PROVE-LEMMA EXP-2-L-1<=EXP-2-L NIL (IMPLIES (NOT (ZEROP L)) (LESSP (EXP (QUOTE 2) (SUB1 L)) (EXP (QUOTE 2) L))) ((ENABLE EXP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-2-L-1<=EXP-2-L) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . EXP-2-L-1<=EXP-2-L) (IMMEDIATE-DEPENDENTS0 LESSP-A-PLUS-A-A . EXP-2-L-1<=EXP-2-L) (IMMEDIATE-DEPENDENTS0 EXP . EXP-2-L-1<=EXP-2-L))))) (PUT1-LST (QUOTE SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (QUOTE (IDATE 1000402195037 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG) EVENT (PROVE-LEMMA SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (LESSP (IPLUS B (INEG A)) (EXP (QUOTE 2) L))) ((ENABLE EXP INTEGER-IN-RANGEP ILESSP ILEQ INEG IPLUS INT-TO-V FIX-INT V-NEGP-AS-BOUNDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FIX-INT . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILESSP . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILEQ . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 EXP . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INEG . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 IPLUS . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS))))) (PUT1-LST (QUOTE ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS) EVENT (PROVE-LEMMA ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS NIL (IMPLIES (AND (INTEGER-IN-RANGEP A L) (AND (INTEGER-IN-RANGEP B L) (NOT (ZEROP L)))) (LESSP (IPLUS A B) (EXP (QUOTE 2) L))) ((ENABLE EXP INTEGER-IN-RANGEP ILESSP ILEQ INEG IPLUS INT-TO-V V-NEGP-AS-BOUNDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INEG . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILESSP . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ILEQ . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 EXP . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 IPLUS . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-V-TO-INT) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-V-TO-INT (REWRITE) (IMPLIES (EQUAL L (LENGTH A)) (INTEGER-IN-RANGEP (V-TO-INT A) L)) ((ENABLE INTEGER-IN-RANGEP V-TO-INT) (ENABLE-THEORY ALL-INTEGER-DEFNS) (DISABLE BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-LESSP-EXP-2-LENGTH . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 EXP-LINEAR-BOUNDS . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 LENGTH . INTEGER-IN-RANGEP-V-TO-INT) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-V-TO-INT))))) (PUT1-LST (QUOTE EXP-LINEAR-BOUNDS) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT) EVENT (PROVE-LEMMA EXP-LINEAR-BOUNDS (REWRITE) (IMPLIES (AND (IF (LESSP V (EXP (QUOTE 2) (SUB1 N))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP V (EXP (QUOTE 2) N))) (NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) (DIFFERENCE (EXP (QUOTE 2) N) V)))) ((EXPAND (EXP (QUOTE 2) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . EXP-LINEAR-BOUNDS) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . EXP-LINEAR-BOUNDS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . EXP-LINEAR-BOUNDS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-LINEAR-BOUNDS) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-DIFFERENCE . EXP-LINEAR-BOUNDS) (IMMEDIATE-DEPENDENTS0 EXP . EXP-LINEAR-BOUNDS) (LINEAR-LEMMAS EXP . EXP-LINEAR-BOUNDS))))) (PUT1-LST (QUOTE LESSP-A-PLUS-A-A) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS EXP-2-L-1<=EXP-2-L) EVENT (PROVE-LEMMA LESSP-A-PLUS-A-A (REWRITE) (EQUAL (LESSP A (PLUS A A)) (NOT (ZEROP A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-A-PLUS-A-A) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . LESSP-A-PLUS-A-A) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . LESSP-A-PLUS-A-A) (LEMMAS LESSP . LESSP-A-PLUS-A-A))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-1) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE) EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-1 (REWRITE) (IMPLIES (AND (NOT (ZEROP L)) (NOT (EQUAL L (QUOTE 1)))) (INTEGER-IN-RANGEP (QUOTE 1) L)) ((ENABLE INTEGER-IN-RANGEP ILEQ ILESSP IPLUS INEG) (EXPAND (EXP (QUOTE 2) (SUB1 L))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-PLUS-X-X . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP-1) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-1) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-1))))) (PUT1-LST (QUOTE LESSP-1-PLUS-X-X) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y IZEROP-INC-V-NZEROP LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-1) EVENT (PROVE-LEMMA LESSP-1-PLUS-X-X (REWRITE) (EQUAL (LESSP (QUOTE 1) (PLUS X X)) (NOT (ZEROP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-1-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . LESSP-1-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . LESSP-1-PLUS-X-X) (LEMMAS LESSP . LESSP-1-PLUS-X-X))))) (PUT1-LST (QUOTE NOT-EQUAL-IPLUS-MINUS-0) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0) EVENT (PROVE-LEMMA NOT-EQUAL-IPLUS-MINUS-0 (REWRITE) (NOT (EQUAL (IPLUS A B) (QUOTE (*1*QUOTE MINUS 0)))) ((ENABLE-THEORY ALL-INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . NOT-EQUAL-IPLUS-MINUS-0) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . NOT-EQUAL-IPLUS-MINUS-0) (IMMEDIATE-DEPENDENTS0 PLUS-0 . NOT-EQUAL-IPLUS-MINUS-0) (IMMEDIATE-DEPENDENTS0 ALL-INTEGER-DEFNS . NOT-EQUAL-IPLUS-MINUS-0) (IMMEDIATE-DEPENDENTS0 IPLUS . NOT-EQUAL-IPLUS-MINUS-0) (LEMMAS EQUAL . NOT-EQUAL-IPLUS-MINUS-0))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-MINUS-0) (QUOTE (IDATE 1000402195035 EVENT (PROVE-LEMMA INTEGER-IN-RANGEP-MINUS-0 (REWRITE) (INTEGER-IN-RANGEP (QUOTE (*1*QUOTE MINUS 0)) L) ((ENABLE INTEGER-IN-RANGEP *1*EXP ILEQ ILESSP INEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INTEGER-IN-RANGEP-MINUS-0) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP-MINUS-0) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP-MINUS-0) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP-MINUS-0) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-MINUS-0) (LEMMAS INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-MINUS-0))))) (PUT1-LST (QUOTE V-TO-INT-NAT-TO-V-0) (QUOTE (IDATE 1000402195035 EVENT (PROVE-LEMMA V-TO-INT-NAT-TO-V-0 (REWRITE) (EQUAL (V-TO-INT (NAT-TO-V (QUOTE 0) L)) (QUOTE 0)) ((ENABLE V-TO-INT NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-TO-INT-NAT-TO-V-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-TO-INT-NAT-TO-V-0) (LEMMAS V-TO-INT . V-TO-INT-NAT-TO-V-0))))) (PUT1-LST (QUOTE BVP-INT-TO-V) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED) EVENT (PROVE-LEMMA BVP-INT-TO-V (REWRITE) (BVP (INT-TO-V I L)) ((ENABLE BVP INT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . BVP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 INT-TO-V . BVP-INT-TO-V) (IMMEDIATE-DEPENDENTS0 BVP . BVP-INT-TO-V) (LEMMAS BVP . BVP-INT-TO-V))))) (PUT1-LST (QUOTE INT-TO-V-V-TO-INT-0) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW) EVENT (PROVE-LEMMA INT-TO-V-V-TO-INT-0 (REWRITE) (EQUAL (V-TO-INT (INT-TO-V (QUOTE 0) L)) (QUOTE 0)) ((ENABLE V-TO-INT INT-TO-V ILESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 INT-TO-V . INT-TO-V-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INT-TO-V-V-TO-INT-0) (LEMMAS V-TO-INT . INT-TO-V-V-TO-INT-0))))) (PUT1-LST (QUOTE REWRITE-EQUAL-V-TO-INT-0-OFF) (QUOTE (IDATE 1000402195035 EVENT (TOGGLE REWRITE-EQUAL-V-TO-INT-0-OFF REWRITE-EQUAL-V-TO-INT-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-EQUAL-V-TO-INT-0 . REWRITE-EQUAL-V-TO-INT-0-OFF) (DISABLED-LEMMAS NIL REWRITE-EQUAL-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0-OFF . T))))) (PUT1-LST (QUOTE REWRITE-EQUAL-V-TO-INT-0) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-MOVE REWRITE-EQUAL-V-TO-INT-0-OFF) EVENT (PROVE-LEMMA REWRITE-EQUAL-V-TO-INT-0 (REWRITE) (EQUAL (EQUAL (V-TO-INT A) (QUOTE 0)) (V-ZEROP A)) ((ENABLE INTEGERP V-TO-INT V-ZEROP V-NZEROP REWRITE-EQUAL-V-TO-NAT-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-LESSP-EXP-2-LENGTH . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-0 . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 REWRITE-EQUAL-V-TO-NAT-0 . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . REWRITE-EQUAL-V-TO-INT-0) (IMMEDIATE-DEPENDENTS0 V-TO-INT . REWRITE-EQUAL-V-TO-INT-0) (LEMMAS EQUAL . REWRITE-EQUAL-V-TO-INT-0))))) (PUT1-LST (QUOTE V-NEGP->NEGATIVEP-V-TO-INT-OFF) (QUOTE (IDATE 1000402195035 EVENT (TOGGLE V-NEGP->NEGATIVEP-V-TO-INT-OFF V-NEGP->NEGATIVEP-V-TO-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP->NEGATIVEP-V-TO-INT . V-NEGP->NEGATIVEP-V-TO-INT-OFF) (DISABLED-LEMMAS NIL V-NEGP->NEGATIVEP-V-TO-INT V-NEGP->NEGATIVEP-V-TO-INT-OFF . T))))) (PUT1-LST (QUOTE V-NEGP->NEGATIVEP-V-TO-INT) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-MOVE V-NEGP->NEGATIVEP-V-TO-INT-OFF) EVENT (PROVE-LEMMA V-NEGP->NEGATIVEP-V-TO-INT (REWRITE) (IMPLIES (BVP A) (EQUAL (V-NEGP A) (NEGATIVEP (V-TO-INT A)))) ((ENABLE V-NEGP-AS-BOUNDS V-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 NEGATIVEP-IDIFFERENCE-ON-NUMBERPS . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP->NEGATIVEP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 BVP . V-NEGP->NEGATIVEP-V-TO-INT) (LEMMAS V-NEGP . V-NEGP->NEGATIVEP-V-TO-INT))))) (PUT1-LST (QUOTE NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (V-NEGP->NEGATIVEP-V-TO-INT) EVENT (PROVE-LEMMA NEGATIVEP-IDIFFERENCE-ON-NUMBERPS (REWRITE) (IMPLIES (AND (NUMBERP A) (NUMBERP B)) (EQUAL (NEGATIVEP (IDIFFERENCE A B)) (LESSP A B))) ((ENABLE IDIFFERENCE IPLUS INEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 INEG . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS) (LEMMAS NEGATIVEP . NEGATIVEP-IDIFFERENCE-ON-NUMBERPS))))) (PUT1-LST (QUOTE V-NEGP-AS-BOUNDS-OFF) (QUOTE (IDATE 1000402195035 EVENT (TOGGLE V-NEGP-AS-BOUNDS-OFF V-NEGP-AS-BOUNDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP-AS-BOUNDS . V-NEGP-AS-BOUNDS-OFF) (DISABLED-LEMMAS NIL V-NEGP-AS-BOUNDS V-NEGP-AS-BOUNDS-OFF . T))))) (PUT1-LST (QUOTE V-NEGP-AS-BOUNDS) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY V-NEGP->NEGATIVEP-V-TO-INT V-NEGP-AS-BOUNDS-OFF) EVENT (PROVE-LEMMA V-NEGP-AS-BOUNDS (REWRITE) (IMPLIES (BVP X) (EQUAL (V-NEGP X) (NOT (LESSP (V-TO-NAT X) (EXP (QUOTE 2) (SUB1 (LENGTH X))))))) ((ENABLE V-TO-NAT V-NEGP EXP LENGTH BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 LENGTH . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 EXP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP-AS-BOUNDS) (IMMEDIATE-DEPENDENTS0 BVP . V-NEGP-AS-BOUNDS) (LEMMAS V-NEGP . V-NEGP-AS-BOUNDS))))) (PUT1-LST (QUOTE INTEGERP-V-TO-INT) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE) EVENT (PROVE-LEMMA INTEGERP-V-TO-INT (REWRITE) (INTEGERP (V-TO-INT A)) ((ENABLE INTEGERP V-TO-INT IDIFFERENCE IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INTEGERP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGERP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . INTEGERP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . INTEGERP-V-TO-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-V-TO-INT) (LEMMAS INTEGERP . INTEGERP-V-TO-INT))))) (PUT1-LST (QUOTE V-TO-NAT-LESSP-EXP-2-LENGTH) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT REWRITE-EQUAL-V-TO-INT-0) EVENT (PROVE-LEMMA V-TO-NAT-LESSP-EXP-2-LENGTH (REWRITE) (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A))) ((ENABLE V-TO-NAT EXP LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR . V-TO-NAT-LESSP-EXP-2-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-NAT-LESSP-EXP-2-LENGTH) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-LESSP-EXP-2-LENGTH) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-LESSP-EXP-2-LENGTH) (LINEAR-LEMMAS EXP . V-TO-NAT-LESSP-EXP-2-LENGTH))))) (PUT1-LST (QUOTE IDIFFERENCE-0) (QUOTE (IDATE 1000402195035 IMMEDIATE-DEPENDENTS0 (REWRITE-EQUAL-V-TO-INT-0) EVENT (PROVE-LEMMA IDIFFERENCE-0 (REWRITE) (IMPLIES (AND (INTEGERP A) (INTEGERP B)) (EQUAL (EQUAL (IDIFFERENCE A B) (QUOTE 0)) (EQUAL A B))) ((ENABLE INTEGERP FIX-INT IDIFFERENCE IPLUS INEG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIFFERENCE-0) (LEMMAS EQUAL . IDIFFERENCE-0))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-LSR-ZERO) (QUOTE (IDATE 1000402195034 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-LSR-ZERO NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (NOT (EQUAL (QUOTIENT (V-TO-NAT A) (QUOTE 2)) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (EQUAL (QUOTIENT (V-TO-NAT A) (QUOTE 2)) (QUOTE 0))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-LSR-OUTPUT ZB C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-STUFF . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 OP-LSR . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-LSR-ZERO) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-LSR-ZERO))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-LSR-CARRY) (QUOTE (IDATE 1000402195034 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-LSR-CARRY NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (C-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (EQUAL (REMAINDER (V-TO-NAT A) (QUOTE 2)) (QUOTE 0))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (NOT (EQUAL (REMAINDER (V-TO-NAT A) (QUOTE 2)) (QUOTE 0)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-LSR V-ALU-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY) (DISABLE V-NEGP-V-SHIFT-RIGHT OPEN-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 BVP-CONS . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 OP-LSR . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-LSR-CARRY) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-LSR-CARRY))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-SUB) (QUOTE (IDATE 1000402195033 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-SUB NIL (IMPLIES (BV2P A B) (AND (IMPLIES (C-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NOT (LESSP (V-TO-NAT B) (V-TO-NAT A)))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (LESSP (V-TO-NAT B) (V-TO-NAT A))))) (IMPLIES (AND (C-SET SET-FLAGS) (Z-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-HI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (LESSP (V-TO-NAT A) (V-TO-NAT B))) (EQUAL (STORE-RESULTP (CC-LS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NOT (LESSP (V-TO-NAT A) (V-TO-NAT B)))))))) ((USE (ZERO-FLAG-INTERPRETATION-FOR-SUB) (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB)) (ENABLE C-SET Z-SET STORE-RESULTP) (DISABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-EQUAL . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 BOOLP-FLAG-EXTRACTERS . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 ZERO-FLAG-INTERPRETATION-FOR-SUB . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 CC-LS . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 CC-HI . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 OP-SUB . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-SUB) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-SUB))))) (PUT1-LST (QUOTE CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (QUOTE (IDATE 1000402195033 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB) EVENT (PROVE-LEMMA CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB NIL (IMPLIES (AND (BV2P A B) (C-SET SET-FLAGS)) (EQUAL (C-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (LESSP (V-TO-NAT B) (V-TO-NAT A)))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT C V N CV BV *1*EXP *1*B-TO-NAT ZB) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-NOT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-CARRY . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 PLUS-0 . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-AND . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ZEROP . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CVZBV . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-FLAG . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SET . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N-FLAG . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BV . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N-SET . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-IF . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 Z-FLAG . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 ZB . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 Z-SET . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OP-SUB . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C-FLAG . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C-SET . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BV2P . CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (QUOTE (IDATE 1000402195032 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-SUBB-HIGHER NIL (IMPLIES (AND (BV2P A B) (AND (C-SET SET-FLAGS) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-HI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (LESSP (PLUS (V-TO-NAT A) (B-TO-NAT (C-FLAG FLAGS))) (V-TO-NAT B))) (EQUAL (STORE-RESULTP (CC-LS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (NOT (LESSP (PLUS (V-TO-NAT A) (B-TO-NAT (C-FLAG FLAGS))) (V-TO-NAT B)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT C V N CV BV ZB *1*EXP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 REMAINDER-THEOREM-FOR-SUBB . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LINEAR . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 B-NOT . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 CC-LS . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 OP-SUBB . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 CC-HI . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-SUBB-HIGHER))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (QUOTE (IDATE 1000402195032 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-SUBB-CARRY NIL (IMPLIES (AND (BV2P A B) (C-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (NOT (LESSP (V-TO-NAT B) (PLUS (V-TO-NAT A) (B-TO-NAT (C-FLAG FLAGS)))))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUBB)))) (LESSP (V-TO-NAT B) (PLUS (V-TO-NAT A) (B-TO-NAT (C-FLAG FLAGS))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOT . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 OP-SUBB . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-SUBB-CARRY) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-SUBB-CARRY))))) (PUT1-LST (QUOTE DIFFERENCE-LINEAR) (QUOTE (IDATE 1000402195032 IMMEDIATE-DEPENDENTS0 (IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) EVENT (PROVE-LEMMA DIFFERENCE-LINEAR (REWRITE) (IMPLIES (LESSP A B) (EQUAL (LESSP (DIFFERENCE A C) B) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . DIFFERENCE-LINEAR) (LEMMAS LESSP . DIFFERENCE-LINEAR))))) (PUT1-LST (QUOTE REMAINDER-THEOREM-FOR-SUBB) (QUOTE (IDATE 1000402195032 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUBB-HIGHER) EVENT (PROVE-LEMMA REMAINDER-THEOREM-FOR-SUBB (REWRITE) (IMPLIES (AND (LESSP A B) (LESSP B C)) (EQUAL (REMAINDER (DIFFERENCE (PLUS B C) A) C) (DIFFERENCE B A))) ((EXPAND (REMAINDER (DIFFERENCE (PLUS B C) A) C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . REMAINDER-THEOREM-FOR-SUBB) (LEMMAS REMAINDER . REMAINDER-THEOREM-FOR-SUBB))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-DEC) (QUOTE (IDATE 1000402195032 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-DEC NIL (IMPLIES (BV2P A B) (AND (IMPLIES (C-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NOT (EQUAL (V-TO-NAT A) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (EQUAL (V-TO-NAT A) (QUOTE 0))))) (IMPLIES (AND (Z-SET SET-FLAGS) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (NOT (EQUAL (V-TO-NAT A) (QUOTE 1)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-DEC)))) (EQUAL (V-TO-NAT A) (QUOTE 1))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT C V N CV BV ZB *1*EXP *1*B-TO-NAT EQUAL-SUB1-0 EQUAL-EXP-1) (EXPAND (REMAINDER (SUB1 (PLUS (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A)))) (EXP (QUOTE 2) (LENGTH A)))) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 EXP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-NOT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-XOR . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-EQUV . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 PLUS-0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-DEC . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-PLUS-A-B-B . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-NOT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-AND . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 OP-DEC . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-DEC))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-LESSP-EXP-2-LENGTH FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC) EVENT (PROVE-LEMMA LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR (REWRITE) (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-2-LENGTH-A . LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) (IMMEDIATE-DEPENDENTS0 LENGTH . LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) (LINEAR-LEMMAS EXP . LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-2-LENGTH-A) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT NAT-TO-V-OF-V-TO-NAT* IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-V-TO-INT V-NEGP->NEGATIVEP-V-TO-INT FLAGS-INTERPRETATION-NAT-SUBB-HIGHER LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR) EVENT (PROVE-LEMMA LESSP-V-TO-NAT-EXP-2-LENGTH-A (REWRITE) (IMPLIES (EQUAL L (LENGTH A)) (EQUAL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) L)) (QUOTE *1*TRUE))) ((ENABLE V-TO-NAT EXP LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (IMMEDIATE-DEPENDENTS0 LENGTH . LESSP-V-TO-NAT-EXP-2-LENGTH-A) (LEMMAS LESSP . LESSP-V-TO-NAT-EXP-2-LENGTH-A))))) (PUT1-LST (QUOTE LESSP-SUB1-PLUS-A-B-B) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY FLAGS-INTERPRETATION-NAT-DEC) EVENT (PROVE-LEMMA LESSP-SUB1-PLUS-A-B-B (REWRITE) (EQUAL (LESSP (SUB1 (PLUS A B)) B) (AND (ZEROP A) (NOT (ZEROP B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LESSP-SUB1-PLUS-A-B-B) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-SUB1-PLUS-A-B-B) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . LESSP-SUB1-PLUS-A-B-B) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . LESSP-SUB1-PLUS-A-B-B) (LEMMAS LESSP . LESSP-SUB1-PLUS-A-B-B))))) (PUT1-LST (QUOTE V-NZEROP-NAT-TO-V) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (INT-DEC-RANGEP-LEMMAS V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC) EVENT (PROVE-LEMMA V-NZEROP-NAT-TO-V (REWRITE) (IMPLIES (LESSP N (EXP (QUOTE 2) L)) (EQUAL (V-NZEROP (NAT-TO-V N L)) (NOT (ZEROP N)))) ((ENABLE V-NZEROP NAT-TO-V QUOTIENT EXP V-NZEROP-NAT-TO-V$HELP) (INDUCT (NAT-TO-V N L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V$HELP . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V-ZERO . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EXP . V-NZEROP-NAT-TO-V) (LEMMAS V-NZEROP . V-NZEROP-NAT-TO-V))))) (PUT1-LST (QUOTE V-NZEROP-NAT-TO-V$HELP-OFF) (QUOTE (IDATE 1000402195031 EVENT (TOGGLE V-NZEROP-NAT-TO-V$HELP-OFF V-NZEROP-NAT-TO-V$HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V$HELP . V-NZEROP-NAT-TO-V$HELP-OFF) (DISABLED-LEMMAS NIL V-NZEROP-NAT-TO-V$HELP V-NZEROP-NAT-TO-V$HELP-OFF . T))))) (PUT1-LST (QUOTE V-NZEROP-NAT-TO-V$HELP) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (V-NZEROP-NAT-TO-V V-NZEROP-NAT-TO-V$HELP-OFF) EVENT (PROVE-LEMMA V-NZEROP-NAT-TO-V$HELP (REWRITE) (IMPLIES (AND (NOT (ZEROP L)) (AND (NOT (ZEROP N)) (AND (EQUAL (REMAINDER N (QUOTE 2)) (QUOTE 0)) (LESSP N (EXP (QUOTE 2) L))))) (LESSP (QUOTIENT N (QUOTE 2)) (EXP (QUOTE 2) (SUB1 L)))) ((ENABLE REMAINDER-EXP QUOTIENT-EXP) (USE (QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP (N N) (M (EXP (QUOTE 2) L)) (L (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL . V-NZEROP-NAT-TO-V$HELP) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . V-NZEROP-NAT-TO-V$HELP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . V-NZEROP-NAT-TO-V$HELP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP . V-NZEROP-NAT-TO-V$HELP) (IMMEDIATE-DEPENDENTS0 EXP . V-NZEROP-NAT-TO-V$HELP) (LINEAR-LEMMAS QUOTIENT . V-NZEROP-NAT-TO-V$HELP) (LINEAR-LEMMAS EXP . V-NZEROP-NAT-TO-V$HELP))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (QUOTE (IDATE 1000402195031 IMMEDIATE-DEPENDENTS0 (V-NZEROP-NAT-TO-V$HELP) EVENT (PROVE-LEMMA QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP NIL (IMPLIES (AND (LESSP N M) (AND (NOT (ZEROP N)) (AND (NOT (ZEROP M)) (AND (NOT (ZEROP L)) (AND (EQUAL (REMAINDER N L) (QUOTE 0)) (EQUAL (REMAINDER M L) (QUOTE 0))))))) (LESSP (QUOTIENT N L) (QUOTIENT M L))) ((INDUCT (DOUBLE-DIFFERENCE-INDUCTION N M L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) (IMMEDIATE-DEPENDENTS0 DOUBLE-DIFFERENCE-INDUCTION . QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP))))) (PUT1-LST (QUOTE *1*DOUBLE-DIFFERENCE-INDUCTION) (QUOTE (MAIN-EVENT DOUBLE-DIFFERENCE-INDUCTION))) (PUT1-LST (QUOTE DOUBLE-DIFFERENCE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLE-DIFFERENCE-INDUCTION 2 NIL NIL NIL)) TOTALP-LST ((DOUBLE-DIFFERENCE-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (N M L) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (IF (EQUAL L (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP L) (DOUBLE-DIFFERENCE-INDUCTION (DIFFERENCE N L) (DIFFERENCE M L) L) (QUOTE *1*TRUE))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) LISP-CODE *1*DOUBLE-DIFFERENCE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (ZEROP M)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (ZEROP M)) (ZEROP L)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (ZEROP M)) (NOT (ZEROP L))) (((DIFFERENCE N L) (DIFFERENCE M L) L)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP ZERO LEQ-LESSP-DIFFERENCE)) (JUSTIFICATION (M) (COUNT M) LESSP (ZEROP COUNT-NUMBERP ZERO LEQ-LESSP-DIFFERENCE))) IDATE 1000402195030 CONTROLLER-POCKETS (1 2) SATELLITES (*1*DOUBLE-DIFFERENCE-INDUCTION) IMMEDIATE-DEPENDENTS0 (QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP) EVENT (DEFN DOUBLE-DIFFERENCE-INDUCTION (N M L) (IF (ZEROP N) (QUOTE *1*TRUE) (IF (ZEROP M) (QUOTE *1*TRUE) (IF (ZEROP L) (QUOTE *1*TRUE) (DOUBLE-DIFFERENCE-INDUCTION (DIFFERENCE N L) (DIFFERENCE M L) L))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . DOUBLE-DIFFERENCE-INDUCTION) (DCELL . *1*DOUBLE-DIFFERENCE-INDUCTION))))) (PUT1-LST (QUOTE WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL) (QUOTE (IDATE 1000402195030 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT NAT-TO-V-OF-V-TO-NAT* IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY EXP-2-L-1<=EXP-2-L SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT EXP-LINEAR-BOUNDS INTEGER-IN-RANGEP-1 INTEGER-IN-RANGEP-MINUS-0 V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC V-NZEROP-NAT-TO-V V-NZEROP-NAT-TO-V$HELP) EVENT (PROVE-LEMMA WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL (REWRITE) (IMPLIES (NOT (ZEROP MANTISSA)) (NOT (EQUAL (EXP MANTISSA EXPONENT) (QUOTE 0)))) ((ENABLE EXP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-BOTTOM . WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL) (IMMEDIATE-DEPENDENTS0 EXP . WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL) (LEMMAS EQUAL . WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-ADD) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-ADD NIL (IMPLIES (AND (BV2P A B) (C-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (LESSP (PLUS (V-TO-NAT A) (V-TO-NAT B)) (EXP (QUOTE 2) (LENGTH A)))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADD)))) (NOT (LESSP (PLUS (V-TO-NAT A) (V-TO-NAT B)) (EXP (QUOTE 2) (LENGTH A))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 PLUS-0 . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 B-AND . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 EXP . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 OP-ADD . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-ADD) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-ADD))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-ADDC) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-ADDC NIL (IMPLIES (AND (BV2P A B) (C-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (LESSP (PLUS (B-TO-NAT (C-FLAG FLAGS)) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A)))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ADDC)))) (NOT (LESSP (PLUS (B-TO-NAT (C-FLAG FLAGS)) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 B-AND . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 EXP . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 OP-ADDC . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-ADDC) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-ADDC))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-INC) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-INC NIL (IMPLIES (AND (BV2P A B) (C-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (LESSP (ADD1 (V-TO-NAT A)) (EXP (QUOTE 2) (LENGTH A)))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-INC)))) (NOT (LESSP (ADD1 (V-TO-NAT A)) (EXP (QUOTE 2) (LENGTH A))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT C V N CV BV *1*EXP *1*B-TO-NAT) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-CARRY . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 B-EQUV . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 B-XOR . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 B-AND . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-NZEROP-NAT-TO-V-ZERO . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 PLUS-0 . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 EXP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 OP-INC . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-INC) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-INC))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-NAT-MOVE) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-NAT-MOVE NIL (IMPLIES (AND (BV2P A B) (Z-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (NOT (EQUAL (V-TO-NAT A) (QUOTE 0)))) (AND (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-MOVE)))) (EQUAL (V-TO-NAT A) (QUOTE 0))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (NOT (EQUAL (V-TO-NAT A) (QUOTE 0)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-M15)))) (EQUAL (V-TO-NAT A) (QUOTE 0))))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C V N CV BV *1*EXP *1*B-TO-NAT ZB REWRITE-EQUAL-V-TO-NAT-0) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 REWRITE-EQUAL-V-TO-NAT-0 . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 OP-M15 . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 OP-MOVE . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-NAT-MOVE) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-NAT-MOVE))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-XOR) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-XOR NIL (IMPLIES (AND (BV2P A B) (AND (NOT (ZEROP (LENGTH A))) (Z-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-XOR)))) (NOT (EQUAL A B))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-XOR)))) (EQUAL A B)))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU ZB) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 V-XOR-NZEROP=NOT-EQUAL . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 OP-XOR . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-XOR) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-XOR))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-LSR) (QUOTE (IDATE 1000402195030 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-LSR NIL (IMPLIES (AND (BVP A) (AND (NOT (ZEROP (LENGTH A))) (C-SET SET-FLAGS))) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (NOT (NTH (QUOTE 0) A))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-LSR)))) (NTH (QUOTE 0) A)))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 OP-LSR . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-LSR) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-LSR))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-ROR) (QUOTE (IDATE 1000402195029 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-ROR NIL (IMPLIES (AND (BVP A) (AND (BOOLP (C-FLAG FLAGS)) (NOT (ZEROP (LENGTH A))))) (AND (IMPLIES (C-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-CC) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ROR)))) (NOT (NTH (QUOTE 0) A))) (EQUAL (STORE-RESULTP (CC-CS) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ROR)))) (NTH (QUOTE 0) A)))) (IMPLIES (N-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-PL) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ROR)))) (NOT (C-FLAG FLAGS))) (EQUAL (STORE-RESULTP (CC-MI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-ROR)))) (C-FLAG FLAGS)))))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU C N BV) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP->V-NZEROP . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 BVP-CONS . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 C . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 N . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 BV . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-NEGP-V-SHIFT-RIGHT . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-ROR . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-ZEROP . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CVZBV . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CC-MI . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CC-PL . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CC-CS . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 OP-ROR . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 CC-CC . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-ROR) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS-INTERPRETATION-ROR))))) (PUT1-LST (QUOTE V-NEGP-V-SHIFT-RIGHT) (QUOTE (IDATE 1000402195029 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-ROR) EVENT (PROVE-LEMMA V-NEGP-V-SHIFT-RIGHT (REWRITE) (IMPLIES (AND (NOT (EQUAL (LENGTH A) (QUOTE 0))) (BOOLP C)) (EQUAL (V-NEGP (V-SHIFT-RIGHT A C)) C)) ((ENABLE V-NEGP V-SHIFT-RIGHT APPEND V-BUF) (INDUCT (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 B-BUF . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-V-BUF . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-IF . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-BUF . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLP . V-NEGP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-NEGP-V-SHIFT-RIGHT) (LEMMAS V-NEGP . V-NEGP-V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE FLAGS-INTERPRETATION-SUB) (QUOTE (IDATE 1000402195029 EVENT (PROVE-LEMMA FLAGS-INTERPRETATION-SUB NIL (IMPLIES (AND (BV2P A B) (Z-SET SET-FLAGS)) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (NOT (EQUAL A B))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (EQUAL A B)))) ((USE (ZERO-FLAG-INTERPRETATION-FOR-SUB)) (ENABLE SET-FLAGS STORE-RESULTP) (DISABLE V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 BOOLP-FLAG-EXTRACTERS . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 ZERO-FLAG-INTERPRETATION-FOR-SUB . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 CC-EQ . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 OP-SUB . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 CC-NE . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS-INTERPRETATION-SUB) (IMMEDIATE-DEPENDENTS0 BV2P . FLAGS-INTERPRETATION-SUB))))) (PUT1-LST (QUOTE ZERO-FLAG-INTERPRETATION-FOR-SUB) (QUOTE (IDATE 1000402195029 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-SUB) EVENT (PROVE-LEMMA ZERO-FLAG-INTERPRETATION-FOR-SUB NIL (IMPLIES (AND (BV2P A B) (Z-SET SET-FLAGS)) (EQUAL (Z-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU (C-FLAG FLAGS) A B (OP-SUB)))) (EQUAL A B))) ((ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP V-ALU V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT C V N CV BV *1*EXP *1*B-TO-NAT ZB) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY) (DISABLE V-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-NZEROP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 PLUS-0 . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-AND . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-NOT . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ZEROP . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 CVZBV . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C-SET . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-FLAG . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-SET . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N-FLAG . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BV . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 N-SET . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 B-IF . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 ZB . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 OP-SUB . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 C-FLAG . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 V-ALU . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 Z-FLAG . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 Z-SET . ZERO-FLAG-INTERPRETATION-FOR-SUB) (IMMEDIATE-DEPENDENTS0 BV2P . ZERO-FLAG-INTERPRETATION-FOR-SUB))))) (PUT1-LST (QUOTE IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (QUOTE (IDATE 1000402195029 IMMEDIATE-DEPENDENTS0 (ZERO-FLAG-INTERPRETATION-FOR-SUB) EVENT (PROVE-LEMMA IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-NZEROP (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) A B)) (NOT (EQUAL A B)))) ((DISABLE V-ALU-CORRECT-NAT-NOT-OUTPUT) (ENABLE V-SUBTRACTER-OUTPUT V-ADDER-OUTPUT=V-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 V-NOT-V-NOT . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 V-SUM-ON-NOT-A-A . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 V-NZEROP . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (IMMEDIATE-DEPENDENTS0 BV2P . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) (LEMMAS V-NZEROP . IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B))))) (PUT1-LST (QUOTE V-SUM-ON-NOT-A-A) (QUOTE (IDATE 1000402195029 IMMEDIATE-DEPENDENTS0 (IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) EVENT (PROVE-LEMMA V-SUM-ON-NOT-A-A (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-NZEROP (V-SUM (QUOTE *1*TRUE) A B)) (NOT (EQUAL (V-NOT A) B)))) ((ENABLE V-NZEROP V-SUM V-NOT) (DISABLE V-ALU-CORRECT-NAT-NOT-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 BOOLP . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 B-OR3 . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 BVP . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 B-NOT . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 B-AND . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 LENGTH . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 V-NOT . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 V-SUM . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-SUM-ON-NOT-A-A) (IMMEDIATE-DEPENDENTS0 BV2P . V-SUM-ON-NOT-A-A) (LEMMAS V-NZEROP . V-SUM-ON-NOT-A-A))))) (PUT1-LST (QUOTE UNIVERSAL-FLAGS-INTERPRETATIONS) (QUOTE (IDATE 1000402195028 EVENT (PROVE-LEMMA UNIVERSAL-FLAGS-INTERPRETATIONS NIL (IMPLIES (AND (BVP A) (AND (BOOLP C) (NOT (ZEROP (LENGTH A))))) (AND (IMPLIES (Z-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-NE) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (V-NZEROP (BV (V-ALU C A B OP-CODE)))) (EQUAL (STORE-RESULTP (CC-EQ) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (NOT (V-NZEROP (BV (V-ALU C A B OP-CODE))))))) (AND (IMPLIES (N-SET SET-FLAGS) (AND (EQUAL (STORE-RESULTP (CC-PL) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (NOT (V-NEGP (BV (V-ALU C A B OP-CODE))))) (EQUAL (STORE-RESULTP (CC-MI) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (V-NEGP (BV (V-ALU C A B OP-CODE)))))) (AND (EQUAL (STORE-RESULTP (CC-T) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (QUOTE *1*TRUE)) (EQUAL (STORE-RESULTP (CC-F) (UPDATE-FLAGS FLAGS SET-FLAGS (V-ALU C A B OP-CODE))) (QUOTE *1*FALSE)))))) ((USE (ZB-V-ALU) (N-V-ALU)) (ENABLE SET-FLAGS UPDATE-FLAGS STORE-RESULTP BOOLP) (ENABLE-THEORY SET-FLAGS-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BOOLP-ZB-V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BOOLP-N . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 C-FLAG . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 C-SET . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 V-FLAG . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 V-SET . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 N-FLAG . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 B-IF . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 SET-FLAGS-THEORY . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 ZB-V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 N-V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-F . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-T . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-MI . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 V-NEGP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-PL . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 N-SET . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-EQ . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BV . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 V-NZEROP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 V-ALU . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 CC-NE . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 Z-SET . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 LENGTH . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BOOLP . UNIVERSAL-FLAGS-INTERPRETATIONS) (IMMEDIATE-DEPENDENTS0 BVP . UNIVERSAL-FLAGS-INTERPRETATIONS))))) (PUT1-LST (QUOTE N-V-ALU) (QUOTE (IDATE 1000402195028 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS) EVENT (PROVE-LEMMA N-V-ALU NIL (EQUAL (N (V-ALU C A B OP-CODE)) (V-NEGP (BV (V-ALU C A B OP-CODE)))) ((ENABLE N V-ALU BV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV . N-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NEGP . N-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . N-V-ALU) (IMMEDIATE-DEPENDENTS0 N . N-V-ALU))))) (PUT1-LST (QUOTE ZB-V-ALU) (QUOTE (IDATE 1000402195028 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS) EVENT (PROVE-LEMMA ZB-V-ALU NIL (EQUAL (ZB (V-ALU C A B OP-CODE)) (V-ZEROP (BV (V-ALU C A B OP-CODE)))) ((ENABLE ZB V-ALU BV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NOT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 NTH . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 B-EQUV . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 B-XOR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BV2P . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BV . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ZEROP . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 ZB . ZB-V-ALU))))) (PUT1-LST (QUOTE OPCODE-THEORY) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU) EVENT (DEFTHEORY OPCODE-THEORY (OP-MOVE OP-INC OP-ADDC OP-ADD OP-NEG OP-DEC OP-SUBB OP-SUB OP-ROR OP-ASR OP-LSR OP-XOR OP-OR OP-AND OP-NOT OP-M15)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-MOVE . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-INC . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-ADDC . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-ADD . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-NEG . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-DEC . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-SUBB . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-SUB . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-ROR . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-ASR . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-LSR . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-XOR . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-OR . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-AND . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-NOT . OPCODE-THEORY) (IMMEDIATE-DEPENDENTS0 OP-M15 . OPCODE-THEORY))))) (PUT1-LST (QUOTE *1*OP-M15) (QUOTE (MAIN-EVENT OP-M15))) (PUT1-LST (QUOTE OP-M15) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-M15 16)) TOTALP-LST ((OP-M15 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*OP-M15 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-M15) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-MOVE OPCODE-THEORY) EVENT (DEFN OP-M15 NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-M15))))) (PUT1-LST (QUOTE *1*OP-NOT) (QUOTE (MAIN-EVENT OP-NOT))) (PUT1-LST (QUOTE OP-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-NOT 16)) TOTALP-LST ((OP-NOT . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*OP-NOT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-NOT) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU OPCODE-THEORY) EVENT (DEFN OP-NOT NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-NOT))))) (PUT1-LST (QUOTE *1*OP-AND) (QUOTE (MAIN-EVENT OP-AND))) (PUT1-LST (QUOTE OP-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-AND 16)) TOTALP-LST ((OP-AND . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*OP-AND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-AND) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU OPCODE-THEORY) EVENT (DEFN OP-AND NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-AND))))) (PUT1-LST (QUOTE *1*OP-OR) (QUOTE (MAIN-EVENT OP-OR))) (PUT1-LST (QUOTE OP-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-OR 16)) TOTALP-LST ((OP-OR . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*OP-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-OR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU OPCODE-THEORY) EVENT (DEFN OP-OR NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-OR))))) (PUT1-LST (QUOTE *1*OP-XOR) (QUOTE (MAIN-EVENT OP-XOR))) (PUT1-LST (QUOTE OP-XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-XOR 16)) TOTALP-LST ((OP-XOR . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*OP-XOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-XOR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU FLAGS-INTERPRETATION-XOR OPCODE-THEORY) EVENT (DEFN OP-XOR NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-XOR))))) (PUT1-LST (QUOTE *1*OP-LSR) (QUOTE (MAIN-EVENT OP-LSR))) (PUT1-LST (QUOTE OP-LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-LSR 16)) TOTALP-LST ((OP-LSR . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*OP-LSR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-LSR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL V-V-ALU C-V-ALU FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-LSR OPCODE-THEORY) EVENT (DEFN OP-LSR NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-LSR))))) (PUT1-LST (QUOTE *1*OP-ASR) (QUOTE (MAIN-EVENT OP-ASR))) (PUT1-LST (QUOTE OP-ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-ASR 16)) TOTALP-LST ((OP-ASR . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*OP-ASR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-ASR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER V-V-ALU C-V-ALU FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO OPCODE-THEORY) EVENT (DEFN OP-ASR NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-ASR))))) (PUT1-LST (QUOTE *1*OP-ROR) (QUOTE (MAIN-EVENT OP-ROR))) (PUT1-LST (QUOTE OP-ROR) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-ROR 16)) TOTALP-LST ((OP-ROR . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*OP-ROR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-ROR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU FLAGS-INTERPRETATION-ROR OPCODE-THEORY) EVENT (DEFN OP-ROR NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-ROR))))) (PUT1-LST (QUOTE *1*OP-SUB) (QUOTE (MAIN-EVENT OP-SUB))) (PUT1-LST (QUOTE OP-SUB) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-SUB 16)) TOTALP-LST ((OP-SUB . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*OP-SUB SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-SUB) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB OPCODE-THEORY) EVENT (DEFN OP-SUB NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-SUB))))) (PUT1-LST (QUOTE *1*OP-SUBB) (QUOTE (MAIN-EVENT OP-SUBB))) (PUT1-LST (QUOTE OP-SUBB) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-SUBB 16)) TOTALP-LST ((OP-SUBB . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*OP-SUBB SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-SUBB) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY OPCODE-THEORY) EVENT (DEFN OP-SUBB NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-SUBB))))) (PUT1-LST (QUOTE *1*OP-DEC) (QUOTE (MAIN-EVENT OP-DEC))) (PUT1-LST (QUOTE OP-DEC) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-DEC 16)) TOTALP-LST ((OP-DEC . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*OP-DEC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-DEC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-NAT-DEC OPCODE-THEORY) EVENT (DEFN OP-DEC NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-DEC))))) (PUT1-LST (QUOTE *1*OP-NEG) (QUOTE (MAIN-EVENT OP-NEG))) (PUT1-LST (QUOTE OP-NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-NEG 16)) TOTALP-LST ((OP-NEG . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*OP-NEG SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-NEG) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW OPCODE-THEORY) EVENT (DEFN OP-NEG NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-NEG))))) (PUT1-LST (QUOTE *1*OP-ADD) (QUOTE (MAIN-EVENT OP-ADD))) (PUT1-LST (QUOTE OP-ADD) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-ADD 16)) TOTALP-LST ((OP-ADD . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*OP-ADD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-ADD) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-NAT-ADD OPCODE-THEORY) EVENT (DEFN OP-ADD NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-ADD))))) (PUT1-LST (QUOTE *1*OP-ADDC) (QUOTE (MAIN-EVENT OP-ADDC))) (PUT1-LST (QUOTE OP-ADDC) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-ADDC 16)) TOTALP-LST ((OP-ADDC . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*OP-ADDC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-ADDC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-NAT-ADDC OPCODE-THEORY) EVENT (DEFN OP-ADDC NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-ADDC))))) (PUT1-LST (QUOTE *1*OP-INC) (QUOTE (MAIN-EVENT OP-INC))) (PUT1-LST (QUOTE OP-INC) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-INC 16)) TOTALP-LST ((OP-INC . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*OP-INC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-INC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-NAT-INC OPCODE-THEORY) EVENT (DEFN OP-INC NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-INC))))) (PUT1-LST (QUOTE *1*OP-MOVE) (QUOTE (MAIN-EVENT OP-MOVE))) (PUT1-LST (QUOTE OP-MOVE) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-MOVE 16)) TOTALP-LST ((OP-MOVE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*OP-MOVE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*OP-MOVE) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-MOVE OPCODE-THEORY) EVENT (DEFN OP-MOVE NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OP-MOVE))))) (PUT1-LST (QUOTE CONDITION-CODE-THEORY) (QUOTE (IDATE 1000402195020 EVENT (DEFTHEORY CONDITION-CODE-THEORY (CC-CC CC-CS CC-VC CC-VS CC-PL CC-MI CC-NE CC-EQ CC-HI CC-LS CC-GE CC-LT CC-GT CC-LE CC-T CC-F)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CC-CC . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-CS . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-VC . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-VS . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-PL . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-MI . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-NE . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-EQ . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-HI . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-LS . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-GE . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-LT . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-GT . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-LE . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-T . CONDITION-CODE-THEORY) (IMMEDIATE-DEPENDENTS0 CC-F . CONDITION-CODE-THEORY))))) (PUT1-LST (QUOTE *1*CC-F) (QUOTE (MAIN-EVENT CC-F))) (PUT1-LST (QUOTE CC-F) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-F 16)) TOTALP-LST ((CC-F . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*CC-F SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-F) IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-F NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-F))))) (PUT1-LST (QUOTE *1*CC-T) (QUOTE (MAIN-EVENT CC-T))) (PUT1-LST (QUOTE CC-T) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-T 16)) TOTALP-LST ((CC-T . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*CC-T SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-T) IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-T NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-T))))) (PUT1-LST (QUOTE *1*CC-LE) (QUOTE (MAIN-EVENT CC-LE))) (PUT1-LST (QUOTE CC-LE) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-LE 16)) TOTALP-LST ((CC-LE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*CC-LE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-LE) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-LE NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-LE))))) (PUT1-LST (QUOTE *1*CC-GT) (QUOTE (MAIN-EVENT CC-GT))) (PUT1-LST (QUOTE CC-GT) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-GT 16)) TOTALP-LST ((CC-GT . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*CC-GT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-GT) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-GT NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-GT))))) (PUT1-LST (QUOTE *1*CC-LT) (QUOTE (MAIN-EVENT CC-LT))) (PUT1-LST (QUOTE CC-LT) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-LT 16)) TOTALP-LST ((CC-LT . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*CC-LT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-LT) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-LT NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-LT))))) (PUT1-LST (QUOTE *1*CC-GE) (QUOTE (MAIN-EVENT CC-GE))) (PUT1-LST (QUOTE CC-GE) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-GE 16)) TOTALP-LST ((CC-GE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*CC-GE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-GE) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-GE NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-GE))))) (PUT1-LST (QUOTE *1*CC-LS) (QUOTE (MAIN-EVENT CC-LS))) (PUT1-LST (QUOTE CC-LS) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-LS 16)) TOTALP-LST ((CC-LS . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*CC-LS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-LS) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER CONDITION-CODE-THEORY) EVENT (DEFN CC-LS NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-LS))))) (PUT1-LST (QUOTE *1*CC-HI) (QUOTE (MAIN-EVENT CC-HI))) (PUT1-LST (QUOTE CC-HI) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-HI 16)) TOTALP-LST ((CC-HI . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*CC-HI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-HI) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER CONDITION-CODE-THEORY) EVENT (DEFN CC-HI NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-HI))))) (PUT1-LST (QUOTE *1*CC-EQ) (QUOTE (MAIN-EVENT CC-EQ))) (PUT1-LST (QUOTE CC-EQ) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-EQ 16)) TOTALP-LST ((CC-EQ . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*CC-EQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-EQ) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-SUB UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-EQ NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-EQ))))) (PUT1-LST (QUOTE *1*CC-NE) (QUOTE (MAIN-EVENT CC-NE))) (PUT1-LST (QUOTE CC-NE) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-NE 16)) TOTALP-LST ((CC-NE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*CC-NE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-NE) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-SUB UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-NE NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-NE))))) (PUT1-LST (QUOTE *1*CC-MI) (QUOTE (MAIN-EVENT CC-MI))) (PUT1-LST (QUOTE CC-MI) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-MI 16)) TOTALP-LST ((CC-MI . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*CC-MI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-MI) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-ROR UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-MI NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-MI))))) (PUT1-LST (QUOTE *1*CC-PL) (QUOTE (MAIN-EVENT CC-PL))) (PUT1-LST (QUOTE CC-PL) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-PL 16)) TOTALP-LST ((CC-PL . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*CC-PL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-PL) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-ROR UNIVERSAL-FLAGS-INTERPRETATIONS CONDITION-CODE-THEORY) EVENT (DEFN CC-PL NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-PL))))) (PUT1-LST (QUOTE *1*CC-VS) (QUOTE (MAIN-EVENT CC-VS))) (PUT1-LST (QUOTE CC-VS) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-VS 16)) TOTALP-LST ((CC-VS . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*CC-VS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-VS) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-VS NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-VS))))) (PUT1-LST (QUOTE *1*CC-VC) (QUOTE (MAIN-EVENT CC-VC))) (PUT1-LST (QUOTE CC-VC) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-VC 16)) TOTALP-LST ((CC-VC . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*CC-VC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-VC) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE CONDITION-CODE-THEORY) EVENT (DEFN CC-VC NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-VC))))) (PUT1-LST (QUOTE *1*CC-CS) (QUOTE (MAIN-EVENT CC-CS))) (PUT1-LST (QUOTE CC-CS) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-CS 16)) TOTALP-LST ((CC-CS . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*CC-CS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-CS) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR CONDITION-CODE-THEORY) EVENT (DEFN CC-CS NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-CS))))) (PUT1-LST (QUOTE *1*CC-CC) (QUOTE (MAIN-EVENT CC-CC))) (PUT1-LST (QUOTE CC-CC) (QUOTE (TYPE-PRESCRIPTION-LST ((CC-CC 16)) TOTALP-LST ((CC-CC . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*CC-CC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402195020 SATELLITES (*1*CC-CC) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR CONDITION-CODE-THEORY) EVENT (DEFN CC-CC NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*CC-CC))))) (PUT1-LST (QUOTE REWRITE-EQUAL-V-TO-NAT-0-OFF) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE REWRITE-EQUAL-V-TO-NAT-0-OFF REWRITE-EQUAL-V-TO-NAT-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-EQUAL-V-TO-NAT-0 . REWRITE-EQUAL-V-TO-NAT-0-OFF) (DISABLED-LEMMAS NIL REWRITE-EQUAL-V-TO-NAT-0 REWRITE-EQUAL-V-TO-NAT-0-OFF . T))))) (PUT1-LST (QUOTE REWRITE-EQUAL-V-TO-NAT-0) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (REWRITE-EQUAL-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-MOVE REWRITE-EQUAL-V-TO-NAT-0-OFF) EVENT (PROVE-LEMMA REWRITE-EQUAL-V-TO-NAT-0 (REWRITE) (EQUAL (EQUAL (V-TO-NAT A) (QUOTE 0)) (V-ZEROP A)) ((ENABLE V-TO-NAT V-ZEROP V-NZEROP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 PLUS-0 . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-NZEROP . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP-IMPLIES-V-TO-NAT-0 . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . REWRITE-EQUAL-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . REWRITE-EQUAL-V-TO-NAT-0) (LEMMAS EQUAL . REWRITE-EQUAL-V-TO-NAT-0))))) (PUT1-LST (QUOTE V-NOT-V-NOT) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B) EVENT (PROVE-LEMMA V-NOT-V-NOT (REWRITE) (IMPLIES (BVP A) (EQUAL (V-NOT (V-NOT A)) A)) ((ENABLE V-NOT BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP . V-NOT-V-NOT) (LEMMAS V-NOT . V-NOT-V-NOT))))) (PUT1-LST (QUOTE V-NZEROP-NAT-TO-V-ZERO) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (V-NZEROP-NAT-TO-V FLAGS-INTERPRETATION-NAT-INC) EVENT (PROVE-LEMMA V-NZEROP-NAT-TO-V-ZERO (REWRITE) (IMPLIES (ZEROP Z) (NOT (V-NZEROP (NAT-TO-V Z L)))) ((ENABLE V-NZEROP NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . V-NZEROP-NAT-TO-V-ZERO) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-NZEROP-NAT-TO-V-ZERO) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-NZEROP-NAT-TO-V-ZERO) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-NZEROP-NAT-TO-V-ZERO) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-NAT-TO-V-ZERO) (LEMMAS V-NZEROP . V-NZEROP-NAT-TO-V-ZERO))))) (PUT1-LST (QUOTE V-TO-NAT-EQUAL) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB) EVENT (PROVE-LEMMA V-TO-NAT-EQUAL (REWRITE) (IMPLIES (BV2P A B) (EQUAL (EQUAL (V-TO-NAT A) (V-TO-NAT B)) (EQUAL A B))) ((INDUCT (V-IFF A B)) (ENABLE BVP V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 V-IFF . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-EQUAL) (IMMEDIATE-DEPENDENTS0 BV2P . V-TO-NAT-EQUAL) (LEMMAS EQUAL . V-TO-NAT-EQUAL))))) (PUT1-LST (QUOTE BOOLP-FLAG-EXTRACTERS) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-SUB) EVENT (PROVE-LEMMA BOOLP-FLAG-EXTRACTERS (REWRITE) (AND (BOOLP (C-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) (AND (BOOLP (V-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) (AND (BOOLP (N-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) (BOOLP (Z-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)))))) ((ENABLE UPDATE-FLAGS) (ENABLE-THEORY FLAGS-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 FLAGS-THEORY . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 N-FLAG . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 V-FLAG . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 C-FLAG . BOOLP-FLAG-EXTRACTERS) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-FLAG-EXTRACTERS) (LEMMAS BOOLP . BOOLP-FLAG-EXTRACTERS) (LEMMAS BOOLP . BOOLP-FLAG-EXTRACTERS) (LEMMAS BOOLP . BOOLP-FLAG-EXTRACTERS) (LEMMAS BOOLP . BOOLP-FLAG-EXTRACTERS))))) (PUT1-LST (QUOTE V-ZEROP-IMPLIES-V-TO-NAT-0) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC REWRITE-EQUAL-V-TO-NAT-0) EVENT (PROVE-LEMMA V-ZEROP-IMPLIES-V-TO-NAT-0 (REWRITE) (IMPLIES (V-ZEROP A) (EQUAL (V-TO-NAT A) (QUOTE 0))) ((ENABLE V-NZEROP V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP . V-ZEROP-IMPLIES-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-ZEROP-IMPLIES-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ZEROP-IMPLIES-V-TO-NAT-0) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ZEROP-IMPLIES-V-TO-NAT-0) (LEMMAS V-TO-NAT . V-ZEROP-IMPLIES-V-TO-NAT-0))))) (PUT1-LST (QUOTE V-NEGP->V-NZEROP) (QUOTE (IDATE 1000402195020 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-ROR) EVENT (PROVE-LEMMA V-NEGP->V-NZEROP (REWRITE) (IMPLIES (V-NEGP V) (V-NZEROP V)) ((ENABLE V-NEGP V-NZEROP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NEGP->V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NEGP->V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP->V-NZEROP) (LEMMAS V-NZEROP . V-NEGP->V-NZEROP))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-IPLUS-ON1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE COMMUTATIVITY-OF-IPLUS-ON1 COMMUTATIVITY-OF-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . COMMUTATIVITY-OF-IPLUS-ON1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-ON1))))) (PUT1-LST (QUOTE IPLUS-0-RIGHT-ON1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE IPLUS-0-RIGHT-ON1 IPLUS-0-RIGHT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . IPLUS-0-RIGHT-ON1) (DISABLED-LEMMAS NIL IPLUS-0-RIGHT IPLUS-0-RIGHT-ON1))))) (PUT1-LST (QUOTE IPLUS-0-LEFT-ON1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE IPLUS-0-LEFT-ON1 IPLUS-0-LEFT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-0-LEFT-ON1) (DISABLED-LEMMAS NIL IPLUS-0-LEFT IPLUS-0-LEFT-ON1))))) (PUT1-LST (QUOTE V-TO-NAT-OF-NAT-TO-V-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-TO-NAT-OF-NAT-TO-V-ON V-TO-NAT-OF-NAT-TO-V NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-TO-NAT-OF-NAT-TO-V-ON) (DISABLED-LEMMAS NIL V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-OFF1 V-ALU-CORRECT-NAT-LSR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR . V-ALU-CORRECT-NAT-LSR-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ASR-OFF1 V-ALU-CORRECT-INT-ASR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR . V-ALU-CORRECT-INT-ASR-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-OFF1 V-ALU-CORRECT-NAT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER . V-ALU-CORRECT-NAT-ADDER-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INC-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-INC-OFF1 V-ALU-CORRECT-NAT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INC . V-ALU-CORRECT-NAT-INC-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-OFF1 . T))))) (PUT1-LST (QUOTE V-ADDER-OUTPUT=V-SUM-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ADDER-OUTPUT=V-SUM-OFF1 V-ADDER-OUTPUT=V-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . V-ADDER-OUTPUT=V-SUM-OFF1) (DISABLED-LEMMAS NIL V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 V-ALU-CORRECT-NAT-LSR-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 V-ALU-CORRECT-NAT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-NOT-ON V-ALU-CORRECT-INT-NOT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT . V-ALU-CORRECT-INT-NOT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NEG-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-NEG-ON V-ALU-CORRECT-INT-NEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . V-ALU-CORRECT-INT-NEG-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-NEG-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ASR-ON V-ALU-CORRECT-INT-ASR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR . V-ALU-CORRECT-INT-ASR-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ASR-OUTPUT-ON V-ALU-CORRECT-INT-ASR-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . V-ALU-CORRECT-INT-ASR-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-DEC-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-DEC-ON V-ALU-CORRECT-INT-DEC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . V-ALU-CORRECT-INT-DEC-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-DEC-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-ON V-ALU-CORRECT-INT-SUBTRACTER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . V-ALU-CORRECT-INT-SUBTRACTER-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-INC-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-INC-ON V-ALU-CORRECT-INT-INC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . V-ALU-CORRECT-INT-INC-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-INC-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-ON V-ALU-CORRECT-INT-ADDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . V-ALU-CORRECT-INT-ADDER-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-OUTPUT-ON V-ALU-CORRECT-INT-ADDER-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON V-ALU-CORRECT-INT-ADDER-OVERFLOWP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-ON V-ALU-CORRECT-NAT-NOT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT . V-ALU-CORRECT-NAT-NOT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-OUTPUT-ON V-ALU-CORRECT-NAT-NOT-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-ON V-ALU-CORRECT-NAT-LSR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR . V-ALU-CORRECT-NAT-LSR-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . V-ALU-CORRECT-NAT-LSR-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON V-ALU-CORRECT-NAT-LSR-CARRY-OUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-DEC-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-DEC-ON V-ALU-CORRECT-NAT-DEC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-DEC . V-ALU-CORRECT-NAT-DEC-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-DEC-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-ON V-ALU-CORRECT-NAT-SUBTRACTER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . V-ALU-CORRECT-NAT-SUBTRACTER-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INC-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-INC-ON V-ALU-CORRECT-NAT-INC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INC . V-ALU-CORRECT-NAT-INC-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-ON V-ALU-CORRECT-NAT-ADDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER . V-ALU-CORRECT-NAT-ADDER-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON V-ALU-CORRECT-NAT-ADDER-OUTPUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON V-ALU-CORRECT-NAT-ADDER-CARRY-OUT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INT-BUF-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ALU-CORRECT-NAT-INT-BUF-ON V-ALU-CORRECT-NAT-INT-BUF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INT-BUF . V-ALU-CORRECT-NAT-INT-BUF-ON) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-NAT-INT-BUF-ON))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE PLUS-QUOTIENT-2-ON PLUS-QUOTIENT-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2 . PLUS-QUOTIENT-2-ON) (DISABLED-LEMMAS NIL PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-ON))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2-LEMMA-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE PLUS-QUOTIENT-2-LEMMA-ON PLUS-QUOTIENT-2-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2-LEMMA . PLUS-QUOTIENT-2-LEMMA-ON) (DISABLED-LEMMAS NIL PLUS-QUOTIENT-2-LEMMA PLUS-QUOTIENT-2-LEMMA-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG . QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON))))) (PUT1-LST (QUOTE EQUAL-IFF-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE EQUAL-IFF-ON EQUAL-IFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-IFF . EQUAL-IFF-ON) (DISABLED-LEMMAS NIL EQUAL-IFF EQUAL-IFF-ON))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK2-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-HACK2-ON EQUAL-NAT-TO-V-INVERTER-HACK2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2 . EQUAL-NAT-TO-V-INVERTER-HACK2-ON) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-ON))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK1-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-HACK1-ON EQUAL-NAT-TO-V-INVERTER-HACK1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK1 . EQUAL-NAT-TO-V-INVERTER-HACK1-ON) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER-HACK1 EQUAL-NAT-TO-V-INVERTER-HACK1-ON))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK2-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-TO-NAT-FIRSTN-HACK2-ON V-TO-NAT-FIRSTN-HACK2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK2 . V-TO-NAT-FIRSTN-HACK2-ON) (DISABLED-LEMMAS NIL V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK2-ON))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK1-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-TO-NAT-FIRSTN-HACK1-ON V-TO-NAT-FIRSTN-HACK1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK1 . V-TO-NAT-FIRSTN-HACK1-ON) (DISABLED-LEMMAS NIL V-TO-NAT-FIRSTN-HACK1 V-TO-NAT-FIRSTN-HACK1-ON))))) (PUT1-LST (QUOTE V-ADDER-CARRY-OUT=V-CARRY-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ADDER-CARRY-OUT=V-CARRY-ON V-ADDER-CARRY-OUT=V-CARRY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . V-ADDER-CARRY-OUT=V-CARRY-ON) (DISABLED-LEMMAS NIL V-ADDER-CARRY-OUT=V-CARRY V-ADDER-CARRY-OUT=V-CARRY-ON))))) (PUT1-LST (QUOTE V-ADDER-OUTPUT=V-SUM-ON) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE V-ADDER-OUTPUT=V-SUM-ON V-ADDER-OUTPUT=V-SUM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . V-ADDER-OUTPUT=V-SUM-ON) (DISABLED-LEMMAS NIL V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-ON))))) (PUT1-LST (QUOTE G*1*DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE G*1*DELETE-OFF1 *1*DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . G*1*DELETE-OFF1) (DISABLED-LEMMAS NIL *1*DELETE G*1*DELETE-OFF1 . T))))) (PUT1-LST (QUOTE DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE DELETE-OFF1 DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-OFF1) (DISABLED-LEMMAS NIL DELETE DELETE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*BAGDIFF-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE G*1*BAGDIFF-OFF1 *1*BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . G*1*BAGDIFF-OFF1) (DISABLED-LEMMAS NIL *1*BAGDIFF G*1*BAGDIFF-OFF1 . T))))) (PUT1-LST (QUOTE BAGDIFF-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE BAGDIFF-OFF1 BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . BAGDIFF-OFF1) (DISABLED-LEMMAS NIL BAGDIFF BAGDIFF-OFF1 . T))))) (PUT1-LST (QUOTE G*1*BAGINT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE G*1*BAGINT-OFF1 *1*BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . G*1*BAGINT-OFF1) (DISABLED-LEMMAS NIL *1*BAGINT G*1*BAGINT-OFF1 . T))))) (PUT1-LST (QUOTE BAGINT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE BAGINT-OFF1 BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . BAGINT-OFF1) (DISABLED-LEMMAS NIL BAGINT BAGINT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*OCCURRENCES-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE G*1*OCCURRENCES-OFF1 *1*OCCURRENCES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . G*1*OCCURRENCES-OFF1) (DISABLED-LEMMAS NIL *1*OCCURRENCES G*1*OCCURRENCES-OFF1 . T))))) (PUT1-LST (QUOTE OCCURRENCES-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE OCCURRENCES-OFF1 OCCURRENCES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-OFF1) (DISABLED-LEMMAS NIL OCCURRENCES OCCURRENCES-OFF1 . T))))) (PUT1-LST (QUOTE G*1*SUBBAGP-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE G*1*SUBBAGP-OFF1 *1*SUBBAGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . G*1*SUBBAGP-OFF1) (DISABLED-LEMMAS NIL *1*SUBBAGP G*1*SUBBAGP-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-OFF1 SUBBAGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-OFF1) (DISABLED-LEMMAS NIL SUBBAGP SUBBAGP-OFF1 . T))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE DELETE-NON-MEMBER-OFF1 DELETE-NON-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-NON-MEMBER-OFF1) (DISABLED-LEMMAS NIL DELETE-NON-MEMBER DELETE-NON-MEMBER-OFF1 . T))))) (PUT1-LST (QUOTE DELETE-DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE DELETE-DELETE-OFF1 DELETE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-DELETE . DELETE-DELETE-OFF1) (DISABLED-LEMMAS NIL DELETE-DELETE DELETE-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-OCCURRENCES-ZERO-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE EQUAL-OCCURRENCES-ZERO-OFF1 EQUAL-OCCURRENCES-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . EQUAL-OCCURRENCES-ZERO-OFF1) (DISABLED-LEMMAS NIL EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-NON-LIST-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE MEMBER-NON-LIST-OFF1 MEMBER-NON-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-NON-LIST-OFF1) (DISABLED-LEMMAS NIL MEMBER-NON-LIST MEMBER-NON-LIST-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE MEMBER-DELETE-OFF1 MEMBER-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . MEMBER-DELETE-OFF1) (DISABLED-LEMMAS NIL MEMBER-DELETE MEMBER-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 MEMBER-DELETE-IMPLIES-MEMBERSHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE-IMPLIES-MEMBERSHIP . MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1) (DISABLED-LEMMAS NIL MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 . T))))) (PUT1-LST (QUOTE OCCURRENCES-DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE OCCURRENCES-DELETE-OFF1 OCCURRENCES-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . OCCURRENCES-DELETE-OFF1) (DISABLED-LEMMAS NIL OCCURRENCES-DELETE OCCURRENCES-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-BAGDIFF-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE MEMBER-BAGDIFF-OFF1 MEMBER-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . MEMBER-BAGDIFF-OFF1) (DISABLED-LEMMAS NIL MEMBER-BAGDIFF MEMBER-BAGDIFF-OFF1 . T))))) (PUT1-LST (QUOTE BAGDIFF-DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE BAGDIFF-DELETE-OFF1 BAGDIFF-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . BAGDIFF-DELETE-OFF1) (DISABLED-LEMMAS NIL BAGDIFF-DELETE BAGDIFF-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-DELETE-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-DELETE-OFF1 SUBBAGP-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-DELETE-OFF1) (DISABLED-LEMMAS NIL SUBBAGP-DELETE SUBBAGP-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-CDR1-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-CDR1-OFF1 SUBBAGP-CDR1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR1-OFF1) (DISABLED-LEMMAS NIL SUBBAGP-CDR1 SUBBAGP-CDR1-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-CDR2-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-CDR2-OFF1 SUBBAGP-CDR2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-CDR2-OFF1) (DISABLED-LEMMAS NIL SUBBAGP-CDR2 SUBBAGP-CDR2-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-BAGINT1-OFF1 SUBBAGP-BAGINT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . SUBBAGP-BAGINT1-OFF1) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-OFF1 . T))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE SUBBAGP-BAGINT2-OFF1 SUBBAGP-BAGINT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . SUBBAGP-BAGINT2-OFF1) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-OFF1 . T))))) (PUT1-LST (QUOTE OCCURRENCES-BAGINT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE OCCURRENCES-BAGINT-OFF1 OCCURRENCES-BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGINT . OCCURRENCES-BAGINT-OFF1) (DISABLED-LEMMAS NIL OCCURRENCES-BAGINT OCCURRENCES-BAGINT-OFF1 . T))))) (PUT1-LST (QUOTE OCCURRENCES-BAGDIFF-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE OCCURRENCES-BAGDIFF-OFF1 OCCURRENCES-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGDIFF . OCCURRENCES-BAGDIFF-OFF1) (DISABLED-LEMMAS NIL OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-BAGINT-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE MEMBER-BAGINT-OFF1 MEMBER-BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . MEMBER-BAGINT-OFF1) (DISABLED-LEMMAS NIL MEMBER-BAGINT MEMBER-BAGINT-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-PLUS-0-OFF1) (QUOTE (IDATE 1000402195020 EVENT (TOGGLE EQUAL-PLUS-0-OFF1 EQUAL-PLUS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . EQUAL-PLUS-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-PLUS-0 EQUAL-PLUS-0-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-DIFFERENCE-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-DIFFERENCE-0-OFF1 EQUAL-DIFFERENCE-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . EQUAL-DIFFERENCE-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE COMMUTATIVITY-OF-PLUS-OFF1 COMMUTATIVITY-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . COMMUTATIVITY-OF-PLUS-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE COMMUTATIVITY2-OF-PLUS-OFF1 COMMUTATIVITY2-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . COMMUTATIVITY2-OF-PLUS-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-ZERO-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-ZERO-ARG2-OFF1 PLUS-ZERO-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-ZERO-ARG2-OFF1) (DISABLED-LEMMAS NIL PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-ADD1-ARG1-OFF1 PLUS-ADD1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . PLUS-ADD1-ARG1-OFF1) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-ADD1-ARG2-OFF1 PLUS-ADD1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . PLUS-ADD1-ARG2-OFF1) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE ASSOCIATIVITY-OF-PLUS-OFF1 ASSOCIATIVITY-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . ASSOCIATIVITY-OF-PLUS-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-DIFFERENCE-ARG1-OFF1 PLUS-DIFFERENCE-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . PLUS-DIFFERENCE-ARG1-OFF1) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-DIFFERENCE-ARG2-OFF1 PLUS-DIFFERENCE-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . PLUS-DIFFERENCE-ARG2-OFF1) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFF-DIFF-ARG1-OFF1 DIFF-DIFF-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . DIFF-DIFF-ARG1-OFF1) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFF-DIFF-ARG2-OFF1 DIFF-DIFF-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . DIFF-DIFF-ARG2-OFF1) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE G*1*PLUS-FRINGE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*PLUS-FRINGE-OFF1 *1*PLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . G*1*PLUS-FRINGE-OFF1) (DISABLED-LEMMAS NIL *1*PLUS-FRINGE G*1*PLUS-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-FRINGE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-FRINGE-OFF1 PLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-FRINGE-OFF1) (DISABLED-LEMMAS NIL PLUS-FRINGE PLUS-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*PLUS-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*PLUS-TREE-OFF1 *1*PLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . G*1*PLUS-TREE-OFF1) (DISABLED-LEMMAS NIL *1*PLUS-TREE G*1*PLUS-TREE-OFF1 . T))))) (PUT1-LST (QUOTE PLUS-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE PLUS-TREE-OFF1 PLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-OFF1) (DISABLED-LEMMAS NIL PLUS-TREE PLUS-TREE-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-QUOTE-OFF2) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EVAL$-QUOTE-OFF2 EVAL$-QUOTE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-QUOTE-OFF2) (DISABLED-LEMMAS NIL EVAL$-QUOTE EVAL$-QUOTE-OFF2 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-EQUAL-PLUS-OFF1 *1*CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . G*1*CANCEL-EQUAL-PLUS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-EQUAL-PLUS-OFF1 CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CANCEL-EQUAL-PLUS-OFF1) (DISABLED-LEMMAS NIL CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-DIFFERENCE-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-DIFFERENCE-PLUS-OFF1 *1*CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . G*1*CANCEL-DIFFERENCE-PLUS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-DIFFERENCE-PLUS-OFF1 CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CANCEL-DIFFERENCE-PLUS-OFF1) (DISABLED-LEMMAS NIL CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-ELIM-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-ELIM-OFF1 DIFFERENCE-ELIM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . DIFFERENCE-ELIM-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-ELIM DIFFERENCE-ELIM-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-LEQ-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-LEQ-ARG1-OFF1 DIFFERENCE-LEQ-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . DIFFERENCE-LEQ-ARG1-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-ADD1-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-ADD1-ARG2-OFF1 DIFFERENCE-ADD1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . DIFFERENCE-ADD1-ARG2-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-SUB1-ARG2-OFF1 DIFFERENCE-SUB1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . DIFFERENCE-SUB1-ARG2-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG1-OFF1 DIFFERENCE-DIFFERENCE-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . DIFFERENCE-DIFFERENCE-ARG1-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG2-OFF1 DIFFERENCE-DIFFERENCE-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . DIFFERENCE-DIFFERENCE-ARG2-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE DIFFERENCE-X-X-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DIFFERENCE-X-X-OFF1 DIFFERENCE-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIFFERENCE-X-X-OFF1) (DISABLED-LEMMAS NIL DIFFERENCE-X-X DIFFERENCE-X-X-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-LESSP-PLUS-OFF1 *1*CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . G*1*CANCEL-LESSP-PLUS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-LESSP-PLUS-OFF1 CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CANCEL-LESSP-PLUS-OFF1) (DISABLED-LEMMAS NIL CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-TIMES-0-OFF1 EQUAL-TIMES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-TIMES-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-TIMES-0 EQUAL-TIMES-0-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-TIMES-1-OFF1 EQUAL-TIMES-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . EQUAL-TIMES-1-OFF1) (DISABLED-LEMMAS NIL EQUAL-TIMES-1 EQUAL-TIMES-1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-SUB1-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-SUB1-0-OFF1 EQUAL-SUB1-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . EQUAL-SUB1-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-SUB1-0 EQUAL-SUB1-0-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-ZERO-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-ZERO-OFF1 TIMES-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ZERO-OFF1) (DISABLED-LEMMAS NIL TIMES-ZERO TIMES-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-ADD1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-ADD1-OFF1 TIMES-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-ADD1-OFF1) (DISABLED-LEMMAS NIL TIMES-ADD1 TIMES-ADD1-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE COMMUTATIVITY-OF-TIMES-OFF1 COMMUTATIVITY-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY-OF-TIMES-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS-PROOF . TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-OFF1 TIMES-DISTRIBUTES-OVER-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . TIMES-DISTRIBUTES-OVER-PLUS-OFF1) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE COMMUTATIVITY2-OF-TIMES-OFF1 COMMUTATIVITY2-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . COMMUTATIVITY2-OF-TIMES-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE ASSOCIATIVITY-OF-TIMES-OFF1 ASSOCIATIVITY-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . ASSOCIATIVITY-OF-TIMES-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-QUOTIENT-PROOF-OFF1 TIMES-QUOTIENT-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT-PROOF . TIMES-QUOTIENT-PROOF-OFF1) (DISABLED-LEMMAS NIL TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-QUOTIENT-OFF1 TIMES-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . TIMES-QUOTIENT-OFF1) (DISABLED-LEMMAS NIL TIMES-QUOTIENT TIMES-QUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-1-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-1-ARG1-OFF1 TIMES-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . TIMES-1-ARG1-OFF1) (DISABLED-LEMMAS NIL TIMES-1-ARG1 TIMES-1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES1-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES1-PROOF-OFF1 LESSP-TIMES1-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1-PROOF . LESSP-TIMES1-PROOF-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES1-OFF1 LESSP-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . LESSP-TIMES1-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES1 LESSP-TIMES1-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES2-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES2-PROOF-OFF1 LESSP-TIMES2-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2-PROOF . LESSP-TIMES2-PROOF-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES2-OFF1 LESSP-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . LESSP-TIMES2-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES2 LESSP-TIMES2-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES3-PROOF1-OFF1 LESSP-TIMES3-PROOF1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF1 . LESSP-TIMES3-PROOF1-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES3-PROOF2-OFF1 LESSP-TIMES3-PROOF2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF2 . LESSP-TIMES3-PROOF2-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES3-OFF1 LESSP-TIMES3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3 . LESSP-TIMES3-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES3 LESSP-TIMES3-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES-CANCELLATION-PROOF-OFF1 LESSP-TIMES-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION-PROOF . LESSP-TIMES-CANCELLATION-PROOF-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-PLUS-TIMES-PROOF-OFF1 LESSP-PLUS-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . LESSP-PLUS-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-PLUS-TIMES1-OFF1 LESSP-PLUS-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . LESSP-PLUS-TIMES1-OFF1) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-PLUS-TIMES2-OFF1 LESSP-PLUS-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . LESSP-PLUS-TIMES2-OFF1) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-1-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-1-TIMES-OFF1 LESSP-1-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES . LESSP-1-TIMES-OFF1) (DISABLED-LEMMAS NIL LESSP-1-TIMES LESSP-1-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE G*1*TIMES-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*TIMES-TREE-OFF1 *1*TIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . G*1*TIMES-TREE-OFF1) (DISABLED-LEMMAS NIL *1*TIMES-TREE G*1*TIMES-TREE-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-TREE-OFF1 TIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-OFF1) (DISABLED-LEMMAS NIL TIMES-TREE TIMES-TREE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*TIMES-FRINGE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*TIMES-FRINGE-OFF1 *1*TIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . G*1*TIMES-FRINGE-OFF1) (DISABLED-LEMMAS NIL *1*TIMES-FRINGE G*1*TIMES-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE TIMES-FRINGE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TIMES-FRINGE-OFF1 TIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-FRINGE-OFF1) (DISABLED-LEMMAS NIL TIMES-FRINGE TIMES-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*OR-ZEROP-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*OR-ZEROP-TREE-OFF1 *1*OR-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . G*1*OR-ZEROP-TREE-OFF1) (DISABLED-LEMMAS NIL *1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-OFF1 . T))))) (PUT1-LST (QUOTE OR-ZEROP-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE OR-ZEROP-TREE-OFF1 OR-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . OR-ZEROP-TREE-OFF1) (DISABLED-LEMMAS NIL OR-ZEROP-TREE OR-ZEROP-TREE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*AND-NOT-ZEROP-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*AND-NOT-ZEROP-TREE-OFF1 *1*AND-NOT-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . G*1*AND-NOT-ZEROP-TREE-OFF1) (DISABLED-LEMMAS NIL *1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-OFF1 . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE AND-NOT-ZEROP-TREE-OFF1 AND-NOT-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-OFF1) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-EQUAL-OFF2) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EVAL$-EQUAL-OFF2 EVAL$-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . EVAL$-EQUAL-OFF2) (DISABLED-LEMMAS NIL EVAL$-EQUAL EVAL$-EQUAL-OFF2 . T))))) (PUT1-LST (QUOTE LESSP-TIMES-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-TIMES-ARG1-OFF1 LESSP-TIMES-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-ARG1 . LESSP-TIMES-ARG1-OFF1) (DISABLED-LEMMAS NIL LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE INFER-EQUALITY-FROM-NOT-LESSP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE INFER-EQUALITY-FROM-NOT-LESSP-OFF1 INFER-EQUALITY-FROM-NOT-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INFER-EQUALITY-FROM-NOT-LESSP . INFER-EQUALITY-FROM-NOT-LESSP-OFF1) (DISABLED-LEMMAS NIL INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-LESSP-TIMES-OFF1 *1*CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . G*1*CANCEL-LESSP-TIMES-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-LESSP-TIMES-OFF1 CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CANCEL-LESSP-TIMES-OFF1) (DISABLED-LEMMAS NIL CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-EQUAL-TIMES-OFF1 *1*CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . G*1*CANCEL-EQUAL-TIMES-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-EQUAL-TIMES-OFF1 CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CANCEL-EQUAL-TIMES-OFF1) (DISABLED-LEMMAS NIL CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-REMAINDER-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-REMAINDER-OFF1 LESSP-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LESSP-REMAINDER-OFF1) (DISABLED-LEMMAS NIL LESSP-REMAINDER LESSP-REMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-NOOP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-NOOP-OFF1 REMAINDER-NOOP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-NOOP-OFF1) (DISABLED-LEMMAS NIL REMAINDER-NOOP REMAINDER-NOOP-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-OF-NON-NUMBER-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-OF-NON-NUMBER-OFF1 REMAINDER-OF-NON-NUMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-OF-NON-NUMBER-OFF1) (DISABLED-LEMMAS NIL REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-ZERO-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-ZERO-OFF1 REMAINDER-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-ZERO-OFF1) (DISABLED-LEMMAS NIL REMAINDER-ZERO REMAINDER-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-QUOTIENT-ELIM-OFF1 REMAINDER-QUOTIENT-ELIM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-QUOTIENT-ELIM-OFF1) (DISABLED-LEMMAS NIL REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-ADD1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-ADD1-OFF1 REMAINDER-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-ADD1-OFF1) (DISABLED-LEMMAS NIL REMAINDER-ADD1 REMAINDER-ADD1-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-PROOF-OFF1 REMAINDER-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PROOF . REMAINDER-PLUS-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-OFF1 REMAINDER-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-PLUS-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS REMAINDER-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 EQUAL-REMAINDER-PLUS-0-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0-PROOF . EQUAL-REMAINDER-PLUS-0-PROOF-OFF1) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-OFF1 EQUAL-REMAINDER-PLUS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . EQUAL-REMAINDER-PLUS-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES1-PROOF-OFF1 REMAINDER-TIMES1-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-PROOF . REMAINDER-TIMES1-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES1-OFF1 REMAINDER-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . REMAINDER-TIMES1-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES1 REMAINDER-TIMES1-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 REMAINDER-TIMES1-INSTANCE-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE-PROOF . REMAINDER-TIMES1-INSTANCE-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-OFF1 REMAINDER-TIMES1-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-TIMES1-INSTANCE-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES-TIMES-PROOF-OFF1 REMAINDER-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES-PROOF . REMAINDER-TIMES-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES2-PROOF-OFF1 REMAINDER-TIMES2-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-PROOF . REMAINDER-TIMES2-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES2-OFF1 REMAINDER-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . REMAINDER-TIMES2-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES2 REMAINDER-TIMES2-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-TIMES2-INSTANCE-OFF1 REMAINDER-TIMES2-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDER-TIMES2-INSTANCE-OFF1) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-DIFFERENCE1-OFF1 REMAINDER-DIFFERENCE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . REMAINDER-DIFFERENCE1-OFF1) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-OFF1 . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-REMAINDER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 *1*DOUBLE-REMAINDER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . G*1*DOUBLE-REMAINDER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL *1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE DOUBLE-REMAINDER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DOUBLE-REMAINDER-INDUCTION-OFF1 DOUBLE-REMAINDER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . DOUBLE-REMAINDER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-DIFFERENCE2-OFF1 REMAINDER-DIFFERENCE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . REMAINDER-DIFFERENCE2-OFF1) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-FACT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-FACT-OFF1 REMAINDER-PLUS-FACT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-FACT . REMAINDER-PLUS-FACT-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 REMAINDER-PLUS-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-PROOF . REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-OFF1 REMAINDER-PLUS-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . REMAINDER-PLUS-TIMES-TIMES-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 REMAINDER-PLUS-TIMES-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-REMAINDER-OFF1 REMAINDER-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . REMAINDER-REMAINDER-OFF1) (DISABLED-LEMMAS NIL REMAINDER-REMAINDER REMAINDER-REMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-1-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-1-ARG1-OFF1 REMAINDER-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . REMAINDER-1-ARG1-OFF1) (DISABLED-LEMMAS NIL REMAINDER-1-ARG1 REMAINDER-1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-1-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-1-ARG2-OFF1 REMAINDER-1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . REMAINDER-1-ARG2-OFF1) (DISABLED-LEMMAS NIL REMAINDER-1-ARG2 REMAINDER-1-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-X-X-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-X-X-OFF1 REMAINDER-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-X-X-OFF1) (DISABLED-LEMMAS NIL REMAINDER-X-X REMAINDER-X-X-OFF1 . T))))) (PUT1-LST (QUOTE TRANSITIVITY-OF-DIVIDES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE TRANSITIVITY-OF-DIVIDES-OFF1 TRANSITIVITY-OF-DIVIDES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . TRANSITIVITY-OF-DIVIDES-OFF1) (DISABLED-LEMMAS NIL TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-NOOP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-NOOP-OFF1 QUOTIENT-NOOP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . QUOTIENT-NOOP-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-NOOP QUOTIENT-NOOP-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-OF-NON-NUMBER-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-OF-NON-NUMBER-OFF1 QUOTIENT-OF-NON-NUMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . QUOTIENT-OF-NON-NUMBER-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-ZERO-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-ZERO-OFF1 QUOTIENT-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-ZERO-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-ZERO QUOTIENT-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-ADD1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-ADD1-OFF1 QUOTIENT-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENT-ADD1-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-ADD1 QUOTIENT-ADD1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-QUOTIENT-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-QUOTIENT-0-OFF1 EQUAL-QUOTIENT-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . EQUAL-QUOTIENT-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-SUB1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-SUB1-OFF1 QUOTIENT-SUB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . QUOTIENT-SUB1-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-SUB1 QUOTIENT-SUB1-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-PROOF-OFF1 QUOTIENT-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PROOF . QUOTIENT-PLUS-PROOF-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-OFF1 QUOTIENT-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-PLUS-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS QUOTIENT-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-TIMES-PROOF-OFF1 QUOTIENT-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-PROOF . QUOTIENT-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-TIMES-OFF1 QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-TIMES QUOTIENT-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-OFF1 QUOTIENT-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-TIMES-INSTANCE-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-TIMES-TIMES-PROOF-OFF1 QUOTIENT-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES-PROOF . QUOTIENT-TIMES-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-DIFFERENCE1-OFF1 QUOTIENT-DIFFERENCE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE1 . QUOTIENT-DIFFERENCE1-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-LESSP-ARG1-OFF1 QUOTIENT-LESSP-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-LESSP-ARG1-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-DIFFERENCE2-OFF1 QUOTIENT-DIFFERENCE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . QUOTIENT-DIFFERENCE2-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE3-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-DIFFERENCE3-OFF1 QUOTIENT-DIFFERENCE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . QUOTIENT-DIFFERENCE3-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-REMAINDER-TIMES-OFF1 QUOTIENT-REMAINDER-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-TIMES . QUOTIENT-REMAINDER-TIMES-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-REMAINDER-OFF1 QUOTIENT-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . QUOTIENT-REMAINDER-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER QUOTIENT-REMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-REMAINDER-INSTANCE-OFF1 QUOTIENT-REMAINDER-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-INSTANCE . QUOTIENT-REMAINDER-INSTANCE-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-FACT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-FACT-OFF1 QUOTIENT-PLUS-FACT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-FACT . QUOTIENT-PLUS-FACT-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 QUOTIENT-PLUS-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-PROOF . QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-OFF1 QUOTIENT-PLUS-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENT-PLUS-TIMES-TIMES-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-QUOTIENT-OFF1 QUOTIENT-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . QUOTIENT-QUOTIENT-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE LEQ-QUOTIENT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LEQ-QUOTIENT-OFF1 LEQ-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-QUOTIENT . LEQ-QUOTIENT-OFF1) (DISABLED-LEMMAS NIL LEQ-QUOTIENT LEQ-QUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-1-ARG2-OFF1 QUOTIENT-1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . QUOTIENT-1-ARG2-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-CASESPLIT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-1-ARG1-CASESPLIT-OFF1 QUOTIENT-1-ARG1-CASESPLIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1-CASESPLIT . QUOTIENT-1-ARG1-CASESPLIT-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-1-ARG1-OFF1 QUOTIENT-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1 . QUOTIENT-1-ARG1-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-X-X-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-X-X-OFF1 QUOTIENT-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-X-X-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-X-X QUOTIENT-X-X-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LESSP-QUOTIENT-OFF1 LESSP-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . LESSP-QUOTIENT-OFF1) (DISABLED-LEMMAS NIL LESSP-QUOTIENT LESSP-QUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-QUOTIENT-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*CANCEL-QUOTIENT-TIMES-OFF1 *1*CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . G*1*CANCEL-QUOTIENT-TIMES-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-QUOTIENT-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE CANCEL-QUOTIENT-TIMES-OFF1 CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . CANCEL-QUOTIENT-TIMES-OFF1) (DISABLED-LEMMAS NIL CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE G*1*EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*EXP-OFF1 *1*EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . G*1*EXP-OFF1) (DISABLED-LEMMAS NIL *1*EXP G*1*EXP-OFF1 . T))))) (PUT1-LST (QUOTE EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-OFF1 EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-OFF1) (DISABLED-LEMMAS NIL EXP EXP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*LOG-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*LOG-OFF1 *1*LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . G*1*LOG-OFF1) (DISABLED-LEMMAS NIL *1*LOG G*1*LOG-OFF1 . T))))) (PUT1-LST (QUOTE LOG-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-OFF1 LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OFF1) (DISABLED-LEMMAS NIL LOG LOG-OFF1 . T))))) (PUT1-LST (QUOTE G*1*GCD-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*GCD-OFF1 *1*GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . G*1*GCD-OFF1) (DISABLED-LEMMAS NIL *1*GCD G*1*GCD-OFF1 . T))))) (PUT1-LST (QUOTE GCD-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE GCD-OFF1 GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . GCD-OFF1) (DISABLED-LEMMAS NIL GCD GCD-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-EXP-OFF1 REMAINDER-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . REMAINDER-EXP-OFF1) (DISABLED-LEMMAS NIL REMAINDER-EXP REMAINDER-EXP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-NUMBER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*DOUBLE-NUMBER-INDUCTION-OFF1 *1*DOUBLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . G*1*DOUBLE-NUMBER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL *1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE DOUBLE-NUMBER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DOUBLE-NUMBER-INDUCTION-OFF1 DOUBLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . DOUBLE-NUMBER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-EXP-EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE REMAINDER-EXP-EXP-OFF1 REMAINDER-EXP-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP-EXP . REMAINDER-EXP-EXP-OFF1) (DISABLED-LEMMAS NIL REMAINDER-EXP-EXP REMAINDER-EXP-EXP-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE QUOTIENT-EXP-OFF1 QUOTIENT-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . QUOTIENT-EXP-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-EXP QUOTIENT-EXP-OFF1 . T))))) (PUT1-LST (QUOTE EXP-ZERO-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-ZERO-OFF1 EXP-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXP-ZERO-OFF1) (DISABLED-LEMMAS NIL EXP-ZERO EXP-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE EXP-ADD1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-ADD1-OFF1 EXP-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ADD1 . EXP-ADD1-OFF1) (DISABLED-LEMMAS NIL EXP-ADD1 EXP-ADD1-OFF1 . T))))) (PUT1-LST (QUOTE EXP-PLUS-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-PLUS-OFF1 EXP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-PLUS-OFF1) (DISABLED-LEMMAS NIL EXP-PLUS EXP-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE EXP-0-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-0-ARG1-OFF1 EXP-0-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG1 . EXP-0-ARG1-OFF1) (DISABLED-LEMMAS NIL EXP-0-ARG1 EXP-0-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE EXP-1-ARG1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-1-ARG1-OFF1 EXP-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . EXP-1-ARG1-OFF1) (DISABLED-LEMMAS NIL EXP-1-ARG1 EXP-1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE EXP-0-ARG2-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-0-ARG2-OFF1 EXP-0-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG2 . EXP-0-ARG2-OFF1) (DISABLED-LEMMAS NIL EXP-0-ARG2 EXP-0-ARG2-OFF1 . T))))) (PUT1-LST (QUOTE EXP-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-TIMES-OFF1 EXP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-TIMES-OFF1) (DISABLED-LEMMAS NIL EXP-TIMES EXP-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE EXP-EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-EXP-OFF1 EXP-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-EXP . EXP-EXP-OFF1) (DISABLED-LEMMAS NIL EXP-EXP EXP-EXP-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-EXP-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-EXP-0-OFF1 EQUAL-EXP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . EQUAL-EXP-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-EXP-0 EQUAL-EXP-0-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-EXP-1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-EXP-1-OFF1 EQUAL-EXP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . EQUAL-EXP-1-OFF1) (DISABLED-LEMMAS NIL EQUAL-EXP-1 EQUAL-EXP-1-OFF1 . T))))) (PUT1-LST (QUOTE EXP-DIFFERENCE-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EXP-DIFFERENCE-OFF1 EXP-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-DIFFERENCE . EXP-DIFFERENCE-OFF1) (DISABLED-LEMMAS NIL EXP-DIFFERENCE EXP-DIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-LOG-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE EQUAL-LOG-0-OFF1 EQUAL-LOG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LOG-0 . EQUAL-LOG-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-LOG-0 EQUAL-LOG-0-OFF1 . T))))) (PUT1-LST (QUOTE LOG-0-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-0-OFF1 LOG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-0 . LOG-0-OFF1) (DISABLED-LEMMAS NIL LOG-0 LOG-0-OFF1 . T))))) (PUT1-LST (QUOTE LOG-1-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-1-OFF1 LOG-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-1 . LOG-1-OFF1) (DISABLED-LEMMAS NIL LOG-1 LOG-1-OFF1 . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-LOG-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE G*1*DOUBLE-LOG-INDUCTION-OFF1 *1*DOUBLE-LOG-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . G*1*DOUBLE-LOG-INDUCTION-OFF1) (DISABLED-LEMMAS NIL *1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE DOUBLE-LOG-INDUCTION-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE DOUBLE-LOG-INDUCTION-OFF1 DOUBLE-LOG-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . DOUBLE-LOG-INDUCTION-OFF1) (DISABLED-LEMMAS NIL DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE LEQ-LOG-LOG-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LEQ-LOG-LOG-OFF1 LEQ-LOG-LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-LOG-LOG . LEQ-LOG-LOG-OFF1) (DISABLED-LEMMAS NIL LEQ-LOG-LOG LEQ-LOG-LOG-OFF1 . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-QUOTIENT-OFF1 LOG-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT . LOG-QUOTIENT-OFF1) (DISABLED-LEMMAS NIL LOG-QUOTIENT LOG-QUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-QUOTIENT-TIMES-PROOF-OFF1 LOG-QUOTIENT-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES-PROOF . LOG-QUOTIENT-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-QUOTIENT-TIMES-OFF1 LOG-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . LOG-QUOTIENT-TIMES-OFF1) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-QUOTIENT-EXP-OFF1 LOG-QUOTIENT-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-EXP . LOG-QUOTIENT-EXP-OFF1) (DISABLED-LEMMAS NIL LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-OFF1 . T))))) (PUT1-LST (QUOTE LOG-TIMES-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-TIMES-PROOF-OFF1 LOG-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-PROOF . LOG-TIMES-PROOF-OFF1) (DISABLED-LEMMAS NIL LOG-TIMES-PROOF LOG-TIMES-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LOG-TIMES-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-TIMES-OFF1 LOG-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES . LOG-TIMES-OFF1) (DISABLED-LEMMAS NIL LOG-TIMES LOG-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-PROOF-OFF1) (QUOTE (IDATE 1000402195019 EVENT (TOGGLE LOG-TIMES-EXP-PROOF-OFF1 LOG-TIMES-EXP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP-PROOF . LOG-TIMES-EXP-PROOF-OFF1) (DISABLED-LEMMAS NIL LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE LOG-TIMES-EXP-OFF1 LOG-TIMES-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP . LOG-TIMES-EXP-OFF1) (DISABLED-LEMMAS NIL LOG-TIMES-EXP LOG-TIMES-EXP-OFF1 . T))))) (PUT1-LST (QUOTE LOG-EXP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE LOG-EXP-OFF1 LOG-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-EXP . LOG-EXP-OFF1) (DISABLED-LEMMAS NIL LOG-EXP LOG-EXP-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY-OF-GCD-OFF1 COMMUTATIVITY-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . COMMUTATIVITY-OF-GCD-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-OFF1 . T))))) (PUT1-LST (QUOTE G*1*SINGLE-NUMBER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*SINGLE-NUMBER-INDUCTION-OFF1 *1*SINGLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . G*1*SINGLE-NUMBER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL *1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE SINGLE-NUMBER-INDUCTION-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SINGLE-NUMBER-INDUCTION-OFF1 SINGLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . SINGLE-NUMBER-INDUCTION-OFF1) (DISABLED-LEMMAS NIL SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-OFF1 . T))))) (PUT1-LST (QUOTE GCD-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-0-OFF1 GCD-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-0 . GCD-0-OFF1) (DISABLED-LEMMAS NIL GCD-0 GCD-0-OFF1 . T))))) (PUT1-LST (QUOTE GCD-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-1-OFF1 GCD-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-1 . GCD-1-OFF1) (DISABLED-LEMMAS NIL GCD-1 GCD-1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-GCD-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-GCD-0-OFF1 EQUAL-GCD-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . EQUAL-GCD-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-GCD-0 EQUAL-GCD-0-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE LESSP-GCD-OFF1 LESSP-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-GCD . LESSP-GCD-OFF1) (DISABLED-LEMMAS NIL LESSP-GCD LESSP-GCD-OFF1 . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 GCD-PLUS-INSTANCE-TEMP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP-PROOF . GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-OFF1 GCD-PLUS-INSTANCE-TEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . GCD-PLUS-INSTANCE-TEMP-OFF1) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-OFF1 . T))))) (PUT1-LST (QUOTE GCD-PLUS-PROOF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-PLUS-PROOF-OFF1 GCD-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-PROOF . GCD-PLUS-PROOF-OFF1) (DISABLED-LEMMAS NIL GCD-PLUS-PROOF GCD-PLUS-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE GCD-PLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-PLUS-OFF1 GCD-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS . GCD-PLUS-OFF1) (DISABLED-LEMMAS NIL GCD-PLUS GCD-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-PLUS-INSTANCE-OFF1 GCD-PLUS-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE . GCD-PLUS-INSTANCE-OFF1) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-OFF1 . T))))) (PUT1-LST (QUOTE REMAINDER-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE REMAINDER-GCD-OFF1 REMAINDER-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . REMAINDER-GCD-OFF1) (DISABLED-LEMMAS NIL REMAINDER-GCD REMAINDER-GCD-OFF1 . T))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 . T))))) (PUT1-LST (QUOTE GCD-IS-THE-GREATEST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-IS-THE-GREATEST-OFF1 GCD-IS-THE-GREATEST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . GCD-IS-THE-GREATEST-OFF1) (DISABLED-LEMMAS NIL GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-OFF1 . T))))) (PUT1-LST (QUOTE COMMON-DIVISOR-DIVIDES-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMON-DIVISOR-DIVIDES-GCD-OFF1 COMMON-DIVISOR-DIVIDES-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . COMMON-DIVISOR-DIVIDES-GCD-OFF1) (DISABLED-LEMMAS NIL COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 ASSOCIATIVITY-OF-GCD-ZERO-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD-ZERO-CASE . ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-OFF1 ASSOCIATIVITY-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD . ASSOCIATIVITY-OF-GCD-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 COMMUTATIVITY2-OF-GCD-ZERO-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD-ZERO-CASE . COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-OFF1 COMMUTATIVITY2-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD . COMMUTATIVITY2-OF-GCD-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-OFF1 . T))))) (PUT1-LST (QUOTE GCD-X-X-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-X-X-OFF1 GCD-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-X-X . GCD-X-X-OFF1) (DISABLED-LEMMAS NIL GCD-X-X GCD-X-X-OFF1 . T))))) (PUT1-LST (QUOTE GCD-IDEMPOTENCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE GCD-IDEMPOTENCE-OFF1 GCD-IDEMPOTENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IDEMPOTENCE . GCD-IDEMPOTENCE-OFF1) (DISABLED-LEMMAS NIL GCD-IDEMPOTENCE GCD-IDEMPOTENCE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*INTEGERP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*INTEGERP-OFF1 *1*INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . G*1*INTEGERP-OFF1) (DISABLED-LEMMAS NIL *1*INTEGERP G*1*INTEGERP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*FIX-INT-OFF1 *1*FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . G*1*FIX-INT-OFF1) (DISABLED-LEMMAS NIL *1*FIX-INT G*1*FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IZEROP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IZEROP-OFF1 *1*IZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . G*1*IZEROP-OFF1) (DISABLED-LEMMAS NIL *1*IZEROP G*1*IZEROP-OFF1 . T))))) (PUT1-LST (QUOTE IZEROP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IZEROP-OFF1 IZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . IZEROP-OFF1) (DISABLED-LEMMAS NIL IZEROP IZEROP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ILESSP-OFF1 *1*ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . G*1*ILESSP-OFF1) (DISABLED-LEMMAS NIL *1*ILESSP G*1*ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ILEQ-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ILEQ-OFF1 *1*ILEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . G*1*ILEQ-OFF1) (DISABLED-LEMMAS NIL *1*ILEQ G*1*ILEQ-OFF1 . T))))) (PUT1-LST (QUOTE ILEQ-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILEQ-OFF1 ILEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . ILEQ-OFF1) (DISABLED-LEMMAS NIL ILEQ ILEQ-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-OFF1 *1*IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . G*1*IPLUS-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS G*1*IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*INEG-OFF1 *1*INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . G*1*INEG-OFF1) (DISABLED-LEMMAS NIL *1*INEG G*1*INEG-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IDIFFERENCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IDIFFERENCE-OFF1 *1*IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . G*1*IDIFFERENCE-OFF1) (DISABLED-LEMMAS NIL *1*IDIFFERENCE G*1*IDIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE IDIFFERENCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIFFERENCE-OFF1 IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-OFF1) (DISABLED-LEMMAS NIL IDIFFERENCE IDIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IABS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IABS-OFF1 *1*IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IABS . G*1*IABS-OFF1) (DISABLED-LEMMAS NIL *1*IABS G*1*IABS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-OFF1 *1*ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . G*1*ITIMES-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES G*1*ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IQUOTIENT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IQUOTIENT-OFF1 *1*IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . G*1*IQUOTIENT-OFF1) (DISABLED-LEMMAS NIL *1*IQUOTIENT G*1*IQUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IREMAINDER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IREMAINDER-OFF1 *1*IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . G*1*IREMAINDER-OFF1) (DISABLED-LEMMAS NIL *1*IREMAINDER G*1*IREMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IDIV-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IDIV-OFF1 *1*IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV . G*1*IDIV-OFF1) (DISABLED-LEMMAS NIL *1*IDIV G*1*IDIV-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IMOD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IMOD-OFF1 *1*IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD . G*1*IMOD-OFF1) (DISABLED-LEMMAS NIL *1*IMOD G*1*IMOD-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IQUO-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IQUO-OFF1 *1*IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO . G*1*IQUO-OFF1) (DISABLED-LEMMAS NIL *1*IQUO G*1*IQUO-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IREM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IREM-OFF1 *1*IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM . G*1*IREM-OFF1) (DISABLED-LEMMAS NIL *1*IREM G*1*IREM-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-FIX-INT-OFF1 INTEGERP-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INTEGERP-FIX-INT-OFF1) (DISABLED-LEMMAS NIL INTEGERP-FIX-INT INTEGERP-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IPLUS-OFF1 INTEGERP-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-IPLUS-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IPLUS INTEGERP-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IDIFFERENCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IDIFFERENCE-OFF1 INTEGERP-IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IDIFFERENCE-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-INEG-OFF1 INTEGERP-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . INTEGERP-INEG-OFF1) (DISABLED-LEMMAS NIL INTEGERP-INEG INTEGERP-INEG-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IABS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IABS-OFF1 INTEGERP-IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IABS . INTEGERP-IABS-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IABS INTEGERP-IABS-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-ITIMES-OFF1 INTEGERP-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERP-ITIMES-OFF1) (DISABLED-LEMMAS NIL INTEGERP-ITIMES INTEGERP-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-REMOVER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-REMOVER-OFF1 FIX-INT-REMOVER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . FIX-INT-REMOVER-OFF1) (DISABLED-LEMMAS NIL FIX-INT-REMOVER FIX-INT-REMOVER-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-FIX-INT-OFF1 FIX-INT-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . FIX-INT-FIX-INT-OFF1) (DISABLED-LEMMAS NIL FIX-INT-FIX-INT FIX-INT-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IPLUS-OFF1 FIX-INT-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . FIX-INT-IPLUS-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IPLUS FIX-INT-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IDIFFERENCE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IDIFFERENCE-OFF1 FIX-INT-IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IDIFFERENCE-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-INEG-OFF1 FIX-INT-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . FIX-INT-INEG-OFF1) (DISABLED-LEMMAS NIL FIX-INT-INEG FIX-INT-INEG-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IABS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IABS-OFF1 FIX-INT-IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IABS . FIX-INT-IABS-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IABS FIX-INT-IABS-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-ITIMES-OFF1 FIX-INT-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . FIX-INT-ITIMES-OFF1) (DISABLED-LEMMAS NIL FIX-INT-ITIMES FIX-INT-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE INEG-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INEG-IPLUS-OFF1 INEG-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-IPLUS . INEG-IPLUS-OFF1) (DISABLED-LEMMAS NIL INEG-IPLUS INEG-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE INEG-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INEG-INEG-OFF1 INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-INEG . INEG-INEG-OFF1) (DISABLED-LEMMAS NIL INEG-INEG INEG-INEG-OFF1 . T))))) (PUT1-LST (QUOTE INEG-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INEG-FIX-INT-OFF1 INEG-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . INEG-FIX-INT-OFF1) (DISABLED-LEMMAS NIL INEG-FIX-INT INEG-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE INEG-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INEG-0-OFF1 INEG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-0 . INEG-0-OFF1) (DISABLED-LEMMAS NIL INEG-0 INEG-0-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-0-LEFT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-0-LEFT-OFF1 IPLUS-0-LEFT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-0-LEFT-OFF1) (DISABLED-LEMMAS NIL IPLUS-0-LEFT IPLUS-0-LEFT-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-0-RIGHT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-0-RIGHT-OFF1 IPLUS-0-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . IPLUS-0-RIGHT-OFF1) (DISABLED-LEMMAS NIL IPLUS-0-RIGHT IPLUS-0-RIGHT-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY2-OF-IPLUS-OFF1 COMMUTATIVITY2-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . COMMUTATIVITY2-OF-IPLUS-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY-OF-IPLUS-OFF1 COMMUTATIVITY-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . COMMUTATIVITY-OF-IPLUS-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ASSOCIATIVITY-OF-IPLUS-OFF1 ASSOCIATIVITY-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . ASSOCIATIVITY-OF-IPLUS-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-CANCELLATION-1-OFF1 IPLUS-CANCELLATION-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . IPLUS-CANCELLATION-1-OFF1) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-CANCELLATION-2-OFF1 IPLUS-CANCELLATION-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . IPLUS-CANCELLATION-2-OFF1) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-INEG1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-INEG1-OFF1 IPLUS-INEG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . IPLUS-INEG1-OFF1) (DISABLED-LEMMAS NIL IPLUS-INEG1 IPLUS-INEG1-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-INEG2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-INEG2-OFF1 IPLUS-INEG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . IPLUS-INEG2-OFF1) (DISABLED-LEMMAS NIL IPLUS-INEG2 IPLUS-INEG2-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-FIX-INT1-OFF1 IPLUS-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IPLUS-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IPLUS-FIX-INT1 IPLUS-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-FIX-INT2-OFF1 IPLUS-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . IPLUS-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IPLUS-FIX-INT2 IPLUS-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIFFERENCE-FIX-INT1-OFF1 IDIFFERENCE-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . IDIFFERENCE-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIFFERENCE-FIX-INT2-OFF1 IDIFFERENCE-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT2 . IDIFFERENCE-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-AUX-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-AUX-OFF1 *1*CANCEL-INEG-AUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . G*1*CANCEL-INEG-AUX-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-AUX-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-AUX-OFF1 CANCEL-INEG-AUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CANCEL-INEG-AUX-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG-AUX CANCEL-INEG-AUX-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-OFF1 *1*CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . G*1*CANCEL-INEG-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG G*1*CANCEL-INEG-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-OFF1 CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . CANCEL-INEG-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG CANCEL-INEG-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-CONS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LIST-CONS-OFF1 EVAL$-LIST-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-LIST-CONS-OFF1) (DISABLED-LEMMAS NIL EVAL$-LIST-CONS EVAL$-LIST-CONS-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-NLISTP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LIST-NLISTP-OFF1 EVAL$-LIST-NLISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-LIST-NLISTP-OFF1) (DISABLED-LEMMAS NIL EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LITATOM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LITATOM-OFF1 EVAL$-LITATOM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LITATOM . EVAL$-LITATOM-OFF1) (DISABLED-LEMMAS NIL EVAL$-LITATOM EVAL$-LITATOM-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-OTHER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-OTHER-OFF1 EVAL$-OTHER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . EVAL$-OTHER-OFF1) (DISABLED-LEMMAS NIL EVAL$-OTHER EVAL$-OTHER-OFF1 . T))))) (PUT1-LST (QUOTE G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 *1*EVAL$-CANCEL-INEG-AUX-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1) (DISABLED-LEMMAS NIL *1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-FN-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . EVAL$-CANCEL-INEG-AUX-FN-OFF1) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-INEG3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-INEG3-OFF1 IPLUS-INEG3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . IPLUS-INEG3-OFF1) (DISABLED-LEMMAS NIL IPLUS-INEG3 IPLUS-INEG3-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-INEG4-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-INEG4-OFF1 IPLUS-INEG4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . IPLUS-INEG4-OFF1) (DISABLED-LEMMAS NIL IPLUS-INEG4 IPLUS-INEG4-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-X-Y-INEG-X-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-X-Y-INEG-X-OFF1 IPLUS-X-Y-INEG-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . IPLUS-X-Y-INEG-X-OFF1) (DISABLED-LEMMAS NIL IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-FRINGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-FRINGE-OFF1 *1*IPLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . G*1*IPLUS-FRINGE-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-FRINGE G*1*IPLUS-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-FRINGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-FRINGE-OFF1 IPLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . IPLUS-FRINGE-OFF1) (DISABLED-LEMMAS NIL IPLUS-FRINGE IPLUS-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-REC-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-TREE-REC-OFF1 *1*IPLUS-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . G*1*IPLUS-TREE-REC-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-TREE-REC-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-TREE-REC-OFF1 IPLUS-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . IPLUS-TREE-REC-OFF1) (DISABLED-LEMMAS NIL IPLUS-TREE-REC IPLUS-TREE-REC-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-TREE-OFF1 *1*IPLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . G*1*IPLUS-TREE-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-TREE G*1*IPLUS-TREE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-LIST-OFF1 *1*IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . G*1*IPLUS-LIST-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-LIST G*1*IPLUS-LIST-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-LIST-OFF1 IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-OFF1) (DISABLED-LEMMAS NIL IPLUS-LIST IPLUS-LIST-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IPLUS-LIST-OFF1 INTEGERP-IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . INTEGERP-IPLUS-LIST-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LIST-APPEND-OFF1 EVAL$-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . EVAL$-LIST-APPEND-OFF1) (DISABLED-LEMMAS NIL EVAL$-LIST-APPEND EVAL$-LIST-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-IPLUS-OFF1 *1*CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . G*1*CANCEL-IPLUS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS G*1*CANCEL-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-DELETE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-IPLUS-LIST-DELETE-OFF1 EVAL$-IPLUS-LIST-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . EVAL$-IPLUS-LIST-DELETE-OFF1) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-LIST-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-LIST-APPEND-OFF1 IPLUS-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . IPLUS-LIST-APPEND-OFF1) (DISABLED-LEMMAS NIL IPLUS-LIST-APPEND IPLUS-LIST-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-INEG7-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-INEG7-OFF1 IPLUS-INEG7 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . IPLUS-INEG7-OFF1) (DISABLED-LEMMAS NIL IPLUS-INEG7 IPLUS-INEG7-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-FIX-INT-1-OFF1 ILESSP-FIX-INT-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . ILESSP-FIX-INT-1-OFF1) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-FIX-INT-2-OFF1 ILESSP-FIX-INT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . ILESSP-FIX-INT-2-OFF1) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-OFF1 . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-1-OFF1 *1*CANCEL-IPLUS-ILESSP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . G*1*CANCEL-IPLUS-ILESSP-1-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-1-OFF1 CANCEL-IPLUS-ILESSP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . CANCEL-IPLUS-ILESSP-1-OFF1) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-1-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-2-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-NO-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-TREE-NO-FIX-INT-OFF1 *1*IPLUS-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . G*1*IPLUS-TREE-NO-FIX-INT-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-OFF1 *1*CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . G*1*CANCEL-IPLUS-ILESSP-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-OFF1 CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . CANCEL-IPLUS-ILESSP-OFF1) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-0-LEFT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-0-LEFT-OFF1 ITIMES-0-LEFT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-0-LEFT-OFF1) (DISABLED-LEMMAS NIL ITIMES-0-LEFT ITIMES-0-LEFT-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-0-RIGHT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-0-RIGHT-OFF1 ITIMES-0-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-RIGHT . ITIMES-0-RIGHT-OFF1) (DISABLED-LEMMAS NIL ITIMES-0-RIGHT ITIMES-0-RIGHT-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-FIX-INT1-OFF1 ITIMES-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . ITIMES-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL ITIMES-FIX-INT1 ITIMES-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-FIX-INT2-OFF1 ITIMES-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . ITIMES-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL ITIMES-FIX-INT2 ITIMES-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY-OF-ITIMES-OFF1 COMMUTATIVITY-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . COMMUTATIVITY-OF-ITIMES-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE COMMUTATIVITY2-OF-ITIMES-OFF1 COMMUTATIVITY2-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . COMMUTATIVITY2-OF-ITIMES-OFF1) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ASSOCIATIVITY-OF-ITIMES-OFF1 ASSOCIATIVITY-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . ASSOCIATIVITY-OF-ITIMES-OFF1) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-ITIMES-0-OFF1 EQUAL-ITIMES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . EQUAL-ITIMES-0-OFF1) (DISABLED-LEMMAS NIL EQUAL-ITIMES-0 EQUAL-ITIMES-0-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-ITIMES-1-OFF1 EQUAL-ITIMES-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-1 . EQUAL-ITIMES-1-OFF1) (DISABLED-LEMMAS NIL EQUAL-ITIMES-1 EQUAL-ITIMES-1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-MINUS-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-ITIMES-MINUS-1-OFF1 EQUAL-ITIMES-MINUS-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-MINUS-1 . EQUAL-ITIMES-MINUS-1-OFF1) (DISABLED-LEMMAS NIL EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-1-ARG1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-1-ARG1-OFF1 ITIMES-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-1-ARG1-OFF1) (DISABLED-LEMMAS NIL ITIMES-1-ARG1 ITIMES-1-ARG1-OFF1 . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-UNIQUENESS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE QUOTIENT-REMAINDER-UNIQUENESS-OFF1 QUOTIENT-REMAINDER-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-UNIQUENESS . QUOTIENT-REMAINDER-UNIQUENESS-OFF1) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-PART1-OFF1 DIVISION-THEOREM-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART1 . DIVISION-THEOREM-PART1-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-PART2-OFF1 DIVISION-THEOREM-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART2 . DIVISION-THEOREM-PART2-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-PART3-OFF1 DIVISION-THEOREM-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART3 . DIVISION-THEOREM-PART3-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-OFF1 DIVISION-THEOREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM . DIVISION-THEOREM-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM DIVISION-THEOREM-OFF1 . T))))) (PUT1-LST (QUOTE IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 IQUOTIENT-IREMAINDER-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-IREMAINDER-UNIQUENESS . IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1) (DISABLED-LEMMAS NIL IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 . T))))) (PUT1-LST (QUOTE IDIV-IMOD-UNIQUENESS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIV-IMOD-UNIQUENESS-OFF1 IDIV-IMOD-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-IMOD-UNIQUENESS . IDIV-IMOD-UNIQUENESS-OFF1) (DISABLED-LEMMAS NIL IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE IQUO-IREM-UNIQUENESS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUO-IREM-UNIQUENESS-OFF1 IQUO-IREM-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-IREM-UNIQUENESS . IQUO-IREM-UNIQUENESS-OFF1) (DISABLED-LEMMAS NIL IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-INEG-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-INEG-1-OFF1 ITIMES-INEG-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-1 . ITIMES-INEG-1-OFF1) (DISABLED-LEMMAS NIL ITIMES-INEG-1 ITIMES-INEG-1-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-INEG-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-INEG-2-OFF1 ITIMES-INEG-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-2 . ITIMES-INEG-2-OFF1) (DISABLED-LEMMAS NIL ITIMES-INEG-2 ITIMES-INEG-2-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-CANCELLATION-1-OFF1 ITIMES-CANCELLATION-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . ITIMES-CANCELLATION-1-OFF1) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-CANCELLATION-2-OFF1 ITIMES-CANCELLATION-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-2 . ITIMES-CANCELLATION-2-OFF1) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-CANCELLATION-3-OFF1 ITIMES-CANCELLATION-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . ITIMES-CANCELLATION-3-OFF1) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IQUOTIENT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IQUOTIENT-OFF1 INTEGERP-IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUOTIENT . INTEGERP-IQUOTIENT-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IREMAINDER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IREMAINDER-OFF1 INTEGERP-IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREMAINDER . INTEGERP-IREMAINDER-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IREMAINDER INTEGERP-IREMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IDIV-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IDIV-OFF1 INTEGERP-IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . INTEGERP-IDIV-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IDIV INTEGERP-IDIV-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IMOD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IMOD-OFF1 INTEGERP-IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IMOD . INTEGERP-IMOD-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IMOD INTEGERP-IMOD-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IQUO-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IQUO-OFF1 INTEGERP-IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUO . INTEGERP-IQUO-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IQUO INTEGERP-IQUO-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-IREM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-IREM-OFF1 INTEGERP-IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREM . INTEGERP-IREM-OFF1) (DISABLED-LEMMAS NIL INTEGERP-IREM INTEGERP-IREM-OFF1 . T))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUOTIENT-FIX-INT1-OFF1 IQUOTIENT-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . IQUOTIENT-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUOTIENT-FIX-INT2-OFF1 IQUOTIENT-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . IQUOTIENT-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IREMAINDER-FIX-INT1-OFF1 IREMAINDER-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT1 . IREMAINDER-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IREMAINDER-FIX-INT2-OFF1 IREMAINDER-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT2 . IREMAINDER-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IDIV-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIV-FIX-INT1-OFF1 IDIV-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . IDIV-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IDIV-FIX-INT1 IDIV-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IDIV-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IDIV-FIX-INT2-OFF1 IDIV-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . IDIV-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IDIV-FIX-INT2 IDIV-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IMOD-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IMOD-FIX-INT1-OFF1 IMOD-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT1 . IMOD-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IMOD-FIX-INT1 IMOD-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IMOD-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IMOD-FIX-INT2-OFF1 IMOD-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT2 . IMOD-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IMOD-FIX-INT2 IMOD-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IQUO-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUO-FIX-INT1-OFF1 IQUO-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . IQUO-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IQUO-FIX-INT1 IQUO-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IQUO-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IQUO-FIX-INT2-OFF1 IQUO-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . IQUO-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IQUO-FIX-INT2 IQUO-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE IREM-FIX-INT1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IREM-FIX-INT1-OFF1 IREM-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT1 . IREM-FIX-INT1-OFF1) (DISABLED-LEMMAS NIL IREM-FIX-INT1 IREM-FIX-INT1-OFF1 . T))))) (PUT1-LST (QUOTE IREM-FIX-INT2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IREM-FIX-INT2-OFF1 IREM-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT2 . IREM-FIX-INT2-OFF1) (DISABLED-LEMMAS NIL IREM-FIX-INT2 IREM-FIX-INT2-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IQUOTIENT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IQUOTIENT-OFF1 FIX-INT-IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUOTIENT . FIX-INT-IQUOTIENT-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IREMAINDER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IREMAINDER-OFF1 FIX-INT-IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREMAINDER . FIX-INT-IREMAINDER-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IREMAINDER FIX-INT-IREMAINDER-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IDIV-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IDIV-OFF1 FIX-INT-IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIV . FIX-INT-IDIV-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IDIV FIX-INT-IDIV-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IMOD-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IMOD-OFF1 FIX-INT-IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IMOD . FIX-INT-IMOD-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IMOD FIX-INT-IMOD-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IQUO-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IQUO-OFF1 FIX-INT-IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUO . FIX-INT-IQUO-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IQUO FIX-INT-IQUO-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-IREM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-IREM-OFF1 FIX-INT-IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREM . FIX-INT-IREM-OFF1) (DISABLED-LEMMAS NIL FIX-INT-IREM FIX-INT-IREM-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-FRINGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-FRINGE-OFF1 *1*ITIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . G*1*ITIMES-FRINGE-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-FRINGE G*1*ITIMES-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-FRINGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-FRINGE-OFF1 ITIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . ITIMES-FRINGE-OFF1) (DISABLED-LEMMAS NIL ITIMES-FRINGE ITIMES-FRINGE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-REC-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-TREE-REC-OFF1 *1*ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . G*1*ITIMES-TREE-REC-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-TREE-REC-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-TREE-REC-OFF1 ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE-REC-OFF1) (DISABLED-LEMMAS NIL ITIMES-TREE-REC ITIMES-TREE-REC-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-TREE-OFF1 *1*ITIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE . G*1*ITIMES-TREE-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-TREE G*1*ITIMES-TREE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-LIST-OFF1 *1*ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . G*1*ITIMES-LIST-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-LIST G*1*ITIMES-LIST-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-LIST-OFF1 ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-OFF1) (DISABLED-LEMMAS NIL ITIMES-LIST ITIMES-LIST-OFF1 . T))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INTEGERP-ITIMES-LIST-OFF1 INTEGERP-ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . INTEGERP-ITIMES-LIST-OFF1) (DISABLED-LEMMAS NIL INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-OFF1 . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 *1*MAKE-CANCEL-ITIMES-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-ITIMES-OFF1 *1*CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . G*1*CANCEL-ITIMES-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES G*1*CANCEL-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-ITIMES-OFF1 CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . CANCEL-ITIMES-OFF1) (DISABLED-LEMMAS NIL CANCEL-ITIMES CANCEL-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-LIST-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-LIST-APPEND-OFF1 ITIMES-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . ITIMES-LIST-APPEND-OFF1) (DISABLED-LEMMAS NIL ITIMES-LIST-APPEND ITIMES-LIST-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBER-APPEND-OFF1 MEMBER-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MEMBER-APPEND-OFF1) (DISABLED-LEMMAS NIL MEMBER-APPEND MEMBER-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-FIX-INT-OFF1 EQUAL-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . EQUAL-FIX-INT-OFF1) (DISABLED-LEMMAS NIL EQUAL-FIX-INT EQUAL-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*SUBSETP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*SUBSETP-OFF1 *1*SUBSETP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . G*1*SUBSETP-OFF1) (DISABLED-LEMMAS NIL *1*SUBSETP G*1*SUBSETP-OFF1 . T))))) (PUT1-LST (QUOTE SUBSETP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SUBSETP-OFF1 SUBSETP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . SUBSETP-OFF1) (DISABLED-LEMMAS NIL SUBSETP SUBSETP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-NO-FIX-INT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-TREE-NO-FIX-INT-OFF1 *1*ITIMES-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . G*1*ITIMES-TREE-NO-FIX-INT-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 *1*MAKE-CANCEL-ITIMES-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-OFF1 *1*CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . G*1*CANCEL-ITIMES-ILESSP-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-OFF1 CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . CANCEL-ITIMES-ILESSP-OFF1) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-POSITIVE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 ILESSP-ITIMES-RIGHT-POSITIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-POSITIVE . ILESSP-ITIMES-RIGHT-POSITIVE-OFF1) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 ILESSP-ITIMES-RIGHT-NEGATIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-NEGATIVE . ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-STRICT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-STRICT-OFF1 ILESSP-STRICT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-STRICT-OFF1) (DISABLED-LEMMAS NIL ILESSP-STRICT ILESSP-STRICT-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-TREE-INEG-OFF1 *1*ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . G*1*ITIMES-TREE-INEG-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-OFF1 . T))))) (PUT1-LST (QUOTE G*1*ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*ITIMES-FACTORS-OFF1 *1*ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . G*1*ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL *1*ITIMES-FACTORS G*1*ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-FACTORS-OFF1 ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL ITIMES-FACTORS ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES--1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES--1-OFF1 ITIMES--1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES--1 . ITIMES--1-OFF1) (DISABLED-LEMMAS NIL ITIMES--1 ITIMES--1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-INEG-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-INEG-INEG-OFF1 EQUAL-INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . EQUAL-INEG-INEG-OFF1) (DISABLED-LEMMAS NIL EQUAL-INEG-INEG EQUAL-INEG-INEG-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-INEG-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-INEG-INEG-OFF1 ILESSP-INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-INEG-INEG . ILESSP-INEG-INEG-OFF1) (DISABLED-LEMMAS NIL ILESSP-INEG-INEG ILESSP-INEG-INEG-OFF1 . T))))) (PUT1-LST (QUOTE FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 FIX-INT-EVAL$-ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1) (DISABLED-LEMMAS NIL FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-ITIMES-TREE-INEG-OFF1 EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . EVAL$-ITIMES-TREE-INEG-OFF1) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-OFF1 . T))))) (PUT1-LST (QUOTE INEG-EVAL$-ITIMES-TREE-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE INEG-EVAL$-ITIMES-TREE-INEG-OFF1 INEG-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-EVAL$-ITIMES-TREE-INEG . INEG-EVAL$-ITIMES-TREE-INEG-OFF1) (DISABLED-LEMMAS NIL INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 IPLUS-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1) (DISABLED-LEMMAS NIL IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 . T))))) (PUT1-LST (QUOTE ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 ITIMES-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-EVAL$-ITIMES-TREE-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1) (DISABLED-LEMMAS NIL ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-ITIMES-TERM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-OR-ITIMES-TERM-OFF1 *1*IPLUS-OR-ITIMES-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . G*1*IPLUS-OR-ITIMES-TERM-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-OFF1 *1*CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . G*1*CANCEL-ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 *1*CANCEL-ITIMES-FACTORS-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1) (DISABLED-LEMMAS NIL MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-0-EVAL$-LIST-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBER-0-EVAL$-LIST-OFF1 MEMBER-0-EVAL$-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . MEMBER-0-EVAL$-LIST-OFF1) (DISABLED-LEMMAS NIL MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 *1*CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE BAGINT-SINGLETON-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE BAGINT-SINGLETON-OFF1 BAGINT-SINGLETON T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . BAGINT-SINGLETON-OFF1) (DISABLED-LEMMAS NIL BAGINT-SINGLETON BAGINT-SINGLETON-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 . T))))) (PUT1-LST (QUOTE ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 ZERO-ILESSP-IMPLIES-NOT-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZERO-ILESSP-IMPLIES-NOT-EQUAL . ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1) (DISABLED-LEMMAS NIL ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ZERO-IMPLIES-NOT-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ZERO-IMPLIES-NOT-EQUAL . ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1) (DISABLED-LEMMAS NIL ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 EVAL$-LIST-BAGINT-0-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-FOR-ILESSP . EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-TO-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-FIX-INT-TO-ILESSP-OFF1 EQUAL-FIX-INT-TO-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT-TO-ILESSP . EQUAL-FIX-INT-TO-ILESSP-OFF1) (DISABLED-LEMMAS NIL EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*DISJOIN-EQUALITIES-WITH-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 *1*DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . G*1*DISJOIN-EQUALITIES-WITH-0-OFF1) (DISABLED-LEMMAS NIL *1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 . T))))) (PUT1-LST (QUOTE DISJOIN-EQUALITIES-WITH-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DISJOIN-EQUALITIES-WITH-0-OFF1 DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . DISJOIN-EQUALITIES-WITH-0-OFF1) (DISABLED-LEMMAS NIL DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-FACTORS-0-OFF1 *1*CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . G*1*CANCEL-FACTORS-0-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-FACTORS-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-FACTORS-0-OFF1 CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . CANCEL-FACTORS-0-OFF1) (DISABLED-LEMMAS NIL CANCEL-FACTORS-0 CANCEL-FACTORS-0-OFF1 . T))))) (PUT1-LST (QUOTE G*1*SOME-EVAL$S-TO-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*SOME-EVAL$S-TO-0-OFF1 *1*SOME-EVAL$S-TO-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . G*1*SOME-EVAL$S-TO-0-OFF1) (DISABLED-LEMMAS NIL *1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-OFF1 . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SOME-EVAL$S-TO-0-OFF1 SOME-EVAL$S-TO-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-OFF1) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 EVAL$-DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1) (DISABLED-LEMMAS NIL EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SOME-EVAL$S-TO-0-APPEND-OFF1 SOME-EVAL$S-TO-0-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-APPEND . SOME-EVAL$S-TO-0-APPEND-OFF1) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-ELIMINATOR-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 SOME-EVAL$S-TO-0-ELIMINATOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . SOME-EVAL$S-TO-0-ELIMINATOR-OFF1) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 *1*CONJOIN-INEQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1) (DISABLED-LEMMAS NIL *1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 . T))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-OFF1 CONJOIN-INEQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . CONJOIN-INEQUALITIES-WITH-0-OFF1) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-ILESSP-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-FACTORS-ILESSP-0-OFF1 *1*CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . G*1*CANCEL-FACTORS-ILESSP-0-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-FACTORS-ILESSP-0-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-FACTORS-ILESSP-0-OFF1 CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . CANCEL-FACTORS-ILESSP-0-OFF1) (DISABLED-LEMMAS NIL CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-OFF1 . T))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 . T))))) (PUT1-LST (QUOTE G*1*SPLIT-OUT-INEG-TERMS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*SPLIT-OUT-INEG-TERMS-OFF1 *1*SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . G*1*SPLIT-OUT-INEG-TERMS-OFF1) (DISABLED-LEMMAS NIL *1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-OFF1 . T))))) (PUT1-LST (QUOTE SPLIT-OUT-INEG-TERMS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE SPLIT-OUT-INEG-TERMS-OFF1 SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . SPLIT-OUT-INEG-TERMS-OFF1) (DISABLED-LEMMAS NIL SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*REMOVE-INEGS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*REMOVE-INEGS-OFF1 *1*REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . G*1*REMOVE-INEGS-OFF1) (DISABLED-LEMMAS NIL *1*REMOVE-INEGS G*1*REMOVE-INEGS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-INEG-TERM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*IPLUS-OR-INEG-TERM-OFF1 *1*IPLUS-OR-INEG-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . G*1*IPLUS-OR-INEG-TERM-OFF1) (DISABLED-LEMMAS NIL *1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-OFF1 . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 *1*MAKE-CANCEL-INEG-TERMS-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 *1*CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1) (DISABLED-LEMMAS NIL IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 *1*CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 . T))))) (PUT1-LST (QUOTE IPLUS-CONSTANTS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE IPLUS-CONSTANTS-OFF1 IPLUS-CONSTANTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CONSTANTS . IPLUS-CONSTANTS-OFF1) (DISABLED-LEMMAS NIL IPLUS-CONSTANTS IPLUS-CONSTANTS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 CANCEL-CONSTANTS-EQUAL-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL-LEMMA . CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-OFF1 CANCEL-CONSTANTS-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL . CANCEL-CONSTANTS-EQUAL-OFF1) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ADD1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ADD1-OFF1 ILESSP-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . ILESSP-ADD1-OFF1) (DISABLED-LEMMAS NIL ILESSP-ADD1 ILESSP-ADD1-OFF1 . T))))) (PUT1-LST (QUOTE ILESSP-ADD1-IPLUS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE ILESSP-ADD1-IPLUS-OFF1 ILESSP-ADD1-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . ILESSP-ADD1-IPLUS-OFF1) (DISABLED-LEMMAS NIL ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-1 . CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-2 . CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-OFF1 CANCEL-CONSTANTS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP . CANCEL-CONSTANTS-ILESSP-OFF1) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE B-APPROX-OFF2) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE B-APPROX-OFF2 B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-OFF2) (DISABLED-LEMMAS NIL B-APPROX B-APPROX-OFF2 . T))))) (PUT1-LST (QUOTE B-KNOWNP-OFF2) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE B-KNOWNP-OFF2 B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-OFF2) (DISABLED-LEMMAS NIL B-KNOWNP B-KNOWNP-OFF2 . T))))) (PUT1-LST (QUOTE DOUBLET-P-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DOUBLET-P-OFF1 DOUBLET-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P . DOUBLET-P-OFF1) (DISABLED-LEMMAS NIL DOUBLET-P DOUBLET-P-OFF1 . T))))) (PUT1-LST (QUOTE OPEN-NTH-ON1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE OPEN-NTH-ON1 OPEN-NTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . OPEN-NTH-ON1) (DISABLED-LEMMAS NIL OPEN-NTH OPEN-NTH-ON1))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-OFF1 DP-RAM-16X32-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE . DP-RAM-16X32-MONOTONE-OFF1) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-STATE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-STATE-OFF1 DP-RAM-16X32-MONOTONE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-STATE . DP-RAM-16X32-MONOTONE-STATE-OFF1) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32 . DUAL-APPLY-STATE-DP-RAM-16X32-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 . T))))) (PUT1-LST (QUOTE MEM-WIDTH-LINEAR-FACTS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEM-WIDTH-LINEAR-FACTS-OFF1 MEM-WIDTH-LINEAR-FACTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-LINEAR-FACTS . MEM-WIDTH-LINEAR-FACTS-OFF1) (DISABLED-LEMMAS NIL MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-PROPERP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-PRESERVES-PROPERP-OFF1 V-APPROX-PRESERVES-PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-PROPERP . V-APPROX-PRESERVES-PROPERP-OFF1) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 . T))))) (PUT1-LST (QUOTE MEM-WIDTH-NON-ZERO-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MEM-WIDTH-NON-ZERO-OFF1 MEM-WIDTH-NON-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-NON-ZERO . MEM-WIDTH-NON-ZERO-OFF1) (DISABLED-LEMMAS NIL MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-SUBRANGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-SUBRANGE-OFF1 V-APPROX-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-SUBRANGE . V-APPROX-SUBRANGE-OFF1) (DISABLED-LEMMAS NIL V-APPROX-SUBRANGE V-APPROX-SUBRANGE-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-LENGTH-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-PRESERVES-LENGTH-OFF1 V-APPROX-PRESERVES-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-LENGTH . V-APPROX-PRESERVES-LENGTH-OFF1) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-ID-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-ID-OFF1 S-APPROX-CONSTANT-RAM-X-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-ID . S-APPROX-CONSTANT-RAM-X-ID-OFF1) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM-ID-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-WRITE-MEM-ID-OFF1 S-APPROX-WRITE-MEM-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM-ID . S-APPROX-WRITE-MEM-ID-OFF1) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM1-ID-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-WRITE-MEM1-ID-OFF1 S-APPROX-WRITE-MEM1-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM1-ID . S-APPROX-WRITE-MEM1-ID-OFF1) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-LENGTH-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-LENGTH-OFF1 V-APPROX-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LENGTH . V-APPROX-LENGTH-OFF1) (DISABLED-LEMMAS NIL V-APPROX-LENGTH V-APPROX-LENGTH-OFF1 . T))))) (PUT1-LST (QUOTE WRITE-MEM-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE WRITE-MEM-MONOTONE-OFF1 WRITE-MEM-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MONOTONE . WRITE-MEM-MONOTONE-OFF1) (DISABLED-LEMMAS NIL WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE WRITE-MEM1-MONOTONE-OFF1 WRITE-MEM1-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE . WRITE-MEM1-MONOTONE-OFF1) (DISABLED-LEMMAS NIL WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE WRITE-MEM1-OPENER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE WRITE-MEM1-OPENER-OFF1 WRITE-MEM1-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . WRITE-MEM1-OPENER-OFF1) (DISABLED-LEMMAS NIL WRITE-MEM1-OPENER WRITE-MEM1-OPENER-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-OPENER-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-OPENER-OFF1 S-APPROX-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-OPENER-OFF1) (DISABLED-LEMMAS NIL S-APPROX-OPENER S-APPROX-OPENER-OFF1 . T))))) (PUT1-LST (QUOTE BVP-ON1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE BVP-ON1 BVP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-ON1) (DISABLED-LEMMAS NIL BVP BVP-ON1))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-VALUE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-VALUE-OFF1 DP-RAM-16X32-MONOTONE-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-VALUE . DP-RAM-16X32-MONOTONE-VALUE-OFF1) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32 . DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-APPEND-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-APPEND-2-OFF1 EVAL$-APPEND-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND-2 . EVAL$-APPEND-2-OFF1) (DISABLED-LEMMAS NIL EVAL$-APPEND-2 EVAL$-APPEND-2-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-PAIRLIST-CONS-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-PAIRLIST-CONS-OFF1 EVAL$-PAIRLIST-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-PAIRLIST-CONS . EVAL$-PAIRLIST-CONS-OFF1) (DISABLED-LEMMAS NIL EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-APPEND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EVAL$-APPEND-OFF1 EVAL$-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND . EVAL$-APPEND-OFF1) (DISABLED-LEMMAS NIL EVAL$-APPEND EVAL$-APPEND-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 DUAL-PORT-RAM-VALUE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-MONOTONE . DUAL-PORT-RAM-VALUE-MONOTONE-OFF1) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM . S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM1 . S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM-OFF1 EQUAL-LENGTH-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM . EQUAL-LENGTH-READ-MEM-OFF1) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-OFF1 . T))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM1-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM1-OFF1 EQUAL-LENGTH-READ-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM1 . EQUAL-LENGTH-READ-MEM1-OFF1) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-OFF1 . T))))) (PUT1-LST (QUOTE READ-MEM-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE READ-MEM-MONOTONE-OFF1 READ-MEM-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-MONOTONE . READ-MEM-MONOTONE-OFF1) (DISABLED-LEMMAS NIL READ-MEM-MONOTONE READ-MEM-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-MAKE-LIST-X-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-MAKE-LIST-X-OFF1 V-APPROX-MAKE-LIST-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . V-APPROX-MAKE-LIST-X-OFF1) (DISABLED-LEMMAS NIL V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-BVP-SUBRANGE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-BVP-SUBRANGE-OFF1 V-APPROX-BVP-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP-SUBRANGE . V-APPROX-BVP-SUBRANGE-OFF1) (DISABLED-LEMMAS NIL V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 V-APPROX-IMPLIES-SUBRANGES-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-SUBRANGES-EQUAL . V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE G*1*B-KNOWNP-OFF2) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE G*1*B-KNOWNP-OFF2 *1*B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . G*1*B-KNOWNP-OFF2) (DISABLED-LEMMAS NIL *1*B-KNOWNP G*1*B-KNOWNP-OFF2 . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-B-APPROX-NTH-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 V-APPROX-IMPLIES-B-APPROX-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-B-APPROX-NTH . V-APPROX-IMPLIES-B-APPROX-NTH-OFF1) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 . T))))) (PUT1-LST (QUOTE BVP-IMPLIES-V-KNOWNP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE BVP-IMPLIES-V-KNOWNP-OFF1 BVP-IMPLIES-V-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IMPLIES-V-KNOWNP . BVP-IMPLIES-V-KNOWNP-OFF1) (DISABLED-LEMMAS NIL BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-OFF1 . T))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE READ-MEM1-MONOTONE-OFF1 READ-MEM1-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE . READ-MEM1-MONOTONE-OFF1) (DISABLED-LEMMAS NIL READ-MEM1-MONOTONE READ-MEM1-MONOTONE-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-BVP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE V-APPROX-BVP-OFF1 V-APPROX-BVP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP . V-APPROX-BVP-OFF1) (DISABLED-LEMMAS NIL V-APPROX-BVP V-APPROX-BVP-OFF1 . T))))) (PUT1-LST (QUOTE BVP-REVERSE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE BVP-REVERSE-OFF1 BVP-REVERSE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REVERSE . BVP-REVERSE-OFF1) (DISABLED-LEMMAS NIL BVP-REVERSE BVP-REVERSE-OFF1 . T))))) (PUT1-LST (QUOTE F-PULLUP-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-PULLUP-OFF1 F-PULLUP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP . F-PULLUP-OFF1) (DISABLED-LEMMAS NIL F-PULLUP F-PULLUP-OFF1 . T))))) (PUT1-LST (QUOTE FT-WIRE-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FT-WIRE-OFF1 FT-WIRE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE . FT-WIRE-OFF1) (DISABLED-LEMMAS NIL FT-WIRE FT-WIRE-OFF1 . T))))) (PUT1-LST (QUOTE FT-BUF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE FT-BUF-OFF1 FT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF . FT-BUF-OFF1) (DISABLED-LEMMAS NIL FT-BUF FT-BUF-OFF1 . T))))) (PUT1-LST (QUOTE F-IF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-IF-OFF1 F-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF . F-IF-OFF1) (DISABLED-LEMMAS NIL F-IF F-IF-OFF1 . T))))) (PUT1-LST (QUOTE F-EQUV3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-EQUV3-OFF1 F-EQUV3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-EQUV3-OFF1) (DISABLED-LEMMAS NIL F-EQUV3 F-EQUV3-OFF1 . T))))) (PUT1-LST (QUOTE F-EQUV-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-EQUV-OFF1 F-EQUV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV . F-EQUV-OFF1) (DISABLED-LEMMAS NIL F-EQUV F-EQUV-OFF1 . T))))) (PUT1-LST (QUOTE F-XOR3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-XOR3-OFF1 F-XOR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR3 . F-XOR3-OFF1) (DISABLED-LEMMAS NIL F-XOR3 F-XOR3-OFF1 . T))))) (PUT1-LST (QUOTE F-XOR-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-XOR-OFF1 F-XOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F-XOR-OFF1) (DISABLED-LEMMAS NIL F-XOR F-XOR-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR8-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR8-OFF1 F-NOR8 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR8 . F-NOR8-OFF1) (DISABLED-LEMMAS NIL F-NOR8 F-NOR8-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR6-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR6-OFF1 F-NOR6 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR6 . F-NOR6-OFF1) (DISABLED-LEMMAS NIL F-NOR6 F-NOR6-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR5-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR5-OFF1 F-NOR5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR5 . F-NOR5-OFF1) (DISABLED-LEMMAS NIL F-NOR5 F-NOR5-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR4-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR4-OFF1 F-NOR4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR4 . F-NOR4-OFF1) (DISABLED-LEMMAS NIL F-NOR4 F-NOR4-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR3-OFF1 F-NOR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F-NOR3-OFF1) (DISABLED-LEMMAS NIL F-NOR3 F-NOR3-OFF1 . T))))) (PUT1-LST (QUOTE F-NOR-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOR-OFF1 F-NOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR . F-NOR-OFF1) (DISABLED-LEMMAS NIL F-NOR F-NOR-OFF1 . T))))) (PUT1-LST (QUOTE F-OR4-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-OR4-OFF1 F-OR4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4 . F-OR4-OFF1) (DISABLED-LEMMAS NIL F-OR4 F-OR4-OFF1 . T))))) (PUT1-LST (QUOTE F-OR3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-OR3-OFF1 F-OR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR3 . F-OR3-OFF1) (DISABLED-LEMMAS NIL F-OR3 F-OR3-OFF1 . T))))) (PUT1-LST (QUOTE F-OR-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-OR-OFF1 F-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-OR-OFF1) (DISABLED-LEMMAS NIL F-OR F-OR-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND8-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND8-OFF1 F-NAND8 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND8 . F-NAND8-OFF1) (DISABLED-LEMMAS NIL F-NAND8 F-NAND8-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND6-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND6-OFF1 F-NAND6 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND6 . F-NAND6-OFF1) (DISABLED-LEMMAS NIL F-NAND6 F-NAND6-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND5-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND5-OFF1 F-NAND5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND5 . F-NAND5-OFF1) (DISABLED-LEMMAS NIL F-NAND5 F-NAND5-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND4-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND4-OFF1 F-NAND4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4 . F-NAND4-OFF1) (DISABLED-LEMMAS NIL F-NAND4 F-NAND4-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND3-OFF1 F-NAND3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3 . F-NAND3-OFF1) (DISABLED-LEMMAS NIL F-NAND3 F-NAND3-OFF1 . T))))) (PUT1-LST (QUOTE F-NAND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NAND-OFF1 F-NAND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F-NAND-OFF1) (DISABLED-LEMMAS NIL F-NAND F-NAND-OFF1 . T))))) (PUT1-LST (QUOTE F-NOT-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-NOT-OFF1 F-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-OFF1) (DISABLED-LEMMAS NIL F-NOT F-NOT-OFF1 . T))))) (PUT1-LST (QUOTE F-AND4-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-AND4-OFF1 F-AND4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4 . F-AND4-OFF1) (DISABLED-LEMMAS NIL F-AND4 F-AND4-OFF1 . T))))) (PUT1-LST (QUOTE F-AND3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-AND3-OFF1 F-AND3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND3 . F-AND3-OFF1) (DISABLED-LEMMAS NIL F-AND3 F-AND3-OFF1 . T))))) (PUT1-LST (QUOTE F-AND-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-AND-OFF1 F-AND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-AND-OFF1) (DISABLED-LEMMAS NIL F-AND F-AND-OFF1 . T))))) (PUT1-LST (QUOTE F-BUF-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE F-BUF-OFF1 F-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-OFF1) (DISABLED-LEMMAS NIL F-BUF F-BUF-OFF1 . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-3-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-3-OFF1 MONOTONICITY-PROPERTY-OPENER-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-3 . MONOTONICITY-PROPERTY-OPENER-3-OFF1) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-OFF1 . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-2-OFF1) (QUOTE (IDATE 1000402195018 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-2-OFF1 MONOTONICITY-PROPERTY-OPENER-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . MONOTONICITY-PROPERTY-OPENER-2-OFF1) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-OFF1 . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-1-OFF1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-1-OFF1 MONOTONICITY-PROPERTY-OPENER-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-1 . MONOTONICITY-PROPERTY-OPENER-1-OFF1) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-OFF1 . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-0-OFF1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-0-OFF1 MONOTONICITY-PROPERTY-OPENER-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . MONOTONICITY-PROPERTY-OPENER-0-OFF1) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-OFF1 . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OFF1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-OFF1 MONOTONICITY-PROPERTY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OFF1) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-OFF1 . T))))) (PUT1-LST (QUOTE B-KNOWNP-COMPOUND-RECOGNIZER-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-KNOWNP-COMPOUND-RECOGNIZER-ON B-KNOWNP-COMPOUND-RECOGNIZER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . B-KNOWNP-COMPOUND-RECOGNIZER-ON) (DISABLED-LEMMAS NIL B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP-COMPOUND-RECOGNIZER-ON))))) (PUT1-LST (QUOTE G*1*B-APPROX-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*B-APPROX-ON *1*B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . G*1*B-APPROX-ON) (DISABLED-LEMMAS NIL *1*B-APPROX G*1*B-APPROX-ON))))) (PUT1-LST (QUOTE G*1*V-APPROX-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*V-APPROX-ON *1*V-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . G*1*V-APPROX-ON) (DISABLED-LEMMAS NIL *1*V-APPROX G*1*V-APPROX-ON))))) (PUT1-LST (QUOTE V-APPROX-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-ON1 V-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-ON1) (DISABLED-LEMMAS NIL V-APPROX V-APPROX-ON1))))) (PUT1-LST (QUOTE G*1*V-KNOWNP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*V-KNOWNP-ON *1*V-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . G*1*V-KNOWNP-ON) (DISABLED-LEMMAS NIL *1*V-KNOWNP G*1*V-KNOWNP-ON))))) (PUT1-LST (QUOTE V-KNOWNP-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-KNOWNP-ON1 V-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . V-KNOWNP-ON1) (DISABLED-LEMMAS NIL V-KNOWNP V-KNOWNP-ON1))))) (PUT1-LST (QUOTE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON) (DISABLED-LEMMAS NIL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON))))) (PUT1-LST (QUOTE G*1*MEM-WIDTH-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*MEM-WIDTH-ON1 *1*MEM-WIDTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . G*1*MEM-WIDTH-ON1) (DISABLED-LEMMAS NIL *1*MEM-WIDTH G*1*MEM-WIDTH-ON1))))) (PUT1-LST (QUOTE MEM-WIDTH-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MEM-WIDTH-ON1 MEM-WIDTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-ON1) (DISABLED-LEMMAS NIL MEM-WIDTH MEM-WIDTH-ON1))))) (PUT1-LST (QUOTE G*1*S-APPROX-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*S-APPROX-ON *1*S-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . G*1*S-APPROX-ON) (DISABLED-LEMMAS NIL *1*S-APPROX G*1*S-APPROX-ON))))) (PUT1-LST (QUOTE S-APPROX-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-ON1 S-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-ON1) (DISABLED-LEMMAS NIL S-APPROX S-APPROX-ON1))))) (PUT1-LST (QUOTE S-APPROX-X-X-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-X-X-ON S-APPROX-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-X-X . S-APPROX-X-X-ON) (DISABLED-LEMMAS NIL S-APPROX-X-X S-APPROX-X-X-ON))))) (PUT1-LST (QUOTE G*1*GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*GOOD-S-ON *1*GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . G*1*GOOD-S-ON) (DISABLED-LEMMAS NIL *1*GOOD-S G*1*GOOD-S-ON))))) (PUT1-LST (QUOTE GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-ON GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-ON) (DISABLED-LEMMAS NIL GOOD-S GOOD-S-ON))))) (PUT1-LST (QUOTE G*1*S-KNOWNP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*S-KNOWNP-ON *1*S-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . G*1*S-KNOWNP-ON) (DISABLED-LEMMAS NIL *1*S-KNOWNP G*1*S-KNOWNP-ON))))) (PUT1-LST (QUOTE S-KNOWNP-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-KNOWNP-ON1 S-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-KNOWNP-ON1) (DISABLED-LEMMAS NIL S-KNOWNP S-KNOWNP-ON1))))) (PUT1-LST (QUOTE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1) (DISABLED-LEMMAS NIL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1))))) (PUT1-LST (QUOTE G*1*V-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*V-APPROX-ALIST-ON *1*V-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . G*1*V-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL *1*V-APPROX-ALIST G*1*V-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE V-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-ALIST-ON V-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL V-APPROX-ALIST V-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE G*1*S-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*S-APPROX-ALIST-ON *1*S-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . G*1*S-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL *1*S-APPROX-ALIST G*1*S-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE S-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-ALIST-ON S-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL S-APPROX-ALIST S-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE G*1*MONOTONICITY-PROPERTY-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*MONOTONICITY-PROPERTY-ON *1*MONOTONICITY-PROPERTY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . G*1*MONOTONICITY-PROPERTY-ON) (DISABLED-LEMMAS NIL *1*MONOTONICITY-PROPERTY G*1*MONOTONICITY-PROPERTY-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON MONOTONICITY-PROPERTY-CONSEQUENCE-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-0 . MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON MONOTONICITY-PROPERTY-CONSEQUENCE-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-1 . MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON MONOTONICITY-PROPERTY-CONSEQUENCE-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 . MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON MONOTONICITY-PROPERTY-CONSEQUENCE-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 . MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON))))) (PUT1-LST (QUOTE F-BUF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-BUF-MONOTONE-ON F-BUF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . F-BUF-MONOTONE-ON) (DISABLED-LEMMAS NIL F-BUF-MONOTONE F-BUF-MONOTONE-ON))))) (PUT1-LST (QUOTE F-AND-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-AND-MONOTONE-ON F-AND-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-AND-MONOTONE-ON) (DISABLED-LEMMAS NIL F-AND-MONOTONE F-AND-MONOTONE-ON))))) (PUT1-LST (QUOTE F-AND3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-AND3-MONOTONE-ON F-AND3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND3-MONOTONE . F-AND3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-AND3-MONOTONE F-AND3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-AND4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-AND4-MONOTONE-ON F-AND4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4-MONOTONE . F-AND4-MONOTONE-ON) (DISABLED-LEMMAS NIL F-AND4-MONOTONE F-AND4-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOT-MONOTONE-ON F-NOT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOT-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOT-MONOTONE F-NOT-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND-MONOTONE-ON F-NAND-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . F-NAND-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND-MONOTONE F-NAND-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND3-MONOTONE-ON F-NAND3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3-MONOTONE . F-NAND3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND3-MONOTONE F-NAND3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND4-MONOTONE-ON F-NAND4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4-MONOTONE . F-NAND4-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND4-MONOTONE F-NAND4-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND5-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND5-MONOTONE-ON F-NAND5-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND5-MONOTONE . F-NAND5-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND5-MONOTONE F-NAND5-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND6-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND6-MONOTONE-ON F-NAND6-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND6-MONOTONE . F-NAND6-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND6-MONOTONE F-NAND6-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NAND8-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NAND8-MONOTONE-ON F-NAND8-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND8-MONOTONE . F-NAND8-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NAND8-MONOTONE F-NAND8-MONOTONE-ON))))) (PUT1-LST (QUOTE F-OR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-OR-MONOTONE-ON F-OR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-OR-MONOTONE-ON) (DISABLED-LEMMAS NIL F-OR-MONOTONE F-OR-MONOTONE-ON))))) (PUT1-LST (QUOTE F-OR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-OR3-MONOTONE-ON F-OR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR3-MONOTONE . F-OR3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-OR3-MONOTONE F-OR3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-OR4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-OR4-MONOTONE-ON F-OR4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4-MONOTONE . F-OR4-MONOTONE-ON) (DISABLED-LEMMAS NIL F-OR4-MONOTONE F-OR4-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR-MONOTONE-ON F-NOR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . F-NOR-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR-MONOTONE F-NOR-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR3-MONOTONE-ON F-NOR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3-MONOTONE . F-NOR3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR3-MONOTONE F-NOR3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR4-MONOTONE-ON F-NOR4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR4-MONOTONE . F-NOR4-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR4-MONOTONE F-NOR4-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR5-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR5-MONOTONE-ON F-NOR5-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR5-MONOTONE . F-NOR5-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR5-MONOTONE F-NOR5-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR6-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR6-MONOTONE-ON F-NOR6-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR6-MONOTONE . F-NOR6-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR6-MONOTONE F-NOR6-MONOTONE-ON))))) (PUT1-LST (QUOTE F-NOR8-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-NOR8-MONOTONE-ON F-NOR8-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR8-MONOTONE . F-NOR8-MONOTONE-ON) (DISABLED-LEMMAS NIL F-NOR8-MONOTONE F-NOR8-MONOTONE-ON))))) (PUT1-LST (QUOTE F-XOR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-XOR-MONOTONE-ON F-XOR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . F-XOR-MONOTONE-ON) (DISABLED-LEMMAS NIL F-XOR-MONOTONE F-XOR-MONOTONE-ON))))) (PUT1-LST (QUOTE F-EQUV-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-EQUV-MONOTONE-ON F-EQUV-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV-MONOTONE . F-EQUV-MONOTONE-ON) (DISABLED-LEMMAS NIL F-EQUV-MONOTONE F-EQUV-MONOTONE-ON))))) (PUT1-LST (QUOTE F-XOR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-XOR3-MONOTONE-ON F-XOR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR3-MONOTONE . F-XOR3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-XOR3-MONOTONE F-XOR3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-EQUV3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-EQUV3-MONOTONE-ON F-EQUV3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV3-MONOTONE . F-EQUV3-MONOTONE-ON) (DISABLED-LEMMAS NIL F-EQUV3-MONOTONE F-EQUV3-MONOTONE-ON))))) (PUT1-LST (QUOTE F-IF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-IF-MONOTONE-ON F-IF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . F-IF-MONOTONE-ON) (DISABLED-LEMMAS NIL F-IF-MONOTONE F-IF-MONOTONE-ON))))) (PUT1-LST (QUOTE FT-BUF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FT-BUF-MONOTONE-ON FT-BUF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . FT-BUF-MONOTONE-ON) (DISABLED-LEMMAS NIL FT-BUF-MONOTONE FT-BUF-MONOTONE-ON))))) (PUT1-LST (QUOTE FT-WIRE-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FT-WIRE-MONOTONE-ON FT-WIRE-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE-MONOTONE . FT-WIRE-MONOTONE-ON) (DISABLED-LEMMAS NIL FT-WIRE-MONOTONE FT-WIRE-MONOTONE-ON))))) (PUT1-LST (QUOTE F-PULLUP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-PULLUP-MONOTONE-ON F-PULLUP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP-MONOTONE . F-PULLUP-MONOTONE-ON) (DISABLED-LEMMAS NIL F-PULLUP-MONOTONE F-PULLUP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-0-PRIMP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-0-PRIMP-ON DUAL-EVAL-0-PRIMP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-0-PRIMP-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-0-PRIMP DUAL-EVAL-0-PRIMP-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-2-PRIMP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-2-PRIMP-ON DUAL-EVAL-2-PRIMP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-2-PRIMP-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-2-PRIMP DUAL-EVAL-2-PRIMP-ON))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-B-APPROX-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-IMPLIES-B-APPROX-ON S-APPROX-IMPLIES-B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-IMPLIES-B-APPROX-ON) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-B-APPROX S-APPROX-IMPLIES-B-APPROX-ON))))) (PUT1-LST (QUOTE F-BUF-TYPE-SET-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-BUF-TYPE-SET-ON F-BUF-TYPE-SET NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-TYPE-SET . F-BUF-TYPE-SET-ON) (DISABLED-LEMMAS NIL F-BUF-TYPE-SET F-BUF-TYPE-SET-ON))))) (PUT1-LST (QUOTE FOURP-F-BUF-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FOURP-F-BUF-ON FOURP-F-BUF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FOURP-F-BUF-ON) (DISABLED-LEMMAS NIL FOURP-F-BUF FOURP-F-BUF-ON))))) (PUT1-LST (QUOTE FOURP-F-IF-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FOURP-F-IF-ON FOURP-F-IF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-F-IF . FOURP-F-IF-ON) (DISABLED-LEMMAS NIL FOURP-F-IF FOURP-F-IF-ON))))) (PUT1-LST (QUOTE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1 FOURP-IMPLIES-S-APPROX-IS-B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1) (DISABLED-LEMMAS NIL FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO2-VALUE-ON DUAL-EVAL-AO2-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-VALUE . DUAL-EVAL-AO2-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO2-STATE-ON DUAL-EVAL-AO2-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-STATE . DUAL-EVAL-AO2-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-STATE-ON))))) (PUT1-LST (QUOTE AO2-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO2-MONOTONE-ON AO2-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-MONOTONE . AO2-MONOTONE-ON) (DISABLED-LEMMAS NIL AO2-MONOTONE AO2-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO4-VALUE-ON DUAL-EVAL-AO4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-VALUE . DUAL-EVAL-AO4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO4-STATE-ON DUAL-EVAL-AO4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-STATE . DUAL-EVAL-AO4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-STATE-ON))))) (PUT1-LST (QUOTE AO4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO4-MONOTONE-ON AO4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4-MONOTONE . AO4-MONOTONE-ON) (DISABLED-LEMMAS NIL AO4-MONOTONE AO4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO6-VALUE-ON DUAL-EVAL-AO6-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-VALUE . DUAL-EVAL-AO6-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO6-STATE-ON DUAL-EVAL-AO6-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-STATE . DUAL-EVAL-AO6-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-STATE-ON))))) (PUT1-LST (QUOTE AO6-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO6-MONOTONE-ON AO6-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6-MONOTONE . AO6-MONOTONE-ON) (DISABLED-LEMMAS NIL AO6-MONOTONE AO6-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO7-VALUE-ON DUAL-EVAL-AO7-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-VALUE . DUAL-EVAL-AO7-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-AO7-STATE-ON DUAL-EVAL-AO7-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-STATE . DUAL-EVAL-AO7-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-STATE-ON))))) (PUT1-LST (QUOTE AO7-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO7-MONOTONE-ON AO7-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7-MONOTONE . AO7-MONOTONE-ON) (DISABLED-LEMMAS NIL AO7-MONOTONE AO7-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND-VALUE-ON DUAL-EVAL-B-AND-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-VALUE . DUAL-EVAL-B-AND-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND-STATE-ON DUAL-EVAL-B-AND-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-STATE . DUAL-EVAL-B-AND-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-STATE-ON))))) (PUT1-LST (QUOTE B-AND-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND-MONOTONE-ON B-AND-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-MONOTONE . B-AND-MONOTONE-ON) (DISABLED-LEMMAS NIL B-AND-MONOTONE B-AND-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND3-VALUE-ON DUAL-EVAL-B-AND3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-VALUE . DUAL-EVAL-B-AND3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND3-STATE-ON DUAL-EVAL-B-AND3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-STATE . DUAL-EVAL-B-AND3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-STATE-ON))))) (PUT1-LST (QUOTE B-AND3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND3-MONOTONE-ON B-AND3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3-MONOTONE . B-AND3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-AND3-MONOTONE B-AND3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND4-VALUE-ON DUAL-EVAL-B-AND4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-VALUE . DUAL-EVAL-B-AND4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-AND4-STATE-ON DUAL-EVAL-B-AND4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-STATE . DUAL-EVAL-B-AND4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-STATE-ON))))) (PUT1-LST (QUOTE B-AND4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND4-MONOTONE-ON B-AND4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4-MONOTONE . B-AND4-MONOTONE-ON) (DISABLED-LEMMAS NIL B-AND4-MONOTONE B-AND4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-EQUV-VALUE-ON DUAL-EVAL-B-EQUV-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-VALUE . DUAL-EVAL-B-EQUV-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-EQUV-STATE-ON DUAL-EVAL-B-EQUV-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-STATE . DUAL-EVAL-B-EQUV-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-STATE-ON))))) (PUT1-LST (QUOTE B-EQUV-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-EQUV-MONOTONE-ON B-EQUV-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV-MONOTONE . B-EQUV-MONOTONE-ON) (DISABLED-LEMMAS NIL B-EQUV-MONOTONE B-EQUV-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-EQUV3-VALUE-ON DUAL-EVAL-B-EQUV3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-VALUE . DUAL-EVAL-B-EQUV3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-EQUV3-STATE-ON DUAL-EVAL-B-EQUV3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-STATE . DUAL-EVAL-B-EQUV3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-STATE-ON))))) (PUT1-LST (QUOTE B-EQUV3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-EQUV3-MONOTONE-ON B-EQUV3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3-MONOTONE . B-EQUV3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-EQUV3-MONOTONE B-EQUV3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-IF-VALUE-ON DUAL-EVAL-B-IF-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-VALUE . DUAL-EVAL-B-IF-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-IF-STATE-ON DUAL-EVAL-B-IF-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-STATE . DUAL-EVAL-B-IF-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-STATE-ON))))) (PUT1-LST (QUOTE B-IF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-IF-MONOTONE-ON B-IF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF-MONOTONE . B-IF-MONOTONE-ON) (DISABLED-LEMMAS NIL B-IF-MONOTONE B-IF-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND-VALUE-ON DUAL-EVAL-B-NAND-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-VALUE . DUAL-EVAL-B-NAND-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND-STATE-ON DUAL-EVAL-B-NAND-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-STATE . DUAL-EVAL-B-NAND-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-STATE-ON))))) (PUT1-LST (QUOTE B-NAND-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND-MONOTONE-ON B-NAND-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND-MONOTONE . B-NAND-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND-MONOTONE B-NAND-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND3-VALUE-ON DUAL-EVAL-B-NAND3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-VALUE . DUAL-EVAL-B-NAND3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND3-STATE-ON DUAL-EVAL-B-NAND3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-STATE . DUAL-EVAL-B-NAND3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-STATE-ON))))) (PUT1-LST (QUOTE B-NAND3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND3-MONOTONE-ON B-NAND3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3-MONOTONE . B-NAND3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND3-MONOTONE B-NAND3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND4-VALUE-ON DUAL-EVAL-B-NAND4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-VALUE . DUAL-EVAL-B-NAND4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND4-STATE-ON DUAL-EVAL-B-NAND4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-STATE . DUAL-EVAL-B-NAND4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-STATE-ON))))) (PUT1-LST (QUOTE B-NAND4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND4-MONOTONE-ON B-NAND4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4-MONOTONE . B-NAND4-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND4-MONOTONE B-NAND4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND5-VALUE-ON DUAL-EVAL-B-NAND5-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-VALUE . DUAL-EVAL-B-NAND5-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND5-STATE-ON DUAL-EVAL-B-NAND5-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-STATE . DUAL-EVAL-B-NAND5-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-STATE-ON))))) (PUT1-LST (QUOTE B-NAND5-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND5-MONOTONE-ON B-NAND5-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5-MONOTONE . B-NAND5-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND5-MONOTONE B-NAND5-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND6-VALUE-ON DUAL-EVAL-B-NAND6-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-VALUE . DUAL-EVAL-B-NAND6-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND6-STATE-ON DUAL-EVAL-B-NAND6-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-STATE . DUAL-EVAL-B-NAND6-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-STATE-ON))))) (PUT1-LST (QUOTE B-NAND6-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND6-MONOTONE-ON B-NAND6-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6-MONOTONE . B-NAND6-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND6-MONOTONE B-NAND6-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND8-VALUE-ON DUAL-EVAL-B-NAND8-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-VALUE . DUAL-EVAL-B-NAND8-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NAND8-STATE-ON DUAL-EVAL-B-NAND8-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-STATE . DUAL-EVAL-B-NAND8-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-STATE-ON))))) (PUT1-LST (QUOTE B-NAND8-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND8-MONOTONE-ON B-NAND8-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8-MONOTONE . B-NAND8-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NAND8-MONOTONE B-NAND8-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NBUF-VALUE-ON DUAL-EVAL-B-NBUF-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-VALUE . DUAL-EVAL-B-NBUF-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NBUF-STATE-ON DUAL-EVAL-B-NBUF-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-STATE . DUAL-EVAL-B-NBUF-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-STATE-ON))))) (PUT1-LST (QUOTE B-NBUF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NBUF-MONOTONE-ON B-NBUF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF-MONOTONE . B-NBUF-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NBUF-MONOTONE B-NBUF-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR-VALUE-ON DUAL-EVAL-B-NOR-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-VALUE . DUAL-EVAL-B-NOR-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR-STATE-ON DUAL-EVAL-B-NOR-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-STATE . DUAL-EVAL-B-NOR-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-STATE-ON))))) (PUT1-LST (QUOTE B-NOR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR-MONOTONE-ON B-NOR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR-MONOTONE . B-NOR-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR-MONOTONE B-NOR-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR3-VALUE-ON DUAL-EVAL-B-NOR3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-VALUE . DUAL-EVAL-B-NOR3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR3-STATE-ON DUAL-EVAL-B-NOR3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-STATE . DUAL-EVAL-B-NOR3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-STATE-ON))))) (PUT1-LST (QUOTE B-NOR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR3-MONOTONE-ON B-NOR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3-MONOTONE . B-NOR3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR3-MONOTONE B-NOR3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR4-VALUE-ON DUAL-EVAL-B-NOR4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-VALUE . DUAL-EVAL-B-NOR4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR4-STATE-ON DUAL-EVAL-B-NOR4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-STATE . DUAL-EVAL-B-NOR4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-STATE-ON))))) (PUT1-LST (QUOTE B-NOR4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR4-MONOTONE-ON B-NOR4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4-MONOTONE . B-NOR4-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR4-MONOTONE B-NOR4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR5-VALUE-ON DUAL-EVAL-B-NOR5-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-VALUE . DUAL-EVAL-B-NOR5-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR5-STATE-ON DUAL-EVAL-B-NOR5-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-STATE . DUAL-EVAL-B-NOR5-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-STATE-ON))))) (PUT1-LST (QUOTE B-NOR5-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR5-MONOTONE-ON B-NOR5-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5-MONOTONE . B-NOR5-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR5-MONOTONE B-NOR5-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR6-VALUE-ON DUAL-EVAL-B-NOR6-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-VALUE . DUAL-EVAL-B-NOR6-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR6-STATE-ON DUAL-EVAL-B-NOR6-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-STATE . DUAL-EVAL-B-NOR6-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-STATE-ON))))) (PUT1-LST (QUOTE B-NOR6-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR6-MONOTONE-ON B-NOR6-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6-MONOTONE . B-NOR6-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR6-MONOTONE B-NOR6-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR8-VALUE-ON DUAL-EVAL-B-NOR8-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-VALUE . DUAL-EVAL-B-NOR8-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOR8-STATE-ON DUAL-EVAL-B-NOR8-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-STATE . DUAL-EVAL-B-NOR8-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-STATE-ON))))) (PUT1-LST (QUOTE B-NOR8-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR8-MONOTONE-ON B-NOR8-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8-MONOTONE . B-NOR8-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOR8-MONOTONE B-NOR8-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-VALUE-ON DUAL-EVAL-B-NOT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-VALUE . DUAL-EVAL-B-NOT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-STATE-ON DUAL-EVAL-B-NOT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-STATE . DUAL-EVAL-B-NOT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-STATE-ON))))) (PUT1-LST (QUOTE B-NOT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-MONOTONE-ON B-NOT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-MONOTONE . B-NOT-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOT-MONOTONE B-NOT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-B4IP-VALUE-ON DUAL-EVAL-B-NOT-B4IP-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-VALUE . DUAL-EVAL-B-NOT-B4IP-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-B4IP-STATE-ON DUAL-EVAL-B-NOT-B4IP-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-STATE . DUAL-EVAL-B-NOT-B4IP-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-STATE-ON))))) (PUT1-LST (QUOTE B-NOT-B4IP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-B4IP-MONOTONE-ON B-NOT-B4IP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-MONOTONE . B-NOT-B4IP-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOT-B4IP-MONOTONE B-NOT-B4IP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-IVAP-VALUE-ON DUAL-EVAL-B-NOT-IVAP-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-VALUE . DUAL-EVAL-B-NOT-IVAP-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-NOT-IVAP-STATE-ON DUAL-EVAL-B-NOT-IVAP-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-STATE . DUAL-EVAL-B-NOT-IVAP-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-STATE-ON))))) (PUT1-LST (QUOTE B-NOT-IVAP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-IVAP-MONOTONE-ON B-NOT-IVAP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-MONOTONE . B-NOT-IVAP-MONOTONE-ON) (DISABLED-LEMMAS NIL B-NOT-IVAP-MONOTONE B-NOT-IVAP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR-VALUE-ON DUAL-EVAL-B-OR-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-VALUE . DUAL-EVAL-B-OR-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR-STATE-ON DUAL-EVAL-B-OR-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-STATE . DUAL-EVAL-B-OR-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-STATE-ON))))) (PUT1-LST (QUOTE B-OR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR-MONOTONE-ON B-OR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR-MONOTONE . B-OR-MONOTONE-ON) (DISABLED-LEMMAS NIL B-OR-MONOTONE B-OR-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR3-VALUE-ON DUAL-EVAL-B-OR3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-VALUE . DUAL-EVAL-B-OR3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR3-STATE-ON DUAL-EVAL-B-OR3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-STATE . DUAL-EVAL-B-OR3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-STATE-ON))))) (PUT1-LST (QUOTE B-OR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR3-MONOTONE-ON B-OR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3-MONOTONE . B-OR3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-OR3-MONOTONE B-OR3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR4-VALUE-ON DUAL-EVAL-B-OR4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-VALUE . DUAL-EVAL-B-OR4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-OR4-STATE-ON DUAL-EVAL-B-OR4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-STATE . DUAL-EVAL-B-OR4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-STATE-ON))))) (PUT1-LST (QUOTE B-OR4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR4-MONOTONE-ON B-OR4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4-MONOTONE . B-OR4-MONOTONE-ON) (DISABLED-LEMMAS NIL B-OR4-MONOTONE B-OR4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-XOR-VALUE-ON DUAL-EVAL-B-XOR-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-VALUE . DUAL-EVAL-B-XOR-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-XOR-STATE-ON DUAL-EVAL-B-XOR-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-STATE . DUAL-EVAL-B-XOR-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-STATE-ON))))) (PUT1-LST (QUOTE B-XOR-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-XOR-MONOTONE-ON B-XOR-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR-MONOTONE . B-XOR-MONOTONE-ON) (DISABLED-LEMMAS NIL B-XOR-MONOTONE B-XOR-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-XOR3-VALUE-ON DUAL-EVAL-B-XOR3-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-VALUE . DUAL-EVAL-B-XOR3-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-B-XOR3-STATE-ON DUAL-EVAL-B-XOR3-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-STATE . DUAL-EVAL-B-XOR3-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-STATE-ON))))) (PUT1-LST (QUOTE B-XOR3-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-XOR3-MONOTONE-ON B-XOR3-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3-MONOTONE . B-XOR3-MONOTONE-ON) (DISABLED-LEMMAS NIL B-XOR3-MONOTONE B-XOR3-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL2-VALUE-ON DUAL-EVAL-DEL2-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-VALUE . DUAL-EVAL-DEL2-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL2-STATE-ON DUAL-EVAL-DEL2-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-STATE . DUAL-EVAL-DEL2-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-STATE-ON))))) (PUT1-LST (QUOTE DEL2-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL2-MONOTONE-ON DEL2-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2-MONOTONE . DEL2-MONOTONE-ON) (DISABLED-LEMMAS NIL DEL2-MONOTONE DEL2-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL4-VALUE-ON DUAL-EVAL-DEL4-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-VALUE . DUAL-EVAL-DEL4-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL4-STATE-ON DUAL-EVAL-DEL4-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-STATE . DUAL-EVAL-DEL4-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-STATE-ON))))) (PUT1-LST (QUOTE DEL4-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL4-MONOTONE-ON DEL4-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4-MONOTONE . DEL4-MONOTONE-ON) (DISABLED-LEMMAS NIL DEL4-MONOTONE DEL4-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL10-VALUE-ON DUAL-EVAL-DEL10-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-VALUE . DUAL-EVAL-DEL10-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-DEL10-STATE-ON DUAL-EVAL-DEL10-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-STATE . DUAL-EVAL-DEL10-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-STATE-ON))))) (PUT1-LST (QUOTE DEL10-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL10-MONOTONE-ON DEL10-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10-MONOTONE . DEL10-MONOTONE-ON) (DISABLED-LEMMAS NIL DEL10-MONOTONE DEL10-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-PROCMON-VALUE-ON DUAL-EVAL-PROCMON-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-VALUE . DUAL-EVAL-PROCMON-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-PROCMON-STATE-ON DUAL-EVAL-PROCMON-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-STATE . DUAL-EVAL-PROCMON-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-STATE-ON))))) (PUT1-LST (QUOTE PROCMON-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PROCMON-MONOTONE-ON PROCMON-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON-MONOTONE . PROCMON-MONOTONE-ON) (DISABLED-LEMMAS NIL PROCMON-MONOTONE PROCMON-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1-VALUE-ON DUAL-EVAL-FD1-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-VALUE . DUAL-EVAL-FD1-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1-STATE-ON DUAL-EVAL-FD1-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-STATE . DUAL-EVAL-FD1-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-STATE-ON))))) (PUT1-LST (QUOTE FD1-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1-MONOTONE-ON FD1-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1-MONOTONE . FD1-MONOTONE-ON) (DISABLED-LEMMAS NIL FD1-MONOTONE FD1-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1S-VALUE-ON DUAL-EVAL-FD1S-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-VALUE . DUAL-EVAL-FD1S-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1S-STATE-ON DUAL-EVAL-FD1S-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-STATE . DUAL-EVAL-FD1S-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-STATE-ON))))) (PUT1-LST (QUOTE FD1S-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1S-MONOTONE-ON FD1S-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S-MONOTONE . FD1S-MONOTONE-ON) (DISABLED-LEMMAS NIL FD1S-MONOTONE FD1S-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1SP-VALUE-ON DUAL-EVAL-FD1SP-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-VALUE . DUAL-EVAL-FD1SP-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1SP-STATE-ON DUAL-EVAL-FD1SP-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-STATE . DUAL-EVAL-FD1SP-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-STATE-ON))))) (PUT1-LST (QUOTE FD1SP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1SP-MONOTONE-ON FD1SP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP-MONOTONE . FD1SP-MONOTONE-ON) (DISABLED-LEMMAS NIL FD1SP-MONOTONE FD1SP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1SLP-VALUE-ON DUAL-EVAL-FD1SLP-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-VALUE . DUAL-EVAL-FD1SLP-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-FD1SLP-STATE-ON DUAL-EVAL-FD1SLP-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-STATE . DUAL-EVAL-FD1SLP-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-STATE-ON))))) (PUT1-LST (QUOTE FD1SLP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1SLP-MONOTONE-ON FD1SLP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP-MONOTONE . FD1SLP-MONOTONE-ON) (DISABLED-LEMMAS NIL FD1SLP-MONOTONE FD1SLP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-ID-VALUE-ON DUAL-EVAL-ID-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-VALUE . DUAL-EVAL-ID-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-ID-STATE-ON DUAL-EVAL-ID-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-STATE . DUAL-EVAL-ID-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-ID-STATE DUAL-EVAL-ID-STATE-ON))))) (PUT1-LST (QUOTE ID-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ID-MONOTONE-ON ID-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID-MONOTONE . ID-MONOTONE-ON) (DISABLED-LEMMAS NIL ID-MONOTONE ID-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE RAM-ENABLE-CIRCUIT-MONOTONE-ON RAM-ENABLE-CIRCUIT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-MONOTONE . RAM-ENABLE-CIRCUIT-MONOTONE-ON) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-T-BUF-VALUE-ON DUAL-EVAL-T-BUF-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-VALUE . DUAL-EVAL-T-BUF-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-T-BUF-STATE-ON DUAL-EVAL-T-BUF-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-STATE . DUAL-EVAL-T-BUF-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-STATE-ON))))) (PUT1-LST (QUOTE T-BUF-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE T-BUF-MONOTONE-ON T-BUF-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF-MONOTONE . T-BUF-MONOTONE-ON) (DISABLED-LEMMAS NIL T-BUF-MONOTONE T-BUF-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-T-WIRE-VALUE-ON DUAL-EVAL-T-WIRE-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-VALUE . DUAL-EVAL-T-WIRE-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-T-WIRE-STATE-ON DUAL-EVAL-T-WIRE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-STATE . DUAL-EVAL-T-WIRE-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-STATE-ON))))) (PUT1-LST (QUOTE T-WIRE-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE T-WIRE-MONOTONE-ON T-WIRE-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-MONOTONE . T-WIRE-MONOTONE-ON) (DISABLED-LEMMAS NIL T-WIRE-MONOTONE T-WIRE-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-PULLUP-VALUE-ON DUAL-EVAL-PULLUP-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-VALUE . DUAL-EVAL-PULLUP-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-PULLUP-STATE-ON DUAL-EVAL-PULLUP-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-STATE . DUAL-EVAL-PULLUP-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-STATE-ON))))) (PUT1-LST (QUOTE PULLUP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PULLUP-MONOTONE-ON PULLUP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP-MONOTONE . PULLUP-MONOTONE-ON) (DISABLED-LEMMAS NIL PULLUP-MONOTONE PULLUP-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-BIDIRECT-VALUE-ON DUAL-EVAL-TTL-BIDIRECT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-VALUE . DUAL-EVAL-TTL-BIDIRECT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-BIDIRECT-STATE-ON DUAL-EVAL-TTL-BIDIRECT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-STATE . DUAL-EVAL-TTL-BIDIRECT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE-ON))))) (PUT1-LST (QUOTE TTL-BIDIRECT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-BIDIRECT-MONOTONE-ON TTL-BIDIRECT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-MONOTONE . TTL-BIDIRECT-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-BIDIRECT-MONOTONE TTL-BIDIRECT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON DUAL-EVAL-TTL-CLK-INPUT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-VALUE . DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-CLK-INPUT-STATE-ON DUAL-EVAL-TTL-CLK-INPUT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-STATE . DUAL-EVAL-TTL-CLK-INPUT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE-ON))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-CLK-INPUT-MONOTONE-ON TTL-CLK-INPUT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-MONOTONE . TTL-CLK-INPUT-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-CLK-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-INPUT-VALUE-ON DUAL-EVAL-TTL-INPUT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-VALUE . DUAL-EVAL-TTL-INPUT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-INPUT-STATE-ON DUAL-EVAL-TTL-INPUT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-STATE . DUAL-EVAL-TTL-INPUT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-STATE-ON))))) (PUT1-LST (QUOTE TTL-INPUT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-INPUT-MONOTONE-ON TTL-INPUT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-MONOTONE . TTL-INPUT-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-INPUT-MONOTONE TTL-INPUT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-VALUE-ON DUAL-EVAL-TTL-OUTPUT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-VALUE . DUAL-EVAL-TTL-OUTPUT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-STATE-ON DUAL-EVAL-TTL-OUTPUT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-STATE . DUAL-EVAL-TTL-OUTPUT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-STATE-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-MONOTONE-ON TTL-OUTPUT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-MONOTONE . TTL-OUTPUT-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-MONOTONE TTL-OUTPUT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC-MONOTONE-ON TTL-OUTPUT-PARAMETRIC-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-MONOTONE . TTL-OUTPUT-PARAMETRIC-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-OUTPUT-FAST-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-VALUE . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON DUAL-EVAL-TTL-OUTPUT-FAST-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-STATE . DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-FAST-MONOTONE-ON TTL-OUTPUT-FAST-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-MONOTONE . TTL-OUTPUT-FAST-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-FAST-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON DUAL-EVAL-TTL-TRI-OUTPUT-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-TRI-OUTPUT-MONOTONE-ON TTL-TRI-OUTPUT-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-MONOTONE . TTL-TRI-OUTPUT-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-MONOTONE TTL-TRI-OUTPUT-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST-MONOTONE-ON TTL-TRI-OUTPUT-FAST-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-MONOTONE . TTL-TRI-OUTPUT-FAST-MONOTONE-ON) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VDD-VALUE-ON DUAL-EVAL-VDD-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-VALUE . DUAL-EVAL-VDD-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VDD-STATE-ON DUAL-EVAL-VDD-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-STATE . DUAL-EVAL-VDD-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-STATE-ON))))) (PUT1-LST (QUOTE VDD-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VDD-MONOTONE-ON VDD-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-MONOTONE . VDD-MONOTONE-ON) (DISABLED-LEMMAS NIL VDD-MONOTONE VDD-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON DUAL-EVAL-VDD-PARAMETRIC-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-VALUE . DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VDD-PARAMETRIC-STATE-ON DUAL-EVAL-VDD-PARAMETRIC-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-STATE . DUAL-EVAL-VDD-PARAMETRIC-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE-ON))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VDD-PARAMETRIC-MONOTONE-ON VDD-PARAMETRIC-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-MONOTONE . VDD-PARAMETRIC-MONOTONE-ON) (DISABLED-LEMMAS NIL VDD-PARAMETRIC-MONOTONE VDD-PARAMETRIC-MONOTONE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VSS-VALUE-ON DUAL-EVAL-VSS-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-VALUE . DUAL-EVAL-VSS-VALUE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-STATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-VSS-STATE-ON DUAL-EVAL-VSS-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-STATE . DUAL-EVAL-VSS-STATE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-STATE-ON))))) (PUT1-LST (QUOTE VSS-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VSS-MONOTONE-ON VSS-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS-MONOTONE . VSS-MONOTONE-ON) (DISABLED-LEMMAS NIL VSS-MONOTONE VSS-MONOTONE-ON))))) (PUT1-LST (QUOTE BVP-REV1-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE BVP-REV1-ON BVP-REV1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REV1 . BVP-REV1-ON) (DISABLED-LEMMAS NIL BVP-REV1 BVP-REV1-ON))))) (PUT1-LST (QUOTE G*1*READ-MEM1-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*READ-MEM1-MONOTONE-INDUCTION-ON *1*READ-MEM1-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE-INDUCTION . G*1*READ-MEM1-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*READ-MEM1-MONOTONE-INDUCTION G*1*READ-MEM1-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE READ-MEM1-MONOTONE-INDUCTION-ON READ-MEM1-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE-INDUCTION . READ-MEM1-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL READ-MEM1-MONOTONE-INDUCTION READ-MEM1-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE V-APPROX-X-X-ON1) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-X-X-ON1 V-APPROX-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-X-X-ON1) (DISABLED-LEMMAS NIL V-APPROX-X-X V-APPROX-X-X-ON1))))) (PUT1-LST (QUOTE G*1*DUAL-PORT-RAM-VALUE-BODY-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DUAL-PORT-RAM-VALUE-BODY-ON *1*DUAL-PORT-RAM-VALUE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-BODY . G*1*DUAL-PORT-RAM-VALUE-BODY-ON) (DISABLED-LEMMAS NIL *1*DUAL-PORT-RAM-VALUE-BODY G*1*DUAL-PORT-RAM-VALUE-BODY-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-BODY-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-BODY-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY-ON))))) (PUT1-LST (QUOTE G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON *1*WRITE-MEM1-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE-INDUCTION . G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*WRITE-MEM1-MONOTONE-INDUCTION G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE WRITE-MEM1-MONOTONE-INDUCTION-ON WRITE-MEM1-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE-INDUCTION . WRITE-MEM1-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON *1*WRITE-MEM1-DOUBLE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*WRITE-MEM1-DOUBLE-INDUCTION G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON))))) (PUT1-LST (QUOTE WRITE-MEM1-DOUBLE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE WRITE-MEM1-DOUBLE-INDUCTION-ON WRITE-MEM1-DOUBLE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . WRITE-MEM1-DOUBLE-INDUCTION-ON) (DISABLED-LEMMAS NIL WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-DOUBLE-INDUCTION-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-PORT-RAM-STATE-MONOTONE-ON DUAL-PORT-RAM-STATE-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE . DUAL-PORT-RAM-STATE-MONOTONE-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-STATE-MONOTONE-ON))))) (PUT1-LST (QUOTE G*1*DUAL-PORT-RAM-STATE-BODY-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DUAL-PORT-RAM-STATE-BODY-ON *1*DUAL-PORT-RAM-STATE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-BODY . G*1*DUAL-PORT-RAM-STATE-BODY-ON) (DISABLED-LEMMAS NIL *1*DUAL-PORT-RAM-STATE-BODY G*1*DUAL-PORT-RAM-STATE-BODY-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-BODY-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-BODY-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY-ON))))) (PUT1-LST (QUOTE G*1*OK-NETLISTP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*OK-NETLISTP-ON *1*OK-NETLISTP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP . G*1*OK-NETLISTP-ON) (DISABLED-LEMMAS NIL *1*OK-NETLISTP G*1*OK-NETLISTP-ON))))) (PUT1-LST (QUOTE OK-NETLISTP-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE OK-NETLISTP-ON OK-NETLISTP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP . OK-NETLISTP-ON) (DISABLED-LEMMAS NIL OK-NETLISTP OK-NETLISTP-ON))))) (PUT1-LST (QUOTE PRIMP-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PRIMP-MONOTONE-ON PRIMP-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-MONOTONE . PRIMP-MONOTONE-ON) (DISABLED-LEMMAS NIL PRIMP-MONOTONE PRIMP-MONOTONE-ON))))) (PUT1-LST (QUOTE G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON *1*DUAL-EVAL-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DUAL-EVAL-MONOTONE-INDUCTION G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-MONOTONE-INDUCTION-ON DUAL-EVAL-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . DUAL-EVAL-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON) (DISABLED-LEMMAS NIL V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON))))) (PUT1-LST (QUOTE ALISTP-PAIRLIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ALISTP-PAIRLIST-ON ALISTP-PAIRLIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-PAIRLIST . ALISTP-PAIRLIST-ON) (DISABLED-LEMMAS NIL ALISTP-PAIRLIST ALISTP-PAIRLIST-ON))))) (PUT1-LST (QUOTE ALISTP-APPEND-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ALISTP-APPEND-ON ALISTP-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-APPEND . ALISTP-APPEND-ON) (DISABLED-LEMMAS NIL ALISTP-APPEND ALISTP-APPEND-ON))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-1-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ALISTP-DUAL-EVAL-1-ON ALISTP-DUAL-EVAL-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-1 . ALISTP-DUAL-EVAL-1-ON) (DISABLED-LEMMAS NIL ALISTP-DUAL-EVAL-1 ALISTP-DUAL-EVAL-1-ON))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON) (DISABLED-LEMMAS NIL V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON))))) (PUT1-LST (QUOTE G*1*S-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*S-APPROX-LIST-ON *1*S-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . G*1*S-APPROX-LIST-ON) (DISABLED-LEMMAS NIL *1*S-APPROX-LIST G*1*S-APPROX-LIST-ON))))) (PUT1-LST (QUOTE S-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-LIST-ON S-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . S-APPROX-LIST-ON) (DISABLED-LEMMAS NIL S-APPROX-LIST S-APPROX-LIST-ON))))) (PUT1-LST (QUOTE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON S-APPROX-LIST-IMPLIES-S-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST-IMPLIES-S-APPROX-ALIST . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-V-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-IMPLIES-V-APPROX-ALIST-ON V-APPROX-IMPLIES-V-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-V-APPROX-ALIST . V-APPROX-IMPLIES-V-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-IMPLIES-V-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE ALISTP-OPENER-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ALISTP-OPENER-ON ALISTP-OPENER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-OPENER . ALISTP-OPENER-ON) (DISABLED-LEMMAS NIL ALISTP-OPENER ALISTP-OPENER-ON))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON))))) (PUT1-LST (QUOTE V-APPROX-ALIST-APPEND-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-ALIST-APPEND-ON V-APPROX-ALIST-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-APPEND . V-APPROX-ALIST-APPEND-ON) (DISABLED-LEMMAS NIL V-APPROX-ALIST-APPEND V-APPROX-ALIST-APPEND-ON))))) (PUT1-LST (QUOTE G*1*DOUBLE-CDR-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DOUBLE-CDR-INDUCTION-ON *1*DOUBLE-CDR-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-CDR-INDUCTION . G*1*DOUBLE-CDR-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DOUBLE-CDR-INDUCTION G*1*DOUBLE-CDR-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLE-CDR-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DOUBLE-CDR-INDUCTION-ON DOUBLE-CDR-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-CDR-INDUCTION . DOUBLE-CDR-INDUCTION-ON) (DISABLED-LEMMAS NIL DOUBLE-CDR-INDUCTION DOUBLE-CDR-INDUCTION-ON))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-3-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ALISTP-DUAL-EVAL-3-ON ALISTP-DUAL-EVAL-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-3 . ALISTP-DUAL-EVAL-3-ON) (DISABLED-LEMMAS NIL ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-3-ON))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-S-APPROX-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-IMPLIES-S-APPROX-ALIST-ON S-APPROX-IMPLIES-S-APPROX-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-S-APPROX-ALIST . S-APPROX-IMPLIES-S-APPROX-ALIST-ON) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-IMPLIES-S-APPROX-ALIST-ON))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE OK-NETLISTP-REDUCTION-ON OK-NETLISTP-REDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION . OK-NETLISTP-REDUCTION-ON) (DISABLED-LEMMAS NIL OK-NETLISTP-REDUCTION OK-NETLISTP-REDUCTION-ON))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION-REWRITE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE OK-NETLISTP-REDUCTION-REWRITE-ON OK-NETLISTP-REDUCTION-REWRITE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . OK-NETLISTP-REDUCTION-REWRITE-ON) (DISABLED-LEMMAS NIL OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION-REWRITE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-NO-RAM-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-MONOTONE-NO-RAM-ON DUAL-EVAL-MONOTONE-NO-RAM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-NO-RAM . DUAL-EVAL-MONOTONE-NO-RAM-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE-NO-RAM DUAL-EVAL-MONOTONE-NO-RAM-ON))))) (PUT1-LST (QUOTE G*1*GOOD-S-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*GOOD-S-ALIST-ON *1*GOOD-S-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . G*1*GOOD-S-ALIST-ON) (DISABLED-LEMMAS NIL *1*GOOD-S-ALIST G*1*GOOD-S-ALIST-ON))))) (PUT1-LST (QUOTE GOOD-S-ALIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-ALIST-ON GOOD-S-ALIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-ALIST-ON) (DISABLED-LEMMAS NIL GOOD-S-ALIST GOOD-S-ALIST-ON))))) (PUT1-LST (QUOTE GOOD-S-ALIST-PAIRLIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-ALIST-PAIRLIST-ON GOOD-S-ALIST-PAIRLIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST-PAIRLIST . GOOD-S-ALIST-PAIRLIST-ON) (DISABLED-LEMMAS NIL GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST-PAIRLIST-ON))))) (PUT1-LST (QUOTE GOOD-S-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-VALUE-ON GOOD-S-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-VALUE . GOOD-S-VALUE-ON) (DISABLED-LEMMAS NIL GOOD-S-VALUE GOOD-S-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DUAL-EVAL-MONOTONE-ON DUAL-EVAL-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE . DUAL-EVAL-MONOTONE-ON) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-ON))))) (PUT1-LST (QUOTE GOOD-S-COLLECT-VALUE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-COLLECT-VALUE-ON GOOD-S-COLLECT-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-COLLECT-VALUE . GOOD-S-COLLECT-VALUE-ON) (DISABLED-LEMMAS NIL GOOD-S-COLLECT-VALUE GOOD-S-COLLECT-VALUE-ON))))) (PUT1-LST (QUOTE F-BUF-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-BUF-PRESERVES-GOOD-S-ON F-BUF-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-PRESERVES-GOOD-S . F-BUF-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL F-BUF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE F-IF-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE F-IF-PRESERVES-GOOD-S-ON F-IF-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-PRESERVES-GOOD-S . F-IF-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL F-IF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE GOOD-S-0-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-0-ON GOOD-S-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-0 . GOOD-S-0-ON) (DISABLED-LEMMAS NIL GOOD-S-0 GOOD-S-0-ON))))) (PUT1-LST (QUOTE AO2-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO2-PRESERVES-GOOD-S-ON AO2-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-PRESERVES-GOOD-S . AO2-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL AO2-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE AO4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO4-PRESERVES-GOOD-S-ON AO4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4-PRESERVES-GOOD-S . AO4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL AO4-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE AO6-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO6-PRESERVES-GOOD-S-ON AO6-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6-PRESERVES-GOOD-S . AO6-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL AO6-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE AO7-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE AO7-PRESERVES-GOOD-S-ON AO7-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7-PRESERVES-GOOD-S . AO7-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL AO7-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-AND-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND-PRESERVES-GOOD-S-ON B-AND-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-PRESERVES-GOOD-S . B-AND-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-AND-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-AND3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND3-PRESERVES-GOOD-S-ON B-AND3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3-PRESERVES-GOOD-S . B-AND3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-AND3-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-AND4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-AND4-PRESERVES-GOOD-S-ON B-AND4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4-PRESERVES-GOOD-S . B-AND4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-AND4-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-EQUV-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-EQUV-PRESERVES-GOOD-S-ON B-EQUV-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV-PRESERVES-GOOD-S . B-EQUV-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-EQUV-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-EQUV3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-EQUV3-PRESERVES-GOOD-S-ON B-EQUV3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3-PRESERVES-GOOD-S . B-EQUV3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-EQUV3-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-IF-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-IF-PRESERVES-GOOD-S-ON B-IF-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF-PRESERVES-GOOD-S . B-IF-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-IF-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND-PRESERVES-GOOD-S-ON B-NAND-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND-PRESERVES-GOOD-S . B-NAND-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND3-PRESERVES-GOOD-S-ON B-NAND3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3-PRESERVES-GOOD-S . B-NAND3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND3-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND4-PRESERVES-GOOD-S-ON B-NAND4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4-PRESERVES-GOOD-S . B-NAND4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND4-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND5-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND5-PRESERVES-GOOD-S-ON B-NAND5-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5-PRESERVES-GOOD-S . B-NAND5-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND5-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND6-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND6-PRESERVES-GOOD-S-ON B-NAND6-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6-PRESERVES-GOOD-S . B-NAND6-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND6-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NAND8-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NAND8-PRESERVES-GOOD-S-ON B-NAND8-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8-PRESERVES-GOOD-S . B-NAND8-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NAND8-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NBUF-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NBUF-PRESERVES-GOOD-S-ON B-NBUF-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF-PRESERVES-GOOD-S . B-NBUF-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NBUF-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR-PRESERVES-GOOD-S-ON B-NOR-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR-PRESERVES-GOOD-S . B-NOR-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR3-PRESERVES-GOOD-S-ON B-NOR3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3-PRESERVES-GOOD-S . B-NOR3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR3-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR4-PRESERVES-GOOD-S-ON B-NOR4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4-PRESERVES-GOOD-S . B-NOR4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR4-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR5-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR5-PRESERVES-GOOD-S-ON B-NOR5-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5-PRESERVES-GOOD-S . B-NOR5-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR5-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR6-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR6-PRESERVES-GOOD-S-ON B-NOR6-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6-PRESERVES-GOOD-S . B-NOR6-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR6-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOR8-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOR8-PRESERVES-GOOD-S-ON B-NOR8-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8-PRESERVES-GOOD-S . B-NOR8-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOR8-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-PRESERVES-GOOD-S-ON B-NOT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-PRESERVES-GOOD-S . B-NOT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOT-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOT-B4IP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-B4IP-PRESERVES-GOOD-S-ON B-NOT-B4IP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-PRESERVES-GOOD-S . B-NOT-B4IP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-NOT-IVAP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-NOT-IVAP-PRESERVES-GOOD-S-ON B-NOT-IVAP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-PRESERVES-GOOD-S . B-NOT-IVAP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-OR-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR-PRESERVES-GOOD-S-ON B-OR-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR-PRESERVES-GOOD-S . B-OR-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-OR-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-OR3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR3-PRESERVES-GOOD-S-ON B-OR3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3-PRESERVES-GOOD-S . B-OR3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-OR3-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-OR4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-OR4-PRESERVES-GOOD-S-ON B-OR4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4-PRESERVES-GOOD-S . B-OR4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-OR4-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-XOR-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-XOR-PRESERVES-GOOD-S-ON B-XOR-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR-PRESERVES-GOOD-S . B-XOR-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-XOR-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE B-XOR3-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE B-XOR3-PRESERVES-GOOD-S-ON B-XOR3-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3-PRESERVES-GOOD-S . B-XOR3-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL B-XOR3-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE DEL2-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL2-PRESERVES-GOOD-S-ON DEL2-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2-PRESERVES-GOOD-S . DEL2-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL DEL2-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE DEL4-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL4-PRESERVES-GOOD-S-ON DEL4-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4-PRESERVES-GOOD-S . DEL4-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL DEL4-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE DEL10-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DEL10-PRESERVES-GOOD-S-ON DEL10-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10-PRESERVES-GOOD-S . DEL10-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL DEL10-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE PROCMON-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PROCMON-PRESERVES-GOOD-S-ON PROCMON-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON-PRESERVES-GOOD-S . PROCMON-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL PROCMON-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE FD1-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1-PRESERVES-GOOD-S-ON FD1-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1-PRESERVES-GOOD-S . FD1-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL FD1-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE FD1S-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1S-PRESERVES-GOOD-S-ON FD1S-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S-PRESERVES-GOOD-S . FD1S-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL FD1S-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE FD1SP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1SP-PRESERVES-GOOD-S-ON FD1SP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP-PRESERVES-GOOD-S . FD1SP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL FD1SP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE FD1SLP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE FD1SLP-PRESERVES-GOOD-S-ON FD1SLP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP-PRESERVES-GOOD-S . FD1SLP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL FD1SLP-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE ID-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE ID-PRESERVES-GOOD-S-ON ID-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID-PRESERVES-GOOD-S . ID-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL ID-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE T-BUF-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE T-BUF-PRESERVES-GOOD-S-ON T-BUF-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF-PRESERVES-GOOD-S . T-BUF-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL T-BUF-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE T-WIRE-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE T-WIRE-PRESERVES-GOOD-S-ON T-WIRE-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-PRESERVES-GOOD-S . T-WIRE-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL T-WIRE-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE PULLUP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PULLUP-PRESERVES-GOOD-S-ON PULLUP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP-PRESERVES-GOOD-S . PULLUP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL PULLUP-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-BIDIRECT-PRESERVES-GOOD-S-ON TTL-BIDIRECT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PRESERVES-GOOD-S . TTL-BIDIRECT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-CLK-INPUT-PRESERVES-GOOD-S-ON TTL-CLK-INPUT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-PRESERVES-GOOD-S . TTL-CLK-INPUT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-INPUT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-INPUT-PRESERVES-GOOD-S-ON TTL-INPUT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PRESERVES-GOOD-S . TTL-INPUT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-INPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PRESERVES-GOOD-S . TTL-OUTPUT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-OUTPUT-FAST-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-PRESERVES-GOOD-S . TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PRESERVES-GOOD-S . TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE VDD-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VDD-PRESERVES-GOOD-S-ON VDD-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PRESERVES-GOOD-S . VDD-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL VDD-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VDD-PARAMETRIC-PRESERVES-GOOD-S-ON VDD-PARAMETRIC-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-PRESERVES-GOOD-S . VDD-PARAMETRIC-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE VSS-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE VSS-PRESERVES-GOOD-S-ON VSS-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS-PRESERVES-GOOD-S . VSS-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL VSS-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE GOOD-S-CONSTANT-RAM-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-CONSTANT-RAM-ON GOOD-S-CONSTANT-RAM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-CONSTANT-RAM . GOOD-S-CONSTANT-RAM-ON) (DISABLED-LEMMAS NIL GOOD-S-CONSTANT-RAM GOOD-S-CONSTANT-RAM-ON))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM-1-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-WRITE-MEM-1-ON GOOD-S-WRITE-MEM-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM-1 . GOOD-S-WRITE-MEM-1-ON) (DISABLED-LEMMAS NIL GOOD-S-WRITE-MEM-1 GOOD-S-WRITE-MEM-1-ON))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-WRITE-MEM-ON GOOD-S-WRITE-MEM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM . GOOD-S-WRITE-MEM-ON) (DISABLED-LEMMAS NIL GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-ON))))) (PUT1-LST (QUOTE DP-RAM-16X32-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DP-RAM-16X32-PRESERVES-GOOD-S-ON DP-RAM-16X32-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-PRESERVES-GOOD-S . DP-RAM-16X32-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL DP-RAM-16X32-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE PRIMP-PRESERVES-GOOD-S-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE PRIMP-PRESERVES-GOOD-S-ON PRIMP-PRESERVES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S-ON) (DISABLED-LEMMAS NIL PRIMP-PRESERVES-GOOD-S PRIMP-PRESERVES-GOOD-S-ON))))) (PUT1-LST (QUOTE GOOD-S-PRESERVED-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE GOOD-S-PRESERVED-ON GOOD-S-PRESERVED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-PRESERVED . GOOD-S-PRESERVED-ON) (DISABLED-LEMMAS NIL GOOD-S-PRESERVED GOOD-S-PRESERVED-ON))))) (PUT1-LST (QUOTE G*1*V-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*V-APPROX-LIST-ON *1*V-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . G*1*V-APPROX-LIST-ON) (DISABLED-LEMMAS NIL *1*V-APPROX-LIST G*1*V-APPROX-LIST-ON))))) (PUT1-LST (QUOTE V-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-LIST-ON V-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . V-APPROX-LIST-ON) (DISABLED-LEMMAS NIL V-APPROX-LIST V-APPROX-LIST-ON))))) (PUT1-LST (QUOTE G*1*V-S-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*V-S-APPROX-LIST-ON *1*V-S-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . G*1*V-S-APPROX-LIST-ON) (DISABLED-LEMMAS NIL *1*V-S-APPROX-LIST G*1*V-S-APPROX-LIST-ON))))) (PUT1-LST (QUOTE V-S-APPROX-LIST-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-S-APPROX-LIST-ON V-S-APPROX-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . V-S-APPROX-LIST-ON) (DISABLED-LEMMAS NIL V-S-APPROX-LIST V-S-APPROX-LIST-ON))))) (PUT1-LST (QUOTE G*1*NAT-LST-LST-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*NAT-LST-LST-INDUCTION-ON *1*NAT-LST-LST-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . G*1*NAT-LST-LST-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*NAT-LST-LST-INDUCTION G*1*NAT-LST-LST-INDUCTION-ON))))) (PUT1-LST (QUOTE NAT-LST-LST-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE NAT-LST-LST-INDUCTION-ON NAT-LST-LST-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . NAT-LST-LST-INDUCTION-ON) (DISABLED-LEMMAS NIL NAT-LST-LST-INDUCTION NAT-LST-LST-INDUCTION-ON))))) (PUT1-LST (QUOTE V-APPROX-CAR-NTH-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-CAR-NTH-ON V-APPROX-CAR-NTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-CAR-NTH . V-APPROX-CAR-NTH-ON) (DISABLED-LEMMAS NIL V-APPROX-CAR-NTH V-APPROX-CAR-NTH-ON))))) (PUT1-LST (QUOTE S-APPROX-CADR-NTH-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE S-APPROX-CADR-NTH-ON S-APPROX-CADR-NTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CADR-NTH . S-APPROX-CADR-NTH-ON) (DISABLED-LEMMAS NIL S-APPROX-CADR-NTH S-APPROX-CADR-NTH-ON))))) (PUT1-LST (QUOTE G*1*SIMULATE-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*SIMULATE-MONOTONE-INDUCTION-ON *1*SIMULATE-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE-INDUCTION . G*1*SIMULATE-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*SIMULATE-MONOTONE-INDUCTION G*1*SIMULATE-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE SIMULATE-MONOTONE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE-INDUCTION . SIMULATE-MONOTONE-INDUCTION-ON) (DISABLED-LEMMAS NIL SIMULATE-MONOTONE-INDUCTION SIMULATE-MONOTONE-INDUCTION-ON))))) (PUT1-LST (QUOTE SIMULATE-MONOTONE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE SIMULATE-MONOTONE-ON SIMULATE-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE . SIMULATE-MONOTONE-ON) (DISABLED-LEMMAS NIL SIMULATE-MONOTONE SIMULATE-MONOTONE-ON))))) (PUT1-LST (QUOTE V-APPROX-LIST-X-X-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE V-APPROX-LIST-X-X-ON V-APPROX-LIST-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST-X-X . V-APPROX-LIST-X-X-ON) (DISABLED-LEMMAS NIL V-APPROX-LIST-X-X V-APPROX-LIST-X-X-ON))))) (PUT1-LST (QUOTE G*1*DOUBLET-P-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DOUBLET-P-ON *1*DOUBLET-P NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P . G*1*DOUBLET-P-ON) (DISABLED-LEMMAS NIL *1*DOUBLET-P G*1*DOUBLET-P-ON))))) (PUT1-LST (QUOTE G*1*DOUBLET-N-SIMULATE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*DOUBLET-N-SIMULATE-INDUCTION-ON *1*DOUBLET-N-SIMULATE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE-INDUCTION . G*1*DOUBLET-N-SIMULATE-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DOUBLET-N-SIMULATE-INDUCTION G*1*DOUBLET-N-SIMULATE-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE-INDUCTION-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE-INDUCTION . DOUBLET-N-SIMULATE-INDUCTION-ON) (DISABLED-LEMMAS NIL DOUBLET-N-SIMULATE-INDUCTION DOUBLET-N-SIMULATE-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DOUBLET-N-SIMULATE-ON DOUBLET-N-SIMULATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE . DOUBLET-N-SIMULATE-ON) (DISABLED-LEMMAS NIL DOUBLET-N-SIMULATE DOUBLET-N-SIMULATE-ON))))) (PUT1-LST (QUOTE DOUBLET-P-EQUAL-APPROX-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE DOUBLET-P-EQUAL-APPROX-ON DOUBLET-P-EQUAL-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P-EQUAL-APPROX . DOUBLET-P-EQUAL-APPROX-ON) (DISABLED-LEMMAS NIL DOUBLET-P-EQUAL-APPROX DOUBLET-P-EQUAL-APPROX-ON))))) (PUT1-LST (QUOTE LENGTH-SIMULATE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE LENGTH-SIMULATE-ON LENGTH-SIMULATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-SIMULATE . LENGTH-SIMULATE-ON) (DISABLED-LEMMAS NIL LENGTH-SIMULATE LENGTH-SIMULATE-ON))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-LEMMA-ON XS-SUFFICE-FOR-RESET-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA . XS-SUFFICE-FOR-RESET-LEMMA-ON) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-ON))))) (PUT1-LST (QUOTE G*1*COMPILE-UNCOMPILED-DEFNS-ON) (QUOTE (IDATE 1000402195017 EVENT (TOGGLE G*1*COMPILE-UNCOMPILED-DEFNS-ON *1*COMPILE-UNCOMPILED-DEFNS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . G*1*COMPILE-UNCOMPILED-DEFNS-ON) (DISABLED-LEMMAS NIL *1*COMPILE-UNCOMPILED-DEFNS G*1*COMPILE-UNCOMPILED-DEFNS-ON))))) (PUT1-LST (QUOTE COMPILE-UNCOMPILED-DEFNS-ON2) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE COMPILE-UNCOMPILED-DEFNS-ON2 COMPILE-UNCOMPILED-DEFNS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . COMPILE-UNCOMPILED-DEFNS-ON2) (DISABLED-LEMMAS NIL COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON2))))) (PUT1-LST (QUOTE G*1*UNKNOWN-REGFILE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*UNKNOWN-REGFILE-ON *1*UNKNOWN-REGFILE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . G*1*UNKNOWN-REGFILE-ON) (DISABLED-LEMMAS NIL *1*UNKNOWN-REGFILE G*1*UNKNOWN-REGFILE-ON))))) (PUT1-LST (QUOTE UNKNOWN-REGFILE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE UNKNOWN-REGFILE-ON UNKNOWN-REGFILE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . UNKNOWN-REGFILE-ON) (DISABLED-LEMMAS NIL UNKNOWN-REGFILE UNKNOWN-REGFILE-ON))))) (PUT1-LST (QUOTE G*1*UNKNOWN-MACHINE-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*UNKNOWN-MACHINE-STATE-ON *1*UNKNOWN-MACHINE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . G*1*UNKNOWN-MACHINE-STATE-ON) (DISABLED-LEMMAS NIL *1*UNKNOWN-MACHINE-STATE G*1*UNKNOWN-MACHINE-STATE-ON))))) (PUT1-LST (QUOTE UNKNOWN-MACHINE-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE UNKNOWN-MACHINE-STATE-ON UNKNOWN-MACHINE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . UNKNOWN-MACHINE-STATE-ON) (DISABLED-LEMMAS NIL UNKNOWN-MACHINE-STATE UNKNOWN-MACHINE-STATE-ON))))) (PUT1-LST (QUOTE G*1*UNKNOWN-MEMORY-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*UNKNOWN-MEMORY-STATE-ON *1*UNKNOWN-MEMORY-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . G*1*UNKNOWN-MEMORY-STATE-ON) (DISABLED-LEMMAS NIL *1*UNKNOWN-MEMORY-STATE G*1*UNKNOWN-MEMORY-STATE-ON))))) (PUT1-LST (QUOTE UNKNOWN-MEMORY-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE UNKNOWN-MEMORY-STATE-ON UNKNOWN-MEMORY-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . UNKNOWN-MEMORY-STATE-ON) (DISABLED-LEMMAS NIL UNKNOWN-MEMORY-STATE UNKNOWN-MEMORY-STATE-ON))))) (PUT1-LST (QUOTE G*1*UNKNOWN-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*UNKNOWN-STATE-ON *1*UNKNOWN-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . G*1*UNKNOWN-STATE-ON) (DISABLED-LEMMAS NIL *1*UNKNOWN-STATE G*1*UNKNOWN-STATE-ON))))) (PUT1-LST (QUOTE UNKNOWN-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE UNKNOWN-STATE-ON UNKNOWN-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . UNKNOWN-STATE-ON) (DISABLED-LEMMAS NIL UNKNOWN-STATE UNKNOWN-STATE-ON))))) (PUT1-LST (QUOTE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON) (DISABLED-LEMMAS NIL CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON))))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON FM9001-STATE-STRUCTURE-UNKNOWN-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE-UNKNOWN-STATE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON) (DISABLED-LEMMAS NIL FM9001-STATE-STRUCTURE-UNKNOWN-STATE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON))))) (PUT1-LST (QUOTE G*1*RESET-VECTOR-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RESET-VECTOR-ON *1*RESET-VECTOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR . G*1*RESET-VECTOR-ON) (DISABLED-LEMMAS NIL *1*RESET-VECTOR G*1*RESET-VECTOR-ON))))) (PUT1-LST (QUOTE RESET-VECTOR-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-VECTOR-ON RESET-VECTOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR . RESET-VECTOR-ON) (DISABLED-LEMMAS NIL RESET-VECTOR RESET-VECTOR-ON))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RUN-VECTOR-ON *1*RUN-VECTOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR . G*1*RUN-VECTOR-ON) (DISABLED-LEMMAS NIL *1*RUN-VECTOR G*1*RUN-VECTOR-ON))))) (PUT1-LST (QUOTE RUN-VECTOR-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RUN-VECTOR-ON RUN-VECTOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR . RUN-VECTOR-ON) (DISABLED-LEMMAS NIL RUN-VECTOR RUN-VECTOR-ON))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RESET-SEQUENCE-ON *1*RESET-SEQUENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . G*1*RESET-SEQUENCE-ON) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE G*1*RESET-SEQUENCE-ON))))) (PUT1-LST (QUOTE RESET-SEQUENCE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-SEQUENCE-ON RESET-SEQUENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . RESET-SEQUENCE-ON) (DISABLED-LEMMAS NIL RESET-SEQUENCE RESET-SEQUENCE-ON))))) (PUT1-LST (QUOTE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON) (DISABLED-LEMMAS NIL CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON))))) (PUT1-LST (QUOTE G*1*INITIALIZED-REGFILE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*INITIALIZED-REGFILE-ON *1*INITIALIZED-REGFILE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . G*1*INITIALIZED-REGFILE-ON) (DISABLED-LEMMAS NIL *1*INITIALIZED-REGFILE G*1*INITIALIZED-REGFILE-ON))))) (PUT1-LST (QUOTE INITIALIZED-REGFILE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INITIALIZED-REGFILE-ON INITIALIZED-REGFILE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . INITIALIZED-REGFILE-ON) (DISABLED-LEMMAS NIL INITIALIZED-REGFILE INITIALIZED-REGFILE-ON))))) (PUT1-LST (QUOTE G*1*INITIALIZED-MACHINE-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*INITIALIZED-MACHINE-STATE-ON *1*INITIALIZED-MACHINE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . G*1*INITIALIZED-MACHINE-STATE-ON) (DISABLED-LEMMAS NIL *1*INITIALIZED-MACHINE-STATE G*1*INITIALIZED-MACHINE-STATE-ON))))) (PUT1-LST (QUOTE INITIALIZED-MACHINE-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INITIALIZED-MACHINE-STATE-ON INITIALIZED-MACHINE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . INITIALIZED-MACHINE-STATE-ON) (DISABLED-LEMMAS NIL INITIALIZED-MACHINE-STATE INITIALIZED-MACHINE-STATE-ON))))) (PUT1-LST (QUOTE G*1*INITIALIZED-MEMORY-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*INITIALIZED-MEMORY-STATE-ON *1*INITIALIZED-MEMORY-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MEMORY-STATE . G*1*INITIALIZED-MEMORY-STATE-ON) (DISABLED-LEMMAS NIL *1*INITIALIZED-MEMORY-STATE G*1*INITIALIZED-MEMORY-STATE-ON))))) (PUT1-LST (QUOTE INITIALIZED-MEMORY-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INITIALIZED-MEMORY-STATE-ON INITIALIZED-MEMORY-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MEMORY-STATE . INITIALIZED-MEMORY-STATE-ON) (DISABLED-LEMMAS NIL INITIALIZED-MEMORY-STATE INITIALIZED-MEMORY-STATE-ON))))) (PUT1-LST (QUOTE G*1*FINAL-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*FINAL-STATE-ON *1*FINAL-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . G*1*FINAL-STATE-ON) (DISABLED-LEMMAS NIL *1*FINAL-STATE G*1*FINAL-STATE-ON))))) (PUT1-LST (QUOTE FINAL-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FINAL-STATE-ON FINAL-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . FINAL-STATE-ON) (DISABLED-LEMMAS NIL FINAL-STATE FINAL-STATE-ON))))) (PUT1-LST (QUOTE RESET-WORKS-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-WORKS-ON RESET-WORKS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-WORKS . RESET-WORKS-ON) (DISABLED-LEMMAS NIL RESET-WORKS RESET-WORKS-ON))))) (PUT1-LST (QUOTE UNKNOWN-STATE-OKP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE UNKNOWN-STATE-OKP-ON UNKNOWN-STATE-OKP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE-OKP . UNKNOWN-STATE-OKP-ON) (DISABLED-LEMMAS NIL UNKNOWN-STATE-OKP UNKNOWN-STATE-OKP-ON))))) (PUT1-LST (QUOTE FINAL-STATE-OKP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FINAL-STATE-OKP-ON FINAL-STATE-OKP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE-OKP . FINAL-STATE-OKP-ON) (DISABLED-LEMMAS NIL FINAL-STATE-OKP FINAL-STATE-OKP-ON))))) (PUT1-LST (QUOTE INSTANCE-THEOREM-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INSTANCE-THEOREM-ON INSTANCE-THEOREM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSTANCE-THEOREM . INSTANCE-THEOREM-ON) (DISABLED-LEMMAS NIL INSTANCE-THEOREM INSTANCE-THEOREM-ON))))) (PUT1-LST (QUOTE FM9001-STATEP-MAP-UP-FINAL-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001-STATEP-MAP-UP-FINAL-STATE-ON FM9001-STATEP-MAP-UP-FINAL-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATEP-MAP-UP-FINAL-STATE . FM9001-STATEP-MAP-UP-FINAL-STATE-ON) (DISABLED-LEMMAS NIL FM9001-STATEP-MAP-UP-FINAL-STATE FM9001-STATEP-MAP-UP-FINAL-STATE-ON))))) (PUT1-LST (QUOTE G*1*RESET-VECTOR-CHIP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RESET-VECTOR-CHIP-ON *1*RESET-VECTOR-CHIP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . G*1*RESET-VECTOR-CHIP-ON) (DISABLED-LEMMAS NIL *1*RESET-VECTOR-CHIP G*1*RESET-VECTOR-CHIP-ON))))) (PUT1-LST (QUOTE RESET-VECTOR-CHIP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-VECTOR-CHIP-ON RESET-VECTOR-CHIP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . RESET-VECTOR-CHIP-ON) (DISABLED-LEMMAS NIL RESET-VECTOR-CHIP RESET-VECTOR-CHIP-ON))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-CHIP-1-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RUN-VECTOR-CHIP-1-ON *1*RUN-VECTOR-CHIP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . G*1*RUN-VECTOR-CHIP-1-ON) (DISABLED-LEMMAS NIL *1*RUN-VECTOR-CHIP-1 G*1*RUN-VECTOR-CHIP-1-ON))))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-1-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RUN-VECTOR-CHIP-1-ON RUN-VECTOR-CHIP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . RUN-VECTOR-CHIP-1-ON) (DISABLED-LEMMAS NIL RUN-VECTOR-CHIP-1 RUN-VECTOR-CHIP-1-ON))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-CHIP-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RUN-VECTOR-CHIP-2-ON *1*RUN-VECTOR-CHIP-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-2 . G*1*RUN-VECTOR-CHIP-2-ON) (DISABLED-LEMMAS NIL *1*RUN-VECTOR-CHIP-2 G*1*RUN-VECTOR-CHIP-2-ON))))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RUN-VECTOR-CHIP-2-ON RUN-VECTOR-CHIP-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-2 . RUN-VECTOR-CHIP-2-ON) (DISABLED-LEMMAS NIL RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-2-ON))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-CHIP-1-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RESET-SEQUENCE-CHIP-1-ON *1*RESET-SEQUENCE-CHIP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . G*1*RESET-SEQUENCE-CHIP-1-ON) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE-CHIP-1 G*1*RESET-SEQUENCE-CHIP-1-ON))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-SEQUENCE-CHIP-1-ON RESET-SEQUENCE-CHIP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . RESET-SEQUENCE-CHIP-1-ON) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1-ON))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-CHIP-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*RESET-SEQUENCE-CHIP-2-ON *1*RESET-SEQUENCE-CHIP-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-2 . G*1*RESET-SEQUENCE-CHIP-2-ON) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE-CHIP-2 G*1*RESET-SEQUENCE-CHIP-2-ON))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-2 . RESET-SEQUENCE-CHIP-2-ON) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-2-ON))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1-VS-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-SEQUENCE-CHIP-1-VS-2-ON RESET-SEQUENCE-CHIP-1-VS-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1-VS-2 . RESET-SEQUENCE-CHIP-1-VS-2-ON) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-1-VS-2 RESET-SEQUENCE-CHIP-1-VS-2-ON))))) (PUT1-LST (QUOTE SIMULATE-RESET-CHIP-FINAL-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE SIMULATE-RESET-CHIP-FINAL-STATE-ON SIMULATE-RESET-CHIP-FINAL-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . SIMULATE-RESET-CHIP-FINAL-STATE-ON) (DISABLED-LEMMAS NIL SIMULATE-RESET-CHIP-FINAL-STATE SIMULATE-RESET-CHIP-FINAL-STATE-ON))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON))))) (PUT1-LST (QUOTE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON) (DISABLED-LEMMAS NIL FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON))))) (PUT1-LST (QUOTE G*1*V-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-FOURP-ON *1*V-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP . G*1*V-FOURP-ON) (DISABLED-LEMMAS NIL *1*V-FOURP G*1*V-FOURP-ON))))) (PUT1-LST (QUOTE V-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-FOURP-ON V-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP . V-FOURP-ON) (DISABLED-LEMMAS NIL V-FOURP V-FOURP-ON))))) (PUT1-LST (QUOTE G*1*ALL-XS-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*ALL-XS-ON *1*ALL-XS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS . G*1*ALL-XS-ON) (DISABLED-LEMMAS NIL *1*ALL-XS G*1*ALL-XS-ON))))) (PUT1-LST (QUOTE ALL-XS-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE ALL-XS-ON ALL-XS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS . ALL-XS-ON) (DISABLED-LEMMAS NIL ALL-XS ALL-XS-ON))))) (PUT1-LST (QUOTE ALL-XS-APPROXIMATES-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE ALL-XS-APPROXIMATES-ON ALL-XS-APPROXIMATES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS-APPROXIMATES . ALL-XS-APPROXIMATES-ON) (DISABLED-LEMMAS NIL ALL-XS-APPROXIMATES ALL-XS-APPROXIMATES-ON))))) (PUT1-LST (QUOTE ALL-XS-MAKE-LIST-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE ALL-XS-MAKE-LIST-ON ALL-XS-MAKE-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS-MAKE-LIST . ALL-XS-MAKE-LIST-ON) (DISABLED-LEMMAS NIL ALL-XS-MAKE-LIST ALL-XS-MAKE-LIST-ON))))) (PUT1-LST (QUOTE G*1*MEMORY-V-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*MEMORY-V-FOURP-ON *1*MEMORY-V-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . G*1*MEMORY-V-FOURP-ON) (DISABLED-LEMMAS NIL *1*MEMORY-V-FOURP G*1*MEMORY-V-FOURP-ON))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MEMORY-V-FOURP-ON MEMORY-V-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . MEMORY-V-FOURP-ON) (DISABLED-LEMMAS NIL MEMORY-V-FOURP MEMORY-V-FOURP-ON))))) (PUT1-LST (QUOTE G*1*NEW-MACHINE-STATE-INVARIANT-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*NEW-MACHINE-STATE-INVARIANT-ON *1*NEW-MACHINE-STATE-INVARIANT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . G*1*NEW-MACHINE-STATE-INVARIANT-ON) (DISABLED-LEMMAS NIL *1*NEW-MACHINE-STATE-INVARIANT G*1*NEW-MACHINE-STATE-INVARIANT-ON))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-ON) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-ON))))) (PUT1-LST (QUOTE S-APPROX-MAKE-LIST-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE S-APPROX-MAKE-LIST-ON S-APPROX-MAKE-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-MAKE-LIST . S-APPROX-MAKE-LIST-ON) (DISABLED-LEMMAS NIL S-APPROX-MAKE-LIST S-APPROX-MAKE-LIST-ON))))) (PUT1-LST (QUOTE V-FOURP-IMPLIES-PROPERP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-FOURP-IMPLIES-PROPERP-ON V-FOURP-IMPLIES-PROPERP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . V-FOURP-IMPLIES-PROPERP-ON) (DISABLED-LEMMAS NIL V-FOURP-IMPLIES-PROPERP V-FOURP-IMPLIES-PROPERP-ON))))) (PUT1-LST (QUOTE LISTP-IMPLIES-NOT-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LISTP-IMPLIES-NOT-FOURP-ON LISTP-IMPLIES-NOT-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-IMPLIES-NOT-FOURP . LISTP-IMPLIES-NOT-FOURP-ON) (DISABLED-LEMMAS NIL LISTP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP-ON))))) (PUT1-LST (QUOTE RAMP-IMPLIES-NOT-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RAMP-IMPLIES-NOT-FOURP-ON RAMP-IMPLIES-NOT-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAMP-IMPLIES-NOT-FOURP . RAMP-IMPLIES-NOT-FOURP-ON) (DISABLED-LEMMAS NIL RAMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP-ON))))) (PUT1-LST (QUOTE ROMP-IMPLIES-NOT-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE ROMP-IMPLIES-NOT-FOURP-ON ROMP-IMPLIES-NOT-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROMP-IMPLIES-NOT-FOURP . ROMP-IMPLIES-NOT-FOURP-ON) (DISABLED-LEMMAS NIL ROMP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP-ON))))) (PUT1-LST (QUOTE STUBP-IMPLIES-NOT-FOURP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE STUBP-IMPLIES-NOT-FOURP-ON STUBP-IMPLIES-NOT-FOURP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUBP-IMPLIES-NOT-FOURP . STUBP-IMPLIES-NOT-FOURP-ON) (DISABLED-LEMMAS NIL STUBP-IMPLIES-NOT-FOURP STUBP-IMPLIES-NOT-FOURP-ON))))) (PUT1-LST (QUOTE B-APPROX-X-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE B-APPROX-X-ON B-APPROX-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX-X . B-APPROX-X-ON) (DISABLED-LEMMAS NIL B-APPROX-X B-APPROX-X-ON))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON))))) (PUT1-LST (QUOTE GOOD-S-OPENER-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE GOOD-S-OPENER-ON GOOD-S-OPENER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-OPENER . GOOD-S-OPENER-ON) (DISABLED-LEMMAS NIL GOOD-S-OPENER GOOD-S-OPENER-ON))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-GOOD-S-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MEMORY-V-FOURP-IMPLIES-GOOD-S-ON MEMORY-V-FOURP-IMPLIES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-GOOD-S . MEMORY-V-FOURP-IMPLIES-GOOD-S-ON) (DISABLED-LEMMAS NIL MEMORY-V-FOURP-IMPLIES-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S-ON))))) (PUT1-LST (QUOTE V-FOURP-IS-GOOD-S-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-FOURP-IS-GOOD-S-ON V-FOURP-IS-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IS-GOOD-S . V-FOURP-IS-GOOD-S-ON) (DISABLED-LEMMAS NIL V-FOURP-IS-GOOD-S V-FOURP-IS-GOOD-S-ON))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL . NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON) (DISABLED-LEMMAS NIL MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON) (DISABLED-LEMMAS NIL FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON) (DISABLED-LEMMAS NIL FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON))))) (PUT1-LST (QUOTE CADR-MAP-UP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CADR-MAP-UP-ON CADR-MAP-UP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CADR-MAP-UP . CADR-MAP-UP-ON) (DISABLED-LEMMAS NIL CADR-MAP-UP CADR-MAP-UP-ON))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON) (DISABLED-LEMMAS NIL FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON))))) (PUT1-LST (QUOTE SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON) (DISABLED-LEMMAS NIL SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON))))) (PUT1-LST (QUOTE LENGTH-RESET-SEQUENCE-CHIP-1-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LENGTH-RESET-SEQUENCE-CHIP-1-ON LENGTH-RESET-SEQUENCE-CHIP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-RESET-SEQUENCE-CHIP-1 . LENGTH-RESET-SEQUENCE-CHIP-1-ON) (DISABLED-LEMMAS NIL LENGTH-RESET-SEQUENCE-CHIP-1 LENGTH-RESET-SEQUENCE-CHIP-1-ON))))) (PUT1-LST (QUOTE RESET-CHIP-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-CHIP-ON RESET-CHIP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-CHIP . RESET-CHIP-ON) (DISABLED-LEMMAS NIL RESET-CHIP RESET-CHIP-ON))))) (PUT1-LST (QUOTE RESET-CHIP-FROM-ANY-STATE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE RESET-CHIP-FROM-ANY-STATE-ON RESET-CHIP-FROM-ANY-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-CHIP-FROM-ANY-STATE . RESET-CHIP-FROM-ANY-STATE-ON) (DISABLED-LEMMAS NIL RESET-CHIP-FROM-ANY-STATE RESET-CHIP-FROM-ANY-STATE-ON))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON) (DISABLED-LEMMAS NIL CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-WELL-FORMED-ON CHIP-WELL-FORMED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED . CHIP-WELL-FORMED-ON) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED CHIP-WELL-FORMED-ON))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-SIMPLE-ON) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE CHIP-WELL-FORMED-SIMPLE-ON CHIP-WELL-FORMED-SIMPLE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED-SIMPLE . CHIP-WELL-FORMED-SIMPLE-ON) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-SIMPLE-ON))))) (PUT1-LST (QUOTE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1) (DISABLED-LEMMAS NIL FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 . T))))) (PUT1-LST (QUOTE MAP-DOWN-INVERTS-MAP-UP-OFF1) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE MAP-DOWN-INVERTS-MAP-UP-OFF1 MAP-DOWN-INVERTS-MAP-UP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-INVERTS-MAP-UP . MAP-DOWN-INVERTS-MAP-UP-OFF1) (DISABLED-LEMMAS NIL MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-OFF1 . T))))) (PUT1-LST (QUOTE G*1*B-TO-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*B-TO-NAT-OFF *1*B-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT . G*1*B-TO-NAT-OFF) (DISABLED-LEMMAS NIL *1*B-TO-NAT G*1*B-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE B-TO-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE B-TO-NAT-OFF B-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT . B-TO-NAT-OFF) (DISABLED-LEMMAS NIL B-TO-NAT B-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE BVP-CDR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE BVP-CDR-OFF BVP-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CDR . BVP-CDR-OFF) (DISABLED-LEMMAS NIL BVP-CDR BVP-CDR-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-INT-BUF-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-INT-BUF-OFF *1*V-ALU-NAT-INT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . G*1*V-ALU-NAT-INT-BUF-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-INT-BUF G*1*V-ALU-NAT-INT-BUF-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-INT-BUF-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-INT-BUF-OFF V-ALU-NAT-INT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . V-ALU-NAT-INT-BUF-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-INT-BUF V-ALU-NAT-INT-BUF-OFF . T))))) (PUT1-LST (QUOTE NTH-LENGTH-V-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NTH-LENGTH-V-OFF NTH-LENGTH-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH-LENGTH-V . NTH-LENGTH-V-OFF) (DISABLED-LEMMAS NIL NTH-LENGTH-V NTH-LENGTH-V-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-MULTIPLE-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE REMAINDER-PLUS-MULTIPLE-OFF REMAINDER-PLUS-MULTIPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-MULTIPLE . REMAINDER-PLUS-MULTIPLE-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-MULTIPLE REMAINDER-PLUS-MULTIPLE-OFF . T))))) (PUT1-LST (QUOTE DIVIDES-PLUS-PLUS-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE DIVIDES-PLUS-PLUS-OFF DIVIDES-PLUS-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVIDES-PLUS-PLUS . DIVIDES-PLUS-PLUS-OFF) (DISABLED-LEMMAS NIL DIVIDES-PLUS-PLUS DIVIDES-PLUS-PLUS-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-ADD1-PLUS-MULTIPLE-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE REMAINDER-ADD1-PLUS-MULTIPLE-OFF REMAINDER-ADD1-PLUS-MULTIPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1-PLUS-MULTIPLE . REMAINDER-ADD1-PLUS-MULTIPLE-OFF) (DISABLED-LEMMAS NIL REMAINDER-ADD1-PLUS-MULTIPLE REMAINDER-ADD1-PLUS-MULTIPLE-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-FIRSTN-OFF V-TO-NAT-FIRSTN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN . V-TO-NAT-FIRSTN-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-FIRSTN V-TO-NAT-FIRSTN-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-OF-NAT-TO-V-HACK-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-OF-NAT-TO-V-HACK-OFF V-TO-NAT-OF-NAT-TO-V-HACK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V-HACK . V-TO-NAT-OF-NAT-TO-V-HACK-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-OF-NAT-TO-V-HACK-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-OF-NAT-TO-V-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-OF-NAT-TO-V-OFF V-TO-NAT-OF-NAT-TO-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-TO-NAT-OF-NAT-TO-V-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-X-X-2-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE REMAINDER-PLUS-X-X-2-OFF REMAINDER-PLUS-X-X-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . REMAINDER-PLUS-X-X-2-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-X-X-2 REMAINDER-PLUS-X-X-2-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-X-X-2-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE QUOTIENT-PLUS-X-X-2-OFF QUOTIENT-PLUS-X-X-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . QUOTIENT-PLUS-X-X-2-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-X-X-2 QUOTIENT-PLUS-X-X-2-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-PLUS-X-X-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NAT-TO-V-PLUS-X-X-OFF NAT-TO-V-PLUS-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-PLUS-X-X . NAT-TO-V-PLUS-X-X-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-PLUS-X-X NAT-TO-V-PLUS-X-X-OFF . T))))) (PUT1-LST (QUOTE FIRSTN-ADD1-CONS-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FIRSTN-ADD1-CONS-OFF FIRSTN-ADD1-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-ADD1-CONS . FIRSTN-ADD1-CONS-OFF) (DISABLED-LEMMAS NIL FIRSTN-ADD1-CONS FIRSTN-ADD1-CONS-OFF . T))))) (PUT1-LST (QUOTE FIRSTN-ZEROP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FIRSTN-ZEROP-OFF FIRSTN-ZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-ZEROP . FIRSTN-ZEROP-OFF) (DISABLED-LEMMAS NIL FIRSTN-ZEROP FIRSTN-ZEROP-OFF . T))))) (PUT1-LST (QUOTE FIRSTN-NLISTP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FIRSTN-NLISTP-OFF FIRSTN-NLISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-NLISTP . FIRSTN-NLISTP-OFF) (DISABLED-LEMMAS NIL FIRSTN-NLISTP FIRSTN-NLISTP-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-OF-V-TO-NAT-GENERAL . NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-OF-V-TO-NAT-GENERAL NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF . T))))) (PUT1-LST (QUOTE FIRSTN-LENGTH-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FIRSTN-LENGTH-OFF FIRSTN-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-LENGTH . FIRSTN-LENGTH-OFF) (DISABLED-LEMMAS NIL FIRSTN-LENGTH FIRSTN-LENGTH-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NAT-TO-V-OF-V-TO-NAT-OFF NAT-TO-V-OF-V-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-OF-V-TO-NAT . NAT-TO-V-OF-V-TO-NAT-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-OF-V-TO-NAT NAT-TO-V-OF-V-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-ZEROP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NAT-TO-V-ZEROP-OFF NAT-TO-V-ZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-ZEROP . NAT-TO-V-ZEROP-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-ZEROP NAT-TO-V-ZEROP-OFF . T))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA . EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF . T))))) (PUT1-LST (QUOTE NAT-TO-V-REMAINDER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NAT-TO-V-REMAINDER-OFF NAT-TO-V-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . NAT-TO-V-REMAINDER-OFF) (DISABLED-LEMMAS NIL NAT-TO-V-REMAINDER NAT-TO-V-REMAINDER-OFF . T))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-OFF EQUAL-NAT-TO-V-INVERTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . EQUAL-NAT-TO-V-INVERTER-OFF) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-V-NOT-LEMMA-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-V-NOT-LEMMA-OFF V-TO-NAT-V-NOT-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT-LEMMA . V-TO-NAT-V-NOT-LEMMA-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-V-NOT-LEMMA V-TO-NAT-V-NOT-LEMMA-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-V-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-V-NOT-OFF V-TO-NAT-V-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT . V-TO-NAT-V-NOT-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-V-NOT V-TO-NAT-V-NOT-OFF . T))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LESSP-V-TO-NAT-EXP-OFF LESSP-V-TO-NAT-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . LESSP-V-TO-NAT-EXP-OFF) (DISABLED-LEMMAS NIL LESSP-V-TO-NAT-EXP LESSP-V-TO-NAT-EXP-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF . T))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-REWRITE-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LESSP-V-TO-NAT-EXP-REWRITE-OFF LESSP-V-TO-NAT-EXP-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-REWRITE . LESSP-V-TO-NAT-EXP-REWRITE-OFF) (DISABLED-LEMMAS NIL LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP-REWRITE-OFF . T))))) (PUT1-LST (QUOTE NOT-LESSP-QUOTIENT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE NOT-LESSP-QUOTIENT-OFF NOT-LESSP-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LESSP-QUOTIENT . NOT-LESSP-QUOTIENT-OFF) (DISABLED-LEMMAS NIL NOT-LESSP-QUOTIENT NOT-LESSP-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-APPEND-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-NAT-APPEND-OFF V-TO-NAT-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-APPEND . V-TO-NAT-APPEND-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-APPEND V-TO-NAT-APPEND-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-ADDER-OUTPUT-OFF *1*V-ALU-NAT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . G*1*V-ALU-NAT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-ADDER-OUTPUT G*1*V-ALU-NAT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-ADDER-OUTPUT-OFF V-ALU-NAT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-NAT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-ADDER-OUTPUT V-ALU-NAT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF *1*V-ALU-NAT-ADDER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-ADDER-CARRY-OUT G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-ADDER-CARRY-OUT-OFF V-ALU-NAT-ADDER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . V-ALU-NAT-ADDER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-ADDER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-ADDER-OFF *1*V-ALU-NAT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . G*1*V-ALU-NAT-ADDER-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-ADDER G*1*V-ALU-NAT-ADDER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-ADDER-OFF V-ALU-NAT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . V-ALU-NAT-ADDER-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-ADDER V-ALU-NAT-ADDER-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-INC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-INC-OFF *1*V-ALU-NAT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INC . G*1*V-ALU-NAT-INC-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-INC G*1*V-ALU-NAT-INC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-INC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-INC-OFF V-ALU-NAT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INC . V-ALU-NAT-INC-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-INC V-ALU-NAT-INC-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF *1*V-ALU-NAT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-SUBTRACTER-OUTPUT G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-NAT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . V-ALU-NAT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-NAT-SUBTRACTER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-SUBTRACTER-OFF *1*V-ALU-NAT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . G*1*V-ALU-NAT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-SUBTRACTER G*1*V-ALU-NAT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-SUBTRACTER-OFF V-ALU-NAT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . V-ALU-NAT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-DEC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-DEC-OFF *1*V-ALU-NAT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . G*1*V-ALU-NAT-DEC-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-DEC G*1*V-ALU-NAT-DEC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-DEC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-DEC-OFF V-ALU-NAT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . V-ALU-NAT-DEC-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-DEC V-ALU-NAT-DEC-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-LSR-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-LSR-OUTPUT-OFF *1*V-ALU-NAT-LSR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . G*1*V-ALU-NAT-LSR-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-LSR-OUTPUT G*1*V-ALU-NAT-LSR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-LSR-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-LSR-OUTPUT-OFF V-ALU-NAT-LSR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . V-ALU-NAT-LSR-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-LSR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF *1*V-ALU-NAT-LSR-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-LSR-CARRY-OUT G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-LSR-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-LSR-CARRY-OUT-OFF V-ALU-NAT-LSR-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-NAT-LSR-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-LSR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-LSR-OFF *1*V-ALU-NAT-LSR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR . G*1*V-ALU-NAT-LSR-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-LSR G*1*V-ALU-NAT-LSR-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-LSR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-LSR-OFF V-ALU-NAT-LSR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR . V-ALU-NAT-LSR-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-LSR V-ALU-NAT-LSR-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-NOT-OUTPUT-OFF *1*V-ALU-NAT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . G*1*V-ALU-NAT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-NOT-OUTPUT G*1*V-ALU-NAT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-NOT-OUTPUT-OFF V-ALU-NAT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-ALU-NAT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-NOT-OUTPUT V-ALU-NAT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-NOT-OFF *1*V-ALU-NAT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT . G*1*V-ALU-NAT-NOT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT-NOT G*1*V-ALU-NAT-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-NOT-OFF V-ALU-NAT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT . V-ALU-NAT-NOT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT-NOT V-ALU-NAT-NOT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-NAT-OFF *1*V-ALU-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT . G*1*V-ALU-NAT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-NAT G*1*V-ALU-NAT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-NAT-OFF V-ALU-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT . V-ALU-NAT-OFF) (DISABLED-LEMMAS NIL V-ALU-NAT V-ALU-NAT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-NAT-OFF V-ALU-CORRECT-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT . V-ALU-CORRECT-NAT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT V-ALU-CORRECT-NAT-OFF . T))))) (PUT1-LST (QUOTE G*1*INT-TO-V-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*INT-TO-V-OFF *1*INT-TO-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-TO-V . G*1*INT-TO-V-OFF) (DISABLED-LEMMAS NIL *1*INT-TO-V G*1*INT-TO-V-OFF . T))))) (PUT1-LST (QUOTE INT-TO-V-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INT-TO-V-OFF INT-TO-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INT-TO-V . INT-TO-V-OFF) (DISABLED-LEMMAS NIL INT-TO-V INT-TO-V-OFF . T))))) (PUT1-LST (QUOTE G*1*V-TO-INT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-TO-INT-OFF *1*V-TO-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-INT . G*1*V-TO-INT-OFF) (DISABLED-LEMMAS NIL *1*V-TO-INT G*1*V-TO-INT-OFF . T))))) (PUT1-LST (QUOTE V-TO-INT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-INT-OFF V-TO-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-INT . V-TO-INT-OFF) (DISABLED-LEMMAS NIL V-TO-INT V-TO-INT-OFF . T))))) (PUT1-LST (QUOTE G*1*INTEGER-IN-RANGEP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*INTEGER-IN-RANGEP-OFF *1*INTEGER-IN-RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . G*1*INTEGER-IN-RANGEP-OFF) (DISABLED-LEMMAS NIL *1*INTEGER-IN-RANGEP G*1*INTEGER-IN-RANGEP-OFF . T))))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE INTEGER-IN-RANGEP-OFF INTEGER-IN-RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . INTEGER-IN-RANGEP-OFF) (DISABLED-LEMMAS NIL INTEGER-IN-RANGEP INTEGER-IN-RANGEP-OFF . T))))) (PUT1-LST (QUOTE IPLUS-PLUS-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IPLUS-PLUS-OFF IPLUS-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . IPLUS-PLUS-OFF) (DISABLED-LEMMAS NIL IPLUS-PLUS IPLUS-PLUS-OFF . T))))) (PUT1-LST (QUOTE ILESSP-LESSP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE ILESSP-LESSP-OFF ILESSP-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-LESSP . ILESSP-LESSP-OFF) (DISABLED-LEMMAS NIL ILESSP-LESSP ILESSP-LESSP-OFF . T))))) (PUT1-LST (QUOTE TIMES-2-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE TIMES-2-OFF TIMES-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-2 . TIMES-2-OFF) (DISABLED-LEMMAS NIL TIMES-2 TIMES-2-OFF . T))))) (PUT1-LST (QUOTE B-TO-NAT-LEQ-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE B-TO-NAT-LEQ-OFF B-TO-NAT-LEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT-LEQ . B-TO-NAT-LEQ-OFF) (DISABLED-LEMMAS NIL B-TO-NAT-LEQ B-TO-NAT-LEQ-OFF . T))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF) (DISABLED-LEMMAS NIL LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-NUMBERP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE FIX-INT-NUMBERP-OFF FIX-INT-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-NUMBERP . FIX-INT-NUMBERP-OFF) (DISABLED-LEMMAS NIL FIX-INT-NUMBERP FIX-INT-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE IPLUS3-PLUS-DIFFERENCE-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IPLUS3-PLUS-DIFFERENCE-OFF IPLUS3-PLUS-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS3-PLUS-DIFFERENCE . IPLUS3-PLUS-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL IPLUS3-PLUS-DIFFERENCE IPLUS3-PLUS-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE V-TO-INT-V-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-TO-INT-V-NOT-OFF V-TO-INT-V-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-INT-V-NOT . V-TO-INT-V-NOT-OFF) (DISABLED-LEMMAS NIL V-TO-INT-V-NOT V-TO-INT-V-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF . T))))) (PUT1-LST (QUOTE IDIFFERENCE-DIFFERENCE-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IDIFFERENCE-DIFFERENCE-OFF IDIFFERENCE-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-DIFFERENCE . IDIFFERENCE-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL IDIFFERENCE-DIFFERENCE IDIFFERENCE-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE IDIV-QUOTIENT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IDIV-QUOTIENT-OFF IDIV-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-QUOTIENT . IDIV-QUOTIENT-OFF) (DISABLED-LEMMAS NIL IDIV-QUOTIENT IDIV-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE IDIV-ILESSP-0-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IDIV-ILESSP-0-OFF IDIV-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-ILESSP-0 . IDIV-ILESSP-0-OFF) (DISABLED-LEMMAS NIL IDIV-ILESSP-0 IDIV-ILESSP-0-OFF . T))))) (PUT1-LST (QUOTE IPLUS-DIV-HACK1-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE IPLUS-DIV-HACK1-OFF IPLUS-DIV-HACK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-DIV-HACK1 . IPLUS-DIV-HACK1-OFF) (DISABLED-LEMMAS NIL IPLUS-DIV-HACK1 IPLUS-DIV-HACK1-OFF . T))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-2-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE LESSP-QUOTIENT-2-OFF LESSP-QUOTIENT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT-2 . LESSP-QUOTIENT-2-OFF) (DISABLED-LEMMAS NIL LESSP-QUOTIENT-2 LESSP-QUOTIENT-2-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-ADDER-OUTPUT-OFF *1*V-ALU-INT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . G*1*V-ALU-INT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-ADDER-OUTPUT G*1*V-ALU-INT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-ADDER-OUTPUT-OFF V-ALU-INT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . V-ALU-INT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-ADDER-OUTPUT V-ALU-INT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF *1*V-ALU-INT-ADDER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-ADDER-OVERFLOWP G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-ADDER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-ADDER-OVERFLOWP-OFF V-ALU-INT-ADDER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . V-ALU-INT-ADDER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-ADDER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-ADDER-OFF *1*V-ALU-INT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . G*1*V-ALU-INT-ADDER-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-ADDER G*1*V-ALU-INT-ADDER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-ADDER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-ADDER-OFF V-ALU-INT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . V-ALU-INT-ADDER-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-ADDER V-ALU-INT-ADDER-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-INC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-INC-OFF *1*V-ALU-INT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . G*1*V-ALU-INT-INC-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-INC G*1*V-ALU-INT-INC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-INC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-INC-OFF V-ALU-INT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . V-ALU-INT-INC-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-INC V-ALU-INT-INC-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF *1*V-ALU-INT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-SUBTRACTER-OUTPUT G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-SUBTRACTER-OUTPUT-OFF V-ALU-INT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-INT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF *1*V-ALU-INT-SUBTRACTER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-SUBTRACTER-OVERFLOWP G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-INT-SUBTRACTER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-SUBTRACTER-OFF *1*V-ALU-INT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . G*1*V-ALU-INT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-SUBTRACTER G*1*V-ALU-INT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-SUBTRACTER-OFF V-ALU-INT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . V-ALU-INT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-SUBTRACTER V-ALU-INT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-DEC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-DEC-OFF *1*V-ALU-INT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . G*1*V-ALU-INT-DEC-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-DEC G*1*V-ALU-INT-DEC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-DEC-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-DEC-OFF V-ALU-INT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . V-ALU-INT-DEC-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-DEC V-ALU-INT-DEC-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-ASR-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-ASR-OUTPUT-OFF *1*V-ALU-INT-ASR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . G*1*V-ALU-INT-ASR-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-ASR-OUTPUT G*1*V-ALU-INT-ASR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-ASR-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-ASR-OUTPUT-OFF V-ALU-INT-ASR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . V-ALU-INT-ASR-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-ASR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-ASR-OFF *1*V-ALU-INT-ASR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR . G*1*V-ALU-INT-ASR-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-ASR G*1*V-ALU-INT-ASR-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-ASR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-ASR-OFF V-ALU-INT-ASR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR . V-ALU-INT-ASR-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-ASR V-ALU-INT-ASR-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-NEG-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-NEG-OFF *1*V-ALU-INT-NEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . G*1*V-ALU-INT-NEG-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-NEG G*1*V-ALU-INT-NEG-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-NEG-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-NEG-OFF V-ALU-INT-NEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . V-ALU-INT-NEG-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-NEG V-ALU-INT-NEG-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-NOT-OUTPUT-OFF *1*V-ALU-INT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT-OUTPUT . G*1*V-ALU-INT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-NOT-OUTPUT G*1*V-ALU-INT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-NOT-OUTPUT-OFF V-ALU-INT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT-OUTPUT . V-ALU-INT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-NOT-OFF *1*V-ALU-INT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT . G*1*V-ALU-INT-NOT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT-NOT G*1*V-ALU-INT-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-NOT-OFF V-ALU-INT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT . V-ALU-INT-NOT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT-NOT V-ALU-INT-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-NOT-OUTPUT-OFF V-ALU-CORRECT-INT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE G*1*V-ALU-INT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE G*1*V-ALU-INT-OFF *1*V-ALU-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT . G*1*V-ALU-INT-OFF) (DISABLED-LEMMAS NIL *1*V-ALU-INT G*1*V-ALU-INT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-INT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-INT-OFF V-ALU-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT . V-ALU-INT-OFF) (DISABLED-LEMMAS NIL V-ALU-INT V-ALU-INT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-OFF V-ALU-CORRECT-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT . V-ALU-CORRECT-INT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT V-ALU-CORRECT-INT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-NOT-OFF V-ALU-CORRECT-INT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT . V-ALU-CORRECT-INT-NOT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NEG-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-NEG-OFF V-ALU-CORRECT-INT-NEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . V-ALU-CORRECT-INT-NEG-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-NEG-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-OFF) (QUOTE (IDATE 1000402195016 EVENT (TOGGLE V-ALU-CORRECT-INT-ASR-OFF V-ALU-CORRECT-INT-ASR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR . V-ALU-CORRECT-INT-ASR-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-ASR-OUTPUT-OFF V-ALU-CORRECT-INT-ASR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . V-ALU-CORRECT-INT-ASR-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-DEC-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-DEC-OFF V-ALU-CORRECT-INT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . V-ALU-CORRECT-INT-DEC-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-DEC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OFF V-ALU-CORRECT-INT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . V-ALU-CORRECT-INT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-INC-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-INC-OFF V-ALU-CORRECT-INT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . V-ALU-CORRECT-INT-INC-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-INC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-OFF V-ALU-CORRECT-INT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . V-ALU-CORRECT-INT-ADDER-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF V-ALU-CORRECT-INT-ADDER-OVERFLOWP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-OFF V-ALU-CORRECT-NAT-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT . V-ALU-CORRECT-NAT-NOT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-NAT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-OFF V-ALU-CORRECT-NAT-LSR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR . V-ALU-CORRECT-NAT-LSR-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF V-ALU-CORRECT-NAT-LSR-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF V-ALU-CORRECT-NAT-LSR-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-DEC-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-DEC-OFF V-ALU-CORRECT-NAT-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-DEC . V-ALU-CORRECT-NAT-DEC-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-DEC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-OFF V-ALU-CORRECT-NAT-SUBTRACTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . V-ALU-CORRECT-NAT-SUBTRACTER-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INC-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-INC-OFF V-ALU-CORRECT-NAT-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INC . V-ALU-CORRECT-NAT-INC-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-INC-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-OFF V-ALU-CORRECT-NAT-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER . V-ALU-CORRECT-NAT-ADDER-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF V-ALU-CORRECT-NAT-ADDER-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-ADDER-CARRY-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INT-BUF-OFF) (QUOTE (IDATE 1000402195015 EVENT (TOGGLE V-ALU-CORRECT-NAT-INT-BUF-OFF V-ALU-CORRECT-NAT-INT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INT-BUF . V-ALU-CORRECT-NAT-INT-BUF-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-NAT-INT-BUF-OFF . T))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-INT-OFF) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT NIL (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ALU C A B OP) (V-ALU-INT C A B OP))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE V-ALU V-ALU-INT BV2P V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-NOT) (DISABLE V-ALU-NAT-INT-BUF V-ALU-INT-INC V-ALU-INT-ADDER V-ALU-INT-DEC V-ALU-INT-SUBTRACTER V-ALU-INT-ASR V-ALU-CORRECT-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-DEC . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NEG . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-INC . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INT-BUF . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT))))) (PUT1-LST (QUOTE *1*V-ALU-INT) (QUOTE (MAIN-EVENT V-ALU-INT))) (PUT1-LST (QUOTE V-ALU-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT 16 NIL NIL NIL NIL)) TOTALP-LST ((V-ALU-INT . T)) SDEFN (LAMBDA (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INT-BUF A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-INT-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-INT-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-INT-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-INT-NEG A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-INT-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-INT-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (V-ALU-INT-ASR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (V-ALU-INT-NOT A) (V-ALU C A B OP)))))))))))) LISP-CODE *1*V-ALU-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195015 SATELLITES (*1*V-ALU-INT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER V-ALU-CORRECT-INT-REWRITE G*1*V-ALU-INT-OFF V-ALU-INT-OFF V-ALU-CORRECT-INT) EVENT (DEFN V-ALU-INT (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INT-BUF A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-INT-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-INT-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-INT-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-INT-NEG A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-INT-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-INT-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (V-ALU-INT-ASR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (V-ALU-INT-NOT A) (V-ALU C A B OP)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . V-ALU-INT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . V-ALU-INT) (DCELL . *1*V-ALU-INT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-NOT-ON V-ALU-CORRECT-INT-NOT-OFF V-ALU-CORRECT-INT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-NOT (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-NOT A) (V-ALU-INT-NOT A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 INEG . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 ILESSP . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-NOT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-NOT) (LEMMAS CVZBV-V-NOT . V-ALU-CORRECT-INT-NOT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NOT-OUTPUT) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT-OFF V-ALU-CORRECT-INT-NOT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-NOT-OUTPUT (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-NOT A) (V-ALU-INT-NOT-OUTPUT A))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO INTEGER-DEFNS NATURALS) (ENABLE LESSP-V-TO-NAT-EXP V-TO-NAT-OF-NAT-TO-V LENGTH-NAT-TO-V V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-NAT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT V-ALU-INT-SUBTRACTER-OUTPUT INT-TO-V V-TO-INT IDIFFERENCE ILEQ B-TO-NAT *1*B-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 INEG . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 ILESSP . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 NATURALS . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT-OUTPUT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-NOT . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-NOT-OUTPUT) (LEMMAS V-NOT . V-ALU-CORRECT-INT-NOT-OUTPUT))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NOT) (QUOTE (MAIN-EVENT V-ALU-INT-NOT))) (PUT1-LST (QUOTE V-ALU-INT-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-NOT 16 NIL)) TOTALP-LST ((V-ALU-INT-NOT . T)) SDEFN (LAMBDA (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-ALU-INT-NOT-OUTPUT A))) LISP-CODE *1*V-ALU-INT-NOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195015 SATELLITES (*1*V-ALU-INT-NOT) IMMEDIATE-DEPENDENTS0 (G*1*V-ALU-INT-NOT-OFF V-ALU-INT-NOT-OFF V-ALU-INT V-ALU-CORRECT-INT-NOT) EVENT (DEFN V-ALU-INT-NOT (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-ALU-INT-NOT-OUTPUT A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-NOT-OUTPUT . V-ALU-INT-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-INT-NOT) (DCELL . *1*V-ALU-INT-NOT))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NOT-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-INT-NOT-OUTPUT))) (PUT1-LST (QUOTE V-ALU-INT-NOT-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-NOT-OUTPUT 24 NIL)) TOTALP-LST ((V-ALU-INT-NOT-OUTPUT . T)) SDEFN (LAMBDA (A) (V-ALU-INT-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*V-ALU-INT-NOT-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195015 SATELLITES (*1*V-ALU-INT-NOT-OUTPUT) IMMEDIATE-DEPENDENTS0 (G*1*V-ALU-INT-NOT-OUTPUT-OFF V-ALU-INT-NOT-OUTPUT-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-NOT) EVENT (DEFN V-ALU-INT-NOT-OUTPUT (A) (V-ALU-INT-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-INT-NOT-OUTPUT) (DCELL . *1*V-ALU-INT-NOT-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-NEG) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW V-ALU-CORRECT-INT-NEG-ON V-ALU-CORRECT-INT-NEG-OFF V-ALU-CORRECT-INT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-NEG (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-NEG A) (V-ALU-INT-NEG A))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*ILESSP CVZBV-NEG V-ALU-INT-NEG INT-TO-V V-ALU-CORRECT-INT-SUBTRACTER BV2P BVP-NAT-TO-V LENGTH-NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 ILESSP . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-NEG . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-NEG) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-NEG) (LEMMAS CVZBV-NEG . V-ALU-CORRECT-INT-NEG))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NEG) (QUOTE (MAIN-EVENT V-ALU-INT-NEG))) (PUT1-LST (QUOTE V-ALU-INT-NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-NEG 16 NIL)) TOTALP-LST ((V-ALU-INT-NEG . T)) SDEFN (LAMBDA (A) (V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*V-ALU-INT-NEG SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195015 SATELLITES (*1*V-ALU-INT-NEG) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW G*1*V-ALU-INT-NEG-OFF V-ALU-INT-NEG-OFF V-ALU-INT V-ALU-CORRECT-INT-NEG) EVENT (DEFN V-ALU-INT-NEG (A) (V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-NEG) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-NEG) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . V-ALU-INT-NEG) (DCELL . *1*V-ALU-INT-NEG))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OFF1 V-ALU-CORRECT-INT-ASR-ON V-ALU-CORRECT-INT-ASR-OFF V-ALU-CORRECT-INT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-ASR (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV-V-ASR A) (V-ALU-INT-ASR A))) ((DISABLE V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-OUTPUT V-LSR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 IDIV . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 NTH . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ASR . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ASR-OUTPUT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . V-ALU-CORRECT-INT-ASR) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-ASR) (LEMMAS CVZBV-V-ASR . V-ALU-CORRECT-INT-ASR))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ASR-OUTPUT) (QUOTE (IDATE 1000402195015 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO V-ALU-CORRECT-INT-ASR-OUTPUT-ON V-ALU-CORRECT-INT-ASR-OUTPUT-OFF V-ALU-CORRECT-INT-ASR) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-ASR-OUTPUT (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ASR A) (V-ALU-INT-ASR-OUTPUT A))) ((ENABLE-THEORY INTEGER-METAS NATURALS-METAS) (ENABLE V-SHIFT-RIGHT V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-QUOTIENT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-QUOTIENT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BOOLP . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-APPEND . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT-2 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-2 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS-DIV-HACK1 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIV-ILESSP-0 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 ILESSP-LESSP . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 FIX-INT-NUMBERP . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-CDR . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 NTH-LENGTH-V . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 INTEGER-METAS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 NATURALS-METAS . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ASR . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-ASR-OUTPUT) (LEMMAS V-ASR . V-ALU-CORRECT-INT-ASR-OUTPUT))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ASR) (QUOTE (MAIN-EVENT V-ALU-INT-ASR))) (PUT1-LST (QUOTE V-ALU-INT-ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-ASR 16 NIL)) TOTALP-LST ((V-ALU-INT-ASR . T)) SDEFN (LAMBDA (A) (CVZBV (V-ALU-NAT-LSR-CARRY-OUT A) (QUOTE *1*FALSE) (V-ALU-INT-ASR-OUTPUT A))) LISP-CODE *1*V-ALU-INT-ASR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-ASR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER G*1*V-ALU-INT-ASR-OFF V-ALU-INT-ASR-OFF V-ALU-INT V-ALU-CORRECT-INT-ASR) EVENT (DEFN V-ALU-INT-ASR (A) (CVZBV (V-ALU-NAT-LSR-CARRY-OUT A) (QUOTE *1*FALSE) (V-ALU-INT-ASR-OUTPUT A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ASR-OUTPUT . V-ALU-INT-ASR) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-INT-ASR) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-INT-ASR) (DCELL . *1*V-ALU-INT-ASR))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ASR-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-INT-ASR-OUTPUT))) (PUT1-LST (QUOTE V-ALU-INT-ASR-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-ASR-OUTPUT 24 NIL)) TOTALP-LST ((V-ALU-INT-ASR-OUTPUT . T)) SDEFN (LAMBDA (A) (INT-TO-V (IDIV (V-TO-INT A) (QUOTE 2)) (LENGTH A))) LISP-CODE *1*V-ALU-INT-ASR-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-ASR-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO G*1*V-ALU-INT-ASR-OUTPUT-OFF V-ALU-INT-ASR-OUTPUT-OFF V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-ASR) EVENT (DEFN V-ALU-INT-ASR-OUTPUT (A) (INT-TO-V (IDIV (V-TO-INT A) (QUOTE 2)) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIV . V-ALU-INT-ASR-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-ASR-OUTPUT) (DCELL . *1*V-ALU-INT-ASR-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-DEC) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW V-ALU-CORRECT-INT-DEC-ON V-ALU-CORRECT-INT-DEC-OFF V-ALU-CORRECT-INT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-DEC (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-DEC A) (V-ALU-INT-DEC A))) ((DISABLE V-ALU-INT-SUBTRACTER CVZBV-V-SUBTRACTER V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 ILESSP . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-DEC . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-DEC) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-DEC) (LEMMAS CVZBV-DEC . V-ALU-CORRECT-INT-DEC))))) (PUT1-LST (QUOTE *1*V-ALU-INT-DEC) (QUOTE (MAIN-EVENT V-ALU-INT-DEC))) (PUT1-LST (QUOTE V-ALU-INT-DEC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-DEC 16 NIL)) TOTALP-LST ((V-ALU-INT-DEC . T)) SDEFN (LAMBDA (A) (V-ALU-INT-SUBTRACTER (QUOTE *1*TRUE) (INT-TO-V (QUOTE 0) (LENGTH A)) A)) LISP-CODE *1*V-ALU-INT-DEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-DEC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW G*1*V-ALU-INT-DEC-OFF V-ALU-INT-DEC-OFF V-ALU-INT V-ALU-CORRECT-INT-DEC) EVENT (DEFN V-ALU-INT-DEC (A) (V-ALU-INT-SUBTRACTER (QUOTE *1*TRUE) (INT-TO-V (QUOTE 0) (LENGTH A)) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-DEC) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . V-ALU-INT-DEC) (DCELL . *1*V-ALU-INT-DEC))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW V-ALU-CORRECT-INT-SUBTRACTER-ON V-ALU-CORRECT-INT-SUBTRACTER-OFF V-ALU-CORRECT-INT V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-DEC) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-SUBTRACTER (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-SUBTRACTER C A B) (V-ALU-INT-SUBTRACTER C A B))) ((DISABLE V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-OUTPUT V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-SUBTRACTER) (LEMMAS CVZBV-V-SUBTRACTER . V-ALU-CORRECT-INT-SUBTRACTER))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-SUBTRACTER-OUTPUT C A B) (V-ALU-INT-SUBTRACTER-OUTPUT C A B))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE V-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA LENGTH-V-NOT BV2P BVP-V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT) (LEMMAS V-SUBTRACTER-OUTPUT . V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-ON V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-CORRECT-INT-SUBTRACTER) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-SUBTRACTER-OVERFLOWP C A B) (V-ALU-INT-SUBTRACTER-OVERFLOWP C A B))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE BV2P V-ALU-CORRECT-INT-ADDER-OVERFLOWP BVP-V-NOT LENGTH-V-NOT V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-SUBTRACTER-OVERFLOWP V-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) (LEMMAS V-SUBTRACTER-OVERFLOWP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER) (QUOTE (MAIN-EVENT V-ALU-INT-SUBTRACTER))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-SUBTRACTER 16 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-SUBTRACTER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-SUBTRACTER-CARRY-OUT C A B) (V-ALU-INT-SUBTRACTER-OVERFLOWP C A B) (V-ALU-INT-SUBTRACTER-OUTPUT C A B))) LISP-CODE *1*V-ALU-INT-SUBTRACTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-SUBTRACTER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW G*1*V-ALU-INT-SUBTRACTER-OFF V-ALU-INT-SUBTRACTER-OFF V-ALU-INT V-ALU-INT-NEG V-ALU-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER) EVENT (DEFN V-ALU-INT-SUBTRACTER (C A B) (CVZBV (V-SUBTRACTER-CARRY-OUT C A B) (V-ALU-INT-SUBTRACTER-OVERFLOWP C A B) (V-ALU-INT-SUBTRACTER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OUTPUT . V-ALU-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-SUBTRACTER-OVERFLOWP . V-ALU-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . V-ALU-INT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-INT-SUBTRACTER) (DCELL . *1*V-ALU-INT-SUBTRACTER))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER-OVERFLOWP) (QUOTE (MAIN-EVENT V-ALU-INT-SUBTRACTER-OVERFLOWP))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER-OVERFLOWP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-SUBTRACTER-OVERFLOWP 3 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-SUBTRACTER-OVERFLOWP . T)) SDEFN (LAMBDA (C A B) (IF (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))) (LENGTH A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*V-ALU-INT-SUBTRACTER-OVERFLOWP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-SUBTRACTER-OVERFLOWP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW G*1*V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-INT-SUBTRACTER-OVERFLOWP-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER) EVENT (DEFN V-ALU-INT-SUBTRACTER-OVERFLOWP (C A B) (NOT (INTEGER-IN-RANGEP (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-INT-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . V-ALU-INT-SUBTRACTER-OVERFLOWP) (DCELL . *1*V-ALU-INT-SUBTRACTER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-INT-SUBTRACTER-OUTPUT))) (PUT1-LST (QUOTE V-ALU-INT-SUBTRACTER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-SUBTRACTER-OUTPUT 24 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-SUBTRACTER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (INT-TO-V (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))) (LENGTH A))) LISP-CODE *1*V-ALU-INT-SUBTRACTER-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-SUBTRACTER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE G*1*V-ALU-INT-SUBTRACTER-OUTPUT-OFF V-ALU-INT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-INT-SUBTRACTER) EVENT (DEFN V-ALU-INT-SUBTRACTER-OUTPUT (C A B) (INT-TO-V (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-INT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-SUBTRACTER-OUTPUT) (DCELL . *1*V-ALU-INT-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-INC) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW V-ALU-CORRECT-INT-INC-ON V-ALU-CORRECT-INT-INC-OFF V-ALU-CORRECT-INT) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-INC (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-INC A) (V-ALU-INT-INC A))) ((DISABLE V-ALU-CORRECT-NAT-INC V-ALU-INT-ADDER CVZBV-V-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 ILESSP . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-INC . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-INC) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-INT-INC) (LEMMAS CVZBV-INC . V-ALU-CORRECT-INT-INC))))) (PUT1-LST (QUOTE *1*V-ALU-INT-INC) (QUOTE (MAIN-EVENT V-ALU-INT-INC))) (PUT1-LST (QUOTE V-ALU-INT-INC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-INC 16 NIL)) TOTALP-LST ((V-ALU-INT-INC . T)) SDEFN (LAMBDA (A) (V-ALU-INT-ADDER (QUOTE *1*TRUE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*V-ALU-INT-INC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195013 SATELLITES (*1*V-ALU-INT-INC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW G*1*V-ALU-INT-INC-OFF V-ALU-INT-INC-OFF V-ALU-INT V-ALU-CORRECT-INT-INC) EVENT (DEFN V-ALU-INT-INC (A) (V-ALU-INT-ADDER (QUOTE *1*TRUE) A (INT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-INC) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . V-ALU-INT-INC) (DCELL . *1*V-ALU-INT-INC))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW V-ALU-CORRECT-INT-ADDER-ON V-ALU-CORRECT-INT-ADDER-OFF V-ALU-CORRECT-INT V-ALU-CORRECT-INT-INC) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-ADDER (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-ADDER C A B) (V-ALU-INT-ADDER C A B))) ((DISABLE V-ADDER-CARRY-OUT V-ADDER-OVERFLOWP V-ADDER-OUTPUT V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-ADDER) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-ADDER) (LEMMAS CVZBV-V-ADDER . V-ALU-CORRECT-INT-ADDER))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OUTPUT) (QUOTE (IDATE 1000402195013 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ADDER-OUTPUT-ON V-ALU-CORRECT-INT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-ADDER-OUTPUT (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ADDER-OUTPUT C A B) (V-ALU-INT-ADDER-OUTPUT C A B))) ((ENABLE-THEORY INTEGER-METAS NATURALS-METAS) (DISABLE V-ADDER-OUTPUT B-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT-LEQ . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-2 . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS3-PLUS-DIFFERENCE . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-DIFFERENCE . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 ILESSP-LESSP . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-IF . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 INTEGER-METAS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 NATURALS-METAS . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-ADDER-OUTPUT) (LEMMAS V-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (QUOTE (IDATE 1000402195009 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL V-ALU-CORRECT-INT-ADDER-OVERFLOWP-ON V-ALU-CORRECT-INT-ADDER-OVERFLOWP-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-ADDER) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-ADDER-OVERFLOWP (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ADDER-OVERFLOWP C A B) (V-ALU-INT-ADDER-OVERFLOWP C A B))) ((ENABLE-THEORY INTEGER-METAS NATURALS-METAS) (DISABLE V-ADDER-OUTPUT B-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IPLUS3-PLUS-DIFFERENCE . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-TO-NAT-LEQ . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 TIMES-2 . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 ILESSP-LESSP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-AND . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 NTH-LENGTH-V . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 ILEQ . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 INTEGER-METAS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 NATURALS-METAS . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-ADDER-OVERFLOWP) (LEMMAS V-ADDER-OVERFLOWP . V-ALU-CORRECT-INT-ADDER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER) (QUOTE (MAIN-EVENT V-ALU-INT-ADDER))) (PUT1-LST (QUOTE V-ALU-INT-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-ADDER 16 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-ADDER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-ADDER-CARRY-OUT C A B) (V-ALU-INT-ADDER-OVERFLOWP C A B) (V-ALU-INT-ADDER-OUTPUT C A B))) LISP-CODE *1*V-ALU-INT-ADDER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195005 SATELLITES (*1*V-ALU-INT-ADDER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW G*1*V-ALU-INT-ADDER-OFF V-ALU-INT-ADDER-OFF V-ALU-INT V-ALU-INT-INC V-ALU-CORRECT-INT-ADDER) EVENT (DEFN V-ALU-INT-ADDER (C A B) (CVZBV (V-ADDER-CARRY-OUT C A B) (V-ALU-INT-ADDER-OVERFLOWP C A B) (V-ALU-INT-ADDER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OUTPUT . V-ALU-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-INT-ADDER-OVERFLOWP . V-ALU-INT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT . V-ALU-INT-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-INT-ADDER) (DCELL . *1*V-ALU-INT-ADDER))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER-OVERFLOWP) (QUOTE (MAIN-EVENT V-ALU-INT-ADDER-OVERFLOWP))) (PUT1-LST (QUOTE V-ALU-INT-ADDER-OVERFLOWP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-ADDER-OVERFLOWP 3 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-ADDER-OVERFLOWP . T)) SDEFN (LAMBDA (C A B) (IF (INTEGER-IN-RANGEP (IPLUS (B-TO-NAT C) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*V-ALU-INT-ADDER-OVERFLOWP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195005 SATELLITES (*1*V-ALU-INT-ADDER-OVERFLOWP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW G*1*V-ALU-INT-ADDER-OVERFLOWP-OFF V-ALU-INT-ADDER-OVERFLOWP-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER) EVENT (DEFN V-ALU-INT-ADDER-OVERFLOWP (C A B) (NOT (INTEGER-IN-RANGEP (IPLUS (B-TO-NAT C) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-INT-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 INTEGER-IN-RANGEP . V-ALU-INT-ADDER-OVERFLOWP) (DCELL . *1*V-ALU-INT-ADDER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-INT-ADDER-OUTPUT))) (PUT1-LST (QUOTE V-ALU-INT-ADDER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-INT-ADDER-OUTPUT 24 NIL NIL NIL)) TOTALP-LST ((V-ALU-INT-ADDER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (INT-TO-V (IPLUS (B-TO-NAT C) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A))) LISP-CODE *1*V-ALU-INT-ADDER-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402195005 SATELLITES (*1*V-ALU-INT-ADDER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW G*1*V-ALU-INT-ADDER-OUTPUT-OFF V-ALU-INT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-INT-ADDER) EVENT (DEFN V-ALU-INT-ADDER-OUTPUT (C A B) (INT-TO-V (IPLUS (B-TO-NAT C) (IPLUS (V-TO-INT A) (V-TO-INT B))) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-INT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 INT-TO-V . V-ALU-INT-ADDER-OUTPUT) (DCELL . *1*V-ALU-INT-ADDER-OUTPUT))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-2) (QUOTE (IDATE 1000402195005 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-2-OFF V-ALU-CORRECT-INT-ASR-OUTPUT) EVENT (PROVE-LEMMA LESSP-QUOTIENT-2 (REWRITE) (IFF (LESSP (QUOTIENT X (QUOTE 2)) Y) (LESSP X (PLUS Y Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 TIMES-2 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LESSP-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LESSP-QUOTIENT-2) (LEMMAS LESSP . LESSP-QUOTIENT-2))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2-OFF) (QUOTE (IDATE 1000402195005 EVENT (TOGGLE PLUS-QUOTIENT-2-OFF PLUS-QUOTIENT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2 . PLUS-QUOTIENT-2-OFF) (DISABLED-LEMMAS NIL PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-OFF . T))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2-LEMMA-OFF) (QUOTE (IDATE 1000402195005 EVENT (TOGGLE PLUS-QUOTIENT-2-LEMMA-OFF PLUS-QUOTIENT-2-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2-LEMMA . PLUS-QUOTIENT-2-LEMMA-OFF) (DISABLED-LEMMAS NIL PLUS-QUOTIENT-2-LEMMA PLUS-QUOTIENT-2-LEMMA-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF) (QUOTE (IDATE 1000402195005 EVENT (TOGGLE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG . QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF . T))))) (PUT1-LST (QUOTE IPLUS-DIV-HACK1) (QUOTE (IDATE 1000402195005 IMMEDIATE-DEPENDENTS0 (IPLUS-DIV-HACK1-OFF V-ALU-CORRECT-INT-ASR-OUTPUT) EVENT (PROVE-LEMMA IPLUS-DIV-HACK1 (REWRITE) (IMPLIES (AND (NUMBERP A0) (NUMBERP EXP)) (EQUAL (IPLUS (IDIV (IPLUS A0 (INEG EXP)) (QUOTE 2)) EXP) (QUOTIENT (PLUS A0 EXP) (QUOTE 2)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LESSP-QUOTIENT . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-Y-CROCK . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 TIMES-2 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-STUFF . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 IDIV-QUOTIENT . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2 . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 IDIV . IPLUS-DIV-HACK1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-DIV-HACK1) (LEMMAS IPLUS . IPLUS-DIV-HACK1))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (PLUS-QUOTIENT-2-ON PLUS-QUOTIENT-2-OFF IPLUS-DIV-HACK1) EVENT (PROVE-LEMMA PLUS-QUOTIENT-2 (REWRITE) (IMPLIES (NOT (LESSP A0 EXP)) (EQUAL (PLUS EXP (QUOTIENT (DIFFERENCE A0 EXP) (QUOTE 2))) (QUOTIENT (PLUS A0 EXP) (QUOTE 2)))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG LESSP-REMAINDER REMAINDER-QUOTIENT-ELIM DIFFERENCE-ELIM ASSOCIATIVITY-OF-PLUS PLUS-QUOTIENT-2-LEMMA COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 PLUS-QUOTIENT-2-LEMMA . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . PLUS-QUOTIENT-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . PLUS-QUOTIENT-2) (LEMMAS PLUS . PLUS-QUOTIENT-2))))) (PUT1-LST (QUOTE PLUS-QUOTIENT-2-LEMMA) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (PLUS-QUOTIENT-2-LEMMA-ON PLUS-QUOTIENT-2-LEMMA-OFF PLUS-QUOTIENT-2) EVENT (PROVE-LEMMA PLUS-QUOTIENT-2-LEMMA (REWRITE) (EQUAL (QUOTIENT (PLUS V (TIMES (QUOTE 2) Z)) (QUOTE 2)) (PLUS Z (QUOTIENT V (QUOTE 2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . PLUS-QUOTIENT-2-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-2 . PLUS-QUOTIENT-2-LEMMA) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . PLUS-QUOTIENT-2-LEMMA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . PLUS-QUOTIENT-2-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . PLUS-QUOTIENT-2-LEMMA) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . PLUS-QUOTIENT-2-LEMMA) (LEMMAS QUOTIENT . PLUS-QUOTIENT-2-LEMMA))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-ON QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG-OFF IPLUS-DIV-HACK1 PLUS-QUOTIENT-2) EVENT (PROVE-LEMMA QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG (REWRITE) (EQUAL (QUOTIENT (PLUS X (PLUS X Y)) (QUOTE 2)) (PLUS X (QUOTIENT Y (QUOTE 2)))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE PLUS-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG) (LEMMAS QUOTIENT . QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG))))) (PUT1-LST (QUOTE IDIV-ILESSP-0) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (IDIV-ILESSP-0-OFF V-ALU-CORRECT-INT-ASR-OUTPUT) EVENT (PROVE-LEMMA IDIV-ILESSP-0 (REWRITE) (IMPLIES (AND (NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (ILESSP (IDIV X Y) (QUOTE 0)) (ILESSP X (QUOTE 0)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 ILESSP-LESSP . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-NUMBERP . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 IDIV . IDIV-ILESSP-0) (IMMEDIATE-DEPENDENTS0 ILESSP . IDIV-ILESSP-0) (LEMMAS ILESSP . IDIV-ILESSP-0))))) (PUT1-LST (QUOTE IDIV-QUOTIENT) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (IDIV-QUOTIENT-OFF V-ALU-CORRECT-INT-ASR-OUTPUT IPLUS-DIV-HACK1) EVENT (PROVE-LEMMA IDIV-QUOTIENT (REWRITE) (IMPLIES (AND (NUMBERP X) (NUMBERP Y)) (EQUAL (IDIV X Y) (QUOTIENT X Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . IDIV-QUOTIENT) (IMMEDIATE-DEPENDENTS0 FIX-INT-NUMBERP . IDIV-QUOTIENT) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IDIV-QUOTIENT) (IMMEDIATE-DEPENDENTS0 IDIV . IDIV-QUOTIENT) (LEMMAS IDIV . IDIV-QUOTIENT))))) (PUT1-LST (QUOTE IDIFFERENCE-DIFFERENCE) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-DIFFERENCE-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT) EVENT (PROVE-LEMMA IDIFFERENCE-DIFFERENCE (REWRITE) (IMPLIES (AND (NUMBERP X) (AND (NUMBERP Y) (NOT (LESSP X Y)))) (AND (EQUAL (IPLUS X (INEG Y)) (DIFFERENCE X Y)) (EQUAL (IPLUS (INEG Y) X) (DIFFERENCE X Y)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE-DIFFERENCE) (LEMMAS IPLUS . IDIFFERENCE-DIFFERENCE) (LEMMAS IPLUS . IDIFFERENCE-DIFFERENCE))))) (PUT1-LST (QUOTE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (QUOTE (IDATE 1000402195000 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA-OFF V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP) EVENT (PROVE-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA (REWRITE) (IMPLIES (AND (BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (IPLUS (B-TO-NAT (B-NOT C)) (IPLUS (V-TO-INT (V-NOT A)) (V-TO-INT B))) (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C))))) ((ENABLE-THEORY INTEGER-DEFNS) (DISABLE V-TO-INT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-Y-CROCK . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 INTEGERP . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 INEG . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 V-TO-INT-V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 V-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 B-NOT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) (LEMMAS IPLUS . V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF) (QUOTE (IDATE 1000402194959 EVENT (TOGGLE V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF V-ALU-CORRECT-NAT-NOT-OUTPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF) (DISABLED-LEMMAS NIL V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF . T))))) (PUT1-LST (QUOTE V-TO-INT-V-NOT) (QUOTE (IDATE 1000402194959 IMMEDIATE-DEPENDENTS0 (V-TO-INT-V-NOT-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA) EVENT (PROVE-LEMMA V-TO-INT-V-NOT (REWRITE) (IMPLIES (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-TO-INT (V-NOT A)) (IPLUS (QUOTE -1) (INEG (V-TO-INT A))))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 TIMES-2 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-DIFFERENCE . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-REWRITE . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 INEG . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 IPLUS . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-INT . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-INT-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP . V-TO-INT-V-NOT) (LEMMAS V-TO-INT . V-TO-INT-V-NOT))))) (PUT1-LST (QUOTE IPLUS3-PLUS-DIFFERENCE) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (IPLUS3-PLUS-DIFFERENCE-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP) EVENT (PROVE-LEMMA IPLUS3-PLUS-DIFFERENCE (REWRITE) (IMPLIES (AND (NUMBERP C0) (AND (NUMBERP A0) (AND (NUMBERP B0) (AND (NUMBERP D) (NOT (LESSP (PLUS C0 (PLUS A0 B0)) D)))))) (EQUAL (IPLUS C0 (IPLUS A0 (IPLUS B0 (INEG D)))) (DIFFERENCE (PLUS C0 (PLUS A0 B0)) D))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS-PLUS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS3-PLUS-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS3-PLUS-DIFFERENCE) (LEMMAS IPLUS . IPLUS3-PLUS-DIFFERENCE))))) (PUT1-LST (QUOTE FIX-INT-NUMBERP) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (FIX-INT-NUMBERP-OFF V-ALU-CORRECT-INT-ASR-OUTPUT IDIV-ILESSP-0 IDIV-QUOTIENT) EVENT (PROVE-LEMMA FIX-INT-NUMBERP (REWRITE) (IMPLIES (NUMBERP X) (EQUAL (FIX-INT X) X)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-NUMBERP) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . FIX-INT-NUMBERP) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . FIX-INT-NUMBERP) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-NUMBERP) (LEMMAS FIX-INT . FIX-INT-NUMBERP))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP) EVENT (PROVE-LEMMA LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED (REWRITE) (IMPLIES (AND (BVP A) (AND (EQUAL (LENGTH A) (LENGTH B)) (NOT (EQUAL (LENGTH B) (QUOTE 0))))) (LESSP (V-TO-NAT A) (PLUS (EXP (QUOTE 2) (SUB1 (LENGTH B))) (EXP (QUOTE 2) (SUB1 (LENGTH B)))))) ((USE (LESSP-V-TO-NAT-EXP)) (DISABLE LESSP-V-TO-NAT-EXP-REWRITE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-2 . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 LENGTH . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (IMMEDIATE-DEPENDENTS0 BVP . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (LINEAR-LEMMAS V-TO-NAT . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) (LINEAR-LEMMAS EXP . LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED))))) (PUT1-LST (QUOTE B-TO-NAT-LEQ) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (B-TO-NAT-LEQ-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP) EVENT (PROVE-LEMMA B-TO-NAT-LEQ (REWRITE) (NOT (LESSP (QUOTE 1) (B-TO-NAT X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT . B-TO-NAT-LEQ) (LINEAR-LEMMAS B-TO-NAT . B-TO-NAT-LEQ))))) (PUT1-LST (QUOTE TIMES-2) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (TIMES-2-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 PLUS-QUOTIENT-2-LEMMA V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED) EVENT (PROVE-LEMMA TIMES-2 (REWRITE) (EQUAL (TIMES (QUOTE 2) X) (PLUS X X))) LOCAL-UNDO-TUPLES ((LEMMAS TIMES . TIMES-2))))) (PUT1-LST (QUOTE ILESSP-LESSP) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (ILESSP-LESSP-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP IDIV-ILESSP-0) EVENT (PROVE-LEMMA ILESSP-LESSP (REWRITE) (IMPLIES (AND (NUMBERP X) (NUMBERP Y)) (EQUAL (ILESSP X Y) (LESSP X Y))) ((ENABLE ILESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-LESSP) (LEMMAS ILESSP . ILESSP-LESSP))))) (PUT1-LST (QUOTE IPLUS-PLUS) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (IPLUS-PLUS-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP IPLUS-DIV-HACK1 IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA IPLUS3-PLUS-DIFFERENCE) EVENT (PROVE-LEMMA IPLUS-PLUS (REWRITE) (IMPLIES (AND (NUMBERP X) (NUMBERP Y)) (EQUAL (IPLUS X Y) (PLUS X Y))) ((ENABLE IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-PLUS) (LEMMAS IPLUS . IPLUS-PLUS))))) (PUT1-LST (QUOTE *1*INTEGER-IN-RANGEP) (QUOTE (MAIN-EVENT INTEGER-IN-RANGEP))) (PUT1-LST (QUOTE INTEGER-IN-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((INTEGER-IN-RANGEP 3 NIL NIL)) LEMMAS ((REWRITE-RULE INTEGER-IN-RANGEP-IDIV ((INTEGER-IN-RANGEP I L)) (INTEGER-IN-RANGEP (IDIV I (QUOTE 2)) L) NIL) (REWRITE-RULE INTEGER-IN-RANGEP--1 ((NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (INTEGER-IN-RANGEP (QUOTE -1) L) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-0 ((IZEROP A)) (INTEGER-IN-RANGEP A L) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY ((INTEGER-IN-RANGEP A L) (INTEGER-IN-RANGEP B L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0))) (NOT (EQUAL L (QUOTE 1)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS B (INEG (IPLUS (QUOTE 1) A))) L)) (NEGATIVEP (IPLUS B (INEG (IPLUS (QUOTE 1) A)))))) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-IPLUS-INEG ((INTEGER-IN-RANGEP A L) (INTEGER-IN-RANGEP B L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS B (INEG A)) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS B (INEG A)) L)) (NEGATIVEP (IPLUS B (INEG A))))) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-IPLUS-CARRY ((INTEGER-IN-RANGEP A L) (INTEGER-IN-RANGEP B L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS (QUOTE 1) (IPLUS A B)) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS (QUOTE 1) (IPLUS A B)) L)) (NEGATIVEP (IPLUS (QUOTE 1) (IPLUS A B))))) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-IPLUS ((INTEGER-IN-RANGEP A L) (INTEGER-IN-RANGEP B L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (EQUAL (INTEGER-IN-RANGEP (IPLUS A B) L) (EQUAL (V-NEGP (INT-TO-V (IPLUS A B) L)) (NEGATIVEP (IPLUS A B)))) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-V-TO-INT ((EQUAL L (LENGTH A))) (INTEGER-IN-RANGEP (V-TO-INT A) L) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-1 ((NUMBERP L) (NOT (EQUAL L (QUOTE 0))) (NOT (EQUAL L (QUOTE 1)))) (INTEGER-IN-RANGEP (QUOTE 1) L) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-MINUS-0 NIL (INTEGER-IN-RANGEP (QUOTE (*1*QUOTE MINUS 0)) L) NIL)) TOTALP-LST ((INTEGER-IN-RANGEP . T)) SDEFN (LAMBDA (I L) (IF (ILEQ (INEG (EXP (QUOTE 2) (SUB1 L))) I) (ILESSP I (EXP (QUOTE 2) (SUB1 L))) (QUOTE *1*FALSE))) LISP-CODE *1*INTEGER-IN-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*INTEGER-IN-RANGEP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT INTEGER-IN-RANGEP-1 INTEGER-IN-RANGEP-MINUS-0 G*1*INTEGER-IN-RANGEP-OFF INTEGER-IN-RANGEP-OFF V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP) EVENT (DEFN INTEGER-IN-RANGEP (I L) (AND (ILEQ (INEG (EXP (QUOTE 2) (SUB1 L))) I) (ILESSP I (EXP (QUOTE 2) (SUB1 L))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-IN-RANGEP) (IMMEDIATE-DEPENDENTS0 EXP . INTEGER-IN-RANGEP) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-IN-RANGEP) (IMMEDIATE-DEPENDENTS0 ILEQ . INTEGER-IN-RANGEP) (DCELL . *1*INTEGER-IN-RANGEP))))) (PUT1-LST (QUOTE *1*V-TO-INT) (QUOTE (MAIN-EVENT V-TO-INT))) (PUT1-LST (QUOTE V-TO-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-INT 36 NIL)) LEMMAS ((REWRITE-RULE V-TO-INT-NAT-TO-V-0 NIL (EQUAL (V-TO-INT (NAT-TO-V (QUOTE 0) L)) (QUOTE 0)) NIL) (REWRITE-RULE INT-TO-V-V-TO-INT-0 NIL (EQUAL (V-TO-INT (INT-TO-V (QUOTE 0) L)) (QUOTE 0)) NIL) (REWRITE-RULE V-TO-INT-V-NOT ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-TO-INT (V-NOT A)) (IPLUS (QUOTE -1) (INEG (V-TO-INT A)))) NIL)) TOTALP-LST ((V-TO-INT . T)) SDEFN (LAMBDA (V) (IF (LESSP (V-TO-NAT V) (EXP (QUOTE 2) (SUB1 (LENGTH V)))) (V-TO-NAT V) (IDIFFERENCE (V-TO-NAT V) (EXP (QUOTE 2) (LENGTH V))))) LISP-CODE *1*V-TO-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*V-TO-INT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP-V-TO-INT V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0 V-NEGP->NEGATIVEP-V-TO-INT INTEGERP-V-TO-INT G*1*V-TO-INT-OFF V-TO-INT-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT) EVENT (DEFN V-TO-INT (V) (IF (LESSP (V-TO-NAT V) (EXP (QUOTE 2) (SUB1 (LENGTH V)))) (V-TO-NAT V) (IDIFFERENCE (V-TO-NAT V) (EXP (QUOTE 2) (LENGTH V))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . V-TO-INT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-INT) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-INT) (DCELL . *1*V-TO-INT))))) (PUT1-LST (QUOTE *1*INT-TO-V) (QUOTE (MAIN-EVENT INT-TO-V))) (PUT1-LST (QUOTE INT-TO-V) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-TO-V 24 NIL NIL)) LEMMAS ((REWRITE-RULE INT-TO-V-OF-V-TO-INT ((EQUAL L (LENGTH V)) (BVP V)) (EQUAL (INT-TO-V (V-TO-INT V) L) V) NIL)) TOTALP-LST ((INT-TO-V . T)) SDEFN (LAMBDA (I L) (IF (ILESSP I (QUOTE 0)) (NAT-TO-V (IPLUS I (EXP (QUOTE 2) L)) L) (NAT-TO-V I L))) LISP-CODE *1*INT-TO-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*INT-TO-V) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INT-TO-V-OF-V-TO-INT INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS LENGTH-INT-TO-V V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY BVP-INT-TO-V INT-TO-V-V-TO-INT-0 G*1*INT-TO-V-OFF INT-TO-V-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-INT-NEG V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC V-ALU-INT-DEC V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-INC V-ALU-INT-INC V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-INT-ADDER-OUTPUT) EVENT (DEFN INT-TO-V (I L) (IF (ILESSP I (QUOTE 0)) (NAT-TO-V (IPLUS I (EXP (QUOTE 2) L)) L) (NAT-TO-V I L))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-TO-V) (IMMEDIATE-DEPENDENTS0 IPLUS . INT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . INT-TO-V) (IMMEDIATE-DEPENDENTS0 ILESSP . INT-TO-V) (DCELL . *1*INT-TO-V))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-REWRITE V-ALU-CORRECT-NAT-OFF) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT NIL (IMPLIES (BV2P A B) (EQUAL (V-ALU C A B OP) (V-ALU-NAT C A B OP))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE V-ALU V-ALU-NAT BV2P V-ALU-CORRECT-NAT-INT-BUF V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-NOT) (DISABLE V-ALU-NAT-INT-BUF V-ALU-NAT-INC V-ALU-NAT-ADDER V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER V-ALU-NAT-LSR V-ALU-NAT-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-DEC . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INC . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-INT-BUF . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-CORRECT-NAT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT) (QUOTE (MAIN-EVENT V-ALU-NAT))) (PUT1-LST (QUOTE V-ALU-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT 16 NIL NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT . T)) SDEFN (LAMBDA (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INT-BUF A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-NAT-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-NAT-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-NAT-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-NAT-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-NAT-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (V-ALU-NAT-LSR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (V-ALU-NAT-NOT A) (V-ALU C A B OP))))))))))) LISP-CODE *1*V-ALU-NAT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*V-ALU-NAT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL V-ALU-CORRECT-NAT-REWRITE G*1*V-ALU-NAT-OFF V-ALU-NAT-OFF V-ALU-CORRECT-NAT) EVENT (DEFN V-ALU-NAT (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INT-BUF A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (V-ALU-NAT-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-NAT-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-ALU-NAT-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (V-ALU-NAT-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-NAT-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (V-ALU-NAT-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (V-ALU-NAT-LSR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (V-ALU-NAT-NOT A) (V-ALU C A B OP))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INC . V-ALU-NAT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . V-ALU-NAT) (DCELL . *1*V-ALU-NAT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-NOT-ON V-ALU-CORRECT-NAT-NOT-OFF V-ALU-CORRECT-NAT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-NOT (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV-V-NOT A) (V-ALU-NAT-NOT A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . V-ALU-CORRECT-NAT-NOT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-NOT) (LEMMAS CVZBV-V-NOT . V-ALU-CORRECT-NAT-NOT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-NOT-OUTPUT) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF2 V-ALU-CORRECT-NAT-NOT-OUTPUT-ON V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT-OFF V-TO-INT-V-NOT V-ALU-CORRECT-NAT-NOT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-NOT-OUTPUT (REWRITE) (IMPLIES (BVP A) (EQUAL (V-NOT A) (V-ALU-NAT-NOT-OUTPUT A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-NOT . V-ALU-CORRECT-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-NOT-OUTPUT) (LEMMAS V-NOT . V-ALU-CORRECT-NAT-NOT-OUTPUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-NOT) (QUOTE (MAIN-EVENT V-ALU-NAT-NOT))) (PUT1-LST (QUOTE V-ALU-NAT-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-NOT 16 NIL)) TOTALP-LST ((V-ALU-NAT-NOT . T)) SDEFN (LAMBDA (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-ALU-NAT-NOT-OUTPUT A))) LISP-CODE *1*V-ALU-NAT-NOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*V-ALU-NAT-NOT) IMMEDIATE-DEPENDENTS0 (G*1*V-ALU-NAT-NOT-OFF V-ALU-NAT-NOT-OFF V-ALU-NAT V-ALU-CORRECT-NAT-NOT) EVENT (DEFN V-ALU-NAT-NOT (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-ALU-NAT-NOT-OUTPUT A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-NOT-OUTPUT . V-ALU-NAT-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-NAT-NOT) (DCELL . *1*V-ALU-NAT-NOT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-NOT-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-NAT-NOT-OUTPUT))) (PUT1-LST (QUOTE V-ALU-NAT-NOT-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-NOT-OUTPUT 24 NIL)) TOTALP-LST ((V-ALU-NAT-NOT-OUTPUT . T)) SDEFN (LAMBDA (A) (NAT-TO-V (SUB1 (DIFFERENCE (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT A))) (LENGTH A))) LISP-CODE *1*V-ALU-NAT-NOT-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194958 SATELLITES (*1*V-ALU-NAT-NOT-OUTPUT) IMMEDIATE-DEPENDENTS0 (G*1*V-ALU-NAT-NOT-OUTPUT-OFF V-ALU-NAT-NOT-OUTPUT-OFF V-ALU-CORRECT-INT-NOT-OUTPUT V-TO-INT-V-NOT V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-NAT-NOT) EVENT (DEFN V-ALU-NAT-NOT-OUTPUT (A) (NAT-TO-V (SUB1 (DIFFERENCE (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT A))) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-NAT-NOT-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-NOT-OUTPUT) (DCELL . *1*V-ALU-NAT-NOT-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-LSR-OFF1 V-ALU-CORRECT-NAT-LSR-ON V-ALU-CORRECT-NAT-LSR-OFF V-ALU-CORRECT-NAT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-LSR (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV-V-LSR A) (V-ALU-NAT-LSR A))) ((DISABLE V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-OUTPUT V-LSR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-OUTPUT . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . V-ALU-CORRECT-NAT-LSR) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-LSR) (LEMMAS CVZBV-V-LSR . V-ALU-CORRECT-NAT-LSR))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-OUTPUT) (QUOTE (IDATE 1000402194958 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT-ON V-ALU-CORRECT-NAT-LSR-OUTPUT-OFF V-ALU-CORRECT-NAT-LSR) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-LSR-OUTPUT (REWRITE) (IMPLIES (BVP A) (EQUAL (V-LSR A) (V-ALU-NAT-LSR-OUTPUT A))) ((ENABLE V-SHIFT-RIGHT V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-APPEND . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-CDR . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 NOT-LESSP-QUOTIENT . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-LSR . V-ALU-CORRECT-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-LSR-OUTPUT) (LEMMAS V-LSR . V-ALU-CORRECT-NAT-LSR-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (QUOTE (IDATE 1000402194957 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-LSR-CARRY V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF1 V-ALU-CORRECT-NAT-LSR-CARRY-OUT-ON V-ALU-CORRECT-NAT-LSR-CARRY-OUT-OFF V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-NAT-LSR) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-LSR-CARRY-OUT (REWRITE) (IMPLIES (AND (BVP A) (LISTP A)) (EQUAL (NTH (QUOTE 0) A) (V-ALU-NAT-LSR-CARRY-OUT A))) ((ENABLE NTH V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BOOLP . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 NTH . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-LSR-CARRY-OUT) (LEMMAS NTH . V-ALU-CORRECT-NAT-LSR-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR) (QUOTE (MAIN-EVENT V-ALU-NAT-LSR))) (PUT1-LST (QUOTE V-ALU-NAT-LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-LSR 16 NIL)) TOTALP-LST ((V-ALU-NAT-LSR . T)) SDEFN (LAMBDA (A) (CVZBV (V-ALU-NAT-LSR-CARRY-OUT A) (QUOTE *1*FALSE) (V-ALU-NAT-LSR-OUTPUT A))) LISP-CODE *1*V-ALU-NAT-LSR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194957 SATELLITES (*1*V-ALU-NAT-LSR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL G*1*V-ALU-NAT-LSR-OFF V-ALU-NAT-LSR-OFF V-ALU-NAT V-ALU-CORRECT-NAT-LSR) EVENT (DEFN V-ALU-NAT-LSR (A) (CVZBV (V-ALU-NAT-LSR-CARRY-OUT A) (QUOTE *1*FALSE) (V-ALU-NAT-LSR-OUTPUT A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-OUTPUT . V-ALU-NAT-LSR) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-LSR-CARRY-OUT . V-ALU-NAT-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-NAT-LSR) (DCELL . *1*V-ALU-NAT-LSR))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR-CARRY-OUT) (QUOTE (MAIN-EVENT V-ALU-NAT-LSR-CARRY-OUT))) (PUT1-LST (QUOTE V-ALU-NAT-LSR-CARRY-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-LSR-CARRY-OUT 3 NIL)) TOTALP-LST ((V-ALU-NAT-LSR-CARRY-OUT . T)) SDEFN (LAMBDA (A) (IF (EQUAL (REMAINDER (V-TO-NAT A) (QUOTE 2)) (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*V-ALU-NAT-LSR-CARRY-OUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194957 SATELLITES (*1*V-ALU-NAT-LSR-CARRY-OUT) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-LSR-CARRY G*1*V-ALU-NAT-LSR-CARRY-OUT-OFF V-ALU-NAT-LSR-CARRY-OUT-OFF V-ALU-CORRECT-INT-ASR V-ALU-INT-ASR V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR) EVENT (DEFN V-ALU-NAT-LSR-CARRY-OUT (A) (NOT (EQUAL (REMAINDER (V-TO-NAT A) (QUOTE 2)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-LSR-CARRY-OUT) (DCELL . *1*V-ALU-NAT-LSR-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-NAT-LSR-OUTPUT))) (PUT1-LST (QUOTE V-ALU-NAT-LSR-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-LSR-OUTPUT 24 NIL)) TOTALP-LST ((V-ALU-NAT-LSR-OUTPUT . T)) SDEFN (LAMBDA (A) (NAT-TO-V (QUOTIENT (V-TO-NAT A) (QUOTE 2)) (LENGTH A))) LISP-CODE *1*V-ALU-NAT-LSR-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194957 SATELLITES (*1*V-ALU-NAT-LSR-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-NAT-LSR-ZERO G*1*V-ALU-NAT-LSR-OUTPUT-OFF V-ALU-NAT-LSR-OUTPUT-OFF V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-NAT-LSR) EVENT (DEFN V-ALU-NAT-LSR-OUTPUT (A) (NAT-TO-V (QUOTIENT (V-TO-NAT A) (QUOTE 2)) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-LSR-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-LSR-OUTPUT) (DCELL . *1*V-ALU-NAT-LSR-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-DEC) (QUOTE (IDATE 1000402194957 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC V-ALU-CORRECT-NAT-DEC-ON V-ALU-CORRECT-NAT-DEC-OFF V-ALU-CORRECT-NAT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-DEC (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV-DEC A) (V-ALU-NAT-DEC A))) ((DISABLE V-ALU-NAT-SUBTRACTER CVZBV-V-SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-DEC . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . V-ALU-CORRECT-NAT-DEC) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-DEC) (LEMMAS CVZBV-DEC . V-ALU-CORRECT-NAT-DEC))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-DEC) (QUOTE (MAIN-EVENT V-ALU-NAT-DEC))) (PUT1-LST (QUOTE V-ALU-NAT-DEC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-DEC 16 NIL)) TOTALP-LST ((V-ALU-NAT-DEC . T)) SDEFN (LAMBDA (A) (V-ALU-NAT-SUBTRACTER (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH A)) A)) LISP-CODE *1*V-ALU-NAT-DEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194957 SATELLITES (*1*V-ALU-NAT-DEC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-NAT-DEC G*1*V-ALU-NAT-DEC-OFF V-ALU-NAT-DEC-OFF V-ALU-NAT V-ALU-CORRECT-NAT-DEC) EVENT (DEFN V-ALU-NAT-DEC (A) (V-ALU-NAT-SUBTRACTER (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH A)) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-DEC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . V-ALU-NAT-DEC) (DCELL . *1*V-ALU-NAT-DEC))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER) (QUOTE (IDATE 1000402194957 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY V-ALU-CORRECT-NAT-SUBTRACTER-ON V-ALU-CORRECT-NAT-SUBTRACTER-OFF V-ALU-CORRECT-NAT V-ALU-CORRECT-NAT-DEC) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER (REWRITE) (IMPLIES (BV2P A B) (EQUAL (CVZBV-V-SUBTRACTER C A B) (V-ALU-NAT-SUBTRACTER C A B))) ((DISABLE V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-OUTPUT V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . V-ALU-CORRECT-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-SUBTRACTER) (LEMMAS CVZBV-V-SUBTRACTER . V-ALU-CORRECT-NAT-SUBTRACTER))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (QUOTE (IDATE 1000402194957 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-SUBTRACTER-OUTPUT C A B) (V-ALU-NAT-SUBTRACTER-OUTPUT C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-REWRITE . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT) (LEMMAS V-SUBTRACTER-OUTPUT . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (QUOTE (IDATE 1000402194956 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW ZERO-FLAG-INTERPRETATION-FOR-SUB V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-ON V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-SUBTRACTER-CARRY-OUT C A B) (V-ALU-NAT-SUBTRACTER-CARRY-OUT C A B))) ((ENABLE EQUAL-IFF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP-REWRITE . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) (LEMMAS V-SUBTRACTER-CARRY-OUT . V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER) (QUOTE (MAIN-EVENT V-ALU-NAT-SUBTRACTER))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-SUBTRACTER 16 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-SUBTRACTER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-ALU-NAT-SUBTRACTER-CARRY-OUT C A B) (V-SUBTRACTER-OVERFLOWP C A B) (V-ALU-NAT-SUBTRACTER-OUTPUT C A B))) LISP-CODE *1*V-ALU-NAT-SUBTRACTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194956 SATELLITES (*1*V-ALU-NAT-SUBTRACTER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC G*1*V-ALU-NAT-SUBTRACTER-OFF V-ALU-NAT-SUBTRACTER-OFF V-ALU-NAT V-ALU-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER) EVENT (DEFN V-ALU-NAT-SUBTRACTER (C A B) (CVZBV (V-ALU-NAT-SUBTRACTER-CARRY-OUT C A B) (V-SUBTRACTER-OVERFLOWP C A B) (V-ALU-NAT-SUBTRACTER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-OUTPUT . V-ALU-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . V-ALU-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-SUBTRACTER-CARRY-OUT . V-ALU-NAT-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-NAT-SUBTRACTER) (DCELL . *1*V-ALU-NAT-SUBTRACTER))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT) (QUOTE (MAIN-EVENT V-ALU-NAT-SUBTRACTER-CARRY-OUT))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER-CARRY-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-SUBTRACTER-CARRY-OUT 3 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-SUBTRACTER-CARRY-OUT . T)) SDEFN (LAMBDA (C A B) (LESSP (V-TO-NAT B) (PLUS (V-TO-NAT A) (B-TO-NAT C)))) LISP-CODE *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194956 SATELLITES (*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB G*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-NAT-SUBTRACTER-CARRY-OUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER) EVENT (DEFN V-ALU-NAT-SUBTRACTER-CARRY-OUT (C A B) (LESSP (V-TO-NAT B) (PLUS (V-TO-NAT A) (B-TO-NAT C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-NAT-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-SUBTRACTER-CARRY-OUT) (DCELL . *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-NAT-SUBTRACTER-OUTPUT))) (PUT1-LST (QUOTE V-ALU-NAT-SUBTRACTER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-SUBTRACTER-OUTPUT 24 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-SUBTRACTER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (NAT-TO-V (REMAINDER (DIFFERENCE (PLUS (V-TO-NAT B) (EXP (QUOTE 2) (LENGTH A))) (PLUS (V-TO-NAT A) (B-TO-NAT C))) (EXP (QUOTE 2) (LENGTH A))) (LENGTH A))) LISP-CODE *1*V-ALU-NAT-SUBTRACTER-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194956 SATELLITES (*1*V-ALU-NAT-SUBTRACTER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC G*1*V-ALU-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-NAT-SUBTRACTER-OUTPUT-OFF V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-SUBTRACTER) EVENT (DEFN V-ALU-NAT-SUBTRACTER-OUTPUT (C A B) (NAT-TO-V (REMAINDER (DIFFERENCE (PLUS (V-TO-NAT B) (EXP (QUOTE 2) (LENGTH A))) (PLUS (V-TO-NAT A) (B-TO-NAT C))) (EXP (QUOTE 2) (LENGTH A))) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-SUBTRACTER-OUTPUT) (DCELL . *1*V-ALU-NAT-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INC) (QUOTE (IDATE 1000402194956 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-INC-OFF1 V-ALU-CORRECT-NAT-INC-ON V-ALU-CORRECT-NAT-INC-OFF V-ALU-CORRECT-NAT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-INC (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV-INC A) (V-ALU-NAT-INC A))) ((DISABLE V-ALU-NAT-ADDER CVZBV-V-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INC . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . V-ALU-CORRECT-NAT-INC) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-INC) (LEMMAS CVZBV-INC . V-ALU-CORRECT-NAT-INC))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-INC) (QUOTE (MAIN-EVENT V-ALU-NAT-INC))) (PUT1-LST (QUOTE V-ALU-NAT-INC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-INC 16 NIL)) TOTALP-LST ((V-ALU-NAT-INC . T)) SDEFN (LAMBDA (A) (V-ALU-NAT-ADDER (QUOTE *1*TRUE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*V-ALU-NAT-INC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194956 SATELLITES (*1*V-ALU-NAT-INC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL G*1*V-ALU-NAT-INC-OFF V-ALU-NAT-INC-OFF V-ALU-NAT V-ALU-CORRECT-NAT-INC) EVENT (DEFN V-ALU-NAT-INC (A) (V-ALU-NAT-ADDER (QUOTE *1*TRUE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-INC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-INC) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . V-ALU-NAT-INC) (DCELL . *1*V-ALU-NAT-INC))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER) (QUOTE (IDATE 1000402194956 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OFF1 V-ALU-CORRECT-NAT-ADDER-ON V-ALU-CORRECT-NAT-ADDER-OFF V-ALU-CORRECT-NAT V-ALU-CORRECT-NAT-INC) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-ADDER (REWRITE) (IMPLIES (BV2P A B) (EQUAL (CVZBV-V-ADDER C A B) (V-ALU-NAT-ADDER C A B))) ((DISABLE V-ADDER-CARRY-OUT V-ADDER-OVERFLOWP V-ADDER-OUTPUT V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-CORRECT-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . V-ALU-CORRECT-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-ADDER) (LEMMAS CVZBV-V-ADDER . V-ALU-CORRECT-NAT-ADDER))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-OUTPUT) (QUOTE (IDATE 1000402194956 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-NAT-ADDER-OUTPUT-ON V-ALU-CORRECT-NAT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-ADDER-OUTPUT (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-ADDER-OUTPUT C A B) (V-ALU-NAT-ADDER-OUTPUT C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-V-ADDER . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-OF-V-ADDER . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-WORKS . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-ADDER-OUTPUT) (LEMMAS V-ADDER-OUTPUT . V-ALU-CORRECT-NAT-ADDER-OUTPUT))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (QUOTE (IDATE 1000402194955 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-ON V-ALU-CORRECT-NAT-ADDER-CARRY-OUT-OFF V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-ADDER-CARRY-OUT (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-ADDER-CARRY-OUT C A B) (V-ALU-NAT-ADDER-CARRY-OUT C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH-LENGTH-V . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-WORKS . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BVP-V-ADDER . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 LENGTH-OF-V-ADDER . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 BV2P . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) (LEMMAS V-ADDER-CARRY-OUT . V-ALU-CORRECT-NAT-ADDER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER) (QUOTE (MAIN-EVENT V-ALU-NAT-ADDER))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-ADDER 16 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-ADDER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-ALU-NAT-ADDER-CARRY-OUT C A B) (V-ADDER-OVERFLOWP C A B) (V-ALU-NAT-ADDER-OUTPUT C A B))) LISP-CODE *1*V-ALU-NAT-ADDER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194955 SATELLITES (*1*V-ALU-NAT-ADDER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL G*1*V-ALU-NAT-ADDER-OFF V-ALU-NAT-ADDER-OFF V-ALU-NAT V-ALU-NAT-INC V-ALU-CORRECT-NAT-ADDER) EVENT (DEFN V-ALU-NAT-ADDER (C A B) (CVZBV (V-ALU-NAT-ADDER-CARRY-OUT C A B) (V-ADDER-OVERFLOWP C A B) (V-ALU-NAT-ADDER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-OUTPUT . V-ALU-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . V-ALU-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-ADDER-CARRY-OUT . V-ALU-NAT-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-NAT-ADDER) (DCELL . *1*V-ALU-NAT-ADDER))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER-CARRY-OUT) (QUOTE (MAIN-EVENT V-ALU-NAT-ADDER-CARRY-OUT))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER-CARRY-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-ADDER-CARRY-OUT 3 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-ADDER-CARRY-OUT . T)) SDEFN (LAMBDA (C A B) (IF (LESSP (PLUS (B-TO-NAT C) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A))) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*V-ALU-NAT-ADDER-CARRY-OUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194955 SATELLITES (*1*V-ALU-NAT-ADDER-CARRY-OUT) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC G*1*V-ALU-NAT-ADDER-CARRY-OUT-OFF V-ALU-NAT-ADDER-CARRY-OUT-OFF V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER) EVENT (DEFN V-ALU-NAT-ADDER-CARRY-OUT (C A B) (NOT (LESSP (PLUS (B-TO-NAT C) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-NAT-ADDER-CARRY-OUT) (DCELL . *1*V-ALU-NAT-ADDER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER-OUTPUT) (QUOTE (MAIN-EVENT V-ALU-NAT-ADDER-OUTPUT))) (PUT1-LST (QUOTE V-ALU-NAT-ADDER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-ADDER-OUTPUT 24 NIL NIL NIL)) TOTALP-LST ((V-ALU-NAT-ADDER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (NAT-TO-V (REMAINDER (PLUS (B-TO-NAT C) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A))) (LENGTH A))) LISP-CODE *1*V-ALU-NAT-ADDER-OUTPUT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194955 SATELLITES (*1*V-ALU-NAT-ADDER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL G*1*V-ALU-NAT-ADDER-OUTPUT-OFF V-ALU-NAT-ADDER-OUTPUT-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-NAT-ADDER) EVENT (DEFN V-ALU-NAT-ADDER-OUTPUT (C A B) (NAT-TO-V (REMAINDER (PLUS (B-TO-NAT C) (PLUS (V-TO-NAT A) (V-TO-NAT B))) (EXP (QUOTE 2) (LENGTH A))) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ALU-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 EXP . V-ALU-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ALU-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-TO-NAT . V-ALU-NAT-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-ALU-NAT-ADDER-OUTPUT) (DCELL . *1*V-ALU-NAT-ADDER-OUTPUT))))) (PUT1-LST (QUOTE V-TO-NAT-APPEND) (QUOTE (IDATE 1000402194955 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-APPEND-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT) EVENT (PROVE-LEMMA V-TO-NAT-APPEND (REWRITE) (IMPLIES (AND (BVP A) (BVP B)) (EQUAL (V-TO-NAT (APPEND A B)) (PLUS (V-TO-NAT A) (TIMES (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT B))))) ((ENABLE V-TO-NAT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 EXP-ADD1 . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-CDR . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-APPEND) (IMMEDIATE-DEPENDENTS0 BVP . V-TO-NAT-APPEND) (LEMMAS V-TO-NAT . V-TO-NAT-APPEND))))) (PUT1-LST (QUOTE NOT-LESSP-QUOTIENT) (QUOTE (IDATE 1000402194955 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IDIV NOT-LESSP-QUOTIENT-OFF V-ALU-CORRECT-INT-ASR-OUTPUT IPLUS-DIV-HACK1 V-ALU-CORRECT-NAT-LSR-OUTPUT) EVENT (PROVE-LEMMA NOT-LESSP-QUOTIENT (REWRITE) (NOT (LESSP N (QUOTIENT N K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . NOT-LESSP-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . NOT-LESSP-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . NOT-LESSP-QUOTIENT) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . NOT-LESSP-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . NOT-LESSP-QUOTIENT) (LINEAR-LEMMAS QUOTIENT . NOT-LESSP-QUOTIENT))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP-REWRITE) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (LESSP-V-TO-NAT-EXP-REWRITE-OFF V-TO-INT-V-NOT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) EVENT (PROVE-LEMMA LESSP-V-TO-NAT-EXP-REWRITE (REWRITE) (IMPLIES (AND (BVP A) (EQUAL (LENGTH A) LEN)) (EQUAL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) LEN)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-V-TO-NAT-EXP . LESSP-V-TO-NAT-EXP-REWRITE) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-V-TO-NAT-EXP-REWRITE) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . LESSP-V-TO-NAT-EXP-REWRITE) (IMMEDIATE-DEPENDENTS0 LENGTH . LESSP-V-TO-NAT-EXP-REWRITE) (IMMEDIATE-DEPENDENTS0 BVP . LESSP-V-TO-NAT-EXP-REWRITE) (LEMMAS LESSP . LESSP-V-TO-NAT-EXP-REWRITE))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA-OFF V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA (REWRITE) (IMPLIES (AND (LESSP A-NAT BOUND) (LESSP B-NAT BOUND)) (EQUAL (PLUS B-NAT (SUB1 (DIFFERENCE BOUND A-NAT))) (SUB1 (DIFFERENCE (PLUS B-NAT BOUND) A-NAT))))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA))))) (PUT1-LST (QUOTE EQUAL-IFF-OFF) (QUOTE (IDATE 1000402194954 EVENT (TOGGLE EQUAL-IFF-OFF EQUAL-IFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-IFF . EQUAL-IFF-OFF) (DISABLED-LEMMAS NIL EQUAL-IFF EQUAL-IFF-OFF . T))))) (PUT1-LST (QUOTE EQUAL-IFF) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG NOT-INTEGERP-MINUS-ZERO INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS LESSP-A-PLUS-A-A LESSP-1-PLUS-X-X V-NEGP->NEGATIVEP-V-TO-INT NEGATIVEP-IDIFFERENCE-ON-NUMBERPS V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC LESSP-SUB1-PLUS-A-B-B V-NZEROP-NAT-TO-V FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT FLAGS-INTERPRETATION-SUB V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS V-NOT-V-NOT V-TO-NAT-EQUAL EQUAL-IFF-ON V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT EQUAL-IFF-OFF) EVENT (PROVE-LEMMA EQUAL-IFF (REWRITE) (IMPLIES (AND (BOOLP X) (BOOLP Y)) (EQUAL (EQUAL X Y) (IFF X Y))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . EQUAL-IFF) (LEMMAS EQUAL . EQUAL-IFF))))) (PUT1-LST (QUOTE LESSP-V-TO-NAT-EXP) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (LESSP-V-TO-NAT-EXP-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT LESSP-V-TO-NAT-EXP-REWRITE) EVENT (PROVE-LEMMA LESSP-V-TO-NAT-EXP (REWRITE) (IMPLIES (BVP A) (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A)))) ((ENABLE V-TO-NAT LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 EXP-ADD1 . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 BVP-CDR . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 LENGTH . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . LESSP-V-TO-NAT-EXP) (IMMEDIATE-DEPENDENTS0 BVP . LESSP-V-TO-NAT-EXP) (LINEAR-LEMMAS EXP . LESSP-V-TO-NAT-EXP))))) (PUT1-LST (QUOTE V-TO-NAT-V-NOT) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-V-NOT-OFF V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT) EVENT (PROVE-LEMMA V-TO-NAT-V-NOT (REWRITE) (IMPLIES (BVP A) (EQUAL (V-TO-NAT (V-NOT A)) (SUB1 (DIFFERENCE (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT A))))) ((USE (V-TO-NAT-V-NOT-LEMMA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-V-NOT-LEMMA . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP . V-TO-NAT-V-NOT) (LEMMAS V-TO-NAT . V-TO-NAT-V-NOT))))) (PUT1-LST (QUOTE V-TO-NAT-V-NOT-LEMMA) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-V-NOT-LEMMA-OFF V-TO-NAT-V-NOT) EVENT (PROVE-LEMMA V-TO-NAT-V-NOT-LEMMA NIL (IMPLIES (BVP A) (EQUAL (PLUS (V-TO-NAT A) (V-TO-NAT (V-NOT A))) (SUB1 (EXP (QUOTE 2) (LENGTH A))))) ((ENABLE V-TO-NAT V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 BOOLP . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 EXP-ADD1 . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 B-NOT . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 BVP-CDR . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 V-NOT . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-V-NOT-LEMMA) (IMMEDIATE-DEPENDENTS0 BVP . V-TO-NAT-V-NOT-LEMMA))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK2-OFF) (QUOTE (IDATE 1000402194954 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-HACK2-OFF EQUAL-NAT-TO-V-INVERTER-HACK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2 . EQUAL-NAT-TO-V-INVERTER-HACK2-OFF) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-OFF . T))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK1-OFF) (QUOTE (IDATE 1000402194954 EVENT (TOGGLE EQUAL-NAT-TO-V-INVERTER-HACK1-OFF EQUAL-NAT-TO-V-INVERTER-HACK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK1 . EQUAL-NAT-TO-V-INVERTER-HACK1-OFF) (DISABLED-LEMMAS NIL EQUAL-NAT-TO-V-INVERTER-HACK1 EQUAL-NAT-TO-V-INVERTER-HACK1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (EQUAL-NAT-TO-V-INVERTER-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT) EVENT (PROVE-LEMMA EQUAL-NAT-TO-V-INVERTER (REWRITE) (IFF (EQUAL V (NAT-TO-V N LEN)) (AND (BVP V) (AND (EQUAL (LENGTH V) (FIX LEN)) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK1 . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2 . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 BVP-NAT-TO-V . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-ZEROP . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 BVP . EQUAL-NAT-TO-V-INVERTER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . EQUAL-NAT-TO-V-INVERTER) (LEMMAS EQUAL . EQUAL-NAT-TO-V-INVERTER))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK2) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT NAT-TO-V-OF-V-TO-NAT* EQUAL-NAT-TO-V-INVERTER-HACK2-ON EQUAL-NAT-TO-V-INVERTER-HACK2-OFF EQUAL-NAT-TO-V-INVERTER) EVENT (PROVE-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2 (REWRITE) (IMPLIES (AND (BVP V) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) (LENGTH V))))) (EQUAL (EQUAL V (NAT-TO-V N (LENGTH V))) (QUOTE *1*TRUE))) ((USE (EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA (LEN (LENGTH V)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V-OF-V-TO-NAT . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-REMAINDER . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . EQUAL-NAT-TO-V-INVERTER-HACK2) (IMMEDIATE-DEPENDENTS0 BVP . EQUAL-NAT-TO-V-INVERTER-HACK2) (LEMMAS EQUAL . EQUAL-NAT-TO-V-INVERTER-HACK2))))) (PUT1-LST (QUOTE NAT-TO-V-REMAINDER) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-REMAINDER-OFF V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT EQUAL-NAT-TO-V-INVERTER-HACK2) EVENT (PROVE-LEMMA NAT-TO-V-REMAINDER (REWRITE) (EQUAL (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) LEN)) LEN) (NAT-TO-V N LEN)) ((ENABLE NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-ZEROP . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-V-REMAINDER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-REMAINDER) (LEMMAS NAT-TO-V . NAT-TO-V-REMAINDER))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA-OFF EQUAL-NAT-TO-V-INVERTER-HACK2) EVENT (PROVE-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA NIL (IMPLIES (AND (BVP V) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN)))) (EQUAL (EQUAL (NAT-TO-V (V-TO-NAT V) LEN) (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) LEN)) LEN)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V . EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA) (IMMEDIATE-DEPENDENTS0 BVP . EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA))))) (PUT1-LST (QUOTE EQUAL-NAT-TO-V-INVERTER-HACK1) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (EQUAL-NAT-TO-V-INVERTER-HACK1-ON EQUAL-NAT-TO-V-INVERTER-HACK1-OFF EQUAL-NAT-TO-V-INVERTER) EVENT (PROVE-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 (REWRITE) (IMPLIES (AND (NUMBERP LEN) (EQUAL V (NAT-TO-V N LEN))) (EQUAL (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN))) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V . EQUAL-NAT-TO-V-INVERTER-HACK1) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-NAT-TO-V-INVERTER-HACK1) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . EQUAL-NAT-TO-V-INVERTER-HACK1) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . EQUAL-NAT-TO-V-INVERTER-HACK1) (LEMMAS EQUAL . EQUAL-NAT-TO-V-INVERTER-HACK1))))) (PUT1-LST (QUOTE NAT-TO-V-ZEROP) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-ZEROP-OFF EQUAL-NAT-TO-V-INVERTER NAT-TO-V-REMAINDER) EVENT (PROVE-LEMMA NAT-TO-V-ZEROP (REWRITE) (IMPLIES (ZEROP LEN) (EQUAL (NAT-TO-V N LEN) (QUOTE NIL))) ((ENABLE NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-ZEROP) (LEMMAS NAT-TO-V . NAT-TO-V-ZEROP))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-OF-V-TO-NAT-OFF EQUAL-NAT-TO-V-INVERTER-HACK2) EVENT (PROVE-LEMMA NAT-TO-V-OF-V-TO-NAT (REWRITE) (IMPLIES (BVP V) (EQUAL (NAT-TO-V (V-TO-NAT V) (LENGTH V)) V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 FIRSTN-LENGTH . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V-OF-V-TO-NAT-GENERAL . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 LENGTH . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-OF-V-TO-NAT) (IMMEDIATE-DEPENDENTS0 BVP . NAT-TO-V-OF-V-TO-NAT) (LEMMAS NAT-TO-V . NAT-TO-V-OF-V-TO-NAT))))) (PUT1-LST (QUOTE FIRSTN-LENGTH) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (FIRSTN-LENGTH-OFF NAT-TO-V-OF-V-TO-NAT) EVENT (PROVE-LEMMA FIRSTN-LENGTH (REWRITE) (IMPLIES (PROPERP X) (EQUAL (FIRSTN (LENGTH X) X) X)) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-LENGTH) (IMMEDIATE-DEPENDENTS0 PROPERP . FIRSTN-LENGTH) (LEMMAS FIRSTN . FIRSTN-LENGTH))))) (PUT1-LST (QUOTE NAT-TO-V-OF-V-TO-NAT-GENERAL) (QUOTE (IDATE 1000402194954 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-OF-V-TO-NAT-GENERAL-OFF NAT-TO-V-OF-V-TO-NAT) EVENT (PROVE-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL (REWRITE) (IMPLIES (AND (BVP V) (NOT (LESSP (LENGTH V) N))) (EQUAL (NAT-TO-V (V-TO-NAT V) N) (FIRSTN N V))) ((ENABLE V-TO-NAT NAT-TO-V) (INDUCT (FIRSTN N V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 FIRSTN-NLISTP . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 FIRSTN-ADD1-CONS . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 BOOLP . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 BVP-CONS . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 BVP-CDR . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 PLUS-0 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 FIRSTN-ZEROP . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 FIRSTN . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 LENGTH . NAT-TO-V-OF-V-TO-NAT-GENERAL) (IMMEDIATE-DEPENDENTS0 BVP . NAT-TO-V-OF-V-TO-NAT-GENERAL) (LEMMAS NAT-TO-V . NAT-TO-V-OF-V-TO-NAT-GENERAL))))) (PUT1-LST (QUOTE FIRSTN-NLISTP) (QUOTE (IDATE 1000402194953 IMMEDIATE-DEPENDENTS0 (FIRSTN-NLISTP-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL) EVENT (PROVE-LEMMA FIRSTN-NLISTP (REWRITE) (IMPLIES (NLISTP X) (EQUAL (FIRSTN N X) (QUOTE NIL))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-BOTTOM . FIRSTN-NLISTP) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-NLISTP) (LEMMAS FIRSTN . FIRSTN-NLISTP))))) (PUT1-LST (QUOTE FIRSTN-ZEROP) (QUOTE (IDATE 1000402194953 IMMEDIATE-DEPENDENTS0 (FIRSTN-ZEROP-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL) EVENT (PROVE-LEMMA FIRSTN-ZEROP (REWRITE) (IMPLIES (ZEROP N) (EQUAL (FIRSTN N X) (QUOTE NIL))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-BOTTOM . FIRSTN-ZEROP) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-ZEROP) (LEMMAS FIRSTN . FIRSTN-ZEROP))))) (PUT1-LST (QUOTE FIRSTN-ADD1-CONS) (QUOTE (IDATE 1000402194953 IMMEDIATE-DEPENDENTS0 (FIRSTN-ADD1-CONS-OFF NAT-TO-V-OF-V-TO-NAT-GENERAL) EVENT (PROVE-LEMMA FIRSTN-ADD1-CONS (REWRITE) (EQUAL (FIRSTN (ADD1 N) (CONS A X)) (CONS A (FIRSTN N X))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-ADD1-CONS) (LEMMAS FIRSTN . FIRSTN-ADD1-CONS))))) (PUT1-LST (QUOTE NAT-TO-V-PLUS-X-X) (QUOTE (IDATE 1000402194953 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-PLUS-X-X-OFF) EVENT (PROVE-LEMMA NAT-TO-V-PLUS-X-X (REWRITE) (EQUAL (NAT-TO-V (PLUS X X) (ADD1 N)) (CONS (QUOTE *1*FALSE) (NAT-TO-V X N))) ((ENABLE NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . NAT-TO-V-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . NAT-TO-V-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NAT-TO-V-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-X-X-2 . NAT-TO-V-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-X-X-2 . NAT-TO-V-PLUS-X-X) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-PLUS-X-X) (LEMMAS NAT-TO-V . NAT-TO-V-PLUS-X-X))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-X-X-2) (QUOTE (IDATE 1000402194953 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 QUOTIENT-PLUS-X-X-2-OFF V-ALU-CORRECT-INT-ASR-OUTPUT IPLUS-DIV-HACK1 PLUS-QUOTIENT-2-LEMMA V-ALU-CORRECT-NAT-LSR-OUTPUT NAT-TO-V-REMAINDER NAT-TO-V-OF-V-TO-NAT-GENERAL NAT-TO-V-PLUS-X-X) EVENT (PROVE-LEMMA QUOTIENT-PLUS-X-X-2 (REWRITE) (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (FIX X)) ((INDUCT (PLUS X Q)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . QUOTIENT-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . QUOTIENT-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . QUOTIENT-PLUS-X-X-2) (LEMMAS QUOTIENT . QUOTIENT-PLUS-X-X-2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-X-X-2) (QUOTE (IDATE 1000402194952 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-X-X-2-OFF V-ALU-CORRECT-INT-ASR-OUTPUT IPLUS-DIV-HACK1 PLUS-QUOTIENT-2-LEMMA V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT NAT-TO-V-REMAINDER NAT-TO-V-OF-V-TO-NAT-GENERAL NAT-TO-V-PLUS-X-X) EVENT (PROVE-LEMMA REMAINDER-PLUS-X-X-2 (REWRITE) (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0)) ((INDUCT (PLUS X Q)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . REMAINDER-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . REMAINDER-PLUS-X-X-2) (IMMEDIATE-DEPENDENTS0 PLUS-0 . REMAINDER-PLUS-X-X-2) (LEMMAS REMAINDER . REMAINDER-PLUS-X-X-2))))) (PUT1-LST (QUOTE V-TO-NAT-OF-NAT-TO-V) (QUOTE (IDATE 1000402194952 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY V-TO-NAT-OF-NAT-TO-V-ON V-TO-NAT-OF-NAT-TO-V-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-TO-INT-V-NOT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT EQUAL-NAT-TO-V-INVERTER-HACK1) EVENT (PROVE-LEMMA V-TO-NAT-OF-NAT-TO-V (REWRITE) (EQUAL (V-TO-NAT (NAT-TO-V N LEN)) (REMAINDER N (EXP (QUOTE 2) LEN))) ((ENABLE V-TO-NAT NAT-TO-V) (INDUCT (NAT-TO-V N LEN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVIDES-PLUS-PLUS . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-OF-NAT-TO-V-HACK . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-TO-NAT-OF-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-OF-NAT-TO-V) (LEMMAS V-TO-NAT . V-TO-NAT-OF-NAT-TO-V))))) (PUT1-LST (QUOTE V-TO-NAT-OF-NAT-TO-V-HACK) (QUOTE (IDATE 1000402194949 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-OF-NAT-TO-V-HACK-OFF V-TO-NAT-OF-NAT-TO-V) EVENT (PROVE-LEMMA V-TO-NAT-OF-NAT-TO-V-HACK (REWRITE) (IMPLIES (LESSP V (EXP (QUOTE 2) X)) (EQUAL (REMAINDER (ADD1 (PLUS V (PLUS V (PLUS (TIMES W (EXP (QUOTE 2) X)) (TIMES W (EXP (QUOTE 2) X)))))) (PLUS (EXP (QUOTE 2) X) (EXP (QUOTE 2) X))) (ADD1 (PLUS V V)))) ((USE (REMAINDER-PLUS-MULTIPLE (Y1 (PLUS (EXP (QUOTE 2) X) (EXP (QUOTE 2) X))) (Z1 (ADD1 (PLUS V V))) (A (PLUS (TIMES W (EXP (QUOTE 2) X)) (TIMES W (EXP (QUOTE 2) X)))))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO NATURALS) (ENABLE DIVIDES-PLUS-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 DIVIDES-PLUS-PLUS . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 NATURALS . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-MULTIPLE . V-TO-NAT-OF-NAT-TO-V-HACK) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-OF-NAT-TO-V-HACK) (LEMMAS REMAINDER . V-TO-NAT-OF-NAT-TO-V-HACK))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK2-OFF) (QUOTE (IDATE 1000402194948 EVENT (TOGGLE V-TO-NAT-FIRSTN-HACK2-OFF V-TO-NAT-FIRSTN-HACK2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK2 . V-TO-NAT-FIRSTN-HACK2-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK2-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK1-OFF) (QUOTE (IDATE 1000402194948 EVENT (TOGGLE V-TO-NAT-FIRSTN-HACK1-OFF V-TO-NAT-FIRSTN-HACK1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK1 . V-TO-NAT-FIRSTN-HACK1-OFF) (DISABLED-LEMMAS NIL V-TO-NAT-FIRSTN-HACK1 V-TO-NAT-FIRSTN-HACK1-OFF . T))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN) (QUOTE (IDATE 1000402194948 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-FIRSTN-OFF V-ALU-CORRECT-NAT-ADDER-OUTPUT) EVENT (PROVE-LEMMA V-TO-NAT-FIRSTN (REWRITE) (EQUAL (V-TO-NAT (FIRSTN N V)) (REMAINDER (V-TO-NAT V) (EXP (QUOTE 2) N))) ((ENABLE V-TO-NAT FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK2 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-FIRSTN-HACK1 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 EXP . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . V-TO-NAT-FIRSTN) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-FIRSTN) (LEMMAS V-TO-NAT . V-TO-NAT-FIRSTN))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK2) (QUOTE (IDATE 1000402194947 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-FIRSTN-HACK2-ON V-TO-NAT-FIRSTN-HACK2-OFF V-TO-NAT-FIRSTN) EVENT (PROVE-LEMMA V-TO-NAT-FIRSTN-HACK2 (REWRITE) (IMPLIES (LESSP Z Y) (EQUAL (REMAINDER (ADD1 (PLUS Z (PLUS Z (PLUS (TIMES D Y) (TIMES D Y))))) (PLUS Y Y)) (ADD1 (PLUS Z Z)))) ((USE (REMAINDER-ADD1-PLUS-MULTIPLE (Y1 (PLUS Y Y)) (Z1 (PLUS Z Z)) (A (PLUS (TIMES D Y) (TIMES D Y))))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO NATURALS) (ENABLE DIVIDES-PLUS-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . V-TO-NAT-FIRSTN-HACK2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . V-TO-NAT-FIRSTN-HACK2) (IMMEDIATE-DEPENDENTS0 DIVIDES-PLUS-PLUS . V-TO-NAT-FIRSTN-HACK2) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-FIRSTN-HACK2) (IMMEDIATE-DEPENDENTS0 NATURALS . V-TO-NAT-FIRSTN-HACK2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1-PLUS-MULTIPLE . V-TO-NAT-FIRSTN-HACK2) (LEMMAS REMAINDER . V-TO-NAT-FIRSTN-HACK2))))) (PUT1-LST (QUOTE REMAINDER-ADD1-PLUS-MULTIPLE) (QUOTE (IDATE 1000402194946 IMMEDIATE-DEPENDENTS0 (REMAINDER-ADD1-PLUS-MULTIPLE-OFF V-TO-NAT-FIRSTN-HACK2) EVENT (PROVE-LEMMA REMAINDER-ADD1-PLUS-MULTIPLE NIL (IMPLIES (AND (LESSP (ADD1 Z1) Y1) (EQUAL (REMAINDER A Y1) (QUOTE 0))) (EQUAL (REMAINDER (ADD1 (PLUS Z1 A)) Y1) (ADD1 Z1))) ((USE (REMAINDER-PLUS-MULTIPLE (Z1 (ADD1 Z1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-ADD1-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-MULTIPLE . REMAINDER-ADD1-PLUS-MULTIPLE))))) (PUT1-LST (QUOTE V-TO-NAT-FIRSTN-HACK1) (QUOTE (IDATE 1000402194946 IMMEDIATE-DEPENDENTS0 (V-TO-NAT-FIRSTN-HACK1-ON V-TO-NAT-FIRSTN-HACK1-OFF V-TO-NAT-FIRSTN) EVENT (PROVE-LEMMA V-TO-NAT-FIRSTN-HACK1 (REWRITE) (IMPLIES (LESSP Z Y) (EQUAL (REMAINDER (PLUS Z (PLUS Z (PLUS (TIMES W Y) (TIMES W Y)))) (PLUS Y Y)) (PLUS Z Z))) ((USE (REMAINDER-PLUS-MULTIPLE (Y1 (PLUS Y Y)) (Z1 (PLUS Z Z)) (A (PLUS (TIMES W Y) (TIMES W Y))))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO NATURALS) (ENABLE DIVIDES-PLUS-PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 DIVIDES-PLUS-PLUS . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 NATURALS . V-TO-NAT-FIRSTN-HACK1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-MULTIPLE . V-TO-NAT-FIRSTN-HACK1) (LEMMAS REMAINDER . V-TO-NAT-FIRSTN-HACK1))))) (PUT1-LST (QUOTE DIVIDES-PLUS-PLUS) (QUOTE (IDATE 1000402194946 IMMEDIATE-DEPENDENTS0 (DIVIDES-PLUS-PLUS-OFF V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK1) EVENT (PROVE-LEMMA DIVIDES-PLUS-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER X Y) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X X) (PLUS Y Y)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTES . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVIDES-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVIDES-PLUS-PLUS) (LEMMAS REMAINDER . DIVIDES-PLUS-PLUS))))) (PUT1-LST (QUOTE REMAINDER-PLUS-MULTIPLE) (QUOTE (IDATE 1000402194946 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-MULTIPLE-OFF V-TO-NAT-OF-NAT-TO-V-HACK REMAINDER-ADD1-PLUS-MULTIPLE V-TO-NAT-FIRSTN-HACK1) EVENT (PROVE-LEMMA REMAINDER-PLUS-MULTIPLE NIL (IMPLIES (AND (LESSP Z1 Y1) (EQUAL (REMAINDER A Y1) (QUOTE 0))) (EQUAL (REMAINDER (PLUS Z1 A) Y1) (FIX Z1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . REMAINDER-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-PLUS-MULTIPLE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-PLUS-MULTIPLE))))) (PUT1-LST (QUOTE NTH-LENGTH-V) (QUOTE (IDATE 1000402194946 IMMEDIATE-DEPENDENTS0 (NTH-LENGTH-V-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) EVENT (PROVE-LEMMA NTH-LENGTH-V (REWRITE) (IMPLIES (AND (BVP BV) (EQUAL (LENGTH BV) (ADD1 N))) (EQUAL (NTH N BV) (NOT (LESSP (V-TO-NAT BV) (EXP (QUOTE 2) N))))) ((ENABLE V-TO-NAT NTH) (INDUCT (NTH N BV)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BOOLP . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BVP-CDR . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 PLUS-0 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 TIMES-1 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BVP-CONS . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 EXP . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 NTH . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 LENGTH . NTH-LENGTH-V) (IMMEDIATE-DEPENDENTS0 BVP . NTH-LENGTH-V) (LEMMAS NTH . NTH-LENGTH-V))))) (PUT1-LST (QUOTE V-ALU-CORRECT-NAT-INT-BUF) (QUOTE (IDATE 1000402194945 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-INT-BUF-ON V-ALU-CORRECT-NAT-INT-BUF-OFF V-ALU-CORRECT-INT V-ALU-CORRECT-NAT) EVENT (PROVE-LEMMA V-ALU-CORRECT-NAT-INT-BUF (REWRITE) (IMPLIES (BVP A) (EQUAL (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)) (V-ALU-NAT-INT-BUF A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . V-ALU-CORRECT-NAT-INT-BUF) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ALU-CORRECT-NAT-INT-BUF) (IMMEDIATE-DEPENDENTS0 V-ALU-NAT-INT-BUF . V-ALU-CORRECT-NAT-INT-BUF) (IMMEDIATE-DEPENDENTS0 V-BUF . V-ALU-CORRECT-NAT-INT-BUF) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-CORRECT-NAT-INT-BUF) (IMMEDIATE-DEPENDENTS0 BVP . V-ALU-CORRECT-NAT-INT-BUF) (LEMMAS CVZBV . V-ALU-CORRECT-NAT-INT-BUF))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-INT-BUF) (QUOTE (MAIN-EVENT V-ALU-NAT-INT-BUF))) (PUT1-LST (QUOTE V-ALU-NAT-INT-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-NAT-INT-BUF 16 NIL)) TOTALP-LST ((V-ALU-NAT-INT-BUF . T)) SDEFN (LAMBDA (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) A)) LISP-CODE *1*V-ALU-NAT-INT-BUF SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194945 SATELLITES (*1*V-ALU-NAT-INT-BUF) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL G*1*V-ALU-NAT-INT-BUF-OFF V-ALU-NAT-INT-BUF-OFF V-ALU-INT V-ALU-NAT V-ALU-CORRECT-NAT-INT-BUF) EVENT (DEFN V-ALU-NAT-INT-BUF (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU-NAT-INT-BUF) (DCELL . *1*V-ALU-NAT-INT-BUF))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 CORRECTNESS-OF-CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 CORRECTNESS-OF-CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 CORRECTNESS-OF-CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 . T))))) (PUT1-LST (QUOTE NATURALS-METAS) (QUOTE (IDATE 1000402194945 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP) EVENT (DEFTHEORY NATURALS-METAS (CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . NATURALS-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . NATURALS-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . NATURALS-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . NATURALS-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . NATURALS-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . NATURALS-METAS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 CORRECTNESS-OF-CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-OFF1 CORRECTNESS-OF-CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-OFF1 CORRECTNESS-OF-CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-OFF1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-OFF1 CORRECTNESS-OF-CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . CORRECTNESS-OF-CANCEL-INEG-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-OFF1 . T))))) (PUT1-LST (QUOTE INTEGER-METAS) (QUOTE (IDATE 1000402194945 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP) EVENT (DEFTHEORY INTEGER-METAS (CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . INTEGER-METAS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . INTEGER-METAS))))) (PUT1-LST (QUOTE BVP-CDR) (QUOTE (IDATE 1000402194945 IMMEDIATE-DEPENDENTS0 (BVP-CDR-OFF V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V) EVENT (PROVE-LEMMA BVP-CDR (REWRITE) (IMPLIES (AND (BVP X) (LISTP X)) (BVP (CDR X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CDR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CDR) (LEMMAS BVP . BVP-CDR))))) (PUT1-LST (QUOTE V-ADDER-CARRY-OUT=V-CARRY-OFF) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE V-ADDER-CARRY-OUT=V-CARRY-OFF V-ADDER-CARRY-OUT=V-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . V-ADDER-CARRY-OUT=V-CARRY-OFF) (DISABLED-LEMMAS NIL V-ADDER-CARRY-OUT=V-CARRY V-ADDER-CARRY-OUT=V-CARRY-OFF . T))))) (PUT1-LST (QUOTE V-ADDER-OUTPUT=V-SUM-OFF) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE V-ADDER-OUTPUT=V-SUM-OFF V-ADDER-OUTPUT=V-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . V-ADDER-OUTPUT=V-SUM-OFF) (DISABLED-LEMMAS NIL V-ADDER-OUTPUT=V-SUM V-ADDER-OUTPUT=V-SUM-OFF . T))))) (PUT1-LST (QUOTE *1*B-TO-NAT) (QUOTE (MAIN-EVENT B-TO-NAT))) (PUT1-LST (QUOTE B-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((B-TO-NAT 4 NIL)) TOTALP-LST ((B-TO-NAT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA B-TO-NAT-LEQ NIL (NOT (LESSP (QUOTE 1) (B-TO-NAT X))) (B-TO-NAT X))) SDEFN (LAMBDA (C) (IF C (QUOTE 1) (QUOTE 0))) LISP-CODE *1*B-TO-NAT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194945 SATELLITES (*1*B-TO-NAT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB G*1*B-TO-NAT-OFF B-TO-NAT-OFF V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA B-TO-NAT-LEQ V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT) EVENT (DEFN B-TO-NAT (C) (IF C (QUOTE 1) (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-TO-NAT))))) (PUT1-LST (QUOTE G*1*DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*DELETE-ON *1*DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . G*1*DELETE-ON) (DISABLED-LEMMAS NIL *1*DELETE G*1*DELETE-ON))))) (PUT1-LST (QUOTE DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DELETE-ON DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-ON) (DISABLED-LEMMAS NIL DELETE DELETE-ON))))) (PUT1-LST (QUOTE G*1*BAGDIFF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*BAGDIFF-ON *1*BAGDIFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . G*1*BAGDIFF-ON) (DISABLED-LEMMAS NIL *1*BAGDIFF G*1*BAGDIFF-ON))))) (PUT1-LST (QUOTE BAGDIFF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE BAGDIFF-ON BAGDIFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . BAGDIFF-ON) (DISABLED-LEMMAS NIL BAGDIFF BAGDIFF-ON))))) (PUT1-LST (QUOTE G*1*BAGINT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*BAGINT-ON *1*BAGINT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . G*1*BAGINT-ON) (DISABLED-LEMMAS NIL *1*BAGINT G*1*BAGINT-ON))))) (PUT1-LST (QUOTE BAGINT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE BAGINT-ON BAGINT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . BAGINT-ON) (DISABLED-LEMMAS NIL BAGINT BAGINT-ON))))) (PUT1-LST (QUOTE G*1*OCCURRENCES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*OCCURRENCES-ON *1*OCCURRENCES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . G*1*OCCURRENCES-ON) (DISABLED-LEMMAS NIL *1*OCCURRENCES G*1*OCCURRENCES-ON))))) (PUT1-LST (QUOTE OCCURRENCES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE OCCURRENCES-ON OCCURRENCES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-ON) (DISABLED-LEMMAS NIL OCCURRENCES OCCURRENCES-ON))))) (PUT1-LST (QUOTE G*1*SUBBAGP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*SUBBAGP-ON *1*SUBBAGP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . G*1*SUBBAGP-ON) (DISABLED-LEMMAS NIL *1*SUBBAGP G*1*SUBBAGP-ON))))) (PUT1-LST (QUOTE SUBBAGP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-ON SUBBAGP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-ON) (DISABLED-LEMMAS NIL SUBBAGP SUBBAGP-ON))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DELETE-NON-MEMBER-ON DELETE-NON-MEMBER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-NON-MEMBER-ON) (DISABLED-LEMMAS NIL DELETE-NON-MEMBER DELETE-NON-MEMBER-ON))))) (PUT1-LST (QUOTE DELETE-DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DELETE-DELETE-ON DELETE-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-DELETE . DELETE-DELETE-ON) (DISABLED-LEMMAS NIL DELETE-DELETE DELETE-DELETE-ON))))) (PUT1-LST (QUOTE EQUAL-OCCURRENCES-ZERO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-OCCURRENCES-ZERO-ON EQUAL-OCCURRENCES-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . EQUAL-OCCURRENCES-ZERO-ON) (DISABLED-LEMMAS NIL EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-ON))))) (PUT1-LST (QUOTE MEMBER-NON-LIST-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE MEMBER-NON-LIST-ON MEMBER-NON-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-NON-LIST-ON) (DISABLED-LEMMAS NIL MEMBER-NON-LIST MEMBER-NON-LIST-ON))))) (PUT1-LST (QUOTE MEMBER-DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE MEMBER-DELETE-ON MEMBER-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . MEMBER-DELETE-ON) (DISABLED-LEMMAS NIL MEMBER-DELETE MEMBER-DELETE-ON))))) (PUT1-LST (QUOTE MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON MEMBER-DELETE-IMPLIES-MEMBERSHIP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE-IMPLIES-MEMBERSHIP . MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON) (DISABLED-LEMMAS NIL MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON))))) (PUT1-LST (QUOTE OCCURRENCES-DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE OCCURRENCES-DELETE-ON OCCURRENCES-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . OCCURRENCES-DELETE-ON) (DISABLED-LEMMAS NIL OCCURRENCES-DELETE OCCURRENCES-DELETE-ON))))) (PUT1-LST (QUOTE MEMBER-BAGDIFF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE MEMBER-BAGDIFF-ON MEMBER-BAGDIFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . MEMBER-BAGDIFF-ON) (DISABLED-LEMMAS NIL MEMBER-BAGDIFF MEMBER-BAGDIFF-ON))))) (PUT1-LST (QUOTE BAGDIFF-DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE BAGDIFF-DELETE-ON BAGDIFF-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . BAGDIFF-DELETE-ON) (DISABLED-LEMMAS NIL BAGDIFF-DELETE BAGDIFF-DELETE-ON))))) (PUT1-LST (QUOTE SUBBAGP-DELETE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-DELETE-ON SUBBAGP-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-DELETE-ON) (DISABLED-LEMMAS NIL SUBBAGP-DELETE SUBBAGP-DELETE-ON))))) (PUT1-LST (QUOTE SUBBAGP-CDR1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-CDR1-ON SUBBAGP-CDR1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR1-ON) (DISABLED-LEMMAS NIL SUBBAGP-CDR1 SUBBAGP-CDR1-ON))))) (PUT1-LST (QUOTE SUBBAGP-CDR2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-CDR2-ON SUBBAGP-CDR2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-CDR2-ON) (DISABLED-LEMMAS NIL SUBBAGP-CDR2 SUBBAGP-CDR2-ON))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-BAGINT1-ON SUBBAGP-BAGINT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . SUBBAGP-BAGINT1-ON) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-ON))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SUBBAGP-BAGINT2-ON SUBBAGP-BAGINT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . SUBBAGP-BAGINT2-ON) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-ON))))) (PUT1-LST (QUOTE OCCURRENCES-BAGINT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE OCCURRENCES-BAGINT-ON OCCURRENCES-BAGINT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGINT . OCCURRENCES-BAGINT-ON) (DISABLED-LEMMAS NIL OCCURRENCES-BAGINT OCCURRENCES-BAGINT-ON))))) (PUT1-LST (QUOTE OCCURRENCES-BAGDIFF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE OCCURRENCES-BAGDIFF-ON OCCURRENCES-BAGDIFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGDIFF . OCCURRENCES-BAGDIFF-ON) (DISABLED-LEMMAS NIL OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-ON))))) (PUT1-LST (QUOTE MEMBER-BAGINT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE MEMBER-BAGINT-ON MEMBER-BAGINT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . MEMBER-BAGINT-ON) (DISABLED-LEMMAS NIL MEMBER-BAGINT MEMBER-BAGINT-ON))))) (PUT1-LST (QUOTE EQUAL-PLUS-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-PLUS-0-ON EQUAL-PLUS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . EQUAL-PLUS-0-ON) (DISABLED-LEMMAS NIL EQUAL-PLUS-0 EQUAL-PLUS-0-ON))))) (PUT1-LST (QUOTE EQUAL-DIFFERENCE-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-DIFFERENCE-0-ON EQUAL-DIFFERENCE-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . EQUAL-DIFFERENCE-0-ON) (DISABLED-LEMMAS NIL EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY-OF-PLUS-ON COMMUTATIVITY-OF-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . COMMUTATIVITY-OF-PLUS-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY2-OF-PLUS-ON COMMUTATIVITY2-OF-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . COMMUTATIVITY2-OF-PLUS-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-ON))))) (PUT1-LST (QUOTE PLUS-ZERO-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-ZERO-ARG2-ON PLUS-ZERO-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-ZERO-ARG2-ON) (DISABLED-LEMMAS NIL PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-ON))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-ADD1-ARG1-ON PLUS-ADD1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . PLUS-ADD1-ARG1-ON) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-ON))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-ADD1-ARG2-ON PLUS-ADD1-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . PLUS-ADD1-ARG2-ON) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ASSOCIATIVITY-OF-PLUS-ON ASSOCIATIVITY-OF-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . ASSOCIATIVITY-OF-PLUS-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-ON))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-DIFFERENCE-ARG1-ON PLUS-DIFFERENCE-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . PLUS-DIFFERENCE-ARG1-ON) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-ON))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-DIFFERENCE-ARG2-ON PLUS-DIFFERENCE-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . PLUS-DIFFERENCE-ARG2-ON) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-ON))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-CANCELLATION-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-CANCELLATION-PROOF-ON) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-ON))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFF-DIFF-ARG1-ON DIFF-DIFF-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . DIFF-DIFF-ARG1-ON) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-ON))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFF-DIFF-ARG2-ON DIFF-DIFF-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . DIFF-DIFF-ARG2-ON) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-ON))))) (PUT1-LST (QUOTE G*1*PLUS-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*PLUS-FRINGE-ON *1*PLUS-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . G*1*PLUS-FRINGE-ON) (DISABLED-LEMMAS NIL *1*PLUS-FRINGE G*1*PLUS-FRINGE-ON))))) (PUT1-LST (QUOTE PLUS-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-FRINGE-ON PLUS-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-FRINGE-ON) (DISABLED-LEMMAS NIL PLUS-FRINGE PLUS-FRINGE-ON))))) (PUT1-LST (QUOTE G*1*PLUS-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*PLUS-TREE-ON *1*PLUS-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . G*1*PLUS-TREE-ON) (DISABLED-LEMMAS NIL *1*PLUS-TREE G*1*PLUS-TREE-ON))))) (PUT1-LST (QUOTE PLUS-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE PLUS-TREE-ON PLUS-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-ON) (DISABLED-LEMMAS NIL PLUS-TREE PLUS-TREE-ON))))) (PUT1-LST (QUOTE EVAL$-QUOTE-ON1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-QUOTE-ON1 EVAL$-QUOTE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-QUOTE-ON1) (DISABLED-LEMMAS NIL EVAL$-QUOTE EVAL$-QUOTE-ON1))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-EQUAL-PLUS-ON *1*CANCEL-EQUAL-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . G*1*CANCEL-EQUAL-PLUS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-ON))))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-EQUAL-PLUS-ON CANCEL-EQUAL-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CANCEL-EQUAL-PLUS-ON) (DISABLED-LEMMAS NIL CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON CORRECTNESS-OF-CANCEL-EQUAL-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-DIFFERENCE-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-DIFFERENCE-PLUS-ON *1*CANCEL-DIFFERENCE-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . G*1*CANCEL-DIFFERENCE-PLUS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-ON))))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-DIFFERENCE-PLUS-ON CANCEL-DIFFERENCE-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CANCEL-DIFFERENCE-PLUS-ON) (DISABLED-LEMMAS NIL CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON))))) (PUT1-LST (QUOTE DIFFERENCE-ELIM-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-ELIM-ON DIFFERENCE-ELIM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . DIFFERENCE-ELIM-ON) (DISABLED-LEMMAS NIL DIFFERENCE-ELIM DIFFERENCE-ELIM-ON))))) (PUT1-LST (QUOTE DIFFERENCE-LEQ-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-LEQ-ARG1-ON DIFFERENCE-LEQ-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . DIFFERENCE-LEQ-ARG1-ON) (DISABLED-LEMMAS NIL DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-ON))))) (PUT1-LST (QUOTE DIFFERENCE-ADD1-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-ADD1-ARG2-ON DIFFERENCE-ADD1-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . DIFFERENCE-ADD1-ARG2-ON) (DISABLED-LEMMAS NIL DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-ON))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-SUB1-ARG2-ON DIFFERENCE-SUB1-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . DIFFERENCE-SUB1-ARG2-ON) (DISABLED-LEMMAS NIL DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-ON))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG1-ON DIFFERENCE-DIFFERENCE-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . DIFFERENCE-DIFFERENCE-ARG1-ON) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-ON))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG2-ON DIFFERENCE-DIFFERENCE-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . DIFFERENCE-DIFFERENCE-ARG2-ON) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-ON))))) (PUT1-LST (QUOTE DIFFERENCE-X-X-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DIFFERENCE-X-X-ON DIFFERENCE-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIFFERENCE-X-X-ON) (DISABLED-LEMMAS NIL DIFFERENCE-X-X DIFFERENCE-X-X-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-LESSP-PLUS-ON *1*CANCEL-LESSP-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . G*1*CANCEL-LESSP-PLUS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-ON))))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-LESSP-PLUS-ON CANCEL-LESSP-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CANCEL-LESSP-PLUS-ON) (DISABLED-LEMMAS NIL CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON CORRECTNESS-OF-CANCEL-LESSP-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON))))) (PUT1-LST (QUOTE EQUAL-TIMES-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-TIMES-0-ON EQUAL-TIMES-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-TIMES-0-ON) (DISABLED-LEMMAS NIL EQUAL-TIMES-0 EQUAL-TIMES-0-ON))))) (PUT1-LST (QUOTE EQUAL-TIMES-1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-TIMES-1-ON EQUAL-TIMES-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . EQUAL-TIMES-1-ON) (DISABLED-LEMMAS NIL EQUAL-TIMES-1 EQUAL-TIMES-1-ON))))) (PUT1-LST (QUOTE EQUAL-SUB1-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-SUB1-0-ON EQUAL-SUB1-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . EQUAL-SUB1-0-ON) (DISABLED-LEMMAS NIL EQUAL-SUB1-0 EQUAL-SUB1-0-ON))))) (PUT1-LST (QUOTE TIMES-ZERO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-ZERO-ON TIMES-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ZERO-ON) (DISABLED-LEMMAS NIL TIMES-ZERO TIMES-ZERO-ON))))) (PUT1-LST (QUOTE TIMES-ADD1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-ADD1-ON TIMES-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-ADD1-ON) (DISABLED-LEMMAS NIL TIMES-ADD1 TIMES-ADD1-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY-OF-TIMES-ON COMMUTATIVITY-OF-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY-OF-TIMES-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-ON))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON TIMES-DISTRIBUTES-OVER-PLUS-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS-PROOF . TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-ON TIMES-DISTRIBUTES-OVER-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . TIMES-DISTRIBUTES-OVER-PLUS-ON) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY2-OF-TIMES-ON COMMUTATIVITY2-OF-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . COMMUTATIVITY2-OF-TIMES-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ASSOCIATIVITY-OF-TIMES-ON ASSOCIATIVITY-OF-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . ASSOCIATIVITY-OF-TIMES-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-ON))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-QUOTIENT-PROOF-ON TIMES-QUOTIENT-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT-PROOF . TIMES-QUOTIENT-PROOF-ON) (DISABLED-LEMMAS NIL TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-ON))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-QUOTIENT-ON TIMES-QUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . TIMES-QUOTIENT-ON) (DISABLED-LEMMAS NIL TIMES-QUOTIENT TIMES-QUOTIENT-ON))))) (PUT1-LST (QUOTE TIMES-1-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-1-ARG1-ON TIMES-1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . TIMES-1-ARG1-ON) (DISABLED-LEMMAS NIL TIMES-1-ARG1 TIMES-1-ARG1-ON))))) (PUT1-LST (QUOTE LESSP-TIMES1-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES1-PROOF-ON LESSP-TIMES1-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1-PROOF . LESSP-TIMES1-PROOF-ON) (DISABLED-LEMMAS NIL LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-ON))))) (PUT1-LST (QUOTE LESSP-TIMES1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES1-ON LESSP-TIMES1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . LESSP-TIMES1-ON) (DISABLED-LEMMAS NIL LESSP-TIMES1 LESSP-TIMES1-ON))))) (PUT1-LST (QUOTE LESSP-TIMES2-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES2-PROOF-ON LESSP-TIMES2-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2-PROOF . LESSP-TIMES2-PROOF-ON) (DISABLED-LEMMAS NIL LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-ON))))) (PUT1-LST (QUOTE LESSP-TIMES2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES2-ON LESSP-TIMES2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . LESSP-TIMES2-ON) (DISABLED-LEMMAS NIL LESSP-TIMES2 LESSP-TIMES2-ON))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES3-PROOF1-ON LESSP-TIMES3-PROOF1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF1 . LESSP-TIMES3-PROOF1-ON) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-ON))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES3-PROOF2-ON LESSP-TIMES3-PROOF2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF2 . LESSP-TIMES3-PROOF2-ON) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-ON))))) (PUT1-LST (QUOTE LESSP-TIMES3-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES3-ON LESSP-TIMES3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3 . LESSP-TIMES3-ON) (DISABLED-LEMMAS NIL LESSP-TIMES3 LESSP-TIMES3-ON))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES-CANCELLATION-PROOF-ON LESSP-TIMES-CANCELLATION-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION-PROOF . LESSP-TIMES-CANCELLATION-PROOF-ON) (DISABLED-LEMMAS NIL LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-ON))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-PLUS-TIMES-PROOF-ON LESSP-PLUS-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . LESSP-PLUS-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-PLUS-TIMES1-ON LESSP-PLUS-TIMES1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . LESSP-PLUS-TIMES1-ON) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-ON))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-PLUS-TIMES2-ON LESSP-PLUS-TIMES2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . LESSP-PLUS-TIMES2-ON) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-ON))))) (PUT1-LST (QUOTE LESSP-1-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-1-TIMES-ON LESSP-1-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES . LESSP-1-TIMES-ON) (DISABLED-LEMMAS NIL LESSP-1-TIMES LESSP-1-TIMES-ON))))) (PUT1-LST (QUOTE G*1*TIMES-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*TIMES-TREE-ON *1*TIMES-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . G*1*TIMES-TREE-ON) (DISABLED-LEMMAS NIL *1*TIMES-TREE G*1*TIMES-TREE-ON))))) (PUT1-LST (QUOTE TIMES-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-TREE-ON TIMES-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-ON) (DISABLED-LEMMAS NIL TIMES-TREE TIMES-TREE-ON))))) (PUT1-LST (QUOTE G*1*TIMES-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*TIMES-FRINGE-ON *1*TIMES-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . G*1*TIMES-FRINGE-ON) (DISABLED-LEMMAS NIL *1*TIMES-FRINGE G*1*TIMES-FRINGE-ON))))) (PUT1-LST (QUOTE TIMES-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TIMES-FRINGE-ON TIMES-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-FRINGE-ON) (DISABLED-LEMMAS NIL TIMES-FRINGE TIMES-FRINGE-ON))))) (PUT1-LST (QUOTE G*1*OR-ZEROP-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*OR-ZEROP-TREE-ON *1*OR-ZEROP-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . G*1*OR-ZEROP-TREE-ON) (DISABLED-LEMMAS NIL *1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-ON))))) (PUT1-LST (QUOTE OR-ZEROP-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE OR-ZEROP-TREE-ON OR-ZEROP-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . OR-ZEROP-TREE-ON) (DISABLED-LEMMAS NIL OR-ZEROP-TREE OR-ZEROP-TREE-ON))))) (PUT1-LST (QUOTE G*1*AND-NOT-ZEROP-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*AND-NOT-ZEROP-TREE-ON *1*AND-NOT-ZEROP-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . G*1*AND-NOT-ZEROP-TREE-ON) (DISABLED-LEMMAS NIL *1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-ON))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE AND-NOT-ZEROP-TREE-ON AND-NOT-ZEROP-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-ON) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-ON))))) (PUT1-LST (QUOTE EVAL$-EQUAL-ON1) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-EQUAL-ON1 EVAL$-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . EVAL$-EQUAL-ON1) (DISABLED-LEMMAS NIL EVAL$-EQUAL EVAL$-EQUAL-ON1))))) (PUT1-LST (QUOTE LESSP-TIMES-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-TIMES-ARG1-ON LESSP-TIMES-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-ARG1 . LESSP-TIMES-ARG1-ON) (DISABLED-LEMMAS NIL LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-ON))))) (PUT1-LST (QUOTE INFER-EQUALITY-FROM-NOT-LESSP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INFER-EQUALITY-FROM-NOT-LESSP-ON INFER-EQUALITY-FROM-NOT-LESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INFER-EQUALITY-FROM-NOT-LESSP . INFER-EQUALITY-FROM-NOT-LESSP-ON) (DISABLED-LEMMAS NIL INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-LESSP-TIMES-ON *1*CANCEL-LESSP-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . G*1*CANCEL-LESSP-TIMES-ON) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-ON))))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-LESSP-TIMES-ON CANCEL-LESSP-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CANCEL-LESSP-TIMES-ON) (DISABLED-LEMMAS NIL CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON CORRECTNESS-OF-CANCEL-LESSP-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-EQUAL-TIMES-ON *1*CANCEL-EQUAL-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . G*1*CANCEL-EQUAL-TIMES-ON) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-ON))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-EQUAL-TIMES-ON CANCEL-EQUAL-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CANCEL-EQUAL-TIMES-ON) (DISABLED-LEMMAS NIL CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON CORRECTNESS-OF-CANCEL-EQUAL-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON))))) (PUT1-LST (QUOTE LESSP-REMAINDER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-REMAINDER-ON LESSP-REMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LESSP-REMAINDER-ON) (DISABLED-LEMMAS NIL LESSP-REMAINDER LESSP-REMAINDER-ON))))) (PUT1-LST (QUOTE REMAINDER-NOOP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-NOOP-ON REMAINDER-NOOP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-NOOP-ON) (DISABLED-LEMMAS NIL REMAINDER-NOOP REMAINDER-NOOP-ON))))) (PUT1-LST (QUOTE REMAINDER-OF-NON-NUMBER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-OF-NON-NUMBER-ON REMAINDER-OF-NON-NUMBER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-OF-NON-NUMBER-ON) (DISABLED-LEMMAS NIL REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-ON))))) (PUT1-LST (QUOTE REMAINDER-ZERO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-ZERO-ON REMAINDER-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-ZERO-ON) (DISABLED-LEMMAS NIL REMAINDER-ZERO REMAINDER-ZERO-ON))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-QUOTIENT-ELIM-ON REMAINDER-QUOTIENT-ELIM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-QUOTIENT-ELIM-ON) (DISABLED-LEMMAS NIL REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-ON))))) (PUT1-LST (QUOTE REMAINDER-ADD1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-ADD1-ON REMAINDER-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-ADD1-ON) (DISABLED-LEMMAS NIL REMAINDER-ADD1 REMAINDER-ADD1-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-PROOF-ON REMAINDER-PLUS-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PROOF . REMAINDER-PLUS-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-ON REMAINDER-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-PLUS-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS REMAINDER-PLUS-ON))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-PROOF-ON EQUAL-REMAINDER-PLUS-0-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0-PROOF . EQUAL-REMAINDER-PLUS-0-PROOF-ON) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-ON))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-ON EQUAL-REMAINDER-PLUS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . EQUAL-REMAINDER-PLUS-0-ON) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-ON))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON EQUAL-REMAINDER-PLUS-REMAINDER-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES1-PROOF-ON REMAINDER-TIMES1-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-PROOF . REMAINDER-TIMES1-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES1-ON REMAINDER-TIMES1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . REMAINDER-TIMES1-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES1 REMAINDER-TIMES1-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-PROOF-ON REMAINDER-TIMES1-INSTANCE-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE-PROOF . REMAINDER-TIMES1-INSTANCE-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-ON REMAINDER-TIMES1-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-TIMES1-INSTANCE-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES-TIMES-PROOF-ON REMAINDER-TIMES-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES-PROOF . REMAINDER-TIMES-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES2-PROOF-ON REMAINDER-TIMES2-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-PROOF . REMAINDER-TIMES2-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES2-ON REMAINDER-TIMES2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . REMAINDER-TIMES2-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES2 REMAINDER-TIMES2-ON))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-TIMES2-INSTANCE-ON REMAINDER-TIMES2-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDER-TIMES2-INSTANCE-ON) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-ON))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-DIFFERENCE1-ON REMAINDER-DIFFERENCE1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . REMAINDER-DIFFERENCE1-ON) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-ON))))) (PUT1-LST (QUOTE G*1*DOUBLE-REMAINDER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*DOUBLE-REMAINDER-INDUCTION-ON *1*DOUBLE-REMAINDER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . G*1*DOUBLE-REMAINDER-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLE-REMAINDER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DOUBLE-REMAINDER-INDUCTION-ON DOUBLE-REMAINDER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . DOUBLE-REMAINDER-INDUCTION-ON) (DISABLED-LEMMAS NIL DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-ON))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-DIFFERENCE2-ON REMAINDER-DIFFERENCE2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . REMAINDER-DIFFERENCE2-ON) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-FACT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-FACT-ON REMAINDER-PLUS-FACT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-FACT . REMAINDER-PLUS-FACT-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-PROOF-ON REMAINDER-PLUS-TIMES-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-PROOF . REMAINDER-PLUS-TIMES-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-ON REMAINDER-PLUS-TIMES-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . REMAINDER-PLUS-TIMES-TIMES-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-ON))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON REMAINDER-PLUS-TIMES-TIMES-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-REMAINDER-ON REMAINDER-REMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . REMAINDER-REMAINDER-ON) (DISABLED-LEMMAS NIL REMAINDER-REMAINDER REMAINDER-REMAINDER-ON))))) (PUT1-LST (QUOTE REMAINDER-1-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-1-ARG1-ON REMAINDER-1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . REMAINDER-1-ARG1-ON) (DISABLED-LEMMAS NIL REMAINDER-1-ARG1 REMAINDER-1-ARG1-ON))))) (PUT1-LST (QUOTE REMAINDER-1-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-1-ARG2-ON REMAINDER-1-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . REMAINDER-1-ARG2-ON) (DISABLED-LEMMAS NIL REMAINDER-1-ARG2 REMAINDER-1-ARG2-ON))))) (PUT1-LST (QUOTE REMAINDER-X-X-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-X-X-ON REMAINDER-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-X-X-ON) (DISABLED-LEMMAS NIL REMAINDER-X-X REMAINDER-X-X-ON))))) (PUT1-LST (QUOTE TRANSITIVITY-OF-DIVIDES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE TRANSITIVITY-OF-DIVIDES-ON TRANSITIVITY-OF-DIVIDES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . TRANSITIVITY-OF-DIVIDES-ON) (DISABLED-LEMMAS NIL TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-ON))))) (PUT1-LST (QUOTE QUOTIENT-NOOP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-NOOP-ON QUOTIENT-NOOP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . QUOTIENT-NOOP-ON) (DISABLED-LEMMAS NIL QUOTIENT-NOOP QUOTIENT-NOOP-ON))))) (PUT1-LST (QUOTE QUOTIENT-OF-NON-NUMBER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-OF-NON-NUMBER-ON QUOTIENT-OF-NON-NUMBER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . QUOTIENT-OF-NON-NUMBER-ON) (DISABLED-LEMMAS NIL QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-ON))))) (PUT1-LST (QUOTE QUOTIENT-ZERO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-ZERO-ON QUOTIENT-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-ZERO-ON) (DISABLED-LEMMAS NIL QUOTIENT-ZERO QUOTIENT-ZERO-ON))))) (PUT1-LST (QUOTE QUOTIENT-ADD1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-ADD1-ON QUOTIENT-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENT-ADD1-ON) (DISABLED-LEMMAS NIL QUOTIENT-ADD1 QUOTIENT-ADD1-ON))))) (PUT1-LST (QUOTE EQUAL-QUOTIENT-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-QUOTIENT-0-ON EQUAL-QUOTIENT-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . EQUAL-QUOTIENT-0-ON) (DISABLED-LEMMAS NIL EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-ON))))) (PUT1-LST (QUOTE QUOTIENT-SUB1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-SUB1-ON QUOTIENT-SUB1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . QUOTIENT-SUB1-ON) (DISABLED-LEMMAS NIL QUOTIENT-SUB1 QUOTIENT-SUB1-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-PROOF-ON QUOTIENT-PLUS-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PROOF . QUOTIENT-PLUS-PROOF-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-ON QUOTIENT-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-PLUS-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS QUOTIENT-PLUS-ON))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON QUOTIENT-TIMES-INSTANCE-TEMP-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-TIMES-PROOF-ON QUOTIENT-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-PROOF . QUOTIENT-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-TIMES-ON QUOTIENT-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-ON) (DISABLED-LEMMAS NIL QUOTIENT-TIMES QUOTIENT-TIMES-ON))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-ON QUOTIENT-TIMES-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-TIMES-INSTANCE-ON) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-ON))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-TIMES-TIMES-PROOF-ON QUOTIENT-TIMES-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES-PROOF . QUOTIENT-TIMES-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-DIFFERENCE1-ON QUOTIENT-DIFFERENCE1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE1 . QUOTIENT-DIFFERENCE1-ON) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-ON))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-LESSP-ARG1-ON QUOTIENT-LESSP-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-LESSP-ARG1-ON) (DISABLED-LEMMAS NIL QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-ON))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-DIFFERENCE2-ON QUOTIENT-DIFFERENCE2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . QUOTIENT-DIFFERENCE2-ON) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-ON))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE3-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-DIFFERENCE3-ON QUOTIENT-DIFFERENCE3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . QUOTIENT-DIFFERENCE3-ON) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-ON))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-REMAINDER-TIMES-ON QUOTIENT-REMAINDER-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-TIMES . QUOTIENT-REMAINDER-TIMES-ON) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-ON))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-REMAINDER-ON QUOTIENT-REMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . QUOTIENT-REMAINDER-ON) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER QUOTIENT-REMAINDER-ON))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-REMAINDER-INSTANCE-ON QUOTIENT-REMAINDER-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-INSTANCE . QUOTIENT-REMAINDER-INSTANCE-ON) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-FACT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-FACT-ON QUOTIENT-PLUS-FACT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-FACT . QUOTIENT-PLUS-FACT-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON QUOTIENT-PLUS-TIMES-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-PROOF . QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-ON QUOTIENT-PLUS-TIMES-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENT-PLUS-TIMES-TIMES-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-ON))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON QUOTIENT-PLUS-TIMES-TIMES-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-QUOTIENT-ON QUOTIENT-QUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . QUOTIENT-QUOTIENT-ON) (DISABLED-LEMMAS NIL QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-ON))))) (PUT1-LST (QUOTE LEQ-QUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LEQ-QUOTIENT-ON LEQ-QUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-QUOTIENT . LEQ-QUOTIENT-ON) (DISABLED-LEMMAS NIL LEQ-QUOTIENT LEQ-QUOTIENT-ON))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-1-ARG2-ON QUOTIENT-1-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . QUOTIENT-1-ARG2-ON) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-ON))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-CASESPLIT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-1-ARG1-CASESPLIT-ON QUOTIENT-1-ARG1-CASESPLIT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1-CASESPLIT . QUOTIENT-1-ARG1-CASESPLIT-ON) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-ON))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-1-ARG1-ON QUOTIENT-1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1 . QUOTIENT-1-ARG1-ON) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-ON))))) (PUT1-LST (QUOTE QUOTIENT-X-X-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-X-X-ON QUOTIENT-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-X-X-ON) (DISABLED-LEMMAS NIL QUOTIENT-X-X QUOTIENT-X-X-ON))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-QUOTIENT-ON LESSP-QUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . LESSP-QUOTIENT-ON) (DISABLED-LEMMAS NIL LESSP-QUOTIENT LESSP-QUOTIENT-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-QUOTIENT-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-QUOTIENT-TIMES-ON *1*CANCEL-QUOTIENT-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . G*1*CANCEL-QUOTIENT-TIMES-ON) (DISABLED-LEMMAS NIL *1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-ON))))) (PUT1-LST (QUOTE CANCEL-QUOTIENT-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-QUOTIENT-TIMES-ON CANCEL-QUOTIENT-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . CANCEL-QUOTIENT-TIMES-ON) (DISABLED-LEMMAS NIL CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON))))) (PUT1-LST (QUOTE G*1*EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*EXP-ON *1*EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . G*1*EXP-ON) (DISABLED-LEMMAS NIL *1*EXP G*1*EXP-ON))))) (PUT1-LST (QUOTE EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-ON EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-ON) (DISABLED-LEMMAS NIL EXP EXP-ON))))) (PUT1-LST (QUOTE G*1*LOG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*LOG-ON *1*LOG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . G*1*LOG-ON) (DISABLED-LEMMAS NIL *1*LOG G*1*LOG-ON))))) (PUT1-LST (QUOTE LOG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-ON LOG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-ON) (DISABLED-LEMMAS NIL LOG LOG-ON))))) (PUT1-LST (QUOTE G*1*GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*GCD-ON *1*GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . G*1*GCD-ON) (DISABLED-LEMMAS NIL *1*GCD G*1*GCD-ON))))) (PUT1-LST (QUOTE GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-ON GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . GCD-ON) (DISABLED-LEMMAS NIL GCD GCD-ON))))) (PUT1-LST (QUOTE REMAINDER-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-EXP-ON REMAINDER-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . REMAINDER-EXP-ON) (DISABLED-LEMMAS NIL REMAINDER-EXP REMAINDER-EXP-ON))))) (PUT1-LST (QUOTE G*1*DOUBLE-NUMBER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*DOUBLE-NUMBER-INDUCTION-ON *1*DOUBLE-NUMBER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . G*1*DOUBLE-NUMBER-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLE-NUMBER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DOUBLE-NUMBER-INDUCTION-ON DOUBLE-NUMBER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . DOUBLE-NUMBER-INDUCTION-ON) (DISABLED-LEMMAS NIL DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-ON))))) (PUT1-LST (QUOTE REMAINDER-EXP-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-EXP-EXP-ON REMAINDER-EXP-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP-EXP . REMAINDER-EXP-EXP-ON) (DISABLED-LEMMAS NIL REMAINDER-EXP-EXP REMAINDER-EXP-EXP-ON))))) (PUT1-LST (QUOTE QUOTIENT-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE QUOTIENT-EXP-ON QUOTIENT-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . QUOTIENT-EXP-ON) (DISABLED-LEMMAS NIL QUOTIENT-EXP QUOTIENT-EXP-ON))))) (PUT1-LST (QUOTE EXP-ZERO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-ZERO-ON EXP-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXP-ZERO-ON) (DISABLED-LEMMAS NIL EXP-ZERO EXP-ZERO-ON))))) (PUT1-LST (QUOTE EXP-ADD1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-ADD1-ON EXP-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ADD1 . EXP-ADD1-ON) (DISABLED-LEMMAS NIL EXP-ADD1 EXP-ADD1-ON))))) (PUT1-LST (QUOTE EXP-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-PLUS-ON EXP-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-PLUS-ON) (DISABLED-LEMMAS NIL EXP-PLUS EXP-PLUS-ON))))) (PUT1-LST (QUOTE EXP-0-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-0-ARG1-ON EXP-0-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG1 . EXP-0-ARG1-ON) (DISABLED-LEMMAS NIL EXP-0-ARG1 EXP-0-ARG1-ON))))) (PUT1-LST (QUOTE EXP-1-ARG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-1-ARG1-ON EXP-1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . EXP-1-ARG1-ON) (DISABLED-LEMMAS NIL EXP-1-ARG1 EXP-1-ARG1-ON))))) (PUT1-LST (QUOTE EXP-0-ARG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-0-ARG2-ON EXP-0-ARG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG2 . EXP-0-ARG2-ON) (DISABLED-LEMMAS NIL EXP-0-ARG2 EXP-0-ARG2-ON))))) (PUT1-LST (QUOTE EXP-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-TIMES-ON EXP-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-TIMES-ON) (DISABLED-LEMMAS NIL EXP-TIMES EXP-TIMES-ON))))) (PUT1-LST (QUOTE EXP-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-EXP-ON EXP-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-EXP . EXP-EXP-ON) (DISABLED-LEMMAS NIL EXP-EXP EXP-EXP-ON))))) (PUT1-LST (QUOTE EQUAL-EXP-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-EXP-0-ON EQUAL-EXP-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . EQUAL-EXP-0-ON) (DISABLED-LEMMAS NIL EQUAL-EXP-0 EQUAL-EXP-0-ON))))) (PUT1-LST (QUOTE EQUAL-EXP-1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-EXP-1-ON EQUAL-EXP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . EQUAL-EXP-1-ON) (DISABLED-LEMMAS NIL EQUAL-EXP-1 EQUAL-EXP-1-ON))))) (PUT1-LST (QUOTE EXP-DIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EXP-DIFFERENCE-ON EXP-DIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-DIFFERENCE . EXP-DIFFERENCE-ON) (DISABLED-LEMMAS NIL EXP-DIFFERENCE EXP-DIFFERENCE-ON))))) (PUT1-LST (QUOTE EQUAL-LOG-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-LOG-0-ON EQUAL-LOG-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LOG-0 . EQUAL-LOG-0-ON) (DISABLED-LEMMAS NIL EQUAL-LOG-0 EQUAL-LOG-0-ON))))) (PUT1-LST (QUOTE LOG-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-0-ON LOG-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-0 . LOG-0-ON) (DISABLED-LEMMAS NIL LOG-0 LOG-0-ON))))) (PUT1-LST (QUOTE LOG-1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-1-ON LOG-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-1 . LOG-1-ON) (DISABLED-LEMMAS NIL LOG-1 LOG-1-ON))))) (PUT1-LST (QUOTE G*1*DOUBLE-LOG-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*DOUBLE-LOG-INDUCTION-ON *1*DOUBLE-LOG-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . G*1*DOUBLE-LOG-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-ON))))) (PUT1-LST (QUOTE DOUBLE-LOG-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DOUBLE-LOG-INDUCTION-ON DOUBLE-LOG-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . DOUBLE-LOG-INDUCTION-ON) (DISABLED-LEMMAS NIL DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-ON))))) (PUT1-LST (QUOTE LEQ-LOG-LOG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LEQ-LOG-LOG-ON LEQ-LOG-LOG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-LOG-LOG . LEQ-LOG-LOG-ON) (DISABLED-LEMMAS NIL LEQ-LOG-LOG LEQ-LOG-LOG-ON))))) (PUT1-LST (QUOTE LOG-QUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-QUOTIENT-ON LOG-QUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT . LOG-QUOTIENT-ON) (DISABLED-LEMMAS NIL LOG-QUOTIENT LOG-QUOTIENT-ON))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-QUOTIENT-TIMES-PROOF-ON LOG-QUOTIENT-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES-PROOF . LOG-QUOTIENT-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-QUOTIENT-TIMES-ON LOG-QUOTIENT-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . LOG-QUOTIENT-TIMES-ON) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-ON))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-QUOTIENT-EXP-ON LOG-QUOTIENT-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-EXP . LOG-QUOTIENT-EXP-ON) (DISABLED-LEMMAS NIL LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-ON))))) (PUT1-LST (QUOTE LOG-TIMES-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-TIMES-PROOF-ON LOG-TIMES-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-PROOF . LOG-TIMES-PROOF-ON) (DISABLED-LEMMAS NIL LOG-TIMES-PROOF LOG-TIMES-PROOF-ON))))) (PUT1-LST (QUOTE LOG-TIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-TIMES-ON LOG-TIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES . LOG-TIMES-ON) (DISABLED-LEMMAS NIL LOG-TIMES LOG-TIMES-ON))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-TIMES-EXP-PROOF-ON LOG-TIMES-EXP-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP-PROOF . LOG-TIMES-EXP-PROOF-ON) (DISABLED-LEMMAS NIL LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-ON))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-TIMES-EXP-ON LOG-TIMES-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP . LOG-TIMES-EXP-ON) (DISABLED-LEMMAS NIL LOG-TIMES-EXP LOG-TIMES-EXP-ON))))) (PUT1-LST (QUOTE LOG-EXP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LOG-EXP-ON LOG-EXP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-EXP . LOG-EXP-ON) (DISABLED-LEMMAS NIL LOG-EXP LOG-EXP-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY-OF-GCD-ON COMMUTATIVITY-OF-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . COMMUTATIVITY-OF-GCD-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-ON))))) (PUT1-LST (QUOTE G*1*SINGLE-NUMBER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*SINGLE-NUMBER-INDUCTION-ON *1*SINGLE-NUMBER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . G*1*SINGLE-NUMBER-INDUCTION-ON) (DISABLED-LEMMAS NIL *1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-ON))))) (PUT1-LST (QUOTE SINGLE-NUMBER-INDUCTION-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE SINGLE-NUMBER-INDUCTION-ON SINGLE-NUMBER-INDUCTION NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . SINGLE-NUMBER-INDUCTION-ON) (DISABLED-LEMMAS NIL SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-ON))))) (PUT1-LST (QUOTE GCD-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-0-ON GCD-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-0 . GCD-0-ON) (DISABLED-LEMMAS NIL GCD-0 GCD-0-ON))))) (PUT1-LST (QUOTE GCD-1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-1-ON GCD-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-1 . GCD-1-ON) (DISABLED-LEMMAS NIL GCD-1 GCD-1-ON))))) (PUT1-LST (QUOTE EQUAL-GCD-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EQUAL-GCD-0-ON EQUAL-GCD-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . EQUAL-GCD-0-ON) (DISABLED-LEMMAS NIL EQUAL-GCD-0 EQUAL-GCD-0-ON))))) (PUT1-LST (QUOTE LESSP-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE LESSP-GCD-ON LESSP-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-GCD . LESSP-GCD-ON) (DISABLED-LEMMAS NIL LESSP-GCD LESSP-GCD-ON))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-PROOF-ON GCD-PLUS-INSTANCE-TEMP-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP-PROOF . GCD-PLUS-INSTANCE-TEMP-PROOF-ON) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-ON))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-ON GCD-PLUS-INSTANCE-TEMP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . GCD-PLUS-INSTANCE-TEMP-ON) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-ON))))) (PUT1-LST (QUOTE GCD-PLUS-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-PLUS-PROOF-ON GCD-PLUS-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-PROOF . GCD-PLUS-PROOF-ON) (DISABLED-LEMMAS NIL GCD-PLUS-PROOF GCD-PLUS-PROOF-ON))))) (PUT1-LST (QUOTE GCD-PLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-PLUS-ON GCD-PLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS . GCD-PLUS-ON) (DISABLED-LEMMAS NIL GCD-PLUS GCD-PLUS-ON))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-PLUS-INSTANCE-ON GCD-PLUS-INSTANCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE . GCD-PLUS-INSTANCE-ON) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-ON))))) (PUT1-LST (QUOTE REMAINDER-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE REMAINDER-GCD-ON REMAINDER-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . REMAINDER-GCD-ON) (DISABLED-LEMMAS NIL REMAINDER-GCD REMAINDER-GCD-ON))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON))))) (PUT1-LST (QUOTE GCD-IS-THE-GREATEST-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-IS-THE-GREATEST-ON GCD-IS-THE-GREATEST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . GCD-IS-THE-GREATEST-ON) (DISABLED-LEMMAS NIL GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-ON))))) (PUT1-LST (QUOTE COMMON-DIVISOR-DIVIDES-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMON-DIVISOR-DIVIDES-GCD-ON COMMON-DIVISOR-DIVIDES-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . COMMON-DIVISOR-DIVIDES-GCD-ON) (DISABLED-LEMMAS NIL COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON ASSOCIATIVITY-OF-GCD-ZERO-CASE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD-ZERO-CASE . ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-ON ASSOCIATIVITY-OF-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD . ASSOCIATIVITY-OF-GCD-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON COMMUTATIVITY2-OF-GCD-ZERO-CASE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD-ZERO-CASE . COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-ON COMMUTATIVITY2-OF-GCD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD . COMMUTATIVITY2-OF-GCD-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ON))))) (PUT1-LST (QUOTE GCD-X-X-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-X-X-ON GCD-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-X-X . GCD-X-X-ON) (DISABLED-LEMMAS NIL GCD-X-X GCD-X-X-ON))))) (PUT1-LST (QUOTE GCD-IDEMPOTENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE GCD-IDEMPOTENCE-ON GCD-IDEMPOTENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IDEMPOTENCE . GCD-IDEMPOTENCE-ON) (DISABLED-LEMMAS NIL GCD-IDEMPOTENCE GCD-IDEMPOTENCE-ON))))) (PUT1-LST (QUOTE G*1*INTEGERP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*INTEGERP-ON *1*INTEGERP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . G*1*INTEGERP-ON) (DISABLED-LEMMAS NIL *1*INTEGERP G*1*INTEGERP-ON))))) (PUT1-LST (QUOTE G*1*FIX-INT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*FIX-INT-ON *1*FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . G*1*FIX-INT-ON) (DISABLED-LEMMAS NIL *1*FIX-INT G*1*FIX-INT-ON))))) (PUT1-LST (QUOTE G*1*IZEROP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IZEROP-ON *1*IZEROP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . G*1*IZEROP-ON) (DISABLED-LEMMAS NIL *1*IZEROP G*1*IZEROP-ON))))) (PUT1-LST (QUOTE IZEROP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IZEROP-ON IZEROP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . IZEROP-ON) (DISABLED-LEMMAS NIL IZEROP IZEROP-ON))))) (PUT1-LST (QUOTE G*1*ILESSP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*ILESSP-ON *1*ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . G*1*ILESSP-ON) (DISABLED-LEMMAS NIL *1*ILESSP G*1*ILESSP-ON))))) (PUT1-LST (QUOTE G*1*ILEQ-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*ILEQ-ON *1*ILEQ NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . G*1*ILEQ-ON) (DISABLED-LEMMAS NIL *1*ILEQ G*1*ILEQ-ON))))) (PUT1-LST (QUOTE ILEQ-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ILEQ-ON ILEQ NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . ILEQ-ON) (DISABLED-LEMMAS NIL ILEQ ILEQ-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IPLUS-ON *1*IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . G*1*IPLUS-ON) (DISABLED-LEMMAS NIL *1*IPLUS G*1*IPLUS-ON))))) (PUT1-LST (QUOTE G*1*INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*INEG-ON *1*INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . G*1*INEG-ON) (DISABLED-LEMMAS NIL *1*INEG G*1*INEG-ON))))) (PUT1-LST (QUOTE G*1*IDIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IDIFFERENCE-ON *1*IDIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . G*1*IDIFFERENCE-ON) (DISABLED-LEMMAS NIL *1*IDIFFERENCE G*1*IDIFFERENCE-ON))))) (PUT1-LST (QUOTE IDIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IDIFFERENCE-ON IDIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-ON) (DISABLED-LEMMAS NIL IDIFFERENCE IDIFFERENCE-ON))))) (PUT1-LST (QUOTE G*1*IABS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IABS-ON *1*IABS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IABS . G*1*IABS-ON) (DISABLED-LEMMAS NIL *1*IABS G*1*IABS-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*ITIMES-ON *1*ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . G*1*ITIMES-ON) (DISABLED-LEMMAS NIL *1*ITIMES G*1*ITIMES-ON))))) (PUT1-LST (QUOTE G*1*IQUOTIENT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IQUOTIENT-ON *1*IQUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . G*1*IQUOTIENT-ON) (DISABLED-LEMMAS NIL *1*IQUOTIENT G*1*IQUOTIENT-ON))))) (PUT1-LST (QUOTE G*1*IREMAINDER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IREMAINDER-ON *1*IREMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . G*1*IREMAINDER-ON) (DISABLED-LEMMAS NIL *1*IREMAINDER G*1*IREMAINDER-ON))))) (PUT1-LST (QUOTE G*1*IDIV-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IDIV-ON *1*IDIV NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV . G*1*IDIV-ON) (DISABLED-LEMMAS NIL *1*IDIV G*1*IDIV-ON))))) (PUT1-LST (QUOTE G*1*IMOD-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IMOD-ON *1*IMOD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD . G*1*IMOD-ON) (DISABLED-LEMMAS NIL *1*IMOD G*1*IMOD-ON))))) (PUT1-LST (QUOTE G*1*IQUO-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IQUO-ON *1*IQUO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO . G*1*IQUO-ON) (DISABLED-LEMMAS NIL *1*IQUO G*1*IQUO-ON))))) (PUT1-LST (QUOTE G*1*IREM-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IREM-ON *1*IREM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM . G*1*IREM-ON) (DISABLED-LEMMAS NIL *1*IREM G*1*IREM-ON))))) (PUT1-LST (QUOTE INTEGERP-FIX-INT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-FIX-INT-ON INTEGERP-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INTEGERP-FIX-INT-ON) (DISABLED-LEMMAS NIL INTEGERP-FIX-INT INTEGERP-FIX-INT-ON))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-IPLUS-ON INTEGERP-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-IPLUS-ON) (DISABLED-LEMMAS NIL INTEGERP-IPLUS INTEGERP-IPLUS-ON))))) (PUT1-LST (QUOTE INTEGERP-IDIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-IDIFFERENCE-ON INTEGERP-IDIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IDIFFERENCE-ON) (DISABLED-LEMMAS NIL INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-ON))))) (PUT1-LST (QUOTE INTEGERP-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-INEG-ON INTEGERP-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . INTEGERP-INEG-ON) (DISABLED-LEMMAS NIL INTEGERP-INEG INTEGERP-INEG-ON))))) (PUT1-LST (QUOTE INTEGERP-IABS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-IABS-ON INTEGERP-IABS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IABS . INTEGERP-IABS-ON) (DISABLED-LEMMAS NIL INTEGERP-IABS INTEGERP-IABS-ON))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INTEGERP-ITIMES-ON INTEGERP-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERP-ITIMES-ON) (DISABLED-LEMMAS NIL INTEGERP-ITIMES INTEGERP-ITIMES-ON))))) (PUT1-LST (QUOTE FIX-INT-REMOVER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-REMOVER-ON FIX-INT-REMOVER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . FIX-INT-REMOVER-ON) (DISABLED-LEMMAS NIL FIX-INT-REMOVER FIX-INT-REMOVER-ON))))) (PUT1-LST (QUOTE FIX-INT-FIX-INT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-FIX-INT-ON FIX-INT-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . FIX-INT-FIX-INT-ON) (DISABLED-LEMMAS NIL FIX-INT-FIX-INT FIX-INT-FIX-INT-ON))))) (PUT1-LST (QUOTE FIX-INT-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-IPLUS-ON FIX-INT-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . FIX-INT-IPLUS-ON) (DISABLED-LEMMAS NIL FIX-INT-IPLUS FIX-INT-IPLUS-ON))))) (PUT1-LST (QUOTE FIX-INT-IDIFFERENCE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-IDIFFERENCE-ON FIX-INT-IDIFFERENCE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IDIFFERENCE-ON) (DISABLED-LEMMAS NIL FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-ON))))) (PUT1-LST (QUOTE FIX-INT-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-INEG-ON FIX-INT-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . FIX-INT-INEG-ON) (DISABLED-LEMMAS NIL FIX-INT-INEG FIX-INT-INEG-ON))))) (PUT1-LST (QUOTE FIX-INT-IABS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-IABS-ON FIX-INT-IABS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IABS . FIX-INT-IABS-ON) (DISABLED-LEMMAS NIL FIX-INT-IABS FIX-INT-IABS-ON))))) (PUT1-LST (QUOTE FIX-INT-ITIMES-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE FIX-INT-ITIMES-ON FIX-INT-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . FIX-INT-ITIMES-ON) (DISABLED-LEMMAS NIL FIX-INT-ITIMES FIX-INT-ITIMES-ON))))) (PUT1-LST (QUOTE INEG-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INEG-IPLUS-ON INEG-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-IPLUS . INEG-IPLUS-ON) (DISABLED-LEMMAS NIL INEG-IPLUS INEG-IPLUS-ON))))) (PUT1-LST (QUOTE INEG-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INEG-INEG-ON INEG-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-INEG . INEG-INEG-ON) (DISABLED-LEMMAS NIL INEG-INEG INEG-INEG-ON))))) (PUT1-LST (QUOTE INEG-FIX-INT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INEG-FIX-INT-ON INEG-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . INEG-FIX-INT-ON) (DISABLED-LEMMAS NIL INEG-FIX-INT INEG-FIX-INT-ON))))) (PUT1-LST (QUOTE INEG-0-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE INEG-0-ON INEG-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-0 . INEG-0-ON) (DISABLED-LEMMAS NIL INEG-0 INEG-0-ON))))) (PUT1-LST (QUOTE IPLUS-0-LEFT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-0-LEFT-ON IPLUS-0-LEFT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-0-LEFT-ON) (DISABLED-LEMMAS NIL IPLUS-0-LEFT IPLUS-0-LEFT-ON))))) (PUT1-LST (QUOTE IPLUS-0-RIGHT-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-0-RIGHT-ON IPLUS-0-RIGHT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . IPLUS-0-RIGHT-ON) (DISABLED-LEMMAS NIL IPLUS-0-RIGHT IPLUS-0-RIGHT-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY2-OF-IPLUS-ON COMMUTATIVITY2-OF-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . COMMUTATIVITY2-OF-IPLUS-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE COMMUTATIVITY-OF-IPLUS-ON COMMUTATIVITY-OF-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . COMMUTATIVITY-OF-IPLUS-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-IPLUS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE ASSOCIATIVITY-OF-IPLUS-ON ASSOCIATIVITY-OF-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . ASSOCIATIVITY-OF-IPLUS-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-ON))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-CANCELLATION-1-ON IPLUS-CANCELLATION-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . IPLUS-CANCELLATION-1-ON) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-ON))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-CANCELLATION-2-ON IPLUS-CANCELLATION-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . IPLUS-CANCELLATION-2-ON) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-ON))))) (PUT1-LST (QUOTE IPLUS-INEG1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-INEG1-ON IPLUS-INEG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . IPLUS-INEG1-ON) (DISABLED-LEMMAS NIL IPLUS-INEG1 IPLUS-INEG1-ON))))) (PUT1-LST (QUOTE IPLUS-INEG2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-INEG2-ON IPLUS-INEG2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . IPLUS-INEG2-ON) (DISABLED-LEMMAS NIL IPLUS-INEG2 IPLUS-INEG2-ON))))) (PUT1-LST (QUOTE IPLUS-FIX-INT1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-FIX-INT1-ON IPLUS-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IPLUS-FIX-INT1-ON) (DISABLED-LEMMAS NIL IPLUS-FIX-INT1 IPLUS-FIX-INT1-ON))))) (PUT1-LST (QUOTE IPLUS-FIX-INT2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-FIX-INT2-ON IPLUS-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . IPLUS-FIX-INT2-ON) (DISABLED-LEMMAS NIL IPLUS-FIX-INT2 IPLUS-FIX-INT2-ON))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT1-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IDIFFERENCE-FIX-INT1-ON IDIFFERENCE-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . IDIFFERENCE-FIX-INT1-ON) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-ON))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT2-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IDIFFERENCE-FIX-INT2-ON IDIFFERENCE-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT2 . IDIFFERENCE-FIX-INT2-ON) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-AUX-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-INEG-AUX-ON *1*CANCEL-INEG-AUX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . G*1*CANCEL-INEG-AUX-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-AUX-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-INEG-AUX-ON CANCEL-INEG-AUX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CANCEL-INEG-AUX-ON) (DISABLED-LEMMAS NIL CANCEL-INEG-AUX CANCEL-INEG-AUX-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*CANCEL-INEG-ON *1*CANCEL-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . G*1*CANCEL-INEG-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG G*1*CANCEL-INEG-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CANCEL-INEG-ON CANCEL-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . CANCEL-INEG-ON) (DISABLED-LEMMAS NIL CANCEL-INEG CANCEL-INEG-ON))))) (PUT1-LST (QUOTE EVAL$-LIST-CONS-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-LIST-CONS-ON EVAL$-LIST-CONS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-LIST-CONS-ON) (DISABLED-LEMMAS NIL EVAL$-LIST-CONS EVAL$-LIST-CONS-ON))))) (PUT1-LST (QUOTE EVAL$-LIST-NLISTP-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-LIST-NLISTP-ON EVAL$-LIST-NLISTP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-LIST-NLISTP-ON) (DISABLED-LEMMAS NIL EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-ON))))) (PUT1-LST (QUOTE EVAL$-LITATOM-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-LITATOM-ON EVAL$-LITATOM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LITATOM . EVAL$-LITATOM-ON) (DISABLED-LEMMAS NIL EVAL$-LITATOM EVAL$-LITATOM-ON))))) (PUT1-LST (QUOTE EVAL$-OTHER-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-OTHER-ON EVAL$-OTHER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . EVAL$-OTHER-ON) (DISABLED-LEMMAS NIL EVAL$-OTHER EVAL$-OTHER-ON))))) (PUT1-LST (QUOTE G*1*EVAL$-CANCEL-INEG-AUX-FN-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*EVAL$-CANCEL-INEG-AUX-FN-ON *1*EVAL$-CANCEL-INEG-AUX-FN NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . G*1*EVAL$-CANCEL-INEG-AUX-FN-ON) (DISABLED-LEMMAS NIL *1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-ON))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-FN-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-FN NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . EVAL$-CANCEL-INEG-AUX-FN-ON) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-ON))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON EVAL$-CANCEL-INEG-AUX-IS-ITS-FN NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON))))) (PUT1-LST (QUOTE IPLUS-INEG3-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-INEG3-ON IPLUS-INEG3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . IPLUS-INEG3-ON) (DISABLED-LEMMAS NIL IPLUS-INEG3 IPLUS-INEG3-ON))))) (PUT1-LST (QUOTE IPLUS-INEG4-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-INEG4-ON IPLUS-INEG4 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . IPLUS-INEG4-ON) (DISABLED-LEMMAS NIL IPLUS-INEG4 IPLUS-INEG4-ON))))) (PUT1-LST (QUOTE IPLUS-X-Y-INEG-X-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-X-Y-INEG-X-ON IPLUS-X-Y-INEG-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . IPLUS-X-Y-INEG-X-ON) (DISABLED-LEMMAS NIL IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-ON CORRECTNESS-OF-CANCEL-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . CORRECTNESS-OF-CANCEL-INEG-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IPLUS-FRINGE-ON *1*IPLUS-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . G*1*IPLUS-FRINGE-ON) (DISABLED-LEMMAS NIL *1*IPLUS-FRINGE G*1*IPLUS-FRINGE-ON))))) (PUT1-LST (QUOTE IPLUS-FRINGE-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-FRINGE-ON IPLUS-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . IPLUS-FRINGE-ON) (DISABLED-LEMMAS NIL IPLUS-FRINGE IPLUS-FRINGE-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-REC-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE G*1*IPLUS-TREE-REC-ON *1*IPLUS-TREE-REC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . G*1*IPLUS-TREE-REC-ON) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-ON))))) (PUT1-LST (QUOTE IPLUS-TREE-REC-ON) (QUOTE (IDATE 1000402194945 EVENT (TOGGLE IPLUS-TREE-REC-ON IPLUS-TREE-REC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . IPLUS-TREE-REC-ON) (DISABLED-LEMMAS NIL IPLUS-TREE-REC IPLUS-TREE-REC-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*IPLUS-TREE-ON *1*IPLUS-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . G*1*IPLUS-TREE-ON) (DISABLED-LEMMAS NIL *1*IPLUS-TREE G*1*IPLUS-TREE-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*IPLUS-LIST-ON *1*IPLUS-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . G*1*IPLUS-LIST-ON) (DISABLED-LEMMAS NIL *1*IPLUS-LIST G*1*IPLUS-LIST-ON))))) (PUT1-LST (QUOTE IPLUS-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-LIST-ON IPLUS-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-ON) (DISABLED-LEMMAS NIL IPLUS-LIST IPLUS-LIST-ON))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IPLUS-LIST-ON INTEGERP-IPLUS-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . INTEGERP-IPLUS-LIST-ON) (DISABLED-LEMMAS NIL INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-ON))))) (PUT1-LST (QUOTE EVAL$-LIST-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-LIST-APPEND-ON EVAL$-LIST-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . EVAL$-LIST-APPEND-ON) (DISABLED-LEMMAS NIL EVAL$-LIST-APPEND EVAL$-LIST-APPEND-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-IPLUS-ON *1*CANCEL-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . G*1*CANCEL-IPLUS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS G*1*CANCEL-IPLUS-ON))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-DELETE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-IPLUS-LIST-DELETE-ON EVAL$-IPLUS-LIST-DELETE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . EVAL$-IPLUS-LIST-DELETE-ON) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-ON))))) (PUT1-LST (QUOTE IPLUS-LIST-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-LIST-APPEND-ON IPLUS-LIST-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . IPLUS-LIST-APPEND-ON) (DISABLED-LEMMAS NIL IPLUS-LIST-APPEND IPLUS-LIST-APPEND-ON))))) (PUT1-LST (QUOTE IPLUS-INEG7-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-INEG7-ON IPLUS-INEG7 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . IPLUS-INEG7-ON) (DISABLED-LEMMAS NIL IPLUS-INEG7 IPLUS-INEG7-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-ON CORRECTNESS-OF-CANCEL-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-ON))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-FIX-INT-1-ON ILESSP-FIX-INT-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . ILESSP-FIX-INT-1-ON) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-ON))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-FIX-INT-2-ON ILESSP-FIX-INT-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . ILESSP-FIX-INT-2-ON) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-ON))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-1-ON *1*CANCEL-IPLUS-ILESSP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . G*1*CANCEL-IPLUS-ILESSP-1-ON) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-ON))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-1-ON CANCEL-IPLUS-ILESSP-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . CANCEL-IPLUS-ILESSP-1-ON) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-ON))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-FOR-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-CANCELLATION-1-FOR-ILESSP-ON IPLUS-CANCELLATION-1-FOR-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . IPLUS-CANCELLATION-1-FOR-ILESSP-ON) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-ON))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-FOR-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-CANCELLATION-2-FOR-ILESSP-ON IPLUS-CANCELLATION-2-FOR-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP-ON) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-NO-FIX-INT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*IPLUS-TREE-NO-FIX-INT-ON *1*IPLUS-TREE-NO-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . G*1*IPLUS-TREE-NO-FIX-INT-ON) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-ON *1*CANCEL-IPLUS-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . G*1*CANCEL-IPLUS-ILESSP-ON) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-ON))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-ON CANCEL-IPLUS-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . CANCEL-IPLUS-ILESSP-ON) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON CORRECTNESS-OF-CANCEL-IPLUS-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON))))) (PUT1-LST (QUOTE ITIMES-0-LEFT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-0-LEFT-ON ITIMES-0-LEFT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-0-LEFT-ON) (DISABLED-LEMMAS NIL ITIMES-0-LEFT ITIMES-0-LEFT-ON))))) (PUT1-LST (QUOTE ITIMES-0-RIGHT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-0-RIGHT-ON ITIMES-0-RIGHT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-RIGHT . ITIMES-0-RIGHT-ON) (DISABLED-LEMMAS NIL ITIMES-0-RIGHT ITIMES-0-RIGHT-ON))))) (PUT1-LST (QUOTE ITIMES-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-FIX-INT1-ON ITIMES-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . ITIMES-FIX-INT1-ON) (DISABLED-LEMMAS NIL ITIMES-FIX-INT1 ITIMES-FIX-INT1-ON))))) (PUT1-LST (QUOTE ITIMES-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-FIX-INT2-ON ITIMES-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . ITIMES-FIX-INT2-ON) (DISABLED-LEMMAS NIL ITIMES-FIX-INT2 ITIMES-FIX-INT2-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-ITIMES-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE COMMUTATIVITY-OF-ITIMES-ON COMMUTATIVITY-OF-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . COMMUTATIVITY-OF-ITIMES-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-ON))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-ON ITIMES-DISTRIBUTES-OVER-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . ITIMES-DISTRIBUTES-OVER-IPLUS-ON) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-ON))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-ITIMES-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE COMMUTATIVITY2-OF-ITIMES-ON COMMUTATIVITY2-OF-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . COMMUTATIVITY2-OF-ITIMES-ON) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-ON))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-ITIMES-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ASSOCIATIVITY-OF-ITIMES-ON ASSOCIATIVITY-OF-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . ASSOCIATIVITY-OF-ITIMES-ON) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-ON))))) (PUT1-LST (QUOTE EQUAL-ITIMES-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-ITIMES-0-ON EQUAL-ITIMES-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . EQUAL-ITIMES-0-ON) (DISABLED-LEMMAS NIL EQUAL-ITIMES-0 EQUAL-ITIMES-0-ON))))) (PUT1-LST (QUOTE EQUAL-ITIMES-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-ITIMES-1-ON EQUAL-ITIMES-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-1 . EQUAL-ITIMES-1-ON) (DISABLED-LEMMAS NIL EQUAL-ITIMES-1 EQUAL-ITIMES-1-ON))))) (PUT1-LST (QUOTE EQUAL-ITIMES-MINUS-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-ITIMES-MINUS-1-ON EQUAL-ITIMES-MINUS-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-MINUS-1 . EQUAL-ITIMES-MINUS-1-ON) (DISABLED-LEMMAS NIL EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-ON))))) (PUT1-LST (QUOTE ITIMES-1-ARG1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-1-ARG1-ON ITIMES-1-ARG1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-1-ARG1-ON) (DISABLED-LEMMAS NIL ITIMES-1-ARG1 ITIMES-1-ARG1-ON))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-UNIQUENESS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE QUOTIENT-REMAINDER-UNIQUENESS-ON QUOTIENT-REMAINDER-UNIQUENESS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-UNIQUENESS . QUOTIENT-REMAINDER-UNIQUENESS-ON) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-PART1-ON DIVISION-THEOREM-PART1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART1 . DIVISION-THEOREM-PART1-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-PART2-ON DIVISION-THEOREM-PART2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART2 . DIVISION-THEOREM-PART2-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-PART3-ON DIVISION-THEOREM-PART3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART3 . DIVISION-THEOREM-PART3-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-ON DIVISION-THEOREM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM . DIVISION-THEOREM-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM DIVISION-THEOREM-ON))))) (PUT1-LST (QUOTE IQUOTIENT-IREMAINDER-UNIQUENESS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUOTIENT-IREMAINDER-UNIQUENESS-ON IQUOTIENT-IREMAINDER-UNIQUENESS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-IREMAINDER-UNIQUENESS . IQUOTIENT-IREMAINDER-UNIQUENESS-ON) (DISABLED-LEMMAS NIL IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON))))) (PUT1-LST (QUOTE IDIV-IMOD-UNIQUENESS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IDIV-IMOD-UNIQUENESS-ON IDIV-IMOD-UNIQUENESS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-IMOD-UNIQUENESS . IDIV-IMOD-UNIQUENESS-ON) (DISABLED-LEMMAS NIL IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON))))) (PUT1-LST (QUOTE IQUO-IREM-UNIQUENESS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUO-IREM-UNIQUENESS-ON IQUO-IREM-UNIQUENESS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-IREM-UNIQUENESS . IQUO-IREM-UNIQUENESS-ON) (DISABLED-LEMMAS NIL IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-ON))))) (PUT1-LST (QUOTE ITIMES-INEG-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-INEG-1-ON ITIMES-INEG-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-1 . ITIMES-INEG-1-ON) (DISABLED-LEMMAS NIL ITIMES-INEG-1 ITIMES-INEG-1-ON))))) (PUT1-LST (QUOTE ITIMES-INEG-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-INEG-2-ON ITIMES-INEG-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-2 . ITIMES-INEG-2-ON) (DISABLED-LEMMAS NIL ITIMES-INEG-2 ITIMES-INEG-2-ON))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-CANCELLATION-1-ON ITIMES-CANCELLATION-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . ITIMES-CANCELLATION-1-ON) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-ON))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-CANCELLATION-2-ON ITIMES-CANCELLATION-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-2 . ITIMES-CANCELLATION-2-ON) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-ON))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-CANCELLATION-3-ON ITIMES-CANCELLATION-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . ITIMES-CANCELLATION-3-ON) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-ON))))) (PUT1-LST (QUOTE INTEGERP-IQUOTIENT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IQUOTIENT-ON INTEGERP-IQUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUOTIENT . INTEGERP-IQUOTIENT-ON) (DISABLED-LEMMAS NIL INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-ON))))) (PUT1-LST (QUOTE INTEGERP-IREMAINDER-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IREMAINDER-ON INTEGERP-IREMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREMAINDER . INTEGERP-IREMAINDER-ON) (DISABLED-LEMMAS NIL INTEGERP-IREMAINDER INTEGERP-IREMAINDER-ON))))) (PUT1-LST (QUOTE INTEGERP-IDIV-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IDIV-ON INTEGERP-IDIV NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . INTEGERP-IDIV-ON) (DISABLED-LEMMAS NIL INTEGERP-IDIV INTEGERP-IDIV-ON))))) (PUT1-LST (QUOTE INTEGERP-IMOD-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IMOD-ON INTEGERP-IMOD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IMOD . INTEGERP-IMOD-ON) (DISABLED-LEMMAS NIL INTEGERP-IMOD INTEGERP-IMOD-ON))))) (PUT1-LST (QUOTE INTEGERP-IQUO-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IQUO-ON INTEGERP-IQUO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUO . INTEGERP-IQUO-ON) (DISABLED-LEMMAS NIL INTEGERP-IQUO INTEGERP-IQUO-ON))))) (PUT1-LST (QUOTE INTEGERP-IREM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-IREM-ON INTEGERP-IREM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREM . INTEGERP-IREM-ON) (DISABLED-LEMMAS NIL INTEGERP-IREM INTEGERP-IREM-ON))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUOTIENT-FIX-INT1-ON IQUOTIENT-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . IQUOTIENT-FIX-INT1-ON) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-ON))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUOTIENT-FIX-INT2-ON IQUOTIENT-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . IQUOTIENT-FIX-INT2-ON) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-ON))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IREMAINDER-FIX-INT1-ON IREMAINDER-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT1 . IREMAINDER-FIX-INT1-ON) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-ON))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IREMAINDER-FIX-INT2-ON IREMAINDER-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT2 . IREMAINDER-FIX-INT2-ON) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-ON))))) (PUT1-LST (QUOTE IDIV-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IDIV-FIX-INT1-ON IDIV-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . IDIV-FIX-INT1-ON) (DISABLED-LEMMAS NIL IDIV-FIX-INT1 IDIV-FIX-INT1-ON))))) (PUT1-LST (QUOTE IDIV-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IDIV-FIX-INT2-ON IDIV-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . IDIV-FIX-INT2-ON) (DISABLED-LEMMAS NIL IDIV-FIX-INT2 IDIV-FIX-INT2-ON))))) (PUT1-LST (QUOTE IMOD-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IMOD-FIX-INT1-ON IMOD-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT1 . IMOD-FIX-INT1-ON) (DISABLED-LEMMAS NIL IMOD-FIX-INT1 IMOD-FIX-INT1-ON))))) (PUT1-LST (QUOTE IMOD-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IMOD-FIX-INT2-ON IMOD-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT2 . IMOD-FIX-INT2-ON) (DISABLED-LEMMAS NIL IMOD-FIX-INT2 IMOD-FIX-INT2-ON))))) (PUT1-LST (QUOTE IQUO-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUO-FIX-INT1-ON IQUO-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . IQUO-FIX-INT1-ON) (DISABLED-LEMMAS NIL IQUO-FIX-INT1 IQUO-FIX-INT1-ON))))) (PUT1-LST (QUOTE IQUO-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IQUO-FIX-INT2-ON IQUO-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . IQUO-FIX-INT2-ON) (DISABLED-LEMMAS NIL IQUO-FIX-INT2 IQUO-FIX-INT2-ON))))) (PUT1-LST (QUOTE IREM-FIX-INT1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IREM-FIX-INT1-ON IREM-FIX-INT1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT1 . IREM-FIX-INT1-ON) (DISABLED-LEMMAS NIL IREM-FIX-INT1 IREM-FIX-INT1-ON))))) (PUT1-LST (QUOTE IREM-FIX-INT2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IREM-FIX-INT2-ON IREM-FIX-INT2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT2 . IREM-FIX-INT2-ON) (DISABLED-LEMMAS NIL IREM-FIX-INT2 IREM-FIX-INT2-ON))))) (PUT1-LST (QUOTE FIX-INT-IQUOTIENT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IQUOTIENT-ON FIX-INT-IQUOTIENT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUOTIENT . FIX-INT-IQUOTIENT-ON) (DISABLED-LEMMAS NIL FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-ON))))) (PUT1-LST (QUOTE FIX-INT-IREMAINDER-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IREMAINDER-ON FIX-INT-IREMAINDER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREMAINDER . FIX-INT-IREMAINDER-ON) (DISABLED-LEMMAS NIL FIX-INT-IREMAINDER FIX-INT-IREMAINDER-ON))))) (PUT1-LST (QUOTE FIX-INT-IDIV-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IDIV-ON FIX-INT-IDIV NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIV . FIX-INT-IDIV-ON) (DISABLED-LEMMAS NIL FIX-INT-IDIV FIX-INT-IDIV-ON))))) (PUT1-LST (QUOTE FIX-INT-IMOD-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IMOD-ON FIX-INT-IMOD NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IMOD . FIX-INT-IMOD-ON) (DISABLED-LEMMAS NIL FIX-INT-IMOD FIX-INT-IMOD-ON))))) (PUT1-LST (QUOTE FIX-INT-IQUO-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IQUO-ON FIX-INT-IQUO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUO . FIX-INT-IQUO-ON) (DISABLED-LEMMAS NIL FIX-INT-IQUO FIX-INT-IQUO-ON))))) (PUT1-LST (QUOTE FIX-INT-IREM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-IREM-ON FIX-INT-IREM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREM . FIX-INT-IREM-ON) (DISABLED-LEMMAS NIL FIX-INT-IREM FIX-INT-IREM-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-FRINGE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-FRINGE-ON *1*ITIMES-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . G*1*ITIMES-FRINGE-ON) (DISABLED-LEMMAS NIL *1*ITIMES-FRINGE G*1*ITIMES-FRINGE-ON))))) (PUT1-LST (QUOTE ITIMES-FRINGE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-FRINGE-ON ITIMES-FRINGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . ITIMES-FRINGE-ON) (DISABLED-LEMMAS NIL ITIMES-FRINGE ITIMES-FRINGE-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-REC-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-TREE-REC-ON *1*ITIMES-TREE-REC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . G*1*ITIMES-TREE-REC-ON) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-ON))))) (PUT1-LST (QUOTE ITIMES-TREE-REC-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-TREE-REC-ON ITIMES-TREE-REC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE-REC-ON) (DISABLED-LEMMAS NIL ITIMES-TREE-REC ITIMES-TREE-REC-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-TREE-ON *1*ITIMES-TREE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE . G*1*ITIMES-TREE-ON) (DISABLED-LEMMAS NIL *1*ITIMES-TREE G*1*ITIMES-TREE-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-LIST-ON *1*ITIMES-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . G*1*ITIMES-LIST-ON) (DISABLED-LEMMAS NIL *1*ITIMES-LIST G*1*ITIMES-LIST-ON))))) (PUT1-LST (QUOTE ITIMES-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-LIST-ON ITIMES-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-ON) (DISABLED-LEMMAS NIL ITIMES-LIST ITIMES-LIST-ON))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INTEGERP-ITIMES-LIST-ON INTEGERP-ITIMES-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . INTEGERP-ITIMES-LIST-ON) (DISABLED-LEMMAS NIL INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-ON))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON *1*MAKE-CANCEL-ITIMES-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-ITIMES-ON *1*CANCEL-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . G*1*CANCEL-ITIMES-ON) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES G*1*CANCEL-ITIMES-ON))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-ITIMES-ON CANCEL-ITIMES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . CANCEL-ITIMES-ON) (DISABLED-LEMMAS NIL CANCEL-ITIMES CANCEL-ITIMES-ON))))) (PUT1-LST (QUOTE ITIMES-LIST-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-LIST-APPEND-ON ITIMES-LIST-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . ITIMES-LIST-APPEND-ON) (DISABLED-LEMMAS NIL ITIMES-LIST-APPEND ITIMES-LIST-APPEND-ON))))) (PUT1-LST (QUOTE MEMBER-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBER-APPEND-ON MEMBER-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MEMBER-APPEND-ON) (DISABLED-LEMMAS NIL MEMBER-APPEND MEMBER-APPEND-ON))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-FIX-INT-ON EQUAL-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . EQUAL-FIX-INT-ON) (DISABLED-LEMMAS NIL EQUAL-FIX-INT EQUAL-FIX-INT-ON))))) (PUT1-LST (QUOTE G*1*SUBSETP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*SUBSETP-ON *1*SUBSETP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . G*1*SUBSETP-ON) (DISABLED-LEMMAS NIL *1*SUBSETP G*1*SUBSETP-ON))))) (PUT1-LST (QUOTE SUBSETP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE SUBSETP-ON SUBSETP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . SUBSETP-ON) (DISABLED-LEMMAS NIL SUBSETP SUBSETP-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-NO-FIX-INT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-TREE-NO-FIX-INT-ON *1*ITIMES-TREE-NO-FIX-INT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . G*1*ITIMES-TREE-NO-FIX-INT-ON) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-ON))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON *1*MAKE-CANCEL-ITIMES-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-ON *1*CANCEL-ITIMES-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . G*1*CANCEL-ITIMES-ILESSP-ON) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-ON))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-ON CANCEL-ITIMES-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . CANCEL-ITIMES-ILESSP-ON) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-ON))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-POSITIVE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-POSITIVE-ON ILESSP-ITIMES-RIGHT-POSITIVE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-POSITIVE . ILESSP-ITIMES-RIGHT-POSITIVE-ON) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-ON))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-NEGATIVE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-NEGATIVE-ON ILESSP-ITIMES-RIGHT-NEGATIVE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-NEGATIVE . ILESSP-ITIMES-RIGHT-NEGATIVE-ON) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-ON))))) (PUT1-LST (QUOTE ILESSP-STRICT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-STRICT-ON ILESSP-STRICT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-STRICT-ON) (DISABLED-LEMMAS NIL ILESSP-STRICT ILESSP-STRICT-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-TREE-INEG-ON *1*ITIMES-TREE-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . G*1*ITIMES-TREE-INEG-ON) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-ON))))) (PUT1-LST (QUOTE G*1*ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*ITIMES-FACTORS-ON *1*ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . G*1*ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL *1*ITIMES-FACTORS G*1*ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-FACTORS-ON ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL ITIMES-FACTORS ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE ITIMES--1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES--1-ON ITIMES--1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES--1 . ITIMES--1-ON) (DISABLED-LEMMAS NIL ITIMES--1 ITIMES--1-ON))))) (PUT1-LST (QUOTE EQUAL-INEG-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-INEG-INEG-ON EQUAL-INEG-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . EQUAL-INEG-INEG-ON) (DISABLED-LEMMAS NIL EQUAL-INEG-INEG EQUAL-INEG-INEG-ON))))) (PUT1-LST (QUOTE ILESSP-INEG-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-INEG-INEG-ON ILESSP-INEG-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-INEG-INEG . ILESSP-INEG-INEG-ON) (DISABLED-LEMMAS NIL ILESSP-INEG-INEG ILESSP-INEG-INEG-ON))))) (PUT1-LST (QUOTE FIX-INT-EVAL$-ITIMES-TREE-REC-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FIX-INT-EVAL$-ITIMES-TREE-REC-ON FIX-INT-EVAL$-ITIMES-TREE-REC NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . FIX-INT-EVAL$-ITIMES-TREE-REC-ON) (DISABLED-LEMMAS NIL FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-ON))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-ITIMES-TREE-INEG-ON EVAL$-ITIMES-TREE-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . EVAL$-ITIMES-TREE-INEG-ON) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-ON))))) (PUT1-LST (QUOTE INEG-EVAL$-ITIMES-TREE-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE INEG-EVAL$-ITIMES-TREE-INEG-ON INEG-EVAL$-ITIMES-TREE-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-EVAL$-ITIMES-TREE-INEG . INEG-EVAL$-ITIMES-TREE-INEG-ON) (DISABLED-LEMMAS NIL INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-ON))))) (PUT1-LST (QUOTE IPLUS-EVAL$-ITIMES-TREE-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-EVAL$-ITIMES-TREE-INEG-ON IPLUS-EVAL$-ITIMES-TREE-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . IPLUS-EVAL$-ITIMES-TREE-INEG-ON) (DISABLED-LEMMAS NIL IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-ON))))) (PUT1-LST (QUOTE ITIMES-EVAL$-ITIMES-TREE-INEG-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ITIMES-EVAL$-ITIMES-TREE-INEG-ON ITIMES-EVAL$-ITIMES-TREE-INEG NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-EVAL$-ITIMES-TREE-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG-ON) (DISABLED-LEMMAS NIL ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-ITIMES-TERM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*IPLUS-OR-ITIMES-TERM-ON *1*IPLUS-OR-ITIMES-TERM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . G*1*IPLUS-OR-ITIMES-TERM-ON) (DISABLED-LEMMAS NIL *1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-ON *1*CANCEL-ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . G*1*CANCEL-ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON *1*CANCEL-ITIMES-FACTORS-EXPANDED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON) (DISABLED-LEMMAS NIL MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON))))) (PUT1-LST (QUOTE MEMBER-0-EVAL$-LIST-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBER-0-EVAL$-LIST-ON MEMBER-0-EVAL$-LIST NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . MEMBER-0-EVAL$-LIST-ON) (DISABLED-LEMMAS NIL MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON CORRECTNESS-OF-CANCEL-ITIMES-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON *1*CANCEL-ITIMES-ILESSP-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-FACTORS-ON CANCEL-ITIMES-ILESSP-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . CANCEL-ITIMES-ILESSP-FACTORS-ON) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-ON))))) (PUT1-LST (QUOTE BAGINT-SINGLETON-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE BAGINT-SINGLETON-ON BAGINT-SINGLETON NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . BAGINT-SINGLETON-ON) (DISABLED-LEMMAS NIL BAGINT-SINGLETON BAGINT-SINGLETON-ON))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON))))) (PUT1-LST (QUOTE ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON ZERO-ILESSP-IMPLIES-NOT-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZERO-ILESSP-IMPLIES-NOT-EQUAL . ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON) (DISABLED-LEMMAS NIL ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON))))) (PUT1-LST (QUOTE ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON ILESSP-ZERO-IMPLIES-NOT-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ZERO-IMPLIES-NOT-EQUAL . ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON) (DISABLED-LEMMAS NIL ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON EVAL$-LIST-BAGINT-0-FOR-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-FOR-ILESSP . EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-TO-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-FIX-INT-TO-ILESSP-ON EQUAL-FIX-INT-TO-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT-TO-ILESSP . EQUAL-FIX-INT-TO-ILESSP-ON) (DISABLED-LEMMAS NIL EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON))))) (PUT1-LST (QUOTE G*1*DISJOIN-EQUALITIES-WITH-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*DISJOIN-EQUALITIES-WITH-0-ON *1*DISJOIN-EQUALITIES-WITH-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . G*1*DISJOIN-EQUALITIES-WITH-0-ON) (DISABLED-LEMMAS NIL *1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-ON))))) (PUT1-LST (QUOTE DISJOIN-EQUALITIES-WITH-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DISJOIN-EQUALITIES-WITH-0-ON DISJOIN-EQUALITIES-WITH-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . DISJOIN-EQUALITIES-WITH-0-ON) (DISABLED-LEMMAS NIL DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-FACTORS-0-ON *1*CANCEL-FACTORS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . G*1*CANCEL-FACTORS-0-ON) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-ON))))) (PUT1-LST (QUOTE CANCEL-FACTORS-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-FACTORS-0-ON CANCEL-FACTORS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . CANCEL-FACTORS-0-ON) (DISABLED-LEMMAS NIL CANCEL-FACTORS-0 CANCEL-FACTORS-0-ON))))) (PUT1-LST (QUOTE G*1*SOME-EVAL$S-TO-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*SOME-EVAL$S-TO-0-ON *1*SOME-EVAL$S-TO-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . G*1*SOME-EVAL$S-TO-0-ON) (DISABLED-LEMMAS NIL *1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-ON))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE SOME-EVAL$S-TO-0-ON SOME-EVAL$S-TO-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-ON) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-ON))))) (PUT1-LST (QUOTE EVAL$-DISJOIN-EQUALITIES-WITH-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-DISJOIN-EQUALITIES-WITH-0-ON EVAL$-DISJOIN-EQUALITIES-WITH-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . EVAL$-DISJOIN-EQUALITIES-WITH-0-ON) (DISABLED-LEMMAS NIL EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-ON))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE SOME-EVAL$S-TO-0-APPEND-ON SOME-EVAL$S-TO-0-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-APPEND . SOME-EVAL$S-TO-0-APPEND-ON) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-ON))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-ELIMINATOR-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE SOME-EVAL$S-TO-0-ELIMINATOR-ON SOME-EVAL$S-TO-0-ELIMINATOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . SOME-EVAL$S-TO-0-ELIMINATOR-ON) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-0-ON CORRECTNESS-OF-CANCEL-FACTORS-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . CORRECTNESS-OF-CANCEL-FACTORS-0-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-ON))))) (PUT1-LST (QUOTE G*1*CONJOIN-INEQUALITIES-WITH-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CONJOIN-INEQUALITIES-WITH-0-ON *1*CONJOIN-INEQUALITIES-WITH-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . G*1*CONJOIN-INEQUALITIES-WITH-0-ON) (DISABLED-LEMMAS NIL *1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-ON))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-ON CONJOIN-INEQUALITIES-WITH-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . CONJOIN-INEQUALITIES-WITH-0-ON) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-ILESSP-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-FACTORS-ILESSP-0-ON *1*CANCEL-FACTORS-ILESSP-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . G*1*CANCEL-FACTORS-ILESSP-0-ON) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-ON))))) (PUT1-LST (QUOTE CANCEL-FACTORS-ILESSP-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-FACTORS-ILESSP-0-ON CANCEL-FACTORS-ILESSP-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . CANCEL-FACTORS-ILESSP-0-ON) (DISABLED-LEMMAS NIL CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-ON))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON))))) (PUT1-LST (QUOTE G*1*SPLIT-OUT-INEG-TERMS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*SPLIT-OUT-INEG-TERMS-ON *1*SPLIT-OUT-INEG-TERMS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . G*1*SPLIT-OUT-INEG-TERMS-ON) (DISABLED-LEMMAS NIL *1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-ON))))) (PUT1-LST (QUOTE SPLIT-OUT-INEG-TERMS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE SPLIT-OUT-INEG-TERMS-ON SPLIT-OUT-INEG-TERMS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . SPLIT-OUT-INEG-TERMS-ON) (DISABLED-LEMMAS NIL SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-ON))))) (PUT1-LST (QUOTE G*1*REMOVE-INEGS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*REMOVE-INEGS-ON *1*REMOVE-INEGS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . G*1*REMOVE-INEGS-ON) (DISABLED-LEMMAS NIL *1*REMOVE-INEGS G*1*REMOVE-INEGS-ON))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-INEG-TERM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*IPLUS-OR-INEG-TERM-ON *1*IPLUS-OR-INEG-TERM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . G*1*IPLUS-OR-INEG-TERM-ON) (DISABLED-LEMMAS NIL *1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-ON))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON *1*MAKE-CANCEL-INEG-TERMS-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-EQUALITY-ON MAKE-CANCEL-INEG-TERMS-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . MAKE-CANCEL-INEG-TERMS-EQUALITY-ON) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON *1*CANCEL-INEG-TERMS-FROM-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-ON CANCEL-INEG-TERMS-FROM-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON) (DISABLED-LEMMAS NIL IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON MAKE-CANCEL-INEG-TERMS-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON *1*CANCEL-INEG-TERMS-FROM-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CANCEL-INEG-TERMS-FROM-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-ON))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON))))) (PUT1-LST (QUOTE IPLUS-CONSTANTS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE IPLUS-CONSTANTS-ON IPLUS-CONSTANTS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CONSTANTS . IPLUS-CONSTANTS-ON) (DISABLED-LEMMAS NIL IPLUS-CONSTANTS IPLUS-CONSTANTS-ON))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-LEMMA-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-LEMMA-ON CANCEL-CONSTANTS-EQUAL-LEMMA NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL-LEMMA . CANCEL-CONSTANTS-EQUAL-LEMMA-ON) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-ON))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-ON CANCEL-CONSTANTS-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL . CANCEL-CONSTANTS-EQUAL-ON) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-ON))))) (PUT1-LST (QUOTE ILESSP-ADD1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ADD1-ON ILESSP-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . ILESSP-ADD1-ON) (DISABLED-LEMMAS NIL ILESSP-ADD1 ILESSP-ADD1-ON))))) (PUT1-LST (QUOTE ILESSP-ADD1-IPLUS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ILESSP-ADD1-IPLUS-ON ILESSP-ADD1-IPLUS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . ILESSP-ADD1-IPLUS-ON) (DISABLED-LEMMAS NIL ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-ON))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON CANCEL-CONSTANTS-ILESSP-LEMMA-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-1 . CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON CANCEL-CONSTANTS-ILESSP-LEMMA-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-2 . CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-ON CANCEL-CONSTANTS-ILESSP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP . CANCEL-CONSTANTS-ILESSP-ON) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-ON))))) (PUT1-LST (QUOTE B-APPROX-ON1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-APPROX-ON1 B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-ON1) (DISABLED-LEMMAS NIL B-APPROX B-APPROX-ON1))))) (PUT1-LST (QUOTE B-KNOWNP-ON1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-KNOWNP-ON1 B-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-ON1) (DISABLED-LEMMAS NIL B-KNOWNP B-KNOWNP-ON1))))) (PUT1-LST (QUOTE MAP-DOWN-INVERTS-MAP-UP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MAP-DOWN-INVERTS-MAP-UP-ON MAP-DOWN-INVERTS-MAP-UP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-INVERTS-MAP-UP . MAP-DOWN-INVERTS-MAP-UP-ON) (DISABLED-LEMMAS NIL MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-ON))))) (PUT1-LST (QUOTE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON) (DISABLED-LEMMAS NIL FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON))))) (PUT1-LST (QUOTE DOUBLET-P-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DOUBLET-P-ON DOUBLET-P NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P . DOUBLET-P-ON) (DISABLED-LEMMAS NIL DOUBLET-P DOUBLET-P-ON))))) (PUT1-LST (QUOTE OPEN-NTH-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE OPEN-NTH-OFF1 OPEN-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . OPEN-NTH-OFF1) (DISABLED-LEMMAS NIL OPEN-NTH OPEN-NTH-OFF1 . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-ON DP-RAM-16X32-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE . DP-RAM-16X32-MONOTONE-ON) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-ON))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-STATE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-STATE-ON DP-RAM-16X32-MONOTONE-STATE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-STATE . DP-RAM-16X32-MONOTONE-STATE-ON) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-ON DUAL-APPLY-STATE-DP-RAM-16X32 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32 . DUAL-APPLY-STATE-DP-RAM-16X32-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON))))) (PUT1-LST (QUOTE MEM-WIDTH-LINEAR-FACTS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEM-WIDTH-LINEAR-FACTS-ON MEM-WIDTH-LINEAR-FACTS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-LINEAR-FACTS . MEM-WIDTH-LINEAR-FACTS-ON) (DISABLED-LEMMAS NIL MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-ON))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-PROPERP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-PRESERVES-PROPERP-ON V-APPROX-PRESERVES-PROPERP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-PROPERP . V-APPROX-PRESERVES-PROPERP-ON) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-ON))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON))))) (PUT1-LST (QUOTE MEM-WIDTH-NON-ZERO-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEM-WIDTH-NON-ZERO-ON MEM-WIDTH-NON-ZERO NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-NON-ZERO . MEM-WIDTH-NON-ZERO-ON) (DISABLED-LEMMAS NIL MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-ON))))) (PUT1-LST (QUOTE V-APPROX-SUBRANGE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-SUBRANGE-ON V-APPROX-SUBRANGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-SUBRANGE . V-APPROX-SUBRANGE-ON) (DISABLED-LEMMAS NIL V-APPROX-SUBRANGE V-APPROX-SUBRANGE-ON))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-LENGTH-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-PRESERVES-LENGTH-ON V-APPROX-PRESERVES-LENGTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-LENGTH . V-APPROX-PRESERVES-LENGTH-ON) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-ON))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-ID-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-ID-ON S-APPROX-CONSTANT-RAM-X-ID NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-ID . S-APPROX-CONSTANT-RAM-X-ID-ON) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-ON))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM-ID-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-WRITE-MEM-ID-ON S-APPROX-WRITE-MEM-ID NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM-ID . S-APPROX-WRITE-MEM-ID-ON) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-ON))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM1-ID-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-WRITE-MEM1-ID-ON S-APPROX-WRITE-MEM1-ID NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM1-ID . S-APPROX-WRITE-MEM1-ID-ON) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-ON))))) (PUT1-LST (QUOTE V-APPROX-LENGTH-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-LENGTH-ON V-APPROX-LENGTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LENGTH . V-APPROX-LENGTH-ON) (DISABLED-LEMMAS NIL V-APPROX-LENGTH V-APPROX-LENGTH-ON))))) (PUT1-LST (QUOTE WRITE-MEM-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE WRITE-MEM-MONOTONE-ON WRITE-MEM-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MONOTONE . WRITE-MEM-MONOTONE-ON) (DISABLED-LEMMAS NIL WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-ON))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE WRITE-MEM1-MONOTONE-ON WRITE-MEM1-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE . WRITE-MEM1-MONOTONE-ON) (DISABLED-LEMMAS NIL WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-ON))))) (PUT1-LST (QUOTE WRITE-MEM1-OPENER-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE WRITE-MEM1-OPENER-ON WRITE-MEM1-OPENER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . WRITE-MEM1-OPENER-ON) (DISABLED-LEMMAS NIL WRITE-MEM1-OPENER WRITE-MEM1-OPENER-ON))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON))))) (PUT1-LST (QUOTE S-APPROX-OPENER-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-OPENER-ON S-APPROX-OPENER NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-OPENER-ON) (DISABLED-LEMMAS NIL S-APPROX-OPENER S-APPROX-OPENER-ON))))) (PUT1-LST (QUOTE BVP-OFF2) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE BVP-OFF2 BVP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-OFF2) (DISABLED-LEMMAS NIL BVP BVP-OFF2 . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-VALUE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-VALUE-ON DP-RAM-16X32-MONOTONE-VALUE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-VALUE . DP-RAM-16X32-MONOTONE-VALUE-ON) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-ON DUAL-APPLY-VALUE-DP-RAM-16X32 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32 . DUAL-APPLY-VALUE-DP-RAM-16X32-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON))))) (PUT1-LST (QUOTE EVAL$-APPEND-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-APPEND-2-ON EVAL$-APPEND-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND-2 . EVAL$-APPEND-2-ON) (DISABLED-LEMMAS NIL EVAL$-APPEND-2 EVAL$-APPEND-2-ON))))) (PUT1-LST (QUOTE EVAL$-PAIRLIST-CONS-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-PAIRLIST-CONS-ON EVAL$-PAIRLIST-CONS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-PAIRLIST-CONS . EVAL$-PAIRLIST-CONS-ON) (DISABLED-LEMMAS NIL EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-ON))))) (PUT1-LST (QUOTE EVAL$-APPEND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EVAL$-APPEND-ON EVAL$-APPEND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND . EVAL$-APPEND-ON) (DISABLED-LEMMAS NIL EVAL$-APPEND EVAL$-APPEND-ON))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-MONOTONE-ON DUAL-PORT-RAM-VALUE-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-MONOTONE . DUAL-PORT-RAM-VALUE-MONOTONE-ON) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-ON))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM-ON S-APPROX-IMPLIES-PROPERP-READ-MEM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM . S-APPROX-IMPLIES-PROPERP-READ-MEM-ON) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-ON))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON S-APPROX-IMPLIES-PROPERP-READ-MEM1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM1 . S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM-ON EQUAL-LENGTH-READ-MEM NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM . EQUAL-LENGTH-READ-MEM-ON) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-ON))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM1-ON EQUAL-LENGTH-READ-MEM1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM1 . EQUAL-LENGTH-READ-MEM1-ON) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-ON))))) (PUT1-LST (QUOTE READ-MEM-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE READ-MEM-MONOTONE-ON READ-MEM-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-MONOTONE . READ-MEM-MONOTONE-ON) (DISABLED-LEMMAS NIL READ-MEM-MONOTONE READ-MEM-MONOTONE-ON))))) (PUT1-LST (QUOTE V-APPROX-MAKE-LIST-X-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-MAKE-LIST-X-ON V-APPROX-MAKE-LIST-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . V-APPROX-MAKE-LIST-X-ON) (DISABLED-LEMMAS NIL V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-ON))))) (PUT1-LST (QUOTE V-APPROX-BVP-SUBRANGE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-BVP-SUBRANGE-ON V-APPROX-BVP-SUBRANGE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP-SUBRANGE . V-APPROX-BVP-SUBRANGE-ON) (DISABLED-LEMMAS NIL V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-ON))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON V-APPROX-IMPLIES-SUBRANGES-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-SUBRANGES-EQUAL . V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON))))) (PUT1-LST (QUOTE G*1*B-KNOWNP-ON1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*B-KNOWNP-ON1 *1*B-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . G*1*B-KNOWNP-ON1) (DISABLED-LEMMAS NIL *1*B-KNOWNP G*1*B-KNOWNP-ON1))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-B-APPROX-NTH-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-IMPLIES-B-APPROX-NTH-ON V-APPROX-IMPLIES-B-APPROX-NTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-B-APPROX-NTH . V-APPROX-IMPLIES-B-APPROX-NTH-ON) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-ON))))) (PUT1-LST (QUOTE BVP-IMPLIES-V-KNOWNP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE BVP-IMPLIES-V-KNOWNP-ON BVP-IMPLIES-V-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IMPLIES-V-KNOWNP . BVP-IMPLIES-V-KNOWNP-ON) (DISABLED-LEMMAS NIL BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-ON))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE READ-MEM1-MONOTONE-ON READ-MEM1-MONOTONE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE . READ-MEM1-MONOTONE-ON) (DISABLED-LEMMAS NIL READ-MEM1-MONOTONE READ-MEM1-MONOTONE-ON))))) (PUT1-LST (QUOTE V-APPROX-BVP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-BVP-ON V-APPROX-BVP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP . V-APPROX-BVP-ON) (DISABLED-LEMMAS NIL V-APPROX-BVP V-APPROX-BVP-ON))))) (PUT1-LST (QUOTE BVP-REVERSE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE BVP-REVERSE-ON BVP-REVERSE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REVERSE . BVP-REVERSE-ON) (DISABLED-LEMMAS NIL BVP-REVERSE BVP-REVERSE-ON))))) (PUT1-LST (QUOTE F-PULLUP-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-PULLUP-ON F-PULLUP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP . F-PULLUP-ON) (DISABLED-LEMMAS NIL F-PULLUP F-PULLUP-ON))))) (PUT1-LST (QUOTE FT-WIRE-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FT-WIRE-ON FT-WIRE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE . FT-WIRE-ON) (DISABLED-LEMMAS NIL FT-WIRE FT-WIRE-ON))))) (PUT1-LST (QUOTE FT-BUF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FT-BUF-ON FT-BUF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF . FT-BUF-ON) (DISABLED-LEMMAS NIL FT-BUF FT-BUF-ON))))) (PUT1-LST (QUOTE F-IF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-IF-ON F-IF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF . F-IF-ON) (DISABLED-LEMMAS NIL F-IF F-IF-ON))))) (PUT1-LST (QUOTE F-EQUV3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-EQUV3-ON F-EQUV3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-EQUV3-ON) (DISABLED-LEMMAS NIL F-EQUV3 F-EQUV3-ON))))) (PUT1-LST (QUOTE F-EQUV-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-EQUV-ON F-EQUV NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV . F-EQUV-ON) (DISABLED-LEMMAS NIL F-EQUV F-EQUV-ON))))) (PUT1-LST (QUOTE F-XOR3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-XOR3-ON F-XOR3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR3 . F-XOR3-ON) (DISABLED-LEMMAS NIL F-XOR3 F-XOR3-ON))))) (PUT1-LST (QUOTE F-XOR-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-XOR-ON F-XOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F-XOR-ON) (DISABLED-LEMMAS NIL F-XOR F-XOR-ON))))) (PUT1-LST (QUOTE F-NOR8-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR8-ON F-NOR8 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR8 . F-NOR8-ON) (DISABLED-LEMMAS NIL F-NOR8 F-NOR8-ON))))) (PUT1-LST (QUOTE F-NOR6-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR6-ON F-NOR6 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR6 . F-NOR6-ON) (DISABLED-LEMMAS NIL F-NOR6 F-NOR6-ON))))) (PUT1-LST (QUOTE F-NOR5-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR5-ON F-NOR5 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR5 . F-NOR5-ON) (DISABLED-LEMMAS NIL F-NOR5 F-NOR5-ON))))) (PUT1-LST (QUOTE F-NOR4-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR4-ON F-NOR4 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR4 . F-NOR4-ON) (DISABLED-LEMMAS NIL F-NOR4 F-NOR4-ON))))) (PUT1-LST (QUOTE F-NOR3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR3-ON F-NOR3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F-NOR3-ON) (DISABLED-LEMMAS NIL F-NOR3 F-NOR3-ON))))) (PUT1-LST (QUOTE F-NOR-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR-ON F-NOR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR . F-NOR-ON) (DISABLED-LEMMAS NIL F-NOR F-NOR-ON))))) (PUT1-LST (QUOTE F-OR4-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR4-ON F-OR4 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4 . F-OR4-ON) (DISABLED-LEMMAS NIL F-OR4 F-OR4-ON))))) (PUT1-LST (QUOTE F-OR3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR3-ON F-OR3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR3 . F-OR3-ON) (DISABLED-LEMMAS NIL F-OR3 F-OR3-ON))))) (PUT1-LST (QUOTE F-OR-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR-ON F-OR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-OR-ON) (DISABLED-LEMMAS NIL F-OR F-OR-ON))))) (PUT1-LST (QUOTE F-NAND8-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND8-ON F-NAND8 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND8 . F-NAND8-ON) (DISABLED-LEMMAS NIL F-NAND8 F-NAND8-ON))))) (PUT1-LST (QUOTE F-NAND6-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND6-ON F-NAND6 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND6 . F-NAND6-ON) (DISABLED-LEMMAS NIL F-NAND6 F-NAND6-ON))))) (PUT1-LST (QUOTE F-NAND5-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND5-ON F-NAND5 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND5 . F-NAND5-ON) (DISABLED-LEMMAS NIL F-NAND5 F-NAND5-ON))))) (PUT1-LST (QUOTE F-NAND4-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND4-ON F-NAND4 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4 . F-NAND4-ON) (DISABLED-LEMMAS NIL F-NAND4 F-NAND4-ON))))) (PUT1-LST (QUOTE F-NAND3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND3-ON F-NAND3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3 . F-NAND3-ON) (DISABLED-LEMMAS NIL F-NAND3 F-NAND3-ON))))) (PUT1-LST (QUOTE F-NAND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND-ON F-NAND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F-NAND-ON) (DISABLED-LEMMAS NIL F-NAND F-NAND-ON))))) (PUT1-LST (QUOTE F-NOT-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOT-ON F-NOT NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-ON) (DISABLED-LEMMAS NIL F-NOT F-NOT-ON))))) (PUT1-LST (QUOTE F-AND4-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND4-ON F-AND4 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4 . F-AND4-ON) (DISABLED-LEMMAS NIL F-AND4 F-AND4-ON))))) (PUT1-LST (QUOTE F-AND3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND3-ON F-AND3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND3 . F-AND3-ON) (DISABLED-LEMMAS NIL F-AND3 F-AND3-ON))))) (PUT1-LST (QUOTE F-AND-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND-ON F-AND NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-AND-ON) (DISABLED-LEMMAS NIL F-AND F-AND-ON))))) (PUT1-LST (QUOTE F-BUF-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-BUF-ON F-BUF NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-ON) (DISABLED-LEMMAS NIL F-BUF F-BUF-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-3-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-3-ON MONOTONICITY-PROPERTY-OPENER-3 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-3 . MONOTONICITY-PROPERTY-OPENER-3-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-2-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-2-ON MONOTONICITY-PROPERTY-OPENER-2 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . MONOTONICITY-PROPERTY-OPENER-2-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-1-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-1-ON MONOTONICITY-PROPERTY-OPENER-1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-1 . MONOTONICITY-PROPERTY-OPENER-1-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-0-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-0-ON MONOTONICITY-PROPERTY-OPENER-0 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . MONOTONICITY-PROPERTY-OPENER-0-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-ON))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-ON) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-ON MONOTONICITY-PROPERTY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-ON) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-ON))))) (PUT1-LST (QUOTE B-KNOWNP-COMPOUND-RECOGNIZER-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-KNOWNP-COMPOUND-RECOGNIZER-OFF B-KNOWNP-COMPOUND-RECOGNIZER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . B-KNOWNP-COMPOUND-RECOGNIZER-OFF) (DISABLED-LEMMAS NIL B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP-COMPOUND-RECOGNIZER-OFF . T))))) (PUT1-LST (QUOTE G*1*B-APPROX-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*B-APPROX-OFF *1*B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . G*1*B-APPROX-OFF) (DISABLED-LEMMAS NIL *1*B-APPROX G*1*B-APPROX-OFF . T))))) (PUT1-LST (QUOTE G*1*V-APPROX-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*V-APPROX-OFF *1*V-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . G*1*V-APPROX-OFF) (DISABLED-LEMMAS NIL *1*V-APPROX G*1*V-APPROX-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-OFF1 V-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-OFF1) (DISABLED-LEMMAS NIL V-APPROX V-APPROX-OFF1 . T))))) (PUT1-LST (QUOTE G*1*V-KNOWNP-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*V-KNOWNP-OFF *1*V-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . G*1*V-KNOWNP-OFF) (DISABLED-LEMMAS NIL *1*V-KNOWNP G*1*V-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE V-KNOWNP-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-KNOWNP-OFF1 V-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . V-KNOWNP-OFF1) (DISABLED-LEMMAS NIL V-KNOWNP V-KNOWNP-OFF1 . T))))) (PUT1-LST (QUOTE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF) (DISABLED-LEMMAS NIL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF . T))))) (PUT1-LST (QUOTE G*1*MEM-WIDTH-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MEM-WIDTH-OFF1 *1*MEM-WIDTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . G*1*MEM-WIDTH-OFF1) (DISABLED-LEMMAS NIL *1*MEM-WIDTH G*1*MEM-WIDTH-OFF1 . T))))) (PUT1-LST (QUOTE MEM-WIDTH-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MEM-WIDTH-OFF1 MEM-WIDTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-OFF1) (DISABLED-LEMMAS NIL MEM-WIDTH MEM-WIDTH-OFF1 . T))))) (PUT1-LST (QUOTE G*1*S-APPROX-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*S-APPROX-OFF *1*S-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . G*1*S-APPROX-OFF) (DISABLED-LEMMAS NIL *1*S-APPROX G*1*S-APPROX-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-OFF1 S-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-OFF1) (DISABLED-LEMMAS NIL S-APPROX S-APPROX-OFF1 . T))))) (PUT1-LST (QUOTE S-APPROX-X-X-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-X-X-OFF S-APPROX-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-X-X . S-APPROX-X-X-OFF) (DISABLED-LEMMAS NIL S-APPROX-X-X S-APPROX-X-X-OFF . T))))) (PUT1-LST (QUOTE G*1*GOOD-S-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*GOOD-S-OFF *1*GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . G*1*GOOD-S-OFF) (DISABLED-LEMMAS NIL *1*GOOD-S G*1*GOOD-S-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE GOOD-S-OFF GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-OFF) (DISABLED-LEMMAS NIL GOOD-S GOOD-S-OFF . T))))) (PUT1-LST (QUOTE G*1*S-KNOWNP-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*S-KNOWNP-OFF *1*S-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . G*1*S-KNOWNP-OFF) (DISABLED-LEMMAS NIL *1*S-KNOWNP G*1*S-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE S-KNOWNP-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-KNOWNP-OFF1 S-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-KNOWNP-OFF1) (DISABLED-LEMMAS NIL S-KNOWNP S-KNOWNP-OFF1 . T))))) (PUT1-LST (QUOTE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1) (DISABLED-LEMMAS NIL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE G*1*V-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*V-APPROX-ALIST-OFF *1*V-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . G*1*V-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL *1*V-APPROX-ALIST G*1*V-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE V-APPROX-ALIST-OFF V-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL V-APPROX-ALIST V-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE G*1*S-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*S-APPROX-ALIST-OFF *1*S-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . G*1*S-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL *1*S-APPROX-ALIST G*1*S-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-ALIST-OFF S-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL S-APPROX-ALIST S-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE G*1*MONOTONICITY-PROPERTY-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE G*1*MONOTONICITY-PROPERTY-OFF *1*MONOTONICITY-PROPERTY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . G*1*MONOTONICITY-PROPERTY-OFF) (DISABLED-LEMMAS NIL *1*MONOTONICITY-PROPERTY G*1*MONOTONICITY-PROPERTY-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-0 . MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-1 . MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 . MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF MONOTONICITY-PROPERTY-CONSEQUENCE-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 . MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF . T))))) (PUT1-LST (QUOTE F-BUF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-BUF-MONOTONE-OFF F-BUF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . F-BUF-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-BUF-MONOTONE F-BUF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-AND-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND-MONOTONE-OFF F-AND-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-AND-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-AND-MONOTONE F-AND-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-AND3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND3-MONOTONE-OFF F-AND3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND3-MONOTONE . F-AND3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-AND3-MONOTONE F-AND3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-AND4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-AND4-MONOTONE-OFF F-AND4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4-MONOTONE . F-AND4-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-AND4-MONOTONE F-AND4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOT-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOT-MONOTONE-OFF F-NOT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOT-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOT-MONOTONE F-NOT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND-MONOTONE-OFF F-NAND-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . F-NAND-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND-MONOTONE F-NAND-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND3-MONOTONE-OFF F-NAND3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3-MONOTONE . F-NAND3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND3-MONOTONE F-NAND3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND4-MONOTONE-OFF F-NAND4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4-MONOTONE . F-NAND4-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND4-MONOTONE F-NAND4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND5-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND5-MONOTONE-OFF F-NAND5-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND5-MONOTONE . F-NAND5-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND5-MONOTONE F-NAND5-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND6-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND6-MONOTONE-OFF F-NAND6-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND6-MONOTONE . F-NAND6-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND6-MONOTONE F-NAND6-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NAND8-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NAND8-MONOTONE-OFF F-NAND8-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND8-MONOTONE . F-NAND8-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NAND8-MONOTONE F-NAND8-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-OR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR-MONOTONE-OFF F-OR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-OR-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-OR-MONOTONE F-OR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-OR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR3-MONOTONE-OFF F-OR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR3-MONOTONE . F-OR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-OR3-MONOTONE F-OR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-OR4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-OR4-MONOTONE-OFF F-OR4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4-MONOTONE . F-OR4-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-OR4-MONOTONE F-OR4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR-MONOTONE-OFF F-NOR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . F-NOR-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR-MONOTONE F-NOR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR3-MONOTONE-OFF F-NOR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3-MONOTONE . F-NOR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR3-MONOTONE F-NOR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR4-MONOTONE-OFF F-NOR4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR4-MONOTONE . F-NOR4-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR4-MONOTONE F-NOR4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR5-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR5-MONOTONE-OFF F-NOR5-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR5-MONOTONE . F-NOR5-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR5-MONOTONE F-NOR5-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR6-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR6-MONOTONE-OFF F-NOR6-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR6-MONOTONE . F-NOR6-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR6-MONOTONE F-NOR6-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-NOR8-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-NOR8-MONOTONE-OFF F-NOR8-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR8-MONOTONE . F-NOR8-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-NOR8-MONOTONE F-NOR8-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-XOR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-XOR-MONOTONE-OFF F-XOR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . F-XOR-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-XOR-MONOTONE F-XOR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-EQUV-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-EQUV-MONOTONE-OFF F-EQUV-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV-MONOTONE . F-EQUV-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-EQUV-MONOTONE F-EQUV-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-XOR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-XOR3-MONOTONE-OFF F-XOR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR3-MONOTONE . F-XOR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-XOR3-MONOTONE F-XOR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-EQUV3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-EQUV3-MONOTONE-OFF F-EQUV3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV3-MONOTONE . F-EQUV3-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-EQUV3-MONOTONE F-EQUV3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-IF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-IF-MONOTONE-OFF F-IF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . F-IF-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-IF-MONOTONE F-IF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE FT-BUF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FT-BUF-MONOTONE-OFF FT-BUF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . FT-BUF-MONOTONE-OFF) (DISABLED-LEMMAS NIL FT-BUF-MONOTONE FT-BUF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE FT-WIRE-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FT-WIRE-MONOTONE-OFF FT-WIRE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE-MONOTONE . FT-WIRE-MONOTONE-OFF) (DISABLED-LEMMAS NIL FT-WIRE-MONOTONE FT-WIRE-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE F-PULLUP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-PULLUP-MONOTONE-OFF F-PULLUP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP-MONOTONE . F-PULLUP-MONOTONE-OFF) (DISABLED-LEMMAS NIL F-PULLUP-MONOTONE F-PULLUP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-0-PRIMP-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-0-PRIMP-OFF DUAL-EVAL-0-PRIMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-0-PRIMP-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-0-PRIMP DUAL-EVAL-0-PRIMP-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-2-PRIMP-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-2-PRIMP-OFF DUAL-EVAL-2-PRIMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-2-PRIMP-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-2-PRIMP DUAL-EVAL-2-PRIMP-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-B-APPROX-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE S-APPROX-IMPLIES-B-APPROX-OFF S-APPROX-IMPLIES-B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-IMPLIES-B-APPROX-OFF) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-B-APPROX S-APPROX-IMPLIES-B-APPROX-OFF . T))))) (PUT1-LST (QUOTE F-BUF-TYPE-SET-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE F-BUF-TYPE-SET-OFF F-BUF-TYPE-SET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-TYPE-SET . F-BUF-TYPE-SET-OFF) (DISABLED-LEMMAS NIL F-BUF-TYPE-SET F-BUF-TYPE-SET-OFF . T))))) (PUT1-LST (QUOTE FOURP-F-BUF-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FOURP-F-BUF-OFF FOURP-F-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FOURP-F-BUF-OFF) (DISABLED-LEMMAS NIL FOURP-F-BUF FOURP-F-BUF-OFF . T))))) (PUT1-LST (QUOTE FOURP-F-IF-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FOURP-F-IF-OFF FOURP-F-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-F-IF . FOURP-F-IF-OFF) (DISABLED-LEMMAS NIL FOURP-F-IF FOURP-F-IF-OFF . T))))) (PUT1-LST (QUOTE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 FOURP-IMPLIES-S-APPROX-IS-B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1) (DISABLED-LEMMAS NIL FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO2-VALUE-OFF DUAL-EVAL-AO2-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-VALUE . DUAL-EVAL-AO2-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO2-STATE-OFF DUAL-EVAL-AO2-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-STATE . DUAL-EVAL-AO2-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-STATE-OFF . T))))) (PUT1-LST (QUOTE AO2-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE AO2-MONOTONE-OFF AO2-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-MONOTONE . AO2-MONOTONE-OFF) (DISABLED-LEMMAS NIL AO2-MONOTONE AO2-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO4-VALUE-OFF DUAL-EVAL-AO4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-VALUE . DUAL-EVAL-AO4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO4-STATE-OFF DUAL-EVAL-AO4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-STATE . DUAL-EVAL-AO4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-STATE-OFF . T))))) (PUT1-LST (QUOTE AO4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE AO4-MONOTONE-OFF AO4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4-MONOTONE . AO4-MONOTONE-OFF) (DISABLED-LEMMAS NIL AO4-MONOTONE AO4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO6-VALUE-OFF DUAL-EVAL-AO6-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-VALUE . DUAL-EVAL-AO6-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO6-STATE-OFF DUAL-EVAL-AO6-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-STATE . DUAL-EVAL-AO6-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-STATE-OFF . T))))) (PUT1-LST (QUOTE AO6-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE AO6-MONOTONE-OFF AO6-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6-MONOTONE . AO6-MONOTONE-OFF) (DISABLED-LEMMAS NIL AO6-MONOTONE AO6-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO7-VALUE-OFF DUAL-EVAL-AO7-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-VALUE . DUAL-EVAL-AO7-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-AO7-STATE-OFF DUAL-EVAL-AO7-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-STATE . DUAL-EVAL-AO7-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-STATE-OFF . T))))) (PUT1-LST (QUOTE AO7-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE AO7-MONOTONE-OFF AO7-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7-MONOTONE . AO7-MONOTONE-OFF) (DISABLED-LEMMAS NIL AO7-MONOTONE AO7-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND-VALUE-OFF DUAL-EVAL-B-AND-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-VALUE . DUAL-EVAL-B-AND-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND-STATE-OFF DUAL-EVAL-B-AND-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-STATE . DUAL-EVAL-B-AND-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-STATE-OFF . T))))) (PUT1-LST (QUOTE B-AND-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-AND-MONOTONE-OFF B-AND-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-MONOTONE . B-AND-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-AND-MONOTONE B-AND-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND3-VALUE-OFF DUAL-EVAL-B-AND3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-VALUE . DUAL-EVAL-B-AND3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND3-STATE-OFF DUAL-EVAL-B-AND3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-STATE . DUAL-EVAL-B-AND3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-AND3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-AND3-MONOTONE-OFF B-AND3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3-MONOTONE . B-AND3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-AND3-MONOTONE B-AND3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND4-VALUE-OFF DUAL-EVAL-B-AND4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-VALUE . DUAL-EVAL-B-AND4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-AND4-STATE-OFF DUAL-EVAL-B-AND4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-STATE . DUAL-EVAL-B-AND4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-STATE-OFF . T))))) (PUT1-LST (QUOTE B-AND4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-AND4-MONOTONE-OFF B-AND4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4-MONOTONE . B-AND4-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-AND4-MONOTONE B-AND4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-EQUV-VALUE-OFF DUAL-EVAL-B-EQUV-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-VALUE . DUAL-EVAL-B-EQUV-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-EQUV-STATE-OFF DUAL-EVAL-B-EQUV-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-STATE . DUAL-EVAL-B-EQUV-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-STATE-OFF . T))))) (PUT1-LST (QUOTE B-EQUV-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-EQUV-MONOTONE-OFF B-EQUV-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV-MONOTONE . B-EQUV-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-EQUV-MONOTONE B-EQUV-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-EQUV3-VALUE-OFF DUAL-EVAL-B-EQUV3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-VALUE . DUAL-EVAL-B-EQUV3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-EQUV3-STATE-OFF DUAL-EVAL-B-EQUV3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-STATE . DUAL-EVAL-B-EQUV3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-EQUV3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-EQUV3-MONOTONE-OFF B-EQUV3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3-MONOTONE . B-EQUV3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-EQUV3-MONOTONE B-EQUV3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-IF-VALUE-OFF DUAL-EVAL-B-IF-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-VALUE . DUAL-EVAL-B-IF-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-IF-STATE-OFF DUAL-EVAL-B-IF-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-STATE . DUAL-EVAL-B-IF-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-STATE-OFF . T))))) (PUT1-LST (QUOTE B-IF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-IF-MONOTONE-OFF B-IF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF-MONOTONE . B-IF-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-IF-MONOTONE B-IF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND-VALUE-OFF DUAL-EVAL-B-NAND-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-VALUE . DUAL-EVAL-B-NAND-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND-STATE-OFF DUAL-EVAL-B-NAND-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-STATE . DUAL-EVAL-B-NAND-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND-MONOTONE-OFF B-NAND-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND-MONOTONE . B-NAND-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND-MONOTONE B-NAND-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND3-VALUE-OFF DUAL-EVAL-B-NAND3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-VALUE . DUAL-EVAL-B-NAND3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND3-STATE-OFF DUAL-EVAL-B-NAND3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-STATE . DUAL-EVAL-B-NAND3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND3-MONOTONE-OFF B-NAND3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3-MONOTONE . B-NAND3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND3-MONOTONE B-NAND3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND4-VALUE-OFF DUAL-EVAL-B-NAND4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-VALUE . DUAL-EVAL-B-NAND4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND4-STATE-OFF DUAL-EVAL-B-NAND4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-STATE . DUAL-EVAL-B-NAND4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND4-MONOTONE-OFF B-NAND4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4-MONOTONE . B-NAND4-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND4-MONOTONE B-NAND4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND5-VALUE-OFF DUAL-EVAL-B-NAND5-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-VALUE . DUAL-EVAL-B-NAND5-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND5-STATE-OFF DUAL-EVAL-B-NAND5-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-STATE . DUAL-EVAL-B-NAND5-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND5-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND5-MONOTONE-OFF B-NAND5-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5-MONOTONE . B-NAND5-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND5-MONOTONE B-NAND5-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND6-VALUE-OFF DUAL-EVAL-B-NAND6-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-VALUE . DUAL-EVAL-B-NAND6-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND6-STATE-OFF DUAL-EVAL-B-NAND6-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-STATE . DUAL-EVAL-B-NAND6-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND6-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND6-MONOTONE-OFF B-NAND6-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6-MONOTONE . B-NAND6-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND6-MONOTONE B-NAND6-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND8-VALUE-OFF DUAL-EVAL-B-NAND8-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-VALUE . DUAL-EVAL-B-NAND8-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NAND8-STATE-OFF DUAL-EVAL-B-NAND8-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-STATE . DUAL-EVAL-B-NAND8-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NAND8-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NAND8-MONOTONE-OFF B-NAND8-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8-MONOTONE . B-NAND8-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NAND8-MONOTONE B-NAND8-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NBUF-VALUE-OFF DUAL-EVAL-B-NBUF-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-VALUE . DUAL-EVAL-B-NBUF-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NBUF-STATE-OFF DUAL-EVAL-B-NBUF-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-STATE . DUAL-EVAL-B-NBUF-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NBUF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NBUF-MONOTONE-OFF B-NBUF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF-MONOTONE . B-NBUF-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NBUF-MONOTONE B-NBUF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR-VALUE-OFF DUAL-EVAL-B-NOR-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-VALUE . DUAL-EVAL-B-NOR-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR-STATE-OFF DUAL-EVAL-B-NOR-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-STATE . DUAL-EVAL-B-NOR-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR-MONOTONE-OFF B-NOR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR-MONOTONE . B-NOR-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR-MONOTONE B-NOR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR3-VALUE-OFF DUAL-EVAL-B-NOR3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-VALUE . DUAL-EVAL-B-NOR3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR3-STATE-OFF DUAL-EVAL-B-NOR3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-STATE . DUAL-EVAL-B-NOR3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR3-MONOTONE-OFF B-NOR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3-MONOTONE . B-NOR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR3-MONOTONE B-NOR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR4-VALUE-OFF DUAL-EVAL-B-NOR4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-VALUE . DUAL-EVAL-B-NOR4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR4-STATE-OFF DUAL-EVAL-B-NOR4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-STATE . DUAL-EVAL-B-NOR4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR4-MONOTONE-OFF B-NOR4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4-MONOTONE . B-NOR4-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR4-MONOTONE B-NOR4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR5-VALUE-OFF DUAL-EVAL-B-NOR5-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-VALUE . DUAL-EVAL-B-NOR5-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR5-STATE-OFF DUAL-EVAL-B-NOR5-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-STATE . DUAL-EVAL-B-NOR5-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR5-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR5-MONOTONE-OFF B-NOR5-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5-MONOTONE . B-NOR5-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR5-MONOTONE B-NOR5-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR6-VALUE-OFF DUAL-EVAL-B-NOR6-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-VALUE . DUAL-EVAL-B-NOR6-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR6-STATE-OFF DUAL-EVAL-B-NOR6-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-STATE . DUAL-EVAL-B-NOR6-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR6-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR6-MONOTONE-OFF B-NOR6-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6-MONOTONE . B-NOR6-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR6-MONOTONE B-NOR6-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR8-VALUE-OFF DUAL-EVAL-B-NOR8-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-VALUE . DUAL-EVAL-B-NOR8-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOR8-STATE-OFF DUAL-EVAL-B-NOR8-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-STATE . DUAL-EVAL-B-NOR8-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOR8-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOR8-MONOTONE-OFF B-NOR8-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8-MONOTONE . B-NOR8-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOR8-MONOTONE B-NOR8-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-VALUE-OFF DUAL-EVAL-B-NOT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-VALUE . DUAL-EVAL-B-NOT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-STATE-OFF DUAL-EVAL-B-NOT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-STATE . DUAL-EVAL-B-NOT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOT-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOT-MONOTONE-OFF B-NOT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-MONOTONE . B-NOT-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOT-MONOTONE B-NOT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-B4IP-VALUE-OFF DUAL-EVAL-B-NOT-B4IP-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-VALUE . DUAL-EVAL-B-NOT-B4IP-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-B4IP-STATE-OFF DUAL-EVAL-B-NOT-B4IP-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-STATE . DUAL-EVAL-B-NOT-B4IP-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOT-B4IP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOT-B4IP-MONOTONE-OFF B-NOT-B4IP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-MONOTONE . B-NOT-B4IP-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOT-B4IP-MONOTONE B-NOT-B4IP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-IVAP-VALUE-OFF DUAL-EVAL-B-NOT-IVAP-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-VALUE . DUAL-EVAL-B-NOT-IVAP-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-NOT-IVAP-STATE-OFF DUAL-EVAL-B-NOT-IVAP-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-STATE . DUAL-EVAL-B-NOT-IVAP-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-STATE-OFF . T))))) (PUT1-LST (QUOTE B-NOT-IVAP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-NOT-IVAP-MONOTONE-OFF B-NOT-IVAP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-MONOTONE . B-NOT-IVAP-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-NOT-IVAP-MONOTONE B-NOT-IVAP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR-VALUE-OFF DUAL-EVAL-B-OR-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-VALUE . DUAL-EVAL-B-OR-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR-STATE-OFF DUAL-EVAL-B-OR-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-STATE . DUAL-EVAL-B-OR-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-STATE-OFF . T))))) (PUT1-LST (QUOTE B-OR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-OR-MONOTONE-OFF B-OR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR-MONOTONE . B-OR-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-OR-MONOTONE B-OR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR3-VALUE-OFF DUAL-EVAL-B-OR3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-VALUE . DUAL-EVAL-B-OR3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR3-STATE-OFF DUAL-EVAL-B-OR3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-STATE . DUAL-EVAL-B-OR3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-OR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-OR3-MONOTONE-OFF B-OR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3-MONOTONE . B-OR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-OR3-MONOTONE B-OR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR4-VALUE-OFF DUAL-EVAL-B-OR4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-VALUE . DUAL-EVAL-B-OR4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-OR4-STATE-OFF DUAL-EVAL-B-OR4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-STATE . DUAL-EVAL-B-OR4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-STATE-OFF . T))))) (PUT1-LST (QUOTE B-OR4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-OR4-MONOTONE-OFF B-OR4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4-MONOTONE . B-OR4-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-OR4-MONOTONE B-OR4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-XOR-VALUE-OFF DUAL-EVAL-B-XOR-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-VALUE . DUAL-EVAL-B-XOR-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-XOR-STATE-OFF DUAL-EVAL-B-XOR-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-STATE . DUAL-EVAL-B-XOR-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-STATE-OFF . T))))) (PUT1-LST (QUOTE B-XOR-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-XOR-MONOTONE-OFF B-XOR-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR-MONOTONE . B-XOR-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-XOR-MONOTONE B-XOR-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-XOR3-VALUE-OFF DUAL-EVAL-B-XOR3-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-VALUE . DUAL-EVAL-B-XOR3-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-B-XOR3-STATE-OFF DUAL-EVAL-B-XOR3-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-STATE . DUAL-EVAL-B-XOR3-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-STATE-OFF . T))))) (PUT1-LST (QUOTE B-XOR3-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE B-XOR3-MONOTONE-OFF B-XOR3-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3-MONOTONE . B-XOR3-MONOTONE-OFF) (DISABLED-LEMMAS NIL B-XOR3-MONOTONE B-XOR3-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL2-VALUE-OFF DUAL-EVAL-DEL2-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-VALUE . DUAL-EVAL-DEL2-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL2-STATE-OFF DUAL-EVAL-DEL2-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-STATE . DUAL-EVAL-DEL2-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-STATE-OFF . T))))) (PUT1-LST (QUOTE DEL2-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DEL2-MONOTONE-OFF DEL2-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2-MONOTONE . DEL2-MONOTONE-OFF) (DISABLED-LEMMAS NIL DEL2-MONOTONE DEL2-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL4-VALUE-OFF DUAL-EVAL-DEL4-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-VALUE . DUAL-EVAL-DEL4-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL4-STATE-OFF DUAL-EVAL-DEL4-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-STATE . DUAL-EVAL-DEL4-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-STATE-OFF . T))))) (PUT1-LST (QUOTE DEL4-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DEL4-MONOTONE-OFF DEL4-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4-MONOTONE . DEL4-MONOTONE-OFF) (DISABLED-LEMMAS NIL DEL4-MONOTONE DEL4-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL10-VALUE-OFF DUAL-EVAL-DEL10-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-VALUE . DUAL-EVAL-DEL10-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-DEL10-STATE-OFF DUAL-EVAL-DEL10-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-STATE . DUAL-EVAL-DEL10-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-STATE-OFF . T))))) (PUT1-LST (QUOTE DEL10-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DEL10-MONOTONE-OFF DEL10-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10-MONOTONE . DEL10-MONOTONE-OFF) (DISABLED-LEMMAS NIL DEL10-MONOTONE DEL10-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-PROCMON-VALUE-OFF DUAL-EVAL-PROCMON-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-VALUE . DUAL-EVAL-PROCMON-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-PROCMON-STATE-OFF DUAL-EVAL-PROCMON-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-STATE . DUAL-EVAL-PROCMON-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-STATE-OFF . T))))) (PUT1-LST (QUOTE PROCMON-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE PROCMON-MONOTONE-OFF PROCMON-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON-MONOTONE . PROCMON-MONOTONE-OFF) (DISABLED-LEMMAS NIL PROCMON-MONOTONE PROCMON-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1-VALUE-OFF DUAL-EVAL-FD1-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-VALUE . DUAL-EVAL-FD1-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1-STATE-OFF DUAL-EVAL-FD1-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-STATE . DUAL-EVAL-FD1-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-STATE-OFF . T))))) (PUT1-LST (QUOTE FD1-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FD1-MONOTONE-OFF FD1-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1-MONOTONE . FD1-MONOTONE-OFF) (DISABLED-LEMMAS NIL FD1-MONOTONE FD1-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1S-VALUE-OFF DUAL-EVAL-FD1S-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-VALUE . DUAL-EVAL-FD1S-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1S-STATE-OFF DUAL-EVAL-FD1S-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-STATE . DUAL-EVAL-FD1S-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-STATE-OFF . T))))) (PUT1-LST (QUOTE FD1S-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FD1S-MONOTONE-OFF FD1S-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S-MONOTONE . FD1S-MONOTONE-OFF) (DISABLED-LEMMAS NIL FD1S-MONOTONE FD1S-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1SP-VALUE-OFF DUAL-EVAL-FD1SP-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-VALUE . DUAL-EVAL-FD1SP-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1SP-STATE-OFF DUAL-EVAL-FD1SP-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-STATE . DUAL-EVAL-FD1SP-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-STATE-OFF . T))))) (PUT1-LST (QUOTE FD1SP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FD1SP-MONOTONE-OFF FD1SP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP-MONOTONE . FD1SP-MONOTONE-OFF) (DISABLED-LEMMAS NIL FD1SP-MONOTONE FD1SP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1SLP-VALUE-OFF DUAL-EVAL-FD1SLP-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-VALUE . DUAL-EVAL-FD1SLP-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-FD1SLP-STATE-OFF DUAL-EVAL-FD1SLP-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-STATE . DUAL-EVAL-FD1SLP-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-STATE-OFF . T))))) (PUT1-LST (QUOTE FD1SLP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE FD1SLP-MONOTONE-OFF FD1SLP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP-MONOTONE . FD1SLP-MONOTONE-OFF) (DISABLED-LEMMAS NIL FD1SLP-MONOTONE FD1SLP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-ID-VALUE-OFF DUAL-EVAL-ID-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-VALUE . DUAL-EVAL-ID-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-ID-STATE-OFF DUAL-EVAL-ID-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-STATE . DUAL-EVAL-ID-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-ID-STATE DUAL-EVAL-ID-STATE-OFF . T))))) (PUT1-LST (QUOTE ID-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE ID-MONOTONE-OFF ID-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID-MONOTONE . ID-MONOTONE-OFF) (DISABLED-LEMMAS NIL ID-MONOTONE ID-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF . T))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE RAM-ENABLE-CIRCUIT-MONOTONE-OFF RAM-ENABLE-CIRCUIT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-MONOTONE . RAM-ENABLE-CIRCUIT-MONOTONE-OFF) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-T-BUF-VALUE-OFF DUAL-EVAL-T-BUF-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-VALUE . DUAL-EVAL-T-BUF-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-T-BUF-STATE-OFF DUAL-EVAL-T-BUF-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-STATE . DUAL-EVAL-T-BUF-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-STATE-OFF . T))))) (PUT1-LST (QUOTE T-BUF-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE T-BUF-MONOTONE-OFF T-BUF-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF-MONOTONE . T-BUF-MONOTONE-OFF) (DISABLED-LEMMAS NIL T-BUF-MONOTONE T-BUF-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-T-WIRE-VALUE-OFF DUAL-EVAL-T-WIRE-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-VALUE . DUAL-EVAL-T-WIRE-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-T-WIRE-STATE-OFF DUAL-EVAL-T-WIRE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-STATE . DUAL-EVAL-T-WIRE-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-STATE-OFF . T))))) (PUT1-LST (QUOTE T-WIRE-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE T-WIRE-MONOTONE-OFF T-WIRE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-MONOTONE . T-WIRE-MONOTONE-OFF) (DISABLED-LEMMAS NIL T-WIRE-MONOTONE T-WIRE-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-PULLUP-VALUE-OFF DUAL-EVAL-PULLUP-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-VALUE . DUAL-EVAL-PULLUP-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-PULLUP-STATE-OFF DUAL-EVAL-PULLUP-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-STATE . DUAL-EVAL-PULLUP-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-STATE-OFF . T))))) (PUT1-LST (QUOTE PULLUP-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE PULLUP-MONOTONE-OFF PULLUP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP-MONOTONE . PULLUP-MONOTONE-OFF) (DISABLED-LEMMAS NIL PULLUP-MONOTONE PULLUP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF DUAL-EVAL-TTL-BIDIRECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-VALUE . DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-TTL-BIDIRECT-STATE-OFF DUAL-EVAL-TTL-BIDIRECT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-STATE . DUAL-EVAL-TTL-BIDIRECT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE TTL-BIDIRECT-MONOTONE-OFF TTL-BIDIRECT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-MONOTONE . TTL-BIDIRECT-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-MONOTONE TTL-BIDIRECT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF DUAL-EVAL-TTL-CLK-INPUT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-VALUE . DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF DUAL-EVAL-TTL-CLK-INPUT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-STATE . DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-MONOTONE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE TTL-CLK-INPUT-MONOTONE-OFF TTL-CLK-INPUT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-MONOTONE . TTL-CLK-INPUT-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-CLK-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-VALUE-OFF) (QUOTE (IDATE 1000402194944 EVENT (TOGGLE DUAL-EVAL-TTL-INPUT-VALUE-OFF DUAL-EVAL-TTL-INPUT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-VALUE . DUAL-EVAL-TTL-INPUT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-INPUT-STATE-OFF DUAL-EVAL-TTL-INPUT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-STATE . DUAL-EVAL-TTL-INPUT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-INPUT-MONOTONE-OFF TTL-INPUT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-MONOTONE . TTL-INPUT-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-MONOTONE TTL-INPUT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-VALUE . DUAL-EVAL-TTL-OUTPUT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-STATE-OFF DUAL-EVAL-TTL-OUTPUT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-STATE . DUAL-EVAL-TTL-OUTPUT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-MONOTONE-OFF TTL-OUTPUT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-MONOTONE . TTL-OUTPUT-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-MONOTONE TTL-OUTPUT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF TTL-OUTPUT-PARAMETRIC-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-MONOTONE . TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-VALUE . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF DUAL-EVAL-TTL-OUTPUT-FAST-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-STATE . DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-FAST-MONOTONE-OFF TTL-OUTPUT-FAST-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-MONOTONE . TTL-OUTPUT-FAST-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-FAST-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-TRI-OUTPUT-MONOTONE-OFF TTL-TRI-OUTPUT-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-MONOTONE . TTL-TRI-OUTPUT-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-MONOTONE TTL-TRI-OUTPUT-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST-MONOTONE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-MONOTONE . TTL-TRI-OUTPUT-FAST-MONOTONE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VDD-VALUE-OFF DUAL-EVAL-VDD-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-VALUE . DUAL-EVAL-VDD-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VDD-STATE-OFF DUAL-EVAL-VDD-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-STATE . DUAL-EVAL-VDD-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-STATE-OFF . T))))) (PUT1-LST (QUOTE VDD-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VDD-MONOTONE-OFF VDD-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-MONOTONE . VDD-MONOTONE-OFF) (DISABLED-LEMMAS NIL VDD-MONOTONE VDD-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF DUAL-EVAL-VDD-PARAMETRIC-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-VALUE . DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF DUAL-EVAL-VDD-PARAMETRIC-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-STATE . DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF . T))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VDD-PARAMETRIC-MONOTONE-OFF VDD-PARAMETRIC-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-MONOTONE . VDD-PARAMETRIC-MONOTONE-OFF) (DISABLED-LEMMAS NIL VDD-PARAMETRIC-MONOTONE VDD-PARAMETRIC-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VSS-VALUE-OFF DUAL-EVAL-VSS-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-VALUE . DUAL-EVAL-VSS-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-VSS-STATE-OFF DUAL-EVAL-VSS-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-STATE . DUAL-EVAL-VSS-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-STATE-OFF . T))))) (PUT1-LST (QUOTE VSS-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VSS-MONOTONE-OFF VSS-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS-MONOTONE . VSS-MONOTONE-OFF) (DISABLED-LEMMAS NIL VSS-MONOTONE VSS-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE BVP-REV1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE BVP-REV1-OFF BVP-REV1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REV1 . BVP-REV1-OFF) (DISABLED-LEMMAS NIL BVP-REV1 BVP-REV1-OFF . T))))) (PUT1-LST (QUOTE G*1*READ-MEM1-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*READ-MEM1-MONOTONE-INDUCTION-OFF *1*READ-MEM1-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE-INDUCTION . G*1*READ-MEM1-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*READ-MEM1-MONOTONE-INDUCTION G*1*READ-MEM1-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE READ-MEM1-MONOTONE-INDUCTION-OFF READ-MEM1-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE-INDUCTION . READ-MEM1-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL READ-MEM1-MONOTONE-INDUCTION READ-MEM1-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-X-X-OFF1) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-X-X-OFF1 V-APPROX-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-X-X-OFF1) (DISABLED-LEMMAS NIL V-APPROX-X-X V-APPROX-X-X-OFF1 . T))))) (PUT1-LST (QUOTE G*1*DUAL-PORT-RAM-VALUE-BODY-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DUAL-PORT-RAM-VALUE-BODY-OFF *1*DUAL-PORT-RAM-VALUE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-BODY . G*1*DUAL-PORT-RAM-VALUE-BODY-OFF) (DISABLED-LEMMAS NIL *1*DUAL-PORT-RAM-VALUE-BODY G*1*DUAL-PORT-RAM-VALUE-BODY-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-BODY-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-BODY-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-BODY-OFF . T))))) (PUT1-LST (QUOTE G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF *1*WRITE-MEM1-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE-INDUCTION . G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*WRITE-MEM1-MONOTONE-INDUCTION G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE WRITE-MEM1-MONOTONE-INDUCTION-OFF WRITE-MEM1-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE-INDUCTION . WRITE-MEM1-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF *1*WRITE-MEM1-DOUBLE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*WRITE-MEM1-DOUBLE-INDUCTION G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM1-DOUBLE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE WRITE-MEM1-DOUBLE-INDUCTION-OFF WRITE-MEM1-DOUBLE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . WRITE-MEM1-DOUBLE-INDUCTION-OFF) (DISABLED-LEMMAS NIL WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-DOUBLE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-PORT-RAM-STATE-MONOTONE-OFF DUAL-PORT-RAM-STATE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE . DUAL-PORT-RAM-STATE-MONOTONE-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-STATE-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE G*1*DUAL-PORT-RAM-STATE-BODY-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DUAL-PORT-RAM-STATE-BODY-OFF *1*DUAL-PORT-RAM-STATE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-BODY . G*1*DUAL-PORT-RAM-STATE-BODY-OFF) (DISABLED-LEMMAS NIL *1*DUAL-PORT-RAM-STATE-BODY G*1*DUAL-PORT-RAM-STATE-BODY-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-BODY-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-BODY-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-BODY-OFF . T))))) (PUT1-LST (QUOTE G*1*OK-NETLISTP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*OK-NETLISTP-OFF *1*OK-NETLISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP . G*1*OK-NETLISTP-OFF) (DISABLED-LEMMAS NIL *1*OK-NETLISTP G*1*OK-NETLISTP-OFF . T))))) (PUT1-LST (QUOTE OK-NETLISTP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE OK-NETLISTP-OFF OK-NETLISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP . OK-NETLISTP-OFF) (DISABLED-LEMMAS NIL OK-NETLISTP OK-NETLISTP-OFF . T))))) (PUT1-LST (QUOTE PRIMP-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE PRIMP-MONOTONE-OFF PRIMP-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-MONOTONE . PRIMP-MONOTONE-OFF) (DISABLED-LEMMAS NIL PRIMP-MONOTONE PRIMP-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF *1*DUAL-EVAL-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DUAL-EVAL-MONOTONE-INDUCTION G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-MONOTONE-INDUCTION-OFF DUAL-EVAL-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . DUAL-EVAL-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF) (DISABLED-LEMMAS NIL V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF . T))))) (PUT1-LST (QUOTE ALISTP-PAIRLIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALISTP-PAIRLIST-OFF ALISTP-PAIRLIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-PAIRLIST . ALISTP-PAIRLIST-OFF) (DISABLED-LEMMAS NIL ALISTP-PAIRLIST ALISTP-PAIRLIST-OFF . T))))) (PUT1-LST (QUOTE ALISTP-APPEND-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALISTP-APPEND-OFF ALISTP-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-APPEND . ALISTP-APPEND-OFF) (DISABLED-LEMMAS NIL ALISTP-APPEND ALISTP-APPEND-OFF . T))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALISTP-DUAL-EVAL-1-OFF ALISTP-DUAL-EVAL-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-1 . ALISTP-DUAL-EVAL-1-OFF) (DISABLED-LEMMAS NIL ALISTP-DUAL-EVAL-1 ALISTP-DUAL-EVAL-1-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE G*1*S-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*S-APPROX-LIST-OFF *1*S-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . G*1*S-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL *1*S-APPROX-LIST G*1*S-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-LIST-OFF S-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . S-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL S-APPROX-LIST S-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF S-APPROX-LIST-IMPLIES-S-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST-IMPLIES-S-APPROX-ALIST . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-V-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-IMPLIES-V-APPROX-ALIST-OFF V-APPROX-IMPLIES-V-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-V-APPROX-ALIST . V-APPROX-IMPLIES-V-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-IMPLIES-V-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE ALISTP-OPENER-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALISTP-OPENER-OFF ALISTP-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-OPENER . ALISTP-OPENER-OFF) (DISABLED-LEMMAS NIL ALISTP-OPENER ALISTP-OPENER-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-ALIST-APPEND-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-ALIST-APPEND-OFF V-APPROX-ALIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-APPEND . V-APPROX-ALIST-APPEND-OFF) (DISABLED-LEMMAS NIL V-APPROX-ALIST-APPEND V-APPROX-ALIST-APPEND-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-CDR-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DOUBLE-CDR-INDUCTION-OFF *1*DOUBLE-CDR-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-CDR-INDUCTION . G*1*DOUBLE-CDR-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DOUBLE-CDR-INDUCTION G*1*DOUBLE-CDR-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLE-CDR-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DOUBLE-CDR-INDUCTION-OFF DOUBLE-CDR-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-CDR-INDUCTION . DOUBLE-CDR-INDUCTION-OFF) (DISABLED-LEMMAS NIL DOUBLE-CDR-INDUCTION DOUBLE-CDR-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-3-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALISTP-DUAL-EVAL-3-OFF ALISTP-DUAL-EVAL-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-3 . ALISTP-DUAL-EVAL-3-OFF) (DISABLED-LEMMAS NIL ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-3-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-S-APPROX-ALIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-IMPLIES-S-APPROX-ALIST-OFF S-APPROX-IMPLIES-S-APPROX-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-S-APPROX-ALIST . S-APPROX-IMPLIES-S-APPROX-ALIST-OFF) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-IMPLIES-S-APPROX-ALIST-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE OK-NETLISTP-REDUCTION-OFF OK-NETLISTP-REDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION . OK-NETLISTP-REDUCTION-OFF) (DISABLED-LEMMAS NIL OK-NETLISTP-REDUCTION OK-NETLISTP-REDUCTION-OFF . T))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION-REWRITE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE OK-NETLISTP-REDUCTION-REWRITE-OFF OK-NETLISTP-REDUCTION-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . OK-NETLISTP-REDUCTION-REWRITE-OFF) (DISABLED-LEMMAS NIL OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION-REWRITE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-NO-RAM-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-MONOTONE-NO-RAM-OFF DUAL-EVAL-MONOTONE-NO-RAM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-NO-RAM . DUAL-EVAL-MONOTONE-NO-RAM-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE-NO-RAM DUAL-EVAL-MONOTONE-NO-RAM-OFF . T))))) (PUT1-LST (QUOTE G*1*GOOD-S-ALIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*GOOD-S-ALIST-OFF *1*GOOD-S-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . G*1*GOOD-S-ALIST-OFF) (DISABLED-LEMMAS NIL *1*GOOD-S-ALIST G*1*GOOD-S-ALIST-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-ALIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-ALIST-OFF GOOD-S-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-ALIST-OFF) (DISABLED-LEMMAS NIL GOOD-S-ALIST GOOD-S-ALIST-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-ALIST-PAIRLIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-ALIST-PAIRLIST-OFF GOOD-S-ALIST-PAIRLIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST-PAIRLIST . GOOD-S-ALIST-PAIRLIST-OFF) (DISABLED-LEMMAS NIL GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST-PAIRLIST-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-VALUE-OFF GOOD-S-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-VALUE . GOOD-S-VALUE-OFF) (DISABLED-LEMMAS NIL GOOD-S-VALUE GOOD-S-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DUAL-EVAL-MONOTONE-OFF DUAL-EVAL-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE . DUAL-EVAL-MONOTONE-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-COLLECT-VALUE-OFF GOOD-S-COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-COLLECT-VALUE . GOOD-S-COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL GOOD-S-COLLECT-VALUE GOOD-S-COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE F-BUF-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE F-BUF-PRESERVES-GOOD-S-OFF F-BUF-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-PRESERVES-GOOD-S . F-BUF-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL F-BUF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE F-IF-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE F-IF-PRESERVES-GOOD-S-OFF F-IF-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-PRESERVES-GOOD-S . F-IF-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL F-IF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-0-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-0-OFF GOOD-S-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-0 . GOOD-S-0-OFF) (DISABLED-LEMMAS NIL GOOD-S-0 GOOD-S-0-OFF . T))))) (PUT1-LST (QUOTE AO2-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE AO2-PRESERVES-GOOD-S-OFF AO2-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-PRESERVES-GOOD-S . AO2-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL AO2-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE AO4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE AO4-PRESERVES-GOOD-S-OFF AO4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4-PRESERVES-GOOD-S . AO4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL AO4-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE AO6-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE AO6-PRESERVES-GOOD-S-OFF AO6-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6-PRESERVES-GOOD-S . AO6-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL AO6-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE AO7-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE AO7-PRESERVES-GOOD-S-OFF AO7-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7-PRESERVES-GOOD-S . AO7-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL AO7-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-AND-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-AND-PRESERVES-GOOD-S-OFF B-AND-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-PRESERVES-GOOD-S . B-AND-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-AND-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-AND3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-AND3-PRESERVES-GOOD-S-OFF B-AND3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3-PRESERVES-GOOD-S . B-AND3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-AND3-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-AND4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-AND4-PRESERVES-GOOD-S-OFF B-AND4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4-PRESERVES-GOOD-S . B-AND4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-AND4-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-EQUV-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-EQUV-PRESERVES-GOOD-S-OFF B-EQUV-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV-PRESERVES-GOOD-S . B-EQUV-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-EQUV-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-EQUV3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-EQUV3-PRESERVES-GOOD-S-OFF B-EQUV3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3-PRESERVES-GOOD-S . B-EQUV3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-EQUV3-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-IF-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-IF-PRESERVES-GOOD-S-OFF B-IF-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF-PRESERVES-GOOD-S . B-IF-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-IF-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND-PRESERVES-GOOD-S-OFF B-NAND-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND-PRESERVES-GOOD-S . B-NAND-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND3-PRESERVES-GOOD-S-OFF B-NAND3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3-PRESERVES-GOOD-S . B-NAND3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND3-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND4-PRESERVES-GOOD-S-OFF B-NAND4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4-PRESERVES-GOOD-S . B-NAND4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND4-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND5-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND5-PRESERVES-GOOD-S-OFF B-NAND5-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5-PRESERVES-GOOD-S . B-NAND5-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND5-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND6-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND6-PRESERVES-GOOD-S-OFF B-NAND6-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6-PRESERVES-GOOD-S . B-NAND6-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND6-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NAND8-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NAND8-PRESERVES-GOOD-S-OFF B-NAND8-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8-PRESERVES-GOOD-S . B-NAND8-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NAND8-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NBUF-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NBUF-PRESERVES-GOOD-S-OFF B-NBUF-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF-PRESERVES-GOOD-S . B-NBUF-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NBUF-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR-PRESERVES-GOOD-S-OFF B-NOR-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR-PRESERVES-GOOD-S . B-NOR-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR3-PRESERVES-GOOD-S-OFF B-NOR3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3-PRESERVES-GOOD-S . B-NOR3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR3-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR4-PRESERVES-GOOD-S-OFF B-NOR4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4-PRESERVES-GOOD-S . B-NOR4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR4-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR5-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR5-PRESERVES-GOOD-S-OFF B-NOR5-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5-PRESERVES-GOOD-S . B-NOR5-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR5-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR6-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR6-PRESERVES-GOOD-S-OFF B-NOR6-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6-PRESERVES-GOOD-S . B-NOR6-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR6-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOR8-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOR8-PRESERVES-GOOD-S-OFF B-NOR8-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8-PRESERVES-GOOD-S . B-NOR8-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOR8-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOT-PRESERVES-GOOD-S-OFF B-NOT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-PRESERVES-GOOD-S . B-NOT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOT-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOT-B4IP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOT-B4IP-PRESERVES-GOOD-S-OFF B-NOT-B4IP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-PRESERVES-GOOD-S . B-NOT-B4IP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-NOT-IVAP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-NOT-IVAP-PRESERVES-GOOD-S-OFF B-NOT-IVAP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-PRESERVES-GOOD-S . B-NOT-IVAP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-OR-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-OR-PRESERVES-GOOD-S-OFF B-OR-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR-PRESERVES-GOOD-S . B-OR-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-OR-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-OR3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-OR3-PRESERVES-GOOD-S-OFF B-OR3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3-PRESERVES-GOOD-S . B-OR3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-OR3-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-OR4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-OR4-PRESERVES-GOOD-S-OFF B-OR4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4-PRESERVES-GOOD-S . B-OR4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-OR4-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-XOR-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-XOR-PRESERVES-GOOD-S-OFF B-XOR-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR-PRESERVES-GOOD-S . B-XOR-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-XOR-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE B-XOR3-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-XOR3-PRESERVES-GOOD-S-OFF B-XOR3-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3-PRESERVES-GOOD-S . B-XOR3-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL B-XOR3-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE DEL2-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DEL2-PRESERVES-GOOD-S-OFF DEL2-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2-PRESERVES-GOOD-S . DEL2-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL DEL2-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE DEL4-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DEL4-PRESERVES-GOOD-S-OFF DEL4-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4-PRESERVES-GOOD-S . DEL4-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL DEL4-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE DEL10-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DEL10-PRESERVES-GOOD-S-OFF DEL10-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10-PRESERVES-GOOD-S . DEL10-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL DEL10-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE PROCMON-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE PROCMON-PRESERVES-GOOD-S-OFF PROCMON-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON-PRESERVES-GOOD-S . PROCMON-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL PROCMON-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE FD1-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FD1-PRESERVES-GOOD-S-OFF FD1-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1-PRESERVES-GOOD-S . FD1-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL FD1-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE FD1S-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FD1S-PRESERVES-GOOD-S-OFF FD1S-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S-PRESERVES-GOOD-S . FD1S-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL FD1S-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE FD1SP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FD1SP-PRESERVES-GOOD-S-OFF FD1SP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP-PRESERVES-GOOD-S . FD1SP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL FD1SP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE FD1SLP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FD1SLP-PRESERVES-GOOD-S-OFF FD1SLP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP-PRESERVES-GOOD-S . FD1SLP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL FD1SLP-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE ID-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ID-PRESERVES-GOOD-S-OFF ID-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID-PRESERVES-GOOD-S . ID-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL ID-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE T-BUF-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE T-BUF-PRESERVES-GOOD-S-OFF T-BUF-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF-PRESERVES-GOOD-S . T-BUF-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL T-BUF-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE T-WIRE-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE T-WIRE-PRESERVES-GOOD-S-OFF T-WIRE-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-PRESERVES-GOOD-S . T-WIRE-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL T-WIRE-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE PULLUP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE PULLUP-PRESERVES-GOOD-S-OFF PULLUP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP-PRESERVES-GOOD-S . PULLUP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL PULLUP-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-BIDIRECT-PRESERVES-GOOD-S-OFF TTL-BIDIRECT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PRESERVES-GOOD-S . TTL-BIDIRECT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF TTL-CLK-INPUT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-PRESERVES-GOOD-S . TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-INPUT-PRESERVES-GOOD-S-OFF TTL-INPUT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PRESERVES-GOOD-S . TTL-INPUT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PRESERVES-GOOD-S . TTL-OUTPUT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF TTL-OUTPUT-FAST-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-PRESERVES-GOOD-S . TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PRESERVES-GOOD-S . TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE VDD-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VDD-PRESERVES-GOOD-S-OFF VDD-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PRESERVES-GOOD-S . VDD-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL VDD-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF VDD-PARAMETRIC-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-PRESERVES-GOOD-S . VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE VSS-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE VSS-PRESERVES-GOOD-S-OFF VSS-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS-PRESERVES-GOOD-S . VSS-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL VSS-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-CONSTANT-RAM-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-CONSTANT-RAM-OFF GOOD-S-CONSTANT-RAM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-CONSTANT-RAM . GOOD-S-CONSTANT-RAM-OFF) (DISABLED-LEMMAS NIL GOOD-S-CONSTANT-RAM GOOD-S-CONSTANT-RAM-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-WRITE-MEM-1-OFF GOOD-S-WRITE-MEM-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM-1 . GOOD-S-WRITE-MEM-1-OFF) (DISABLED-LEMMAS NIL GOOD-S-WRITE-MEM-1 GOOD-S-WRITE-MEM-1-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-WRITE-MEM-OFF GOOD-S-WRITE-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM . GOOD-S-WRITE-MEM-OFF) (DISABLED-LEMMAS NIL GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DP-RAM-16X32-PRESERVES-GOOD-S-OFF DP-RAM-16X32-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-PRESERVES-GOOD-S . DP-RAM-16X32-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE PRIMP-PRESERVES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE PRIMP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S-OFF) (DISABLED-LEMMAS NIL PRIMP-PRESERVES-GOOD-S PRIMP-PRESERVES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-PRESERVED-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-PRESERVED-OFF GOOD-S-PRESERVED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-PRESERVED . GOOD-S-PRESERVED-OFF) (DISABLED-LEMMAS NIL GOOD-S-PRESERVED GOOD-S-PRESERVED-OFF . T))))) (PUT1-LST (QUOTE G*1*V-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*V-APPROX-LIST-OFF *1*V-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . G*1*V-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL *1*V-APPROX-LIST G*1*V-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-LIST-OFF V-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . V-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL V-APPROX-LIST V-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE G*1*V-S-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*V-S-APPROX-LIST-OFF *1*V-S-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . G*1*V-S-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL *1*V-S-APPROX-LIST G*1*V-S-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE V-S-APPROX-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-S-APPROX-LIST-OFF V-S-APPROX-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . V-S-APPROX-LIST-OFF) (DISABLED-LEMMAS NIL V-S-APPROX-LIST V-S-APPROX-LIST-OFF . T))))) (PUT1-LST (QUOTE G*1*NAT-LST-LST-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*NAT-LST-LST-INDUCTION-OFF *1*NAT-LST-LST-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . G*1*NAT-LST-LST-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*NAT-LST-LST-INDUCTION G*1*NAT-LST-LST-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE NAT-LST-LST-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE NAT-LST-LST-INDUCTION-OFF NAT-LST-LST-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . NAT-LST-LST-INDUCTION-OFF) (DISABLED-LEMMAS NIL NAT-LST-LST-INDUCTION NAT-LST-LST-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-CAR-NTH-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-CAR-NTH-OFF V-APPROX-CAR-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-CAR-NTH . V-APPROX-CAR-NTH-OFF) (DISABLED-LEMMAS NIL V-APPROX-CAR-NTH V-APPROX-CAR-NTH-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CADR-NTH-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-CADR-NTH-OFF S-APPROX-CADR-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CADR-NTH . S-APPROX-CADR-NTH-OFF) (DISABLED-LEMMAS NIL S-APPROX-CADR-NTH S-APPROX-CADR-NTH-OFF . T))))) (PUT1-LST (QUOTE G*1*SIMULATE-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*SIMULATE-MONOTONE-INDUCTION-OFF *1*SIMULATE-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE-INDUCTION . G*1*SIMULATE-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*SIMULATE-MONOTONE-INDUCTION G*1*SIMULATE-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE SIMULATE-MONOTONE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE-INDUCTION . SIMULATE-MONOTONE-INDUCTION-OFF) (DISABLED-LEMMAS NIL SIMULATE-MONOTONE-INDUCTION SIMULATE-MONOTONE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE SIMULATE-MONOTONE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE SIMULATE-MONOTONE-OFF SIMULATE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE . SIMULATE-MONOTONE-OFF) (DISABLED-LEMMAS NIL SIMULATE-MONOTONE SIMULATE-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-LIST-X-X-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-APPROX-LIST-X-X-OFF V-APPROX-LIST-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LIST-X-X . V-APPROX-LIST-X-X-OFF) (DISABLED-LEMMAS NIL V-APPROX-LIST-X-X V-APPROX-LIST-X-X-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLET-P-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DOUBLET-P-OFF *1*DOUBLET-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P . G*1*DOUBLET-P-OFF) (DISABLED-LEMMAS NIL *1*DOUBLET-P G*1*DOUBLET-P-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF *1*DOUBLET-N-SIMULATE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE-INDUCTION . G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DOUBLET-N-SIMULATE-INDUCTION G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE-INDUCTION-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE-INDUCTION . DOUBLET-N-SIMULATE-INDUCTION-OFF) (DISABLED-LEMMAS NIL DOUBLET-N-SIMULATE-INDUCTION DOUBLET-N-SIMULATE-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DOUBLET-N-SIMULATE-OFF DOUBLET-N-SIMULATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE . DOUBLET-N-SIMULATE-OFF) (DISABLED-LEMMAS NIL DOUBLET-N-SIMULATE DOUBLET-N-SIMULATE-OFF . T))))) (PUT1-LST (QUOTE DOUBLET-P-EQUAL-APPROX-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE DOUBLET-P-EQUAL-APPROX-OFF DOUBLET-P-EQUAL-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P-EQUAL-APPROX . DOUBLET-P-EQUAL-APPROX-OFF) (DISABLED-LEMMAS NIL DOUBLET-P-EQUAL-APPROX DOUBLET-P-EQUAL-APPROX-OFF . T))))) (PUT1-LST (QUOTE LENGTH-SIMULATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE LENGTH-SIMULATE-OFF LENGTH-SIMULATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-SIMULATE . LENGTH-SIMULATE-OFF) (DISABLED-LEMMAS NIL LENGTH-SIMULATE LENGTH-SIMULATE-OFF . T))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF . T))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-LEMMA-OFF XS-SUFFICE-FOR-RESET-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA . XS-SUFFICE-FOR-RESET-LEMMA-OFF) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-OFF . T))))) (PUT1-LST (QUOTE G*1*COMPILE-UNCOMPILED-DEFNS-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*COMPILE-UNCOMPILED-DEFNS-OFF *1*COMPILE-UNCOMPILED-DEFNS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . G*1*COMPILE-UNCOMPILED-DEFNS-OFF) (DISABLED-LEMMAS NIL *1*COMPILE-UNCOMPILED-DEFNS G*1*COMPILE-UNCOMPILED-DEFNS-OFF . T))))) (PUT1-LST (QUOTE COMPILE-UNCOMPILED-DEFNS-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE COMPILE-UNCOMPILED-DEFNS-OFF COMPILE-UNCOMPILED-DEFNS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . COMPILE-UNCOMPILED-DEFNS-OFF) (DISABLED-LEMMAS NIL COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-OFF . T))))) (PUT1-LST (QUOTE G*1*UNKNOWN-REGFILE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*UNKNOWN-REGFILE-OFF *1*UNKNOWN-REGFILE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . G*1*UNKNOWN-REGFILE-OFF) (DISABLED-LEMMAS NIL *1*UNKNOWN-REGFILE G*1*UNKNOWN-REGFILE-OFF . T))))) (PUT1-LST (QUOTE UNKNOWN-REGFILE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE UNKNOWN-REGFILE-OFF UNKNOWN-REGFILE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . UNKNOWN-REGFILE-OFF) (DISABLED-LEMMAS NIL UNKNOWN-REGFILE UNKNOWN-REGFILE-OFF . T))))) (PUT1-LST (QUOTE G*1*UNKNOWN-MACHINE-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*UNKNOWN-MACHINE-STATE-OFF *1*UNKNOWN-MACHINE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . G*1*UNKNOWN-MACHINE-STATE-OFF) (DISABLED-LEMMAS NIL *1*UNKNOWN-MACHINE-STATE G*1*UNKNOWN-MACHINE-STATE-OFF . T))))) (PUT1-LST (QUOTE UNKNOWN-MACHINE-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE UNKNOWN-MACHINE-STATE-OFF UNKNOWN-MACHINE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . UNKNOWN-MACHINE-STATE-OFF) (DISABLED-LEMMAS NIL UNKNOWN-MACHINE-STATE UNKNOWN-MACHINE-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*UNKNOWN-MEMORY-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*UNKNOWN-MEMORY-STATE-OFF *1*UNKNOWN-MEMORY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . G*1*UNKNOWN-MEMORY-STATE-OFF) (DISABLED-LEMMAS NIL *1*UNKNOWN-MEMORY-STATE G*1*UNKNOWN-MEMORY-STATE-OFF . T))))) (PUT1-LST (QUOTE UNKNOWN-MEMORY-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE UNKNOWN-MEMORY-STATE-OFF UNKNOWN-MEMORY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . UNKNOWN-MEMORY-STATE-OFF) (DISABLED-LEMMAS NIL UNKNOWN-MEMORY-STATE UNKNOWN-MEMORY-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*UNKNOWN-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*UNKNOWN-STATE-OFF *1*UNKNOWN-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . G*1*UNKNOWN-STATE-OFF) (DISABLED-LEMMAS NIL *1*UNKNOWN-STATE G*1*UNKNOWN-STATE-OFF . T))))) (PUT1-LST (QUOTE UNKNOWN-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE UNKNOWN-STATE-OFF UNKNOWN-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . UNKNOWN-STATE-OFF) (DISABLED-LEMMAS NIL UNKNOWN-STATE UNKNOWN-STATE-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF . T))))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF FM9001-STATE-STRUCTURE-UNKNOWN-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE-UNKNOWN-STATE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF) (DISABLED-LEMMAS NIL FM9001-STATE-STRUCTURE-UNKNOWN-STATE FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*RESET-VECTOR-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RESET-VECTOR-OFF *1*RESET-VECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR . G*1*RESET-VECTOR-OFF) (DISABLED-LEMMAS NIL *1*RESET-VECTOR G*1*RESET-VECTOR-OFF . T))))) (PUT1-LST (QUOTE RESET-VECTOR-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-VECTOR-OFF RESET-VECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR . RESET-VECTOR-OFF) (DISABLED-LEMMAS NIL RESET-VECTOR RESET-VECTOR-OFF . T))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RUN-VECTOR-OFF *1*RUN-VECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR . G*1*RUN-VECTOR-OFF) (DISABLED-LEMMAS NIL *1*RUN-VECTOR G*1*RUN-VECTOR-OFF . T))))) (PUT1-LST (QUOTE RUN-VECTOR-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RUN-VECTOR-OFF RUN-VECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR . RUN-VECTOR-OFF) (DISABLED-LEMMAS NIL RUN-VECTOR RUN-VECTOR-OFF . T))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RESET-SEQUENCE-OFF *1*RESET-SEQUENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . G*1*RESET-SEQUENCE-OFF) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE G*1*RESET-SEQUENCE-OFF . T))))) (PUT1-LST (QUOTE RESET-SEQUENCE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-SEQUENCE-OFF RESET-SEQUENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . RESET-SEQUENCE-OFF) (DISABLED-LEMMAS NIL RESET-SEQUENCE RESET-SEQUENCE-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF . T))))) (PUT1-LST (QUOTE G*1*INITIALIZED-REGFILE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*INITIALIZED-REGFILE-OFF *1*INITIALIZED-REGFILE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . G*1*INITIALIZED-REGFILE-OFF) (DISABLED-LEMMAS NIL *1*INITIALIZED-REGFILE G*1*INITIALIZED-REGFILE-OFF . T))))) (PUT1-LST (QUOTE INITIALIZED-REGFILE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE INITIALIZED-REGFILE-OFF INITIALIZED-REGFILE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . INITIALIZED-REGFILE-OFF) (DISABLED-LEMMAS NIL INITIALIZED-REGFILE INITIALIZED-REGFILE-OFF . T))))) (PUT1-LST (QUOTE G*1*INITIALIZED-MACHINE-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*INITIALIZED-MACHINE-STATE-OFF *1*INITIALIZED-MACHINE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . G*1*INITIALIZED-MACHINE-STATE-OFF) (DISABLED-LEMMAS NIL *1*INITIALIZED-MACHINE-STATE G*1*INITIALIZED-MACHINE-STATE-OFF . T))))) (PUT1-LST (QUOTE INITIALIZED-MACHINE-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE INITIALIZED-MACHINE-STATE-OFF INITIALIZED-MACHINE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . INITIALIZED-MACHINE-STATE-OFF) (DISABLED-LEMMAS NIL INITIALIZED-MACHINE-STATE INITIALIZED-MACHINE-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*INITIALIZED-MEMORY-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*INITIALIZED-MEMORY-STATE-OFF *1*INITIALIZED-MEMORY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MEMORY-STATE . G*1*INITIALIZED-MEMORY-STATE-OFF) (DISABLED-LEMMAS NIL *1*INITIALIZED-MEMORY-STATE G*1*INITIALIZED-MEMORY-STATE-OFF . T))))) (PUT1-LST (QUOTE INITIALIZED-MEMORY-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE INITIALIZED-MEMORY-STATE-OFF INITIALIZED-MEMORY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MEMORY-STATE . INITIALIZED-MEMORY-STATE-OFF) (DISABLED-LEMMAS NIL INITIALIZED-MEMORY-STATE INITIALIZED-MEMORY-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*FINAL-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*FINAL-STATE-OFF *1*FINAL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . G*1*FINAL-STATE-OFF) (DISABLED-LEMMAS NIL *1*FINAL-STATE G*1*FINAL-STATE-OFF . T))))) (PUT1-LST (QUOTE FINAL-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FINAL-STATE-OFF FINAL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . FINAL-STATE-OFF) (DISABLED-LEMMAS NIL FINAL-STATE FINAL-STATE-OFF . T))))) (PUT1-LST (QUOTE RESET-WORKS-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-WORKS-OFF RESET-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-WORKS . RESET-WORKS-OFF) (DISABLED-LEMMAS NIL RESET-WORKS RESET-WORKS-OFF . T))))) (PUT1-LST (QUOTE UNKNOWN-STATE-OKP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE UNKNOWN-STATE-OKP-OFF UNKNOWN-STATE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE-OKP . UNKNOWN-STATE-OKP-OFF) (DISABLED-LEMMAS NIL UNKNOWN-STATE-OKP UNKNOWN-STATE-OKP-OFF . T))))) (PUT1-LST (QUOTE FINAL-STATE-OKP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FINAL-STATE-OKP-OFF FINAL-STATE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE-OKP . FINAL-STATE-OKP-OFF) (DISABLED-LEMMAS NIL FINAL-STATE-OKP FINAL-STATE-OKP-OFF . T))))) (PUT1-LST (QUOTE INSTANCE-THEOREM-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE INSTANCE-THEOREM-OFF INSTANCE-THEOREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSTANCE-THEOREM . INSTANCE-THEOREM-OFF) (DISABLED-LEMMAS NIL INSTANCE-THEOREM INSTANCE-THEOREM-OFF . T))))) (PUT1-LST (QUOTE FM9001-STATEP-MAP-UP-FINAL-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001-STATEP-MAP-UP-FINAL-STATE-OFF FM9001-STATEP-MAP-UP-FINAL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATEP-MAP-UP-FINAL-STATE . FM9001-STATEP-MAP-UP-FINAL-STATE-OFF) (DISABLED-LEMMAS NIL FM9001-STATEP-MAP-UP-FINAL-STATE FM9001-STATEP-MAP-UP-FINAL-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*RESET-VECTOR-CHIP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RESET-VECTOR-CHIP-OFF *1*RESET-VECTOR-CHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . G*1*RESET-VECTOR-CHIP-OFF) (DISABLED-LEMMAS NIL *1*RESET-VECTOR-CHIP G*1*RESET-VECTOR-CHIP-OFF . T))))) (PUT1-LST (QUOTE RESET-VECTOR-CHIP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-VECTOR-CHIP-OFF RESET-VECTOR-CHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . RESET-VECTOR-CHIP-OFF) (DISABLED-LEMMAS NIL RESET-VECTOR-CHIP RESET-VECTOR-CHIP-OFF . T))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-CHIP-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RUN-VECTOR-CHIP-1-OFF *1*RUN-VECTOR-CHIP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . G*1*RUN-VECTOR-CHIP-1-OFF) (DISABLED-LEMMAS NIL *1*RUN-VECTOR-CHIP-1 G*1*RUN-VECTOR-CHIP-1-OFF . T))))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RUN-VECTOR-CHIP-1-OFF RUN-VECTOR-CHIP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . RUN-VECTOR-CHIP-1-OFF) (DISABLED-LEMMAS NIL RUN-VECTOR-CHIP-1 RUN-VECTOR-CHIP-1-OFF . T))))) (PUT1-LST (QUOTE G*1*RUN-VECTOR-CHIP-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RUN-VECTOR-CHIP-2-OFF *1*RUN-VECTOR-CHIP-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-2 . G*1*RUN-VECTOR-CHIP-2-OFF) (DISABLED-LEMMAS NIL *1*RUN-VECTOR-CHIP-2 G*1*RUN-VECTOR-CHIP-2-OFF . T))))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RUN-VECTOR-CHIP-2-OFF RUN-VECTOR-CHIP-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-2 . RUN-VECTOR-CHIP-2-OFF) (DISABLED-LEMMAS NIL RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-2-OFF . T))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-CHIP-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RESET-SEQUENCE-CHIP-1-OFF *1*RESET-SEQUENCE-CHIP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . G*1*RESET-SEQUENCE-CHIP-1-OFF) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE-CHIP-1 G*1*RESET-SEQUENCE-CHIP-1-OFF . T))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-SEQUENCE-CHIP-1-OFF RESET-SEQUENCE-CHIP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . RESET-SEQUENCE-CHIP-1-OFF) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1-OFF . T))))) (PUT1-LST (QUOTE G*1*RESET-SEQUENCE-CHIP-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*RESET-SEQUENCE-CHIP-2-OFF *1*RESET-SEQUENCE-CHIP-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-2 . G*1*RESET-SEQUENCE-CHIP-2-OFF) (DISABLED-LEMMAS NIL *1*RESET-SEQUENCE-CHIP-2 G*1*RESET-SEQUENCE-CHIP-2-OFF . T))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-2 . RESET-SEQUENCE-CHIP-2-OFF) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-2-OFF . T))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1-VS-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-SEQUENCE-CHIP-1-VS-2-OFF RESET-SEQUENCE-CHIP-1-VS-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1-VS-2 . RESET-SEQUENCE-CHIP-1-VS-2-OFF) (DISABLED-LEMMAS NIL RESET-SEQUENCE-CHIP-1-VS-2 RESET-SEQUENCE-CHIP-1-VS-2-OFF . T))))) (PUT1-LST (QUOTE SIMULATE-RESET-CHIP-FINAL-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE SIMULATE-RESET-CHIP-FINAL-STATE-OFF SIMULATE-RESET-CHIP-FINAL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . SIMULATE-RESET-CHIP-FINAL-STATE-OFF) (DISABLED-LEMMAS NIL SIMULATE-RESET-CHIP-FINAL-STATE SIMULATE-RESET-CHIP-FINAL-STATE-OFF . T))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF) (DISABLED-LEMMAS NIL FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF . T))))) (PUT1-LST (QUOTE G*1*V-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*V-FOURP-OFF *1*V-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP . G*1*V-FOURP-OFF) (DISABLED-LEMMAS NIL *1*V-FOURP G*1*V-FOURP-OFF . T))))) (PUT1-LST (QUOTE V-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-FOURP-OFF V-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP . V-FOURP-OFF) (DISABLED-LEMMAS NIL V-FOURP V-FOURP-OFF . T))))) (PUT1-LST (QUOTE G*1*ALL-XS-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*ALL-XS-OFF *1*ALL-XS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS . G*1*ALL-XS-OFF) (DISABLED-LEMMAS NIL *1*ALL-XS G*1*ALL-XS-OFF . T))))) (PUT1-LST (QUOTE ALL-XS-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALL-XS-OFF ALL-XS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS . ALL-XS-OFF) (DISABLED-LEMMAS NIL ALL-XS ALL-XS-OFF . T))))) (PUT1-LST (QUOTE ALL-XS-APPROXIMATES-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALL-XS-APPROXIMATES-OFF ALL-XS-APPROXIMATES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS-APPROXIMATES . ALL-XS-APPROXIMATES-OFF) (DISABLED-LEMMAS NIL ALL-XS-APPROXIMATES ALL-XS-APPROXIMATES-OFF . T))))) (PUT1-LST (QUOTE ALL-XS-MAKE-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ALL-XS-MAKE-LIST-OFF ALL-XS-MAKE-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-XS-MAKE-LIST . ALL-XS-MAKE-LIST-OFF) (DISABLED-LEMMAS NIL ALL-XS-MAKE-LIST ALL-XS-MAKE-LIST-OFF . T))))) (PUT1-LST (QUOTE G*1*MEMORY-V-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*MEMORY-V-FOURP-OFF *1*MEMORY-V-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . G*1*MEMORY-V-FOURP-OFF) (DISABLED-LEMMAS NIL *1*MEMORY-V-FOURP G*1*MEMORY-V-FOURP-OFF . T))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MEMORY-V-FOURP-OFF MEMORY-V-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . MEMORY-V-FOURP-OFF) (DISABLED-LEMMAS NIL MEMORY-V-FOURP MEMORY-V-FOURP-OFF . T))))) (PUT1-LST (QUOTE G*1*NEW-MACHINE-STATE-INVARIANT-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE G*1*NEW-MACHINE-STATE-INVARIANT-OFF *1*NEW-MACHINE-STATE-INVARIANT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . G*1*NEW-MACHINE-STATE-INVARIANT-OFF) (DISABLED-LEMMAS NIL *1*NEW-MACHINE-STATE-INVARIANT G*1*NEW-MACHINE-STATE-INVARIANT-OFF . T))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-OFF) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-MAKE-LIST-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE S-APPROX-MAKE-LIST-OFF S-APPROX-MAKE-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-MAKE-LIST . S-APPROX-MAKE-LIST-OFF) (DISABLED-LEMMAS NIL S-APPROX-MAKE-LIST S-APPROX-MAKE-LIST-OFF . T))))) (PUT1-LST (QUOTE V-FOURP-IMPLIES-PROPERP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-FOURP-IMPLIES-PROPERP-OFF V-FOURP-IMPLIES-PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . V-FOURP-IMPLIES-PROPERP-OFF) (DISABLED-LEMMAS NIL V-FOURP-IMPLIES-PROPERP V-FOURP-IMPLIES-PROPERP-OFF . T))))) (PUT1-LST (QUOTE LISTP-IMPLIES-NOT-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE LISTP-IMPLIES-NOT-FOURP-OFF LISTP-IMPLIES-NOT-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-IMPLIES-NOT-FOURP . LISTP-IMPLIES-NOT-FOURP-OFF) (DISABLED-LEMMAS NIL LISTP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP-OFF . T))))) (PUT1-LST (QUOTE RAMP-IMPLIES-NOT-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RAMP-IMPLIES-NOT-FOURP-OFF RAMP-IMPLIES-NOT-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAMP-IMPLIES-NOT-FOURP . RAMP-IMPLIES-NOT-FOURP-OFF) (DISABLED-LEMMAS NIL RAMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP-OFF . T))))) (PUT1-LST (QUOTE ROMP-IMPLIES-NOT-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE ROMP-IMPLIES-NOT-FOURP-OFF ROMP-IMPLIES-NOT-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROMP-IMPLIES-NOT-FOURP . ROMP-IMPLIES-NOT-FOURP-OFF) (DISABLED-LEMMAS NIL ROMP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP-OFF . T))))) (PUT1-LST (QUOTE STUBP-IMPLIES-NOT-FOURP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE STUBP-IMPLIES-NOT-FOURP-OFF STUBP-IMPLIES-NOT-FOURP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUBP-IMPLIES-NOT-FOURP . STUBP-IMPLIES-NOT-FOURP-OFF) (DISABLED-LEMMAS NIL STUBP-IMPLIES-NOT-FOURP STUBP-IMPLIES-NOT-FOURP-OFF . T))))) (PUT1-LST (QUOTE B-APPROX-X-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE B-APPROX-X-OFF B-APPROX-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX-X . B-APPROX-X-OFF) (DISABLED-LEMMAS NIL B-APPROX-X B-APPROX-X-OFF . T))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF . T))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF . T))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF) (DISABLED-LEMMAS NIL MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF . T))))) (PUT1-LST (QUOTE GOOD-S-OPENER-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE GOOD-S-OPENER-OFF GOOD-S-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-OPENER . GOOD-S-OPENER-OFF) (DISABLED-LEMMAS NIL GOOD-S-OPENER GOOD-S-OPENER-OFF . T))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF MEMORY-V-FOURP-IMPLIES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-GOOD-S . MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF) (DISABLED-LEMMAS NIL MEMORY-V-FOURP-IMPLIES-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE V-FOURP-IS-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE V-FOURP-IS-GOOD-S-OFF V-FOURP-IS-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IS-GOOD-S . V-FOURP-IS-GOOD-S-OFF) (DISABLED-LEMMAS NIL V-FOURP-IS-GOOD-S V-FOURP-IS-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF . T))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF . T))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF) (DISABLED-LEMMAS NIL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF . T))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL . NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF . T))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF) (DISABLED-LEMMAS NIL MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF . T))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF) (DISABLED-LEMMAS NIL NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF . T))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF) (DISABLED-LEMMAS NIL FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF) (DISABLED-LEMMAS NIL FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF . T))))) (PUT1-LST (QUOTE CADR-MAP-UP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CADR-MAP-UP-OFF CADR-MAP-UP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CADR-MAP-UP . CADR-MAP-UP-OFF) (DISABLED-LEMMAS NIL CADR-MAP-UP CADR-MAP-UP-OFF . T))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF) (DISABLED-LEMMAS NIL FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF . T))))) (PUT1-LST (QUOTE SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF) (DISABLED-LEMMAS NIL SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF . T))))) (PUT1-LST (QUOTE LENGTH-RESET-SEQUENCE-CHIP-1-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE LENGTH-RESET-SEQUENCE-CHIP-1-OFF LENGTH-RESET-SEQUENCE-CHIP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-RESET-SEQUENCE-CHIP-1 . LENGTH-RESET-SEQUENCE-CHIP-1-OFF) (DISABLED-LEMMAS NIL LENGTH-RESET-SEQUENCE-CHIP-1 LENGTH-RESET-SEQUENCE-CHIP-1-OFF . T))))) (PUT1-LST (QUOTE RESET-CHIP-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-CHIP-OFF RESET-CHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-CHIP . RESET-CHIP-OFF) (DISABLED-LEMMAS NIL RESET-CHIP RESET-CHIP-OFF . T))))) (PUT1-LST (QUOTE RESET-CHIP-FROM-ANY-STATE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE RESET-CHIP-FROM-ANY-STATE-OFF RESET-CHIP-FROM-ANY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-CHIP-FROM-ANY-STATE . RESET-CHIP-FROM-ANY-STATE-OFF) (DISABLED-LEMMAS NIL RESET-CHIP-FROM-ANY-STATE RESET-CHIP-FROM-ANY-STATE-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF . T))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-WELL-FORMED-OFF CHIP-WELL-FORMED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED . CHIP-WELL-FORMED-OFF) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED CHIP-WELL-FORMED-OFF . T))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF . T))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-SIMPLE-OFF) (QUOTE (IDATE 1000402194943 EVENT (TOGGLE CHIP-WELL-FORMED-SIMPLE-OFF CHIP-WELL-FORMED-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-WELL-FORMED-SIMPLE . CHIP-WELL-FORMED-SIMPLE-OFF) (DISABLED-LEMMAS NIL CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-SIMPLE) (QUOTE (IDATE 1000402194943 IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-SIMPLE-ON CHIP-WELL-FORMED-SIMPLE-OFF) EVENT (PROVE-LEMMA CHIP-WELL-FORMED-SIMPLE NIL (AND (EQUAL (TOP-LEVEL-PREDICATE-SIMPLE (CHIP-MODULE$NETLIST)) (QUOTE *1*TRUE)) (EQUAL (TOP-LEVEL-PREDICATE-SIMPLE (LISP-NETLIST (CHIP-MODULE$NETLIST))) (QUOTE *1*TRUE))) ((DISABLE TOP-LEVEL-PREDICATE CHIP-MODULE$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISP-NETLIST . CHIP-WELL-FORMED-SIMPLE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$NETLIST . CHIP-WELL-FORMED-SIMPLE) (IMMEDIATE-DEPENDENTS0 TOP-LEVEL-PREDICATE-SIMPLE . CHIP-WELL-FORMED-SIMPLE))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED) (QUOTE (IDATE 1000402194939 IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-ON CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED-OFF) EVENT (PROVE-LEMMA CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED NIL (AND (EQUAL (TOP-LEVEL-PREDICATE (LISP-NETLIST (CHIP-MODULE$NETLIST))) (QUOTE *1*TRUE)) (EQUAL (TOP-LEVEL-PREDICATE (LISP-NETLIST (CHIP$NETLIST))) (QUOTE *1*TRUE))) ((DISABLE TOP-LEVEL-PREDICATE LISP-NETLIST CHIP-MODULE$NETLIST CHIP$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$NETLIST . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED) (IMMEDIATE-DEPENDENTS0 LISP-NETLIST . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED) (IMMEDIATE-DEPENDENTS0 TOP-LEVEL-PREDICATE . CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED))))) (PUT1-LST (QUOTE CHIP-WELL-FORMED) (QUOTE (IDATE 1000402194934 IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-ON CHIP-WELL-FORMED-OFF) EVENT (PROVE-LEMMA CHIP-WELL-FORMED NIL (AND (EQUAL (TOP-LEVEL-PREDICATE (CHIP-MODULE$NETLIST)) (QUOTE *1*TRUE)) (EQUAL (TOP-LEVEL-PREDICATE (CHIP$NETLIST)) (QUOTE *1*TRUE))) ((DISABLE TOP-LEVEL-PREDICATE CHIP-MODULE$NETLIST CHIP$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . CHIP-WELL-FORMED) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$NETLIST . CHIP-WELL-FORMED) (IMMEDIATE-DEPENDENTS0 TOP-LEVEL-PREDICATE . CHIP-WELL-FORMED))))) (PUT1-LST (QUOTE COMPILE-UNCOMPILED-DEFNS-ON1) (QUOTE (IDATE 1000402194928 EVENT (TOGGLE COMPILE-UNCOMPILED-DEFNS-ON1 COMPILE-UNCOMPILED-DEFNS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . COMPILE-UNCOMPILED-DEFNS-ON1) (DISABLED-LEMMAS NIL COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON1))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (QUOTE (IDATE 1000402194928 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-ON CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEMORY) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))))) (EQUAL (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) NETLIST (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) INSTRUCTIONS))) ((USE (CHIP-SYSTEM=FM9001-INTERPRETER (STATE (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) (PC (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))) (DISABLE CHIP-SYSTEM=FM9001-INTERPRETER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 BOOLP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 READ-REGS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 BVP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 REGS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 FLAGS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP==>MEMORY-PROPERP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=RUN-FM9001 . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001-INTERPRETER . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAP-UP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 X . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET) (LEMMAS MAP-UP . CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET))))) (PUT1-LST (QUOTE RESET-CHIP-FROM-ANY-STATE) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (RESET-CHIP-FROM-ANY-STATE-ON RESET-CHIP-FROM-ANY-STATE-OFF) EVENT (PROVE-LEMMA RESET-CHIP-FROM-ANY-STATE NIL (IMPLIES (AND (S-APPROX (UNKNOWN-MACHINE-STATE) ANY-STATE) (GOOD-S ANY-STATE)) (EQUAL (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) ANY-STATE (CHIP$NETLIST) (LENGTH (RESET-SEQUENCE-CHIP-1))) (INITIALIZED-MACHINE-STATE))) ((USE (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 (N (LENGTH (RESET-SEQUENCE-CHIP-1))) (INPUTS (RESET-SEQUENCE-CHIP-1)) (FN (QUOTE CHIP)) (STATE (UNKNOWN-MACHINE-STATE)) (NETLIST (CHIP$NETLIST))) (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 (N (LENGTH (RESET-SEQUENCE-CHIP-1))) (INPUTS (RESET-SEQUENCE-CHIP-1)) (FN (QUOTE CHIP)) (STATE ANY-STATE) (NETLIST (CHIP$NETLIST))) (SIMULATE-RESET-CHIP-FINAL-STATE) (XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE (STATE-2 ANY-STATE))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FINAL-STATE LENGTH-RESET-SEQUENCE-CHIP-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-RESET-SEQUENCE-CHIP-1 . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 GOOD-S . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . RESET-CHIP-FROM-ANY-STATE) (IMMEDIATE-DEPENDENTS0 S-APPROX . RESET-CHIP-FROM-ANY-STATE))))) (PUT1-LST (QUOTE RESET-CHIP) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (RESET-CHIP-ON RESET-CHIP-OFF) EVENT (PROVE-LEMMA RESET-CHIP NIL (EQUAL (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST) (LENGTH (RESET-SEQUENCE-CHIP-1))) (INITIALIZED-MACHINE-STATE)) ((USE (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 (N (LENGTH (RESET-SEQUENCE-CHIP-1))) (INPUTS (RESET-SEQUENCE-CHIP-1)) (FN (QUOTE CHIP)) (STATE (UNKNOWN-MACHINE-STATE)) (NETLIST (CHIP$NETLIST))) (SIMULATE-RESET-CHIP-FINAL-STATE)) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FINAL-STATE LENGTH-RESET-SEQUENCE-CHIP-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESET-SEQUENCE-CHIP-1 . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 LENGTH . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . RESET-CHIP) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . RESET-CHIP))))) (PUT1-LST (QUOTE LENGTH-RESET-SEQUENCE-CHIP-1) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (LENGTH-RESET-SEQUENCE-CHIP-1-ON LENGTH-RESET-SEQUENCE-CHIP-1-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP) EVENT (PROVE-LEMMA LENGTH-RESET-SEQUENCE-CHIP-1 (REWRITE) (EQUAL (LENGTH (RESET-SEQUENCE-CHIP-1)) (QUOTE 20))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . LENGTH-RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-RESET-SEQUENCE-CHIP-1) (LEMMAS LENGTH . LENGTH-RESET-SEQUENCE-CHIP-1))))) (PUT1-LST (QUOTE SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-ON SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP) EVENT (PROVE-LEMMA SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 NIL (IMPLIES (AND (NOT (ZEROP N)) (IF (LESSP (LENGTH INPUTS) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (CAR (CDR (NTH (SUB1 N) (SIMULATE FN INPUTS STATE NETLIST)))) (SIMULATE-DUAL-EVAL-2 FN INPUTS STATE NETLIST N))) ((INDUCT (SIMULATE-DUAL-EVAL-2 FN INPUTS STATE NETLIST N)) (ENABLE SIMULATE SIMULATE-DUAL-EVAL-2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 OPEN-SIMULATE-DUAL-EVAL-2 . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 SIMULATE . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 NTH . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LENGTH . SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2))))) (PUT1-LST (QUOTE B-APPROX-OFF1) (QUOTE (IDATE 1000402194925 EVENT (TOGGLE B-APPROX-OFF1 B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-OFF1) (DISABLED-LEMMAS NIL B-APPROX B-APPROX-OFF1 . T))))) (PUT1-LST (QUOTE B-KNOWNP-OFF1) (QUOTE (IDATE 1000402194925 EVENT (TOGGLE B-KNOWNP-OFF1 B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-OFF1) (DISABLED-LEMMAS NIL B-KNOWNP B-KNOWNP-OFF1 . T))))) (PUT1-LST (QUOTE MAP-DOWN-INVERTS-MAP-UP-OFF) (QUOTE (IDATE 1000402194925 EVENT (TOGGLE MAP-DOWN-INVERTS-MAP-UP-OFF MAP-DOWN-INVERTS-MAP-UP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-INVERTS-MAP-UP . MAP-DOWN-INVERTS-MAP-UP-OFF) (DISABLED-LEMMAS NIL MAP-DOWN-INVERTS-MAP-UP MAP-DOWN-INVERTS-MAP-UP-OFF . T))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-OFF) EVENT (PROVE-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEMORY) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N))))) (EQUAL (FM9001 (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) NETLIST (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N))))) ((USE (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA (MACHINE-MEMORY (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (CADR-MAP-UP (S (INITIALIZED-MACHINE-STATE)) (MEM (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE MAP-DOWN-INVERTS-MAP-UP CADR-MAP-UP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-INVERTS-MAP-UP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CADR-MAP-UP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 FM9001 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 X . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) (LEMMAS FM9001 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET))))) (PUT1-LST (QUOTE CADR-MAP-UP) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (CADR-MAP-UP-ON CADR-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) EVENT (PROVE-LEMMA CADR-MAP-UP NIL (EQUAL (CAR (CDR (MAP-UP (CONS S (CONS MEM (QUOTE NIL)))))) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . CADR-MAP-UP) (IMMEDIATE-DEPENDENTS0 MAP-UP . CADR-MAP-UP))))) (PUT1-LST (QUOTE MAP-DOWN-INVERTS-MAP-UP) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (MAP-DOWN-INVERTS-MAP-UP-OFF1 MAP-DOWN-INVERTS-MAP-UP-ON MAP-DOWN-INVERTS-MAP-UP-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) EVENT (PROVE-LEMMA MAP-DOWN-INVERTS-MAP-UP (REWRITE) (IMPLIES (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))))))) (EQUAL (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))))) (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 REGS . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 FLAGS . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 X . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 MAP-UP . MAP-DOWN-INVERTS-MAP-UP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MAP-DOWN-INVERTS-MAP-UP) (LEMMAS MAP-DOWN . MAP-DOWN-INVERTS-MAP-UP))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-ON FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET) EVENT (PROVE-LEMMA FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))))) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N))))) (EQUAL (FM9001 (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL)))) N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) NETLIST (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N))))) ((USE (FM9001=CHIP-SYSTEM (STATE (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL)))))) (FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE)) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FM9001-STATEP PROPERP LENGTH LENGTH-CONS LENGTH-BOTTOM PROPERP-CONS PROPERP-NLISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 FM9001 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) (LEMMAS FM9001 . FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-ON FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE-OFF FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA) EVENT (PROVE-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NIL (IMPLIES (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))))) (FM9001-STATEP (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL)))))) ((ENABLE *1*INITIALIZED-MACHINE-STATE *1*FM9001-MACHINE-STATEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 RAM . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 REGS . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 FLAGS . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) (QUOTE (IDATE 1000402194925 IMMEDIATE-DEPENDENTS0 (NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT-OFF) EVENT (PROVE-LEMMA NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT (REWRITE) (IMPLIES (NEW-MACHINE-STATE-INVARIANT MACHINE-STATE) (MACHINE-STATE-INVARIANT MACHINE-STATE)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE NEW-MACHINE-STATE-INVARIANT MACHINE-STATE-INVARIANT V-FOURP-IMPLIES-PROPERP MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) (LEMMAS MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP) (QUOTE (IDATE 1000402194924 IMMEDIATE-DEPENDENTS0 (MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-ON MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT) EVENT (PROVE-LEMMA MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP (REWRITE) (IMPLIES (MEMORY-V-FOURP N WIDTH MEM) (MEMORY-PROPERP N WIDTH MEM)) ((ENABLE MEMORY-PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP) (LEMMAS MEMORY-PROPERP . MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL) (QUOTE (IDATE 1000402194924 IMMEDIATE-DEPENDENTS0 (NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-ON NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL-OFF) EVENT (PROVE-LEMMA NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL NIL (NEW-MACHINE-STATE-INVARIANT (UNKNOWN-MACHINE-STATE)) ((DISABLE-THEORY T) (ENABLE *1*NEW-MACHINE-STATE-INVARIANT *1*UNKNOWN-MACHINE-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (QUOTE (IDATE 1000402194924 IMMEDIATE-DEPENDENTS0 (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER-OFF) EVENT (PROVE-LEMMA XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER (REWRITE) (IMPLIES (NEW-MACHINE-STATE-INVARIANT STATE) (EQUAL (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) STATE (CHIP$NETLIST))))) (INITIALIZED-MACHINE-STATE))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FINAL-STATE) (USE (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (SIMULATE-RESET-CHIP-FINAL-STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 SIMULATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 LENGTH . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 NTH . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) (LEMMAS CAR . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (QUOTE (IDATE 1000402194924 IMMEDIATE-DEPENDENTS0 (XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-ON XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER) EVENT (PROVE-LEMMA XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE NIL (IMPLIES (NEW-MACHINE-STATE-INVARIANT STATE) (EQUAL (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))))) (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) STATE (CHIP$NETLIST))))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FINAL-STATE) (USE (XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE (FINAL-1 (CAR (FINAL-STATE))) (STATE-2 STATE)) (SIMULATE-RESET-CHIP-FINAL-STATE) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE-RESET-CHIP-FINAL-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 NTH . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE))))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (QUOTE (IDATE 1000402194924 IMMEDIATE-DEPENDENTS0 (NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-ON NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) EVENT (PROVE-LEMMA NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S NIL (IMPLIES (NEW-MACHINE-STATE-INVARIANT STATE) (GOOD-S STATE)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE GOOD-S-OPENER NEW-MACHINE-STATE-INVARIANT V-FOURP-IS-GOOD-S LENGTH-CONS LENGTH-1 LENGTH-BOTTOM PROPERP-CONS PROPERP-NLISTP *1*GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP-IMPLIES-GOOD-S . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-OPENER . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 V-FOURP-IS-GOOD-S . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S))))) (PUT1-LST (QUOTE V-FOURP-IS-GOOD-S) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (V-FOURP-IS-GOOD-S-ON V-FOURP-IS-GOOD-S-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) EVENT (PROVE-LEMMA V-FOURP-IS-GOOD-S (REWRITE) (IMPLIES (V-FOURP V) (GOOD-S V)) ((ENABLE GOOD-S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-OPENER . V-FOURP-IS-GOOD-S) (IMMEDIATE-DEPENDENTS0 FOURP . V-FOURP-IS-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . V-FOURP-IS-GOOD-S) (IMMEDIATE-DEPENDENTS0 V-FOURP . V-FOURP-IS-GOOD-S) (LEMMAS GOOD-S . V-FOURP-IS-GOOD-S))))) (PUT1-LST (QUOTE MEMORY-V-FOURP-IMPLIES-GOOD-S) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (MEMORY-V-FOURP-IMPLIES-GOOD-S-ON MEMORY-V-FOURP-IMPLIES-GOOD-S-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S) EVENT (PROVE-LEMMA MEMORY-V-FOURP-IMPLIES-GOOD-S (REWRITE) (IMPLIES (MEMORY-V-FOURP N (QUOTE 32) V) (GOOD-S V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEMORY-V-FOURP-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . MEMORY-V-FOURP-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-OPENER . MEMORY-V-FOURP-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-V-FOURP-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . MEMORY-V-FOURP-IMPLIES-GOOD-S) (IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . MEMORY-V-FOURP-IMPLIES-GOOD-S) (LEMMAS GOOD-S . MEMORY-V-FOURP-IMPLIES-GOOD-S))))) (PUT1-LST (QUOTE GOOD-S-OPENER) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (GOOD-S-OPENER-ON GOOD-S-OPENER-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S V-FOURP-IS-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S) EVENT (PROVE-LEMMA GOOD-S-OPENER (REWRITE) (AND (IMPLIES (LISTP S) (EQUAL (GOOD-S S) (AND (GOOD-S (CAR S)) (GOOD-S (CDR S))))) (AND (IMPLIES (RAMP S) (EQUAL (GOOD-S S) (AND (EQUAL (LENGTH (RAM-GUTS S)) (MEM-WIDTH)) (PROPERP (RAM-GUTS S))))) (AND (IMPLIES (ROMP S) (EQUAL (GOOD-S S) (AND (EQUAL (LENGTH (ROM-GUTS S)) (MEM-WIDTH)) (PROPERP (ROM-GUTS S))))) (AND (IMPLIES (STUBP S) (EQUAL (GOOD-S S) (AND (EQUAL (LENGTH (STUB-GUTS S)) (MEM-WIDTH)) (PROPERP (STUB-GUTS S))))) (IMPLIES (FOURP S) (GOOD-S S)))))) ((ENABLE GOOD-S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 STUB . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 ROM . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 PROPERP . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 RAM . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 LENGTH . GOOD-S-OPENER) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-OPENER) (LEMMAS GOOD-S . GOOD-S-OPENER) (LEMMAS GOOD-S . GOOD-S-OPENER) (LEMMAS GOOD-S . GOOD-S-OPENER) (LEMMAS GOOD-S . GOOD-S-OPENER) (LEMMAS GOOD-S . GOOD-S-OPENER))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-OFF XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) EVENT (PROVE-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX NIL (IMPLIES (NEW-MACHINE-STATE-INVARIANT STATE) (S-APPROX (UNKNOWN-MACHINE-STATE) STATE)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (USE (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3) (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA (S1-1 (CAR (CAR STATE))) (S1-2 (CAR (CDR (CAR STATE)))) (S1-3 (CAR (CDR (CDR (CAR STATE))))) (S1-4 (CAR (CDR (CDR (CDR (CAR STATE)))))) (S2 (CAR (CDR STATE))) (S3 (CAR (CDR (CDR STATE)))) (S4 (CAR (CDR (CDR (CDR STATE))))) (S5 (CAR (CDR (CDR (CDR (CDR STATE)))))) (S6 (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (S7 (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (S8 (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (S9 (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (S10 (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (S11 (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) (S12 (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (IMMEDIATE-DEPENDENTS0 S-APPROX . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) EVENT (PROVE-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 NIL (IMPLIES (NEW-MACHINE-STATE-INVARIANT STATE) (AND (EQUAL (LENGTH STATE) (QUOTE 12)) (AND (PROPERP STATE) (AND (EQUAL (LENGTH (CAR STATE)) (QUOTE 4)) (PROPERP (CAR STATE)))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE NEW-MACHINE-STATE-INVARIANT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3) (IMMEDIATE-DEPENDENTS0 LENGTH . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) EVENT (PROVE-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 NIL (IMPLIES (AND (EQUAL (LENGTH STATE) (QUOTE 12)) (AND (PROPERP STATE) (AND (EQUAL (LENGTH (CAR STATE)) (QUOTE 4)) (PROPERP (CAR STATE))))) (EQUAL STATE (CONS (CONS (CAR (CAR STATE)) (CONS (CAR (CDR (CAR STATE))) (CONS (CAR (CDR (CDR (CAR STATE)))) (CONS (CAR (CDR (CDR (CDR (CAR STATE))))) (QUOTE NIL))))) (CONS (CAR (CDR STATE)) (CONS (CAR (CDR (CDR STATE))) (CONS (CAR (CDR (CDR (CDR STATE)))) (CONS (CAR (CDR (CDR (CDR (CDR STATE))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) (QUOTE NIL))))))))))))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE LENGTH LENGTH-BOTTOM PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2) (IMMEDIATE-DEPENDENTS0 PROPERP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2) (IMMEDIATE-DEPENDENTS0 LENGTH . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2))))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (QUOTE (IDATE 1000402194923 IMMEDIATE-DEPENDENTS0 (MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-ON MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX) EVENT (PROVE-LEMMA MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA NIL (IMPLIES (AND (NEW-MACHINE-STATE-INVARIANT STATE) (EQUAL STATE (CONS (CONS S1-1 (CONS S1-2 (CONS S1-3 (CONS S1-4 (QUOTE NIL))))) (CONS S2 (CONS S3 (CONS S4 (CONS S5 (CONS S6 (CONS S7 (CONS S8 (CONS S9 (CONS S10 (CONS S11 (CONS S12 (QUOTE NIL))))))))))))))) (S-APPROX (UNKNOWN-MACHINE-STATE) STATE)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE NEW-MACHINE-STATE-INVARIANT B-APPROX-X ALL-RAMP-MEM LISTP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP STUBP-IMPLIES-NOT-FOURP *1*FOURP V-FOURP-IMPLIES-PROPERP ALL-XS-APPROXIMATES LENGTH *1*LENGTH LENGTH-CONS ALL-XS ALL-XS-MAKE-LIST S-APPROX-MAKE-LIST S-APPROX *1*UNKNOWN-MACHINE-STATE RAM-GUTS-RAM ROM-GUTS-ROM MEMORY-V-FOURP STUB-GUTS-STUB))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUBP-IMPLIES-NOT-FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 ROMP-IMPLIES-NOT-FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 RAMP-IMPLIES-NOT-FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 LISTP-IMPLIES-NOT-FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 V-FOURP-IMPLIES-PROPERP . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 ALL-XS-APPROXIMATES . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 RAM . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 B-APPROX-X . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 S-APPROX-MAKE-LIST . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 ALL-XS . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 S-APPROX . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) (IMMEDIATE-DEPENDENTS0 NEW-MACHINE-STATE-INVARIANT . MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA))))) (PUT1-LST (QUOTE B-APPROX-X) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (B-APPROX-X-ON B-APPROX-X-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA B-APPROX-X (REWRITE) (B-APPROX (QUOTE (*1*QUOTE X)) Y)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . B-APPROX-X) (IMMEDIATE-DEPENDENTS0 X . B-APPROX-X) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-X) (LEMMAS B-APPROX . B-APPROX-X))))) (PUT1-LST (QUOTE STUBP-IMPLIES-NOT-FOURP) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (STUBP-IMPLIES-NOT-FOURP-ON STUBP-IMPLIES-NOT-FOURP-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA STUBP-IMPLIES-NOT-FOURP (REWRITE) (IMPLIES (STUBP X) (NOT (FOURP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . STUBP-IMPLIES-NOT-FOURP) (IMMEDIATE-DEPENDENTS0 STUB . STUBP-IMPLIES-NOT-FOURP) (LEMMAS FOURP . STUBP-IMPLIES-NOT-FOURP))))) (PUT1-LST (QUOTE ROMP-IMPLIES-NOT-FOURP) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (ROMP-IMPLIES-NOT-FOURP-ON ROMP-IMPLIES-NOT-FOURP-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA ROMP-IMPLIES-NOT-FOURP (REWRITE) (IMPLIES (ROMP X) (NOT (FOURP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . ROMP-IMPLIES-NOT-FOURP) (IMMEDIATE-DEPENDENTS0 ROM . ROMP-IMPLIES-NOT-FOURP) (LEMMAS FOURP . ROMP-IMPLIES-NOT-FOURP))))) (PUT1-LST (QUOTE RAMP-IMPLIES-NOT-FOURP) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (RAMP-IMPLIES-NOT-FOURP-ON RAMP-IMPLIES-NOT-FOURP-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA RAMP-IMPLIES-NOT-FOURP (REWRITE) (IMPLIES (RAMP X) (NOT (FOURP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . RAMP-IMPLIES-NOT-FOURP) (IMMEDIATE-DEPENDENTS0 RAM . RAMP-IMPLIES-NOT-FOURP) (LEMMAS FOURP . RAMP-IMPLIES-NOT-FOURP))))) (PUT1-LST (QUOTE LISTP-IMPLIES-NOT-FOURP) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (LISTP-IMPLIES-NOT-FOURP-ON LISTP-IMPLIES-NOT-FOURP-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA LISTP-IMPLIES-NOT-FOURP (REWRITE) (IMPLIES (LISTP X) (NOT (FOURP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . LISTP-IMPLIES-NOT-FOURP) (LEMMAS FOURP . LISTP-IMPLIES-NOT-FOURP))))) (PUT1-LST (QUOTE V-FOURP-IMPLIES-PROPERP) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (V-FOURP-IMPLIES-PROPERP-ON V-FOURP-IMPLIES-PROPERP-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-GOOD-S MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA V-FOURP-IMPLIES-PROPERP (REWRITE) (IMPLIES (V-FOURP X) (PROPERP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . V-FOURP-IMPLIES-PROPERP) (IMMEDIATE-DEPENDENTS0 FOURP . V-FOURP-IMPLIES-PROPERP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-FOURP-IMPLIES-PROPERP) (IMMEDIATE-DEPENDENTS0 PROPERP . V-FOURP-IMPLIES-PROPERP) (IMMEDIATE-DEPENDENTS0 V-FOURP . V-FOURP-IMPLIES-PROPERP) (LEMMAS PROPERP . V-FOURP-IMPLIES-PROPERP))))) (PUT1-LST (QUOTE S-APPROX-MAKE-LIST) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (S-APPROX-MAKE-LIST-ON S-APPROX-MAKE-LIST-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA S-APPROX-MAKE-LIST (REWRITE) (IMPLIES (AND (EQUAL (LENGTH VEC1) (LENGTH VEC2)) (AND (V-FOURP VEC2) (ALL-XS VEC1))) (S-APPROX VEC1 VEC2)) ((ENABLE S-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 FOURP . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 ALL-XS . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 V-FOURP . S-APPROX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LENGTH . S-APPROX-MAKE-LIST) (LEMMAS S-APPROX . S-APPROX-MAKE-LIST))))) (PUT1-LST (QUOTE *1*NEW-MACHINE-STATE-INVARIANT) (QUOTE (MAIN-EVENT NEW-MACHINE-STATE-INVARIANT))) (PUT1-LST (QUOTE NEW-MACHINE-STATE-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((NEW-MACHINE-STATE-INVARIANT 3 NIL)) TOTALP-LST ((NEW-MACHINE-STATE-INVARIANT . T)) SDEFN (LAMBDA (MACHINE-STATE) (IF (EQUAL (LENGTH MACHINE-STATE) (QUOTE 12)) (IF (PROPERP MACHINE-STATE) (IF (EQUAL (LENGTH (CAR MACHINE-STATE)) (QUOTE 4)) (IF (PROPERP (CAR MACHINE-STATE)) (IF (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR MACHINE-STATE))) (IF (FOURP (CAR (CDR (CAR MACHINE-STATE)))) (IF (MEMORY-V-FOURP (QUOTE 4) (QUOTE 32) (CAR (CAR MACHINE-STATE))) (IF (V-FOURP (CAR (CDR (CDR (CAR MACHINE-STATE))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CAR MACHINE-STATE))))) (QUOTE 32)) (IF (V-FOURP (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (QUOTE 4)) (IF (V-FOURP (CAR (CDR MACHINE-STATE))) (IF (EQUAL (LENGTH (CAR (CDR MACHINE-STATE))) (QUOTE 4)) (IF (V-FOURP (CAR (CDR (CDR MACHINE-STATE)))) (IF (EQUAL (LENGTH (CAR (CDR (CDR MACHINE-STATE)))) (QUOTE 32)) (IF (V-FOURP (CAR (CDR (CDR (CDR MACHINE-STATE))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR MACHINE-STATE))))) (QUOTE 32)) (IF (V-FOURP (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (QUOTE 32)) (IF (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (QUOTE 32)) (IF (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (QUOTE 32)) (IF (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))) (IF (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))) (IF (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))) (IF (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (QUOTE 4)) (IF (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (QUOTE 40)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*NEW-MACHINE-STATE-INVARIANT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194916 SATELLITES (*1*NEW-MACHINE-STATE-INVARIANT) IMMEDIATE-DEPENDENTS0 (G*1*NEW-MACHINE-STATE-INVARIANT-ON NEW-MACHINE-STATE-INVARIANT-ON G*1*NEW-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT-OFF NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (DEFN NEW-MACHINE-STATE-INVARIANT (MACHINE-STATE) (AND (EQUAL (LENGTH MACHINE-STATE) (QUOTE 12)) (AND (PROPERP MACHINE-STATE) (AND (EQUAL (LENGTH (CAR MACHINE-STATE)) (QUOTE 4)) (AND (PROPERP (CAR MACHINE-STATE)) (AND (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR MACHINE-STATE))) (AND (FOURP (CAR (CDR (CAR MACHINE-STATE)))) (AND (MEMORY-V-FOURP (QUOTE 4) (QUOTE 32) (CAR (CAR MACHINE-STATE))) (AND (V-FOURP (CAR (CDR (CDR (CAR MACHINE-STATE))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CAR MACHINE-STATE))))) (QUOTE 32)) (AND (V-FOURP (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (QUOTE 4)) (AND (V-FOURP (CAR (CDR MACHINE-STATE))) (AND (EQUAL (LENGTH (CAR (CDR MACHINE-STATE))) (QUOTE 4)) (AND (V-FOURP (CAR (CDR (CDR MACHINE-STATE)))) (AND (EQUAL (LENGTH (CAR (CDR (CDR MACHINE-STATE)))) (QUOTE 32)) (AND (V-FOURP (CAR (CDR (CDR (CDR MACHINE-STATE))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR MACHINE-STATE))))) (QUOTE 32)) (AND (V-FOURP (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (QUOTE 32)) (AND (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (QUOTE 32)) (AND (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (QUOTE 32)) (AND (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))) (AND (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))) (AND (FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))) (AND (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (QUOTE 4)) (AND (V-FOURP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (QUOTE 40)))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURP . NEW-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-V-FOURP . NEW-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 FOURP . NEW-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . NEW-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . NEW-MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH . NEW-MACHINE-STATE-INVARIANT) (DCELL . *1*NEW-MACHINE-STATE-INVARIANT))))) (PUT1-LST (QUOTE *1*MEMORY-V-FOURP) (QUOTE (MAIN-EVENT MEMORY-V-FOURP))) (PUT1-LST (QUOTE MEMORY-V-FOURP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-V-FOURP 3 NIL NIL NIL)) TOTALP-LST ((MEMORY-V-FOURP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N WIDTH MEM) (IF (STUBP MEM) (IF (V-FOURP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (EQUAL N (QUOTE 0)) (IF (RAMP MEM) (IF (V-FOURP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (V-FOURP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (NUMBERP N) (IF (LISTP MEM) (IF (MEMORY-V-FOURP (SUB1 N) WIDTH (CAR MEM)) (IF (MEMORY-V-FOURP (SUB1 N) WIDTH (CDR MEM)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (RAMP MEM) (IF (V-FOURP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (V-FOURP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))) LISP-CODE *1*MEMORY-V-FOURP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (ROMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (NOT (ROMP MEM))) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (ZEROP N))) (((SUB1 N) WIDTH (CDR MEM)) ((SUB1 N) WIDTH (CAR MEM))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194916 CONTROLLER-POCKETS (1) SATELLITES (*1*MEMORY-V-FOURP) IMMEDIATE-DEPENDENTS0 (G*1*MEMORY-V-FOURP-ON MEMORY-V-FOURP-ON G*1*MEMORY-V-FOURP-OFF MEMORY-V-FOURP-OFF MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-GOOD-S MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA NEW-MACHINE-STATE-INVARIANT) EVENT (DEFN MEMORY-V-FOURP (N WIDTH MEM) (IF (STUBP MEM) (AND (V-FOURP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH)) (IF (ZEROP N) (IF (RAMP MEM) (AND (V-FOURP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH)) (IF (ROMP MEM) (AND (V-FOURP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH)) (QUOTE *1*FALSE))) (AND (LISTP MEM) (AND (MEMORY-V-FOURP (SUB1 N) WIDTH (CAR MEM)) (MEMORY-V-FOURP (SUB1 N) WIDTH (CDR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM . MEMORY-V-FOURP) (IMMEDIATE-DEPENDENTS0 RAM . MEMORY-V-FOURP) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-V-FOURP) (IMMEDIATE-DEPENDENTS0 STUB . MEMORY-V-FOURP) (IMMEDIATE-DEPENDENTS0 V-FOURP . MEMORY-V-FOURP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-V-FOURP) (DCELL . *1*MEMORY-V-FOURP))))) (PUT1-LST (QUOTE ALL-XS-MAKE-LIST) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (ALL-XS-MAKE-LIST-ON ALL-XS-MAKE-LIST-OFF) EVENT (PROVE-LEMMA ALL-XS-MAKE-LIST (REWRITE) (ALL-XS (MAKE-LIST N (QUOTE (*1*QUOTE X)))) ((ENABLE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . ALL-XS-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 X . ALL-XS-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . ALL-XS-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 ALL-XS . ALL-XS-MAKE-LIST) (LEMMAS ALL-XS . ALL-XS-MAKE-LIST))))) (PUT1-LST (QUOTE ALL-XS-APPROXIMATES) (QUOTE (IDATE 1000402194916 IMMEDIATE-DEPENDENTS0 (ALL-XS-APPROXIMATES-ON ALL-XS-APPROXIMATES-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA) EVENT (PROVE-LEMMA ALL-XS-APPROXIMATES (REWRITE) (IMPLIES (AND (ALL-XS VEC1) (AND (EQUAL (LENGTH VEC1) (LENGTH VEC2)) (PROPERP VEC2))) (V-APPROX VEC1 VEC2)) ((ENABLE V-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 B-APPROX . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 V-APPROX . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 PROPERP . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-XS-APPROXIMATES) (IMMEDIATE-DEPENDENTS0 ALL-XS . ALL-XS-APPROXIMATES) (LEMMAS V-APPROX . ALL-XS-APPROXIMATES))))) (PUT1-LST (QUOTE B-APPROX-ON) (QUOTE (IDATE 1000402194915 EVENT (TOGGLE B-APPROX-ON B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-ON) (DISABLED-LEMMAS NIL B-APPROX B-APPROX-ON))))) (PUT1-LST (QUOTE B-KNOWNP-ON) (QUOTE (IDATE 1000402194915 EVENT (TOGGLE B-KNOWNP-ON B-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-ON) (DISABLED-LEMMAS NIL B-KNOWNP B-KNOWNP-ON))))) (PUT1-LST (QUOTE *1*ALL-XS) (QUOTE (MAIN-EVENT ALL-XS))) (PUT1-LST (QUOTE ALL-XS) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-XS 3 NIL)) LEMMAS ((REWRITE-RULE ALL-XS-MAKE-LIST NIL (ALL-XS (MAKE-LIST N (QUOTE (*1*QUOTE X)))) NIL)) TOTALP-LST ((ALL-XS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (VEC) (IF (LISTP VEC) (IF (EQUAL (CAR VEC) (QUOTE (*1*QUOTE X))) (IF (ALL-XS (CDR VEC)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL VEC (QUOTE NIL)))) LISP-CODE *1*ALL-XS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP VEC)) NIL) (TESTS-AND-CASES ((NOT (NLISTP VEC))) (((CDR VEC))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (VEC) (COUNT VEC) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194915 CONTROLLER-POCKETS (1) SATELLITES (*1*ALL-XS) IMMEDIATE-DEPENDENTS0 (G*1*ALL-XS-ON ALL-XS-ON G*1*ALL-XS-OFF ALL-XS-OFF MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA S-APPROX-MAKE-LIST ALL-XS-MAKE-LIST ALL-XS-APPROXIMATES) EVENT (DEFN ALL-XS (VEC) (IF (NLISTP VEC) (EQUAL VEC (QUOTE NIL)) (AND (EQUAL (CAR VEC) (QUOTE (*1*QUOTE X))) (ALL-XS (CDR VEC))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . ALL-XS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-XS) (DCELL . *1*ALL-XS))))) (PUT1-LST (QUOTE *1*V-FOURP) (QUOTE (MAIN-EVENT V-FOURP))) (PUT1-LST (QUOTE V-FOURP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-FOURP 3 NIL)) TOTALP-LST ((V-FOURP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (FOURP (CAR X)) (IF (V-FOURP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL X (QUOTE NIL)))) LISP-CODE *1*V-FOURP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194915 CONTROLLER-POCKETS (1) SATELLITES (*1*V-FOURP) IMMEDIATE-DEPENDENTS0 (G*1*V-FOURP-ON V-FOURP-ON G*1*V-FOURP-OFF V-FOURP-OFF V-FOURP-IS-GOOD-S V-FOURP-IMPLIES-PROPERP S-APPROX-MAKE-LIST NEW-MACHINE-STATE-INVARIANT MEMORY-V-FOURP) EVENT (DEFN V-FOURP (X) (IF (NLISTP X) (EQUAL X (QUOTE NIL)) (AND (FOURP (CAR X)) (V-FOURP (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . V-FOURP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-FOURP) (DCELL . *1*V-FOURP))))) (PUT1-LST (QUOTE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE) (QUOTE (IDATE 1000402194915 IMMEDIATE-DEPENDENTS0 (FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-ON FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE-OFF) EVENT (PROVE-LEMMA FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE (REWRITE) (FM9001-MACHINE-STATEP (P-MAP-UP (INITIALIZED-MACHINE-STATE))) ((DISABLE FM9001-MACHINE-STATEP MAP-UP INITIALIZED-MACHINE-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 P-MAP-UP . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE) (LEMMAS FM9001-MACHINE-STATEP . FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (QUOTE (IDATE 1000402194915 IMMEDIATE-DEPENDENTS0 (XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-ON XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE-OFF RESET-CHIP-FROM-ANY-STATE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) EVENT (PROVE-LEMMA XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE NIL (IMPLIES (AND (S-APPROX (UNKNOWN-MACHINE-STATE) STATE-2) (GOOD-S STATE-2)) (EQUAL (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))) (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) STATE-2 (CHIP$NETLIST))))) ((DISABLE RESET-SEQUENCE-CHIP-1 *1*RESET-SEQUENCE-CHIP-1 UNKNOWN-MACHINE-STATE *1*UNKNOWN-MACHINE-STATE CHIP$NETLIST *1*CHIP$NETLIST SUB1 *1*SUB1 LENGTH *1*LENGTH NTH *1*NTH SIMULATE *1*SIMULATE S-APPROX *1*S-APPROX V-KNOWNP *1*V-KNOWNP S-KNOWNP *1*S-KNOWNP OK-NETLISTP *1*OK-NETLISTP) (ENABLE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (USE (XS-SUFFICE-FOR-RESET-LEMMA (N (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1)))) (FN (QUOTE CHIP)) (INPUTS (RESET-SEQUENCE-CHIP-1)) (STATE-1 (UNKNOWN-MACHINE-STATE)) (STATE-2 STATE-2) (NETLIST (CHIP$NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 SIMULATE . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 LENGTH . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 NTH . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 GOOD-S . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) (IMMEDIATE-DEPENDENTS0 S-APPROX . XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE))))) (PUT1-LST (QUOTE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF) (QUOTE (IDATE 1000402194915 EVENT (TOGGLE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF) (DISABLED-LEMMAS NIL FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF . T))))) (PUT1-LST (QUOTE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (QUOTE (IDATE 1000402194915 IMMEDIATE-DEPENDENTS0 (FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF1 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-ON XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP-OFF) EVENT (PROVE-LEMMA FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP (REWRITE) (AND (EQUAL (LESSP (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (LENGTH (RESET-SEQUENCE-CHIP-1))) (QUOTE *1*TRUE)) (AND (V-KNOWNP (CAR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))))) (AND (S-KNOWNP (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST)))))) (OK-NETLISTP (QUOTE 0) (QUOTE CHIP) (CHIP$NETLIST) (QUOTE (MEM-32X32)))))) ((DISABLE RESET-SEQUENCE-CHIP-1 UNKNOWN-MACHINE-STATE CHIP$NETLIST SUB1 LENGTH NTH SIMULATE V-KNOWNP S-KNOWNP OK-NETLISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 SIMULATE . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 NTH . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (IMMEDIATE-DEPENDENTS0 LENGTH . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (LEMMAS OK-NETLISTP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (LEMMAS S-KNOWNP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (LEMMAS V-KNOWNP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP) (LEMMAS LESSP . FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP))))) (PUT1-LST (QUOTE SIMULATE-RESET-CHIP-FINAL-STATE) (QUOTE (IDATE 1000402194749 IMMEDIATE-DEPENDENTS0 (SIMULATE-RESET-CHIP-FINAL-STATE-ON SIMULATE-RESET-CHIP-FINAL-STATE-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE) EVENT (PROVE-LEMMA SIMULATE-RESET-CHIP-FINAL-STATE NIL (EQUAL (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))))) (CAR (FINAL-STATE))) ((DISABLE RESET-SEQUENCE-CHIP-1 UNKNOWN-MACHINE-STATE CHIP$NETLIST SUB1 LENGTH NTH SIMULATE FINAL-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 SIMULATE . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . SIMULATE-RESET-CHIP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 NTH . SIMULATE-RESET-CHIP-FINAL-STATE))))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1-VS-2) (QUOTE (IDATE 1000402194705 IMMEDIATE-DEPENDENTS0 (RESET-SEQUENCE-CHIP-1-VS-2-ON RESET-SEQUENCE-CHIP-1-VS-2-OFF) EVENT (PROVE-LEMMA RESET-SEQUENCE-CHIP-1-VS-2 NIL (EQUAL (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST)) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-2) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))) ((DISABLE RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-2 UNKNOWN-MACHINE-STATE CHIP$NETLIST SIMULATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-2 . RESET-SEQUENCE-CHIP-1-VS-2) (IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . RESET-SEQUENCE-CHIP-1-VS-2) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . RESET-SEQUENCE-CHIP-1-VS-2) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE-CHIP-1 . RESET-SEQUENCE-CHIP-1-VS-2) (IMMEDIATE-DEPENDENTS0 SIMULATE . RESET-SEQUENCE-CHIP-1-VS-2))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE-CHIP-2) (QUOTE (MAIN-EVENT RESET-SEQUENCE-CHIP-2))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-2) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET-SEQUENCE-CHIP-2 16)) TOTALP-LST ((RESET-SEQUENCE-CHIP-2 . T)) SDEFN (LAMBDA NIL (CONS (RESET-VECTOR-CHIP) (MAKE-LIST (QUOTE 19) (RUN-VECTOR-CHIP-2)))) LISP-CODE *1*RESET-SEQUENCE-CHIP-2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RESET-SEQUENCE-CHIP-2) IMMEDIATE-DEPENDENTS0 (G*1*RESET-SEQUENCE-CHIP-2-ON RESET-SEQUENCE-CHIP-2-ON G*1*RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-2-OFF RESET-SEQUENCE-CHIP-1-VS-2) EVENT (DEFN RESET-SEQUENCE-CHIP-2 NIL (CONS (RESET-VECTOR-CHIP) (MAKE-LIST (QUOTE 19) (RUN-VECTOR-CHIP-2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-2 . RESET-SEQUENCE-CHIP-2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . RESET-SEQUENCE-CHIP-2) (IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . RESET-SEQUENCE-CHIP-2) (DCELL . *1*RESET-SEQUENCE-CHIP-2))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE-CHIP-1) (QUOTE (MAIN-EVENT RESET-SEQUENCE-CHIP-1))) (PUT1-LST (QUOTE RESET-SEQUENCE-CHIP-1) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET-SEQUENCE-CHIP-1 16)) TOTALP-LST ((RESET-SEQUENCE-CHIP-1 . T)) SDEFN (LAMBDA NIL (CONS (RESET-VECTOR-CHIP) (MAKE-LIST (QUOTE 19) (RUN-VECTOR-CHIP-1)))) LISP-CODE *1*RESET-SEQUENCE-CHIP-1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RESET-SEQUENCE-CHIP-1) IMMEDIATE-DEPENDENTS0 (G*1*RESET-SEQUENCE-CHIP-1-ON RESET-SEQUENCE-CHIP-1-ON G*1*RESET-SEQUENCE-CHIP-1-OFF RESET-SEQUENCE-CHIP-1-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP LENGTH-RESET-SEQUENCE-CHIP-1 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2) EVENT (DEFN RESET-SEQUENCE-CHIP-1 NIL (CONS (RESET-VECTOR-CHIP) (MAKE-LIST (QUOTE 19) (RUN-VECTOR-CHIP-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR-CHIP-1 . RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . RESET-SEQUENCE-CHIP-1) (IMMEDIATE-DEPENDENTS0 RESET-VECTOR-CHIP . RESET-SEQUENCE-CHIP-1) (DCELL . *1*RESET-SEQUENCE-CHIP-1))))) (PUT1-LST (QUOTE *1*RUN-VECTOR-CHIP-2) (QUOTE (MAIN-EVENT RUN-VECTOR-CHIP-2))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-2) (QUOTE (TYPE-PRESCRIPTION-LST ((RUN-VECTOR-CHIP-2 16)) TOTALP-LST ((RUN-VECTOR-CHIP-2 . T)) SDEFN (LAMBDA NIL (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE)))))))))))) LISP-CODE *1*RUN-VECTOR-CHIP-2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RUN-VECTOR-CHIP-2) IMMEDIATE-DEPENDENTS0 (G*1*RUN-VECTOR-CHIP-2-ON RUN-VECTOR-CHIP-2-ON G*1*RUN-VECTOR-CHIP-2-OFF RUN-VECTOR-CHIP-2-OFF RESET-SEQUENCE-CHIP-2) EVENT (DEFN RUN-VECTOR-CHIP-2 NIL (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . RUN-VECTOR-CHIP-2) (IMMEDIATE-DEPENDENTS0 X . RUN-VECTOR-CHIP-2) (DCELL . *1*RUN-VECTOR-CHIP-2))))) (PUT1-LST (QUOTE *1*RUN-VECTOR-CHIP-1) (QUOTE (MAIN-EVENT RUN-VECTOR-CHIP-1))) (PUT1-LST (QUOTE RUN-VECTOR-CHIP-1) (QUOTE (TYPE-PRESCRIPTION-LST ((RUN-VECTOR-CHIP-1 16)) TOTALP-LST ((RUN-VECTOR-CHIP-1 . T)) SDEFN (LAMBDA NIL (CONS (QUOTE *1*TRUE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE)))))))))))) LISP-CODE *1*RUN-VECTOR-CHIP-1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RUN-VECTOR-CHIP-1) IMMEDIATE-DEPENDENTS0 (G*1*RUN-VECTOR-CHIP-1-ON RUN-VECTOR-CHIP-1-ON G*1*RUN-VECTOR-CHIP-1-OFF RUN-VECTOR-CHIP-1-OFF LENGTH-RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-1) EVENT (DEFN RUN-VECTOR-CHIP-1 NIL (CONS (QUOTE *1*TRUE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . RUN-VECTOR-CHIP-1) (IMMEDIATE-DEPENDENTS0 X . RUN-VECTOR-CHIP-1) (DCELL . *1*RUN-VECTOR-CHIP-1))))) (PUT1-LST (QUOTE *1*RESET-VECTOR-CHIP) (QUOTE (MAIN-EVENT RESET-VECTOR-CHIP))) (PUT1-LST (QUOTE RESET-VECTOR-CHIP) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET-VECTOR-CHIP 16)) TOTALP-LST ((RESET-VECTOR-CHIP . T)) SDEFN (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))))))))) LISP-CODE *1*RESET-VECTOR-CHIP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RESET-VECTOR-CHIP) IMMEDIATE-DEPENDENTS0 (G*1*RESET-VECTOR-CHIP-ON RESET-VECTOR-CHIP-ON G*1*RESET-VECTOR-CHIP-OFF RESET-VECTOR-CHIP-OFF LENGTH-RESET-SEQUENCE-CHIP-1 RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-1) EVENT (DEFN RESET-VECTOR-CHIP NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . RESET-VECTOR-CHIP) (IMMEDIATE-DEPENDENTS0 X . RESET-VECTOR-CHIP) (DCELL . *1*RESET-VECTOR-CHIP))))) (PUT1-LST (QUOTE FM9001-STATEP-MAP-UP-FINAL-STATE) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-MAP-UP-FINAL-STATE-ON FM9001-STATEP-MAP-UP-FINAL-STATE-OFF) EVENT (PROVE-LEMMA FM9001-STATEP-MAP-UP-FINAL-STATE (REWRITE) (FM9001-STATEP (MAP-UP (FINAL-STATE))) ((DISABLE FM9001-STATEP MAP-UP FINAL-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . FM9001-STATEP-MAP-UP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001-STATEP-MAP-UP-FINAL-STATE) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001-STATEP-MAP-UP-FINAL-STATE) (LEMMAS FM9001-STATEP . FM9001-STATEP-MAP-UP-FINAL-STATE))))) (PUT1-LST (QUOTE INSTANCE-THEOREM) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (INSTANCE-THEOREM-ON INSTANCE-THEOREM-OFF) EVENT (PROVE-LEMMA INSTANCE-THEOREM NIL (IMPLIES (AND (CHIP-SYSTEM& (CHIP-SYSTEM$NETLIST)) (AND (FM9001-STATE-STRUCTURE (FINAL-STATE)) (AND (MACROCYCLE-INVARIANT (FINAL-STATE) PC) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (FINAL-STATE) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (FINAL-STATE) (MAP-UP-INPUTS INPUTS) N)))))) (EQUAL (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (FINAL-STATE) (CHIP-SYSTEM$NETLIST) (TOTAL-MICROCYCLES (FINAL-STATE) (MAP-UP-INPUTS INPUTS) N))) (FM9001-INTERPRETER (MAP-UP (FINAL-STATE)) PC N))) ((DISABLE MAP-UP-INPUTS TOTAL-MICROCYCLES CHIP-SYSTEM$NETLIST FINAL-STATE *1*FINAL-STATE FM9001-STATE-STRUCTURE MACROCYCLE-INVARIANT CHIP-SYSTEM-OPERATING-INPUTS-P OPERATING-INPUTS-P MAP-UP SIMULATE-DUAL-EVAL-2 FM9001-INTERPRETER PC-REG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE-OKP . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=RUN-FM9001 . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER-CORRECT . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 MAP-UP . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 FINAL-STATE . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$NETLIST . INSTANCE-THEOREM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . INSTANCE-THEOREM))))) (PUT1-LST (QUOTE FINAL-STATE-OKP) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (FINAL-STATE-OKP-ON FINAL-STATE-OKP-OFF INSTANCE-THEOREM) EVENT (PROVE-LEMMA FINAL-STATE-OKP (REWRITE) (AND (CHIP-SYSTEM& (CHIP-SYSTEM$NETLIST)) (AND (FM9001-STATE-STRUCTURE (FINAL-STATE)) (MACROCYCLE-INVARIANT (FINAL-STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))) ((DISABLE CHIP-SYSTEM& CHIP-SYSTEM$NETLIST FM9001-STATE-STRUCTURE FINAL-STATE MACROCYCLE-INVARIANT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . FINAL-STATE-OKP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . FINAL-STATE-OKP) (IMMEDIATE-DEPENDENTS0 FINAL-STATE . FINAL-STATE-OKP) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FINAL-STATE-OKP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$NETLIST . FINAL-STATE-OKP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . FINAL-STATE-OKP) (LEMMAS MACROCYCLE-INVARIANT . FINAL-STATE-OKP) (LEMMAS FM9001-STATE-STRUCTURE . FINAL-STATE-OKP) (LEMMAS CHIP-SYSTEM& . FINAL-STATE-OKP))))) (PUT1-LST (QUOTE UNKNOWN-STATE-OKP) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (UNKNOWN-STATE-OKP-ON UNKNOWN-STATE-OKP-OFF) EVENT (PROVE-LEMMA UNKNOWN-STATE-OKP NIL (AND (FM9001-STATE-STRUCTURE (UNKNOWN-STATE)) (AND (CHIP-SYSTEM-INVARIANT (UNKNOWN-STATE)) (CHIP-SYSTEM-OPERATING-INPUTS-P (RESET-SEQUENCE) (QUOTE 20)))) ((DISABLE CHIP-SYSTEM-INVARIANT CHIP-SYSTEM-OPERATING-INPUTS-P RESET-SEQUENCE UNKNOWN-STATE FM9001-STATE-STRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . UNKNOWN-STATE-OKP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . UNKNOWN-STATE-OKP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . UNKNOWN-STATE-OKP) (IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . UNKNOWN-STATE-OKP) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . UNKNOWN-STATE-OKP))))) (PUT1-LST (QUOTE RESET-WORKS) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (RESET-WORKS-ON RESET-WORKS-OFF) EVENT (PROVE-LEMMA RESET-WORKS NIL (EQUAL (RUN-FM9001 (UNKNOWN-STATE) (MAP-UP-INPUTS (RESET-SEQUENCE)) (LENGTH (RESET-SEQUENCE))) (FINAL-STATE)) ((DISABLE RUN-FM9001 UNKNOWN-STATE MAP-UP-INPUTS RESET-SEQUENCE LENGTH FINAL-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FINAL-STATE . RESET-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . RESET-WORKS) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . RESET-WORKS) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . RESET-WORKS) (IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . RESET-WORKS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . RESET-WORKS))))) (PUT1-LST (QUOTE *1*FINAL-STATE) (QUOTE (MAIN-EVENT FINAL-STATE))) (PUT1-LST (QUOTE FINAL-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((FINAL-STATE 16)) TOTALP-LST ((FINAL-STATE . T)) SDEFN (LAMBDA NIL (CONS (INITIALIZED-MACHINE-STATE) (CONS (INITIALIZED-MEMORY-STATE) (QUOTE NIL)))) LISP-CODE *1*FINAL-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*FINAL-STATE) IMMEDIATE-DEPENDENTS0 (G*1*FINAL-STATE-ON FINAL-STATE-ON G*1*FINAL-STATE-OFF FINAL-STATE-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE SIMULATE-RESET-CHIP-FINAL-STATE FM9001-STATEP-MAP-UP-FINAL-STATE INSTANCE-THEOREM FINAL-STATE-OKP RESET-WORKS) EVENT (DEFN FINAL-STATE NIL (CONS (INITIALIZED-MACHINE-STATE) (CONS (INITIALIZED-MEMORY-STATE) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIALIZED-MEMORY-STATE . FINAL-STATE) (IMMEDIATE-DEPENDENTS0 INITIALIZED-MACHINE-STATE . FINAL-STATE) (DCELL . *1*FINAL-STATE))))) (PUT1-LST (QUOTE *1*INITIALIZED-MEMORY-STATE) (QUOTE (MAIN-EVENT INITIALIZED-MEMORY-STATE))) (PUT1-LST (QUOTE INITIALIZED-MEMORY-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIALIZED-MEMORY-STATE 16)) TOTALP-LST ((INITIALIZED-MEMORY-STATE . T)) SDEFN (LAMBDA NIL (CONS (STUB (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LISP-CODE *1*INITIALIZED-MEMORY-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*INITIALIZED-MEMORY-STATE) IMMEDIATE-DEPENDENTS0 (G*1*INITIALIZED-MEMORY-STATE-ON INITIALIZED-MEMORY-STATE-ON G*1*INITIALIZED-MEMORY-STATE-OFF INITIALIZED-MEMORY-STATE-OFF FINAL-STATE) EVENT (DEFN INITIALIZED-MEMORY-STATE NIL (CONS (STUB (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . INITIALIZED-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . INITIALIZED-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 STUB . INITIALIZED-MEMORY-STATE) (DCELL . *1*INITIALIZED-MEMORY-STATE))))) (PUT1-LST (QUOTE *1*INITIALIZED-MACHINE-STATE) (QUOTE (MAIN-EVENT INITIALIZED-MACHINE-STATE))) (PUT1-LST (QUOTE INITIALIZED-MACHINE-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIALIZED-MACHINE-STATE 16)) TOTALP-LST ((INITIALIZED-MACHINE-STATE . T)) SDEFN (LAMBDA NIL (CONS (INITIALIZED-REGFILE) (CONS (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CONS (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (QUOTE NIL)))))))))))))) LISP-CODE *1*INITIALIZED-MACHINE-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*INITIALIZED-MACHINE-STATE) IMMEDIATE-DEPENDENTS0 (G*1*INITIALIZED-MACHINE-STATE-ON INITIALIZED-MACHINE-STATE-ON G*1*INITIALIZED-MACHINE-STATE-OFF INITIALIZED-MACHINE-STATE-OFF CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET RESET-CHIP-FROM-ANY-STATE RESET-CHIP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FINAL-STATE) EVENT (DEFN INITIALIZED-MACHINE-STATE NIL (CONS (INITIALIZED-REGFILE) (CONS (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CONS (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (QUOTE NIL)))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH1 . INITIALIZED-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . INITIALIZED-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 INITIALIZED-REGFILE . INITIALIZED-MACHINE-STATE) (DCELL . *1*INITIALIZED-MACHINE-STATE))))) (PUT1-LST (QUOTE *1*INITIALIZED-REGFILE) (QUOTE (MAIN-EVENT INITIALIZED-REGFILE))) (PUT1-LST (QUOTE INITIALIZED-REGFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIALIZED-REGFILE 16)) TOTALP-LST ((INITIALIZED-REGFILE . T)) SDEFN (LAMBDA NIL (CONS (CONS (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))))) (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))))) (CONS (QUOTE *1*FALSE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (QUOTE NIL)))))) LISP-CODE *1*INITIALIZED-REGFILE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*INITIALIZED-REGFILE) IMMEDIATE-DEPENDENTS0 (G*1*INITIALIZED-REGFILE-ON INITIALIZED-REGFILE-ON G*1*INITIALIZED-REGFILE-OFF INITIALIZED-REGFILE-OFF CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE INITIALIZED-MACHINE-STATE) EVENT (DEFN INITIALIZED-REGFILE NIL (CONS (CONS (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))))) (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))))) (CONS (QUOTE *1*FALSE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . INITIALIZED-REGFILE) (IMMEDIATE-DEPENDENTS0 RAM . INITIALIZED-REGFILE) (DCELL . *1*INITIALIZED-REGFILE))))) (PUT1-LST (QUOTE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-ON CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE NIL (CHIP-SYSTEM-OPERATING-INPUTS-P (RESET-SEQUENCE) (QUOTE 20))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 RUN-VECTOR . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 RESET-VECTOR . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 RESET-SEQUENCE . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE) (QUOTE (MAIN-EVENT RESET-SEQUENCE))) (PUT1-LST (QUOTE RESET-SEQUENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET-SEQUENCE 16)) TOTALP-LST ((RESET-SEQUENCE . T)) SDEFN (LAMBDA NIL (CONS (RESET-VECTOR) (MAKE-LIST (QUOTE 19) (RUN-VECTOR)))) LISP-CODE *1*RESET-SEQUENCE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RESET-SEQUENCE) IMMEDIATE-DEPENDENTS0 (G*1*RESET-SEQUENCE-ON RESET-SEQUENCE-ON G*1*RESET-SEQUENCE-OFF RESET-SEQUENCE-OFF UNKNOWN-STATE-OKP RESET-WORKS CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE) EVENT (DEFN RESET-SEQUENCE NIL (CONS (RESET-VECTOR) (MAKE-LIST (QUOTE 19) (RUN-VECTOR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-VECTOR . RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . RESET-SEQUENCE) (IMMEDIATE-DEPENDENTS0 RESET-VECTOR . RESET-SEQUENCE) (DCELL . *1*RESET-SEQUENCE))))) (PUT1-LST (QUOTE *1*RUN-VECTOR) (QUOTE (MAIN-EVENT RUN-VECTOR))) (PUT1-LST (QUOTE RUN-VECTOR) (QUOTE (TYPE-PRESCRIPTION-LST ((RUN-VECTOR 16)) TOTALP-LST ((RUN-VECTOR . T)) SDEFN (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))))))))) LISP-CODE *1*RUN-VECTOR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RUN-VECTOR) IMMEDIATE-DEPENDENTS0 (G*1*RUN-VECTOR-ON RUN-VECTOR-ON G*1*RUN-VECTOR-OFF RUN-VECTOR-OFF CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE RESET-SEQUENCE) EVENT (DEFN RUN-VECTOR NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . RUN-VECTOR) (IMMEDIATE-DEPENDENTS0 X . RUN-VECTOR) (DCELL . *1*RUN-VECTOR))))) (PUT1-LST (QUOTE *1*RESET-VECTOR) (QUOTE (MAIN-EVENT RESET-VECTOR))) (PUT1-LST (QUOTE RESET-VECTOR) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET-VECTOR 16)) TOTALP-LST ((RESET-VECTOR . T)) SDEFN (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))))))))) LISP-CODE *1*RESET-VECTOR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*RESET-VECTOR) IMMEDIATE-DEPENDENTS0 (G*1*RESET-VECTOR-ON RESET-VECTOR-ON G*1*RESET-VECTOR-OFF RESET-VECTOR-OFF CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE RESET-SEQUENCE) EVENT (DEFN RESET-VECTOR NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . RESET-VECTOR) (IMMEDIATE-DEPENDENTS0 X . RESET-VECTOR) (DCELL . *1*RESET-VECTOR))))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (FM9001-STATE-STRUCTURE-UNKNOWN-STATE-ON FM9001-STATE-STRUCTURE-UNKNOWN-STATE-OFF) EVENT (PROVE-LEMMA FM9001-STATE-STRUCTURE-UNKNOWN-STATE NIL (FM9001-STATE-STRUCTURE (UNKNOWN-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-STATE-STRUCTURE-UNKNOWN-STATE))))) (PUT1-LST (QUOTE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (QUOTE (IDATE 1000402194539 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-ON CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE NIL (CHIP-SYSTEM-INVARIANT (UNKNOWN-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 RAM . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-STATE . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE))))) (PUT1-LST (QUOTE *1*UNKNOWN-STATE) (QUOTE (MAIN-EVENT UNKNOWN-STATE))) (PUT1-LST (QUOTE UNKNOWN-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN-STATE 16)) TOTALP-LST ((UNKNOWN-STATE . T)) SDEFN (LAMBDA NIL (CONS (UNKNOWN-MACHINE-STATE) (CONS (UNKNOWN-MEMORY-STATE) (QUOTE NIL)))) LISP-CODE *1*UNKNOWN-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*UNKNOWN-STATE) IMMEDIATE-DEPENDENTS0 (G*1*UNKNOWN-STATE-ON UNKNOWN-STATE-ON G*1*UNKNOWN-STATE-OFF UNKNOWN-STATE-OFF UNKNOWN-STATE-OKP RESET-WORKS FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE) EVENT (DEFN UNKNOWN-STATE NIL (CONS (UNKNOWN-MACHINE-STATE) (CONS (UNKNOWN-MEMORY-STATE) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-MEMORY-STATE . UNKNOWN-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-MACHINE-STATE . UNKNOWN-STATE) (DCELL . *1*UNKNOWN-STATE))))) (PUT1-LST (QUOTE *1*UNKNOWN-MEMORY-STATE) (QUOTE (MAIN-EVENT UNKNOWN-MEMORY-STATE))) (PUT1-LST (QUOTE UNKNOWN-MEMORY-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN-MEMORY-STATE 16)) TOTALP-LST ((UNKNOWN-MEMORY-STATE . T)) SDEFN (LAMBDA NIL (CONS (STUB (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LISP-CODE *1*UNKNOWN-MEMORY-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*UNKNOWN-MEMORY-STATE) IMMEDIATE-DEPENDENTS0 (G*1*UNKNOWN-MEMORY-STATE-ON UNKNOWN-MEMORY-STATE-ON G*1*UNKNOWN-MEMORY-STATE-OFF UNKNOWN-MEMORY-STATE-OFF FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-STATE) EVENT (DEFN UNKNOWN-MEMORY-STATE NIL (CONS (STUB (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . UNKNOWN-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . UNKNOWN-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 STUB . UNKNOWN-MEMORY-STATE) (DCELL . *1*UNKNOWN-MEMORY-STATE))))) (PUT1-LST (QUOTE *1*UNKNOWN-MACHINE-STATE) (QUOTE (MAIN-EVENT UNKNOWN-MACHINE-STATE))) (PUT1-LST (QUOTE UNKNOWN-MACHINE-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN-MACHINE-STATE 16)) TOTALP-LST ((UNKNOWN-MACHINE-STATE . T)) SDEFN (LAMBDA NIL (CONS (UNKNOWN-REGFILE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 40) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))) LISP-CODE *1*UNKNOWN-MACHINE-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*UNKNOWN-MACHINE-STATE) IMMEDIATE-DEPENDENTS0 (G*1*UNKNOWN-MACHINE-STATE-ON UNKNOWN-MACHINE-STATE-ON G*1*UNKNOWN-MACHINE-STATE-OFF UNKNOWN-MACHINE-STATE-OFF RESET-CHIP-FROM-ANY-STATE RESET-CHIP NEW-MACHINE-STATE-INVARIANT-IS-NON-TRIVIAL XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2 FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-STATE) EVENT (DEFN UNKNOWN-MACHINE-STATE NIL (CONS (UNKNOWN-REGFILE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 40) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . UNKNOWN-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . UNKNOWN-MACHINE-STATE) (IMMEDIATE-DEPENDENTS0 UNKNOWN-REGFILE . UNKNOWN-MACHINE-STATE) (DCELL . *1*UNKNOWN-MACHINE-STATE))))) (PUT1-LST (QUOTE *1*UNKNOWN-REGFILE) (QUOTE (MAIN-EVENT UNKNOWN-REGFILE))) (PUT1-LST (QUOTE UNKNOWN-REGFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN-REGFILE 16)) TOTALP-LST ((UNKNOWN-REGFILE . T)) SDEFN (LAMBDA NIL (CONS (CONS (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))) LISP-CODE *1*UNKNOWN-REGFILE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194539 SATELLITES (*1*UNKNOWN-REGFILE) IMMEDIATE-DEPENDENTS0 (G*1*UNKNOWN-REGFILE-ON UNKNOWN-REGFILE-ON G*1*UNKNOWN-REGFILE-OFF UNKNOWN-REGFILE-OFF FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-MACHINE-STATE) EVENT (DEFN UNKNOWN-REGFILE NIL (CONS (CONS (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) (CONS (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) (CONS (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (RAM (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (CONS (QUOTE (*1*QUOTE X)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (CONS (MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . UNKNOWN-REGFILE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . UNKNOWN-REGFILE) (IMMEDIATE-DEPENDENTS0 RAM . UNKNOWN-REGFILE) (DCELL . *1*UNKNOWN-REGFILE))))) (PUT1-LST (QUOTE COMPILE-UNCOMPILED-DEFNS-ON) (QUOTE (IDATE 1000402194500 EVENT (TOGGLE COMPILE-UNCOMPILED-DEFNS-ON COMPILE-UNCOMPILED-DEFNS NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPILE-UNCOMPILED-DEFNS . COMPILE-UNCOMPILED-DEFNS-ON) (DISABLED-LEMMAS NIL COMPILE-UNCOMPILED-DEFNS COMPILE-UNCOMPILED-DEFNS-ON))))) (PUT1-LST (QUOTE *1*COMPILE-UNCOMPILED-DEFNS) (QUOTE (MAIN-EVENT COMPILE-UNCOMPILED-DEFNS))) (PUT1-LST (QUOTE COMPILE-UNCOMPILED-DEFNS) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPILE-UNCOMPILED-DEFNS 2)) TOTALP-LST ((COMPILE-UNCOMPILED-DEFNS . T)) SDEFN (LAMBDA NIL (QUOTE *1*TRUE)) LISP-CODE *1*COMPILE-UNCOMPILED-DEFNS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194500 SATELLITES (*1*COMPILE-UNCOMPILED-DEFNS) IMMEDIATE-DEPENDENTS0 (G*1*COMPILE-UNCOMPILED-DEFNS-ON COMPILE-UNCOMPILED-DEFNS-ON2 G*1*COMPILE-UNCOMPILED-DEFNS-OFF COMPILE-UNCOMPILED-DEFNS-OFF COMPILE-UNCOMPILED-DEFNS-ON1 COMPILE-UNCOMPILED-DEFNS-ON) EVENT (DEFN COMPILE-UNCOMPILED-DEFNS NIL (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*COMPILE-UNCOMPILED-DEFNS))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (XS-SUFFICE-FOR-RESET-LEMMA-ON XS-SUFFICE-FOR-RESET-LEMMA-OFF XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE) EVENT (PROVE-LEMMA XS-SUFFICE-FOR-RESET-LEMMA NIL (IMPLIES (AND (LESSP N (LENGTH INPUTS)) (AND (S-APPROX STATE-1 STATE-2) (AND (V-KNOWNP (CAR (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST)))) (AND (S-KNOWNP (CAR (CDR (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST))))) (AND (GOOD-S STATE-2) (OK-NETLISTP (QUOTE 0) FN NETLIST (QUOTE (MEM-32X32)))))))) (EQUAL (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST)) (NTH N (SIMULATE FN INPUTS STATE-2 NETLIST)))) ((USE (XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 GOOD-S . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 SIMULATE . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 NTH . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 S-APPROX . XS-SUFFICE-FOR-RESET-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH . XS-SUFFICE-FOR-RESET-LEMMA))))) (PUT1-LST (QUOTE XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-ON XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE-OFF XS-SUFFICE-FOR-RESET-LEMMA) EVENT (PROVE-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE NIL (IMPLIES (AND (LESSP N (LENGTH INPUTS)) (AND (S-APPROX STATE-1 STATE-2) (AND (V-KNOWNP (CAR (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST)))) (AND (S-KNOWNP (CAR (CDR (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST))))) (AND (GOOD-S STATE-2) (AND (OK-NETLISTP (QUOTE 0) FN NETLIST (QUOTE (MEM-32X32))) (OK-NETLISTP (QUOTE 2) FN NETLIST (QUOTE (MEM-32X32))))))))) (EQUAL (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST)) (NTH N (SIMULATE FN INPUTS STATE-2 NETLIST)))) ((USE (DOUBLET-P-EQUAL-APPROX (X (NTH N (SIMULATE FN INPUTS STATE-1 NETLIST))) (Y (NTH N (SIMULATE FN INPUTS STATE-2 NETLIST))))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE V-APPROX-CAR-NTH S-APPROX-CADR-NTH SIMULATE-MONOTONE V-APPROX-LIST-X-X DOUBLET-N-SIMULATE DOUBLET-P-EQUAL-APPROX LENGTH-SIMULATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 LENGTH-SIMULATE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 V-APPROX-LIST-X-X . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 V-APPROX-CAR-NTH . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 S-APPROX-CADR-NTH . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 DOUBLET-P-EQUAL-APPROX . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 GOOD-S . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 SIMULATE . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 NTH . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 S-APPROX . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) (IMMEDIATE-DEPENDENTS0 LENGTH . XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE))))) (PUT1-LST (QUOTE LENGTH-SIMULATE) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (LENGTH-SIMULATE-ON LENGTH-SIMULATE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA LENGTH-SIMULATE (REWRITE) (EQUAL (LENGTH (SIMULATE FN INPUTS STATE NETLIST)) (LENGTH INPUTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-SIMULATE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-SIMULATE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-SIMULATE) (IMMEDIATE-DEPENDENTS0 SIMULATE . LENGTH-SIMULATE) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-SIMULATE) (LEMMAS LENGTH . LENGTH-SIMULATE))))) (PUT1-LST (QUOTE DOUBLET-P-OFF) (QUOTE (IDATE 1000402194500 EVENT (TOGGLE DOUBLET-P-OFF DOUBLET-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLET-P . DOUBLET-P-OFF) (DISABLED-LEMMAS NIL DOUBLET-P DOUBLET-P-OFF . T))))) (PUT1-LST (QUOTE DOUBLET-P-EQUAL-APPROX) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (DOUBLET-P-EQUAL-APPROX-ON DOUBLET-P-EQUAL-APPROX-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA DOUBLET-P-EQUAL-APPROX NIL (IMPLIES (AND (DOUBLET-P X) (AND (DOUBLET-P Y) (AND (V-KNOWNP (CAR X)) (AND (S-KNOWNP (CAR (CDR X))) (AND (V-APPROX (CAR X) (CAR Y)) (S-APPROX (CAR (CDR X)) (CAR (CDR Y)))))))) (EQUAL X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 S-APPROX . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 V-APPROX . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . DOUBLET-P-EQUAL-APPROX) (IMMEDIATE-DEPENDENTS0 DOUBLET-P . DOUBLET-P-EQUAL-APPROX))))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (DOUBLET-N-SIMULATE-ON DOUBLET-N-SIMULATE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA DOUBLET-N-SIMULATE (REWRITE) (IMPLIES (LESSP N (LENGTH INPUTS)) (DOUBLET-P (NTH N (SIMULATE FN INPUTS STATE NETLIST)))) ((INDUCT (DOUBLET-N-SIMULATE-INDUCTION FN INPUTS STATE NETLIST N)) (EXPAND (SIMULATE FN INPUTS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 DOUBLET-N-SIMULATE-INDUCTION . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 SIMULATE . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 NTH . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 DOUBLET-P . DOUBLET-N-SIMULATE) (IMMEDIATE-DEPENDENTS0 LENGTH . DOUBLET-N-SIMULATE) (LEMMAS DOUBLET-P . DOUBLET-N-SIMULATE))))) (PUT1-LST (QUOTE *1*DOUBLET-N-SIMULATE-INDUCTION) (QUOTE (MAIN-EVENT DOUBLET-N-SIMULATE-INDUCTION))) (PUT1-LST (QUOTE DOUBLET-N-SIMULATE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLET-N-SIMULATE-INDUCTION 2 NIL NIL NIL NIL NIL)) TOTALP-LST ((DOUBLET-N-SIMULATE-INDUCTION)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (FN INPUTS STATE NETLIST N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (DOUBLET-N-SIMULATE-INDUCTION FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N)) (QUOTE *1*TRUE)))) LISP-CODE *1*DOUBLET-N-SIMULATE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194500 CONTROLLER-POCKETS (16) SATELLITES (*1*DOUBLET-N-SIMULATE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DOUBLET-N-SIMULATE-INDUCTION-ON DOUBLET-N-SIMULATE-INDUCTION-ON G*1*DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE-INDUCTION-OFF DOUBLET-N-SIMULATE) EVENT (DEFN DOUBLET-N-SIMULATE-INDUCTION (FN INPUTS STATE NETLIST N) (IF (ZEROP N) (QUOTE *1*TRUE) (DOUBLET-N-SIMULATE-INDUCTION FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DOUBLET-N-SIMULATE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . DOUBLET-N-SIMULATE-INDUCTION) (DCELL . *1*DOUBLET-N-SIMULATE-INDUCTION))))) (PUT1-LST (QUOTE *1*DOUBLET-P) (QUOTE (MAIN-EVENT DOUBLET-P))) (PUT1-LST (QUOTE DOUBLET-P) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLET-P 3 NIL)) LEMMAS ((REWRITE-RULE DOUBLET-N-SIMULATE ((LESSP N (LENGTH INPUTS))) (DOUBLET-P (NTH N (SIMULATE FN INPUTS STATE NETLIST))) NIL)) TOTALP-LST ((DOUBLET-P . T)) SDEFN (LAMBDA (X) (EQUAL X (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL))))) LISP-CODE *1*DOUBLET-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194500 SATELLITES (*1*DOUBLET-P) IMMEDIATE-DEPENDENTS0 (DOUBLET-P-OFF1 G*1*DOUBLET-P-ON DOUBLET-P-ON G*1*DOUBLET-P-OFF DOUBLET-P-OFF DOUBLET-P-EQUAL-APPROX DOUBLET-N-SIMULATE) EVENT (DEFN DOUBLET-P (X) (EQUAL X (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DOUBLET-P))))) (PUT1-LST (QUOTE V-APPROX-LIST-X-X) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (V-APPROX-LIST-X-X-ON V-APPROX-LIST-X-X-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA V-APPROX-LIST-X-X (REWRITE) (V-APPROX-LIST X X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-LIST-X-X) (IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . V-APPROX-LIST-X-X) (LEMMAS V-APPROX-LIST . V-APPROX-LIST-X-X))))) (PUT1-LST (QUOTE SIMULATE-MONOTONE) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (SIMULATE-MONOTONE-ON SIMULATE-MONOTONE-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA SIMULATE-MONOTONE (REWRITE) (IMPLIES (AND (V-APPROX-LIST INPUTS-1 INPUTS-2) (AND (S-APPROX STATE-1 STATE-2) (AND (GOOD-S STATE-2) (AND (OK-NETLISTP (QUOTE 0) FN NETLIST (QUOTE (MEM-32X32))) (OK-NETLISTP (QUOTE 2) FN NETLIST (QUOTE (MEM-32X32))))))) (V-S-APPROX-LIST (SIMULATE FN INPUTS-1 STATE-1 NETLIST) (SIMULATE FN INPUTS-2 STATE-2 NETLIST))) ((INDUCT (SIMULATE-MONOTONE-INDUCTION FN INPUTS-1 STATE-1 NETLIST INPUTS-2 STATE-2)) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE SIMULATE S-APPROX V-S-APPROX-LIST GOOD-S-PRESERVED MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 DUAL-EVAL-MONOTONE V-APPROX-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-PRESERVED . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-0 . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 SIMULATE-MONOTONE-INDUCTION . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 SIMULATE . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . SIMULATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-LIST . SIMULATE-MONOTONE) (LEMMAS V-S-APPROX-LIST . SIMULATE-MONOTONE))))) (PUT1-LST (QUOTE *1*SIMULATE-MONOTONE-INDUCTION) (QUOTE (MAIN-EVENT SIMULATE-MONOTONE-INDUCTION))) (PUT1-LST (QUOTE SIMULATE-MONOTONE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((SIMULATE-MONOTONE-INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((SIMULATE-MONOTONE-INDUCTION)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (FN INPUTS-1 STATE-1 NETLIST INPUTS-2 STATE-2) (IF (LISTP INPUTS-1) (SIMULATE-MONOTONE-INDUCTION FN (CDR INPUTS-1) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-1) STATE-1 NETLIST) NETLIST (CDR INPUTS-2) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-2) STATE-2 NETLIST)) (QUOTE *1*TRUE))) LISP-CODE *1*SIMULATE-MONOTONE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP INPUTS-1)) ((FN (CDR INPUTS-1) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-1) STATE-1 NETLIST) NETLIST (CDR INPUTS-2) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-2) STATE-2 NETLIST)))) (TESTS-AND-CASES ((NOT (LISTP INPUTS-1))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (INPUTS-1) (COUNT INPUTS-1) LESSP (ZERO CDR-LESSP))) IDATE 1000402194500 CONTROLLER-POCKETS (2) SATELLITES (*1*SIMULATE-MONOTONE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*SIMULATE-MONOTONE-INDUCTION-ON SIMULATE-MONOTONE-INDUCTION-ON G*1*SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE-INDUCTION-OFF SIMULATE-MONOTONE) EVENT (DEFN SIMULATE-MONOTONE-INDUCTION (FN INPUTS-1 STATE-1 NETLIST INPUTS-2 STATE-2) (IF (LISTP INPUTS-1) (SIMULATE-MONOTONE-INDUCTION FN (CDR INPUTS-1) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-1) STATE-1 NETLIST) NETLIST (CDR INPUTS-2) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS-2) STATE-2 NETLIST)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SIMULATE-MONOTONE-INDUCTION) (DCELL . *1*SIMULATE-MONOTONE-INDUCTION))))) (PUT1-LST (QUOTE S-APPROX-CADR-NTH) (QUOTE (IDATE 1000402194500 IMMEDIATE-DEPENDENTS0 (S-APPROX-CADR-NTH-ON S-APPROX-CADR-NTH-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA S-APPROX-CADR-NTH (REWRITE) (IMPLIES (AND (V-S-APPROX-LIST FINAL-1 FINAL-2) (LESSP N (LENGTH FINAL-1))) (S-APPROX (CAR (CDR (NTH N FINAL-1))) (CAR (CDR (NTH N FINAL-2))))) ((INDUCT (NAT-LST-LST-INDUCTION N FINAL-1 FINAL-2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 NTH . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . S-APPROX-CADR-NTH) (IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . S-APPROX-CADR-NTH) (LEMMAS S-APPROX . S-APPROX-CADR-NTH))))) (PUT1-LST (QUOTE V-APPROX-CAR-NTH) (QUOTE (IDATE 1000402194459 IMMEDIATE-DEPENDENTS0 (V-APPROX-CAR-NTH-ON V-APPROX-CAR-NTH-OFF XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE) EVENT (PROVE-LEMMA V-APPROX-CAR-NTH (REWRITE) (IMPLIES (AND (V-S-APPROX-LIST FINAL-1 FINAL-2) (LESSP N (LENGTH FINAL-1))) (V-APPROX (CAR (NTH N FINAL-1)) (CAR (NTH N FINAL-2)))) ((INDUCT (NAT-LST-LST-INDUCTION N FINAL-1 FINAL-2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 ROM . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 RAM . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 S-APPROX . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 NAT-LST-LST-INDUCTION . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 NTH . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . V-APPROX-CAR-NTH) (IMMEDIATE-DEPENDENTS0 V-S-APPROX-LIST . V-APPROX-CAR-NTH) (LEMMAS V-APPROX . V-APPROX-CAR-NTH))))) (PUT1-LST (QUOTE OPEN-NTH-ON) (QUOTE (IDATE 1000402194458 EVENT (TOGGLE OPEN-NTH-ON OPEN-NTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . OPEN-NTH-ON) (DISABLED-LEMMAS NIL OPEN-NTH OPEN-NTH-ON))))) (PUT1-LST (QUOTE *1*NAT-LST-LST-INDUCTION) (QUOTE (MAIN-EVENT NAT-LST-LST-INDUCTION))) (PUT1-LST (QUOTE NAT-LST-LST-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-LST-LST-INDUCTION 2 NIL NIL NIL)) TOTALP-LST ((NAT-LST-LST-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N X Y) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (LISTP X) (IF (LISTP Y) (NAT-LST-LST-INDUCTION (SUB1 N) (CDR X) (CDR Y)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))) LISP-CODE *1*NAT-LST-LST-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP N) (OR (NLISTP X) (NLISTP Y)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP N) (OR (NLISTP X) (NLISTP Y))))) (((SUB1 N) (CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP NLISTP OR COUNT-NUMBERP LESSP-SUB1-X-X)) (JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP ZEROP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP ZEROP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194458 CONTROLLER-POCKETS (1 2 4) SATELLITES (*1*NAT-LST-LST-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*NAT-LST-LST-INDUCTION-ON NAT-LST-LST-INDUCTION-ON G*1*NAT-LST-LST-INDUCTION-OFF NAT-LST-LST-INDUCTION-OFF S-APPROX-CADR-NTH V-APPROX-CAR-NTH) EVENT (DEFN NAT-LST-LST-INDUCTION (N X Y) (IF (OR (ZEROP N) (OR (NLISTP X) (NLISTP Y))) (QUOTE *1*TRUE) (NAT-LST-LST-INDUCTION (SUB1 N) (CDR X) (CDR Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . NAT-LST-LST-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NAT-LST-LST-INDUCTION) (DCELL . *1*NAT-LST-LST-INDUCTION))))) (PUT1-LST (QUOTE *1*V-S-APPROX-LIST) (QUOTE (MAIN-EVENT V-S-APPROX-LIST))) (PUT1-LST (QUOTE V-S-APPROX-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-S-APPROX-LIST 3 NIL NIL)) LEMMAS ((REWRITE-RULE SIMULATE-MONOTONE ((V-APPROX-LIST INPUTS-1 INPUTS-2) (S-APPROX STATE-1 STATE-2) (GOOD-S STATE-2) (OK-NETLISTP (QUOTE 0) FN NETLIST (QUOTE (MEM-32X32))) (OK-NETLISTP (QUOTE 2) FN NETLIST (QUOTE (MEM-32X32)))) (V-S-APPROX-LIST (SIMULATE FN INPUTS-1 STATE-1 NETLIST) (SIMULATE FN INPUTS-2 STATE-2 NETLIST)) NIL)) TOTALP-LST ((V-S-APPROX-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (V-APPROX (CAR (CAR X)) (CAR (CAR Y))) (IF (S-APPROX (CAR (CDR (CAR X))) (CAR (CDR (CAR Y)))) (IF (V-S-APPROX-LIST (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*V-S-APPROX-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194458 CONTROLLER-POCKETS (1) SATELLITES (*1*V-S-APPROX-LIST) IMMEDIATE-DEPENDENTS0 (G*1*V-S-APPROX-LIST-ON V-S-APPROX-LIST-ON G*1*V-S-APPROX-LIST-OFF V-S-APPROX-LIST-OFF SIMULATE-MONOTONE S-APPROX-CADR-NTH V-APPROX-CAR-NTH) EVENT (DEFN V-S-APPROX-LIST (X Y) (IF (LISTP X) (AND (LISTP Y) (AND (V-APPROX (CAR (CAR X)) (CAR (CAR Y))) (AND (S-APPROX (CAR (CDR (CAR X))) (CAR (CDR (CAR Y)))) (V-S-APPROX-LIST (CDR X) (CDR Y))))) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . V-S-APPROX-LIST) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-S-APPROX-LIST) (DCELL . *1*V-S-APPROX-LIST))))) (PUT1-LST (QUOTE *1*V-APPROX-LIST) (QUOTE (MAIN-EVENT V-APPROX-LIST))) (PUT1-LST (QUOTE V-APPROX-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-APPROX-LIST 3 NIL NIL)) LEMMAS ((REWRITE-RULE V-APPROX-LIST-X-X NIL (V-APPROX-LIST X X) NIL)) TOTALP-LST ((V-APPROX-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (V-APPROX (CAR X) (CAR Y)) (IF (V-APPROX-LIST (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*V-APPROX-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194458 CONTROLLER-POCKETS (1) SATELLITES (*1*V-APPROX-LIST) IMMEDIATE-DEPENDENTS0 (G*1*V-APPROX-LIST-ON V-APPROX-LIST-ON G*1*V-APPROX-LIST-OFF V-APPROX-LIST-OFF V-APPROX-LIST-X-X SIMULATE-MONOTONE) EVENT (DEFN V-APPROX-LIST (X Y) (IF (LISTP X) (AND (LISTP Y) (AND (V-APPROX (CAR X) (CAR Y)) (V-APPROX-LIST (CDR X) (CDR Y)))) (NLISTP Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-LIST) (DCELL . *1*V-APPROX-LIST))))) (PUT1-LST (QUOTE GOOD-S-PRESERVED) (QUOTE (IDATE 1000402194458 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED-ON GOOD-S-PRESERVED-OFF SIMULATE-MONOTONE) EVENT (PROVE-LEMMA GOOD-S-PRESERVED (REWRITE) (IMPLIES (OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32))) (AND (IMPLIES (AND (EQUAL FLAG (QUOTE 2)) (GOOD-S S)) (GOOD-S (DUAL-EVAL FLAG FN A S NETLIST))) (IMPLIES (AND (EQUAL FLAG (QUOTE 3)) (GOOD-S-ALIST S)) (GOOD-S-ALIST (DUAL-EVAL FLAG FN A S NETLIST))))) ((EXPAND (DUAL-EVAL (QUOTE 2) FN A S NETLIST) (DUAL-EVAL (QUOTE 3) FN A S NETLIST)) (INDUCT (DUAL-EVAL FLAG FN A S NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST-PAIRLIST . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 GOOD-S-VALUE . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 GOOD-S-COLLECT-VALUE . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 PRIMP-PRESERVES-GOOD-S . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OCC-NAME . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-PRESERVED) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . GOOD-S-PRESERVED) (LEMMAS GOOD-S-ALIST . GOOD-S-PRESERVED) (LEMMAS GOOD-S . GOOD-S-PRESERVED))))) (PUT1-LST (QUOTE PRIMP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194456 IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S-ON PRIMP-PRESERVES-GOOD-S-OFF GOOD-S-PRESERVED) EVENT (PROVE-LEMMA PRIMP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (AND (GOOD-S S) (AND (PRIMP FN) (NOT (EQUAL FN (QUOTE MEM-32X32))))) (GOOD-S (DUAL-APPLY-STATE FN ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO GOOD-S-PRIMITIVES-THEORY) (ENABLE PRIMP LOOKUP-MODULE *1*PRIMP-DATABASE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 VSS-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 AO4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 AO7-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-AND3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-EQUV-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-IF-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND5-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND8-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR6-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-OR3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-XOR-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DEL2-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DEL10-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 FD1S-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 FD1SLP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 T-WIRE-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 VDD-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PULLUP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 T-BUF-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 ID-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 FD1SP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 FD1-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PROCMON-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DEL4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-XOR3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-OR4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-OR-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR8-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR5-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NOR3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NBUF-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND6-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-NAND-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-EQUV3-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-AND4-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 B-AND-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 AO6-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 AO2-PRESERVES-GOOD-S . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-PRIMITIVES-THEORY . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PRIMP . PRIMP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . PRIMP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . PRIMP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE GOOD-S-PRIMITIVES-THEORY) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S) EVENT (DEFTHEORY GOOD-S-PRIMITIVES-THEORY (AO2-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 AO4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 AO6-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 AO7-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-AND-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-AND3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-AND4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-EQUV-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-EQUV3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-IF-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND5-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND6-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NAND8-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NBUF-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR5-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR6-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOR8-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-OR-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-OR3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-OR4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-XOR-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 B-XOR3-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 DEL2-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 DEL4-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 DEL10-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 PROCMON-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 FD1-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 FD1S-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 FD1SP-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 FD1SLP-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 ID-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 T-BUF-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 T-WIRE-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 PULLUP-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 VDD-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 VSS-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-PRESERVES-GOOD-S . GOOD-S-PRIMITIVES-THEORY))))) (PUT1-LST (QUOTE DP-RAM-16X32-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S-ON DP-RAM-16X32-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA DP-RAM-16X32-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX GOOD-S-CONSTANT-RAM GOOD-S-WRITE-MEM LENGTH-SUBRANGE PROPERP-SUBRANGE PROPERP-MAKE-LIST LENGTH-MAKE-LIST DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-PORT-RAM-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-CONSTANT-RAM . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32 . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DP-RAM-16X32-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . DP-RAM-16X32-PRESERVES-GOOD-S) (LEMMAS GOOD-S . DP-RAM-16X32-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (GOOD-S-WRITE-MEM-ON GOOD-S-WRITE-MEM-OFF DP-RAM-16X32-PRESERVES-GOOD-S) EVENT (PROVE-LEMMA GOOD-S-WRITE-MEM (REWRITE) (IMPLIES (AND (GOOD-S S) (AND (PROPERP VALUE) (EQUAL (LENGTH VALUE) (QUOTE 32)))) (GOOD-S (WRITE-MEM V-ADDR S VALUE))) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-WRITE-MEM-1 . GOOD-S-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . GOOD-S-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . GOOD-S-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PROPERP . GOOD-S-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-WRITE-MEM) (LEMMAS GOOD-S . GOOD-S-WRITE-MEM))))) (PUT1-LST (QUOTE GOOD-S-WRITE-MEM-1) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (GOOD-S-WRITE-MEM-1-ON GOOD-S-WRITE-MEM-1-OFF GOOD-S-WRITE-MEM) EVENT (PROVE-LEMMA GOOD-S-WRITE-MEM-1 (REWRITE) (IMPLIES (AND (GOOD-S S) (AND (PROPERP VALUE) (EQUAL (LENGTH VALUE) (QUOTE 32)))) (GOOD-S (WRITE-MEM1 V-ADDR S VALUE))) ((ENABLE WRITE-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . GOOD-S-WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S-WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . GOOD-S-WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 LENGTH . GOOD-S-WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 PROPERP . GOOD-S-WRITE-MEM-1) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-WRITE-MEM-1) (LEMMAS GOOD-S . GOOD-S-WRITE-MEM-1))))) (PUT1-LST (QUOTE GOOD-S-CONSTANT-RAM) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (GOOD-S-CONSTANT-RAM-ON GOOD-S-CONSTANT-RAM-OFF DP-RAM-16X32-PRESERVES-GOOD-S) EVENT (PROVE-LEMMA GOOD-S-CONSTANT-RAM (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (CONSTANT-RAM S (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) ((ENABLE CONSTANT-RAM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 RAM . GOOD-S-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 X . GOOD-S-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . GOOD-S-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . GOOD-S-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-CONSTANT-RAM) (LEMMAS GOOD-S . GOOD-S-CONSTANT-RAM))))) (PUT1-LST (QUOTE VSS-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (VSS-PRESERVES-GOOD-S-ON VSS-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA VSS-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE VSS) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . VSS-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . VSS-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . VSS-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . VSS-PRESERVES-GOOD-S) (LEMMAS GOOD-S . VSS-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (VDD-PARAMETRIC-PRESERVES-GOOD-S-ON VDD-PARAMETRIC-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA VDD-PARAMETRIC-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE VDD-PARAMETRIC) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . VDD-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . VDD-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . VDD-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . VDD-PARAMETRIC-PRESERVES-GOOD-S) (LEMMAS GOOD-S . VDD-PARAMETRIC-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE VDD-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (VDD-PRESERVES-GOOD-S-ON VDD-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA VDD-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE VDD) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . VDD-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . VDD-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . VDD-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . VDD-PRESERVES-GOOD-S) (LEMMAS GOOD-S . VDD-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-TRI-OUTPUT-FAST) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PRESERVES-GOOD-S-ON TTL-TRI-OUTPUT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-TRI-OUTPUT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-TRI-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-TRI-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-TRI-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-TRI-OUTPUT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-TRI-OUTPUT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-FAST-PRESERVES-GOOD-S-ON TTL-OUTPUT-FAST-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-OUTPUT-FAST-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT-FAST) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-OUTPUT-FAST-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-OUTPUT-FAST-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-OUTPUT-FAST-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-ON TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-OUTPUT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PRESERVES-GOOD-S-ON TTL-OUTPUT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-OUTPUT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-OUTPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-OUTPUT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-OUTPUT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-INPUT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PRESERVES-GOOD-S-ON TTL-INPUT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-INPUT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-INPUT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-INPUT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-INPUT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-CLK-INPUT-PRESERVES-GOOD-S-ON TTL-CLK-INPUT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-CLK-INPUT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-CLK-INPUT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-CLK-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-CLK-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-CLK-INPUT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-CLK-INPUT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-CLK-INPUT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PRESERVES-GOOD-S-ON TTL-BIDIRECT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA TTL-BIDIRECT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-BIDIRECT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-BIDIRECT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . TTL-BIDIRECT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . TTL-BIDIRECT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . TTL-BIDIRECT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . TTL-BIDIRECT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE PULLUP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (PULLUP-PRESERVES-GOOD-S-ON PULLUP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA PULLUP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE PULLUP) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . PULLUP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . PULLUP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . PULLUP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . PULLUP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . PULLUP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE T-WIRE-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (T-WIRE-PRESERVES-GOOD-S-ON T-WIRE-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA T-WIRE-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE T-WIRE) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . T-WIRE-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . T-WIRE-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . T-WIRE-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . T-WIRE-PRESERVES-GOOD-S) (LEMMAS GOOD-S . T-WIRE-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE T-BUF-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194455 IMMEDIATE-DEPENDENTS0 (T-BUF-PRESERVES-GOOD-S-ON T-BUF-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA T-BUF-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE T-BUF) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . T-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . T-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . T-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . T-BUF-PRESERVES-GOOD-S) (LEMMAS GOOD-S . T-BUF-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-ON RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE RAM-ENABLE-CIRCUIT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE ID-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (ID-PRESERVES-GOOD-S-ON ID-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA ID-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE ID) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . ID-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . ID-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . ID-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . ID-PRESERVES-GOOD-S) (LEMMAS GOOD-S . ID-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE FD1SLP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (FD1SLP-PRESERVES-GOOD-S-ON FD1SLP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA FD1SLP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1SLP) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SLP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-IF-PRESERVES-GOOD-S . FD1SLP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1SLP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . FD1SLP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . FD1SLP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE FD1SP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (FD1SP-PRESERVES-GOOD-S-ON FD1SP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA FD1SP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1SP) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-IF-PRESERVES-GOOD-S . FD1SP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1SP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . FD1SP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . FD1SP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE FD1S-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (FD1S-PRESERVES-GOOD-S-ON FD1S-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA FD1S-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1S) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1S-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-IF-PRESERVES-GOOD-S . FD1S-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1S-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . FD1S-PRESERVES-GOOD-S) (LEMMAS GOOD-S . FD1S-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE FD1-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (FD1-PRESERVES-GOOD-S-ON FD1-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA FD1-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-BUF-PRESERVES-GOOD-S . FD1-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . FD1-PRESERVES-GOOD-S) (LEMMAS GOOD-S . FD1-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE PROCMON-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (PROCMON-PRESERVES-GOOD-S-ON PROCMON-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA PROCMON-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE PROCMON) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . PROCMON-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . PROCMON-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . PROCMON-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . PROCMON-PRESERVES-GOOD-S) (LEMMAS GOOD-S . PROCMON-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE DEL10-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (DEL10-PRESERVES-GOOD-S-ON DEL10-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA DEL10-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL10) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL10-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . DEL10-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DEL10-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . DEL10-PRESERVES-GOOD-S) (LEMMAS GOOD-S . DEL10-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE DEL4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (DEL4-PRESERVES-GOOD-S-ON DEL4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA DEL4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . DEL4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DEL4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . DEL4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . DEL4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE DEL2-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (DEL2-PRESERVES-GOOD-S-ON DEL2-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA DEL2-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL2) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . DEL2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DEL2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . DEL2-PRESERVES-GOOD-S) (LEMMAS GOOD-S . DEL2-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-XOR3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-XOR3-PRESERVES-GOOD-S-ON B-XOR3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-XOR3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-XOR3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-XOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-XOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-XOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-XOR3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-XOR3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-XOR-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-XOR-PRESERVES-GOOD-S-ON B-XOR-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-XOR-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-XOR) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-XOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-XOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-XOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-XOR-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-XOR-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-OR4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-OR4-PRESERVES-GOOD-S-ON B-OR4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-OR4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-OR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-OR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-OR4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-OR4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-OR3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-OR3-PRESERVES-GOOD-S-ON B-OR3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-OR3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-OR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-OR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-OR3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-OR3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-OR-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-OR-PRESERVES-GOOD-S-ON B-OR-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-OR-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-OR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-OR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-OR-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-OR-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOT-IVAP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOT-IVAP-PRESERVES-GOOD-S-ON B-NOT-IVAP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOT-IVAP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT-IVAP) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT-IVAP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOT-IVAP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOT-IVAP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOT-IVAP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOT-IVAP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOT-B4IP-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOT-B4IP-PRESERVES-GOOD-S-ON B-NOT-B4IP-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOT-B4IP-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT-B4IP) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT-B4IP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOT-B4IP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOT-B4IP-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOT-B4IP-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOT-B4IP-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOT-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOT-PRESERVES-GOOD-S-ON B-NOT-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOT-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOT-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOT-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOT-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR8-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR8-PRESERVES-GOOD-S-ON B-NOR8-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR8-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR8) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR8-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR8-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR6-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR6-PRESERVES-GOOD-S-ON B-NOR6-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR6-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR6) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR6-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR6-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR5-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR5-PRESERVES-GOOD-S-ON B-NOR5-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR5-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR5) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR5-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR5-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR4-PRESERVES-GOOD-S-ON B-NOR4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR3-PRESERVES-GOOD-S-ON B-NOR3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NOR-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NOR-PRESERVES-GOOD-S-ON B-NOR-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NOR-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NOR-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NOR-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NOR-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NBUF-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NBUF-PRESERVES-GOOD-S-ON B-NBUF-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NBUF-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NBUF) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NBUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NBUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NBUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NBUF-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NBUF-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND8-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND8-PRESERVES-GOOD-S-ON B-NAND8-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND8-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND8) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND8-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND8-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND8-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND6-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND6-PRESERVES-GOOD-S-ON B-NAND6-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND6-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND6) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND6-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND6-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND5-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND5-PRESERVES-GOOD-S-ON B-NAND5-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND5-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND5) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND5-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND5-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND5-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND4-PRESERVES-GOOD-S-ON B-NAND4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND3-PRESERVES-GOOD-S-ON B-NAND3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-NAND-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-NAND-PRESERVES-GOOD-S-ON B-NAND-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-NAND-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-NAND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-NAND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-NAND-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-NAND-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-IF-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-IF-PRESERVES-GOOD-S-ON B-IF-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-IF-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-IF) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-IF-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-IF-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-EQUV3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-EQUV3-PRESERVES-GOOD-S-ON B-EQUV3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-EQUV3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-EQUV3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-EQUV3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-EQUV3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-EQUV3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-EQUV3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-EQUV3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-EQUV-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-EQUV-PRESERVES-GOOD-S-ON B-EQUV-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-EQUV-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-EQUV) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-EQUV-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-EQUV-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-EQUV-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-EQUV-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-EQUV-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-AND4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-AND4-PRESERVES-GOOD-S-ON B-AND4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-AND4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-AND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-AND4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-AND4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-AND4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-AND3-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-AND3-PRESERVES-GOOD-S-ON B-AND3-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-AND3-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND3) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-AND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-AND3-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-AND3-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-AND3-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE B-AND-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (B-AND-PRESERVES-GOOD-S-ON B-AND-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA B-AND-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . B-AND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . B-AND-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . B-AND-PRESERVES-GOOD-S) (LEMMAS GOOD-S . B-AND-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE AO7-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (AO7-PRESERVES-GOOD-S-ON AO7-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA AO7-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO7) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . AO7-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . AO7-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . AO7-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . AO7-PRESERVES-GOOD-S) (LEMMAS GOOD-S . AO7-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE AO6-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (AO6-PRESERVES-GOOD-S-ON AO6-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA AO6-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO6) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . AO6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . AO6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . AO6-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . AO6-PRESERVES-GOOD-S) (LEMMAS GOOD-S . AO6-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE AO4-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (AO4-PRESERVES-GOOD-S-ON AO4-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA AO4-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO4) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . AO4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . AO4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . AO4-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . AO4-PRESERVES-GOOD-S) (LEMMAS GOOD-S . AO4-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE AO2-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (AO2-PRESERVES-GOOD-S-ON AO2-PRESERVES-GOOD-S-OFF PRIMP-PRESERVES-GOOD-S GOOD-S-PRIMITIVES-THEORY) EVENT (PROVE-LEMMA AO2-PRESERVES-GOOD-S (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO2) ARGS S))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX DUAL-APPLY-STATE *1*PRIMP2 F-BUF-PRESERVES-GOOD-S F-IF-PRESERVES-GOOD-S GOOD-S-0 DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . AO2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S-0 . AO2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . AO2-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . AO2-PRESERVES-GOOD-S) (LEMMAS GOOD-S . AO2-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE GOOD-S-0) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (GOOD-S-0-ON GOOD-S-0-OFF VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S) EVENT (PROVE-LEMMA GOOD-S-0 (REWRITE) (GOOD-S (QUOTE 0)) ((ENABLE *1*GOOD-S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-0) (LEMMAS GOOD-S . GOOD-S-0))))) (PUT1-LST (QUOTE F-IF-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (F-IF-PRESERVES-GOOD-S-ON F-IF-PRESERVES-GOOD-S-OFF FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S) EVENT (PROVE-LEMMA F-IF-PRESERVES-GOOD-S (REWRITE) (GOOD-S (F-IF X Y Z)) ((ENABLE F-IF BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 BOOLP . F-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-IF . F-IF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . F-IF-PRESERVES-GOOD-S) (LEMMAS GOOD-S . F-IF-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE F-BUF-PRESERVES-GOOD-S) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (F-BUF-PRESERVES-GOOD-S-ON F-BUF-PRESERVES-GOOD-S-OFF FD1-PRESERVES-GOOD-S) EVENT (PROVE-LEMMA F-BUF-PRESERVES-GOOD-S (REWRITE) (GOOD-S (F-BUF X)) ((ENABLE F-BUF BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . F-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-PRESERVES-GOOD-S) (IMMEDIATE-DEPENDENTS0 GOOD-S . F-BUF-PRESERVES-GOOD-S) (LEMMAS GOOD-S . F-BUF-PRESERVES-GOOD-S))))) (PUT1-LST (QUOTE GOOD-S-COLLECT-VALUE) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (GOOD-S-COLLECT-VALUE-ON GOOD-S-COLLECT-VALUE-OFF GOOD-S-PRESERVED) EVENT (PROVE-LEMMA GOOD-S-COLLECT-VALUE (REWRITE) (IMPLIES (GOOD-S-ALIST S) (GOOD-S (COLLECT-VALUE KEYS S))) ((ENABLE COLLECT-VALUE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S-VALUE . GOOD-S-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . GOOD-S-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . GOOD-S-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . GOOD-S-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-COLLECT-VALUE) (LEMMAS GOOD-S . GOOD-S-COLLECT-VALUE))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE) (QUOTE (IDATE 1000402194454 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-MONOTONE-ON DUAL-EVAL-MONOTONE-OFF SIMULATE-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-MONOTONE (REWRITE) (IMPLIES (OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32))) (IMPLIES (IF (OR (EQUAL FLAG (QUOTE 0)) (EQUAL FLAG (QUOTE 2))) (GOOD-S S2) (GOOD-S-ALIST S2)) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2))) ((INDUCT (DUAL-EVAL-MONOTONE-INDUCTION FLAG FN NETLIST A1 A2 S1 S2)) (ENABLE MONOTONICITY-PROPERTY) (DISABLE MEMBER-NON-LIST DUAL-EVAL-0-PRIMP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-3 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-NO-RAM . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-APPEND . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S-VALUE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP-APPEND . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST-PAIRLIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP-PAIRLIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-1 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-V-APPROX-ALIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-1 . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 ALISTP-OPENER . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-S-APPROX-ALIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 PRIMP-MONOTONE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S . DUAL-EVAL-MONOTONE) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . DUAL-EVAL-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DUAL-EVAL-MONOTONE))))) (PUT1-LST (QUOTE GOOD-S-VALUE) (QUOTE (IDATE 1000402194443 IMMEDIATE-DEPENDENTS0 (GOOD-S-VALUE-ON GOOD-S-VALUE-OFF GOOD-S-PRESERVED GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE) EVENT (PROVE-LEMMA GOOD-S-VALUE (REWRITE) (IMPLIES (GOOD-S-ALIST X) (GOOD-S (VALUE W X))) ((ENABLE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . GOOD-S-VALUE) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-VALUE) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-VALUE) (LEMMAS GOOD-S . GOOD-S-VALUE))))) (PUT1-LST (QUOTE GOOD-S-ALIST-PAIRLIST) (QUOTE (IDATE 1000402194443 IMMEDIATE-DEPENDENTS0 (GOOD-S-ALIST-PAIRLIST-ON GOOD-S-ALIST-PAIRLIST-OFF GOOD-S-PRESERVED DUAL-EVAL-MONOTONE) EVENT (PROVE-LEMMA GOOD-S-ALIST-PAIRLIST (REWRITE) (IMPLIES (GOOD-S S) (GOOD-S-ALIST (PAIRLIST X S))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 STUB . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 ROM . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 RAM . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 GOOD-S-ALIST . GOOD-S-ALIST-PAIRLIST) (IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-ALIST-PAIRLIST) (LEMMAS GOOD-S-ALIST . GOOD-S-ALIST-PAIRLIST))))) (PUT1-LST (QUOTE *1*GOOD-S-ALIST) (QUOTE (MAIN-EVENT GOOD-S-ALIST))) (PUT1-LST (QUOTE GOOD-S-ALIST) (QUOTE (TYPE-PRESCRIPTION-LST ((GOOD-S-ALIST 3 NIL)) LEMMAS ((REWRITE-RULE GOOD-S-PRESERVED ((OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32))) (EQUAL FLAG (QUOTE 3)) (GOOD-S-ALIST S)) (GOOD-S-ALIST (DUAL-EVAL FLAG FN A S NETLIST)) NIL) (REWRITE-RULE GOOD-S-ALIST-PAIRLIST ((GOOD-S S)) (GOOD-S-ALIST (PAIRLIST X S)) NIL)) TOTALP-LST ((GOOD-S-ALIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CAR X)) (IF (GOOD-S (CDR (CAR X))) (IF (GOOD-S-ALIST (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL X (QUOTE NIL)))) LISP-CODE *1*GOOD-S-ALIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194442 CONTROLLER-POCKETS (1) SATELLITES (*1*GOOD-S-ALIST) IMMEDIATE-DEPENDENTS0 (G*1*GOOD-S-ALIST-ON GOOD-S-ALIST-ON G*1*GOOD-S-ALIST-OFF GOOD-S-ALIST-OFF GOOD-S-PRESERVED GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE GOOD-S-VALUE GOOD-S-ALIST-PAIRLIST) EVENT (DEFN GOOD-S-ALIST (X) (IF (LISTP X) (AND (LISTP (CAR X)) (AND (GOOD-S (CDR (CAR X))) (GOOD-S-ALIST (CDR X)))) (EQUAL X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GOOD-S . GOOD-S-ALIST) (DCELL . *1*GOOD-S-ALIST))))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-NO-RAM) (QUOTE (IDATE 1000402194442 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-MONOTONE-NO-RAM-ON DUAL-EVAL-MONOTONE-NO-RAM-OFF DUAL-EVAL-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-MONOTONE-NO-RAM (REWRITE) (IMPLIES (OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32 DP-RAM-16X32))) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2)) ((INDUCT (DUAL-EVAL-MONOTONE-INDUCTION FLAG FN NETLIST A1 A2 S1 S2)) (ENABLE MONOTONICITY-PROPERTY) (DISABLE MEMBER-NON-LIST DUAL-EVAL-0-PRIMP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 S-APPROX . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-3 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-APPEND . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP-APPEND . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP-PAIRLIST . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP-DUAL-EVAL-1 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-V-APPROX-ALIST . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-CONSEQUENCE-1 . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 ALISTP-OPENER . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-S-APPROX-ALIST . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 PRIMP-MONOTONE . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION-REWRITE . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-MONOTONE-INDUCTION . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DUAL-EVAL-MONOTONE-NO-RAM) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . DUAL-EVAL-MONOTONE-NO-RAM) (LEMMAS MONOTONICITY-PROPERTY . DUAL-EVAL-MONOTONE-NO-RAM))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION-REWRITE) (QUOTE (IDATE 1000402194436 IMMEDIATE-DEPENDENTS0 (OK-NETLISTP-REDUCTION-REWRITE-ON OK-NETLISTP-REDUCTION-REWRITE-OFF XS-SUFFICE-FOR-RESET-LEMMA GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA OK-NETLISTP-REDUCTION-REWRITE (REWRITE) (AND (EQUAL (OK-NETLISTP (QUOTE 2) FN NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 0) FN NETLIST EXCEPTIONS)) (EQUAL (OK-NETLISTP (QUOTE 3) FN NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 1) FN NETLIST EXCEPTIONS))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (USE (OK-NETLISTP-REDUCTION (FLAG (QUOTE 2))) (OK-NETLISTP-REDUCTION (FLAG (QUOTE 3)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NETLISTP-REDUCTION . OK-NETLISTP-REDUCTION-REWRITE) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . OK-NETLISTP-REDUCTION-REWRITE) (LEMMAS OK-NETLISTP . OK-NETLISTP-REDUCTION-REWRITE) (LEMMAS OK-NETLISTP . OK-NETLISTP-REDUCTION-REWRITE))))) (PUT1-LST (QUOTE OK-NETLISTP-REDUCTION) (QUOTE (IDATE 1000402194436 IMMEDIATE-DEPENDENTS0 (OK-NETLISTP-REDUCTION-ON OK-NETLISTP-REDUCTION-OFF OK-NETLISTP-REDUCTION-REWRITE) EVENT (PROVE-LEMMA OK-NETLISTP-REDUCTION NIL (IMPLIES (OR (EQUAL FLAG (QUOTE 2)) (EQUAL FLAG (QUOTE 3))) (EQUAL (OK-NETLISTP FLAG FN NETLIST EXCEPTIONS) (IF (EQUAL FLAG (QUOTE 2)) (OK-NETLISTP (QUOTE 0) FN NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 1) FN NETLIST EXCEPTIONS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OK-NETLISTP-REDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OK-NETLISTP-REDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . OK-NETLISTP-REDUCTION) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . OK-NETLISTP-REDUCTION) (IMMEDIATE-DEPENDENTS0 OK-NETLISTP . OK-NETLISTP-REDUCTION))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (QUOTE (IDATE 1000402194436 IMMEDIATE-DEPENDENTS0 (S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE (REWRITE) (IMPLIES (AND (S-APPROX-ALIST X Y) (AND (ALISTP X) (ALISTP Y))) (S-APPROX (COLLECT-VALUE A X) (COLLECT-VALUE A Y))) ((ENABLE COLLECT-VALUE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 ALISTP . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE) (LEMMAS S-APPROX . S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-S-APPROX-ALIST) (QUOTE (IDATE 1000402194436 IMMEDIATE-DEPENDENTS0 (S-APPROX-IMPLIES-S-APPROX-ALIST-ON S-APPROX-IMPLIES-S-APPROX-ALIST-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA S-APPROX-IMPLIES-S-APPROX-ALIST (REWRITE) (IMPLIES (S-APPROX S1 S2) (S-APPROX-ALIST (PAIRLIST X S1) (PAIRLIST X S2))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . S-APPROX-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX-LIST-IMPLIES-S-APPROX-ALIST . S-APPROX-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-IMPLIES-S-APPROX-ALIST) (LEMMAS S-APPROX-ALIST . S-APPROX-IMPLIES-S-APPROX-ALIST))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-3) (QUOTE (IDATE 1000402194434 IMMEDIATE-DEPENDENTS0 (ALISTP-DUAL-EVAL-3-ON ALISTP-DUAL-EVAL-3-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA ALISTP-DUAL-EVAL-3 (REWRITE) (IMPLIES (AND (ALISTP STATE-BINDINGS) (EQUAL FLAG (QUOTE 3))) (ALISTP (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINGS NETLIST))) ((INDUCT (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 ALISTP-OPENER . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ALISTP-DUAL-EVAL-3) (IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-DUAL-EVAL-3) (LEMMAS ALISTP . ALISTP-DUAL-EVAL-3))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (QUOTE (IDATE 1000402194434 IMMEDIATE-DEPENDENTS0 (S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE-OFF) EVENT (PROVE-LEMMA S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE (REWRITE) (IMPLIES (AND (S-APPROX-ALIST X Y) (AND (ALISTP X) (ALISTP Y))) (S-APPROX-LIST (COLLECT-VALUE A X) (COLLECT-VALUE A Y))) ((ENABLE COLLECT-VALUE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 ALISTP . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) (LEMMAS S-APPROX-LIST . S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE))))) (PUT1-LST (QUOTE *1*DOUBLE-CDR-INDUCTION) (QUOTE (MAIN-EVENT DOUBLE-CDR-INDUCTION))) (PUT1-LST (QUOTE DOUBLE-CDR-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLE-CDR-INDUCTION 2 NIL NIL)) TOTALP-LST ((DOUBLE-CDR-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (DOUBLE-CDR-INDUCTION (CDR X) (CDR Y)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*DOUBLE-CDR-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (LISTP Y))) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (LISTP Y)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194434 CONTROLLER-POCKETS (1 2) SATELLITES (*1*DOUBLE-CDR-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DOUBLE-CDR-INDUCTION-ON DOUBLE-CDR-INDUCTION-ON G*1*DOUBLE-CDR-INDUCTION-OFF DOUBLE-CDR-INDUCTION-OFF) EVENT (DEFN DOUBLE-CDR-INDUCTION (X Y) (IF (AND (LISTP X) (LISTP Y)) (DOUBLE-CDR-INDUCTION (CDR X) (CDR Y)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DOUBLE-CDR-INDUCTION) (DCELL . *1*DOUBLE-CDR-INDUCTION))))) (PUT1-LST (QUOTE V-APPROX-ALIST-APPEND) (QUOTE (IDATE 1000402194434 IMMEDIATE-DEPENDENTS0 (V-APPROX-ALIST-APPEND-ON V-APPROX-ALIST-APPEND-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA V-APPROX-ALIST-APPEND (REWRITE) (IMPLIES (AND (V-APPROX-ALIST A C) (V-APPROX-ALIST B D)) (V-APPROX-ALIST (APPEND A B) (APPEND C D)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-APPROX-ALIST-APPEND) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-ALIST-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-APPROX-ALIST-APPEND) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-ALIST-APPEND) (LEMMAS V-APPROX-ALIST . V-APPROX-ALIST-APPEND))))) (PUT1-LST (QUOTE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-ON S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE) EVENT (PROVE-LEMMA S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE (REWRITE) (IMPLIES (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2))) (S-APPROX (VALUE W S1) (VALUE W S2))) ((ENABLE VALUE ALISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 ALISTP . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE) (LEMMAS S-APPROX . S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE))))) (PUT1-LST (QUOTE ALISTP-OPENER) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (ALISTP-OPENER-ON ALISTP-OPENER-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3) EVENT (PROVE-LEMMA ALISTP-OPENER (REWRITE) (EQUAL (ALISTP (CONS A Z)) (AND (LISTP A) (ALISTP Z))) ((ENABLE ALISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-OPENER) (LEMMAS ALISTP . ALISTP-OPENER))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-V-APPROX-ALIST) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (V-APPROX-IMPLIES-V-APPROX-ALIST-ON V-APPROX-IMPLIES-V-APPROX-ALIST-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA V-APPROX-IMPLIES-V-APPROX-ALIST (REWRITE) (IMPLIES (V-APPROX V1 V2) (V-APPROX-ALIST (PAIRLIST X V1) (PAIRLIST X V2))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-APPROX-IMPLIES-V-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-IMPLIES-V-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-IMPLIES-V-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-IMPLIES-V-APPROX-ALIST) (LEMMAS V-APPROX-ALIST . V-APPROX-IMPLIES-V-APPROX-ALIST))))) (PUT1-LST (QUOTE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-ON S-APPROX-LIST-IMPLIES-S-APPROX-ALIST-OFF S-APPROX-IMPLIES-S-APPROX-ALIST) EVENT (PROVE-LEMMA S-APPROX-LIST-IMPLIES-S-APPROX-ALIST (REWRITE) (IMPLIES (S-APPROX-LIST S1 S2) (S-APPROX-ALIST (PAIRLIST X S1) (PAIRLIST X S2))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) (IMMEDIATE-DEPENDENTS0 S-APPROX-LIST . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) (LEMMAS S-APPROX-ALIST . S-APPROX-LIST-IMPLIES-S-APPROX-ALIST))))) (PUT1-LST (QUOTE *1*S-APPROX-LIST) (QUOTE (MAIN-EVENT S-APPROX-LIST))) (PUT1-LST (QUOTE S-APPROX-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((S-APPROX-LIST 3 NIL NIL)) LEMMAS ((REWRITE-RULE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE ((S-APPROX-ALIST X Y) (ALISTP X) (ALISTP Y)) (S-APPROX-LIST (COLLECT-VALUE A X) (COLLECT-VALUE A Y)) NIL)) TOTALP-LST ((S-APPROX-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (S-APPROX (CAR X) (CAR Y)) (IF (S-APPROX-LIST (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*S-APPROX-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194432 CONTROLLER-POCKETS (1) SATELLITES (*1*S-APPROX-LIST) IMMEDIATE-DEPENDENTS0 (G*1*S-APPROX-LIST-ON S-APPROX-LIST-ON G*1*S-APPROX-LIST-OFF S-APPROX-LIST-OFF S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST) EVENT (DEFN S-APPROX-LIST (X Y) (IF (LISTP X) (AND (LISTP Y) (AND (S-APPROX (CAR X) (CAR Y)) (S-APPROX-LIST (CDR X) (CDR Y)))) (NLISTP Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-LIST) (DCELL . *1*S-APPROX-LIST))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-ON V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE (REWRITE) (IMPLIES (AND (ALISTP ALIST1) (AND (ALISTP ALIST2) (V-APPROX-ALIST ALIST1 ALIST2))) (V-APPROX (COLLECT-VALUE X ALIST1) (COLLECT-VALUE X ALIST2))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 ALISTP . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) (LEMMAS V-APPROX . V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE))))) (PUT1-LST (QUOTE ALISTP-DUAL-EVAL-1) (QUOTE (IDATE 1000402194432 IMMEDIATE-DEPENDENTS0 (ALISTP-DUAL-EVAL-1-ON ALISTP-DUAL-EVAL-1-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA ALISTP-DUAL-EVAL-1 (REWRITE) (IMPLIES (AND (ALISTP BINDINGS) (EQUAL FLAG (QUOTE 1))) (ALISTP (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINTS NETLIST))) ((INDUCT (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINTS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP-PAIRLIST . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 ALISTP-APPEND . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ALISTP-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-DUAL-EVAL-1) (LEMMAS ALISTP . ALISTP-DUAL-EVAL-1))))) (PUT1-LST (QUOTE ALISTP-APPEND) (QUOTE (IDATE 1000402194431 IMMEDIATE-DEPENDENTS0 (ALISTP-APPEND-ON ALISTP-APPEND-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-1) EVENT (PROVE-LEMMA ALISTP-APPEND (REWRITE) (IMPLIES (ALISTP X) (EQUAL (ALISTP (APPEND X Y)) (ALISTP Y))) ((ENABLE ALISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ALISTP-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ALISTP-APPEND) (IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-APPEND) (LEMMAS ALISTP . ALISTP-APPEND))))) (PUT1-LST (QUOTE ALISTP-PAIRLIST) (QUOTE (IDATE 1000402194431 IMMEDIATE-DEPENDENTS0 (ALISTP-PAIRLIST-ON ALISTP-PAIRLIST-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-1) EVENT (PROVE-LEMMA ALISTP-PAIRLIST (REWRITE) (ALISTP (PAIRLIST X Y)) ((ENABLE ALISTP PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . ALISTP-PAIRLIST) (IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-PAIRLIST) (LEMMAS ALISTP . ALISTP-PAIRLIST))))) (PUT1-LST (QUOTE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE) (QUOTE (IDATE 1000402194431 IMMEDIATE-DEPENDENTS0 (V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-ON V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE-OFF V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE) EVENT (PROVE-LEMMA V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE (REWRITE) (IMPLIES (AND (ALISTP ALIST1) (AND (ALISTP ALIST2) (V-APPROX-ALIST ALIST1 ALIST2))) (B-APPROX (VALUE X ALIST1) (VALUE X ALIST2))) ((ENABLE VALUE ALISTP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE) (IMMEDIATE-DEPENDENTS0 ALISTP . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE) (LEMMAS B-APPROX . V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE))))) (PUT1-LST (QUOTE V-APPROX-X-X-ON) (QUOTE (IDATE 1000402194431 EVENT (TOGGLE V-APPROX-X-X-ON V-APPROX-X-X NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-X-X-ON) (DISABLED-LEMMAS NIL V-APPROX-X-X V-APPROX-X-X-ON))))) (PUT1-LST (QUOTE *1*DUAL-EVAL-MONOTONE-INDUCTION) (QUOTE (MAIN-EVENT DUAL-EVAL-MONOTONE-INDUCTION))) (PUT1-LST (QUOTE DUAL-EVAL-MONOTONE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-EVAL-MONOTONE-INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((DUAL-EVAL-MONOTONE-INDUCTION)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (FLAG FN NETLIST A1 A2 S1 S2) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP FN) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) (QUOTE *1*TRUE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP FN) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (CDR FN) NETLIST (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (VALUE (OCC-NAME (CAR FN)) S1) NETLIST)) A1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S2) NETLIST)) A2) S1 S2) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP FN) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (DELETE-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2) (DELETE-MODULE FN NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP FN) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)) (IF (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) (CDR FN) NETLIST A1 A2 S1 S2) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))))) LISP-CODE *1*DUAL-EVAL-MONOTONE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (PRIMP FN)) NIL) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)))) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP FN)) (NOT (LISTP (LOOKUP-MODULE FN NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (LISTP FN)) (((QUOTE 1) (CDR FN) NETLIST (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (VALUE (OCC-NAME (CAR FN)) S1) NETLIST)) A1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S2) NETLIST)) A2) S1 S2) ((QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (NOT (LISTP FN))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (PRIMP FN)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (((QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (DELETE-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2) (DELETE-MODULE FN NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) ((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP FN)) (NOT (LISTP (LOOKUP-MODULE FN NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (LISTP FN)) (((QUOTE 3) (CDR FN) NETLIST A1 A2 S1 S2) ((QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (NOT (LISTP FN))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (NOT (EQUAL FLAG (QUOTE 3)))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (FN NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT FN)) ORD-LESSP (CAR-LESSP CDR-LESSEQP CAR-LESSEQP OCC-FUNCTION CDR-LESSP EQUAL LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194431 CONTROLLER-POCKETS (6) SATELLITES (*1*DUAL-EVAL-MONOTONE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DUAL-EVAL-MONOTONE-INDUCTION-ON DUAL-EVAL-MONOTONE-INDUCTION-ON G*1*DUAL-EVAL-MONOTONE-INDUCTION-OFF DUAL-EVAL-MONOTONE-INDUCTION-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (DEFN DUAL-EVAL-MONOTONE-INDUCTION (FLAG FN NETLIST A1 A2 S1 S2) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP FN) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) (QUOTE *1*TRUE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP FN) (AND (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)) (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (CDR FN) NETLIST (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (VALUE (OCC-NAME (CAR FN)) S1) NETLIST)) A1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR FN)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR FN)) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S2) NETLIST)) A2) S1 S2)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP FN) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (AND (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2)) (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (DELETE-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) A2) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2) (DELETE-MODULE FN NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) S2))) (QUOTE *1*TRUE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP FN) (AND (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A1) (COLLECT-VALUE (OCC-INPUTS (CAR FN)) A2) (VALUE (OCC-NAME (CAR FN)) S1) (VALUE (OCC-NAME (CAR FN)) S2)) (DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) (CDR FN) NETLIST A1 A2 S1 S2)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT FN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 VALUE . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . DUAL-EVAL-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DUAL-EVAL-MONOTONE-INDUCTION) (DCELL . *1*DUAL-EVAL-MONOTONE-INDUCTION))))) (PUT1-LST (QUOTE PRIMP-MONOTONE) (QUOTE (IDATE 1000402194431 IMMEDIATE-DEPENDENTS0 (PRIMP-MONOTONE-ON PRIMP-MONOTONE-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA PRIMP-MONOTONE (REWRITE) (IMPLIES (AND (PRIMP FN) (AND (OR (EQUAL FLAG (QUOTE 0)) (AND (EQUAL FLAG (QUOTE 2)) (IMPLIES (EQUAL FN (QUOTE DP-RAM-16X32)) (GOOD-S S2)))) (NOT (EQUAL FN (QUOTE MEM-32X32))))) (AND (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO PRIMITIVES-MONOTONE) (ENABLE PRIMP LOOKUP-MODULE *1*PRIMP-DATABASE DP-RAM-16X32-MONOTONE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 VSS-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO7-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-EQUV-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-IF-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND5-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND8-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR6-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-XOR-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL2-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL10-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1S-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1SLP-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 T-WIRE-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 VDD-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 PULLUP-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 T-BUF-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 ID-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1SP-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROCMON-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-XOR3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR8-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR5-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NBUF-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND6-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-EQUV3-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND4-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO6-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO2-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 PRIMITIVES-MONOTONE . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S . PRIMP-MONOTONE) (IMMEDIATE-DEPENDENTS0 PRIMP . PRIMP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PRIMP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PRIMP-MONOTONE))))) (PUT1-LST (QUOTE *1*OK-NETLISTP) (QUOTE (MAIN-EVENT OK-NETLISTP))) (PUT1-LST (QUOTE OK-NETLISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-NETLISTP 3 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP NIL (OK-NETLISTP (QUOTE 0) (QUOTE CHIP) (CHIP$NETLIST) (QUOTE (MEM-32X32))) NIL) (REWRITE-RULE OK-NETLISTP-REDUCTION-REWRITE NIL (EQUAL (OK-NETLISTP (QUOTE 3) FN NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 1) FN NETLIST EXCEPTIONS)) NIL) (REWRITE-RULE OK-NETLISTP-REDUCTION-REWRITE NIL (EQUAL (OK-NETLISTP (QUOTE 2) FN NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 0) FN NETLIST EXCEPTIONS)) NIL)) TOTALP-LST ((OK-NETLISTP . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (FLAG FN NETLIST EXCEPTIONS) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP FN) (IF (MEMBER FN EXCEPTIONS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (OK-NETLISTP (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP FN) (IF (OK-NETLISTP (QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS) (IF (OK-NETLISTP (QUOTE 1) (CDR FN) NETLIST EXCEPTIONS) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP FN) (IF (MEMBER FN EXCEPTIONS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (OK-NETLISTP (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP FN) (IF (OK-NETLISTP (QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS) (IF (OK-NETLISTP (QUOTE 3) (CDR FN) NETLIST EXCEPTIONS) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))))) LISP-CODE *1*OK-NETLISTP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (PRIMP FN)) NIL) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS))) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP FN)) (NOT (LISTP (LOOKUP-MODULE FN NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (LISTP FN)) (((QUOTE 1) (CDR FN) NETLIST EXCEPTIONS) ((QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (NOT (LISTP FN))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (PRIMP FN)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (((QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP FN)) (NOT (LISTP (LOOKUP-MODULE FN NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (LISTP FN)) (((QUOTE 3) (CDR FN) NETLIST EXCEPTIONS) ((QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (NOT (LISTP FN))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (NOT (EQUAL FLAG (QUOTE 3)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (FN NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT FN)) ORD-LESSP (CAR-LESSP CDR-LESSEQP CAR-LESSEQP OCC-FUNCTION CDR-LESSP EQUAL LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194430 CONTROLLER-POCKETS (6) SATELLITES (*1*OK-NETLISTP) IMMEDIATE-DEPENDENTS0 (G*1*OK-NETLISTP-ON OK-NETLISTP-ON G*1*OK-NETLISTP-OFF OK-NETLISTP-OFF FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE SIMULATE-MONOTONE GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM OK-NETLISTP-REDUCTION-REWRITE OK-NETLISTP-REDUCTION) EVENT (DEFN OK-NETLISTP (FLAG FN NETLIST EXCEPTIONS) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP FN) (NOT (MEMBER FN EXCEPTIONS)) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (OK-NETLISTP (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP FN) (AND (OK-NETLISTP (QUOTE 0) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 1) (CDR FN) NETLIST EXCEPTIONS)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP FN) (NOT (MEMBER FN EXCEPTIONS)) (IF (LISTP (LOOKUP-MODULE FN NETLIST)) (OK-NETLISTP (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DELETE-MODULE FN NETLIST) EXCEPTIONS) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP FN) (AND (OK-NETLISTP (QUOTE 2) (OCC-FUNCTION (CAR FN)) NETLIST EXCEPTIONS) (OK-NETLISTP (QUOTE 3) (CDR FN) NETLIST EXCEPTIONS)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT FN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 PRIMP . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . OK-NETLISTP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . OK-NETLISTP) (DCELL . *1*OK-NETLISTP))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-OFF DP-RAM-16X32-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE . DP-RAM-16X32-MONOTONE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-STATE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-STATE-OFF DP-RAM-16X32-MONOTONE-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-STATE . DP-RAM-16X32-MONOTONE-STATE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-STATE-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-OFF DUAL-APPLY-STATE-DP-RAM-16X32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32 . DUAL-APPLY-STATE-DP-RAM-16X32-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF DUAL-PORT-RAM-STATE-MONOTONE-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF . T))))) (PUT1-LST (QUOTE MEM-WIDTH-LINEAR-FACTS-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE MEM-WIDTH-LINEAR-FACTS-OFF MEM-WIDTH-LINEAR-FACTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-LINEAR-FACTS . MEM-WIDTH-LINEAR-FACTS-OFF) (DISABLED-LEMMAS NIL MEM-WIDTH-LINEAR-FACTS MEM-WIDTH-LINEAR-FACTS-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-PROPERP-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-PRESERVES-PROPERP-OFF V-APPROX-PRESERVES-PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-PROPERP . V-APPROX-PRESERVES-PROPERP-OFF) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-PROPERP V-APPROX-PRESERVES-PROPERP-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF . T))))) (PUT1-LST (QUOTE MEM-WIDTH-NON-ZERO-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE MEM-WIDTH-NON-ZERO-OFF MEM-WIDTH-NON-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH-NON-ZERO . MEM-WIDTH-NON-ZERO-OFF) (DISABLED-LEMMAS NIL MEM-WIDTH-NON-ZERO MEM-WIDTH-NON-ZERO-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-SUBRANGE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-SUBRANGE-OFF V-APPROX-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-SUBRANGE . V-APPROX-SUBRANGE-OFF) (DISABLED-LEMMAS NIL V-APPROX-SUBRANGE V-APPROX-SUBRANGE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-LENGTH-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-PRESERVES-LENGTH-OFF V-APPROX-PRESERVES-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-PRESERVES-LENGTH . V-APPROX-PRESERVES-LENGTH-OFF) (DISABLED-LEMMAS NIL V-APPROX-PRESERVES-LENGTH V-APPROX-PRESERVES-LENGTH-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-ID-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-CONSTANT-RAM-X-ID-OFF S-APPROX-CONSTANT-RAM-X-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-ID . S-APPROX-CONSTANT-RAM-X-ID-OFF) (DISABLED-LEMMAS NIL S-APPROX-CONSTANT-RAM-X-ID S-APPROX-CONSTANT-RAM-X-ID-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM-ID-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-WRITE-MEM-ID-OFF S-APPROX-WRITE-MEM-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM-ID . S-APPROX-WRITE-MEM-ID-OFF) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM-ID-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM1-ID-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-WRITE-MEM1-ID-OFF S-APPROX-WRITE-MEM1-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM1-ID . S-APPROX-WRITE-MEM1-ID-OFF) (DISABLED-LEMMAS NIL S-APPROX-WRITE-MEM1-ID S-APPROX-WRITE-MEM1-ID-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-LENGTH-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-LENGTH-OFF V-APPROX-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-LENGTH . V-APPROX-LENGTH-OFF) (DISABLED-LEMMAS NIL V-APPROX-LENGTH V-APPROX-LENGTH-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE WRITE-MEM-MONOTONE-OFF WRITE-MEM-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM-MONOTONE . WRITE-MEM-MONOTONE-OFF) (DISABLED-LEMMAS NIL WRITE-MEM-MONOTONE WRITE-MEM-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE WRITE-MEM1-MONOTONE-OFF WRITE-MEM1-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE . WRITE-MEM1-MONOTONE-OFF) (DISABLED-LEMMAS NIL WRITE-MEM1-MONOTONE WRITE-MEM1-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE WRITE-MEM1-OPENER-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE WRITE-MEM1-OPENER-OFF WRITE-MEM1-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . WRITE-MEM1-OPENER-OFF) (DISABLED-LEMMAS NIL WRITE-MEM1-OPENER WRITE-MEM1-OPENER-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF . T))))) (PUT1-LST (QUOTE MEM-WIDTH-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE MEM-WIDTH-ON MEM-WIDTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-ON) (DISABLED-LEMMAS NIL MEM-WIDTH MEM-WIDTH-ON))))) (PUT1-LST (QUOTE G*1*MEM-WIDTH-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE G*1*MEM-WIDTH-ON *1*MEM-WIDTH NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . G*1*MEM-WIDTH-ON) (DISABLED-LEMMAS NIL *1*MEM-WIDTH G*1*MEM-WIDTH-ON))))) (PUT1-LST (QUOTE S-APPROX-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-ON S-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-ON) (DISABLED-LEMMAS NIL S-APPROX S-APPROX-ON))))) (PUT1-LST (QUOTE S-APPROX-OPENER-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-OPENER-OFF S-APPROX-OPENER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-OPENER-OFF) (DISABLED-LEMMAS NIL S-APPROX-OPENER S-APPROX-OPENER-OFF . T))))) (PUT1-LST (QUOTE S-KNOWNP-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-KNOWNP-ON S-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-KNOWNP-ON) (DISABLED-LEMMAS NIL S-KNOWNP S-KNOWNP-ON))))) (PUT1-LST (QUOTE V-APPROX-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-ON V-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-ON) (DISABLED-LEMMAS NIL V-APPROX V-APPROX-ON))))) (PUT1-LST (QUOTE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON) (DISABLED-LEMMAS NIL FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON))))) (PUT1-LST (QUOTE BVP-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE BVP-ON BVP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-ON) (DISABLED-LEMMAS NIL BVP BVP-ON))))) (PUT1-LST (QUOTE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON) (DISABLED-LEMMAS NIL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON))))) (PUT1-LST (QUOTE V-KNOWNP-ON) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-KNOWNP-ON V-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . V-KNOWNP-ON) (DISABLED-LEMMAS NIL V-KNOWNP V-KNOWNP-ON))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-VALUE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DP-RAM-16X32-MONOTONE-VALUE-OFF DP-RAM-16X32-MONOTONE-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-VALUE . DP-RAM-16X32-MONOTONE-VALUE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32-MONOTONE-VALUE DP-RAM-16X32-MONOTONE-VALUE-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-OFF DUAL-APPLY-VALUE-DP-RAM-16X32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32 . DUAL-APPLY-VALUE-DP-RAM-16X32-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF . T))))) (PUT1-LST (QUOTE EVAL$-APPEND-2-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE EVAL$-APPEND-2-OFF EVAL$-APPEND-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND-2 . EVAL$-APPEND-2-OFF) (DISABLED-LEMMAS NIL EVAL$-APPEND-2 EVAL$-APPEND-2-OFF . T))))) (PUT1-LST (QUOTE EVAL$-PAIRLIST-CONS-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE EVAL$-PAIRLIST-CONS-OFF EVAL$-PAIRLIST-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-PAIRLIST-CONS . EVAL$-PAIRLIST-CONS-OFF) (DISABLED-LEMMAS NIL EVAL$-PAIRLIST-CONS EVAL$-PAIRLIST-CONS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-APPEND-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE EVAL$-APPEND-OFF EVAL$-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-APPEND . EVAL$-APPEND-OFF) (DISABLED-LEMMAS NIL EVAL$-APPEND EVAL$-APPEND-OFF . T))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE DUAL-PORT-RAM-VALUE-MONOTONE-OFF DUAL-PORT-RAM-VALUE-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-MONOTONE . DUAL-PORT-RAM-VALUE-MONOTONE-OFF) (DISABLED-LEMMAS NIL DUAL-PORT-RAM-VALUE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM . S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM1 . S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF) (DISABLED-LEMMAS NIL S-APPROX-IMPLIES-PROPERP-READ-MEM1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM-OFF EQUAL-LENGTH-READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM . EQUAL-LENGTH-READ-MEM-OFF) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM-OFF . T))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM1-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE EQUAL-LENGTH-READ-MEM1-OFF EQUAL-LENGTH-READ-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM1 . EQUAL-LENGTH-READ-MEM1-OFF) (DISABLED-LEMMAS NIL EQUAL-LENGTH-READ-MEM1 EQUAL-LENGTH-READ-MEM1-OFF . T))))) (PUT1-LST (QUOTE READ-MEM-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE READ-MEM-MONOTONE-OFF READ-MEM-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-MONOTONE . READ-MEM-MONOTONE-OFF) (DISABLED-LEMMAS NIL READ-MEM-MONOTONE READ-MEM-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-MAKE-LIST-X-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-MAKE-LIST-X-OFF V-APPROX-MAKE-LIST-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . V-APPROX-MAKE-LIST-X-OFF) (DISABLED-LEMMAS NIL V-APPROX-MAKE-LIST-X V-APPROX-MAKE-LIST-X-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-BVP-SUBRANGE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-BVP-SUBRANGE-OFF V-APPROX-BVP-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP-SUBRANGE . V-APPROX-BVP-SUBRANGE-OFF) (DISABLED-LEMMAS NIL V-APPROX-BVP-SUBRANGE V-APPROX-BVP-SUBRANGE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF V-APPROX-IMPLIES-SUBRANGES-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-SUBRANGES-EQUAL . V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF . T))))) (PUT1-LST (QUOTE G*1*B-KNOWNP-OFF1) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE G*1*B-KNOWNP-OFF1 *1*B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . G*1*B-KNOWNP-OFF1) (DISABLED-LEMMAS NIL *1*B-KNOWNP G*1*B-KNOWNP-OFF1 . T))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-B-APPROX-NTH-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-IMPLIES-B-APPROX-NTH-OFF V-APPROX-IMPLIES-B-APPROX-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-B-APPROX-NTH . V-APPROX-IMPLIES-B-APPROX-NTH-OFF) (DISABLED-LEMMAS NIL V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-IMPLIES-B-APPROX-NTH-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-X-X-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-X-X-OFF V-APPROX-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-X-X-OFF) (DISABLED-LEMMAS NIL V-APPROX-X-X V-APPROX-X-X-OFF . T))))) (PUT1-LST (QUOTE BVP-IMPLIES-V-KNOWNP-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE BVP-IMPLIES-V-KNOWNP-OFF BVP-IMPLIES-V-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IMPLIES-V-KNOWNP . BVP-IMPLIES-V-KNOWNP-OFF) (DISABLED-LEMMAS NIL BVP-IMPLIES-V-KNOWNP BVP-IMPLIES-V-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE READ-MEM1-MONOTONE-OFF READ-MEM1-MONOTONE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE . READ-MEM1-MONOTONE-OFF) (DISABLED-LEMMAS NIL READ-MEM1-MONOTONE READ-MEM1-MONOTONE-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-BVP-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE V-APPROX-BVP-OFF V-APPROX-BVP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX-BVP . V-APPROX-BVP-OFF) (DISABLED-LEMMAS NIL V-APPROX-BVP V-APPROX-BVP-OFF . T))))) (PUT1-LST (QUOTE BVP-REVERSE-OFF) (QUOTE (IDATE 1000402194430 EVENT (TOGGLE BVP-REVERSE-OFF BVP-REVERSE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REVERSE . BVP-REVERSE-OFF) (DISABLED-LEMMAS NIL BVP-REVERSE BVP-REVERSE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE) (QUOTE (IDATE 1000402194430 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-MONOTONE-OFF1 DP-RAM-16X32-MONOTONE-ON PRIMP-MONOTONE DP-RAM-16X32-MONOTONE-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) (IMPLIES (GOOD-S S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-STATE . DP-RAM-16X32-MONOTONE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-MONOTONE-VALUE . DP-RAM-16X32-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S . DP-RAM-16X32-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-STATE) (QUOTE (IDATE 1000402194430 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-MONOTONE-STATE-OFF1 DP-RAM-16X32-MONOTONE-STATE-ON DP-RAM-16X32-MONOTONE-STATE-OFF DP-RAM-16X32-MONOTONE) EVENT (PROVE-LEMMA DP-RAM-16X32-MONOTONE-STATE (REWRITE) (IMPLIES (GOOD-S S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-EVAL-2-PRIMP MONOTONICITY-PROPERTY-OPENER-2 AND IMPLIES *1*PRIMP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32 . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE-STATE) (IMMEDIATE-DEPENDENTS0 GOOD-S . DP-RAM-16X32-MONOTONE-STATE) (LEMMAS MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE-STATE))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32) (QUOTE (IDATE 1000402194430 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-ON DP-RAM-16X32-PRESERVES-GOOD-S DUAL-APPLY-STATE-DP-RAM-16X32-OFF DP-RAM-16X32-MONOTONE-STATE) EVENT (PROVE-LEMMA DUAL-APPLY-STATE-DP-RAM-16X32 (REWRITE) (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A S)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY OPEN-SUBRANGE OPEN-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . DUAL-APPLY-STATE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . DUAL-APPLY-STATE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY . DUAL-APPLY-STATE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-STATE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-APPLY-STATE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32) (LEMMAS DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) (QUOTE (IDATE 1000402194430 IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF1 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY-OFF DUAL-APPLY-STATE-DP-RAM-16X32) EVENT (PROVE-LEMMA DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY (REWRITE) (EQUAL (DUAL-PORT-RAM-STATE BITS ADDRESS-LINES ARGS STATE) (DUAL-PORT-RAM-STATE-BODY BITS (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (SUBRANGE ARGS (ADD1 (TIMES (QUOTE 2) ADDRESS-LINES)) (PLUS (TIMES (QUOTE 2) ADDRESS-LINES) BITS)) STATE)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-STATE-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 SUBRANGE . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-BODY . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) (LEMMAS DUAL-PORT-RAM-STATE . DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-STATE-BODY) (QUOTE (MAIN-EVENT DUAL-PORT-RAM-STATE-BODY))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-PORT-RAM-STATE-BODY 3088 NIL NIL NIL NIL T)) TOTALP-LST ((DUAL-PORT-RAM-STATE-BODY . T)) SDEFN (LAMBDA (BITS B-ADDRESS WEN DATA STATE) (IF (EQUAL WEN (QUOTE *1*TRUE)) STATE (IF (BVP B-ADDRESS) (IF (EQUAL WEN (QUOTE *1*FALSE)) (WRITE-MEM B-ADDRESS STATE DATA) (WRITE-MEM B-ADDRESS STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (CONSTANT-RAM STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))))) LISP-CODE *1*DUAL-PORT-RAM-STATE-BODY SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194430 SATELLITES (*1*DUAL-PORT-RAM-STATE-BODY) IMMEDIATE-DEPENDENTS0 (G*1*DUAL-PORT-RAM-STATE-BODY-ON DUAL-PORT-RAM-STATE-BODY-ON G*1*DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-BODY-OFF DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY) EVENT (DEFN DUAL-PORT-RAM-STATE-BODY (BITS B-ADDRESS WEN DATA STATE) (IF (EQUAL WEN (QUOTE *1*TRUE)) STATE (IF (NOT (BVP B-ADDRESS)) (CONSTANT-RAM STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (IF (EQUAL WEN (QUOTE *1*FALSE)) (WRITE-MEM B-ADDRESS STATE DATA) (WRITE-MEM B-ADDRESS STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 X . DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . DUAL-PORT-RAM-STATE-BODY) (IMMEDIATE-DEPENDENTS0 BVP . DUAL-PORT-RAM-STATE-BODY) (DCELL . *1*DUAL-PORT-RAM-STATE-BODY))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (QUOTE (IDATE 1000402194430 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-STATE-DP-RAM-16X32) EVENT (PROVE-LEMMA DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 (REWRITE) (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (CONS (CAR (CDR (CDR (CDR (CDR A))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR A)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR A))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) S)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE EVAL$-APPEND EVAL$-APPEND-2 EVAL$-PAIRLIST-CONS PAIRSTATES DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (DISABLE PAIRLIST APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-PAIRLIST-CONS . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-APPEND . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-APPEND-2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) (LEMMAS DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3) EVENT (PROVE-LEMMA DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 (REWRITE) (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WEN) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D4) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D5) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D6) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D7) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D8) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D9) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D10) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D11) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D12) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D13) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D14) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D15) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D16) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D17) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D18) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D19) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D20) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D21) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D22) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D23) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D24) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D25) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D26) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D27) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D28) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D29) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D30) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D31) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) (EVAL$ (QUOTE *1*TRUE) (QUOTE STATE) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))))) ((DISABLE-THEORY T) (ENABLE *1*PRIMP *1*LOOKUP-MODULE *1*CDR *1*CAR *1*EVAL$ DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 EVAL$-APPEND REWRITE-EVAL$ EVAL$-APPEND-2 EVAL$-QUOTE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) (LEMMAS DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-ON DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2) EVENT (PROVE-LEMMA DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 (REWRITE) (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE NEW-STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) (APPEND (PAIRLIST (CDR (LOOKUP-MODULE (QUOTE INPUTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) A) (PAIRSTATES (CDR (LOOKUP-MODULE (QUOTE STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) S)))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE DUAL-APPLY-STATE PRIMP2 PRIMP-LOOKUP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1) (LEMMAS DUAL-APPLY-STATE . DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF1 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE-OFF DP-RAM-16X32-MONOTONE-STATE) EVENT (PROVE-LEMMA DUAL-PORT-RAM-STATE-MONOTONE-REWRITE (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (AND (GOOD-S S2) (V-APPROX A1 A2))) (S-APPROX (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A1 S1) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A2 S2))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*MEM-WIDTH) (USE (DUAL-PORT-RAM-STATE-MONOTONE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE-MONOTONE . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (IMMEDIATE-DEPENDENTS0 GOOD-S . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) (LEMMAS S-APPROX . DUAL-PORT-RAM-STATE-MONOTONE-REWRITE))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE-MONOTONE) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-STATE-MONOTONE-ON DUAL-PORT-RAM-STATE-MONOTONE-OFF DUAL-PORT-RAM-STATE-MONOTONE-REWRITE) EVENT (PROVE-LEMMA DUAL-PORT-RAM-STATE-MONOTONE NIL (IMPLIES (AND (S-APPROX S1 S2) (AND (GOOD-S S2) (V-APPROX A1 A2))) (S-APPROX (DUAL-PORT-RAM-STATE (MEM-WIDTH) (QUOTE 4) A1 S1) (DUAL-PORT-RAM-STATE (MEM-WIDTH) (QUOTE 4) A2 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-ID . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM-ID . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-B-APPROX-NTH . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-BVP-SUBRANGE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH-NON-ZERO . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-SUBRANGE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM-MONOTONE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-SUBRANGES-EQUAL . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 GOOD-S . DUAL-PORT-RAM-STATE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DUAL-PORT-RAM-STATE-MONOTONE))))) (PUT1-LST (QUOTE MEM-WIDTH-LINEAR-FACTS) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (MEM-WIDTH-LINEAR-FACTS-OFF1 MEM-WIDTH-LINEAR-FACTS-ON MEM-WIDTH-LINEAR-FACTS-OFF) EVENT (PROVE-LEMMA MEM-WIDTH-LINEAR-FACTS (REWRITE) (AND (LESSP (QUOTE 31) (MEM-WIDTH)) (LESSP (MEM-WIDTH) (QUOTE 33))) ((ENABLE *1*MEM-WIDTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-LINEAR-FACTS) (LINEAR-LEMMAS MEM-WIDTH . MEM-WIDTH-LINEAR-FACTS) (LINEAR-LEMMAS MEM-WIDTH . MEM-WIDTH-LINEAR-FACTS))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-PROPERP) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (V-APPROX-PRESERVES-PROPERP-OFF1 V-APPROX-PRESERVES-PROPERP-ON V-APPROX-PRESERVES-PROPERP-OFF) EVENT (PROVE-LEMMA V-APPROX-PRESERVES-PROPERP (REWRITE) (IMPLIES (NOT (IFF (PROPERP V1) (PROPERP V2))) (NOT (V-APPROX V1 V2))) ((ENABLE PROPERP V-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . V-APPROX-PRESERVES-PROPERP) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-PRESERVES-PROPERP) (IMMEDIATE-DEPENDENTS0 PROPERP . V-APPROX-PRESERVES-PROPERP) (LEMMAS V-APPROX . V-APPROX-PRESERVES-PROPERP))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-CONSTANT-RAM-X-WRITE-MEM (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (AND (PROPERP V) (AND (EQUAL (LENGTH V) (MEM-WIDTH)) (GOOD-S S2)))) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (WRITE-MEM V-ADDR S2 V))) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 GOOD-S . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PROPERP . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM) (LEMMAS S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (QUOTE (IDATE 1000402194429 IMMEDIATE-DEPENDENTS0 (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM) EVENT (PROVE-LEMMA S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (AND (PROPERP V) (AND (EQUAL (LENGTH V) (MEM-WIDTH)) (GOOD-S S2)))) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (WRITE-MEM1 V-ADDR S2 V))) ((ENABLE CONSTANT-RAM) (INDUCT (WRITE-MEM1-DOUBLE-INDUCTION V-ADDR S1 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 S-APPROX-CONSTANT-RAM-X-ID . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 GOOD-S . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) (LEMMAS S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (QUOTE (IDATE 1000402194428 IMMEDIATE-DEPENDENTS0 (S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-ON S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) EVENT (PROVE-LEMMA S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 (REWRITE) (IMPLIES (AND (NOT (STUBP S1)) (AND (NOT (STUBP S2)) (AND (LISTP V-ADDR) (AND (NOT (LISTP S1)) (AND (S-APPROX S1 S2) (AND (PROPERP V) (AND (EQUAL (LENGTH V) (MEM-WIDTH)) (NOT (RAMP S1))))))))) (S-APPROX S1 (WRITE-MEM1 V-ADDR S2 V))) ((ENABLE WRITE-MEM1 S-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 LENGTH . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 PROPERP . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3) (LEMMAS S-APPROX . S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3))))) (PUT1-LST (QUOTE MEM-WIDTH-NON-ZERO) (QUOTE (IDATE 1000402194428 IMMEDIATE-DEPENDENTS0 (MEM-WIDTH-NON-ZERO-OFF1 MEM-WIDTH-NON-ZERO-ON MEM-WIDTH-NON-ZERO-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA MEM-WIDTH-NON-ZERO (REWRITE) (NOT (EQUAL (MEM-WIDTH) (QUOTE 0))) ((ENABLE *1*MEM-WIDTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-NON-ZERO) (LEMMAS EQUAL . MEM-WIDTH-NON-ZERO))))) (PUT1-LST (QUOTE V-APPROX-SUBRANGE) (QUOTE (IDATE 1000402194428 IMMEDIATE-DEPENDENTS0 (V-APPROX-SUBRANGE-OFF1 V-APPROX-SUBRANGE-ON V-APPROX-SUBRANGE-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-SUBRANGE (REWRITE) (IMPLIES (V-APPROX A1 A2) (V-APPROX (SUBRANGE A1 I J) (SUBRANGE A2 I J))) ((ENABLE V-APPROX B-APPROX SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-SUBRANGE . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 S-APPROX-X-X . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . V-APPROX-SUBRANGE) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-SUBRANGE) (LEMMAS V-APPROX . V-APPROX-SUBRANGE))))) (PUT1-LST (QUOTE V-APPROX-PRESERVES-LENGTH) (QUOTE (IDATE 1000402194427 IMMEDIATE-DEPENDENTS0 (V-APPROX-PRESERVES-LENGTH-OFF1 V-APPROX-PRESERVES-LENGTH-ON V-APPROX-PRESERVES-LENGTH-OFF) EVENT (PROVE-LEMMA V-APPROX-PRESERVES-LENGTH (REWRITE) (IMPLIES (V-APPROX A1 A2) (EQUAL (LENGTH A1) (LENGTH A2))) ((ENABLE V-APPROX LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-APPROX-PRESERVES-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . V-APPROX-PRESERVES-LENGTH) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-PRESERVES-LENGTH) (LEMMAS LENGTH . V-APPROX-PRESERVES-LENGTH))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (QUOTE (IDATE 1000402194427 IMMEDIATE-DEPENDENTS0 (S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-ON S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X (REWRITE) (IMPLIES (S-APPROX S1 S2) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (CONSTANT-RAM S2 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))))) ((ENABLE CONSTANT-RAM) (INDUCT (S-APPROX S1 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X) (LEMMAS S-APPROX . S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X))))) (PUT1-LST (QUOTE S-APPROX-CONSTANT-RAM-X-ID) (QUOTE (IDATE 1000402194427 IMMEDIATE-DEPENDENTS0 (S-APPROX-CONSTANT-RAM-X-ID-OFF1 S-APPROX-CONSTANT-RAM-X-ID-ON S-APPROX-CONSTANT-RAM-X-ID-OFF DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1) EVENT (PROVE-LEMMA S-APPROX-CONSTANT-RAM-X-ID (REWRITE) (IMPLIES (AND (GOOD-S S2) (S-APPROX S1 S2)) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2)) ((ENABLE CONSTANT-RAM) (INDUCT (S-APPROX S1 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-CONSTANT-RAM-X-ID) (IMMEDIATE-DEPENDENTS0 GOOD-S . S-APPROX-CONSTANT-RAM-X-ID) (LEMMAS S-APPROX . S-APPROX-CONSTANT-RAM-X-ID))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM-ID) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (S-APPROX-WRITE-MEM-ID-OFF1 S-APPROX-WRITE-MEM-ID-ON S-APPROX-WRITE-MEM-ID-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-WRITE-MEM-ID (REWRITE) (IMPLIES (AND (GOOD-S S2) (S-APPROX S1 S2)) (S-APPROX (WRITE-MEM V-ADDR S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2)) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-WRITE-MEM1-ID . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-WRITE-MEM-ID) (IMMEDIATE-DEPENDENTS0 GOOD-S . S-APPROX-WRITE-MEM-ID) (LEMMAS S-APPROX . S-APPROX-WRITE-MEM-ID))))) (PUT1-LST (QUOTE S-APPROX-WRITE-MEM1-ID) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (S-APPROX-WRITE-MEM1-ID-OFF1 S-APPROX-WRITE-MEM1-ID-ON S-APPROX-WRITE-MEM1-ID-OFF S-APPROX-WRITE-MEM-ID) EVENT (PROVE-LEMMA S-APPROX-WRITE-MEM1-ID (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (GOOD-S S2)) (S-APPROX (WRITE-MEM1 V-ADDR S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2)) ((INDUCT (WRITE-MEM1-DOUBLE-INDUCTION V-ADDR S1 S2)) (EXPAND (S-APPROX S1 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-DOUBLE-INDUCTION . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 X . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 GOOD-S . S-APPROX-WRITE-MEM1-ID) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-WRITE-MEM1-ID) (LEMMAS S-APPROX . S-APPROX-WRITE-MEM1-ID))))) (PUT1-LST (QUOTE *1*WRITE-MEM1-DOUBLE-INDUCTION) (QUOTE (MAIN-EVENT WRITE-MEM1-DOUBLE-INDUCTION))) (PUT1-LST (QUOTE WRITE-MEM1-DOUBLE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM1-DOUBLE-INDUCTION 2 NIL NIL NIL)) TOTALP-LST ((WRITE-MEM1-DOUBLE-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V-ADDR MEM1 MEM2) (IF (STUBP MEM1) (QUOTE *1*TRUE) (IF (STUBP MEM2) (QUOTE *1*TRUE) (IF (LISTP V-ADDR) (IF (LISTP MEM1) (IF (LISTP MEM2) (IF (CAR V-ADDR) (WRITE-MEM1-DOUBLE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (WRITE-MEM1-DOUBLE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))))) LISP-CODE *1*WRITE-MEM1-DOUBLE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (STUBP MEM1) (STUBP MEM2))) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NLISTP V-ADDR)) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (OR (NLISTP MEM1) (NLISTP MEM2))) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (NOT (OR (NLISTP MEM1) (NLISTP MEM2))) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM1) (CDR MEM2)))) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (NOT (OR (NLISTP MEM1) (NLISTP MEM2))) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM1) (CAR MEM2))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM1) (COUNT MEM1) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM2) (COUNT MEM2) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194426 CONTROLLER-POCKETS (1 2 4) SATELLITES (*1*WRITE-MEM1-DOUBLE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*WRITE-MEM1-DOUBLE-INDUCTION-ON WRITE-MEM1-DOUBLE-INDUCTION-ON G*1*WRITE-MEM1-DOUBLE-INDUCTION-OFF WRITE-MEM1-DOUBLE-INDUCTION-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-WRITE-MEM1-ID) EVENT (DEFN WRITE-MEM1-DOUBLE-INDUCTION (V-ADDR MEM1 MEM2) (IF (OR (STUBP MEM1) (STUBP MEM2)) (QUOTE *1*TRUE) (IF (NLISTP V-ADDR) (QUOTE *1*TRUE) (IF (OR (NLISTP MEM1) (NLISTP MEM2)) (QUOTE *1*TRUE) (IF (CAR V-ADDR) (WRITE-MEM1-DOUBLE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (WRITE-MEM1-DOUBLE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . WRITE-MEM1-DOUBLE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . WRITE-MEM1-DOUBLE-INDUCTION) (DCELL . *1*WRITE-MEM1-DOUBLE-INDUCTION))))) (PUT1-LST (QUOTE V-APPROX-LENGTH) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (V-APPROX-LENGTH-OFF1 V-APPROX-LENGTH-ON V-APPROX-LENGTH-OFF) EVENT (PROVE-LEMMA V-APPROX-LENGTH (REWRITE) (IMPLIES (V-APPROX V1 V2) (NOT (LESSP (LENGTH V1) (LENGTH V2)))) ((ENABLE V-APPROX LENGTH B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-APPROX-LENGTH) (IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . V-APPROX-LENGTH) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . V-APPROX-LENGTH) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-LENGTH) (LINEAR-LEMMAS LENGTH . V-APPROX-LENGTH) (LINEAR-LEMMAS LENGTH . V-APPROX-LENGTH))))) (PUT1-LST (QUOTE WRITE-MEM-MONOTONE) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (WRITE-MEM-MONOTONE-OFF1 WRITE-MEM-MONOTONE-ON WRITE-MEM-MONOTONE-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA WRITE-MEM-MONOTONE (REWRITE) (IMPLIES (AND (S-APPROX MEM1 MEM2) (AND (V-APPROX DATA1 DATA2) (AND (PROPERP DATA1) (AND (PROPERP DATA2) (AND (EQUAL (LENGTH DATA1) (MEM-WIDTH)) (EQUAL (LENGTH DATA2) (MEM-WIDTH))))))) (S-APPROX (WRITE-MEM V-ADDR MEM1 DATA1) (WRITE-MEM V-ADDR MEM2 DATA2))) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROPERP . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . WRITE-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . WRITE-MEM-MONOTONE) (LEMMAS S-APPROX . WRITE-MEM-MONOTONE))))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (WRITE-MEM1-MONOTONE-OFF1 WRITE-MEM1-MONOTONE-ON WRITE-MEM1-MONOTONE-OFF WRITE-MEM-MONOTONE) EVENT (PROVE-LEMMA WRITE-MEM1-MONOTONE (REWRITE) (IMPLIES (AND (S-APPROX MEM1 MEM2) (AND (V-APPROX DATA1 DATA2) (AND (PROPERP DATA1) (AND (PROPERP DATA2) (AND (EQUAL (LENGTH DATA1) (MEM-WIDTH)) (EQUAL (LENGTH DATA2) (MEM-WIDTH))))))) (S-APPROX (WRITE-MEM1 V-ADDR MEM1 DATA1) (WRITE-MEM1 V-ADDR MEM2 DATA2))) ((INDUCT (WRITE-MEM1-MONOTONE-INDUCTION V-ADDR MEM1 MEM2)) (EXPAND (S-APPROX MEM1 MEM2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 RAM . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-OPENER . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-OPENER . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1-MONOTONE-INDUCTION . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROPERP . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . WRITE-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . WRITE-MEM1-MONOTONE) (LEMMAS S-APPROX . WRITE-MEM1-MONOTONE))))) (PUT1-LST (QUOTE *1*WRITE-MEM1-MONOTONE-INDUCTION) (QUOTE (MAIN-EVENT WRITE-MEM1-MONOTONE-INDUCTION))) (PUT1-LST (QUOTE WRITE-MEM1-MONOTONE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM1-MONOTONE-INDUCTION 2 NIL NIL NIL)) TOTALP-LST ((WRITE-MEM1-MONOTONE-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V-ADDR MEM1 MEM2) (IF (STUBP MEM1) (QUOTE *1*TRUE) (IF (STUBP MEM2) (QUOTE *1*TRUE) (IF (LISTP V-ADDR) (IF (LISTP MEM1) (IF (LISTP MEM2) (IF (CAR V-ADDR) (WRITE-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (WRITE-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))))) LISP-CODE *1*WRITE-MEM1-MONOTONE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (STUBP MEM1) (STUBP MEM2))) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NLISTP V-ADDR)) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (OR (NLISTP MEM1) (NLISTP MEM2))) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (NOT (OR (NLISTP MEM1) (NLISTP MEM2))) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM1) (CDR MEM2)))) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (STUBP MEM2))) (NOT (NLISTP V-ADDR)) (NOT (OR (NLISTP MEM1) (NLISTP MEM2))) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM1) (CAR MEM2))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM1) (COUNT MEM1) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM2) (COUNT MEM2) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP OR NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194426 CONTROLLER-POCKETS (1 2 4) SATELLITES (*1*WRITE-MEM1-MONOTONE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*WRITE-MEM1-MONOTONE-INDUCTION-ON WRITE-MEM1-MONOTONE-INDUCTION-ON G*1*WRITE-MEM1-MONOTONE-INDUCTION-OFF WRITE-MEM1-MONOTONE-INDUCTION-OFF WRITE-MEM1-MONOTONE) EVENT (DEFN WRITE-MEM1-MONOTONE-INDUCTION (V-ADDR MEM1 MEM2) (IF (OR (STUBP MEM1) (STUBP MEM2)) (QUOTE *1*TRUE) (IF (NLISTP V-ADDR) (QUOTE *1*TRUE) (IF (OR (NLISTP MEM1) (NLISTP MEM2)) (QUOTE *1*TRUE) (IF (CAR V-ADDR) (WRITE-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (WRITE-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . WRITE-MEM1-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . WRITE-MEM1-MONOTONE-INDUCTION) (DCELL . *1*WRITE-MEM1-MONOTONE-INDUCTION))))) (PUT1-LST (QUOTE WRITE-MEM1-OPENER) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (WRITE-MEM1-OPENER-OFF1 WRITE-MEM1-OPENER-ON WRITE-MEM1-OPENER-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-WRITE-MEM1-ID WRITE-MEM1-MONOTONE) EVENT (PROVE-LEMMA WRITE-MEM1-OPENER (REWRITE) (AND (IMPLIES (STUBP MEM) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) MEM)) (AND (IMPLIES (NLISTP V-ADDR) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (IF (RAMP MEM) (RAM VALUE) MEM))) (AND (IMPLIES (AND (LISTP V-ADDR) (NLISTP MEM)) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) MEM)) (AND (IMPLIES (AND (LISTP MEM) (AND (LISTP V-ADDR) (CAR V-ADDR))) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (CONS (CAR MEM) (WRITE-MEM1 (CDR V-ADDR) (CDR MEM) VALUE)))) (IMPLIES (AND (LISTP MEM) (AND (LISTP V-ADDR) (NOT (CAR V-ADDR)))) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (CONS (WRITE-MEM1 (CDR V-ADDR) (CAR MEM) VALUE) (CDR MEM)))))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (EXPAND (WRITE-MEM1 V-ADDR MEM VALUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . WRITE-MEM1-OPENER) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . WRITE-MEM1-OPENER) (IMMEDIATE-DEPENDENTS0 STUB . WRITE-MEM1-OPENER) (LEMMAS WRITE-MEM1 . WRITE-MEM1-OPENER) (LEMMAS WRITE-MEM1 . WRITE-MEM1-OPENER) (LEMMAS WRITE-MEM1 . WRITE-MEM1-OPENER) (LEMMAS WRITE-MEM1 . WRITE-MEM1-OPENER) (LEMMAS WRITE-MEM1 . WRITE-MEM1-OPENER))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF1 V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-ON V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T-OFF DUAL-PORT-RAM-STATE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T (REWRITE) (IMPLIES (AND (NOT (NTH N A1)) (NTH N A2)) (NOT (V-APPROX A1 A2))) ((ENABLE NTH V-APPROX B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (IMMEDIATE-DEPENDENTS0 NTH . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T) (LEMMAS V-APPROX . V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T))))) (PUT1-LST (QUOTE MEM-WIDTH-OFF) (QUOTE (IDATE 1000402194426 EVENT (TOGGLE MEM-WIDTH-OFF MEM-WIDTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . MEM-WIDTH-OFF) (DISABLED-LEMMAS NIL MEM-WIDTH MEM-WIDTH-OFF . T))))) (PUT1-LST (QUOTE G*1*MEM-WIDTH-OFF) (QUOTE (IDATE 1000402194426 EVENT (TOGGLE G*1*MEM-WIDTH-OFF *1*MEM-WIDTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-WIDTH . G*1*MEM-WIDTH-OFF) (DISABLED-LEMMAS NIL *1*MEM-WIDTH G*1*MEM-WIDTH-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-OFF) (QUOTE (IDATE 1000402194426 EVENT (TOGGLE S-APPROX-OFF S-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-OFF) (DISABLED-LEMMAS NIL S-APPROX S-APPROX-OFF . T))))) (PUT1-LST (QUOTE S-APPROX-OPENER) (QUOTE (IDATE 1000402194426 IMMEDIATE-DEPENDENTS0 (S-APPROX-OPENER-OFF1 S-APPROX-OPENER-ON S-APPROX-OPENER-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM1-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-OPENER (REWRITE) (AND (IMPLIES (OR (LISTP S1) (LISTP S2)) (EQUAL (S-APPROX S1 S2) (IF (LISTP S1) (IF (LISTP S2) (AND (S-APPROX (CAR S1) (CAR S2)) (S-APPROX (CDR S1) (CDR S2))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (AND (IMPLIES (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL))) (EQUAL (S-APPROX S1 S2) (EQUAL S1 S2))) (AND (IMPLIES (OR (RAMP S1) (RAMP S2)) (EQUAL (S-APPROX S1 S2) (IF (RAMP S1) (IF (RAMP S2) (V-APPROX (RAM-GUTS S1) (RAM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (AND (IMPLIES (OR (ROMP S1) (ROMP S2)) (EQUAL (S-APPROX S1 S2) (IF (ROMP S1) (IF (ROMP S2) (V-APPROX (ROM-GUTS S1) (ROM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (AND (IMPLIES (OR (STUBP S1) (STUBP S2)) (EQUAL (S-APPROX S1 S2) (IF (STUBP S1) (IF (STUBP S2) (V-APPROX (STUB-GUTS S1) (STUB-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IMPLIES (NOT (OR (LISTP S1) (OR (LISTP S2) (OR (EQUAL S1 (QUOTE NIL)) (OR (EQUAL S2 (QUOTE NIL)) (OR (RAMP S1) (OR (RAMP S2) (OR (ROMP S1) (OR (ROMP S2) (OR (STUBP S1) (STUBP S2))))))))))) (EQUAL (S-APPROX S1 S2) (B-APPROX S1 S2)))))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (EXPAND (S-APPROX S1 S2) (S-APPROX (QUOTE NIL) S2) (S-APPROX (QUOTE NIL) (QUOTE NIL)) (S-APPROX S1 (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . S-APPROX-OPENER) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX-OPENER) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX-OPENER) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-OPENER) (IMMEDIATE-DEPENDENTS0 V-APPROX . S-APPROX-OPENER) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER) (LEMMAS S-APPROX . S-APPROX-OPENER))))) (PUT1-LST (QUOTE S-KNOWNP-OFF) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE S-KNOWNP-OFF S-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-KNOWNP-OFF) (DISABLED-LEMMAS NIL S-KNOWNP S-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE V-APPROX-OFF) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE V-APPROX-OFF V-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-OFF) (DISABLED-LEMMAS NIL V-APPROX V-APPROX-OFF . T))))) (PUT1-LST (QUOTE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF FOURP-IMPLIES-S-APPROX-IS-B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF) (DISABLED-LEMMAS NIL FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF . T))))) (PUT1-LST (QUOTE BVP-OFF1) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE BVP-OFF1 BVP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-OFF1) (DISABLED-LEMMAS NIL BVP BVP-OFF1 . T))))) (PUT1-LST (QUOTE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF) (DISABLED-LEMMAS NIL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF . T))))) (PUT1-LST (QUOTE V-KNOWNP-OFF) (QUOTE (IDATE 1000402194425 EVENT (TOGGLE V-KNOWNP-OFF V-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-KNOWNP . V-KNOWNP-OFF) (DISABLED-LEMMAS NIL V-KNOWNP V-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-MONOTONE-VALUE) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-MONOTONE-VALUE-OFF1 DP-RAM-16X32-MONOTONE-VALUE-ON DP-RAM-16X32-MONOTONE-VALUE-OFF DP-RAM-16X32-MONOTONE) EVENT (PROVE-LEMMA DP-RAM-16X32-MONOTONE-VALUE (REWRITE) (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE *1*PRIMP MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-OPENER-0 DUAL-EVAL-0-PRIMP DUAL-PORT-RAM-VALUE-MONOTONE DUAL-APPLY-VALUE-DP-RAM-16X32))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DP-RAM-16X32-MONOTONE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32 . DP-RAM-16X32-MONOTONE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DP-RAM-16X32-MONOTONE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-MONOTONE . DP-RAM-16X32-MONOTONE-VALUE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . DP-RAM-16X32-MONOTONE-VALUE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE-VALUE) (LEMMAS MONOTONICITY-PROPERTY . DP-RAM-16X32-MONOTONE-VALUE))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-ON DUAL-APPLY-VALUE-DP-RAM-16X32-OFF DP-RAM-16X32-MONOTONE-VALUE) EVENT (PROVE-LEMMA DUAL-APPLY-VALUE-DP-RAM-16X32 (REWRITE) (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) A S)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY OPEN-SUBRANGE OPEN-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . DUAL-APPLY-VALUE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . DUAL-APPLY-VALUE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY . DUAL-APPLY-VALUE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 . DUAL-APPLY-VALUE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32) (LEMMAS DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF1 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-APPLY-VALUE-DP-RAM-16X32) EVENT (PROVE-LEMMA DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY (REWRITE) (EQUAL (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE) (DUAL-PORT-RAM-VALUE-BODY BITS (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) STATE)) ((DISABLE-THEORY T) (ENABLE DUAL-PORT-RAM-VALUE DUAL-PORT-RAM-VALUE-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 SUBRANGE . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE-BODY . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) (LEMMAS DUAL-PORT-RAM-VALUE . DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-VALUE-BODY) (QUOTE (MAIN-EVENT DUAL-PORT-RAM-VALUE-BODY))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-PORT-RAM-VALUE-BODY -1 NIL NIL NIL NIL NIL)) TOTALP-LST ((DUAL-PORT-RAM-VALUE-BODY . T)) SDEFN (LAMBDA (BITS A-ADDRESS B-ADDRESS WEN STATE) (IF (BVP A-ADDRESS) (IF (EQUAL WEN (QUOTE *1*TRUE)) (IF (PROPERP (READ-MEM A-ADDRESS STATE)) (IF (EQUAL (LENGTH (READ-MEM A-ADDRESS STATE)) BITS) (READ-MEM A-ADDRESS STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (IF (BVP B-ADDRESS) (IF (EQUAL A-ADDRESS B-ADDRESS) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) (IF (PROPERP (READ-MEM A-ADDRESS STATE)) (IF (EQUAL (LENGTH (READ-MEM A-ADDRESS STATE)) BITS) (READ-MEM A-ADDRESS STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) LISP-CODE *1*DUAL-PORT-RAM-VALUE-BODY SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194425 SATELLITES (*1*DUAL-PORT-RAM-VALUE-BODY) IMMEDIATE-DEPENDENTS0 (G*1*DUAL-PORT-RAM-VALUE-BODY-ON DUAL-PORT-RAM-VALUE-BODY-ON G*1*DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-BODY-OFF DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY) EVENT (DEFN DUAL-PORT-RAM-VALUE-BODY (BITS A-ADDRESS B-ADDRESS WEN STATE) (IF (OR (NOT (BVP A-ADDRESS)) (AND (NOT (EQUAL WEN (QUOTE *1*TRUE))) (OR (NOT (BVP B-ADDRESS)) (EQUAL A-ADDRESS B-ADDRESS)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) (IF (AND (PROPERP (READ-MEM A-ADDRESS STATE)) (EQUAL (LENGTH (READ-MEM A-ADDRESS STATE)) BITS)) (READ-MEM A-ADDRESS STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 READ-MEM . DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 PROPERP . DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 X . DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DUAL-PORT-RAM-VALUE-BODY) (IMMEDIATE-DEPENDENTS0 BVP . DUAL-PORT-RAM-VALUE-BODY) (DCELL . *1*DUAL-PORT-RAM-VALUE-BODY))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3-OFF DUAL-APPLY-VALUE-DP-RAM-16X32) EVENT (PROVE-LEMMA DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 (REWRITE) (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (CONS (CAR (CDR (CDR (CDR (CDR A))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR A)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR A))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) S)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE EVAL$-APPEND EVAL$-APPEND-2 EVAL$-PAIRLIST-CONS PAIRSTATES DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (DISABLE PAIRLIST APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-PAIRLIST-CONS . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-APPEND . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 EVAL$-APPEND-2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) (LEMMAS DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) EVENT (PROVE-LEMMA DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 (REWRITE) (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WEN) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D4) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D5) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D6) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D7) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D8) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D9) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D10) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D11) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D12) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D13) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D14) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D15) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D16) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D17) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D18) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D19) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D20) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D21) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D22) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D23) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D24) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D25) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D26) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D27) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D28) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D29) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D30) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D31) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) (EVAL$ (QUOTE *1*TRUE) (QUOTE STATE) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))))) ((DISABLE-THEORY T) (ENABLE *1*PRIMP *1*LOOKUP-MODULE *1*CDR *1*CAR *1*EVAL$ DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 EVAL$-APPEND REWRITE-EVAL$ EVAL$-APPEND-2 EVAL$-QUOTE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) (LEMMAS DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-ON DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1-OFF DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2) EVENT (PROVE-LEMMA DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 (REWRITE) (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE RESULTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) (APPEND (PAIRLIST (CDR (LOOKUP-MODULE (QUOTE INPUTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) A) (PAIRSTATES (CDR (LOOKUP-MODULE (QUOTE STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) S)))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE DUAL-APPLY-VALUE PRIMP2 PRIMP-LOOKUP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1) (LEMMAS DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1))))) (PUT1-LST (QUOTE EVAL$-APPEND-2) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (EVAL$-APPEND-2-OFF1 EVAL$-APPEND-2-ON EVAL$-APPEND-2-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) EVENT (PROVE-LEMMA EVAL$-APPEND-2 (REWRITE) (IMPLIES (AND (LITATOM X) (NOT (MEMBER X LST))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (APPEND (PAIRLIST LST Y) Z)) (EVAL$ (QUOTE *1*TRUE) X Z))) ((INDUCT (PAIRLIST LST Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . EVAL$-APPEND-2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . EVAL$-APPEND-2) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . EVAL$-APPEND-2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . EVAL$-APPEND-2) (LEMMAS EVAL$ . EVAL$-APPEND-2))))) (PUT1-LST (QUOTE EVAL$-PAIRLIST-CONS) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (EVAL$-PAIRLIST-CONS-OFF1 EVAL$-PAIRLIST-CONS-ON EVAL$-PAIRLIST-CONS-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) EVENT (PROVE-LEMMA EVAL$-PAIRLIST-CONS (REWRITE) (IMPLIES (LITATOM X) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST (CONS C LST) Y)) (IF (EQUAL X C) (CAR Y) (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST LST (CDR Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . EVAL$-PAIRLIST-CONS) (LEMMAS EVAL$ . EVAL$-PAIRLIST-CONS))))) (PUT1-LST (QUOTE EVAL$-APPEND) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (EVAL$-APPEND-OFF1 EVAL$-APPEND-ON EVAL$-APPEND-OFF DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3) EVENT (PROVE-LEMMA EVAL$-APPEND (REWRITE) (IMPLIES (AND (LITATOM X) (MEMBER X LST)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (APPEND (PAIRLIST LST Y) Z)) (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST LST Y)))) ((INDUCT (PAIRLIST LST Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . EVAL$-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . EVAL$-APPEND) (LEMMAS EVAL$ . EVAL$-APPEND))))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE-MONOTONE) (QUOTE (IDATE 1000402194425 IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-VALUE-MONOTONE-OFF1 DUAL-PORT-RAM-VALUE-MONOTONE-ON DUAL-PORT-RAM-VALUE-MONOTONE-OFF DP-RAM-16X32-MONOTONE-VALUE) EVENT (PROVE-LEMMA DUAL-PORT-RAM-VALUE-MONOTONE (REWRITE) (IMPLIES (AND (NUMBERP ADDRESS-LINES) (AND (S-APPROX S1 S2) (V-APPROX A1 A2))) (V-APPROX (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES A1 S1) (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES A2 S2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM-MONOTONE . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-MAKE-LIST-X . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-B-APPROX-NTH . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-BVP-SUBRANGE . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-X-X . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX-IMPLIES-SUBRANGES-EQUAL . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 TIMES-1 . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DUAL-PORT-RAM-VALUE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DUAL-PORT-RAM-VALUE-MONOTONE) (LEMMAS V-APPROX . DUAL-PORT-RAM-VALUE-MONOTONE))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM) (QUOTE (IDATE 1000402194421 IMMEDIATE-DEPENDENTS0 (S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM-ON S-APPROX-IMPLIES-PROPERP-READ-MEM-OFF DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-IMPLIES-PROPERP-READ-MEM (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (PROPERP (READ-MEM A S1))) (PROPERP (READ-MEM A S2))) ((ENABLE READ-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-PROPERP-READ-MEM1 . S-APPROX-IMPLIES-PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . S-APPROX-IMPLIES-PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 PROPERP . S-APPROX-IMPLIES-PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-IMPLIES-PROPERP-READ-MEM) (LEMMAS PROPERP . S-APPROX-IMPLIES-PROPERP-READ-MEM))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-PROPERP-READ-MEM1) (QUOTE (IDATE 1000402194421 IMMEDIATE-DEPENDENTS0 (S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF1 S-APPROX-IMPLIES-PROPERP-READ-MEM1-ON S-APPROX-IMPLIES-PROPERP-READ-MEM1-OFF S-APPROX-IMPLIES-PROPERP-READ-MEM) EVENT (PROVE-LEMMA S-APPROX-IMPLIES-PROPERP-READ-MEM1 (REWRITE) (IMPLIES (AND (S-APPROX S1 S2) (PROPERP (READ-MEM1 A S1))) (PROPERP (READ-MEM1 A S2))) ((ENABLE READ-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 BVP . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 V-APPROX . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-IMPLIES-PROPERP-READ-MEM1) (LEMMAS PROPERP . S-APPROX-IMPLIES-PROPERP-READ-MEM1))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM) (QUOTE (IDATE 1000402194421 IMMEDIATE-DEPENDENTS0 (EQUAL-LENGTH-READ-MEM-OFF1 EQUAL-LENGTH-READ-MEM-ON EQUAL-LENGTH-READ-MEM-OFF DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA EQUAL-LENGTH-READ-MEM (REWRITE) (IMPLIES (S-APPROX S1 S2) (EQUAL (EQUAL (LENGTH (READ-MEM A S2)) (LENGTH (READ-MEM A S1))) (QUOTE *1*TRUE))) ((ENABLE READ-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-READ-MEM1 . EQUAL-LENGTH-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . EQUAL-LENGTH-READ-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-READ-MEM) (IMMEDIATE-DEPENDENTS0 S-APPROX . EQUAL-LENGTH-READ-MEM) (LEMMAS EQUAL . EQUAL-LENGTH-READ-MEM))))) (PUT1-LST (QUOTE EQUAL-LENGTH-READ-MEM1) (QUOTE (IDATE 1000402194421 IMMEDIATE-DEPENDENTS0 (EQUAL-LENGTH-READ-MEM1-OFF1 EQUAL-LENGTH-READ-MEM1-ON EQUAL-LENGTH-READ-MEM1-OFF EQUAL-LENGTH-READ-MEM) EVENT (PROVE-LEMMA EQUAL-LENGTH-READ-MEM1 (REWRITE) (IMPLIES (S-APPROX S1 S2) (EQUAL (EQUAL (LENGTH (READ-MEM1 A S2)) (LENGTH (READ-MEM1 A S1))) (QUOTE *1*TRUE))) ((ENABLE READ-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 V-APPROX . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 STUB . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 ROM . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-READ-MEM1) (IMMEDIATE-DEPENDENTS0 S-APPROX . EQUAL-LENGTH-READ-MEM1) (LEMMAS EQUAL . EQUAL-LENGTH-READ-MEM1))))) (PUT1-LST (QUOTE READ-MEM-MONOTONE) (QUOTE (IDATE 1000402194420 IMMEDIATE-DEPENDENTS0 (READ-MEM-MONOTONE-OFF1 READ-MEM-MONOTONE-ON READ-MEM-MONOTONE-OFF DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA READ-MEM-MONOTONE (REWRITE) (IMPLIES (AND (BVP V-ADDR) (S-APPROX MEM1 MEM2)) (V-APPROX (READ-MEM V-ADDR MEM1) (READ-MEM V-ADDR MEM2))) ((ENABLE READ-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REVERSE . READ-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE . READ-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . READ-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . READ-MEM-MONOTONE) (IMMEDIATE-DEPENDENTS0 BVP . READ-MEM-MONOTONE) (LEMMAS V-APPROX . READ-MEM-MONOTONE))))) (PUT1-LST (QUOTE V-APPROX-MAKE-LIST-X) (QUOTE (IDATE 1000402194420 IMMEDIATE-DEPENDENTS0 (V-APPROX-MAKE-LIST-X-OFF1 V-APPROX-MAKE-LIST-X-ON V-APPROX-MAKE-LIST-X-OFF DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM1-ID DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-MAKE-LIST-X (REWRITE) (IMPLIES (AND (EQUAL (LENGTH Y) BITS) (PROPERP Y)) (V-APPROX (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) Y)) ((ENABLE MAKE-LIST B-APPROX B-KNOWNP) (INDUCT (NTH BITS Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LENGTH-CDR . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 NTH . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 X . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 PROPERP . V-APPROX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LENGTH . V-APPROX-MAKE-LIST-X) (LEMMAS V-APPROX . V-APPROX-MAKE-LIST-X))))) (PUT1-LST (QUOTE V-APPROX-BVP-SUBRANGE) (QUOTE (IDATE 1000402194420 IMMEDIATE-DEPENDENTS0 (V-APPROX-BVP-SUBRANGE-OFF1 V-APPROX-BVP-SUBRANGE-ON V-APPROX-BVP-SUBRANGE-OFF DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-BVP-SUBRANGE (REWRITE) (IMPLIES (AND (V-APPROX A1 A2) (BVP (SUBRANGE A1 I J))) (BVP (SUBRANGE A2 I J))) ((ENABLE SUBRANGE BVP BOOLP B-APPROX B-KNOWNP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BOOLP . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BVP . V-APPROX-BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-BVP-SUBRANGE) (LEMMAS BVP . V-APPROX-BVP-SUBRANGE))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-SUBRANGES-EQUAL) (QUOTE (IDATE 1000402194417 IMMEDIATE-DEPENDENTS0 (V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF1 V-APPROX-IMPLIES-SUBRANGES-EQUAL-ON V-APPROX-IMPLIES-SUBRANGES-EQUAL-OFF DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-IMPLIES-SUBRANGES-EQUAL (REWRITE) (IMPLIES (AND (V-APPROX X Y) (BVP (SUBRANGE X I J))) (EQUAL (SUBRANGE X I J) (SUBRANGE Y I J))) ((ENABLE SUBRANGE BVP BOOLP B-APPROX B-KNOWNP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 SUBRANGE . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-IMPLIES-SUBRANGES-EQUAL) (LEMMAS SUBRANGE . V-APPROX-IMPLIES-SUBRANGES-EQUAL))))) (PUT1-LST (QUOTE G*1*B-KNOWNP-ON) (QUOTE (IDATE 1000402194415 EVENT (TOGGLE G*1*B-KNOWNP-ON *1*B-KNOWNP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . G*1*B-KNOWNP-ON) (DISABLED-LEMMAS NIL *1*B-KNOWNP G*1*B-KNOWNP-ON))))) (PUT1-LST (QUOTE V-APPROX-IMPLIES-B-APPROX-NTH) (QUOTE (IDATE 1000402194415 IMMEDIATE-DEPENDENTS0 (V-APPROX-IMPLIES-B-APPROX-NTH-OFF1 V-APPROX-IMPLIES-B-APPROX-NTH-ON V-APPROX-IMPLIES-B-APPROX-NTH-OFF DUAL-PORT-RAM-STATE-MONOTONE DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-IMPLIES-B-APPROX-NTH (REWRITE) (IMPLIES (AND (EQUAL (NTH N X) C) (AND (NOT (EQUAL (NTH N Y) C)) (B-KNOWNP C))) (NOT (V-APPROX X Y))) ((ENABLE B-APPROX B-KNOWNP NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-IMPLIES-B-APPROX-NTH) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-APPROX-IMPLIES-B-APPROX-NTH) (IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . V-APPROX-IMPLIES-B-APPROX-NTH) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-IMPLIES-B-APPROX-NTH) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-IMPLIES-B-APPROX-NTH) (IMMEDIATE-DEPENDENTS0 NTH . V-APPROX-IMPLIES-B-APPROX-NTH) (LEMMAS V-APPROX . V-APPROX-IMPLIES-B-APPROX-NTH))))) (PUT1-LST (QUOTE V-APPROX-X-X) (QUOTE (IDATE 1000402194415 IMMEDIATE-DEPENDENTS0 (V-APPROX-X-X-ON1 V-APPROX-X-X-OFF1 V-APPROX-LIST-X-X V-APPROX-X-X-ON V-APPROX-X-X-OFF V-APPROX-SUBRANGE DUAL-PORT-RAM-VALUE-MONOTONE) EVENT (PROVE-LEMMA V-APPROX-X-X (REWRITE) (V-APPROX X X) ((ENABLE B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-X-X . V-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . V-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-X-X) (LEMMAS V-APPROX . V-APPROX-X-X))))) (PUT1-LST (QUOTE BVP-IMPLIES-V-KNOWNP) (QUOTE (IDATE 1000402194415 IMMEDIATE-DEPENDENTS0 (BVP-IMPLIES-V-KNOWNP-OFF1 BVP-IMPLIES-V-KNOWNP-ON BVP-IMPLIES-V-KNOWNP-OFF) EVENT (PROVE-LEMMA BVP-IMPLIES-V-KNOWNP (REWRITE) (IMPLIES (BVP X) (V-KNOWNP X)) ((ENABLE BVP V-KNOWNP BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . BVP-IMPLIES-V-KNOWNP) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-IMPLIES-V-KNOWNP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-IMPLIES-V-KNOWNP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-IMPLIES-V-KNOWNP) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . BVP-IMPLIES-V-KNOWNP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-IMPLIES-V-KNOWNP) (LEMMAS V-KNOWNP . BVP-IMPLIES-V-KNOWNP))))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE) (QUOTE (IDATE 1000402194415 IMMEDIATE-DEPENDENTS0 (READ-MEM1-MONOTONE-OFF1 READ-MEM1-MONOTONE-ON READ-MEM1-MONOTONE-OFF READ-MEM-MONOTONE) EVENT (PROVE-LEMMA READ-MEM1-MONOTONE (REWRITE) (IMPLIES (AND (BVP V-ADDR) (S-APPROX MEM1 MEM2)) (V-APPROX (READ-MEM1 V-ADDR MEM1) (READ-MEM1 V-ADDR MEM2))) ((ENABLE READ-MEM1) (INDUCT (READ-MEM1-MONOTONE-INDUCTION V-ADDR MEM1 MEM2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 ROM . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 RAM . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 STUB . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 READ-MEM1-MONOTONE-INDUCTION . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . READ-MEM1-MONOTONE) (IMMEDIATE-DEPENDENTS0 BVP . READ-MEM1-MONOTONE) (LEMMAS V-APPROX . READ-MEM1-MONOTONE))))) (PUT1-LST (QUOTE *1*READ-MEM1-MONOTONE-INDUCTION) (QUOTE (MAIN-EVENT READ-MEM1-MONOTONE-INDUCTION))) (PUT1-LST (QUOTE READ-MEM1-MONOTONE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM1-MONOTONE-INDUCTION 2 NIL NIL NIL)) TOTALP-LST ((READ-MEM1-MONOTONE-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V-ADDR MEM1 MEM2) (IF (STUBP MEM1) (QUOTE *1*TRUE) (IF (STUBP MEM2) (QUOTE *1*TRUE) (IF (LISTP V-ADDR) (IF (LISTP MEM1) (IF (LISTP MEM2) (IF (CAR V-ADDR) (READ-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (READ-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))))) LISP-CODE *1*READ-MEM1-MONOTONE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (STUBP MEM1) (OR (STUBP MEM2) (OR (NLISTP V-ADDR) (OR (NLISTP MEM1) (NLISTP MEM2)))))) NIL) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (OR (STUBP MEM2) (OR (NLISTP V-ADDR) (OR (NLISTP MEM1) (NLISTP MEM2)))))) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM1) (CDR MEM2)))) (TESTS-AND-CASES ((NOT (OR (STUBP MEM1) (OR (STUBP MEM2) (OR (NLISTP V-ADDR) (OR (NLISTP MEM1) (NLISTP MEM2)))))) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM1) (CAR MEM2))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM1) (COUNT MEM1) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM2) (COUNT MEM2) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194414 CONTROLLER-POCKETS (1 2 4) SATELLITES (*1*READ-MEM1-MONOTONE-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*READ-MEM1-MONOTONE-INDUCTION-ON READ-MEM1-MONOTONE-INDUCTION-ON G*1*READ-MEM1-MONOTONE-INDUCTION-OFF READ-MEM1-MONOTONE-INDUCTION-OFF READ-MEM1-MONOTONE) EVENT (DEFN READ-MEM1-MONOTONE-INDUCTION (V-ADDR MEM1 MEM2) (IF (OR (STUBP MEM1) (OR (STUBP MEM2) (OR (NLISTP V-ADDR) (OR (NLISTP MEM1) (NLISTP MEM2))))) (QUOTE *1*TRUE) (IF (CAR V-ADDR) (READ-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CDR MEM1) (CDR MEM2)) (READ-MEM1-MONOTONE-INDUCTION (CDR V-ADDR) (CAR MEM1) (CAR MEM2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . READ-MEM1-MONOTONE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . READ-MEM1-MONOTONE-INDUCTION) (DCELL . *1*READ-MEM1-MONOTONE-INDUCTION))))) (PUT1-LST (QUOTE V-APPROX-BVP) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (V-APPROX-BVP-OFF1 V-APPROX-BVP-ON V-APPROX-BVP-OFF) EVENT (PROVE-LEMMA V-APPROX-BVP (REWRITE) (IMPLIES (BVP X) (EQUAL (V-APPROX X Y) (EQUAL X Y))) ((ENABLE B-KNOWNP B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 BOOLP . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-APPROX-BVP) (IMMEDIATE-DEPENDENTS0 BVP . V-APPROX-BVP) (LEMMAS V-APPROX . V-APPROX-BVP))))) (PUT1-LST (QUOTE BVP-REVERSE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (BVP-REVERSE-OFF1 BVP-REVERSE-ON BVP-REVERSE-OFF READ-MEM-MONOTONE) EVENT (PROVE-LEMMA BVP-REVERSE (REWRITE) (IMPLIES (BVP X) (BVP (REVERSE X))) ((ENABLE REVERSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-REV1 . BVP-REVERSE) (IMMEDIATE-DEPENDENTS0 REVERSE . BVP-REVERSE) (IMMEDIATE-DEPENDENTS0 BVP . BVP-REVERSE) (LEMMAS BVP . BVP-REVERSE))))) (PUT1-LST (QUOTE BVP-REV1) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (BVP-REV1-ON BVP-REV1-OFF BVP-REVERSE) EVENT (PROVE-LEMMA BVP-REV1 (REWRITE) (IMPLIES (AND (BVP X) (BVP ACC)) (BVP (REV1 X ACC))) ((ENABLE BVP REV1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-REV1) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-REV1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-REV1) (IMMEDIATE-DEPENDENTS0 REV1 . BVP-REV1) (IMMEDIATE-DEPENDENTS0 BVP . BVP-REV1) (LEMMAS BVP . BVP-REV1))))) (PUT1-LST (QUOTE PRIMITIVES-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (PRIMP-MONOTONE) EVENT (DEFTHEORY PRIMITIVES-MONOTONE (AO2-MONOTONE AO4-MONOTONE AO6-MONOTONE AO7-MONOTONE B-AND-MONOTONE B-AND3-MONOTONE B-AND4-MONOTONE B-EQUV-MONOTONE B-EQUV3-MONOTONE B-IF-MONOTONE B-NAND-MONOTONE B-NAND3-MONOTONE B-NAND4-MONOTONE B-NAND5-MONOTONE B-NAND6-MONOTONE B-NAND8-MONOTONE B-NBUF-MONOTONE B-NOR-MONOTONE B-NOR3-MONOTONE B-NOR4-MONOTONE B-NOR5-MONOTONE B-NOR6-MONOTONE B-NOR8-MONOTONE B-NOT-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-IVAP-MONOTONE B-OR-MONOTONE B-OR3-MONOTONE B-OR4-MONOTONE B-XOR-MONOTONE B-XOR3-MONOTONE DEL2-MONOTONE DEL4-MONOTONE DEL10-MONOTONE PROCMON-MONOTONE FD1-MONOTONE FD1S-MONOTONE FD1SP-MONOTONE FD1SLP-MONOTONE ID-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE T-BUF-MONOTONE T-WIRE-MONOTONE PULLUP-MONOTONE TTL-BIDIRECT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-INPUT-MONOTONE TTL-OUTPUT-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE VDD-MONOTONE VDD-PARAMETRIC-MONOTONE VSS-MONOTONE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO6-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 AO7-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-EQUV-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-EQUV3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-IF-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND5-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND6-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NAND8-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NBUF-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR5-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR6-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOR8-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT-IVAP-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-XOR-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-XOR3-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL2-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL4-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 DEL10-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROCMON-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1S-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1SP-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 FD1SLP-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 ID-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 T-BUF-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 T-WIRE-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 PULLUP-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 VDD-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC-MONOTONE . PRIMITIVES-MONOTONE) (IMMEDIATE-DEPENDENTS0 VSS-MONOTONE . PRIMITIVES-MONOTONE))))) (PUT1-LST (QUOTE VSS-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (VSS-MONOTONE-ON VSS-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA VSS-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VSS) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VSS) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-VSS-VALUE DUAL-EVAL-VSS-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-STATE . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VSS-VALUE . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . VSS-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . VSS-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VSS-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VSS-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VSS-STATE-ON DUAL-EVAL-VSS-STATE-OFF VSS-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VSS-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VSS) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-VSS-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VSS-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VSS-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-VSS-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VSS-VALUE-ON DUAL-EVAL-VSS-VALUE-OFF VSS-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VSS-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VSS) ARGS STATE NETLIST) (QUOTE (*1*FALSE))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-VSS-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VSS-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VSS-VALUE))))) (PUT1-LST (QUOTE VDD-PARAMETRIC-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (VDD-PARAMETRIC-MONOTONE-ON VDD-PARAMETRIC-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA VDD-PARAMETRIC-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VDD-PARAMETRIC) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VDD-PARAMETRIC) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-STATE . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-PARAMETRIC-VALUE . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . VDD-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . VDD-PARAMETRIC-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VDD-PARAMETRIC-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VDD-PARAMETRIC-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VDD-PARAMETRIC-STATE-ON DUAL-EVAL-VDD-PARAMETRIC-STATE-OFF VDD-PARAMETRIC-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VDD-PARAMETRIC-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VDD-PARAMETRIC) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-VDD-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VDD-PARAMETRIC-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VDD-PARAMETRIC-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-PARAMETRIC-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VDD-PARAMETRIC-VALUE-ON DUAL-EVAL-VDD-PARAMETRIC-VALUE-OFF VDD-PARAMETRIC-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VDD-PARAMETRIC-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD-PARAMETRIC) ARGS STATE NETLIST) (QUOTE (*1*TRUE))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VDD-PARAMETRIC-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VDD-PARAMETRIC-VALUE))))) (PUT1-LST (QUOTE VDD-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (VDD-MONOTONE-ON VDD-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA VDD-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VDD) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VDD) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-VDD-VALUE DUAL-EVAL-VDD-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-STATE . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-VDD-VALUE . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . VDD-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . VDD-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VDD-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . VDD-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VDD-STATE-ON DUAL-EVAL-VDD-STATE-OFF VDD-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VDD-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VDD) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-VDD-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VDD-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VDD-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-VDD-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-VDD-VALUE-ON DUAL-EVAL-VDD-VALUE-OFF VDD-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-VDD-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD) ARGS STATE NETLIST) (QUOTE (*1*TRUE))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-VDD-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-VDD-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-VDD-VALUE))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-FAST-MONOTONE-ON TTL-TRI-OUTPUT-FAST-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-FAST-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-TRI-OUTPUT-FAST) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-TRI-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-FAST-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-FAST-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-FAST-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-TRI-OUTPUT-FAST) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR ARGS))) (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-MONOTONE-ON TTL-TRI-OUTPUT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-TRI-OUTPUT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-STATE . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-TRI-OUTPUT-VALUE . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-TRI-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-TRI-OUTPUT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-TRI-OUTPUT-STATE-ON DUAL-EVAL-TTL-TRI-OUTPUT-STATE-OFF TTL-TRI-OUTPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-TRI-OUTPUT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-TRI-OUTPUT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-ON DUAL-EVAL-TTL-TRI-OUTPUT-VALUE-OFF TTL-TRI-OUTPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-TRI-OUTPUT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR ARGS))) (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-TRI-OUTPUT-VALUE))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-FAST-MONOTONE-ON TTL-OUTPUT-FAST-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-OUTPUT-FAST-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT-FAST) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-STATE . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-FAST-VALUE . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-OUTPUT-FAST-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-OUTPUT-FAST-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-FAST-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-FAST-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-FAST-STATE-ON DUAL-EVAL-TTL-OUTPUT-FAST-STATE-OFF TTL-OUTPUT-FAST-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-FAST-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT-FAST) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-FAST-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-FAST-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-ON DUAL-EVAL-TTL-OUTPUT-FAST-VALUE-OFF TTL-OUTPUT-FAST-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-FAST-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-FAST-VALUE))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PARAMETRIC-MONOTONE-ON TTL-OUTPUT-PARAMETRIC-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-OUTPUT-PARAMETRIC-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT-PARAMETRIC) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-OUTPUT-PARAMETRIC-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-OUTPUT-PARAMETRIC-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-PARAMETRIC-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-PARAMETRIC-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE-OFF TTL-OUTPUT-PARAMETRIC-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-ON DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE-OFF TTL-OUTPUT-PARAMETRIC-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE))))) (PUT1-LST (QUOTE TTL-OUTPUT-MONOTONE) (QUOTE (IDATE 1000402194414 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-MONOTONE-ON TTL-OUTPUT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-OUTPUT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-STATE . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-OUTPUT-VALUE . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-OUTPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-OUTPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-OUTPUT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-STATE-ON DUAL-EVAL-TTL-OUTPUT-STATE-OFF TTL-OUTPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-OUTPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-OUTPUT-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-OUTPUT-VALUE-ON DUAL-EVAL-TTL-OUTPUT-VALUE-OFF TTL-OUTPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-OUTPUT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-OUTPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-OUTPUT-VALUE))))) (PUT1-LST (QUOTE TTL-INPUT-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (TTL-INPUT-MONOTONE-ON TTL-INPUT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-INPUT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-INPUT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-INPUT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-STATE . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-INPUT-VALUE . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-INPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-INPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-INPUT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-INPUT-STATE-ON DUAL-EVAL-TTL-INPUT-STATE-OFF TTL-INPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-INPUT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-INPUT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-INPUT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-INPUT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-INPUT-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-INPUT-VALUE-ON DUAL-EVAL-TTL-INPUT-VALUE-OFF TTL-INPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-INPUT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-INPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-INPUT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-INPUT-VALUE))))) (PUT1-LST (QUOTE TTL-CLK-INPUT-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (TTL-CLK-INPUT-MONOTONE-ON TTL-CLK-INPUT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-CLK-INPUT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-CLK-INPUT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-CLK-INPUT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-STATE . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-CLK-INPUT-VALUE . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-CLK-INPUT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-CLK-INPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-CLK-INPUT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-CLK-INPUT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-CLK-INPUT-STATE-ON DUAL-EVAL-TTL-CLK-INPUT-STATE-OFF TTL-CLK-INPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-CLK-INPUT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-CLK-INPUT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-CLK-INPUT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-CLK-INPUT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-CLK-INPUT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-CLK-INPUT-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-CLK-INPUT-VALUE-ON DUAL-EVAL-TTL-CLK-INPUT-VALUE-OFF TTL-CLK-INPUT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-CLK-INPUT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-CLK-INPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-CLK-INPUT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-CLK-INPUT-VALUE))))) (PUT1-LST (QUOTE TTL-BIDIRECT-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-MONOTONE-ON TTL-BIDIRECT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA TTL-BIDIRECT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-BIDIRECT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-BIDIRECT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-STATE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-WIRE-MONOTONE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-TTL-BIDIRECT-VALUE . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . TTL-BIDIRECT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . TTL-BIDIRECT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-BIDIRECT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . TTL-BIDIRECT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-BIDIRECT-STATE-ON DUAL-EVAL-TTL-BIDIRECT-STATE-OFF TTL-BIDIRECT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-BIDIRECT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-BIDIRECT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-TTL-BIDIRECT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-BIDIRECT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-BIDIRECT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-TTL-BIDIRECT-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-TTL-BIDIRECT-VALUE-ON DUAL-EVAL-TTL-BIDIRECT-VALUE-OFF TTL-BIDIRECT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-TTL-BIDIRECT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-BIDIRECT) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS))) (CONS (F-BUF (FT-WIRE (CAR ARGS) (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS))))) (CONS (F-NAND (FT-WIRE (CAR ARGS) (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS)))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . DUAL-EVAL-TTL-BIDIRECT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-TTL-BIDIRECT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-TTL-BIDIRECT-VALUE))))) (PUT1-LST (QUOTE PULLUP-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (PULLUP-MONOTONE-ON PULLUP-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA PULLUP-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE PULLUP) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE PULLUP) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-PULLUP-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-STATE . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-PULLUP-MONOTONE . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PULLUP-VALUE . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . PULLUP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PULLUP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PULLUP-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-PULLUP-STATE-ON DUAL-EVAL-PULLUP-STATE-OFF PULLUP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-PULLUP-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE PULLUP) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-PULLUP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-PULLUP-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-PULLUP-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-PULLUP-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-PULLUP-VALUE-ON DUAL-EVAL-PULLUP-VALUE-OFF PULLUP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-PULLUP-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PULLUP) ARGS STATE NETLIST) (CONS (F-PULLUP (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 F-PULLUP . DUAL-EVAL-PULLUP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-PULLUP-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-PULLUP-VALUE))))) (PUT1-LST (QUOTE T-WIRE-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (T-WIRE-MONOTONE-ON T-WIRE-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA T-WIRE-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE T-WIRE) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE T-WIRE) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-WIRE-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-STATE . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-WIRE-MONOTONE . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-WIRE-VALUE . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . T-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . T-WIRE-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . T-WIRE-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . T-WIRE-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-T-WIRE-STATE-ON DUAL-EVAL-T-WIRE-STATE-OFF T-WIRE-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-T-WIRE-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE T-WIRE) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-T-WIRE-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-T-WIRE-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-T-WIRE-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-T-WIRE-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-T-WIRE-VALUE-ON DUAL-EVAL-T-WIRE-VALUE-OFF T-WIRE-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-T-WIRE-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-WIRE) ARGS STATE NETLIST) (CONS (FT-WIRE (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . DUAL-EVAL-T-WIRE-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-T-WIRE-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-T-WIRE-VALUE))))) (PUT1-LST (QUOTE T-BUF-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (T-BUF-MONOTONE-ON T-BUF-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA T-BUF-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE T-BUF) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE T-BUF) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-T-BUF-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-STATE . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-T-BUF-VALUE . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . T-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . T-BUF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . T-BUF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . T-BUF-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-T-BUF-STATE-ON DUAL-EVAL-T-BUF-STATE-OFF T-BUF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-T-BUF-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE T-BUF) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-T-BUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-T-BUF-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-T-BUF-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-T-BUF-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-T-BUF-VALUE-ON DUAL-EVAL-T-BUF-VALUE-OFF T-BUF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-T-BUF-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-BUF) ARGS STATE NETLIST) (CONS (FT-BUF (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . DUAL-EVAL-T-BUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-T-BUF-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-T-BUF-VALUE))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (RAM-ENABLE-CIRCUIT-MONOTONE-ON RAM-ENABLE-CIRCUIT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA RAM-ENABLE-CIRCUIT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE RAM-ENABLE-CIRCUIT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . RAM-ENABLE-CIRCUIT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . RAM-ENABLE-CIRCUIT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . RAM-ENABLE-CIRCUIT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . RAM-ENABLE-CIRCUIT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE-OFF RAM-ENABLE-CIRCUIT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE RAM-ENABLE-CIRCUIT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-ON DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE-OFF RAM-ENABLE-CIRCUIT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) ARGS STATE NETLIST) (CONS (F-NAND (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE))))) (PUT1-LST (QUOTE ID-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (ID-MONOTONE-ON ID-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA ID-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE ID) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE ID) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-ID-VALUE DUAL-EVAL-ID-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-STATE . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ID-VALUE . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . ID-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . ID-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . ID-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . ID-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-ID-STATE-ON DUAL-EVAL-ID-STATE-OFF ID-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-ID-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE ID) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-ID-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-ID-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-ID-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-ID-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-ID-VALUE-ON DUAL-EVAL-ID-VALUE-OFF ID-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-ID-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ID) ARGS STATE NETLIST) (CONS (CAR ARGS) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-ID-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-ID-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-ID-VALUE))))) (PUT1-LST (QUOTE FD1SLP-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (FD1SLP-MONOTONE-ON FD1SLP-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA FD1SLP-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1SLP) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1SLP) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SLP-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-IF . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-STATE . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SLP-VALUE . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . FD1SLP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . FD1SLP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1SLP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1SLP-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-STATE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1SLP-STATE-ON DUAL-EVAL-FD1SLP-STATE-OFF FD1SLP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1SLP-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SLP) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR ARGS)))) (F-IF (CAR (CDR (CDR ARGS))) (CAR ARGS) STATE))) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 F-IF . DUAL-EVAL-FD1SLP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1SLP-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1SLP-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SLP-VALUE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1SLP-VALUE-ON DUAL-EVAL-FD1SLP-VALUE-OFF FD1SLP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1SLP-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SLP) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-FD1SLP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1SLP-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1SLP-VALUE))))) (PUT1-LST (QUOTE FD1SP-MONOTONE) (QUOTE (IDATE 1000402194413 IMMEDIATE-DEPENDENTS0 (FD1SP-MONOTONE-ON FD1SP-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA FD1SP-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1SP) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1SP) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1SP-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-IF . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-STATE . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1SP-VALUE . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . FD1SP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . FD1SP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1SP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1SP-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1SP-STATE-ON DUAL-EVAL-FD1SP-STATE-OFF FD1SP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1SP-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SP) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR ARGS))) (CAR ARGS))) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 F-IF . DUAL-EVAL-FD1SP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1SP-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1SP-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1SP-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1SP-VALUE-ON DUAL-EVAL-FD1SP-VALUE-OFF FD1SP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1SP-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SP) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-FD1SP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1SP-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1SP-VALUE))))) (PUT1-LST (QUOTE FD1S-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (FD1S-MONOTONE-ON FD1S-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA FD1S-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1S) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1S) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1S-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-IF . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-STATE . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1S-VALUE . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . FD1S-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . FD1S-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1S-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1S-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1S-STATE-ON DUAL-EVAL-FD1S-STATE-OFF FD1S-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1S-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1S) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR ARGS))) (CAR ARGS))) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 F-IF . DUAL-EVAL-FD1S-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1S-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1S-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1S-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1S-VALUE-ON DUAL-EVAL-FD1S-VALUE-OFF FD1S-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1S-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1S) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-FD1S-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1S-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1S-VALUE))))) (PUT1-LST (QUOTE FD1-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (FD1-MONOTONE-ON FD1-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA FD1-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-FD1-VALUE DUAL-EVAL-FD1-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-STATE . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-FD1-VALUE . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . FD1-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . FD1-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . FD1-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1-STATE-ON DUAL-EVAL-FD1-STATE-OFF FD1-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1) ARGS STATE NETLIST) (F-BUF (CAR ARGS))) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-FD1-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-FD1-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-FD1-VALUE-ON DUAL-EVAL-FD1-VALUE-OFF FD1-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-FD1-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-FD1-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-FD1-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-FD1-VALUE))))) (PUT1-LST (QUOTE PROCMON-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (PROCMON-MONOTONE-ON PROCMON-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA PROCMON-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE PROCMON) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE PROCMON) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-PROCMON-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-STATE . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-IF . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-PROCMON-VALUE . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . PROCMON-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . PROCMON-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PROCMON-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . PROCMON-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-PROCMON-STATE-ON DUAL-EVAL-PROCMON-STATE-OFF PROCMON-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-PROCMON-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE PROCMON) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-PROCMON-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-PROCMON-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-PROCMON-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-PROCMON-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-PROCMON-VALUE-ON DUAL-EVAL-PROCMON-VALUE-OFF PROCMON-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-PROCMON-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PROCMON) ARGS STATE NETLIST) (CONS (F-IF (CAR (CDR (CDR ARGS))) (F-IF (CAR (CDR ARGS)) (F-IF (CAR ARGS) (QUOTE *1*FALSE) (QUOTE *1*FALSE)) (CAR ARGS)) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . DUAL-EVAL-PROCMON-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-PROCMON-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-PROCMON-VALUE))))) (PUT1-LST (QUOTE DEL10-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DEL10-MONOTONE-ON DEL10-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA DEL10-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL10) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL10) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL10-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-STATE . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL10-VALUE . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . DEL10-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DEL10-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL10-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL10-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL10-STATE-ON DUAL-EVAL-DEL10-STATE-OFF DEL10-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL10-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL10) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-DEL10-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL10-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL10-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL10-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL10-VALUE-ON DUAL-EVAL-DEL10-VALUE-OFF DEL10-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL10-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL10) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-DEL10-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL10-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL10-VALUE))))) (PUT1-LST (QUOTE DEL4-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DEL4-MONOTONE-ON DEL4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA DEL4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-STATE . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL4-VALUE . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . DEL4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DEL4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL4-STATE-ON DUAL-EVAL-DEL4-STATE-OFF DEL4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-DEL4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL4-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL4-VALUE-ON DUAL-EVAL-DEL4-VALUE-OFF DEL4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL4) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-DEL4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL4-VALUE))))) (PUT1-LST (QUOTE DEL2-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DEL2-MONOTONE-ON DEL2-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA DEL2-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL2) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL2) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-DEL2-VALUE DUAL-EVAL-DEL2-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-STATE . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-DEL2-VALUE . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . DEL2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . DEL2-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL2-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . DEL2-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL2-STATE-ON DUAL-EVAL-DEL2-STATE-OFF DEL2-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL2-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL2) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-DEL2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL2-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL2-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-DEL2-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-DEL2-VALUE-ON DUAL-EVAL-DEL2-VALUE-OFF DEL2-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-DEL2-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL2) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-DEL2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-DEL2-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-DEL2-VALUE))))) (PUT1-LST (QUOTE B-XOR3-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-XOR3-MONOTONE-ON B-XOR3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-XOR3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-XOR3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-XOR3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-STATE . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-XOR3-MONOTONE . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR3-VALUE . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-XOR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-XOR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-XOR3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-XOR3-STATE-ON DUAL-EVAL-B-XOR3-STATE-OFF B-XOR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-XOR3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-XOR3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-XOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-XOR3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-XOR3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR3-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-XOR3-VALUE-ON DUAL-EVAL-B-XOR3-VALUE-OFF B-XOR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-XOR3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR3) ARGS STATE NETLIST) (CONS (F-XOR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR3 . DUAL-EVAL-B-XOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-XOR3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-XOR3-VALUE))))) (PUT1-LST (QUOTE B-XOR-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-XOR-MONOTONE-ON B-XOR-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-XOR-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-XOR) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-XOR) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-XOR-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-STATE . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-XOR-VALUE . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-XOR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-XOR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-XOR-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-XOR-STATE-ON DUAL-EVAL-B-XOR-STATE-OFF B-XOR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-XOR-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-XOR) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-XOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-XOR-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-XOR-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-XOR-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-XOR-VALUE-ON DUAL-EVAL-B-XOR-VALUE-OFF B-XOR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-XOR-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR) ARGS STATE NETLIST) (CONS (F-XOR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . DUAL-EVAL-B-XOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-XOR-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-XOR-VALUE))))) (PUT1-LST (QUOTE B-OR4-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-OR4-MONOTONE-ON B-OR4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-OR4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-STATE . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR4-MONOTONE . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR4-VALUE . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-OR4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR4-STATE-ON DUAL-EVAL-B-OR4-STATE-OFF B-OR4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-OR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR4-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR4-VALUE-ON DUAL-EVAL-B-OR4-VALUE-OFF B-OR4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) ARGS STATE NETLIST) (CONS (F-OR4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 F-OR4 . DUAL-EVAL-B-OR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR4-VALUE))))) (PUT1-LST (QUOTE B-OR3-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-OR3-MONOTONE-ON B-OR3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-OR3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-STATE . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR3-MONOTONE . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR3-VALUE . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-OR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR3-STATE-ON DUAL-EVAL-B-OR3-STATE-OFF B-OR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-OR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR3-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR3-VALUE-ON DUAL-EVAL-B-OR3-VALUE-OFF B-OR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR3) ARGS STATE NETLIST) (CONS (F-OR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 F-OR3 . DUAL-EVAL-B-OR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR3-VALUE))))) (PUT1-LST (QUOTE B-OR-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-OR-MONOTONE-ON B-OR-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-OR-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-OR-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-STATE . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-OR-VALUE . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-OR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-OR-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR-STATE-ON DUAL-EVAL-B-OR-STATE-OFF B-OR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-OR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-OR-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-OR-VALUE-ON DUAL-EVAL-B-OR-VALUE-OFF B-OR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-OR-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR) ARGS STATE NETLIST) (CONS (F-OR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . DUAL-EVAL-B-OR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-OR-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-OR-VALUE))))) (PUT1-LST (QUOTE B-NOT-IVAP-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-NOT-IVAP-MONOTONE-ON B-NOT-IVAP-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOT-IVAP-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT-IVAP) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT-IVAP) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-IVAP-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-STATE . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-IVAP-VALUE . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOT-IVAP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOT-IVAP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-IVAP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-IVAP-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-IVAP-STATE-ON DUAL-EVAL-B-NOT-IVAP-STATE-OFF B-NOT-IVAP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-IVAP-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT-IVAP) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOT-IVAP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-IVAP-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-IVAP-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-IVAP-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-IVAP-VALUE-ON DUAL-EVAL-B-NOT-IVAP-VALUE-OFF B-NOT-IVAP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-IVAP-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-IVAP) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-B-NOT-IVAP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-IVAP-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-IVAP-VALUE))))) (PUT1-LST (QUOTE B-NOT-B4IP-MONOTONE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (B-NOT-B4IP-MONOTONE-ON B-NOT-B4IP-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOT-B4IP-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT-B4IP) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT-B4IP) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-STATE . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-B4IP-VALUE . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOT-B4IP-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOT-B4IP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-B4IP-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-B4IP-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-STATE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-B4IP-STATE-ON DUAL-EVAL-B-NOT-B4IP-STATE-OFF B-NOT-B4IP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-B4IP-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT-B4IP) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOT-B4IP-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-B4IP-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-B4IP-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-B4IP-VALUE) (QUOTE (IDATE 1000402194412 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-B4IP-VALUE-ON DUAL-EVAL-B-NOT-B4IP-VALUE-OFF B-NOT-B4IP-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-B4IP-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-B4IP) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-B-NOT-B4IP-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-B4IP-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-B4IP-VALUE))))) (PUT1-LST (QUOTE B-NOT-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOT-MONOTONE-ON B-NOT-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOT-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOT-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-STATE . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOT-VALUE . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOT-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-STATE-ON DUAL-EVAL-B-NOT-STATE-OFF B-NOT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOT-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOT-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOT-VALUE-ON DUAL-EVAL-B-NOT-VALUE-OFF B-NOT-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOT-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-B-NOT-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOT-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOT-VALUE))))) (PUT1-LST (QUOTE B-NOR8-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR8-MONOTONE-ON B-NOR8-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR8-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR8) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR8) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR8-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR A1))))) (CDR (CDR (CDR (CDR (CDR A2)))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR (CDR A1)))))) (CDR (CDR (CDR (CDR (CDR (CDR A2))))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR (CDR (CDR A1))))))) (CDR (CDR (CDR (CDR (CDR (CDR (CDR A2))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-STATE . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR8-MONOTONE . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR8-VALUE . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR8-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR8-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR8-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR8-STATE-ON DUAL-EVAL-B-NOR8-STATE-OFF B-NOR8-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR8-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR8) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR8-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR8-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR8-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR8-VALUE-ON DUAL-EVAL-B-NOR8-VALUE-OFF B-NOR8-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR8-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR8) ARGS STATE NETLIST) (CONS (F-NOR8 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR8 . DUAL-EVAL-B-NOR8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR8-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR8-VALUE))))) (PUT1-LST (QUOTE B-NOR6-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR6-MONOTONE-ON B-NOR6-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR6-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR6) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR6) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR6-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR A1))))) (CDR (CDR (CDR (CDR (CDR A2))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-STATE . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR6-MONOTONE . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR6-VALUE . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR6-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR6-STATE-ON DUAL-EVAL-B-NOR6-STATE-OFF B-NOR6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR6-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR6) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR6-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR6-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR6-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR6-VALUE-ON DUAL-EVAL-B-NOR6-VALUE-OFF B-NOR6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR6-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR6) ARGS STATE NETLIST) (CONS (F-NOR6 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR6 . DUAL-EVAL-B-NOR6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR6-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR6-VALUE))))) (PUT1-LST (QUOTE B-NOR5-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR5-MONOTONE-ON B-NOR5-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR5-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR5) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR5) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR5-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-STATE . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR5-MONOTONE . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR5-VALUE . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR5-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR5-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR5-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR5-STATE-ON DUAL-EVAL-B-NOR5-STATE-OFF B-NOR5-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR5-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR5) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR5-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR5-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR5-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR5-VALUE-ON DUAL-EVAL-B-NOR5-VALUE-OFF B-NOR5-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR5-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR5) ARGS STATE NETLIST) (CONS (F-NOR5 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR5 . DUAL-EVAL-B-NOR5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR5-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR5-VALUE))))) (PUT1-LST (QUOTE B-NOR4-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR4-MONOTONE-ON B-NOR4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-STATE . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR4-MONOTONE . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR4-VALUE . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR4-STATE-ON DUAL-EVAL-B-NOR4-STATE-OFF B-NOR4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR4-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR4-VALUE-ON DUAL-EVAL-B-NOR4-VALUE-OFF B-NOR4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR4) ARGS STATE NETLIST) (CONS (F-NOR4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR4 . DUAL-EVAL-B-NOR4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR4-VALUE))))) (PUT1-LST (QUOTE B-NOR3-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR3-MONOTONE-ON B-NOR3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-STATE . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR3-MONOTONE . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR3-VALUE . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR3-STATE-ON DUAL-EVAL-B-NOR3-STATE-OFF B-NOR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR3-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR3-VALUE-ON DUAL-EVAL-B-NOR3-VALUE-OFF B-NOR3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR3) ARGS STATE NETLIST) (CONS (F-NOR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR3 . DUAL-EVAL-B-NOR3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR3-VALUE))))) (PUT1-LST (QUOTE B-NOR-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NOR-MONOTONE-ON B-NOR-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NOR-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NOR-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-STATE . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NOR-VALUE . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NOR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NOR-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR-STATE-ON DUAL-EVAL-B-NOR-STATE-OFF B-NOR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NOR-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NOR-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NOR-VALUE-ON DUAL-EVAL-B-NOR-VALUE-OFF B-NOR-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NOR-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR) ARGS STATE NETLIST) (CONS (F-NOR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . DUAL-EVAL-B-NOR-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NOR-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NOR-VALUE))))) (PUT1-LST (QUOTE B-NBUF-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NBUF-MONOTONE-ON B-NBUF-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NBUF-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NBUF) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NBUF) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NBUF-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-STATE . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-BUF . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NBUF-VALUE . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NBUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NBUF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NBUF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NBUF-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-STATE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NBUF-STATE-ON DUAL-EVAL-B-NBUF-STATE-OFF B-NBUF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NBUF-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NBUF) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NBUF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NBUF-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NBUF-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NBUF-VALUE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NBUF-VALUE-ON DUAL-EVAL-B-NBUF-VALUE-OFF B-NBUF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NBUF-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NBUF) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL)))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DUAL-EVAL-B-NBUF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NBUF-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NBUF-VALUE))))) (PUT1-LST (QUOTE B-NAND8-MONOTONE) (QUOTE (IDATE 1000402194411 IMMEDIATE-DEPENDENTS0 (B-NAND8-MONOTONE-ON B-NAND8-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND8-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND8) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND8) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND8-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR A1))))) (CDR (CDR (CDR (CDR (CDR A2)))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR (CDR A1)))))) (CDR (CDR (CDR (CDR (CDR (CDR A2))))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR (CDR (CDR A1))))))) (CDR (CDR (CDR (CDR (CDR (CDR (CDR A2))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-STATE . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND8-MONOTONE . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND8-VALUE . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND8-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND8-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND8-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND8-STATE-ON DUAL-EVAL-B-NAND8-STATE-OFF B-NAND8-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND8-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND8) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND8-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND8-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND8-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND8-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND8-VALUE-ON DUAL-EVAL-B-NAND8-VALUE-OFF B-NAND8-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND8-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND8) ARGS STATE NETLIST) (CONS (F-NAND8 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND8 . DUAL-EVAL-B-NAND8-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND8-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND8-VALUE))))) (PUT1-LST (QUOTE B-NAND6-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-NAND6-MONOTONE-ON B-NAND6-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND6-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND6) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND6) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND6-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2))))) (V-APPROX (CDR (CDR (CDR (CDR (CDR A1))))) (CDR (CDR (CDR (CDR (CDR A2))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-STATE . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND6-MONOTONE . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND6-VALUE . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND6-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND6-STATE-ON DUAL-EVAL-B-NAND6-STATE-OFF B-NAND6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND6-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND6) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND6-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND6-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND6-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND6-VALUE-ON DUAL-EVAL-B-NAND6-VALUE-OFF B-NAND6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND6-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND6) ARGS STATE NETLIST) (CONS (F-NAND6 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND6 . DUAL-EVAL-B-NAND6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND6-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND6-VALUE))))) (PUT1-LST (QUOTE B-NAND5-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-NAND5-MONOTONE-ON B-NAND5-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND5-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND5) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND5) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND5-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2)))) (V-APPROX (CDR (CDR (CDR (CDR A1)))) (CDR (CDR (CDR (CDR A2)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-STATE . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND5-MONOTONE . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND5-VALUE . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND5-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND5-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND5-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND5-STATE-ON DUAL-EVAL-B-NAND5-STATE-OFF B-NAND5-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND5-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND5) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND5-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND5-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND5-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND5-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND5-VALUE-ON DUAL-EVAL-B-NAND5-VALUE-OFF B-NAND5-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND5-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND5) ARGS STATE NETLIST) (CONS (F-NAND5 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND5 . DUAL-EVAL-B-NAND5-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND5-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND5-VALUE))))) (PUT1-LST (QUOTE B-NAND4-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-NAND4-MONOTONE-ON B-NAND4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-STATE . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND4-MONOTONE . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND4-VALUE . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND4-STATE-ON DUAL-EVAL-B-NAND4-STATE-OFF B-NAND4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND4-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND4-VALUE-ON DUAL-EVAL-B-NAND4-VALUE-OFF B-NAND4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND4) ARGS STATE NETLIST) (CONS (F-NAND4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND4 . DUAL-EVAL-B-NAND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND4-VALUE))))) (PUT1-LST (QUOTE B-NAND3-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-NAND3-MONOTONE-ON B-NAND3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-STATE . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND3-MONOTONE . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND3-VALUE . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND3-STATE-ON DUAL-EVAL-B-NAND3-STATE-OFF B-NAND3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND3-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND3-VALUE-ON DUAL-EVAL-B-NAND3-VALUE-OFF B-NAND3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND3) ARGS STATE NETLIST) (CONS (F-NAND3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND3 . DUAL-EVAL-B-NAND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND3-VALUE))))) (PUT1-LST (QUOTE B-NAND-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-NAND-MONOTONE-ON B-NAND-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-NAND-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-NAND-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-STATE . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-NAND-VALUE . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-NAND-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-NAND-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND-STATE-ON DUAL-EVAL-B-NAND-STATE-OFF B-NAND-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-NAND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-NAND-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-NAND-VALUE-ON DUAL-EVAL-B-NAND-VALUE-OFF B-NAND-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-NAND-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND) ARGS STATE NETLIST) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-B-NAND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-NAND-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-NAND-VALUE))))) (PUT1-LST (QUOTE B-IF-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-IF-MONOTONE-ON B-IF-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-IF-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-IF) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-IF) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-IF-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-STATE . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-IMPLIES-S-APPROX-IS-B-APPROX . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP-F-IF . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX-IMPLIES-B-APPROX . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-IF-VALUE . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-IF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-IF-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-IF-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-IF-STATE-ON DUAL-EVAL-B-IF-STATE-OFF B-IF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-IF-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-IF) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-IF-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-IF-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-IF-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-IF-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-IF-VALUE-ON DUAL-EVAL-B-IF-VALUE-OFF B-IF-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-IF-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-IF) ARGS STATE NETLIST) (CONS (F-IF (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . DUAL-EVAL-B-IF-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-IF-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-IF-VALUE))))) (PUT1-LST (QUOTE B-EQUV3-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-EQUV3-MONOTONE-ON B-EQUV3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-EQUV3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-EQUV3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-EQUV3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-STATE . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-EQUV3-MONOTONE . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV3-VALUE . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-EQUV3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-EQUV3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-EQUV3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-EQUV3-STATE-ON DUAL-EVAL-B-EQUV3-STATE-OFF B-EQUV3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-EQUV3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-EQUV3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-EQUV3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-EQUV3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-EQUV3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV3-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-EQUV3-VALUE-ON DUAL-EVAL-B-EQUV3-VALUE-OFF B-EQUV3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-EQUV3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV3) ARGS STATE NETLIST) (CONS (F-EQUV3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . DUAL-EVAL-B-EQUV3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-EQUV3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-EQUV3-VALUE))))) (PUT1-LST (QUOTE B-EQUV-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-EQUV-MONOTONE-ON B-EQUV-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-EQUV-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-EQUV) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-EQUV) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-EQUV-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-STATE . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-EQUV-MONOTONE . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-EQUV-VALUE . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-EQUV-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-EQUV-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-EQUV-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-EQUV-STATE-ON DUAL-EVAL-B-EQUV-STATE-OFF B-EQUV-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-EQUV-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-EQUV) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-EQUV-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-EQUV-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-EQUV-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-EQUV-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-EQUV-VALUE-ON DUAL-EVAL-B-EQUV-VALUE-OFF B-EQUV-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-EQUV-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV) ARGS STATE NETLIST) (CONS (F-EQUV (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 F-EQUV . DUAL-EVAL-B-EQUV-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-EQUV-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-EQUV-VALUE))))) (PUT1-LST (QUOTE B-AND4-MONOTONE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (B-AND4-MONOTONE-ON B-AND4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-AND4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-STATE . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND4-MONOTONE . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND4-VALUE . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-AND4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-STATE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND4-STATE-ON DUAL-EVAL-B-AND4-STATE-OFF B-AND4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-AND4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND4-VALUE) (QUOTE (IDATE 1000402194410 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND4-VALUE-ON DUAL-EVAL-B-AND4-VALUE-OFF B-AND4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) ARGS STATE NETLIST) (CONS (F-AND4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND4 . DUAL-EVAL-B-AND4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND4-VALUE))))) (PUT1-LST (QUOTE B-AND3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (B-AND3-MONOTONE-ON B-AND3-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-AND3-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND3) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND3) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND3-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-STATE . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND3-MONOTONE . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND3-VALUE . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-AND3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND3-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND3-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND3-STATE-ON DUAL-EVAL-B-AND3-STATE-OFF B-AND3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND3-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND3) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-AND3-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND3-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND3-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND3-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND3-VALUE-ON DUAL-EVAL-B-AND3-VALUE-OFF B-AND3-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND3-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND3) ARGS STATE NETLIST) (CONS (F-AND3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND3 . DUAL-EVAL-B-AND3-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND3-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND3-VALUE))))) (PUT1-LST (QUOTE B-AND-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (B-AND-MONOTONE-ON B-AND-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA B-AND-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-B-AND-VALUE DUAL-EVAL-B-AND-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-STATE . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-B-AND-VALUE . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . B-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . B-AND-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . B-AND-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND-STATE-ON DUAL-EVAL-B-AND-STATE-OFF B-AND-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-B-AND-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-B-AND-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-B-AND-VALUE-ON DUAL-EVAL-B-AND-VALUE-OFF B-AND-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-B-AND-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND) ARGS STATE NETLIST) (CONS (F-AND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . DUAL-EVAL-B-AND-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-B-AND-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-B-AND-VALUE))))) (PUT1-LST (QUOTE AO7-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (AO7-MONOTONE-ON AO7-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA AO7-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO7) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO7) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO7-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-STATE . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO7-VALUE . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . AO7-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . AO7-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO7-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO7-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO7-STATE-ON DUAL-EVAL-AO7-STATE-OFF AO7-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO7-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO7) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-AO7-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO7-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO7-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO7-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO7-VALUE-ON DUAL-EVAL-AO7-VALUE-OFF AO7-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO7-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO7) ARGS STATE NETLIST) (CONS (F-NAND (F-OR (CAR ARGS) (CAR (CDR ARGS))) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-AO7-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO7-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO7-VALUE))))) (PUT1-LST (QUOTE AO6-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (AO6-MONOTONE-ON AO6-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA AO6-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO6) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO6) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO6-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-STATE . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO6-VALUE . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . AO6-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . AO6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO6-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO6-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO6-STATE-ON DUAL-EVAL-AO6-STATE-OFF AO6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO6-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO6) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-AO6-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO6-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO6-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO6-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO6-VALUE-ON DUAL-EVAL-AO6-VALUE-OFF AO6-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO6-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO6) ARGS STATE NETLIST) (CONS (F-NOR (F-AND (CAR ARGS) (CAR (CDR ARGS))) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . DUAL-EVAL-AO6-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO6-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO6-VALUE))))) (PUT1-LST (QUOTE AO4-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (AO4-MONOTONE-ON AO4-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA AO4-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO4) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO4) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO4-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-STATE . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO4-VALUE . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . AO4-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . AO4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO4-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO4-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO4-STATE-ON DUAL-EVAL-AO4-STATE-OFF AO4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO4-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO4) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-AO4-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO4-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO4-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO4-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO4-VALUE-ON DUAL-EVAL-AO4-VALUE-OFF AO4-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO4-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO4) ARGS STATE NETLIST) (CONS (F-NAND (F-OR (CAR ARGS) (CAR (CDR ARGS))) (F-OR (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . DUAL-EVAL-AO4-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO4-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO4-VALUE))))) (PUT1-LST (QUOTE AO2-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (AO2-MONOTONE-ON AO2-MONOTONE-OFF PRIMP-MONOTONE PRIMITIVES-MONOTONE) EVENT (PROVE-LEMMA AO2-MONOTONE (REWRITE) (AND (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO2) NETLIST A1 A2 S1 S2) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO2) NETLIST A1 A2 S1 S2)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO MONOTONICITY-LEMMAS) (ENABLE *1*B-APPROX *1*V-APPROX *1*S-APPROX V-APPROX MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-2 DUAL-EVAL-AO2-VALUE DUAL-EVAL-AO2-STATE S-APPROX-IMPLIES-B-APPROX FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-BUF FOURP-F-IF) (EXPAND (V-APPROX A1 A2) (V-APPROX (CDR A1) (CDR A2)) (V-APPROX (CDR (CDR A1)) (CDR (CDR A2))) (V-APPROX (CDR (CDR (CDR A1))) (CDR (CDR (CDR A2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-STATE . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 S-APPROX . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 V-APPROX . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-AO2-VALUE . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-LEMMAS . AO2-MONOTONE) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . AO2-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO2-MONOTONE) (LEMMAS MONOTONICITY-PROPERTY . AO2-MONOTONE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-STATE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO2-STATE-ON DUAL-EVAL-AO2-STATE-OFF AO2-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO2-STATE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO2) ARGS STATE NETLIST) (QUOTE 0)) ((ENABLE DUAL-EVAL DUAL-APPLY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-2-PRIMP . DUAL-EVAL-AO2-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO2-STATE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO2-STATE))))) (PUT1-LST (QUOTE DUAL-EVAL-AO2-VALUE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-AO2-VALUE-ON DUAL-EVAL-AO2-VALUE-OFF AO2-MONOTONE) EVENT (PROVE-LEMMA DUAL-EVAL-AO2-VALUE (REWRITE) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO2) ARGS STATE NETLIST) (CONS (F-NOR (F-AND (CAR ARGS) (CAR (CDR ARGS))) (F-AND (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) ((ENABLE DUAL-EVAL DUAL-APPLY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-0-PRIMP . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . DUAL-EVAL-AO2-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-AO2-VALUE) (LEMMAS DUAL-EVAL . DUAL-EVAL-AO2-VALUE))))) (PUT1-LST (QUOTE FOURP-IMPLIES-S-APPROX-IS-B-APPROX) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON1 FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF1 FOURP-IMPLIES-S-APPROX-IS-B-APPROX-ON FOURP-IMPLIES-S-APPROX-IS-B-APPROX-OFF TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-NBUF-MONOTONE B-IF-MONOTONE) EVENT (PROVE-LEMMA FOURP-IMPLIES-S-APPROX-IS-B-APPROX (REWRITE) (IMPLIES (AND (FOURP X) (AND (FOURP Y) (B-APPROX X Y))) (EQUAL (S-APPROX X Y) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX) (IMMEDIATE-DEPENDENTS0 B-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX) (IMMEDIATE-DEPENDENTS0 FOURP . FOURP-IMPLIES-S-APPROX-IS-B-APPROX) (LEMMAS S-APPROX . FOURP-IMPLIES-S-APPROX-IS-B-APPROX))))) (PUT1-LST (QUOTE FOURP-F-IF) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (FOURP-F-IF-ON FOURP-F-IF-OFF FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE PROCMON-MONOTONE B-IF-MONOTONE) EVENT (PROVE-LEMMA FOURP-F-IF (REWRITE) (FOURP (F-IF X Y Z)) ((ENABLE F-IF) (DISABLE F-IF-REWRITE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . FOURP-F-IF) (IMMEDIATE-DEPENDENTS0 THREEFIX . FOURP-F-IF) (IMMEDIATE-DEPENDENTS0 F-IF . FOURP-F-IF) (IMMEDIATE-DEPENDENTS0 FOURP . FOURP-F-IF) (LEMMAS FOURP . FOURP-F-IF))))) (PUT1-LST (QUOTE FOURP-F-BUF) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (FOURP-F-BUF-ON FOURP-F-BUF-OFF TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-NBUF-MONOTONE) EVENT (PROVE-LEMMA FOURP-F-BUF (REWRITE) (FOURP (F-BUF X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF . FOURP-F-BUF) (IMMEDIATE-DEPENDENTS0 FOURP . FOURP-F-BUF) (LEMMAS FOURP . FOURP-F-BUF))))) (PUT1-LST (QUOTE F-BUF-TYPE-SET) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-BUF-TYPE-SET-ON F-BUF-TYPE-SET-OFF) EVENT (PROVE-LEMMA F-BUF-TYPE-SET (REWRITE) (OR (TRUEP (F-BUF X)) (OR (FALSEP (F-BUF X)) (XP (F-BUF X)))) ((ENABLE F-BUF BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . F-BUF-TYPE-SET) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF-TYPE-SET) (IMMEDIATE-DEPENDENTS0 X . F-BUF-TYPE-SET) (IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-TYPE-SET) (TYPE-PRESCRIPTION-LST F-BUF . F-BUF-TYPE-SET))))) (PUT1-LST (QUOTE S-APPROX-IMPLIES-B-APPROX) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (S-APPROX-IMPLIES-B-APPROX-ON S-APPROX-IMPLIES-B-APPROX-OFF S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 V-APPROX-SUBRANGE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM1-MONOTONE V-APPROX-X-X TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-NBUF-MONOTONE B-IF-MONOTONE) EVENT (PROVE-LEMMA S-APPROX-IMPLIES-B-APPROX (REWRITE) (IMPLIES (S-APPROX X Y) (B-APPROX X Y)) ((ENABLE B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . S-APPROX-IMPLIES-B-APPROX) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-APPROX-IMPLIES-B-APPROX) (IMMEDIATE-DEPENDENTS0 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL . S-APPROX-IMPLIES-B-APPROX) (IMMEDIATE-DEPENDENTS0 B-APPROX . S-APPROX-IMPLIES-B-APPROX) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-IMPLIES-B-APPROX) (LEMMAS B-APPROX . S-APPROX-IMPLIES-B-APPROX))))) (PUT1-LST (QUOTE DUAL-EVAL-2-PRIMP) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-2-PRIMP-ON DUAL-EVAL-2-PRIMP-OFF GOOD-S-PRESERVED DP-RAM-16X32-MONOTONE-STATE DUAL-EVAL-VSS-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-ID-STATE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1-STATE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL2-STATE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND-STATE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO2-STATE) EVENT (PROVE-LEMMA DUAL-EVAL-2-PRIMP (REWRITE) (IMPLIES (PRIMP NAME) (EQUAL (DUAL-EVAL (QUOTE 2) NAME ARGS STATE NETLIST) (DUAL-APPLY-STATE NAME ARGS STATE))) ((ENABLE DUAL-EVAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL-2-PRIMP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-2-PRIMP) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-2-PRIMP) (LEMMAS DUAL-EVAL . DUAL-EVAL-2-PRIMP))))) (PUT1-LST (QUOTE DUAL-EVAL-0-PRIMP) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-0-PRIMP-ON DUAL-EVAL-0-PRIMP-OFF GOOD-S-PRESERVED DP-RAM-16X32-MONOTONE-VALUE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-VALUE) EVENT (PROVE-LEMMA DUAL-EVAL-0-PRIMP (REWRITE) (IMPLIES (PRIMP NAME) (EQUAL (DUAL-EVAL (QUOTE 0) NAME ARGS STATE NETLIST) (DUAL-APPLY-VALUE NAME ARGS STATE))) ((ENABLE DUAL-EVAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL-0-PRIMP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-0-PRIMP) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL-0-PRIMP) (LEMMAS DUAL-EVAL . DUAL-EVAL-0-PRIMP))))) (PUT1-LST (QUOTE B-APPROX-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE B-APPROX-OFF B-APPROX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . B-APPROX-OFF) (DISABLED-LEMMAS NIL B-APPROX B-APPROX-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-LEMMAS) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE) EVENT (DEFTHEORY MONOTONICITY-LEMMAS (F-BUF-MONOTONE F-AND-MONOTONE F-AND3-MONOTONE F-AND4-MONOTONE F-NOT-MONOTONE F-NAND-MONOTONE F-NAND3-MONOTONE F-NAND4-MONOTONE F-NAND5-MONOTONE F-NAND6-MONOTONE F-NAND8-MONOTONE F-OR-MONOTONE F-OR3-MONOTONE F-OR4-MONOTONE F-NOR-MONOTONE F-NOR3-MONOTONE F-NOR4-MONOTONE F-NOR5-MONOTONE F-NOR6-MONOTONE F-NOR8-MONOTONE F-XOR-MONOTONE F-XOR3-MONOTONE F-EQUV-MONOTONE F-EQUV3-MONOTONE F-IF-MONOTONE FT-BUF-MONOTONE FT-WIRE-MONOTONE F-PULLUP-MONOTONE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND4-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND4-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND5-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND6-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND8-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR4-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR4-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR5-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR6-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR8-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV3-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-IF-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 FT-BUF-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 FT-WIRE-MONOTONE . MONOTONICITY-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-PULLUP-MONOTONE . MONOTONICITY-LEMMAS))))) (PUT1-LST (QUOTE F-PULLUP-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-PULLUP-OFF F-PULLUP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP . F-PULLUP-OFF) (DISABLED-LEMMAS NIL F-PULLUP F-PULLUP-OFF . T))))) (PUT1-LST (QUOTE FT-WIRE-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE FT-WIRE-OFF FT-WIRE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE . FT-WIRE-OFF) (DISABLED-LEMMAS NIL FT-WIRE FT-WIRE-OFF . T))))) (PUT1-LST (QUOTE FT-BUF-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE FT-BUF-OFF FT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF . FT-BUF-OFF) (DISABLED-LEMMAS NIL FT-BUF FT-BUF-OFF . T))))) (PUT1-LST (QUOTE F-IF-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-IF-OFF F-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF . F-IF-OFF) (DISABLED-LEMMAS NIL F-IF F-IF-OFF . T))))) (PUT1-LST (QUOTE F-EQUV3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-EQUV3-OFF F-EQUV3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-EQUV3-OFF) (DISABLED-LEMMAS NIL F-EQUV3 F-EQUV3-OFF . T))))) (PUT1-LST (QUOTE F-EQUV-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-EQUV-OFF F-EQUV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV . F-EQUV-OFF) (DISABLED-LEMMAS NIL F-EQUV F-EQUV-OFF . T))))) (PUT1-LST (QUOTE F-XOR3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-XOR3-OFF F-XOR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR3 . F-XOR3-OFF) (DISABLED-LEMMAS NIL F-XOR3 F-XOR3-OFF . T))))) (PUT1-LST (QUOTE F-XOR-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-XOR-OFF F-XOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F-XOR-OFF) (DISABLED-LEMMAS NIL F-XOR F-XOR-OFF . T))))) (PUT1-LST (QUOTE F-NOR8-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR8-OFF F-NOR8 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR8 . F-NOR8-OFF) (DISABLED-LEMMAS NIL F-NOR8 F-NOR8-OFF . T))))) (PUT1-LST (QUOTE F-NOR6-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR6-OFF F-NOR6 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR6 . F-NOR6-OFF) (DISABLED-LEMMAS NIL F-NOR6 F-NOR6-OFF . T))))) (PUT1-LST (QUOTE F-NOR5-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR5-OFF F-NOR5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR5 . F-NOR5-OFF) (DISABLED-LEMMAS NIL F-NOR5 F-NOR5-OFF . T))))) (PUT1-LST (QUOTE F-NOR4-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR4-OFF F-NOR4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR4 . F-NOR4-OFF) (DISABLED-LEMMAS NIL F-NOR4 F-NOR4-OFF . T))))) (PUT1-LST (QUOTE F-NOR3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR3-OFF F-NOR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F-NOR3-OFF) (DISABLED-LEMMAS NIL F-NOR3 F-NOR3-OFF . T))))) (PUT1-LST (QUOTE F-NOR-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOR-OFF F-NOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR . F-NOR-OFF) (DISABLED-LEMMAS NIL F-NOR F-NOR-OFF . T))))) (PUT1-LST (QUOTE F-OR4-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-OR4-OFF F-OR4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4 . F-OR4-OFF) (DISABLED-LEMMAS NIL F-OR4 F-OR4-OFF . T))))) (PUT1-LST (QUOTE F-OR3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-OR3-OFF F-OR3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR3 . F-OR3-OFF) (DISABLED-LEMMAS NIL F-OR3 F-OR3-OFF . T))))) (PUT1-LST (QUOTE F-OR-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-OR-OFF F-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-OR-OFF) (DISABLED-LEMMAS NIL F-OR F-OR-OFF . T))))) (PUT1-LST (QUOTE F-NAND8-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND8-OFF F-NAND8 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND8 . F-NAND8-OFF) (DISABLED-LEMMAS NIL F-NAND8 F-NAND8-OFF . T))))) (PUT1-LST (QUOTE F-NAND6-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND6-OFF F-NAND6 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND6 . F-NAND6-OFF) (DISABLED-LEMMAS NIL F-NAND6 F-NAND6-OFF . T))))) (PUT1-LST (QUOTE F-NAND5-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND5-OFF F-NAND5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND5 . F-NAND5-OFF) (DISABLED-LEMMAS NIL F-NAND5 F-NAND5-OFF . T))))) (PUT1-LST (QUOTE F-NAND4-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND4-OFF F-NAND4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4 . F-NAND4-OFF) (DISABLED-LEMMAS NIL F-NAND4 F-NAND4-OFF . T))))) (PUT1-LST (QUOTE F-NAND3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND3-OFF F-NAND3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3 . F-NAND3-OFF) (DISABLED-LEMMAS NIL F-NAND3 F-NAND3-OFF . T))))) (PUT1-LST (QUOTE F-NAND-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NAND-OFF F-NAND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F-NAND-OFF) (DISABLED-LEMMAS NIL F-NAND F-NAND-OFF . T))))) (PUT1-LST (QUOTE F-NOT-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-NOT-OFF F-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-OFF) (DISABLED-LEMMAS NIL F-NOT F-NOT-OFF . T))))) (PUT1-LST (QUOTE F-AND4-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-AND4-OFF F-AND4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4 . F-AND4-OFF) (DISABLED-LEMMAS NIL F-AND4 F-AND4-OFF . T))))) (PUT1-LST (QUOTE F-AND3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-AND3-OFF F-AND3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND3 . F-AND3-OFF) (DISABLED-LEMMAS NIL F-AND3 F-AND3-OFF . T))))) (PUT1-LST (QUOTE F-AND-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-AND-OFF F-AND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-AND-OFF) (DISABLED-LEMMAS NIL F-AND F-AND-OFF . T))))) (PUT1-LST (QUOTE F-BUF-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE F-BUF-OFF F-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-OFF) (DISABLED-LEMMAS NIL F-BUF F-BUF-OFF . T))))) (PUT1-LST (QUOTE F-PULLUP-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-PULLUP-MONOTONE-ON F-PULLUP-MONOTONE-OFF PULLUP-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-PULLUP-MONOTONE (REWRITE) (IMPLIES (B-APPROX A1 A2) (B-APPROX (F-PULLUP A1) (F-PULLUP A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F-PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-PULLUP . F-PULLUP-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-PULLUP-MONOTONE) (LEMMAS B-APPROX . F-PULLUP-MONOTONE))))) (PUT1-LST (QUOTE FT-WIRE-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (FT-WIRE-MONOTONE-ON FT-WIRE-MONOTONE-OFF TTL-BIDIRECT-MONOTONE T-WIRE-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA FT-WIRE-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (FT-WIRE A1 B1) (FT-WIRE A2 B2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURFIX . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 FOURP . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-WIRE-REWRITE . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . FT-WIRE-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . FT-WIRE-MONOTONE) (LEMMAS B-APPROX . FT-WIRE-MONOTONE))))) (PUT1-LST (QUOTE FT-BUF-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (FT-BUF-MONOTONE-ON FT-BUF-MONOTONE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-BIDIRECT-MONOTONE T-BUF-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA FT-BUF-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX C1 C2) (B-APPROX A1 A2)) (B-APPROX (FT-BUF C1 A1) (FT-BUF C2 A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . FT-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FT-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FT-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 FT-BUF . FT-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . FT-BUF-MONOTONE) (LEMMAS B-APPROX . FT-BUF-MONOTONE))))) (PUT1-LST (QUOTE F-IF-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-IF-MONOTONE-ON F-IF-MONOTONE-OFF FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE PROCMON-MONOTONE B-IF-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-IF-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX C1 C2) (AND (B-APPROX A1 A2) (B-APPROX B1 B2))) (B-APPROX (F-IF C1 A1 B1) (F-IF C2 A2 B2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-IF . F-IF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-IF-MONOTONE) (LEMMAS B-APPROX . F-IF-MONOTONE))))) (PUT1-LST (QUOTE F-EQUV3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-EQUV3-MONOTONE-ON F-EQUV3-MONOTONE-OFF B-EQUV3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-EQUV3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-EQUV3 A1 B1 C1) (F-EQUV3 A2 B2 C2))) ((DISABLE F-XOR F-EQUV B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . F-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-EQUV-MONOTONE . F-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-EQUV3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-EQUV3-MONOTONE) (LEMMAS B-APPROX . F-EQUV3-MONOTONE))))) (PUT1-LST (QUOTE F-XOR3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-XOR3-MONOTONE-ON F-XOR3-MONOTONE-OFF B-XOR3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-XOR3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-XOR3 A1 B1 C1) (F-XOR3 A2 B2 C2))) ((DISABLE F-XOR F-EQUV B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR-MONOTONE . F-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-XOR3 . F-XOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-XOR3-MONOTONE) (LEMMAS B-APPROX . F-XOR3-MONOTONE))))) (PUT1-LST (QUOTE F-EQUV-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-EQUV-MONOTONE-ON F-EQUV-MONOTONE-OFF B-EQUV-MONOTONE MONOTONICITY-LEMMAS F-EQUV3-MONOTONE) EVENT (PROVE-LEMMA F-EQUV-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-EQUV A1 B1) (F-EQUV A2 B2))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-EQUV . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-EQUV-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-EQUV-MONOTONE) (LEMMAS B-APPROX . F-EQUV-MONOTONE))))) (PUT1-LST (QUOTE F-XOR-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-XOR-MONOTONE-ON F-XOR-MONOTONE-OFF B-XOR-MONOTONE MONOTONICITY-LEMMAS F-EQUV3-MONOTONE F-XOR3-MONOTONE) EVENT (PROVE-LEMMA F-XOR-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-XOR A1 B1) (F-XOR A2 B2))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-XOR . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-XOR . F-XOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-XOR-MONOTONE) (LEMMAS B-APPROX . F-XOR-MONOTONE))))) (PUT1-LST (QUOTE F-NOR8-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR8-MONOTONE-ON F-NOR8-MONOTONE-OFF B-NOR8-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR8-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (AND (B-APPROX E1 E2) (AND (B-APPROX G1 G2) (AND (B-APPROX H1 H2) (B-APPROX I1 I2)))))))) (B-APPROX (F-NOR8 A1 B1 C1 D1 E1 G1 H1 I1) (F-NOR8 A2 B2 C2 D2 E2 G2 H2 I2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F-NOR8-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR8-MONOTONE) (LEMMAS B-APPROX . F-NOR8-MONOTONE))))) (PUT1-LST (QUOTE F-NOR6-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR6-MONOTONE-ON F-NOR6-MONOTONE-OFF B-NOR6-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR6-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (AND (B-APPROX E1 E2) (B-APPROX G1 G2)))))) (B-APPROX (F-NOR6 A1 B1 C1 D1 E1 G1) (F-NOR6 A2 B2 C2 D2 E2 G2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F-NOR6-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR6-MONOTONE) (LEMMAS B-APPROX . F-NOR6-MONOTONE))))) (PUT1-LST (QUOTE F-NOR5-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR5-MONOTONE-ON F-NOR5-MONOTONE-OFF B-NOR5-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR5-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (B-APPROX E1 E2))))) (B-APPROX (F-NOR5 A1 B1 C1 D1 E1) (F-NOR5 A2 B2 C2 D2 E2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F-NOR5-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR5-MONOTONE) (LEMMAS B-APPROX . F-NOR5-MONOTONE))))) (PUT1-LST (QUOTE F-NOR4-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR4-MONOTONE-ON F-NOR4-MONOTONE-OFF B-NOR4-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR4-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (B-APPROX D1 D2)))) (B-APPROX (F-NOR4 A1 B1 C1 D1) (F-NOR4 A2 B2 C2 D2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F-NOR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR4-MONOTONE) (LEMMAS B-APPROX . F-NOR4-MONOTONE))))) (PUT1-LST (QUOTE F-NOR3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR3-MONOTONE-ON F-NOR3-MONOTONE-OFF B-NOR3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-NOR3 A1 B1 C1) (F-NOR3 A2 B2 C2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F-NOR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR3-MONOTONE) (LEMMAS B-APPROX . F-NOR3-MONOTONE))))) (PUT1-LST (QUOTE F-NOR-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOR-MONOTONE-ON F-NOR-MONOTONE-OFF B-NOR-MONOTONE AO6-MONOTONE AO2-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NOR-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-NOR A1 B1) (F-NOR A2 B2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOR . F-NOR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOR-MONOTONE) (LEMMAS B-APPROX . F-NOR-MONOTONE))))) (PUT1-LST (QUOTE F-OR4-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-OR4-MONOTONE-ON F-OR4-MONOTONE-OFF B-OR4-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-OR4-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (B-APPROX D1 D2)))) (B-APPROX (F-OR4 A1 B1 C1 D1) (F-OR4 A2 B2 C2 D2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR4 . F-OR4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-OR4-MONOTONE) (LEMMAS B-APPROX . F-OR4-MONOTONE))))) (PUT1-LST (QUOTE F-OR3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-OR3-MONOTONE-ON F-OR3-MONOTONE-OFF B-OR3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-OR3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-OR3 A1 B1 C1) (F-OR3 A2 B2 C2))) ((DISABLE F-OR F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-MONOTONE . F-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR3 . F-OR3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-OR3-MONOTONE) (LEMMAS B-APPROX . F-OR3-MONOTONE))))) (PUT1-LST (QUOTE F-OR-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-OR-MONOTONE-ON F-OR-MONOTONE-OFF B-OR-MONOTONE AO7-MONOTONE AO4-MONOTONE MONOTONICITY-LEMMAS F-NOR8-MONOTONE F-NOR6-MONOTONE F-NOR5-MONOTONE F-NOR4-MONOTONE F-NOR3-MONOTONE F-NOR-MONOTONE F-OR4-MONOTONE F-OR3-MONOTONE) EVENT (PROVE-LEMMA F-OR-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-OR A1 B1) (F-OR A2 B2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-OR . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-OR . F-OR-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-OR-MONOTONE) (LEMMAS B-APPROX . F-OR-MONOTONE))))) (PUT1-LST (QUOTE F-NAND8-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND8-MONOTONE-ON F-NAND8-MONOTONE-OFF B-NAND8-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND8-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (AND (B-APPROX E1 E2) (AND (B-APPROX G1 G2) (AND (B-APPROX H1 H2) (B-APPROX I1 I2)))))))) (B-APPROX (F-NAND8 A1 B1 C1 D1 E1 G1 H1 I1) (F-NAND8 A2 B2 C2 D2 E2 G2 H2 I2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND8 . F-NAND8-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND8-MONOTONE) (LEMMAS B-APPROX . F-NAND8-MONOTONE))))) (PUT1-LST (QUOTE F-NAND6-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND6-MONOTONE-ON F-NAND6-MONOTONE-OFF B-NAND6-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND6-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (AND (B-APPROX E1 E2) (B-APPROX G1 G2)))))) (B-APPROX (F-NAND6 A1 B1 C1 D1 E1 G1) (F-NAND6 A2 B2 C2 D2 E2 G2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F-NAND6-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND6-MONOTONE) (LEMMAS B-APPROX . F-NAND6-MONOTONE))))) (PUT1-LST (QUOTE F-NAND5-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND5-MONOTONE-ON F-NAND5-MONOTONE-OFF B-NAND5-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND5-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (AND (B-APPROX D1 D2) (B-APPROX E1 E2))))) (B-APPROX (F-NAND5 A1 B1 C1 D1 E1) (F-NAND5 A2 B2 C2 D2 E2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F-NAND5-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND5-MONOTONE) (LEMMAS B-APPROX . F-NAND5-MONOTONE))))) (PUT1-LST (QUOTE F-NAND4-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND4-MONOTONE-ON F-NAND4-MONOTONE-OFF B-NAND4-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND4-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (B-APPROX D1 D2)))) (B-APPROX (F-NAND4 A1 B1 C1 D1) (F-NAND4 A2 B2 C2 D2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F-NAND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND4-MONOTONE) (LEMMAS B-APPROX . F-NAND4-MONOTONE))))) (PUT1-LST (QUOTE F-NAND3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND3-MONOTONE-ON F-NAND3-MONOTONE-OFF B-NAND3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-NAND3 A1 B1 C1) (F-NAND3 A2 B2 C2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F-NAND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND3-MONOTONE) (LEMMAS B-APPROX . F-NAND3-MONOTONE))))) (PUT1-LST (QUOTE F-NAND-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NAND-MONOTONE-ON F-NAND-MONOTONE-OFF TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE B-NAND-MONOTONE AO7-MONOTONE AO4-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-NAND-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-NAND A1 B1) (F-NAND A2 B2))) ((DISABLE F-AND F-NOT B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT-MONOTONE . F-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NAND . F-NAND-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NAND-MONOTONE) (LEMMAS B-APPROX . F-NAND-MONOTONE))))) (PUT1-LST (QUOTE F-NOT-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-NOT-MONOTONE-ON F-NOT-MONOTONE-OFF TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-BIDIRECT-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NBUF-MONOTONE MONOTONICITY-LEMMAS F-NOR8-MONOTONE F-NOR6-MONOTONE F-NOR5-MONOTONE F-NOR4-MONOTONE F-NOR3-MONOTONE F-NOR-MONOTONE F-NAND8-MONOTONE F-NAND6-MONOTONE F-NAND5-MONOTONE F-NAND4-MONOTONE F-NAND3-MONOTONE F-NAND-MONOTONE) EVENT (PROVE-LEMMA F-NOT-MONOTONE (REWRITE) (IMPLIES (B-APPROX A1 A2) (B-APPROX (F-NOT A1) (F-NOT A2))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-NOT . F-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-NOT-MONOTONE) (LEMMAS B-APPROX . F-NOT-MONOTONE))))) (PUT1-LST (QUOTE F-AND4-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-AND4-MONOTONE-ON F-AND4-MONOTONE-OFF B-AND4-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-AND4-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (AND (B-APPROX C1 C2) (B-APPROX D1 D2)))) (B-APPROX (F-AND4 A1 B1 C1 D1) (F-AND4 A2 B2 C2 D2))) ((DISABLE F-AND B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND4 . F-AND4-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-AND4-MONOTONE) (LEMMAS B-APPROX . F-AND4-MONOTONE))))) (PUT1-LST (QUOTE F-AND3-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-AND3-MONOTONE-ON F-AND3-MONOTONE-OFF B-AND3-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-AND3-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (AND (B-APPROX B1 B2) (B-APPROX C1 C2))) (B-APPROX (F-AND3 A1 B1 C1) (F-AND3 A2 B2 C2))) ((DISABLE F-AND B-APPROX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND-MONOTONE . F-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND3 . F-AND3-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-AND3-MONOTONE) (LEMMAS B-APPROX . F-AND3-MONOTONE))))) (PUT1-LST (QUOTE F-AND-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-AND-MONOTONE-ON F-AND-MONOTONE-OFF B-AND-MONOTONE AO6-MONOTONE AO2-MONOTONE MONOTONICITY-LEMMAS F-NAND8-MONOTONE F-NAND6-MONOTONE F-NAND5-MONOTONE F-NAND4-MONOTONE F-NAND3-MONOTONE F-NAND-MONOTONE F-AND4-MONOTONE F-AND3-MONOTONE) EVENT (PROVE-LEMMA F-AND-MONOTONE (REWRITE) (IMPLIES (AND (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-AND A1 B1) (F-AND A2 B2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-AND . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-AND . F-AND-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-AND-MONOTONE) (LEMMAS B-APPROX . F-AND-MONOTONE))))) (PUT1-LST (QUOTE F-BUF-MONOTONE) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (F-BUF-MONOTONE-ON F-BUF-MONOTONE-OFF TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-NBUF-MONOTONE MONOTONICITY-LEMMAS) EVENT (PROVE-LEMMA F-BUF-MONOTONE (REWRITE) (IMPLIES (B-APPROX A1 A2) (B-APPROX (F-BUF A1) (F-BUF A2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . F-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-MONOTONE) (IMMEDIATE-DEPENDENTS0 B-APPROX . F-BUF-MONOTONE) (LEMMAS B-APPROX . F-BUF-MONOTONE))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-3-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-3-OFF MONOTONICITY-PROPERTY-OPENER-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-3 . MONOTONICITY-PROPERTY-OPENER-3-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-3-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-2-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-2-OFF MONOTONICITY-PROPERTY-OPENER-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-2 . MONOTONICITY-PROPERTY-OPENER-2-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-2-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-1-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-1-OFF MONOTONICITY-PROPERTY-OPENER-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-1 . MONOTONICITY-PROPERTY-OPENER-1-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-1-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-0-OFF) (QUOTE (IDATE 1000402194409 EVENT (TOGGLE MONOTONICITY-PROPERTY-OPENER-0-OFF MONOTONICITY-PROPERTY-OPENER-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY-OPENER-0 . MONOTONICITY-PROPERTY-OPENER-0-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-OPENER-0-OFF . T))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-3) (QUOTE (IDATE 1000402194409 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-OPENER-3-OFF1 MONOTONICITY-PROPERTY-OPENER-3-ON MONOTONICITY-PROPERTY-OPENER-3-OFF) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-OPENER-3 (REWRITE) (IFF (MONOTONICITY-PROPERTY (QUOTE 3) FN NETLIST A1 A2 S1 S2) (IMPLIES (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2)))))) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST)))) ((ENABLE MONOTONICITY-PROPERTY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-OPENER-3) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . MONOTONICITY-PROPERTY-OPENER-3) (IMMEDIATE-DEPENDENTS0 ALISTP . MONOTONICITY-PROPERTY-OPENER-3) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . MONOTONICITY-PROPERTY-OPENER-3) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-3) (LEMMAS MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-3))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-2) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-OPENER-2-OFF1 MONOTONICITY-PROPERTY-OPENER-2-ON DP-RAM-16X32-MONOTONE-STATE VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE MONOTONICITY-PROPERTY-OPENER-2-OFF) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-OPENER-2 (REWRITE) (IFF (MONOTONICITY-PROPERTY (QUOTE 2) FN NETLIST A1 A2 S1 S2) (IMPLIES (AND (V-APPROX A1 A2) (S-APPROX S1 S2)) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST)))) ((ENABLE MONOTONICITY-PROPERTY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-OPENER-2) (IMMEDIATE-DEPENDENTS0 S-APPROX . MONOTONICITY-PROPERTY-OPENER-2) (IMMEDIATE-DEPENDENTS0 V-APPROX . MONOTONICITY-PROPERTY-OPENER-2) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-2) (LEMMAS MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-2))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-1) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-OPENER-1-OFF1 MONOTONICITY-PROPERTY-OPENER-1-ON MONOTONICITY-PROPERTY-OPENER-1-OFF) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-OPENER-1 (REWRITE) (IFF (MONOTONICITY-PROPERTY (QUOTE 1) FN NETLIST A1 A2 S1 S2) (IMPLIES (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2)))))) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST)))) ((ENABLE MONOTONICITY-PROPERTY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-OPENER-1) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . MONOTONICITY-PROPERTY-OPENER-1) (IMMEDIATE-DEPENDENTS0 ALISTP . MONOTONICITY-PROPERTY-OPENER-1) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . MONOTONICITY-PROPERTY-OPENER-1) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-1) (LEMMAS MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-1))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OPENER-0) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-OPENER-0-OFF1 MONOTONICITY-PROPERTY-OPENER-0-ON DP-RAM-16X32-MONOTONE-VALUE VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE MONOTONICITY-PROPERTY-OPENER-0-OFF) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-OPENER-0 (REWRITE) (IFF (MONOTONICITY-PROPERTY (QUOTE 0) FN NETLIST A1 A2 S1 S2) (IMPLIES (AND (V-APPROX A1 A2) (S-APPROX S1 S2)) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST)))) ((ENABLE MONOTONICITY-PROPERTY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-OPENER-0) (IMMEDIATE-DEPENDENTS0 S-APPROX . MONOTONICITY-PROPERTY-OPENER-0) (IMMEDIATE-DEPENDENTS0 V-APPROX . MONOTONICITY-PROPERTY-OPENER-0) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-0) (LEMMAS MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OPENER-0))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-3) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-CONSEQUENCE-3-ON MONOTONICITY-PROPERTY-CONSEQUENCE-3-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-CONSEQUENCE-3 (REWRITE) (IMPLIES (AND (MONOTONICITY-PROPERTY (QUOTE 3) FN NETLIST A1 A2 S1 S2) (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2))))))) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST))) ((USE (MONOTONICITY-PROPERTY (FLAG (QUOTE 3)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-CONSEQUENCE-3) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-3) (IMMEDIATE-DEPENDENTS0 ALISTP . MONOTONICITY-PROPERTY-CONSEQUENCE-3) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-3) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-CONSEQUENCE-3) (LEMMAS S-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-3))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-2) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-CONSEQUENCE-2-ON MONOTONICITY-PROPERTY-CONSEQUENCE-2-OFF SIMULATE-MONOTONE) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-CONSEQUENCE-2 (REWRITE) (IMPLIES (AND (MONOTONICITY-PROPERTY (QUOTE 2) FN NETLIST A1 A2 S1 S2) (AND (V-APPROX A1 A2) (S-APPROX S1 S2))) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST))) ((USE (MONOTONICITY-PROPERTY (FLAG (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-CONSEQUENCE-2) (IMMEDIATE-DEPENDENTS0 S-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-2) (IMMEDIATE-DEPENDENTS0 V-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-2) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-CONSEQUENCE-2) (LEMMAS S-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-2))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-1) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-CONSEQUENCE-1-ON MONOTONICITY-PROPERTY-CONSEQUENCE-1-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-CONSEQUENCE-1 (REWRITE) (IMPLIES (AND (MONOTONICITY-PROPERTY (QUOTE 1) FN NETLIST A1 A2 S1 S2) (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2))))))) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST))) ((USE (MONOTONICITY-PROPERTY (FLAG (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 ALISTP . MONOTONICITY-PROPERTY-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-CONSEQUENCE-1) (LEMMAS V-APPROX-ALIST . MONOTONICITY-PROPERTY-CONSEQUENCE-1))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-CONSEQUENCE-0) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-CONSEQUENCE-0-ON MONOTONICITY-PROPERTY-CONSEQUENCE-0-OFF SIMULATE-MONOTONE) EVENT (PROVE-LEMMA MONOTONICITY-PROPERTY-CONSEQUENCE-0 (REWRITE) (IMPLIES (AND (MONOTONICITY-PROPERTY (QUOTE 0) FN NETLIST A1 A2 S1 S2) (AND (V-APPROX A1 A2) (S-APPROX S1 S2))) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST))) ((USE (MONOTONICITY-PROPERTY (FLAG (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY-CONSEQUENCE-0) (IMMEDIATE-DEPENDENTS0 S-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-0) (IMMEDIATE-DEPENDENTS0 V-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-0) (IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-CONSEQUENCE-0) (LEMMAS V-APPROX . MONOTONICITY-PROPERTY-CONSEQUENCE-0))))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY-OFF) (QUOTE (IDATE 1000402194408 EVENT (TOGGLE MONOTONICITY-PROPERTY-OFF MONOTONICITY-PROPERTY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MONOTONICITY-PROPERTY . MONOTONICITY-PROPERTY-OFF) (DISABLED-LEMMAS NIL MONOTONICITY-PROPERTY MONOTONICITY-PROPERTY-OFF . T))))) (PUT1-LST (QUOTE *1*MONOTONICITY-PROPERTY) (QUOTE (MAIN-EVENT MONOTONICITY-PROPERTY))) (PUT1-LST (QUOTE MONOTONICITY-PROPERTY) (QUOTE (TYPE-PRESCRIPTION-LST ((MONOTONICITY-PROPERTY 3 NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE DUAL-EVAL-MONOTONE ((OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32))) (IF (OR (EQUAL FLAG (QUOTE 0)) (EQUAL FLAG (QUOTE 2))) (GOOD-S S2) (GOOD-S-ALIST S2))) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DUAL-EVAL-MONOTONE-NO-RAM ((OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32 DP-RAM-16X32)))) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PRIMP-MONOTONE ((PRIMP FN) (OR (EQUAL FLAG (QUOTE 0)) (AND (EQUAL FLAG (QUOTE 2)) (IMPLIES (EQUAL FN (QUOTE DP-RAM-16X32)) (GOOD-S S2)))) (NOT (EQUAL FN (QUOTE MEM-32X32)))) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PRIMP-MONOTONE ((PRIMP FN) (OR (EQUAL FLAG (QUOTE 0)) (AND (EQUAL FLAG (QUOTE 2)) (IMPLIES (EQUAL FN (QUOTE DP-RAM-16X32)) (GOOD-S S2)))) (NOT (EQUAL FN (QUOTE MEM-32X32)))) (MONOTONICITY-PROPERTY FLAG FN NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DP-RAM-16X32-MONOTONE ((GOOD-S S2)) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DP-RAM-16X32-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DP-RAM-16X32-MONOTONE-STATE ((GOOD-S S2)) (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DP-RAM-16X32-MONOTONE-VALUE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DP-RAM-16X32) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VSS-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VSS) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VSS-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VSS) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VDD-PARAMETRIC-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VDD-PARAMETRIC) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VDD-PARAMETRIC-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VDD-PARAMETRIC) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VDD-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE VDD) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE VDD-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE VDD) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-FAST-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-TRI-OUTPUT-FAST) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-FAST-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-TRI-OUTPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-FAST-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT-FAST) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-FAST-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-PARAMETRIC-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT-PARAMETRIC) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-PARAMETRIC-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-OUTPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-OUTPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-OUTPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-INPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-INPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-INPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-INPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-CLK-INPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-CLK-INPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-CLK-INPUT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-CLK-INPUT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-BIDIRECT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE TTL-BIDIRECT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE TTL-BIDIRECT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE TTL-BIDIRECT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PULLUP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE PULLUP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PULLUP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE PULLUP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE T-WIRE-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE T-WIRE) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE T-WIRE-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE T-WIRE) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE T-BUF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE T-BUF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE T-BUF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE T-BUF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE RAM-ENABLE-CIRCUIT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE RAM-ENABLE-CIRCUIT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE RAM-ENABLE-CIRCUIT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE ID-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE ID) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE ID-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE ID) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1SLP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1SLP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1SLP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1SLP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1SP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1SP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1SP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1SP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1S-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1S) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1S-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1S) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE FD1) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE FD1-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE FD1) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PROCMON-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE PROCMON) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE PROCMON-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE PROCMON) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL10-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL10) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL10-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL10) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL2-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE DEL2) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE DEL2-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE DEL2) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-XOR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-XOR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-XOR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-XOR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-XOR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-XOR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-XOR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-XOR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-OR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-OR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-OR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-IVAP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT-IVAP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-IVAP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT-IVAP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-B4IP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT-B4IP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-B4IP-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT-B4IP) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOT-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOT) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR8-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR8) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR8-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR8) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR5-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR5) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR5-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR5) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NOR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NOR-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NOR) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NBUF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NBUF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NBUF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NBUF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND8-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND8) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND8-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND8) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND5-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND5) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND5-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND5) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-NAND) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-NAND-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-NAND) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-IF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-IF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-IF-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-IF) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-EQUV3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-EQUV3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-EQUV3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-EQUV3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-EQUV-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-EQUV) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-EQUV-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-EQUV) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND3-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND3) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE B-AND) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE B-AND-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE B-AND) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO7-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO7) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO7-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO7) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO6-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO6) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO4-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO4) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO2-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 2) (QUOTE AO2) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE AO2-MONOTONE NIL (MONOTONICITY-PROPERTY (QUOTE 0) (QUOTE AO2) NETLIST A1 A2 S1 S2) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-OPENER-3 NIL (IFF (MONOTONICITY-PROPERTY (QUOTE 3) FN NETLIST A1 A2 S1 S2) (IF (V-APPROX-ALIST A1 A2) (IF (ALISTP A1) (IF (ALISTP A2) (IF (S-APPROX-ALIST S1 S2) (IF (ALISTP S1) (IF (ALISTP S2) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-OPENER-2 NIL (IFF (MONOTONICITY-PROPERTY (QUOTE 2) FN NETLIST A1 A2 S1 S2) (IF (V-APPROX A1 A2) (IF (S-APPROX S1 S2) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-OPENER-1 NIL (IFF (MONOTONICITY-PROPERTY (QUOTE 1) FN NETLIST A1 A2 S1 S2) (IF (V-APPROX-ALIST A1 A2) (IF (ALISTP A1) (IF (ALISTP A2) (IF (S-APPROX-ALIST S1 S2) (IF (ALISTP S1) (IF (ALISTP S2) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-OPENER-0 NIL (IFF (MONOTONICITY-PROPERTY (QUOTE 0) FN NETLIST A1 A2 S1 S2) (IF (V-APPROX A1 A2) (IF (S-APPROX S1 S2) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) NIL)) TOTALP-LST ((MONOTONICITY-PROPERTY)) SDEFN (LAMBDA (FLAG FN NETLIST A1 A2 S1 S2) (IF (EQUAL FLAG (QUOTE 0)) (IF (V-APPROX A1 A2) (IF (S-APPROX S1 S2) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 1)) (IF (V-APPROX-ALIST A1 A2) (IF (ALISTP A1) (IF (ALISTP A2) (IF (S-APPROX-ALIST S1 S2) (IF (ALISTP S1) (IF (ALISTP S2) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 2)) (IF (V-APPROX A1 A2) (IF (S-APPROX S1 S2) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (IF (EQUAL FLAG (QUOTE 3)) (IF (V-APPROX-ALIST A1 A2) (IF (ALISTP A1) (IF (ALISTP A2) (IF (S-APPROX-ALIST S1 S2) (IF (ALISTP S1) (IF (ALISTP S2) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))))) LISP-CODE *1*MONOTONICITY-PROPERTY SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194408 SATELLITES (*1*MONOTONICITY-PROPERTY) IMMEDIATE-DEPENDENTS0 (MONOTONICITY-PROPERTY-OFF1 G*1*MONOTONICITY-PROPERTY-ON MONOTONICITY-PROPERTY-ON G*1*MONOTONICITY-PROPERTY-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM PRIMP-MONOTONE DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-STATE DP-RAM-16X32-MONOTONE-VALUE VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY-OFF) EVENT (DEFN MONOTONICITY-PROPERTY (FLAG FN NETLIST A1 A2 S1 S2) (IF (EQUAL FLAG (QUOTE 0)) (IMPLIES (AND (V-APPROX A1 A2) (S-APPROX S1 S2)) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST))) (IF (EQUAL FLAG (QUOTE 1)) (IMPLIES (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2)))))) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST))) (IF (EQUAL FLAG (QUOTE 2)) (IMPLIES (AND (V-APPROX A1 A2) (S-APPROX S1 S2)) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST))) (IF (EQUAL FLAG (QUOTE 3)) (IMPLIES (AND (V-APPROX-ALIST A1 A2) (AND (ALISTP A1) (AND (ALISTP A2) (AND (S-APPROX-ALIST S1 S2) (AND (ALISTP S1) (ALISTP S2)))))) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST))) (QUOTE *1*TRUE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX-ALIST . MONOTONICITY-PROPERTY) (IMMEDIATE-DEPENDENTS0 ALISTP . MONOTONICITY-PROPERTY) (IMMEDIATE-DEPENDENTS0 V-APPROX-ALIST . MONOTONICITY-PROPERTY) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MONOTONICITY-PROPERTY) (IMMEDIATE-DEPENDENTS0 S-APPROX . MONOTONICITY-PROPERTY) (IMMEDIATE-DEPENDENTS0 V-APPROX . MONOTONICITY-PROPERTY) (DCELL . *1*MONOTONICITY-PROPERTY))))) (PUT1-LST (QUOTE *1*S-APPROX-ALIST) (QUOTE (MAIN-EVENT S-APPROX-ALIST))) (PUT1-LST (QUOTE S-APPROX-ALIST) (QUOTE (TYPE-PRESCRIPTION-LST ((S-APPROX-ALIST 3 NIL NIL)) LEMMAS ((REWRITE-RULE S-APPROX-IMPLIES-S-APPROX-ALIST ((S-APPROX S1 S2)) (S-APPROX-ALIST (PAIRLIST X S1) (PAIRLIST X S2)) NIL) (REWRITE-RULE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST ((S-APPROX-LIST S1 S2)) (S-APPROX-ALIST (PAIRLIST X S1) (PAIRLIST X S2)) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-CONSEQUENCE-3 ((MONOTONICITY-PROPERTY (QUOTE 3) FN NETLIST A1 A2 S1 S2) (V-APPROX-ALIST A1 A2) (ALISTP A1) (ALISTP A2) (S-APPROX-ALIST S1 S2) (ALISTP S1) (ALISTP S2)) (S-APPROX-ALIST (DUAL-EVAL (QUOTE 3) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 3) FN A2 S2 NETLIST)) NIL)) TOTALP-LST ((S-APPROX-ALIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (ALIST1 ALIST2) (IF (LISTP ALIST1) (IF (LISTP ALIST2) (IF (EQUAL (CAR (CAR ALIST1)) (CAR (CAR ALIST2))) (IF (S-APPROX (CDR (CAR ALIST1)) (CDR (CAR ALIST2))) (IF (S-APPROX-ALIST (CDR ALIST1) (CDR ALIST2)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP ALIST2) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*S-APPROX-ALIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP ALIST1)) (((CDR ALIST1) (CDR ALIST2)))) (TESTS-AND-CASES ((NOT (LISTP ALIST1))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (ALIST1) (COUNT ALIST1) LESSP (ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*S-APPROX-ALIST) IMMEDIATE-DEPENDENTS0 (G*1*S-APPROX-ALIST-ON S-APPROX-ALIST-ON G*1*S-APPROX-ALIST-OFF S-APPROX-ALIST-OFF DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY) EVENT (DEFN S-APPROX-ALIST (ALIST1 ALIST2) (IF (LISTP ALIST1) (AND (LISTP ALIST2) (AND (EQUAL (CAR (CAR ALIST1)) (CAR (CAR ALIST2))) (AND (S-APPROX (CDR (CAR ALIST1)) (CDR (CAR ALIST2))) (S-APPROX-ALIST (CDR ALIST1) (CDR ALIST2))))) (NLISTP ALIST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-ALIST) (DCELL . *1*S-APPROX-ALIST))))) (PUT1-LST (QUOTE *1*V-APPROX-ALIST) (QUOTE (MAIN-EVENT V-APPROX-ALIST))) (PUT1-LST (QUOTE V-APPROX-ALIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-APPROX-ALIST 3 NIL NIL)) LEMMAS ((REWRITE-RULE V-APPROX-ALIST-APPEND ((V-APPROX-ALIST A C) (V-APPROX-ALIST B D)) (V-APPROX-ALIST (APPEND A B) (APPEND C D)) NIL) (REWRITE-RULE V-APPROX-IMPLIES-V-APPROX-ALIST ((V-APPROX V1 V2)) (V-APPROX-ALIST (PAIRLIST X V1) (PAIRLIST X V2)) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-CONSEQUENCE-1 ((MONOTONICITY-PROPERTY (QUOTE 1) FN NETLIST A1 A2 S1 S2) (V-APPROX-ALIST A1 A2) (ALISTP A1) (ALISTP A2) (S-APPROX-ALIST S1 S2) (ALISTP S1) (ALISTP S2)) (V-APPROX-ALIST (DUAL-EVAL (QUOTE 1) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 1) FN A2 S2 NETLIST)) NIL)) TOTALP-LST ((V-APPROX-ALIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (ALIST1 ALIST2) (IF (LISTP ALIST1) (IF (LISTP ALIST2) (IF (EQUAL (CAR (CAR ALIST1)) (CAR (CAR ALIST2))) (IF (B-APPROX (CDR (CAR ALIST1)) (CDR (CAR ALIST2))) (IF (V-APPROX-ALIST (CDR ALIST1) (CDR ALIST2)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP ALIST2) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*V-APPROX-ALIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP ALIST1)) (((CDR ALIST1) (CDR ALIST2)))) (TESTS-AND-CASES ((NOT (LISTP ALIST1))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (ALIST1) (COUNT ALIST1) LESSP (ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*V-APPROX-ALIST) IMMEDIATE-DEPENDENTS0 (G*1*V-APPROX-ALIST-ON V-APPROX-ALIST-ON G*1*V-APPROX-ALIST-OFF V-APPROX-ALIST-OFF V-APPROX-ALIST-APPEND V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY) EVENT (DEFN V-APPROX-ALIST (ALIST1 ALIST2) (IF (LISTP ALIST1) (AND (LISTP ALIST2) (AND (EQUAL (CAR (CAR ALIST1)) (CAR (CAR ALIST2))) (AND (B-APPROX (CDR (CAR ALIST1)) (CDR (CAR ALIST2))) (V-APPROX-ALIST (CDR ALIST1) (CDR ALIST2))))) (NLISTP ALIST2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX-ALIST) (DCELL . *1*V-APPROX-ALIST))))) (PUT1-LST (QUOTE PLUS-ADD1-ON) (QUOTE (IDATE 1000402194408 EVENT (TOGGLE PLUS-ADD1-ON PLUS-ADD1 NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PLUS-ADD1-ON) (DISABLED-LEMMAS NIL PLUS-ADD1 PLUS-ADD1-ON))))) (PUT1-LST (QUOTE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON1 S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF1 DOUBLET-P-EQUAL-APPROX S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-ON S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL-OFF S-APPROX-IMPLIES-B-APPROX) EVENT (PROVE-LEMMA S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL (REWRITE) (IMPLIES (AND (S-KNOWNP X) (NOT (EQUAL X Y))) (NOT (S-APPROX X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 B-APPROX . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 STUB . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 ROM . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 RAM . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 S-KNOWNP . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) (LEMMAS S-APPROX . S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL))))) (PUT1-LST (QUOTE *1*S-KNOWNP) (QUOTE (MAIN-EVENT S-KNOWNP))) (PUT1-LST (QUOTE S-KNOWNP) (QUOTE (TYPE-PRESCRIPTION-LST ((S-KNOWNP 3 NIL)) LEMMAS ((REWRITE-RULE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP NIL (S-KNOWNP (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST)))))) NIL)) TOTALP-LST ((S-KNOWNP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (S) (IF (LISTP S) (IF (S-KNOWNP (CAR S)) (IF (S-KNOWNP (CDR S)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL S (QUOTE NIL)) (QUOTE *1*TRUE) (IF (RAMP S) (V-KNOWNP (RAM-GUTS S)) (IF (ROMP S) (V-KNOWNP (ROM-GUTS S)) (IF (STUBP S) (V-KNOWNP (STUB-GUTS S)) (B-KNOWNP S))))))) LISP-CODE *1*S-KNOWNP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP S)) (((CDR S)) ((CAR S)))) (TESTS-AND-CASES ((NOT (LISTP S)) (EQUAL S (QUOTE NIL))) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (EQUAL S (QUOTE NIL))) (RAMP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (EQUAL S (QUOTE NIL))) (NOT (RAMP S)) (ROMP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (EQUAL S (QUOTE NIL))) (NOT (RAMP S)) (NOT (ROMP S)) (STUBP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (EQUAL S (QUOTE NIL))) (NOT (RAMP S)) (NOT (ROMP S)) (NOT (STUBP S))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (S) (COUNT S) LESSP (CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*S-KNOWNP) IMMEDIATE-DEPENDENTS0 (G*1*S-KNOWNP-ON S-KNOWNP-ON1 G*1*S-KNOWNP-OFF S-KNOWNP-OFF1 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE DOUBLET-P-EQUAL-APPROX S-KNOWNP-ON S-KNOWNP-OFF S-APPROX-IMPLIES-B-APPROX S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) EVENT (DEFN S-KNOWNP (S) (IF (LISTP S) (AND (S-KNOWNP (CAR S)) (S-KNOWNP (CDR S))) (IF (EQUAL S (QUOTE NIL)) (QUOTE *1*TRUE) (IF (RAMP S) (V-KNOWNP (RAM-GUTS S)) (IF (ROMP S) (V-KNOWNP (ROM-GUTS S)) (IF (STUBP S) (V-KNOWNP (STUB-GUTS S)) (B-KNOWNP S))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . S-KNOWNP) (IMMEDIATE-DEPENDENTS0 STUB . S-KNOWNP) (IMMEDIATE-DEPENDENTS0 ROM . S-KNOWNP) (IMMEDIATE-DEPENDENTS0 RAM . S-KNOWNP) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . S-KNOWNP) (DCELL . *1*S-KNOWNP))))) (PUT1-LST (QUOTE *1*GOOD-S) (QUOTE (MAIN-EVENT GOOD-S))) (PUT1-LST (QUOTE GOOD-S) (QUOTE (TYPE-PRESCRIPTION-LST ((GOOD-S 3 NIL)) LEMMAS ((REWRITE-RULE V-FOURP-IS-GOOD-S ((V-FOURP V)) (GOOD-S V) NIL) (REWRITE-RULE MEMORY-V-FOURP-IMPLIES-GOOD-S ((MEMORY-V-FOURP N (QUOTE 32) V)) (GOOD-S V) NIL) (REWRITE-RULE GOOD-S-OPENER ((FOURP S)) (GOOD-S S) NIL) (REWRITE-RULE GOOD-S-OPENER ((STUBP S)) (EQUAL (GOOD-S S) (IF (EQUAL (LENGTH (STUB-GUTS S)) (MEM-WIDTH)) (PROPERP (STUB-GUTS S)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE GOOD-S-OPENER ((ROMP S)) (EQUAL (GOOD-S S) (IF (EQUAL (LENGTH (ROM-GUTS S)) (MEM-WIDTH)) (PROPERP (ROM-GUTS S)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE GOOD-S-OPENER ((RAMP S)) (EQUAL (GOOD-S S) (IF (EQUAL (LENGTH (RAM-GUTS S)) (MEM-WIDTH)) (PROPERP (RAM-GUTS S)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE GOOD-S-OPENER ((LISTP S)) (EQUAL (GOOD-S S) (IF (GOOD-S (CAR S)) (GOOD-S (CDR S)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE GOOD-S-PRESERVED ((OK-NETLISTP FLAG FN NETLIST (QUOTE (MEM-32X32))) (EQUAL FLAG (QUOTE 2)) (GOOD-S S)) (GOOD-S (DUAL-EVAL FLAG FN A S NETLIST)) NIL) (REWRITE-RULE PRIMP-PRESERVES-GOOD-S ((GOOD-S S) (PRIMP FN) (NOT (EQUAL FN (QUOTE MEM-32X32)))) (GOOD-S (DUAL-APPLY-STATE FN ARGS S)) NIL) (REWRITE-RULE DP-RAM-16X32-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) ARGS S)) NIL) (REWRITE-RULE GOOD-S-WRITE-MEM ((GOOD-S S) (PROPERP VALUE) (EQUAL (LENGTH VALUE) (QUOTE 32))) (GOOD-S (WRITE-MEM V-ADDR S VALUE)) NIL) (REWRITE-RULE GOOD-S-WRITE-MEM-1 ((GOOD-S S) (PROPERP VALUE) (EQUAL (LENGTH VALUE) (QUOTE 32))) (GOOD-S (WRITE-MEM1 V-ADDR S VALUE)) NIL) (REWRITE-RULE GOOD-S-CONSTANT-RAM ((GOOD-S S)) (GOOD-S (CONSTANT-RAM S (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))) NIL) (REWRITE-RULE VSS-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE VSS) ARGS S)) NIL) (REWRITE-RULE VDD-PARAMETRIC-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE VDD-PARAMETRIC) ARGS S)) NIL) (REWRITE-RULE VDD-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE VDD) ARGS S)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-TRI-OUTPUT-FAST) ARGS S)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-TRI-OUTPUT) ARGS S)) NIL) (REWRITE-RULE TTL-OUTPUT-FAST-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT-FAST) ARGS S)) NIL) (REWRITE-RULE TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS S)) NIL) (REWRITE-RULE TTL-OUTPUT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-OUTPUT) ARGS S)) NIL) (REWRITE-RULE TTL-INPUT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-INPUT) ARGS S)) NIL) (REWRITE-RULE TTL-CLK-INPUT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-CLK-INPUT) ARGS S)) NIL) (REWRITE-RULE TTL-BIDIRECT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE TTL-BIDIRECT) ARGS S)) NIL) (REWRITE-RULE PULLUP-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE PULLUP) ARGS S)) NIL) (REWRITE-RULE T-WIRE-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE T-WIRE) ARGS S)) NIL) (REWRITE-RULE T-BUF-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE T-BUF) ARGS S)) NIL) (REWRITE-RULE RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE RAM-ENABLE-CIRCUIT) ARGS S)) NIL) (REWRITE-RULE ID-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE ID) ARGS S)) NIL) (REWRITE-RULE FD1SLP-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1SLP) ARGS S)) NIL) (REWRITE-RULE FD1SP-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1SP) ARGS S)) NIL) (REWRITE-RULE FD1S-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1S) ARGS S)) NIL) (REWRITE-RULE FD1-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE FD1) ARGS S)) NIL) (REWRITE-RULE PROCMON-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE PROCMON) ARGS S)) NIL) (REWRITE-RULE DEL10-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL10) ARGS S)) NIL) (REWRITE-RULE DEL4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL4) ARGS S)) NIL) (REWRITE-RULE DEL2-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE DEL2) ARGS S)) NIL) (REWRITE-RULE B-XOR3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-XOR3) ARGS S)) NIL) (REWRITE-RULE B-XOR-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-XOR) ARGS S)) NIL) (REWRITE-RULE B-OR4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR4) ARGS S)) NIL) (REWRITE-RULE B-OR3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR3) ARGS S)) NIL) (REWRITE-RULE B-OR-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-OR) ARGS S)) NIL) (REWRITE-RULE B-NOT-IVAP-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT-IVAP) ARGS S)) NIL) (REWRITE-RULE B-NOT-B4IP-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT-B4IP) ARGS S)) NIL) (REWRITE-RULE B-NOT-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOT) ARGS S)) NIL) (REWRITE-RULE B-NOR8-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR8) ARGS S)) NIL) (REWRITE-RULE B-NOR6-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR6) ARGS S)) NIL) (REWRITE-RULE B-NOR5-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR5) ARGS S)) NIL) (REWRITE-RULE B-NOR4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR4) ARGS S)) NIL) (REWRITE-RULE B-NOR3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR3) ARGS S)) NIL) (REWRITE-RULE B-NOR-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NOR) ARGS S)) NIL) (REWRITE-RULE B-NBUF-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NBUF) ARGS S)) NIL) (REWRITE-RULE B-NAND8-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND8) ARGS S)) NIL) (REWRITE-RULE B-NAND6-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND6) ARGS S)) NIL) (REWRITE-RULE B-NAND5-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND5) ARGS S)) NIL) (REWRITE-RULE B-NAND4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND4) ARGS S)) NIL) (REWRITE-RULE B-NAND3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND3) ARGS S)) NIL) (REWRITE-RULE B-NAND-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-NAND) ARGS S)) NIL) (REWRITE-RULE B-IF-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-IF) ARGS S)) NIL) (REWRITE-RULE B-EQUV3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-EQUV3) ARGS S)) NIL) (REWRITE-RULE B-EQUV-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-EQUV) ARGS S)) NIL) (REWRITE-RULE B-AND4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND4) ARGS S)) NIL) (REWRITE-RULE B-AND3-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND3) ARGS S)) NIL) (REWRITE-RULE B-AND-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE B-AND) ARGS S)) NIL) (REWRITE-RULE AO7-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO7) ARGS S)) NIL) (REWRITE-RULE AO6-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO6) ARGS S)) NIL) (REWRITE-RULE AO4-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO4) ARGS S)) NIL) (REWRITE-RULE AO2-PRESERVES-GOOD-S ((GOOD-S S)) (GOOD-S (DUAL-APPLY-STATE (QUOTE AO2) ARGS S)) NIL) (REWRITE-RULE GOOD-S-0 NIL (GOOD-S (QUOTE 0)) NIL) (REWRITE-RULE F-IF-PRESERVES-GOOD-S NIL (GOOD-S (F-IF X Y Z)) NIL) (REWRITE-RULE F-BUF-PRESERVES-GOOD-S NIL (GOOD-S (F-BUF X)) NIL) (REWRITE-RULE GOOD-S-COLLECT-VALUE ((GOOD-S-ALIST S)) (GOOD-S (COLLECT-VALUE KEYS S)) NIL) (REWRITE-RULE GOOD-S-VALUE ((GOOD-S-ALIST X)) (GOOD-S (VALUE W X)) NIL)) TOTALP-LST ((GOOD-S . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (S) (IF (LISTP S) (IF (GOOD-S (CAR S)) (IF (GOOD-S (CDR S)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (RAMP S) (IF (EQUAL (LENGTH (RAM-GUTS S)) (MEM-WIDTH)) (PROPERP (RAM-GUTS S)) (QUOTE *1*FALSE)) (IF (ROMP S) (IF (EQUAL (LENGTH (ROM-GUTS S)) (MEM-WIDTH)) (PROPERP (ROM-GUTS S)) (QUOTE *1*FALSE)) (IF (STUBP S) (IF (EQUAL (LENGTH (STUB-GUTS S)) (MEM-WIDTH)) (PROPERP (STUB-GUTS S)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))))) LISP-CODE *1*GOOD-S SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP S)) (((CDR S)) ((CAR S)))) (TESTS-AND-CASES ((NOT (LISTP S)) (RAMP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (RAMP S)) (ROMP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (RAMP S)) (NOT (ROMP S)) (STUBP S)) NIL) (TESTS-AND-CASES ((NOT (LISTP S)) (NOT (RAMP S)) (NOT (ROMP S)) (NOT (STUBP S))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (S) (COUNT S) LESSP (CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*GOOD-S) IMMEDIATE-DEPENDENTS0 (G*1*GOOD-S-ON GOOD-S-ON G*1*GOOD-S-OFF GOOD-S-OFF RESET-CHIP-FROM-ANY-STATE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S V-FOURP-IS-GOOD-S MEMORY-V-FOURP-IMPLIES-GOOD-S GOOD-S-OPENER XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE SIMULATE-MONOTONE GOOD-S-PRESERVED PRIMP-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-1 GOOD-S-CONSTANT-RAM VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S GOOD-S-0 F-IF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE GOOD-S-VALUE GOOD-S-ALIST-PAIRLIST GOOD-S-ALIST PRIMP-MONOTONE DP-RAM-16X32-MONOTONE DP-RAM-16X32-MONOTONE-STATE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID) EVENT (DEFN GOOD-S (S) (IF (LISTP S) (AND (GOOD-S (CAR S)) (GOOD-S (CDR S))) (IF (RAMP S) (AND (EQUAL (LENGTH (RAM-GUTS S)) (MEM-WIDTH)) (PROPERP (RAM-GUTS S))) (IF (ROMP S) (AND (EQUAL (LENGTH (ROM-GUTS S)) (MEM-WIDTH)) (PROPERP (ROM-GUTS S))) (IF (STUBP S) (AND (EQUAL (LENGTH (STUB-GUTS S)) (MEM-WIDTH)) (PROPERP (STUB-GUTS S))) (QUOTE *1*TRUE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . GOOD-S) (IMMEDIATE-DEPENDENTS0 ROM . GOOD-S) (IMMEDIATE-DEPENDENTS0 PROPERP . GOOD-S) (IMMEDIATE-DEPENDENTS0 MEM-WIDTH . GOOD-S) (IMMEDIATE-DEPENDENTS0 RAM . GOOD-S) (IMMEDIATE-DEPENDENTS0 LENGTH . GOOD-S) (DCELL . *1*GOOD-S))))) (PUT1-LST (QUOTE S-APPROX-X-X) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (S-APPROX-X-X-ON S-APPROX-X-X-OFF V-APPROX-SUBRANGE V-APPROX-X-X) EVENT (PROVE-LEMMA S-APPROX-X-X (REWRITE) (S-APPROX X X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPROX . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 B-APPROX . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX-X-X) (IMMEDIATE-DEPENDENTS0 S-APPROX . S-APPROX-X-X) (LEMMAS S-APPROX . S-APPROX-X-X))))) (PUT1-LST (QUOTE *1*S-APPROX) (QUOTE (MAIN-EVENT S-APPROX))) (PUT1-LST (QUOTE S-APPROX) (QUOTE (TYPE-PRESCRIPTION-LST ((S-APPROX 3 NIL NIL)) LEMMAS ((REWRITE-RULE S-APPROX-MAKE-LIST ((EQUAL (LENGTH VEC1) (LENGTH VEC2)) (V-FOURP VEC2) (ALL-XS VEC1)) (S-APPROX VEC1 VEC2) NIL) (REWRITE-RULE S-APPROX-CADR-NTH ((V-S-APPROX-LIST FINAL-1 FINAL-2) (LESSP N (LENGTH FINAL-1))) (S-APPROX (CAR (CDR (NTH N FINAL-1))) (CAR (CDR (NTH N FINAL-2)))) NIL) (REWRITE-RULE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE ((S-APPROX-ALIST X Y) (ALISTP X) (ALISTP Y)) (S-APPROX (COLLECT-VALUE A X) (COLLECT-VALUE A Y)) NIL) (REWRITE-RULE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE ((S-APPROX-ALIST S1 S2) (ALISTP S1) (ALISTP S2)) (S-APPROX (VALUE W S1) (VALUE W S2)) NIL) (REWRITE-RULE DUAL-PORT-RAM-STATE-MONOTONE-REWRITE ((S-APPROX S1 S2) (GOOD-S S2) (V-APPROX A1 A2)) (S-APPROX (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A1 S1) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A2 S2)) NIL) (REWRITE-RULE S-APPROX-CONSTANT-RAM-X-WRITE-MEM ((S-APPROX S1 S2) (PROPERP V) (EQUAL (LENGTH V) (MEM-WIDTH)) (GOOD-S S2)) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (WRITE-MEM V-ADDR S2 V)) NIL) (REWRITE-RULE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 ((S-APPROX S1 S2) (PROPERP V) (EQUAL (LENGTH V) (MEM-WIDTH)) (GOOD-S S2)) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (WRITE-MEM1 V-ADDR S2 V)) NIL) (REWRITE-RULE S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 ((NOT (STUBP S1)) (NOT (STUBP S2)) (LISTP V-ADDR) (NOT (LISTP S1)) (S-APPROX S1 S2) (PROPERP V) (EQUAL (LENGTH V) (MEM-WIDTH)) (NOT (RAMP S1))) (S-APPROX S1 (WRITE-MEM1 V-ADDR S2 V)) NIL) (REWRITE-RULE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X ((S-APPROX S1 S2)) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) (CONSTANT-RAM S2 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X))))) NIL) (REWRITE-RULE S-APPROX-CONSTANT-RAM-X-ID ((GOOD-S S2) (S-APPROX S1 S2)) (S-APPROX (CONSTANT-RAM S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2) NIL) (REWRITE-RULE S-APPROX-WRITE-MEM-ID ((GOOD-S S2) (S-APPROX S1 S2)) (S-APPROX (WRITE-MEM V-ADDR S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2) NIL) (REWRITE-RULE S-APPROX-WRITE-MEM1-ID ((S-APPROX S1 S2) (GOOD-S S2)) (S-APPROX (WRITE-MEM1 V-ADDR S1 (MAKE-LIST (MEM-WIDTH) (QUOTE (*1*QUOTE X)))) S2) NIL) (REWRITE-RULE WRITE-MEM-MONOTONE ((S-APPROX MEM1 MEM2) (V-APPROX DATA1 DATA2) (PROPERP DATA1) (PROPERP DATA2) (EQUAL (LENGTH DATA1) (MEM-WIDTH)) (EQUAL (LENGTH DATA2) (MEM-WIDTH))) (S-APPROX (WRITE-MEM V-ADDR MEM1 DATA1) (WRITE-MEM V-ADDR MEM2 DATA2)) NIL) (REWRITE-RULE WRITE-MEM1-MONOTONE ((S-APPROX MEM1 MEM2) (V-APPROX DATA1 DATA2) (PROPERP DATA1) (PROPERP DATA2) (EQUAL (LENGTH DATA1) (MEM-WIDTH)) (EQUAL (LENGTH DATA2) (MEM-WIDTH))) (S-APPROX (WRITE-MEM1 V-ADDR MEM1 DATA1) (WRITE-MEM1 V-ADDR MEM2 DATA2)) NIL) (REWRITE-RULE S-APPROX-OPENER ((NOT (OR (LISTP S1) (OR (LISTP S2) (OR (EQUAL S1 (QUOTE NIL)) (OR (EQUAL S2 (QUOTE NIL)) (OR (RAMP S1) (OR (RAMP S2) (OR (ROMP S1) (OR (ROMP S2) (OR (STUBP S1) (STUBP S2)))))))))))) (EQUAL (S-APPROX S1 S2) (B-APPROX S1 S2)) NIL) (REWRITE-RULE S-APPROX-OPENER ((OR (STUBP S1) (STUBP S2))) (EQUAL (S-APPROX S1 S2) (IF (STUBP S1) (IF (STUBP S2) (V-APPROX (STUB-GUTS S1) (STUB-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE S-APPROX-OPENER ((OR (ROMP S1) (ROMP S2))) (EQUAL (S-APPROX S1 S2) (IF (ROMP S1) (IF (ROMP S2) (V-APPROX (ROM-GUTS S1) (ROM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE S-APPROX-OPENER ((OR (RAMP S1) (RAMP S2))) (EQUAL (S-APPROX S1 S2) (IF (RAMP S1) (IF (RAMP S2) (V-APPROX (RAM-GUTS S1) (RAM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE S-APPROX-OPENER ((OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (EQUAL (S-APPROX S1 S2) (EQUAL S1 S2)) NIL) (REWRITE-RULE S-APPROX-OPENER ((OR (LISTP S1) (LISTP S2))) (EQUAL (S-APPROX S1 S2) (IF (LISTP S1) (IF (LISTP S2) (IF (S-APPROX (CAR S1) (CAR S2)) (S-APPROX (CDR S1) (CDR S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE FOURP-IMPLIES-S-APPROX-IS-B-APPROX ((FOURP X) (FOURP Y) (B-APPROX X Y)) (EQUAL (S-APPROX X Y) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-CONSEQUENCE-2 ((MONOTONICITY-PROPERTY (QUOTE 2) FN NETLIST A1 A2 S1 S2) (V-APPROX A1 A2) (S-APPROX S1 S2)) (S-APPROX (DUAL-EVAL (QUOTE 2) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 2) FN A2 S2 NETLIST)) NIL) (REWRITE-RULE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL ((S-KNOWNP X) (NOT (EQUAL X Y))) (NOT (S-APPROX X Y)) NIL) (REWRITE-RULE S-APPROX-X-X NIL (S-APPROX X X) NIL)) TOTALP-LST ((S-APPROX . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (S1 S2) (IF (LISTP S1) (IF (LISTP S2) (IF (S-APPROX (CAR S1) (CAR S2)) (IF (S-APPROX (CDR S1) (CDR S2)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP S2) (QUOTE *1*FALSE) (IF (EQUAL S1 (QUOTE NIL)) (EQUAL S1 S2) (IF (EQUAL S2 (QUOTE NIL)) (EQUAL S1 S2) (IF (RAMP S1) (IF (RAMP S2) (V-APPROX (RAM-GUTS S1) (RAM-GUTS S2)) (QUOTE *1*FALSE)) (IF (RAMP S2) (QUOTE *1*FALSE) (IF (ROMP S1) (IF (ROMP S2) (V-APPROX (ROM-GUTS S1) (ROM-GUTS S2)) (QUOTE *1*FALSE)) (IF (ROMP S2) (QUOTE *1*FALSE) (IF (STUBP S1) (IF (STUBP S2) (V-APPROX (STUB-GUTS S1) (STUB-GUTS S2)) (QUOTE *1*FALSE)) (IF (STUBP S2) (QUOTE *1*FALSE) (B-APPROX S1 S2)))))))))))) LISP-CODE *1*S-APPROX SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (LISTP S1) (LISTP S2)) (LISTP S1) (LISTP S2)) (((CDR S1) (CDR S2)) ((CAR S1) (CAR S2)))) (TESTS-AND-CASES ((OR (LISTP S1) (LISTP S2)) (LISTP S1) (NOT (LISTP S2))) NIL) (TESTS-AND-CASES ((OR (LISTP S1) (LISTP S2)) (NOT (LISTP S1))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (OR (RAMP S1) (RAMP S2)) (RAMP S1) (RAMP S2)) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (OR (RAMP S1) (RAMP S2)) (RAMP S1) (NOT (RAMP S2))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (OR (RAMP S1) (RAMP S2)) (NOT (RAMP S1))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (OR (ROMP S1) (ROMP S2)) (ROMP S1) (ROMP S2)) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (OR (ROMP S1) (ROMP S2)) (ROMP S1) (NOT (ROMP S2))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (OR (ROMP S1) (ROMP S2)) (NOT (ROMP S1))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (NOT (OR (ROMP S1) (ROMP S2))) (OR (STUBP S1) (STUBP S2)) (STUBP S1) (STUBP S2)) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (NOT (OR (ROMP S1) (ROMP S2))) (OR (STUBP S1) (STUBP S2)) (STUBP S1) (NOT (STUBP S2))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (NOT (OR (ROMP S1) (ROMP S2))) (OR (STUBP S1) (STUBP S2)) (NOT (STUBP S1))) NIL) (TESTS-AND-CASES ((NOT (OR (LISTP S1) (LISTP S2))) (NOT (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL)))) (NOT (OR (RAMP S1) (RAMP S2))) (NOT (OR (ROMP S1) (ROMP S2))) (NOT (OR (STUBP S1) (STUBP S2)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (S1) (COUNT S1) LESSP (CAR-LESSP ZERO CDR-LESSP)) (JUSTIFICATION (S2) (COUNT S2) LESSP (CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1 2) SATELLITES (*1*S-APPROX) IMMEDIATE-DEPENDENTS0 (G*1*S-APPROX-ON S-APPROX-ON1 G*1*S-APPROX-OFF S-APPROX-OFF1 RESET-CHIP-FROM-ANY-STATE MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA S-APPROX-MAKE-LIST XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE DOUBLET-P-EQUAL-APPROX SIMULATE-MONOTONE S-APPROX-CADR-NTH V-APPROX-CAR-NTH V-S-APPROX-LIST DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-IMPLIES-S-APPROX-ALIST S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE S-APPROX-LIST-IMPLIES-S-APPROX-ALIST S-APPROX-LIST S-APPROX-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE S-APPROX-OFF S-APPROX-OPENER DUAL-PORT-RAM-VALUE-MONOTONE S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM1 READ-MEM-MONOTONE READ-MEM1-MONOTONE VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE FOURP-IMPLIES-S-APPROX-IS-B-APPROX S-APPROX-IMPLIES-B-APPROX MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY S-APPROX-ALIST S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-APPROX-X-X) EVENT (DEFN S-APPROX (S1 S2) (IF (OR (LISTP S1) (LISTP S2)) (IF (LISTP S1) (IF (LISTP S2) (AND (S-APPROX (CAR S1) (CAR S2)) (S-APPROX (CDR S1) (CDR S2))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (OR (EQUAL S1 (QUOTE NIL)) (EQUAL S2 (QUOTE NIL))) (EQUAL S1 S2) (IF (OR (RAMP S1) (RAMP S2)) (IF (RAMP S1) (IF (RAMP S2) (V-APPROX (RAM-GUTS S1) (RAM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (OR (ROMP S1) (ROMP S2)) (IF (ROMP S1) (IF (ROMP S2) (V-APPROX (ROM-GUTS S1) (ROM-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (OR (STUBP S1) (STUBP S2)) (IF (STUBP S1) (IF (STUBP S2) (V-APPROX (STUB-GUTS S1) (STUB-GUTS S2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (B-APPROX S1 S2))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . S-APPROX) (IMMEDIATE-DEPENDENTS0 STUB . S-APPROX) (IMMEDIATE-DEPENDENTS0 ROM . S-APPROX) (IMMEDIATE-DEPENDENTS0 RAM . S-APPROX) (IMMEDIATE-DEPENDENTS0 V-APPROX . S-APPROX) (DCELL . *1*S-APPROX))))) (PUT1-LST (QUOTE *1*MEM-WIDTH) (QUOTE (MAIN-EVENT MEM-WIDTH))) (PUT1-LST (QUOTE MEM-WIDTH) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-WIDTH 4)) TOTALP-LST ((MEM-WIDTH . T)) LINEAR-LEMMAS ((LINEAR-LEMMA MEM-WIDTH-LINEAR-FACTS NIL (LESSP (MEM-WIDTH) (QUOTE 33)) (MEM-WIDTH)) (LINEAR-LEMMA MEM-WIDTH-LINEAR-FACTS NIL (LESSP (QUOTE 31) (MEM-WIDTH)) (MEM-WIDTH))) SDEFN (LAMBDA NIL (QUOTE 32)) LISP-CODE *1*MEM-WIDTH SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194408 SATELLITES (*1*MEM-WIDTH) IMMEDIATE-DEPENDENTS0 (G*1*MEM-WIDTH-ON1 MEM-WIDTH-ON1 G*1*MEM-WIDTH-OFF1 MEM-WIDTH-OFF1 MEMORY-V-FOURP-IMPLIES-GOOD-S GOOD-S-OPENER GOOD-S-PRESERVED GOOD-S-WRITE-MEM-1 GOOD-S-CONSTANT-RAM GOOD-S-ALIST-PAIRLIST MEM-WIDTH-ON G*1*MEM-WIDTH-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE MEM-WIDTH-LINEAR-FACTS S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 MEM-WIDTH-NON-ZERO S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE MEM-WIDTH-OFF G*1*MEM-WIDTH-OFF GOOD-S) EVENT (DEFN MEM-WIDTH NIL (QUOTE 32)) LOCAL-UNDO-TUPLES ((DCELL . *1*MEM-WIDTH))))) (PUT1-LST (QUOTE PLUS-ADD1-OFF) (QUOTE (IDATE 1000402194408 EVENT (TOGGLE PLUS-ADD1-OFF PLUS-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PLUS-ADD1-OFF) (DISABLED-LEMMAS NIL PLUS-ADD1 PLUS-ADD1-OFF . T))))) (PUT1-LST (QUOTE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-ON V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL-OFF DOUBLET-P-EQUAL-APPROX S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL) EVENT (PROVE-LEMMA V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL (REWRITE) (IMPLIES (AND (NOT (EQUAL X Y)) (V-KNOWNP X)) (NOT (V-APPROX X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP-COMPOUND-RECOGNIZER . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 B-APPROX . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 V-APPROX . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) (IMMEDIATE-DEPENDENTS0 V-KNOWNP . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) (LEMMAS V-APPROX . V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL))))) (PUT1-LST (QUOTE *1*V-KNOWNP) (QUOTE (MAIN-EVENT V-KNOWNP))) (PUT1-LST (QUOTE V-KNOWNP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-KNOWNP 3 NIL)) LEMMAS ((REWRITE-RULE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP NIL (V-KNOWNP (CAR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) (UNKNOWN-MACHINE-STATE) (CHIP$NETLIST))))) NIL) (REWRITE-RULE BVP-IMPLIES-V-KNOWNP ((BVP X)) (V-KNOWNP X) NIL)) TOTALP-LST ((V-KNOWNP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (B-KNOWNP (CAR X)) (IF (V-KNOWNP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*V-KNOWNP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*V-KNOWNP) IMMEDIATE-DEPENDENTS0 (G*1*V-KNOWNP-ON V-KNOWNP-ON1 G*1*V-KNOWNP-OFF V-KNOWNP-OFF1 FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE DOUBLET-P-EQUAL-APPROX V-KNOWNP-ON V-KNOWNP-OFF BVP-IMPLIES-V-KNOWNP S-KNOWNP V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) EVENT (DEFN V-KNOWNP (X) (IF (LISTP X) (AND (B-KNOWNP (CAR X)) (V-KNOWNP (CDR X))) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . V-KNOWNP) (DCELL . *1*V-KNOWNP))))) (PUT1-LST (QUOTE *1*V-APPROX) (QUOTE (MAIN-EVENT V-APPROX))) (PUT1-LST (QUOTE V-APPROX) (QUOTE (TYPE-PRESCRIPTION-LST ((V-APPROX 3 NIL NIL)) LEMMAS ((REWRITE-RULE ALL-XS-APPROXIMATES ((ALL-XS VEC1) (EQUAL (LENGTH VEC1) (LENGTH VEC2)) (PROPERP VEC2)) (V-APPROX VEC1 VEC2) NIL) (REWRITE-RULE V-APPROX-CAR-NTH ((V-S-APPROX-LIST FINAL-1 FINAL-2) (LESSP N (LENGTH FINAL-1))) (V-APPROX (CAR (NTH N FINAL-1)) (CAR (NTH N FINAL-2))) NIL) (REWRITE-RULE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE ((ALISTP ALIST1) (ALISTP ALIST2) (V-APPROX-ALIST ALIST1 ALIST2)) (V-APPROX (COLLECT-VALUE X ALIST1) (COLLECT-VALUE X ALIST2)) NIL) (REWRITE-RULE V-APPROX-PRESERVES-PROPERP ((NOT (IFF (PROPERP V1) (PROPERP V2)))) (NOT (V-APPROX V1 V2)) NIL) (REWRITE-RULE V-APPROX-SUBRANGE ((V-APPROX A1 A2)) (V-APPROX (SUBRANGE A1 I J) (SUBRANGE A2 I J)) NIL) (REWRITE-RULE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T ((NOT (NTH N A1)) (NTH N A2)) (NOT (V-APPROX A1 A2)) NIL) (REWRITE-RULE DUAL-PORT-RAM-VALUE-MONOTONE ((NUMBERP ADDRESS-LINES) (S-APPROX S1 S2) (V-APPROX A1 A2)) (V-APPROX (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES A1 S1) (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES A2 S2)) NIL) (REWRITE-RULE READ-MEM-MONOTONE ((BVP V-ADDR) (S-APPROX MEM1 MEM2)) (V-APPROX (READ-MEM V-ADDR MEM1) (READ-MEM V-ADDR MEM2)) NIL) (REWRITE-RULE V-APPROX-MAKE-LIST-X ((EQUAL (LENGTH Y) BITS) (PROPERP Y)) (V-APPROX (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) Y) NIL) (REWRITE-RULE V-APPROX-IMPLIES-B-APPROX-NTH ((EQUAL (NTH N X) C) (NOT (EQUAL (NTH N Y) C)) (B-KNOWNP C)) (NOT (V-APPROX X Y)) NIL) (REWRITE-RULE V-APPROX-X-X NIL (V-APPROX X X) NIL) (REWRITE-RULE READ-MEM1-MONOTONE ((BVP V-ADDR) (S-APPROX MEM1 MEM2)) (V-APPROX (READ-MEM1 V-ADDR MEM1) (READ-MEM1 V-ADDR MEM2)) NIL) (REWRITE-RULE V-APPROX-BVP ((BVP X)) (EQUAL (V-APPROX X Y) (EQUAL X Y)) NIL) (REWRITE-RULE MONOTONICITY-PROPERTY-CONSEQUENCE-0 ((MONOTONICITY-PROPERTY (QUOTE 0) FN NETLIST A1 A2 S1 S2) (V-APPROX A1 A2) (S-APPROX S1 S2)) (V-APPROX (DUAL-EVAL (QUOTE 0) FN A1 S1 NETLIST) (DUAL-EVAL (QUOTE 0) FN A2 S2 NETLIST)) NIL) (REWRITE-RULE V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL ((NOT (EQUAL X Y)) (V-KNOWNP X)) (NOT (V-APPROX X Y)) NIL)) TOTALP-LST ((V-APPROX . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V1 V2) (IF (LISTP V1) (IF (LISTP V2) (IF (B-APPROX (CAR V1) (CAR V2)) (IF (V-APPROX (CDR V1) (CDR V2)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL V1 V2))) LISP-CODE *1*V-APPROX SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP V1)) (((CDR V1) (CDR V2)))) (TESTS-AND-CASES ((NOT (LISTP V1))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V1) (COUNT V1) LESSP (ZERO CDR-LESSP))) IDATE 1000402194408 CONTROLLER-POCKETS (1) SATELLITES (*1*V-APPROX) IMMEDIATE-DEPENDENTS0 (G*1*V-APPROX-ON V-APPROX-ON1 G*1*V-APPROX-OFF V-APPROX-OFF1 ALL-XS-APPROXIMATES DOUBLET-P-EQUAL-APPROX S-APPROX-CADR-NTH V-APPROX-CAR-NTH V-S-APPROX-LIST V-APPROX-LIST V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE V-APPROX-ON DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE V-APPROX-PRESERVES-PROPERP V-APPROX-SUBRANGE V-APPROX-PRESERVES-LENGTH V-APPROX-LENGTH WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T S-APPROX-OPENER V-APPROX-OFF DUAL-PORT-RAM-VALUE-MONOTONE S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM1 READ-MEM-MONOTONE V-APPROX-MAKE-LIST-X V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-X-X READ-MEM1-MONOTONE V-APPROX-BVP VSS-MONOTONE VDD-PARAMETRIC-MONOTONE VDD-MONOTONE TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY S-APPROX-X-X S-APPROX V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) EVENT (DEFN V-APPROX (V1 V2) (IF (LISTP V1) (AND (LISTP V2) (AND (B-APPROX (CAR V1) (CAR V2)) (V-APPROX (CDR V1) (CDR V2)))) (EQUAL V1 V2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-APPROX . V-APPROX) (DCELL . *1*V-APPROX))))) (PUT1-LST (QUOTE *1*B-APPROX) (QUOTE (MAIN-EVENT B-APPROX))) (PUT1-LST (QUOTE B-APPROX) (QUOTE (TYPE-PRESCRIPTION-LST ((B-APPROX 3 NIL NIL)) LEMMAS ((REWRITE-RULE B-APPROX-X NIL (B-APPROX (QUOTE (*1*QUOTE X)) Y) NIL) (REWRITE-RULE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE ((ALISTP ALIST1) (ALISTP ALIST2) (V-APPROX-ALIST ALIST1 ALIST2)) (B-APPROX (VALUE X ALIST1) (VALUE X ALIST2)) NIL) (REWRITE-RULE S-APPROX-IMPLIES-B-APPROX ((S-APPROX X Y)) (B-APPROX X Y) NIL) (REWRITE-RULE F-PULLUP-MONOTONE ((B-APPROX A1 A2)) (B-APPROX (F-PULLUP A1) (F-PULLUP A2)) NIL) (REWRITE-RULE FT-WIRE-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (FT-WIRE A1 B1) (FT-WIRE A2 B2)) NIL) (REWRITE-RULE FT-BUF-MONOTONE ((B-APPROX C1 C2) (B-APPROX A1 A2)) (B-APPROX (FT-BUF C1 A1) (FT-BUF C2 A2)) NIL) (REWRITE-RULE F-IF-MONOTONE ((B-APPROX C1 C2) (B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-IF C1 A1 B1) (F-IF C2 A2 B2)) NIL) (REWRITE-RULE F-EQUV3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-EQUV3 A1 B1 C1) (F-EQUV3 A2 B2 C2)) NIL) (REWRITE-RULE F-XOR3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-XOR3 A1 B1 C1) (F-XOR3 A2 B2 C2)) NIL) (REWRITE-RULE F-EQUV-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-EQUV A1 B1) (F-EQUV A2 B2)) NIL) (REWRITE-RULE F-XOR-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-XOR A1 B1) (F-XOR A2 B2)) NIL) (REWRITE-RULE F-NOR8-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2) (B-APPROX G1 G2) (B-APPROX H1 H2) (B-APPROX I1 I2)) (B-APPROX (F-NOR8 A1 B1 C1 D1 E1 G1 H1 I1) (F-NOR8 A2 B2 C2 D2 E2 G2 H2 I2)) NIL) (REWRITE-RULE F-NOR6-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2) (B-APPROX G1 G2)) (B-APPROX (F-NOR6 A1 B1 C1 D1 E1 G1) (F-NOR6 A2 B2 C2 D2 E2 G2)) NIL) (REWRITE-RULE F-NOR5-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2)) (B-APPROX (F-NOR5 A1 B1 C1 D1 E1) (F-NOR5 A2 B2 C2 D2 E2)) NIL) (REWRITE-RULE F-NOR4-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2)) (B-APPROX (F-NOR4 A1 B1 C1 D1) (F-NOR4 A2 B2 C2 D2)) NIL) (REWRITE-RULE F-NOR3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-NOR3 A1 B1 C1) (F-NOR3 A2 B2 C2)) NIL) (REWRITE-RULE F-NOR-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-NOR A1 B1) (F-NOR A2 B2)) NIL) (REWRITE-RULE F-OR4-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2)) (B-APPROX (F-OR4 A1 B1 C1 D1) (F-OR4 A2 B2 C2 D2)) NIL) (REWRITE-RULE F-OR3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-OR3 A1 B1 C1) (F-OR3 A2 B2 C2)) NIL) (REWRITE-RULE F-OR-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-OR A1 B1) (F-OR A2 B2)) NIL) (REWRITE-RULE F-NAND8-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2) (B-APPROX G1 G2) (B-APPROX H1 H2) (B-APPROX I1 I2)) (B-APPROX (F-NAND8 A1 B1 C1 D1 E1 G1 H1 I1) (F-NAND8 A2 B2 C2 D2 E2 G2 H2 I2)) NIL) (REWRITE-RULE F-NAND6-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2) (B-APPROX G1 G2)) (B-APPROX (F-NAND6 A1 B1 C1 D1 E1 G1) (F-NAND6 A2 B2 C2 D2 E2 G2)) NIL) (REWRITE-RULE F-NAND5-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2) (B-APPROX E1 E2)) (B-APPROX (F-NAND5 A1 B1 C1 D1 E1) (F-NAND5 A2 B2 C2 D2 E2)) NIL) (REWRITE-RULE F-NAND4-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2)) (B-APPROX (F-NAND4 A1 B1 C1 D1) (F-NAND4 A2 B2 C2 D2)) NIL) (REWRITE-RULE F-NAND3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-NAND3 A1 B1 C1) (F-NAND3 A2 B2 C2)) NIL) (REWRITE-RULE F-NAND-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-NAND A1 B1) (F-NAND A2 B2)) NIL) (REWRITE-RULE F-NOT-MONOTONE ((B-APPROX A1 A2)) (B-APPROX (F-NOT A1) (F-NOT A2)) NIL) (REWRITE-RULE F-AND4-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2) (B-APPROX D1 D2)) (B-APPROX (F-AND4 A1 B1 C1 D1) (F-AND4 A2 B2 C2 D2)) NIL) (REWRITE-RULE F-AND3-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2) (B-APPROX C1 C2)) (B-APPROX (F-AND3 A1 B1 C1) (F-AND3 A2 B2 C2)) NIL) (REWRITE-RULE F-AND-MONOTONE ((B-APPROX A1 A2) (B-APPROX B1 B2)) (B-APPROX (F-AND A1 B1) (F-AND A2 B2)) NIL) (REWRITE-RULE F-BUF-MONOTONE ((B-APPROX A1 A2)) (B-APPROX (F-BUF A1) (F-BUF A2)) NIL)) TOTALP-LST ((B-APPROX . T)) SDEFN (LAMBDA (A1 A2) (IF (B-KNOWNP A1) (EQUAL A1 A2) (QUOTE *1*TRUE))) LISP-CODE *1*B-APPROX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194408 SATELLITES (*1*B-APPROX) IMMEDIATE-DEPENDENTS0 (B-APPROX-OFF2 G*1*B-APPROX-ON B-APPROX-ON1 G*1*B-APPROX-OFF B-APPROX-OFF1 B-APPROX-X ALL-XS-APPROXIMATES B-APPROX-ON V-APPROX-ALIST-APPEND V-APPROX-IMPLIES-V-APPROX-ALIST V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE V-APPROX-SUBRANGE V-APPROX-LENGTH V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T S-APPROX-OPENER V-APPROX-MAKE-LIST-X V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-BVP TTL-TRI-OUTPUT-FAST-MONOTONE TTL-TRI-OUTPUT-MONOTONE TTL-OUTPUT-FAST-MONOTONE TTL-OUTPUT-PARAMETRIC-MONOTONE TTL-OUTPUT-MONOTONE TTL-INPUT-MONOTONE TTL-CLK-INPUT-MONOTONE TTL-BIDIRECT-MONOTONE PULLUP-MONOTONE T-WIRE-MONOTONE T-BUF-MONOTONE RAM-ENABLE-CIRCUIT-MONOTONE ID-MONOTONE FD1SLP-MONOTONE FD1SP-MONOTONE FD1S-MONOTONE FD1-MONOTONE PROCMON-MONOTONE DEL10-MONOTONE DEL4-MONOTONE DEL2-MONOTONE B-XOR3-MONOTONE B-XOR-MONOTONE B-OR4-MONOTONE B-OR3-MONOTONE B-OR-MONOTONE B-NOT-IVAP-MONOTONE B-NOT-B4IP-MONOTONE B-NOT-MONOTONE B-NOR8-MONOTONE B-NOR6-MONOTONE B-NOR5-MONOTONE B-NOR4-MONOTONE B-NOR3-MONOTONE B-NOR-MONOTONE B-NBUF-MONOTONE B-NAND8-MONOTONE B-NAND6-MONOTONE B-NAND5-MONOTONE B-NAND4-MONOTONE B-NAND3-MONOTONE B-NAND-MONOTONE B-IF-MONOTONE B-EQUV3-MONOTONE B-EQUV-MONOTONE B-AND4-MONOTONE B-AND3-MONOTONE B-AND-MONOTONE AO7-MONOTONE AO6-MONOTONE AO4-MONOTONE AO2-MONOTONE FOURP-IMPLIES-S-APPROX-IS-B-APPROX S-APPROX-IMPLIES-B-APPROX B-APPROX-OFF F-PULLUP-MONOTONE FT-WIRE-MONOTONE FT-BUF-MONOTONE F-IF-MONOTONE F-EQUV3-MONOTONE F-XOR3-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-NOR8-MONOTONE F-NOR6-MONOTONE F-NOR5-MONOTONE F-NOR4-MONOTONE F-NOR3-MONOTONE F-NOR-MONOTONE F-OR4-MONOTONE F-OR3-MONOTONE F-OR-MONOTONE F-NAND8-MONOTONE F-NAND6-MONOTONE F-NAND5-MONOTONE F-NAND4-MONOTONE F-NAND3-MONOTONE F-NAND-MONOTONE F-NOT-MONOTONE F-AND4-MONOTONE F-AND3-MONOTONE F-AND-MONOTONE F-BUF-MONOTONE V-APPROX-ALIST S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-APPROX-X-X S-APPROX V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL V-APPROX) EVENT (DEFN B-APPROX (A1 A2) (IF (B-KNOWNP A1) (EQUAL A1 A2) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-APPROX) (DCELL . *1*B-APPROX))))) (PUT1-LST (QUOTE G*1*B-KNOWNP-OFF) (QUOTE (IDATE 1000402194408 EVENT (TOGGLE G*1*B-KNOWNP-OFF *1*B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . G*1*B-KNOWNP-OFF) (DISABLED-LEMMAS NIL *1*B-KNOWNP G*1*B-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE B-KNOWNP-OFF) (QUOTE (IDATE 1000402194408 EVENT (TOGGLE B-KNOWNP-OFF B-KNOWNP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-OFF) (DISABLED-LEMMAS NIL B-KNOWNP B-KNOWNP-OFF . T))))) (PUT1-LST (QUOTE B-KNOWNP-COMPOUND-RECOGNIZER) (QUOTE (IDATE 1000402194408 IMMEDIATE-DEPENDENTS0 (B-KNOWNP-COMPOUND-RECOGNIZER-ON B-KNOWNP-COMPOUND-RECOGNIZER-OFF B-APPROX-X V-APPROX-SUBRANGE V-APPROX-LENGTH V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-B-APPROX-NTH BVP-IMPLIES-V-KNOWNP S-APPROX-IMPLIES-B-APPROX F-PULLUP-MONOTONE FT-WIRE-MONOTONE FT-BUF-MONOTONE F-IF-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-OR-MONOTONE F-NOT-MONOTONE F-AND-MONOTONE F-BUF-MONOTONE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-APPROX-X-X V-KNOWNP-IMPLIES-V-APPROX-IS-EQUAL) EVENT (PROVE-LEMMA B-KNOWNP-COMPOUND-RECOGNIZER (REWRITE) (EQUAL (B-KNOWNP X) (OR (TRUEP X) (OR (FALSEP X) (ZP X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z . B-KNOWNP-COMPOUND-RECOGNIZER) (IMMEDIATE-DEPENDENTS0 B-KNOWNP . B-KNOWNP-COMPOUND-RECOGNIZER) (FALSE-COMPOUND-RECOGNIZER-ALIST NIL . B-KNOWNP-COMPOUND-RECOGNIZER) (TRUE-COMPOUND-RECOGNIZER-ALIST NIL . B-KNOWNP-COMPOUND-RECOGNIZER))))) (PUT1-LST (QUOTE *1*B-KNOWNP) (QUOTE (MAIN-EVENT B-KNOWNP))) (PUT1-LST (QUOTE B-KNOWNP) (QUOTE (TYPE-PRESCRIPTION-LST ((B-KNOWNP 3 NIL)) TOTALP-LST ((B-KNOWNP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL X (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (EQUAL X (QUOTE (*1*QUOTE Z)))))) LISP-CODE *1*B-KNOWNP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194408 SATELLITES (*1*B-KNOWNP) IMMEDIATE-DEPENDENTS0 (B-KNOWNP-OFF2 G*1*B-KNOWNP-OFF2 B-KNOWNP-ON1 G*1*B-KNOWNP-ON1 B-KNOWNP-OFF1 ALL-XS-APPROXIMATES B-KNOWNP-ON G*1*B-KNOWNP-OFF1 DUAL-PORT-RAM-STATE-MONOTONE V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T DUAL-PORT-RAM-VALUE-MONOTONE V-APPROX-MAKE-LIST-X V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL G*1*B-KNOWNP-ON V-APPROX-IMPLIES-B-APPROX-NTH V-APPROX-BVP S-KNOWNP V-KNOWNP B-APPROX G*1*B-KNOWNP-OFF B-KNOWNP-OFF B-KNOWNP-COMPOUND-RECOGNIZER) EVENT (DEFN B-KNOWNP (X) (OR (EQUAL X (QUOTE *1*TRUE)) (OR (EQUAL X (QUOTE *1*FALSE)) (EQUAL X (QUOTE (*1*QUOTE Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z . B-KNOWNP) (DCELL . *1*B-KNOWNP))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-SUMMARY) (QUOTE (IDATE 1000402194408 EVENT (PROVE-LEMMA FM9001=CHIP-SYSTEM-SUMMARY NIL (IMPLIES (AND (FM9001-STATEP S) (NO-HOLDS-RESET-OR-TEST I (TOTAL-MICROCYCLES (MAP-DOWN S) (MAP-UP-INPUTS I) N))) (EQUAL (FM9001 S N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) I (MAP-DOWN S) (CHIP-SYSTEM$NETLIST) (TOTAL-MICROCYCLES (MAP-DOWN S) (MAP-UP-INPUTS I) N))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE NO-HOLDS-RESET-OR-TEST *1*CHIP-SYSTEM$NETLIST *1*CHIP-SYSTEM&) (USE (FM9001=CHIP-SYSTEM (STATE S) (NETLIST (CHIP-SYSTEM$NETLIST)) (INPUTS I) (N N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 FM9001=CHIP-SYSTEM . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$NETLIST . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 FM9001 . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 NO-HOLDS-RESET-OR-TEST . FM9001=CHIP-SYSTEM-SUMMARY) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001=CHIP-SYSTEM-SUMMARY))))) (PUT1-LST (QUOTE *1*NO-HOLDS-RESET-OR-TEST) (QUOTE (MAIN-EVENT NO-HOLDS-RESET-OR-TEST))) (PUT1-LST (QUOTE NO-HOLDS-RESET-OR-TEST) (QUOTE (TYPE-PRESCRIPTION-LST ((NO-HOLDS-RESET-OR-TEST 3 NIL NIL)) TOTALP-LST ((NO-HOLDS-RESET-OR-TEST . T)) SDEFN (LAMBDA (I C) (IF (CHIP-SYSTEM-OPERATING-INPUTS-P I C) (OPERATING-INPUTS-P (MAP-UP-INPUTS I) C) (QUOTE *1*FALSE))) LISP-CODE *1*NO-HOLDS-RESET-OR-TEST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194356 SATELLITES (*1*NO-HOLDS-RESET-OR-TEST) IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-SUMMARY) EVENT (DEFN NO-HOLDS-RESET-OR-TEST (I C) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P I C) (OPERATING-INPUTS-P (MAP-UP-INPUTS I) C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . NO-HOLDS-RESET-OR-TEST) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . NO-HOLDS-RESET-OR-TEST) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . NO-HOLDS-RESET-OR-TEST) (DCELL . *1*NO-HOLDS-RESET-OR-TEST))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-SUMMARY) EVENT (PROVE-LEMMA FM9001=CHIP-SYSTEM (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (FM9001-STATEP STATE) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N))))) (EQUAL (FM9001 STATE N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (MAP-DOWN STATE) NETLIST (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N))))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT MAP-UP-INVERTS-MAP-DOWN) (USE (FM9001=FM9001-INTERPRETER) (CHIP-SYSTEM=FM9001-INTERPRETER (STATE (MAP-DOWN STATE)) (INSTRUCTIONS N) (PC (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 MAP-UP-INVERTS-MAP-DOWN . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 FM9001=FM9001-INTERPRETER . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001-INTERPRETER . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 FM9001 . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001=CHIP-SYSTEM) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . FM9001=CHIP-SYSTEM) (LEMMAS FM9001 . FM9001=CHIP-SYSTEM))))) (PUT1-LST (QUOTE FM9001=CHIP-SYSTEM-LEMMA1) (QUOTE (IDATE 1000402194356 EVENT (PROVE-LEMMA FM9001=CHIP-SYSTEM-LEMMA1 (REWRITE) (EQUAL (NTH (QUOTE 10) (CAR (MAP-DOWN STATE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((ENABLE NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . FM9001=CHIP-SYSTEM-LEMMA1) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . FM9001=CHIP-SYSTEM-LEMMA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001=CHIP-SYSTEM-LEMMA1) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FM9001=CHIP-SYSTEM-LEMMA1) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001=CHIP-SYSTEM-LEMMA1) (IMMEDIATE-DEPENDENTS0 NTH . FM9001=CHIP-SYSTEM-LEMMA1) (LEMMAS NTH . FM9001=CHIP-SYSTEM-LEMMA1))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM) EVENT (PROVE-LEMMA FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT (REWRITE) (IMPLIES (FM9001-STATEP STATE) (MACROCYCLE-INVARIANT (MAP-DOWN STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))) ((ENABLE LENGTH-MAKE-LIST PROPERP-MAKE-LIST BVP-MAKE-LIST) (DISABLE MAKE-LIST *1*MAKE-LIST CARRY-IN-HELP CV_FETCH1 READ-MEM MEMORY-OKP *1*MEMORY-OKP ALL-RAMP-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 BOOLP . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) (LEMMAS MACROCYCLE-INVARIANT . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT) EVENT (PROVE-LEMMA FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 (REWRITE) (EQUAL (EQUAL (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (CV_FETCH1 (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) Z (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))) (QUOTE *1*TRUE)) ((ENABLE CV_FETCH1 CARRY-IN-HELP C-FLAG OP-CODE V_FETCH1 APPEND MPG MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 SUBRANGE . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 MPG . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 B-OR . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 B-NAND . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 B-NOT . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 OP-CODE . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 C-FLAG . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1) (LEMMAS EQUAL . FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1))))) (PUT1-LST (QUOTE FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM) EVENT (PROVE-LEMMA FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE (REWRITE) (IMPLIES (FM9001-STATEP STATE) (FM9001-STATE-STRUCTURE (MAP-DOWN STATE))) ((DISABLE MAKE-LIST *1*MAKE-LIST CV_FETCH1 *1*CV_FETCH1 MEMORY-OKP *1*MEMORY-OKP ALL-RAMP-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE) (LEMMAS FM9001-STATE-STRUCTURE . FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE))))) (PUT1-LST (QUOTE MAP-UP-INVERTS-MAP-DOWN) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM) EVENT (PROVE-LEMMA MAP-UP-INVERTS-MAP-DOWN (REWRITE) (IMPLIES (FM9001-STATEP STATE) (EQUAL (MAP-UP (MAP-DOWN STATE)) STATE)) ((ENABLE REGS FLAGS NTH) (DISABLE MAKE-LIST *1*MAKE-LIST CV_FETCH1 *1*CV_FETCH1 MEMORY-OKP *1*MEMORY-OKP ALL-RAMP-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 LENGTH . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 NTH . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 REGS . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FLAGS . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAP-DOWN . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAP-UP . MAP-UP-INVERTS-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FM9001-STATEP . MAP-UP-INVERTS-MAP-DOWN) (LEMMAS MAP-UP . MAP-UP-INVERTS-MAP-DOWN))))) (PUT1-LST (QUOTE *1*MAP-DOWN) (QUOTE (MAIN-EVENT MAP-DOWN))) (PUT1-LST (QUOTE MAP-DOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-DOWN 16 NIL)) LEMMAS ((REWRITE-RULE MAP-DOWN-INVERTS-MAP-UP ((MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))))))) (EQUAL (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))))) (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL)) TOTALP-LST ((MAP-DOWN . T)) SDEFN (LAMBDA (STATE) (CONS (P-MAP-DOWN (CAR STATE)) (CONS (MEM-MAP-DOWN (CAR (CDR STATE))) (QUOTE NIL)))) LISP-CODE *1*MAP-DOWN SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194356 SATELLITES (*1*MAP-DOWN) IMMEDIATE-DEPENDENTS0 (MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN) EVENT (DEFN MAP-DOWN (STATE) (CONS (P-MAP-DOWN (CAR STATE)) (CONS (MEM-MAP-DOWN (CAR (CDR STATE))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-DOWN . MAP-DOWN) (IMMEDIATE-DEPENDENTS0 P-MAP-DOWN . MAP-DOWN) (DCELL . *1*MAP-DOWN))))) (PUT1-LST (QUOTE *1*MEM-MAP-DOWN) (QUOTE (MAIN-EVENT MEM-MAP-DOWN))) (PUT1-LST (QUOTE MEM-MAP-DOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-MAP-DOWN 16 NIL)) TOTALP-LST ((MEM-MAP-DOWN . T)) SDEFN (LAMBDA (MEMORY) (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LISP-CODE *1*MEM-MAP-DOWN SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194356 SATELLITES (*1*MEM-MAP-DOWN) IMMEDIATE-DEPENDENTS0 (MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN) EVENT (DEFN MEM-MAP-DOWN (MEMORY) (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . MEM-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . MEM-MAP-DOWN) (DCELL . *1*MEM-MAP-DOWN))))) (PUT1-LST (QUOTE *1*P-MAP-DOWN) (QUOTE (MAIN-EVENT P-MAP-DOWN))) (PUT1-LST (QUOTE P-MAP-DOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((P-MAP-DOWN 16 NIL)) TOTALP-LST ((P-MAP-DOWN . T)) SDEFN (LAMBDA (P-STATE) (CONS (CONS (CAR P-STATE) (CONS (QUOTE *1*FALSE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (QUOTE NIL))))) (CONS (CAR (CDR P-STATE)) (CONS (READ-MEM (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CAR P-STATE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (READ-MEM (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CAR P-STATE)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CONS (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (QUOTE NIL)))))))))))))) LISP-CODE *1*P-MAP-DOWN SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194356 SATELLITES (*1*P-MAP-DOWN) IMMEDIATE-DEPENDENTS0 (MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN) EVENT (DEFN P-MAP-DOWN (P-STATE) (CONS (CONS (CAR P-STATE) (CONS (QUOTE *1*FALSE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (QUOTE NIL))))) (CONS (CAR (CDR P-STATE)) (CONS (READ-MEM (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CAR P-STATE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (READ-MEM (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CAR P-STATE)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (CONS (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (QUOTE NIL)))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH1 . P-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 READ-MEM . P-MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . P-MAP-DOWN) (DCELL . *1*P-MAP-DOWN))))) (PUT1-LST (QUOTE *1*FM9001-STATEP) (QUOTE (MAIN-EVENT FM9001-STATEP))) (PUT1-LST (QUOTE FM9001-STATEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-STATEP 3 NIL)) LEMMAS ((REWRITE-RULE FM9001-STATEP-MAP-UP-FINAL-STATE NIL (FM9001-STATEP (MAP-UP (FINAL-STATE))) NIL)) TOTALP-LST ((FM9001-STATEP . T)) SDEFN (LAMBDA (STATE) (IF (PROPERP STATE) (IF (EQUAL (LENGTH STATE) (QUOTE 2)) (IF (FM9001-MACHINE-STATEP (CAR STATE)) (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR STATE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FM9001-STATEP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194356 SATELLITES (*1*FM9001-STATEP) IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-MAP-UP-FINAL-STATE FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN) EVENT (DEFN FM9001-STATEP (STATE) (AND (PROPERP STATE) (AND (EQUAL (LENGTH STATE) (QUOTE 2)) (AND (FM9001-MACHINE-STATEP (CAR STATE)) (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR STATE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FM9001-STATEP) (IMMEDIATE-DEPENDENTS0 FM9001-MACHINE-STATEP . FM9001-STATEP) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATEP) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATEP) (DCELL . *1*FM9001-STATEP))))) (PUT1-LST (QUOTE *1*FM9001-MACHINE-STATEP) (QUOTE (MAIN-EVENT FM9001-MACHINE-STATEP))) (PUT1-LST (QUOTE FM9001-MACHINE-STATEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-MACHINE-STATEP 3 NIL)) LEMMAS ((REWRITE-RULE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE NIL (FM9001-MACHINE-STATEP (P-MAP-UP (INITIALIZED-MACHINE-STATE))) NIL)) TOTALP-LST ((FM9001-MACHINE-STATEP . T)) SDEFN (LAMBDA (P-STATE) (IF (PROPERP P-STATE) (IF (EQUAL (LENGTH P-STATE) (QUOTE 2)) (IF (ALL-RAMP-MEM (QUOTE 4) (CAR P-STATE)) (IF (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR P-STATE)) (IF (BVP (CAR (CDR P-STATE))) (EQUAL (LENGTH (CAR (CDR P-STATE))) (QUOTE 4)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FM9001-MACHINE-STATEP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194356 SATELLITES (*1*FM9001-MACHINE-STATEP) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN FM9001-STATEP) EVENT (DEFN FM9001-MACHINE-STATEP (P-STATE) (AND (PROPERP P-STATE) (AND (EQUAL (LENGTH P-STATE) (QUOTE 2)) (AND (ALL-RAMP-MEM (QUOTE 4) (CAR P-STATE)) (AND (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR P-STATE)) (AND (BVP (CAR (CDR P-STATE))) (EQUAL (LENGTH (CAR (CDR P-STATE))) (QUOTE 4)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . FM9001-MACHINE-STATEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FM9001-MACHINE-STATEP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . FM9001-MACHINE-STATEP) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-MACHINE-STATEP) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-MACHINE-STATEP) (DCELL . *1*FM9001-MACHINE-STATEP))))) (PUT1-LST (QUOTE FM9001-INTERPRETER-CORRECT$MAP-DOWN) (QUOTE (IDATE 1000402194356 EVENT (PROVE-LEMMA FM9001-INTERPRETER-CORRECT$MAP-DOWN (REWRITE) (IMPLIES (AND (HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE) (AND (MAP-DOWN-RELATION HIGH-LEVEL-STATE LOW-LEVEL-STATE) (AND (FM9001-STATE-STRUCTURE LOW-LEVEL-STATE) (AND (MACROCYCLE-INVARIANT LOW-LEVEL-STATE PC) (OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES LOW-LEVEL-STATE INPUTS N)))))) (EQUAL (MAP-UP (RUN-FM9001 LOW-LEVEL-STATE INPUTS (TOTAL-MICROCYCLES LOW-LEVEL-STATE INPUTS N))) (FM9001-INTERPRETER HIGH-LEVEL-STATE PC N))) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (USE (MAP-DOWN-RELATION-LEMMA) (FM9001-INTERPRETER-CORRECT (STATE LOW-LEVEL-STATE) (INSTRUCTIONS N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-RELATION-LEMMA . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER-CORRECT . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 MAP-DOWN-RELATION . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (IMMEDIATE-DEPENDENTS0 HIGH-LEVEL-STATE-STRUCTURE . FM9001-INTERPRETER-CORRECT$MAP-DOWN) (LEMMAS MAP-UP . FM9001-INTERPRETER-CORRECT$MAP-DOWN))))) (PUT1-LST (QUOTE MAP-DOWN-RELATION-LEMMA) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT$MAP-DOWN) EVENT (PROVE-LEMMA MAP-DOWN-RELATION-LEMMA (REWRITE) (IMPLIES (AND (HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE) (MAP-DOWN-RELATION HIGH-LEVEL-STATE LOW-LEVEL-STATE)) (EQUAL (MAP-UP LOW-LEVEL-STATE) HIGH-LEVEL-STATE)) ((ENABLE MAP-DOWN-RELATION HIGH-LEVEL-STATE-STRUCTURE MAP-UP REGS FLAGS OPEN-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 LENGTH . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 PROPERP . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 MEM-MAP-UP . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 P-MAP-UP . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 FLAGS . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 REGS . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 MAP-UP . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 MAP-DOWN-RELATION . MAP-DOWN-RELATION-LEMMA) (IMMEDIATE-DEPENDENTS0 HIGH-LEVEL-STATE-STRUCTURE . MAP-DOWN-RELATION-LEMMA) (LEMMAS MAP-UP . MAP-DOWN-RELATION-LEMMA))))) (PUT1-LST (QUOTE HIGH-LEVEL-STATE-STRUCTURE-OFF) (QUOTE (IDATE 1000402194356 EVENT (TOGGLE HIGH-LEVEL-STATE-STRUCTURE-OFF HIGH-LEVEL-STATE-STRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HIGH-LEVEL-STATE-STRUCTURE . HIGH-LEVEL-STATE-STRUCTURE-OFF) (DISABLED-LEMMAS NIL HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE-STRUCTURE-OFF . T))))) (PUT1-LST (QUOTE *1*HIGH-LEVEL-STATE-STRUCTURE) (QUOTE (MAIN-EVENT HIGH-LEVEL-STATE-STRUCTURE))) (PUT1-LST (QUOTE HIGH-LEVEL-STATE-STRUCTURE) (QUOTE (TYPE-PRESCRIPTION-LST ((HIGH-LEVEL-STATE-STRUCTURE 3 NIL)) TOTALP-LST ((HIGH-LEVEL-STATE-STRUCTURE . T)) SDEFN (LAMBDA (STATE) (IF (PROPERP STATE) (IF (PROPERP (CAR STATE)) (IF (EQUAL (LENGTH (CAR STATE)) (QUOTE 2)) (EQUAL (LENGTH STATE) (QUOTE 2)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*HIGH-LEVEL-STATE-STRUCTURE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194356 SATELLITES (*1*HIGH-LEVEL-STATE-STRUCTURE) IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT$MAP-DOWN MAP-DOWN-RELATION-LEMMA HIGH-LEVEL-STATE-STRUCTURE-OFF) EVENT (DEFN HIGH-LEVEL-STATE-STRUCTURE (STATE) (AND (PROPERP STATE) (AND (PROPERP (CAR STATE)) (AND (EQUAL (LENGTH (CAR STATE)) (QUOTE 2)) (EQUAL (LENGTH STATE) (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . HIGH-LEVEL-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP . HIGH-LEVEL-STATE-STRUCTURE) (DCELL . *1*HIGH-LEVEL-STATE-STRUCTURE))))) (PUT1-LST (QUOTE MAP-DOWN-RELATION-OFF) (QUOTE (IDATE 1000402194356 EVENT (TOGGLE MAP-DOWN-RELATION-OFF MAP-DOWN-RELATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-DOWN-RELATION . MAP-DOWN-RELATION-OFF) (DISABLED-LEMMAS NIL MAP-DOWN-RELATION MAP-DOWN-RELATION-OFF . T))))) (PUT1-LST (QUOTE *1*MAP-DOWN-RELATION) (QUOTE (MAIN-EVENT MAP-DOWN-RELATION))) (PUT1-LST (QUOTE MAP-DOWN-RELATION) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-DOWN-RELATION 3 NIL NIL)) TOTALP-LST ((MAP-DOWN-RELATION . T)) SDEFN (LAMBDA (HIGH-LEVEL-STATE LOW-LEVEL-STATE) (IF (EQUAL (REGS (CAR HIGH-LEVEL-STATE)) (CAR (REGS (CAR LOW-LEVEL-STATE)))) (IF (EQUAL (FLAGS (CAR HIGH-LEVEL-STATE)) (FLAGS (CAR LOW-LEVEL-STATE))) (EQUAL (CAR (CDR HIGH-LEVEL-STATE)) (CAR (CAR (CDR LOW-LEVEL-STATE)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MAP-DOWN-RELATION SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194356 SATELLITES (*1*MAP-DOWN-RELATION) IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT$MAP-DOWN MAP-DOWN-RELATION-LEMMA MAP-DOWN-RELATION-OFF) EVENT (DEFN MAP-DOWN-RELATION (HIGH-LEVEL-STATE LOW-LEVEL-STATE) (AND (EQUAL (REGS (CAR HIGH-LEVEL-STATE)) (CAR (REGS (CAR LOW-LEVEL-STATE)))) (AND (EQUAL (FLAGS (CAR HIGH-LEVEL-STATE)) (FLAGS (CAR LOW-LEVEL-STATE))) (EQUAL (CAR (CDR HIGH-LEVEL-STATE)) (CAR (CAR (CDR LOW-LEVEL-STATE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS . MAP-DOWN-RELATION) (IMMEDIATE-DEPENDENTS0 REGS . MAP-DOWN-RELATION) (DCELL . *1*MAP-DOWN-RELATION))))) (PUT1-LST (QUOTE FM9001=FM9001-INTERPRETER) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM) EVENT (PROVE-LEMMA FM9001=FM9001-INTERPRETER NIL (EQUAL (FM9001 STATE N) (FM9001-INTERPRETER STATE (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) N)) ((ENABLE FM9001 FM9001-INTERPRETER) (DISABLE FM9001-STEP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-SIZE . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 OPEN-FM9001-INTERPRETER . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . FM9001=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001 . FM9001=FM9001-INTERPRETER))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001-INTERPRETER) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM) EVENT (PROVE-LEMMA CHIP-SYSTEM=FM9001-INTERPRETER (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (FM9001-STATE-STRUCTURE STATE) (AND (MACROCYCLE-INVARIANT STATE PC) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS)))))) (EQUAL (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP STATE) PC INSTRUCTIONS))) ((DISABLE FM9001-STATE-STRUCTURE MACROCYCLE-INVARIANT MAP-UP CHIP-SYSTEM-INVARIANT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=RUN-FM9001 . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER-CORRECT . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 MAP-UP . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . CHIP-SYSTEM=FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM=FM9001-INTERPRETER) (LEMMAS MAP-UP . CHIP-SYSTEM=FM9001-INTERPRETER))))) (PUT1-LST (QUOTE FM9001-INTERPRETER-CORRECT) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (INSTANCE-THEOREM FM9001-INTERPRETER-CORRECT$MAP-DOWN CHIP-SYSTEM=FM9001-INTERPRETER) EVENT (PROVE-LEMMA FM9001-INTERPRETER-CORRECT (REWRITE) (IMPLIES (AND (FM9001-STATE-STRUCTURE STATE) (AND (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES STATE INPUTS INSTRUCTIONS)))) (EQUAL (MAP-UP (RUN-FM9001 STATE INPUTS (TOTAL-MICROCYCLES STATE INPUTS INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP STATE) PC INSTRUCTIONS))) ((INDUCT (TOTAL-MICROCYCLES STATE INPUTS INSTRUCTIONS)) (DISABLE FM9001-STATE-STRUCTURE MICROCYCLES MACROCYCLE-INVARIANT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT-IS-INVARIANT . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE$INDUCTION . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-PLUS . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 MIDDLE=HIGH . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 OPEN-TOTAL-MICROCYCLES . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 OPEN-OPERATING-INPUTS-P . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 OPEN-FM9001-INTERPRETER . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 MAP-UP . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . FM9001-INTERPRETER-CORRECT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-INTERPRETER-CORRECT) (LEMMAS MAP-UP . FM9001-INTERPRETER-CORRECT))))) (PUT1-LST (QUOTE MIDDLE=HIGH) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT) EVENT (PROVE-LEMMA MIDDLE=HIGH (REWRITE) (IMPLIES (AND (FM9001-STATE-STRUCTURE STATE) (AND (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (MICROCYCLES STATE)))) (EQUAL (MAP-UP (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE))) (FM9001-STEP (MAP-UP STATE) PC))) ((USE (MACROCYCLE-INVARIANT==>PC-REG (PC-REG PC)) (MIDDLE=HIGH$HELP (REGS-REGS (CAR (CAR (CAR STATE)))) (REGS-WE (CAR (CDR (CAR (CAR STATE))))) (REGS-DATA (CAR (CDR (CDR (CAR (CAR STATE)))))) (REGS-ADDRESS (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (FLAGS (CAR (CDR (CAR STATE)))) (A-REG (CAR (CDR (CDR (CAR STATE))))) (B-REG (CAR (CDR (CDR (CDR (CAR STATE)))))) (I-REG (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (DATA-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (ADDR-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (LAST-RESET- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))) (LAST-DTACK- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (LAST-HOLD- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (PC-REG (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CNTL-STATE (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (MEM (CAR (CAR (CDR STATE)))) (CNTL (CAR (CDR (CAR (CDR STATE))))) (CLOCK (CAR (CDR (CDR (CAR (CDR STATE)))))) (COUNT (CAR (CDR (CDR (CDR (CAR (CDR STATE))))))) (DTACK (CAR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (LAST-RW- (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (LAST-ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (LAST-DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (INSTR (READ-MEM (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CONS (CAR (CAR (CAR STATE))) (CONS (CAR (CDR (CAR (CAR STATE)))) (CONS (CAR (CDR (CDR (CAR (CAR STATE))))) (CONS (CAR (CDR (CDR (CDR (CAR (CAR STATE)))))) (QUOTE NIL)))))) (CAR (CAR (CDR STATE))))) (MICROCYCLES (MICROCYCLES STATE))) (FM9001-STATE-AS-A-LIST)) (DISABLE FM9001-STATE-STRUCTURE MACROCYCLE-INVARIANT T_FETCH1) (ENABLE MAP-UP REGS FLAGS PC-REG OPEN-NTH FM9001-STEP*) (EXPAND (MICROCYCLES STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MEM-MAP-UP . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 P-MAP-UP . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 REGS . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 FLAGS . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 FM9001-STEP* . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 PC-REG . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT==>PC-REG . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MIDDLE=HIGH$HELP . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-AS-A-LIST . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 FM9001-STEP . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MAP-UP . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MIDDLE=HIGH) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . MIDDLE=HIGH) (LEMMAS MAP-UP . MIDDLE=HIGH))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT==>PC-REG) (QUOTE (IDATE 1000402194356 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT==>PC-REG NIL (IMPLIES (MACROCYCLE-INVARIANT STATE PC-REG) (EQUAL (PC-REG (CAR STATE)) PC-REG)) ((ENABLE PC-REG MACROCYCLE-INVARIANT OPEN-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM . MACROCYCLE-INVARIANT==>PC-REG) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . MACROCYCLE-INVARIANT==>PC-REG) (IMMEDIATE-DEPENDENTS0 PC-REG . MACROCYCLE-INVARIANT==>PC-REG) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT==>PC-REG))))) (PUT1-LST (QUOTE MIDDLE=HIGH$HELP) (QUOTE (IDATE 1000402194355 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH) EVENT (PROVE-LEMMA MIDDLE=HIGH$HELP NIL (IMPLIES (AND (MACROCYCLE-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) PC-REG) (OPERATING-INPUTS-P INPUTS (MICROCYCLES (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL)))))) (EQUAL (MAP-UP (RUN-FM9001 (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (MICROCYCLES (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL)))))) (FM9001-STEP* (CONS (CONS REGS-REGS (CONS FLAGS (QUOTE NIL))) (CONS MEM (QUOTE NIL))) PC-REG))) ((ENABLE EXPAND-*-CONNECTIVES OPEN-NTH T_FETCH1 WRITE-REGS REGFILE-OKP REG-DIRECT->NOT-REG-INDIRECT FM9001-STEP) (ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY FM9001-STEP-THEORY) (DISABLE PLUS *1*PLUS PLUS-ADD1 MAKE-TREE *1*MAKE-TREE OPEN-RUN-INPUTS-P OPEN-RUN-INPUTS-P-ADD1 OPEN-OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SEFB1->SEFB1$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 SEFA0->SEFA1$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 SEFB0->SEFB1$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BV-V-ALU-ALU-INC-ALU-DEC . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 READA0->READA3$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-AS-DEC-B . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BV2P . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-AS-INC-B . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FETCH0->FETCH0$SIM2 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 READB0->READB3$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-IF . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 WRITE0->WRITE3$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 UPDATE->UPDATE$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU-1 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU-1 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-PLUS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FETCH1->DECODE$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-MEM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 REGA->REGA$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-SIGN-EXTEND . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IF . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-SIGN-EXTEND . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 REGB->UPDATE$SIM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM-WRITE-MEM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 F-BUF . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FETCH0->FETCH0$SIM0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 REGS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FLAGS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-FETCH . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-OPERAND-B . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-ALU-OPERATION . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-OPERAND-A . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-STEP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-STEP*-LEMMA . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_FETCH1 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 B-OR . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 EXPAND-*-CONNECTIVES . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFB1 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_WRITE0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_REGB . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_UPDATE . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 REG-DIRECT->NOT-REG-INDIRECT . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OR* . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 B-AND . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_FETCH0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_REGA . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_READB0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_READA0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFB0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFA0 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 NOT* . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 AND* . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-STEP-THEORY . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-STEP* . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 MAP-UP . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . MIDDLE=HIGH$HELP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MIDDLE=HIGH$HELP))))) (PUT1-LST (QUOTE FM9001-STEP*-LEMMA) (QUOTE (IDATE 1000402194327 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP) EVENT (PROVE-LEMMA FM9001-STEP*-LEMMA (REWRITE) (EQUAL (EQUAL (CONS X Y) (FM9001-STEP* STATE PC-REG)) (EQUAL (CONS X Y) (FM9001-STEP STATE PC-REG))) ((ENABLE FM9001-STEP*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001-STEP*-LEMMA) (IMMEDIATE-DEPENDENTS0 FM9001-STEP* . FM9001-STEP*-LEMMA) (LEMMAS EQUAL . FM9001-STEP*-LEMMA))))) (PUT1-LST (QUOTE FM9001-STEP*-OFF) (QUOTE (IDATE 1000402194327 EVENT (TOGGLE FM9001-STEP*-OFF FM9001-STEP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP* . FM9001-STEP*-OFF) (DISABLED-LEMMAS NIL FM9001-STEP* FM9001-STEP*-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001-STEP*) (QUOTE (MAIN-EVENT FM9001-STEP*))) (PUT1-LST (QUOTE FM9001-STEP*) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-STEP* 16 NIL NIL)) TOTALP-LST ((FM9001-STEP* . T)) SDEFN (LAMBDA (STATE PC-REG) (FM9001-STEP STATE PC-REG)) LISP-CODE *1*FM9001-STEP* SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194327 SATELLITES (*1*FM9001-STEP*) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH MIDDLE=HIGH$HELP FM9001-STEP*-LEMMA FM9001-STEP*-OFF) EVENT (DEFN FM9001-STEP* (STATE PC-REG) (FM9001-STEP STATE PC-REG)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001-STEP*) (DCELL . *1*FM9001-STEP*))))) (PUT1-LST (QUOTE OPEN-MAP-UP) (QUOTE (IDATE 1000402194327 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CADR-MAP-UP MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE MAP-UP-INVERTS-MAP-DOWN MIDDLE=HIGH$HELP) EVENT (PROVE-LEMMA OPEN-MAP-UP (REWRITE) (EQUAL (MAP-UP (CONS X Y)) (CONS (CONS (CAR (REGS (CAR (CONS X Y)))) (CONS (FLAGS (CAR (CONS X Y))) (QUOTE NIL))) (CONS (CAR (CAR (CDR (CONS X Y)))) (QUOTE NIL)))) ((ENABLE MAP-UP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-UP . OPEN-MAP-UP) (IMMEDIATE-DEPENDENTS0 P-MAP-UP . OPEN-MAP-UP) (IMMEDIATE-DEPENDENTS0 FLAGS . OPEN-MAP-UP) (IMMEDIATE-DEPENDENTS0 REGS . OPEN-MAP-UP) (IMMEDIATE-DEPENDENTS0 MAP-UP . OPEN-MAP-UP) (LEMMAS MAP-UP . OPEN-MAP-UP))))) (PUT1-LST (QUOTE MAP-UP-OFF) (QUOTE (IDATE 1000402194327 EVENT (TOGGLE MAP-UP-OFF MAP-UP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-UP . MAP-UP-OFF) (DISABLED-LEMMAS NIL MAP-UP MAP-UP-OFF . T))))) (PUT1-LST (QUOTE *1*MAP-UP) (QUOTE (MAIN-EVENT MAP-UP))) (PUT1-LST (QUOTE MAP-UP) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-UP 16 NIL)) LEMMAS ((REWRITE-RULE CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET ((CHIP-SYSTEM& NETLIST) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEMORY) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (EQUAL (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) NETLIST (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) INSTRUCTIONS)) NIL) (REWRITE-RULE MAP-UP-INVERTS-MAP-DOWN ((FM9001-STATEP STATE)) (EQUAL (MAP-UP (MAP-DOWN STATE)) STATE) NIL) (REWRITE-RULE FM9001-INTERPRETER-CORRECT$MAP-DOWN ((HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE) (MAP-DOWN-RELATION HIGH-LEVEL-STATE LOW-LEVEL-STATE) (FM9001-STATE-STRUCTURE LOW-LEVEL-STATE) (MACROCYCLE-INVARIANT LOW-LEVEL-STATE PC) (OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES LOW-LEVEL-STATE INPUTS N))) (EQUAL (MAP-UP (RUN-FM9001 LOW-LEVEL-STATE INPUTS (TOTAL-MICROCYCLES LOW-LEVEL-STATE INPUTS N))) (FM9001-INTERPRETER HIGH-LEVEL-STATE PC N)) NIL) (REWRITE-RULE MAP-DOWN-RELATION-LEMMA ((HIGH-LEVEL-STATE-STRUCTURE HIGH-LEVEL-STATE) (MAP-DOWN-RELATION HIGH-LEVEL-STATE LOW-LEVEL-STATE)) (EQUAL (MAP-UP LOW-LEVEL-STATE) HIGH-LEVEL-STATE) NIL) (REWRITE-RULE CHIP-SYSTEM=FM9001-INTERPRETER ((CHIP-SYSTEM& NETLIST) (FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (EQUAL (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST (TOTAL-MICROCYCLES STATE (MAP-UP-INPUTS INPUTS) INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP STATE) PC INSTRUCTIONS)) NIL) (REWRITE-RULE FM9001-INTERPRETER-CORRECT ((FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES STATE INPUTS INSTRUCTIONS))) (EQUAL (MAP-UP (RUN-FM9001 STATE INPUTS (TOTAL-MICROCYCLES STATE INPUTS INSTRUCTIONS))) (FM9001-INTERPRETER (MAP-UP STATE) PC INSTRUCTIONS)) NIL) (REWRITE-RULE MIDDLE=HIGH ((FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (MICROCYCLES STATE))) (EQUAL (MAP-UP (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE))) (FM9001-STEP (MAP-UP STATE) PC)) NIL) (REWRITE-RULE OPEN-MAP-UP NIL (EQUAL (MAP-UP (CONS X Y)) (CONS (CONS (CAR (REGS (CAR (CONS X Y)))) (CONS (FLAGS (CAR (CONS X Y))) (QUOTE NIL))) (CONS (CAR (CAR (CDR (CONS X Y)))) (QUOTE NIL)))) NIL)) TOTALP-LST ((MAP-UP . T)) SDEFN (LAMBDA (STATE) (CONS (P-MAP-UP (CAR STATE)) (CONS (MEM-MAP-UP (CAR (CDR STATE))) (QUOTE NIL)))) LISP-CODE *1*MAP-UP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194327 SATELLITES (*1*MAP-UP) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET CADR-MAP-UP MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP-MAP-UP-FINAL-STATE INSTANCE-THEOREM FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM MAP-UP-INVERTS-MAP-DOWN FM9001-INTERPRETER-CORRECT$MAP-DOWN MAP-DOWN-RELATION-LEMMA CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MIDDLE=HIGH$HELP OPEN-MAP-UP MAP-UP-OFF) EVENT (DEFN MAP-UP (STATE) (CONS (P-MAP-UP (CAR STATE)) (CONS (MEM-MAP-UP (CAR (CDR STATE))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-MAP-UP . MAP-UP) (IMMEDIATE-DEPENDENTS0 P-MAP-UP . MAP-UP) (DCELL . *1*MAP-UP))))) (PUT1-LST (QUOTE *1*MEM-MAP-UP) (QUOTE (MAIN-EVENT MEM-MAP-UP))) (PUT1-LST (QUOTE MEM-MAP-UP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-MAP-UP -1 NIL)) TOTALP-LST ((MEM-MAP-UP . T)) SDEFN (LAMBDA (MEM-STATE) (CAR MEM-STATE)) LISP-CODE *1*MEM-MAP-UP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194327 SATELLITES (*1*MEM-MAP-UP) IMMEDIATE-DEPENDENTS0 (MAP-DOWN-RELATION-LEMMA MIDDLE=HIGH OPEN-MAP-UP MAP-UP) EVENT (DEFN MEM-MAP-UP (MEM-STATE) (CAR MEM-STATE)) LOCAL-UNDO-TUPLES ((DCELL . *1*MEM-MAP-UP))))) (PUT1-LST (QUOTE *1*P-MAP-UP) (QUOTE (MAIN-EVENT P-MAP-UP))) (PUT1-LST (QUOTE P-MAP-UP) (QUOTE (TYPE-PRESCRIPTION-LST ((P-MAP-UP 16 NIL)) TOTALP-LST ((P-MAP-UP . T)) SDEFN (LAMBDA (P-STATE) (CONS (CAR (REGS P-STATE)) (CONS (FLAGS P-STATE) (QUOTE NIL)))) LISP-CODE *1*P-MAP-UP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194327 SATELLITES (*1*P-MAP-UP) IMMEDIATE-DEPENDENTS0 (FM9001-MACHINE-STATEP-P-MAP-UP-INITIALIZED-MACHINE-STATE MAP-DOWN-RELATION-LEMMA MIDDLE=HIGH OPEN-MAP-UP MAP-UP) EVENT (DEFN P-MAP-UP (P-STATE) (CONS (CAR (REGS P-STATE)) (CONS (FLAGS P-STATE) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS . P-MAP-UP) (IMMEDIATE-DEPENDENTS0 REGS . P-MAP-UP) (DCELL . *1*P-MAP-UP))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT-IS-INVARIANT) (QUOTE (IDATE 1000402194327 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT-IS-INVARIANT (REWRITE) (IMPLIES (AND (FM9001-STATE-STRUCTURE STATE) (AND (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (MICROCYCLES STATE)))) (MACROCYCLE-INVARIANT (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) PC)) ((USE (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP (REGS-REGS (CAR (CAR (CAR STATE)))) (REGS-WE (CAR (CDR (CAR (CAR STATE))))) (REGS-DATA (CAR (CDR (CDR (CAR (CAR STATE)))))) (REGS-ADDRESS (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (FLAGS (CAR (CDR (CAR STATE)))) (A-REG (CAR (CDR (CDR (CAR STATE))))) (B-REG (CAR (CDR (CDR (CDR (CAR STATE)))))) (I-REG (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (DATA-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (ADDR-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (LAST-RESET- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))) (LAST-DTACK- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (LAST-HOLD- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (PC-REG (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CNTL-STATE (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (MEM (CAR (CAR (CDR STATE)))) (CNTL (CAR (CDR (CAR (CDR STATE))))) (CLOCK (CAR (CDR (CDR (CAR (CDR STATE)))))) (COUNT (CAR (CDR (CDR (CDR (CAR (CDR STATE))))))) (DTACK (CAR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (LAST-RW- (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (LAST-ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (LAST-DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (INSTR (READ-MEM (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CONS (CAR (CAR (CAR STATE))) (CONS (CAR (CDR (CAR (CAR STATE)))) (CONS (CAR (CDR (CDR (CAR (CAR STATE))))) (CONS (CAR (CDR (CDR (CDR (CAR (CAR STATE)))))) (QUOTE NIL)))))) (CAR (CAR (CDR STATE))))) (MICROCYCLES (MICROCYCLES STATE))) (FM9001-STATE-AS-A-LIST)) (ENABLE MACROCYCLE-INVARIANT*) (DISABLE FM9001-STATE-STRUCTURE MACROCYCLE-INVARIANT T_FETCH1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT* . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT-IS-INVARIANT$HELP . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-AS-A-LIST . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT-IS-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . MACROCYCLE-INVARIANT-IS-INVARIANT) (LEMMAS MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT-IS-INVARIANT))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (QUOTE (IDATE 1000402194326 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT-IS-INVARIANT$HELP NIL (IMPLIES (AND (MACROCYCLE-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) PC) (OPERATING-INPUTS-P INPUTS (MICROCYCLES (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL)))))) (MACROCYCLE-INVARIANT* (RUN-FM9001 (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (MICROCYCLES (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))))) PC)) ((ENABLE EXPAND-*-CONNECTIVES OPEN-NTH T_FETCH1 WRITE-REGS REGFILE-OKP REG-DIRECT->NOT-REG-INDIRECT FM9001-STEP) (ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY FM9001-STEP-THEORY) (DISABLE PLUS *1*PLUS PLUS-ADD1 MAKE-TREE *1*MAKE-TREE OPEN-RUN-INPUTS-P OPEN-RUN-INPUTS-P-ADD1 OPEN-OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SEFB1->SEFB1$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 SEFA0->SEFA1$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 SEFB0->SEFB1$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BV-V-ALU-ALU-INC-ALU-DEC . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 READA0->READA3$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-AS-DEC-B . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BV2P . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-AS-INC-B . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FETCH0->FETCH0$SIM2 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CV_FETCH1$RW-DOAN-MATTA . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 READB0->READB3$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-IF . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 WRITE0->WRITE3$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 UPDATE->UPDATE$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU-1 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU-1 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-IF . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-PLUS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FETCH1->DECODE$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-MEM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 REGA->REGA$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-SIGN-EXTEND . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IF . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-SIGN-EXTEND . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 REGB->UPDATE$SIM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM-WRITE-MEM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 F-BUF . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FETCH0->FETCH0$SIM0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_FETCH1 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 B-OR . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 EXPAND-*-CONNECTIVES . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFB1 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_WRITE0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_REGB . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_UPDATE . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 REG-DIRECT->NOT-REG-INDIRECT . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OR* . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 B-AND . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_FETCH0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_REGA . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_READB0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_READA0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFB0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 T_SEFA0 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 NOT* . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 AND* . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-STEP-THEORY . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT* . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT-IS-INVARIANT$HELP))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT (REWRITE) (EQUAL (MACROCYCLE-INVARIANT* (CONS X Y) PC) (MACROCYCLE-INVARIANT (CONS X Y) PC)) ((ENABLE MACROCYCLE-INVARIANT*) (DISABLE MACROCYCLE-INVARIANT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT* . MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT) (LEMMAS MACROCYCLE-INVARIANT* . MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT*-OFF) (QUOTE (IDATE 1000402194255 EVENT (TOGGLE MACROCYCLE-INVARIANT*-OFF MACROCYCLE-INVARIANT* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT* . MACROCYCLE-INVARIANT*-OFF) (DISABLED-LEMMAS NIL MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT*-OFF . T))))) (PUT1-LST (QUOTE *1*MACROCYCLE-INVARIANT*) (QUOTE (MAIN-EVENT MACROCYCLE-INVARIANT*))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT*) (QUOTE (TYPE-PRESCRIPTION-LST ((MACROCYCLE-INVARIANT* 3 NIL NIL)) LEMMAS ((REWRITE-RULE MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT NIL (EQUAL (MACROCYCLE-INVARIANT* (CONS X Y) PC) (MACROCYCLE-INVARIANT (CONS X Y) PC)) NIL)) TOTALP-LST ((MACROCYCLE-INVARIANT* . T)) SDEFN (LAMBDA (STATE PC) (MACROCYCLE-INVARIANT STATE PC)) LISP-CODE *1*MACROCYCLE-INVARIANT* SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194255 SATELLITES (*1*MACROCYCLE-INVARIANT*) IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT*-OFF) EVENT (DEFN MACROCYCLE-INVARIANT* (STATE PC) (MACROCYCLE-INVARIANT STATE PC)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT*) (DCELL . *1*MACROCYCLE-INVARIANT*))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (INSTANCE-THEOREM CHIP-SYSTEM=FM9001-INTERPRETER) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT (REWRITE) (IMPLIES (AND (FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC)) (CHIP-SYSTEM-INVARIANT STATE)) ((DISABLE CHIP-SYSTEM-INVARIANT MACROCYCLE-INVARIANT FM9001-STATE-STRUCTURE) (USE (MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP (REGS-REGS (CAR (CAR (CAR STATE)))) (REGS-WE (CAR (CDR (CAR (CAR STATE))))) (REGS-DATA (CAR (CDR (CDR (CAR (CAR STATE)))))) (REGS-ADDRESS (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (FLAGS (CAR (CDR (CAR STATE)))) (A-REG (CAR (CDR (CDR (CAR STATE))))) (B-REG (CAR (CDR (CDR (CDR (CAR STATE)))))) (I-REG (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (DATA-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (ADDR-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (LAST-RESET- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))) (LAST-DTACK- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (LAST-HOLD- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (PC-REG (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CNTL-STATE (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (MEM (CAR (CAR (CDR STATE)))) (CNTL (CAR (CDR (CAR (CDR STATE))))) (CLOCK (CAR (CDR (CDR (CAR (CDR STATE)))))) (COUNT (CAR (CDR (CDR (CDR (CAR (CDR STATE))))))) (DTACK (CAR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (LAST-RW- (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (LAST-ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (LAST-DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))))) (FM9001-STATE-AS-A-LIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-AS-A-LIST . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) (LEMMAS CHIP-SYSTEM-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT))))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT) EVENT (PROVE-LEMMA MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP NIL (IMPLIES (MACROCYCLE-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) PC) (CHIP-SYSTEM-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDRESS (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS CNTL (CONS CLOCK (CONS COUNT (CONS DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))))) ((DISABLE CAR-CDR-ELIM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-REGS=READ-MEM . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP==>MEMORY-PROPERP . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-READ-MEM-32 . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-CV_FETCH1 . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) (IMMEDIATE-DEPENDENTS0 MACROCYCLE-INVARIANT . MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP))))) (PUT1-LST (QUOTE *1*MACROCYCLE-INVARIANT) (QUOTE (MAIN-EVENT MACROCYCLE-INVARIANT))) (PUT1-LST (QUOTE MACROCYCLE-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((MACROCYCLE-INVARIANT 3 NIL NIL)) LEMMAS ((REWRITE-RULE FINAL-STATE-OKP NIL (MACROCYCLE-INVARIANT (FINAL-STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT ((FM9001-STATEP STATE)) (MACROCYCLE-INVARIANT (MAP-DOWN STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE MACROCYCLE-INVARIANT-IS-INVARIANT ((FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC) (OPERATING-INPUTS-P INPUTS (MICROCYCLES STATE))) (MACROCYCLE-INVARIANT (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) PC) NIL)) TOTALP-LST ((MACROCYCLE-INVARIANT . T)) SDEFN (LAMBDA (STATE PC) (IF (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR (CAR STATE)))) (IF (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR (CAR (CAR STATE)))) (IF (EQUAL (CAR (CDR (CAR (CAR STATE)))) (QUOTE *1*FALSE)) (IF (BVP (CAR (CDR (CDR (CAR (CAR STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CAR (CAR STATE)))))) (QUOTE 32)) (IF (BVP (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (QUOTE 4)) (IF (BVP (CAR (CDR (CAR STATE)))) (IF (EQUAL (LENGTH (CAR (CDR (CAR STATE)))) (QUOTE 4)) (IF (EQUAL (CAR (CDR (CDR (CAR STATE)))) (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR STATE)))) (IF (BVP (CAR (CDR (CDR (CDR (CAR STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR STATE)))))) (QUOTE 32)) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (QUOTE 32)) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (QUOTE 32)) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR STATE)))) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (QUOTE *1*TRUE)) (IF (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (QUOTE *1*TRUE)) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (QUOTE 4)) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) PC) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CV_FETCH1 (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CDR (CDR (CDR (CDR (CAR STATE)))))) (CAR (CDR (CAR STATE))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (IF (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CAR (CDR STATE)))) (IF (EQUAL (CAR (CDR (CAR (CDR STATE)))) (QUOTE 0)) (IF (NUMBERP (CAR (CDR (CDR (CDR (CAR (CDR STATE))))))) (IF (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (QUOTE 32)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MACROCYCLE-INVARIANT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194255 SATELLITES (*1*MACROCYCLE-INVARIANT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET INSTANCE-THEOREM FINAL-STATE-OKP FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-INTERPRETER-CORRECT$MAP-DOWN CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MACROCYCLE-INVARIANT==>PC-REG MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT*=MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT* MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) EVENT (DEFN MACROCYCLE-INVARIANT (STATE PC) (AND (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR (CAR STATE)))) (AND (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR (CAR (CAR STATE)))) (AND (EQUAL (CAR (CDR (CAR (CAR STATE)))) (QUOTE *1*FALSE)) (AND (BVP (CAR (CDR (CDR (CAR (CAR STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CAR (CAR STATE)))))) (QUOTE 32)) (AND (BVP (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (QUOTE 4)) (AND (BVP (CAR (CDR (CAR STATE)))) (AND (EQUAL (LENGTH (CAR (CDR (CAR STATE)))) (QUOTE 4)) (AND (EQUAL (CAR (CDR (CDR (CAR STATE)))) (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR STATE)))) (AND (BVP (CAR (CDR (CDR (CDR (CAR STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR STATE)))))) (QUOTE 32)) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (QUOTE 32)) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (QUOTE 32)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (READ-REGS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR STATE)))) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (QUOTE *1*TRUE)) (AND (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (QUOTE *1*TRUE)) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (QUOTE 4)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) PC) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CV_FETCH1 (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CDR (CDR (CDR (CDR (CAR STATE)))))) (CAR (CDR (CAR STATE))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CAR (CDR STATE)))) (AND (EQUAL (CAR (CDR (CAR (CDR STATE)))) (QUOTE 0)) (AND (NUMBERP (CAR (CDR (CDR (CDR (CAR (CDR STATE))))))) (AND (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))))) (QUOTE 32)))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 BOOLP . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 READ-REGS . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 BVP . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MACROCYCLE-INVARIANT) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . MACROCYCLE-INVARIANT) (DCELL . *1*MACROCYCLE-INVARIANT))))) (PUT1-LST (QUOTE OPEN-TOTAL-MICROCYCLES) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT) EVENT (PROVE-LEMMA OPEN-TOTAL-MICROCYCLES (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (TOTAL-MICROCYCLES STATE INPUTS N) (QUOTE 0))) (IMPLIES (NOT (ZEROP N)) (EQUAL (TOTAL-MICROCYCLES STATE INPUTS N) (PLUS (MICROCYCLES STATE) (TOTAL-MICROCYCLES (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) (NTHCDR (MICROCYCLES STATE) INPUTS) (SUB1 N)))))) ((ENABLE TOTAL-MICROCYCLES) (DISABLE MICROCYCLES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTHCDR . OPEN-TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . OPEN-TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . OPEN-TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . OPEN-TOTAL-MICROCYCLES) (LEMMAS TOTAL-MICROCYCLES . OPEN-TOTAL-MICROCYCLES) (LEMMAS TOTAL-MICROCYCLES . OPEN-TOTAL-MICROCYCLES))))) (PUT1-LST (QUOTE TOTAL-MICROCYCLES-OFF) (QUOTE (IDATE 1000402194255 EVENT (TOGGLE TOTAL-MICROCYCLES-OFF TOTAL-MICROCYCLES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TOTAL-MICROCYCLES . TOTAL-MICROCYCLES-OFF) (DISABLED-LEMMAS NIL TOTAL-MICROCYCLES TOTAL-MICROCYCLES-OFF . T))))) (PUT1-LST (QUOTE *1*TOTAL-MICROCYCLES) (QUOTE (MAIN-EVENT TOTAL-MICROCYCLES))) (PUT1-LST (QUOTE TOTAL-MICROCYCLES) (QUOTE (TYPE-PRESCRIPTION-LST ((TOTAL-MICROCYCLES 4 NIL NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-TOTAL-MICROCYCLES ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (TOTAL-MICROCYCLES STATE INPUTS N) (PLUS (MICROCYCLES STATE) (TOTAL-MICROCYCLES (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) (NTHCDR (MICROCYCLES STATE) INPUTS) (SUB1 N)))) NIL) (REWRITE-RULE OPEN-TOTAL-MICROCYCLES ((ZEROP N)) (EQUAL (TOTAL-MICROCYCLES STATE INPUTS N) (QUOTE 0)) NIL)) TOTALP-LST ((TOTAL-MICROCYCLES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE INPUTS N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (PLUS (MICROCYCLES STATE) (TOTAL-MICROCYCLES (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) (NTHCDR (MICROCYCLES STATE) INPUTS) (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*TOTAL-MICROCYCLES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) (NTHCDR (MICROCYCLES STATE) INPUTS) (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194255 CONTROLLER-POCKETS (4) SATELLITES (*1*TOTAL-MICROCYCLES) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM FM9001-INTERPRETER-CORRECT$MAP-DOWN CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES-OFF) EVENT (DEFN TOTAL-MICROCYCLES (STATE INPUTS N) (IF (ZEROP N) (QUOTE 0) (PLUS (MICROCYCLES STATE) (TOTAL-MICROCYCLES (RUN-FM9001 STATE INPUTS (MICROCYCLES STATE)) (NTHCDR (MICROCYCLES STATE) INPUTS) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTHCDR . TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 MICROCYCLES . TOTAL-MICROCYCLES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TOTAL-MICROCYCLES) (DCELL . *1*TOTAL-MICROCYCLES))))) (PUT1-LST (QUOTE *1*MICROCYCLES) (QUOTE (MAIN-EVENT MICROCYCLES))) (PUT1-LST (QUOTE MICROCYCLES) (QUOTE (TYPE-PRESCRIPTION-LST ((MICROCYCLES 4 NIL)) TOTALP-LST ((MICROCYCLES . T)) SDEFN (LAMBDA (STATE) (T_FETCH1 (CAR (CDR (CDR (CAR (CDR STATE))))) (READ-MEM (READ-MEM (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR (CAR STATE)))) (CAR (CAR (CDR STATE)))) (CAR (CDR (CAR STATE))))) LISP-CODE *1*MICROCYCLES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194255 SATELLITES (*1*MICROCYCLES) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES) EVENT (DEFN MICROCYCLES (STATE) (T_FETCH1 (CAR (CDR (CDR (CAR (CDR STATE))))) (READ-MEM (READ-MEM (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CAR (CAR (CAR STATE)))) (CAR (CAR (CDR STATE)))) (CAR (CDR (CAR STATE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . MICROCYCLES) (IMMEDIATE-DEPENDENTS0 T_FETCH1 . MICROCYCLES) (DCELL . *1*MICROCYCLES))))) (PUT1-LST (QUOTE OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT (REWRITE) (IMPLIES (AND (OPERATING-INPUTS-P INPUTS N) (NOT (ZEROP N))) (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE))) ((ENABLE OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-OPERATING-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT) (LEMMAS HOLD--INPUT . OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT))))) (PUT1-LST (QUOTE OPERATING-INPUTS-P-1) (QUOTE (IDATE 1000402194255 EVENT (PROVE-LEMMA OPERATING-INPUTS-P-1 (REWRITE) (IMPLIES (AND (OPERATING-INPUTS-P INPUTS N) (NOT (ZEROP N))) (OPERATING-INPUTS-P INPUTS (QUOTE 1))) ((ENABLE OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-OPERATING-INPUTS-P . OPERATING-INPUTS-P-1) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPERATING-INPUTS-P-1) (LEMMAS OPERATING-INPUTS-P . OPERATING-INPUTS-P-1))))) (PUT1-LST (QUOTE OPERATING-INPUTS-P-PLUS) (QUOTE (IDATE 1000402194255 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA OPERATING-INPUTS-P-PLUS (REWRITE) (EQUAL (OPERATING-INPUTS-P INPUTS (PLUS N M)) (AND (OPERATING-INPUTS-P INPUTS N) (OPERATING-INPUTS-P (NTHCDR N INPUTS) M))) ((ENABLE OPERATING-INPUTS-P NTHCDR PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . OPERATING-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 OPEN-OPERATING-INPUTS-P . OPERATING-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . OPERATING-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 NTHCDR . OPERATING-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPERATING-INPUTS-P-PLUS) (LEMMAS OPERATING-INPUTS-P . OPERATING-INPUTS-P-PLUS))))) (PUT1-LST (QUOTE OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P (REWRITE) (IMPLIES (OPERATING-INPUTS-P INPUTS N) (RUN-INPUTS-P INPUTS N)) ((ENABLE RUN-INPUTS-P OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 OPEN-OPERATING-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) (LEMMAS RUN-INPUTS-P . OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P))))) (PUT1-LST (QUOTE OPEN-OPERATING-INPUTS-P) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT OPERATING-INPUTS-P-1 OPERATING-INPUTS-P-PLUS OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P) EVENT (PROVE-LEMMA OPEN-OPERATING-INPUTS-P (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (OPERATING-INPUTS-P INPUTS N) (QUOTE *1*TRUE))) (IMPLIES (NOT (ZEROP N)) (EQUAL (OPERATING-INPUTS-P INPUTS N) (AND (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (BVP (PC-REG-INPUT (CAR INPUTS))) (AND (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N))))))))) ((ENABLE OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . OPEN-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . OPEN-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 BVP . OPEN-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . OPEN-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . OPEN-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPEN-OPERATING-INPUTS-P) (LEMMAS OPERATING-INPUTS-P . OPEN-OPERATING-INPUTS-P) (LEMMAS OPERATING-INPUTS-P . OPEN-OPERATING-INPUTS-P))))) (PUT1-LST (QUOTE OPERATING-INPUTS-P-OFF) (QUOTE (IDATE 1000402194254 EVENT (TOGGLE OPERATING-INPUTS-P-OFF OPERATING-INPUTS-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPERATING-INPUTS-P . OPERATING-INPUTS-P-OFF) (DISABLED-LEMMAS NIL OPERATING-INPUTS-P OPERATING-INPUTS-P-OFF . T))))) (PUT1-LST (QUOTE *1*OPERATING-INPUTS-P) (QUOTE (MAIN-EVENT OPERATING-INPUTS-P))) (PUT1-LST (QUOTE OPERATING-INPUTS-P) (QUOTE (TYPE-PRESCRIPTION-LST ((OPERATING-INPUTS-P 3 NIL NIL)) LEMMAS ((REWRITE-RULE OPERATING-INPUTS-P-1 ((OPERATING-INPUTS-P INPUTS N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (OPERATING-INPUTS-P INPUTS (QUOTE 1)) NIL) (REWRITE-RULE OPERATING-INPUTS-P-PLUS NIL (EQUAL (OPERATING-INPUTS-P INPUTS (PLUS N M)) (IF (OPERATING-INPUTS-P INPUTS N) (OPERATING-INPUTS-P (NTHCDR N INPUTS) M) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE OPEN-OPERATING-INPUTS-P ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (OPERATING-INPUTS-P INPUTS N) (IF (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (BVP (PC-REG-INPUT (CAR INPUTS))) (IF (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE OPEN-OPERATING-INPUTS-P ((ZEROP N)) (EQUAL (OPERATING-INPUTS-P INPUTS N) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((OPERATING-INPUTS-P . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (INPUTS N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (BVP (PC-REG-INPUT (CAR INPUTS))) (IF (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (IF (OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*OPERATING-INPUTS-P SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((CDR INPUTS) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194254 CONTROLLER-POCKETS (2) SATELLITES (*1*OPERATING-INPUTS-P) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM NO-HOLDS-RESET-OR-TEST FM9001=CHIP-SYSTEM FM9001-INTERPRETER-CORRECT$MAP-DOWN CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT OPERATING-INPUTS-P-1 OPERATING-INPUTS-P-PLUS OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P-OFF) EVENT (DEFN OPERATING-INPUTS-P (INPUTS N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (BVP (PC-REG-INPUT (CAR INPUTS))) (AND (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 BVP . OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . OPERATING-INPUTS-P) (DCELL . *1*OPERATING-INPUTS-P))))) (PUT1-LST (QUOTE *1*T_FETCH1) (QUOTE (MAIN-EVENT T_FETCH1))) (PUT1-LST (QUOTE T_FETCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((T_FETCH1 4 NIL NIL NIL)) TOTALP-LST ((T_FETCH1 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (B-OR (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF (B-OR (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_REGA (CDR CLOCK) I-REG FLAGS)) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_READB0 (CDR CLOCK) I-REG FLAGS))) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_READA0 (CDR CLOCK) I-REG FLAGS))) (IF (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_SEFA0 (CDR CLOCK) I-REG FLAGS)) (IF (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_SEFB0 (CDR CLOCK) I-REG FLAGS)) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (T_FETCH0 (CDR CLOCK) I-REG FLAGS)))))) LISP-CODE *1*T_FETCH1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_FETCH1) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MICROCYCLES) EVENT (DEFN T_FETCH1 (CLOCK I-REG FLAGS) (PLUS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2)))) (IF (B-OR (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF (B-OR (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (T_REGA (CDR CLOCK) I-REG FLAGS) (T_READB0 (CDR CLOCK) I-REG FLAGS)) (T_READA0 (CDR CLOCK) I-REG FLAGS)) (IF (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (T_SEFA0 (CDR CLOCK) I-REG FLAGS) (IF (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (T_SEFB0 (CDR CLOCK) I-REG FLAGS) (T_FETCH0 (CDR CLOCK) I-REG FLAGS)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_FETCH1) (IMMEDIATE-DEPENDENTS0 T_SEFB0 . T_FETCH1) (IMMEDIATE-DEPENDENTS0 T_SEFA0 . T_FETCH1) (IMMEDIATE-DEPENDENTS0 POST-INC-P . T_FETCH1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . T_FETCH1) (IMMEDIATE-DEPENDENTS0 NOT* . T_FETCH1) (IMMEDIATE-DEPENDENTS0 AND* . T_FETCH1) (IMMEDIATE-DEPENDENTS0 T_READA0 . T_FETCH1) (IMMEDIATE-DEPENDENTS0 T_READB0 . T_FETCH1) (IMMEDIATE-DEPENDENTS0 T_REGA . T_FETCH1) (IMMEDIATE-DEPENDENTS0 OP-CODE . T_FETCH1) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . T_FETCH1) (IMMEDIATE-DEPENDENTS0 MODE-B . T_FETCH1) (IMMEDIATE-DEPENDENTS0 MODE-A . T_FETCH1) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . T_FETCH1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . T_FETCH1) (IMMEDIATE-DEPENDENTS0 OR* . T_FETCH1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . T_FETCH1) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . T_FETCH1) (IMMEDIATE-DEPENDENTS0 STORE-CC . T_FETCH1) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . T_FETCH1) (IMMEDIATE-DEPENDENTS0 B-OR . T_FETCH1) (DCELL . *1*T_FETCH1))))) (PUT1-LST (QUOTE *1*T_REGA) (QUOTE (MAIN-EVENT T_REGA))) (PUT1-LST (QUOTE T_REGA) (QUOTE (TYPE-PRESCRIPTION-LST ((T_REGA 4 NIL NIL NIL)) TOTALP-LST ((T_REGA . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (REG-DIRECT-P (MODE-B I-REG)) (IF (UNARY-OP-CODE-P (OP-CODE I-REG)) (PLUS (QUOTE 1) (T_UPDATE CLOCK I-REG FLAGS)) (PLUS (QUOTE 1) (T_REGB CLOCK I-REG FLAGS))) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (PLUS (QUOTE 1) (T_WRITE0 CLOCK I-REG FLAGS)) (PLUS (QUOTE 1) (T_UPDATE CLOCK I-REG FLAGS))))) LISP-CODE *1*T_REGA SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_REGA) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1) EVENT (DEFN T_REGA (CLOCK I-REG FLAGS) (PLUS (QUOTE 1) (IF (REG-DIRECT-P (MODE-B I-REG)) (IF (UNARY-OP-CODE-P (OP-CODE I-REG)) (T_UPDATE CLOCK I-REG FLAGS) (T_REGB CLOCK I-REG FLAGS)) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (T_WRITE0 CLOCK I-REG FLAGS) (T_UPDATE CLOCK I-REG FLAGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_WRITE0 . T_REGA) (IMMEDIATE-DEPENDENTS0 STORE-CC . T_REGA) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . T_REGA) (IMMEDIATE-DEPENDENTS0 T_REGB . T_REGA) (IMMEDIATE-DEPENDENTS0 T_UPDATE . T_REGA) (IMMEDIATE-DEPENDENTS0 OP-CODE . T_REGA) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . T_REGA) (IMMEDIATE-DEPENDENTS0 MODE-B . T_REGA) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . T_REGA) (DCELL . *1*T_REGA))))) (PUT1-LST (QUOTE *1*T_REGB) (QUOTE (MAIN-EVENT T_REGB))) (PUT1-LST (QUOTE T_REGB) (QUOTE (TYPE-PRESCRIPTION-LST ((T_REGB 4 NIL NIL NIL)) TOTALP-LST ((T_REGB . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (B-AND (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (PLUS (QUOTE 2) (T_SEFB1 CLOCK I-REG FLAGS)) (PLUS (QUOTE 2) (T_FETCH0 CLOCK I-REG FLAGS)))) LISP-CODE *1*T_REGB SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_REGB) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_REGA) EVENT (DEFN T_REGB (CLOCK I-REG FLAGS) (PLUS (QUOTE 2) (IF (B-AND (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (T_SEFB1 CLOCK I-REG FLAGS) (T_FETCH0 CLOCK I-REG FLAGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_REGB) (IMMEDIATE-DEPENDENTS0 T_SEFB1 . T_REGB) (IMMEDIATE-DEPENDENTS0 OP-CODE . T_REGB) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . T_REGB) (IMMEDIATE-DEPENDENTS0 POST-INC-P . T_REGB) (IMMEDIATE-DEPENDENTS0 MODE-B . T_REGB) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . T_REGB) (IMMEDIATE-DEPENDENTS0 OR* . T_REGB) (IMMEDIATE-DEPENDENTS0 B-AND . T_REGB) (DCELL . *1*T_REGB))))) (PUT1-LST (QUOTE *1*T_READA0) (QUOTE (MAIN-EVENT T_READA0))) (PUT1-LST (QUOTE T_READA0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_READA0 4 NIL NIL NIL)) TOTALP-LST ((T_READA0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (REG-DIRECT-P (MODE-B I-REG)) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_UPDATE (CDR CLOCK) I-REG FLAGS)) (IF (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_WRITE0 (CDR CLOCK) I-REG FLAGS)) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_UPDATE (CDR CLOCK) I-REG FLAGS))) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_READB0 (CDR CLOCK) I-REG FLAGS))))) LISP-CODE *1*T_READA0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_READA0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1) EVENT (DEFN T_READA0 (CLOCK I-REG FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (IF (REG-DIRECT-P (MODE-B I-REG)) (T_UPDATE (CDR CLOCK) I-REG FLAGS) (IF (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (T_WRITE0 (CDR CLOCK) I-REG FLAGS) (T_UPDATE (CDR CLOCK) I-REG FLAGS)) (T_READB0 (CDR CLOCK) I-REG FLAGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_READB0 . T_READA0) (IMMEDIATE-DEPENDENTS0 T_WRITE0 . T_READA0) (IMMEDIATE-DEPENDENTS0 STORE-CC . T_READA0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . T_READA0) (IMMEDIATE-DEPENDENTS0 OP-CODE . T_READA0) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . T_READA0) (IMMEDIATE-DEPENDENTS0 T_UPDATE . T_READA0) (IMMEDIATE-DEPENDENTS0 MODE-B . T_READA0) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . T_READA0) (DCELL . *1*T_READA0))))) (PUT1-LST (QUOTE *1*T_READB0) (QUOTE (MAIN-EVENT T_READB0))) (PUT1-LST (QUOTE T_READB0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_READB0 4 NIL NIL NIL)) TOTALP-LST ((T_READB0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_WRITE0 (CDR CLOCK) I-REG FLAGS)) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_UPDATE (CDR CLOCK) I-REG FLAGS)))) LISP-CODE *1*T_READB0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_READB0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 T_READA0) EVENT (DEFN T_READB0 (CLOCK I-REG FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (IF (STORE-RESULTP (STORE-CC I-REG) FLAGS) (T_WRITE0 (CDR CLOCK) I-REG FLAGS) (T_UPDATE (CDR CLOCK) I-REG FLAGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_UPDATE . T_READB0) (IMMEDIATE-DEPENDENTS0 T_WRITE0 . T_READB0) (IMMEDIATE-DEPENDENTS0 STORE-CC . T_READB0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . T_READB0) (DCELL . *1*T_READB0))))) (PUT1-LST (QUOTE *1*T_UPDATE) (QUOTE (MAIN-EVENT T_UPDATE))) (PUT1-LST (QUOTE T_UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((T_UPDATE 4 NIL NIL NIL)) TOTALP-LST ((T_UPDATE . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (B-AND (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (PLUS (QUOTE 1) (T_SEFB1 CLOCK I-REG FLAGS)) (PLUS (QUOTE 1) (T_FETCH0 CLOCK I-REG FLAGS)))) LISP-CODE *1*T_UPDATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_UPDATE) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_REGA T_READA0 T_READB0) EVENT (DEFN T_UPDATE (CLOCK I-REG FLAGS) (PLUS (QUOTE 1) (IF (B-AND (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (T_SEFB1 CLOCK I-REG FLAGS) (T_FETCH0 CLOCK I-REG FLAGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_UPDATE) (IMMEDIATE-DEPENDENTS0 T_SEFB1 . T_UPDATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . T_UPDATE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . T_UPDATE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . T_UPDATE) (IMMEDIATE-DEPENDENTS0 MODE-B . T_UPDATE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . T_UPDATE) (IMMEDIATE-DEPENDENTS0 OR* . T_UPDATE) (IMMEDIATE-DEPENDENTS0 B-AND . T_UPDATE) (DCELL . *1*T_UPDATE))))) (PUT1-LST (QUOTE *1*T_WRITE0) (QUOTE (MAIN-EVENT T_WRITE0))) (PUT1-LST (QUOTE T_WRITE0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_WRITE0 4 NIL NIL NIL)) TOTALP-LST ((T_WRITE0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_FETCH0 (CDR CLOCK) I-REG FLAGS))) LISP-CODE *1*T_WRITE0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_WRITE0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_REGA T_READA0 T_READB0) EVENT (DEFN T_WRITE0 (CLOCK I-REG FLAGS) (PLUS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1))))) (T_FETCH0 (CDR CLOCK) I-REG FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_WRITE0) (DCELL . *1*T_WRITE0))))) (PUT1-LST (QUOTE *1*T_SEFA0) (QUOTE (MAIN-EVENT T_SEFA0))) (PUT1-LST (QUOTE T_SEFA0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_SEFA0 4 NIL NIL NIL)) TOTALP-LST ((T_SEFA0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (IF (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (PLUS (QUOTE 2) (T_SEFB0 CLOCK I-REG FLAGS)) (PLUS (QUOTE 2) (T_FETCH0 CLOCK I-REG FLAGS)))) LISP-CODE *1*T_SEFA0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_SEFA0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1) EVENT (DEFN T_SEFA0 (CLOCK I-REG FLAGS) (PLUS (QUOTE 2) (IF (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (T_SEFB0 CLOCK I-REG FLAGS) (T_FETCH0 CLOCK I-REG FLAGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_SEFA0) (IMMEDIATE-DEPENDENTS0 T_SEFB0 . T_SEFA0) (IMMEDIATE-DEPENDENTS0 POST-INC-P . T_SEFA0) (IMMEDIATE-DEPENDENTS0 MODE-B . T_SEFA0) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . T_SEFA0) (IMMEDIATE-DEPENDENTS0 OR* . T_SEFA0) (DCELL . *1*T_SEFA0))))) (PUT1-LST (QUOTE *1*T_SEFB0) (QUOTE (MAIN-EVENT T_SEFB0))) (PUT1-LST (QUOTE T_SEFB0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_SEFB0 4 NIL NIL NIL)) TOTALP-LST ((T_SEFB0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (PLUS (QUOTE 2) (T_FETCH0 CLOCK I-REG FLAGS))) LISP-CODE *1*T_SEFB0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_SEFB0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 T_SEFA0) EVENT (DEFN T_SEFB0 (CLOCK I-REG FLAGS) (PLUS (QUOTE 2) (T_FETCH0 CLOCK I-REG FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_SEFB0) (DCELL . *1*T_SEFB0))))) (PUT1-LST (QUOTE *1*T_SEFB1) (QUOTE (MAIN-EVENT T_SEFB1))) (PUT1-LST (QUOTE T_SEFB1) (QUOTE (TYPE-PRESCRIPTION-LST ((T_SEFB1 4 NIL NIL NIL)) TOTALP-LST ((T_SEFB1 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (PLUS (QUOTE 1) (T_FETCH0 CLOCK I-REG FLAGS))) LISP-CODE *1*T_SEFB1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194254 SATELLITES (*1*T_SEFB1) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_REGB T_UPDATE) EVENT (DEFN T_SEFB1 (CLOCK I-REG FLAGS) (PLUS (QUOTE 1) (T_FETCH0 CLOCK I-REG FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T_FETCH0 . T_SEFB1) (DCELL . *1*T_SEFB1))))) (PUT1-LST (QUOTE *1*T_FETCH0) (QUOTE (MAIN-EVENT T_FETCH0))) (PUT1-LST (QUOTE T_FETCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((T_FETCH0 4 NIL NIL NIL)) TOTALP-LST ((T_FETCH0 . T)) SDEFN (LAMBDA (CLOCK I-REG FLAGS) (QUOTE 1)) LISP-CODE *1*T_FETCH0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194254 SATELLITES (*1*T_FETCH0) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 T_REGB T_UPDATE T_WRITE0 T_SEFA0 T_SEFB0 T_SEFB1) EVENT (DEFN T_FETCH0 (CLOCK I-REG FLAGS) (QUOTE 1)) LOCAL-UNDO-TUPLES ((DCELL . *1*T_FETCH0))))) (PUT1-LST (QUOTE SEFB1->SEFB1$SIM) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA SEFB1->SEFB1$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 SEFB1$STEP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MPG . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 IF* . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BV . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BVP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFB1->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFB1->SEFB1$SIM) (LEMMAS RUN-FM9001 . SEFB1->SEFB1$SIM))))) (PUT1-LST (QUOTE SEFB0->SEFB1$SIM) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA SEFB0->SEFB1$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 2)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 SEFB1$STEP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 SEFB0$STEP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MPG . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 IF* . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BV . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 BVP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFB0->SEFB1$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFB0->SEFB1$SIM) (LEMMAS RUN-FM9001 . SEFB0->SEFB1$SIM))))) (PUT1-LST (QUOTE SEFA0->SEFA1$SIM) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA SEFA0->SEFA1$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 2)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) (RN-A I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-A I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 SEFA1$STEP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 SEFA0$STEP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 OR* . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MPG . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MODE-A . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 IF* . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 BV . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 RN-A . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 BVP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFA0->SEFA1$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFA0->SEFA1$SIM) (LEMMAS RUN-FM9001 . SEFA0->SEFA1$SIM))))) (PUT1-LST (QUOTE WRITE0->WRITE3$SIM) (QUOTE (IDATE 1000402194254 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA WRITE0->WRITE3$SIM (REWRITE) (IMPLIES (AND (EQUAL DTACK-WAIT (CAR CLOCK)) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) PC-REG I-REG (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (ZEROP-NOT-ZEROP-CASES DTACK-WAIT)) (ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF WRITE3$STEP1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IF* . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-UPDATE-FLAGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE3$PROGRESS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE3$STEP0 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE2$STEP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE1$STEP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE0$STEP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P-PLUS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 ZEROP-NOT-ZEROP-CASES . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 V-DEC . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 V-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 MPG . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 IF* . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BV . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 OR* . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 BVP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE0->WRITE3$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE0->WRITE3$SIM) (LEMMAS RUN-FM9001 . WRITE0->WRITE3$SIM))))) (PUT1-LST (QUOTE READB0->READB3$SIM) (QUOTE (IDATE 1000402194252 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA READB0->READB3$SIM (REWRITE) (IMPLIES (AND (EQUAL DTACK-WAIT (CAR CLOCK)) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (A-IMMEDIATE-P I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A I-REG) REGS)) A-REG) (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS FLAGS (CONS (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (A-IMMEDIATE-P I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A I-REG) REGS)) A-REG) (CONS (READ-MEM (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) MEM) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (ZEROP-NOT-ZEROP-CASES DTACK-WAIT)) (ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF READB3$STEP1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-SIGN-EXTEND . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-SIGN-EXTEND . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READB3$PROGRESS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-READ-FN . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-READ-FN . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READB3$STEP0 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READB2$STEP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READB1$STEP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READB0$STEP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P-PLUS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 ZEROP-NOT-ZEROP-CASES . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 V-DEC . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MPG . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RN-A . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MODE-A . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 IF* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BV . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 OR* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 NOT* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 AND* . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CV_READB0 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 BVP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB0->READB3$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB0->READB3$SIM) (LEMMAS RUN-FM9001 . READB0->READB3$SIM))))) (PUT1-LST (QUOTE READA0->READA3$SIM) (QUOTE (IDATE 1000402194250 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA READA0->READA3$SIM (REWRITE) (IMPLIES (AND (EQUAL DTACK-WAIT (CAR CLOCK)) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS FLAGS (CONS (READ-MEM (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) MEM) (CONS (READ-REGS (RN-B I-REG) (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32)))))) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG)) (CV_READB0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (ZEROP-NOT-ZEROP-CASES DTACK-WAIT)) (ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF READA3$STEP1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READA3$PROGRESS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-READ-FN . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP-READ-FN . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READA3$STEP0 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READA2$STEP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READA1$STEP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READA0$STEP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P-PLUS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 ZEROP-NOT-ZEROP-CASES . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CV_READB0 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 V-DEC . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MPG . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 IF* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CORE-ALU . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BV . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RN-A . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MODE-A . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 OR* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 NOT* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 AND* . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CV_READA0 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 BVP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA0->READA3$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA0->READA3$SIM) (LEMMAS RUN-FM9001 . READA0->READA3$SIM))))) (PUT1-LST (QUOTE UPDATE->UPDATE$SIM) (QUOTE (IDATE 1000402194248 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA UPDATE->UPDATE$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS) (RN-B LAST-I-REG) REGS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UPDATE$STEP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OR* . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 AND* . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 IF* . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 V-ALU . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BV . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BVP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . UPDATE->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . UPDATE->UPDATE$SIM) (LEMMAS RUN-FM9001 . UPDATE->UPDATE$SIM))))) (PUT1-LST (QUOTE REGB->UPDATE$SIM) (QUOTE (IDATE 1000402194248 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA REGB->UPDATE$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 2)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGB (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (V-ALU (C-FLAG FLAGS) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (OP-CODE I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS I-REG) (V-ALU (C-FLAG FLAGS) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (OP-CODE I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UPDATE$STEP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 REGB$STEP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OR* . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 AND* . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 IF* . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 C-FLAG . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 V-ALU . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BV . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RN-B . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV_REGB . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 BVP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . REGB->UPDATE$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . REGB->UPDATE$SIM) (LEMMAS RUN-FM9001 . REGB->UPDATE$SIM))))) (PUT1-LST (QUOTE REGA->REGA$SIM) (QUOTE (IDATE 1000402194248 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA REGA->REGA$SIM (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGA (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_REGB (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 REGA$STEP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 CV_REGB . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 RN-A . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 READ-REGS . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 IF* . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 CV_REGA . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 BVP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . REGA->REGA$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . REGA->REGA$SIM) (LEMMAS RUN-FM9001 . REGA->REGA$SIM))))) (PUT1-LST (QUOTE FETCH1->DECODE$SIM) (QUOTE (IDATE 1000402194248 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA FETCH1->DECODE$SIM (REWRITE) (IMPLIES (AND (EQUAL DTACK-WAIT (CAR CLOCK)) (AND (CV-HYPS LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2))))) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (AND (EQUAL HOLD- (QUOTE *1*TRUE)) (BOOLP LAST-RW-))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH1 LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (QUOTE *1*TRUE) PC-REG (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (V-INC A-REG)) (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS PC-REG (CONS (IF* (OR* (STORE-RESULTP (STORE-CC (READ-MEM ADDR-OUT MEM)) FLAGS) (SET-SOME-FLAGS (SET-FLAGS (READ-MEM ADDR-OUT MEM)))) (IF* (OR* (A-IMMEDIATE-P (READ-MEM ADDR-OUT MEM)) (REG-DIRECT-P (MODE-A (READ-MEM ADDR-OUT MEM)))) (IF* (OR* (REG-DIRECT-P (MODE-B (READ-MEM ADDR-OUT MEM))) (UNARY-OP-CODE-P (OP-CODE (READ-MEM ADDR-OUT MEM)))) (CV_REGA (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (CV_READB0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)) (CV_READA0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P (READ-MEM ADDR-OUT MEM))) (OR* (PRE-DEC-P (MODE-A (READ-MEM ADDR-OUT MEM))) (POST-INC-P (MODE-A (READ-MEM ADDR-OUT MEM))))) (CV_SEFA0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B (READ-MEM ADDR-OUT MEM))) (POST-INC-P (MODE-B (READ-MEM ADDR-OUT MEM)))) (CV_SEFB0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (ZEROP-NOT-ZEROP-CASES DTACK-WAIT)) (ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF FETCH3$STEP1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 FETCH3$PROGRESS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH-READ-FN . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-READ-FN . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 DECODE$STEP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 FETCH3$STEP0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-PLUS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 FETCH2$STEP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 FETCH1$STEP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P-PLUS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 ZEROP-NOT-ZEROP-CASES . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 POST-INC-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 NOT* . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 AND* . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_READA0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_READB0 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_REGA . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OP-CODE . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 MODE-B . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 MODE-A . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-CC . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 OR* . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 IF* . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 READ-MEM . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 V-INC . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 BVP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH1->DECODE$SIM) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH1->DECODE$SIM) (LEMMAS RUN-FM9001 . FETCH1->DECODE$SIM))))) (PUT1-LST (QUOTE FETCH0->FETCH0$SIM2) (QUOTE (IDATE 1000402194247 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA FETCH0->FETCH0$SIM2 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS (WRITE-MEM ADDR-OUT MEM DATA-OUT) (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP2 . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0->FETCH0$SIM2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0->FETCH0$SIM2) (LEMMAS RUN-FM9001 . FETCH0->FETCH0$SIM2))))) (PUT1-LST (QUOTE FETCH0->FETCH0$SIM1) (QUOTE (IDATE 1000402194246 EVENT (PROVE-LEMMA FETCH0->FETCH0$SIM1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP1 . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0->FETCH0$SIM1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0->FETCH0$SIM1) (LEMMAS RUN-FM9001 . FETCH0->FETCH0$SIM1))))) (PUT1-LST (QUOTE FETCH0->FETCH0$SIM0) (QUOTE (IDATE 1000402194246 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA FETCH0->FETCH0$SIM0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE REGFILE-OKP) (DISABLE PLUS-ADD1 MAKE-TREE *1*MAKE-TREE V-INC V-DEC BV F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP0 . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0->FETCH0$SIM0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0->FETCH0$SIM0) (LEMMAS RUN-FM9001 . FETCH0->FETCH0$SIM0))))) (PUT1-LST (QUOTE *1*ZEROP-NOT-ZEROP-CASES) (QUOTE (MAIN-EVENT ZEROP-NOT-ZEROP-CASES))) (PUT1-LST (QUOTE ZEROP-NOT-ZEROP-CASES) (QUOTE (TYPE-PRESCRIPTION-LST ((ZEROP-NOT-ZEROP-CASES 2 NIL)) TOTALP-LST ((ZEROP-NOT-ZEROP-CASES . T)) QUICK-BLOCK-INFO (UNCHANGING) SDEFN (LAMBDA (N) (QUOTE *1*TRUE)) LISP-CODE *1*ZEROP-NOT-ZEROP-CASES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (ZEROP N)) ((N)))) LEVEL-NO 0 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP NIL)) IDATE 1000402194246 CONTROLLER-POCKETS (1) SATELLITES (*1*ZEROP-NOT-ZEROP-CASES) IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM) EVENT (DEFN ZEROP-NOT-ZEROP-CASES (N) (IF (ZEROP N) (QUOTE *1*TRUE) (IF (NOT (ZEROP N)) (QUOTE *1*TRUE) (ZEROP-NOT-ZEROP-CASES N))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ZEROP-NOT-ZEROP-CASES))))) (PUT1-LST (QUOTE WRITE3$PROGRESS) (QUOTE (IDATE 1000402194246 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM) EVENT (PROVE-LEMMA WRITE3$PROGRESS (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS COUNT) (NOT (ZEROP COUNT)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))))) ((USE (WRITE3$PROGRESS-HELP (COUNT (SUB1 COUNT)) (N (SUB1 COUNT)))) (DISABLE PLUS-ADD1 OPEN-RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 WRITE3$PROGRESS-HELP . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BVP . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE3$PROGRESS) (LEMMAS RUN-FM9001 . WRITE3$PROGRESS))))) (PUT1-LST (QUOTE WRITE3$PROGRESS-HELP) (QUOTE (IDATE 1000402194246 IMMEDIATE-DEPENDENTS0 (WRITE3$PROGRESS) EVENT (PROVE-LEMMA WRITE3$PROGRESS-HELP NIL (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 N)) (IF (LESSP COUNT N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 N)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (NOT (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (DIFFERENCE COUNT (ADD1 N)) (CONS (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (WRITE3$INDUCTION N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA)) (ENABLE PLUS NTHCDR DIFFERENCE OPEN-READ-FN RUN-INPUTS-P WRITE-REGS-OK) (DISABLE OPEN-RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE3$STEP1 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE3$INDUCTION . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE3$PROGRESS-HELP))))) (PUT1-LST (QUOTE *1*WRITE3$INDUCTION) (QUOTE (MAIN-EVENT WRITE3$INDUCTION))) (PUT1-LST (QUOTE WRITE3$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE3$INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((WRITE3$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (WRITE3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*FALSE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)) (QUOTE *1*TRUE)))) LISP-CODE *1*WRITE3$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*FALSE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194245 CONTROLLER-POCKETS (1) SATELLITES (*1*WRITE3$INDUCTION) IMMEDIATE-DEPENDENTS0 (WRITE3$PROGRESS-HELP) EVENT (DEFN WRITE3$INDUCTION (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (ZEROP N) (QUOTE *1*TRUE) (WRITE3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*FALSE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX . WRITE3$INDUCTION) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE3$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WRITE3$INDUCTION) (DCELL . *1*WRITE3$INDUCTION))))) (PUT1-LST (QUOTE READB3$PROGRESS) (QUOTE (IDATE 1000402194245 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM) EVENT (PROVE-LEMMA READB3$PROGRESS (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS COUNT) (NOT (ZEROP COUNT)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-FN B-REG (READ-REGS PC-REG REGS) COUNT) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((USE (READB3$PROGRESS-HELP (COUNT (SUB1 COUNT)) (N (SUB1 COUNT)))) (DISABLE PLUS-ADD1 OPEN-RUN-INPUTS-P) (ENABLE OPEN-READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READB3$PROGRESS-HELP . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-FN . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV_READB3 . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BOOLP . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LENGTH . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BVP . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB3$PROGRESS) (LEMMAS RUN-FM9001 . READB3$PROGRESS))))) (PUT1-LST (QUOTE READB3$PROGRESS-HELP) (QUOTE (IDATE 1000402194245 IMMEDIATE-DEPENDENTS0 (READB3$PROGRESS) EVENT (PROVE-LEMMA READB3$PROGRESS-HELP NIL (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 N)) (IF (LESSP COUNT N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 N)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-FN B-REG (READ-REGS PC-REG REGS) (ADD1 N)) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (NOT (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (DIFFERENCE COUNT (ADD1 N)) (CONS (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (READB3$INDUCTION N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA)) (ENABLE PLUS NTHCDR DIFFERENCE OPEN-READ-FN RUN-INPUTS-P WRITE-REGS-OK) (DISABLE OPEN-RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READB3$STEP1 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READB3$INDUCTION . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-FN . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV_READB3 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB3$PROGRESS-HELP))))) (PUT1-LST (QUOTE *1*READB3$INDUCTION) (QUOTE (MAIN-EVENT READB3$INDUCTION))) (PUT1-LST (QUOTE READB3$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((READB3$INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((READB3$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING QUESTIONABLE QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (READB3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG (READ-REGS PC-REG REGS) (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)) (QUOTE *1*TRUE)))) LISP-CODE *1*READB3$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG (READ-REGS PC-REG REGS) (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194243 CONTROLLER-POCKETS (1) SATELLITES (*1*READB3$INDUCTION) IMMEDIATE-DEPENDENTS0 (READB3$PROGRESS-HELP) EVENT (DEFN READB3$INDUCTION (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (ZEROP N) (QUOTE *1*TRUE) (READB3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG (READ-REGS PC-REG REGS) (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB3$INDUCTION) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB3$INDUCTION) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB3$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . READB3$INDUCTION) (DCELL . *1*READB3$INDUCTION))))) (PUT1-LST (QUOTE READA3$PROGRESS) (QUOTE (IDATE 1000402194243 IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM) EVENT (PROVE-LEMMA READA3$PROGRESS (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS COUNT) (NOT (ZEROP COUNT)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-FN A-REG (READ-REGS PC-REG REGS) COUNT) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((USE (READA3$PROGRESS-HELP (COUNT (SUB1 COUNT)) (N (SUB1 COUNT)))) (DISABLE PLUS-ADD1 OPEN-RUN-INPUTS-P) (ENABLE OPEN-READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READA3$PROGRESS-HELP . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-FN . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV_READA3 . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BOOLP . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LENGTH . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BVP . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA3$PROGRESS) (LEMMAS RUN-FM9001 . READA3$PROGRESS))))) (PUT1-LST (QUOTE READA3$PROGRESS-HELP) (QUOTE (IDATE 1000402194243 IMMEDIATE-DEPENDENTS0 (READA3$PROGRESS) EVENT (PROVE-LEMMA READA3$PROGRESS-HELP NIL (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 N)) (IF (LESSP COUNT N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 N)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-FN A-REG (READ-REGS PC-REG REGS) (ADD1 N)) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (NOT (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (DIFFERENCE COUNT (ADD1 N)) (CONS (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (READA3$INDUCTION N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA)) (ENABLE PLUS NTHCDR DIFFERENCE OPEN-READ-FN RUN-INPUTS-P WRITE-REGS-OK) (DISABLE OPEN-RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READA3$STEP1 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READA3$INDUCTION . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-FN . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV_READA3 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA3$PROGRESS-HELP))))) (PUT1-LST (QUOTE *1*READA3$INDUCTION) (QUOTE (MAIN-EVENT READA3$INDUCTION))) (PUT1-LST (QUOTE READA3$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((READA3$INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((READA3$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE UNCHANGING QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (READA3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (READ-REGS PC-REG REGS) B-REG (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)) (QUOTE *1*TRUE)))) LISP-CODE *1*READA3$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (READ-REGS PC-REG REGS) B-REG (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194241 CONTROLLER-POCKETS (1) SATELLITES (*1*READA3$INDUCTION) IMMEDIATE-DEPENDENTS0 (READA3$PROGRESS-HELP) EVENT (DEFN READA3$INDUCTION (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (ZEROP N) (QUOTE *1*TRUE) (READA3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (READ-REGS PC-REG REGS) B-REG (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA3$INDUCTION) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA3$INDUCTION) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA3$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . READA3$INDUCTION) (DCELL . *1*READA3$INDUCTION))))) (PUT1-LST (QUOTE FETCH3$PROGRESS) (QUOTE (IDATE 1000402194241 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM) EVENT (PROVE-LEMMA FETCH3$PROGRESS (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS COUNT) (NOT (ZEROP COUNT)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-FN I-REG (READ-REGS PC-REG REGS) COUNT) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) PC-REG (READ-FN I-REG (READ-REGS PC-REG REGS) (SUB1 COUNT)) FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((USE (FETCH3$PROGRESS-HELP (COUNT (SUB1 COUNT)) (N (SUB1 COUNT)))) (DISABLE PLUS-ADD1 OPEN-RUN-INPUTS-P) (ENABLE OPEN-READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 FETCH3$PROGRESS-HELP . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 READ-FN . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 BVP . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH3$PROGRESS) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH3$PROGRESS) (LEMMAS RUN-FM9001 . FETCH3$PROGRESS))))) (PUT1-LST (QUOTE FETCH3$PROGRESS-HELP) (QUOTE (IDATE 1000402194241 IMMEDIATE-DEPENDENTS0 (FETCH3$PROGRESS) EVENT (PROVE-LEMMA FETCH3$PROGRESS-HELP NIL (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (BOOLP HOLD-) (AND (RUN-INPUTS-P INPUTS (ADD1 N)) (IF (LESSP COUNT N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 N)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-FN I-REG (READ-REGS PC-REG REGS) (ADD1 N)) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (NOT (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) PC-REG (READ-FN I-REG (READ-REGS PC-REG REGS) N) FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (DIFFERENCE COUNT (ADD1 N)) (CONS (IF (LESSP N COUNT) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))))) ((INDUCT (FETCH3$INDUCTION N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA)) (ENABLE PLUS NTHCDR DIFFERENCE OPEN-READ-FN WRITE-REGS-OK))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-REGS . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-OK . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-WRITE-REGS . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS-WRITE-REGS-F . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FETCH3$STEP1 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-WRITE-REGS-F . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 FETCH3$INDUCTION . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 READ-FN . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 BVP . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH3$PROGRESS-HELP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH3$PROGRESS-HELP))))) (PUT1-LST (QUOTE *1*FETCH3$INDUCTION) (QUOTE (MAIN-EVENT FETCH3$INDUCTION))) (PUT1-LST (QUOTE FETCH3$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((FETCH3$INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((FETCH3$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING QUESTIONABLE UNCHANGING QUESTIONABLE UNCHANGING UNCHANGING QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (FETCH3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*TRUE) REGS-ADDRESS (READ-REGS PC-REG REGS) FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)) (QUOTE *1*TRUE)))) LISP-CODE *1*FETCH3$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*TRUE) REGS-ADDRESS (READ-REGS PC-REG REGS) FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194236 CONTROLLER-POCKETS (1) SATELLITES (*1*FETCH3$INDUCTION) IMMEDIATE-DEPENDENTS0 (FETCH3$PROGRESS-HELP) EVENT (DEFN FETCH3$INDUCTION (N CLOCK COUNT INPUTS REGS A-REG B-REG RW- REGS-ADDRESS I-REG FLAGS PC-REG LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-DATA) (IF (ZEROP N) (QUOTE *1*TRUE) (FETCH3$INDUCTION (SUB1 N) CLOCK (SUB1 COUNT) (CDR INPUTS) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) A-REG B-REG (QUOTE *1*TRUE) REGS-ADDRESS (READ-REGS PC-REG REGS) FLAGS PC-REG RW- PC-REG I-REG FLAGS (V-THREEFIX LAST-DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH3$INDUCTION) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH3$INDUCTION) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH3$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FETCH3$INDUCTION) (DCELL . *1*FETCH3$INDUCTION))))) (PUT1-LST (QUOTE BVP-READ-FN) (QUOTE (IDATE 1000402194236 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM) EVENT (PROVE-LEMMA BVP-READ-FN (REWRITE) (IMPLIES (AND (BVP REG0) (BVP REG1)) (BVP (READ-FN REG0 REG1 N))) ((ENABLE READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . BVP-READ-FN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BVP-READ-FN) (IMMEDIATE-DEPENDENTS0 READ-FN . BVP-READ-FN) (IMMEDIATE-DEPENDENTS0 BVP . BVP-READ-FN) (LEMMAS BVP . BVP-READ-FN))))) (PUT1-LST (QUOTE PROPERP-READ-FN) (QUOTE (IDATE 1000402194236 EVENT (PROVE-LEMMA PROPERP-READ-FN (REWRITE) (IMPLIES (AND (PROPERP REG0) (PROPERP REG1)) (PROPERP (READ-FN REG0 REG1 N))) ((ENABLE READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . PROPERP-READ-FN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-READ-FN) (IMMEDIATE-DEPENDENTS0 READ-FN . PROPERP-READ-FN) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-READ-FN) (LEMMAS PROPERP . PROPERP-READ-FN))))) (PUT1-LST (QUOTE LENGTH-READ-FN) (QUOTE (IDATE 1000402194236 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM) EVENT (PROVE-LEMMA LENGTH-READ-FN (REWRITE) (IMPLIES (AND (EQUAL (LENGTH REG0) (QUOTE 32)) (EQUAL (LENGTH REG1) (QUOTE 32))) (EQUAL (LENGTH (READ-FN REG0 REG1 N)) (QUOTE 32))) ((ENABLE READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-READ-FN . LENGTH-READ-FN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-READ-FN) (IMMEDIATE-DEPENDENTS0 READ-FN . LENGTH-READ-FN) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-READ-FN) (LEMMAS LENGTH . LENGTH-READ-FN))))) (PUT1-LST (QUOTE OPEN-READ-FN) (QUOTE (IDATE 1000402194236 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP BVP-READ-FN PROPERP-READ-FN LENGTH-READ-FN) EVENT (PROVE-LEMMA OPEN-READ-FN (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (READ-FN REG0 REG1 N) REG0)) (IMPLIES (NOT (ZEROP N)) (EQUAL (READ-FN REG0 REG1 N) (READ-FN REG1 REG1 (SUB1 N))))) ((ENABLE READ-FN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-FN . OPEN-READ-FN) (LEMMAS READ-FN . OPEN-READ-FN) (LEMMAS READ-FN . OPEN-READ-FN))))) (PUT1-LST (QUOTE READ-FN-OFF) (QUOTE (IDATE 1000402194236 EVENT (TOGGLE READ-FN-OFF READ-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-FN . READ-FN-OFF) (DISABLED-LEMMAS NIL READ-FN READ-FN-OFF . T))))) (PUT1-LST (QUOTE *1*READ-FN) (QUOTE (MAIN-EVENT READ-FN))) (PUT1-LST (QUOTE READ-FN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-FN 0 T T NIL)) LEMMAS ((REWRITE-RULE OPEN-READ-FN ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (READ-FN REG0 REG1 N) (READ-FN REG1 REG1 (SUB1 N))) NIL) (REWRITE-RULE OPEN-READ-FN ((ZEROP N)) (EQUAL (READ-FN REG0 REG1 N) REG0) NIL)) TOTALP-LST ((READ-FN . T)) QUICK-BLOCK-INFO (QUESTIONABLE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (REG0 REG1 N) (IF (EQUAL N (QUOTE 0)) REG0 (IF (NUMBERP N) (READ-FN REG1 REG1 (SUB1 N)) REG0))) LISP-CODE *1*READ-FN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((REG1 REG1 (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194236 CONTROLLER-POCKETS (4) SATELLITES (*1*READ-FN) IMMEDIATE-DEPENDENTS0 (READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP BVP-READ-FN PROPERP-READ-FN LENGTH-READ-FN OPEN-READ-FN READ-FN-OFF) EVENT (DEFN READ-FN (REG0 REG1 N) (IF (ZEROP N) REG0 (READ-FN REG1 REG1 (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . READ-FN) (DCELL . *1*READ-FN))))) (PUT1-LST (QUOTE FM9001-STEP-THEORY) (QUOTE (IDATE 1000402194236 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (DEFTHEORY FM9001-STEP-THEORY (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SEFB1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 SEFB0$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 SEFA1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 SEFA0$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 WRITE3$STEP1 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 WRITE3$STEP0 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 WRITE2$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 WRITE1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 WRITE0$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READB3$STEP1 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READB3$STEP0 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READB2$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READB1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READB0$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READA3$STEP1 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READA3$STEP0 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READA2$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READA1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 READA0$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 UPDATE$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 REGB$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 REGA$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 DECODE$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH3$STEP1 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH3$STEP0 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH2$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH1$STEP . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP2 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP1 . FM9001-STEP-THEORY) (IMMEDIATE-DEPENDENTS0 FETCH0$STEP0 . FM9001-STEP-THEORY))))) (PUT1-LST (QUOTE SEFB1$STEP) (QUOTE (IDATE 1000402194236 IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA SEFB1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_SEFB1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB1$DESTRUCTURE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$SEFB1 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 MPG . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BV . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFB1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFB1$STEP) (LEMMAS RUN-FM9001 . SEFB1$STEP))))) (PUT1-LST (QUOTE SEFB0$STEP) (QUOTE (IDATE 1000402194235 IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA SEFB0$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_SEFB0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB0$DESTRUCTURE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 IF* . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 AND* . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$SEFB0 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFB0$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFB0$STEP) (LEMMAS RUN-FM9001 . SEFB0$STEP))))) (PUT1-LST (QUOTE SEFA1$STEP) (QUOTE (IDATE 1000402194234 IMMEDIATE-DEPENDENTS0 (SEFA0->SEFA1$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA SEFA1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-A LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_SEFA1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA1$DESTRUCTURE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$SEFA1 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 OR* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MPG . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-A . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BV . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFA1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFA1$STEP) (LEMMAS RUN-FM9001 . SEFA1$STEP))))) (PUT1-LST (QUOTE SEFA0$STEP) (QUOTE (IDATE 1000402194233 IMMEDIATE-DEPENDENTS0 (SEFA0->SEFA1$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA SEFA0$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA1 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_SEFA0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA0$DESTRUCTURE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 IF* . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 AND* . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$SEFA0 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . SEFA0$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . SEFA0$STEP) (LEMMAS RUN-FM9001 . SEFA0$STEP))))) (PUT1-LST (QUOTE WRITE3$STEP1) (QUOTE (IDATE 1000402194233 IMMEDIATE-DEPENDENTS0 (WRITE3$PROGRESS-HELP FM9001-STEP-THEORY) EVENT (PROVE-LEMMA WRITE3$STEP1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*TRUE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_WRITE3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_WRITE3$DESTRUCTURE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BV2P . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NOT . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NAND . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 THREEFIX . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 IF* . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 AND* . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$WRITE3 . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE3$STEP1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE3$STEP1) (LEMMAS RUN-FM9001 . WRITE3$STEP1))))) (PUT1-LST (QUOTE WRITE3$STEP0) (QUOTE (IDATE 1000402194231 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA WRITE3$STEP0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*FALSE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_WRITE3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_WRITE3$DESTRUCTURE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BV2P . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NOT . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NAND . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 THREEFIX . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 IF* . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 AND* . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-X-X=X . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 B-OR . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$WRITE3 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE3$STEP0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE3$STEP0) (LEMMAS RUN-FM9001 . WRITE3$STEP0))))) (PUT1-LST (QUOTE WRITE2$STEP) (QUOTE (IDATE 1000402194229 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA WRITE2$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE2 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_WRITE2$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE2$DESTRUCTURE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 IF* . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 AND* . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$WRITE2 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 BVP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE2$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE2$STEP) (LEMMAS RUN-FM9001 . WRITE2$STEP))))) (PUT1-LST (QUOTE WRITE1$STEP) (QUOTE (IDATE 1000402194228 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA WRITE1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE2 (QUOTE *1*FALSE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_WRITE1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE1$DESTRUCTURE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-X-X=X . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$WRITE1 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 MPG . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BV . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 OR* . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE1$STEP) (LEMMAS RUN-FM9001 . WRITE1$STEP))))) (PUT1-LST (QUOTE WRITE0$STEP) (QUOTE (IDATE 1000402194227 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA WRITE0$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_WRITE0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE0$DESTRUCTURE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 AND* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$WRITE0 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-DEC . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 IF* . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BV . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 OP-CODE . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 V-ALU . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 BVP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE0$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . WRITE0$STEP) (LEMMAS RUN-FM9001 . WRITE0$STEP))))) (PUT1-LST (QUOTE READB3$STEP1) (QUOTE (IDATE 1000402194225 IMMEDIATE-DEPENDENTS0 (READB3$PROGRESS-HELP FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READB3$STEP1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*TRUE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READB3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_READB3$DESTRUCTURE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BV2P . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NOT . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NAND . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 THREEFIX . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 IF* . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 AND* . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READB3 . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_READB3 . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB3$STEP1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB3$STEP1) (LEMMAS RUN-FM9001 . READB3$STEP1))))) (PUT1-LST (QUOTE READB3$STEP0) (QUOTE (IDATE 1000402194224 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READB3$STEP0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*FALSE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READB3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_READB3$DESTRUCTURE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BV2P . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NOT . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NAND . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 THREEFIX . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 AND* . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 B-OR . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READB3 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 STORE-CC . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 IF* . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 READ-MEM . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_READB3 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB3$STEP0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB3$STEP0) (LEMMAS RUN-FM9001 . READB3$STEP0))))) (PUT1-LST (QUOTE READB2$STEP) (QUOTE (IDATE 1000402194222 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READB2$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS)) (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG)))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS)) (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG)))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READB2$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . READB2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB2$DESTRUCTURE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READB2$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . READB2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READB2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READB2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READB2$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READB2$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READB2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READB2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READB2 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READB2$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB3 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . READB2$STEP) (IMMEDIATE-DEPENDENTS0 MPG . READB2$STEP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BV . READB2$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . READB2$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . READB2$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . READB2$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READB2$STEP) (IMMEDIATE-DEPENDENTS0 OR* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 STORE-CC . READB2$STEP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 NOT* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READB2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB2 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READB2$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB2$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB2$STEP) (LEMMAS RUN-FM9001 . READB2$STEP))))) (PUT1-LST (QUOTE READB1$STEP) (QUOTE (IDATE 1000402194220 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READB1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (OR* (A-IMMEDIATE-P LAST-I-REG) (REG-DIRECT-P (MODE-A LAST-I-REG))) (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) A-REG) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB2 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READB1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB1$DESTRUCTURE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READB1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READB1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READB1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READB1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READB1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-A-IMMEDIATE-P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READB1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READB1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-SIGN-EXTEND . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-SIGN-EXTEND . READB1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READB1 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READB1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB2 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . READB1$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . READB1$STEP) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . READB1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-A . READB1$STEP) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 OR* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READB1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB1 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READB1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB1$STEP) (LEMMAS RUN-FM9001 . READB1$STEP))))) (PUT1-LST (QUOTE READB0$STEP) (QUOTE (IDATE 1000402194219 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READB0$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READB0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB0$DESTRUCTURE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READB0$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . READB0$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READB0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READB0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READB0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READB0$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READB0$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READB0$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . READB0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READB0 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READB0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READB0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READB0$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB1 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 V-DEC . READB0$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . READB0$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READB0$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READB0$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . READB0$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READB0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB0 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READB0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READB0$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READB0$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READB0$STEP) (LEMMAS RUN-FM9001 . READB0$STEP))))) (PUT1-LST (QUOTE READA3$STEP1) (QUOTE (IDATE 1000402194217 IMMEDIATE-DEPENDENTS0 (READA3$PROGRESS-HELP FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READA3$STEP1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*TRUE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READA3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_READA3$DESTRUCTURE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BV2P . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NOT . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NAND . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 THREEFIX . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 IF* . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 AND* . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READA3 . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_READA3 . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA3$STEP1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA3$STEP1) (LEMMAS RUN-FM9001 . READA3$STEP1))))) (PUT1-LST (QUOTE READA3$STEP0) (QUOTE (IDATE 1000402194215 IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READA3$STEP0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*FALSE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-MEM ADDR-OUT MEM) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (CV_READB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READA3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_READA3$DESTRUCTURE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BV2P . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NOT . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NAND . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 THREEFIX . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 AND* . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 B-OR . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READA3 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_READB0 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 STORE-CC . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 OP-CODE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 MODE-B . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 IF* . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 READ-MEM . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_READA3 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA3$STEP0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA3$STEP0) (LEMMAS RUN-FM9001 . READA3$STEP0))))) (PUT1-LST (QUOTE READA2$STEP) (QUOTE (IDATE 1000402194214 IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READA2$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READA2$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . READA2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA2$DESTRUCTURE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READA2$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . READA2$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READA2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READA2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READA2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READA2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READA2$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READA2$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . READA2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READA2$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READA2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READA2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READA2 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READA2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READA2$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA3 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . READA2$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA2$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA2 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READA2$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA2$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA2$STEP) (LEMMAS RUN-FM9001 . READA2$STEP))))) (PUT1-LST (QUOTE READA1$STEP) (QUOTE (IDATE 1000402194211 IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READA1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P LAST-I-REG)) (OR* (PRE-DEC-P (MODE-A LAST-I-REG)) (POST-INC-P (MODE-A LAST-I-REG)))) (RN-A LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA2 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READA1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA1$DESTRUCTURE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READA1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . READA1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READA1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READA1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READA1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READA1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READA1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . READA1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READA1 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READA1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA2 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . READA1$STEP) (IMMEDIATE-DEPENDENTS0 MPG . READA1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BV . READA1$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . READA1$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . READA1$STEP) (IMMEDIATE-DEPENDENTS0 MODE-A . READA1$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READA1$STEP) (IMMEDIATE-DEPENDENTS0 OR* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . READA1$STEP) (IMMEDIATE-DEPENDENTS0 NOT* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READA1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA1 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READA1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA1$STEP) (LEMMAS RUN-FM9001 . READA1$STEP))))) (PUT1-LST (QUOTE READA0$STEP) (QUOTE (IDATE 1000402194211 IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA READA0$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA1 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_READA0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA0$DESTRUCTURE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . READA0$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . READA0$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . READA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . READA0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . READA0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . READA0$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . READA0$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . READA0$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . READA0$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 AND* . READA0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . READA0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$READA0 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . READA0$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . READA0$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . READA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA1 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 V-DEC . READA0$STEP) (IMMEDIATE-DEPENDENTS0 MODE-A . READA0$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . READA0$STEP) (IMMEDIATE-DEPENDENTS0 IF* . READA0$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . READA0$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READA0$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA0 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . READA0$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . READA0$STEP) (IMMEDIATE-DEPENDENTS0 BVP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . READA0$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . READA0$STEP) (LEMMAS RUN-FM9001 . READA0$STEP))))) (PUT1-LST (QUOTE UPDATE$STEP) (QUOTE (IDATE 1000402194210 IMMEDIATE-DEPENDENTS0 (UPDATE->UPDATE$SIM REGB->UPDATE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA UPDATE$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS) (RN-B LAST-I-REG) REGS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_UPDATE$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CV_UPDATE$DESTRUCTURE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$UPDATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 OR* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 AND* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 IF* . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 OP-CODE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 C-FLAG . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 V-ALU . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BV . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 STORE-CC . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 BVP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . UPDATE$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . UPDATE$STEP) (LEMMAS RUN-FM9001 . UPDATE$STEP))))) (PUT1-LST (QUOTE REGB$STEP) (QUOTE (IDATE 1000402194209 IMMEDIATE-DEPENDENTS0 (REGB->UPDATE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA REGB$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGB (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_REGB$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGB$DESTRUCTURE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . REGB$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . REGB$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . REGB$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . REGB$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . REGB$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . REGB$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . REGB$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . REGB$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . REGB$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 IF* . REGB$STEP) (IMMEDIATE-DEPENDENTS0 AND* . REGB$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . REGB$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$REGB . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . REGB$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . REGB$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REGB$STEP) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . REGB$STEP) (IMMEDIATE-DEPENDENTS0 RN-B . REGB$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . REGB$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGB . REGB$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . REGB$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . REGB$STEP) (IMMEDIATE-DEPENDENTS0 BVP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . REGB$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . REGB$STEP) (LEMMAS RUN-FM9001 . REGB$STEP))))) (PUT1-LST (QUOTE REGA$STEP) (QUOTE (IDATE 1000402194209 IMMEDIATE-DEPENDENTS0 (REGA->REGA$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA REGA$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGA (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_REGB (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_REGA$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGA$DESTRUCTURE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . REGA$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . REGA$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . REGA$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . REGA$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . REGA$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-A-IMMEDIATE-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . REGA$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . REGA$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . REGA$STEP) (IMMEDIATE-DEPENDENTS0 AND* . REGA$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-SIGN-EXTEND . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-SIGN-EXTEND . REGA$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$REGA . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . REGA$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . REGA$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . REGA$STEP) (IMMEDIATE-DEPENDENTS0 STORE-CC . REGA$STEP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGB . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 OP-CODE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . REGA$STEP) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 RN-A . REGA$STEP) (IMMEDIATE-DEPENDENTS0 READ-REGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . REGA$STEP) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . REGA$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 IF* . REGA$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGA . REGA$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . REGA$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . REGA$STEP) (IMMEDIATE-DEPENDENTS0 BVP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . REGA$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . REGA$STEP) (LEMMAS RUN-FM9001 . REGA$STEP))))) (PUT1-LST (QUOTE DECODE$STEP) (QUOTE (IDATE 1000402194209 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA DECODE$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_DECODE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (OR* (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_REGA (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_READB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (CV_READA0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CV_SEFA0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_DECODE$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_DECODE$DESTRUCTURE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$DECODE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 POST-INC-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 NOT* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 AND* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_READA0 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_READB0 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_REGA . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 OP-CODE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 MODE-B . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 MODE-A . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 STORE-CC . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 OR* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 IF* . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV_DECODE . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 BVP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . DECODE$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . DECODE$STEP) (LEMMAS RUN-FM9001 . DECODE$STEP))))) (PUT1-LST (QUOTE FETCH3$STEP1) (QUOTE (IDATE 1000402194208 IMMEDIATE-DEPENDENTS0 (FETCH3$PROGRESS-HELP FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH3$STEP1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*TRUE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_FETCH3$DESTRUCTURE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BV2P . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 IF* . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 AND* . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH3 . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 BVP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH3$STEP1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH3$STEP1) (LEMMAS RUN-FM9001 . FETCH3$STEP1))))) (PUT1-LST (QUOTE FETCH3$STEP0) (QUOTE (IDATE 1000402194207 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH3$STEP0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP (QUOTE *1*FALSE)) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_DECODE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH3$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH3$DESTRUCTURE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BV2P . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 IF* . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 AND* . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 B-OR . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH3 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_DECODE . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 READ-MEM . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 BVP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH3$STEP0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH3$STEP0) (LEMMAS RUN-FM9001 . FETCH3$STEP0))))) (PUT1-LST (QUOTE FETCH2$STEP) (QUOTE (IDATE 1000402194206 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH2$STEP (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (ZEROP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) LAST-PC-REG REGS (V-INC A-REG)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) LAST-PC-REG REGS (V-INC A-REG)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH2$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH2$DESTRUCTURE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BV-V-ALU-ALU-INC-ALU-DEC . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 IF* . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 AND* . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH2 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 V-INC . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 BVP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH2$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH2$STEP) (LEMMAS RUN-FM9001 . FETCH2$STEP))))) (PUT1-LST (QUOTE FETCH1$STEP) (QUOTE (IDATE 1000402194205 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH1$STEP (REWRITE) (IMPLIES (AND (CV-HYPS LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (BOOLP LAST-RW-)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH1 LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* HOLD- (CV_FETCH2 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_HOLD0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH1$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH1$DESTRUCTURE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BV2P . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CORE-ALU-IS-V-ALU . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 AND* . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH1 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP-IF* . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 IF* . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 BVP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH1$STEP) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH1$STEP) (LEMMAS RUN-FM9001 . FETCH1$STEP))))) (PUT1-LST (QUOTE FETCH0$STEP2) (QUOTE (IDATE 1000402194205 IMMEDIATE-DEPENDENTS0 (FETCH0->FETCH0$SIM2 FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH0$STEP2 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS (WRITE-MEM ADDR-OUT MEM DATA-OUT) (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 CV_FETCH0$DESTRUCTURE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 IF* . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 AND* . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 V-WIRE-X-X=X . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 CV_FETCH1$RW-DOAN-MATTA . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH0 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0$STEP2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0$STEP2) (LEMMAS RUN-FM9001 . FETCH0$STEP2))))) (PUT1-LST (QUOTE FETCH0$STEP1) (QUOTE (IDATE 1000402194204 IMMEDIATE-DEPENDENTS0 (FETCH0->FETCH0$SIM1 FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH0$STEP1 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0$DESTRUCTURE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 IF* . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 AND* . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH0 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0$STEP1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0$STEP1) (LEMMAS RUN-FM9001 . FETCH0$STEP1))))) (PUT1-LST (QUOTE FETCH0$STEP0) (QUOTE (IDATE 1000402194203 IMMEDIATE-DEPENDENTS0 (FETCH0->FETCH0$SIM0 FM9001-STEP-THEORY) EVENT (PROVE-LEMMA FETCH0$STEP0 (REWRITE) (IMPLIES (AND (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (AND (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (AND (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (AND (REGFILE-OKP REGS) (AND (BVP A-REG) (AND (EQUAL (LENGTH A-REG) (QUOTE 32)) (AND (BVP B-REG) (AND (EQUAL (LENGTH B-REG) (QUOTE 32)) (AND (BVP ADDR-OUT) (AND (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (AND (BVP DATA-OUT) (AND (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (AND (NOT (ZEROP N)) (AND (RUN-INPUTS-P INPUTS (QUOTE 1)) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)))))))))))))))))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)))) ((ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES) (ENABLE RUN-FM9001-STEP-CASE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS BOOLP-B-GATES NEXT-MEMORY-STATE MEMORY-VALUE CV_FETCH0$DESTRUCTURE OPEN-NTH BVP-LENGTH-STATE-VECTORS BVP-CV-VECTORS) (DISABLE MPG MAKE-TREE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH0$DESTRUCTURE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU=CORE-ALU . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-CORE-ALU . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CORE-ALU . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS-F-BV-CROCK . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS=WRITE-REGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-MAKE-LIST-4-F . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 NOT-SET-SOME-FLAGS-UPDATE-FLAGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS=UPDATE-FLAGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 B-NOT . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 B-NAND . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$READ-REGS=READ-REGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-READ-REGS-32 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-A-IMMEDIATE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 B-BUF . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 THREEFIX . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-PULLUP-REWRITE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-BVP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 IF* . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 AND* . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-FOURFIX-MAKE-LIST . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-PULLUP-MAKE-LIST-Z . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS=DEC-OR-PASS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$FETCH0 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P-ADD1 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-GATES . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 F-BUF . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 READ-REGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BOOLP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 LENGTH . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 BVP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 REGFILE-OKP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . FETCH0$STEP0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . FETCH0$STEP0) (LEMMAS RUN-FM9001 . FETCH0$STEP0))))) (PUT1-LST (QUOTE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (QUOTE (IDATE 1000402194203 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS (REWRITE) (IMPLIES (AND (BVP FLAGS) (AND (BVP A-REG) (AND (BVP B-REG) (AND (BVP I-REG) (AND (BVP DATA-OUT) (AND (BVP ADDR-OUT) (AND (BOOLP LAST-RESET-) (AND (BOOLP LAST-DTACK-) (AND (BOOLP LAST-HOLD-) (AND (BVP LAST-PC-REG) (BVP CNTL-STATE))))))))))) (EQUAL (FM9001-NEXT-STATE (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) EXTERNAL-INPUTS) (CONS (CONS (F$WRITE-REGS (WE-REGS CNTL-STATE) (REGS-ADDRESS CNTL-STATE) REGS (BV (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS CNTL-STATE) (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) A-REG) (CONS (FV-IF (WE-B-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) B-REG) (CONS (FV-IF (WE-I-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) I-REG) (CONS (FV-IF (WE-DATA-OUT CNTL-STATE) (BV (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT CNTL-STATE) (F$DEC-PASS (DEC-ADDR-OUT CNTL-STATE) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS))) ADDR-OUT) (CONS (F-BUF (RESET--INPUT EXTERNAL-INPUTS)) (CONS (F-OR (STROBE- CNTL-STATE) (F-BUF (CAR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- CNTL-STATE) (F-BUF (HOLD--INPUT EXTERNAL-INPUTS)) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG CNTL-STATE) (PC-REG-INPUT EXTERNAL-INPUTS) LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE LAST-RESET- LAST-DTACK- LAST-HOLD- (RW- CNTL-STATE) (STATE CNTL-STATE) I-REG FLAGS LAST-PC-REG (REGS-ADDRESS CNTL-STATE))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL))))) ((ENABLE FM9001-NEXT-STATE BOOLP-B-GATES OPEN-NTH) (ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE *1*MAKE-LIST) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 THREEFIX . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 RESET- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PC-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 HOLD- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ADDR-OUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DATA-OUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 I-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 B-NOT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DTACK- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FLAGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 B-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 A-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 REGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 CNTL-STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-GATES . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-IF . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-I-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-B-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 X . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 STROBE- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 HDACK- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FT-BUF . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-PULLUP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 RW- . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-BUF . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 VFT-BUF . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-PULLUP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-WIRE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-A-REG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FV-IF . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ALU-OP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ALU-MPG . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 ALU-C . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 BV . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 WE-REGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 BOOLP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (IMMEDIATE-DEPENDENTS0 BVP . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS) (LEMMAS FM9001-NEXT-STATE . REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS))))) (PUT1-LST (QUOTE *1*REGFILE-OKP) (QUOTE (MAIN-EVENT REGFILE-OKP))) (PUT1-LST (QUOTE REGFILE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((REGFILE-OKP 3 NIL)) TOTALP-LST ((REGFILE-OKP . T)) SDEFN (LAMBDA (REGS) (IF (EQUAL (LENGTH REGS) (QUOTE 4)) (IF (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR REGS)) (IF (ALL-RAMP-MEM (QUOTE 4) (CAR REGS)) (IF (BOOLP (CAR (CDR REGS))) (IF (BVP (CAR (CDR (CDR REGS)))) (IF (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)) (IF (BVP (CAR (CDR (CDR (CDR REGS))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*REGFILE-OKP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194203 SATELLITES (*1*REGFILE-OKP) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (DEFN REGFILE-OKP (REGS) (AND (EQUAL (LENGTH REGS) (QUOTE 4)) (AND (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR REGS)) (AND (ALL-RAMP-MEM (QUOTE 4) (CAR REGS)) (AND (BOOLP (CAR (CDR REGS))) (AND (AND (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32))) (AND (BVP (CAR (CDR (CDR (CDR REGS))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . REGFILE-OKP) (IMMEDIATE-DEPENDENTS0 BOOLP . REGFILE-OKP) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . REGFILE-OKP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . REGFILE-OKP) (IMMEDIATE-DEPENDENTS0 LENGTH . REGFILE-OKP) (DCELL . *1*REGFILE-OKP))))) (PUT1-LST (QUOTE OPEN-RUN-INPUTS-P-ADD1) (QUOTE (IDATE 1000402194203 IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA OPEN-RUN-INPUTS-P-ADD1 (REWRITE) (EQUAL (RUN-INPUTS-P INPUTS (ADD1 N)) (AND (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (PROPERP (PC-REG-INPUT (CAR INPUTS))) (AND (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (RUN-INPUTS-P (CDR INPUTS) N))))) ((ENABLE RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . OPEN-RUN-INPUTS-P-ADD1) (IMMEDIATE-DEPENDENTS0 LENGTH . OPEN-RUN-INPUTS-P-ADD1) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . OPEN-RUN-INPUTS-P-ADD1) (IMMEDIATE-DEPENDENTS0 PROPERP . OPEN-RUN-INPUTS-P-ADD1) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . OPEN-RUN-INPUTS-P-ADD1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . OPEN-RUN-INPUTS-P-ADD1) (LEMMAS RUN-INPUTS-P . OPEN-RUN-INPUTS-P-ADD1))))) (PUT1-LST (QUOTE RUN-INPUTS-P-1) (QUOTE (IDATE 1000402194202 EVENT (PROVE-LEMMA RUN-INPUTS-P-1 (REWRITE) (IMPLIES (AND (RUN-INPUTS-P INPUTS N) (NOT (ZEROP N))) (RUN-INPUTS-P INPUTS (QUOTE 1))) ((ENABLE RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . RUN-INPUTS-P-1) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . RUN-INPUTS-P-1) (LEMMAS RUN-INPUTS-P . RUN-INPUTS-P-1))))) (PUT1-LST (QUOTE RUN-INPUTS-P-PLUS) (QUOTE (IDATE 1000402194202 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM) EVENT (PROVE-LEMMA RUN-INPUTS-P-PLUS (REWRITE) (EQUAL (RUN-INPUTS-P INPUTS (PLUS N M)) (AND (RUN-INPUTS-P INPUTS N) (RUN-INPUTS-P (NTHCDR N INPUTS) M))) ((ENABLE RUN-INPUTS-P NTHCDR PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . RUN-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 OPEN-RUN-INPUTS-P . RUN-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . RUN-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 NTHCDR . RUN-INPUTS-P-PLUS) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . RUN-INPUTS-P-PLUS) (LEMMAS RUN-INPUTS-P . RUN-INPUTS-P-PLUS))))) (PUT1-LST (QUOTE OPEN-RUN-INPUTS-P) (QUOTE (IDATE 1000402194202 IMMEDIATE-DEPENDENTS0 (OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 OPEN-RUN-INPUTS-P-ADD1 RUN-INPUTS-P-1 RUN-INPUTS-P-PLUS) EVENT (PROVE-LEMMA OPEN-RUN-INPUTS-P (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (RUN-INPUTS-P INPUTS N) (QUOTE *1*TRUE))) (IMPLIES (NOT (ZEROP N)) (EQUAL (RUN-INPUTS-P INPUTS N) (AND (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (PROPERP (PC-REG-INPUT (CAR INPUTS))) (AND (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (RUN-INPUTS-P (CDR INPUTS) (SUB1 N)))))))) ((ENABLE RUN-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . OPEN-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . OPEN-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PROPERP . OPEN-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . OPEN-RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . OPEN-RUN-INPUTS-P) (LEMMAS RUN-INPUTS-P . OPEN-RUN-INPUTS-P) (LEMMAS RUN-INPUTS-P . OPEN-RUN-INPUTS-P))))) (PUT1-LST (QUOTE RUN-INPUTS-P-OFF) (QUOTE (IDATE 1000402194202 EVENT (TOGGLE RUN-INPUTS-P-OFF RUN-INPUTS-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-INPUTS-P . RUN-INPUTS-P-OFF) (DISABLED-LEMMAS NIL RUN-INPUTS-P RUN-INPUTS-P-OFF . T))))) (PUT1-LST (QUOTE *1*RUN-INPUTS-P) (QUOTE (MAIN-EVENT RUN-INPUTS-P))) (PUT1-LST (QUOTE RUN-INPUTS-P) (QUOTE (TYPE-PRESCRIPTION-LST ((RUN-INPUTS-P 3 NIL NIL)) LEMMAS ((REWRITE-RULE OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P ((OPERATING-INPUTS-P INPUTS N)) (RUN-INPUTS-P INPUTS N) NIL) (REWRITE-RULE OPEN-RUN-INPUTS-P-ADD1 NIL (EQUAL (RUN-INPUTS-P INPUTS (ADD1 N)) (IF (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (PROPERP (PC-REG-INPUT (CAR INPUTS))) (IF (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (RUN-INPUTS-P (CDR INPUTS) N) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE RUN-INPUTS-P-1 ((RUN-INPUTS-P INPUTS N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (RUN-INPUTS-P INPUTS (QUOTE 1)) NIL) (REWRITE-RULE RUN-INPUTS-P-PLUS NIL (EQUAL (RUN-INPUTS-P INPUTS (PLUS N M)) (IF (RUN-INPUTS-P INPUTS N) (RUN-INPUTS-P (NTHCDR N INPUTS) M) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE OPEN-RUN-INPUTS-P ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (RUN-INPUTS-P INPUTS N) (IF (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (PROPERP (PC-REG-INPUT (CAR INPUTS))) (IF (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (RUN-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE OPEN-RUN-INPUTS-P ((ZEROP N)) (EQUAL (RUN-INPUTS-P INPUTS N) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((RUN-INPUTS-P . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (INPUTS N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (IF (PROPERP (PC-REG-INPUT (CAR INPUTS))) (IF (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (IF (RUN-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*RUN-INPUTS-P SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((CDR INPUTS) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194202 CONTROLLER-POCKETS (2) SATELLITES (*1*RUN-INPUTS-P) IMMEDIATE-DEPENDENTS0 (OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 OPEN-RUN-INPUTS-P-ADD1 RUN-INPUTS-P-1 RUN-INPUTS-P-PLUS OPEN-RUN-INPUTS-P RUN-INPUTS-P-OFF) EVENT (DEFN RUN-INPUTS-P (INPUTS N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (EQUAL (RESET--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) (AND (PROPERP (PC-REG-INPUT (CAR INPUTS))) (AND (EQUAL (LENGTH (PC-REG-INPUT (CAR INPUTS))) (QUOTE 4)) (RUN-INPUTS-P (CDR INPUTS) (SUB1 N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 PROPERP . RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . RUN-INPUTS-P) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . RUN-INPUTS-P) (DCELL . *1*RUN-INPUTS-P))))) (PUT1-LST (QUOTE CHIP-SYSTEM=RUN-FM9001) (QUOTE (IDATE 1000402194202 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET INSTANCE-THEOREM CHIP-SYSTEM=FM9001-INTERPRETER) EVENT (PROVE-LEMMA CHIP-SYSTEM=RUN-FM9001 (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (FM9001-STATE-STRUCTURE STATE) (AND (CHIP-SYSTEM-INVARIANT STATE) (AND (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (EQUAL FM9001-INPUTS (MAP-UP-INPUTS INPUTS)))))) (EQUAL (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST N) (RUN-FM9001 STATE FM9001-INPUTS N))) ((INDUCT (CHIP-SYSTEM=RUN-FM9001$INDUCTION STATE INPUTS FM9001-INPUTS N)) (ENABLE CHIP-SYSTEM=FM9001$STEP PC-REG-INPUT OPEN-SUBRANGE RUN-FM9001-STEP-CASE) (DISABLE FM9001-STATE-STRUCTURE CHIP-SYSTEM-INVARIANT CHIP-SYSTEM-INPUT-INVARIANT MAP-UP-1-INPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-MAP-UP-INPUTS . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INPUT-INVARIANT . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE$STEP . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001$STEP . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 OPEN-SIMULATE-DUAL-EVAL-2 . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=RUN-FM9001$INDUCTION . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . CHIP-SYSTEM=RUN-FM9001) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM=RUN-FM9001) (LEMMAS SIMULATE-DUAL-EVAL-2 . CHIP-SYSTEM=RUN-FM9001))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION) (QUOTE (MAIN-EVENT CHIP-SYSTEM=RUN-FM9001$INDUCTION))) (PUT1-LST (QUOTE CHIP-SYSTEM=RUN-FM9001$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM=RUN-FM9001$INDUCTION 2 NIL NIL NIL NIL)) TOTALP-LST ((CHIP-SYSTEM=RUN-FM9001$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE INPUTS FM9001-INPUTS N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (CHIP-SYSTEM=RUN-FM9001$INDUCTION (FM9001-NEXT-STATE STATE (CAR FM9001-INPUTS)) (CDR INPUTS) (CDR FM9001-INPUTS) (SUB1 N)) (QUOTE *1*TRUE)))) LISP-CODE *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((FM9001-NEXT-STATE STATE (CAR FM9001-INPUTS)) (CDR INPUTS) (CDR FM9001-INPUTS) (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194202 CONTROLLER-POCKETS (8) SATELLITES (*1*CHIP-SYSTEM=RUN-FM9001$INDUCTION) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001) EVENT (DEFN CHIP-SYSTEM=RUN-FM9001$INDUCTION (STATE INPUTS FM9001-INPUTS N) (IF (ZEROP N) (QUOTE *1*TRUE) (CHIP-SYSTEM=RUN-FM9001$INDUCTION (FM9001-NEXT-STATE STATE (CAR FM9001-INPUTS)) (CDR INPUTS) (CDR FM9001-INPUTS) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . CHIP-SYSTEM=RUN-FM9001$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CHIP-SYSTEM=RUN-FM9001$INDUCTION) (DCELL . *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001$STEP-OFF) (QUOTE (IDATE 1000402194202 EVENT (TOGGLE CHIP-SYSTEM=FM9001$STEP-OFF CHIP-SYSTEM=FM9001$STEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM=FM9001$STEP . CHIP-SYSTEM=FM9001$STEP-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM=FM9001$STEP CHIP-SYSTEM=FM9001$STEP-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM=FM9001$STEP) (QUOTE (IDATE 1000402194202 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=FM9001$STEP-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM=FM9001$STEP (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (FM9001-STATE-STRUCTURE STATE) (AND (CHIP-SYSTEM-INVARIANT STATE) (CHIP-SYSTEM-INPUT-INVARIANT INPUTS)))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST) (FM9001-NEXT-STATE STATE (MAP-UP-1-INPUT INPUTS)))) ((DISABLE CHIP-SYSTEM-INVARIANT FM9001-STATE-STRUCTURE CHIP-SYSTEM-INPUT-INVARIANT CAR-CDR-ELIM CONS-CAR-CDR) (USE (CHIP-SYSTEM$STATE (REGS-REGS (CAR (CAR (CAR STATE)))) (REGS-WE (CAR (CDR (CAR (CAR STATE))))) (REGS-DATA (CAR (CDR (CDR (CAR (CAR STATE)))))) (REGS-ADDR (CAR (CDR (CDR (CDR (CAR (CAR STATE))))))) (FLAGS (CAR (CDR (CAR STATE)))) (A-REG (CAR (CDR (CDR (CAR STATE))))) (B-REG (CAR (CDR (CDR (CDR (CAR STATE)))))) (I-REG (CAR (CDR (CDR (CDR (CDR (CAR STATE))))))) (DATA-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (ADDR-OUT (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (LAST-RESET- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))) (LAST-DTACK- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (LAST-HOLD- (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (LAST-PC-REG (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (CNTL-STATE (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))))) (MEM-STATE (CONS (CAR (CAR (CDR STATE))) (CONS (CAR (CDR (CAR (CDR STATE)))) (CONS (CAR (CDR (CDR (CAR (CDR STATE))))) (CONS (CAR (CDR (CDR (CDR (CAR (CDR STATE)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (QUOTE NIL)))))))))) (CLK (CAR INPUTS)) (TI (CAR (CDR INPUTS))) (TE (CAR (CDR (CDR INPUTS)))) (RESET- (CAR (CDR (CDR (CDR INPUTS))))) (HOLD- (CAR (CDR (CDR (CDR (CDR INPUTS)))))) (DISABLE-REGFILE- (CAR (CDR (CDR (CDR (CDR (CDR INPUTS))))))) (TEST-REGFILE- (CAR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (PC-REG-IN (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))))) (FM9001-STATE-AS-A-LIST) (REWRITE-CHIP-SYSTEM-INPUT-INVARIANT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$STATE . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-AS-A-LIST . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 REWRITE-CHIP-SYSTEM-INPUT-INVARIANT . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 MAP-UP-1-INPUT . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INPUT-INVARIANT . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . CHIP-SYSTEM=FM9001$STEP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM=FM9001$STEP) (LEMMAS DUAL-EVAL . CHIP-SYSTEM=FM9001$STEP))))) (PUT1-LST (QUOTE OPEN-MAP-UP-INPUTS) (QUOTE (IDATE 1000402194201 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001) EVENT (PROVE-LEMMA OPEN-MAP-UP-INPUTS (REWRITE) (AND (IMPLIES (NLISTP INPUTS) (EQUAL (MAP-UP-INPUTS INPUTS) (QUOTE NIL))) (IMPLIES (LISTP INPUTS) (EQUAL (MAP-UP-INPUTS INPUTS) (CONS (MAP-UP-1-INPUT (CAR INPUTS)) (MAP-UP-INPUTS (CDR INPUTS)))))) ((ENABLE MAP-UP-INPUTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-UP-1-INPUT . OPEN-MAP-UP-INPUTS) (IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . OPEN-MAP-UP-INPUTS) (LEMMAS MAP-UP-INPUTS . OPEN-MAP-UP-INPUTS) (LEMMAS MAP-UP-INPUTS . OPEN-MAP-UP-INPUTS))))) (PUT1-LST (QUOTE MAP-UP-INPUTS-OFF) (QUOTE (IDATE 1000402194201 EVENT (TOGGLE MAP-UP-INPUTS-OFF MAP-UP-INPUTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-UP-INPUTS . MAP-UP-INPUTS-OFF) (DISABLED-LEMMAS NIL MAP-UP-INPUTS MAP-UP-INPUTS-OFF . T))))) (PUT1-LST (QUOTE *1*MAP-UP-INPUTS) (QUOTE (MAIN-EVENT MAP-UP-INPUTS))) (PUT1-LST (QUOTE MAP-UP-INPUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-UP-INPUTS 24 NIL)) LEMMAS ((REWRITE-RULE OPEN-MAP-UP-INPUTS ((LISTP INPUTS)) (EQUAL (MAP-UP-INPUTS INPUTS) (CONS (MAP-UP-1-INPUT (CAR INPUTS)) (MAP-UP-INPUTS (CDR INPUTS)))) NIL) (REWRITE-RULE OPEN-MAP-UP-INPUTS ((NOT (LISTP INPUTS))) (EQUAL (MAP-UP-INPUTS INPUTS) (QUOTE NIL)) NIL)) TOTALP-LST ((MAP-UP-INPUTS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (INPUTS) (IF (LISTP INPUTS) (CONS (MAP-UP-1-INPUT (CAR INPUTS)) (MAP-UP-INPUTS (CDR INPUTS))) (QUOTE NIL))) LISP-CODE *1*MAP-UP-INPUTS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP INPUTS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP INPUTS))) (((CDR INPUTS))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (INPUTS) (COUNT INPUTS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194201 CONTROLLER-POCKETS (1) SATELLITES (*1*MAP-UP-INPUTS) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM RESET-WORKS FM9001=CHIP-SYSTEM-SUMMARY NO-HOLDS-RESET-OR-TEST FM9001=CHIP-SYSTEM CHIP-SYSTEM=FM9001-INTERPRETER CHIP-SYSTEM=RUN-FM9001 OPEN-MAP-UP-INPUTS MAP-UP-INPUTS-OFF) EVENT (DEFN MAP-UP-INPUTS (INPUTS) (IF (NLISTP INPUTS) (QUOTE NIL) (CONS (MAP-UP-1-INPUT (CAR INPUTS)) (MAP-UP-INPUTS (CDR INPUTS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP-UP-1-INPUT . MAP-UP-INPUTS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . MAP-UP-INPUTS) (DCELL . *1*MAP-UP-INPUTS))))) (PUT1-LST (QUOTE *1*MAP-UP-1-INPUT) (QUOTE (MAIN-EVENT MAP-UP-1-INPUT))) (PUT1-LST (QUOTE MAP-UP-1-INPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-UP-1-INPUT 16 NIL)) TOTALP-LST ((MAP-UP-1-INPUT . T)) SDEFN (LAMBDA (INPUTS) (CONS (CAR (CDR (CDR (CDR INPUTS)))) (CONS (CAR (CDR (CDR (CDR (CDR INPUTS))))) (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))))) LISP-CODE *1*MAP-UP-1-INPUT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194201 SATELLITES (*1*MAP-UP-1-INPUT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001$STEP OPEN-MAP-UP-INPUTS MAP-UP-INPUTS) EVENT (DEFN MAP-UP-1-INPUT (INPUTS) (CONS (CAR (CDR (CDR (CDR INPUTS)))) (CONS (CAR (CDR (CDR (CDR (CDR INPUTS))))) (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAP-UP-1-INPUT))))) (PUT1-LST (QUOTE OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P) (QUOTE (IDATE 1000402194201 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001) EVENT (PROVE-LEMMA OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (QUOTE *1*TRUE))) (IMPLIES (NOT (ZEROP N)) (EQUAL (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (AND (CHIP-SYSTEM-INPUT-INVARIANT (CAR INPUTS)) (CHIP-SYSTEM-OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)))))) ((ENABLE CHIP-SYSTEM-OPERATING-INPUTS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INPUT-INVARIANT . OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P) (LEMMAS CHIP-SYSTEM-OPERATING-INPUTS-P . OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P) (LEMMAS CHIP-SYSTEM-OPERATING-INPUTS-P . OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P))))) (PUT1-LST (QUOTE CHIP-SYSTEM-OPERATING-INPUTS-P-OFF) (QUOTE (IDATE 1000402194201 EVENT (TOGGLE CHIP-SYSTEM-OPERATING-INPUTS-P-OFF CHIP-SYSTEM-OPERATING-INPUTS-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-OPERATING-INPUTS-P . CHIP-SYSTEM-OPERATING-INPUTS-P-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P-OFF . T))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-OPERATING-INPUTS-P) (QUOTE (MAIN-EVENT CHIP-SYSTEM-OPERATING-INPUTS-P))) (PUT1-LST (QUOTE CHIP-SYSTEM-OPERATING-INPUTS-P) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM-OPERATING-INPUTS-P 3 NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (IF (CHIP-SYSTEM-INPUT-INVARIANT (CAR INPUTS)) (CHIP-SYSTEM-OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P ((ZEROP N)) (EQUAL (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((CHIP-SYSTEM-OPERATING-INPUTS-P . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (INPUTS N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (CHIP-SYSTEM-INPUT-INVARIANT (CAR INPUTS)) (IF (CHIP-SYSTEM-OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*CHIP-SYSTEM-OPERATING-INPUTS-P SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((CDR INPUTS) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194201 CONTROLLER-POCKETS (2) SATELLITES (*1*CHIP-SYSTEM-OPERATING-INPUTS-P) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM UNKNOWN-STATE-OKP CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE NO-HOLDS-RESET-OR-TEST FM9001=CHIP-SYSTEM CHIP-SYSTEM=FM9001-INTERPRETER CHIP-SYSTEM=RUN-FM9001 OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P-OFF) EVENT (DEFN CHIP-SYSTEM-OPERATING-INPUTS-P (INPUTS N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (CHIP-SYSTEM-INPUT-INVARIANT (CAR INPUTS)) (CHIP-SYSTEM-OPERATING-INPUTS-P (CDR INPUTS) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INPUT-INVARIANT . CHIP-SYSTEM-OPERATING-INPUTS-P) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CHIP-SYSTEM-OPERATING-INPUTS-P) (DCELL . *1*CHIP-SYSTEM-OPERATING-INPUTS-P))))) (PUT1-LST (QUOTE REWRITE-CHIP-SYSTEM-INPUT-INVARIANT) (QUOTE (IDATE 1000402194201 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001$STEP) EVENT (PROVE-LEMMA REWRITE-CHIP-SYSTEM-INPUT-INVARIANT NIL (EQUAL (CHIP-SYSTEM-INPUT-INVARIANT INPUTS) (AND (EQUAL INPUTS (CONS (CAR INPUTS) (CONS (CAR (CDR INPUTS)) (CONS (CAR (CDR (CDR INPUTS))) (CONS (CAR (CDR (CDR (CDR INPUTS)))) (CONS (CAR (CDR (CDR (CDR (CDR INPUTS))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR INPUTS)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))) (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))))))))))) (AND (EQUAL (CAR (CDR (CDR INPUTS))) (QUOTE *1*FALSE)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR INPUTS)))))) (QUOTE *1*TRUE)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))) (QUOTE *1*TRUE)) (AND (PROPERP (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (EQUAL (LENGTH (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (QUOTE 4))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . REWRITE-CHIP-SYSTEM-INPUT-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . REWRITE-CHIP-SYSTEM-INPUT-INVARIANT) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INPUT-INVARIANT . REWRITE-CHIP-SYSTEM-INPUT-INVARIANT))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-INPUT-INVARIANT) (QUOTE (MAIN-EVENT CHIP-SYSTEM-INPUT-INVARIANT))) (PUT1-LST (QUOTE CHIP-SYSTEM-INPUT-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM-INPUT-INVARIANT 3 NIL)) TOTALP-LST ((CHIP-SYSTEM-INPUT-INVARIANT . T)) SDEFN (LAMBDA (INPUTS) (IF (EQUAL (CAR (CDR (CDR INPUTS))) (QUOTE *1*FALSE)) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR INPUTS)))))) (QUOTE *1*TRUE)) (IF (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))) (QUOTE *1*TRUE)) (IF (PROPERP (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (EQUAL (LENGTH (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (QUOTE 4)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CHIP-SYSTEM-INPUT-INVARIANT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194201 SATELLITES (*1*CHIP-SYSTEM-INPUT-INVARIANT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=FM9001$STEP OPEN-CHIP-SYSTEM-OPERATING-INPUTS-P CHIP-SYSTEM-OPERATING-INPUTS-P REWRITE-CHIP-SYSTEM-INPUT-INVARIANT) EVENT (DEFN CHIP-SYSTEM-INPUT-INVARIANT (INPUTS) (AND (EQUAL (CAR (CDR (CDR INPUTS))) (QUOTE *1*FALSE)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR INPUTS)))))) (QUOTE *1*TRUE)) (AND (EQUAL (CAR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS))))))) (QUOTE *1*TRUE)) (AND (PROPERP (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (EQUAL (LENGTH (CDR (CDR (CDR (CDR (CDR (CDR (CDR INPUTS)))))))) (QUOTE 4))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM-INPUT-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM-INPUT-INVARIANT) (DCELL . *1*CHIP-SYSTEM-INPUT-INVARIANT))))) (PUT1-LST (QUOTE FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (QUOTE (IDATE 1000402194201 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001) EVENT (PROVE-LEMMA FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT (REWRITE) (IMPLIES (AND (CHIP-SYSTEM-INVARIANT STATE) (AND (PROPERP (PC-REG-INPUT INPUTS)) (EQUAL (LENGTH (PC-REG-INPUT INPUTS)) (QUOTE 4)))) (CHIP-SYSTEM-INVARIANT (FM9001-NEXT-STATE STATE INPUTS))) ((ENABLE FM9001-NEXT-STATE F$WRITE-REGS REGS-ADDRESS CNTL-STATE OPEN-NTH) (DISABLE *1*MAKE-TREE *1*MAKE-LIST OPEN-V-THREEFIX THREEFIX DUAL-PORT-RAM-STATE) (ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET- . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PC-REG . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 HOLD- . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 ADDR-OUT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 DATA-OUT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 I-REG . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 DTACK- . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FLAGS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 B-REG . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 A-REG . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 REGS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 CNTL-STATE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-VFT-BUF . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$CORE-ALU . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$UPDATE-FLAGS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$EXTEND-IMMEDIATE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$DEC-PASS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$NEXT-CNTL-STATE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 F-GATES . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) (LEMMAS CHIP-SYSTEM-INVARIANT . FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (QUOTE (IDATE 1000402194200 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) EVENT (PROVE-LEMMA ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK (REWRITE) (IMPLIES (AND (ALL-RAMP-MEM (QUOTE 4) REGS) (AND (EQUAL (LENGTH A-ADDRESS) (QUOTE 4)) (AND (EQUAL (LENGTH B-ADDRESS) (QUOTE 4)) (AND (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32)))))) (ALL-RAMP-MEM (QUOTE 4) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A-ADDRESS (APPEND B-ADDRESS (CONS WE DATA))) REGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-CONSTANT-RAM . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-MEM . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 NTH-APPEND-TOO . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) (LEMMAS ALL-RAMP-MEM . ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK))))) (PUT1-LST (QUOTE MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (QUOTE (IDATE 1000402194200 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) EVENT (PROVE-LEMMA MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK (REWRITE) (IMPLIES (AND (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) REGS) (AND (EQUAL (LENGTH A-ADDRESS) (QUOTE 4)) (AND (EQUAL (LENGTH B-ADDRESS) (QUOTE 4)) (AND (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32)))))) (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A-ADDRESS (APPEND B-ADDRESS (CONS WE DATA))) REGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 NTH-APPEND-TOO . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-AFTER-WRITE-MEM . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-IF . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-CONSTANT-RAM . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK) (LEMMAS MEMORY-PROPERP . MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK))))) (PUT1-LST (QUOTE NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (QUOTE (IDATE 1000402194200 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) EVENT (PROVE-LEMMA NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT (REWRITE) (IMPLIES (AND (MEMORY-STATE-INVARIANT MEM-STATE) (AND (PROPERP DATA) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (EQUAL (LENGTH ADDRESS) (QUOTE 32))))) (MEMORY-STATE-INVARIANT (NEXT-MEMORY-STATE MEM-STATE STROBE- RW- ADDRESS DATA))) ((ENABLE NEXT-MEMORY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-AFTER-WRITE-MEM . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-CONSTANT-RAM . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 BOOLP . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 THREEFIX . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) (LEMMAS MEMORY-STATE-INVARIANT . NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT))))) (PUT1-LST (QUOTE CHIP-SYSTEM$STATE-OFF) (QUOTE (IDATE 1000402194154 EVENT (TOGGLE CHIP-SYSTEM$STATE-OFF CHIP-SYSTEM$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$STATE . CHIP-SYSTEM$STATE-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM$STATE) (QUOTE (IDATE 1000402194154 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001$STEP CHIP-SYSTEM$STATE-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM$STATE (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (CHIP-SYSTEM-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL)))) (AND (EQUAL TE (QUOTE *1*FALSE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) (CONS CLK (CONS TI (CONS TE (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- PC-REG-IN))))))) (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) NETLIST) (FM9001-NEXT-STATE (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) (CONS RESET- (CONS HOLD- PC-REG-IN))))) ((ENABLE CHIP-SYSTEM$STATE-HELP FM9001-NEXT-STATE OPEN-NTH SUBRANGE-CONS) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH *1*NTH MAKE-TREE *1*MAKE-TREE THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX APPEND-V-THREEFIX NEXT-MEMORY-STATE MEMORY-VALUE *1*MAKE-LIST MACHINE-STATE-INVARIANT MEMORY-STATE-INVARIANT) (ENABLE-THEORY FM9001-HARDWARE-STATE-ACCESSORS FM9001-EXTERNAL-INPUT-ACCESSORS) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$STATE-HELP . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 RESET- . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 PC-REG . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 HOLD- . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 ADDR-OUT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 DATA-OUT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 I-REG . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 DTACK- . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 FLAGS . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 B-REG . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 A-REG . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 REGS . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 CNTL-STATE . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 FM9001-HARDWARE-STATE-ACCESSORS . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 FM9001-EXTERNAL-INPUT-ACCESSORS . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM$STATE) (LEMMAS DUAL-EVAL . CHIP-SYSTEM$STATE))))) (PUT1-LST (QUOTE CHIP-SYSTEM$STATE-HELP-OFF) (QUOTE (IDATE 1000402194153 EVENT (TOGGLE CHIP-SYSTEM$STATE-HELP-OFF CHIP-SYSTEM$STATE-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM$STATE-HELP . CHIP-SYSTEM$STATE-HELP-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM$STATE-HELP-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM$STATE-HELP) (QUOTE (IDATE 1000402194153 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM$STATE-HELP (REWRITE) (IMPLIES (AND (CHIP-SYSTEM& NETLIST) (AND (CHIP-SYSTEM-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL)))) (AND (EQUAL TE (QUOTE *1*FALSE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) (CONS CLK (CONS TI (CONS TE (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- PC-REG-IN))))))) (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) NETLIST) (CONS (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) (F-BUF (CAR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) (F-BUF HOLD-) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL))))) ((ENABLE CHIP-SYSTEM& CHIP-SYSTEM*$DESTRUCTURE CHIP$VALUE CHIP$STATE MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-STATE PULLUP$VALUE V-PULLUP$VALUE V-WIRE$VALUE) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH OPEN-NTH *1*NTH MAKE-TREE *1*MAKE-TREE THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX APPEND-V-THREEFIX NEXT-MEMORY-STATE MEMORY-VALUE *1*MAKE-LIST) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM*$DESTRUCTURE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND5 . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 CHIP$VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-VFT-BUF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PULLUP$VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-PULLUP$VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-PULLUP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LNFIX . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-MEMORY-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-WIRE$VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 CHIP$STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-IF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-OR . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 X . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 STROBE- . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 HDACK- . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FT-BUF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-PULLUP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 RW- . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-BUF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 VFT-BUF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-PULLUP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-WIRE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-NOT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FV-IF . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ALU-OP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ALU-C . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 BV . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 WE-REGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM-INVARIANT . CHIP-SYSTEM$STATE-HELP) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM$STATE-HELP) (LEMMAS DUAL-EVAL . CHIP-SYSTEM$STATE-HELP))))) (PUT1-LST (QUOTE EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (QUOTE (IDATE 1000402194152 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP) EVENT (PROVE-LEMMA EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE (REWRITE) (EQUAL (MEMORY-VALUE STATE STROBE RW- ADDRESS (COLLECT-VALUE ARGS ALIST)) (MEMORY-VALUE STATE STROBE RW- ADDRESS (MAKE-LIST (LENGTH ARGS) (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 EQUAL-MEMORY-VALUE . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 X . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) (LEMMAS MEMORY-VALUE . EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-INVARIANT) (QUOTE (MAIN-EVENT CHIP-SYSTEM-INVARIANT))) (PUT1-LST (QUOTE CHIP-SYSTEM-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM-INVARIANT 3 NIL)) LEMMAS ((REWRITE-RULE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT ((FM9001-STATE-STRUCTURE STATE) (MACROCYCLE-INVARIANT STATE PC)) (CHIP-SYSTEM-INVARIANT STATE) NIL) (REWRITE-RULE FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ((CHIP-SYSTEM-INVARIANT STATE) (PROPERP (PC-REG-INPUT INPUTS)) (EQUAL (LENGTH (PC-REG-INPUT INPUTS)) (QUOTE 4))) (CHIP-SYSTEM-INVARIANT (FM9001-NEXT-STATE STATE INPUTS)) NIL)) TOTALP-LST ((CHIP-SYSTEM-INVARIANT . T)) SDEFN (LAMBDA (STATE) (IF (MACHINE-STATE-INVARIANT (CAR STATE)) (MEMORY-STATE-INVARIANT (CAR (CDR STATE))) (QUOTE *1*FALSE))) LISP-CODE *1*CHIP-SYSTEM-INVARIANT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194152 SATELLITES (*1*CHIP-SYSTEM-INVARIANT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET UNKNOWN-STATE-OKP CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=FM9001$STEP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP) EVENT (DEFN CHIP-SYSTEM-INVARIANT (STATE) (AND (MACHINE-STATE-INVARIANT (CAR STATE)) (MEMORY-STATE-INVARIANT (CAR (CDR STATE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-STATE-INVARIANT . CHIP-SYSTEM-INVARIANT) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-SYSTEM-INVARIANT) (DCELL . *1*CHIP-SYSTEM-INVARIANT))))) (PUT1-LST (QUOTE *1*MEMORY-STATE-INVARIANT) (QUOTE (MAIN-EVENT MEMORY-STATE-INVARIANT))) (PUT1-LST (QUOTE MEMORY-STATE-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-STATE-INVARIANT 3 NIL)) LEMMAS ((REWRITE-RULE NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT ((MEMORY-STATE-INVARIANT MEM-STATE) (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32)) (EQUAL (LENGTH ADDRESS) (QUOTE 32))) (MEMORY-STATE-INVARIANT (NEXT-MEMORY-STATE MEM-STATE STROBE- RW- ADDRESS DATA)) NIL)) TOTALP-LST ((MEMORY-STATE-INVARIANT . T)) SDEFN (LAMBDA (MEM-STATE) (IF (MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (CAR MEM-STATE)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE)))))))) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE))))))))) (QUOTE 32)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MEMORY-STATE-INVARIANT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194152 SATELLITES (*1*MEMORY-STATE-INVARIANT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM-INVARIANT) EVENT (DEFN MEMORY-STATE-INVARIANT (MEM-STATE) (AND (MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (CAR MEM-STATE)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE)))))))) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MEM-STATE))))))))) (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-STATE-INVARIANT) (DCELL . *1*MEMORY-STATE-INVARIANT))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM$NETLIST) (QUOTE (MAIN-EVENT CHIP-SYSTEM$NETLIST))) (PUT1-LST (QUOTE CHIP-SYSTEM$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM$NETLIST 16)) TOTALP-LST ((CHIP-SYSTEM$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CHIP-SYSTEM*) (UNION (PULLUP$NETLIST) (UNION (V-PULLUP$NETLIST (QUOTE 32)) (UNION (MEM-32X32$NETLIST) (UNION (V-WIRE$NETLIST (QUOTE 32)) (CHIP$NETLIST))))))) LISP-CODE *1*CHIP-SYSTEM$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194152 SATELLITES (*1*CHIP-SYSTEM$NETLIST) IMMEDIATE-DEPENDENTS0 (INSTANCE-THEOREM FINAL-STATE-OKP FM9001=CHIP-SYSTEM-SUMMARY) EVENT (DEFN CHIP-SYSTEM$NETLIST NIL (CONS (CHIP-SYSTEM*) (UNION (PULLUP$NETLIST) (UNION (V-PULLUP$NETLIST (QUOTE 32)) (UNION (MEM-32X32$NETLIST) (UNION (V-WIRE$NETLIST (QUOTE 32)) (CHIP$NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP$NETLIST . CHIP-SYSTEM$NETLIST) (IMMEDIATE-DEPENDENTS0 V-WIRE$NETLIST . CHIP-SYSTEM$NETLIST) (IMMEDIATE-DEPENDENTS0 MEM-32X32$NETLIST . CHIP-SYSTEM$NETLIST) (IMMEDIATE-DEPENDENTS0 V-PULLUP$NETLIST . CHIP-SYSTEM$NETLIST) (IMMEDIATE-DEPENDENTS0 PULLUP$NETLIST . CHIP-SYSTEM$NETLIST) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM* . CHIP-SYSTEM$NETLIST) (DCELL . *1*CHIP-SYSTEM$NETLIST))))) (PUT1-LST (QUOTE CHIP-SYSTEM&-OFF) (QUOTE (IDATE 1000402194152 EVENT (TOGGLE CHIP-SYSTEM&-OFF CHIP-SYSTEM& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM& . CHIP-SYSTEM&-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM& CHIP-SYSTEM&-OFF . T))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM&) (QUOTE (MAIN-EVENT CHIP-SYSTEM&))) (PUT1-LST (QUOTE CHIP-SYSTEM&) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM& 3 NIL)) LEMMAS ((REWRITE-RULE FINAL-STATE-OKP NIL (CHIP-SYSTEM& (CHIP-SYSTEM$NETLIST)) NIL)) TOTALP-LST ((CHIP-SYSTEM& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (CHIP-SYSTEM*)) (IF (CHIP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (IF (PULLUP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (IF (V-PULLUP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (QUOTE 32)) (IF (MEM-32X32& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (V-WIRE& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (QUOTE 32)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CHIP-SYSTEM& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194152 SATELLITES (*1*CHIP-SYSTEM&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM FINAL-STATE-OKP FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM CHIP-SYSTEM=FM9001-INTERPRETER CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=FM9001$STEP CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM&-OFF) EVENT (DEFN CHIP-SYSTEM& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (CHIP-SYSTEM*)) (AND (CHIP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (AND (PULLUP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (AND (V-PULLUP& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (QUOTE 32)) (AND (MEM-32X32& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST)) (V-WIRE& (DELETE-MODULE (QUOTE CHIP-SYSTEM) NETLIST) (QUOTE 32)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE& . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 V-PULLUP& . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 PULLUP& . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 CHIP& . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM* . CHIP-SYSTEM&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CHIP-SYSTEM&) (DCELL . *1*CHIP-SYSTEM&))))) (PUT1-LST (QUOTE G*1*CHIP-SYSTEM*-OFF) (QUOTE (IDATE 1000402194152 EVENT (TOGGLE G*1*CHIP-SYSTEM*-OFF *1*CHIP-SYSTEM* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM* . G*1*CHIP-SYSTEM*-OFF) (DISABLED-LEMMAS NIL *1*CHIP-SYSTEM* G*1*CHIP-SYSTEM*-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194152 EVENT (TOGGLE CHIP-SYSTEM*$DESTRUCTURE-OFF CHIP-SYSTEM*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM*$DESTRUCTURE . CHIP-SYSTEM*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM*$DESTRUCTURE CHIP-SYSTEM*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM*-OFF) (QUOTE (IDATE 1000402194152 EVENT (TOGGLE CHIP-SYSTEM*-OFF CHIP-SYSTEM* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM* . CHIP-SYSTEM*-OFF) (DISABLED-LEMMAS NIL CHIP-SYSTEM* CHIP-SYSTEM*-OFF . T))))) (PUT1-LST (QUOTE CHIP-SYSTEM*$DESTRUCTURE) (QUOTE (IDATE 1000402194152 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CHIP-SYSTEM*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (CHIP-SYSTEM*)) (QUOTE CHIP-SYSTEM)) (AND (EQUAL (CAR (CDR (CHIP-SYSTEM*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)))))))))) (AND (EQUAL (CAR (CDR (CDR (CHIP-SYSTEM*)))) (QUOTE NIL)) (AND (EQUAL (CAR (CDR (CDR (CDR (CHIP-SYSTEM*))))) (CONS (CONS (QUOTE FM9001) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PULLUP-RW- (RW-BUS) PULLUP (RW-))) (CONS (QUOTE (PULLUP-STROBE- (STROBE-BUS) PULLUP (STROBE-))) (CONS (CONS (QUOTE ADDRESS) (CONS (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE MEM) (CONS (CONS (QUOTE DTACK-) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE MEM-32X32) (CONS (CONS (QUOTE RW-BUS) (CONS (QUOTE STROBE-BUS) (APPEND (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-WIRE) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-WIRE 32)) (CONS (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA) (CONS (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (QUOTE NIL))))))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP-SYSTEM*)))))) (QUOTE (FM9001 MEM)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . CHIP-SYSTEM*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-SYSTEM*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP-SYSTEM*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CHIP-SYSTEM* . CHIP-SYSTEM*$DESTRUCTURE) (LEMMAS CAR . CHIP-SYSTEM*$DESTRUCTURE) (LEMMAS CAR . CHIP-SYSTEM*$DESTRUCTURE) (LEMMAS CAR . CHIP-SYSTEM*$DESTRUCTURE) (LEMMAS CAR . CHIP-SYSTEM*$DESTRUCTURE) (LEMMAS CAR . CHIP-SYSTEM*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM*) (QUOTE (MAIN-EVENT CHIP-SYSTEM*))) (PUT1-LST (QUOTE CHIP-SYSTEM*) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-SYSTEM* 16)) TOTALP-LST ((CHIP-SYSTEM* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE CHIP-SYSTEM) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4))))))))) (CONS (QUOTE NIL) (CONS (CONS (CONS (QUOTE FM9001) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PULLUP-RW- (RW-BUS) PULLUP (RW-))) (CONS (QUOTE (PULLUP-STROBE- (STROBE-BUS) PULLUP (STROBE-))) (CONS (CONS (QUOTE ADDRESS) (CONS (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE MEM) (CONS (CONS (QUOTE DTACK-) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE MEM-32X32) (CONS (CONS (QUOTE RW-BUS) (CONS (QUOTE STROBE-BUS) (APPEND (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-WIRE) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-WIRE 32)) (CONS (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA) (CONS (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE ((FM9001 MEM)))))))) LISP-CODE *1*CHIP-SYSTEM* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194152 SATELLITES (*1*CHIP-SYSTEM*) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$NETLIST CHIP-SYSTEM& G*1*CHIP-SYSTEM*-OFF CHIP-SYSTEM*-OFF CHIP-SYSTEM*$DESTRUCTURE) EVENT (DEFN CHIP-SYSTEM* NIL (CONS (QUOTE CHIP-SYSTEM) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4))))))))) (CONS (QUOTE NIL) (CONS (CONS (CONS (QUOTE FM9001) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PULLUP-RW- (RW-BUS) PULLUP (RW-))) (CONS (QUOTE (PULLUP-STROBE- (STROBE-BUS) PULLUP (STROBE-))) (CONS (CONS (QUOTE ADDRESS) (CONS (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE MEM) (CONS (CONS (QUOTE DTACK-) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE MEM-32X32) (CONS (CONS (QUOTE RW-BUS) (CONS (QUOTE STROBE-BUS) (APPEND (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-WIRE) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-WIRE 32)) (CONS (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA) (CONS (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE ((FM9001 MEM)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . CHIP-SYSTEM*) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP-SYSTEM*) (DCELL . *1*CHIP-SYSTEM*))))) (PUT1-LST (QUOTE CHIP$VALUE) (QUOTE (IDATE 1000402194152 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP) EVENT (PROVE-LEMMA CHIP$VALUE (REWRITE) (IMPLIES (AND (CHIP& NETLIST) (AND (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (AND (PROPERP PC-REG-IN) (AND (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (AND (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))))))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (QUOTE CHIP) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST)) (CONS (F-BUF (NTH (QUOTE 3) (V-THREEFIX LAST-PC-REG))) (CONS (F-BUF (NTH (QUOTE 2) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (CONS (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (CONS (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE))) (APPEND5 (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT)) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (V-THREEFIX FLAGS) (V-THREEFIX (STATE (V-THREEFIX CNTL-STATE))) (V-THREEFIX (SUBRANGE (V-THREEFIX I-REG) (QUOTE 28) (QUOTE 31))))))))))) ((ENABLE CHIP& CHIP*$DESTRUCTURE CHIP-MODULE$VALUE VDD-PARAMETRIC$VALUE TTL-CLK-INPUT$VALUE TTL-INPUT$VALUE TTL-OUTPUT$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-INPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE F-NOT-F-NOT=F-BUF STATE) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH OPEN-NTH *1*NTH MAKE-TREE *1*MAKE-TREE MAKE-LIST *1*MAKE-LIST THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX APPEND-V-THREEFIX) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 CHIP*$DESTRUCTURE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-VFT-BUF . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT-F-NOT=F-BUF . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS$VALUE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 STATE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND5 . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 STROBE- . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 RW- . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 HDACK- . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-C . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 NTH . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP$VALUE) (IMMEDIATE-DEPENDENTS0 CHIP& . CHIP$VALUE) (LEMMAS CDR . CHIP$VALUE))))) (PUT1-LST (QUOTE CHIP$STATE) (QUOTE (IDATE 1000402194151 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP) EVENT (PROVE-LEMMA CHIP$STATE (REWRITE) (IMPLIES (AND (CHIP& NETLIST) (AND (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (AND (EQUAL TE (QUOTE *1*FALSE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (PROPERP PC-REG-IN) (AND (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (AND (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32)))))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) (F-BUF DTACK-)) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) (F-BUF HOLD-) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL))))))))))))))) ((ENABLE CHIP& CHIP*$DESTRUCTURE CHIP-MODULE$VALUE CHIP-MODULE$STATE VDD-PARAMETRIC$VALUE TTL-CLK-INPUT$VALUE TTL-INPUT$VALUE TTL-OUTPUT$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-INPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE F-BUF-DELETE-LEMMAS) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH OPEN-NTH *1*NTH MAKE-TREE *1*MAKE-TREE THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX APPEND-V-THREEFIX) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 CHIP*$DESTRUCTURE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LNFIX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND5 . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF-LEMMA . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-VFT-BUF . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS$VALUE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 SUBSET-APPEND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-V-WIRE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF-DELETE-LEMMAS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$STATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 STATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 STROBE- . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-OR . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 RW- . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 V-WIRE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F-NAND . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 ALU-C . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 BV . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP$STATE) (IMMEDIATE-DEPENDENTS0 CHIP& . CHIP$STATE) (LEMMAS DUAL-EVAL . CHIP$STATE))))) (PUT1-LST (QUOTE *1*CHIP$NETLIST) (QUOTE (MAIN-EVENT CHIP$NETLIST))) (PUT1-LST (QUOTE CHIP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP$NETLIST 16)) TOTALP-LST ((CHIP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CHIP*) (UNION (UNION (UNION (UNION (TTL-BIDIRECT-PADS$NETLIST (QUOTE 32)) (CHIP-MODULE$NETLIST)) (UNION (TTL-INPUT$NETLIST) (TTL-INPUT-PADS$NETLIST (QUOTE 4)))) (UNION (UNION (TTL-CLK-INPUT$NETLIST) (VDD-PARAMETRIC$NETLIST)) (UNION (TTL-OUTPUT-PARAMETRIC$NETLIST) (TTL-OUTPUT$NETLIST)))) (UNION (UNION (UNION (TTL-OUTPUT-FAST$NETLIST) (TTL-TRI-OUTPUT-FAST$NETLIST)) (UNION (TTL-TRI-OUTPUT-PADS$NETLIST (QUOTE 32)) (TTL-OUTPUT-PADS$NETLIST (QUOTE 4)))) (UNION (TTL-OUTPUT-PADS$NETLIST (QUOTE 5)) (PROCMON$NETLIST)))))) LISP-CODE *1*CHIP$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194150 SATELLITES (*1*CHIP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED RESET-CHIP-FROM-ANY-STATE RESET-CHIP XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2 CHIP-SYSTEM$NETLIST) EVENT (DEFN CHIP$NETLIST NIL (CONS (CHIP*) (UNION (UNION (UNION (UNION (TTL-BIDIRECT-PADS$NETLIST (QUOTE 32)) (CHIP-MODULE$NETLIST)) (UNION (TTL-INPUT$NETLIST) (TTL-INPUT-PADS$NETLIST (QUOTE 4)))) (UNION (UNION (TTL-CLK-INPUT$NETLIST) (VDD-PARAMETRIC$NETLIST)) (UNION (TTL-OUTPUT-PARAMETRIC$NETLIST) (TTL-OUTPUT$NETLIST)))) (UNION (UNION (UNION (TTL-OUTPUT-FAST$NETLIST) (TTL-TRI-OUTPUT-FAST$NETLIST)) (UNION (TTL-TRI-OUTPUT-PADS$NETLIST (QUOTE 32)) (TTL-OUTPUT-PADS$NETLIST (QUOTE 4)))) (UNION (TTL-OUTPUT-PADS$NETLIST (QUOTE 5)) (PROCMON$NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-INPUT$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS$NETLIST . CHIP$NETLIST) (IMMEDIATE-DEPENDENTS0 CHIP* . CHIP$NETLIST) (DCELL . *1*CHIP$NETLIST))))) (PUT1-LST (QUOTE CHIP&-OFF) (QUOTE (IDATE 1000402194150 EVENT (TOGGLE CHIP&-OFF CHIP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP& . CHIP&-OFF) (DISABLED-LEMMAS NIL CHIP& CHIP&-OFF . T))))) (PUT1-LST (QUOTE *1*CHIP&) (QUOTE (MAIN-EVENT CHIP&))) (PUT1-LST (QUOTE CHIP&) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP& 3 NIL)) TOTALP-LST ((CHIP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CHIP) NETLIST) (CHIP*)) (IF (VDD-PARAMETRIC& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-CLK-INPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-INPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-INPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 4)) (IF (CHIP-MODULE& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-BIDIRECT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 32)) (IF (TTL-OUTPUT-PARAMETRIC& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-OUTPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-OUTPUT-FAST& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-TRI-OUTPUT-FAST& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (IF (TTL-TRI-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 32)) (IF (TTL-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 4)) (IF (TTL-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 5)) (PROCMON& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CHIP& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194150 SATELLITES (*1*CHIP&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM& CHIP$VALUE CHIP$STATE CHIP&-OFF) EVENT (DEFN CHIP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CHIP) NETLIST) (CHIP*)) (AND (VDD-PARAMETRIC& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-CLK-INPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-INPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-INPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 4)) (AND (CHIP-MODULE& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-BIDIRECT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 32)) (AND (TTL-OUTPUT-PARAMETRIC& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-OUTPUT& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-OUTPUT-FAST& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-TRI-OUTPUT-FAST& (DELETE-MODULE (QUOTE CHIP) NETLIST)) (AND (TTL-TRI-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 32)) (AND (TTL-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 4)) (AND (TTL-OUTPUT-PADS& (DELETE-MODULE (QUOTE CHIP) NETLIST) (QUOTE 5)) (PROCMON& (DELETE-MODULE (QUOTE CHIP) NETLIST))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS& . CHIP&) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-INPUT& . CHIP&) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT& . CHIP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CHIP&) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC& . CHIP&) (IMMEDIATE-DEPENDENTS0 CHIP* . CHIP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CHIP&) (DCELL . *1*CHIP&))))) (PUT1-LST (QUOTE G*1*CHIP*-OFF) (QUOTE (IDATE 1000402194150 EVENT (TOGGLE G*1*CHIP*-OFF *1*CHIP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP* . G*1*CHIP*-OFF) (DISABLED-LEMMAS NIL *1*CHIP* G*1*CHIP*-OFF . T))))) (PUT1-LST (QUOTE CHIP*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194150 EVENT (TOGGLE CHIP*$DESTRUCTURE-OFF CHIP*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP*$DESTRUCTURE . CHIP*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CHIP*$DESTRUCTURE CHIP*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CHIP*-OFF) (QUOTE (IDATE 1000402194150 EVENT (TOGGLE CHIP*-OFF CHIP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP* . CHIP*-OFF) (DISABLED-LEMMAS NIL CHIP* CHIP*-OFF . T))))) (PUT1-LST (QUOTE CHIP*$DESTRUCTURE) (QUOTE (IDATE 1000402194150 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE CHIP*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CHIP*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (CHIP*)) (QUOTE CHIP)) (AND (EQUAL (CAR (CDR (CHIP*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)))))))))))) (AND (EQUAL (CAR (CDR (CDR (CHIP*)))) (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4))))))))))))) (AND (EQUAL (CAR (CDR (CDR (CDR (CHIP*))))) (CONS (CONS (QUOTE BODY) (CONS (CONS (QUOTE I-TO) (CONS (QUOTE I-TIMING) (CONS (QUOTE I-HDACK-) (CONS (QUOTE I-EN-ADDR-OUT-) (CONS (QUOTE I-RW-) (CONS (QUOTE I-STROBE-) (APPEND (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE I-CLK) (CONS (QUOTE I-TI) (CONS (QUOTE I-TE) (CONS (QUOTE I-DTACK-) (CONS (QUOTE I-RESET-) (CONS (QUOTE I-HOLD-) (CONS (QUOTE I-DISABLE-REGFILE-) (CONS (QUOTE I-TEST-REGFILE-) (APPEND (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PLUS-5 (B-TRUE-P) VDD-PARAMETRIC NIL)) (CONS (QUOTE (CLOCK-PAD (I-CLK CLK-PO) TTL-CLK-INPUT (CLK B-TRUE-P))) (CONS (QUOTE (TI-PAD (I-TI TI-PO) TTL-INPUT (TI B-TRUE-P))) (CONS (QUOTE (TE-PAD (I-TE TE-PO) TTL-INPUT (TE TI-PO))) (CONS (QUOTE (DTACK-PAD (I-DTACK- DTACK-PO) TTL-INPUT (DTACK- TE-PO))) (CONS (QUOTE (RESET-PAD (I-RESET- RESET-PO) TTL-INPUT (RESET- DTACK-PO))) (CONS (QUOTE (HOLD-PAD (I-HOLD- HOLD-PO) TTL-INPUT (HOLD- RESET-PO))) (CONS (QUOTE (DISABLE-REGFILE-PAD (I-DISABLE-REGFILE- DISABLE-REGFILE-PO) TTL-INPUT (DISABLE-REGFILE- HOLD-PO))) (CONS (QUOTE (TEST-REGFILE-PAD (I-TEST-REGFILE- TEST-REGFILE-PO) TTL-INPUT (TEST-REGFILE- DISABLE-REGFILE-PO))) (CONS (CONS (QUOTE DATA-BUS-PADS) (CONS (CONS (QUOTE DATA-BUS-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE (*1*QUOTE INDEX TTL-BIDIRECT-PADS 32)) (CONS (CONS (QUOTE I-RW-) (CONS (QUOTE TEST-REGFILE-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE PC-REG-PADS) (CONS (CONS (QUOTE PC-REG-PO) (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX TTL-INPUT-PADS 4)) (CONS (CONS (QUOTE DATA-BUS-PO) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MONITOR (I-PO) PROCMON (PC-REG-PO CLK-PO B-TRUE-P B-TRUE-P))) (CONS (QUOTE (PO-PAD (PO) TTL-OUTPUT-PARAMETRIC (I-PO))) (CONS (QUOTE (TO-PAD (TO) TTL-OUTPUT (I-TO))) (CONS (QUOTE (TIMING-PAD (TIMING) TTL-OUTPUT-FAST (I-TIMING))) (CONS (QUOTE (HDACK-PAD (HDACK-) TTL-OUTPUT-FAST (I-HDACK-))) (CONS (QUOTE (RW-PAD (RW-) TTL-TRI-OUTPUT-FAST (I-RW- I-EN-ADDR-OUT-))) (CONS (QUOTE (STROBE-PAD (STROBE-) TTL-TRI-OUTPUT-FAST (I-STROBE- I-EN-ADDR-OUT-))) (CONS (CONS (QUOTE ADDR-OUT-PADS) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX TTL-TRI-OUTPUT-PADS 32)) (CONS (CONS (QUOTE I-EN-ADDR-OUT-) (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE FLAGS-PADS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE CNTL-STATE-PADS) (CONS (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 5)) (CONS (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG-PADS) (CONS (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)) (QUOTE NIL))))) (QUOTE NIL))))))))))))))))))))))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP*)))))) (QUOTE BODY))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . CHIP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CHIP* . CHIP*$DESTRUCTURE) (LEMMAS CAR . CHIP*$DESTRUCTURE) (LEMMAS CAR . CHIP*$DESTRUCTURE) (LEMMAS CAR . CHIP*$DESTRUCTURE) (LEMMAS CAR . CHIP*$DESTRUCTURE) (LEMMAS CAR . CHIP*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*CHIP*) (QUOTE (MAIN-EVENT CHIP*))) (PUT1-LST (QUOTE CHIP*) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP* 16)) TOTALP-LST ((CHIP* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (CONS (CONS (QUOTE BODY) (CONS (CONS (QUOTE I-TO) (CONS (QUOTE I-TIMING) (CONS (QUOTE I-HDACK-) (CONS (QUOTE I-EN-ADDR-OUT-) (CONS (QUOTE I-RW-) (CONS (QUOTE I-STROBE-) (APPEND (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE I-CLK) (CONS (QUOTE I-TI) (CONS (QUOTE I-TE) (CONS (QUOTE I-DTACK-) (CONS (QUOTE I-RESET-) (CONS (QUOTE I-HOLD-) (CONS (QUOTE I-DISABLE-REGFILE-) (CONS (QUOTE I-TEST-REGFILE-) (APPEND (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PLUS-5 (B-TRUE-P) VDD-PARAMETRIC NIL)) (CONS (QUOTE (CLOCK-PAD (I-CLK CLK-PO) TTL-CLK-INPUT (CLK B-TRUE-P))) (CONS (QUOTE (TI-PAD (I-TI TI-PO) TTL-INPUT (TI B-TRUE-P))) (CONS (QUOTE (TE-PAD (I-TE TE-PO) TTL-INPUT (TE TI-PO))) (CONS (QUOTE (DTACK-PAD (I-DTACK- DTACK-PO) TTL-INPUT (DTACK- TE-PO))) (CONS (QUOTE (RESET-PAD (I-RESET- RESET-PO) TTL-INPUT (RESET- DTACK-PO))) (CONS (QUOTE (HOLD-PAD (I-HOLD- HOLD-PO) TTL-INPUT (HOLD- RESET-PO))) (CONS (QUOTE (DISABLE-REGFILE-PAD (I-DISABLE-REGFILE- DISABLE-REGFILE-PO) TTL-INPUT (DISABLE-REGFILE- HOLD-PO))) (CONS (QUOTE (TEST-REGFILE-PAD (I-TEST-REGFILE- TEST-REGFILE-PO) TTL-INPUT (TEST-REGFILE- DISABLE-REGFILE-PO))) (CONS (CONS (QUOTE DATA-BUS-PADS) (CONS (CONS (QUOTE DATA-BUS-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE (*1*QUOTE INDEX TTL-BIDIRECT-PADS 32)) (CONS (CONS (QUOTE I-RW-) (CONS (QUOTE TEST-REGFILE-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE PC-REG-PADS) (CONS (CONS (QUOTE PC-REG-PO) (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX TTL-INPUT-PADS 4)) (CONS (CONS (QUOTE DATA-BUS-PO) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MONITOR (I-PO) PROCMON (PC-REG-PO CLK-PO B-TRUE-P B-TRUE-P))) (CONS (QUOTE (PO-PAD (PO) TTL-OUTPUT-PARAMETRIC (I-PO))) (CONS (QUOTE (TO-PAD (TO) TTL-OUTPUT (I-TO))) (CONS (QUOTE (TIMING-PAD (TIMING) TTL-OUTPUT-FAST (I-TIMING))) (CONS (QUOTE (HDACK-PAD (HDACK-) TTL-OUTPUT-FAST (I-HDACK-))) (CONS (QUOTE (RW-PAD (RW-) TTL-TRI-OUTPUT-FAST (I-RW- I-EN-ADDR-OUT-))) (CONS (QUOTE (STROBE-PAD (STROBE-) TTL-TRI-OUTPUT-FAST (I-STROBE- I-EN-ADDR-OUT-))) (CONS (CONS (QUOTE ADDR-OUT-PADS) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX TTL-TRI-OUTPUT-PADS 32)) (CONS (CONS (QUOTE I-EN-ADDR-OUT-) (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE FLAGS-PADS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE CNTL-STATE-PADS) (CONS (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 5)) (CONS (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG-PADS) (CONS (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)) (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))) (QUOTE (BODY))))))) LISP-CODE *1*CHIP* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194149 SATELLITES (*1*CHIP*) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST CHIP& G*1*CHIP*-OFF CHIP*-OFF CHIP*$DESTRUCTURE) EVENT (DEFN CHIP* NIL (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (CONS (CONS (QUOTE BODY) (CONS (CONS (QUOTE I-TO) (CONS (QUOTE I-TIMING) (CONS (QUOTE I-HDACK-) (CONS (QUOTE I-EN-ADDR-OUT-) (CONS (QUOTE I-RW-) (CONS (QUOTE I-STROBE-) (APPEND (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE I-CLK) (CONS (QUOTE I-TI) (CONS (QUOTE I-TE) (CONS (QUOTE I-DTACK-) (CONS (QUOTE I-RESET-) (CONS (QUOTE I-HOLD-) (CONS (QUOTE I-DISABLE-REGFILE-) (CONS (QUOTE I-TEST-REGFILE-) (APPEND (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PLUS-5 (B-TRUE-P) VDD-PARAMETRIC NIL)) (CONS (QUOTE (CLOCK-PAD (I-CLK CLK-PO) TTL-CLK-INPUT (CLK B-TRUE-P))) (CONS (QUOTE (TI-PAD (I-TI TI-PO) TTL-INPUT (TI B-TRUE-P))) (CONS (QUOTE (TE-PAD (I-TE TE-PO) TTL-INPUT (TE TI-PO))) (CONS (QUOTE (DTACK-PAD (I-DTACK- DTACK-PO) TTL-INPUT (DTACK- TE-PO))) (CONS (QUOTE (RESET-PAD (I-RESET- RESET-PO) TTL-INPUT (RESET- DTACK-PO))) (CONS (QUOTE (HOLD-PAD (I-HOLD- HOLD-PO) TTL-INPUT (HOLD- RESET-PO))) (CONS (QUOTE (DISABLE-REGFILE-PAD (I-DISABLE-REGFILE- DISABLE-REGFILE-PO) TTL-INPUT (DISABLE-REGFILE- HOLD-PO))) (CONS (QUOTE (TEST-REGFILE-PAD (I-TEST-REGFILE- TEST-REGFILE-PO) TTL-INPUT (TEST-REGFILE- DISABLE-REGFILE-PO))) (CONS (CONS (QUOTE DATA-BUS-PADS) (CONS (CONS (QUOTE DATA-BUS-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE (*1*QUOTE INDEX TTL-BIDIRECT-PADS 32)) (CONS (CONS (QUOTE I-RW-) (CONS (QUOTE TEST-REGFILE-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE PC-REG-PADS) (CONS (CONS (QUOTE PC-REG-PO) (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX TTL-INPUT-PADS 4)) (CONS (CONS (QUOTE DATA-BUS-PO) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MONITOR (I-PO) PROCMON (PC-REG-PO CLK-PO B-TRUE-P B-TRUE-P))) (CONS (QUOTE (PO-PAD (PO) TTL-OUTPUT-PARAMETRIC (I-PO))) (CONS (QUOTE (TO-PAD (TO) TTL-OUTPUT (I-TO))) (CONS (QUOTE (TIMING-PAD (TIMING) TTL-OUTPUT-FAST (I-TIMING))) (CONS (QUOTE (HDACK-PAD (HDACK-) TTL-OUTPUT-FAST (I-HDACK-))) (CONS (QUOTE (RW-PAD (RW-) TTL-TRI-OUTPUT-FAST (I-RW- I-EN-ADDR-OUT-))) (CONS (QUOTE (STROBE-PAD (STROBE-) TTL-TRI-OUTPUT-FAST (I-STROBE- I-EN-ADDR-OUT-))) (CONS (CONS (QUOTE ADDR-OUT-PADS) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX TTL-TRI-OUTPUT-PADS 32)) (CONS (CONS (QUOTE I-EN-ADDR-OUT-) (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE FLAGS-PADS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE CNTL-STATE-PADS) (CONS (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 5)) (CONS (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG-PADS) (CONS (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)) (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))) (QUOTE (BODY))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . CHIP*) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP*) (DCELL . *1*CHIP*))))) (PUT1-LST (QUOTE CHIP-MODULE$VALUE) (QUOTE (IDATE 1000402194149 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE) EVENT (PROVE-LEMMA CHIP-MODULE$VALUE (REWRITE) (IMPLIES (AND (CHIP-MODULE& NETLIST) (AND (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (AND (PROPERP PC-REG-IN) (AND (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (AND (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CHIP-MODULE) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (NTH (QUOTE 3) (V-THREEFIX LAST-PC-REG)) (CONS (NTH (QUOTE 2) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (HDACK- (V-THREEFIX CNTL-STATE)) (CONS (F-NOT (HDACK- (V-THREEFIX CNTL-STATE))) (CONS (F-BUF (RW- (V-THREEFIX CNTL-STATE))) (CONS (STROBE- (V-THREEFIX CNTL-STATE)) (APPEND5 (V-THREEFIX ADDR-OUT) (V-THREEFIX DATA-OUT) (V-THREEFIX FLAGS) (STATE (V-THREEFIX CNTL-STATE)) (SUBRANGE (V-THREEFIX I-REG) (QUOTE 28) (QUOTE 31))))))))))) ((ENABLE CHIP-MODULE& CHIP-MODULE*$DESTRUCTURE REGFILE$VALUE REGFILE$STATE FLAGS$VALUE FLAGS$STATE WE-REG$VALUE WE-REG$STATE FD1S$VALUE FD1S$STATE FD1SLP$VALUE FD1SLP$STATE REG$VALUE REG$STATE ID$VALUE B-BUF-PWR$VALUE B-BUF$VALUE B-NOT$VALUE DEC-PASS$VALUE TV-IF$VALUE CORE-ALU$VALUE NEXT-CNTL-STATE$VALUE EXTEND-IMMEDIATE$VALUE REG-40$VALUE-AS-CNTL-STATE B-OR$VALUE B-NAND$VALUE BV-AS-SUBRANGE A-IMMEDIATE F-BUF-DELETE-LEMMAS) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH OPEN-NTH *1*NTH MAKE-TREE *1*MAKE-TREE THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX) (DISABLE-THEORY F-GATES B-GATES) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE*$DESTRUCTURE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 BV-AS-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-INDICES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 REG-40$VALUE-AS-CNTL-STATE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 FLAGS$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 FD1S$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SLP$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$EXTEND-IMMEDIATE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 CORE-ALU$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$CORE-ALU . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 STATE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND5 . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 STROBE- . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 RW- . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 HDACK- . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-C . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 NTH . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-MODULE$VALUE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE& . CHIP-MODULE$VALUE) (LEMMAS DUAL-EVAL . CHIP-MODULE$VALUE))))) (PUT1-LST (QUOTE CHIP-MODULE$STATE) (QUOTE (IDATE 1000402194147 IMMEDIATE-DEPENDENTS0 (CHIP$STATE) EVENT (PROVE-LEMMA CHIP-MODULE$STATE (REWRITE) (IMPLIES (AND (CHIP-MODULE& NETLIST) (AND (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (AND (EQUAL TE (QUOTE *1*FALSE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (PROPERP PC-REG-IN) (AND (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (AND (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32)))))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-MODULE) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) DTACK-) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) HOLD- LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL))))))))))))))) ((ENABLE CHIP-MODULE& CHIP-MODULE*$DESTRUCTURE REGFILE$VALUE REGFILE$STATE FLAGS$VALUE FLAGS$STATE WE-REG$VALUE WE-REG$STATE FD1S$VALUE FD1S$STATE FD1SLP$VALUE FD1SLP$STATE REG$VALUE REG$STATE ID$VALUE B-BUF-PWR$VALUE B-BUF$VALUE B-NOT$VALUE DEC-PASS$VALUE TV-IF$VALUE CORE-ALU$VALUE NEXT-CNTL-STATE$VALUE EXTEND-IMMEDIATE$VALUE REG-40$VALUE-AS-CNTL-STATE B-OR$VALUE B-NAND$VALUE BV-AS-SUBRANGE A-IMMEDIATE F-BUF-DELETE-LEMMAS) (DISABLE INDICES *1*INDICES OPEN-INDICES NTH OPEN-NTH *1*NTH MAKE-TREE *1*MAKE-TREE THREEFIX F-GATES=B-GATES OPEN-V-THREEFIX) (DISABLE-THEORY F-GATES B-GATES) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE*$DESTRUCTURE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 BV-AS-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-INDICES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LNFIX . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 HDACK- . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REG-40$VALUE-AS-CNTL-STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REGFILE$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FLAGS$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FD1S$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FD1SLP$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 SUBSET-SUBRANGE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$READ-REGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$EXTEND-IMMEDIATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DEC-PASS$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 CORE-ALU$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF-LEMMA . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$CORE-ALU . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$NEXT-CNTL-STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REG$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REGFILE$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FLAGS$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$DEC-PASS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FD1S$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF-DELETE-LEMMAS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FD1SLP$STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 B-GATES . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 RW- . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 STROBE- . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-OR . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F-NAND . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 ALU-C . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 BV . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 MACHINE-STATE-INVARIANT . CHIP-MODULE$STATE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE& . CHIP-MODULE$STATE) (LEMMAS DUAL-EVAL . CHIP-MODULE$STATE))))) (PUT1-LST (QUOTE *1*MACHINE-STATE-INVARIANT) (QUOTE (MAIN-EVENT MACHINE-STATE-INVARIANT))) (PUT1-LST (QUOTE MACHINE-STATE-INVARIANT) (QUOTE (TYPE-PRESCRIPTION-LST ((MACHINE-STATE-INVARIANT 3 NIL)) LEMMAS ((REWRITE-RULE NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT ((NEW-MACHINE-STATE-INVARIANT MACHINE-STATE)) (MACHINE-STATE-INVARIANT MACHINE-STATE) NIL)) TOTALP-LST ((MACHINE-STATE-INVARIANT . T)) SDEFN (LAMBDA (MACHINE-STATE) (IF (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR MACHINE-STATE))) (IF (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) (CAR (CAR MACHINE-STATE))) (IF (PROPERP (CAR (CDR (CDR (CAR MACHINE-STATE))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CAR MACHINE-STATE))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (QUOTE 4)) (IF (PROPERP (CAR (CDR MACHINE-STATE))) (IF (EQUAL (LENGTH (CAR (CDR MACHINE-STATE))) (QUOTE 4)) (IF (PROPERP (CAR (CDR (CDR MACHINE-STATE)))) (IF (EQUAL (LENGTH (CAR (CDR (CDR MACHINE-STATE)))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR MACHINE-STATE))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR MACHINE-STATE))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (QUOTE 32)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (IF (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (QUOTE 4)) (IF (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (QUOTE 40)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MACHINE-STATE-INVARIANT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194145 SATELLITES (*1*MACHINE-STATE-INVARIANT) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET NEW-MACHINE-STATE-INVARIANT-IMPLIES-MACHINE-STATE-INVARIANT CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM-INVARIANT CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE) EVENT (DEFN MACHINE-STATE-INVARIANT (MACHINE-STATE) (AND (ALL-RAMP-MEM (QUOTE 4) (CAR (CAR MACHINE-STATE))) (AND (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) (CAR (CAR MACHINE-STATE))) (AND (PROPERP (CAR (CDR (CDR (CAR MACHINE-STATE))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CAR MACHINE-STATE))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CAR MACHINE-STATE)))))) (QUOTE 4)) (AND (PROPERP (CAR (CDR MACHINE-STATE))) (AND (EQUAL (LENGTH (CAR (CDR MACHINE-STATE))) (QUOTE 4)) (AND (PROPERP (CAR (CDR (CDR MACHINE-STATE)))) (AND (EQUAL (LENGTH (CAR (CDR (CDR MACHINE-STATE)))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR MACHINE-STATE))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR MACHINE-STATE))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR MACHINE-STATE)))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))) (QUOTE 32)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE)))))))))))) (QUOTE 4)) (AND (PROPERP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR MACHINE-STATE))))))))))))) (QUOTE 40)))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 PROPERP . MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MACHINE-STATE-INVARIANT) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . MACHINE-STATE-INVARIANT) (DCELL . *1*MACHINE-STATE-INVARIANT))))) (PUT1-LST (QUOTE BV-AS-SUBRANGE-OFF) (QUOTE (IDATE 1000402194145 EVENT (TOGGLE BV-AS-SUBRANGE-OFF BV-AS-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-AS-SUBRANGE . BV-AS-SUBRANGE-OFF) (DISABLED-LEMMAS NIL BV-AS-SUBRANGE BV-AS-SUBRANGE-OFF . T))))) (PUT1-LST (QUOTE BV-AS-SUBRANGE) (QUOTE (IDATE 1000402194145 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE BV-AS-SUBRANGE-OFF) EVENT (PROVE-LEMMA BV-AS-SUBRANGE (REWRITE) (IMPLIES (AND (IF (LESSP (LENGTH X) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (PROPERP X)) (EQUAL (BV X) (SUBRANGE X (QUOTE 3) (SUB1 (LENGTH X))))) ((ENABLE BV SUBRANGE SUBRANGE-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BV . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 PROPERP . BV-AS-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-AS-SUBRANGE) (LEMMAS BV . BV-AS-SUBRANGE))))) (PUT1-LST (QUOTE REG-40$VALUE-AS-CNTL-STATE-OFF) (QUOTE (IDATE 1000402194145 EVENT (TOGGLE REG-40$VALUE-AS-CNTL-STATE-OFF REG-40$VALUE-AS-CNTL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-40$VALUE-AS-CNTL-STATE . REG-40$VALUE-AS-CNTL-STATE-OFF) (DISABLED-LEMMAS NIL REG-40$VALUE-AS-CNTL-STATE REG-40$VALUE-AS-CNTL-STATE-OFF . T))))) (PUT1-LST (QUOTE REG-40$VALUE-AS-CNTL-STATE) (QUOTE (IDATE 1000402194145 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE-OFF) EVENT (PROVE-LEMMA REG-40$VALUE-AS-CNTL-STATE (REWRITE) (IMPLIES (AND (REG& NETLIST (QUOTE 40)) (AND (PROPERP STATE) (EQUAL (LENGTH STATE) (QUOTE 40)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE (*1*QUOTE INDEX REG 40)) ARGS STATE NETLIST) (CONS (RW- (V-THREEFIX STATE)) (CONS (STROBE- (V-THREEFIX STATE)) (CONS (HDACK- (V-THREEFIX STATE)) (CONS (WE-REGS (V-THREEFIX STATE)) (CONS (WE-A-REG (V-THREEFIX STATE)) (CONS (WE-B-REG (V-THREEFIX STATE)) (CONS (WE-I-REG (V-THREEFIX STATE)) (CONS (WE-DATA-OUT (V-THREEFIX STATE)) (CONS (WE-ADDR-OUT (V-THREEFIX STATE)) (CONS (WE-HOLD- (V-THREEFIX STATE)) (CONS (WE-PC-REG (V-THREEFIX STATE)) (CONS (DATA-IN-SELECT (V-THREEFIX STATE)) (CONS (DEC-ADDR-OUT (V-THREEFIX STATE)) (CONS (SELECT-IMMEDIATE (V-THREEFIX STATE)) (CONS (ALU-C (V-THREEFIX STATE)) (CONS (ALU-ZERO (V-THREEFIX STATE)) (APPEND (STATE (V-THREEFIX STATE)) (APPEND (WE-FLAGS (V-THREEFIX STATE)) (APPEND (REGS-ADDRESS (V-THREEFIX STATE)) (APPEND (ALU-OP (V-THREEFIX STATE)) (ALU-MPG (V-THREEFIX STATE)))))))))))))))))))))))) ((ENABLE REG$VALUE) (USE (LIST-AS-CNTL-STATE-CROCK (LIST (V-THREEFIX STATE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 REG$VALUE . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LIST-AS-CNTL-STATE-CROCK . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 ALU-OP . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 STATE . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 ALU-C . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 WE-REGS . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 HDACK- . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 STROBE- . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RW- . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 INDEX . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . REG-40$VALUE-AS-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 REG& . REG-40$VALUE-AS-CNTL-STATE) (LEMMAS DUAL-EVAL . REG-40$VALUE-AS-CNTL-STATE))))) (PUT1-LST (QUOTE LIST-AS-CNTL-STATE-CROCK) (QUOTE (IDATE 1000402194145 IMMEDIATE-DEPENDENTS0 (REG-40$VALUE-AS-CNTL-STATE) EVENT (PROVE-LEMMA LIST-AS-CNTL-STATE-CROCK NIL (IMPLIES (AND (PROPERP LIST) (EQUAL (LENGTH LIST) (QUOTE 40))) (EQUAL LIST (CONS (RW- LIST) (CONS (STROBE- LIST) (CONS (HDACK- LIST) (CONS (WE-REGS LIST) (CONS (WE-A-REG LIST) (CONS (WE-B-REG LIST) (CONS (WE-I-REG LIST) (CONS (WE-DATA-OUT LIST) (CONS (WE-ADDR-OUT LIST) (CONS (WE-HOLD- LIST) (CONS (WE-PC-REG LIST) (CONS (DATA-IN-SELECT LIST) (CONS (DEC-ADDR-OUT LIST) (CONS (SELECT-IMMEDIATE LIST) (CONS (ALU-C LIST) (CONS (ALU-ZERO LIST) (APPEND (STATE LIST) (APPEND (WE-FLAGS LIST) (APPEND (REGS-ADDRESS LIST) (APPEND (ALU-OP LIST) (ALU-MPG LIST))))))))))))))))))))))) ((ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (ENABLE OPEN-SUBRANGE) (USE (EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE (L LIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALU-MPG . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALU-OP . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 STATE . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 ALU-C . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-I-REG . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-B-REG . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-A-REG . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 WE-REGS . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 HDACK- . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 STROBE- . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 RW- . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . LIST-AS-CNTL-STATE-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP . LIST-AS-CNTL-STATE-CROCK))))) (PUT1-LST (QUOTE EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (QUOTE (IDATE 1000402194145 IMMEDIATE-DEPENDENTS0 (LIST-AS-CNTL-STATE-CROCK) EVENT (PROVE-LEMMA EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE NIL (IMPLIES (AND (EQUAL (LENGTH L) (QUOTE 40)) (PROPERP L)) (EQUAL L (APPEND (LIST-AS-COLLECTED-NTH L (QUOTE 16) (QUOTE 0)) (SUBRANGE L (QUOTE 16) (QUOTE 39))))) ((ENABLE OPEN-NTH PROPERP-AS-NULL-NTHCDR OUR-CAR-CDR-ELIM OPEN-SUBRANGE) (DISABLE CAR-CDR-ELIM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 PROPERP-AS-NULL-NTHCDR . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 OUR-CAR-CDR-ELIM . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 PROPERP . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE))))) (PUT1-LST (QUOTE *1*CHIP-MODULE$NETLIST) (QUOTE (MAIN-EVENT CHIP-MODULE$NETLIST))) (PUT1-LST (QUOTE CHIP-MODULE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-MODULE$NETLIST 16)) TOTALP-LST ((CHIP-MODULE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CHIP-MODULE*) (UNION (REGFILE$NETLIST) (UNION (UNION (UNION (UNION (FLAGS$NETLIST) (WE-REG$NETLIST (QUOTE 32))) (UNION (FD1S$NETLIST) (FD1SLP$NETLIST))) (UNION (UNION (UNION (WE-REG$NETLIST (QUOTE 4)) (REG$NETLIST (QUOTE 40))) (UNION (ID$NETLIST) (EXTEND-IMMEDIATE$NETLIST))) (UNION (UNION (DEC-PASS$NETLIST (QUOTE 32)) (TV-IF$NETLIST (MAKE-TREE (QUOTE 32)))) (UNION (CORE-ALU$NETLIST (MAKE-TREE (QUOTE 32))) (NEXT-CNTL-STATE$NETLIST))))) (UNION (B-BUF-PWR$NETLIST) (UNION (B-BUF$NETLIST) (B-NOT$NETLIST))))))) LISP-CODE *1*CHIP-MODULE$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194144 SATELLITES (*1*CHIP-MODULE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED CHIP$NETLIST) EVENT (DEFN CHIP-MODULE$NETLIST NIL (CONS (CHIP-MODULE*) (UNION (REGFILE$NETLIST) (UNION (UNION (UNION (UNION (FLAGS$NETLIST) (WE-REG$NETLIST (QUOTE 32))) (UNION (FD1S$NETLIST) (FD1SLP$NETLIST))) (UNION (UNION (UNION (WE-REG$NETLIST (QUOTE 4)) (REG$NETLIST (QUOTE 40))) (UNION (ID$NETLIST) (EXTEND-IMMEDIATE$NETLIST))) (UNION (UNION (DEC-PASS$NETLIST (QUOTE 32)) (TV-IF$NETLIST (MAKE-TREE (QUOTE 32)))) (UNION (CORE-ALU$NETLIST (MAKE-TREE (QUOTE 32))) (NEXT-CNTL-STATE$NETLIST))))) (UNION (B-BUF-PWR$NETLIST) (UNION (B-BUF$NETLIST) (B-NOT$NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 CORE-ALU$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 DEC-PASS$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 REG$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1SLP$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1S$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 WE-REG$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 FLAGS$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 REGFILE$NETLIST . CHIP-MODULE$NETLIST) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE* . CHIP-MODULE$NETLIST) (DCELL . *1*CHIP-MODULE$NETLIST))))) (PUT1-LST (QUOTE CHIP-MODULE&-OFF) (QUOTE (IDATE 1000402194144 EVENT (TOGGLE CHIP-MODULE&-OFF CHIP-MODULE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-MODULE& . CHIP-MODULE&-OFF) (DISABLED-LEMMAS NIL CHIP-MODULE& CHIP-MODULE&-OFF . T))))) (PUT1-LST (QUOTE *1*CHIP-MODULE&) (QUOTE (MAIN-EVENT CHIP-MODULE&))) (PUT1-LST (QUOTE CHIP-MODULE&) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-MODULE& 3 NIL)) TOTALP-LST ((CHIP-MODULE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CHIP-MODULE) NETLIST) (CHIP-MODULE*)) (IF (REGFILE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (FLAGS& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (WE-REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 32)) (IF (FD1S& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (FD1SLP& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (WE-REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 4)) (IF (REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 40)) (IF (ID& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (B-BUF-PWR& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (B-BUF& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (EXTEND-IMMEDIATE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (IF (DEC-PASS& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 32)) (IF (TV-IF& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (MAKE-TREE (QUOTE 32))) (IF (CORE-ALU& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (MAKE-TREE (QUOTE 32))) (NEXT-CNTL-STATE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CHIP-MODULE& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194144 SATELLITES (*1*CHIP-MODULE&) IMMEDIATE-DEPENDENTS0 (CHIP& CHIP-MODULE$VALUE CHIP-MODULE$STATE CHIP-MODULE&-OFF) EVENT (DEFN CHIP-MODULE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CHIP-MODULE) NETLIST) (CHIP-MODULE*)) (AND (REGFILE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (FLAGS& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (WE-REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 32)) (AND (FD1S& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (FD1SLP& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (WE-REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 4)) (AND (REG& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 40)) (AND (ID& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (B-BUF-PWR& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (B-BUF& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (EXTEND-IMMEDIATE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST)) (AND (DEC-PASS& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (QUOTE 32)) (AND (TV-IF& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (MAKE-TREE (QUOTE 32))) (AND (CORE-ALU& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST) (MAKE-TREE (QUOTE 32))) (NEXT-CNTL-STATE& (DELETE-MODULE (QUOTE CHIP-MODULE) NETLIST))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 CORE-ALU& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 TV-IF& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 DEC-PASS& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 B-NOT& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 B-BUF& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 ID& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 REG& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 FD1SLP& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 FD1S& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 WE-REG& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 FLAGS& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 REGFILE& . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE* . CHIP-MODULE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CHIP-MODULE&) (DCELL . *1*CHIP-MODULE&))))) (PUT1-LST (QUOTE G*1*CHIP-MODULE*-OFF) (QUOTE (IDATE 1000402194144 EVENT (TOGGLE G*1*CHIP-MODULE*-OFF *1*CHIP-MODULE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-MODULE* . G*1*CHIP-MODULE*-OFF) (DISABLED-LEMMAS NIL *1*CHIP-MODULE* G*1*CHIP-MODULE*-OFF . T))))) (PUT1-LST (QUOTE CHIP-MODULE*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194144 EVENT (TOGGLE CHIP-MODULE*$DESTRUCTURE-OFF CHIP-MODULE*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-MODULE*$DESTRUCTURE . CHIP-MODULE*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CHIP-MODULE*$DESTRUCTURE CHIP-MODULE*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CHIP-MODULE*-OFF) (QUOTE (IDATE 1000402194144 EVENT (TOGGLE CHIP-MODULE*-OFF CHIP-MODULE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CHIP-MODULE* . CHIP-MODULE*-OFF) (DISABLED-LEMMAS NIL CHIP-MODULE* CHIP-MODULE*-OFF . T))))) (PUT1-LST (QUOTE CHIP-MODULE*$DESTRUCTURE) (QUOTE (IDATE 1000402194144 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE CHIP-MODULE*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CHIP-MODULE*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (CHIP-MODULE*)) (QUOTE CHIP-MODULE)) (AND (EQUAL (CAR (CDR (CHIP-MODULE*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))))))))))) (AND (EQUAL (CAR (CDR (CDR (CHIP-MODULE*)))) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE EN-ADDR-OUT-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (SUBRANGE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (QUOTE 28) (QUOTE 31))))))))))))) (AND (EQUAL (CAR (CDR (CDR (CDR (CHIP-MODULE*))))) (CONS (CONS (QUOTE CNTL-STATE) (CONS (CONS (QUOTE RW-SIG-) (CONS (QUOTE STROBE-) (CONS (QUOTE HDACK-) (CONS (QUOTE WE-REGS) (CONS (QUOTE WE-A-REG) (CONS (QUOTE WE-B-REG) (CONS (QUOTE WE-I-REG) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE WE-HOLD-) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE DATA-IN-SELECT) (CONS (QUOTE DEC-ADDR-OUT) (CONS (QUOTE SELECT-IMMEDIATE) (CONS (QUOTE ALU-C) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)))))))))))))))))))))) (CONS (QUOTE (*1*QUOTE INDEX REG 40)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE TI) (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40))))) (QUOTE NIL))))) (CONS (CONS (QUOTE REGS) (CONS (CONS (QUOTE REGFILE-TO) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX ALU-MPG 6)) (CONS (QUOTE WE-REGS) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVNZ-FLAGS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE REGFILE-TO) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE A-REG) (CONS (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-A-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX FLAGS 3)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE B-REG) (CONS (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-B-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX A-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG) (CONS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-I-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX B-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-OUT) (CONS (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX I-REG 31)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE ADDR-OUT) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX DATA-OUT 31)) (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (RESET-LATCH (LAST-RESET- LAST-RESET-INV) FD1S (RESET- CLK (*1*QUOTE INDEX ADDR-OUT 31) TE-SIG))) (CONS (QUOTE (DTACK--OR (DTACK--OR-STROBE-) B-OR (STROBE- DTACK-))) (CONS (QUOTE (DTACK-LATCH (LAST-DTACK- LAST-DTACK-INV) FD1S (DTACK--OR-STROBE- CLK LAST-RESET- TE-SIG))) (CONS (QUOTE (HOLD-LATCH (LAST-HOLD- LAST-HOLD-INV) FD1SLP (HOLD- CLK WE-HOLD- LAST-DTACK- TE-SIG))) (CONS (CONS (QUOTE PC-REG) (CONS (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE LAST-HOLD-) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE IMMEDIATE-PASS) (CONS (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (A-IMMEDIATE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DEC-PASS) (CONS (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX DEC-PASS 32)) (CONS (CONS (QUOTE DEC-ADDR-OUT) (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CNTL (ABI-CNTL) B-NAND (DATA-IN-SELECT LAST-DTACK-INV))) (CONS (CONS (QUOTE DATA-IN-MUX) (CONS (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ABI-CNTL) (APPEND (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE ALU) (CONS (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ALU-C) (APPEND (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE NEXT-STATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE NEXT-CNTL-STATE) (CONS (CONS (QUOTE LAST-RESET-) (CONS (QUOTE LAST-DTACK-) (CONS (QUOTE LAST-HOLD-) (CONS (QUOTE RW-SIG-) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))))))))) (QUOTE NIL))))) (QUOTE ((TE-BUFFER (TE-SIG) B-BUF-PWR (TE)) (RW-BUFFER (RW-) B-BUF (RW-SIG-)) (EN-ADDR-OUT-GATE (EN-ADDR-OUT-) B-NOT (HDACK-)) (TIMING-GATE (TIMING) ID ((*1*QUOTE INDEX ALU-BUS 2))) (SCANOUT (TO) ID ((*1*QUOTE INDEX PC-REG 3))))))))))))))))))))))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP-MODULE*)))))) (QUOTE (REGS CVNZ-FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET-LATCH DTACK-LATCH HOLD-LATCH PC-REG CNTL-STATE)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BV . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP-MODULE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CHIP-MODULE* . CHIP-MODULE*$DESTRUCTURE) (LEMMAS CAR . CHIP-MODULE*$DESTRUCTURE) (LEMMAS CAR . CHIP-MODULE*$DESTRUCTURE) (LEMMAS CAR . CHIP-MODULE*$DESTRUCTURE) (LEMMAS CAR . CHIP-MODULE*$DESTRUCTURE) (LEMMAS CAR . CHIP-MODULE*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*CHIP-MODULE*) (QUOTE (MAIN-EVENT CHIP-MODULE*))) (PUT1-LST (QUOTE CHIP-MODULE*) (QUOTE (TYPE-PRESCRIPTION-LST ((CHIP-MODULE* 16)) TOTALP-LST ((CHIP-MODULE* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (CONS (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE EN-ADDR-OUT-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (SUBRANGE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (QUOTE 28) (QUOTE 31)))))))))))) (CONS (CONS (CONS (QUOTE CNTL-STATE) (CONS (CONS (QUOTE RW-SIG-) (CONS (QUOTE STROBE-) (CONS (QUOTE HDACK-) (CONS (QUOTE WE-REGS) (CONS (QUOTE WE-A-REG) (CONS (QUOTE WE-B-REG) (CONS (QUOTE WE-I-REG) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE WE-HOLD-) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE DATA-IN-SELECT) (CONS (QUOTE DEC-ADDR-OUT) (CONS (QUOTE SELECT-IMMEDIATE) (CONS (QUOTE ALU-C) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)))))))))))))))))))))) (CONS (QUOTE (*1*QUOTE INDEX REG 40)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE TI) (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40))))) (QUOTE NIL))))) (CONS (CONS (QUOTE REGS) (CONS (CONS (QUOTE REGFILE-TO) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX ALU-MPG 6)) (CONS (QUOTE WE-REGS) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVNZ-FLAGS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE REGFILE-TO) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE A-REG) (CONS (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-A-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX FLAGS 3)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE B-REG) (CONS (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-B-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX A-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG) (CONS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-I-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX B-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-OUT) (CONS (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX I-REG 31)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE ADDR-OUT) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX DATA-OUT 31)) (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (RESET-LATCH (LAST-RESET- LAST-RESET-INV) FD1S (RESET- CLK (*1*QUOTE INDEX ADDR-OUT 31) TE-SIG))) (CONS (QUOTE (DTACK--OR (DTACK--OR-STROBE-) B-OR (STROBE- DTACK-))) (CONS (QUOTE (DTACK-LATCH (LAST-DTACK- LAST-DTACK-INV) FD1S (DTACK--OR-STROBE- CLK LAST-RESET- TE-SIG))) (CONS (QUOTE (HOLD-LATCH (LAST-HOLD- LAST-HOLD-INV) FD1SLP (HOLD- CLK WE-HOLD- LAST-DTACK- TE-SIG))) (CONS (CONS (QUOTE PC-REG) (CONS (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE LAST-HOLD-) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE IMMEDIATE-PASS) (CONS (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (A-IMMEDIATE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DEC-PASS) (CONS (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX DEC-PASS 32)) (CONS (CONS (QUOTE DEC-ADDR-OUT) (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CNTL (ABI-CNTL) B-NAND (DATA-IN-SELECT LAST-DTACK-INV))) (CONS (CONS (QUOTE DATA-IN-MUX) (CONS (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ABI-CNTL) (APPEND (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE ALU) (CONS (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ALU-C) (APPEND (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE NEXT-STATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE NEXT-CNTL-STATE) (CONS (CONS (QUOTE LAST-RESET-) (CONS (QUOTE LAST-DTACK-) (CONS (QUOTE LAST-HOLD-) (CONS (QUOTE RW-SIG-) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))))))))) (QUOTE NIL))))) (QUOTE ((TE-BUFFER (TE-SIG) B-BUF-PWR (TE)) (RW-BUFFER (RW-) B-BUF (RW-SIG-)) (EN-ADDR-OUT-GATE (EN-ADDR-OUT-) B-NOT (HDACK-)) (TIMING-GATE (TIMING) ID ((*1*QUOTE INDEX ALU-BUS 2))) (SCANOUT (TO) ID ((*1*QUOTE INDEX PC-REG 3)))))))))))))))))))))))) (QUOTE ((REGS CVNZ-FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET-LATCH DTACK-LATCH HOLD-LATCH PC-REG CNTL-STATE)))))))) LISP-CODE *1*CHIP-MODULE* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194143 SATELLITES (*1*CHIP-MODULE*) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHIP-MODULE& G*1*CHIP-MODULE*-OFF CHIP-MODULE*-OFF CHIP-MODULE*$DESTRUCTURE) EVENT (DEFN CHIP-MODULE* NIL (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (CONS (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE EN-ADDR-OUT-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (SUBRANGE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (QUOTE 28) (QUOTE 31)))))))))))) (CONS (CONS (CONS (QUOTE CNTL-STATE) (CONS (CONS (QUOTE RW-SIG-) (CONS (QUOTE STROBE-) (CONS (QUOTE HDACK-) (CONS (QUOTE WE-REGS) (CONS (QUOTE WE-A-REG) (CONS (QUOTE WE-B-REG) (CONS (QUOTE WE-I-REG) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE WE-HOLD-) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE DATA-IN-SELECT) (CONS (QUOTE DEC-ADDR-OUT) (CONS (QUOTE SELECT-IMMEDIATE) (CONS (QUOTE ALU-C) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)))))))))))))))))))))) (CONS (QUOTE (*1*QUOTE INDEX REG 40)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE TI) (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40))))) (QUOTE NIL))))) (CONS (CONS (QUOTE REGS) (CONS (CONS (QUOTE REGFILE-TO) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX ALU-MPG 6)) (CONS (QUOTE WE-REGS) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVNZ-FLAGS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE REGFILE-TO) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE A-REG) (CONS (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-A-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX FLAGS 3)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE B-REG) (CONS (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-B-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX A-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG) (CONS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-I-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX B-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-OUT) (CONS (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX I-REG 31)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE ADDR-OUT) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX DATA-OUT 31)) (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (RESET-LATCH (LAST-RESET- LAST-RESET-INV) FD1S (RESET- CLK (*1*QUOTE INDEX ADDR-OUT 31) TE-SIG))) (CONS (QUOTE (DTACK--OR (DTACK--OR-STROBE-) B-OR (STROBE- DTACK-))) (CONS (QUOTE (DTACK-LATCH (LAST-DTACK- LAST-DTACK-INV) FD1S (DTACK--OR-STROBE- CLK LAST-RESET- TE-SIG))) (CONS (QUOTE (HOLD-LATCH (LAST-HOLD- LAST-HOLD-INV) FD1SLP (HOLD- CLK WE-HOLD- LAST-DTACK- TE-SIG))) (CONS (CONS (QUOTE PC-REG) (CONS (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE LAST-HOLD-) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE IMMEDIATE-PASS) (CONS (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (A-IMMEDIATE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DEC-PASS) (CONS (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX DEC-PASS 32)) (CONS (CONS (QUOTE DEC-ADDR-OUT) (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CNTL (ABI-CNTL) B-NAND (DATA-IN-SELECT LAST-DTACK-INV))) (CONS (CONS (QUOTE DATA-IN-MUX) (CONS (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ABI-CNTL) (APPEND (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE ALU) (CONS (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ALU-C) (APPEND (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE NEXT-STATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE NEXT-CNTL-STATE) (CONS (CONS (QUOTE LAST-RESET-) (CONS (QUOTE LAST-DTACK-) (CONS (QUOTE LAST-HOLD-) (CONS (QUOTE RW-SIG-) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))))))))) (QUOTE NIL))))) (QUOTE ((TE-BUFFER (TE-SIG) B-BUF-PWR (TE)) (RW-BUFFER (RW-) B-BUF (RW-SIG-)) (EN-ADDR-OUT-GATE (EN-ADDR-OUT-) B-NOT (HDACK-)) (TIMING-GATE (TIMING) ID ((*1*QUOTE INDEX ALU-BUS 2))) (SCANOUT (TO) ID ((*1*QUOTE INDEX PC-REG 3)))))))))))))))))))))))) (QUOTE ((REGS CVNZ-FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET-LATCH DTACK-LATCH HOLD-LATCH PC-REG CNTL-STATE)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 BV . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 INDEX . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 SUBRANGE . CHIP-MODULE*) (IMMEDIATE-DEPENDENTS0 INDICES . CHIP-MODULE*) (DCELL . *1*CHIP-MODULE*))))) (PUT1-LST (QUOTE FM9001-STATE-AS-A-LIST) (QUOTE (IDATE 1000402194143 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT CHIP-SYSTEM=FM9001$STEP) EVENT (PROVE-LEMMA FM9001-STATE-AS-A-LIST NIL (IMPLIES (FM9001-STATE-STRUCTURE STATE) (EQUAL STATE (CONS (CONS (CONS (CAR (CAR (CAR STATE))) (CONS (CAR (CDR (CAR (CAR STATE)))) (CONS (CAR (CDR (CDR (CAR (CAR STATE))))) (CONS (CAR (CDR (CDR (CDR (CAR (CAR STATE)))))) (QUOTE NIL))))) (CONS (CAR (CDR (CAR STATE))) (CONS (CAR (CDR (CDR (CAR STATE)))) (CONS (CAR (CDR (CDR (CDR (CAR STATE))))) (CONS (CAR (CDR (CDR (CDR (CDR (CAR STATE)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE)))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR STATE))))))))))))) (QUOTE NIL))))))))))))) (CONS (CONS (CAR (CAR (CDR STATE))) (CONS (CAR (CDR (CAR (CDR STATE)))) (CONS (CAR (CDR (CDR (CAR (CDR STATE))))) (CONS (CAR (CDR (CDR (CDR (CAR (CDR STATE)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CAR (CDR STATE)))))))))) (QUOTE NIL))))))))) (QUOTE NIL))))) ((ENABLE EQUAL-LENGTH-ADD1 PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FM9001-STATE-AS-A-LIST) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATE-AS-A-LIST) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . FM9001-STATE-AS-A-LIST) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . FM9001-STATE-AS-A-LIST) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-STATE-AS-A-LIST))))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE$INDUCTION) (QUOTE (IDATE 1000402194143 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT) EVENT (PROVE-LEMMA FM9001-STATE-STRUCTURE$INDUCTION (REWRITE) (IMPLIES (FM9001-STATE-STRUCTURE STATE) (FM9001-STATE-STRUCTURE (RUN-FM9001 STATE INPUTS STEPS))) ((ENABLE RUN-FM9001))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE$STEP . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . FM9001-STATE-STRUCTURE$INDUCTION) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-STATE-STRUCTURE$INDUCTION) (LEMMAS FM9001-STATE-STRUCTURE . FM9001-STATE-STRUCTURE$INDUCTION))))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE$STEP) (QUOTE (IDATE 1000402194143 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=RUN-FM9001 FM9001-STATE-STRUCTURE$INDUCTION) EVENT (PROVE-LEMMA FM9001-STATE-STRUCTURE$STEP (REWRITE) (IMPLIES (FM9001-STATE-STRUCTURE STATE) (FM9001-STATE-STRUCTURE (FM9001-NEXT-STATE STATE EXTERNAL-INPUTS))) ((ENABLE FM9001-NEXT-STATE) (DISABLE-THEORY F-GATES) (DISABLE MAKE-LIST *1*MAKE-LIST *1*MAKE-TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 THREEFIX . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$WRITE-REGS . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-NEXT-MEMORY-STATE . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 F-GATES . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . FM9001-STATE-STRUCTURE$STEP) (IMMEDIATE-DEPENDENTS0 FM9001-STATE-STRUCTURE . FM9001-STATE-STRUCTURE$STEP) (LEMMAS FM9001-STATE-STRUCTURE . FM9001-STATE-STRUCTURE$STEP))))) (PUT1-LST (QUOTE *1*FM9001-STATE-STRUCTURE) (QUOTE (MAIN-EVENT FM9001-STATE-STRUCTURE))) (PUT1-LST (QUOTE FM9001-STATE-STRUCTURE) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-STATE-STRUCTURE 3 NIL)) LEMMAS ((REWRITE-RULE FINAL-STATE-OKP NIL (FM9001-STATE-STRUCTURE (FINAL-STATE)) NIL) (REWRITE-RULE FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE ((FM9001-STATEP STATE)) (FM9001-STATE-STRUCTURE (MAP-DOWN STATE)) NIL) (REWRITE-RULE FM9001-STATE-STRUCTURE$INDUCTION ((FM9001-STATE-STRUCTURE STATE)) (FM9001-STATE-STRUCTURE (RUN-FM9001 STATE INPUTS STEPS)) NIL) (REWRITE-RULE FM9001-STATE-STRUCTURE$STEP ((FM9001-STATE-STRUCTURE STATE)) (FM9001-STATE-STRUCTURE (FM9001-NEXT-STATE STATE EXTERNAL-INPUTS)) NIL)) TOTALP-LST ((FM9001-STATE-STRUCTURE . T)) SDEFN (LAMBDA (STATE) (IF (EQUAL (LENGTH STATE) (QUOTE 2)) (IF (PROPERP STATE) (IF (EQUAL (LENGTH (CAR STATE)) (QUOTE 12)) (IF (PROPERP (CAR STATE)) (IF (EQUAL (LENGTH (CAR (CDR STATE))) (QUOTE 8)) (IF (PROPERP (CAR (CDR STATE))) (IF (EQUAL (LENGTH (CAR (CAR STATE))) (QUOTE 4)) (PROPERP (CAR (CAR STATE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FM9001-STATE-STRUCTURE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194143 SATELLITES (*1*FM9001-STATE-STRUCTURE) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET INSTANCE-THEOREM FINAL-STATE-OKP UNKNOWN-STATE-OKP FM9001-STATE-STRUCTURE-UNKNOWN-STATE FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE FM9001-INTERPRETER-CORRECT$MAP-DOWN CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT CHIP-SYSTEM=RUN-FM9001 CHIP-SYSTEM=FM9001$STEP FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$INDUCTION FM9001-STATE-STRUCTURE$STEP) EVENT (DEFN FM9001-STATE-STRUCTURE (STATE) (AND (EQUAL (LENGTH STATE) (QUOTE 2)) (AND (PROPERP STATE) (AND (EQUAL (LENGTH (CAR STATE)) (QUOTE 12)) (AND (PROPERP (CAR STATE)) (AND (EQUAL (LENGTH (CAR (CDR STATE))) (QUOTE 8)) (AND (PROPERP (CAR (CDR STATE))) (AND (EQUAL (LENGTH (CAR (CAR STATE))) (QUOTE 4)) (PROPERP (CAR (CAR STATE))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . FM9001-STATE-STRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH . FM9001-STATE-STRUCTURE) (DCELL . *1*FM9001-STATE-STRUCTURE))))) (PUT1-LST (QUOTE RUN-FM9001-PLUS) (QUOTE (IDATE 1000402194143 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM) EVENT (PROVE-LEMMA RUN-FM9001-PLUS (REWRITE) (EQUAL (RUN-FM9001 STATE INPUTS (PLUS N M)) (RUN-FM9001 (RUN-FM9001 STATE INPUTS N) (NTHCDR N INPUTS) M)) ((ENABLE RUN-FM9001 NTHCDR PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . RUN-FM9001-PLUS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001-BASE-CASE . RUN-FM9001-PLUS) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . RUN-FM9001-PLUS) (IMMEDIATE-DEPENDENTS0 NTHCDR . RUN-FM9001-PLUS) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . RUN-FM9001-PLUS) (LEMMAS RUN-FM9001 . RUN-FM9001-PLUS))))) (PUT1-LST (QUOTE RUN-FM9001-STEP-CASE-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE RUN-FM9001-STEP-CASE-OFF RUN-FM9001-STEP-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-FM9001-STEP-CASE . RUN-FM9001-STEP-CASE-OFF) (DISABLED-LEMMAS NIL RUN-FM9001-STEP-CASE RUN-FM9001-STEP-CASE-OFF . T))))) (PUT1-LST (QUOTE RUN-FM9001-STEP-CASE) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 CHIP-SYSTEM=RUN-FM9001 RUN-FM9001-STEP-CASE-OFF) EVENT (PROVE-LEMMA RUN-FM9001-STEP-CASE (REWRITE) (IMPLIES (NOT (ZEROP N)) (EQUAL (RUN-FM9001 STATE INPUTS N) (RUN-FM9001 (FM9001-NEXT-STATE STATE (CAR INPUTS)) (CDR INPUTS) (SUB1 N)))) ((ENABLE RUN-FM9001))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . RUN-FM9001-STEP-CASE) (IMMEDIATE-DEPENDENTS0 RUN-FM9001 . RUN-FM9001-STEP-CASE) (LEMMAS RUN-FM9001 . RUN-FM9001-STEP-CASE))))) (PUT1-LST (QUOTE RUN-FM9001-BASE-CASE) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (FM9001-INTERPRETER-CORRECT SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP CHIP-SYSTEM=RUN-FM9001 FM9001-STATE-STRUCTURE$INDUCTION RUN-FM9001-PLUS) EVENT (PROVE-LEMMA RUN-FM9001-BASE-CASE (REWRITE) (IMPLIES (ZEROP N) (EQUAL (RUN-FM9001 STATE INPUTS N) STATE)) ((ENABLE RUN-FM9001))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-FM9001 . RUN-FM9001-BASE-CASE) (LEMMAS RUN-FM9001 . RUN-FM9001-BASE-CASE))))) (PUT1-LST (QUOTE RUN-FM9001-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE RUN-FM9001-OFF RUN-FM9001 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RUN-FM9001 . RUN-FM9001-OFF) (DISABLED-LEMMAS NIL RUN-FM9001 RUN-FM9001-OFF . T))))) (PUT1-LST (QUOTE *1*RUN-FM9001) (QUOTE (MAIN-EVENT RUN-FM9001))) (PUT1-LST (QUOTE RUN-FM9001) (QUOTE (TYPE-PRESCRIPTION-LST ((RUN-FM9001 16 T NIL NIL)) LEMMAS ((REWRITE-RULE SEFB1->SEFB1$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE SEFB0->SEFB1$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 2)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE SEFA0->SEFA1$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 2)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) (RN-A I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-A I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE WRITE0->WRITE3$SIM ((EQUAL DTACK-WAIT (CAR CLOCK)) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) PC-REG I-REG (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE READB0->READB3$SIM ((EQUAL DTACK-WAIT (CAR CLOCK)) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (A-IMMEDIATE-P I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A I-REG) REGS)) A-REG) (READ-REGS (RN-B LAST-I-REG) REGS) (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS FLAGS (CONS (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (A-IMMEDIATE-P I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A I-REG) REGS)) A-REG) (CONS (READ-MEM (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) MEM) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE READA0->READA3$SIM ((EQUAL DTACK-WAIT (CAR CLOCK)) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 1)))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (QUOTE 0)) (CONS FLAGS (CONS (READ-MEM (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) MEM) (CONS (READ-REGS (RN-B I-REG) (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (RN-A I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (READ-REGS (RN-A LAST-I-REG) REGS) B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32)))))) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG)) (CV_READB0 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE UPDATE->UPDATE$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS) (RN-B LAST-I-REG) REGS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE REGB->UPDATE$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 2)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGB (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 2)) (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (RN-B I-REG) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (BV (V-ALU (C-FLAG FLAGS) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (OP-CODE I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS I-REG) (V-ALU (C-FLAG FLAGS) A-REG (READ-REGS (RN-B LAST-I-REG) REGS) (OP-CODE I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE REGA->REGA$SIM ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGA (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_REGB (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FETCH1->DECODE$SIM ((EQUAL DTACK-WAIT (CAR CLOCK)) (CV-HYPS LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2))))) (EQUAL RESET- (QUOTE *1*TRUE)) (EQUAL HOLD- (QUOTE *1*TRUE)) (BOOLP LAST-RW-)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH1 LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (ADD1 (ADD1 (PLUS (CAR CLOCK) (QUOTE 2))))) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) (WRITE-REGS (QUOTE *1*TRUE) PC-REG (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (V-INC A-REG)) (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS PC-REG (CONS (IF* (OR* (STORE-RESULTP (STORE-CC (READ-MEM ADDR-OUT MEM)) FLAGS) (SET-SOME-FLAGS (SET-FLAGS (READ-MEM ADDR-OUT MEM)))) (IF* (OR* (A-IMMEDIATE-P (READ-MEM ADDR-OUT MEM)) (REG-DIRECT-P (MODE-A (READ-MEM ADDR-OUT MEM)))) (IF* (OR* (REG-DIRECT-P (MODE-B (READ-MEM ADDR-OUT MEM))) (UNARY-OP-CODE-P (OP-CODE (READ-MEM ADDR-OUT MEM)))) (CV_REGA (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (CV_READB0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)) (CV_READA0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P (READ-MEM ADDR-OUT MEM))) (OR* (PRE-DEC-P (MODE-A (READ-MEM ADDR-OUT MEM))) (POST-INC-P (MODE-A (READ-MEM ADDR-OUT MEM))))) (CV_SEFA0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B (READ-MEM ADDR-OUT MEM))) (POST-INC-P (MODE-B (READ-MEM ADDR-OUT MEM)))) (CV_SEFB0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) PC-REG (READ-MEM ADDR-OUT MEM) FLAGS PC-REG)))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FETCH0->FETCH0$SIM2 ((CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS (WRITE-MEM ADDR-OUT MEM DATA-OUT) (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FETCH0->FETCH0$SIM1 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FETCH0->FETCH0$SIM0 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP DTACK-) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS (QUOTE 1)) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS (QUOTE 1)) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE WRITE3$PROGRESS ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS COUNT) (NUMBERP COUNT) (NOT (EQUAL COUNT (QUOTE 0)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE READB3$PROGRESS ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS COUNT) (NUMBERP COUNT) (NOT (EQUAL COUNT (QUOTE 0)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-FN B-REG (READ-REGS PC-REG REGS) COUNT) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE READA3$PROGRESS ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS COUNT) (NUMBERP COUNT) (NOT (EQUAL COUNT (QUOTE 0)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-FN A-REG (READ-REGS PC-REG REGS) COUNT) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FETCH3$PROGRESS ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (BOOLP HOLD-) (RUN-INPUTS-P INPUTS COUNT) (NUMBERP COUNT) (NOT (EQUAL COUNT (QUOTE 0)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS COUNT) (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-FN I-REG (READ-REGS PC-REG REGS) COUNT) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) PC-REG (READ-FN I-REG (READ-REGS PC-REG REGS) (SUB1 COUNT)) FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE SEFB1$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE SEFB0$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE SEFA1$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) (RN-A LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE SEFA0$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_SEFA1 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE WRITE3$STEP1 ((CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*TRUE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL MEM-COUNT (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE WRITE3$STEP0 ((CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*FALSE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE WRITE2$STEP ((CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE2 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL (CAR CLOCK) (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE3 (QUOTE *1*FALSE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE WRITE1$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE2 (QUOTE *1*FALSE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE WRITE0$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_WRITE1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READB3$STEP1 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*TRUE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL MEM-COUNT (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE READB3$STEP0 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*FALSE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READB2$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL (CAR CLOCK) (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS)) (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG)))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS)) (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG)))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS)) (OR* (PRE-DEC-P (MODE-B LAST-I-REG)) (POST-INC-P (MODE-B LAST-I-REG)))) (RN-B LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE READB1$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (OR* (A-IMMEDIATE-P LAST-I-REG) (REG-DIRECT-P (MODE-A LAST-I-REG))) (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) A-REG) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB2 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READB0$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READB0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-B LAST-I-REG)) (V-DEC (READ-REGS (RN-B LAST-I-REG) REGS)) (READ-REGS (RN-B LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READA3$STEP1 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*TRUE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL MEM-COUNT (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE READA3$STEP0 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*FALSE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-MEM ADDR-OUT MEM) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (CV_READB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READA2$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL (CAR CLOCK) (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA3 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE READA1$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA1 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (AND* (NOT* (A-IMMEDIATE-P LAST-I-REG)) (OR* (PRE-DEC-P (MODE-A LAST-I-REG)) (POST-INC-P (MODE-A LAST-I-REG)))) (RN-A LAST-I-REG) REGS (BV (CORE-ALU (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG LAST-FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) A-REG B-REG (QUOTE *1*FALSE) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (MAKE-TREE (QUOTE 32))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA2 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE READA0$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_READA0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS (RN-A LAST-I-REG) REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (IF* (PRE-DEC-P (MODE-A LAST-I-REG)) (V-DEC (READ-REGS (RN-A LAST-I-REG) REGS)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_READA1 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE UPDATE$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (OR (EQUAL MEM-STATE (QUOTE 0)) (EQUAL MEM-STATE (QUOTE 1)))) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS MEM-STATE (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (STORE-RESULTP (STORE-CC LAST-I-REG) LAST-FLAGS) (RN-B LAST-I-REG) REGS (BV (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS LAST-I-REG) (V-ALU (C-FLAG LAST-FLAGS) A-REG B-REG (OP-CODE LAST-I-REG))) (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE REGB$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGB (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS (READ-REGS (RN-B LAST-I-REG) REGS) (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_UPDATE (QUOTE *1*TRUE) (RN-B LAST-I-REG) I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE REGA$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_REGA (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (IF* (A-IMMEDIATE-P LAST-I-REG) (SIGN-EXTEND (A-IMMEDIATE I-REG) (QUOTE 32)) (READ-REGS (RN-A LAST-I-REG) REGS)) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_REGB (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG) (CV_UPDATE (QUOTE *1*TRUE) (RN-A LAST-I-REG) I-REG FLAGS PC-REG))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE DECODE$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_DECODE (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* (OR* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (OR* (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_REGA (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_READB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (CV_READA0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CV_SEFA0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_FETCH0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)))) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE FETCH3$STEP1 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*TRUE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL MEM-COUNT (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP MEM-COUNT) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (SUB1 MEM-COUNT) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-REGS LAST-PC-REG REGS) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE FETCH3$STEP0 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP (QUOTE *1*FALSE)) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS (READ-MEM ADDR-OUT MEM) (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_DECODE (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE FETCH2$STEP ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH2 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (IF (EQUAL (CAR CLOCK) (QUOTE 0)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) LAST-PC-REG REGS (V-INC A-REG)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (IF (NUMBERP (CAR CLOCK)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) LAST-PC-REG REGS (V-INC A-REG)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (SUB1 (CAR CLOCK)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N)) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*TRUE) LAST-PC-REG REGS (V-INC A-REG)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH3 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS (CDR CLOCK) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))))) NIL) (REWRITE-RULE FETCH1$STEP ((CV-HYPS LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (BOOLP LAST-RW-)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH1 LAST-RW- LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS LAST-RW- (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS HOLD- (CONS PC-REG (CONS (IF* HOLD- (CV_FETCH2 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (CV_HOLD0 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG)) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE FETCH0$STEP2 ((CV-HYPS (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (ZEROP MEM-COUNT)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*FALSE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 2) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS (WRITE-MEM ADDR-OUT MEM DATA-OUT) (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS ADDR-OUT (CONS DATA-OUT (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE FETCH0$STEP1 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 1) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE FETCH0$STEP0 ((CV-HYPS (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (CV-HYPS (QUOTE *1*TRUE) PC-REG I-REG FLAGS PC-REG) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEM) (REGFILE-OKP REGS) (BVP A-REG) (EQUAL (LENGTH A-REG) (QUOTE 32)) (BVP B-REG) (EQUAL (LENGTH B-REG) (QUOTE 32)) (BVP ADDR-OUT) (EQUAL (LENGTH ADDR-OUT) (QUOTE 32)) (BVP DATA-OUT) (EQUAL (LENGTH DATA-OUT) (QUOTE 32)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (RUN-INPUTS-P INPUTS (QUOTE 1)) (BOOLP DTACK-) (BOOLP HOLD-) (EQUAL RESET- (QUOTE *1*TRUE)) (QUOTE NIL)) (EQUAL (RUN-FM9001 (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS PC-REG (CONS (CV_FETCH0 (QUOTE *1*TRUE) LAST-REGS-ADDRESS LAST-I-REG LAST-FLAGS LAST-PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS MEM-COUNT (CONS MEM-DTACK (CONS (QUOTE *1*TRUE) (CONS LAST-ADDRESS (CONS LAST-DATA (QUOTE NIL))))))))) (QUOTE NIL))) INPUTS N) (RUN-FM9001 (CONS (CONS (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0)) (CONS FLAGS (CONS (READ-REGS LAST-PC-REG REGS) (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS (READ-REGS LAST-PC-REG REGS) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (F-BUF (F-BUF (HOLD--INPUT (CAR INPUTS)))) (CONS PC-REG (CONS (CV_FETCH1 (QUOTE *1*TRUE) LAST-PC-REG I-REG FLAGS PC-REG) (QUOTE NIL))))))))))))) (CONS (CONS MEM (CONS (QUOTE 0) (CONS CLOCK (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS ADDR-OUT (CONS (V-THREEFIX LAST-DATA) (QUOTE NIL))))))))) (QUOTE NIL))) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE RUN-FM9001-PLUS NIL (EQUAL (RUN-FM9001 STATE INPUTS (PLUS N M)) (RUN-FM9001 (RUN-FM9001 STATE INPUTS N) (NTHCDR N INPUTS) M)) NIL) (REWRITE-RULE RUN-FM9001-STEP-CASE ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (RUN-FM9001 STATE INPUTS N) (RUN-FM9001 (FM9001-NEXT-STATE STATE (CAR INPUTS)) (CDR INPUTS) (SUB1 N))) NIL) (REWRITE-RULE RUN-FM9001-BASE-CASE ((ZEROP N)) (EQUAL (RUN-FM9001 STATE INPUTS N) STATE) NIL)) TOTALP-LST ((RUN-FM9001 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE INPUTS N) (IF (EQUAL N (QUOTE 0)) STATE (IF (NUMBERP N) (RUN-FM9001 (FM9001-NEXT-STATE STATE (CAR INPUTS)) (CDR INPUTS) (SUB1 N)) STATE))) LISP-CODE *1*RUN-FM9001 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((FM9001-NEXT-STATE STATE (CAR INPUTS)) (CDR INPUTS) (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194142 CONTROLLER-POCKETS (4) SATELLITES (*1*RUN-FM9001) IMMEDIATE-DEPENDENTS0 (RESET-WORKS FM9001-INTERPRETER-CORRECT$MAP-DOWN FM9001-INTERPRETER-CORRECT MIDDLE=HIGH MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT MACROCYCLE-INVARIANT-IS-INVARIANT$HELP OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 CHIP-SYSTEM=RUN-FM9001 FM9001-STATE-STRUCTURE$INDUCTION RUN-FM9001-PLUS RUN-FM9001-STEP-CASE RUN-FM9001-BASE-CASE RUN-FM9001-OFF) EVENT (DEFN RUN-FM9001 (STATE INPUTS N) (IF (ZEROP N) STATE (RUN-FM9001 (FM9001-NEXT-STATE STATE (CAR INPUTS)) (CDR INPUTS) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . RUN-FM9001) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . RUN-FM9001) (DCELL . *1*RUN-FM9001))))) (PUT1-LST (QUOTE FM9001-NEXT-STATE-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE FM9001-NEXT-STATE-OFF FM9001-NEXT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-NEXT-STATE . FM9001-NEXT-STATE-OFF) (DISABLED-LEMMAS NIL FM9001-NEXT-STATE FM9001-NEXT-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001-NEXT-STATE) (QUOTE (MAIN-EVENT FM9001-NEXT-STATE))) (PUT1-LST (QUOTE FM9001-NEXT-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-NEXT-STATE 16 NIL NIL)) LEMMAS ((REWRITE-RULE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS ((BVP FLAGS) (BVP A-REG) (BVP B-REG) (BVP I-REG) (BVP DATA-OUT) (BVP ADDR-OUT) (BOOLP LAST-RESET-) (BOOLP LAST-DTACK-) (BOOLP LAST-HOLD-) (BVP LAST-PC-REG) (BVP CNTL-STATE)) (EQUAL (FM9001-NEXT-STATE (CONS (CONS REGS (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) EXTERNAL-INPUTS) (CONS (CONS (F$WRITE-REGS (WE-REGS CNTL-STATE) (REGS-ADDRESS CNTL-STATE) REGS (BV (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS CNTL-STATE) (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) A-REG) (CONS (FV-IF (WE-B-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) B-REG) (CONS (FV-IF (WE-I-REG CNTL-STATE) (FV-IF (F-NAND (DATA-IN-SELECT CNTL-STATE) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS)) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT)))) I-REG) (CONS (FV-IF (WE-DATA-OUT CNTL-STATE) (BV (F$CORE-ALU (ALU-C CNTL-STATE) A-REG B-REG (ALU-ZERO CNTL-STATE) (ALU-MPG CNTL-STATE) (ALU-OP CNTL-STATE) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT CNTL-STATE) (F$DEC-PASS (DEC-ADDR-OUT CNTL-STATE) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE CNTL-STATE) (A-IMMEDIATE I-REG) (F$READ-REGS (REGS-ADDRESS CNTL-STATE) REGS))) ADDR-OUT) (CONS (F-BUF (RESET--INPUT EXTERNAL-INPUTS)) (CONS (F-OR (STROBE- CNTL-STATE) (F-BUF (CAR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- CNTL-STATE) (F-BUF (HOLD--INPUT EXTERNAL-INPUTS)) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG CNTL-STATE) (PC-REG-INPUT EXTERNAL-INPUTS) LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE LAST-RESET- LAST-DTACK- LAST-HOLD- (RW- CNTL-STATE) (STATE CNTL-STATE) I-REG FLAGS LAST-PC-REG (REGS-ADDRESS CNTL-STATE))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- CNTL-STATE))) DATA-OUT) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (STROBE- CNTL-STATE))) (F-PULLUP (FT-BUF (F-BUF (HDACK- CNTL-STATE)) (F-BUF (RW- CNTL-STATE)))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- CNTL-STATE)) ADDR-OUT)) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL)))) NIL)) TOTALP-LST ((FM9001-NEXT-STATE . T)) SDEFN (LAMBDA (TOTAL-STATE EXTERNAL-INPUTS) (CONS (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS (FLAGS (CAR TOTAL-STATE)) (WE-FLAGS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (A-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-B-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (B-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-I-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (I-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32)))) (DATA-OUT (CAR TOTAL-STATE))) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE))))) (ADDR-OUT (CAR TOTAL-STATE))) (CONS (F-BUF (RESET--INPUT EXTERNAL-INPUTS)) (CONS (F-OR (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-BUF (CAR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-BUF (HOLD--INPUT EXTERNAL-INPUTS)) (HOLD- (CAR TOTAL-STATE))) (CONS (FV-IF (WE-PC-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (PC-REG-INPUT EXTERNAL-INPUTS) (PC-REG (CAR TOTAL-STATE))) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF (RESET- (CAR TOTAL-STATE))) (F-BUF (DTACK- (CAR TOTAL-STATE))) (F-BUF (HOLD- (CAR TOTAL-STATE))) (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (STATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (I-REG (CAR TOTAL-STATE))) (V-THREEFIX (FLAGS (CAR TOTAL-STATE))) (V-THREEFIX (PC-REG (CAR TOTAL-STATE))) (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL)))) LISP-CODE *1*FM9001-NEXT-STATE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194142 SATELLITES (*1*FM9001-NEXT-STATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM=RUN-FM9001$INDUCTION CHIP-SYSTEM=FM9001$STEP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-STATE-STRUCTURE$STEP RUN-FM9001-STEP-CASE RUN-FM9001 FM9001-NEXT-STATE-OFF) EVENT (DEFN FM9001-NEXT-STATE (TOTAL-STATE EXTERNAL-INPUTS) (CONS (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS (FLAGS (CAR TOTAL-STATE)) (WE-FLAGS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (A-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-B-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (B-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-I-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-NOT (DTACK- (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE)))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE))))))) (I-REG (CAR TOTAL-STATE))) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (A-REG (CAR TOTAL-STATE))) (V-THREEFIX (B-REG (CAR TOTAL-STATE))) (ALU-ZERO (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-MPG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (ALU-OP (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (MAKE-TREE (QUOTE 32)))) (DATA-OUT (CAR TOTAL-STATE))) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (A-IMMEDIATE (V-THREEFIX (I-REG (CAR TOTAL-STATE)))) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (REGS (CAR TOTAL-STATE))))) (ADDR-OUT (CAR TOTAL-STATE))) (CONS (F-BUF (RESET--INPUT EXTERNAL-INPUTS)) (CONS (F-OR (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-BUF (CAR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (F-BUF (HOLD--INPUT EXTERNAL-INPUTS)) (HOLD- (CAR TOTAL-STATE))) (CONS (FV-IF (WE-PC-REG (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (PC-REG-INPUT EXTERNAL-INPUTS) (PC-REG (CAR TOTAL-STATE))) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF (RESET- (CAR TOTAL-STATE))) (F-BUF (DTACK- (CAR TOTAL-STATE))) (F-BUF (HOLD- (CAR TOTAL-STATE))) (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (STATE (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))) (V-THREEFIX (I-REG (CAR TOTAL-STATE))) (V-THREEFIX (FLAGS (CAR TOTAL-STATE))) (V-THREEFIX (PC-REG (CAR TOTAL-STATE))) (REGS-ADDRESS (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (V-THREEFIX (DATA-OUT (CAR TOTAL-STATE)))) (CDR (MEMORY-VALUE (CAR (CDR TOTAL-STATE)) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (STROBE- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE)))))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (F-BUF (RW- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX (CNTL-STATE (CAR TOTAL-STATE))))) (V-THREEFIX (ADDR-OUT (CAR TOTAL-STATE))))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 STATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 RESET- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 PC-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 HOLD- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-IF . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-OR . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 RESET--INPUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 X . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 ADDR-OUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 STROBE- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 HDACK- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 FT-BUF . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-PULLUP . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 DATA-OUT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 RW- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 V-PULLUP . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 V-WIRE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 I-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 DTACK- . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 FV-IF . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 FLAGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 ALU-OP . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 A-REG . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 ALU-C . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BV . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 REGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 CNTL-STATE . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 WE-REGS . FM9001-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . FM9001-NEXT-STATE) (DCELL . *1*FM9001-NEXT-STATE))))) (PUT1-LST (QUOTE FM9001-EXTERNAL-INPUT-ACCESSORS) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE) EVENT (DEFTHEORY FM9001-EXTERNAL-INPUT-ACCESSORS (RESET--INPUT HOLD--INPUT PC-REG-INPUT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET--INPUT . FM9001-EXTERNAL-INPUT-ACCESSORS) (IMMEDIATE-DEPENDENTS0 HOLD--INPUT . FM9001-EXTERNAL-INPUT-ACCESSORS) (IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . FM9001-EXTERNAL-INPUT-ACCESSORS))))) (PUT1-LST (QUOTE PC-REG-INPUT-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE PC-REG-INPUT-OFF PC-REG-INPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-REG-INPUT . PC-REG-INPUT-OFF) (DISABLED-LEMMAS NIL PC-REG-INPUT PC-REG-INPUT-OFF . T))))) (PUT1-LST (QUOTE HOLD--INPUT-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE HOLD--INPUT-OFF HOLD--INPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HOLD--INPUT . HOLD--INPUT-OFF) (DISABLED-LEMMAS NIL HOLD--INPUT HOLD--INPUT-OFF . T))))) (PUT1-LST (QUOTE RESET--INPUT-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE RESET--INPUT-OFF RESET--INPUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET--INPUT . RESET--INPUT-OFF) (DISABLED-LEMMAS NIL RESET--INPUT RESET--INPUT-OFF . T))))) (PUT1-LST (QUOTE *1*PC-REG-INPUT) (QUOTE (MAIN-EVENT PC-REG-INPUT))) (PUT1-LST (QUOTE PC-REG-INPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-REG-INPUT 24 NIL)) TOTALP-LST ((PC-REG-INPUT . T)) SDEFN (LAMBDA (EXT-IN) (SUBRANGE EXT-IN (QUOTE 2) (QUOTE 5))) LISP-CODE *1*PC-REG-INPUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*PC-REG-INPUT) IMMEDIATE-DEPENDENTS0 (OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS OPEN-RUN-INPUTS-P-ADD1 OPEN-RUN-INPUTS-P RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001 FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-EXTERNAL-INPUT-ACCESSORS PC-REG-INPUT-OFF) EVENT (DEFN PC-REG-INPUT (EXT-IN) (SUBRANGE EXT-IN (QUOTE 2) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . PC-REG-INPUT) (DCELL . *1*PC-REG-INPUT))))) (PUT1-LST (QUOTE *1*HOLD--INPUT) (QUOTE (MAIN-EVENT HOLD--INPUT))) (PUT1-LST (QUOTE HOLD--INPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((HOLD--INPUT -1 NIL)) LEMMAS ((REWRITE-RULE OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT ((OPERATING-INPUTS-P INPUTS N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (HOLD--INPUT (CAR INPUTS)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((HOLD--INPUT . T)) SDEFN (LAMBDA (EXT-IN) (NTH (QUOTE 1) EXT-IN)) LISP-CODE *1*HOLD--INPUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*HOLD--INPUT) IMMEDIATE-DEPENDENTS0 (OPERATING-INPUTS-P-IMPLIES-HOLD--INPUT OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-EXTERNAL-INPUT-ACCESSORS HOLD--INPUT-OFF) EVENT (DEFN HOLD--INPUT (EXT-IN) (NTH (QUOTE 1) EXT-IN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . HOLD--INPUT) (DCELL . *1*HOLD--INPUT))))) (PUT1-LST (QUOTE *1*RESET--INPUT) (QUOTE (MAIN-EVENT RESET--INPUT))) (PUT1-LST (QUOTE RESET--INPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET--INPUT -1 NIL)) TOTALP-LST ((RESET--INPUT . T)) SDEFN (LAMBDA (EXT-IN) (NTH (QUOTE 0) EXT-IN)) LISP-CODE *1*RESET--INPUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*RESET--INPUT) IMMEDIATE-DEPENDENTS0 (OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS OPEN-RUN-INPUTS-P-ADD1 OPEN-RUN-INPUTS-P RUN-INPUTS-P CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-EXTERNAL-INPUT-ACCESSORS RESET--INPUT-OFF) EVENT (DEFN RESET--INPUT (EXT-IN) (NTH (QUOTE 0) EXT-IN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . RESET--INPUT) (DCELL . *1*RESET--INPUT))))) (PUT1-LST (QUOTE FM9001-HARDWARE-STATE-ACCESSORS) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE) EVENT (DEFTHEORY FM9001-HARDWARE-STATE-ACCESSORS (REGS FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET- DTACK- HOLD- PC-REG CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGS . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 FLAGS . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 A-REG . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 B-REG . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 I-REG . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 DATA-OUT . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 ADDR-OUT . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 RESET- . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 DTACK- . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 HOLD- . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 PC-REG . FM9001-HARDWARE-STATE-ACCESSORS) (IMMEDIATE-DEPENDENTS0 CNTL-STATE . FM9001-HARDWARE-STATE-ACCESSORS))))) (PUT1-LST (QUOTE CNTL-STATE-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE CNTL-STATE-OFF CNTL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CNTL-STATE . CNTL-STATE-OFF) (DISABLED-LEMMAS NIL CNTL-STATE CNTL-STATE-OFF . T))))) (PUT1-LST (QUOTE PC-REG-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE PC-REG-OFF PC-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-REG . PC-REG-OFF) (DISABLED-LEMMAS NIL PC-REG PC-REG-OFF . T))))) (PUT1-LST (QUOTE HOLD--OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE HOLD--OFF HOLD- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HOLD- . HOLD--OFF) (DISABLED-LEMMAS NIL HOLD- HOLD--OFF . T))))) (PUT1-LST (QUOTE DTACK--OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE DTACK--OFF DTACK- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DTACK- . DTACK--OFF) (DISABLED-LEMMAS NIL DTACK- DTACK--OFF . T))))) (PUT1-LST (QUOTE RESET--OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE RESET--OFF RESET- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESET- . RESET--OFF) (DISABLED-LEMMAS NIL RESET- RESET--OFF . T))))) (PUT1-LST (QUOTE ADDR-OUT-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE ADDR-OUT-OFF ADDR-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDR-OUT . ADDR-OUT-OFF) (DISABLED-LEMMAS NIL ADDR-OUT ADDR-OUT-OFF . T))))) (PUT1-LST (QUOTE DATA-OUT-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE DATA-OUT-OFF DATA-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DATA-OUT . DATA-OUT-OFF) (DISABLED-LEMMAS NIL DATA-OUT DATA-OUT-OFF . T))))) (PUT1-LST (QUOTE I-REG-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE I-REG-OFF I-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 I-REG . I-REG-OFF) (DISABLED-LEMMAS NIL I-REG I-REG-OFF . T))))) (PUT1-LST (QUOTE B-REG-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE B-REG-OFF B-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-REG . B-REG-OFF) (DISABLED-LEMMAS NIL B-REG B-REG-OFF . T))))) (PUT1-LST (QUOTE A-REG-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE A-REG-OFF A-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 A-REG . A-REG-OFF) (DISABLED-LEMMAS NIL A-REG A-REG-OFF . T))))) (PUT1-LST (QUOTE *1*CNTL-STATE) (QUOTE (MAIN-EVENT CNTL-STATE))) (PUT1-LST (QUOTE CNTL-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((CNTL-STATE -1 NIL)) TOTALP-LST ((CNTL-STATE . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 11) STATE)) LISP-CODE *1*CNTL-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*CNTL-STATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS CNTL-STATE-OFF) EVENT (DEFN CNTL-STATE (STATE) (NTH (QUOTE 11) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . CNTL-STATE) (DCELL . *1*CNTL-STATE))))) (PUT1-LST (QUOTE *1*PC-REG) (QUOTE (MAIN-EVENT PC-REG))) (PUT1-LST (QUOTE PC-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-REG -1 NIL)) TOTALP-LST ((PC-REG . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 10) STATE)) LISP-CODE *1*PC-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*PC-REG) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH MACROCYCLE-INVARIANT==>PC-REG REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS PC-REG-OFF) EVENT (DEFN PC-REG (STATE) (NTH (QUOTE 10) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . PC-REG) (DCELL . *1*PC-REG))))) (PUT1-LST (QUOTE *1*HOLD-) (QUOTE (MAIN-EVENT HOLD-))) (PUT1-LST (QUOTE HOLD-) (QUOTE (TYPE-PRESCRIPTION-LST ((HOLD- -1 NIL)) TOTALP-LST ((HOLD- . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 9) STATE)) LISP-CODE *1*HOLD- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*HOLD-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS HOLD--OFF) EVENT (DEFN HOLD- (STATE) (NTH (QUOTE 9) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . HOLD-) (DCELL . *1*HOLD-))))) (PUT1-LST (QUOTE *1*DTACK-) (QUOTE (MAIN-EVENT DTACK-))) (PUT1-LST (QUOTE DTACK-) (QUOTE (TYPE-PRESCRIPTION-LST ((DTACK- -1 NIL)) TOTALP-LST ((DTACK- . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 8) STATE)) LISP-CODE *1*DTACK- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*DTACK-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS DTACK--OFF) EVENT (DEFN DTACK- (STATE) (NTH (QUOTE 8) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DTACK-) (DCELL . *1*DTACK-))))) (PUT1-LST (QUOTE *1*RESET-) (QUOTE (MAIN-EVENT RESET-))) (PUT1-LST (QUOTE RESET-) (QUOTE (TYPE-PRESCRIPTION-LST ((RESET- -1 NIL)) TOTALP-LST ((RESET- . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 7) STATE)) LISP-CODE *1*RESET- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*RESET-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS RESET--OFF) EVENT (DEFN RESET- (STATE) (NTH (QUOTE 7) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . RESET-) (DCELL . *1*RESET-))))) (PUT1-LST (QUOTE *1*ADDR-OUT) (QUOTE (MAIN-EVENT ADDR-OUT))) (PUT1-LST (QUOTE ADDR-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-OUT -1 NIL)) TOTALP-LST ((ADDR-OUT . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 6) STATE)) LISP-CODE *1*ADDR-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*ADDR-OUT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS ADDR-OUT-OFF) EVENT (DEFN ADDR-OUT (STATE) (NTH (QUOTE 6) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . ADDR-OUT) (DCELL . *1*ADDR-OUT))))) (PUT1-LST (QUOTE *1*DATA-OUT) (QUOTE (MAIN-EVENT DATA-OUT))) (PUT1-LST (QUOTE DATA-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((DATA-OUT -1 NIL)) TOTALP-LST ((DATA-OUT . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 5) STATE)) LISP-CODE *1*DATA-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*DATA-OUT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS DATA-OUT-OFF) EVENT (DEFN DATA-OUT (STATE) (NTH (QUOTE 5) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DATA-OUT) (DCELL . *1*DATA-OUT))))) (PUT1-LST (QUOTE *1*I-REG) (QUOTE (MAIN-EVENT I-REG))) (PUT1-LST (QUOTE I-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((I-REG -1 NIL)) TOTALP-LST ((I-REG . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 4) STATE)) LISP-CODE *1*I-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*I-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS I-REG-OFF) EVENT (DEFN I-REG (STATE) (NTH (QUOTE 4) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . I-REG) (DCELL . *1*I-REG))))) (PUT1-LST (QUOTE *1*B-REG) (QUOTE (MAIN-EVENT B-REG))) (PUT1-LST (QUOTE B-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((B-REG -1 NIL)) TOTALP-LST ((B-REG . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 3) STATE)) LISP-CODE *1*B-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*B-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS B-REG-OFF) EVENT (DEFN B-REG (STATE) (NTH (QUOTE 3) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . B-REG) (DCELL . *1*B-REG))))) (PUT1-LST (QUOTE *1*A-REG) (QUOTE (MAIN-EVENT A-REG))) (PUT1-LST (QUOTE A-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((A-REG -1 NIL)) TOTALP-LST ((A-REG . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 2) STATE)) LISP-CODE *1*A-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194142 SATELLITES (*1*A-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS A-REG-OFF) EVENT (DEFN A-REG (STATE) (NTH (QUOTE 2) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . A-REG) (DCELL . *1*A-REG))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS$VALUE-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE TTL-BIDIRECT-PADS$VALUE-OFF TTL-BIDIRECT-PADS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS$VALUE . TTL-BIDIRECT-PADS$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS$VALUE) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-BIDIRECT-PADS$VALUE-OFF) EVENT (PROVE-LEMMA TTL-BIDIRECT-PADS$VALUE (REWRITE) (IMPLIES (AND (TTL-BIDIRECT-PADS& NETLIST N) (AND (EQUAL (LENGTH DATA) N) (AND (PROPERP DATA) (AND (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS))))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-BIDIRECT-PADS) N) (CONS ENABLE (CONS PI (APPEND DATA INPUTS))) STATE-BINDINGS NETLIST)) (APPEND (VFT-BUF (F-NOT ENABLE) INPUTS) (V-THREEFIX (V-WIRE DATA (VFT-BUF (F-NOT ENABLE) INPUTS)))))) ((ENABLE TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS*$DESTRUCTURE B-BUF-PWR$VALUE B-BUF$VALUE VFT-BUF-REWRITE) (DISABLE V-THREEFIX OPEN-INDICES APPEND-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-X . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-MAKE-LIST-X . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE-MAKE-LIST-Z . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-V-FOURFIX . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS*$DESTRUCTURE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY$VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF-REWRITE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-BIDIRECT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS& . TTL-BIDIRECT-PADS$VALUE) (LEMMAS CDR . TTL-BIDIRECT-PADS$VALUE))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194142 EVENT (TOGGLE TTL-BIDIRECT-PADS-BODY$VALUE-OFF TTL-BIDIRECT-PADS-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY$VALUE . TTL-BIDIRECT-PADS-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY$VALUE) (QUOTE (IDATE 1000402194142 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE-OFF) EVENT (PROVE-LEMMA TTL-BIDIRECT-PADS-BODY$VALUE (REWRITE) (IMPLIES (TTL-BIDIRECT& NETLIST) (AND (EQUAL (COLLECT-VALUE (INDICES (QUOTE DATA) M N) (DUAL-EVAL (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*FALSE)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*TRUE)) (MAKE-LIST N (QUOTE (*1*QUOTE Z))) (MAKE-LIST N (QUOTE (*1*QUOTE X)))))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*FALSE)) (V-THREEFIX (V-WIRE (COLLECT-VALUE (INDICES (QUOTE DATA) M N) BINDINGS) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)))) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*TRUE)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE DATA) M N) BINDINGS)) (MAKE-LIST N (QUOTE (*1*QUOTE X)))))))) ((ENABLE TTL-BIDIRECT-PADS-BODY TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY V-THREEFIX V-WIRE TTL-BIDIRECT$VALUE MAKE-LIST F-BUF F-NOT THREEFIX=X FT-BUF-REWRITE FT-WIRE-REWRITE) (DISABLE-THEORY F-GATES) (DISABLE THREEFIX) (INDUCT (TTL-BIDIRECT-PADS-BODY$INDUCTION M N PI BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT$VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FOURP . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FOURFIX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE-REWRITE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX=X . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY$INDUCTION . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 X . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 Z . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT& . TTL-BIDIRECT-PADS-BODY$VALUE) (LEMMAS COLLECT-VALUE . TTL-BIDIRECT-PADS-BODY$VALUE) (LEMMAS COLLECT-VALUE . TTL-BIDIRECT-PADS-BODY$VALUE))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (AND (UNBOUND-IN-BODY (INDEX (QUOTE DATA) L) (TTL-BIDIRECT-PADS-BODY M N PI)) (AND (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-BIDIRECT-PADS-BODY M N PI)) (AND (UNBOUND-IN-BODY (INDEX (QUOTE PO) L) (TTL-BIDIRECT-PADS-BODY M N PI)) (UNBOUND-IN-BODY (INDEX (QUOTE IN) L) (TTL-BIDIRECT-PADS-BODY M N PI)))))) ((ENABLE UNBOUND-IN-BODY TTL-BIDIRECT-PADS-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS$NETLIST) (QUOTE (MAIN-EVENT TTL-BIDIRECT-PADS$NETLIST))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT-PADS$NETLIST 16 NIL)) TOTALP-LST ((TTL-BIDIRECT-PADS$NETLIST . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (TTL-BIDIRECT-PADS* N) (UNION (TTL-BIDIRECT$NETLIST) (B-BUF$NETLIST))) (CONS (TTL-BIDIRECT-PADS* N) (UNION (TTL-BIDIRECT$NETLIST) (B-BUF-PWR$NETLIST))))) LISP-CODE *1*TTL-BIDIRECT-PADS$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194140 SATELLITES (*1*TTL-BIDIRECT-PADS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-BIDIRECT-PADS$NETLIST (N) (CONS (TTL-BIDIRECT-PADS* N) (UNION (TTL-BIDIRECT$NETLIST) (IF (LESSP N (QUOTE 8)) (B-BUF$NETLIST) (B-BUF-PWR$NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . TTL-BIDIRECT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . TTL-BIDIRECT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT$NETLIST . TTL-BIDIRECT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS* . TTL-BIDIRECT-PADS$NETLIST) (DCELL . *1*TTL-BIDIRECT-PADS$NETLIST))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS&-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-BIDIRECT-PADS&-OFF TTL-BIDIRECT-PADS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS& . TTL-BIDIRECT-PADS&-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS&) (QUOTE (MAIN-EVENT TTL-BIDIRECT-PADS&))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT-PADS& 3 NIL NIL)) TOTALP-LST ((TTL-BIDIRECT-PADS& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST) (TTL-BIDIRECT-PADS* N)) (IF (TTL-BIDIRECT& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST)) (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*TTL-BIDIRECT-PADS& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194140 SATELLITES (*1*TTL-BIDIRECT-PADS&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS&-OFF) EVENT (DEFN TTL-BIDIRECT-PADS& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST) (TTL-BIDIRECT-PADS* N)) (AND (TTL-BIDIRECT& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST)) (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE TTL-BIDIRECT-PADS) N) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT& . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS* . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TTL-BIDIRECT-PADS&) (DCELL . *1*TTL-BIDIRECT-PADS&))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF TTL-BIDIRECT-PADS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS*$DESTRUCTURE . TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS*-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-BIDIRECT-PADS*-OFF TTL-BIDIRECT-PADS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS* . TTL-BIDIRECT-PADS*-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS*-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS*$DESTRUCTURE) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TTL-BIDIRECT-PADS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TTL-BIDIRECT-PADS* N)) (INDEX (QUOTE TTL-BIDIRECT-PADS) N)) (AND (EQUAL (CAR (CDR (TTL-BIDIRECT-PADS* N))) (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE IN) (QUOTE 0) N))))) (AND (EQUAL (CAR (CDR (CDR (TTL-BIDIRECT-PADS* N)))) (CONS (INDEX (QUOTE PO) (SUB1 N)) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE OUT) (QUOTE 0) N)))) (AND (EQUAL (CAR (CDR (CDR (CDR (TTL-BIDIRECT-PADS* N))))) (CONS (CONS (QUOTE ENABLE-BUF) (CONS (QUOTE (BUF-ENABLE)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((ENABLE)))))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-BIDIRECT-PADS* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TTL-BIDIRECT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-BIDIRECT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS* . TTL-BIDIRECT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-BIDIRECT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-BIDIRECT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-BIDIRECT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-BIDIRECT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-BIDIRECT-PADS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS*) (QUOTE (MAIN-EVENT TTL-BIDIRECT-PADS*))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS*) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT-PADS* 16 NIL)) TOTALP-LST ((TTL-BIDIRECT-PADS* . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (INDEX (QUOTE TTL-BIDIRECT-PADS) N) (CONS (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE IN) (QUOTE 0) N)))) (CONS (CONS (INDEX (QUOTE PO) (SUB1 N)) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE OUT) (QUOTE 0) N))) (CONS (CONS (QUOTE (ENABLE-BUF (BUF-ENABLE) B-BUF (ENABLE))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI))) (QUOTE (NIL)))))) (CONS (INDEX (QUOTE TTL-BIDIRECT-PADS) N) (CONS (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE IN) (QUOTE 0) N)))) (CONS (CONS (INDEX (QUOTE PO) (SUB1 N)) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE OUT) (QUOTE 0) N))) (CONS (CONS (QUOTE (ENABLE-BUF (BUF-ENABLE) B-BUF-PWR (ENABLE))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI))) (QUOTE (NIL)))))))) LISP-CODE *1*TTL-BIDIRECT-PADS* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194140 SATELLITES (*1*TTL-BIDIRECT-PADS*) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$NETLIST TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS*-OFF TTL-BIDIRECT-PADS*$DESTRUCTURE) EVENT (DEFN TTL-BIDIRECT-PADS* (N) (CONS (INDEX (QUOTE TTL-BIDIRECT-PADS) N) (CONS (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE IN) (QUOTE 0) N)))) (CONS (CONS (INDEX (QUOTE PO) (SUB1 N)) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE OUT) (QUOTE 0) N))) (CONS (CONS (CONS (QUOTE ENABLE-BUF) (CONS (QUOTE (BUF-ENABLE)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((ENABLE)))))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS*) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-BIDIRECT-PADS*) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS*) (DCELL . *1*TTL-BIDIRECT-PADS*))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS-BODY$INDUCTION) (QUOTE (MAIN-EVENT TTL-BIDIRECT-PADS-BODY$INDUCTION))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT-PADS-BODY$INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((TTL-BIDIRECT-PADS-BODY$INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N PI BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (TTL-BIDIRECT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*TTL-BIDIRECT-PADS-BODY$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194140 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-BIDIRECT-PADS-BODY$INDUCTION) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE) EVENT (DEFN TTL-BIDIRECT-PADS-BODY$INDUCTION (M N PI BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (TTL-BIDIRECT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . TTL-BIDIRECT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-BIDIRECT-PADS-BODY$INDUCTION) (DCELL . *1*TTL-BIDIRECT-PADS-BODY$INDUCTION))))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-BIDIRECT-PADS-BODY-OFF TTL-BIDIRECT-PADS-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT-PADS-BODY . TTL-BIDIRECT-PADS-BODY-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT-PADS-BODY TTL-BIDIRECT-PADS-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS-BODY) (QUOTE (MAIN-EVENT TTL-BIDIRECT-PADS-BODY))) (PUT1-LST (QUOTE TTL-BIDIRECT-PADS-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT-PADS-BODY 24 NIL NIL NIL)) TOTALP-LST ((TTL-BIDIRECT-PADS-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (M N PI) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE DATA) M) (CONS (INDEX (QUOTE OUT) M) (CONS (INDEX (QUOTE PO) M) (QUOTE NIL)))) (CONS (QUOTE TTL-BIDIRECT) (CONS (CONS (INDEX (QUOTE DATA) M) (CONS (INDEX (QUOTE IN) M) (CONS (QUOTE BUF-ENABLE) (CONS PI (QUOTE NIL))))) (QUOTE NIL))))) (TTL-BIDIRECT-PADS-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M))) (QUOTE NIL)))) LISP-CODE *1*TTL-BIDIRECT-PADS-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194140 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-BIDIRECT-PADS-BODY) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY-OFF) EVENT (DEFN TTL-BIDIRECT-PADS-BODY (M N PI) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE DATA) M) (CONS (INDEX (QUOTE OUT) M) (CONS (INDEX (QUOTE PO) M) (QUOTE NIL)))) (CONS (QUOTE TTL-BIDIRECT) (CONS (CONS (INDEX (QUOTE DATA) M) (CONS (INDEX (QUOTE IN) M) (CONS (QUOTE BUF-ENABLE) (CONS PI (QUOTE NIL))))) (QUOTE NIL))))) (TTL-BIDIRECT-PADS-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-BIDIRECT-PADS-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-BIDIRECT-PADS-BODY) (DCELL . *1*TTL-BIDIRECT-PADS-BODY))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS$VALUE-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS$VALUE-OFF TTL-TRI-OUTPUT-PADS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS$VALUE . TTL-TRI-OUTPUT-PADS$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS$VALUE) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-TRI-OUTPUT-PADS$VALUE-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-PADS$VALUE (REWRITE) (IMPLIES (AND (TTL-TRI-OUTPUT-PADS& NETLIST N) (AND (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) (CONS ENABLE INPUTS) STATE NETLIST) (VFT-BUF (F-NOT ENABLE) INPUTS))) ((ENABLE TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS-BODY$VALUE B-BUF$VALUE B-BUF-PWR$VALUE) (DISABLE V-THREEFIX OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS*$DESTRUCTURE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY$VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-TRI-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS& . TTL-TRI-OUTPUT-PADS$VALUE) (LEMMAS DUAL-EVAL . TTL-TRI-OUTPUT-PADS$VALUE))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF TTL-TRI-OUTPUT-PADS-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY$VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY$VALUE) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-PADS-BODY$VALUE (REWRITE) (IMPLIES (TTL-TRI-OUTPUT& NETLIST) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-TRI-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (VFT-BUF (F-NOT (VALUE (QUOTE ENABLE-BUF) BINDINGS)) (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)))) ((ENABLE TTL-TRI-OUTPUT-PADS-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY V-THREEFIX TTL-TRI-OUTPUT$VALUE MAKE-LIST VFT-BUF-REWRITE) (INDUCT (TTL-TRI-OUTPUT-PADS-BODY$INDUCTION M N BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT$VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF-REWRITE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY$INDUCTION . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT& . TTL-TRI-OUTPUT-PADS-BODY$VALUE) (LEMMAS COLLECT-VALUE . TTL-TRI-OUTPUT-PADS-BODY$VALUE))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-TRI-OUTPUT-PADS-BODY M N))) ((ENABLE UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS$NETLIST) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-PADS$NETLIST))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-PADS$NETLIST 16 NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-PADS$NETLIST . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (TTL-TRI-OUTPUT-PADS* N) (UNION (B-BUF$NETLIST) (TTL-TRI-OUTPUT$NETLIST))) (CONS (TTL-TRI-OUTPUT-PADS* N) (UNION (B-BUF-PWR$NETLIST) (TTL-TRI-OUTPUT$NETLIST))))) LISP-CODE *1*TTL-TRI-OUTPUT-PADS$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194140 SATELLITES (*1*TTL-TRI-OUTPUT-PADS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-TRI-OUTPUT-PADS$NETLIST (N) (CONS (TTL-TRI-OUTPUT-PADS* N) (UNION (IF (LESSP N (QUOTE 8)) (B-BUF$NETLIST) (B-BUF-PWR$NETLIST)) (TTL-TRI-OUTPUT$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT$NETLIST . TTL-TRI-OUTPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . TTL-TRI-OUTPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . TTL-TRI-OUTPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS* . TTL-TRI-OUTPUT-PADS$NETLIST) (DCELL . *1*TTL-TRI-OUTPUT-PADS$NETLIST))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS&-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS&-OFF TTL-TRI-OUTPUT-PADS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS& . TTL-TRI-OUTPUT-PADS&-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS&) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-PADS&))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-PADS& 3 NIL NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-PADS& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST) (TTL-TRI-OUTPUT-PADS* N)) (IF (TTL-TRI-OUTPUT& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST)) (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*TTL-TRI-OUTPUT-PADS& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194140 SATELLITES (*1*TTL-TRI-OUTPUT-PADS&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS&-OFF) EVENT (DEFN TTL-TRI-OUTPUT-PADS& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST) (TTL-TRI-OUTPUT-PADS* N)) (AND (TTL-TRI-OUTPUT& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST)) (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT& . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS* . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TTL-TRI-OUTPUT-PADS&) (DCELL . *1*TTL-TRI-OUTPUT-PADS&))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-TRI-OUTPUT-PADS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS*$DESTRUCTURE . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS*-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS*-OFF TTL-TRI-OUTPUT-PADS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS* . TTL-TRI-OUTPUT-PADS*-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS*-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-PADS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TTL-TRI-OUTPUT-PADS* N)) (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N)) (AND (EQUAL (CAR (CDR (TTL-TRI-OUTPUT-PADS* N))) (CONS (QUOTE ENABLE) (INDICES (QUOTE IN) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N)))) (INDICES (QUOTE OUT) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N))))) (CONS (CONS (QUOTE ENABLE-BUFFER) (CONS (QUOTE (ENABLE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((ENABLE)))))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N))) (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS* . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-TRI-OUTPUT-PADS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS*) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-PADS*))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS*) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-PADS* 16 NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-PADS* . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) (CONS (CONS (QUOTE ENABLE) (INDICES (QUOTE IN) (QUOTE 0) N)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) N) (CONS (CONS (QUOTE (ENABLE-BUFFER (ENABLE-BUF) B-BUF (ENABLE))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N)) (QUOTE (NIL)))))) (CONS (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) (CONS (CONS (QUOTE ENABLE) (INDICES (QUOTE IN) (QUOTE 0) N)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) N) (CONS (CONS (QUOTE (ENABLE-BUFFER (ENABLE-BUF) B-BUF-PWR (ENABLE))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N)) (QUOTE (NIL)))))))) LISP-CODE *1*TTL-TRI-OUTPUT-PADS* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194140 SATELLITES (*1*TTL-TRI-OUTPUT-PADS*) IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS$NETLIST TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS*-OFF TTL-TRI-OUTPUT-PADS*$DESTRUCTURE) EVENT (DEFN TTL-TRI-OUTPUT-PADS* (N) (CONS (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) (CONS (CONS (QUOTE ENABLE) (INDICES (QUOTE IN) (QUOTE 0) N)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) N) (CONS (CONS (CONS (QUOTE ENABLE-BUFFER) (CONS (QUOTE (ENABLE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((ENABLE)))))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N)) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-TRI-OUTPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS*) (DCELL . *1*TTL-TRI-OUTPUT-PADS*))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-PADS-BODY$INDUCTION))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-PADS-BODY$INDUCTION 2 NIL NIL NIL NIL NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-PADS-BODY$INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (TTL-TRI-OUTPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-TRI-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-TRI-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194140 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS-BODY$VALUE) EVENT (DEFN TTL-TRI-OUTPUT-PADS-BODY$INDUCTION (M N BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (TTL-TRI-OUTPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (TTL-TRI-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (DCELL . *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY-OFF) (QUOTE (IDATE 1000402194140 EVENT (TOGGLE TTL-TRI-OUTPUT-PADS-BODY-OFF TTL-TRI-OUTPUT-PADS-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-PADS-BODY . TTL-TRI-OUTPUT-PADS-BODY-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-PADS-BODY TTL-TRI-OUTPUT-PADS-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS-BODY) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-PADS-BODY))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-PADS-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-PADS-BODY 24 NIL NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-PADS-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (CONS (QUOTE TTL-TRI-OUTPUT) (CONS (CONS (INDEX (QUOTE IN) M) (QUOTE (ENABLE-BUF))) (QUOTE NIL))))) (TTL-TRI-OUTPUT-PADS-BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*TTL-TRI-OUTPUT-PADS-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194140 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-TRI-OUTPUT-PADS-BODY) IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY-OFF) EVENT (DEFN TTL-TRI-OUTPUT-PADS-BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (CONS (QUOTE TTL-TRI-OUTPUT) (CONS (CONS (INDEX (QUOTE IN) M) (QUOTE (ENABLE-BUF))) (QUOTE NIL))))) (TTL-TRI-OUTPUT-PADS-BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-TRI-OUTPUT-PADS-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-TRI-OUTPUT-PADS-BODY) (DCELL . *1*TTL-TRI-OUTPUT-PADS-BODY))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS$VALUE) (QUOTE (IDATE 1000402194140 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE) EVENT (PROVE-LEMMA TTL-OUTPUT-PADS$VALUE (REWRITE) (IMPLIES (AND (TTL-OUTPUT-PADS& NETLIST N) (AND (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-OUTPUT-PADS) N) INPUTS STATE NETLIST) (V-THREEFIX INPUTS))) ((ENABLE TTL-OUTPUT-PADS& TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS-BODY$VALUE) (DISABLE V-THREEFIX OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS*$DESTRUCTURE . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY$VALUE . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-OUTPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS& . TTL-OUTPUT-PADS$VALUE) (LEMMAS DUAL-EVAL . TTL-OUTPUT-PADS$VALUE))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS-BODY$VALUE-OFF TTL-OUTPUT-PADS-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY$VALUE . TTL-OUTPUT-PADS-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY$VALUE) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT-PADS-BODY$VALUE (REWRITE) (IMPLIES (AND (TTL-OUTPUT& NETLIST) (B-BUF& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)))) ((ENABLE TTL-OUTPUT-PADS-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY V-THREEFIX TTL-OUTPUT$VALUE B-BUF$VALUE) (INDUCT (TTL-OUTPUT-PADS-BODY$INDUCTION M N BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$VALUE . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY$INDUCTION . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-OUTPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT& . TTL-OUTPUT-PADS-BODY$VALUE) (LEMMAS COLLECT-VALUE . TTL-OUTPUT-PADS-BODY$VALUE))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-OUTPUT-PADS-BODY M N))) ((ENABLE UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS$NETLIST) (QUOTE (MAIN-EVENT TTL-OUTPUT-PADS$NETLIST))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PADS$NETLIST 16 NIL)) TOTALP-LST ((TTL-OUTPUT-PADS$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (TTL-OUTPUT-PADS* N) (UNION (TTL-OUTPUT$NETLIST) (B-BUF$NETLIST)))) LISP-CODE *1*TTL-OUTPUT-PADS$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194139 SATELLITES (*1*TTL-OUTPUT-PADS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-OUTPUT-PADS$NETLIST (N) (CONS (TTL-OUTPUT-PADS* N) (UNION (TTL-OUTPUT$NETLIST) (B-BUF$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . TTL-OUTPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$NETLIST . TTL-OUTPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS* . TTL-OUTPUT-PADS$NETLIST) (DCELL . *1*TTL-OUTPUT-PADS$NETLIST))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS&-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS&-OFF TTL-OUTPUT-PADS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS& . TTL-OUTPUT-PADS&-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS& TTL-OUTPUT-PADS&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS&) (QUOTE (MAIN-EVENT TTL-OUTPUT-PADS&))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PADS& 3 NIL NIL)) TOTALP-LST ((TTL-OUTPUT-PADS& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST) (TTL-OUTPUT-PADS* N)) (IF (TTL-OUTPUT& (DELETE-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*TTL-OUTPUT-PADS& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194139 SATELLITES (*1*TTL-OUTPUT-PADS&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS&-OFF) EVENT (DEFN TTL-OUTPUT-PADS& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST) (TTL-OUTPUT-PADS* N)) (AND (TTL-OUTPUT& (DELETE-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-OUTPUT-PADS) N) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TTL-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT& . TTL-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS* . TTL-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TTL-OUTPUT-PADS&) (DCELL . *1*TTL-OUTPUT-PADS&))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS*$DESTRUCTURE-OFF TTL-OUTPUT-PADS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS*$DESTRUCTURE . TTL-OUTPUT-PADS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS*-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS*-OFF TTL-OUTPUT-PADS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS* . TTL-OUTPUT-PADS*-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS* TTL-OUTPUT-PADS*-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS*$DESTRUCTURE) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT-PADS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TTL-OUTPUT-PADS* N)) (INDEX (QUOTE TTL-OUTPUT-PADS) N)) (AND (EQUAL (CAR (CDR (TTL-OUTPUT-PADS* N))) (INDICES (QUOTE IN) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (TTL-OUTPUT-PADS* N)))) (INDICES (QUOTE OUT) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (TTL-OUTPUT-PADS* N))))) (TTL-OUTPUT-PADS-BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-OUTPUT-PADS* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS* . TTL-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-OUTPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-OUTPUT-PADS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS*) (QUOTE (MAIN-EVENT TTL-OUTPUT-PADS*))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS*) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PADS* 16 NIL)) TOTALP-LST ((TTL-OUTPUT-PADS* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE TTL-OUTPUT-PADS) N) (CONS (INDICES (QUOTE IN) (QUOTE 0) N) (CONS (INDICES (QUOTE OUT) (QUOTE 0) N) (CONS (TTL-OUTPUT-PADS-BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*TTL-OUTPUT-PADS* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194139 SATELLITES (*1*TTL-OUTPUT-PADS*) IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS$NETLIST TTL-OUTPUT-PADS& TTL-OUTPUT-PADS*-OFF TTL-OUTPUT-PADS*$DESTRUCTURE) EVENT (DEFN TTL-OUTPUT-PADS* (N) (CONS (INDEX (QUOTE TTL-OUTPUT-PADS) N) (CONS (INDICES (QUOTE IN) (QUOTE 0) N) (CONS (INDICES (QUOTE OUT) (QUOTE 0) N) (CONS (TTL-OUTPUT-PADS-BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-OUTPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS*) (DCELL . *1*TTL-OUTPUT-PADS*))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (MAIN-EVENT TTL-OUTPUT-PADS-BODY$INDUCTION))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PADS-BODY$INDUCTION 2 NIL NIL NIL NIL NIL)) TOTALP-LST ((TTL-OUTPUT-PADS-BODY$INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (TTL-OUTPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*TTL-OUTPUT-PADS-BODY$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194139 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-OUTPUT-PADS-BODY$INDUCTION) IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS-BODY$VALUE) EVENT (DEFN TTL-OUTPUT-PADS-BODY$INDUCTION (M N BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (TTL-OUTPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . TTL-OUTPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-OUTPUT-PADS-BODY$INDUCTION) (DCELL . *1*TTL-OUTPUT-PADS-BODY$INDUCTION))))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-OUTPUT-PADS-BODY-OFF TTL-OUTPUT-PADS-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PADS-BODY . TTL-OUTPUT-PADS-BODY-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PADS-BODY TTL-OUTPUT-PADS-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS-BODY) (QUOTE (MAIN-EVENT TTL-OUTPUT-PADS-BODY))) (PUT1-LST (QUOTE TTL-OUTPUT-PADS-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PADS-BODY 24 NIL NIL)) TOTALP-LST ((TTL-OUTPUT-PADS-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE B) M) (CONS (CONS (INDEX (QUOTE B-IN) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE IN) M) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (CONS (QUOTE TTL-OUTPUT) (CONS (CONS (INDEX (QUOTE B-IN) M) (QUOTE NIL)) (QUOTE NIL))))) (TTL-OUTPUT-PADS-BODY (ADD1 M) (SUB1 N)))) (QUOTE NIL)))) LISP-CODE *1*TTL-OUTPUT-PADS-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194139 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-OUTPUT-PADS-BODY) IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS* TTL-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY-OFF) EVENT (DEFN TTL-OUTPUT-PADS-BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE B) M) (CONS (CONS (INDEX (QUOTE B-IN) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE IN) M) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (CONS (QUOTE TTL-OUTPUT) (CONS (CONS (INDEX (QUOTE B-IN) M) (QUOTE NIL)) (QUOTE NIL))))) (TTL-OUTPUT-PADS-BODY (ADD1 M) (SUB1 N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-OUTPUT-PADS-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-OUTPUT-PADS-BODY) (DCELL . *1*TTL-OUTPUT-PADS-BODY))))) (PUT1-LST (QUOTE TTL-INPUT-PADS$VALUE-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-INPUT-PADS$VALUE-OFF TTL-INPUT-PADS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS$VALUE . TTL-INPUT-PADS$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS$VALUE TTL-INPUT-PADS$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PADS$VALUE) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-INPUT-PADS$VALUE-OFF) EVENT (PROVE-LEMMA TTL-INPUT-PADS$VALUE (REWRITE) (IMPLIES (AND (TTL-INPUT-PADS& NETLIST N) (AND (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-INPUT-PADS) N) (CONS PI INPUTS) STATE NETLIST)) (V-THREEFIX INPUTS))) ((ENABLE TTL-INPUT-PADS& TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS*$DESTRUCTURE) (DISABLE V-THREEFIX OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS*$DESTRUCTURE . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY$VALUE . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-INPUT-PADS$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS& . TTL-INPUT-PADS$VALUE) (LEMMAS CDR . TTL-INPUT-PADS$VALUE))))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-INPUT-PADS-BODY$VALUE-OFF TTL-INPUT-PADS-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY$VALUE . TTL-INPUT-PADS-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY$VALUE) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE-OFF) EVENT (PROVE-LEMMA TTL-INPUT-PADS-BODY$VALUE (REWRITE) (IMPLIES (AND (TTL-INPUT& NETLIST) (B-BUF& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE B-OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-INPUT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)))) ((ENABLE TTL-INPUT-PADS-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY V-THREEFIX TTL-INPUT$VALUE B-BUF$VALUE) (INDUCT (TTL-INPUT-PADS-BODY$INDUCTION M N PI BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT$VALUE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY$INDUCTION . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-INPUT-PADS-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT& . TTL-INPUT-PADS-BODY$VALUE) (LEMMAS COLLECT-VALUE . TTL-INPUT-PADS-BODY$VALUE))))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194139 IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE B-OUT) L) (TTL-INPUT-PADS-BODY M N PI))) ((ENABLE UNBOUND-IN-BODY TTL-INPUT-PADS-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS$NETLIST) (QUOTE (MAIN-EVENT TTL-INPUT-PADS$NETLIST))) (PUT1-LST (QUOTE TTL-INPUT-PADS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT-PADS$NETLIST 16 NIL)) TOTALP-LST ((TTL-INPUT-PADS$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (TTL-INPUT-PADS* N) (UNION (TTL-INPUT$NETLIST) (B-BUF$NETLIST)))) LISP-CODE *1*TTL-INPUT-PADS$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194139 SATELLITES (*1*TTL-INPUT-PADS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-INPUT-PADS$NETLIST (N) (CONS (TTL-INPUT-PADS* N) (UNION (TTL-INPUT$NETLIST) (B-BUF$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . TTL-INPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-INPUT$NETLIST . TTL-INPUT-PADS$NETLIST) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS* . TTL-INPUT-PADS$NETLIST) (DCELL . *1*TTL-INPUT-PADS$NETLIST))))) (PUT1-LST (QUOTE TTL-INPUT-PADS&-OFF) (QUOTE (IDATE 1000402194139 EVENT (TOGGLE TTL-INPUT-PADS&-OFF TTL-INPUT-PADS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS& . TTL-INPUT-PADS&-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS& TTL-INPUT-PADS&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS&) (QUOTE (MAIN-EVENT TTL-INPUT-PADS&))) (PUT1-LST (QUOTE TTL-INPUT-PADS&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT-PADS& 3 NIL NIL)) TOTALP-LST ((TTL-INPUT-PADS& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST) (TTL-INPUT-PADS* N)) (IF (TTL-INPUT& (DELETE-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*TTL-INPUT-PADS& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194138 SATELLITES (*1*TTL-INPUT-PADS&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-INPUT-PADS$VALUE TTL-INPUT-PADS&-OFF) EVENT (DEFN TTL-INPUT-PADS& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST) (TTL-INPUT-PADS* N)) (AND (TTL-INPUT& (DELETE-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE TTL-INPUT-PADS) N) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF& . TTL-INPUT-PADS&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TTL-INPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-INPUT& . TTL-INPUT-PADS&) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS* . TTL-INPUT-PADS&) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TTL-INPUT-PADS&) (DCELL . *1*TTL-INPUT-PADS&))))) (PUT1-LST (QUOTE TTL-INPUT-PADS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE TTL-INPUT-PADS*$DESTRUCTURE-OFF TTL-INPUT-PADS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS*$DESTRUCTURE . TTL-INPUT-PADS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PADS*-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE TTL-INPUT-PADS*-OFF TTL-INPUT-PADS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS* . TTL-INPUT-PADS*-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS* TTL-INPUT-PADS*-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT-PADS*$DESTRUCTURE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS$VALUE TTL-INPUT-PADS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TTL-INPUT-PADS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TTL-INPUT-PADS* N)) (INDEX (QUOTE TTL-INPUT-PADS) N)) (AND (EQUAL (CAR (CDR (TTL-INPUT-PADS* N))) (CONS (QUOTE PI) (INDICES (QUOTE IN) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (TTL-INPUT-PADS* N)))) (CONS (INDEX (QUOTE PO) (SUB1 N)) (INDICES (QUOTE B-OUT) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (CDR (TTL-INPUT-PADS* N))))) (TTL-INPUT-PADS-BODY (QUOTE 0) N (QUOTE PI))) (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-INPUT-PADS* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-INPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS* . TTL-INPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-INPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-INPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-INPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-INPUT-PADS*$DESTRUCTURE) (LEMMAS CAR . TTL-INPUT-PADS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS*) (QUOTE (MAIN-EVENT TTL-INPUT-PADS*))) (PUT1-LST (QUOTE TTL-INPUT-PADS*) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT-PADS* 16 NIL)) TOTALP-LST ((TTL-INPUT-PADS* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE TTL-INPUT-PADS) N) (CONS (CONS (QUOTE PI) (INDICES (QUOTE IN) (QUOTE 0) N)) (CONS (CONS (INDEX (QUOTE PO) (SUB1 N)) (INDICES (QUOTE B-OUT) (QUOTE 0) N)) (CONS (TTL-INPUT-PADS-BODY (QUOTE 0) N (QUOTE PI)) (QUOTE (NIL))))))) LISP-CODE *1*TTL-INPUT-PADS* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194138 SATELLITES (*1*TTL-INPUT-PADS*) IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS$NETLIST TTL-INPUT-PADS& TTL-INPUT-PADS*-OFF TTL-INPUT-PADS*$DESTRUCTURE) EVENT (DEFN TTL-INPUT-PADS* (N) (CONS (INDEX (QUOTE TTL-INPUT-PADS) N) (CONS (CONS (QUOTE PI) (INDICES (QUOTE IN) (QUOTE 0) N)) (CONS (CONS (INDEX (QUOTE PO) (SUB1 N)) (INDICES (QUOTE B-OUT) (QUOTE 0) N)) (CONS (TTL-INPUT-PADS-BODY (QUOTE 0) N (QUOTE PI)) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDICES . TTL-INPUT-PADS*) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS*) (DCELL . *1*TTL-INPUT-PADS*))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS-BODY$INDUCTION) (QUOTE (MAIN-EVENT TTL-INPUT-PADS-BODY$INDUCTION))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT-PADS-BODY$INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((TTL-INPUT-PADS-BODY$INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N PI BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (TTL-INPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-INPUT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*TTL-INPUT-PADS-BODY$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-INPUT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194138 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-INPUT-PADS-BODY$INDUCTION) IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS-BODY$VALUE) EVENT (DEFN TTL-INPUT-PADS-BODY$INDUCTION (M N PI BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (TTL-INPUT-PADS-BODY$INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (TTL-INPUT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . TTL-INPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-INPUT-PADS-BODY$INDUCTION) (DCELL . *1*TTL-INPUT-PADS-BODY$INDUCTION))))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE TTL-INPUT-PADS-BODY-OFF TTL-INPUT-PADS-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT-PADS-BODY . TTL-INPUT-PADS-BODY-OFF) (DISABLED-LEMMAS NIL TTL-INPUT-PADS-BODY TTL-INPUT-PADS-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS-BODY) (QUOTE (MAIN-EVENT TTL-INPUT-PADS-BODY))) (PUT1-LST (QUOTE TTL-INPUT-PADS-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT-PADS-BODY 24 NIL NIL NIL)) TOTALP-LST ((TTL-INPUT-PADS-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (M N PI) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (CONS (INDEX (QUOTE PO) M) (QUOTE NIL))) (CONS (QUOTE TTL-INPUT) (CONS (CONS (INDEX (QUOTE IN) M) (CONS PI (QUOTE NIL))) (QUOTE NIL))))) (CONS (CONS (INDEX (QUOTE B) M) (CONS (CONS (INDEX (QUOTE B-OUT) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (QUOTE NIL))))) (TTL-INPUT-PADS-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M)))) (QUOTE NIL)))) LISP-CODE *1*TTL-INPUT-PADS-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194138 CONTROLLER-POCKETS (2) SATELLITES (*1*TTL-INPUT-PADS-BODY) IMMEDIATE-DEPENDENTS0 (TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS* TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY-OFF) EVENT (DEFN TTL-INPUT-PADS-BODY (M N PI) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE OUT) M) (CONS (INDEX (QUOTE PO) M) (QUOTE NIL))) (CONS (QUOTE TTL-INPUT) (CONS (CONS (INDEX (QUOTE IN) M) (CONS PI (QUOTE NIL))) (QUOTE NIL))))) (CONS (CONS (INDEX (QUOTE B) M) (CONS (CONS (INDEX (QUOTE B-OUT) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE OUT) M) (QUOTE NIL)) (QUOTE NIL))))) (TTL-INPUT-PADS-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE PO) M)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TTL-INPUT-PADS-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . TTL-INPUT-PADS-BODY) (DCELL . *1*TTL-INPUT-PADS-BODY))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE$VALUE-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE EXTEND-IMMEDIATE$VALUE-OFF EXTEND-IMMEDIATE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE$VALUE . EXTEND-IMMEDIATE$VALUE-OFF) (DISABLED-LEMMAS NIL EXTEND-IMMEDIATE$VALUE EXTEND-IMMEDIATE$VALUE-OFF . T))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE$VALUE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE-OFF) EVENT (PROVE-LEMMA EXTEND-IMMEDIATE$VALUE (REWRITE) (IMPLIES (AND (EXTEND-IMMEDIATE& NETLIST) (AND (PROPERP IMMEDIATE) (AND (EQUAL (LENGTH IMMEDIATE) (QUOTE 9)) (AND (PROPERP REG-DATA) (EQUAL (LENGTH REG-DATA) (QUOTE 32)))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE EXTEND-IMMEDIATE) (CONS SELECT-IMMEDIATE (APPEND IMMEDIATE REG-DATA)) STATE NETLIST) (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-DATA))) ((ENABLE F$EXTEND-IMMEDIATE EXTEND-IMMEDIATE& EXTEND-IMMEDIATE*$DESTRUCTURE B-BUF-PWR$VALUE TV-IF$VALUE) (DISABLE ASSOCIATIVITY-OF-APPEND MAKE-LIST *1*MAKE-LIST INDICES *1*INDICES OPEN-INDICES MAKE-TREE *1*MAKE-TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE*$DESTRUCTURE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-MAKE-LIST . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . EXTEND-IMMEDIATE$VALUE) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE& . EXTEND-IMMEDIATE$VALUE) (LEMMAS DUAL-EVAL . EXTEND-IMMEDIATE$VALUE))))) (PUT1-LST (QUOTE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE (REWRITE) (IMPLIES (AND (BVP IMMEDIATE) (AND (EQUAL (LENGTH IMMEDIATE) (QUOTE 9)) (AND (BVP REG-DATA) (AND (EQUAL (LENGTH REG-DATA) (QUOTE 32)) (BOOLP SELECT-IMMEDIATE))))) (EQUAL (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-DATA) (IF* SELECT-IMMEDIATE (SIGN-EXTEND IMMEDIATE (QUOTE 32)) REG-DATA))) ((ENABLE F$EXTEND-IMMEDIATE SIGN-EXTEND-AS-APPEND IF*) (DISABLE ASSOCIATIVITY-OF-APPEND MAKE-LIST *1*MAKE-LIST INDICES *1*INDICES OPEN-INDICES MAKE-TREE *1*MAKE-TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND-AS-APPEND . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 IF* . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BVP . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE) (LEMMAS F$EXTEND-IMMEDIATE . F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$VALUE CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$EXTEND-IMMEDIATE (REWRITE) (AND (PROPERP (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-BUS)) (IMPLIES (EQUAL (LENGTH IMMEDIATE) (QUOTE 9)) (EQUAL (LENGTH (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-BUS)) (QUOTE 32)))) ((ENABLE F$EXTEND-IMMEDIATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (LEMMAS LENGTH . PROPERP-LENGTH-F$EXTEND-IMMEDIATE) (LEMMAS PROPERP . PROPERP-LENGTH-F$EXTEND-IMMEDIATE))))) (PUT1-LST (QUOTE F$EXTEND-IMMEDIATE-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE F$EXTEND-IMMEDIATE-OFF F$EXTEND-IMMEDIATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$EXTEND-IMMEDIATE . F$EXTEND-IMMEDIATE-OFF) (DISABLED-LEMMAS NIL F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE-OFF . T))))) (PUT1-LST (QUOTE *1*F$EXTEND-IMMEDIATE) (QUOTE (MAIN-EVENT F$EXTEND-IMMEDIATE))) (PUT1-LST (QUOTE F$EXTEND-IMMEDIATE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$EXTEND-IMMEDIATE 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE ((BVP IMMEDIATE) (EQUAL (LENGTH IMMEDIATE) (QUOTE 9)) (BVP REG-DATA) (EQUAL (LENGTH REG-DATA) (QUOTE 32)) (BOOLP SELECT-IMMEDIATE)) (EQUAL (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-DATA) (IF* SELECT-IMMEDIATE (SIGN-EXTEND IMMEDIATE (QUOTE 32)) REG-DATA)) NIL)) TOTALP-LST ((F$EXTEND-IMMEDIATE . T)) SDEFN (LAMBDA (SELECT-IMMEDIATE IMMEDIATE REG-DATA) (IF (BOOLP (NTH (QUOTE 8) IMMEDIATE)) (FV-IF SELECT-IMMEDIATE (APPEND IMMEDIATE (MAKE-LIST (QUOTE 23) (NTH (QUOTE 8) IMMEDIATE))) REG-DATA) (FV-IF SELECT-IMMEDIATE (APPEND IMMEDIATE (MAKE-LIST (QUOTE 23) (QUOTE (*1*QUOTE X)))) REG-DATA))) LISP-CODE *1*F$EXTEND-IMMEDIATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194138 SATELLITES (*1*F$EXTEND-IMMEDIATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE-OFF) EVENT (DEFN F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE IMMEDIATE REG-DATA) (FV-IF SELECT-IMMEDIATE (APPEND IMMEDIATE (IF (BOOLP (NTH (QUOTE 8) IMMEDIATE)) (MAKE-LIST (QUOTE 23) (NTH (QUOTE 8) IMMEDIATE)) (MAKE-LIST (QUOTE 23) (QUOTE (*1*QUOTE X))))) REG-DATA)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 NTH . F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$EXTEND-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 FV-IF . F$EXTEND-IMMEDIATE) (DCELL . *1*F$EXTEND-IMMEDIATE))))) (PUT1-LST (QUOTE CHECK-EXTEND-IMMEDIATE$NETLIST) (QUOTE (IDATE 1000402194138 EVENT (PROVE-LEMMA CHECK-EXTEND-IMMEDIATE$NETLIST NIL (EXTEND-IMMEDIATE& (EXTEND-IMMEDIATE$NETLIST)) ((EXPAND (EXTEND-IMMEDIATE*)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 INDICES . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 INDEX . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP$NETLIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR* . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE$NETLIST . CHECK-EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE& . CHECK-EXTEND-IMMEDIATE$NETLIST))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE$NETLIST) (QUOTE (MAIN-EVENT EXTEND-IMMEDIATE$NETLIST))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTEND-IMMEDIATE$NETLIST 16)) TOTALP-LST ((EXTEND-IMMEDIATE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (EXTEND-IMMEDIATE*) (UNION (B-BUF-PWR$NETLIST) (TV-IF$NETLIST (MAKE-TREE (QUOTE 32)))))) LISP-CODE *1*EXTEND-IMMEDIATE$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194138 SATELLITES (*1*EXTEND-IMMEDIATE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-EXTEND-IMMEDIATE$NETLIST) EVENT (DEFN EXTEND-IMMEDIATE$NETLIST NIL (CONS (EXTEND-IMMEDIATE*) (UNION (B-BUF-PWR$NETLIST) (TV-IF$NETLIST (MAKE-TREE (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . EXTEND-IMMEDIATE$NETLIST) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . EXTEND-IMMEDIATE$NETLIST) (DCELL . *1*EXTEND-IMMEDIATE$NETLIST))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE&-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE EXTEND-IMMEDIATE&-OFF EXTEND-IMMEDIATE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE& . EXTEND-IMMEDIATE&-OFF) (DISABLED-LEMMAS NIL EXTEND-IMMEDIATE& EXTEND-IMMEDIATE&-OFF . T))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE&) (QUOTE (MAIN-EVENT EXTEND-IMMEDIATE&))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE&) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTEND-IMMEDIATE& 3 NIL)) TOTALP-LST ((EXTEND-IMMEDIATE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST) (EXTEND-IMMEDIATE*)) (IF (B-BUF-PWR& (DELETE-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST)) (TV-IF& (DELETE-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST) (MAKE-TREE (QUOTE 32))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*EXTEND-IMMEDIATE& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194138 SATELLITES (*1*EXTEND-IMMEDIATE&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& EXTEND-IMMEDIATE$VALUE CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE&-OFF) EVENT (DEFN EXTEND-IMMEDIATE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST) (EXTEND-IMMEDIATE*)) (AND (B-BUF-PWR& (DELETE-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST)) (TV-IF& (DELETE-MODULE (QUOTE EXTEND-IMMEDIATE) NETLIST) (MAKE-TREE (QUOTE 32)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . EXTEND-IMMEDIATE&) (IMMEDIATE-DEPENDENTS0 TV-IF& . EXTEND-IMMEDIATE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . EXTEND-IMMEDIATE&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . EXTEND-IMMEDIATE&) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . EXTEND-IMMEDIATE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . EXTEND-IMMEDIATE&) (DCELL . *1*EXTEND-IMMEDIATE&))))) (PUT1-LST (QUOTE G*1*EXTEND-IMMEDIATE*-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE G*1*EXTEND-IMMEDIATE*-OFF *1*EXTEND-IMMEDIATE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . G*1*EXTEND-IMMEDIATE*-OFF) (DISABLED-LEMMAS NIL *1*EXTEND-IMMEDIATE* G*1*EXTEND-IMMEDIATE*-OFF . T))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE EXTEND-IMMEDIATE*$DESTRUCTURE-OFF EXTEND-IMMEDIATE*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE*$DESTRUCTURE . EXTEND-IMMEDIATE*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE*-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . EXTEND-IMMEDIATE*-OFF) (DISABLED-LEMMAS NIL EXTEND-IMMEDIATE* EXTEND-IMMEDIATE*-OFF . T))))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE*$DESTRUCTURE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (EXTEND-IMMEDIATE$VALUE EXTEND-IMMEDIATE*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA EXTEND-IMMEDIATE*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (EXTEND-IMMEDIATE*)) (QUOTE EXTEND-IMMEDIATE)) (AND (EQUAL (CAR (CDR (EXTEND-IMMEDIATE*))) (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32))))) (AND (EQUAL (CAR (CDR (CDR (EXTEND-IMMEDIATE*)))) (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32))) (AND (EQUAL (CAR (CDR (CDR (CDR (EXTEND-IMMEDIATE*))))) (CONS (QUOTE (BUFFER (SIGN-BIT) B-BUF-PWR ((*1*QUOTE INDEX IMMEDIATE 8)))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (MAKE-LIST (QUOTE 23) (QUOTE SIGN-BIT))) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (EXTEND-IMMEDIATE*)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-APPEND . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . EXTEND-IMMEDIATE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 EXTEND-IMMEDIATE* . EXTEND-IMMEDIATE*$DESTRUCTURE) (LEMMAS CAR . EXTEND-IMMEDIATE*$DESTRUCTURE) (LEMMAS CAR . EXTEND-IMMEDIATE*$DESTRUCTURE) (LEMMAS CAR . EXTEND-IMMEDIATE*$DESTRUCTURE) (LEMMAS CAR . EXTEND-IMMEDIATE*$DESTRUCTURE) (LEMMAS CAR . EXTEND-IMMEDIATE*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE*) (QUOTE (MAIN-EVENT EXTEND-IMMEDIATE*))) (PUT1-LST (QUOTE EXTEND-IMMEDIATE*) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTEND-IMMEDIATE* 16)) TOTALP-LST ((EXTEND-IMMEDIATE* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (CONS (QUOTE (BUFFER (SIGN-BIT) B-BUF-PWR ((*1*QUOTE INDEX IMMEDIATE 8)))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (MAKE-LIST (QUOTE 23) (QUOTE SIGN-BIT))) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LISP-CODE *1*EXTEND-IMMEDIATE* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194138 SATELLITES (*1*EXTEND-IMMEDIATE*) IMMEDIATE-DEPENDENTS0 (CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE& G*1*EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*-OFF EXTEND-IMMEDIATE*$DESTRUCTURE) EVENT (DEFN EXTEND-IMMEDIATE* NIL (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (CONS (QUOTE (BUFFER (SIGN-BIT) B-BUF-PWR ((*1*QUOTE INDEX IMMEDIATE 8)))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (MAKE-LIST (QUOTE 23) (QUOTE SIGN-BIT))) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . EXTEND-IMMEDIATE*) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . EXTEND-IMMEDIATE*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . EXTEND-IMMEDIATE*) (IMMEDIATE-DEPENDENTS0 INDEX . EXTEND-IMMEDIATE*) (IMMEDIATE-DEPENDENTS0 INDICES . EXTEND-IMMEDIATE*) (DCELL . *1*EXTEND-IMMEDIATE*))))) (PUT1-LST (QUOTE FLAGS$PARTIAL-STATE-OFF) (QUOTE (IDATE 1000402194138 EVENT (TOGGLE FLAGS$PARTIAL-STATE-OFF FLAGS$PARTIAL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS$PARTIAL-STATE . FLAGS$PARTIAL-STATE-OFF) (DISABLED-LEMMAS NIL FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-OFF . T))))) (PUT1-LST (QUOTE FLAGS$PARTIAL-STATE) (QUOTE (IDATE 1000402194138 IMMEDIATE-DEPENDENTS0 (FLAGS$PARTIAL-STATE-OFF) EVENT (PROVE-LEMMA FLAGS$PARTIAL-STATE (REWRITE) (IMPLIES (AND (FLAGS& NETLIST) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (EQUAL SET-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (AND (BVP CVZBV) (AND (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((USE (FLAGS$PARTIAL-STATE-HELP (C (CAR CVZBV)) (V (CAR (CDR CVZBV))) (Z (CAR (CDR (CDR CVZBV)))) (BV (CDR (CDR (CDR CVZBV)))))) (DISABLE *1*MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 FLAGS$PARTIAL-STATE-HELP . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . FLAGS$PARTIAL-STATE) (IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS$PARTIAL-STATE) (LEMMAS DUAL-EVAL . FLAGS$PARTIAL-STATE))))) (PUT1-LST (QUOTE FLAGS$PARTIAL-STATE-HELP-OFF) (QUOTE (IDATE 1000402194137 EVENT (TOGGLE FLAGS$PARTIAL-STATE-HELP-OFF FLAGS$PARTIAL-STATE-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS$PARTIAL-STATE-HELP . FLAGS$PARTIAL-STATE-HELP-OFF) (DISABLED-LEMMAS NIL FLAGS$PARTIAL-STATE-HELP FLAGS$PARTIAL-STATE-HELP-OFF . T))))) (PUT1-LST (QUOTE FLAGS$PARTIAL-STATE-HELP) (QUOTE (IDATE 1000402194137 IMMEDIATE-DEPENDENTS0 (FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP-OFF) EVENT (PROVE-LEMMA FLAGS$PARTIAL-STATE-HELP (REWRITE) (IMPLIES (AND (FLAGS& NETLIST) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (EQUAL SET-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (AND (EQUAL CVZBV (CONS C (CONS V (CONS Z BV)))) (AND (BVP CVZBV) (AND (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((ENABLE FLAGS& FLAGS*$DESTRUCTURE FD1SLP$STATE C-SET V-SET N-SET Z-SET C-FLAG V-FLAG N-FLAG Z-FLAG C V ZB N BV UPDATE-FLAGS NTH V-NEGP-AS-NTH) (DISABLE INDICES *1*INDICES OPEN-INDICES) (EXPAND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 1) (QUOTE 3)) (INDICES (QUOTE SET-FLAGS) (QUOTE 2) (QUOTE 2)) (INDICES (QUOTE SET-FLAGS) (QUOTE 3) (QUOTE 1)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35)) (INDICES (QUOTE CVZBV) (QUOTE 1) (QUOTE 34)) (INDICES (QUOTE CVZBV) (QUOTE 2) (QUOTE 33))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 PRIMP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS*$DESTRUCTURE . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 C . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 V . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDEX . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDICES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 LNFIX . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 FD1SLP$STATE . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 N . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 BV . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-NTH . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 B-IF . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 BVP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP . FLAGS$PARTIAL-STATE-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS$PARTIAL-STATE-HELP) (LEMMAS DUAL-EVAL . FLAGS$PARTIAL-STATE-HELP))))) (PUT1-LST (QUOTE FLAGS$STATE-OFF) (QUOTE (IDATE 1000402194137 EVENT (TOGGLE FLAGS$STATE-OFF FLAGS$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS$STATE . FLAGS$STATE-OFF) (DISABLED-LEMMAS NIL FLAGS$STATE FLAGS$STATE-OFF . T))))) (PUT1-LST (QUOTE FLAGS$STATE) (QUOTE (IDATE 1000402194137 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE FLAGS$STATE-OFF) EVENT (PROVE-LEMMA FLAGS$STATE (REWRITE) (IMPLIES (AND (FLAGS& NETLIST) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (PROPERP SET-FLAGS) (AND (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (AND (PROPERP CVZBV) (AND (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((USE (FLAGS$STATE-HELP (SET-Z (CAR SET-FLAGS)) (SET-N (CAR (CDR SET-FLAGS))) (SET-V (CAR (CDR (CDR SET-FLAGS)))) (SET-C (CAR (CDR (CDR (CDR SET-FLAGS))))) (C (CAR CVZBV)) (V (CAR (CDR CVZBV))) (Z (CAR (CDR (CDR CVZBV)))) (BV (CDR (CDR (CDR CVZBV)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 FLAGS$STATE-HELP . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . FLAGS$STATE) (IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS$STATE) (LEMMAS DUAL-EVAL . FLAGS$STATE))))) (PUT1-LST (QUOTE FLAGS$STATE-HELP-OFF) (QUOTE (IDATE 1000402194137 EVENT (TOGGLE FLAGS$STATE-HELP-OFF FLAGS$STATE-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS$STATE-HELP . FLAGS$STATE-HELP-OFF) (DISABLED-LEMMAS NIL FLAGS$STATE-HELP FLAGS$STATE-HELP-OFF . T))))) (PUT1-LST (QUOTE FLAGS$STATE-HELP) (QUOTE (IDATE 1000402194137 IMMEDIATE-DEPENDENTS0 (FLAGS$STATE FLAGS$STATE-HELP-OFF) EVENT (PROVE-LEMMA FLAGS$STATE-HELP (REWRITE) (IMPLIES (AND (FLAGS& NETLIST) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (EQUAL SET-FLAGS (CONS SET-Z (CONS SET-N (CONS SET-V (CONS SET-C (QUOTE NIL)))))) (AND (EQUAL CVZBV (CONS C (CONS V (CONS Z BV)))) (AND (PROPERP CVZBV) (AND (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((ENABLE FLAGS& F$UPDATE-FLAGS FLAGS*$DESTRUCTURE FD1SLP$STATE C-SET V-SET N-SET Z-SET C-FLAG V-FLAG N-FLAG Z-FLAG C V ZB N BV UPDATE-FLAGS NTH V-NEGP-AS-NTH) (DISABLE INDICES *1*INDICES OPEN-INDICES) (EXPAND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 1) (QUOTE 3)) (INDICES (QUOTE SET-FLAGS) (QUOTE 2) (QUOTE 2)) (INDICES (QUOTE SET-FLAGS) (QUOTE 3) (QUOTE 1)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35)) (INDICES (QUOTE CVZBV) (QUOTE 1) (QUOTE 34)) (INDICES (QUOTE CVZBV) (QUOTE 2) (QUOTE 33))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PRIMP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS*$DESTRUCTURE . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 C . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDEX . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 INDICES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LNFIX . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 THREEFIX . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-IF . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-BUF . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FD1SLP$STATE . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 N . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 BV . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 V-NEGP-AS-NTH . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 NTH . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP . FLAGS$STATE-HELP) (IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS$STATE-HELP) (LEMMAS DUAL-EVAL . FLAGS$STATE-HELP))))) (PUT1-LST (QUOTE F$UPDATE-FLAGS=UPDATE-FLAGS) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$UPDATE-FLAGS=UPDATE-FLAGS (REWRITE) (IMPLIES (AND (BVP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (BVP SET-FLAGS) (AND (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (AND (BVP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35))))))) (EQUAL (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((ENABLE F$UPDATE-FLAGS UPDATE-FLAGS Z-SET ZB Z-FLAG N-SET N N-FLAG V-SET V V-FLAG C-SET C C-FLAG) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-BUF . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-FLAG . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-SET . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-FLAG . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-SET . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-IF . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-FLAG . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-SET . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 ZB . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-SET . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$UPDATE-FLAGS=UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP . F$UPDATE-FLAGS=UPDATE-FLAGS) (LEMMAS F$UPDATE-FLAGS . F$UPDATE-FLAGS=UPDATE-FLAGS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$UPDATE-FLAGS) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$UPDATE-FLAGS (REWRITE) (AND (PROPERP (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (EQUAL (LENGTH (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (QUOTE 4))) ((ENABLE F$UPDATE-FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F-IF . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . PROPERP-LENGTH-F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$UPDATE-FLAGS) (LEMMAS LENGTH . PROPERP-LENGTH-F$UPDATE-FLAGS) (LEMMAS PROPERP . PROPERP-LENGTH-F$UPDATE-FLAGS))))) (PUT1-LST (QUOTE F$UPDATE-FLAGS-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE F$UPDATE-FLAGS-OFF F$UPDATE-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$UPDATE-FLAGS . F$UPDATE-FLAGS-OFF) (DISABLED-LEMMAS NIL F$UPDATE-FLAGS F$UPDATE-FLAGS-OFF . T))))) (PUT1-LST (QUOTE *1*F$UPDATE-FLAGS) (QUOTE (MAIN-EVENT F$UPDATE-FLAGS))) (PUT1-LST (QUOTE F$UPDATE-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$UPDATE-FLAGS 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$UPDATE-FLAGS=UPDATE-FLAGS ((BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (BVP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (BVP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35))) (EQUAL (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL)) TOTALP-LST ((F$UPDATE-FLAGS . T)) SDEFN (LAMBDA (FLAGS SET-FLAGS CVZBV) (CONS (F-IF (Z-SET SET-FLAGS) (ZB CVZBV) (Z-FLAG FLAGS)) (CONS (F-IF (N-SET SET-FLAGS) (N CVZBV) (N-FLAG FLAGS)) (CONS (F-IF (V-SET SET-FLAGS) (V CVZBV) (V-FLAG FLAGS)) (CONS (F-IF (C-SET SET-FLAGS) (C CVZBV) (C-FLAG FLAGS)) (QUOTE NIL)))))) LISP-CODE *1*F$UPDATE-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194136 SATELLITES (*1*F$UPDATE-FLAGS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE FLAGS$STATE FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS PROPERP-LENGTH-F$UPDATE-FLAGS F$UPDATE-FLAGS-OFF) EVENT (DEFN F$UPDATE-FLAGS (FLAGS SET-FLAGS CVZBV) (CONS (F-IF (Z-SET SET-FLAGS) (ZB CVZBV) (Z-FLAG FLAGS)) (CONS (F-IF (N-SET SET-FLAGS) (N CVZBV) (N-FLAG FLAGS)) (CONS (F-IF (V-SET SET-FLAGS) (V CVZBV) (V-FLAG FLAGS)) (CONS (F-IF (C-SET SET-FLAGS) (C CVZBV) (C-FLAG FLAGS)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-FLAG . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-SET . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-FLAG . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-SET . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-FLAG . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-SET . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 ZB . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-SET . F$UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 F-IF . F$UPDATE-FLAGS) (DCELL . *1*F$UPDATE-FLAGS))))) (PUT1-LST (QUOTE FLAGS$VALUE-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE FLAGS$VALUE-OFF FLAGS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS$VALUE . FLAGS$VALUE-OFF) (DISABLED-LEMMAS NIL FLAGS$VALUE FLAGS$VALUE-OFF . T))))) (PUT1-LST (QUOTE FLAGS$VALUE) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE FLAGS$VALUE-OFF) EVENT (PROVE-LEMMA FLAGS$VALUE (REWRITE) (IMPLIES (AND (FLAGS& NETLIST) (AND (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (V-THREEFIX FLAGS))) ((ENABLE FLAGS& FLAGS*$DESTRUCTURE FD1SLP$VALUE C-SET V-SET N-SET Z-SET C V ZB OPEN-NTH EQUAL-LENGTH-ADD1) (DISABLE INDICES *1*INDICES OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 FLAGS*$DESTRUCTURE . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 C . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 V . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SLP$VALUE . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . FLAGS$VALUE) (IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS$VALUE) (LEMMAS DUAL-EVAL . FLAGS$VALUE))))) (PUT1-LST (QUOTE CHECK-FLAGS$NETLIST) (QUOTE (IDATE 1000402194136 EVENT (PROVE-LEMMA CHECK-FLAGS$NETLIST NIL (FLAGS& (FLAGS$NETLIST)) ((EXPAND (FLAGS*)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS* . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 INDICES . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 ZB . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 Z-SET . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 N-SET . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 V . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 V-SET . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 C . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 C-SET . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1SLP$NETLIST . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 FLAGS$NETLIST . CHECK-FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 FLAGS& . CHECK-FLAGS$NETLIST))))) (PUT1-LST (QUOTE *1*FLAGS$NETLIST) (QUOTE (MAIN-EVENT FLAGS$NETLIST))) (PUT1-LST (QUOTE FLAGS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FLAGS$NETLIST 16)) TOTALP-LST ((FLAGS$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (FLAGS*) (FD1SLP$NETLIST))) LISP-CODE *1*FLAGS$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194136 SATELLITES (*1*FLAGS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-FLAGS$NETLIST) EVENT (DEFN FLAGS$NETLIST NIL (CONS (FLAGS*) (FD1SLP$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP$NETLIST . FLAGS$NETLIST) (IMMEDIATE-DEPENDENTS0 FLAGS* . FLAGS$NETLIST) (DCELL . *1*FLAGS$NETLIST))))) (PUT1-LST (QUOTE FLAGS&-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE FLAGS&-OFF FLAGS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS& . FLAGS&-OFF) (DISABLED-LEMMAS NIL FLAGS& FLAGS&-OFF . T))))) (PUT1-LST (QUOTE *1*FLAGS&) (QUOTE (MAIN-EVENT FLAGS&))) (PUT1-LST (QUOTE FLAGS&) (QUOTE (TYPE-PRESCRIPTION-LST ((FLAGS& 3 NIL)) TOTALP-LST ((FLAGS& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE FLAGS) NETLIST) (FLAGS*)) (FD1SLP& (DELETE-MODULE (QUOTE FLAGS) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*FLAGS& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194136 SATELLITES (*1*FLAGS&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS&-OFF) EVENT (DEFN FLAGS& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE FLAGS) NETLIST) (FLAGS*)) (FD1SLP& (DELETE-MODULE (QUOTE FLAGS) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FLAGS&) (IMMEDIATE-DEPENDENTS0 FD1SLP& . FLAGS&) (IMMEDIATE-DEPENDENTS0 FLAGS* . FLAGS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FLAGS&) (DCELL . *1*FLAGS&))))) (PUT1-LST (QUOTE G*1*FLAGS*-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE G*1*FLAGS*-OFF *1*FLAGS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS* . G*1*FLAGS*-OFF) (DISABLED-LEMMAS NIL *1*FLAGS* G*1*FLAGS*-OFF . T))))) (PUT1-LST (QUOTE FLAGS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE FLAGS*$DESTRUCTURE-OFF FLAGS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS*$DESTRUCTURE . FLAGS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL FLAGS*$DESTRUCTURE FLAGS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE FLAGS*-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE FLAGS*-OFF FLAGS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS* . FLAGS*-OFF) (DISABLED-LEMMAS NIL FLAGS* FLAGS*-OFF . T))))) (PUT1-LST (QUOTE FLAGS*$DESTRUCTURE) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE FLAGS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA FLAGS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (FLAGS*)) (QUOTE FLAGS)) (AND (EQUAL (CAR (CDR (FLAGS*))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (APPEND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))))))) (AND (EQUAL (CAR (CDR (CDR (FLAGS*)))) (QUOTE (Z N V C))) (AND (EQUAL (CAR (CDR (CDR (CDR (FLAGS*))))) (CONS (CONS (QUOTE Z-LATCH) (CONS (QUOTE (Z ZB)) (CONS (QUOTE FD1SLP) (CONS (CONS (ZB (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (Z-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (TI TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE N-LATCH) (CONS (QUOTE (N NB)) (CONS (QUOTE FD1SLP) (CONS (CONS (QUOTE (*1*QUOTE INDEX CVZBV 34)) (CONS (QUOTE CLK) (CONS (N-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (Z TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE V-LATCH) (CONS (QUOTE (V VB)) (CONS (QUOTE FD1SLP) (CONS (CONS (V (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (V-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (N TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE C-LATCH) (CONS (QUOTE (C CB)) (CONS (QUOTE FD1SLP) (CONS (CONS (C (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (C-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (V TE))))) (QUOTE NIL))))) (QUOTE NIL)))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (FLAGS*)))))) (QUOTE (Z-LATCH N-LATCH V-LATCH C-LATCH)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-SET . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . FLAGS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS* . FLAGS*$DESTRUCTURE) (LEMMAS CAR . FLAGS*$DESTRUCTURE) (LEMMAS CAR . FLAGS*$DESTRUCTURE) (LEMMAS CAR . FLAGS*$DESTRUCTURE) (LEMMAS CAR . FLAGS*$DESTRUCTURE) (LEMMAS CAR . FLAGS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*FLAGS*) (QUOTE (MAIN-EVENT FLAGS*))) (PUT1-LST (QUOTE FLAGS*) (QUOTE (TYPE-PRESCRIPTION-LST ((FLAGS* 16)) TOTALP-LST ((FLAGS* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (APPEND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35)))))) (CONS (QUOTE (Z N V C)) (CONS (CONS (CONS (QUOTE Z-LATCH) (CONS (QUOTE (Z ZB)) (CONS (QUOTE FD1SLP) (CONS (CONS (ZB (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (Z-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (TI TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE N-LATCH) (CONS (QUOTE (N NB)) (CONS (QUOTE FD1SLP) (CONS (CONS (QUOTE (*1*QUOTE INDEX CVZBV 34)) (CONS (QUOTE CLK) (CONS (N-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (Z TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE V-LATCH) (CONS (QUOTE (V VB)) (CONS (QUOTE FD1SLP) (CONS (CONS (V (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (V-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (N TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE C-LATCH) (CONS (QUOTE (C CB)) (CONS (QUOTE FD1SLP) (CONS (CONS (C (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (C-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (V TE))))) (QUOTE NIL))))) (QUOTE NIL))))) (QUOTE ((Z-LATCH N-LATCH V-LATCH C-LATCH)))))))) LISP-CODE *1*FLAGS* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194136 SATELLITES (*1*FLAGS*) IMMEDIATE-DEPENDENTS0 (CHECK-FLAGS$NETLIST FLAGS$NETLIST FLAGS& G*1*FLAGS*-OFF FLAGS*-OFF FLAGS*$DESTRUCTURE) EVENT (DEFN FLAGS* NIL (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (APPEND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35)))))) (CONS (QUOTE (Z N V C)) (CONS (CONS (CONS (QUOTE Z-LATCH) (CONS (QUOTE (Z ZB)) (CONS (QUOTE FD1SLP) (CONS (CONS (ZB (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (Z-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (TI TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE N-LATCH) (CONS (QUOTE (N NB)) (CONS (QUOTE FD1SLP) (CONS (CONS (QUOTE (*1*QUOTE INDEX CVZBV 34)) (CONS (QUOTE CLK) (CONS (N-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (Z TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE V-LATCH) (CONS (QUOTE (V VB)) (CONS (QUOTE FD1SLP) (CONS (CONS (V (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (V-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (N TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE C-LATCH) (CONS (QUOTE (C CB)) (CONS (QUOTE FD1SLP) (CONS (CONS (C (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (C-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (V TE))))) (QUOTE NIL))))) (QUOTE NIL))))) (QUOTE ((Z-LATCH N-LATCH V-LATCH C-LATCH)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-SET . FLAGS*) (IMMEDIATE-DEPENDENTS0 C . FLAGS*) (IMMEDIATE-DEPENDENTS0 V-SET . FLAGS*) (IMMEDIATE-DEPENDENTS0 V . FLAGS*) (IMMEDIATE-DEPENDENTS0 N-SET . FLAGS*) (IMMEDIATE-DEPENDENTS0 INDEX . FLAGS*) (IMMEDIATE-DEPENDENTS0 Z-SET . FLAGS*) (IMMEDIATE-DEPENDENTS0 ZB . FLAGS*) (IMMEDIATE-DEPENDENTS0 INDICES . FLAGS*) (DCELL . *1*FLAGS*))))) (PUT1-LST (QUOTE REGFILE$STATE-OFF) (QUOTE (IDATE 1000402194136 EVENT (TOGGLE REGFILE$STATE-OFF REGFILE$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE$STATE . REGFILE$STATE-OFF) (DISABLED-LEMMAS NIL REGFILE$STATE REGFILE$STATE-OFF . T))))) (PUT1-LST (QUOTE REGFILE$STATE) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE REGFILE$STATE-OFF) EVENT (PROVE-LEMMA REGFILE$STATE (REWRITE) (IMPLIES (AND (REGFILE& NETLIST) (AND (NOT TE) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (PROPERP DATA) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (AND (PROPERP LAST-DATA) (AND (EQUAL (LENGTH LAST-DATA) (QUOTE 32)) (AND (PROPERP ADDRESS) (AND (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (AND (PROPERP LAST-ADDRESS) (EQUAL (LENGTH LAST-ADDRESS) (QUOTE 4))))))))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE REGFILE) (CONS CLK (CONS TE (CONS TI (CONS WE (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND ADDRESS DATA))))))) (CONS REGFILE (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) NETLIST) (F$WRITE-REGS WE ADDRESS (CONS REGFILE (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) DATA))) ((ENABLE REGFILE& F$WRITE-REGS REGFILE*$DESTRUCTURE OPEN-NTH FD1S$STATE FD1S$VALUE WE-REG$STATE WE-REG$VALUE RAM-ENABLE-CIRCUIT$VALUE DP-RAM-16X32$STRUCTURED-STATE V-EQUAL$VALUE B-AND3$VALUE TV-IF$VALUE ID$VALUE) (DISABLE INDICES *1*INDICES OPEN-INDICES OPEN-V-THREEFIX MAKE-TREE *1*MAKE-TREE MAKE-LIST *1*MAKE-LIST THREEFIX DUAL-PORT-RAM-STATE) (EXPAND (F-IF (QUOTE *1*FALSE) TI WE) (F-BUF WE)) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 REGFILE*$DESTRUCTURE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 FD1S$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 LNFIX . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 V-EQUAL$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 FD1S$STATE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG$STATE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STRUCTURED-STATE . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . REGFILE$STATE) (IMMEDIATE-DEPENDENTS0 REGFILE& . REGFILE$STATE) (LEMMAS DUAL-EVAL . REGFILE$STATE))))) (PUT1-LST (QUOTE F$WRITE-REGS=WRITE-REGS) (QUOTE (IDATE 1000402194136 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$WRITE-REGS=WRITE-REGS (REWRITE) (IMPLIES (AND (BOOLP WE) (AND (BOOLP (CAR (CDR REGS))) (AND (BVP (CAR (CDR (CDR REGS)))) (AND (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)) (AND (BVP (CAR (CDR (CDR (CDR REGS))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4)) (AND (BVP ADDRESS) (AND (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (AND (BVP DATA) (EQUAL (LENGTH DATA) (QUOTE 32))))))))))) (EQUAL (F$WRITE-REGS WE ADDRESS REGS DATA) (WRITE-REGS WE ADDRESS REGS DATA))) ((ENABLE F$WRITE-REGS WRITE-REGS BOOLP-B-GATES OPEN-NTH SUBRANGE-CONS) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 THREEFIX . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 NTH-APPEND-TOO . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 B-NAND . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 BVP . F$WRITE-REGS=WRITE-REGS) (IMMEDIATE-DEPENDENTS0 BOOLP . F$WRITE-REGS=WRITE-REGS) (LEMMAS F$WRITE-REGS . F$WRITE-REGS=WRITE-REGS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$WRITE-REGS) (QUOTE (IDATE 1000402194135 IMMEDIATE-DEPENDENTS0 (FM9001-STATE-STRUCTURE$STEP) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$WRITE-REGS (REWRITE) (AND (PROPERP (F$WRITE-REGS WE ADDRESS REGS DATA)) (EQUAL (LENGTH (F$WRITE-REGS WE ADDRESS REGS DATA)) (QUOTE 4))) ((ENABLE F$WRITE-REGS) (DISABLE DUAL-PORT-RAM-STATE THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-NAND . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 THREEFIX-IDEMPOTENT . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-NOT . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-BUF . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . PROPERP-LENGTH-F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$WRITE-REGS) (LEMMAS LENGTH . PROPERP-LENGTH-F$WRITE-REGS) (LEMMAS PROPERP . PROPERP-LENGTH-F$WRITE-REGS))))) (PUT1-LST (QUOTE F$WRITE-REGS-OFF) (QUOTE (IDATE 1000402194135 EVENT (TOGGLE F$WRITE-REGS-OFF F$WRITE-REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$WRITE-REGS . F$WRITE-REGS-OFF) (DISABLED-LEMMAS NIL F$WRITE-REGS F$WRITE-REGS-OFF . T))))) (PUT1-LST (QUOTE *1*F$WRITE-REGS) (QUOTE (MAIN-EVENT F$WRITE-REGS))) (PUT1-LST (QUOTE F$WRITE-REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$WRITE-REGS 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$WRITE-REGS=WRITE-REGS ((BOOLP WE) (BOOLP (CAR (CDR REGS))) (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)) (BVP (CAR (CDR (CDR (CDR REGS))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4)) (BVP ADDRESS) (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (BVP DATA) (EQUAL (LENGTH DATA) (QUOTE 32))) (EQUAL (F$WRITE-REGS WE ADDRESS REGS DATA) (WRITE-REGS WE ADDRESS REGS DATA)) NIL)) TOTALP-LST ((F$WRITE-REGS . T)) SDEFN (LAMBDA (WE ADDRESS REGS DATA) (CONS (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND ADDRESS (APPEND (V-THREEFIX (CAR (CDR (CDR (CDR REGS))))) (CONS (F-NAND (QUOTE *1*TRUE) (F-BUF (CAR (CDR REGS)))) (V-THREEFIX (CAR (CDR (CDR REGS))))))) (CAR REGS)) (CONS (THREEFIX WE) (CONS (FV-IF WE DATA (CAR (CDR (CDR REGS)))) (CONS (FV-IF WE ADDRESS (CAR (CDR (CDR (CDR REGS))))) (QUOTE NIL)))))) LISP-CODE *1*F$WRITE-REGS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194135 SATELLITES (*1*F$WRITE-REGS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE REGFILE$STATE F$WRITE-REGS=WRITE-REGS PROPERP-LENGTH-F$WRITE-REGS F$WRITE-REGS-OFF) EVENT (DEFN F$WRITE-REGS (WE ADDRESS REGS DATA) (CONS (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND ADDRESS (APPEND (V-THREEFIX (CAR (CDR (CDR (CDR REGS))))) (CONS (F-NAND (QUOTE *1*TRUE) (F-BUF (CAR (CDR REGS)))) (V-THREEFIX (CAR (CDR (CDR REGS))))))) (CAR REGS)) (CONS (THREEFIX WE) (CONS (FV-IF WE DATA (CAR (CDR (CDR REGS)))) (CONS (FV-IF WE ADDRESS (CAR (CDR (CDR (CDR REGS))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-IF . F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 THREEFIX . F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-BUF . F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 F-NAND . F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . F$WRITE-REGS) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . F$WRITE-REGS) (DCELL . *1*F$WRITE-REGS))))) (PUT1-LST (QUOTE REGFILE$VALUE-OFF) (QUOTE (IDATE 1000402194135 EVENT (TOGGLE REGFILE$VALUE-OFF REGFILE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE$VALUE . REGFILE$VALUE-OFF) (DISABLED-LEMMAS NIL REGFILE$VALUE REGFILE$VALUE-OFF . T))))) (PUT1-LST (QUOTE REGFILE$VALUE) (QUOTE (IDATE 1000402194135 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE REGFILE$VALUE-OFF) EVENT (PROVE-LEMMA REGFILE$VALUE (REWRITE) (IMPLIES (AND (REGFILE& NETLIST) (AND (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (AND (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (AND (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) MEM) (AND (PROPERP LAST-DATA) (AND (EQUAL (LENGTH LAST-DATA) (QUOTE 32)) (AND (PROPERP ADDRESS) (AND (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (AND (PROPERP LAST-ADDRESS) (EQUAL (LENGTH LAST-ADDRESS) (QUOTE 4))))))))))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (QUOTE REGFILE) (CONS CLK (CONS TE (CONS TI (CONS WE (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND ADDRESS DATA))))))) (CONS MEM (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) NETLIST)) (F$READ-REGS ADDRESS (CONS MEM (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL)))))))) ((ENABLE REGFILE& F$READ-REGS REGFILE*$DESTRUCTURE OPEN-NTH FD1S$VALUE WE-REG$VALUE RAM-ENABLE-CIRCUIT$VALUE DP-RAM-16X32$STRUCTURED-VALUE V-EQUAL$VALUE B-AND3$VALUE TV-IF$VALUE ID$VALUE) (DISABLE INDICES *1*INDICES OPEN-INDICES OPEN-V-THREEFIX MAKE-TREE *1*MAKE-TREE MAKE-LIST *1*MAKE-LIST THREEFIX DUAL-PORT-RAM-VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 REGFILE*$DESTRUCTURE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 FD1S$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STRUCTURED-VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 V-EQUAL$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-DUAL-PORT-RAM-VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . REGFILE$VALUE) (IMMEDIATE-DEPENDENTS0 REGFILE& . REGFILE$VALUE) (LEMMAS CDR . REGFILE$VALUE))))) (PUT1-LST (QUOTE F$READ-REGS=READ-REGS) (QUOTE (IDATE 1000402194135 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$READ-REGS=READ-REGS (REWRITE) (IMPLIES (AND (MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR REGS)) (AND (BOOLP (CAR (CDR REGS))) (AND (BVP (CAR (CDR (CDR REGS)))) (AND (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)) (AND (BVP (CAR (CDR (CDR (CDR REGS))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4)) (AND (BVP ADDRESS) (EQUAL (LENGTH ADDRESS) (QUOTE 4))))))))) (EQUAL (F$READ-REGS ADDRESS REGS) (READ-REGS ADDRESS REGS))) ((ENABLE READ-REGS F$READ-REGS BOOLP-B-GATES OPEN-NTH) (DISABLE *1*MAKE-LIST) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 NTH-APPEND-TOO . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP==>MEMORY-PROPERP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP-READ-MEM-32 . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 B-NAND . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 B-AND3 . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 F$V-EQUAL=EQUAL* . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 V-IFF=EQUAL . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 BV2P . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 READ-REGS . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 BVP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 BOOLP . F$READ-REGS=READ-REGS) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . F$READ-REGS=READ-REGS) (LEMMAS F$READ-REGS . F$READ-REGS=READ-REGS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$READ-REGS) (QUOTE (IDATE 1000402194135 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$READ-REGS (REWRITE) (AND (PROPERP (F$READ-REGS ADDRESS MEM)) (IMPLIES (EQUAL (LENGTH (CAR (CDR (CDR MEM)))) (QUOTE 32)) (EQUAL (LENGTH (F$READ-REGS ADDRESS MEM)) (QUOTE 32)))) ((ENABLE F$READ-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 FV-IF-V-THREEFIX . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-NAND . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-AND3 . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-BUF . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F$READ-REGS . PROPERP-LENGTH-F$READ-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$READ-REGS) (LEMMAS LENGTH . PROPERP-LENGTH-F$READ-REGS) (LEMMAS PROPERP . PROPERP-LENGTH-F$READ-REGS))))) (PUT1-LST (QUOTE F$READ-REGS-OFF) (QUOTE (IDATE 1000402194135 EVENT (TOGGLE F$READ-REGS-OFF F$READ-REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$READ-REGS . F$READ-REGS-OFF) (DISABLED-LEMMAS NIL F$READ-REGS F$READ-REGS-OFF . T))))) (PUT1-LST (QUOTE *1*F$READ-REGS) (QUOTE (MAIN-EVENT F$READ-REGS))) (PUT1-LST (QUOTE F$READ-REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$READ-REGS 24 NIL NIL)) LEMMAS ((REWRITE-RULE F$READ-REGS=READ-REGS ((MEMORY-OKP (QUOTE 4) (QUOTE 32) (CAR REGS)) (BOOLP (CAR (CDR REGS))) (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)) (BVP (CAR (CDR (CDR (CDR REGS))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) (QUOTE 4)) (BVP ADDRESS) (EQUAL (LENGTH ADDRESS) (QUOTE 4))) (EQUAL (F$READ-REGS ADDRESS REGS) (READ-REGS ADDRESS REGS)) NIL)) TOTALP-LST ((F$READ-REGS . T)) SDEFN (LAMBDA (ADDRESS REGS) (FV-IF (F-AND3 (F-BUF (CAR (CDR REGS))) (F$V-EQUAL ADDRESS (V-THREEFIX (CAR (CDR (CDR (CDR REGS)))))) (QUOTE *1*TRUE)) (V-THREEFIX (CAR (CDR (CDR REGS)))) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (APPEND ADDRESS (APPEND (V-THREEFIX (CAR (CDR (CDR (CDR REGS))))) (CONS (F-NAND (QUOTE *1*TRUE) (F-BUF (CAR (CDR REGS)))) (V-THREEFIX (CAR (CDR (CDR REGS))))))) (CAR REGS)))) LISP-CODE *1*F$READ-REGS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194135 SATELLITES (*1*F$READ-REGS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE REGFILE$VALUE F$READ-REGS=READ-REGS PROPERP-LENGTH-F$READ-REGS F$READ-REGS-OFF) EVENT (DEFN F$READ-REGS (ADDRESS REGS) (FV-IF (F-AND3 (F-BUF (CAR (CDR REGS))) (F$V-EQUAL ADDRESS (V-THREEFIX (CAR (CDR (CDR (CDR REGS)))))) (QUOTE *1*TRUE)) (V-THREEFIX (CAR (CDR (CDR REGS)))) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (APPEND ADDRESS (APPEND (V-THREEFIX (CAR (CDR (CDR (CDR REGS))))) (CONS (F-NAND (QUOTE *1*TRUE) (F-BUF (CAR (CDR REGS)))) (V-THREEFIX (CAR (CDR (CDR REGS))))))) (CAR REGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F$V-EQUAL . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-BUF . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 F-AND3 . F$READ-REGS) (IMMEDIATE-DEPENDENTS0 FV-IF . F$READ-REGS) (DCELL . *1*F$READ-REGS))))) (PUT1-LST (QUOTE CHECK-REGFILE$NETLIST) (QUOTE (IDATE 1000402194135 EVENT (PROVE-LEMMA CHECK-REGFILE$NETLIST NIL (REGFILE& (REGFILE$NETLIST)) ((EXPAND (REGFILE*)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE* . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 INDICES . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 INDEX . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 WE-REG$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-EQUAL$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND3$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1S$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 REGFILE$NETLIST . CHECK-REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 REGFILE& . CHECK-REGFILE$NETLIST))))) (PUT1-LST (QUOTE *1*REGFILE$NETLIST) (QUOTE (MAIN-EVENT REGFILE$NETLIST))) (PUT1-LST (QUOTE REGFILE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((REGFILE$NETLIST 16)) TOTALP-LST ((REGFILE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (REGFILE*) (UNION (UNION (UNION (UNION (FD1S$NETLIST) (WE-REG$NETLIST (QUOTE 4))) (UNION (WE-REG$NETLIST (QUOTE 32)) (RAM-ENABLE-CIRCUIT$NETLIST))) (UNION (DP-RAM-16X32$NETLIST) (UNION (V-EQUAL$NETLIST (QUOTE 4)) (B-AND3$NETLIST)))) (UNION (TV-IF$NETLIST (MAKE-TREE (QUOTE 32))) (ID$NETLIST))))) LISP-CODE *1*REGFILE$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194134 SATELLITES (*1*REGFILE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-REGFILE$NETLIST) EVENT (DEFN REGFILE$NETLIST NIL (CONS (REGFILE*) (UNION (UNION (UNION (UNION (FD1S$NETLIST) (WE-REG$NETLIST (QUOTE 4))) (UNION (WE-REG$NETLIST (QUOTE 32)) (RAM-ENABLE-CIRCUIT$NETLIST))) (UNION (DP-RAM-16X32$NETLIST) (UNION (V-EQUAL$NETLIST (QUOTE 4)) (B-AND3$NETLIST)))) (UNION (TV-IF$NETLIST (MAKE-TREE (QUOTE 32))) (ID$NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND3$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-EQUAL$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 WE-REG$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1S$NETLIST . REGFILE$NETLIST) (IMMEDIATE-DEPENDENTS0 REGFILE* . REGFILE$NETLIST) (DCELL . *1*REGFILE$NETLIST))))) (PUT1-LST (QUOTE REGFILE&-OFF) (QUOTE (IDATE 1000402194134 EVENT (TOGGLE REGFILE&-OFF REGFILE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE& . REGFILE&-OFF) (DISABLED-LEMMAS NIL REGFILE& REGFILE&-OFF . T))))) (PUT1-LST (QUOTE *1*REGFILE&) (QUOTE (MAIN-EVENT REGFILE&))) (PUT1-LST (QUOTE REGFILE&) (QUOTE (TYPE-PRESCRIPTION-LST ((REGFILE& 3 NIL)) TOTALP-LST ((REGFILE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE REGFILE) NETLIST) (REGFILE*)) (IF (FD1S& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (IF (WE-REG& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 4)) (IF (WE-REG& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 32)) (IF (RAM-ENABLE-CIRCUIT& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (IF (DP-RAM-16X32& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (IF (V-EQUAL& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 4)) (IF (B-AND3& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (IF (TV-IF& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (MAKE-TREE (QUOTE 32))) (ID& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*REGFILE& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194134 SATELLITES (*1*REGFILE&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& REGFILE$STATE REGFILE$VALUE CHECK-REGFILE$NETLIST REGFILE&-OFF) EVENT (DEFN REGFILE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE REGFILE) NETLIST) (REGFILE*)) (AND (FD1S& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (AND (WE-REG& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 4)) (AND (WE-REG& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 32)) (AND (RAM-ENABLE-CIRCUIT& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (AND (DP-RAM-16X32& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (AND (V-EQUAL& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (QUOTE 4)) (AND (B-AND3& (DELETE-MODULE (QUOTE REGFILE) NETLIST)) (AND (TV-IF& (DELETE-MODULE (QUOTE REGFILE) NETLIST) (MAKE-TREE (QUOTE 32))) (ID& (DELETE-MODULE (QUOTE REGFILE) NETLIST)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . REGFILE&) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . REGFILE&) (IMMEDIATE-DEPENDENTS0 TV-IF& . REGFILE&) (IMMEDIATE-DEPENDENTS0 B-AND3& . REGFILE&) (IMMEDIATE-DEPENDENTS0 V-EQUAL& . REGFILE&) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . REGFILE&) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT& . REGFILE&) (IMMEDIATE-DEPENDENTS0 WE-REG& . REGFILE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . REGFILE&) (IMMEDIATE-DEPENDENTS0 FD1S& . REGFILE&) (IMMEDIATE-DEPENDENTS0 REGFILE* . REGFILE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . REGFILE&) (DCELL . *1*REGFILE&))))) (PUT1-LST (QUOTE G*1*REGFILE*-OFF) (QUOTE (IDATE 1000402194134 EVENT (TOGGLE G*1*REGFILE*-OFF *1*REGFILE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE* . G*1*REGFILE*-OFF) (DISABLED-LEMMAS NIL *1*REGFILE* G*1*REGFILE*-OFF . T))))) (PUT1-LST (QUOTE REGFILE*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194134 EVENT (TOGGLE REGFILE*$DESTRUCTURE-OFF REGFILE*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE*$DESTRUCTURE . REGFILE*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL REGFILE*$DESTRUCTURE REGFILE*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE REGFILE*-OFF) (QUOTE (IDATE 1000402194134 EVENT (TOGGLE REGFILE*-OFF REGFILE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGFILE* . REGFILE*-OFF) (DISABLED-LEMMAS NIL REGFILE* REGFILE*-OFF . T))))) (PUT1-LST (QUOTE REGFILE*$DESTRUCTURE) (QUOTE (IDATE 1000402194134 IMMEDIATE-DEPENDENTS0 (REGFILE$STATE REGFILE$VALUE REGFILE*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA REGFILE*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (REGFILE*)) (QUOTE REGFILE)) (AND (EQUAL (CAR (CDR (REGFILE*))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (CONS (QUOTE WE) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))))))) (AND (EQUAL (CAR (CDR (CDR (REGFILE*)))) (CONS (QUOTE TO) (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)))) (AND (EQUAL (CAR (CDR (CDR (CDR (REGFILE*))))) (CONS (QUOTE (WE-LATCH (WE-DP-RAM WE-DP-RAM-) FD1S (WE CLK TI TE))) (CONS (CONS (QUOTE ADDRESS-LATCH) (CONS (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE WE-DP-RAM) (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-LATCH) (CONS (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE (*1*QUOTE INDEX ADDRESS-DP-RAM 3)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (REG-EN-CIRCUIT (WE-) RAM-ENABLE-CIRCUIT (CLK TEST-REGFILE- DISABLE-REGFILE- WE-DP-RAM))) (CONS (CONS (QUOTE RAM) (CONS (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DP-RAM-16X32) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE WE-) (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE COMPARE) (CONS (QUOTE (READ-EQUAL-WRITE)) (CONS (QUOTE (*1*QUOTE INDEX V-EQUAL 4)) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CONTROL (S) B-AND3 (WE-DP-RAM READ-EQUAL-WRITE TEST-REGFILE-))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE S) (APPEND (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE ((SCANOUT (TO) ID ((*1*QUOTE INDEX DATA-DP-RAM 31)))))))))))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (REGFILE*)))))) (QUOTE (RAM WE-LATCH DATA-LATCH ADDRESS-LATCH)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . REGFILE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . REGFILE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . REGFILE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . REGFILE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . REGFILE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGFILE* . REGFILE*$DESTRUCTURE) (LEMMAS CAR . REGFILE*$DESTRUCTURE) (LEMMAS CAR . REGFILE*$DESTRUCTURE) (LEMMAS CAR . REGFILE*$DESTRUCTURE) (LEMMAS CAR . REGFILE*$DESTRUCTURE) (LEMMAS CAR . REGFILE*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*REGFILE*) (QUOTE (MAIN-EVENT REGFILE*))) (PUT1-LST (QUOTE REGFILE*) (QUOTE (TYPE-PRESCRIPTION-LST ((REGFILE* 16)) TOTALP-LST ((REGFILE* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (CONS (QUOTE WE) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32))))))))) (CONS (CONS (QUOTE TO) (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32))) (CONS (CONS (QUOTE (WE-LATCH (WE-DP-RAM WE-DP-RAM-) FD1S (WE CLK TI TE))) (CONS (CONS (QUOTE ADDRESS-LATCH) (CONS (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE WE-DP-RAM) (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-LATCH) (CONS (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE (*1*QUOTE INDEX ADDRESS-DP-RAM 3)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (REG-EN-CIRCUIT (WE-) RAM-ENABLE-CIRCUIT (CLK TEST-REGFILE- DISABLE-REGFILE- WE-DP-RAM))) (CONS (CONS (QUOTE RAM) (CONS (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DP-RAM-16X32) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE WE-) (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE COMPARE) (CONS (QUOTE (READ-EQUAL-WRITE)) (CONS (QUOTE (*1*QUOTE INDEX V-EQUAL 4)) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CONTROL (S) B-AND3 (WE-DP-RAM READ-EQUAL-WRITE TEST-REGFILE-))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE S) (APPEND (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE ((SCANOUT (TO) ID ((*1*QUOTE INDEX DATA-DP-RAM 31))))))))))))) (QUOTE ((RAM WE-LATCH DATA-LATCH ADDRESS-LATCH)))))))) LISP-CODE *1*REGFILE* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194134 SATELLITES (*1*REGFILE*) IMMEDIATE-DEPENDENTS0 (CHECK-REGFILE$NETLIST REGFILE$NETLIST REGFILE& G*1*REGFILE*-OFF REGFILE*-OFF REGFILE*$DESTRUCTURE) EVENT (DEFN REGFILE* NIL (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (CONS (QUOTE WE) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32))))))))) (CONS (CONS (QUOTE TO) (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32))) (CONS (CONS (QUOTE (WE-LATCH (WE-DP-RAM WE-DP-RAM-) FD1S (WE CLK TI TE))) (CONS (CONS (QUOTE ADDRESS-LATCH) (CONS (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE WE-DP-RAM) (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-LATCH) (CONS (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE (*1*QUOTE INDEX ADDRESS-DP-RAM 3)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (REG-EN-CIRCUIT (WE-) RAM-ENABLE-CIRCUIT (CLK TEST-REGFILE- DISABLE-REGFILE- WE-DP-RAM))) (CONS (CONS (QUOTE RAM) (CONS (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DP-RAM-16X32) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE WE-) (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE COMPARE) (CONS (QUOTE (READ-EQUAL-WRITE)) (CONS (QUOTE (*1*QUOTE INDEX V-EQUAL 4)) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CONTROL (S) B-AND3 (WE-DP-RAM READ-EQUAL-WRITE TEST-REGFILE-))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE S) (APPEND (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE ((SCANOUT (TO) ID ((*1*QUOTE INDEX DATA-DP-RAM 31))))))))))))) (QUOTE ((RAM WE-LATCH DATA-LATCH ADDRESS-LATCH)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . REGFILE*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . REGFILE*) (IMMEDIATE-DEPENDENTS0 INDEX . REGFILE*) (IMMEDIATE-DEPENDENTS0 INDICES . REGFILE*) (DCELL . *1*REGFILE*))))) (PUT1-LST (QUOTE BVP-LENGTH-READ-REGS-32) (QUOTE (IDATE 1000402194134 IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA BVP-LENGTH-READ-REGS-32 (REWRITE) (IMPLIES (AND (MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) (CAR REGS)) (AND (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32)))) (AND (BVP (READ-REGS V-ADDR REGS)) (EQUAL (LENGTH (READ-REGS V-ADDR REGS)) (QUOTE 32)))) ((ENABLE READ-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM-32 . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 READ-REGS . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-READ-REGS-32) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . BVP-LENGTH-READ-REGS-32) (LEMMAS LENGTH . BVP-LENGTH-READ-REGS-32) (LEMMAS BVP . BVP-LENGTH-READ-REGS-32))))) (PUT1-LST (QUOTE READ-REGS=READ-MEM-WRITE-MEM) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA READ-REGS=READ-MEM-WRITE-MEM (REWRITE) (IMPLIES (AND (ALL-RAMP-MEM (LENGTH V-ADDR1) (CAR REGS)) (AND (EQUAL (LENGTH V-ADDR1) (LENGTH (CAR (CDR (CDR (CDR REGS)))))) (CAR (CDR REGS)))) (EQUAL (READ-REGS V-ADDR1 REGS) (READ-MEM V-ADDR1 (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS))))))) ((USE (READ-MEM-WRITE-MEM (MEM (CAR REGS)) (V-ADDR2 (CAR (CDR (CDR (CDR REGS))))) (VALUE (CAR (CDR (CDR REGS)))))) (ENABLE READ-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM->RAMP-MEM . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM-WRITE-MEM . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READ-REGS . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . READ-REGS=READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . READ-REGS=READ-MEM-WRITE-MEM) (LEMMAS READ-REGS . READ-REGS=READ-MEM-WRITE-MEM))))) (PUT1-LST (QUOTE READ-REGS=READ-MEM) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT MACROCYCLE-INVARIANT==>PC-REG MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) EVENT (PROVE-LEMMA READ-REGS=READ-MEM (REWRITE) (IMPLIES (NOT (CAR (CDR REGS))) (EQUAL (READ-REGS V-ADDR REGS) (READ-MEM V-ADDR (CAR REGS)))) ((ENABLE READ-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . READ-REGS=READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-REGS . READ-REGS=READ-MEM) (LEMMAS READ-REGS . READ-REGS=READ-MEM))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-AFTER-WRITE-REGS) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA ALL-RAMP-MEM-AFTER-WRITE-REGS (REWRITE) (IMPLIES (AND (ALL-RAMP-MEM N (CAR REGS)) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) N)) (ALL-RAMP-MEM N (CAR (WRITE-REGS WE ADDRESS REGS DATA)))) ((ENABLE WRITE-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-MEM . ALL-RAMP-MEM-AFTER-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . ALL-RAMP-MEM-AFTER-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM-AFTER-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-AFTER-WRITE-REGS) (LEMMAS ALL-RAMP-MEM . ALL-RAMP-MEM-AFTER-WRITE-REGS))))) (PUT1-LST (QUOTE READ-REGS-WRITE-REGS-F) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA READ-REGS-WRITE-REGS-F (REWRITE) (IMPLIES (AND (ALL-RAMP-MEM (LENGTH ADDR) (CAR REGS)) (AND (EQUAL (LENGTH ADDR) (LENGTH (CAR (CDR (CDR (CDR REGS)))))) (BVP ADDR))) (EQUAL (READ-REGS ADDR (WRITE-REGS (QUOTE *1*FALSE) ADDRESS REGS VALUE)) (READ-REGS ADDR REGS))) ((ENABLE READ-REGS WRITE-REGS) (USE (READ-MEM-WRITE-MEM (V-ADDR1 ADDR) (V-ADDR2 (CAR (CDR (CDR (CDR REGS))))) (VALUE (CAR (CDR (CDR REGS)))) (MEM (CAR REGS)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM->RAMP-MEM . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 READ-MEM-WRITE-MEM . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 READ-REGS . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 BVP . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 LENGTH . READ-REGS-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . READ-REGS-WRITE-REGS-F) (LEMMAS READ-REGS . READ-REGS-WRITE-REGS-F))))) (PUT1-LST (QUOTE WRITE-REGS-OK) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA WRITE-REGS-OK (REWRITE) (AND (EQUAL (MEMORY-OKP N M (CAR (WRITE-REGS WE ADDRESS REGS DATA))) (IF (CAR (CDR REGS)) (MEMORY-OKP N M (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS))))) (MEMORY-OKP N M (CAR REGS)))) (AND (EQUAL (BOOLP (CAR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))) (BOOLP WE)) (AND (EQUAL (BVP (CAR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA))))) (IF WE (BVP DATA) (BVP (CAR (CDR (CDR REGS)))))) (AND (EQUAL (LENGTH (CAR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA))))) (IF WE (LENGTH DATA) (LENGTH (CAR (CDR (CDR REGS)))))) (AND (EQUAL (BVP (CAR (CDR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))))) (IF WE (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR REGS))))))) (EQUAL (LENGTH (CAR (CDR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))))) (IF WE (LENGTH ADDRESS) (LENGTH (CAR (CDR (CDR (CDR REGS)))))))))))) ((ENABLE WRITE-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . WRITE-REGS-OK) (IMMEDIATE-DEPENDENTS0 BVP . WRITE-REGS-OK) (IMMEDIATE-DEPENDENTS0 BOOLP . WRITE-REGS-OK) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-REGS-OK) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE-REGS-OK) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . WRITE-REGS-OK) (LEMMAS LENGTH . WRITE-REGS-OK) (LEMMAS BVP . WRITE-REGS-OK) (LEMMAS LENGTH . WRITE-REGS-OK) (LEMMAS BVP . WRITE-REGS-OK) (LEMMAS BOOLP . WRITE-REGS-OK) (LEMMAS MEMORY-OKP . WRITE-REGS-OK))))) (PUT1-LST (QUOTE WRITE-REGS-IF) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA WRITE-REGS-IF (REWRITE) (EQUAL (WRITE-REGS (IF C A B) ADDRESS REGS DATA) (IF C (WRITE-REGS A ADDRESS REGS DATA) (WRITE-REGS B ADDRESS REGS DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE-REGS-IF) (LEMMAS WRITE-REGS . WRITE-REGS-IF))))) (PUT1-LST (QUOTE PROPERP-LENGTH-WRITE-REGS) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA PROPERP-LENGTH-WRITE-REGS (REWRITE) (AND (PROPERP (WRITE-REGS WE ADDRESS REGS DATA)) (EQUAL (LENGTH (WRITE-REGS WE ADDRESS REGS DATA)) (QUOTE 4))) ((ENABLE WRITE-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-IF . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . PROPERP-LENGTH-WRITE-REGS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-WRITE-REGS) (LEMMAS LENGTH . PROPERP-LENGTH-WRITE-REGS) (LEMMAS PROPERP . PROPERP-LENGTH-WRITE-REGS))))) (PUT1-LST (QUOTE WRITE-REGS-F-BV-CROCK) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA WRITE-REGS-F-BV-CROCK (REWRITE) (EQUAL (WRITE-REGS (QUOTE *1*FALSE) ADDR REGS (BV X)) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0))) ((ENABLE WRITE-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV . WRITE-REGS-F-BV-CROCK) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE-REGS-F-BV-CROCK) (LEMMAS WRITE-REGS . WRITE-REGS-F-BV-CROCK))))) (PUT1-LST (QUOTE WRITE-REGS-F-WRITE-REGS-F) (QUOTE (IDATE 1000402194133 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA WRITE-REGS-F-WRITE-REGS-F (REWRITE) (EQUAL (WRITE-REGS (QUOTE *1*FALSE) ADDR1 (WRITE-REGS (QUOTE *1*FALSE) ADDR2 REGS DATA2) DATA1) (WRITE-REGS (QUOTE *1*FALSE) ADDR1 REGS DATA1)) ((ENABLE WRITE-REGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . WRITE-REGS-F-WRITE-REGS-F) (IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE-REGS-F-WRITE-REGS-F) (LEMMAS WRITE-REGS . WRITE-REGS-F-WRITE-REGS-F))))) (PUT1-LST (QUOTE WRITE-REGS-OFF) (QUOTE (IDATE 1000402194133 EVENT (TOGGLE WRITE-REGS-OFF WRITE-REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-REGS . WRITE-REGS-OFF) (DISABLED-LEMMAS NIL WRITE-REGS WRITE-REGS-OFF . T))))) (PUT1-LST (QUOTE *1*WRITE-REGS) (QUOTE (MAIN-EVENT WRITE-REGS))) (PUT1-LST (QUOTE WRITE-REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-REGS 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-REGS-IF NIL (EQUAL (WRITE-REGS (IF C A B) ADDRESS REGS DATA) (IF C (WRITE-REGS A ADDRESS REGS DATA) (WRITE-REGS B ADDRESS REGS DATA))) NIL) (REWRITE-RULE WRITE-REGS-F-BV-CROCK NIL (EQUAL (WRITE-REGS (QUOTE *1*FALSE) ADDR REGS (BV X)) (WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) REGS (QUOTE 0))) NIL) (REWRITE-RULE WRITE-REGS-F-WRITE-REGS-F NIL (EQUAL (WRITE-REGS (QUOTE *1*FALSE) ADDR1 (WRITE-REGS (QUOTE *1*FALSE) ADDR2 REGS DATA2) DATA1) (WRITE-REGS (QUOTE *1*FALSE) ADDR1 REGS DATA1)) NIL)) TOTALP-LST ((WRITE-REGS . T)) SDEFN (LAMBDA (WE ADDRESS REGS DATA) (IF (CAR (CDR REGS)) (IF WE (CONS (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS)))) (CONS WE (CONS DATA (CONS ADDRESS (QUOTE NIL))))) (CONS (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS)))) (CONS (QUOTE *1*FALSE) (CONS (CAR (CDR (CDR REGS))) (CONS (CAR (CDR (CDR (CDR REGS)))) (QUOTE NIL)))))) (IF WE (CONS (CAR REGS) (CONS WE (CONS DATA (CONS ADDRESS (QUOTE NIL))))) (CONS (CAR REGS) (CONS (QUOTE *1*FALSE) (CONS (CAR (CDR (CDR REGS))) (CONS (CAR (CDR (CDR (CDR REGS)))) (QUOTE NIL)))))))) LISP-CODE *1*WRITE-REGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194133 SATELLITES (*1*WRITE-REGS) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP WRITE3$INDUCTION READB3$PROGRESS READB3$PROGRESS-HELP READB3$INDUCTION READA3$PROGRESS READA3$PROGRESS-HELP READA3$INDUCTION FETCH3$PROGRESS FETCH3$PROGRESS-HELP FETCH3$INDUCTION SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$WRITE-REGS=WRITE-REGS ALL-RAMP-MEM-AFTER-WRITE-REGS READ-REGS-WRITE-REGS-F WRITE-REGS-OK WRITE-REGS-IF PROPERP-LENGTH-WRITE-REGS WRITE-REGS-F-BV-CROCK WRITE-REGS-F-WRITE-REGS-F WRITE-REGS-OFF) EVENT (DEFN WRITE-REGS (WE ADDRESS REGS DATA) (CONS (IF (CAR (CDR REGS)) (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS)))) (CAR REGS)) (CONS WE (CONS (IF WE DATA (CAR (CDR (CDR REGS)))) (CONS (IF WE ADDRESS (CAR (CDR (CDR (CDR REGS))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-REGS) (DCELL . *1*WRITE-REGS))))) (PUT1-LST (QUOTE READ-REGS-OFF) (QUOTE (IDATE 1000402194133 EVENT (TOGGLE READ-REGS-OFF READ-REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-REGS . READ-REGS-OFF) (DISABLED-LEMMAS NIL READ-REGS READ-REGS-OFF . T))))) (PUT1-LST (QUOTE *1*READ-REGS) (QUOTE (MAIN-EVENT READ-REGS))) (PUT1-LST (QUOTE READ-REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-REGS -1 NIL NIL)) LEMMAS ((REWRITE-RULE READ-REGS=READ-MEM-WRITE-MEM ((ALL-RAMP-MEM (LENGTH V-ADDR1) (CAR REGS)) (EQUAL (LENGTH V-ADDR1) (LENGTH (CAR (CDR (CDR (CDR REGS)))))) (CAR (CDR REGS))) (EQUAL (READ-REGS V-ADDR1 REGS) (READ-MEM V-ADDR1 (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS)))))) NIL) (REWRITE-RULE READ-REGS=READ-MEM ((NOT (CAR (CDR REGS)))) (EQUAL (READ-REGS V-ADDR REGS) (READ-MEM V-ADDR (CAR REGS))) NIL) (REWRITE-RULE READ-REGS-WRITE-REGS-F ((ALL-RAMP-MEM (LENGTH ADDR) (CAR REGS)) (EQUAL (LENGTH ADDR) (LENGTH (CAR (CDR (CDR (CDR REGS)))))) (BVP ADDR)) (EQUAL (READ-REGS ADDR (WRITE-REGS (QUOTE *1*FALSE) ADDRESS REGS VALUE)) (READ-REGS ADDR REGS)) NIL)) TOTALP-LST ((READ-REGS . T)) SDEFN (LAMBDA (ADDRESS REGS) (IF (CAR (CDR REGS)) (IF (V-IFF ADDRESS (CAR (CDR (CDR (CDR REGS))))) (CAR (CDR (CDR REGS))) (READ-MEM ADDRESS (CAR REGS))) (READ-MEM ADDRESS (CAR REGS)))) LISP-CODE *1*READ-REGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194133 SATELLITES (*1*READ-REGS) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MACROCYCLE-INVARIANT SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 READB3$PROGRESS READB3$PROGRESS-HELP READB3$INDUCTION READA3$PROGRESS READA3$PROGRESS-HELP READA3$INDUCTION FETCH3$PROGRESS FETCH3$PROGRESS-HELP FETCH3$INDUCTION SEFB0$STEP SEFA0$STEP WRITE0$STEP READB3$STEP1 READB1$STEP READB0$STEP READA3$STEP1 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP FETCH3$STEP1 FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$READ-REGS=READ-REGS BVP-LENGTH-READ-REGS-32 READ-REGS=READ-MEM-WRITE-MEM READ-REGS=READ-MEM READ-REGS-WRITE-REGS-F READ-REGS-OFF) EVENT (DEFN READ-REGS (ADDRESS REGS) (IF (AND (CAR (CDR REGS)) (V-IFF ADDRESS (CAR (CDR (CDR (CDR REGS)))))) (CAR (CDR (CDR REGS))) (READ-MEM ADDRESS (CAR REGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . READ-REGS) (IMMEDIATE-DEPENDENTS0 V-IFF . READ-REGS) (DCELL . *1*READ-REGS))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$V11111) (QUOTE (IDATE 1000402194133 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$V11111 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11111) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 V_RESET0 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11111) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$V11111) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11111))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$RESET2) (QUOTE (IDATE 1000402194133 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$RESET2 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET2) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V-INC . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 CV_RESET2 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 V_RESET2 . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$RESET2) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET2))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$RESET1) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$RESET1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 V_RESET2 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 CV_RESET2 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 V_RESET1 . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$RESET1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$RESET0) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$RESET0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 V_RESET1 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 CV_RESET1 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 V_RESET0 . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$RESET0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$RESET0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$V11011) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$V11011 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11011) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 V_RESET0 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 V_V11011 . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11011) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$V11011) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11011))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$V11010) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$V11010 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11010) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 V_RESET0 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 V_V11010 . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11010) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$V11010) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$V11010))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$HOLD1) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$HOLD1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_HOLD1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$HOLD1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$HOLD1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$HOLD1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$HOLD0) (QUOTE (IDATE 1000402194132 EVENT (PROVE-LEMMA NEXT-CNTL-STATE$HOLD0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_HOLD0) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* HOLD- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 CV_HOLD1 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$HOLD0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$HOLD0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$HOLD0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$SEFB1) (QUOTE (IDATE 1000402194131 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$SEFB1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFB1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFB1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$SEFB1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFB1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$SEFB0) (QUOTE (IDATE 1000402194131 IMMEDIATE-DEPENDENTS0 (SEFB0$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$SEFB0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFB0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFB0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$SEFB0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFB0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$SEFA1) (QUOTE (IDATE 1000402194131 IMMEDIATE-DEPENDENTS0 (SEFA1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$SEFA1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFA1) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 POST-INC-P . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFA1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$SEFA1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFA1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$SEFA0) (QUOTE (IDATE 1000402194131 IMMEDIATE-DEPENDENTS0 (SEFA0$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$SEFA0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFA0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFA0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$SEFA0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$SEFA0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$WRITE3) (QUOTE (IDATE 1000402194130 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE3$STEP0) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$WRITE3 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE3) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$WRITE3) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE3))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$WRITE2) (QUOTE (IDATE 1000402194130 IMMEDIATE-DEPENDENTS0 (WRITE2$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$WRITE2 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$WRITE2) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE2))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$WRITE1) (QUOTE (IDATE 1000402194130 IMMEDIATE-DEPENDENTS0 (WRITE1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$WRITE1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$WRITE1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$WRITE0) (QUOTE (IDATE 1000402194130 IMMEDIATE-DEPENDENTS0 (WRITE0$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$WRITE0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$WRITE0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$WRITE0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READB3) (QUOTE (IDATE 1000402194129 IMMEDIATE-DEPENDENTS0 (READB3$STEP1 READB3$STEP0) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READB3 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG))))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V_UPDATE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV_READB3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 V_READB3 . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB3) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READB3) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB3))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READB2) (QUOTE (IDATE 1000402194129 IMMEDIATE-DEPENDENTS0 (READB2$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READB2 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 V_READB3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 CV_READB3 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 V_READB2 . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READB2) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB2))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READB1) (QUOTE (IDATE 1000402194129 IMMEDIATE-DEPENDENTS0 (READB1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READB1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT* . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 AND* . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 REWRITE-NOT* . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 V_READB2 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 CV_READB2 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 V_READB1 . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READB1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READB0) (QUOTE (IDATE 1000402194129 IMMEDIATE-DEPENDENTS0 (READB0$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READB0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 V_READB1 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 CV_READB1 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 V_READB0 . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READB0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READB0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READA3) (QUOTE (IDATE 1000402194128 IMMEDIATE-DEPENDENTS0 (READA3$STEP1 READA3$STEP0) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READA3 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 REG-DIRECT->NOT-REG-INDIRECT . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V_UPDATE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V_READB0 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV_READB0 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV_READA3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 V_READA3 . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA3) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READA3) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA3))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READA2) (QUOTE (IDATE 1000402194128 IMMEDIATE-DEPENDENTS0 (READA2$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READA2 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 V_READA3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 CV_READA3 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 V_READA2 . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READA2) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA2))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READA1) (QUOTE (IDATE 1000402194127 IMMEDIATE-DEPENDENTS0 (READA1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READA1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 V_READA2 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 CV_READA2 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 V_READA1 . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READA1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$READA0) (QUOTE (IDATE 1000402194127 IMMEDIATE-DEPENDENTS0 (READA0$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$READA0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 V_READA1 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 CV_READA1 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 V_READA0 . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$READA0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$READA0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$UPDATE) (QUOTE (IDATE 1000402194127 IMMEDIATE-DEPENDENTS0 (UPDATE$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$UPDATE (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_UPDATE) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-OR* . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 REWRITE-AND* . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-IF . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 AND* . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 V_UPDATE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$UPDATE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$UPDATE) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$UPDATE))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$REGB) (QUOTE (IDATE 1000402194126 IMMEDIATE-DEPENDENTS0 (REGB$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$REGB (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_REGB) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 V_UPDATE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 V_REGB . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$REGB) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$REGB) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$REGB))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$REGA) (QUOTE (IDATE 1000402194126 IMMEDIATE-DEPENDENTS0 (REGA$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$REGA (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_REGA) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG))))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 REG-DIRECT->NOT-REG-INDIRECT . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V_UPDATE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V_REGB . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV_REGB . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 V_REGA . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$REGA) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$REGA) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$REGA))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$DECODE) (QUOTE (IDATE 1000402194125 IMMEDIATE-DEPENDENTS0 (DECODE$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$DECODE (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_DECODE) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (OR* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (OR* (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 REG-DIRECT->NOT-REG-INDIRECT . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 REWRITE-OR* . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_REGA . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_READB0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_READA0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 NOT* . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 AND* . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_READA0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_READB0 . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV_REGA . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 V_DECODE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$DECODE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$DECODE) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$DECODE))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$FETCH3) (QUOTE (IDATE 1000402194122 IMMEDIATE-DEPENDENTS0 (FETCH3$STEP1 FETCH3$STEP0) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$FETCH3 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 V_DECODE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 CV_DECODE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH3) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$FETCH3) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH3))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$FETCH2) (QUOTE (IDATE 1000402194121 IMMEDIATE-DEPENDENTS0 (FETCH2$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$FETCH2 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH2) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$FETCH2) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH2))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$FETCH1) (QUOTE (IDATE 1000402194121 IMMEDIATE-DEPENDENTS0 (FETCH1$STEP) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$FETCH1 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH1) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* HOLD- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 IF*-CONS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 IF* . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$FETCH1) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH1))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$FETCH0) (QUOTE (IDATE 1000402194121 IMMEDIATE-DEPENDENTS0 (FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$FETCH0 (REWRITE) (IMPLIES (AND (EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE-THEORY VECTOR-STATE-THEORY CV-THEORY IR-FIELDS-THEORY) (ENABLE CV NEXT-CNTL-STATE IF*) (DISABLE *1*CARRY-IN-HELP *1*MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR3 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR8 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR5 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR6 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR4 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOR . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-OR3 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-OR4 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BV2P . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 CV-THEORY . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH0) (IMMEDIATE-DEPENDENTS0 CV-HYPS . NEXT-CNTL-STATE$FETCH0) (LEMMAS NEXT-CNTL-STATE . NEXT-CNTL-STATE$FETCH0))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$VALUE-OFF) (QUOTE (IDATE 1000402194121 EVENT (TOGGLE NEXT-CNTL-STATE$VALUE-OFF NEXT-CNTL-STATE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$VALUE . NEXT-CNTL-STATE$VALUE-OFF) (DISABLED-LEMMAS NIL NEXT-CNTL-STATE$VALUE NEXT-CNTL-STATE$VALUE-OFF . T))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$VALUE) (QUOTE (IDATE 1000402194121 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE-OFF) EVENT (PROVE-LEMMA NEXT-CNTL-STATE$VALUE (REWRITE) (IMPLIES (AND (NEXT-CNTL-STATE& NETLIST) (AND (PROPERP STATE) (AND (EQUAL (LENGTH STATE) (QUOTE 5)) (AND (PROPERP I-REG) (AND (EQUAL (LENGTH I-REG) (QUOTE 32)) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (PROPERP PC-REG) (AND (EQUAL (LENGTH PC-REG) (QUOTE 4)) (AND (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)))))))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE NEXT-CNTL-STATE) (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS RW- (APPEND STATE (APPEND I-REG (APPEND FLAGS (APPEND PC-REG REGS-ADDRESS)))))))) DUAL-EVAL-STATE NETLIST) (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS))) ((ENABLE NEXT-CNTL-STATE& F$NEXT-CNTL-STATE CONTROL-LET$VALUE B-NOT$VALUE FANOUT-5$VALUE V-OR$VALUE DECODE-5$VALUE NEXT-STATE$VALUE CV$VALUE C-FLAG V_V11111) (ENABLE-THEORY IR-FIELDS-THEORY) (DISABLE INDICES *1*INDICES OPEN-INDICES DECODE-5 *1*DECODE-5 CV *1*CV F$NEXT-STATE *1*F$NEXT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 CONTROL-LET$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-5$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 V-OR$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-FV-OR . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-5$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$DECODE-5 . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$NEXT-STATE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-SUBRANGE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-SUBRANGE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 CV$VALUE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$CV . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND8 . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND6 . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE* . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . NEXT-CNTL-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE& . NEXT-CNTL-STATE$VALUE) (LEMMAS DUAL-EVAL . NEXT-CNTL-STATE$VALUE))))) (PUT1-LST (QUOTE CHECK-NEXT-CNTL-STATE$NETLIST) (QUOTE (IDATE 1000402194120 EVENT (PROVE-LEMMA CHECK-NEXT-CNTL-STATE$NETLIST NIL (NEXT-CNTL-STATE& (NEXT-CNTL-STATE$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDICES . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 RN-A . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 RN-B . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 OP-CODE . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 STORE-CC . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MODE-A . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MODE-B . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 C-FLAG . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-OR* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 INDEX . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-GEN$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-EQUV$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR8$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR6$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR5$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR3$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CV* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CV$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND3$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND6$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND5$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 VSS$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-STATE* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-STATE$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-5* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-5$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-OR$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NBUF$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-5* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-5$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR4$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 AO2$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CONTROL-LET* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CONTROL-LET$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND8 . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND6 . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE* . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE$NETLIST . CHECK-NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE& . CHECK-NEXT-CNTL-STATE$NETLIST))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE$NETLIST) (QUOTE (MAIN-EVENT NEXT-CNTL-STATE$NETLIST))) (PUT1-LST (QUOTE NEXT-CNTL-STATE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-CNTL-STATE$NETLIST 16)) TOTALP-LST ((NEXT-CNTL-STATE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (NEXT-CNTL-STATE*) (UNION (UNION (UNION (UNION (CONTROL-LET$NETLIST) (B-NOT$NETLIST)) (UNION (FANOUT-5$NETLIST) (V-OR$NETLIST (QUOTE 5)))) (UNION (DECODE-5$NETLIST) (NEXT-STATE$NETLIST))) (CV$NETLIST)))) LISP-CODE *1*NEXT-CNTL-STATE$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194120 SATELLITES (*1*NEXT-CNTL-STATE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST) EVENT (DEFN NEXT-CNTL-STATE$NETLIST NIL (CONS (NEXT-CNTL-STATE*) (UNION (UNION (UNION (UNION (CONTROL-LET$NETLIST) (B-NOT$NETLIST)) (UNION (FANOUT-5$NETLIST) (V-OR$NETLIST (QUOTE 5)))) (UNION (DECODE-5$NETLIST) (NEXT-STATE$NETLIST))) (CV$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-STATE$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-5$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-OR$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-5$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 CONTROL-LET$NETLIST . NEXT-CNTL-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE* . NEXT-CNTL-STATE$NETLIST) (DCELL . *1*NEXT-CNTL-STATE$NETLIST))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE&-OFF) (QUOTE (IDATE 1000402194120 EVENT (TOGGLE NEXT-CNTL-STATE&-OFF NEXT-CNTL-STATE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE& . NEXT-CNTL-STATE&-OFF) (DISABLED-LEMMAS NIL NEXT-CNTL-STATE& NEXT-CNTL-STATE&-OFF . T))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE&) (QUOTE (MAIN-EVENT NEXT-CNTL-STATE&))) (PUT1-LST (QUOTE NEXT-CNTL-STATE&) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-CNTL-STATE& 3 NIL)) TOTALP-LST ((NEXT-CNTL-STATE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST) (NEXT-CNTL-STATE*)) (IF (CONTROL-LET& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (IF (FANOUT-5& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (IF (V-OR& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST) (QUOTE 5)) (IF (DECODE-5& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (IF (NEXT-STATE& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (CV& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*NEXT-CNTL-STATE& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194120 SATELLITES (*1*NEXT-CNTL-STATE&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE&-OFF) EVENT (DEFN NEXT-CNTL-STATE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST) (NEXT-CNTL-STATE*)) (AND (CONTROL-LET& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (AND (FANOUT-5& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (AND (V-OR& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST) (QUOTE 5)) (AND (DECODE-5& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (AND (NEXT-STATE& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)) (CV& (DELETE-MODULE (QUOTE NEXT-CNTL-STATE) NETLIST)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 NEXT-STATE& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 DECODE-5& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 V-OR& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 FANOUT-5& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 B-NOT& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 CONTROL-LET& . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE* . NEXT-CNTL-STATE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . NEXT-CNTL-STATE&) (DCELL . *1*NEXT-CNTL-STATE&))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE*) (QUOTE (MAIN-EVENT NEXT-CNTL-STATE*))) (PUT1-LST (QUOTE NEXT-CNTL-STATE*) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-CNTL-STATE* 16)) TOTALP-LST ((NEXT-CNTL-STATE* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE NEXT-CNTL-STATE) (CONS (APPEND6 (QUOTE (RESET- DTACK- HOLD- RW-)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (CONS (INDICES (QUOTE NEXT-CNTL-STATE) (QUOTE 0) (QUOTE 40)) (CONS (CONS (CONS (QUOTE CONTROL-SIGNALS) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (QUOTE CONTROL-LET) (CONS (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (NOT-RESET (RESET) B-NOT (RESET-))) (CONS (CONS (QUOTE RESET5X) (CONS (INDICES (QUOTE RESET5X) (QUOTE 0) (QUOTE 5)) (QUOTE (FANOUT-5 (RESET))))) (CONS (CONS (QUOTE XSTATE) (CONS (INDICES (QUOTE XSTATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX V-OR 5)) (CONS (APPEND (INDICES (QUOTE RESET5X) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5))) (QUOTE NIL))))) (CONS (CONS (QUOTE DSTATE) (CONS (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DECODE-5) (CONS (INDICES (QUOTE XSTATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE NXSTATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE NEXT-STATE) (CONS (APPEND (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVECTOR) (CONS (INDICES (QUOTE NEXT-CNTL-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE CV) (CONS (APPEND8 (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 32)) (RN-A (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (RN-B (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (OP-CODE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (SET-FLAGS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE (NIL))))))) LISP-CODE *1*NEXT-CNTL-STATE* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194120 SATELLITES (*1*NEXT-CNTL-STATE*) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE&) EVENT (DEFN NEXT-CNTL-STATE* NIL (CONS (QUOTE NEXT-CNTL-STATE) (CONS (APPEND6 (QUOTE (RESET- DTACK- HOLD- RW-)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (CONS (INDICES (QUOTE NEXT-CNTL-STATE) (QUOTE 0) (QUOTE 40)) (CONS (CONS (CONS (QUOTE CONTROL-SIGNALS) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (QUOTE CONTROL-LET) (CONS (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (NOT-RESET (RESET) B-NOT (RESET-))) (CONS (CONS (QUOTE RESET5X) (CONS (INDICES (QUOTE RESET5X) (QUOTE 0) (QUOTE 5)) (QUOTE (FANOUT-5 (RESET))))) (CONS (CONS (QUOTE XSTATE) (CONS (INDICES (QUOTE XSTATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX V-OR 5)) (CONS (APPEND (INDICES (QUOTE RESET5X) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5))) (QUOTE NIL))))) (CONS (CONS (QUOTE DSTATE) (CONS (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DECODE-5) (CONS (INDICES (QUOTE XSTATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE NXSTATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE NEXT-STATE) (CONS (APPEND (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVECTOR) (CONS (INDICES (QUOTE NEXT-CNTL-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE CV) (CONS (APPEND8 (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 32)) (RN-A (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (RN-B (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (OP-CODE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (SET-FLAGS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 APPEND8 . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 INDEX . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 INDICES . NEXT-CNTL-STATE*) (IMMEDIATE-DEPENDENTS0 APPEND6 . NEXT-CNTL-STATE*) (DCELL . *1*NEXT-CNTL-STATE*))))) (PUT1-LST (QUOTE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (QUOTE (IDATE 1000402194120 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$NEXT-CNTL-STATE=NEXT-CNTL-STATE (REWRITE) (IMPLIES (AND (BOOLP RESET-) (AND (BOOLP DTACK-) (AND (BOOLP HOLD-) (AND (BOOLP RW-) (AND (BVP STATE) (AND (EQUAL (LENGTH STATE) (QUOTE 5)) (AND (BVP I-REG) (AND (EQUAL (LENGTH I-REG) (QUOTE 32)) (AND (BVP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (BVP PC-REG) (AND (EQUAL (LENGTH PC-REG) (QUOTE 4)) (AND (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))))))))))))))) (EQUAL (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS))) ((ENABLE F$NEXT-CNTL-STATE NEXT-CNTL-STATE BOOLP-B-GATES FV-IF-REWRITE V_V11111 V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (DISABLE NEXT-STATE) (ENABLE-THEORY IR-FIELDS-THEORY) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V-OR-CROCK-FOR-F$NEXT-CNTL-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 DECODE-5 . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$CV=CV . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-NEXT-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-C-FLAG . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-B . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-A . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-STATE=NEXT-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-DECODE-5 . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$CONTROL-LET=CONTROL-LET . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 MODE-B . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 MODE-A . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 STORE-CC . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$DECODE-5=DECODE-5 . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-V-OR . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-OR . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 FV-OR=V-OR . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NOT . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BV2P . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V_V11111 . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) (LEMMAS F$NEXT-CNTL-STATE . F$NEXT-CNTL-STATE=NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF) (QUOTE (IDATE 1000402194119 EVENT (TOGGLE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF V-OR-CROCK-FOR-F$NEXT-CNTL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR-CROCK-FOR-F$NEXT-CNTL-STATE . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF) (DISABLED-LEMMAS NIL V-OR-CROCK-FOR-F$NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF . T))))) (PUT1-LST (QUOTE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (QUOTE (IDATE 1000402194119 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE-OFF) EVENT (PROVE-LEMMA V-OR-CROCK-FOR-F$NEXT-CNTL-STATE (REWRITE) (IMPLIES (AND (EQUAL (LENGTH STATE) (QUOTE 5)) (BVP STATE)) (AND (EQUAL (V-OR (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) STATE) STATE) (EQUAL (V-OR (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) STATE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))))) ((ENABLE V-OR EQUAL-LENGTH-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-OR . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V-OR . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (LEMMAS V-OR . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE) (LEMMAS V-OR . V-OR-CROCK-FOR-F$NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$NEXT-CNTL-STATE) (QUOTE (IDATE 1000402194118 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$NEXT-CNTL-STATE (REWRITE) (AND (EQUAL (LENGTH (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) (QUOTE 40)) (PROPERP (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS))) ((ENABLE F$NEXT-CNTL-STATE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$NEXT-STATE . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$CV . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (LEMMAS PROPERP . PROPERP-LENGTH-F$NEXT-CNTL-STATE) (LEMMAS LENGTH . PROPERP-LENGTH-F$NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE F$NEXT-CNTL-STATE-OFF) (QUOTE (IDATE 1000402194118 EVENT (TOGGLE F$NEXT-CNTL-STATE-OFF F$NEXT-CNTL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$NEXT-CNTL-STATE . F$NEXT-CNTL-STATE-OFF) (DISABLED-LEMMAS NIL F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*F$NEXT-CNTL-STATE) (QUOTE (MAIN-EVENT F$NEXT-CNTL-STATE))) (PUT1-LST (QUOTE F$NEXT-CNTL-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$NEXT-CNTL-STATE 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE ((BOOLP RESET-) (BOOLP DTACK-) (BOOLP HOLD-) (BOOLP RW-) (BVP STATE) (EQUAL (LENGTH STATE) (QUOTE 5)) (BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32)) (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (BVP PC-REG) (EQUAL (LENGTH PC-REG) (QUOTE 4)) (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) NIL)) TOTALP-LST ((F$NEXT-CNTL-STATE . T)) SDEFN (LAMBDA (RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (F$CV (F$NEXT-STATE (F$DECODE-5 (FV-OR (MAKE-LIST (QUOTE 5) (F-NOT RESET-)) STATE)) (CAR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))) (CAR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))) (CAR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))) (CAR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))) (CAR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))) DTACK- HOLD-) (RN-A I-REG) (RN-B I-REG) (OP-CODE I-REG) PC-REG REGS-ADDRESS (SET-FLAGS I-REG) (CAR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))) (CAR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)) RW- (CAR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))) LISP-CODE *1*F$NEXT-CNTL-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194118 SATELLITES (*1*F$NEXT-CNTL-STATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE PROPERP-LENGTH-F$NEXT-CNTL-STATE F$NEXT-CNTL-STATE-OFF) EVENT (DEFN F$NEXT-CNTL-STATE (RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (F$CV (F$NEXT-STATE (F$DECODE-5 (FV-OR (MAKE-LIST (QUOTE 5) (F-NOT RESET-)) STATE)) (CAR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))) (CAR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))) (CAR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))) (CAR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))) (CAR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))) DTACK- HOLD-) (RN-A I-REG) (RN-B I-REG) (OP-CODE I-REG) PC-REG REGS-ADDRESS (SET-FLAGS I-REG) (CAR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))) (CAR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)) RW- (CAR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-FLAGS . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-B . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-A . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$CONTROL-LET . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 FV-OR . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$DECODE-5 . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-STATE . F$NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 F$CV . F$NEXT-CNTL-STATE) (DCELL . *1*F$NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE BVP-LENGTH-NEXT-CNTL-STATE) (QUOTE (IDATE 1000402194118 EVENT (PROVE-LEMMA BVP-LENGTH-NEXT-CNTL-STATE (REWRITE) (AND (EQUAL (LENGTH (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) (QUOTE 40)) (BVP (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS))) ((ENABLE NEXT-CNTL-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-DECODE-5 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-AND4 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-OR . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-AND3 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND5 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND6 . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 VSS . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CV . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . BVP-LENGTH-NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-NEXT-CNTL-STATE) (LEMMAS BVP . BVP-LENGTH-NEXT-CNTL-STATE) (LEMMAS LENGTH . BVP-LENGTH-NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE NEXT-CNTL-STATE-OFF) (QUOTE (IDATE 1000402194118 EVENT (TOGGLE NEXT-CNTL-STATE-OFF NEXT-CNTL-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-CNTL-STATE . NEXT-CNTL-STATE-OFF) (DISABLED-LEMMAS NIL NEXT-CNTL-STATE NEXT-CNTL-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE) (QUOTE (MAIN-EVENT NEXT-CNTL-STATE))) (PUT1-LST (QUOTE NEXT-CNTL-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-CNTL-STATE 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE NEXT-CNTL-STATE$V11111 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11111) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$RESET2 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET2) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$RESET1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$RESET0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_RESET0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$V11011 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11011) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$V11010 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_V11010) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$HOLD1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_HOLD1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$HOLD0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_HOLD0) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* HOLD- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$SEFB1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFB1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$SEFB0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFB0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$SEFA1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFA1) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$SEFA0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_SEFA0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$WRITE3 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$WRITE2 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$WRITE1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$WRITE0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_WRITE0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READB3 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READB2 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READB1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READB0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READB0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READA3 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (REG-DIRECT-P (MODE-B I-REG)) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READA2 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READA1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA1) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$READA0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_READA0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$UPDATE ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_UPDATE) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (AND* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$REGB ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_REGB) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$REGA ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_REGA) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (REG-DIRECT-P (MODE-B I-REG)) (IF* (UNARY-OP-CODE-P (OP-CODE I-REG)) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$DECODE ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_DECODE) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* (OR* (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG))) (IF* (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (IF* (OR* (REG-DIRECT-P (MODE-B I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG))) (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF* (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$FETCH3 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH3) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* DTACK- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$FETCH2 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH2) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$FETCH1 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH1) I-REG FLAGS PC-REG REGS-ADDRESS) (IF* HOLD- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) NIL) (REWRITE-RULE NEXT-CNTL-STATE$FETCH0 ((EQUAL RESET- (QUOTE *1*TRUE)) (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- (V_FETCH0) I-REG FLAGS PC-REG REGS-ADDRESS) (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL)) TOTALP-LST ((NEXT-CNTL-STATE . T)) SDEFN (LAMBDA (RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (CV (NEXT-STATE (DECODE-5 (V-IF RESET- STATE (V_V11111))) (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG)) (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (REG-DIRECT-P (MODE-B I-REG)) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) DTACK- HOLD-) (RN-A I-REG) (RN-B I-REG) (OP-CODE I-REG) PC-REG REGS-ADDRESS (SET-FLAGS I-REG) (STORE-RESULTP (STORE-CC I-REG) FLAGS) (C-FLAG FLAGS) (A-IMMEDIATE-P I-REG) RW- (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (PRE-DEC-P (MODE-A I-REG)) (PRE-DEC-P (MODE-B I-REG)))) LISP-CODE *1*NEXT-CNTL-STATE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194118 SATELLITES (*1*NEXT-CNTL-STATE) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE NEXT-CNTL-STATE-OFF) EVENT (DEFN NEXT-CNTL-STATE (RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS) (CV (NEXT-STATE (DECODE-5 (V-IF RESET- STATE (V_V11111))) (STORE-RESULTP (STORE-CC I-REG) FLAGS) (SET-SOME-FLAGS (SET-FLAGS I-REG)) (UNARY-OP-CODE-P (OP-CODE I-REG)) (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (REG-DIRECT-P (MODE-B I-REG)) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) DTACK- HOLD-) (RN-A I-REG) (RN-B I-REG) (OP-CODE I-REG) PC-REG REGS-ADDRESS (SET-FLAGS I-REG) (STORE-RESULTP (STORE-CC I-REG) FLAGS) (C-FLAG FLAGS) (A-IMMEDIATE-P I-REG) RW- (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (PRE-DEC-P (MODE-A I-REG)) (PRE-DEC-P (MODE-B I-REG)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-FLAG . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-B . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 RN-A . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 NOT* . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 AND* . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 MODE-B . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 MODE-A . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 OR* . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 STORE-CC . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V_V11111 . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 V-IF . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 DECODE-5 . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . NEXT-CNTL-STATE) (IMMEDIATE-DEPENDENTS0 CV . NEXT-CNTL-STATE) (DCELL . *1*NEXT-CNTL-STATE))))) (PUT1-LST (QUOTE CV$VALUE-OFF) (QUOTE (IDATE 1000402194118 EVENT (TOGGLE CV$VALUE-OFF CV$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV$VALUE . CV$VALUE-OFF) (DISABLED-LEMMAS NIL CV$VALUE CV$VALUE-OFF . T))))) (PUT1-LST (QUOTE CV$VALUE) (QUOTE (IDATE 1000402194118 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE CV$VALUE-OFF) EVENT (PROVE-LEMMA CV$VALUE (REWRITE) (IMPLIES (AND (CV& NETLIST) (AND (PROPERP DECODED-STATE) (AND (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (AND (PROPERP RN-A) (AND (EQUAL (LENGTH RN-A) (QUOTE 4)) (AND (PROPERP RN-B) (AND (EQUAL (LENGTH RN-B) (QUOTE 4)) (AND (PROPERP OP-CODE) (AND (EQUAL (LENGTH OP-CODE) (QUOTE 4)) (AND (PROPERP PC-REG) (AND (EQUAL (LENGTH PC-REG) (QUOTE 4)) (AND (PROPERP REGS-ADDRESS) (AND (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (AND (PROPERP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)))))))))))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CV) (APPEND DECODED-STATE (APPEND RN-A (APPEND RN-B (APPEND OP-CODE (APPEND PC-REG (APPEND REGS-ADDRESS (APPEND SET-FLAGS (CONS STORE (CONS C (CONS A-IMMEDIATE-P (CONS RW- (CONS DIRECT-A (CONS SIDE-EFFECT-A (CONS SIDE-EFFECT-B (CONS PRE-DEC-A (CONS PRE-DEC-B (QUOTE NIL))))))))))))))))) STATE NETLIST) (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) ((ENABLE F$CV CV& ID$VALUE B-NOT$VALUE B-OR$VALUE B-OR3$VALUE B-OR4$VALUE B-NAND$VALUE B-NAND5$VALUE B-NAND3$VALUE B-NOR$VALUE B-NOR3$VALUE B-NOR4$VALUE B-NOR5$VALUE B-NOR6$VALUE B-NOR8$VALUE B-AND$VALUE SELECT-OP-CODE$VALUE TV-IF$VALUE CARRY-IN-HELP$VALUE ENCODE-32$VALUE-ON-A-VECTOR FANOUT-4$VALUE V-INC4$VALUE V-IF-F-4$VALUE MPG$VALUE) (DISABLE F-GATES=B-GATES OPEN-INDICES *1*INDICES INDICES MPG *1*MPG ENCODE-32 *1*ENCODE-32 TREE-NUMBER *1*TREE-NUMBER MAKE-TREE *1*MAKE-TREE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . CV$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CV$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CV$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR4$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR3$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR4$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CV$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CV$VALUE) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR8$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR5$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND5$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR6$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$SELECT-OP-CODE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 ENCODE-32$VALUE-ON-A-VECTOR . CV$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . CV$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-4$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CV$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CV$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 V-INC4$VALUE-AS-V-INC . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$V-INC4$V . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . CV$VALUE) (IMMEDIATE-DEPENDENTS0 V-IF-F-4$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$V-IF-F-4 . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 MPG$VALUE . CV$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$ENCODE-32 . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$MPG . CV$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND6 . CV$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND8 . CV$VALUE) (IMMEDIATE-DEPENDENTS0 CV* . CV$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CV$VALUE) (IMMEDIATE-DEPENDENTS0 F$CV . CV$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CV$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CV$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . CV$VALUE) (IMMEDIATE-DEPENDENTS0 CV& . CV$VALUE) (LEMMAS DUAL-EVAL . CV$VALUE))))) (PUT1-LST (QUOTE CHECK-CV$NETLIST) (QUOTE (IDATE 1000402194116 EVENT (PROVE-LEMMA CHECK-CV$NETLIST NIL (CV& (CV$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDICES . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 INDEX . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND5$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-GEN$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-EQUV$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NBUF$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR8$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR6$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR5$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR4$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR3$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND6 . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 APPEND8 . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CV* . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CV$NETLIST . CHECK-CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CV& . CHECK-CV$NETLIST))))) (PUT1-LST (QUOTE *1*CV$NETLIST) (QUOTE (MAIN-EVENT CV$NETLIST))) (PUT1-LST (QUOTE CV$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CV$NETLIST 16)) TOTALP-LST ((CV$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CV*) (UNION (UNION (UNION (UNION (UNION (ID$NETLIST) (B-NOT$NETLIST)) (UNION (B-OR$NETLIST) (UNION (B-OR3$NETLIST) (B-OR4$NETLIST)))) (UNION (UNION (B-NAND$NETLIST) (B-NAND3$NETLIST)) (UNION (B-NOR$NETLIST) (B-NOR3$NETLIST)))) (UNION (UNION (UNION (B-NOR4$NETLIST) (B-NOR5$NETLIST)) (UNION (B-NOR6$NETLIST) (B-NOR8$NETLIST))) (UNION (UNION (B-AND$NETLIST) (SELECT-OP-CODE$NETLIST)) (UNION (TV-IF$NETLIST (MAKE-TREE (QUOTE 4))) (CARRY-IN-HELP$NETLIST))))) (UNION (UNION (UNION (ENCODE-32$NETLIST) (FANOUT-4$NETLIST)) (UNION (V-INC4$NETLIST) (V-IF-F-4$NETLIST))) (UNION (MPG$NETLIST) (B-NAND5$NETLIST)))))) LISP-CODE *1*CV$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194116 SATELLITES (*1*CV$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST) EVENT (DEFN CV$NETLIST NIL (CONS (CV*) (UNION (UNION (UNION (UNION (UNION (ID$NETLIST) (B-NOT$NETLIST)) (UNION (B-OR$NETLIST) (UNION (B-OR3$NETLIST) (B-OR4$NETLIST)))) (UNION (UNION (B-NAND$NETLIST) (B-NAND3$NETLIST)) (UNION (B-NOR$NETLIST) (B-NOR3$NETLIST)))) (UNION (UNION (UNION (B-NOR4$NETLIST) (B-NOR5$NETLIST)) (UNION (B-NOR6$NETLIST) (B-NOR8$NETLIST))) (UNION (UNION (B-AND$NETLIST) (SELECT-OP-CODE$NETLIST)) (UNION (TV-IF$NETLIST (MAKE-TREE (QUOTE 4))) (CARRY-IN-HELP$NETLIST))))) (UNION (UNION (UNION (ENCODE-32$NETLIST) (FANOUT-4$NETLIST)) (UNION (V-INC4$NETLIST) (V-IF-F-4$NETLIST))) (UNION (MPG$NETLIST) (B-NAND5$NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR8$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR6$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR5$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR4$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR4$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR3$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CV$NETLIST) (IMMEDIATE-DEPENDENTS0 CV* . CV$NETLIST) (DCELL . *1*CV$NETLIST))))) (PUT1-LST (QUOTE CV&-OFF) (QUOTE (IDATE 1000402194116 EVENT (TOGGLE CV&-OFF CV& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV& . CV&-OFF) (DISABLED-LEMMAS NIL CV& CV&-OFF . T))))) (PUT1-LST (QUOTE *1*CV&) (QUOTE (MAIN-EVENT CV&))) (PUT1-LST (QUOTE CV&) (QUOTE (TYPE-PRESCRIPTION-LST ((CV& 3 NIL)) TOTALP-LST ((CV& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CV) NETLIST) (CV*)) (IF (ID& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-OR& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-OR3& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-OR4& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NAND5& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR3& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR4& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR5& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR6& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-NOR8& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (B-AND& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (SELECT-OP-CODE& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (TV-IF& (DELETE-MODULE (QUOTE CV) NETLIST) (MAKE-TREE (QUOTE 4))) (IF (CARRY-IN-HELP& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (ENCODE-32& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (FANOUT-4& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (V-INC4& (DELETE-MODULE (QUOTE CV) NETLIST)) (IF (V-IF-F-4& (DELETE-MODULE (QUOTE CV) NETLIST)) (MPG& (DELETE-MODULE (QUOTE CV) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CV& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194116 SATELLITES (*1*CV&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& CV$VALUE CHECK-CV$NETLIST CV&-OFF) EVENT (DEFN CV& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CV) NETLIST) (CV*)) (AND (ID& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-OR& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-OR3& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-OR4& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NAND5& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR3& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR4& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR5& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR6& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-NOR8& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (B-AND& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (SELECT-OP-CODE& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (TV-IF& (DELETE-MODULE (QUOTE CV) NETLIST) (MAKE-TREE (QUOTE 4))) (AND (CARRY-IN-HELP& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (ENCODE-32& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (FANOUT-4& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (V-INC4& (DELETE-MODULE (QUOTE CV) NETLIST)) (AND (V-IF-F-4& (DELETE-MODULE (QUOTE CV) NETLIST)) (MPG& (DELETE-MODULE (QUOTE CV) NETLIST)))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG& . CV&) (IMMEDIATE-DEPENDENTS0 V-IF-F-4& . CV&) (IMMEDIATE-DEPENDENTS0 V-INC4& . CV&) (IMMEDIATE-DEPENDENTS0 FANOUT-4& . CV&) (IMMEDIATE-DEPENDENTS0 ENCODE-32& . CV&) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP& . CV&) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . CV&) (IMMEDIATE-DEPENDENTS0 TV-IF& . CV&) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE& . CV&) (IMMEDIATE-DEPENDENTS0 B-AND& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR8& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR6& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR5& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR4& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR3& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOR& . CV&) (IMMEDIATE-DEPENDENTS0 B-NAND5& . CV&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . CV&) (IMMEDIATE-DEPENDENTS0 B-NAND& . CV&) (IMMEDIATE-DEPENDENTS0 B-OR4& . CV&) (IMMEDIATE-DEPENDENTS0 B-OR3& . CV&) (IMMEDIATE-DEPENDENTS0 B-OR& . CV&) (IMMEDIATE-DEPENDENTS0 B-NOT& . CV&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CV&) (IMMEDIATE-DEPENDENTS0 ID& . CV&) (IMMEDIATE-DEPENDENTS0 CV* . CV&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CV&) (DCELL . *1*CV&))))) (PUT1-LST (QUOTE *1*CV*) (QUOTE (MAIN-EVENT CV*))) (PUT1-LST (QUOTE CV*) (QUOTE (TYPE-PRESCRIPTION-LST ((CV* 16)) TOTALP-LST ((CV* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE CV) (CONS (APPEND8 (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RN-A) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE RN-B) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE OP-CODE) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (CONS (APPEND6 (QUOTE (NEW-RW- STROBE- HDACK- WE-REGS WE-A-REG WE-B-REG WE-I-REG WE-DATA-OUT WE-ADDR-OUT WE-HOLD- WE-PC-REG DATA-IN-SELECT DEC-ADDR-OUT SELECT-IMMEDIATE ALU-C ALU-ZERO)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE NEW-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7))) (CONS (CONS (QUOTE (G-FETCH0 (FETCH0) ID ((*1*QUOTE INDEX DECODED-STATE 0)))) (CONS (QUOTE (G-FETCH1 (FETCH1) ID ((*1*QUOTE INDEX DECODED-STATE 1)))) (CONS (QUOTE (G-FETCH2 (FETCH2) ID ((*1*QUOTE INDEX DECODED-STATE 2)))) (CONS (QUOTE (G-FETCH3 (FETCH3) ID ((*1*QUOTE INDEX DECODED-STATE 3)))) (CONS (QUOTE (G-DECODE (DECODE) ID ((*1*QUOTE INDEX DECODED-STATE 4)))) (CONS (QUOTE (G-REGA (REGA) ID ((*1*QUOTE INDEX DECODED-STATE 5)))) (CONS (QUOTE (G-REGB (REGB) ID ((*1*QUOTE INDEX DECODED-STATE 6)))) (CONS (QUOTE (G-UPDATE (UPDATE) ID ((*1*QUOTE INDEX DECODED-STATE 7)))) (CONS (QUOTE (G-READA0 (READA0) ID ((*1*QUOTE INDEX DECODED-STATE 8)))) (CONS (QUOTE (G-READA1 (READA1) ID ((*1*QUOTE INDEX DECODED-STATE 9)))) (CONS (QUOTE (G-READA2 (READA2) ID ((*1*QUOTE INDEX DECODED-STATE 10)))) (CONS (QUOTE (G-READA3 (READA3) ID ((*1*QUOTE INDEX DECODED-STATE 11)))) (CONS (QUOTE (G-READB0 (READB0) ID ((*1*QUOTE INDEX DECODED-STATE 12)))) (CONS (QUOTE (G-READB1 (READB1) ID ((*1*QUOTE INDEX DECODED-STATE 13)))) (CONS (QUOTE (G-READB2 (READB2) ID ((*1*QUOTE INDEX DECODED-STATE 14)))) (CONS (QUOTE (G-READB3 (READB3) ID ((*1*QUOTE INDEX DECODED-STATE 15)))) (CONS (QUOTE (G-WRITE0 (WRITE0) ID ((*1*QUOTE INDEX DECODED-STATE 16)))) (CONS (QUOTE (G-WRITE1 (WRITE1) ID ((*1*QUOTE INDEX DECODED-STATE 17)))) (CONS (QUOTE (G-WRITE2 (WRITE2) ID ((*1*QUOTE INDEX DECODED-STATE 18)))) (CONS (QUOTE (G-WRITE3 (WRITE3) ID ((*1*QUOTE INDEX DECODED-STATE 19)))) (CONS (QUOTE (G-SEFA0 (SEFA0) ID ((*1*QUOTE INDEX DECODED-STATE 20)))) (CONS (QUOTE (G-SEFA1 (SEFA1) ID ((*1*QUOTE INDEX DECODED-STATE 21)))) (CONS (QUOTE (G-SEFB0 (SEFB0) ID ((*1*QUOTE INDEX DECODED-STATE 22)))) (CONS (QUOTE (G-SEFB1 (SEFB1) ID ((*1*QUOTE INDEX DECODED-STATE 23)))) (CONS (QUOTE (G-HOLD0 (HOLD0) ID ((*1*QUOTE INDEX DECODED-STATE 24)))) (CONS (QUOTE (G-HOLD1 (HOLD1) ID ((*1*QUOTE INDEX DECODED-STATE 25)))) (CONS (QUOTE (G-V11010 (V11010) ID ((*1*QUOTE INDEX DECODED-STATE 26)))) (CONS (QUOTE (G-V11011 (V11011) ID ((*1*QUOTE INDEX DECODED-STATE 27)))) (CONS (QUOTE (G-RESET0 (RESET0) ID ((*1*QUOTE INDEX DECODED-STATE 28)))) (CONS (QUOTE (G-RESET1 (RESET1) ID ((*1*QUOTE INDEX DECODED-STATE 29)))) (CONS (QUOTE (G-RESET2 (RESET2) ID ((*1*QUOTE INDEX DECODED-STATE 30)))) (CONS (QUOTE (G-V11111 (V11111) ID ((*1*QUOTE INDEX DECODED-STATE 31)))) (CONS (QUOTE (G0 (STORE-) B-NOT (STORE))) (CONS (QUOTE (G1 (ALU-ZERO) B-OR4 (FETCH0 RESET0 RESET1 RESET2))) (CONS (QUOTE (G2 (ALU-SWAP) B-OR3 (READB2 WRITE1 SEFB1))) (CONS (QUOTE (G3 (INCDECA) B-OR (READA1 SEFA1))) (CONS (QUOTE (G4 (S4) B-NOR4 (FETCH2 INCDECA ALU-SWAP ALU-ZERO))) (CONS (QUOTE (G5 (S5) B-NAND (INCDECA PRE-DEC-A))) (CONS (QUOTE (G6 (S6) B-NAND (ALU-SWAP PRE-DEC-B))) (CONS (QUOTE (G7 (S7) B-NAND (S5 S6))) (CONS (CONS (QUOTE G8) (CONS (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE SELECT-OP-CODE) (CONS (CONS (QUOTE S4) (CONS (QUOTE S7) (INDICES (QUOTE OP-CODE) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (G10 (S10) B-NOT (RW-))) (CONS (QUOTE (G11 (S11) B-NAND (S10 FETCH0))) (CONS (QUOTE (G12 (S12) B-NOR3 (WRITE1 WRITE2 WRITE3))) (CONS (QUOTE (G13 (NEW-RW-) B-AND (S11 S12))) (CONS (QUOTE (G14 (STROBE-) B-NOR8 (FETCH2 FETCH3 READA2 READA3 READB2 READB3 WRITE2 WRITE3))) (CONS (QUOTE (G15 (HDACK-) B-NOT (HOLD0))) (CONS (QUOTE (G17 (S17) B-NAND (STORE UPDATE))) (CONS (QUOTE (G18 (S18) B-NAND (SIDE-EFFECT-A READA1))) (CONS (QUOTE (G19 (S19) B-NAND3 (STORE- SIDE-EFFECT-B READB2))) (CONS (QUOTE (G20 (S20) B-NAND (SIDE-EFFECT-B WRITE1))) (CONS (QUOTE (G21 (S21) B-NOR5 (FETCH2 SEFA1 SEFB1 RESET0 RESET2))) (CONS (QUOTE (G22 (WE-REGS) B-NAND5 (S17 S18 S19 S20 S21))) (CONS (QUOTE (G23 (S23) B-NAND (DIRECT-A READB1))) (CONS (QUOTE (G24 (S24) B-NOR6 (FETCH0 REGA READA0 READA3 SEFA0 RESET1))) (CONS (QUOTE (G25 (WE-A-REG) B-NAND (S23 S24))) (CONS (QUOTE (G26 (S26) B-NOR4 (REGB UPDATE READA2 READB0))) (CONS (QUOTE (G27 (S27) B-NOR4 (READB3 WRITE0 SEFB0 RESET1))) (CONS (QUOTE (G28 (WE-B-REG) B-NAND (S26 S27))) (CONS (QUOTE (G29 (WE-I-REG) B-OR (FETCH3 RESET1))) (CONS (QUOTE (G30 (WE-DATA-OUT) B-OR (WRITE0 RESET0))) (CONS (QUOTE (G31 (S31) B-NOR3 (FETCH0 READA0 READB0))) (CONS (QUOTE (G32 (S32) B-NOR (WRITE0 RESET1))) (CONS (QUOTE (G33 (WE-ADDR-OUT) B-NAND (S31 S32))) (CONS (QUOTE (G34 (WE-HOLD-) B-OR3 (FETCH0 HOLD0 RESET0))) (CONS (QUOTE (G35 (WE-PC-REG) B-OR (HOLD0 RESET0))) (CONS (QUOTE (G36 (DATA-IN-SELECT) B-OR3 (FETCH3 READA3 READB3))) (CONS (QUOTE (G37 (S37) B-NAND (PRE-DEC-A READA0))) (CONS (QUOTE (G38 (S38) B-OR (READB0 WRITE0))) (CONS (QUOTE (G39 (S39) B-NAND (PRE-DEC-B S38))) (CONS (QUOTE (G40 (DEC-ADDR-OUT) B-NAND (S37 S39))) (CONS (QUOTE (G41 (S41) B-OR (REGA READB1))) (CONS (QUOTE (G42 (SELECT-IMMEDIATE) B-AND (A-IMMEDIATE-P S41))) (CONS (CONS (QUOTE G43) (CONS (QUOTE (ALU-C)) (CONS (QUOTE CARRY-IN-HELP) (CONS (CONS (QUOTE C) (CONS (QUOTE ALU-ZERO) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G44) (CONS (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE ENCODE-32) (CONS (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE G45) (CONS (INDICES (QUOTE FANOUT-RESET0) (QUOTE 0) (QUOTE 4)) (QUOTE (FANOUT-4 (RESET0))))) (CONS (QUOTE (G46 (S46) B-NOR (UPDATE WRITE0))) (CONS (CONS (QUOTE G47) (CONS (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE S46) (APPEND (INDICES (QUOTE FANOUT-RESET0) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (G48 (S48) B-NOR3 (REGA READA0 READA1))) (CONS (QUOTE (G49 (S49) B-NOR3 (READB1 SEFA0 SEFA1))) (CONS (QUOTE (G50 (SELECT-RN-A) B-NAND (S48 S49))) (CONS (QUOTE (G51 (S51) B-NOR5 (REGB UPDATE READA2 READB0 READB2))) (CONS (QUOTE (G52 (S52) B-NOR4 (WRITE0 WRITE1 SEFB0 SEFB1))) (CONS (QUOTE (G53 (SELECT-RN-B) B-NAND (S51 S52))) (CONS (QUOTE (G54 (SELECT-ALL-F) B-OR (RESET0 RESET1))) (CONS (CONS (QUOTE G55) (CONS (INDICES (QUOTE V-INC-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE V-INC4) (CONS (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE G56) (CONS (INDICES (QUOTE S56) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE RESET2) (APPEND (INDICES (QUOTE V-INC-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G57) (CONS (INDICES (QUOTE S57) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE V-IF-F-4) (CONS (CONS (QUOTE SELECT-ALL-F) (INDICES (QUOTE S56) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (CONS (QUOTE G58) (CONS (INDICES (QUOTE S58) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE SELECT-RN-B) (APPEND (INDICES (QUOTE RN-B) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE S57) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G59) (CONS (INDICES (QUOTE NEW-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE SELECT-RN-A) (APPEND (INDICES (QUOTE RN-A) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE S58) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G60) (CONS (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (CONS (QUOTE MPG) (CONS (CONS (QUOTE ALU-ZERO) (CONS (QUOTE ALU-SWAP) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (QUOTE (NIL))))))) LISP-CODE *1*CV* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194115 SATELLITES (*1*CV*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CV$VALUE CHECK-CV$NETLIST CV$NETLIST CV&) EVENT (DEFN CV* NIL (CONS (QUOTE CV) (CONS (APPEND8 (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RN-A) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE RN-B) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE OP-CODE) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (CONS (APPEND6 (QUOTE (NEW-RW- STROBE- HDACK- WE-REGS WE-A-REG WE-B-REG WE-I-REG WE-DATA-OUT WE-ADDR-OUT WE-HOLD- WE-PC-REG DATA-IN-SELECT DEC-ADDR-OUT SELECT-IMMEDIATE ALU-C ALU-ZERO)) (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE NEW-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7))) (CONS (CONS (QUOTE (G-FETCH0 (FETCH0) ID ((*1*QUOTE INDEX DECODED-STATE 0)))) (CONS (QUOTE (G-FETCH1 (FETCH1) ID ((*1*QUOTE INDEX DECODED-STATE 1)))) (CONS (QUOTE (G-FETCH2 (FETCH2) ID ((*1*QUOTE INDEX DECODED-STATE 2)))) (CONS (QUOTE (G-FETCH3 (FETCH3) ID ((*1*QUOTE INDEX DECODED-STATE 3)))) (CONS (QUOTE (G-DECODE (DECODE) ID ((*1*QUOTE INDEX DECODED-STATE 4)))) (CONS (QUOTE (G-REGA (REGA) ID ((*1*QUOTE INDEX DECODED-STATE 5)))) (CONS (QUOTE (G-REGB (REGB) ID ((*1*QUOTE INDEX DECODED-STATE 6)))) (CONS (QUOTE (G-UPDATE (UPDATE) ID ((*1*QUOTE INDEX DECODED-STATE 7)))) (CONS (QUOTE (G-READA0 (READA0) ID ((*1*QUOTE INDEX DECODED-STATE 8)))) (CONS (QUOTE (G-READA1 (READA1) ID ((*1*QUOTE INDEX DECODED-STATE 9)))) (CONS (QUOTE (G-READA2 (READA2) ID ((*1*QUOTE INDEX DECODED-STATE 10)))) (CONS (QUOTE (G-READA3 (READA3) ID ((*1*QUOTE INDEX DECODED-STATE 11)))) (CONS (QUOTE (G-READB0 (READB0) ID ((*1*QUOTE INDEX DECODED-STATE 12)))) (CONS (QUOTE (G-READB1 (READB1) ID ((*1*QUOTE INDEX DECODED-STATE 13)))) (CONS (QUOTE (G-READB2 (READB2) ID ((*1*QUOTE INDEX DECODED-STATE 14)))) (CONS (QUOTE (G-READB3 (READB3) ID ((*1*QUOTE INDEX DECODED-STATE 15)))) (CONS (QUOTE (G-WRITE0 (WRITE0) ID ((*1*QUOTE INDEX DECODED-STATE 16)))) (CONS (QUOTE (G-WRITE1 (WRITE1) ID ((*1*QUOTE INDEX DECODED-STATE 17)))) (CONS (QUOTE (G-WRITE2 (WRITE2) ID ((*1*QUOTE INDEX DECODED-STATE 18)))) (CONS (QUOTE (G-WRITE3 (WRITE3) ID ((*1*QUOTE INDEX DECODED-STATE 19)))) (CONS (QUOTE (G-SEFA0 (SEFA0) ID ((*1*QUOTE INDEX DECODED-STATE 20)))) (CONS (QUOTE (G-SEFA1 (SEFA1) ID ((*1*QUOTE INDEX DECODED-STATE 21)))) (CONS (QUOTE (G-SEFB0 (SEFB0) ID ((*1*QUOTE INDEX DECODED-STATE 22)))) (CONS (QUOTE (G-SEFB1 (SEFB1) ID ((*1*QUOTE INDEX DECODED-STATE 23)))) (CONS (QUOTE (G-HOLD0 (HOLD0) ID ((*1*QUOTE INDEX DECODED-STATE 24)))) (CONS (QUOTE (G-HOLD1 (HOLD1) ID ((*1*QUOTE INDEX DECODED-STATE 25)))) (CONS (QUOTE (G-V11010 (V11010) ID ((*1*QUOTE INDEX DECODED-STATE 26)))) (CONS (QUOTE (G-V11011 (V11011) ID ((*1*QUOTE INDEX DECODED-STATE 27)))) (CONS (QUOTE (G-RESET0 (RESET0) ID ((*1*QUOTE INDEX DECODED-STATE 28)))) (CONS (QUOTE (G-RESET1 (RESET1) ID ((*1*QUOTE INDEX DECODED-STATE 29)))) (CONS (QUOTE (G-RESET2 (RESET2) ID ((*1*QUOTE INDEX DECODED-STATE 30)))) (CONS (QUOTE (G-V11111 (V11111) ID ((*1*QUOTE INDEX DECODED-STATE 31)))) (CONS (QUOTE (G0 (STORE-) B-NOT (STORE))) (CONS (QUOTE (G1 (ALU-ZERO) B-OR4 (FETCH0 RESET0 RESET1 RESET2))) (CONS (QUOTE (G2 (ALU-SWAP) B-OR3 (READB2 WRITE1 SEFB1))) (CONS (QUOTE (G3 (INCDECA) B-OR (READA1 SEFA1))) (CONS (QUOTE (G4 (S4) B-NOR4 (FETCH2 INCDECA ALU-SWAP ALU-ZERO))) (CONS (QUOTE (G5 (S5) B-NAND (INCDECA PRE-DEC-A))) (CONS (QUOTE (G6 (S6) B-NAND (ALU-SWAP PRE-DEC-B))) (CONS (QUOTE (G7 (S7) B-NAND (S5 S6))) (CONS (CONS (QUOTE G8) (CONS (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE SELECT-OP-CODE) (CONS (CONS (QUOTE S4) (CONS (QUOTE S7) (INDICES (QUOTE OP-CODE) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (G10 (S10) B-NOT (RW-))) (CONS (QUOTE (G11 (S11) B-NAND (S10 FETCH0))) (CONS (QUOTE (G12 (S12) B-NOR3 (WRITE1 WRITE2 WRITE3))) (CONS (QUOTE (G13 (NEW-RW-) B-AND (S11 S12))) (CONS (QUOTE (G14 (STROBE-) B-NOR8 (FETCH2 FETCH3 READA2 READA3 READB2 READB3 WRITE2 WRITE3))) (CONS (QUOTE (G15 (HDACK-) B-NOT (HOLD0))) (CONS (QUOTE (G17 (S17) B-NAND (STORE UPDATE))) (CONS (QUOTE (G18 (S18) B-NAND (SIDE-EFFECT-A READA1))) (CONS (QUOTE (G19 (S19) B-NAND3 (STORE- SIDE-EFFECT-B READB2))) (CONS (QUOTE (G20 (S20) B-NAND (SIDE-EFFECT-B WRITE1))) (CONS (QUOTE (G21 (S21) B-NOR5 (FETCH2 SEFA1 SEFB1 RESET0 RESET2))) (CONS (QUOTE (G22 (WE-REGS) B-NAND5 (S17 S18 S19 S20 S21))) (CONS (QUOTE (G23 (S23) B-NAND (DIRECT-A READB1))) (CONS (QUOTE (G24 (S24) B-NOR6 (FETCH0 REGA READA0 READA3 SEFA0 RESET1))) (CONS (QUOTE (G25 (WE-A-REG) B-NAND (S23 S24))) (CONS (QUOTE (G26 (S26) B-NOR4 (REGB UPDATE READA2 READB0))) (CONS (QUOTE (G27 (S27) B-NOR4 (READB3 WRITE0 SEFB0 RESET1))) (CONS (QUOTE (G28 (WE-B-REG) B-NAND (S26 S27))) (CONS (QUOTE (G29 (WE-I-REG) B-OR (FETCH3 RESET1))) (CONS (QUOTE (G30 (WE-DATA-OUT) B-OR (WRITE0 RESET0))) (CONS (QUOTE (G31 (S31) B-NOR3 (FETCH0 READA0 READB0))) (CONS (QUOTE (G32 (S32) B-NOR (WRITE0 RESET1))) (CONS (QUOTE (G33 (WE-ADDR-OUT) B-NAND (S31 S32))) (CONS (QUOTE (G34 (WE-HOLD-) B-OR3 (FETCH0 HOLD0 RESET0))) (CONS (QUOTE (G35 (WE-PC-REG) B-OR (HOLD0 RESET0))) (CONS (QUOTE (G36 (DATA-IN-SELECT) B-OR3 (FETCH3 READA3 READB3))) (CONS (QUOTE (G37 (S37) B-NAND (PRE-DEC-A READA0))) (CONS (QUOTE (G38 (S38) B-OR (READB0 WRITE0))) (CONS (QUOTE (G39 (S39) B-NAND (PRE-DEC-B S38))) (CONS (QUOTE (G40 (DEC-ADDR-OUT) B-NAND (S37 S39))) (CONS (QUOTE (G41 (S41) B-OR (REGA READB1))) (CONS (QUOTE (G42 (SELECT-IMMEDIATE) B-AND (A-IMMEDIATE-P S41))) (CONS (CONS (QUOTE G43) (CONS (QUOTE (ALU-C)) (CONS (QUOTE CARRY-IN-HELP) (CONS (CONS (QUOTE C) (CONS (QUOTE ALU-ZERO) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G44) (CONS (INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE ENCODE-32) (CONS (INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE G45) (CONS (INDICES (QUOTE FANOUT-RESET0) (QUOTE 0) (QUOTE 4)) (QUOTE (FANOUT-4 (RESET0))))) (CONS (QUOTE (G46 (S46) B-NOR (UPDATE WRITE0))) (CONS (CONS (QUOTE G47) (CONS (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE S46) (APPEND (INDICES (QUOTE FANOUT-RESET0) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (QUOTE (G48 (S48) B-NOR3 (REGA READA0 READA1))) (CONS (QUOTE (G49 (S49) B-NOR3 (READB1 SEFA0 SEFA1))) (CONS (QUOTE (G50 (SELECT-RN-A) B-NAND (S48 S49))) (CONS (QUOTE (G51 (S51) B-NOR5 (REGB UPDATE READA2 READB0 READB2))) (CONS (QUOTE (G52 (S52) B-NOR4 (WRITE0 WRITE1 SEFB0 SEFB1))) (CONS (QUOTE (G53 (SELECT-RN-B) B-NAND (S51 S52))) (CONS (QUOTE (G54 (SELECT-ALL-F) B-OR (RESET0 RESET1))) (CONS (CONS (QUOTE G55) (CONS (INDICES (QUOTE V-INC-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE V-INC4) (CONS (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE G56) (CONS (INDICES (QUOTE S56) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE RESET2) (APPEND (INDICES (QUOTE V-INC-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G57) (CONS (INDICES (QUOTE S57) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE V-IF-F-4) (CONS (CONS (QUOTE SELECT-ALL-F) (INDICES (QUOTE S56) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (CONS (QUOTE G58) (CONS (INDICES (QUOTE S58) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE SELECT-RN-B) (APPEND (INDICES (QUOTE RN-B) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE S57) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G59) (CONS (INDICES (QUOTE NEW-REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 4)))) (CONS (CONS (QUOTE SELECT-RN-A) (APPEND (INDICES (QUOTE RN-A) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE S58) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (CONS (CONS (QUOTE G60) (CONS (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (CONS (QUOTE MPG) (CONS (CONS (QUOTE ALU-ZERO) (CONS (QUOTE ALU-SWAP) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)))) (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . CV*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CV*) (IMMEDIATE-DEPENDENTS0 INDEX . CV*) (IMMEDIATE-DEPENDENTS0 APPEND6 . CV*) (IMMEDIATE-DEPENDENTS0 INDICES . CV*) (IMMEDIATE-DEPENDENTS0 APPEND8 . CV*) (DCELL . *1*CV*))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$CV) (QUOTE (IDATE 1000402194115 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE PROPERP-LENGTH-F$NEXT-CNTL-STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$CV (REWRITE) (AND (IMPLIES (AND (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (AND (EQUAL (LENGTH RN-A) (QUOTE 4)) (AND (EQUAL (LENGTH RN-B) (QUOTE 4)) (EQUAL (LENGTH OP-CODE) (QUOTE 4))))) (EQUAL (LENGTH (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) (QUOTE 40))) (IMPLIES (AND (PROPERP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (PROPERP (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)))) ((ENABLE F$CV) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$ENCODE-32 . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$SELECT-OP-CODE . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$MPG . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 F$CV . PROPERP-LENGTH-F$CV) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$CV) (LEMMAS PROPERP . PROPERP-LENGTH-F$CV) (LEMMAS LENGTH . PROPERP-LENGTH-F$CV))))) (PUT1-LST (QUOTE BVP-LENGTH-CV) (QUOTE (IDATE 1000402194115 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-NEXT-CNTL-STATE) EVENT (PROVE-LEMMA BVP-LENGTH-CV (REWRITE) (AND (IMPLIES (AND (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (AND (EQUAL (LENGTH RN-A) (QUOTE 4)) (AND (EQUAL (LENGTH RN-B) (QUOTE 4)) (EQUAL (LENGTH OP-CODE) (QUOTE 4))))) (EQUAL (LENGTH (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) (QUOTE 40))) (IMPLIES (AND (BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (BVP (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)))) ((ENABLE CV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-V-IF . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-MPG . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BV2P . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-OR4 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-OR3 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-OR . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR4 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR6 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NAND5 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR5 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR8 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOR3 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ENCODE-32 . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH-V-IF . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 CV . BVP-LENGTH-CV) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-CV) (LEMMAS BVP . BVP-LENGTH-CV) (LEMMAS LENGTH . BVP-LENGTH-CV))))) (PUT1-LST (QUOTE F$CV=CV) (QUOTE (IDATE 1000402194115 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA F$CV=CV (REWRITE) (IMPLIES (AND (BVP DECODED-STATE) (AND (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (AND (BVP RN-A) (AND (EQUAL (LENGTH RN-A) (QUOTE 4)) (AND (BVP RN-B) (AND (EQUAL (LENGTH RN-B) (QUOTE 4)) (AND (BVP OP-CODE) (AND (EQUAL (LENGTH OP-CODE) (QUOTE 4)) (AND (BVP PC-REG) (AND (EQUAL (LENGTH PC-REG) (QUOTE 4)) (AND (BVP REGS-ADDRESS) (AND (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (AND (BVP SET-FLAGS) (AND (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (AND (BOOLP STORE) (AND (BOOLP C) (AND (BOOLP A-IMMEDIATE-P) (AND (BOOLP RW-) (AND (BOOLP DIRECT-A) (AND (BOOLP SIDE-EFFECT-A) (AND (BOOLP SIDE-EFFECT-B) (AND (BOOLP PRE-DEC-A) (BOOLP PRE-DEC-B))))))))))))))))))))))) (EQUAL (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) ((ENABLE F$CV CV BOOLP-B-GATES IF* MAKE-LIST-CROCK-FOR-F$CV=CV) (DISABLE IF*-CONS IF*-C-X-X OPEN-V-THREEFIX) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$MPG=MPG . F$CV=CV) (IMMEDIATE-DEPENDENTS0 MPG-IF-OP-CODE . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$V-IF-F-4=FV-IF . F$CV=CV) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$V-INC4$V=V-INC . F$CV=CV) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . F$CV=CV) (IMMEDIATE-DEPENDENTS0 IF* . F$CV=CV) (IMMEDIATE-DEPENDENTS0 MAKE-LIST-CROCK-FOR-F$CV=CV . F$CV=CV) (IMMEDIATE-DEPENDENTS0 THREEFIX . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32=ENCODE-32 . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$CARRY-IN-HELP=CARRY-IN-HELP . F$CV=CV) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-IF-OP-CODE . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$CV=CV) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE-SELECTS . F$CV=CV) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP-IF . F$CV=CV) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BV2P . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F-GATES . F$CV=CV) (IMMEDIATE-DEPENDENTS0 B-GATES . F$CV=CV) (IMMEDIATE-DEPENDENTS0 CV . F$CV=CV) (IMMEDIATE-DEPENDENTS0 F$CV . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BOOLP . F$CV=CV) (IMMEDIATE-DEPENDENTS0 LENGTH . F$CV=CV) (IMMEDIATE-DEPENDENTS0 BVP . F$CV=CV) (LEMMAS F$CV . F$CV=CV))))) (PUT1-LST (QUOTE MAKE-LIST-CROCK-FOR-F$CV=CV-OFF) (QUOTE (IDATE 1000402194114 EVENT (TOGGLE MAKE-LIST-CROCK-FOR-F$CV=CV-OFF MAKE-LIST-CROCK-FOR-F$CV=CV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST-CROCK-FOR-F$CV=CV . MAKE-LIST-CROCK-FOR-F$CV=CV-OFF) (DISABLED-LEMMAS NIL MAKE-LIST-CROCK-FOR-F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV-OFF . T))))) (PUT1-LST (QUOTE MAKE-LIST-CROCK-FOR-F$CV=CV) (QUOTE (IDATE 1000402194114 IMMEDIATE-DEPENDENTS0 (F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV-OFF) EVENT (PROVE-LEMMA MAKE-LIST-CROCK-FOR-F$CV=CV (REWRITE) (IMPLIES (BOOLP V) (EQUAL (MAKE-LIST (QUOTE 4) V) (IF V (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))) ((ENABLE OPEN-MAKE-LIST BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAKE-LIST-CROCK-FOR-F$CV=CV) (IMMEDIATE-DEPENDENTS0 BOOLP . MAKE-LIST-CROCK-FOR-F$CV=CV) (LEMMAS MAKE-LIST . MAKE-LIST-CROCK-FOR-F$CV=CV))))) (PUT1-LST (QUOTE F$CV-OFF) (QUOTE (IDATE 1000402194114 EVENT (TOGGLE F$CV-OFF F$CV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$CV . F$CV-OFF) (DISABLED-LEMMAS NIL F$CV F$CV-OFF . T))))) (PUT1-LST (QUOTE *1*F$CV) (QUOTE (MAIN-EVENT F$CV))) (PUT1-LST (QUOTE F$CV) (QUOTE (TYPE-PRESCRIPTION-LST ((F$CV 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$CV=CV ((BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (BVP RN-A) (EQUAL (LENGTH RN-A) (QUOTE 4)) (BVP RN-B) (EQUAL (LENGTH RN-B) (QUOTE 4)) (BVP OP-CODE) (EQUAL (LENGTH OP-CODE) (QUOTE 4)) (BVP PC-REG) (EQUAL (LENGTH PC-REG) (QUOTE 4)) (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (BVP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (BOOLP STORE) (BOOLP C) (BOOLP A-IMMEDIATE-P) (BOOLP RW-) (BOOLP DIRECT-A) (BOOLP SIDE-EFFECT-A) (BOOLP SIDE-EFFECT-B) (BOOLP PRE-DEC-A) (BOOLP PRE-DEC-B)) (EQUAL (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) NIL)) TOTALP-LST ((F$CV . T)) SDEFN (LAMBDA (DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CONS (F-AND (F-NAND (F-NOT RW-) (NTH (QUOTE 0) DECODED-STATE)) (F-NOR3 (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE))) (CONS (F-NOR8 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE)) (CONS (F-NOT (NTH (QUOTE 24) DECODED-STATE)) (CONS (F-NAND5 (F-NAND STORE (NTH (QUOTE 7) DECODED-STATE)) (F-NAND SIDE-EFFECT-A (NTH (QUOTE 9) DECODED-STATE)) (F-NAND3 (F-NOT STORE) SIDE-EFFECT-B (NTH (QUOTE 14) DECODED-STATE)) (F-NAND SIDE-EFFECT-B (NTH (QUOTE 17) DECODED-STATE)) (F-NOR5 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (CONS (F-NAND (F-NAND DIRECT-A (NTH (QUOTE 13) DECODED-STATE)) (F-NOR6 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-NAND (F-NOR4 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (F-NOR4 (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-OR (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (CONS (F-OR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-NAND (F-NOR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (F-NOR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-OR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-OR (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-OR3 (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE)) (CONS (F-NAND (F-NAND PRE-DEC-A (NTH (QUOTE 8) DECODED-STATE)) (F-NAND PRE-DEC-B (F-OR (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)))) (CONS (F-AND A-IMMEDIATE-P (F-OR (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE))) (CONS (F$CARRY-IN-HELP (CONS C (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE)))) (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (APPEND (F$ENCODE-32 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 1) DECODED-STATE) (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 4) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 25) DECODED-STATE) (NTH (QUOTE 26) DECODED-STATE) (NTH (QUOTE 27) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE) (NTH (QUOTE 31) DECODED-STATE)) (APPEND (FV-IF (F-NOR (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)) (MAKE-LIST (QUOTE 4) (THREEFIX (NTH (QUOTE 28) DECODED-STATE))) SET-FLAGS) (APPEND (FV-IF (F-NAND (F-NOR3 (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE)) (F-NOR3 (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE))) RN-A (FV-IF (F-NAND (F-NOR5 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE)) (F-NOR4 (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE))) RN-B (F$V-IF-F-4 (F-OR (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (FV-IF (NTH (QUOTE 30) DECODED-STATE) (F$V-INC4$V REGS-ADDRESS) PC-REG)))) (APPEND (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE) (F$MPG (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (CONS (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE))))))))))))))))))))))))) LISP-CODE *1*F$CV SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194114 SATELLITES (*1*F$CV) IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV F$CV=CV F$CV-OFF) EVENT (DEFN F$CV (DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CONS (F-AND (F-NAND (F-NOT RW-) (NTH (QUOTE 0) DECODED-STATE)) (F-NOR3 (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE))) (CONS (F-NOR8 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE)) (CONS (F-NOT (NTH (QUOTE 24) DECODED-STATE)) (CONS (F-NAND5 (F-NAND STORE (NTH (QUOTE 7) DECODED-STATE)) (F-NAND SIDE-EFFECT-A (NTH (QUOTE 9) DECODED-STATE)) (F-NAND3 (F-NOT STORE) SIDE-EFFECT-B (NTH (QUOTE 14) DECODED-STATE)) (F-NAND SIDE-EFFECT-B (NTH (QUOTE 17) DECODED-STATE)) (F-NOR5 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (CONS (F-NAND (F-NAND DIRECT-A (NTH (QUOTE 13) DECODED-STATE)) (F-NOR6 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-NAND (F-NOR4 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (F-NOR4 (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-OR (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (CONS (F-OR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-NAND (F-NOR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (F-NOR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (F-OR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-OR (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (F-OR3 (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE)) (CONS (F-NAND (F-NAND PRE-DEC-A (NTH (QUOTE 8) DECODED-STATE)) (F-NAND PRE-DEC-B (F-OR (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)))) (CONS (F-AND A-IMMEDIATE-P (F-OR (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE))) (CONS (F$CARRY-IN-HELP (CONS C (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE)))) (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (APPEND (F$ENCODE-32 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 1) DECODED-STATE) (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 4) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 25) DECODED-STATE) (NTH (QUOTE 26) DECODED-STATE) (NTH (QUOTE 27) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE) (NTH (QUOTE 31) DECODED-STATE)) (APPEND (FV-IF (F-NOR (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)) (MAKE-LIST (QUOTE 4) (THREEFIX (NTH (QUOTE 28) DECODED-STATE))) SET-FLAGS) (APPEND (FV-IF (F-NAND (F-NOR3 (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE)) (F-NOR3 (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE))) RN-A (FV-IF (F-NAND (F-NOR5 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE)) (F-NOR4 (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE))) RN-B (F$V-IF-F-4 (F-OR (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (FV-IF (NTH (QUOTE 30) DECODED-STATE) (F$V-INC4$V REGS-ADDRESS) PC-REG)))) (APPEND (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE) (F$MPG (CONS (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (CONS (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F$SELECT-OP-CODE (F-NOR4 (NTH (QUOTE 2) DECODED-STATE) (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (F-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (F-NAND (F-NAND (F-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (F-NAND (F-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) OP-CODE))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$MPG . F$CV) (IMMEDIATE-DEPENDENTS0 F$V-INC4$V . F$CV) (IMMEDIATE-DEPENDENTS0 F$V-IF-F-4 . F$CV) (IMMEDIATE-DEPENDENTS0 THREEFIX . F$CV) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$CV) (IMMEDIATE-DEPENDENTS0 FV-IF . F$CV) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . F$CV) (IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE . F$CV) (IMMEDIATE-DEPENDENTS0 F-OR4 . F$CV) (IMMEDIATE-DEPENDENTS0 F$CARRY-IN-HELP . F$CV) (IMMEDIATE-DEPENDENTS0 F-OR3 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR . F$CV) (IMMEDIATE-DEPENDENTS0 F-OR . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F$CV) (IMMEDIATE-DEPENDENTS0 NTH . F$CV) (IMMEDIATE-DEPENDENTS0 F-NOT . F$CV) (IMMEDIATE-DEPENDENTS0 F-NAND . F$CV) (IMMEDIATE-DEPENDENTS0 F-AND . F$CV) (DCELL . *1*F$CV))))) (PUT1-LST (QUOTE CV-OFF) (QUOTE (IDATE 1000402194114 EVENT (TOGGLE CV-OFF CV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV . CV-OFF) (DISABLED-LEMMAS NIL CV CV-OFF . T))))) (PUT1-LST (QUOTE *1*CV) (QUOTE (MAIN-EVENT CV))) (PUT1-LST (QUOTE CV) (QUOTE (TYPE-PRESCRIPTION-LST ((CV 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((CV . T)) SDEFN (LAMBDA (DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CONS (B-AND (B-NAND (B-NOT RW-) (NTH (QUOTE 0) DECODED-STATE)) (B-NOR3 (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE))) (CONS (B-NOR8 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE)) (CONS (B-NOT (NTH (QUOTE 24) DECODED-STATE)) (CONS (B-NAND5 (B-NAND STORE (NTH (QUOTE 7) DECODED-STATE)) (B-NAND SIDE-EFFECT-A (NTH (QUOTE 9) DECODED-STATE)) (B-NAND3 (B-NOT STORE) SIDE-EFFECT-B (NTH (QUOTE 14) DECODED-STATE)) (B-NAND SIDE-EFFECT-B (NTH (QUOTE 17) DECODED-STATE)) (B-NOR5 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (CONS (B-NAND (B-NAND DIRECT-A (NTH (QUOTE 13) DECODED-STATE)) (B-NOR6 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-NAND (B-NOR4 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (B-NOR4 (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-OR (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (CONS (B-OR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-NAND (B-NOR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (B-NOR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-OR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-OR (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-OR3 (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE)) (CONS (B-NAND (B-NAND PRE-DEC-A (NTH (QUOTE 8) DECODED-STATE)) (B-NAND PRE-DEC-B (B-OR (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)))) (CONS (B-AND A-IMMEDIATE-P (B-OR (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE))) (CONS (CARRY-IN-HELP (CONS C (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP)))))) (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (APPEND (ENCODE-32 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 1) DECODED-STATE) (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 4) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 25) DECODED-STATE) (NTH (QUOTE 26) DECODED-STATE) (NTH (QUOTE 27) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE) (NTH (QUOTE 31) DECODED-STATE)) (APPEND (V-IF (B-NOR (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)) (V-IF (NTH (QUOTE 28) DECODED-STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) SET-FLAGS) (APPEND (V-IF (B-NAND (B-NOR3 (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE)) (B-NOR3 (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE))) RN-A (V-IF (B-NAND (B-NOR5 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE)) (B-NOR4 (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE))) RN-B (V-IF (B-OR (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (V-IF (NTH (QUOTE 30) DECODED-STATE) (V-INC REGS-ADDRESS) PC-REG)))) (APPEND (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP))) (MPG (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (CONS (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP))))))))))))))))))))))))))) LISP-CODE *1*CV SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194114 SATELLITES (*1*CV) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV CV-OFF) EVENT (DEFN CV (DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B) (CONS (B-AND (B-NAND (B-NOT RW-) (NTH (QUOTE 0) DECODED-STATE)) (B-NOR3 (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE))) (CONS (B-NOR8 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE)) (CONS (B-NOT (NTH (QUOTE 24) DECODED-STATE)) (CONS (B-NAND5 (B-NAND STORE (NTH (QUOTE 7) DECODED-STATE)) (B-NAND SIDE-EFFECT-A (NTH (QUOTE 9) DECODED-STATE)) (B-NAND3 (B-NOT STORE) SIDE-EFFECT-B (NTH (QUOTE 14) DECODED-STATE)) (B-NAND SIDE-EFFECT-B (NTH (QUOTE 17) DECODED-STATE)) (B-NOR5 (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) (CONS (B-NAND (B-NAND DIRECT-A (NTH (QUOTE 13) DECODED-STATE)) (B-NOR6 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-NAND (B-NOR4 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (B-NOR4 (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-OR (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (CONS (B-OR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-NAND (B-NOR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE)) (B-NOR (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE))) (CONS (B-OR3 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-OR (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE)) (CONS (B-OR3 (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE)) (CONS (B-NAND (B-NAND PRE-DEC-A (NTH (QUOTE 8) DECODED-STATE)) (B-NAND PRE-DEC-B (B-OR (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)))) (CONS (B-AND A-IMMEDIATE-P (B-OR (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE))) (CONS (CARRY-IN-HELP (CONS C (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP)))))) (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (APPEND (ENCODE-32 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 1) DECODED-STATE) (NTH (QUOTE 2) DECODED-STATE) (NTH (QUOTE 3) DECODED-STATE) (NTH (QUOTE 4) DECODED-STATE) (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 11) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 15) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 18) DECODED-STATE) (NTH (QUOTE 19) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE) (NTH (QUOTE 24) DECODED-STATE) (NTH (QUOTE 25) DECODED-STATE) (NTH (QUOTE 26) DECODED-STATE) (NTH (QUOTE 27) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE) (NTH (QUOTE 31) DECODED-STATE)) (APPEND (V-IF (B-NOR (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 16) DECODED-STATE)) (V-IF (NTH (QUOTE 28) DECODED-STATE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) SET-FLAGS) (APPEND (V-IF (B-NAND (B-NOR3 (NTH (QUOTE 5) DECODED-STATE) (NTH (QUOTE 8) DECODED-STATE) (NTH (QUOTE 9) DECODED-STATE)) (B-NOR3 (NTH (QUOTE 13) DECODED-STATE) (NTH (QUOTE 20) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE))) RN-A (V-IF (B-NAND (B-NOR5 (NTH (QUOTE 6) DECODED-STATE) (NTH (QUOTE 7) DECODED-STATE) (NTH (QUOTE 10) DECODED-STATE) (NTH (QUOTE 12) DECODED-STATE) (NTH (QUOTE 14) DECODED-STATE)) (B-NOR4 (NTH (QUOTE 16) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 22) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE))) RN-B (V-IF (B-OR (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (V-IF (NTH (QUOTE 30) DECODED-STATE) (V-INC REGS-ADDRESS) PC-REG)))) (APPEND (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP))) (MPG (CONS (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE)) (CONS (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (V-IF (B-NOR4 (NTH (QUOTE 2) DECODED-STATE) (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) (B-OR4 (NTH (QUOTE 0) DECODED-STATE) (NTH (QUOTE 28) DECODED-STATE) (NTH (QUOTE 29) DECODED-STATE) (NTH (QUOTE 30) DECODED-STATE))) OP-CODE (V-IF (B-NAND (B-NAND (B-OR (NTH (QUOTE 9) DECODED-STATE) (NTH (QUOTE 21) DECODED-STATE)) PRE-DEC-A) (B-NAND (B-OR3 (NTH (QUOTE 14) DECODED-STATE) (NTH (QUOTE 17) DECODED-STATE) (NTH (QUOTE 23) DECODED-STATE)) PRE-DEC-B)) (ALU-DEC-OP) (ALU-INC-OP))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV) (IMMEDIATE-DEPENDENTS0 V-INC . CV) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . CV) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV) (IMMEDIATE-DEPENDENTS0 V-IF . CV) (IMMEDIATE-DEPENDENTS0 B-OR4 . CV) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV) (IMMEDIATE-DEPENDENTS0 B-OR3 . CV) (IMMEDIATE-DEPENDENTS0 B-NOR . CV) (IMMEDIATE-DEPENDENTS0 B-OR . CV) (IMMEDIATE-DEPENDENTS0 B-NOR4 . CV) (IMMEDIATE-DEPENDENTS0 B-NOR6 . CV) (IMMEDIATE-DEPENDENTS0 B-NOR5 . CV) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CV) (IMMEDIATE-DEPENDENTS0 B-NAND5 . CV) (IMMEDIATE-DEPENDENTS0 B-NOR8 . CV) (IMMEDIATE-DEPENDENTS0 B-NOR3 . CV) (IMMEDIATE-DEPENDENTS0 NTH . CV) (IMMEDIATE-DEPENDENTS0 B-NOT . CV) (IMMEDIATE-DEPENDENTS0 B-NAND . CV) (IMMEDIATE-DEPENDENTS0 B-AND . CV) (DCELL . *1*CV))))) (PUT1-LST (QUOTE NEXT-STATE$VALUE-OFF) (QUOTE (IDATE 1000402194114 EVENT (TOGGLE NEXT-STATE$VALUE-OFF NEXT-STATE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-STATE$VALUE . NEXT-STATE$VALUE-OFF) (DISABLED-LEMMAS NIL NEXT-STATE$VALUE NEXT-STATE$VALUE-OFF . T))))) (PUT1-LST (QUOTE NEXT-STATE$VALUE) (QUOTE (IDATE 1000402194114 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE NEXT-STATE$VALUE-OFF) EVENT (PROVE-LEMMA NEXT-STATE$VALUE (REWRITE) (IMPLIES (AND (NEXT-STATE& NETLIST) (AND (PROPERP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE NEXT-STATE) (APPEND DECODED-STATE (CONS STORE (CONS SET-SOME-FLAGS (CONS UNARY (CONS DIRECT-A (CONS DIRECT-B (CONS SIDE-EFFECT-A (CONS SIDE-EFFECT-B (CONS ALL-T-REGS-ADDRESS (CONS DTACK- (CONS HOLD- (QUOTE NIL)))))))))))) STATE NETLIST) (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) ((ENABLE NEXT-STATE& F$NEXT-STATE VSS$VALUE B-OR$VALUE B-NAND5$VALUE B-NAND3$VALUE B-NAND6$VALUE B-AND$VALUE B-NAND4$VALUE B-AND3$VALUE B-NOT$VALUE B-AND4$VALUE B-NAND$VALUE ID$VALUE) (DISABLE OPEN-INDICES *1*INDICES INDICES) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VSS$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND5$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND6$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND4$VALUE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 VSS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE* . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 F$NEXT-STATE . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . NEXT-STATE$VALUE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE& . NEXT-STATE$VALUE) (LEMMAS DUAL-EVAL . NEXT-STATE$VALUE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$NEXT-STATE) (QUOTE (IDATE 1000402194113 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE PROPERP-LENGTH-F$NEXT-CNTL-STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$NEXT-STATE (REWRITE) (AND (EQUAL (LENGTH (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) (QUOTE 32)) (PROPERP (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) ((ENABLE F$NEXT-STATE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 VSS . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-STATE . PROPERP-LENGTH-F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$NEXT-STATE) (LEMMAS PROPERP . PROPERP-LENGTH-F$NEXT-STATE) (LEMMAS LENGTH . PROPERP-LENGTH-F$NEXT-STATE))))) (PUT1-LST (QUOTE BVP-LENGTH-NEXT-STATE) (QUOTE (IDATE 1000402194113 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA BVP-LENGTH-NEXT-STATE (REWRITE) (AND (EQUAL (LENGTH (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) (QUOTE 32)) (IMPLIES (AND (BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (BVP (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)))) ((ENABLE BVP NEXT-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 VSS . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND6 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND5 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND3 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-OR . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND4 . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . BVP-LENGTH-NEXT-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-NEXT-STATE) (LEMMAS BVP . BVP-LENGTH-NEXT-STATE) (LEMMAS LENGTH . BVP-LENGTH-NEXT-STATE))))) (PUT1-LST (QUOTE *1*NEXT-STATE$NETLIST) (QUOTE (MAIN-EVENT NEXT-STATE$NETLIST))) (PUT1-LST (QUOTE NEXT-STATE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-STATE$NETLIST 16)) TOTALP-LST ((NEXT-STATE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (NEXT-STATE*) (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (VSS$NETLIST) (B-OR$NETLIST)) (B-NAND5$NETLIST)) (B-NAND3$NETLIST)) (B-NAND6$NETLIST)) (B-AND$NETLIST)) (B-NAND4$NETLIST)) (B-AND3$NETLIST)) (B-NOT$NETLIST)) (B-AND4$NETLIST)) (B-NAND$NETLIST)) (ID$NETLIST)))) LISP-CODE *1*NEXT-STATE$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194113 SATELLITES (*1*NEXT-STATE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST) EVENT (DEFN NEXT-STATE$NETLIST NIL (CONS (NEXT-STATE*) (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (VSS$NETLIST) (B-OR$NETLIST)) (B-NAND5$NETLIST)) (B-NAND3$NETLIST)) (B-NAND6$NETLIST)) (B-AND$NETLIST)) (B-NAND4$NETLIST)) (B-AND3$NETLIST)) (B-NOT$NETLIST)) (B-AND4$NETLIST)) (B-NAND$NETLIST)) (ID$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND4$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND3$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND6$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND5$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 VSS$NETLIST . NEXT-STATE$NETLIST) (IMMEDIATE-DEPENDENTS0 NEXT-STATE* . NEXT-STATE$NETLIST) (DCELL . *1*NEXT-STATE$NETLIST))))) (PUT1-LST (QUOTE NEXT-STATE&-OFF) (QUOTE (IDATE 1000402194113 EVENT (TOGGLE NEXT-STATE&-OFF NEXT-STATE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-STATE& . NEXT-STATE&-OFF) (DISABLED-LEMMAS NIL NEXT-STATE& NEXT-STATE&-OFF . T))))) (PUT1-LST (QUOTE *1*NEXT-STATE&) (QUOTE (MAIN-EVENT NEXT-STATE&))) (PUT1-LST (QUOTE NEXT-STATE&) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-STATE& 3 NIL)) TOTALP-LST ((NEXT-STATE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE NEXT-STATE) NETLIST) (NEXT-STATE*)) (IF (VSS& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-OR& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NAND5& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NAND6& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-AND& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NAND4& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-AND3& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-AND4& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (ID& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*NEXT-STATE& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*NEXT-STATE&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& NEXT-STATE$VALUE NEXT-STATE&-OFF) EVENT (DEFN NEXT-STATE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE NEXT-STATE) NETLIST) (NEXT-STATE*)) (AND (VSS& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-OR& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NAND5& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NAND6& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-AND& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NAND4& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-AND3& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-AND4& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST)) (ID& (DELETE-MODULE (QUOTE NEXT-STATE) NETLIST))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NAND& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-AND4& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NOT& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-AND3& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NAND4& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-AND& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NAND6& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-NAND5& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 B-OR& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 VSS& . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 NEXT-STATE* . NEXT-STATE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . NEXT-STATE&) (DCELL . *1*NEXT-STATE&))))) (PUT1-LST (QUOTE *1*NEXT-STATE*) (QUOTE (MAIN-EVENT NEXT-STATE*))) (PUT1-LST (QUOTE NEXT-STATE*) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-STATE* 16)) TOTALP-LST ((NEXT-STATE* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE NEXT-STATE) (CONS (APPEND (INDICES (QUOTE S) (QUOTE 0) (QUOTE 32)) (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (CONS (QUOTE (W-17 W-18 W-19 W-22 W-24 W-27 W-29 W-44 W-47 W-48 W-49 W-52 W-61 W-62 W-63 W-66 W-74 W-75 W-76 W-79 W-82 W-83 W-89 W-93 W-98 W-99 W-112 W-113 W-105 W-106 W-110 W-111)) (CONS (APPEND (QUOTE ((R-0 (FETCH0) ID ((*1*QUOTE INDEX S 0))) (R-1 (FETCH1) ID ((*1*QUOTE INDEX S 1))) (R-2 (FETCH2) ID ((*1*QUOTE INDEX S 2))) (R-3 (FETCH3) ID ((*1*QUOTE INDEX S 3))) (R-4 (DECODE) ID ((*1*QUOTE INDEX S 4))) (R-5 (REGA) ID ((*1*QUOTE INDEX S 5))) (R-6 (REGB) ID ((*1*QUOTE INDEX S 6))) (R-7 (UPDATE) ID ((*1*QUOTE INDEX S 7))) (R-8 (READA0) ID ((*1*QUOTE INDEX S 8))) (R-9 (READA1) ID ((*1*QUOTE INDEX S 9))) (R-10 (READA2) ID ((*1*QUOTE INDEX S 10))) (R-11 (READA3) ID ((*1*QUOTE INDEX S 11))) (R-12 (READB0) ID ((*1*QUOTE INDEX S 12))) (R-13 (READB1) ID ((*1*QUOTE INDEX S 13))) (R-14 (READB2) ID ((*1*QUOTE INDEX S 14))) (R-15 (READB3) ID ((*1*QUOTE INDEX S 15))) (R-16 (WRITE0) ID ((*1*QUOTE INDEX S 16))) (R-17 (WRITE1) ID ((*1*QUOTE INDEX S 17))) (R-18 (WRITE2) ID ((*1*QUOTE INDEX S 18))) (R-19 (WRITE3) ID ((*1*QUOTE INDEX S 19))) (R-20 (SEFA0) ID ((*1*QUOTE INDEX S 20))) (R-21 (SEFA1) ID ((*1*QUOTE INDEX S 21))) (R-22 (SEFB0) ID ((*1*QUOTE INDEX S 22))) (R-23 (SEFB1) ID ((*1*QUOTE INDEX S 23))) (R-24 (HOLD0) ID ((*1*QUOTE INDEX S 24))) (R-25 (HOLD1) ID ((*1*QUOTE INDEX S 25))) (R-26 (V11010) ID ((*1*QUOTE INDEX S 26))) (R-27 (V11011) ID ((*1*QUOTE INDEX S 27))) (R-28 (RESET0) ID ((*1*QUOTE INDEX S 28))) (R-29 (RESET1) ID ((*1*QUOTE INDEX S 29))) (R-30 (RESET2) ID ((*1*QUOTE INDEX S 30))) (R-31 (V11111) ID ((*1*QUOTE INDEX S 31))))) (QUOTE ((G-111 (W-111) VSS NIL) (G-109 (W-109) B-NOT (RESET1)) (G-107 (W-107) B-NOT (ALL-T-REGS-ADDRESS)) (G-108 (W-108) B-NAND (W-107 RESET2)) (G-110 (W-110) B-NAND (W-108 W-109)) (G-106 (W-106) ID (RESET0)) (G-104 (W-104) B-NOT (V11010)) (G-103 (W-103) B-NOT (V11011)) (G-102 (W-102) B-NOT (V11111)) (G-105 (W-105) B-NAND3 (W-102 W-103 W-104)) (G-99 (W-99) B-AND (HOLD- HOLD0)) (G-96 (W-96) B-NOT (HOLD-)) (G-97 (W-97) B-NAND (W-96 FETCH1)) (G-95 (W-95) B-NAND (W-96 HOLD0)) (G-98 (W-98) B-NAND (W-95 W-97)) (G-91 (W-91) B-AND (SIDE-EFFECT-B UNARY)) (G-92 (W-92) B-NAND (W-91 UPDATE)) (G-90 (W-90) B-NOT (SEFB0)) (G-93 (W-93) B-NAND (W-90 W-92)) (G-86 (W-86) B-OR (STORE SET-SOME-FLAGS)) (G-87 (W-87) B-NOT (W-86)) (G-85 (W-85) B-NOT (SIDE-EFFECT-A)) (G-88 (W-88) B-NAND4 (SIDE-EFFECT-B W-85 W-87 DECODE)) (G-84 (W-84) B-NAND (SIDE-EFFECT-B SEFA1)) (G-89 (W-89) B-NAND (W-84 W-88)) (G-83 (W-83) ID (SEFA0)) (G-82 (W-82) B-AND3 (SIDE-EFFECT-A W-87 DECODE)) (G-78 (W-78) B-NOT (WRITE2)) (G-77 (W-77) B-NAND (DTACK- WRITE3)) (G-79 (W-79) B-NAND (W-77 W-78)) (G-76 (W-76) ID (WRITE1)) (G-75 (W-75) ID (WRITE0)) (G-72 (W-72) B-NOT (DIRECT-B)) (G-73 (W-73) B-NAND3 (STORE W-72 REGA)) (G-70 (W-70) B-NOT (DTACK-)) (G-71 (W-71) B-NAND5 (STORE UNARY W-72 W-70 READA3)) (G-68 (W-68) B-NAND3 (STORE W-70 READB3)) (G-74 (W-74) B-NAND3 (W-68 W-71 W-73)) (G-65 (W-65) B-NOT (READB2)) (G-64 (W-64) B-NAND (DTACK- READB3)) (G-66 (W-66) B-NAND (W-64 W-65)) (G-63 (W-63) ID (READB1)) (G-62 (W-62) ID (READB0)) (G-57 (W-57) B-OR (DIRECT-B UNARY)) (G-58 (W-58) B-NOT (W-57)) (G-60 (W-60) B-NAND4 (W-58 DIRECT-A W-86 DECODE)) (G-53 (W-53) B-NOT (UNARY)) (G-56 (W-56) B-NAND4 (W-53 W-72 W-70 READA3)) (G-61 (W-61) B-NAND (W-56 W-60)) (G-51 (W-51) B-NOT (READA2)) (G-50 (W-50) B-NAND (DTACK- READA3)) (G-52 (W-52) B-NAND (W-50 W-51)) (G-49 (W-49) ID (READA1)) (G-48 (W-48) ID (READA0)) (G-45 (W-45) B-NOT (DIRECT-A)) (G-47 (W-47) B-AND3 (W-45 W-86 DECODE)) (G-43 (W-43) B-NAND3 (UNARY DIRECT-B REGA)) (G-40 (W-40) B-NOT (STORE)) (G-42 (W-42) B-NAND3 (W-40 W-72 REGA)) (G-39 (W-39) B-NOT (REGB)) (G-38 (W-38) B-NAND3 (DIRECT-B W-70 READA3)) (G-36 (W-36) B-NAND5 (W-40 UNARY W-72 W-70 READA3)) (G-32 (W-32) B-NAND3 (W-40 W-70 READB3)) (G-44 (W-44) B-NAND6 (W-32 W-36 W-38 W-39 W-42 W-43)) (G-29 (W-29) B-AND3 (W-53 DIRECT-B REGA)) (G-27 (W-27) B-AND4 (W-57 DIRECT-A W-86 DECODE)) (G-24 (W-24) B-AND (W-70 FETCH3)) (G-21 (W-21) B-NOT (FETCH2)) (G-20 (W-20) B-NAND (DTACK- FETCH3)) (G-22 (W-22) B-NAND (W-20 W-21)) (G-19 (W-19) B-AND (HOLD- FETCH1)) (G-18 (W-18) ID (FETCH0)) (G-11 (W-11) B-NOT (SIDE-EFFECT-B)) (G-15 (W-15) B-NAND4 (W-11 W-85 W-87 DECODE)) (G-9 (W-9) B-NOT (W-91)) (G-10 (W-10) B-NAND (W-9 UPDATE)) (G-7 (W-7) B-NAND (W-70 WRITE3)) (G-16 (W-16) B-AND3 (W-7 W-10 W-15)) (G-4 (W-4) B-NAND (W-11 SEFA1)) (G-2 (W-2) B-NOT (SEFB1)) (G-1 (W-1) B-NOT (HOLD1)) (G-0 (W-0) B-NAND (ALL-T-REGS-ADDRESS RESET2)) (G-5 (W-5) B-AND4 (W-0 W-1 W-2 W-4)) (G-17 (W-17) B-NAND (W-5 W-16)) (G-112 (W-112) ID (W-111)) (G-113 (W-113) ID (W-111))))) (QUOTE (NIL))))))) LISP-CODE *1*NEXT-STATE* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*NEXT-STATE*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-STATE$VALUE NEXT-STATE$NETLIST NEXT-STATE&) EVENT (DEFN NEXT-STATE* NIL (CONS (QUOTE NEXT-STATE) (CONS (APPEND (INDICES (QUOTE S) (QUOTE 0) (QUOTE 32)) (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (CONS (QUOTE (W-17 W-18 W-19 W-22 W-24 W-27 W-29 W-44 W-47 W-48 W-49 W-52 W-61 W-62 W-63 W-66 W-74 W-75 W-76 W-79 W-82 W-83 W-89 W-93 W-98 W-99 W-112 W-113 W-105 W-106 W-110 W-111)) (CONS (APPEND (QUOTE ((R-0 (FETCH0) ID ((*1*QUOTE INDEX S 0))) (R-1 (FETCH1) ID ((*1*QUOTE INDEX S 1))) (R-2 (FETCH2) ID ((*1*QUOTE INDEX S 2))) (R-3 (FETCH3) ID ((*1*QUOTE INDEX S 3))) (R-4 (DECODE) ID ((*1*QUOTE INDEX S 4))) (R-5 (REGA) ID ((*1*QUOTE INDEX S 5))) (R-6 (REGB) ID ((*1*QUOTE INDEX S 6))) (R-7 (UPDATE) ID ((*1*QUOTE INDEX S 7))) (R-8 (READA0) ID ((*1*QUOTE INDEX S 8))) (R-9 (READA1) ID ((*1*QUOTE INDEX S 9))) (R-10 (READA2) ID ((*1*QUOTE INDEX S 10))) (R-11 (READA3) ID ((*1*QUOTE INDEX S 11))) (R-12 (READB0) ID ((*1*QUOTE INDEX S 12))) (R-13 (READB1) ID ((*1*QUOTE INDEX S 13))) (R-14 (READB2) ID ((*1*QUOTE INDEX S 14))) (R-15 (READB3) ID ((*1*QUOTE INDEX S 15))) (R-16 (WRITE0) ID ((*1*QUOTE INDEX S 16))) (R-17 (WRITE1) ID ((*1*QUOTE INDEX S 17))) (R-18 (WRITE2) ID ((*1*QUOTE INDEX S 18))) (R-19 (WRITE3) ID ((*1*QUOTE INDEX S 19))) (R-20 (SEFA0) ID ((*1*QUOTE INDEX S 20))) (R-21 (SEFA1) ID ((*1*QUOTE INDEX S 21))) (R-22 (SEFB0) ID ((*1*QUOTE INDEX S 22))) (R-23 (SEFB1) ID ((*1*QUOTE INDEX S 23))) (R-24 (HOLD0) ID ((*1*QUOTE INDEX S 24))) (R-25 (HOLD1) ID ((*1*QUOTE INDEX S 25))) (R-26 (V11010) ID ((*1*QUOTE INDEX S 26))) (R-27 (V11011) ID ((*1*QUOTE INDEX S 27))) (R-28 (RESET0) ID ((*1*QUOTE INDEX S 28))) (R-29 (RESET1) ID ((*1*QUOTE INDEX S 29))) (R-30 (RESET2) ID ((*1*QUOTE INDEX S 30))) (R-31 (V11111) ID ((*1*QUOTE INDEX S 31))))) (QUOTE ((G-111 (W-111) VSS NIL) (G-109 (W-109) B-NOT (RESET1)) (G-107 (W-107) B-NOT (ALL-T-REGS-ADDRESS)) (G-108 (W-108) B-NAND (W-107 RESET2)) (G-110 (W-110) B-NAND (W-108 W-109)) (G-106 (W-106) ID (RESET0)) (G-104 (W-104) B-NOT (V11010)) (G-103 (W-103) B-NOT (V11011)) (G-102 (W-102) B-NOT (V11111)) (G-105 (W-105) B-NAND3 (W-102 W-103 W-104)) (G-99 (W-99) B-AND (HOLD- HOLD0)) (G-96 (W-96) B-NOT (HOLD-)) (G-97 (W-97) B-NAND (W-96 FETCH1)) (G-95 (W-95) B-NAND (W-96 HOLD0)) (G-98 (W-98) B-NAND (W-95 W-97)) (G-91 (W-91) B-AND (SIDE-EFFECT-B UNARY)) (G-92 (W-92) B-NAND (W-91 UPDATE)) (G-90 (W-90) B-NOT (SEFB0)) (G-93 (W-93) B-NAND (W-90 W-92)) (G-86 (W-86) B-OR (STORE SET-SOME-FLAGS)) (G-87 (W-87) B-NOT (W-86)) (G-85 (W-85) B-NOT (SIDE-EFFECT-A)) (G-88 (W-88) B-NAND4 (SIDE-EFFECT-B W-85 W-87 DECODE)) (G-84 (W-84) B-NAND (SIDE-EFFECT-B SEFA1)) (G-89 (W-89) B-NAND (W-84 W-88)) (G-83 (W-83) ID (SEFA0)) (G-82 (W-82) B-AND3 (SIDE-EFFECT-A W-87 DECODE)) (G-78 (W-78) B-NOT (WRITE2)) (G-77 (W-77) B-NAND (DTACK- WRITE3)) (G-79 (W-79) B-NAND (W-77 W-78)) (G-76 (W-76) ID (WRITE1)) (G-75 (W-75) ID (WRITE0)) (G-72 (W-72) B-NOT (DIRECT-B)) (G-73 (W-73) B-NAND3 (STORE W-72 REGA)) (G-70 (W-70) B-NOT (DTACK-)) (G-71 (W-71) B-NAND5 (STORE UNARY W-72 W-70 READA3)) (G-68 (W-68) B-NAND3 (STORE W-70 READB3)) (G-74 (W-74) B-NAND3 (W-68 W-71 W-73)) (G-65 (W-65) B-NOT (READB2)) (G-64 (W-64) B-NAND (DTACK- READB3)) (G-66 (W-66) B-NAND (W-64 W-65)) (G-63 (W-63) ID (READB1)) (G-62 (W-62) ID (READB0)) (G-57 (W-57) B-OR (DIRECT-B UNARY)) (G-58 (W-58) B-NOT (W-57)) (G-60 (W-60) B-NAND4 (W-58 DIRECT-A W-86 DECODE)) (G-53 (W-53) B-NOT (UNARY)) (G-56 (W-56) B-NAND4 (W-53 W-72 W-70 READA3)) (G-61 (W-61) B-NAND (W-56 W-60)) (G-51 (W-51) B-NOT (READA2)) (G-50 (W-50) B-NAND (DTACK- READA3)) (G-52 (W-52) B-NAND (W-50 W-51)) (G-49 (W-49) ID (READA1)) (G-48 (W-48) ID (READA0)) (G-45 (W-45) B-NOT (DIRECT-A)) (G-47 (W-47) B-AND3 (W-45 W-86 DECODE)) (G-43 (W-43) B-NAND3 (UNARY DIRECT-B REGA)) (G-40 (W-40) B-NOT (STORE)) (G-42 (W-42) B-NAND3 (W-40 W-72 REGA)) (G-39 (W-39) B-NOT (REGB)) (G-38 (W-38) B-NAND3 (DIRECT-B W-70 READA3)) (G-36 (W-36) B-NAND5 (W-40 UNARY W-72 W-70 READA3)) (G-32 (W-32) B-NAND3 (W-40 W-70 READB3)) (G-44 (W-44) B-NAND6 (W-32 W-36 W-38 W-39 W-42 W-43)) (G-29 (W-29) B-AND3 (W-53 DIRECT-B REGA)) (G-27 (W-27) B-AND4 (W-57 DIRECT-A W-86 DECODE)) (G-24 (W-24) B-AND (W-70 FETCH3)) (G-21 (W-21) B-NOT (FETCH2)) (G-20 (W-20) B-NAND (DTACK- FETCH3)) (G-22 (W-22) B-NAND (W-20 W-21)) (G-19 (W-19) B-AND (HOLD- FETCH1)) (G-18 (W-18) ID (FETCH0)) (G-11 (W-11) B-NOT (SIDE-EFFECT-B)) (G-15 (W-15) B-NAND4 (W-11 W-85 W-87 DECODE)) (G-9 (W-9) B-NOT (W-91)) (G-10 (W-10) B-NAND (W-9 UPDATE)) (G-7 (W-7) B-NAND (W-70 WRITE3)) (G-16 (W-16) B-AND3 (W-7 W-10 W-15)) (G-4 (W-4) B-NAND (W-11 SEFA1)) (G-2 (W-2) B-NOT (SEFB1)) (G-1 (W-1) B-NOT (HOLD1)) (G-0 (W-0) B-NAND (ALL-T-REGS-ADDRESS RESET2)) (G-5 (W-5) B-AND4 (W-0 W-1 W-2 W-4)) (G-17 (W-17) B-NAND (W-5 W-16)) (G-112 (W-112) ID (W-111)) (G-113 (W-113) ID (W-111))))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . NEXT-STATE*) (IMMEDIATE-DEPENDENTS0 INDICES . NEXT-STATE*) (DCELL . *1*NEXT-STATE*))))) (PUT1-LST (QUOTE F$NEXT-STATE=NEXT-STATE) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA F$NEXT-STATE=NEXT-STATE (REWRITE) (IMPLIES (AND (BVP DECODED-STATE) (AND (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (AND (BOOLP STORE) (AND (BOOLP SET-SOME-FLAGS) (AND (BOOLP UNARY) (AND (BOOLP DIRECT-A) (AND (BOOLP DIRECT-B) (AND (BOOLP SIDE-EFFECT-A) (AND (BOOLP SIDE-EFFECT-B) (AND (BOOLP ALL-T-REGS-ADDRESS) (AND (BOOLP DTACK-) (BOOLP HOLD-)))))))))))) (EQUAL (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) ((ENABLE F$NEXT-STATE NEXT-STATE BOOLP-B-GATES) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-GATES . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-STATE . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F$NEXT-STATE . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . F$NEXT-STATE=NEXT-STATE) (IMMEDIATE-DEPENDENTS0 BVP . F$NEXT-STATE=NEXT-STATE) (LEMMAS F$NEXT-STATE . F$NEXT-STATE=NEXT-STATE))))) (PUT1-LST (QUOTE F$NEXT-STATE-OFF) (QUOTE (IDATE 1000402194112 EVENT (TOGGLE F$NEXT-STATE-OFF F$NEXT-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$NEXT-STATE . F$NEXT-STATE-OFF) (DISABLED-LEMMAS NIL F$NEXT-STATE F$NEXT-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*F$NEXT-STATE) (QUOTE (MAIN-EVENT F$NEXT-STATE))) (PUT1-LST (QUOTE F$NEXT-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$NEXT-STATE 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$NEXT-STATE=NEXT-STATE ((BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (BOOLP STORE) (BOOLP SET-SOME-FLAGS) (BOOLP UNARY) (BOOLP DIRECT-A) (BOOLP DIRECT-B) (BOOLP SIDE-EFFECT-A) (BOOLP SIDE-EFFECT-B) (BOOLP ALL-T-REGS-ADDRESS) (BOOLP DTACK-) (BOOLP HOLD-)) (EQUAL (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) NIL)) TOTALP-LST ((F$NEXT-STATE . T)) SDEFN (LAMBDA (DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (CONS (F-NAND (F-AND4 (F-NAND ALL-T-REGS-ADDRESS (NTH (QUOTE 30) DECODED-STATE)) (F-NOT (NTH (QUOTE 25) DECODED-STATE)) (F-NOT (NTH (QUOTE 23) DECODED-STATE)) (F-NAND (F-NOT SIDE-EFFECT-B) (NTH (QUOTE 21) DECODED-STATE))) (F-AND3 (F-NAND (F-NOT DTACK-) (NTH (QUOTE 19) DECODED-STATE)) (F-NAND (F-NOT (F-AND SIDE-EFFECT-B UNARY)) (NTH (QUOTE 7) DECODED-STATE)) (F-NAND4 (F-NOT SIDE-EFFECT-B) (F-NOT SIDE-EFFECT-A) (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)))) (CONS (NTH (QUOTE 0) DECODED-STATE) (CONS (F-AND HOLD- (NTH (QUOTE 1) DECODED-STATE)) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 3) DECODED-STATE)) (F-NOT (NTH (QUOTE 2) DECODED-STATE))) (CONS (F-AND (F-NOT DTACK-) (NTH (QUOTE 3) DECODED-STATE)) (CONS (F-AND4 (F-OR DIRECT-B UNARY) DIRECT-A (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (F-AND3 (F-NOT UNARY) DIRECT-B (NTH (QUOTE 5) DECODED-STATE)) (CONS (F-NAND6 (F-NAND3 (F-NOT STORE) (F-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (F-NAND5 (F-NOT STORE) UNARY (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND3 DIRECT-B (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NOT (NTH (QUOTE 6) DECODED-STATE)) (F-NAND3 (F-NOT STORE) (F-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE)) (F-NAND3 UNARY DIRECT-B (NTH (QUOTE 5) DECODED-STATE))) (CONS (F-AND3 (F-NOT DIRECT-A) (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 8) DECODED-STATE) (CONS (NTH (QUOTE 9) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 11) DECODED-STATE)) (F-NOT (NTH (QUOTE 10) DECODED-STATE))) (CONS (F-NAND (F-NAND4 (F-NOT UNARY) (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND4 (F-NOT (F-OR DIRECT-B UNARY)) DIRECT-A (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE))) (CONS (NTH (QUOTE 12) DECODED-STATE) (CONS (NTH (QUOTE 13) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 15) DECODED-STATE)) (F-NOT (NTH (QUOTE 14) DECODED-STATE))) (CONS (F-NAND3 (F-NAND3 STORE (F-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (F-NAND5 STORE UNARY (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND3 STORE (F-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE))) (CONS (NTH (QUOTE 16) DECODED-STATE) (CONS (NTH (QUOTE 17) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 19) DECODED-STATE)) (F-NOT (NTH (QUOTE 18) DECODED-STATE))) (CONS (F-AND3 SIDE-EFFECT-A (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 20) DECODED-STATE) (CONS (F-NAND (F-NAND SIDE-EFFECT-B (NTH (QUOTE 21) DECODED-STATE)) (F-NAND4 SIDE-EFFECT-B (F-NOT SIDE-EFFECT-A) (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE))) (CONS (F-NAND (F-NOT (NTH (QUOTE 22) DECODED-STATE)) (F-NAND (F-AND SIDE-EFFECT-B UNARY) (NTH (QUOTE 7) DECODED-STATE))) (CONS (F-NAND (F-NAND (F-NOT HOLD-) (NTH (QUOTE 24) DECODED-STATE)) (F-NAND (F-NOT HOLD-) (NTH (QUOTE 1) DECODED-STATE))) (CONS (F-AND HOLD- (NTH (QUOTE 24) DECODED-STATE)) (CONS (VSS) (CONS (VSS) (CONS (F-NAND3 (F-NOT (NTH (QUOTE 31) DECODED-STATE)) (F-NOT (NTH (QUOTE 27) DECODED-STATE)) (F-NOT (NTH (QUOTE 26) DECODED-STATE))) (CONS (NTH (QUOTE 28) DECODED-STATE) (CONS (F-NAND (F-NAND (F-NOT ALL-T-REGS-ADDRESS) (NTH (QUOTE 30) DECODED-STATE)) (F-NOT (NTH (QUOTE 29) DECODED-STATE))) (CONS (VSS) (QUOTE NIL)))))))))))))))))))))))))))))))))) LISP-CODE *1*F$NEXT-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*F$NEXT-STATE) IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE F$NEXT-STATE=NEXT-STATE F$NEXT-STATE-OFF) EVENT (DEFN F$NEXT-STATE (DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (CONS (F-NAND (F-AND4 (F-NAND ALL-T-REGS-ADDRESS (NTH (QUOTE 30) DECODED-STATE)) (F-NOT (NTH (QUOTE 25) DECODED-STATE)) (F-NOT (NTH (QUOTE 23) DECODED-STATE)) (F-NAND (F-NOT SIDE-EFFECT-B) (NTH (QUOTE 21) DECODED-STATE))) (F-AND3 (F-NAND (F-NOT DTACK-) (NTH (QUOTE 19) DECODED-STATE)) (F-NAND (F-NOT (F-AND SIDE-EFFECT-B UNARY)) (NTH (QUOTE 7) DECODED-STATE)) (F-NAND4 (F-NOT SIDE-EFFECT-B) (F-NOT SIDE-EFFECT-A) (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)))) (CONS (NTH (QUOTE 0) DECODED-STATE) (CONS (F-AND HOLD- (NTH (QUOTE 1) DECODED-STATE)) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 3) DECODED-STATE)) (F-NOT (NTH (QUOTE 2) DECODED-STATE))) (CONS (F-AND (F-NOT DTACK-) (NTH (QUOTE 3) DECODED-STATE)) (CONS (F-AND4 (F-OR DIRECT-B UNARY) DIRECT-A (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (F-AND3 (F-NOT UNARY) DIRECT-B (NTH (QUOTE 5) DECODED-STATE)) (CONS (F-NAND6 (F-NAND3 (F-NOT STORE) (F-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (F-NAND5 (F-NOT STORE) UNARY (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND3 DIRECT-B (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NOT (NTH (QUOTE 6) DECODED-STATE)) (F-NAND3 (F-NOT STORE) (F-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE)) (F-NAND3 UNARY DIRECT-B (NTH (QUOTE 5) DECODED-STATE))) (CONS (F-AND3 (F-NOT DIRECT-A) (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 8) DECODED-STATE) (CONS (NTH (QUOTE 9) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 11) DECODED-STATE)) (F-NOT (NTH (QUOTE 10) DECODED-STATE))) (CONS (F-NAND (F-NAND4 (F-NOT UNARY) (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND4 (F-NOT (F-OR DIRECT-B UNARY)) DIRECT-A (F-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE))) (CONS (NTH (QUOTE 12) DECODED-STATE) (CONS (NTH (QUOTE 13) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 15) DECODED-STATE)) (F-NOT (NTH (QUOTE 14) DECODED-STATE))) (CONS (F-NAND3 (F-NAND3 STORE (F-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (F-NAND5 STORE UNARY (F-NOT DIRECT-B) (F-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (F-NAND3 STORE (F-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE))) (CONS (NTH (QUOTE 16) DECODED-STATE) (CONS (NTH (QUOTE 17) DECODED-STATE) (CONS (F-NAND (F-NAND DTACK- (NTH (QUOTE 19) DECODED-STATE)) (F-NOT (NTH (QUOTE 18) DECODED-STATE))) (CONS (F-AND3 SIDE-EFFECT-A (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 20) DECODED-STATE) (CONS (F-NAND (F-NAND SIDE-EFFECT-B (NTH (QUOTE 21) DECODED-STATE)) (F-NAND4 SIDE-EFFECT-B (F-NOT SIDE-EFFECT-A) (F-NOT (F-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE))) (CONS (F-NAND (F-NOT (NTH (QUOTE 22) DECODED-STATE)) (F-NAND (F-AND SIDE-EFFECT-B UNARY) (NTH (QUOTE 7) DECODED-STATE))) (CONS (F-NAND (F-NAND (F-NOT HOLD-) (NTH (QUOTE 24) DECODED-STATE)) (F-NAND (F-NOT HOLD-) (NTH (QUOTE 1) DECODED-STATE))) (CONS (F-AND HOLD- (NTH (QUOTE 24) DECODED-STATE)) (CONS (VSS) (CONS (VSS) (CONS (F-NAND3 (F-NOT (NTH (QUOTE 31) DECODED-STATE)) (F-NOT (NTH (QUOTE 27) DECODED-STATE)) (F-NOT (NTH (QUOTE 26) DECODED-STATE))) (CONS (NTH (QUOTE 28) DECODED-STATE) (CONS (F-NAND (F-NAND (F-NOT ALL-T-REGS-ADDRESS) (NTH (QUOTE 30) DECODED-STATE)) (F-NOT (NTH (QUOTE 29) DECODED-STATE))) (CONS (VSS) (QUOTE NIL)))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-OR . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-AND . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-AND3 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 NTH . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-AND4 . F$NEXT-STATE) (IMMEDIATE-DEPENDENTS0 F-NAND . F$NEXT-STATE) (DCELL . *1*F$NEXT-STATE))))) (PUT1-LST (QUOTE *1*NEXT-STATE) (QUOTE (MAIN-EVENT NEXT-STATE))) (PUT1-LST (QUOTE NEXT-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-STATE 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((NEXT-STATE . T)) SDEFN (LAMBDA (DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (CONS (B-NAND (B-AND4 (B-NAND ALL-T-REGS-ADDRESS (NTH (QUOTE 30) DECODED-STATE)) (B-NOT (NTH (QUOTE 25) DECODED-STATE)) (B-NOT (NTH (QUOTE 23) DECODED-STATE)) (B-NAND (B-NOT SIDE-EFFECT-B) (NTH (QUOTE 21) DECODED-STATE))) (B-AND3 (B-NAND (B-NOT DTACK-) (NTH (QUOTE 19) DECODED-STATE)) (B-NAND (B-NOT (B-AND SIDE-EFFECT-B UNARY)) (NTH (QUOTE 7) DECODED-STATE)) (B-NAND4 (B-NOT SIDE-EFFECT-B) (B-NOT SIDE-EFFECT-A) (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)))) (CONS (NTH (QUOTE 0) DECODED-STATE) (CONS (B-AND HOLD- (NTH (QUOTE 1) DECODED-STATE)) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 3) DECODED-STATE)) (B-NOT (NTH (QUOTE 2) DECODED-STATE))) (CONS (B-AND (B-NOT DTACK-) (NTH (QUOTE 3) DECODED-STATE)) (CONS (B-AND4 (B-OR DIRECT-B UNARY) DIRECT-A (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (B-AND3 (B-NOT UNARY) DIRECT-B (NTH (QUOTE 5) DECODED-STATE)) (CONS (B-NAND6 (B-NAND3 (B-NOT STORE) (B-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (B-NAND5 (B-NOT STORE) UNARY (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND3 DIRECT-B (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NOT (NTH (QUOTE 6) DECODED-STATE)) (B-NAND3 (B-NOT STORE) (B-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE)) (B-NAND3 UNARY DIRECT-B (NTH (QUOTE 5) DECODED-STATE))) (CONS (B-AND3 (B-NOT DIRECT-A) (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 8) DECODED-STATE) (CONS (NTH (QUOTE 9) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 11) DECODED-STATE)) (B-NOT (NTH (QUOTE 10) DECODED-STATE))) (CONS (B-NAND (B-NAND4 (B-NOT UNARY) (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND4 (B-NOT (B-OR DIRECT-B UNARY)) DIRECT-A (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE))) (CONS (NTH (QUOTE 12) DECODED-STATE) (CONS (NTH (QUOTE 13) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 15) DECODED-STATE)) (B-NOT (NTH (QUOTE 14) DECODED-STATE))) (CONS (B-NAND3 (B-NAND3 STORE (B-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (B-NAND5 STORE UNARY (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND3 STORE (B-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE))) (CONS (NTH (QUOTE 16) DECODED-STATE) (CONS (NTH (QUOTE 17) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 19) DECODED-STATE)) (B-NOT (NTH (QUOTE 18) DECODED-STATE))) (CONS (B-AND3 SIDE-EFFECT-A (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 20) DECODED-STATE) (CONS (B-NAND (B-NAND SIDE-EFFECT-B (NTH (QUOTE 21) DECODED-STATE)) (B-NAND4 SIDE-EFFECT-B (B-NOT SIDE-EFFECT-A) (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE))) (CONS (B-NAND (B-NOT (NTH (QUOTE 22) DECODED-STATE)) (B-NAND (B-AND SIDE-EFFECT-B UNARY) (NTH (QUOTE 7) DECODED-STATE))) (CONS (B-NAND (B-NAND (B-NOT HOLD-) (NTH (QUOTE 24) DECODED-STATE)) (B-NAND (B-NOT HOLD-) (NTH (QUOTE 1) DECODED-STATE))) (CONS (B-AND HOLD- (NTH (QUOTE 24) DECODED-STATE)) (CONS (VSS) (CONS (VSS) (CONS (B-NAND3 (B-NOT (NTH (QUOTE 31) DECODED-STATE)) (B-NOT (NTH (QUOTE 27) DECODED-STATE)) (B-NOT (NTH (QUOTE 26) DECODED-STATE))) (CONS (NTH (QUOTE 28) DECODED-STATE) (CONS (B-NAND (B-NAND (B-NOT ALL-T-REGS-ADDRESS) (NTH (QUOTE 30) DECODED-STATE)) (B-NOT (NTH (QUOTE 29) DECODED-STATE))) (CONS (VSS) (QUOTE NIL)))))))))))))))))))))))))))))))))) LISP-CODE *1*NEXT-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*NEXT-STATE) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE NEXT-CNTL-STATE BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE) EVENT (DEFN NEXT-STATE (DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-) (CONS (B-NAND (B-AND4 (B-NAND ALL-T-REGS-ADDRESS (NTH (QUOTE 30) DECODED-STATE)) (B-NOT (NTH (QUOTE 25) DECODED-STATE)) (B-NOT (NTH (QUOTE 23) DECODED-STATE)) (B-NAND (B-NOT SIDE-EFFECT-B) (NTH (QUOTE 21) DECODED-STATE))) (B-AND3 (B-NAND (B-NOT DTACK-) (NTH (QUOTE 19) DECODED-STATE)) (B-NAND (B-NOT (B-AND SIDE-EFFECT-B UNARY)) (NTH (QUOTE 7) DECODED-STATE)) (B-NAND4 (B-NOT SIDE-EFFECT-B) (B-NOT SIDE-EFFECT-A) (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)))) (CONS (NTH (QUOTE 0) DECODED-STATE) (CONS (B-AND HOLD- (NTH (QUOTE 1) DECODED-STATE)) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 3) DECODED-STATE)) (B-NOT (NTH (QUOTE 2) DECODED-STATE))) (CONS (B-AND (B-NOT DTACK-) (NTH (QUOTE 3) DECODED-STATE)) (CONS (B-AND4 (B-OR DIRECT-B UNARY) DIRECT-A (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (B-AND3 (B-NOT UNARY) DIRECT-B (NTH (QUOTE 5) DECODED-STATE)) (CONS (B-NAND6 (B-NAND3 (B-NOT STORE) (B-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (B-NAND5 (B-NOT STORE) UNARY (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND3 DIRECT-B (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NOT (NTH (QUOTE 6) DECODED-STATE)) (B-NAND3 (B-NOT STORE) (B-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE)) (B-NAND3 UNARY DIRECT-B (NTH (QUOTE 5) DECODED-STATE))) (CONS (B-AND3 (B-NOT DIRECT-A) (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 8) DECODED-STATE) (CONS (NTH (QUOTE 9) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 11) DECODED-STATE)) (B-NOT (NTH (QUOTE 10) DECODED-STATE))) (CONS (B-NAND (B-NAND4 (B-NOT UNARY) (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND4 (B-NOT (B-OR DIRECT-B UNARY)) DIRECT-A (B-OR STORE SET-SOME-FLAGS) (NTH (QUOTE 4) DECODED-STATE))) (CONS (NTH (QUOTE 12) DECODED-STATE) (CONS (NTH (QUOTE 13) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 15) DECODED-STATE)) (B-NOT (NTH (QUOTE 14) DECODED-STATE))) (CONS (B-NAND3 (B-NAND3 STORE (B-NOT DTACK-) (NTH (QUOTE 15) DECODED-STATE)) (B-NAND5 STORE UNARY (B-NOT DIRECT-B) (B-NOT DTACK-) (NTH (QUOTE 11) DECODED-STATE)) (B-NAND3 STORE (B-NOT DIRECT-B) (NTH (QUOTE 5) DECODED-STATE))) (CONS (NTH (QUOTE 16) DECODED-STATE) (CONS (NTH (QUOTE 17) DECODED-STATE) (CONS (B-NAND (B-NAND DTACK- (NTH (QUOTE 19) DECODED-STATE)) (B-NOT (NTH (QUOTE 18) DECODED-STATE))) (CONS (B-AND3 SIDE-EFFECT-A (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE)) (CONS (NTH (QUOTE 20) DECODED-STATE) (CONS (B-NAND (B-NAND SIDE-EFFECT-B (NTH (QUOTE 21) DECODED-STATE)) (B-NAND4 SIDE-EFFECT-B (B-NOT SIDE-EFFECT-A) (B-NOT (B-OR STORE SET-SOME-FLAGS)) (NTH (QUOTE 4) DECODED-STATE))) (CONS (B-NAND (B-NOT (NTH (QUOTE 22) DECODED-STATE)) (B-NAND (B-AND SIDE-EFFECT-B UNARY) (NTH (QUOTE 7) DECODED-STATE))) (CONS (B-NAND (B-NAND (B-NOT HOLD-) (NTH (QUOTE 24) DECODED-STATE)) (B-NAND (B-NOT HOLD-) (NTH (QUOTE 1) DECODED-STATE))) (CONS (B-AND HOLD- (NTH (QUOTE 24) DECODED-STATE)) (CONS (VSS) (CONS (VSS) (CONS (B-NAND3 (B-NOT (NTH (QUOTE 31) DECODED-STATE)) (B-NOT (NTH (QUOTE 27) DECODED-STATE)) (B-NOT (NTH (QUOTE 26) DECODED-STATE))) (CONS (NTH (QUOTE 28) DECODED-STATE) (CONS (B-NAND (B-NAND (B-NOT ALL-T-REGS-ADDRESS) (NTH (QUOTE 30) DECODED-STATE)) (B-NOT (NTH (QUOTE 29) DECODED-STATE))) (CONS (VSS) (QUOTE NIL)))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND5 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND6 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-OR . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND3 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NOT . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 NTH . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-AND4 . NEXT-STATE) (IMMEDIATE-DEPENDENTS0 B-NAND . NEXT-STATE) (DCELL . *1*NEXT-STATE))))) (PUT1-LST (QUOTE F$CONTROL-LET=CONTROL-LET) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA F$CONTROL-LET=CONTROL-LET (REWRITE) (IMPLIES (AND (BVP I-REG) (AND (EQUAL (LENGTH I-REG) (QUOTE 32)) (AND (BVP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))))))) (EQUAL (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS) (CONS (A-IMMEDIATE-P I-REG) (CONS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (SET-SOME-FLAGS (SET-FLAGS I-REG)) (CONS (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (CONS (REG-DIRECT-P (MODE-B I-REG)) (CONS (UNARY-OP-CODE-P (OP-CODE I-REG)) (CONS (PRE-DEC-P (MODE-A I-REG)) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (C-FLAG FLAGS) (CONS (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CONS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CONS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (QUOTE NIL))))))))))))))) ((ENABLE F$CONTROL-LET BOOLP-B-GATES EXPAND-*-CONNECTIVES NTH-INDICES BVP-LENGTH C-FLAG) (DISABLE OPEN-INDICES *1*INDICES INDICES) (ENABLE-THEORY IR-FIELDS-THEORY) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 B-NOT . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$UNARY-OP-CODE-P=UNARY-OP-CODE-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 B-OR . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$DECODE-REG-MODE-AS-REG-MODE . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$SET-SOME-FLAGS=SET-SOME=FLAGS . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$B-STORE-RESULTP=B-STORE-RESULTP . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP=STORE-RESULTP . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 ID . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 EXPAND-*-CONNECTIVES . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F-GATES . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 POST-INC-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 NOT* . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 AND* . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 C-FLAG . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 OP-CODE . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 MODE-B . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 MODE-A . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 OR* . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 STORE-CC . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$CONTROL-LET . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 LENGTH . F$CONTROL-LET=CONTROL-LET) (IMMEDIATE-DEPENDENTS0 BVP . F$CONTROL-LET=CONTROL-LET) (LEMMAS F$CONTROL-LET . F$CONTROL-LET=CONTROL-LET))))) (PUT1-LST (QUOTE CONTROL-LET$VALUE-OFF) (QUOTE (IDATE 1000402194112 EVENT (TOGGLE CONTROL-LET$VALUE-OFF CONTROL-LET$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONTROL-LET$VALUE . CONTROL-LET$VALUE-OFF) (DISABLED-LEMMAS NIL CONTROL-LET$VALUE CONTROL-LET$VALUE-OFF . T))))) (PUT1-LST (QUOTE CONTROL-LET$VALUE) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE CONTROL-LET$VALUE-OFF) EVENT (PROVE-LEMMA CONTROL-LET$VALUE (REWRITE) (IMPLIES (AND (CONTROL-LET& NETLIST) (AND (PROPERP I-REG) (AND (EQUAL (LENGTH I-REG) (QUOTE 32)) (AND (PROPERP FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (AND (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CONTROL-LET) (APPEND I-REG (APPEND FLAGS REGS-ADDRESS)) STATE NETLIST) (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS))) ((ENABLE F$CONTROL-LET CONTROL-LET& NTH-INDICES C-FLAG B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-NOT$VALUE B-STORE-RESULTP$VALUE B-OR4$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE ID$VALUE B-AND4$VALUE B-AND$VALUE B-OR$VALUE) (DISABLE OPEN-INDICES *1*INDICES INDICES) (ENABLE-THEORY IR-FIELDS-THEORY) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 NTH-INDICES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-SUBRANGE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR4$VALUE-AS-F$SET-SOME-FLAGS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 ID . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODE-B . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 MODE-A . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 STORE-CC . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 CONTROL-LET* . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 IR-FIELDS-THEORY . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 F$CONTROL-LET . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . CONTROL-LET$VALUE) (IMMEDIATE-DEPENDENTS0 CONTROL-LET& . CONTROL-LET$VALUE) (LEMMAS DUAL-EVAL . CONTROL-LET$VALUE))))) (PUT1-LST (QUOTE *1*CONTROL-LET$NETLIST) (QUOTE (MAIN-EVENT CONTROL-LET$NETLIST))) (PUT1-LST (QUOTE CONTROL-LET$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CONTROL-LET$NETLIST 16)) TOTALP-LST ((CONTROL-LET$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CONTROL-LET*) (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (B-STORE-RESULTP$NETLIST)) (B-OR4$NETLIST)) (DECODE-REG-MODE$NETLIST)) (UNARY-OP-CODE-P$NETLIST)) (ID$NETLIST)) (B-AND4$NETLIST)) (B-AND$NETLIST)) (B-OR$NETLIST)))) LISP-CODE *1*CONTROL-LET$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194112 SATELLITES (*1*CONTROL-LET$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST) EVENT (DEFN CONTROL-LET$NETLIST NIL (CONS (CONTROL-LET*) (UNION (UNION (UNION (UNION (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (B-STORE-RESULTP$NETLIST)) (B-OR4$NETLIST)) (DECODE-REG-MODE$NETLIST)) (UNARY-OP-CODE-P$NETLIST)) (ID$NETLIST)) (B-AND4$NETLIST)) (B-AND$NETLIST)) (B-OR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND4$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR4$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CONTROL-LET$NETLIST) (IMMEDIATE-DEPENDENTS0 CONTROL-LET* . CONTROL-LET$NETLIST) (DCELL . *1*CONTROL-LET$NETLIST))))) (PUT1-LST (QUOTE CONTROL-LET&-OFF) (QUOTE (IDATE 1000402194112 EVENT (TOGGLE CONTROL-LET&-OFF CONTROL-LET& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONTROL-LET& . CONTROL-LET&-OFF) (DISABLED-LEMMAS NIL CONTROL-LET& CONTROL-LET&-OFF . T))))) (PUT1-LST (QUOTE *1*CONTROL-LET&) (QUOTE (MAIN-EVENT CONTROL-LET&))) (PUT1-LST (QUOTE CONTROL-LET&) (QUOTE (TYPE-PRESCRIPTION-LST ((CONTROL-LET& 3 NIL)) TOTALP-LST ((CONTROL-LET& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CONTROL-LET) NETLIST) (CONTROL-LET*)) (IF (B-NOT& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (B-STORE-RESULTP& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (B-OR4& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (DECODE-REG-MODE& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (UNARY-OP-CODE-P& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (ID& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (B-AND4& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (IF (B-AND& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CONTROL-LET& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*CONTROL-LET&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& CONTROL-LET$VALUE CONTROL-LET&-OFF) EVENT (DEFN CONTROL-LET& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CONTROL-LET) NETLIST) (CONTROL-LET*)) (AND (B-NOT& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (B-STORE-RESULTP& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (B-OR4& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (DECODE-REG-MODE& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (UNARY-OP-CODE-P& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (ID& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (B-AND4& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (AND (B-AND& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE CONTROL-LET) NETLIST)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 B-AND& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 B-AND4& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 ID& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 B-OR4& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 B-NOT& . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 CONTROL-LET* . CONTROL-LET&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CONTROL-LET&) (DCELL . *1*CONTROL-LET&))))) (PUT1-LST (QUOTE *1*CONTROL-LET*) (QUOTE (MAIN-EVENT CONTROL-LET*))) (PUT1-LST (QUOTE CONTROL-LET*) (QUOTE (TYPE-PRESCRIPTION-LST ((CONTROL-LET* 16)) TOTALP-LST ((CONTROL-LET* . T)) SDEFN (LAMBDA NIL (CONS (QUOTE CONTROL-LET) (CONS (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (CONS (CONS (QUOTE G0) (CONS (QUOTE (A-IMMEDIATE-P)) (CONS (QUOTE ID) (CONS (CONS (A-IMMEDIATE-P (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL)) (QUOTE NIL))))) (CONS (QUOTE (G1 (A-IMMEDIATE-P-) B-NOT (A-IMMEDIATE-P))) (CONS (CONS (QUOTE G2) (CONS (QUOTE (STORE)) (CONS (QUOTE B-STORE-RESULTP) (CONS (APPEND (STORE-CC (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (CONS (QUOTE G3) (CONS (QUOTE (SET-SOME-FLAGS)) (CONS (QUOTE B-OR4) (CONS (SET-FLAGS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G4) (CONS (QUOTE (ALMOST-DIRECT-A PRE-DEC-A ALMOST-SIDE-EFFECT-A)) (CONS (QUOTE DECODE-REG-MODE) (CONS (MODE-A (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G5) (CONS (QUOTE (DIRECT-B PRE-DEC-B SIDE-EFFECT-B)) (CONS (QUOTE DECODE-REG-MODE) (CONS (MODE-B (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G6) (CONS (QUOTE (UNARY)) (CONS (QUOTE UNARY-OP-CODE-P) (CONS (OP-CODE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G7) (CONS (QUOTE (C)) (CONS (QUOTE ID) (CONS (CONS (C-FLAG (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (QUOTE G8) (CONS (QUOTE (ALL-T-REGS-ADDRESS)) (CONS (QUOTE B-AND4) (CONS (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (QUOTE ((G9 (SIDE-EFFECT-A) B-AND (A-IMMEDIATE-P- ALMOST-SIDE-EFFECT-A)) (GA (DIRECT-A) B-OR (A-IMMEDIATE-P ALMOST-DIRECT-A))))))))))))) (QUOTE (NIL))))))) LISP-CODE *1*CONTROL-LET* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*CONTROL-LET*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CONTROL-LET$VALUE CONTROL-LET$NETLIST CONTROL-LET&) EVENT (DEFN CONTROL-LET* NIL (CONS (QUOTE CONTROL-LET) (CONS (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (CONS (CONS (QUOTE G0) (CONS (QUOTE (A-IMMEDIATE-P)) (CONS (QUOTE ID) (CONS (CONS (A-IMMEDIATE-P (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL)) (QUOTE NIL))))) (CONS (QUOTE (G1 (A-IMMEDIATE-P-) B-NOT (A-IMMEDIATE-P))) (CONS (CONS (QUOTE G2) (CONS (QUOTE (STORE)) (CONS (QUOTE B-STORE-RESULTP) (CONS (APPEND (STORE-CC (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (CONS (QUOTE G3) (CONS (QUOTE (SET-SOME-FLAGS)) (CONS (QUOTE B-OR4) (CONS (SET-FLAGS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G4) (CONS (QUOTE (ALMOST-DIRECT-A PRE-DEC-A ALMOST-SIDE-EFFECT-A)) (CONS (QUOTE DECODE-REG-MODE) (CONS (MODE-A (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G5) (CONS (QUOTE (DIRECT-B PRE-DEC-B SIDE-EFFECT-B)) (CONS (QUOTE DECODE-REG-MODE) (CONS (MODE-B (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G6) (CONS (QUOTE (UNARY)) (CONS (QUOTE UNARY-OP-CODE-P) (CONS (OP-CODE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE G7) (CONS (QUOTE (C)) (CONS (QUOTE ID) (CONS (CONS (C-FLAG (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (QUOTE G8) (CONS (QUOTE (ALL-T-REGS-ADDRESS)) (CONS (QUOTE B-AND4) (CONS (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (QUOTE ((G9 (SIDE-EFFECT-A) B-AND (A-IMMEDIATE-P- ALMOST-SIDE-EFFECT-A)) (GA (DIRECT-A) B-OR (A-IMMEDIATE-P ALMOST-DIRECT-A))))))))))))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-FLAG . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 OP-CODE . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 MODE-B . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 MODE-A . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 STORE-CC . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CONTROL-LET*) (IMMEDIATE-DEPENDENTS0 INDICES . CONTROL-LET*) (DCELL . *1*CONTROL-LET*))))) (PUT1-LST (QUOTE F$CONTROL-LET-OFF) (QUOTE (IDATE 1000402194112 EVENT (TOGGLE F$CONTROL-LET-OFF F$CONTROL-LET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$CONTROL-LET . F$CONTROL-LET-OFF) (DISABLED-LEMMAS NIL F$CONTROL-LET F$CONTROL-LET-OFF . T))))) (PUT1-LST (QUOTE *1*F$CONTROL-LET) (QUOTE (MAIN-EVENT F$CONTROL-LET))) (PUT1-LST (QUOTE F$CONTROL-LET) (QUOTE (TYPE-PRESCRIPTION-LST ((F$CONTROL-LET 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$CONTROL-LET=CONTROL-LET ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32)) (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS) (CONS (A-IMMEDIATE-P I-REG) (CONS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (SET-SOME-FLAGS (SET-FLAGS I-REG)) (CONS (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (CONS (REG-DIRECT-P (MODE-B I-REG)) (CONS (UNARY-OP-CODE-P (OP-CODE I-REG)) (CONS (PRE-DEC-P (MODE-A I-REG)) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (C-FLAG FLAGS) (CONS (EQUAL REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CONS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CONS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (QUOTE NIL)))))))))))))) NIL)) TOTALP-LST ((F$CONTROL-LET . T)) SDEFN (LAMBDA (I-REG FLAGS REGS-ADDRESS) (CONS (ID (A-IMMEDIATE-P I-REG)) (CONS (F$B-STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (F$SET-SOME-FLAGS (SET-FLAGS I-REG)) (CONS (F-OR (ID (A-IMMEDIATE-P I-REG)) (CAR (F$DECODE-REG-MODE (MODE-A I-REG)))) (CONS (CAR (F$DECODE-REG-MODE (MODE-B I-REG))) (CONS (F$UNARY-OP-CODE-P (OP-CODE I-REG)) (CONS (CAR (CDR (F$DECODE-REG-MODE (MODE-A I-REG)))) (CONS (CAR (CDR (F$DECODE-REG-MODE (MODE-B I-REG)))) (CONS (ID (C-FLAG FLAGS)) (CONS (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (CONS (F-AND (F-NOT (ID (A-IMMEDIATE-P I-REG))) (CAR (CDR (CDR (F$DECODE-REG-MODE (MODE-A I-REG)))))) (CONS (CAR (CDR (CDR (F$DECODE-REG-MODE (MODE-B I-REG))))) (QUOTE NIL)))))))))))))) LISP-CODE *1*F$CONTROL-LET SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194112 SATELLITES (*1*F$CONTROL-LET) IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE F$CONTROL-LET-OFF) EVENT (DEFN F$CONTROL-LET (I-REG FLAGS REGS-ADDRESS) (CONS (ID (A-IMMEDIATE-P I-REG)) (CONS (F$B-STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (F$SET-SOME-FLAGS (SET-FLAGS I-REG)) (CONS (F-OR (ID (A-IMMEDIATE-P I-REG)) (CAR (F$DECODE-REG-MODE (MODE-A I-REG)))) (CONS (CAR (F$DECODE-REG-MODE (MODE-B I-REG))) (CONS (F$UNARY-OP-CODE-P (OP-CODE I-REG)) (CONS (CAR (CDR (F$DECODE-REG-MODE (MODE-A I-REG)))) (CONS (CAR (CDR (F$DECODE-REG-MODE (MODE-B I-REG)))) (CONS (ID (C-FLAG FLAGS)) (CONS (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (CONS (F-AND (F-NOT (ID (A-IMMEDIATE-P I-REG))) (CAR (CDR (CDR (F$DECODE-REG-MODE (MODE-A I-REG)))))) (CONS (CAR (CDR (CDR (F$DECODE-REG-MODE (MODE-B I-REG))))) (QUOTE NIL)))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F-AND . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$ALL-T-REGS-ADDRESS . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 C-FLAG . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 OP-CODE . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$UNARY-OP-CODE-P . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 MODE-B . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 MODE-A . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$DECODE-REG-MODE . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F-OR . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$SET-SOME-FLAGS . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 STORE-CC . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 F$B-STORE-RESULTP . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . F$CONTROL-LET) (IMMEDIATE-DEPENDENTS0 ID . F$CONTROL-LET) (DCELL . *1*F$CONTROL-LET))))) (PUT1-LST (QUOTE PROPERP-LENGTH-CV_FETCH1) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP) EVENT (PROVE-LEMMA PROPERP-LENGTH-CV_FETCH1 (REWRITE) (AND (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (EQUAL (LENGTH (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE 40))) (PROPERP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG))) ((ENABLE CV_FETCH1 V_FETCH1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-IR-ACCESSORS . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-CV_FETCH1) (IMMEDIATE-DEPENDENTS0 CV-HYPS . PROPERP-LENGTH-CV_FETCH1) (LEMMAS PROPERP . PROPERP-LENGTH-CV_FETCH1) (LEMMAS LENGTH . PROPERP-LENGTH-CV_FETCH1))))) (PUT1-LST (QUOTE CV_FETCH1$RW-DOAN-MATTA) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP FETCH0$STEP2) EVENT (PROVE-LEMMA CV_FETCH1$RW-DOAN-MATTA (REWRITE) (EQUAL (CV_FETCH1 (QUOTE *1*FALSE) REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH1 (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG)) ((ENABLE CV_FETCH1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . CV_FETCH1$RW-DOAN-MATTA) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . CV_FETCH1$RW-DOAN-MATTA) (LEMMAS CV_FETCH1 . CV_FETCH1$RW-DOAN-MATTA))))) (PUT1-LST (QUOTE BVP-CV-VECTORS-OFF) (QUOTE (IDATE 1000402194112 EVENT (TOGGLE BVP-CV-VECTORS-OFF BVP-CV-VECTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CV-VECTORS . BVP-CV-VECTORS-OFF) (DISABLED-LEMMAS NIL BVP-CV-VECTORS BVP-CV-VECTORS-OFF . T))))) (PUT1-LST (QUOTE BVP-CV-VECTORS) (QUOTE (IDATE 1000402194112 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 BVP-CV-VECTORS-OFF) EVENT (PROVE-LEMMA BVP-CV-VECTORS (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (BVP (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND (BVP (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)))))))))))))))))))))))))))))))))) ((ENABLE-THEORY CV-THEORY) (ENABLE BVP-LENGTH-STATE-VECTORS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-MPG . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-IR-ACCESSORS . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BOOLP-A-IMMEDIATE-P . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BOOLP-STORE-RESULT-P . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-IF* . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BOOLP-IF* . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV-THEORY . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_V11111 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_RESET2 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_RESET1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_V11011 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_V11010 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_HOLD1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READB3 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READB2 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READB1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READB0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READA3 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READA2 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READA1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_READA0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_REGB . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_REGA . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_DECODE . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CV-VECTORS) (IMMEDIATE-DEPENDENTS0 CV-HYPS . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS) (LEMMAS BVP . BVP-CV-VECTORS))))) (PUT1-LST (QUOTE CV-DESTRUCTURE-THEORY) (QUOTE (IDATE 1000402194111 EVENT (DEFTHEORY CV-DESTRUCTURE-THEORY (CV_FETCH0$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_REGA$DESTRUCTURE CV_REGB$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_READA0$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB3$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_V11010$DESTRUCTURE CV_V11011$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_V11111$DESTRUCTURE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH2$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH3$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_DECODE$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_REGA$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_REGB$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_UPDATE$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA2$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA3$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB2$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB3$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE2$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE3$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFA0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFA1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFB0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFB1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_HOLD0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_HOLD1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11010$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11011$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET0$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET1$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET2$DESTRUCTURE . CV-DESTRUCTURE-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11111$DESTRUCTURE . CV-DESTRUCTURE-THEORY))))) (PUT1-LST (QUOTE CV-THEORY) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-CV-VECTORS) EVENT (DEFTHEORY CV-THEORY (CV_FETCH0 CV_FETCH1 CV_FETCH2 CV_FETCH3 CV_DECODE CV_REGA CV_REGB CV_UPDATE CV_READA0 CV_READA1 CV_READA2 CV_READA3 CV_READB0 CV_READB1 CV_READB2 CV_READB3 CV_WRITE0 CV_WRITE1 CV_WRITE2 CV_WRITE3 CV_SEFA0 CV_SEFA1 CV_SEFB0 CV_SEFB1 CV_HOLD0 CV_HOLD1 CV_V11010 CV_V11011 CV_RESET0 CV_RESET1 CV_RESET2 CV_V11111)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_DECODE . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_REGA . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_REGB . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA2 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READA3 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB2 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_READB3 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_HOLD1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11010 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11011 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET1 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_RESET2 . CV-THEORY) (IMMEDIATE-DEPENDENTS0 CV_V11111 . CV-THEORY))))) (PUT1-LST (QUOTE CV_V11111$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_V11111$DESTRUCTURE-OFF CV_V11111$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11111$DESTRUCTURE . CV_V11111$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_V11111$DESTRUCTURE CV_V11111$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_V11111$DESTRUCTURE) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_V11111$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_V11111$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11111)) (AND (EQUAL (WE-FLAGS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_V11111 V_V11111 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_V11111 . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_V11111 . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_V11111$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_V11111$DESTRUCTURE) (LEMMAS ALU-MPG . CV_V11111$DESTRUCTURE) (LEMMAS ALU-OP . CV_V11111$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_V11111$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_V11111$DESTRUCTURE) (LEMMAS STATE . CV_V11111$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_V11111$DESTRUCTURE) (LEMMAS ALU-C . CV_V11111$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_V11111$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_V11111$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_V11111$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_V11111$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_V11111$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_V11111$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_V11111$DESTRUCTURE) (LEMMAS WE-I-REG . CV_V11111$DESTRUCTURE) (LEMMAS WE-B-REG . CV_V11111$DESTRUCTURE) (LEMMAS WE-A-REG . CV_V11111$DESTRUCTURE) (LEMMAS WE-REGS . CV_V11111$DESTRUCTURE) (LEMMAS HDACK- . CV_V11111$DESTRUCTURE) (LEMMAS STROBE- . CV_V11111$DESTRUCTURE) (LEMMAS RW- . CV_V11111$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_V11111-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_V11111-OFF CV_V11111 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11111 . CV_V11111-OFF) (DISABLED-LEMMAS NIL CV_V11111 CV_V11111-OFF . T))))) (PUT1-LST (QUOTE *1*CV_V11111) (QUOTE (MAIN-EVENT CV_V11111))) (PUT1-LST (QUOTE CV_V11111) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_V11111 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_V11111 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11111) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_V11111 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194111 SATELLITES (*1*CV_V11111) IMMEDIATE-DEPENDENTS0 (BVP-CV-VECTORS CV-THEORY CV_V11111$DESTRUCTURE CV_V11111-OFF) EVENT (DEFN CV_V11111 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11111) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_V11111) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11111) (IMMEDIATE-DEPENDENTS0 V_V11111 . CV_V11111) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11111) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11111) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11111) (DCELL . *1*CV_V11111))))) (PUT1-LST (QUOTE CV_RESET2$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET2$DESTRUCTURE-OFF CV_RESET2$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET2$DESTRUCTURE . CV_RESET2$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_RESET2$DESTRUCTURE CV_RESET2$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_RESET2$DESTRUCTURE) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_RESET2$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_RESET2$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-A-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (AND (EQUAL (ALU-ZERO (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STATE (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET2)) (AND (EQUAL (WE-FLAGS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V-INC REGS-ADDRESS)) (AND (EQUAL (ALU-OP (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) (EQUAL (ALU-MPG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))))))))))))))))))))))) ((ENABLE CV_RESET2 V_RESET2 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-V-INC-V-DEC . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-INC . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_RESET2 . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_RESET2 . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_RESET2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_RESET2$DESTRUCTURE) (LEMMAS ALU-MPG . CV_RESET2$DESTRUCTURE) (LEMMAS ALU-OP . CV_RESET2$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_RESET2$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_RESET2$DESTRUCTURE) (LEMMAS STATE . CV_RESET2$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_RESET2$DESTRUCTURE) (LEMMAS ALU-C . CV_RESET2$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_RESET2$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_RESET2$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_RESET2$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_RESET2$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_RESET2$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_RESET2$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_RESET2$DESTRUCTURE) (LEMMAS WE-I-REG . CV_RESET2$DESTRUCTURE) (LEMMAS WE-B-REG . CV_RESET2$DESTRUCTURE) (LEMMAS WE-A-REG . CV_RESET2$DESTRUCTURE) (LEMMAS WE-REGS . CV_RESET2$DESTRUCTURE) (LEMMAS HDACK- . CV_RESET2$DESTRUCTURE) (LEMMAS STROBE- . CV_RESET2$DESTRUCTURE) (LEMMAS RW- . CV_RESET2$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_RESET2-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET2-OFF CV_RESET2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET2 . CV_RESET2-OFF) (DISABLED-LEMMAS NIL CV_RESET2 CV_RESET2-OFF . T))))) (PUT1-LST (QUOTE *1*CV_RESET2) (QUOTE (MAIN-EVENT CV_RESET2))) (PUT1-LST (QUOTE CV_RESET2) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_RESET2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_RESET2 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (V-INC REGS-ADDRESS) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_RESET2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194111 SATELLITES (*1*CV_RESET2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 BVP-CV-VECTORS CV-THEORY CV_RESET2$DESTRUCTURE CV_RESET2-OFF) EVENT (DEFN CV_RESET2 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (V-INC REGS-ADDRESS) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_RESET2) (IMMEDIATE-DEPENDENTS0 V-INC . CV_RESET2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET2) (IMMEDIATE-DEPENDENTS0 V_RESET2 . CV_RESET2) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET2) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET2) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET2) (DCELL . *1*CV_RESET2))))) (PUT1-LST (QUOTE CV_RESET1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET1$DESTRUCTURE-OFF CV_RESET1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET1$DESTRUCTURE . CV_RESET1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_RESET1$DESTRUCTURE CV_RESET1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_RESET1$DESTRUCTURE) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_RESET1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_RESET1$DESTRUCTURE (REWRITE) (IMPLIES (QUOTE *1*TRUE) (AND (EQUAL (RW- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-DATA-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-HOLD- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (AND (EQUAL (ALU-ZERO (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STATE (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET1)) (AND (EQUAL (WE-FLAGS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (ALU-OP (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) (EQUAL (ALU-MPG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))))))))))))))))))))))) ((ENABLE CV_RESET1 V_RESET1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_RESET1 . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_RESET1 . CV_RESET1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_RESET1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_RESET1$DESTRUCTURE) (LEMMAS ALU-OP . CV_RESET1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_RESET1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_RESET1$DESTRUCTURE) (LEMMAS STATE . CV_RESET1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_RESET1$DESTRUCTURE) (LEMMAS ALU-C . CV_RESET1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_RESET1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_RESET1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_RESET1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_RESET1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_RESET1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_RESET1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_RESET1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_RESET1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_RESET1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_RESET1$DESTRUCTURE) (LEMMAS WE-REGS . CV_RESET1$DESTRUCTURE) (LEMMAS HDACK- . CV_RESET1$DESTRUCTURE) (LEMMAS STROBE- . CV_RESET1$DESTRUCTURE) (LEMMAS RW- . CV_RESET1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_RESET1-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET1-OFF CV_RESET1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET1 . CV_RESET1-OFF) (DISABLED-LEMMAS NIL CV_RESET1 CV_RESET1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_RESET1) (QUOTE (MAIN-EVENT CV_RESET1))) (PUT1-LST (QUOTE CV_RESET1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_RESET1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_RESET1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_RESET1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194111 SATELLITES (*1*CV_RESET1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$RESET0 BVP-CV-VECTORS CV-THEORY CV_RESET1$DESTRUCTURE CV_RESET1-OFF) EVENT (DEFN CV_RESET1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_RESET1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET1) (IMMEDIATE-DEPENDENTS0 V_RESET1 . CV_RESET1) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET1) (DCELL . *1*CV_RESET1))))) (PUT1-LST (QUOTE CV_RESET0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET0$DESTRUCTURE-OFF CV_RESET0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET0$DESTRUCTURE . CV_RESET0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_RESET0$DESTRUCTURE CV_RESET0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_RESET0$DESTRUCTURE) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_RESET0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_RESET0$DESTRUCTURE (REWRITE) (IMPLIES (QUOTE *1*TRUE) (AND (EQUAL (RW- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-A-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-ADDR-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-PC-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (DATA-IN-SELECT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (AND (EQUAL (ALU-ZERO (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STATE (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET0)) (AND (EQUAL (WE-FLAGS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (AND (EQUAL (REGS-ADDRESS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (ALU-OP (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) (EQUAL (ALU-MPG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))))))))))))))))))))))) ((ENABLE CV_RESET0 V_RESET0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_RESET0 . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_RESET0 . CV_RESET0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_RESET0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_RESET0$DESTRUCTURE) (LEMMAS ALU-OP . CV_RESET0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_RESET0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_RESET0$DESTRUCTURE) (LEMMAS STATE . CV_RESET0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_RESET0$DESTRUCTURE) (LEMMAS ALU-C . CV_RESET0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_RESET0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_RESET0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_RESET0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_RESET0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_RESET0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_RESET0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_RESET0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_RESET0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_RESET0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_RESET0$DESTRUCTURE) (LEMMAS WE-REGS . CV_RESET0$DESTRUCTURE) (LEMMAS HDACK- . CV_RESET0$DESTRUCTURE) (LEMMAS STROBE- . CV_RESET0$DESTRUCTURE) (LEMMAS RW- . CV_RESET0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_RESET0-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_RESET0-OFF CV_RESET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_RESET0 . CV_RESET0-OFF) (DISABLED-LEMMAS NIL CV_RESET0 CV_RESET0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_RESET0) (QUOTE (MAIN-EVENT CV_RESET0))) (PUT1-LST (QUOTE CV_RESET0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_RESET0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_RESET0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_RESET0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194111 SATELLITES (*1*CV_RESET0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 BVP-CV-VECTORS CV-THEORY CV_RESET0$DESTRUCTURE CV_RESET0-OFF) EVENT (DEFN CV_RESET0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_RESET0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_RESET0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_RESET0) (IMMEDIATE-DEPENDENTS0 V_RESET0 . CV_RESET0) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_RESET0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_RESET0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_RESET0) (DCELL . *1*CV_RESET0))))) (PUT1-LST (QUOTE CV_V11011$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194111 EVENT (TOGGLE CV_V11011$DESTRUCTURE-OFF CV_V11011$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11011$DESTRUCTURE . CV_V11011$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_V11011$DESTRUCTURE CV_V11011$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_V11011$DESTRUCTURE) (QUOTE (IDATE 1000402194111 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_V11011$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_V11011$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11011)) (AND (EQUAL (WE-FLAGS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_V11011 V_V11011 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_V11011 . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_V11011 . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_V11011$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_V11011$DESTRUCTURE) (LEMMAS ALU-MPG . CV_V11011$DESTRUCTURE) (LEMMAS ALU-OP . CV_V11011$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_V11011$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_V11011$DESTRUCTURE) (LEMMAS STATE . CV_V11011$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_V11011$DESTRUCTURE) (LEMMAS ALU-C . CV_V11011$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_V11011$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_V11011$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_V11011$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_V11011$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_V11011$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_V11011$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_V11011$DESTRUCTURE) (LEMMAS WE-I-REG . CV_V11011$DESTRUCTURE) (LEMMAS WE-B-REG . CV_V11011$DESTRUCTURE) (LEMMAS WE-A-REG . CV_V11011$DESTRUCTURE) (LEMMAS WE-REGS . CV_V11011$DESTRUCTURE) (LEMMAS HDACK- . CV_V11011$DESTRUCTURE) (LEMMAS STROBE- . CV_V11011$DESTRUCTURE) (LEMMAS RW- . CV_V11011$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_V11011-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_V11011-OFF CV_V11011 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11011 . CV_V11011-OFF) (DISABLED-LEMMAS NIL CV_V11011 CV_V11011-OFF . T))))) (PUT1-LST (QUOTE *1*CV_V11011) (QUOTE (MAIN-EVENT CV_V11011))) (PUT1-LST (QUOTE CV_V11011) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_V11011 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_V11011 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11011) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_V11011 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194110 SATELLITES (*1*CV_V11011) IMMEDIATE-DEPENDENTS0 (BVP-CV-VECTORS CV-THEORY CV_V11011$DESTRUCTURE CV_V11011-OFF) EVENT (DEFN CV_V11011 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11011) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_V11011) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11011) (IMMEDIATE-DEPENDENTS0 V_V11011 . CV_V11011) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11011) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11011) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11011) (DCELL . *1*CV_V11011))))) (PUT1-LST (QUOTE CV_V11010$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_V11010$DESTRUCTURE-OFF CV_V11010$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11010$DESTRUCTURE . CV_V11010$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_V11010$DESTRUCTURE CV_V11010$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_V11010$DESTRUCTURE) (QUOTE (IDATE 1000402194110 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_V11010$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_V11010$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11010)) (AND (EQUAL (WE-FLAGS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_V11010 V_V11010 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_V11010 . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_V11010 . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_V11010$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_V11010$DESTRUCTURE) (LEMMAS ALU-MPG . CV_V11010$DESTRUCTURE) (LEMMAS ALU-OP . CV_V11010$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_V11010$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_V11010$DESTRUCTURE) (LEMMAS STATE . CV_V11010$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_V11010$DESTRUCTURE) (LEMMAS ALU-C . CV_V11010$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_V11010$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_V11010$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_V11010$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_V11010$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_V11010$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_V11010$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_V11010$DESTRUCTURE) (LEMMAS WE-I-REG . CV_V11010$DESTRUCTURE) (LEMMAS WE-B-REG . CV_V11010$DESTRUCTURE) (LEMMAS WE-A-REG . CV_V11010$DESTRUCTURE) (LEMMAS WE-REGS . CV_V11010$DESTRUCTURE) (LEMMAS HDACK- . CV_V11010$DESTRUCTURE) (LEMMAS STROBE- . CV_V11010$DESTRUCTURE) (LEMMAS RW- . CV_V11010$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_V11010-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_V11010-OFF CV_V11010 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_V11010 . CV_V11010-OFF) (DISABLED-LEMMAS NIL CV_V11010 CV_V11010-OFF . T))))) (PUT1-LST (QUOTE *1*CV_V11010) (QUOTE (MAIN-EVENT CV_V11010))) (PUT1-LST (QUOTE CV_V11010) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_V11010 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_V11010 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11010) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_V11010 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194110 SATELLITES (*1*CV_V11010) IMMEDIATE-DEPENDENTS0 (BVP-CV-VECTORS CV-THEORY CV_V11010$DESTRUCTURE CV_V11010-OFF) EVENT (DEFN CV_V11010 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_V11010) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_V11010) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_V11010) (IMMEDIATE-DEPENDENTS0 V_V11010 . CV_V11010) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_V11010) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_V11010) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_V11010) (DCELL . *1*CV_V11010))))) (PUT1-LST (QUOTE CV_HOLD1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_HOLD1$DESTRUCTURE-OFF CV_HOLD1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_HOLD1$DESTRUCTURE . CV_HOLD1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_HOLD1$DESTRUCTURE CV_HOLD1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_HOLD1$DESTRUCTURE) (QUOTE (IDATE 1000402194110 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_HOLD1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_HOLD1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_HOLD1)) (AND (EQUAL (WE-FLAGS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_HOLD1 V_HOLD1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_HOLD1 . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_HOLD1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_HOLD1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_HOLD1$DESTRUCTURE) (LEMMAS ALU-OP . CV_HOLD1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_HOLD1$DESTRUCTURE) (LEMMAS STATE . CV_HOLD1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_HOLD1$DESTRUCTURE) (LEMMAS ALU-C . CV_HOLD1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_HOLD1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_HOLD1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_HOLD1$DESTRUCTURE) (LEMMAS WE-REGS . CV_HOLD1$DESTRUCTURE) (LEMMAS HDACK- . CV_HOLD1$DESTRUCTURE) (LEMMAS STROBE- . CV_HOLD1$DESTRUCTURE) (LEMMAS RW- . CV_HOLD1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_HOLD1-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_HOLD1-OFF CV_HOLD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_HOLD1 . CV_HOLD1-OFF) (DISABLED-LEMMAS NIL CV_HOLD1 CV_HOLD1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_HOLD1) (QUOTE (MAIN-EVENT CV_HOLD1))) (PUT1-LST (QUOTE CV_HOLD1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_HOLD1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_HOLD1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_HOLD1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_HOLD1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194110 SATELLITES (*1*CV_HOLD1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$HOLD0 BVP-CV-VECTORS CV-THEORY CV_HOLD1$DESTRUCTURE CV_HOLD1-OFF) EVENT (DEFN CV_HOLD1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_HOLD1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_HOLD1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_HOLD1) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . CV_HOLD1) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_HOLD1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_HOLD1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_HOLD1) (DCELL . *1*CV_HOLD1))))) (PUT1-LST (QUOTE CV_HOLD0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_HOLD0$DESTRUCTURE-OFF CV_HOLD0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_HOLD0$DESTRUCTURE . CV_HOLD0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_HOLD0$DESTRUCTURE CV_HOLD0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_HOLD0$DESTRUCTURE) (QUOTE (IDATE 1000402194110 IMMEDIATE-DEPENDENTS0 (CV-DESTRUCTURE-THEORY CV_HOLD0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_HOLD0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-REGS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-PC-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (DATA-IN-SELECT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_HOLD0)) (AND (EQUAL (WE-FLAGS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_HOLD0 V_HOLD0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_HOLD0 . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_HOLD0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_HOLD0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_HOLD0$DESTRUCTURE) (LEMMAS ALU-OP . CV_HOLD0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_HOLD0$DESTRUCTURE) (LEMMAS STATE . CV_HOLD0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_HOLD0$DESTRUCTURE) (LEMMAS ALU-C . CV_HOLD0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_HOLD0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_HOLD0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_HOLD0$DESTRUCTURE) (LEMMAS WE-REGS . CV_HOLD0$DESTRUCTURE) (LEMMAS HDACK- . CV_HOLD0$DESTRUCTURE) (LEMMAS STROBE- . CV_HOLD0$DESTRUCTURE) (LEMMAS RW- . CV_HOLD0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_HOLD0-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_HOLD0-OFF CV_HOLD0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_HOLD0 . CV_HOLD0-OFF) (DISABLED-LEMMAS NIL CV_HOLD0 CV_HOLD0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_HOLD0) (QUOTE (MAIN-EVENT CV_HOLD0))) (PUT1-LST (QUOTE CV_HOLD0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_HOLD0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_HOLD0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_HOLD0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_HOLD0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194110 SATELLITES (*1*CV_HOLD0) IMMEDIATE-DEPENDENTS0 (FETCH1$STEP NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$FETCH1 BVP-CV-VECTORS CV-THEORY CV_HOLD0$DESTRUCTURE CV_HOLD0-OFF) EVENT (DEFN CV_HOLD0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_HOLD0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_HOLD0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_HOLD0) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . CV_HOLD0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_HOLD0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_HOLD0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_HOLD0) (DCELL . *1*CV_HOLD0))))) (PUT1-LST (QUOTE CV_SEFB1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194110 EVENT (TOGGLE CV_SEFB1$DESTRUCTURE-OFF CV_SEFB1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFB1$DESTRUCTURE . CV_SEFB1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_SEFB1$DESTRUCTURE CV_SEFB1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_SEFB1$DESTRUCTURE) (QUOTE (IDATE 1000402194110 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP CV-DESTRUCTURE-THEORY CV_SEFB1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_SEFB1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-A-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) (AND (EQUAL (ALU-ZERO (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFB1)) (AND (EQUAL (WE-FLAGS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) (EQUAL (ALU-MPG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))))))))))))))))))))))))) ((ENABLE CV_SEFB1 V_SEFB1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IF* . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 IF* . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_SEFB1 . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_SEFB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_SEFB1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_SEFB1$DESTRUCTURE) (LEMMAS ALU-OP . CV_SEFB1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_SEFB1$DESTRUCTURE) (LEMMAS STATE . CV_SEFB1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_SEFB1$DESTRUCTURE) (LEMMAS ALU-C . CV_SEFB1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_SEFB1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_SEFB1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_SEFB1$DESTRUCTURE) (LEMMAS WE-REGS . CV_SEFB1$DESTRUCTURE) (LEMMAS HDACK- . CV_SEFB1$DESTRUCTURE) (LEMMAS STROBE- . CV_SEFB1$DESTRUCTURE) (LEMMAS RW- . CV_SEFB1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_SEFB1-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFB1-OFF CV_SEFB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFB1 . CV_SEFB1-OFF) (DISABLED-LEMMAS NIL CV_SEFB1 CV_SEFB1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_SEFB1) (QUOTE (MAIN-EVENT CV_SEFB1))) (PUT1-LST (QUOTE CV_SEFB1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_SEFB1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_SEFB1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFB1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_SEFB1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_SEFB1) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM SEFB1$STEP SEFB0$STEP UPDATE$STEP NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$UPDATE BVP-CV-VECTORS CV-THEORY CV_SEFB1$DESTRUCTURE CV_SEFB1-OFF) EVENT (DEFN CV_SEFB1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFB1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 RN-B . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_SEFB1) (IMMEDIATE-DEPENDENTS0 IF* . CV_SEFB1) (DCELL . *1*CV_SEFB1))))) (PUT1-LST (QUOTE CV_SEFB0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFB0$DESTRUCTURE-OFF CV_SEFB0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFB0$DESTRUCTURE . CV_SEFB0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_SEFB0$DESTRUCTURE CV_SEFB0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_SEFB0$DESTRUCTURE) (QUOTE (IDATE 1000402194109 IMMEDIATE-DEPENDENTS0 (SEFB0$STEP CV-DESTRUCTURE-THEORY CV_SEFB0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_SEFB0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFB0)) (AND (EQUAL (WE-FLAGS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_SEFB0 V_SEFB0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_SEFB0 . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_SEFB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_SEFB0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_SEFB0$DESTRUCTURE) (LEMMAS ALU-OP . CV_SEFB0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_SEFB0$DESTRUCTURE) (LEMMAS STATE . CV_SEFB0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_SEFB0$DESTRUCTURE) (LEMMAS ALU-C . CV_SEFB0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_SEFB0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_SEFB0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_SEFB0$DESTRUCTURE) (LEMMAS WE-REGS . CV_SEFB0$DESTRUCTURE) (LEMMAS HDACK- . CV_SEFB0$DESTRUCTURE) (LEMMAS STROBE- . CV_SEFB0$DESTRUCTURE) (LEMMAS RW- . CV_SEFB0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_SEFB0-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFB0-OFF CV_SEFB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFB0 . CV_SEFB0-OFF) (DISABLED-LEMMAS NIL CV_SEFB0 CV_SEFB0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_SEFB0) (QUOTE (MAIN-EVENT CV_SEFB0))) (PUT1-LST (QUOTE CV_SEFB0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_SEFB0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_SEFB0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFB0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_SEFB0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_SEFB0) IMMEDIATE-DEPENDENTS0 (SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM FETCH1->DECODE$SIM SEFB0$STEP SEFA1$STEP DECODE$STEP NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_SEFB0$DESTRUCTURE CV_SEFB0-OFF) EVENT (DEFN CV_SEFB0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFB0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 RN-B . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFB0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFB0) (DCELL . *1*CV_SEFB0))))) (PUT1-LST (QUOTE CV_SEFA1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFA1$DESTRUCTURE-OFF CV_SEFA1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFA1$DESTRUCTURE . CV_SEFA1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_SEFA1$DESTRUCTURE CV_SEFA1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_SEFA1$DESTRUCTURE) (QUOTE (IDATE 1000402194109 IMMEDIATE-DEPENDENTS0 (SEFA1$STEP CV-DESTRUCTURE-THEORY CV_SEFA1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_SEFA1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-A-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) (AND (EQUAL (ALU-ZERO (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFA1)) (AND (EQUAL (WE-FLAGS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) (EQUAL (ALU-MPG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))))))))))))))))))))))))) ((ENABLE CV_SEFA1 V_SEFA1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IF* . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 IF* . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_SEFA1 . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_SEFA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_SEFA1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_SEFA1$DESTRUCTURE) (LEMMAS ALU-OP . CV_SEFA1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_SEFA1$DESTRUCTURE) (LEMMAS STATE . CV_SEFA1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_SEFA1$DESTRUCTURE) (LEMMAS ALU-C . CV_SEFA1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_SEFA1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_SEFA1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_SEFA1$DESTRUCTURE) (LEMMAS WE-REGS . CV_SEFA1$DESTRUCTURE) (LEMMAS HDACK- . CV_SEFA1$DESTRUCTURE) (LEMMAS STROBE- . CV_SEFA1$DESTRUCTURE) (LEMMAS RW- . CV_SEFA1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_SEFA1-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFA1-OFF CV_SEFA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFA1 . CV_SEFA1-OFF) (DISABLED-LEMMAS NIL CV_SEFA1 CV_SEFA1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_SEFA1) (QUOTE (MAIN-EVENT CV_SEFA1))) (PUT1-LST (QUOTE CV_SEFA1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_SEFA1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_SEFA1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFA1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_SEFA1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_SEFA1) IMMEDIATE-DEPENDENTS0 (SEFA1$STEP SEFA0$STEP NEXT-CNTL-STATE$SEFA0 BVP-CV-VECTORS CV-THEORY CV_SEFA1$DESTRUCTURE CV_SEFA1-OFF) EVENT (DEFN CV_SEFA1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFA1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 RN-A . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_SEFA1) (IMMEDIATE-DEPENDENTS0 IF* . CV_SEFA1) (DCELL . *1*CV_SEFA1))))) (PUT1-LST (QUOTE CV_SEFA0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFA0$DESTRUCTURE-OFF CV_SEFA0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFA0$DESTRUCTURE . CV_SEFA0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_SEFA0$DESTRUCTURE CV_SEFA0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_SEFA0$DESTRUCTURE) (QUOTE (IDATE 1000402194109 IMMEDIATE-DEPENDENTS0 (SEFA0$STEP CV-DESTRUCTURE-THEORY CV_SEFA0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_SEFA0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFA0)) (AND (EQUAL (WE-FLAGS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_SEFA0 V_SEFA0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_SEFA0 . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_SEFA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_SEFA0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_SEFA0$DESTRUCTURE) (LEMMAS ALU-OP . CV_SEFA0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_SEFA0$DESTRUCTURE) (LEMMAS STATE . CV_SEFA0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_SEFA0$DESTRUCTURE) (LEMMAS ALU-C . CV_SEFA0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_SEFA0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_SEFA0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_SEFA0$DESTRUCTURE) (LEMMAS WE-REGS . CV_SEFA0$DESTRUCTURE) (LEMMAS HDACK- . CV_SEFA0$DESTRUCTURE) (LEMMAS STROBE- . CV_SEFA0$DESTRUCTURE) (LEMMAS RW- . CV_SEFA0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_SEFA0-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_SEFA0-OFF CV_SEFA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_SEFA0 . CV_SEFA0-OFF) (DISABLED-LEMMAS NIL CV_SEFA0 CV_SEFA0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_SEFA0) (QUOTE (MAIN-EVENT CV_SEFA0))) (PUT1-LST (QUOTE CV_SEFA0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_SEFA0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_SEFA0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFA0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_SEFA0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_SEFA0) IMMEDIATE-DEPENDENTS0 (SEFA0->SEFA1$SIM FETCH1->DECODE$SIM SEFA0$STEP DECODE$STEP NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_SEFA0$DESTRUCTURE CV_SEFA0-OFF) EVENT (DEFN CV_SEFA0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_SEFA0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 RN-A . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_SEFA0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_SEFA0) (DCELL . *1*CV_SEFA0))))) (PUT1-LST (QUOTE CV_WRITE3$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_WRITE3$DESTRUCTURE-OFF CV_WRITE3$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE3$DESTRUCTURE . CV_WRITE3$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_WRITE3$DESTRUCTURE CV_WRITE3$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_WRITE3$DESTRUCTURE) (QUOTE (IDATE 1000402194109 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE3$STEP0 CV-DESTRUCTURE-THEORY CV_WRITE3$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_WRITE3$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STROBE- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE3)) (AND (EQUAL (WE-FLAGS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_WRITE3 V_WRITE3 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_WRITE3 . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_WRITE3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_WRITE3$DESTRUCTURE) (LEMMAS ALU-MPG . CV_WRITE3$DESTRUCTURE) (LEMMAS ALU-OP . CV_WRITE3$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_WRITE3$DESTRUCTURE) (LEMMAS STATE . CV_WRITE3$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_WRITE3$DESTRUCTURE) (LEMMAS ALU-C . CV_WRITE3$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_WRITE3$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_WRITE3$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-I-REG . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-B-REG . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-A-REG . CV_WRITE3$DESTRUCTURE) (LEMMAS WE-REGS . CV_WRITE3$DESTRUCTURE) (LEMMAS HDACK- . CV_WRITE3$DESTRUCTURE) (LEMMAS STROBE- . CV_WRITE3$DESTRUCTURE) (LEMMAS RW- . CV_WRITE3$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_WRITE3-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_WRITE3-OFF CV_WRITE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE3 . CV_WRITE3-OFF) (DISABLED-LEMMAS NIL CV_WRITE3 CV_WRITE3-OFF . T))))) (PUT1-LST (QUOTE *1*CV_WRITE3) (QUOTE (MAIN-EVENT CV_WRITE3))) (PUT1-LST (QUOTE CV_WRITE3) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_WRITE3 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_WRITE3 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_WRITE3 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_WRITE3) IMMEDIATE-DEPENDENTS0 (WRITE3$PROGRESS WRITE3$PROGRESS-HELP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 BVP-CV-VECTORS CV-THEORY CV_WRITE3$DESTRUCTURE CV_WRITE3-OFF) EVENT (DEFN CV_WRITE3 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE3) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . CV_WRITE3) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE3) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE3) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE3) (DCELL . *1*CV_WRITE3))))) (PUT1-LST (QUOTE CV_WRITE2$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_WRITE2$DESTRUCTURE-OFF CV_WRITE2$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE2$DESTRUCTURE . CV_WRITE2$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_WRITE2$DESTRUCTURE CV_WRITE2$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_WRITE2$DESTRUCTURE) (QUOTE (IDATE 1000402194109 IMMEDIATE-DEPENDENTS0 (WRITE2$STEP CV-DESTRUCTURE-THEORY CV_WRITE2$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_WRITE2$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STROBE- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE2)) (AND (EQUAL (WE-FLAGS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_WRITE2 V_WRITE2 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_WRITE2 . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_WRITE2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_WRITE2$DESTRUCTURE) (LEMMAS ALU-MPG . CV_WRITE2$DESTRUCTURE) (LEMMAS ALU-OP . CV_WRITE2$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_WRITE2$DESTRUCTURE) (LEMMAS STATE . CV_WRITE2$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_WRITE2$DESTRUCTURE) (LEMMAS ALU-C . CV_WRITE2$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_WRITE2$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_WRITE2$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-I-REG . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-B-REG . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-A-REG . CV_WRITE2$DESTRUCTURE) (LEMMAS WE-REGS . CV_WRITE2$DESTRUCTURE) (LEMMAS HDACK- . CV_WRITE2$DESTRUCTURE) (LEMMAS STROBE- . CV_WRITE2$DESTRUCTURE) (LEMMAS RW- . CV_WRITE2$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_WRITE2-OFF) (QUOTE (IDATE 1000402194109 EVENT (TOGGLE CV_WRITE2-OFF CV_WRITE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE2 . CV_WRITE2-OFF) (DISABLED-LEMMAS NIL CV_WRITE2 CV_WRITE2-OFF . T))))) (PUT1-LST (QUOTE *1*CV_WRITE2) (QUOTE (MAIN-EVENT CV_WRITE2))) (PUT1-LST (QUOTE CV_WRITE2) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_WRITE2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_WRITE2 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_WRITE2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194109 SATELLITES (*1*CV_WRITE2) IMMEDIATE-DEPENDENTS0 (WRITE2$STEP WRITE1$STEP NEXT-CNTL-STATE$WRITE1 BVP-CV-VECTORS CV-THEORY CV_WRITE2$DESTRUCTURE CV_WRITE2-OFF) EVENT (DEFN CV_WRITE2 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE2) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . CV_WRITE2) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE2) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE2) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE2) (DCELL . *1*CV_WRITE2))))) (PUT1-LST (QUOTE CV_WRITE1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_WRITE1$DESTRUCTURE-OFF CV_WRITE1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE1$DESTRUCTURE . CV_WRITE1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_WRITE1$DESTRUCTURE CV_WRITE1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_WRITE1$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (WRITE1$STEP CV-DESTRUCTURE-THEORY CV_WRITE1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_WRITE1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STROBE- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) (AND (EQUAL (WE-A-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) (AND (EQUAL (ALU-ZERO (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE1)) (AND (EQUAL (WE-FLAGS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) (EQUAL (ALU-MPG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))))))))))))))))))))))))) ((ENABLE CV_WRITE1 V_WRITE1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IF* . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 IF* . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OR* . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_WRITE1 . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_WRITE1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_WRITE1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_WRITE1$DESTRUCTURE) (LEMMAS ALU-OP . CV_WRITE1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_WRITE1$DESTRUCTURE) (LEMMAS STATE . CV_WRITE1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_WRITE1$DESTRUCTURE) (LEMMAS ALU-C . CV_WRITE1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_WRITE1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_WRITE1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_WRITE1$DESTRUCTURE) (LEMMAS WE-REGS . CV_WRITE1$DESTRUCTURE) (LEMMAS HDACK- . CV_WRITE1$DESTRUCTURE) (LEMMAS STROBE- . CV_WRITE1$DESTRUCTURE) (LEMMAS RW- . CV_WRITE1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_WRITE1-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_WRITE1-OFF CV_WRITE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE1 . CV_WRITE1-OFF) (DISABLED-LEMMAS NIL CV_WRITE1 CV_WRITE1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_WRITE1) (QUOTE (MAIN-EVENT CV_WRITE1))) (PUT1-LST (QUOTE CV_WRITE1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_WRITE1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_WRITE1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_WRITE1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194108 SATELLITES (*1*CV_WRITE1) IMMEDIATE-DEPENDENTS0 (WRITE1$STEP WRITE0$STEP NEXT-CNTL-STATE$WRITE0 BVP-CV-VECTORS CV-THEORY CV_WRITE1$DESTRUCTURE CV_WRITE1-OFF) EVENT (DEFN CV_WRITE1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 RN-B . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 IF* . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_WRITE1) (IMMEDIATE-DEPENDENTS0 OR* . CV_WRITE1) (DCELL . *1*CV_WRITE1))))) (PUT1-LST (QUOTE CV_WRITE0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_WRITE0$DESTRUCTURE-OFF CV_WRITE0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE0$DESTRUCTURE . CV_WRITE0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_WRITE0$DESTRUCTURE CV_WRITE0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_WRITE0$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (WRITE0$STEP CV-DESTRUCTURE-THEORY CV_WRITE0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_WRITE0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-ADDR-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-HOLD- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-B I-REG))) (AND (EQUAL (SELECT-IMMEDIATE (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE0)) (AND (EQUAL (WE-FLAGS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (SET-FLAGS I-REG)) (AND (EQUAL (REGS-ADDRESS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_WRITE0 V_WRITE0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_WRITE0 . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_WRITE0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_WRITE0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_WRITE0$DESTRUCTURE) (LEMMAS ALU-OP . CV_WRITE0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_WRITE0$DESTRUCTURE) (LEMMAS STATE . CV_WRITE0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_WRITE0$DESTRUCTURE) (LEMMAS ALU-C . CV_WRITE0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_WRITE0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_WRITE0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_WRITE0$DESTRUCTURE) (LEMMAS WE-REGS . CV_WRITE0$DESTRUCTURE) (LEMMAS HDACK- . CV_WRITE0$DESTRUCTURE) (LEMMAS STROBE- . CV_WRITE0$DESTRUCTURE) (LEMMAS RW- . CV_WRITE0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_WRITE0-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_WRITE0-OFF CV_WRITE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_WRITE0 . CV_WRITE0-OFF) (DISABLED-LEMMAS NIL CV_WRITE0 CV_WRITE0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_WRITE0) (QUOTE (MAIN-EVENT CV_WRITE0))) (PUT1-LST (QUOTE CV_WRITE0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_WRITE0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_WRITE0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE0) (APPEND (SET-FLAGS I-REG) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_WRITE0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194108 SATELLITES (*1*CV_WRITE0) IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGA->REGA$SIM WRITE0$STEP READB3$STEP0 READA3$STEP0 REGA$STEP NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGA BVP-CV-VECTORS CV-THEORY CV_WRITE0$DESTRUCTURE CV_WRITE0-OFF) EVENT (DEFN CV_WRITE0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_WRITE0) (APPEND (SET-FLAGS I-REG) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 RN-B . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_WRITE0) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_WRITE0) (DCELL . *1*CV_WRITE0))))) (PUT1-LST (QUOTE CV_READB3$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB3$DESTRUCTURE-OFF CV_READB3$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB3$DESTRUCTURE . CV_READB3$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READB3$DESTRUCTURE CV_READB3$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READB3$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (READB3$STEP1 READB3$STEP0 CV-DESTRUCTURE-THEORY CV_READB3$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READB3$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB3)) (AND (EQUAL (WE-FLAGS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READB3 V_READB3 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READB3 . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READB3 . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READB3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READB3$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READB3$DESTRUCTURE) (LEMMAS ALU-OP . CV_READB3$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READB3$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READB3$DESTRUCTURE) (LEMMAS STATE . CV_READB3$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READB3$DESTRUCTURE) (LEMMAS ALU-C . CV_READB3$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READB3$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READB3$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READB3$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READB3$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READB3$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READB3$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READB3$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READB3$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READB3$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READB3$DESTRUCTURE) (LEMMAS WE-REGS . CV_READB3$DESTRUCTURE) (LEMMAS HDACK- . CV_READB3$DESTRUCTURE) (LEMMAS STROBE- . CV_READB3$DESTRUCTURE) (LEMMAS RW- . CV_READB3$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READB3-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB3-OFF CV_READB3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB3 . CV_READB3-OFF) (DISABLED-LEMMAS NIL CV_READB3 CV_READB3-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READB3) (QUOTE (MAIN-EVENT CV_READB3))) (PUT1-LST (QUOTE CV_READB3) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READB3 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READB3 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READB3 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194108 SATELLITES (*1*CV_READB3) IMMEDIATE-DEPENDENTS0 (READB3$PROGRESS READB3$PROGRESS-HELP READB3$STEP1 READB3$STEP0 READB2$STEP NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 BVP-CV-VECTORS CV-THEORY CV_READB3$DESTRUCTURE CV_READB3-OFF) EVENT (DEFN CV_READB3 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READB3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB3) (IMMEDIATE-DEPENDENTS0 V_READB3 . CV_READB3) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB3) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB3) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB3) (DCELL . *1*CV_READB3))))) (PUT1-LST (QUOTE CV_READB2$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB2$DESTRUCTURE-OFF CV_READB2$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB2$DESTRUCTURE . CV_READB2$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READB2$DESTRUCTURE CV_READB2$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READB2$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (READB2$STEP CV-DESTRUCTURE-THEORY CV_READB2$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READB2$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))))) (AND (EQUAL (WE-A-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) (AND (EQUAL (ALU-ZERO (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB2)) (AND (EQUAL (WE-FLAGS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) (EQUAL (ALU-MPG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))))))))))))))))))))))))) ((ENABLE CV_READB2 V_READB2 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IF* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READB2 . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 IF* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OR* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STORE-CC . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 AND* . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READB2 . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READB2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READB2$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READB2$DESTRUCTURE) (LEMMAS ALU-OP . CV_READB2$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READB2$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READB2$DESTRUCTURE) (LEMMAS STATE . CV_READB2$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READB2$DESTRUCTURE) (LEMMAS ALU-C . CV_READB2$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READB2$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READB2$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READB2$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READB2$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READB2$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READB2$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READB2$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READB2$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READB2$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READB2$DESTRUCTURE) (LEMMAS WE-REGS . CV_READB2$DESTRUCTURE) (LEMMAS HDACK- . CV_READB2$DESTRUCTURE) (LEMMAS STROBE- . CV_READB2$DESTRUCTURE) (LEMMAS RW- . CV_READB2$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READB2-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB2-OFF CV_READB2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB2 . CV_READB2-OFF) (DISABLED-LEMMAS NIL CV_READB2 CV_READB2-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READB2) (QUOTE (MAIN-EVENT CV_READB2))) (PUT1-LST (QUOTE CV_READB2) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READB2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READB2 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READB2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194108 SATELLITES (*1*CV_READB2) IMMEDIATE-DEPENDENTS0 (READB2$STEP READB1$STEP NEXT-CNTL-STATE$READB1 BVP-CV-VECTORS CV-THEORY CV_READB2$DESTRUCTURE CV_READB2-OFF) EVENT (DEFN CV_READB2 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READB2) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READB2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB2) (IMMEDIATE-DEPENDENTS0 V_READB2 . CV_READB2) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_READB2) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_READB2) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB2) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB2) (IMMEDIATE-DEPENDENTS0 IF* . CV_READB2) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_READB2) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_READB2) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READB2) (IMMEDIATE-DEPENDENTS0 OR* . CV_READB2) (IMMEDIATE-DEPENDENTS0 STORE-CC . CV_READB2) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . CV_READB2) (IMMEDIATE-DEPENDENTS0 NOT* . CV_READB2) (IMMEDIATE-DEPENDENTS0 AND* . CV_READB2) (DCELL . *1*CV_READB2))))) (PUT1-LST (QUOTE CV_READB1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB1$DESTRUCTURE-OFF CV_READB1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB1$DESTRUCTURE . CV_READB1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READB1$DESTRUCTURE CV_READB1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READB1$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (READB1$STEP CV-DESTRUCTURE-THEORY CV_READB1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READB1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG)))) (AND (EQUAL (WE-B-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (A-IMMEDIATE-P I-REG)) (AND (EQUAL (ALU-C (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB1)) (AND (EQUAL (WE-FLAGS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READB1 V_READB1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READB1 . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OR* . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READB1 . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READB1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READB1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READB1$DESTRUCTURE) (LEMMAS ALU-OP . CV_READB1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READB1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READB1$DESTRUCTURE) (LEMMAS STATE . CV_READB1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READB1$DESTRUCTURE) (LEMMAS ALU-C . CV_READB1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READB1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READB1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READB1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READB1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READB1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READB1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READB1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READB1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READB1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READB1$DESTRUCTURE) (LEMMAS WE-REGS . CV_READB1$DESTRUCTURE) (LEMMAS HDACK- . CV_READB1$DESTRUCTURE) (LEMMAS STROBE- . CV_READB1$DESTRUCTURE) (LEMMAS RW- . CV_READB1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READB1-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB1-OFF CV_READB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB1 . CV_READB1-OFF) (DISABLED-LEMMAS NIL CV_READB1 CV_READB1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READB1) (QUOTE (MAIN-EVENT CV_READB1))) (PUT1-LST (QUOTE CV_READB1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READB1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READB1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (A-IMMEDIATE-P I-REG) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READB1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194108 SATELLITES (*1*CV_READB1) IMMEDIATE-DEPENDENTS0 (READB1$STEP READB0$STEP NEXT-CNTL-STATE$READB0 BVP-CV-VECTORS CV-THEORY CV_READB1$DESTRUCTURE CV_READB1-OFF) EVENT (DEFN CV_READB1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (A-IMMEDIATE-P I-REG) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READB1) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READB1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB1) (IMMEDIATE-DEPENDENTS0 V_READB1 . CV_READB1) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB1) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READB1) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . CV_READB1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_READB1) (IMMEDIATE-DEPENDENTS0 OR* . CV_READB1) (DCELL . *1*CV_READB1))))) (PUT1-LST (QUOTE CV_READB0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194108 EVENT (TOGGLE CV_READB0$DESTRUCTURE-OFF CV_READB0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB0$DESTRUCTURE . CV_READB0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READB0$DESTRUCTURE CV_READB0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READB0$DESTRUCTURE) (QUOTE (IDATE 1000402194108 IMMEDIATE-DEPENDENTS0 (READB0$STEP CV-DESTRUCTURE-THEORY CV_READB0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READB0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-HOLD- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-B I-REG))) (AND (EQUAL (SELECT-IMMEDIATE (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB0)) (AND (EQUAL (WE-FLAGS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READB0 V_READB0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READB0 . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READB0 . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READB0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READB0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READB0$DESTRUCTURE) (LEMMAS ALU-OP . CV_READB0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READB0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READB0$DESTRUCTURE) (LEMMAS STATE . CV_READB0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READB0$DESTRUCTURE) (LEMMAS ALU-C . CV_READB0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READB0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READB0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READB0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READB0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READB0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READB0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READB0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READB0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READB0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READB0$DESTRUCTURE) (LEMMAS WE-REGS . CV_READB0$DESTRUCTURE) (LEMMAS HDACK- . CV_READB0$DESTRUCTURE) (LEMMAS STROBE- . CV_READB0$DESTRUCTURE) (LEMMAS RW- . CV_READB0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READB0-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READB0-OFF CV_READB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READB0 . CV_READB0-OFF) (DISABLED-LEMMAS NIL CV_READB0 CV_READB0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READB0) (QUOTE (MAIN-EVENT CV_READB0))) (PUT1-LST (QUOTE CV_READB0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READB0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READB0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READB0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_READB0) IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM READB0$STEP READA3$STEP0 DECODE$STEP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_READB0$DESTRUCTURE CV_READB0-OFF) EVENT (DEFN CV_READB0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-B I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READB0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READB0) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READB0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READB0) (IMMEDIATE-DEPENDENTS0 V_READB0 . CV_READB0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READB0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READB0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READB0) (IMMEDIATE-DEPENDENTS0 MODE-B . CV_READB0) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READB0) (DCELL . *1*CV_READB0))))) (PUT1-LST (QUOTE CV_READA3$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA3$DESTRUCTURE-OFF CV_READA3$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA3$DESTRUCTURE . CV_READA3$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READA3$DESTRUCTURE CV_READA3$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READA3$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (READA3$STEP1 READA3$STEP0 CV-DESTRUCTURE-THEORY CV_READA3$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READA3$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA3)) (AND (EQUAL (WE-FLAGS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READA3 V_READA3 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READA3 . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READA3 . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READA3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READA3$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READA3$DESTRUCTURE) (LEMMAS ALU-OP . CV_READA3$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READA3$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READA3$DESTRUCTURE) (LEMMAS STATE . CV_READA3$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READA3$DESTRUCTURE) (LEMMAS ALU-C . CV_READA3$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READA3$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READA3$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READA3$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READA3$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READA3$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READA3$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READA3$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READA3$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READA3$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READA3$DESTRUCTURE) (LEMMAS WE-REGS . CV_READA3$DESTRUCTURE) (LEMMAS HDACK- . CV_READA3$DESTRUCTURE) (LEMMAS STROBE- . CV_READA3$DESTRUCTURE) (LEMMAS RW- . CV_READA3$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READA3-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA3-OFF CV_READA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA3 . CV_READA3-OFF) (DISABLED-LEMMAS NIL CV_READA3 CV_READA3-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READA3) (QUOTE (MAIN-EVENT CV_READA3))) (PUT1-LST (QUOTE CV_READA3) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READA3 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READA3 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READA3 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_READA3) IMMEDIATE-DEPENDENTS0 (READA3$PROGRESS READA3$PROGRESS-HELP READA3$STEP1 READA3$STEP0 READA2$STEP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 BVP-CV-VECTORS CV-THEORY CV_READA3$DESTRUCTURE CV_READA3-OFF) EVENT (DEFN CV_READA3 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READA3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA3) (IMMEDIATE-DEPENDENTS0 V_READA3 . CV_READA3) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA3) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA3) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA3) (DCELL . *1*CV_READA3))))) (PUT1-LST (QUOTE CV_READA2$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA2$DESTRUCTURE-OFF CV_READA2$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA2$DESTRUCTURE . CV_READA2$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READA2$DESTRUCTURE CV_READA2$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READA2$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (READA2$STEP CV-DESTRUCTURE-THEORY CV_READA2$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READA2$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA2)) (AND (EQUAL (WE-FLAGS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READA2 V_READA2 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READA2 . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READA2 . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READA2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READA2$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READA2$DESTRUCTURE) (LEMMAS ALU-OP . CV_READA2$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READA2$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READA2$DESTRUCTURE) (LEMMAS STATE . CV_READA2$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READA2$DESTRUCTURE) (LEMMAS ALU-C . CV_READA2$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READA2$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READA2$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READA2$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READA2$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READA2$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READA2$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READA2$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READA2$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READA2$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READA2$DESTRUCTURE) (LEMMAS WE-REGS . CV_READA2$DESTRUCTURE) (LEMMAS HDACK- . CV_READA2$DESTRUCTURE) (LEMMAS STROBE- . CV_READA2$DESTRUCTURE) (LEMMAS RW- . CV_READA2$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READA2-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA2-OFF CV_READA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA2 . CV_READA2-OFF) (DISABLED-LEMMAS NIL CV_READA2 CV_READA2-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READA2) (QUOTE (MAIN-EVENT CV_READA2))) (PUT1-LST (QUOTE CV_READA2) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READA2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READA2 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READA2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_READA2) IMMEDIATE-DEPENDENTS0 (READA2$STEP READA1$STEP NEXT-CNTL-STATE$READA1 BVP-CV-VECTORS CV-THEORY CV_READA2$DESTRUCTURE CV_READA2-OFF) EVENT (DEFN CV_READA2 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READA2) (IMMEDIATE-DEPENDENTS0 RN-B . CV_READA2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA2) (IMMEDIATE-DEPENDENTS0 V_READA2 . CV_READA2) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA2) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA2) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA2) (DCELL . *1*CV_READA2))))) (PUT1-LST (QUOTE CV_READA1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA1$DESTRUCTURE-OFF CV_READA1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA1$DESTRUCTURE . CV_READA1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READA1$DESTRUCTURE CV_READA1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READA1$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (READA1$STEP CV-DESTRUCTURE-THEORY CV_READA1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READA1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG))))) (AND (EQUAL (WE-A-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) (AND (EQUAL (ALU-ZERO (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA1)) (AND (EQUAL (WE-FLAGS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) (EQUAL (ALU-MPG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))))))))))))))))))))))))) ((ENABLE CV_READA1 V_READA1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IF* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-MPG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-DEC-OP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READA1 . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 IF* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OR* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 AND* . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READA1 . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READA1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READA1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READA1$DESTRUCTURE) (LEMMAS ALU-OP . CV_READA1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READA1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READA1$DESTRUCTURE) (LEMMAS STATE . CV_READA1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READA1$DESTRUCTURE) (LEMMAS ALU-C . CV_READA1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READA1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READA1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READA1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READA1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READA1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READA1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READA1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READA1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READA1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READA1$DESTRUCTURE) (LEMMAS WE-REGS . CV_READA1$DESTRUCTURE) (LEMMAS HDACK- . CV_READA1$DESTRUCTURE) (LEMMAS STROBE- . CV_READA1$DESTRUCTURE) (LEMMAS RW- . CV_READA1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READA1-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA1-OFF CV_READA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA1 . CV_READA1-OFF) (DISABLED-LEMMAS NIL CV_READA1 CV_READA1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READA1) (QUOTE (MAIN-EVENT CV_READA1))) (PUT1-LST (QUOTE CV_READA1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READA1 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READA1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READA1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_READA1) IMMEDIATE-DEPENDENTS0 (READA1$STEP READA0$STEP NEXT-CNTL-STATE$READA0 BVP-CV-VECTORS CV-THEORY CV_READA1$DESTRUCTURE CV_READA1-OFF) EVENT (DEFN CV_READA1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG)))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP)) (APPEND (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READA1) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READA1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA1) (IMMEDIATE-DEPENDENTS0 V_READA1 . CV_READA1) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_READA1) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CV_READA1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA1) (IMMEDIATE-DEPENDENTS0 IF* . CV_READA1) (IMMEDIATE-DEPENDENTS0 POST-INC-P . CV_READA1) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READA1) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READA1) (IMMEDIATE-DEPENDENTS0 OR* . CV_READA1) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_READA1) (IMMEDIATE-DEPENDENTS0 NOT* . CV_READA1) (IMMEDIATE-DEPENDENTS0 AND* . CV_READA1) (DCELL . *1*CV_READA1))))) (PUT1-LST (QUOTE CV_READA0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA0$DESTRUCTURE-OFF CV_READA0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA0$DESTRUCTURE . CV_READA0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_READA0$DESTRUCTURE CV_READA0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_READA0$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (READA0$STEP CV-DESTRUCTURE-THEORY CV_READA0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_READA0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-HOLD- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-A I-REG))) (AND (EQUAL (SELECT-IMMEDIATE (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA0)) (AND (EQUAL (WE-FLAGS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_READA0 V_READA0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_READA0 . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_READA0 . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_READA0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_READA0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_READA0$DESTRUCTURE) (LEMMAS ALU-OP . CV_READA0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_READA0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_READA0$DESTRUCTURE) (LEMMAS STATE . CV_READA0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_READA0$DESTRUCTURE) (LEMMAS ALU-C . CV_READA0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_READA0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_READA0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_READA0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_READA0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_READA0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_READA0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_READA0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_READA0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_READA0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_READA0$DESTRUCTURE) (LEMMAS WE-REGS . CV_READA0$DESTRUCTURE) (LEMMAS HDACK- . CV_READA0$DESTRUCTURE) (LEMMAS STROBE- . CV_READA0$DESTRUCTURE) (LEMMAS RW- . CV_READA0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_READA0-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_READA0-OFF CV_READA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_READA0 . CV_READA0-OFF) (DISABLED-LEMMAS NIL CV_READA0 CV_READA0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_READA0) (QUOTE (MAIN-EVENT CV_READA0))) (PUT1-LST (QUOTE CV_READA0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_READA0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_READA0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-A I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_READA0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_READA0) IMMEDIATE-DEPENDENTS0 (READA0->READA3$SIM FETCH1->DECODE$SIM READA0$STEP DECODE$STEP NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_READA0$DESTRUCTURE CV_READA0-OFF) EVENT (DEFN CV_READA0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (PRE-DEC-P (MODE-A I-REG)) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_READA0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_READA0) (IMMEDIATE-DEPENDENTS0 RN-A . CV_READA0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_READA0) (IMMEDIATE-DEPENDENTS0 V_READA0 . CV_READA0) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_READA0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_READA0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_READA0) (IMMEDIATE-DEPENDENTS0 MODE-A . CV_READA0) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . CV_READA0) (DCELL . *1*CV_READA0))))) (PUT1-LST (QUOTE CV_UPDATE$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_UPDATE$DESTRUCTURE-OFF CV_UPDATE$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_UPDATE$DESTRUCTURE . CV_UPDATE$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_UPDATE$DESTRUCTURE CV_UPDATE$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_UPDATE$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (UPDATE$STEP CV-DESTRUCTURE-THEORY CV_UPDATE$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_UPDATE$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (AND (EQUAL (WE-A-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_UPDATE)) (AND (EQUAL (WE-FLAGS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (SET-FLAGS I-REG)) (AND (EQUAL (REGS-ADDRESS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_UPDATE V_UPDATE OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_UPDATE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STORE-CC . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_UPDATE . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_UPDATE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_UPDATE$DESTRUCTURE) (LEMMAS ALU-MPG . CV_UPDATE$DESTRUCTURE) (LEMMAS ALU-OP . CV_UPDATE$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_UPDATE$DESTRUCTURE) (LEMMAS STATE . CV_UPDATE$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_UPDATE$DESTRUCTURE) (LEMMAS ALU-C . CV_UPDATE$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_UPDATE$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_UPDATE$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-I-REG . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-B-REG . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-A-REG . CV_UPDATE$DESTRUCTURE) (LEMMAS WE-REGS . CV_UPDATE$DESTRUCTURE) (LEMMAS HDACK- . CV_UPDATE$DESTRUCTURE) (LEMMAS STROBE- . CV_UPDATE$DESTRUCTURE) (LEMMAS RW- . CV_UPDATE$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_UPDATE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_UPDATE-OFF CV_UPDATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_UPDATE . CV_UPDATE-OFF) (DISABLED-LEMMAS NIL CV_UPDATE CV_UPDATE-OFF . T))))) (PUT1-LST (QUOTE *1*CV_UPDATE) (QUOTE (MAIN-EVENT CV_UPDATE))) (PUT1-LST (QUOTE CV_UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_UPDATE 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_UPDATE . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_UPDATE) (APPEND (SET-FLAGS I-REG) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_UPDATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194107 SATELLITES (*1*CV_UPDATE) IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGA->REGA$SIM READB3$STEP0 READA3$STEP0 UPDATE$STEP REGB$STEP REGA$STEP NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA BVP-CV-VECTORS CV-THEORY CV_UPDATE$DESTRUCTURE CV_UPDATE-OFF) EVENT (DEFN CV_UPDATE (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (STORE-RESULTP (STORE-CC I-REG) FLAGS) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_UPDATE) (APPEND (SET-FLAGS I-REG) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 V_UPDATE . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 STORE-CC . CV_UPDATE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . CV_UPDATE) (DCELL . *1*CV_UPDATE))))) (PUT1-LST (QUOTE CV_REGB$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194107 EVENT (TOGGLE CV_REGB$DESTRUCTURE-OFF CV_REGB$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_REGB$DESTRUCTURE . CV_REGB$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_REGB$DESTRUCTURE CV_REGB$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_REGB$DESTRUCTURE) (QUOTE (IDATE 1000402194107 IMMEDIATE-DEPENDENTS0 (REGB$STEP CV-DESTRUCTURE-THEORY CV_REGB$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_REGB$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-I-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_REGB)) (AND (EQUAL (WE-FLAGS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) (AND (EQUAL (ALU-OP (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_REGB V_REGB OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-B . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_REGB . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_REGB . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_REGB$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_REGB$DESTRUCTURE) (LEMMAS ALU-MPG . CV_REGB$DESTRUCTURE) (LEMMAS ALU-OP . CV_REGB$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_REGB$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_REGB$DESTRUCTURE) (LEMMAS STATE . CV_REGB$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_REGB$DESTRUCTURE) (LEMMAS ALU-C . CV_REGB$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_REGB$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_REGB$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_REGB$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_REGB$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_REGB$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_REGB$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_REGB$DESTRUCTURE) (LEMMAS WE-I-REG . CV_REGB$DESTRUCTURE) (LEMMAS WE-B-REG . CV_REGB$DESTRUCTURE) (LEMMAS WE-A-REG . CV_REGB$DESTRUCTURE) (LEMMAS WE-REGS . CV_REGB$DESTRUCTURE) (LEMMAS HDACK- . CV_REGB$DESTRUCTURE) (LEMMAS STROBE- . CV_REGB$DESTRUCTURE) (LEMMAS RW- . CV_REGB$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_REGB-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_REGB-OFF CV_REGB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_REGB . CV_REGB-OFF) (DISABLED-LEMMAS NIL CV_REGB CV_REGB-OFF . T))))) (PUT1-LST (QUOTE *1*CV_REGB) (QUOTE (MAIN-EVENT CV_REGB))) (PUT1-LST (QUOTE CV_REGB) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_REGB 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_REGB . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_REGB) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_REGB SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_REGB) IMMEDIATE-DEPENDENTS0 (REGB->UPDATE$SIM REGA->REGA$SIM REGB$STEP REGA$STEP NEXT-CNTL-STATE$REGA BVP-CV-VECTORS CV-THEORY CV_REGB$DESTRUCTURE CV_REGB-OFF) EVENT (DEFN CV_REGB (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_REGB) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-B I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_REGB) (IMMEDIATE-DEPENDENTS0 RN-B . CV_REGB) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_REGB) (IMMEDIATE-DEPENDENTS0 V_REGB . CV_REGB) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_REGB) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_REGB) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_REGB) (DCELL . *1*CV_REGB))))) (PUT1-LST (QUOTE CV_REGA$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_REGA$DESTRUCTURE-OFF CV_REGA$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_REGA$DESTRUCTURE . CV_REGA$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_REGA$DESTRUCTURE CV_REGA$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_REGA$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (REGA$STEP CV-DESTRUCTURE-THEORY CV_REGA$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_REGA$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (A-IMMEDIATE-P I-REG)) (AND (EQUAL (ALU-C (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_REGA)) (AND (EQUAL (WE-FLAGS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) (AND (EQUAL (ALU-OP (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_REGA V_REGA OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RN-A . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_REGA . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_REGA . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_REGA$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_REGA$DESTRUCTURE) (LEMMAS ALU-MPG . CV_REGA$DESTRUCTURE) (LEMMAS ALU-OP . CV_REGA$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_REGA$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_REGA$DESTRUCTURE) (LEMMAS STATE . CV_REGA$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_REGA$DESTRUCTURE) (LEMMAS ALU-C . CV_REGA$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_REGA$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_REGA$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_REGA$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_REGA$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_REGA$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_REGA$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_REGA$DESTRUCTURE) (LEMMAS WE-I-REG . CV_REGA$DESTRUCTURE) (LEMMAS WE-B-REG . CV_REGA$DESTRUCTURE) (LEMMAS WE-A-REG . CV_REGA$DESTRUCTURE) (LEMMAS WE-REGS . CV_REGA$DESTRUCTURE) (LEMMAS HDACK- . CV_REGA$DESTRUCTURE) (LEMMAS STROBE- . CV_REGA$DESTRUCTURE) (LEMMAS RW- . CV_REGA$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_REGA-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_REGA-OFF CV_REGA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_REGA . CV_REGA-OFF) (DISABLED-LEMMAS NIL CV_REGA CV_REGA-OFF . T))))) (PUT1-LST (QUOTE *1*CV_REGA) (QUOTE (MAIN-EVENT CV_REGA))) (PUT1-LST (QUOTE CV_REGA) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_REGA 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_REGA . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (A-IMMEDIATE-P I-REG) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_REGA) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_REGA SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_REGA) IMMEDIATE-DEPENDENTS0 (REGA->REGA$SIM FETCH1->DECODE$SIM REGA$STEP DECODE$STEP NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_REGA$DESTRUCTURE CV_REGA-OFF) EVENT (DEFN CV_REGA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (A-IMMEDIATE-P I-REG) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_REGA) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND (RN-A I-REG) (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_REGA) (IMMEDIATE-DEPENDENTS0 RN-A . CV_REGA) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_REGA) (IMMEDIATE-DEPENDENTS0 V_REGA . CV_REGA) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_REGA) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_REGA) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_REGA) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . CV_REGA) (DCELL . *1*CV_REGA))))) (PUT1-LST (QUOTE CV_DECODE$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_DECODE$DESTRUCTURE-OFF CV_DECODE$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_DECODE$DESTRUCTURE . CV_DECODE$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_DECODE$DESTRUCTURE CV_DECODE$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_DECODE$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (DECODE$STEP CV-DESTRUCTURE-THEORY CV_DECODE$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_DECODE$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_DECODE)) (AND (EQUAL (WE-FLAGS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_DECODE V_DECODE OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_DECODE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_DECODE . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_DECODE$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_DECODE$DESTRUCTURE) (LEMMAS ALU-MPG . CV_DECODE$DESTRUCTURE) (LEMMAS ALU-OP . CV_DECODE$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_DECODE$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_DECODE$DESTRUCTURE) (LEMMAS STATE . CV_DECODE$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_DECODE$DESTRUCTURE) (LEMMAS ALU-C . CV_DECODE$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_DECODE$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_DECODE$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_DECODE$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_DECODE$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_DECODE$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_DECODE$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_DECODE$DESTRUCTURE) (LEMMAS WE-I-REG . CV_DECODE$DESTRUCTURE) (LEMMAS WE-B-REG . CV_DECODE$DESTRUCTURE) (LEMMAS WE-A-REG . CV_DECODE$DESTRUCTURE) (LEMMAS WE-REGS . CV_DECODE$DESTRUCTURE) (LEMMAS HDACK- . CV_DECODE$DESTRUCTURE) (LEMMAS STROBE- . CV_DECODE$DESTRUCTURE) (LEMMAS RW- . CV_DECODE$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_DECODE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_DECODE-OFF CV_DECODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_DECODE . CV_DECODE-OFF) (DISABLED-LEMMAS NIL CV_DECODE CV_DECODE-OFF . T))))) (PUT1-LST (QUOTE *1*CV_DECODE) (QUOTE (MAIN-EVENT CV_DECODE))) (PUT1-LST (QUOTE CV_DECODE) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_DECODE 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_DECODE . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_DECODE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_DECODE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_DECODE) IMMEDIATE-DEPENDENTS0 (DECODE$STEP FETCH3$STEP0 NEXT-CNTL-STATE$FETCH3 BVP-CV-VECTORS CV-THEORY CV_DECODE$DESTRUCTURE CV_DECODE-OFF) EVENT (DEFN CV_DECODE (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_DECODE) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_DECODE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_DECODE) (IMMEDIATE-DEPENDENTS0 V_DECODE . CV_DECODE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_DECODE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_DECODE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_DECODE) (DCELL . *1*CV_DECODE))))) (PUT1-LST (QUOTE CV_FETCH3$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH3$DESTRUCTURE-OFF CV_FETCH3$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH3$DESTRUCTURE . CV_FETCH3$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_FETCH3$DESTRUCTURE CV_FETCH3$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_FETCH3$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (FETCH3$STEP1 FETCH3$STEP0 CV-DESTRUCTURE-THEORY CV_FETCH3$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_FETCH3$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-DATA-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (DEC-ADDR-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH3)) (AND (EQUAL (WE-FLAGS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_FETCH3 V_FETCH3 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_FETCH3 . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_FETCH3$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_FETCH3$DESTRUCTURE) (LEMMAS ALU-MPG . CV_FETCH3$DESTRUCTURE) (LEMMAS ALU-OP . CV_FETCH3$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_FETCH3$DESTRUCTURE) (LEMMAS STATE . CV_FETCH3$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_FETCH3$DESTRUCTURE) (LEMMAS ALU-C . CV_FETCH3$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_FETCH3$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_FETCH3$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-I-REG . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-B-REG . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-A-REG . CV_FETCH3$DESTRUCTURE) (LEMMAS WE-REGS . CV_FETCH3$DESTRUCTURE) (LEMMAS HDACK- . CV_FETCH3$DESTRUCTURE) (LEMMAS STROBE- . CV_FETCH3$DESTRUCTURE) (LEMMAS RW- . CV_FETCH3$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_FETCH3-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH3-OFF CV_FETCH3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH3 . CV_FETCH3-OFF) (DISABLED-LEMMAS NIL CV_FETCH3 CV_FETCH3-OFF . T))))) (PUT1-LST (QUOTE *1*CV_FETCH3) (QUOTE (MAIN-EVENT CV_FETCH3))) (PUT1-LST (QUOTE CV_FETCH3) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_FETCH3 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_FETCH3 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_FETCH3 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_FETCH3) IMMEDIATE-DEPENDENTS0 (FETCH3$PROGRESS FETCH3$PROGRESS-HELP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 BVP-CV-VECTORS CV-THEORY CV_FETCH3$DESTRUCTURE CV_FETCH3-OFF) EVENT (DEFN CV_FETCH3 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH3) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH3) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH3) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . CV_FETCH3) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_FETCH3) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH3) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH3) (DCELL . *1*CV_FETCH3))))) (PUT1-LST (QUOTE CV_FETCH2$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH2$DESTRUCTURE-OFF CV_FETCH2$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH2$DESTRUCTURE . CV_FETCH2$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_FETCH2$DESTRUCTURE CV_FETCH2$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_FETCH2$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (FETCH2$STEP CV-DESTRUCTURE-THEORY CV_FETCH2$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_FETCH2$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (HDACK- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-A-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (AND (EQUAL (ALU-ZERO (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH2)) (AND (EQUAL (WE-FLAGS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) (EQUAL (ALU-MPG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))))))))))))))))))))))) ((ENABLE CV_FETCH2 V_FETCH2 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_FETCH2 . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_FETCH2$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_FETCH2$DESTRUCTURE) (LEMMAS ALU-MPG . CV_FETCH2$DESTRUCTURE) (LEMMAS ALU-OP . CV_FETCH2$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_FETCH2$DESTRUCTURE) (LEMMAS STATE . CV_FETCH2$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_FETCH2$DESTRUCTURE) (LEMMAS ALU-C . CV_FETCH2$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_FETCH2$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_FETCH2$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-I-REG . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-B-REG . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-A-REG . CV_FETCH2$DESTRUCTURE) (LEMMAS WE-REGS . CV_FETCH2$DESTRUCTURE) (LEMMAS HDACK- . CV_FETCH2$DESTRUCTURE) (LEMMAS STROBE- . CV_FETCH2$DESTRUCTURE) (LEMMAS RW- . CV_FETCH2$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_FETCH2-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH2-OFF CV_FETCH2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH2 . CV_FETCH2-OFF) (DISABLED-LEMMAS NIL CV_FETCH2 CV_FETCH2-OFF . T))))) (PUT1-LST (QUOTE *1*CV_FETCH2) (QUOTE (MAIN-EVENT CV_FETCH2))) (PUT1-LST (QUOTE CV_FETCH2) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_FETCH2 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_FETCH2 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_FETCH2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_FETCH2) IMMEDIATE-DEPENDENTS0 (FETCH2$STEP FETCH1$STEP NEXT-CNTL-STATE$FETCH1 BVP-CV-VECTORS CV-THEORY CV_FETCH2$DESTRUCTURE CV_FETCH2-OFF) EVENT (DEFN CV_FETCH2 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH2) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH2) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH2) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . CV_FETCH2) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_FETCH2) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH2) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH2) (DCELL . *1*CV_FETCH2))))) (PUT1-LST (QUOTE CV_FETCH1$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH1$DESTRUCTURE-OFF CV_FETCH1$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH1$DESTRUCTURE . CV_FETCH1$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_FETCH1$DESTRUCTURE CV_FETCH1$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_FETCH1$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (FETCH1$STEP CV-DESTRUCTURE-THEORY CV_FETCH1$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_FETCH1$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STROBE- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-B-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-HOLD- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-PC-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) (AND (EQUAL (ALU-ZERO (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (STATE (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH1)) (AND (EQUAL (WE-FLAGS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) (EQUAL (ALU-MPG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))))))))))))))))))))))))) ((ENABLE CV_FETCH1 V_FETCH1 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_FETCH1 . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_FETCH1$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_FETCH1$DESTRUCTURE) (LEMMAS ALU-MPG . CV_FETCH1$DESTRUCTURE) (LEMMAS ALU-OP . CV_FETCH1$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_FETCH1$DESTRUCTURE) (LEMMAS STATE . CV_FETCH1$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_FETCH1$DESTRUCTURE) (LEMMAS ALU-C . CV_FETCH1$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_FETCH1$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_FETCH1$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-I-REG . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-B-REG . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-A-REG . CV_FETCH1$DESTRUCTURE) (LEMMAS WE-REGS . CV_FETCH1$DESTRUCTURE) (LEMMAS HDACK- . CV_FETCH1$DESTRUCTURE) (LEMMAS STROBE- . CV_FETCH1$DESTRUCTURE) (LEMMAS RW- . CV_FETCH1$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_FETCH1-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH1-OFF CV_FETCH1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH1 . CV_FETCH1-OFF) (DISABLED-LEMMAS NIL CV_FETCH1 CV_FETCH1-OFF . T))))) (PUT1-LST (QUOTE *1*CV_FETCH1) (QUOTE (MAIN-EVENT CV_FETCH1))) (PUT1-LST (QUOTE CV_FETCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_FETCH1 16 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE CV_FETCH1$RW-DOAN-MATTA NIL (EQUAL (CV_FETCH1 (QUOTE *1*FALSE) REGS-ADDRESS I-REG FLAGS PC-REG) (CV_FETCH1 (QUOTE *1*TRUE) REGS-ADDRESS I-REG FLAGS PC-REG)) NIL)) TOTALP-LST ((CV_FETCH1 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_FETCH1 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194106 SATELLITES (*1*CV_FETCH1) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE INITIALIZED-MACHINE-STATE FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 P-MAP-DOWN MACROCYCLE-INVARIANT FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$FETCH0 PROPERP-LENGTH-CV_FETCH1 CV_FETCH1$RW-DOAN-MATTA BVP-CV-VECTORS CV-THEORY CV_FETCH1$DESTRUCTURE CV_FETCH1-OFF) EVENT (DEFN CV_FETCH1 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (CONS (QUOTE *1*FALSE) (APPEND (V_FETCH1) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (OP-CODE I-REG) (APPEND (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH1) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . CV_FETCH1) (IMMEDIATE-DEPENDENTS0 OP-CODE . CV_FETCH1) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH1) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH1) (DCELL . *1*CV_FETCH1))))) (PUT1-LST (QUOTE CV_FETCH0$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194106 EVENT (TOGGLE CV_FETCH0$DESTRUCTURE-OFF CV_FETCH0$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH0$DESTRUCTURE . CV_FETCH0$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CV_FETCH0$DESTRUCTURE CV_FETCH0$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CV_FETCH0$DESTRUCTURE) (QUOTE (IDATE 1000402194106 IMMEDIATE-DEPENDENTS0 (FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 CV-DESTRUCTURE-THEORY CV_FETCH0$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CV_FETCH0$DESTRUCTURE (REWRITE) (IMPLIES (CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (EQUAL (RW- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) RW-) (AND (EQUAL (STROBE- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (HDACK- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-REGS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-A-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-B-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-I-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-DATA-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (WE-ADDR-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-HOLD- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (WE-PC-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DATA-IN-SELECT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (DEC-ADDR-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (SELECT-IMMEDIATE (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) (AND (EQUAL (ALU-C (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (AND (EQUAL (ALU-ZERO (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) (AND (EQUAL (STATE (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH0)) (AND (EQUAL (WE-FLAGS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (AND (EQUAL (REGS-ADDRESS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) (AND (EQUAL (ALU-OP (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) (EQUAL (ALU-MPG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))))))))))))))))))))))) ((ENABLE CV_FETCH0 V_FETCH0 OPEN-NTH NTH-IF SUBRANGE-CONS OP-CODE SET-FLAGS RN-A RN-B) (ENABLE-THEORY CONTROL-STATE-ACCESSOR-THEORY) (DISABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-MPG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND-NIL . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-0 . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-LEFT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-ALU-INC-OP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 LENGTH-MPG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CONTROL-STATE-ACCESSOR-THEORY . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-OP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STATE . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 ALU-C . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REGS . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 HDACK- . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 STROBE- . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV_FETCH0 . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 RW- . CV_FETCH0$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CV-HYPS . CV_FETCH0$DESTRUCTURE) (LEMMAS ALU-MPG . CV_FETCH0$DESTRUCTURE) (LEMMAS ALU-OP . CV_FETCH0$DESTRUCTURE) (LEMMAS REGS-ADDRESS . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-FLAGS . CV_FETCH0$DESTRUCTURE) (LEMMAS STATE . CV_FETCH0$DESTRUCTURE) (LEMMAS ALU-ZERO . CV_FETCH0$DESTRUCTURE) (LEMMAS ALU-C . CV_FETCH0$DESTRUCTURE) (LEMMAS SELECT-IMMEDIATE . CV_FETCH0$DESTRUCTURE) (LEMMAS DEC-ADDR-OUT . CV_FETCH0$DESTRUCTURE) (LEMMAS DATA-IN-SELECT . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-PC-REG . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-HOLD- . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-ADDR-OUT . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-DATA-OUT . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-I-REG . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-B-REG . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-A-REG . CV_FETCH0$DESTRUCTURE) (LEMMAS WE-REGS . CV_FETCH0$DESTRUCTURE) (LEMMAS HDACK- . CV_FETCH0$DESTRUCTURE) (LEMMAS STROBE- . CV_FETCH0$DESTRUCTURE) (LEMMAS RW- . CV_FETCH0$DESTRUCTURE))))) (PUT1-LST (QUOTE CV_FETCH0-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE CV_FETCH0-OFF CV_FETCH0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CV_FETCH0 . CV_FETCH0-OFF) (DISABLED-LEMMAS NIL CV_FETCH0 CV_FETCH0-OFF . T))))) (PUT1-LST (QUOTE *1*CV_FETCH0) (QUOTE (MAIN-EVENT CV_FETCH0))) (PUT1-LST (QUOTE CV_FETCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((CV_FETCH0 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV_FETCH0 . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS RW- (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_FETCH0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LISP-CODE *1*CV_FETCH0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*CV_FETCH0) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 SEFB1$STEP SEFA1$STEP WRITE3$STEP0 UPDATE$STEP DECODE$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE BVP-CV-VECTORS CV-THEORY CV_FETCH0$DESTRUCTURE CV_FETCH0-OFF) EVENT (DEFN CV_FETCH0 (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (CONS RW- (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (CONS (QUOTE *1*TRUE) (APPEND (V_FETCH0) (APPEND (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (APPEND PC-REG (APPEND (ALU-INC-OP) (APPEND (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE NIL))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . CV_FETCH0) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CV_FETCH0) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . CV_FETCH0) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CV_FETCH0) (IMMEDIATE-DEPENDENTS0 C-FLAG . CV_FETCH0) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CV_FETCH0) (DCELL . *1*CV_FETCH0))))) (PUT1-LST (QUOTE CONTROL-STATE-ACCESSOR-THEORY) (QUOTE (IDATE 1000402194105 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE LIST-AS-CNTL-STATE-CROCK CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (DEFTHEORY CONTROL-STATE-ACCESSOR-THEORY (RW- STROBE- HDACK- WE-REGS WE-A-REG WE-B-REG WE-I-REG WE-DATA-OUT WE-ADDR-OUT WE-HOLD- WE-PC-REG DATA-IN-SELECT DEC-ADDR-OUT SELECT-IMMEDIATE ALU-C ALU-ZERO STATE WE-FLAGS REGS-ADDRESS ALU-OP ALU-MPG)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RW- . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 STROBE- . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 HDACK- . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-REGS . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-A-REG . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-B-REG . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-I-REG . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-HOLD- . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-PC-REG . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 ALU-C . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 ALU-ZERO . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 STATE . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 WE-FLAGS . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 ALU-OP . CONTROL-STATE-ACCESSOR-THEORY) (IMMEDIATE-DEPENDENTS0 ALU-MPG . CONTROL-STATE-ACCESSOR-THEORY))))) (PUT1-LST (QUOTE ALU-MPG-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE ALU-MPG-OFF ALU-MPG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-MPG . ALU-MPG-OFF) (DISABLED-LEMMAS NIL ALU-MPG ALU-MPG-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-MPG) (QUOTE (MAIN-EVENT ALU-MPG))) (PUT1-LST (QUOTE ALU-MPG) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-MPG 24 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (ALU-MPG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (ALU-MPG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-MPG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL)) TOTALP-LST ((ALU-MPG . T)) SDEFN (LAMBDA (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 33) (QUOTE 39))) LISP-CODE *1*ALU-MPG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*ALU-MPG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY ALU-MPG-OFF) EVENT (DEFN ALU-MPG (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 33) (QUOTE 39))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . ALU-MPG) (DCELL . *1*ALU-MPG))))) (PUT1-LST (QUOTE ALU-OP-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE ALU-OP-OFF ALU-OP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-OP . ALU-OP-OFF) (DISABLED-LEMMAS NIL ALU-OP ALU-OP-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-OP) (QUOTE (MAIN-EVENT ALU-OP))) (PUT1-LST (QUOTE ALU-OP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-OP 24 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (ALU-OP (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (ALU-OP (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (ALU-DEC-OP) (ALU-INC-OP))) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OP-CODE I-REG)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-OP (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (ALU-INC-OP)) NIL)) TOTALP-LST ((ALU-OP . T)) SDEFN (LAMBDA (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 29) (QUOTE 32))) LISP-CODE *1*ALU-OP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*ALU-OP) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY ALU-OP-OFF) EVENT (DEFN ALU-OP (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 29) (QUOTE 32))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . ALU-OP) (DCELL . *1*ALU-OP))))) (PUT1-LST (QUOTE REGS-ADDRESS-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE REGS-ADDRESS-OFF REGS-ADDRESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGS-ADDRESS . REGS-ADDRESS-OFF) (DISABLED-LEMMAS NIL REGS-ADDRESS REGS-ADDRESS-OFF . T))))) (PUT1-LST (QUOTE *1*REGS-ADDRESS) (QUOTE (MAIN-EVENT REGS-ADDRESS))) (PUT1-LST (QUOTE REGS-ADDRESS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGS-ADDRESS 24 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V-INC REGS-ADDRESS)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (REGS-ADDRESS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (REGS-ADDRESS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-B I-REG)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (RN-A I-REG)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (REGS-ADDRESS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) PC-REG) NIL)) TOTALP-LST ((REGS-ADDRESS . T)) SDEFN (LAMBDA (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 25) (QUOTE 28))) LISP-CODE *1*REGS-ADDRESS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*REGS-ADDRESS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY REGS-ADDRESS-OFF) EVENT (DEFN REGS-ADDRESS (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 25) (QUOTE 28))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . REGS-ADDRESS) (DCELL . *1*REGS-ADDRESS))))) (PUT1-LST (QUOTE WE-FLAGS-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-FLAGS-OFF WE-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-FLAGS . WE-FLAGS-OFF) (DISABLED-LEMMAS NIL WE-FLAGS WE-FLAGS-OFF . T))))) (PUT1-LST (QUOTE *1*WE-FLAGS) (QUOTE (MAIN-EVENT WE-FLAGS))) (PUT1-LST (QUOTE WE-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-FLAGS 24 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-FLAGS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-FLAGS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (SET-FLAGS I-REG)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (SET-FLAGS I-REG)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-FLAGS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((WE-FLAGS . T)) SDEFN (LAMBDA (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 21) (QUOTE 24))) LISP-CODE *1*WE-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-FLAGS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-FLAGS-OFF) EVENT (DEFN WE-FLAGS (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 21) (QUOTE 24))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . WE-FLAGS) (DCELL . *1*WE-FLAGS))))) (PUT1-LST (QUOTE STATE-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE STATE-OFF STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE . STATE-OFF) (DISABLED-LEMMAS NIL STATE STATE-OFF . T))))) (PUT1-LST (QUOTE *1*STATE) (QUOTE (MAIN-EVENT STATE))) (PUT1-LST (QUOTE STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE 24 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11111)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET2)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (STATE (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET1)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (STATE (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_RESET0)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11011)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_V11010)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_HOLD1)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_HOLD0)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFB1)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFB0)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFA1)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_SEFA0)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE3)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE2)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE1)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_WRITE0)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB3)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB2)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB1)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READB0)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA3)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA2)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA1)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_READA0)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_UPDATE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_REGB)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_REGA)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_DECODE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH3)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH2)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH1)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STATE (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (V_FETCH0)) NIL)) TOTALP-LST ((STATE . T)) SDEFN (LAMBDA (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 16) (QUOTE 20))) LISP-CODE *1*STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*STATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY STATE-OFF) EVENT (DEFN STATE (CNTL-STATE) (SUBRANGE CNTL-STATE (QUOTE 16) (QUOTE 20))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . STATE) (DCELL . *1*STATE))))) (PUT1-LST (QUOTE ALU-ZERO-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE ALU-ZERO-OFF ALU-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-ZERO . ALU-ZERO-OFF) (DISABLED-LEMMAS NIL ALU-ZERO ALU-ZERO-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-ZERO) (QUOTE (MAIN-EVENT ALU-ZERO))) (PUT1-LST (QUOTE ALU-ZERO) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-ZERO -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (ALU-ZERO (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (ALU-ZERO (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-ZERO (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((ALU-ZERO . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 15) CNTL-STATE)) LISP-CODE *1*ALU-ZERO SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*ALU-ZERO) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY ALU-ZERO-OFF) EVENT (DEFN ALU-ZERO (CNTL-STATE) (NTH (QUOTE 15) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . ALU-ZERO) (DCELL . *1*ALU-ZERO))))) (PUT1-LST (QUOTE ALU-C-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE ALU-C-OFF ALU-C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-C . ALU-C-OFF) (DISABLED-LEMMAS NIL ALU-C ALU-C-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-C) (QUOTE (MAIN-EVENT ALU-C))) (PUT1-LST (QUOTE ALU-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-C -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (ALU-C (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (ALU-C (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-B I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (IF* (PRE-DEC-P (MODE-A I-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-DEC-OP)))) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))))) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*FALSE) (OP-CODE I-REG))))) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (ALU-C (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (CARRY-IN-HELP (CONS (C-FLAG FLAGS) (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) NIL)) TOTALP-LST ((ALU-C . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 14) CNTL-STATE)) LISP-CODE *1*ALU-C SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*ALU-C) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY ALU-C-OFF) EVENT (DEFN ALU-C (CNTL-STATE) (NTH (QUOTE 14) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . ALU-C) (DCELL . *1*ALU-C))))) (PUT1-LST (QUOTE SELECT-IMMEDIATE-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE SELECT-IMMEDIATE-OFF SELECT-IMMEDIATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SELECT-IMMEDIATE . SELECT-IMMEDIATE-OFF) (DISABLED-LEMMAS NIL SELECT-IMMEDIATE SELECT-IMMEDIATE-OFF . T))))) (PUT1-LST (QUOTE *1*SELECT-IMMEDIATE) (QUOTE (MAIN-EVENT SELECT-IMMEDIATE))) (PUT1-LST (QUOTE SELECT-IMMEDIATE) (QUOTE (TYPE-PRESCRIPTION-LST ((SELECT-IMMEDIATE -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (SELECT-IMMEDIATE (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (SELECT-IMMEDIATE (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (A-IMMEDIATE-P I-REG)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (A-IMMEDIATE-P I-REG)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (SELECT-IMMEDIATE (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((SELECT-IMMEDIATE . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 13) CNTL-STATE)) LISP-CODE *1*SELECT-IMMEDIATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*SELECT-IMMEDIATE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY SELECT-IMMEDIATE-OFF) EVENT (DEFN SELECT-IMMEDIATE (CNTL-STATE) (NTH (QUOTE 13) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . SELECT-IMMEDIATE) (DCELL . *1*SELECT-IMMEDIATE))))) (PUT1-LST (QUOTE DEC-ADDR-OUT-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE DEC-ADDR-OUT-OFF DEC-ADDR-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-ADDR-OUT . DEC-ADDR-OUT-OFF) (DISABLED-LEMMAS NIL DEC-ADDR-OUT DEC-ADDR-OUT-OFF . T))))) (PUT1-LST (QUOTE *1*DEC-ADDR-OUT) (QUOTE (MAIN-EVENT DEC-ADDR-OUT))) (PUT1-LST (QUOTE DEC-ADDR-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-ADDR-OUT -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (DEC-ADDR-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (DEC-ADDR-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-B I-REG))) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-B I-REG))) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (PRE-DEC-P (MODE-A I-REG))) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DEC-ADDR-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((DEC-ADDR-OUT . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 12) CNTL-STATE)) LISP-CODE *1*DEC-ADDR-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*DEC-ADDR-OUT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY DEC-ADDR-OUT-OFF) EVENT (DEFN DEC-ADDR-OUT (CNTL-STATE) (NTH (QUOTE 12) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DEC-ADDR-OUT) (DCELL . *1*DEC-ADDR-OUT))))) (PUT1-LST (QUOTE DATA-IN-SELECT-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE DATA-IN-SELECT-OFF DATA-IN-SELECT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DATA-IN-SELECT . DATA-IN-SELECT-OFF) (DISABLED-LEMMAS NIL DATA-IN-SELECT DATA-IN-SELECT-OFF . T))))) (PUT1-LST (QUOTE *1*DATA-IN-SELECT) (QUOTE (MAIN-EVENT DATA-IN-SELECT))) (PUT1-LST (QUOTE DATA-IN-SELECT) (QUOTE (TYPE-PRESCRIPTION-LST ((DATA-IN-SELECT -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (DATA-IN-SELECT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (DATA-IN-SELECT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (DATA-IN-SELECT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((DATA-IN-SELECT . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 11) CNTL-STATE)) LISP-CODE *1*DATA-IN-SELECT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*DATA-IN-SELECT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY DATA-IN-SELECT-OFF) EVENT (DEFN DATA-IN-SELECT (CNTL-STATE) (NTH (QUOTE 11) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . DATA-IN-SELECT) (DCELL . *1*DATA-IN-SELECT))))) (PUT1-LST (QUOTE WE-PC-REG-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-PC-REG-OFF WE-PC-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-PC-REG . WE-PC-REG-OFF) (DISABLED-LEMMAS NIL WE-PC-REG WE-PC-REG-OFF . T))))) (PUT1-LST (QUOTE *1*WE-PC-REG) (QUOTE (MAIN-EVENT WE-PC-REG))) (PUT1-LST (QUOTE WE-PC-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-PC-REG -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-PC-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-PC-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-PC-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((WE-PC-REG . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 10) CNTL-STATE)) LISP-CODE *1*WE-PC-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-PC-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-PC-REG-OFF) EVENT (DEFN WE-PC-REG (CNTL-STATE) (NTH (QUOTE 10) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-PC-REG) (DCELL . *1*WE-PC-REG))))) (PUT1-LST (QUOTE WE-HOLD--OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-HOLD--OFF WE-HOLD- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-HOLD- . WE-HOLD--OFF) (DISABLED-LEMMAS NIL WE-HOLD- WE-HOLD--OFF . T))))) (PUT1-LST (QUOTE *1*WE-HOLD-) (QUOTE (MAIN-EVENT WE-HOLD-))) (PUT1-LST (QUOTE WE-HOLD-) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-HOLD- -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-HOLD- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-HOLD- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-HOLD- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((WE-HOLD- . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 9) CNTL-STATE)) LISP-CODE *1*WE-HOLD- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-HOLD-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-HOLD--OFF) EVENT (DEFN WE-HOLD- (CNTL-STATE) (NTH (QUOTE 9) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-HOLD-) (DCELL . *1*WE-HOLD-))))) (PUT1-LST (QUOTE WE-ADDR-OUT-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-ADDR-OUT-OFF WE-ADDR-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-ADDR-OUT . WE-ADDR-OUT-OFF) (DISABLED-LEMMAS NIL WE-ADDR-OUT WE-ADDR-OUT-OFF . T))))) (PUT1-LST (QUOTE *1*WE-ADDR-OUT) (QUOTE (MAIN-EVENT WE-ADDR-OUT))) (PUT1-LST (QUOTE WE-ADDR-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-ADDR-OUT -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-ADDR-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-ADDR-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-ADDR-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((WE-ADDR-OUT . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 8) CNTL-STATE)) LISP-CODE *1*WE-ADDR-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-ADDR-OUT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-ADDR-OUT-OFF) EVENT (DEFN WE-ADDR-OUT (CNTL-STATE) (NTH (QUOTE 8) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-ADDR-OUT) (DCELL . *1*WE-ADDR-OUT))))) (PUT1-LST (QUOTE WE-DATA-OUT-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-DATA-OUT-OFF WE-DATA-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-DATA-OUT . WE-DATA-OUT-OFF) (DISABLED-LEMMAS NIL WE-DATA-OUT WE-DATA-OUT-OFF . T))))) (PUT1-LST (QUOTE *1*WE-DATA-OUT) (QUOTE (MAIN-EVENT WE-DATA-OUT))) (PUT1-LST (QUOTE WE-DATA-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-DATA-OUT -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-DATA-OUT (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-DATA-OUT (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-DATA-OUT (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((WE-DATA-OUT . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 7) CNTL-STATE)) LISP-CODE *1*WE-DATA-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-DATA-OUT) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-DATA-OUT-OFF) EVENT (DEFN WE-DATA-OUT (CNTL-STATE) (NTH (QUOTE 7) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-DATA-OUT) (DCELL . *1*WE-DATA-OUT))))) (PUT1-LST (QUOTE WE-I-REG-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-I-REG-OFF WE-I-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-I-REG . WE-I-REG-OFF) (DISABLED-LEMMAS NIL WE-I-REG WE-I-REG-OFF . T))))) (PUT1-LST (QUOTE *1*WE-I-REG) (QUOTE (MAIN-EVENT WE-I-REG))) (PUT1-LST (QUOTE WE-I-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-I-REG -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-I-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-I-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-I-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((WE-I-REG . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 6) CNTL-STATE)) LISP-CODE *1*WE-I-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-I-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-I-REG-OFF) EVENT (DEFN WE-I-REG (CNTL-STATE) (NTH (QUOTE 6) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-I-REG) (DCELL . *1*WE-I-REG))))) (PUT1-LST (QUOTE WE-B-REG-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-B-REG-OFF WE-B-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-B-REG . WE-B-REG-OFF) (DISABLED-LEMMAS NIL WE-B-REG WE-B-REG-OFF . T))))) (PUT1-LST (QUOTE *1*WE-B-REG) (QUOTE (MAIN-EVENT WE-B-REG))) (PUT1-LST (QUOTE WE-B-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-B-REG -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-B-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-B-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-B-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((WE-B-REG . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 5) CNTL-STATE)) LISP-CODE *1*WE-B-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-B-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-B-REG-OFF) EVENT (DEFN WE-B-REG (CNTL-STATE) (NTH (QUOTE 5) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-B-REG) (DCELL . *1*WE-B-REG))))) (PUT1-LST (QUOTE WE-A-REG-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-A-REG-OFF WE-A-REG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-A-REG . WE-A-REG-OFF) (DISABLED-LEMMAS NIL WE-A-REG WE-A-REG-OFF . T))))) (PUT1-LST (QUOTE *1*WE-A-REG) (QUOTE (MAIN-EVENT WE-A-REG))) (PUT1-LST (QUOTE WE-A-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-A-REG -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-A-REG (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-A-REG (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OR* (A-IMMEDIATE-P I-REG) (REG-DIRECT-P (MODE-A I-REG)))) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-A-REG (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((WE-A-REG . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 4) CNTL-STATE)) LISP-CODE *1*WE-A-REG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-A-REG) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-A-REG-OFF) EVENT (DEFN WE-A-REG (CNTL-STATE) (NTH (QUOTE 4) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-A-REG) (DCELL . *1*WE-A-REG))))) (PUT1-LST (QUOTE WE-REGS-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE WE-REGS-OFF WE-REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REGS . WE-REGS-OFF) (DISABLED-LEMMAS NIL WE-REGS WE-REGS-OFF . T))))) (PUT1-LST (QUOTE *1*WE-REGS) (QUOTE (MAIN-EVENT WE-REGS))) (PUT1-LST (QUOTE WE-REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REGS -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (WE-REGS (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (WE-REGS (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG)))) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND* (NOT* (STORE-RESULTP (STORE-CC I-REG) FLAGS)) (OR* (PRE-DEC-P (MODE-B I-REG)) (POST-INC-P (MODE-B I-REG))))) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (AND* (NOT* (A-IMMEDIATE-P I-REG)) (OR* (PRE-DEC-P (MODE-A I-REG)) (POST-INC-P (MODE-A I-REG))))) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (STORE-RESULTP (STORE-CC I-REG) FLAGS)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (WE-REGS (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((WE-REGS . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 3) CNTL-STATE)) LISP-CODE *1*WE-REGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*WE-REGS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY WE-REGS-OFF) EVENT (DEFN WE-REGS (CNTL-STATE) (NTH (QUOTE 3) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . WE-REGS) (DCELL . *1*WE-REGS))))) (PUT1-LST (QUOTE HDACK--OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE HDACK--OFF HDACK- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HDACK- . HDACK--OFF) (DISABLED-LEMMAS NIL HDACK- HDACK--OFF . T))))) (PUT1-LST (QUOTE *1*HDACK-) (QUOTE (MAIN-EVENT HDACK-))) (PUT1-LST (QUOTE HDACK-) (QUOTE (TYPE-PRESCRIPTION-LST ((HDACK- -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (HDACK- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (HDACK- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (HDACK- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((HDACK- . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 2) CNTL-STATE)) LISP-CODE *1*HDACK- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*HDACK-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY HDACK--OFF) EVENT (DEFN HDACK- (CNTL-STATE) (NTH (QUOTE 2) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . HDACK-) (DCELL . *1*HDACK-))))) (PUT1-LST (QUOTE STROBE--OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE STROBE--OFF STROBE- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STROBE- . STROBE--OFF) (DISABLED-LEMMAS NIL STROBE- STROBE--OFF . T))))) (PUT1-LST (QUOTE *1*STROBE-) (QUOTE (MAIN-EVENT STROBE-))) (PUT1-LST (QUOTE STROBE-) (QUOTE (TYPE-PRESCRIPTION-LST ((STROBE- -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (STROBE- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (STROBE- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (STROBE- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((STROBE- . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 1) CNTL-STATE)) LISP-CODE *1*STROBE- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*STROBE-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY STROBE--OFF) EVENT (DEFN STROBE- (CNTL-STATE) (NTH (QUOTE 1) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . STROBE-) (DCELL . *1*STROBE-))))) (PUT1-LST (QUOTE RW--OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE RW--OFF RW- T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RW- . RW--OFF) (DISABLED-LEMMAS NIL RW- RW--OFF . T))))) (PUT1-LST (QUOTE *1*RW-) (QUOTE (MAIN-EVENT RW-))) (PUT1-LST (QUOTE RW-) (QUOTE (TYPE-PRESCRIPTION-LST ((RW- -1 NIL)) LEMMAS ((REWRITE-RULE CV_V11111$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET1$DESTRUCTURE NIL (EQUAL (RW- (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_RESET0$DESTRUCTURE NIL (EQUAL (RW- (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11011$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_V11010$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_HOLD0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_SEFA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_WRITE3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE CV_WRITE0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READB0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_READA0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_UPDATE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGB$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_REGA$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_DECODE$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH3$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH2$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH1$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CV_FETCH0$DESTRUCTURE ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (RW- (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) RW-) NIL)) TOTALP-LST ((RW- . T)) SDEFN (LAMBDA (CNTL-STATE) (NTH (QUOTE 0) CNTL-STATE)) LISP-CODE *1*RW- SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194105 SATELLITES (*1*RW-) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK FM9001-NEXT-STATE CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CONTROL-STATE-ACCESSOR-THEORY RW--OFF) EVENT (DEFN RW- (CNTL-STATE) (NTH (QUOTE 0) CNTL-STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . RW-) (DCELL . *1*RW-))))) (PUT1-LST (QUOTE BVP-LENGTH-STATE-VECTORS-OFF) (QUOTE (IDATE 1000402194105 EVENT (TOGGLE BVP-LENGTH-STATE-VECTORS-OFF BVP-LENGTH-STATE-VECTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-STATE-VECTORS . BVP-LENGTH-STATE-VECTORS-OFF) (DISABLED-LEMMAS NIL BVP-LENGTH-STATE-VECTORS BVP-LENGTH-STATE-VECTORS-OFF . T))))) (PUT1-LST (QUOTE BVP-LENGTH-STATE-VECTORS) (QUOTE (IDATE 1000402194105 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 BVP-CV-VECTORS BVP-LENGTH-STATE-VECTORS-OFF) EVENT (PROVE-LEMMA BVP-LENGTH-STATE-VECTORS (REWRITE) (AND (EQUAL (LENGTH (V_FETCH0)) (QUOTE 5)) (AND (BVP (V_FETCH0)) (AND (EQUAL (LENGTH (V_FETCH1)) (QUOTE 5)) (AND (BVP (V_FETCH1)) (AND (EQUAL (LENGTH (V_FETCH2)) (QUOTE 5)) (AND (BVP (V_FETCH2)) (AND (EQUAL (LENGTH (V_FETCH3)) (QUOTE 5)) (AND (BVP (V_FETCH3)) (AND (EQUAL (LENGTH (V_DECODE)) (QUOTE 5)) (AND (BVP (V_DECODE)) (AND (EQUAL (LENGTH (V_REGA)) (QUOTE 5)) (AND (BVP (V_REGA)) (AND (EQUAL (LENGTH (V_REGB)) (QUOTE 5)) (AND (BVP (V_REGB)) (AND (EQUAL (LENGTH (V_UPDATE)) (QUOTE 5)) (AND (BVP (V_UPDATE)) (AND (EQUAL (LENGTH (V_READA0)) (QUOTE 5)) (AND (BVP (V_READA0)) (AND (EQUAL (LENGTH (V_READA1)) (QUOTE 5)) (AND (BVP (V_READA1)) (AND (EQUAL (LENGTH (V_READA2)) (QUOTE 5)) (AND (BVP (V_READA2)) (AND (EQUAL (LENGTH (V_READA3)) (QUOTE 5)) (AND (BVP (V_READA3)) (AND (EQUAL (LENGTH (V_READB0)) (QUOTE 5)) (AND (BVP (V_READB0)) (AND (EQUAL (LENGTH (V_READB1)) (QUOTE 5)) (AND (BVP (V_READB1)) (AND (EQUAL (LENGTH (V_READB2)) (QUOTE 5)) (AND (BVP (V_READB2)) (AND (EQUAL (LENGTH (V_READB3)) (QUOTE 5)) (AND (BVP (V_READB3)) (AND (EQUAL (LENGTH (V_WRITE0)) (QUOTE 5)) (AND (BVP (V_WRITE0)) (AND (EQUAL (LENGTH (V_WRITE1)) (QUOTE 5)) (AND (BVP (V_WRITE1)) (AND (EQUAL (LENGTH (V_WRITE2)) (QUOTE 5)) (AND (BVP (V_WRITE2)) (AND (EQUAL (LENGTH (V_WRITE3)) (QUOTE 5)) (AND (BVP (V_WRITE3)) (AND (EQUAL (LENGTH (V_SEFA0)) (QUOTE 5)) (AND (BVP (V_SEFA0)) (AND (EQUAL (LENGTH (V_SEFA1)) (QUOTE 5)) (AND (BVP (V_SEFA1)) (AND (EQUAL (LENGTH (V_SEFB0)) (QUOTE 5)) (AND (BVP (V_SEFB0)) (AND (EQUAL (LENGTH (V_SEFB1)) (QUOTE 5)) (AND (BVP (V_SEFB1)) (AND (EQUAL (LENGTH (V_HOLD0)) (QUOTE 5)) (AND (BVP (V_HOLD0)) (AND (EQUAL (LENGTH (V_HOLD1)) (QUOTE 5)) (AND (BVP (V_HOLD1)) (AND (EQUAL (LENGTH (V_V11010)) (QUOTE 5)) (AND (BVP (V_V11010)) (AND (EQUAL (LENGTH (V_V11011)) (QUOTE 5)) (AND (BVP (V_V11011)) (AND (EQUAL (LENGTH (V_RESET0)) (QUOTE 5)) (AND (BVP (V_RESET0)) (AND (EQUAL (LENGTH (V_RESET1)) (QUOTE 5)) (AND (BVP (V_RESET1)) (AND (EQUAL (LENGTH (V_RESET2)) (QUOTE 5)) (AND (BVP (V_RESET2)) (AND (EQUAL (LENGTH (V_V11111)) (QUOTE 5)) (BVP (V_V11111))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((ENABLE-THEORY VECTOR-STATE-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 VECTOR-STATE-THEORY . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_V11111 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_RESET2 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_RESET1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_RESET0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_V11011 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_V11010 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READB3 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READB2 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READB1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READB0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READA3 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READA2 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READA1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_READA0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_UPDATE . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_REGB . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_REGA . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_DECODE . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 V_FETCH0 . BVP-LENGTH-STATE-VECTORS) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS) (LEMMAS BVP . BVP-LENGTH-STATE-VECTORS) (LEMMAS LENGTH . BVP-LENGTH-STATE-VECTORS))))) (PUT1-LST (QUOTE NATURAL-STATE-THEORY) (QUOTE (IDATE 1000402194104 EVENT (DEFTHEORY NATURAL-STATE-THEORY (N_FETCH0 N_FETCH1 N_FETCH2 N_FETCH3 N_DECODE N_REGA N_REGB N_UPDATE N_READA0 N_READA1 N_READA2 N_READA3 N_READB0 N_READB1 N_READB2 N_READB3 N_WRITE0 N_WRITE1 N_WRITE2 N_WRITE3 N_SEFA0 N_SEFA1 N_SEFB0 N_SEFB1 N_HOLD0 N_HOLD1 N_V11010 N_V11011 N_RESET0 N_RESET1 N_RESET2 N_V11111)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_FETCH1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_FETCH2 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_FETCH3 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_DECODE . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_REGA . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_REGB . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_UPDATE . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READA0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READA1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READA2 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READA3 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READB0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READB1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READB2 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_READB3 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_WRITE0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_WRITE1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_WRITE2 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_WRITE3 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_SEFA0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_SEFA1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_SEFB0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_SEFB1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_HOLD0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_HOLD1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_V11010 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_V11011 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_RESET0 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_RESET1 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_RESET2 . NATURAL-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 N_V11111 . NATURAL-STATE-THEORY))))) (PUT1-LST (QUOTE VECTOR-STATE-THEORY) (QUOTE (IDATE 1000402194104 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-STATE-VECTORS) EVENT (DEFTHEORY VECTOR-STATE-THEORY (V_FETCH0 V_FETCH1 V_FETCH2 V_FETCH3 V_DECODE V_REGA V_REGB V_UPDATE V_READA0 V_READA1 V_READA2 V_READA3 V_READB0 V_READB1 V_READB2 V_READB3 V_WRITE0 V_WRITE1 V_WRITE2 V_WRITE3 V_SEFA0 V_SEFA1 V_SEFB0 V_SEFB1 V_HOLD0 V_HOLD1 V_V11010 V_V11011 V_RESET0 V_RESET1 V_RESET2 V_V11111)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_FETCH1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_FETCH2 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_FETCH3 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_DECODE . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_REGA . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_REGB . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_UPDATE . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READA0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READA1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READA2 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READA3 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READB0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READB1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READB2 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_READB3 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_WRITE0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_WRITE1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_WRITE2 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_WRITE3 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_SEFA0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_SEFA1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_SEFB0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_SEFB1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_HOLD0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_HOLD1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_V11010 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_V11011 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_RESET0 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_RESET1 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_RESET2 . VECTOR-STATE-THEORY) (IMMEDIATE-DEPENDENTS0 V_V11111 . VECTOR-STATE-THEORY))))) (PUT1-LST (QUOTE G*1*N_V11111-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_V11111-OFF *1*N_V11111 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11111 . G*1*N_V11111-OFF) (DISABLED-LEMMAS NIL *1*N_V11111 G*1*N_V11111-OFF . T))))) (PUT1-LST (QUOTE N_V11111-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_V11111-OFF N_V11111 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11111 . N_V11111-OFF) (DISABLED-LEMMAS NIL N_V11111 N_V11111-OFF . T))))) (PUT1-LST (QUOTE *1*N_V11111) (QUOTE (MAIN-EVENT N_V11111))) (PUT1-LST (QUOTE N_V11111) (QUOTE (TYPE-PRESCRIPTION-LST ((N_V11111 4)) TOTALP-LST ((N_V11111 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_V11111 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_V11111) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_V11111-OFF N_V11111-OFF) EVENT (DEFN N_V11111 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_V11111) (DCELL . *1*N_V11111))))) (PUT1-LST (QUOTE G*1*V_V11111-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_V11111-OFF *1*V_V11111 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11111 . G*1*V_V11111-OFF) (DISABLED-LEMMAS NIL *1*V_V11111 G*1*V_V11111-OFF . T))))) (PUT1-LST (QUOTE V_V11111-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_V11111-OFF V_V11111 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11111 . V_V11111-OFF) (DISABLED-LEMMAS NIL V_V11111 V_V11111-OFF . T))))) (PUT1-LST (QUOTE *1*V_V11111) (QUOTE (MAIN-EVENT V_V11111))) (PUT1-LST (QUOTE V_V11111) (QUOTE (TYPE-PRESCRIPTION-LST ((V_V11111 16)) TOTALP-LST ((V_V11111 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*V_V11111 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_V11111) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE CV_V11111$DESTRUCTURE CV_V11111 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_V11111-OFF V_V11111-OFF) EVENT (DEFN V_V11111 NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_V11111))))) (PUT1-LST (QUOTE G*1*N_RESET2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_RESET2-OFF *1*N_RESET2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET2 . G*1*N_RESET2-OFF) (DISABLED-LEMMAS NIL *1*N_RESET2 G*1*N_RESET2-OFF . T))))) (PUT1-LST (QUOTE N_RESET2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_RESET2-OFF N_RESET2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET2 . N_RESET2-OFF) (DISABLED-LEMMAS NIL N_RESET2 N_RESET2-OFF . T))))) (PUT1-LST (QUOTE *1*N_RESET2) (QUOTE (MAIN-EVENT N_RESET2))) (PUT1-LST (QUOTE N_RESET2) (QUOTE (TYPE-PRESCRIPTION-LST ((N_RESET2 4)) TOTALP-LST ((N_RESET2 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_RESET2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_RESET2) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_RESET2-OFF N_RESET2-OFF) EVENT (DEFN N_RESET2 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_RESET2) (DCELL . *1*N_RESET2))))) (PUT1-LST (QUOTE G*1*V_RESET2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_RESET2-OFF *1*V_RESET2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET2 . G*1*V_RESET2-OFF) (DISABLED-LEMMAS NIL *1*V_RESET2 G*1*V_RESET2-OFF . T))))) (PUT1-LST (QUOTE V_RESET2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_RESET2-OFF V_RESET2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET2 . V_RESET2-OFF) (DISABLED-LEMMAS NIL V_RESET2 V_RESET2-OFF . T))))) (PUT1-LST (QUOTE *1*V_RESET2) (QUOTE (MAIN-EVENT V_RESET2))) (PUT1-LST (QUOTE V_RESET2) (QUOTE (TYPE-PRESCRIPTION-LST ((V_RESET2 16)) TOTALP-LST ((V_RESET2 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*V_RESET2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_RESET2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 CV_RESET2$DESTRUCTURE CV_RESET2 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_RESET2-OFF V_RESET2-OFF) EVENT (DEFN V_RESET2 NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_RESET2))))) (PUT1-LST (QUOTE G*1*N_RESET1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_RESET1-OFF *1*N_RESET1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET1 . G*1*N_RESET1-OFF) (DISABLED-LEMMAS NIL *1*N_RESET1 G*1*N_RESET1-OFF . T))))) (PUT1-LST (QUOTE N_RESET1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_RESET1-OFF N_RESET1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET1 . N_RESET1-OFF) (DISABLED-LEMMAS NIL N_RESET1 N_RESET1-OFF . T))))) (PUT1-LST (QUOTE *1*N_RESET1) (QUOTE (MAIN-EVENT N_RESET1))) (PUT1-LST (QUOTE N_RESET1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_RESET1 4)) TOTALP-LST ((N_RESET1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_RESET1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_RESET1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_RESET1-OFF N_RESET1-OFF) EVENT (DEFN N_RESET1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_RESET1) (DCELL . *1*N_RESET1))))) (PUT1-LST (QUOTE G*1*V_RESET1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_RESET1-OFF *1*V_RESET1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET1 . G*1*V_RESET1-OFF) (DISABLED-LEMMAS NIL *1*V_RESET1 G*1*V_RESET1-OFF . T))))) (PUT1-LST (QUOTE V_RESET1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_RESET1-OFF V_RESET1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET1 . V_RESET1-OFF) (DISABLED-LEMMAS NIL V_RESET1 V_RESET1-OFF . T))))) (PUT1-LST (QUOTE *1*V_RESET1) (QUOTE (MAIN-EVENT V_RESET1))) (PUT1-LST (QUOTE V_RESET1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_RESET1 16)) TOTALP-LST ((V_RESET1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*V_RESET1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_RESET1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 CV_RESET1$DESTRUCTURE CV_RESET1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_RESET1-OFF V_RESET1-OFF) EVENT (DEFN V_RESET1 NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_RESET1))))) (PUT1-LST (QUOTE G*1*N_RESET0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_RESET0-OFF *1*N_RESET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET0 . G*1*N_RESET0-OFF) (DISABLED-LEMMAS NIL *1*N_RESET0 G*1*N_RESET0-OFF . T))))) (PUT1-LST (QUOTE N_RESET0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_RESET0-OFF N_RESET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_RESET0 . N_RESET0-OFF) (DISABLED-LEMMAS NIL N_RESET0 N_RESET0-OFF . T))))) (PUT1-LST (QUOTE *1*N_RESET0) (QUOTE (MAIN-EVENT N_RESET0))) (PUT1-LST (QUOTE N_RESET0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_RESET0 4)) TOTALP-LST ((N_RESET0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_RESET0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_RESET0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_RESET0-OFF N_RESET0-OFF) EVENT (DEFN N_RESET0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_RESET0) (DCELL . *1*N_RESET0))))) (PUT1-LST (QUOTE G*1*V_RESET0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_RESET0-OFF *1*V_RESET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET0 . G*1*V_RESET0-OFF) (DISABLED-LEMMAS NIL *1*V_RESET0 G*1*V_RESET0-OFF . T))))) (PUT1-LST (QUOTE V_RESET0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_RESET0-OFF V_RESET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_RESET0 . V_RESET0-OFF) (DISABLED-LEMMAS NIL V_RESET0 V_RESET0-OFF . T))))) (PUT1-LST (QUOTE *1*V_RESET0) (QUOTE (MAIN-EVENT V_RESET0))) (PUT1-LST (QUOTE V_RESET0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_RESET0 16)) TOTALP-LST ((V_RESET0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LISP-CODE *1*V_RESET0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_RESET0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 CV_RESET0$DESTRUCTURE CV_RESET0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_RESET0-OFF V_RESET0-OFF) EVENT (DEFN V_RESET0 NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_RESET0))))) (PUT1-LST (QUOTE G*1*N_V11011-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_V11011-OFF *1*N_V11011 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11011 . G*1*N_V11011-OFF) (DISABLED-LEMMAS NIL *1*N_V11011 G*1*N_V11011-OFF . T))))) (PUT1-LST (QUOTE N_V11011-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_V11011-OFF N_V11011 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11011 . N_V11011-OFF) (DISABLED-LEMMAS NIL N_V11011 N_V11011-OFF . T))))) (PUT1-LST (QUOTE *1*N_V11011) (QUOTE (MAIN-EVENT N_V11011))) (PUT1-LST (QUOTE N_V11011) (QUOTE (TYPE-PRESCRIPTION-LST ((N_V11011 4)) TOTALP-LST ((N_V11011 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_V11011 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_V11011) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_V11011-OFF N_V11011-OFF) EVENT (DEFN N_V11011 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_V11011) (DCELL . *1*N_V11011))))) (PUT1-LST (QUOTE G*1*V_V11011-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_V11011-OFF *1*V_V11011 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11011 . G*1*V_V11011-OFF) (DISABLED-LEMMAS NIL *1*V_V11011 G*1*V_V11011-OFF . T))))) (PUT1-LST (QUOTE V_V11011-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_V11011-OFF V_V11011 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11011 . V_V11011-OFF) (DISABLED-LEMMAS NIL V_V11011 V_V11011-OFF . T))))) (PUT1-LST (QUOTE *1*V_V11011) (QUOTE (MAIN-EVENT V_V11011))) (PUT1-LST (QUOTE V_V11011) (QUOTE (TYPE-PRESCRIPTION-LST ((V_V11011 16)) TOTALP-LST ((V_V11011 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*V_V11011 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_V11011) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11011 CV_V11011$DESTRUCTURE CV_V11011 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_V11011-OFF V_V11011-OFF) EVENT (DEFN V_V11011 NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_V11011))))) (PUT1-LST (QUOTE G*1*N_V11010-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_V11010-OFF *1*N_V11010 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11010 . G*1*N_V11010-OFF) (DISABLED-LEMMAS NIL *1*N_V11010 G*1*N_V11010-OFF . T))))) (PUT1-LST (QUOTE N_V11010-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_V11010-OFF N_V11010 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_V11010 . N_V11010-OFF) (DISABLED-LEMMAS NIL N_V11010 N_V11010-OFF . T))))) (PUT1-LST (QUOTE *1*N_V11010) (QUOTE (MAIN-EVENT N_V11010))) (PUT1-LST (QUOTE N_V11010) (QUOTE (TYPE-PRESCRIPTION-LST ((N_V11010 4)) TOTALP-LST ((N_V11010 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_V11010 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_V11010) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_V11010-OFF N_V11010-OFF) EVENT (DEFN N_V11010 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_V11010) (DCELL . *1*N_V11010))))) (PUT1-LST (QUOTE G*1*V_V11010-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_V11010-OFF *1*V_V11010 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11010 . G*1*V_V11010-OFF) (DISABLED-LEMMAS NIL *1*V_V11010 G*1*V_V11010-OFF . T))))) (PUT1-LST (QUOTE V_V11010-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_V11010-OFF V_V11010 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_V11010 . V_V11010-OFF) (DISABLED-LEMMAS NIL V_V11010 V_V11010-OFF . T))))) (PUT1-LST (QUOTE *1*V_V11010) (QUOTE (MAIN-EVENT V_V11010))) (PUT1-LST (QUOTE V_V11010) (QUOTE (TYPE-PRESCRIPTION-LST ((V_V11010 16)) TOTALP-LST ((V_V11010 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*V_V11010 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_V11010) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11010 CV_V11010$DESTRUCTURE CV_V11010 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_V11010-OFF V_V11010-OFF) EVENT (DEFN V_V11010 NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_V11010))))) (PUT1-LST (QUOTE G*1*N_HOLD1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_HOLD1-OFF *1*N_HOLD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_HOLD1 . G*1*N_HOLD1-OFF) (DISABLED-LEMMAS NIL *1*N_HOLD1 G*1*N_HOLD1-OFF . T))))) (PUT1-LST (QUOTE N_HOLD1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_HOLD1-OFF N_HOLD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_HOLD1 . N_HOLD1-OFF) (DISABLED-LEMMAS NIL N_HOLD1 N_HOLD1-OFF . T))))) (PUT1-LST (QUOTE *1*N_HOLD1) (QUOTE (MAIN-EVENT N_HOLD1))) (PUT1-LST (QUOTE N_HOLD1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_HOLD1 4)) TOTALP-LST ((N_HOLD1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_HOLD1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_HOLD1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_HOLD1-OFF N_HOLD1-OFF) EVENT (DEFN N_HOLD1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_HOLD1) (DCELL . *1*N_HOLD1))))) (PUT1-LST (QUOTE G*1*V_HOLD1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_HOLD1-OFF *1*V_HOLD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_HOLD1 . G*1*V_HOLD1-OFF) (DISABLED-LEMMAS NIL *1*V_HOLD1 G*1*V_HOLD1-OFF . T))))) (PUT1-LST (QUOTE V_HOLD1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_HOLD1-OFF V_HOLD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_HOLD1 . V_HOLD1-OFF) (DISABLED-LEMMAS NIL V_HOLD1 V_HOLD1-OFF . T))))) (PUT1-LST (QUOTE *1*V_HOLD1) (QUOTE (MAIN-EVENT V_HOLD1))) (PUT1-LST (QUOTE V_HOLD1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_HOLD1 16)) TOTALP-LST ((V_HOLD1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*V_HOLD1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_HOLD1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 CV_HOLD1$DESTRUCTURE CV_HOLD1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_HOLD1-OFF V_HOLD1-OFF) EVENT (DEFN V_HOLD1 NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_HOLD1))))) (PUT1-LST (QUOTE G*1*N_HOLD0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_HOLD0-OFF *1*N_HOLD0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_HOLD0 . G*1*N_HOLD0-OFF) (DISABLED-LEMMAS NIL *1*N_HOLD0 G*1*N_HOLD0-OFF . T))))) (PUT1-LST (QUOTE N_HOLD0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_HOLD0-OFF N_HOLD0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_HOLD0 . N_HOLD0-OFF) (DISABLED-LEMMAS NIL N_HOLD0 N_HOLD0-OFF . T))))) (PUT1-LST (QUOTE *1*N_HOLD0) (QUOTE (MAIN-EVENT N_HOLD0))) (PUT1-LST (QUOTE N_HOLD0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_HOLD0 4)) TOTALP-LST ((N_HOLD0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) LISP-CODE *1*N_HOLD0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_HOLD0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_HOLD0-OFF N_HOLD0-OFF) EVENT (DEFN N_HOLD0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_HOLD0) (DCELL . *1*N_HOLD0))))) (PUT1-LST (QUOTE G*1*V_HOLD0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_HOLD0-OFF *1*V_HOLD0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_HOLD0 . G*1*V_HOLD0-OFF) (DISABLED-LEMMAS NIL *1*V_HOLD0 G*1*V_HOLD0-OFF . T))))) (PUT1-LST (QUOTE V_HOLD0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_HOLD0-OFF V_HOLD0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_HOLD0 . V_HOLD0-OFF) (DISABLED-LEMMAS NIL V_HOLD0 V_HOLD0-OFF . T))))) (PUT1-LST (QUOTE *1*V_HOLD0) (QUOTE (MAIN-EVENT V_HOLD0))) (PUT1-LST (QUOTE V_HOLD0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_HOLD0 16)) TOTALP-LST ((V_HOLD0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LISP-CODE *1*V_HOLD0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_HOLD0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$FETCH1 CV_HOLD0$DESTRUCTURE CV_HOLD0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_HOLD0-OFF V_HOLD0-OFF) EVENT (DEFN V_HOLD0 NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_HOLD0))))) (PUT1-LST (QUOTE G*1*N_SEFB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_SEFB1-OFF *1*N_SEFB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFB1 . G*1*N_SEFB1-OFF) (DISABLED-LEMMAS NIL *1*N_SEFB1 G*1*N_SEFB1-OFF . T))))) (PUT1-LST (QUOTE N_SEFB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_SEFB1-OFF N_SEFB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFB1 . N_SEFB1-OFF) (DISABLED-LEMMAS NIL N_SEFB1 N_SEFB1-OFF . T))))) (PUT1-LST (QUOTE *1*N_SEFB1) (QUOTE (MAIN-EVENT N_SEFB1))) (PUT1-LST (QUOTE N_SEFB1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_SEFB1 4)) TOTALP-LST ((N_SEFB1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_SEFB1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_SEFB1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_SEFB1-OFF N_SEFB1-OFF) EVENT (DEFN N_SEFB1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_SEFB1) (DCELL . *1*N_SEFB1))))) (PUT1-LST (QUOTE G*1*V_SEFB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_SEFB1-OFF *1*V_SEFB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFB1 . G*1*V_SEFB1-OFF) (DISABLED-LEMMAS NIL *1*V_SEFB1 G*1*V_SEFB1-OFF . T))))) (PUT1-LST (QUOTE V_SEFB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_SEFB1-OFF V_SEFB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFB1 . V_SEFB1-OFF) (DISABLED-LEMMAS NIL V_SEFB1 V_SEFB1-OFF . T))))) (PUT1-LST (QUOTE *1*V_SEFB1) (QUOTE (MAIN-EVENT V_SEFB1))) (PUT1-LST (QUOTE V_SEFB1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_SEFB1 16)) TOTALP-LST ((V_SEFB1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*V_SEFB1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_SEFB1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$UPDATE CV_SEFB1$DESTRUCTURE CV_SEFB1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_SEFB1-OFF V_SEFB1-OFF) EVENT (DEFN V_SEFB1 NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_SEFB1))))) (PUT1-LST (QUOTE G*1*N_SEFB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_SEFB0-OFF *1*N_SEFB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFB0 . G*1*N_SEFB0-OFF) (DISABLED-LEMMAS NIL *1*N_SEFB0 G*1*N_SEFB0-OFF . T))))) (PUT1-LST (QUOTE N_SEFB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_SEFB0-OFF N_SEFB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFB0 . N_SEFB0-OFF) (DISABLED-LEMMAS NIL N_SEFB0 N_SEFB0-OFF . T))))) (PUT1-LST (QUOTE *1*N_SEFB0) (QUOTE (MAIN-EVENT N_SEFB0))) (PUT1-LST (QUOTE N_SEFB0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_SEFB0 4)) TOTALP-LST ((N_SEFB0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_SEFB0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_SEFB0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_SEFB0-OFF N_SEFB0-OFF) EVENT (DEFN N_SEFB0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_SEFB0) (DCELL . *1*N_SEFB0))))) (PUT1-LST (QUOTE G*1*V_SEFB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_SEFB0-OFF *1*V_SEFB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFB0 . G*1*V_SEFB0-OFF) (DISABLED-LEMMAS NIL *1*V_SEFB0 G*1*V_SEFB0-OFF . T))))) (PUT1-LST (QUOTE V_SEFB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_SEFB0-OFF V_SEFB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFB0 . V_SEFB0-OFF) (DISABLED-LEMMAS NIL V_SEFB0 V_SEFB0-OFF . T))))) (PUT1-LST (QUOTE *1*V_SEFB0) (QUOTE (MAIN-EVENT V_SEFB0))) (PUT1-LST (QUOTE V_SEFB0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_SEFB0 16)) TOTALP-LST ((V_SEFB0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*V_SEFB0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_SEFB0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$DECODE CV_SEFB0$DESTRUCTURE CV_SEFB0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_SEFB0-OFF V_SEFB0-OFF) EVENT (DEFN V_SEFB0 NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_SEFB0))))) (PUT1-LST (QUOTE G*1*N_SEFA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_SEFA1-OFF *1*N_SEFA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFA1 . G*1*N_SEFA1-OFF) (DISABLED-LEMMAS NIL *1*N_SEFA1 G*1*N_SEFA1-OFF . T))))) (PUT1-LST (QUOTE N_SEFA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_SEFA1-OFF N_SEFA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFA1 . N_SEFA1-OFF) (DISABLED-LEMMAS NIL N_SEFA1 N_SEFA1-OFF . T))))) (PUT1-LST (QUOTE *1*N_SEFA1) (QUOTE (MAIN-EVENT N_SEFA1))) (PUT1-LST (QUOTE N_SEFA1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_SEFA1 4)) TOTALP-LST ((N_SEFA1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_SEFA1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_SEFA1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_SEFA1-OFF N_SEFA1-OFF) EVENT (DEFN N_SEFA1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_SEFA1) (DCELL . *1*N_SEFA1))))) (PUT1-LST (QUOTE G*1*V_SEFA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_SEFA1-OFF *1*V_SEFA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFA1 . G*1*V_SEFA1-OFF) (DISABLED-LEMMAS NIL *1*V_SEFA1 G*1*V_SEFA1-OFF . T))))) (PUT1-LST (QUOTE V_SEFA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_SEFA1-OFF V_SEFA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFA1 . V_SEFA1-OFF) (DISABLED-LEMMAS NIL V_SEFA1 V_SEFA1-OFF . T))))) (PUT1-LST (QUOTE *1*V_SEFA1) (QUOTE (MAIN-EVENT V_SEFA1))) (PUT1-LST (QUOTE V_SEFA1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_SEFA1 16)) TOTALP-LST ((V_SEFA1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*V_SEFA1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_SEFA1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 CV_SEFA1$DESTRUCTURE CV_SEFA1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_SEFA1-OFF V_SEFA1-OFF) EVENT (DEFN V_SEFA1 NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_SEFA1))))) (PUT1-LST (QUOTE G*1*N_SEFA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_SEFA0-OFF *1*N_SEFA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFA0 . G*1*N_SEFA0-OFF) (DISABLED-LEMMAS NIL *1*N_SEFA0 G*1*N_SEFA0-OFF . T))))) (PUT1-LST (QUOTE N_SEFA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_SEFA0-OFF N_SEFA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_SEFA0 . N_SEFA0-OFF) (DISABLED-LEMMAS NIL N_SEFA0 N_SEFA0-OFF . T))))) (PUT1-LST (QUOTE *1*N_SEFA0) (QUOTE (MAIN-EVENT N_SEFA0))) (PUT1-LST (QUOTE N_SEFA0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_SEFA0 4)) TOTALP-LST ((N_SEFA0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_SEFA0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_SEFA0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_SEFA0-OFF N_SEFA0-OFF) EVENT (DEFN N_SEFA0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_SEFA0) (DCELL . *1*N_SEFA0))))) (PUT1-LST (QUOTE G*1*V_SEFA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_SEFA0-OFF *1*V_SEFA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFA0 . G*1*V_SEFA0-OFF) (DISABLED-LEMMAS NIL *1*V_SEFA0 G*1*V_SEFA0-OFF . T))))) (PUT1-LST (QUOTE V_SEFA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_SEFA0-OFF V_SEFA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_SEFA0 . V_SEFA0-OFF) (DISABLED-LEMMAS NIL V_SEFA0 V_SEFA0-OFF . T))))) (PUT1-LST (QUOTE *1*V_SEFA0) (QUOTE (MAIN-EVENT V_SEFA0))) (PUT1-LST (QUOTE V_SEFA0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_SEFA0 16)) TOTALP-LST ((V_SEFA0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LISP-CODE *1*V_SEFA0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_SEFA0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$DECODE CV_SEFA0$DESTRUCTURE CV_SEFA0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_SEFA0-OFF V_SEFA0-OFF) EVENT (DEFN V_SEFA0 NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_SEFA0))))) (PUT1-LST (QUOTE G*1*N_WRITE3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_WRITE3-OFF *1*N_WRITE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE3 . G*1*N_WRITE3-OFF) (DISABLED-LEMMAS NIL *1*N_WRITE3 G*1*N_WRITE3-OFF . T))))) (PUT1-LST (QUOTE N_WRITE3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_WRITE3-OFF N_WRITE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE3 . N_WRITE3-OFF) (DISABLED-LEMMAS NIL N_WRITE3 N_WRITE3-OFF . T))))) (PUT1-LST (QUOTE *1*N_WRITE3) (QUOTE (MAIN-EVENT N_WRITE3))) (PUT1-LST (QUOTE N_WRITE3) (QUOTE (TYPE-PRESCRIPTION-LST ((N_WRITE3 4)) TOTALP-LST ((N_WRITE3 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_WRITE3 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_WRITE3) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_WRITE3-OFF N_WRITE3-OFF) EVENT (DEFN N_WRITE3 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_WRITE3) (DCELL . *1*N_WRITE3))))) (PUT1-LST (QUOTE G*1*V_WRITE3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_WRITE3-OFF *1*V_WRITE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE3 . G*1*V_WRITE3-OFF) (DISABLED-LEMMAS NIL *1*V_WRITE3 G*1*V_WRITE3-OFF . T))))) (PUT1-LST (QUOTE V_WRITE3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_WRITE3-OFF V_WRITE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE3 . V_WRITE3-OFF) (DISABLED-LEMMAS NIL V_WRITE3 V_WRITE3-OFF . T))))) (PUT1-LST (QUOTE *1*V_WRITE3) (QUOTE (MAIN-EVENT V_WRITE3))) (PUT1-LST (QUOTE V_WRITE3) (QUOTE (TYPE-PRESCRIPTION-LST ((V_WRITE3 16)) TOTALP-LST ((V_WRITE3 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*V_WRITE3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_WRITE3) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 CV_WRITE3$DESTRUCTURE CV_WRITE3 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_WRITE3-OFF V_WRITE3-OFF) EVENT (DEFN V_WRITE3 NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_WRITE3))))) (PUT1-LST (QUOTE G*1*N_WRITE2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_WRITE2-OFF *1*N_WRITE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE2 . G*1*N_WRITE2-OFF) (DISABLED-LEMMAS NIL *1*N_WRITE2 G*1*N_WRITE2-OFF . T))))) (PUT1-LST (QUOTE N_WRITE2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_WRITE2-OFF N_WRITE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE2 . N_WRITE2-OFF) (DISABLED-LEMMAS NIL N_WRITE2 N_WRITE2-OFF . T))))) (PUT1-LST (QUOTE *1*N_WRITE2) (QUOTE (MAIN-EVENT N_WRITE2))) (PUT1-LST (QUOTE N_WRITE2) (QUOTE (TYPE-PRESCRIPTION-LST ((N_WRITE2 4)) TOTALP-LST ((N_WRITE2 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_WRITE2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_WRITE2) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_WRITE2-OFF N_WRITE2-OFF) EVENT (DEFN N_WRITE2 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_WRITE2) (DCELL . *1*N_WRITE2))))) (PUT1-LST (QUOTE G*1*V_WRITE2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_WRITE2-OFF *1*V_WRITE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE2 . G*1*V_WRITE2-OFF) (DISABLED-LEMMAS NIL *1*V_WRITE2 G*1*V_WRITE2-OFF . T))))) (PUT1-LST (QUOTE V_WRITE2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_WRITE2-OFF V_WRITE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE2 . V_WRITE2-OFF) (DISABLED-LEMMAS NIL V_WRITE2 V_WRITE2-OFF . T))))) (PUT1-LST (QUOTE *1*V_WRITE2) (QUOTE (MAIN-EVENT V_WRITE2))) (PUT1-LST (QUOTE V_WRITE2) (QUOTE (TYPE-PRESCRIPTION-LST ((V_WRITE2 16)) TOTALP-LST ((V_WRITE2 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*V_WRITE2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_WRITE2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 CV_WRITE2$DESTRUCTURE CV_WRITE2 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_WRITE2-OFF V_WRITE2-OFF) EVENT (DEFN V_WRITE2 NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_WRITE2))))) (PUT1-LST (QUOTE G*1*N_WRITE1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_WRITE1-OFF *1*N_WRITE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE1 . G*1*N_WRITE1-OFF) (DISABLED-LEMMAS NIL *1*N_WRITE1 G*1*N_WRITE1-OFF . T))))) (PUT1-LST (QUOTE N_WRITE1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_WRITE1-OFF N_WRITE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE1 . N_WRITE1-OFF) (DISABLED-LEMMAS NIL N_WRITE1 N_WRITE1-OFF . T))))) (PUT1-LST (QUOTE *1*N_WRITE1) (QUOTE (MAIN-EVENT N_WRITE1))) (PUT1-LST (QUOTE N_WRITE1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_WRITE1 4)) TOTALP-LST ((N_WRITE1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_WRITE1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_WRITE1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_WRITE1-OFF N_WRITE1-OFF) EVENT (DEFN N_WRITE1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_WRITE1) (DCELL . *1*N_WRITE1))))) (PUT1-LST (QUOTE G*1*V_WRITE1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_WRITE1-OFF *1*V_WRITE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE1 . G*1*V_WRITE1-OFF) (DISABLED-LEMMAS NIL *1*V_WRITE1 G*1*V_WRITE1-OFF . T))))) (PUT1-LST (QUOTE V_WRITE1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_WRITE1-OFF V_WRITE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE1 . V_WRITE1-OFF) (DISABLED-LEMMAS NIL V_WRITE1 V_WRITE1-OFF . T))))) (PUT1-LST (QUOTE *1*V_WRITE1) (QUOTE (MAIN-EVENT V_WRITE1))) (PUT1-LST (QUOTE V_WRITE1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_WRITE1 16)) TOTALP-LST ((V_WRITE1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*V_WRITE1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_WRITE1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 CV_WRITE1$DESTRUCTURE CV_WRITE1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_WRITE1-OFF V_WRITE1-OFF) EVENT (DEFN V_WRITE1 NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_WRITE1))))) (PUT1-LST (QUOTE G*1*N_WRITE0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_WRITE0-OFF *1*N_WRITE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE0 . G*1*N_WRITE0-OFF) (DISABLED-LEMMAS NIL *1*N_WRITE0 G*1*N_WRITE0-OFF . T))))) (PUT1-LST (QUOTE N_WRITE0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_WRITE0-OFF N_WRITE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_WRITE0 . N_WRITE0-OFF) (DISABLED-LEMMAS NIL N_WRITE0 N_WRITE0-OFF . T))))) (PUT1-LST (QUOTE *1*N_WRITE0) (QUOTE (MAIN-EVENT N_WRITE0))) (PUT1-LST (QUOTE N_WRITE0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_WRITE0 4)) TOTALP-LST ((N_WRITE0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) LISP-CODE *1*N_WRITE0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_WRITE0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_WRITE0-OFF N_WRITE0-OFF) EVENT (DEFN N_WRITE0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_WRITE0) (DCELL . *1*N_WRITE0))))) (PUT1-LST (QUOTE G*1*V_WRITE0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_WRITE0-OFF *1*V_WRITE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE0 . G*1*V_WRITE0-OFF) (DISABLED-LEMMAS NIL *1*V_WRITE0 G*1*V_WRITE0-OFF . T))))) (PUT1-LST (QUOTE V_WRITE0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_WRITE0-OFF V_WRITE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_WRITE0 . V_WRITE0-OFF) (DISABLED-LEMMAS NIL V_WRITE0 V_WRITE0-OFF . T))))) (PUT1-LST (QUOTE *1*V_WRITE0) (QUOTE (MAIN-EVENT V_WRITE0))) (PUT1-LST (QUOTE V_WRITE0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_WRITE0 16)) TOTALP-LST ((V_WRITE0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LISP-CODE *1*V_WRITE0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_WRITE0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGA CV_WRITE0$DESTRUCTURE CV_WRITE0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_WRITE0-OFF V_WRITE0-OFF) EVENT (DEFN V_WRITE0 NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_WRITE0))))) (PUT1-LST (QUOTE G*1*N_READB3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READB3-OFF *1*N_READB3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB3 . G*1*N_READB3-OFF) (DISABLED-LEMMAS NIL *1*N_READB3 G*1*N_READB3-OFF . T))))) (PUT1-LST (QUOTE N_READB3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READB3-OFF N_READB3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB3 . N_READB3-OFF) (DISABLED-LEMMAS NIL N_READB3 N_READB3-OFF . T))))) (PUT1-LST (QUOTE *1*N_READB3) (QUOTE (MAIN-EVENT N_READB3))) (PUT1-LST (QUOTE N_READB3) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READB3 4)) TOTALP-LST ((N_READB3 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READB3 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READB3) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READB3-OFF N_READB3-OFF) EVENT (DEFN N_READB3 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READB3) (DCELL . *1*N_READB3))))) (PUT1-LST (QUOTE G*1*V_READB3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READB3-OFF *1*V_READB3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB3 . G*1*V_READB3-OFF) (DISABLED-LEMMAS NIL *1*V_READB3 G*1*V_READB3-OFF . T))))) (PUT1-LST (QUOTE V_READB3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READB3-OFF V_READB3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB3 . V_READB3-OFF) (DISABLED-LEMMAS NIL V_READB3 V_READB3-OFF . T))))) (PUT1-LST (QUOTE *1*V_READB3) (QUOTE (MAIN-EVENT V_READB3))) (PUT1-LST (QUOTE V_READB3) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READB3 16)) TOTALP-LST ((V_READB3 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READB3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READB3) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 CV_READB3$DESTRUCTURE CV_READB3 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READB3-OFF V_READB3-OFF) EVENT (DEFN V_READB3 NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READB3))))) (PUT1-LST (QUOTE G*1*N_READB2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READB2-OFF *1*N_READB2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB2 . G*1*N_READB2-OFF) (DISABLED-LEMMAS NIL *1*N_READB2 G*1*N_READB2-OFF . T))))) (PUT1-LST (QUOTE N_READB2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READB2-OFF N_READB2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB2 . N_READB2-OFF) (DISABLED-LEMMAS NIL N_READB2 N_READB2-OFF . T))))) (PUT1-LST (QUOTE *1*N_READB2) (QUOTE (MAIN-EVENT N_READB2))) (PUT1-LST (QUOTE N_READB2) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READB2 4)) TOTALP-LST ((N_READB2 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READB2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READB2) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READB2-OFF N_READB2-OFF) EVENT (DEFN N_READB2 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READB2) (DCELL . *1*N_READB2))))) (PUT1-LST (QUOTE G*1*V_READB2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READB2-OFF *1*V_READB2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB2 . G*1*V_READB2-OFF) (DISABLED-LEMMAS NIL *1*V_READB2 G*1*V_READB2-OFF . T))))) (PUT1-LST (QUOTE V_READB2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READB2-OFF V_READB2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB2 . V_READB2-OFF) (DISABLED-LEMMAS NIL V_READB2 V_READB2-OFF . T))))) (PUT1-LST (QUOTE *1*V_READB2) (QUOTE (MAIN-EVENT V_READB2))) (PUT1-LST (QUOTE V_READB2) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READB2 16)) TOTALP-LST ((V_READB2 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READB2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READB2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 CV_READB2$DESTRUCTURE CV_READB2 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READB2-OFF V_READB2-OFF) EVENT (DEFN V_READB2 NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READB2))))) (PUT1-LST (QUOTE G*1*N_READB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READB1-OFF *1*N_READB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB1 . G*1*N_READB1-OFF) (DISABLED-LEMMAS NIL *1*N_READB1 G*1*N_READB1-OFF . T))))) (PUT1-LST (QUOTE N_READB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READB1-OFF N_READB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB1 . N_READB1-OFF) (DISABLED-LEMMAS NIL N_READB1 N_READB1-OFF . T))))) (PUT1-LST (QUOTE *1*N_READB1) (QUOTE (MAIN-EVENT N_READB1))) (PUT1-LST (QUOTE N_READB1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READB1 4)) TOTALP-LST ((N_READB1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READB1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READB1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READB1-OFF N_READB1-OFF) EVENT (DEFN N_READB1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READB1) (DCELL . *1*N_READB1))))) (PUT1-LST (QUOTE G*1*V_READB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READB1-OFF *1*V_READB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB1 . G*1*V_READB1-OFF) (DISABLED-LEMMAS NIL *1*V_READB1 G*1*V_READB1-OFF . T))))) (PUT1-LST (QUOTE V_READB1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READB1-OFF V_READB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB1 . V_READB1-OFF) (DISABLED-LEMMAS NIL V_READB1 V_READB1-OFF . T))))) (PUT1-LST (QUOTE *1*V_READB1) (QUOTE (MAIN-EVENT V_READB1))) (PUT1-LST (QUOTE V_READB1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READB1 16)) TOTALP-LST ((V_READB1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READB1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READB1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 CV_READB1$DESTRUCTURE CV_READB1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READB1-OFF V_READB1-OFF) EVENT (DEFN V_READB1 NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READB1))))) (PUT1-LST (QUOTE G*1*N_READB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READB0-OFF *1*N_READB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB0 . G*1*N_READB0-OFF) (DISABLED-LEMMAS NIL *1*N_READB0 G*1*N_READB0-OFF . T))))) (PUT1-LST (QUOTE N_READB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READB0-OFF N_READB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READB0 . N_READB0-OFF) (DISABLED-LEMMAS NIL N_READB0 N_READB0-OFF . T))))) (PUT1-LST (QUOTE *1*N_READB0) (QUOTE (MAIN-EVENT N_READB0))) (PUT1-LST (QUOTE N_READB0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READB0 4)) TOTALP-LST ((N_READB0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READB0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READB0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READB0-OFF N_READB0-OFF) EVENT (DEFN N_READB0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READB0) (DCELL . *1*N_READB0))))) (PUT1-LST (QUOTE G*1*V_READB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READB0-OFF *1*V_READB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB0 . G*1*V_READB0-OFF) (DISABLED-LEMMAS NIL *1*V_READB0 G*1*V_READB0-OFF . T))))) (PUT1-LST (QUOTE V_READB0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READB0-OFF V_READB0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READB0 . V_READB0-OFF) (DISABLED-LEMMAS NIL V_READB0 V_READB0-OFF . T))))) (PUT1-LST (QUOTE *1*V_READB0) (QUOTE (MAIN-EVENT V_READB0))) (PUT1-LST (QUOTE V_READB0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READB0 16)) TOTALP-LST ((V_READB0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READB0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READB0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$DECODE CV_READB0$DESTRUCTURE CV_READB0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READB0-OFF V_READB0-OFF) EVENT (DEFN V_READB0 NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READB0))))) (PUT1-LST (QUOTE G*1*N_READA3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READA3-OFF *1*N_READA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA3 . G*1*N_READA3-OFF) (DISABLED-LEMMAS NIL *1*N_READA3 G*1*N_READA3-OFF . T))))) (PUT1-LST (QUOTE N_READA3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READA3-OFF N_READA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA3 . N_READA3-OFF) (DISABLED-LEMMAS NIL N_READA3 N_READA3-OFF . T))))) (PUT1-LST (QUOTE *1*N_READA3) (QUOTE (MAIN-EVENT N_READA3))) (PUT1-LST (QUOTE N_READA3) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READA3 4)) TOTALP-LST ((N_READA3 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READA3 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READA3) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READA3-OFF N_READA3-OFF) EVENT (DEFN N_READA3 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READA3) (DCELL . *1*N_READA3))))) (PUT1-LST (QUOTE G*1*V_READA3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READA3-OFF *1*V_READA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA3 . G*1*V_READA3-OFF) (DISABLED-LEMMAS NIL *1*V_READA3 G*1*V_READA3-OFF . T))))) (PUT1-LST (QUOTE V_READA3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READA3-OFF V_READA3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA3 . V_READA3-OFF) (DISABLED-LEMMAS NIL V_READA3 V_READA3-OFF . T))))) (PUT1-LST (QUOTE *1*V_READA3) (QUOTE (MAIN-EVENT V_READA3))) (PUT1-LST (QUOTE V_READA3) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READA3 16)) TOTALP-LST ((V_READA3 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READA3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READA3) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 CV_READA3$DESTRUCTURE CV_READA3 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READA3-OFF V_READA3-OFF) EVENT (DEFN V_READA3 NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READA3))))) (PUT1-LST (QUOTE G*1*N_READA2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READA2-OFF *1*N_READA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA2 . G*1*N_READA2-OFF) (DISABLED-LEMMAS NIL *1*N_READA2 G*1*N_READA2-OFF . T))))) (PUT1-LST (QUOTE N_READA2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READA2-OFF N_READA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA2 . N_READA2-OFF) (DISABLED-LEMMAS NIL N_READA2 N_READA2-OFF . T))))) (PUT1-LST (QUOTE *1*N_READA2) (QUOTE (MAIN-EVENT N_READA2))) (PUT1-LST (QUOTE N_READA2) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READA2 4)) TOTALP-LST ((N_READA2 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READA2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READA2) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READA2-OFF N_READA2-OFF) EVENT (DEFN N_READA2 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READA2) (DCELL . *1*N_READA2))))) (PUT1-LST (QUOTE G*1*V_READA2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READA2-OFF *1*V_READA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA2 . G*1*V_READA2-OFF) (DISABLED-LEMMAS NIL *1*V_READA2 G*1*V_READA2-OFF . T))))) (PUT1-LST (QUOTE V_READA2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READA2-OFF V_READA2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA2 . V_READA2-OFF) (DISABLED-LEMMAS NIL V_READA2 V_READA2-OFF . T))))) (PUT1-LST (QUOTE *1*V_READA2) (QUOTE (MAIN-EVENT V_READA2))) (PUT1-LST (QUOTE V_READA2) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READA2 16)) TOTALP-LST ((V_READA2 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READA2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READA2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 CV_READA2$DESTRUCTURE CV_READA2 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READA2-OFF V_READA2-OFF) EVENT (DEFN V_READA2 NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READA2))))) (PUT1-LST (QUOTE G*1*N_READA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READA1-OFF *1*N_READA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA1 . G*1*N_READA1-OFF) (DISABLED-LEMMAS NIL *1*N_READA1 G*1*N_READA1-OFF . T))))) (PUT1-LST (QUOTE N_READA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READA1-OFF N_READA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA1 . N_READA1-OFF) (DISABLED-LEMMAS NIL N_READA1 N_READA1-OFF . T))))) (PUT1-LST (QUOTE *1*N_READA1) (QUOTE (MAIN-EVENT N_READA1))) (PUT1-LST (QUOTE N_READA1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READA1 4)) TOTALP-LST ((N_READA1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READA1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READA1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READA1-OFF N_READA1-OFF) EVENT (DEFN N_READA1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READA1) (DCELL . *1*N_READA1))))) (PUT1-LST (QUOTE G*1*V_READA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READA1-OFF *1*V_READA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA1 . G*1*V_READA1-OFF) (DISABLED-LEMMAS NIL *1*V_READA1 G*1*V_READA1-OFF . T))))) (PUT1-LST (QUOTE V_READA1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READA1-OFF V_READA1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA1 . V_READA1-OFF) (DISABLED-LEMMAS NIL V_READA1 V_READA1-OFF . T))))) (PUT1-LST (QUOTE *1*V_READA1) (QUOTE (MAIN-EVENT V_READA1))) (PUT1-LST (QUOTE V_READA1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READA1 16)) TOTALP-LST ((V_READA1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READA1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READA1) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 CV_READA1$DESTRUCTURE CV_READA1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READA1-OFF V_READA1-OFF) EVENT (DEFN V_READA1 NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READA1))))) (PUT1-LST (QUOTE G*1*N_READA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_READA0-OFF *1*N_READA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA0 . G*1*N_READA0-OFF) (DISABLED-LEMMAS NIL *1*N_READA0 G*1*N_READA0-OFF . T))))) (PUT1-LST (QUOTE N_READA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_READA0-OFF N_READA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_READA0 . N_READA0-OFF) (DISABLED-LEMMAS NIL N_READA0 N_READA0-OFF . T))))) (PUT1-LST (QUOTE *1*N_READA0) (QUOTE (MAIN-EVENT N_READA0))) (PUT1-LST (QUOTE N_READA0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_READA0 4)) TOTALP-LST ((N_READA0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) LISP-CODE *1*N_READA0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_READA0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_READA0-OFF N_READA0-OFF) EVENT (DEFN N_READA0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_READA0) (DCELL . *1*N_READA0))))) (PUT1-LST (QUOTE G*1*V_READA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_READA0-OFF *1*V_READA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA0 . G*1*V_READA0-OFF) (DISABLED-LEMMAS NIL *1*V_READA0 G*1*V_READA0-OFF . T))))) (PUT1-LST (QUOTE V_READA0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_READA0-OFF V_READA0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_READA0 . V_READA0-OFF) (DISABLED-LEMMAS NIL V_READA0 V_READA0-OFF . T))))) (PUT1-LST (QUOTE *1*V_READA0) (QUOTE (MAIN-EVENT V_READA0))) (PUT1-LST (QUOTE V_READA0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_READA0 16)) TOTALP-LST ((V_READA0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*V_READA0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_READA0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$DECODE CV_READA0$DESTRUCTURE CV_READA0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_READA0-OFF V_READA0-OFF) EVENT (DEFN V_READA0 NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_READA0))))) (PUT1-LST (QUOTE G*1*N_UPDATE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_UPDATE-OFF *1*N_UPDATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_UPDATE . G*1*N_UPDATE-OFF) (DISABLED-LEMMAS NIL *1*N_UPDATE G*1*N_UPDATE-OFF . T))))) (PUT1-LST (QUOTE N_UPDATE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_UPDATE-OFF N_UPDATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_UPDATE . N_UPDATE-OFF) (DISABLED-LEMMAS NIL N_UPDATE N_UPDATE-OFF . T))))) (PUT1-LST (QUOTE *1*N_UPDATE) (QUOTE (MAIN-EVENT N_UPDATE))) (PUT1-LST (QUOTE N_UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((N_UPDATE 4)) TOTALP-LST ((N_UPDATE . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_UPDATE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_UPDATE) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_UPDATE-OFF N_UPDATE-OFF) EVENT (DEFN N_UPDATE NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_UPDATE) (DCELL . *1*N_UPDATE))))) (PUT1-LST (QUOTE G*1*V_UPDATE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_UPDATE-OFF *1*V_UPDATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_UPDATE . G*1*V_UPDATE-OFF) (DISABLED-LEMMAS NIL *1*V_UPDATE G*1*V_UPDATE-OFF . T))))) (PUT1-LST (QUOTE V_UPDATE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_UPDATE-OFF V_UPDATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_UPDATE . V_UPDATE-OFF) (DISABLED-LEMMAS NIL V_UPDATE V_UPDATE-OFF . T))))) (PUT1-LST (QUOTE *1*V_UPDATE) (QUOTE (MAIN-EVENT V_UPDATE))) (PUT1-LST (QUOTE V_UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((V_UPDATE 16)) TOTALP-LST ((V_UPDATE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*V_UPDATE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_UPDATE) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA CV_UPDATE$DESTRUCTURE CV_UPDATE BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_UPDATE-OFF V_UPDATE-OFF) EVENT (DEFN V_UPDATE NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_UPDATE))))) (PUT1-LST (QUOTE G*1*N_REGB-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_REGB-OFF *1*N_REGB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_REGB . G*1*N_REGB-OFF) (DISABLED-LEMMAS NIL *1*N_REGB G*1*N_REGB-OFF . T))))) (PUT1-LST (QUOTE N_REGB-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_REGB-OFF N_REGB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_REGB . N_REGB-OFF) (DISABLED-LEMMAS NIL N_REGB N_REGB-OFF . T))))) (PUT1-LST (QUOTE *1*N_REGB) (QUOTE (MAIN-EVENT N_REGB))) (PUT1-LST (QUOTE N_REGB) (QUOTE (TYPE-PRESCRIPTION-LST ((N_REGB 4)) TOTALP-LST ((N_REGB . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_REGB SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_REGB) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_REGB-OFF N_REGB-OFF) EVENT (DEFN N_REGB NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_REGB) (DCELL . *1*N_REGB))))) (PUT1-LST (QUOTE G*1*V_REGB-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_REGB-OFF *1*V_REGB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_REGB . G*1*V_REGB-OFF) (DISABLED-LEMMAS NIL *1*V_REGB G*1*V_REGB-OFF . T))))) (PUT1-LST (QUOTE V_REGB-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_REGB-OFF V_REGB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_REGB . V_REGB-OFF) (DISABLED-LEMMAS NIL V_REGB V_REGB-OFF . T))))) (PUT1-LST (QUOTE *1*V_REGB) (QUOTE (MAIN-EVENT V_REGB))) (PUT1-LST (QUOTE V_REGB) (QUOTE (TYPE-PRESCRIPTION-LST ((V_REGB 16)) TOTALP-LST ((V_REGB . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*V_REGB SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_REGB) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA CV_REGB$DESTRUCTURE CV_REGB BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_REGB-OFF V_REGB-OFF) EVENT (DEFN V_REGB NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_REGB))))) (PUT1-LST (QUOTE G*1*N_REGA-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_REGA-OFF *1*N_REGA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_REGA . G*1*N_REGA-OFF) (DISABLED-LEMMAS NIL *1*N_REGA G*1*N_REGA-OFF . T))))) (PUT1-LST (QUOTE N_REGA-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_REGA-OFF N_REGA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_REGA . N_REGA-OFF) (DISABLED-LEMMAS NIL N_REGA N_REGA-OFF . T))))) (PUT1-LST (QUOTE *1*N_REGA) (QUOTE (MAIN-EVENT N_REGA))) (PUT1-LST (QUOTE N_REGA) (QUOTE (TYPE-PRESCRIPTION-LST ((N_REGA 4)) TOTALP-LST ((N_REGA . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_REGA SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_REGA) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_REGA-OFF N_REGA-OFF) EVENT (DEFN N_REGA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_REGA) (DCELL . *1*N_REGA))))) (PUT1-LST (QUOTE G*1*V_REGA-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_REGA-OFF *1*V_REGA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_REGA . G*1*V_REGA-OFF) (DISABLED-LEMMAS NIL *1*V_REGA G*1*V_REGA-OFF . T))))) (PUT1-LST (QUOTE V_REGA-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_REGA-OFF V_REGA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_REGA . V_REGA-OFF) (DISABLED-LEMMAS NIL V_REGA V_REGA-OFF . T))))) (PUT1-LST (QUOTE *1*V_REGA) (QUOTE (MAIN-EVENT V_REGA))) (PUT1-LST (QUOTE V_REGA) (QUOTE (TYPE-PRESCRIPTION-LST ((V_REGA 16)) TOTALP-LST ((V_REGA . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*V_REGA SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_REGA) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE CV_REGA$DESTRUCTURE CV_REGA BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_REGA-OFF V_REGA-OFF) EVENT (DEFN V_REGA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_REGA))))) (PUT1-LST (QUOTE G*1*N_DECODE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_DECODE-OFF *1*N_DECODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_DECODE . G*1*N_DECODE-OFF) (DISABLED-LEMMAS NIL *1*N_DECODE G*1*N_DECODE-OFF . T))))) (PUT1-LST (QUOTE N_DECODE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_DECODE-OFF N_DECODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_DECODE . N_DECODE-OFF) (DISABLED-LEMMAS NIL N_DECODE N_DECODE-OFF . T))))) (PUT1-LST (QUOTE *1*N_DECODE) (QUOTE (MAIN-EVENT N_DECODE))) (PUT1-LST (QUOTE N_DECODE) (QUOTE (TYPE-PRESCRIPTION-LST ((N_DECODE 4)) TOTALP-LST ((N_DECODE . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_DECODE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_DECODE) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_DECODE-OFF N_DECODE-OFF) EVENT (DEFN N_DECODE NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_DECODE) (DCELL . *1*N_DECODE))))) (PUT1-LST (QUOTE G*1*V_DECODE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_DECODE-OFF *1*V_DECODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_DECODE . G*1*V_DECODE-OFF) (DISABLED-LEMMAS NIL *1*V_DECODE G*1*V_DECODE-OFF . T))))) (PUT1-LST (QUOTE V_DECODE-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_DECODE-OFF V_DECODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_DECODE . V_DECODE-OFF) (DISABLED-LEMMAS NIL V_DECODE V_DECODE-OFF . T))))) (PUT1-LST (QUOTE *1*V_DECODE) (QUOTE (MAIN-EVENT V_DECODE))) (PUT1-LST (QUOTE V_DECODE) (QUOTE (TYPE-PRESCRIPTION-LST ((V_DECODE 16)) TOTALP-LST ((V_DECODE . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LISP-CODE *1*V_DECODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_DECODE) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 CV_DECODE$DESTRUCTURE CV_DECODE BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_DECODE-OFF V_DECODE-OFF) EVENT (DEFN V_DECODE NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_DECODE))))) (PUT1-LST (QUOTE G*1*N_FETCH3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_FETCH3-OFF *1*N_FETCH3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH3 . G*1*N_FETCH3-OFF) (DISABLED-LEMMAS NIL *1*N_FETCH3 G*1*N_FETCH3-OFF . T))))) (PUT1-LST (QUOTE N_FETCH3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_FETCH3-OFF N_FETCH3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH3 . N_FETCH3-OFF) (DISABLED-LEMMAS NIL N_FETCH3 N_FETCH3-OFF . T))))) (PUT1-LST (QUOTE *1*N_FETCH3) (QUOTE (MAIN-EVENT N_FETCH3))) (PUT1-LST (QUOTE N_FETCH3) (QUOTE (TYPE-PRESCRIPTION-LST ((N_FETCH3 4)) TOTALP-LST ((N_FETCH3 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_FETCH3 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_FETCH3) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_FETCH3-OFF N_FETCH3-OFF) EVENT (DEFN N_FETCH3 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_FETCH3) (DCELL . *1*N_FETCH3))))) (PUT1-LST (QUOTE G*1*V_FETCH3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_FETCH3-OFF *1*V_FETCH3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH3 . G*1*V_FETCH3-OFF) (DISABLED-LEMMAS NIL *1*V_FETCH3 G*1*V_FETCH3-OFF . T))))) (PUT1-LST (QUOTE V_FETCH3-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_FETCH3-OFF V_FETCH3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH3 . V_FETCH3-OFF) (DISABLED-LEMMAS NIL V_FETCH3 V_FETCH3-OFF . T))))) (PUT1-LST (QUOTE *1*V_FETCH3) (QUOTE (MAIN-EVENT V_FETCH3))) (PUT1-LST (QUOTE V_FETCH3) (QUOTE (TYPE-PRESCRIPTION-LST ((V_FETCH3 16)) TOTALP-LST ((V_FETCH3 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*V_FETCH3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_FETCH3) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 CV_FETCH3$DESTRUCTURE CV_FETCH3 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_FETCH3-OFF V_FETCH3-OFF) EVENT (DEFN V_FETCH3 NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_FETCH3))))) (PUT1-LST (QUOTE G*1*N_FETCH2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_FETCH2-OFF *1*N_FETCH2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH2 . G*1*N_FETCH2-OFF) (DISABLED-LEMMAS NIL *1*N_FETCH2 G*1*N_FETCH2-OFF . T))))) (PUT1-LST (QUOTE N_FETCH2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_FETCH2-OFF N_FETCH2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH2 . N_FETCH2-OFF) (DISABLED-LEMMAS NIL N_FETCH2 N_FETCH2-OFF . T))))) (PUT1-LST (QUOTE *1*N_FETCH2) (QUOTE (MAIN-EVENT N_FETCH2))) (PUT1-LST (QUOTE N_FETCH2) (QUOTE (TYPE-PRESCRIPTION-LST ((N_FETCH2 4)) TOTALP-LST ((N_FETCH2 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_FETCH2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_FETCH2) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_FETCH2-OFF N_FETCH2-OFF) EVENT (DEFN N_FETCH2 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_FETCH2) (DCELL . *1*N_FETCH2))))) (PUT1-LST (QUOTE G*1*V_FETCH2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_FETCH2-OFF *1*V_FETCH2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH2 . G*1*V_FETCH2-OFF) (DISABLED-LEMMAS NIL *1*V_FETCH2 G*1*V_FETCH2-OFF . T))))) (PUT1-LST (QUOTE V_FETCH2-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_FETCH2-OFF V_FETCH2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH2 . V_FETCH2-OFF) (DISABLED-LEMMAS NIL V_FETCH2 V_FETCH2-OFF . T))))) (PUT1-LST (QUOTE *1*V_FETCH2) (QUOTE (MAIN-EVENT V_FETCH2))) (PUT1-LST (QUOTE V_FETCH2) (QUOTE (TYPE-PRESCRIPTION-LST ((V_FETCH2 16)) TOTALP-LST ((V_FETCH2 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*V_FETCH2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_FETCH2) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 CV_FETCH2$DESTRUCTURE CV_FETCH2 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_FETCH2-OFF V_FETCH2-OFF) EVENT (DEFN V_FETCH2 NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_FETCH2))))) (PUT1-LST (QUOTE G*1*N_FETCH1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_FETCH1-OFF *1*N_FETCH1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH1 . G*1*N_FETCH1-OFF) (DISABLED-LEMMAS NIL *1*N_FETCH1 G*1*N_FETCH1-OFF . T))))) (PUT1-LST (QUOTE N_FETCH1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_FETCH1-OFF N_FETCH1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH1 . N_FETCH1-OFF) (DISABLED-LEMMAS NIL N_FETCH1 N_FETCH1-OFF . T))))) (PUT1-LST (QUOTE *1*N_FETCH1) (QUOTE (MAIN-EVENT N_FETCH1))) (PUT1-LST (QUOTE N_FETCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((N_FETCH1 4)) TOTALP-LST ((N_FETCH1 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_FETCH1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_FETCH1) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_FETCH1-OFF N_FETCH1-OFF) EVENT (DEFN N_FETCH1 NIL (V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_FETCH1) (DCELL . *1*N_FETCH1))))) (PUT1-LST (QUOTE G*1*V_FETCH1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_FETCH1-OFF *1*V_FETCH1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH1 . G*1*V_FETCH1-OFF) (DISABLED-LEMMAS NIL *1*V_FETCH1 G*1*V_FETCH1-OFF . T))))) (PUT1-LST (QUOTE V_FETCH1-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_FETCH1-OFF V_FETCH1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH1 . V_FETCH1-OFF) (DISABLED-LEMMAS NIL V_FETCH1 V_FETCH1-OFF . T))))) (PUT1-LST (QUOTE *1*V_FETCH1) (QUOTE (MAIN-EVENT V_FETCH1))) (PUT1-LST (QUOTE V_FETCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((V_FETCH1 16)) TOTALP-LST ((V_FETCH1 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*V_FETCH1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_FETCH1) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 PROPERP-LENGTH-CV_FETCH1 CV_FETCH1$DESTRUCTURE CV_FETCH1 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_FETCH1-OFF V_FETCH1-OFF) EVENT (DEFN V_FETCH1 NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_FETCH1))))) (PUT1-LST (QUOTE G*1*N_FETCH0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*N_FETCH0-OFF *1*N_FETCH0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH0 . G*1*N_FETCH0-OFF) (DISABLED-LEMMAS NIL *1*N_FETCH0 G*1*N_FETCH0-OFF . T))))) (PUT1-LST (QUOTE N_FETCH0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE N_FETCH0-OFF N_FETCH0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N_FETCH0 . N_FETCH0-OFF) (DISABLED-LEMMAS NIL N_FETCH0 N_FETCH0-OFF . T))))) (PUT1-LST (QUOTE *1*N_FETCH0) (QUOTE (MAIN-EVENT N_FETCH0))) (PUT1-LST (QUOTE N_FETCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((N_FETCH0 4)) TOTALP-LST ((N_FETCH0 . T)) SDEFN (LAMBDA NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) LISP-CODE *1*N_FETCH0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194104 SATELLITES (*1*N_FETCH0) IMMEDIATE-DEPENDENTS0 (NATURAL-STATE-THEORY G*1*N_FETCH0-OFF N_FETCH0-OFF) EVENT (DEFN N_FETCH0 NIL (V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . N_FETCH0) (DCELL . *1*N_FETCH0))))) (PUT1-LST (QUOTE G*1*V_FETCH0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE G*1*V_FETCH0-OFF *1*V_FETCH0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH0 . G*1*V_FETCH0-OFF) (DISABLED-LEMMAS NIL *1*V_FETCH0 G*1*V_FETCH0-OFF . T))))) (PUT1-LST (QUOTE V_FETCH0-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE V_FETCH0-OFF V_FETCH0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V_FETCH0 . V_FETCH0-OFF) (DISABLED-LEMMAS NIL V_FETCH0 V_FETCH0-OFF . T))))) (PUT1-LST (QUOTE *1*V_FETCH0) (QUOTE (MAIN-EVENT V_FETCH0))) (PUT1-LST (QUOTE V_FETCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((V_FETCH0 16)) TOTALP-LST ((V_FETCH0 . T)) SDEFN (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*V_FETCH0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194104 SATELLITES (*1*V_FETCH0) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH0 CV_FETCH0$DESTRUCTURE CV_FETCH0 BVP-LENGTH-STATE-VECTORS VECTOR-STATE-THEORY G*1*V_FETCH0-OFF V_FETCH0-OFF) EVENT (DEFN V_FETCH0 NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*V_FETCH0))))) (PUT1-LST (QUOTE *1*CV-HYPS) (QUOTE (MAIN-EVENT CV-HYPS))) (PUT1-LST (QUOTE CV-HYPS) (QUOTE (TYPE-PRESCRIPTION-LST ((CV-HYPS 3 NIL NIL NIL NIL NIL)) TOTALP-LST ((CV-HYPS . T)) SDEFN (LAMBDA (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (IF (BOOLP RW-) (IF (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (IF (BVP REGS-ADDRESS) (IF (EQUAL (LENGTH I-REG) (QUOTE 32)) (IF (BVP I-REG) (IF (FLAGS-HYPS FLAGS) (IF (EQUAL (LENGTH PC-REG) (QUOTE 4)) (BVP PC-REG) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CV-HYPS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194104 SATELLITES (*1*CV-HYPS) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 PROPERP-LENGTH-CV_FETCH1 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (DEFN CV-HYPS (RW- REGS-ADDRESS I-REG FLAGS PC-REG) (AND (BOOLP RW-) (AND (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (AND (BVP REGS-ADDRESS) (AND (EQUAL (LENGTH I-REG) (QUOTE 32)) (AND (BVP I-REG) (AND (FLAGS-HYPS FLAGS) (AND (EQUAL (LENGTH PC-REG) (QUOTE 4)) (BVP PC-REG))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . CV-HYPS) (IMMEDIATE-DEPENDENTS0 BVP . CV-HYPS) (IMMEDIATE-DEPENDENTS0 LENGTH . CV-HYPS) (IMMEDIATE-DEPENDENTS0 BOOLP . CV-HYPS) (DCELL . *1*CV-HYPS))))) (PUT1-LST (QUOTE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF) (QUOTE (IDATE 1000402194104 EVENT (TOGGLE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF) (DISABLED-LEMMAS NIL B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF . T))))) (PUT1-LST (QUOTE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (QUOTE (IDATE 1000402194104 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS-OFF) EVENT (PROVE-LEMMA B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS (REWRITE) (IMPLIES (AND (B-AND4& NETLIST) (AND (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) REGS-ADDRESS STATE NETLIST) (CONS (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (QUOTE NIL)))) ((ENABLE B-AND4& B-AND4$VALUE EQUAL-LENGTH-ADD1 F$ALL-T-REGS-ADDRESS PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 B-AND4 . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 BOOLP . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F-BUF . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 B-AND4$VALUE . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F-AND4 . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F-AND . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 F$ALL-T-REGS-ADDRESS . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 LENGTH . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 PROPERP . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (IMMEDIATE-DEPENDENTS0 B-AND4& . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS) (LEMMAS DUAL-EVAL . B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS))))) (PUT1-LST (QUOTE F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (QUOTE (IDATE 1000402194103 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS (REWRITE) (IMPLIES (AND (BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (EQUAL REGS-ADDRESS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))) ((ENABLE F$ALL-T-REGS-ADDRESS EQUAL-LENGTH-ADD1 BOOLP-B-GATES OPEN-MAKE-LIST) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 B-AND4 . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F$ALL-T-REGS-ADDRESS . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BVP . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS) (LEMMAS F$ALL-T-REGS-ADDRESS . F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS))))) (PUT1-LST (QUOTE F$ALL-T-REGS-ADDRESS-OFF) (QUOTE (IDATE 1000402194103 EVENT (TOGGLE F$ALL-T-REGS-ADDRESS-OFF F$ALL-T-REGS-ADDRESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$ALL-T-REGS-ADDRESS . F$ALL-T-REGS-ADDRESS-OFF) (DISABLED-LEMMAS NIL F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS-OFF . T))))) (PUT1-LST (QUOTE *1*F$ALL-T-REGS-ADDRESS) (QUOTE (MAIN-EVENT F$ALL-T-REGS-ADDRESS))) (PUT1-LST (QUOTE F$ALL-T-REGS-ADDRESS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$ALL-T-REGS-ADDRESS 131 NIL)) LEMMAS ((REWRITE-RULE F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS ((BVP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (EQUAL REGS-ADDRESS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((F$ALL-T-REGS-ADDRESS . T)) SDEFN (LAMBDA (REGS-ADDRESS) (F-AND4 (CAR REGS-ADDRESS) (CAR (CDR REGS-ADDRESS)) (CAR (CDR (CDR REGS-ADDRESS))) (CAR (CDR (CDR (CDR REGS-ADDRESS)))))) LISP-CODE *1*F$ALL-T-REGS-ADDRESS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194103 SATELLITES (*1*F$ALL-T-REGS-ADDRESS) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$ALL-T-REGS-ADDRESS-OFF) EVENT (DEFN F$ALL-T-REGS-ADDRESS (REGS-ADDRESS) (F-AND4 (CAR REGS-ADDRESS) (CAR (CDR REGS-ADDRESS)) (CAR (CDR (CDR REGS-ADDRESS))) (CAR (CDR (CDR (CDR REGS-ADDRESS)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND4 . F$ALL-T-REGS-ADDRESS) (DCELL . *1*F$ALL-T-REGS-ADDRESS))))) (PUT1-LST (QUOTE B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF) (QUOTE (IDATE 1000402194103 EVENT (TOGGLE B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF B-OR4$VALUE-AS-F$SET-SOME-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4$VALUE-AS-F$SET-SOME-FLAGS . B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF) (DISABLED-LEMMAS NIL B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF . T))))) (PUT1-LST (QUOTE B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (QUOTE (IDATE 1000402194103 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE B-OR4$VALUE-AS-F$SET-SOME-FLAGS-OFF) EVENT (PROVE-LEMMA B-OR4$VALUE-AS-F$SET-SOME-FLAGS (REWRITE) (IMPLIES (AND (B-OR4& NETLIST) (AND (PROPERP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) SET-FLAGS STATE NETLIST) (CONS (F$SET-SOME-FLAGS SET-FLAGS) (QUOTE NIL)))) ((ENABLE B-OR4$VALUE EQUAL-LENGTH-ADD1 F$SET-SOME-FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 B-OR4$VALUE . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 F-OR4 . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 F-OR . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 F$SET-SOME-FLAGS . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 PROPERP . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 B-OR4& . B-OR4$VALUE-AS-F$SET-SOME-FLAGS) (LEMMAS DUAL-EVAL . B-OR4$VALUE-AS-F$SET-SOME-FLAGS))))) (PUT1-LST (QUOTE F$SET-SOME-FLAGS=SET-SOME=FLAGS) (QUOTE (IDATE 1000402194103 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA F$SET-SOME-FLAGS=SET-SOME=FLAGS (REWRITE) (IMPLIES (AND (BVP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4))) (EQUAL (F$SET-SOME-FLAGS SET-FLAGS) (SET-SOME-FLAGS SET-FLAGS))) ((ENABLE F$SET-SOME-FLAGS SET-SOME-FLAGS EQUAL-LENGTH-ADD1 OPEN-NTH C-SET V-SET N-SET Z-SET BOOLP-B-GATES) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 B-OR4 . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 C-SET . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 V-SET . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 N-SET . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 Z-SET . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 F$SET-SOME-FLAGS . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (IMMEDIATE-DEPENDENTS0 BVP . F$SET-SOME-FLAGS=SET-SOME=FLAGS) (LEMMAS F$SET-SOME-FLAGS . F$SET-SOME-FLAGS=SET-SOME=FLAGS))))) (PUT1-LST (QUOTE F$SET-SOME-FLAGS-OFF) (QUOTE (IDATE 1000402194103 EVENT (TOGGLE F$SET-SOME-FLAGS-OFF F$SET-SOME-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$SET-SOME-FLAGS . F$SET-SOME-FLAGS-OFF) (DISABLED-LEMMAS NIL F$SET-SOME-FLAGS F$SET-SOME-FLAGS-OFF . T))))) (PUT1-LST (QUOTE *1*F$SET-SOME-FLAGS) (QUOTE (MAIN-EVENT F$SET-SOME-FLAGS))) (PUT1-LST (QUOTE F$SET-SOME-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$SET-SOME-FLAGS 131 NIL)) LEMMAS ((REWRITE-RULE F$SET-SOME-FLAGS=SET-SOME=FLAGS ((BVP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4))) (EQUAL (F$SET-SOME-FLAGS SET-FLAGS) (SET-SOME-FLAGS SET-FLAGS)) NIL)) TOTALP-LST ((F$SET-SOME-FLAGS . T)) SDEFN (LAMBDA (SET-FLAGS) (F-OR4 (CAR SET-FLAGS) (CAR (CDR SET-FLAGS)) (CAR (CDR (CDR SET-FLAGS))) (CAR (CDR (CDR (CDR SET-FLAGS)))))) LISP-CODE *1*F$SET-SOME-FLAGS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194103 SATELLITES (*1*F$SET-SOME-FLAGS) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS F$SET-SOME-FLAGS-OFF) EVENT (DEFN F$SET-SOME-FLAGS (SET-FLAGS) (F-OR4 (CAR SET-FLAGS) (CAR (CDR SET-FLAGS)) (CAR (CDR (CDR SET-FLAGS))) (CAR (CDR (CDR (CDR SET-FLAGS)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR4 . F$SET-SOME-FLAGS) (DCELL . *1*F$SET-SOME-FLAGS))))) (PUT1-LST (QUOTE BOOLP-C-FLAG) (QUOTE (IDATE 1000402194103 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA BOOLP-C-FLAG (REWRITE) (IMPLIES (FLAGS-HYPS FLAGS) (BOOLP (C-FLAG FLAGS))) ((ENABLE C-FLAG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BOOLP-C-FLAG) (IMMEDIATE-DEPENDENTS0 C-FLAG . BOOLP-C-FLAG) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-C-FLAG) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . BOOLP-C-FLAG) (LEMMAS BOOLP . BOOLP-C-FLAG))))) (PUT1-LST (QUOTE NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (QUOTE (IDATE 1000402194103 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA NOT-SET-SOME-FLAGS-UPDATE-FLAGS (REWRITE) (IMPLIES (AND (FLAGS-HYPS FLAGS) (NOT (SET-SOME-FLAGS SET-FLAGS))) (EQUAL (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV) FLAGS)) ((ENABLE SET-SOME-FLAGS UPDATE-FLAGS OPEN-NTH C-FLAG V-FLAG N-FLAG Z-FLAG EQUAL-LENGTH-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-FLAG . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-FLAG . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-FLAG . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-IF . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 FLAGS-HYPS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS) (LEMMAS UPDATE-FLAGS . NOT-SET-SOME-FLAGS-UPDATE-FLAGS))))) (PUT1-LST (QUOTE *1*FLAGS-HYPS) (QUOTE (MAIN-EVENT FLAGS-HYPS))) (PUT1-LST (QUOTE FLAGS-HYPS) (QUOTE (TYPE-PRESCRIPTION-LST ((FLAGS-HYPS 3 NIL)) TOTALP-LST ((FLAGS-HYPS . T)) SDEFN (LAMBDA (FLAGS) (IF (EQUAL (LENGTH FLAGS) (QUOTE 4)) (BVP FLAGS) (QUOTE *1*FALSE))) LISP-CODE *1*FLAGS-HYPS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194102 SATELLITES (*1*FLAGS-HYPS) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE PROPERP-LENGTH-CV_FETCH1 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE CV-HYPS BOOLP-C-FLAG NOT-SET-SOME-FLAGS-UPDATE-FLAGS) EVENT (DEFN FLAGS-HYPS (FLAGS) (AND (EQUAL (LENGTH FLAGS) (QUOTE 4)) (BVP FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . FLAGS-HYPS) (IMMEDIATE-DEPENDENTS0 LENGTH . FLAGS-HYPS) (DCELL . *1*FLAGS-HYPS))))) (PUT1-LST (QUOTE NOT-SET-SOME-FLAGS-MAKE-LIST-4-F) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA NOT-SET-SOME-FLAGS-MAKE-LIST-4-F (REWRITE) (NOT (SET-SOME-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . NOT-SET-SOME-FLAGS-MAKE-LIST-4-F) (IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . NOT-SET-SOME-FLAGS-MAKE-LIST-4-F) (LEMMAS SET-SOME-FLAGS . NOT-SET-SOME-FLAGS-MAKE-LIST-4-F))))) (PUT1-LST (QUOTE SET-SOME-FLAGS-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE SET-SOME-FLAGS-OFF SET-SOME-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-SOME-FLAGS . SET-SOME-FLAGS-OFF) (DISABLED-LEMMAS NIL SET-SOME-FLAGS SET-SOME-FLAGS-OFF . T))))) (PUT1-LST (QUOTE *1*SET-SOME-FLAGS) (QUOTE (MAIN-EVENT SET-SOME-FLAGS))) (PUT1-LST (QUOTE SET-SOME-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-SOME-FLAGS 3 NIL)) LEMMAS ((REWRITE-RULE NOT-SET-SOME-FLAGS-MAKE-LIST-4-F NIL (NOT (SET-SOME-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)))) NIL)) TOTALP-LST ((SET-SOME-FLAGS . T)) SDEFN (LAMBDA (SET-FLAGS) (IF (Z-SET SET-FLAGS) (QUOTE *1*TRUE) (IF (N-SET SET-FLAGS) (QUOTE *1*TRUE) (IF (V-SET SET-FLAGS) (QUOTE *1*TRUE) (IF (C-SET SET-FLAGS) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))))) LISP-CODE *1*SET-SOME-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194102 SATELLITES (*1*SET-SOME-FLAGS) IMMEDIATE-DEPENDENTS0 (T_FETCH1 FETCH1->DECODE$SIM DECODE$STEP NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS NOT-SET-SOME-FLAGS-MAKE-LIST-4-F SET-SOME-FLAGS-OFF) EVENT (DEFN SET-SOME-FLAGS (SET-FLAGS) (OR (Z-SET SET-FLAGS) (OR (N-SET SET-FLAGS) (OR (V-SET SET-FLAGS) (C-SET SET-FLAGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-SET . SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 V-SET . SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 N-SET . SET-SOME-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-SET . SET-SOME-FLAGS) (DCELL . *1*SET-SOME-FLAGS))))) (PUT1-LST (QUOTE ENCODE-32$VALUE-ON-A-VECTOR-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE ENCODE-32$VALUE-ON-A-VECTOR-OFF ENCODE-32$VALUE-ON-A-VECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ENCODE-32$VALUE-ON-A-VECTOR . ENCODE-32$VALUE-ON-A-VECTOR-OFF) (DISABLED-LEMMAS NIL ENCODE-32$VALUE-ON-A-VECTOR ENCODE-32$VALUE-ON-A-VECTOR-OFF . T))))) (PUT1-LST (QUOTE ENCODE-32$VALUE-ON-A-VECTOR) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (CV$VALUE ENCODE-32$VALUE-ON-A-VECTOR-OFF) EVENT (PROVE-LEMMA ENCODE-32$VALUE-ON-A-VECTOR (REWRITE) (IMPLIES (AND (ENCODE-32& NETLIST) (AND (PROPERP ARGS) (EQUAL (LENGTH ARGS) (QUOTE 32)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ENCODE-32) ARGS STATE NETLIST) (F$ENCODE-32 (NTH (QUOTE 0) ARGS) (NTH (QUOTE 1) ARGS) (NTH (QUOTE 2) ARGS) (NTH (QUOTE 3) ARGS) (NTH (QUOTE 4) ARGS) (NTH (QUOTE 5) ARGS) (NTH (QUOTE 6) ARGS) (NTH (QUOTE 7) ARGS) (NTH (QUOTE 8) ARGS) (NTH (QUOTE 9) ARGS) (NTH (QUOTE 10) ARGS) (NTH (QUOTE 11) ARGS) (NTH (QUOTE 12) ARGS) (NTH (QUOTE 13) ARGS) (NTH (QUOTE 14) ARGS) (NTH (QUOTE 15) ARGS) (NTH (QUOTE 16) ARGS) (NTH (QUOTE 17) ARGS) (NTH (QUOTE 18) ARGS) (NTH (QUOTE 19) ARGS) (NTH (QUOTE 20) ARGS) (NTH (QUOTE 21) ARGS) (NTH (QUOTE 22) ARGS) (NTH (QUOTE 23) ARGS) (NTH (QUOTE 24) ARGS) (NTH (QUOTE 25) ARGS) (NTH (QUOTE 26) ARGS) (NTH (QUOTE 27) ARGS) (NTH (QUOTE 28) ARGS) (NTH (QUOTE 29) ARGS) (NTH (QUOTE 30) ARGS) (NTH (QUOTE 31) ARGS)))) ((DISABLE F$ENCODE-32 *1*ENCODE-32) (ENABLE ENCODE-32$VALUE) (USE (DUAL-EVAL-ON-COLLECTED-NTH-32 (FLAG (QUOTE 0)) (NAME (QUOTE ENCODE-32)) (ARGS ARGS) (STATE STATE) (NETLIST NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ENCODE-32$VALUE . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-ON-COLLECTED-NTH-32 . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 NTH . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 LENGTH . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 PROPERP . ENCODE-32$VALUE-ON-A-VECTOR) (IMMEDIATE-DEPENDENTS0 ENCODE-32& . ENCODE-32$VALUE-ON-A-VECTOR) (LEMMAS DUAL-EVAL . ENCODE-32$VALUE-ON-A-VECTOR))))) (PUT1-LST (QUOTE DUAL-EVAL-ON-COLLECTED-NTH-32) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (ENCODE-32$VALUE-ON-A-VECTOR) EVENT (PROVE-LEMMA DUAL-EVAL-ON-COLLECTED-NTH-32 NIL (IMPLIES (AND (EQUAL (LENGTH ARGS) (QUOTE 32)) (PROPERP ARGS)) (EQUAL (DUAL-EVAL FLAG NAME ARGS STATE NETLIST) (DUAL-EVAL FLAG NAME (CONS (NTH (QUOTE 0) ARGS) (CONS (NTH (QUOTE 1) ARGS) (CONS (NTH (QUOTE 2) ARGS) (CONS (NTH (QUOTE 3) ARGS) (CONS (NTH (QUOTE 4) ARGS) (CONS (NTH (QUOTE 5) ARGS) (CONS (NTH (QUOTE 6) ARGS) (CONS (NTH (QUOTE 7) ARGS) (CONS (NTH (QUOTE 8) ARGS) (CONS (NTH (QUOTE 9) ARGS) (CONS (NTH (QUOTE 10) ARGS) (CONS (NTH (QUOTE 11) ARGS) (CONS (NTH (QUOTE 12) ARGS) (CONS (NTH (QUOTE 13) ARGS) (CONS (NTH (QUOTE 14) ARGS) (CONS (NTH (QUOTE 15) ARGS) (CONS (NTH (QUOTE 16) ARGS) (CONS (NTH (QUOTE 17) ARGS) (CONS (NTH (QUOTE 18) ARGS) (CONS (NTH (QUOTE 19) ARGS) (CONS (NTH (QUOTE 20) ARGS) (CONS (NTH (QUOTE 21) ARGS) (CONS (NTH (QUOTE 22) ARGS) (CONS (NTH (QUOTE 23) ARGS) (CONS (NTH (QUOTE 24) ARGS) (CONS (NTH (QUOTE 25) ARGS) (CONS (NTH (QUOTE 26) ARGS) (CONS (NTH (QUOTE 27) ARGS) (CONS (NTH (QUOTE 28) ARGS) (CONS (NTH (QUOTE 29) ARGS) (CONS (NTH (QUOTE 30) ARGS) (CONS (NTH (QUOTE 31) ARGS) (QUOTE NIL))))))))))))))))))))))))))))))))) STATE NETLIST))) ((USE (EQUAL-LENGTH-32-AS-COLLECTED-NTH (L ARGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . DUAL-EVAL-ON-COLLECTED-NTH-32) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-32-AS-COLLECTED-NTH . DUAL-EVAL-ON-COLLECTED-NTH-32) (IMMEDIATE-DEPENDENTS0 NTH . DUAL-EVAL-ON-COLLECTED-NTH-32) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-ON-COLLECTED-NTH-32) (IMMEDIATE-DEPENDENTS0 PROPERP . DUAL-EVAL-ON-COLLECTED-NTH-32) (IMMEDIATE-DEPENDENTS0 LENGTH . DUAL-EVAL-ON-COLLECTED-NTH-32))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$ENCODE-32) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (CV$VALUE PROPERP-LENGTH-F$CV) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$ENCODE-32 (REWRITE) (AND (PROPERP (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (EQUAL (LENGTH (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (QUOTE 5))) ((ENABLE F$ENCODE-32) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . PROPERP-LENGTH-F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$ENCODE-32) (LEMMAS LENGTH . PROPERP-LENGTH-F$ENCODE-32) (LEMMAS PROPERP . PROPERP-LENGTH-F$ENCODE-32))))) (PUT1-LST (QUOTE BVP-LENGTH-ENCODE-32) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-CV) EVENT (PROVE-LEMMA BVP-LENGTH-ENCODE-32 (REWRITE) (AND (BVP (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (EQUAL (LENGTH (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (QUOTE 5))) ((ENABLE ENCODE-32))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOR3 . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NAND4 . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOR . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOR4 . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . BVP-LENGTH-ENCODE-32) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-ENCODE-32) (LEMMAS LENGTH . BVP-LENGTH-ENCODE-32) (LEMMAS BVP . BVP-LENGTH-ENCODE-32))))) (PUT1-LST (QUOTE F$ENCODE-32=ENCODE-32) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$ENCODE-32=ENCODE-32 (REWRITE) (IMPLIES (AND (BOOLP S0) (AND (BOOLP S1) (AND (BOOLP S2) (AND (BOOLP S3) (AND (BOOLP S4) (AND (BOOLP S5) (AND (BOOLP S6) (AND (BOOLP S7) (AND (BOOLP S8) (AND (BOOLP S9) (AND (BOOLP S10) (AND (BOOLP S11) (AND (BOOLP S12) (AND (BOOLP S13) (AND (BOOLP S14) (AND (BOOLP S15) (AND (BOOLP S16) (AND (BOOLP S17) (AND (BOOLP S18) (AND (BOOLP S19) (AND (BOOLP S20) (AND (BOOLP S21) (AND (BOOLP S22) (AND (BOOLP S23) (AND (BOOLP S24) (AND (BOOLP S25) (AND (BOOLP S26) (AND (BOOLP S27) (AND (BOOLP S28) (AND (BOOLP S29) (AND (BOOLP S30) (BOOLP S31)))))))))))))))))))))))))))))))) (EQUAL (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31))) ((ENABLE BOOLP-B-GATES F$ENCODE-32 ENCODE-32) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-GATES . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-GATES . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 ENCODE-32 . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . F$ENCODE-32=ENCODE-32) (IMMEDIATE-DEPENDENTS0 BOOLP . F$ENCODE-32=ENCODE-32) (LEMMAS F$ENCODE-32 . F$ENCODE-32=ENCODE-32))))) (PUT1-LST (QUOTE ENCODE-32$VALUE-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE ENCODE-32$VALUE-OFF ENCODE-32$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ENCODE-32$VALUE . ENCODE-32$VALUE-OFF) (DISABLED-LEMMAS NIL ENCODE-32$VALUE ENCODE-32$VALUE-OFF . T))))) (PUT1-LST (QUOTE ENCODE-32$VALUE) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (ENCODE-32$VALUE-ON-A-VECTOR ENCODE-32$VALUE-OFF) EVENT (PROVE-LEMMA ENCODE-32$VALUE (REWRITE) (IMPLIES (ENCODE-32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ENCODE-32) (CONS S0 (CONS S1 (CONS S2 (CONS S3 (CONS S4 (CONS S5 (CONS S6 (CONS S7 (CONS S8 (CONS S9 (CONS S10 (CONS S11 (CONS S12 (CONS S13 (CONS S14 (CONS S15 (CONS S16 (CONS S17 (CONS S18 (CONS S19 (CONS S20 (CONS S21 (CONS S22 (CONS S23 (CONS S24 (CONS S25 (CONS S26 (CONS S27 (CONS S28 (CONS S29 (CONS S30 (CONS S31 (QUOTE NIL))))))))))))))))))))))))))))))))) STATE NETLIST) (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31))) ((ENABLE ENCODE-32& F$ENCODE-32 B-NOR3$VALUE B-NOT$VALUE B-NOR$VALUE B-NOR4$VALUE B-NAND4$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR4$VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 ENCODE-32* . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ENCODE-32$VALUE) (IMMEDIATE-DEPENDENTS0 ENCODE-32& . ENCODE-32$VALUE) (LEMMAS DUAL-EVAL . ENCODE-32$VALUE))))) (PUT1-LST (QUOTE *1*ENCODE-32$NETLIST) (QUOTE (MAIN-EVENT ENCODE-32$NETLIST))) (PUT1-LST (QUOTE ENCODE-32$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ENCODE-32$NETLIST 16)) TOTALP-LST ((ENCODE-32$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (ENCODE-32*) (UNION (UNION (UNION (UNION (B-NOR3$NETLIST) (B-NOT$NETLIST)) (B-NOR$NETLIST)) (B-NOR4$NETLIST)) (B-NAND4$NETLIST)))) LISP-CODE *1*ENCODE-32$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194102 SATELLITES (*1*ENCODE-32$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN ENCODE-32$NETLIST NIL (CONS (ENCODE-32*) (UNION (UNION (UNION (UNION (B-NOR3$NETLIST) (B-NOT$NETLIST)) (B-NOR$NETLIST)) (B-NOR4$NETLIST)) (B-NAND4$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . ENCODE-32$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR4$NETLIST . ENCODE-32$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . ENCODE-32$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . ENCODE-32$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . ENCODE-32$NETLIST) (IMMEDIATE-DEPENDENTS0 ENCODE-32* . ENCODE-32$NETLIST) (DCELL . *1*ENCODE-32$NETLIST))))) (PUT1-LST (QUOTE ENCODE-32&-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE ENCODE-32&-OFF ENCODE-32& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ENCODE-32& . ENCODE-32&-OFF) (DISABLED-LEMMAS NIL ENCODE-32& ENCODE-32&-OFF . T))))) (PUT1-LST (QUOTE *1*ENCODE-32&) (QUOTE (MAIN-EVENT ENCODE-32&))) (PUT1-LST (QUOTE ENCODE-32&) (QUOTE (TYPE-PRESCRIPTION-LST ((ENCODE-32& 3 NIL)) TOTALP-LST ((ENCODE-32& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE ENCODE-32) NETLIST) (ENCODE-32*)) (IF (B-NOR3& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (IF (B-NOR4& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (B-NAND4& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*ENCODE-32& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194102 SATELLITES (*1*ENCODE-32&) IMMEDIATE-DEPENDENTS0 (CV& ENCODE-32$VALUE-ON-A-VECTOR ENCODE-32$VALUE ENCODE-32&-OFF) EVENT (DEFN ENCODE-32& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE ENCODE-32) NETLIST) (ENCODE-32*)) (AND (B-NOR3& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (AND (B-NOR4& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)) (B-NAND4& (DELETE-MODULE (QUOTE ENCODE-32) NETLIST)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4& . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 B-NOR4& . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 B-NOR& . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 B-NOT& . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 B-NOR3& . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 ENCODE-32* . ENCODE-32&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . ENCODE-32&) (DCELL . *1*ENCODE-32&))))) (PUT1-LST (QUOTE *1*ENCODE-32*) (QUOTE (MAIN-EVENT ENCODE-32*))) (PUT1-LST (QUOTE ENCODE-32*) (QUOTE (TYPE-PRESCRIPTION-LST ((ENCODE-32* 16)) TOTALP-LST ((ENCODE-32* . T)) SDEFN (LAMBDA NIL (QUOTE (ENCODE-32 (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (W-4 W-9 W-14 W-19 W-24) ((G-23 (W-23) B-NOR3 (S28 S29 S30)) (G-22 (W-22) B-NOR (S24 S25)) (G-21 (W-21) B-NOR4 (S20 S21 S22 S23)) (G-20 (W-20) B-NOR4 (S16 S17 S18 S19)) (G-24 (W-24) B-NAND4 (W-20 W-21 W-22 W-23)) (G-16 (W-16) B-NOR4 (S12 S13 S14 S15)) (G-15 (W-15) B-NOR4 (S8 S9 S10 S11)) (G-19 (W-19) B-NAND4 (W-15 W-16 W-22 W-23)) (G-10 (W-10) B-NOR4 (S4 S5 S6 S7)) (G-14 (W-14) B-NAND4 (W-10 W-16 W-21 W-23)) (G-8 (W-8) B-NOT (S30)) (G-7 (W-7) B-NOR4 (S18 S19 S22 S23)) (G-6 (W-6) B-NOR4 (S10 S11 S14 S15)) (G-5 (W-5) B-NOR4 (S2 S3 S6 S7)) (G-9 (W-9) B-NAND4 (W-5 W-6 W-7 W-8)) (G-3 (W-3) B-NOR (S25 S29)) (G-2 (W-2) B-NOR4 (S17 S19 S21 S23)) (G-1 (W-1) B-NOR4 (S9 S11 S13 S15)) (G-0 (W-0) B-NOR4 (S1 S3 S5 S7)) (G-4 (W-4) B-NAND4 (W-0 W-1 W-2 W-3))) NIL))) LISP-CODE *1*ENCODE-32* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194102 SATELLITES (*1*ENCODE-32*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST ENCODE-32$VALUE ENCODE-32$NETLIST ENCODE-32&) EVENT (DEFN ENCODE-32* NIL (QUOTE (ENCODE-32 (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (W-4 W-9 W-14 W-19 W-24) ((G-23 (W-23) B-NOR3 (S28 S29 S30)) (G-22 (W-22) B-NOR (S24 S25)) (G-21 (W-21) B-NOR4 (S20 S21 S22 S23)) (G-20 (W-20) B-NOR4 (S16 S17 S18 S19)) (G-24 (W-24) B-NAND4 (W-20 W-21 W-22 W-23)) (G-16 (W-16) B-NOR4 (S12 S13 S14 S15)) (G-15 (W-15) B-NOR4 (S8 S9 S10 S11)) (G-19 (W-19) B-NAND4 (W-15 W-16 W-22 W-23)) (G-10 (W-10) B-NOR4 (S4 S5 S6 S7)) (G-14 (W-14) B-NAND4 (W-10 W-16 W-21 W-23)) (G-8 (W-8) B-NOT (S30)) (G-7 (W-7) B-NOR4 (S18 S19 S22 S23)) (G-6 (W-6) B-NOR4 (S10 S11 S14 S15)) (G-5 (W-5) B-NOR4 (S2 S3 S6 S7)) (G-9 (W-9) B-NAND4 (W-5 W-6 W-7 W-8)) (G-3 (W-3) B-NOR (S25 S29)) (G-2 (W-2) B-NOR4 (S17 S19 S21 S23)) (G-1 (W-1) B-NOR4 (S9 S11 S13 S15)) (G-0 (W-0) B-NOR4 (S1 S3 S5 S7)) (G-4 (W-4) B-NAND4 (W-0 W-1 W-2 W-3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*ENCODE-32*))))) (PUT1-LST (QUOTE F$ENCODE-32-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE F$ENCODE-32-OFF F$ENCODE-32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$ENCODE-32 . F$ENCODE-32-OFF) (DISABLED-LEMMAS NIL F$ENCODE-32 F$ENCODE-32-OFF . T))))) (PUT1-LST (QUOTE *1*F$ENCODE-32) (QUOTE (MAIN-EVENT F$ENCODE-32))) (PUT1-LST (QUOTE F$ENCODE-32) (QUOTE (TYPE-PRESCRIPTION-LST ((F$ENCODE-32 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$ENCODE-32=ENCODE-32 ((BOOLP S0) (BOOLP S1) (BOOLP S2) (BOOLP S3) (BOOLP S4) (BOOLP S5) (BOOLP S6) (BOOLP S7) (BOOLP S8) (BOOLP S9) (BOOLP S10) (BOOLP S11) (BOOLP S12) (BOOLP S13) (BOOLP S14) (BOOLP S15) (BOOLP S16) (BOOLP S17) (BOOLP S18) (BOOLP S19) (BOOLP S20) (BOOLP S21) (BOOLP S22) (BOOLP S23) (BOOLP S24) (BOOLP S25) (BOOLP S26) (BOOLP S27) (BOOLP S28) (BOOLP S29) (BOOLP S30) (BOOLP S31)) (EQUAL (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) NIL)) TOTALP-LST ((F$ENCODE-32 . T)) SDEFN (LAMBDA (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (CONS (F-NAND4 (F-NOR4 S1 S3 S5 S7) (F-NOR4 S9 S11 S13 S15) (F-NOR4 S17 S19 S21 S23) (F-NOR S25 S29)) (CONS (F-NAND4 (F-NOR4 S2 S3 S6 S7) (F-NOR4 S10 S11 S14 S15) (F-NOR4 S18 S19 S22 S23) (F-NOT S30)) (CONS (F-NAND4 (F-NOR4 S4 S5 S6 S7) (F-NOR4 S12 S13 S14 S15) (F-NOR4 S20 S21 S22 S23) (F-NOR3 S28 S29 S30)) (CONS (F-NAND4 (F-NOR4 S8 S9 S10 S11) (F-NOR4 S12 S13 S14 S15) (F-NOR S24 S25) (F-NOR3 S28 S29 S30)) (CONS (F-NAND4 (F-NOR4 S16 S17 S18 S19) (F-NOR4 S20 S21 S22 S23) (F-NOR S24 S25) (F-NOR3 S28 S29 S30)) (QUOTE NIL))))))) LISP-CODE *1*F$ENCODE-32 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194102 SATELLITES (*1*F$ENCODE-32) IMMEDIATE-DEPENDENTS0 (F$CV ENCODE-32$VALUE-ON-A-VECTOR PROPERP-LENGTH-F$ENCODE-32 F$ENCODE-32=ENCODE-32 ENCODE-32$VALUE F$ENCODE-32-OFF) EVENT (DEFN F$ENCODE-32 (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (CONS (F-NAND4 (F-NOR4 S1 S3 S5 S7) (F-NOR4 S9 S11 S13 S15) (F-NOR4 S17 S19 S21 S23) (F-NOR S25 S29)) (CONS (F-NAND4 (F-NOR4 S2 S3 S6 S7) (F-NOR4 S10 S11 S14 S15) (F-NOR4 S18 S19 S22 S23) (F-NOT S30)) (CONS (F-NAND4 (F-NOR4 S4 S5 S6 S7) (F-NOR4 S12 S13 S14 S15) (F-NOR4 S20 S21 S22 S23) (F-NOR3 S28 S29 S30)) (CONS (F-NAND4 (F-NOR4 S8 S9 S10 S11) (F-NOR4 S12 S13 S14 S15) (F-NOR S24 S25) (F-NOR3 S28 S29 S30)) (CONS (F-NAND4 (F-NOR4 S16 S17 S18 S19) (F-NOR4 S20 S21 S22 S23) (F-NOR S24 S25) (F-NOR3 S28 S29 S30)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-NOT . F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-NOR . F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F$ENCODE-32) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F$ENCODE-32) (DCELL . *1*F$ENCODE-32))))) (PUT1-LST (QUOTE ENCODE-32-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE ENCODE-32-OFF ENCODE-32 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ENCODE-32 . ENCODE-32-OFF) (DISABLED-LEMMAS NIL ENCODE-32 ENCODE-32-OFF . T))))) (PUT1-LST (QUOTE *1*ENCODE-32) (QUOTE (MAIN-EVENT ENCODE-32))) (PUT1-LST (QUOTE ENCODE-32) (QUOTE (TYPE-PRESCRIPTION-LST ((ENCODE-32 16 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((ENCODE-32 . T)) SDEFN (LAMBDA (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (CONS (B-NAND4 (B-NOR4 S1 S3 S5 S7) (B-NOR4 S9 S11 S13 S15) (B-NOR4 S17 S19 S21 S23) (B-NOR S25 S29)) (CONS (B-NAND4 (B-NOR4 S2 S3 S6 S7) (B-NOR4 S10 S11 S14 S15) (B-NOR4 S18 S19 S22 S23) (B-NOT S30)) (CONS (B-NAND4 (B-NOR4 S4 S5 S6 S7) (B-NOR4 S12 S13 S14 S15) (B-NOR4 S20 S21 S22 S23) (B-NOR3 S28 S29 S30)) (CONS (B-NAND4 (B-NOR4 S8 S9 S10 S11) (B-NOR4 S12 S13 S14 S15) (B-NOR S24 S25) (B-NOR3 S28 S29 S30)) (CONS (B-NAND4 (B-NOR4 S16 S17 S18 S19) (B-NOR4 S20 S21 S22 S23) (B-NOR S24 S25) (B-NOR3 S28 S29 S30)) (QUOTE NIL))))))) LISP-CODE *1*ENCODE-32 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194102 SATELLITES (*1*ENCODE-32) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 CV BVP-LENGTH-ENCODE-32 F$ENCODE-32=ENCODE-32 ENCODE-32-OFF) EVENT (DEFN ENCODE-32 (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (CONS (B-NAND4 (B-NOR4 S1 S3 S5 S7) (B-NOR4 S9 S11 S13 S15) (B-NOR4 S17 S19 S21 S23) (B-NOR S25 S29)) (CONS (B-NAND4 (B-NOR4 S2 S3 S6 S7) (B-NOR4 S10 S11 S14 S15) (B-NOR4 S18 S19 S22 S23) (B-NOT S30)) (CONS (B-NAND4 (B-NOR4 S4 S5 S6 S7) (B-NOR4 S12 S13 S14 S15) (B-NOR4 S20 S21 S22 S23) (B-NOR3 S28 S29 S30)) (CONS (B-NAND4 (B-NOR4 S8 S9 S10 S11) (B-NOR4 S12 S13 S14 S15) (B-NOR S24 S25) (B-NOR3 S28 S29 S30)) (CONS (B-NAND4 (B-NOR4 S16 S17 S18 S19) (B-NOR4 S20 S21 S22 S23) (B-NOR S24 S25) (B-NOR3 S28 S29 S30)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3 . ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOT . ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOR . ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NOR4 . ENCODE-32) (IMMEDIATE-DEPENDENTS0 B-NAND4 . ENCODE-32) (DCELL . *1*ENCODE-32))))) (PUT1-LST (QUOTE DECODE-5$VALUE-OFF) (QUOTE (IDATE 1000402194102 EVENT (TOGGLE DECODE-5$VALUE-OFF DECODE-5$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-5$VALUE . DECODE-5$VALUE-OFF) (DISABLED-LEMMAS NIL DECODE-5$VALUE DECODE-5$VALUE-OFF . T))))) (PUT1-LST (QUOTE F$DECODE-5=DECODE-5) (QUOTE (IDATE 1000402194102 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA F$DECODE-5=DECODE-5 (REWRITE) (IMPLIES (AND (BVP S) (EQUAL (LENGTH S) (QUOTE 5))) (EQUAL (F$DECODE-5 S) (DECODE-5 S))) ((ENABLE F$DECODE-5 DECODE-5 BOOLP-B-GATES EQUAL-LENGTH-ADD1 BVP) (DISABLE-THEORY F-GATES B-GATES) (DISABLE CONS-EQUAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 F-GATES . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 B-GATES . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 DECODE-5 . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 F$DECODE-5 . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 LENGTH . F$DECODE-5=DECODE-5) (IMMEDIATE-DEPENDENTS0 BVP . F$DECODE-5=DECODE-5) (LEMMAS F$DECODE-5 . F$DECODE-5=DECODE-5))))) (PUT1-LST (QUOTE DECODE-5$VALUE) (QUOTE (IDATE 1000402194101 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE DECODE-5$VALUE-OFF) EVENT (PROVE-LEMMA DECODE-5$VALUE (REWRITE) (IMPLIES (AND (DECODE-5& NETLIST) (EQUAL (LENGTH S) (QUOTE 5))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-5) S STATE NETLIST) (F$DECODE-5 S))) ((ENABLE F$DECODE-5 DECODE-5& EQUAL-LENGTH-ADD1 B-NOT$VALUE B-NAND$VALUE B-NAND3$VALUE B-NOR$VALUE) (DISABLE-THEORY F-GATES B-GATES) (DISABLE CONS-EQUAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-5* . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-GATES . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-5 . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-5$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-5& . DECODE-5$VALUE) (LEMMAS DUAL-EVAL . DECODE-5$VALUE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$DECODE-5) (QUOTE (IDATE 1000402194101 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$DECODE-5 (REWRITE) (AND (PROPERP (F$DECODE-5 S)) (EQUAL (LENGTH (F$DECODE-5 S)) (QUOTE 32))) ((ENABLE F$DECODE-5) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$DECODE-5) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$DECODE-5) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$DECODE-5) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$DECODE-5) (IMMEDIATE-DEPENDENTS0 F$DECODE-5 . PROPERP-LENGTH-F$DECODE-5) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$DECODE-5) (LEMMAS LENGTH . PROPERP-LENGTH-F$DECODE-5) (LEMMAS PROPERP . PROPERP-LENGTH-F$DECODE-5))))) (PUT1-LST (QUOTE *1*DECODE-5$NETLIST) (QUOTE (MAIN-EVENT DECODE-5$NETLIST))) (PUT1-LST (QUOTE DECODE-5$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-5$NETLIST 16)) TOTALP-LST ((DECODE-5$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DECODE-5*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-NOR$NETLIST)))) LISP-CODE *1*DECODE-5$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194100 SATELLITES (*1*DECODE-5$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST) EVENT (DEFN DECODE-5$NETLIST NIL (CONS (DECODE-5*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-NOR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . DECODE-5$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . DECODE-5$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . DECODE-5$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . DECODE-5$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-5* . DECODE-5$NETLIST) (DCELL . *1*DECODE-5$NETLIST))))) (PUT1-LST (QUOTE DECODE-5&-OFF) (QUOTE (IDATE 1000402194100 EVENT (TOGGLE DECODE-5&-OFF DECODE-5& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-5& . DECODE-5&-OFF) (DISABLED-LEMMAS NIL DECODE-5& DECODE-5&-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-5&) (QUOTE (MAIN-EVENT DECODE-5&))) (PUT1-LST (QUOTE DECODE-5&) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-5& 3 NIL)) TOTALP-LST ((DECODE-5& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DECODE-5) NETLIST) (DECODE-5*)) (IF (B-NOT& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (B-NOR& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DECODE-5& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194100 SATELLITES (*1*DECODE-5&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& DECODE-5$VALUE DECODE-5&-OFF) EVENT (DEFN DECODE-5& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DECODE-5) NETLIST) (DECODE-5*)) (AND (B-NOT& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE DECODE-5) NETLIST)) (B-NOR& (DELETE-MODULE (QUOTE DECODE-5) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR& . DECODE-5&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . DECODE-5&) (IMMEDIATE-DEPENDENTS0 B-NAND& . DECODE-5&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DECODE-5&) (IMMEDIATE-DEPENDENTS0 B-NOT& . DECODE-5&) (IMMEDIATE-DEPENDENTS0 DECODE-5* . DECODE-5&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DECODE-5&) (DCELL . *1*DECODE-5&))))) (PUT1-LST (QUOTE *1*DECODE-5*) (QUOTE (MAIN-EVENT DECODE-5*))) (PUT1-LST (QUOTE DECODE-5*) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-5* 16)) TOTALP-LST ((DECODE-5* . T)) SDEFN (LAMBDA NIL (QUOTE (DECODE-5 (S0 S1 S2 S3 S4) (X00 X10 X20 X30 X01 X11 X21 X31 X02 X12 X22 X32 X03 X13 X23 X33 X04 X14 X24 X34 X05 X15 X25 X35 X06 X16 X26 X36 X07 X17 X27 X37) ((GS0- (S0-) B-NOT (S0)) (GS1- (S1-) B-NOT (S1)) (GS2- (S2-) B-NOT (S2)) (GS3- (S3-) B-NOT (S3)) (GS4- (S4-) B-NOT (S4)) (GS0 (BS0) B-NOT (S0-)) (GS1 (BS1) B-NOT (S1-)) (GS2 (BS2) B-NOT (S2-)) (GS3 (BS3) B-NOT (S3-)) (GS4 (BS4) B-NOT (S4-)) (GL0 (L0) B-NAND (S0- S1-)) (GL1 (L1) B-NAND (BS0 S1-)) (GL2 (L2) B-NAND (S0- BS1)) (GL3 (L3) B-NAND (BS0 BS1)) (GH0 (H0) B-NAND3 (S2- S3- S4-)) (GH1 (H1) B-NAND3 (BS2 S3- S4-)) (GH2 (H2) B-NAND3 (S2- BS3 S4-)) (GH3 (H3) B-NAND3 (BS2 BS3 S4-)) (GH4 (H4) B-NAND3 (S2- S3- BS4)) (GH5 (H5) B-NAND3 (BS2 S3- BS4)) (GH6 (H6) B-NAND3 (S2- BS3 BS4)) (GH7 (H7) B-NAND3 (BS2 BS3 BS4)) (GX00 (X00) B-NOR (L0 H0)) (GX10 (X10) B-NOR (L1 H0)) (GX20 (X20) B-NOR (L2 H0)) (GX30 (X30) B-NOR (L3 H0)) (GX01 (X01) B-NOR (L0 H1)) (GX11 (X11) B-NOR (L1 H1)) (GX21 (X21) B-NOR (L2 H1)) (GX31 (X31) B-NOR (L3 H1)) (GX02 (X02) B-NOR (L0 H2)) (GX12 (X12) B-NOR (L1 H2)) (GX22 (X22) B-NOR (L2 H2)) (GX32 (X32) B-NOR (L3 H2)) (GX03 (X03) B-NOR (L0 H3)) (GX13 (X13) B-NOR (L1 H3)) (GX23 (X23) B-NOR (L2 H3)) (GX33 (X33) B-NOR (L3 H3)) (GX04 (X04) B-NOR (L0 H4)) (GX14 (X14) B-NOR (L1 H4)) (GX24 (X24) B-NOR (L2 H4)) (GX34 (X34) B-NOR (L3 H4)) (GX05 (X05) B-NOR (L0 H5)) (GX15 (X15) B-NOR (L1 H5)) (GX25 (X25) B-NOR (L2 H5)) (GX35 (X35) B-NOR (L3 H5)) (GX06 (X06) B-NOR (L0 H6)) (GX16 (X16) B-NOR (L1 H6)) (GX26 (X26) B-NOR (L2 H6)) (GX36 (X36) B-NOR (L3 H6)) (GX07 (X07) B-NOR (L0 H7)) (GX17 (X17) B-NOR (L1 H7)) (GX27 (X27) B-NOR (L2 H7)) (GX37 (X37) B-NOR (L3 H7))) NIL))) LISP-CODE *1*DECODE-5* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194100 SATELLITES (*1*DECODE-5*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST DECODE-5$VALUE DECODE-5$NETLIST DECODE-5&) EVENT (DEFN DECODE-5* NIL (QUOTE (DECODE-5 (S0 S1 S2 S3 S4) (X00 X10 X20 X30 X01 X11 X21 X31 X02 X12 X22 X32 X03 X13 X23 X33 X04 X14 X24 X34 X05 X15 X25 X35 X06 X16 X26 X36 X07 X17 X27 X37) ((GS0- (S0-) B-NOT (S0)) (GS1- (S1-) B-NOT (S1)) (GS2- (S2-) B-NOT (S2)) (GS3- (S3-) B-NOT (S3)) (GS4- (S4-) B-NOT (S4)) (GS0 (BS0) B-NOT (S0-)) (GS1 (BS1) B-NOT (S1-)) (GS2 (BS2) B-NOT (S2-)) (GS3 (BS3) B-NOT (S3-)) (GS4 (BS4) B-NOT (S4-)) (GL0 (L0) B-NAND (S0- S1-)) (GL1 (L1) B-NAND (BS0 S1-)) (GL2 (L2) B-NAND (S0- BS1)) (GL3 (L3) B-NAND (BS0 BS1)) (GH0 (H0) B-NAND3 (S2- S3- S4-)) (GH1 (H1) B-NAND3 (BS2 S3- S4-)) (GH2 (H2) B-NAND3 (S2- BS3 S4-)) (GH3 (H3) B-NAND3 (BS2 BS3 S4-)) (GH4 (H4) B-NAND3 (S2- S3- BS4)) (GH5 (H5) B-NAND3 (BS2 S3- BS4)) (GH6 (H6) B-NAND3 (S2- BS3 BS4)) (GH7 (H7) B-NAND3 (BS2 BS3 BS4)) (GX00 (X00) B-NOR (L0 H0)) (GX10 (X10) B-NOR (L1 H0)) (GX20 (X20) B-NOR (L2 H0)) (GX30 (X30) B-NOR (L3 H0)) (GX01 (X01) B-NOR (L0 H1)) (GX11 (X11) B-NOR (L1 H1)) (GX21 (X21) B-NOR (L2 H1)) (GX31 (X31) B-NOR (L3 H1)) (GX02 (X02) B-NOR (L0 H2)) (GX12 (X12) B-NOR (L1 H2)) (GX22 (X22) B-NOR (L2 H2)) (GX32 (X32) B-NOR (L3 H2)) (GX03 (X03) B-NOR (L0 H3)) (GX13 (X13) B-NOR (L1 H3)) (GX23 (X23) B-NOR (L2 H3)) (GX33 (X33) B-NOR (L3 H3)) (GX04 (X04) B-NOR (L0 H4)) (GX14 (X14) B-NOR (L1 H4)) (GX24 (X24) B-NOR (L2 H4)) (GX34 (X34) B-NOR (L3 H4)) (GX05 (X05) B-NOR (L0 H5)) (GX15 (X15) B-NOR (L1 H5)) (GX25 (X25) B-NOR (L2 H5)) (GX35 (X35) B-NOR (L3 H5)) (GX06 (X06) B-NOR (L0 H6)) (GX16 (X16) B-NOR (L1 H6)) (GX26 (X26) B-NOR (L2 H6)) (GX36 (X36) B-NOR (L3 H6)) (GX07 (X07) B-NOR (L0 H7)) (GX17 (X17) B-NOR (L1 H7)) (GX27 (X27) B-NOR (L2 H7)) (GX37 (X37) B-NOR (L3 H7))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DECODE-5*))))) (PUT1-LST (QUOTE BVP-LENGTH-DECODE-5) (QUOTE (IDATE 1000402194100 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE) EVENT (PROVE-LEMMA BVP-LENGTH-DECODE-5 (REWRITE) (AND (BVP (DECODE-5 S)) (EQUAL (LENGTH (DECODE-5 S)) (QUOTE 32))) ((ENABLE DECODE-5 BOOLP-B-GATES) (DISABLE-THEORY B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 B-GATES . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 DECODE-5 . BVP-LENGTH-DECODE-5) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-DECODE-5) (LEMMAS LENGTH . BVP-LENGTH-DECODE-5) (LEMMAS BVP . BVP-LENGTH-DECODE-5))))) (PUT1-LST (QUOTE DECODE-5-OFF) (QUOTE (IDATE 1000402194100 EVENT (TOGGLE DECODE-5-OFF DECODE-5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-5 . DECODE-5-OFF) (DISABLED-LEMMAS NIL DECODE-5 DECODE-5-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-5) (QUOTE (MAIN-EVENT DECODE-5))) (PUT1-LST (QUOTE DECODE-5) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-5 16 NIL)) TOTALP-LST ((DECODE-5 . T)) SDEFN (LAMBDA (S) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))) LISP-CODE *1*DECODE-5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194100 SATELLITES (*1*DECODE-5) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE F$DECODE-5=DECODE-5 BVP-LENGTH-DECODE-5 DECODE-5-OFF) EVENT (DEFN DECODE-5 (S) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (CAR (CDR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (CAR (CDR (CDR S)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (CAR (CDR S)))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (CAR S)) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (B-NOR (B-NAND (B-NOT (B-NOT (CAR S))) (B-NOT (B-NOT (CAR (CDR S))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR S))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR S)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3 . DECODE-5) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE-5) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE-5) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-5) (DCELL . *1*DECODE-5))))) (PUT1-LST (QUOTE F$DECODE-5-OFF) (QUOTE (IDATE 1000402194100 EVENT (TOGGLE F$DECODE-5-OFF F$DECODE-5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-5 . F$DECODE-5-OFF) (DISABLED-LEMMAS NIL F$DECODE-5 F$DECODE-5-OFF . T))))) (PUT1-LST (QUOTE *1*F$DECODE-5) (QUOTE (MAIN-EVENT F$DECODE-5))) (PUT1-LST (QUOTE F$DECODE-5) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DECODE-5 16 NIL)) LEMMAS ((REWRITE-RULE F$DECODE-5=DECODE-5 ((BVP S) (EQUAL (LENGTH S) (QUOTE 5))) (EQUAL (F$DECODE-5 S) (DECODE-5 S)) NIL)) TOTALP-LST ((F$DECODE-5 . T)) SDEFN (LAMBDA (S) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))) LISP-CODE *1*F$DECODE-5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194100 SATELLITES (*1*F$DECODE-5) IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE F$DECODE-5=DECODE-5 DECODE-5$VALUE PROPERP-LENGTH-F$DECODE-5 F$DECODE-5-OFF) EVENT (DEFN F$DECODE-5 (S) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR S)))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (CAR (CDR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (CAR (CDR (CDR S)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (CAR (CDR S)))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (CAR S)) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (CONS (F-NOR (F-NAND (F-NOT (F-NOT (CAR S))) (F-NOT (F-NOT (CAR (CDR S))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR S))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR S)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR S))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3 . F$DECODE-5) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DECODE-5) (IMMEDIATE-DEPENDENTS0 F-NAND . F$DECODE-5) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-5) (DCELL . *1*F$DECODE-5))))) (PUT1-LST (QUOTE FANOUT-32$VALUE-OFF) (QUOTE (IDATE 1000402194100 EVENT (TOGGLE FANOUT-32$VALUE-OFF FANOUT-32$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-32$VALUE . FANOUT-32$VALUE-OFF) (DISABLED-LEMMAS NIL FANOUT-32$VALUE FANOUT-32$VALUE-OFF . T))))) (PUT1-LST (QUOTE FANOUT-32$VALUE) (QUOTE (IDATE 1000402194100 IMMEDIATE-DEPENDENTS0 (FANOUT-32$VALUE-OFF) EVENT (PROVE-LEMMA FANOUT-32$VALUE (REWRITE) (IMPLIES (FANOUT-32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-32) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 32) (THREEFIX A)))) ((ENABLE FANOUT-32& B-BUF-PWR$VALUE ID$VALUE OPEN-MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-MAKE-LIST . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-32* . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FANOUT-32$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-32& . FANOUT-32$VALUE) (LEMMAS DUAL-EVAL . FANOUT-32$VALUE))))) (PUT1-LST (QUOTE *1*FANOUT-32$NETLIST) (QUOTE (MAIN-EVENT FANOUT-32$NETLIST))) (PUT1-LST (QUOTE FANOUT-32$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-32$NETLIST 16)) TOTALP-LST ((FANOUT-32$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (FANOUT-32*) (UNION (B-BUF-PWR$NETLIST) (ID$NETLIST)))) LISP-CODE *1*FANOUT-32$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*FANOUT-32$NETLIST) EVENT (DEFN FANOUT-32$NETLIST NIL (CONS (FANOUT-32*) (UNION (B-BUF-PWR$NETLIST) (ID$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . FANOUT-32$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . FANOUT-32$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-32* . FANOUT-32$NETLIST) (DCELL . *1*FANOUT-32$NETLIST))))) (PUT1-LST (QUOTE FANOUT-32&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE FANOUT-32&-OFF FANOUT-32& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-32& . FANOUT-32&-OFF) (DISABLED-LEMMAS NIL FANOUT-32& FANOUT-32&-OFF . T))))) (PUT1-LST (QUOTE *1*FANOUT-32&) (QUOTE (MAIN-EVENT FANOUT-32&))) (PUT1-LST (QUOTE FANOUT-32&) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-32& 3 NIL)) TOTALP-LST ((FANOUT-32& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-32) NETLIST) (FANOUT-32*)) (IF (B-BUF-PWR& (DELETE-MODULE (QUOTE FANOUT-32) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-32) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FANOUT-32& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*FANOUT-32&) IMMEDIATE-DEPENDENTS0 (FANOUT-32$VALUE FANOUT-32&-OFF) EVENT (DEFN FANOUT-32& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-32) NETLIST) (FANOUT-32*)) (AND (B-BUF-PWR& (DELETE-MODULE (QUOTE FANOUT-32) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-32) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . FANOUT-32&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FANOUT-32&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . FANOUT-32&) (IMMEDIATE-DEPENDENTS0 FANOUT-32* . FANOUT-32&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FANOUT-32&) (DCELL . *1*FANOUT-32&))))) (PUT1-LST (QUOTE *1*FANOUT-32*) (QUOTE (MAIN-EVENT FANOUT-32*))) (PUT1-LST (QUOTE FANOUT-32*) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-32* 16)) TOTALP-LST ((FANOUT-32* . T)) SDEFN (LAMBDA NIL (QUOTE (FANOUT-32 (A) (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) ((GA (AA) B-BUF-PWR (A)) (G0 (S0) ID (AA)) (G1 (S1) ID (AA)) (G2 (S2) ID (AA)) (G3 (S3) ID (AA)) (G4 (S4) ID (AA)) (G5 (S5) ID (AA)) (G6 (S6) ID (AA)) (G7 (S7) ID (AA)) (G8 (S8) ID (AA)) (G9 (S9) ID (AA)) (G10 (S10) ID (AA)) (G11 (S11) ID (AA)) (G12 (S12) ID (AA)) (G13 (S13) ID (AA)) (G14 (S14) ID (AA)) (G15 (S15) ID (AA)) (G16 (S16) ID (AA)) (G17 (S17) ID (AA)) (G18 (S18) ID (AA)) (G19 (S19) ID (AA)) (G20 (S20) ID (AA)) (G21 (S21) ID (AA)) (G22 (S22) ID (AA)) (G23 (S23) ID (AA)) (G24 (S24) ID (AA)) (G25 (S25) ID (AA)) (G26 (S26) ID (AA)) (G27 (S27) ID (AA)) (G28 (S28) ID (AA)) (G29 (S29) ID (AA)) (G30 (S30) ID (AA)) (G31 (S31) ID (AA))) NIL))) LISP-CODE *1*FANOUT-32* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*FANOUT-32*) IMMEDIATE-DEPENDENTS0 (FANOUT-32$VALUE FANOUT-32$NETLIST FANOUT-32&) EVENT (DEFN FANOUT-32* NIL (QUOTE (FANOUT-32 (A) (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) ((GA (AA) B-BUF-PWR (A)) (G0 (S0) ID (AA)) (G1 (S1) ID (AA)) (G2 (S2) ID (AA)) (G3 (S3) ID (AA)) (G4 (S4) ID (AA)) (G5 (S5) ID (AA)) (G6 (S6) ID (AA)) (G7 (S7) ID (AA)) (G8 (S8) ID (AA)) (G9 (S9) ID (AA)) (G10 (S10) ID (AA)) (G11 (S11) ID (AA)) (G12 (S12) ID (AA)) (G13 (S13) ID (AA)) (G14 (S14) ID (AA)) (G15 (S15) ID (AA)) (G16 (S16) ID (AA)) (G17 (S17) ID (AA)) (G18 (S18) ID (AA)) (G19 (S19) ID (AA)) (G20 (S20) ID (AA)) (G21 (S21) ID (AA)) (G22 (S22) ID (AA)) (G23 (S23) ID (AA)) (G24 (S24) ID (AA)) (G25 (S25) ID (AA)) (G26 (S26) ID (AA)) (G27 (S27) ID (AA)) (G28 (S28) ID (AA)) (G29 (S29) ID (AA)) (G30 (S30) ID (AA)) (G31 (S31) ID (AA))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*FANOUT-32*))))) (PUT1-LST (QUOTE FANOUT-5$VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE FANOUT-5$VALUE-OFF FANOUT-5$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-5$VALUE . FANOUT-5$VALUE-OFF) (DISABLED-LEMMAS NIL FANOUT-5$VALUE FANOUT-5$VALUE-OFF . T))))) (PUT1-LST (QUOTE FANOUT-5$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE FANOUT-5$VALUE-OFF) EVENT (PROVE-LEMMA FANOUT-5$VALUE (REWRITE) (IMPLIES (FANOUT-5& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-5) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 5) (THREEFIX A)))) ((ENABLE FANOUT-5& B-BUF$VALUE ID$VALUE OPEN-MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-MAKE-LIST . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-5* . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FANOUT-5$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-5& . FANOUT-5$VALUE) (LEMMAS DUAL-EVAL . FANOUT-5$VALUE))))) (PUT1-LST (QUOTE *1*FANOUT-5$NETLIST) (QUOTE (MAIN-EVENT FANOUT-5$NETLIST))) (PUT1-LST (QUOTE FANOUT-5$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-5$NETLIST 16)) TOTALP-LST ((FANOUT-5$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (FANOUT-5*) (UNION (B-BUF$NETLIST) (ID$NETLIST)))) LISP-CODE *1*FANOUT-5$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*FANOUT-5$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST) EVENT (DEFN FANOUT-5$NETLIST NIL (CONS (FANOUT-5*) (UNION (B-BUF$NETLIST) (ID$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . FANOUT-5$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . FANOUT-5$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-5* . FANOUT-5$NETLIST) (DCELL . *1*FANOUT-5$NETLIST))))) (PUT1-LST (QUOTE FANOUT-5&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE FANOUT-5&-OFF FANOUT-5& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-5& . FANOUT-5&-OFF) (DISABLED-LEMMAS NIL FANOUT-5& FANOUT-5&-OFF . T))))) (PUT1-LST (QUOTE *1*FANOUT-5&) (QUOTE (MAIN-EVENT FANOUT-5&))) (PUT1-LST (QUOTE FANOUT-5&) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-5& 3 NIL)) TOTALP-LST ((FANOUT-5& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-5) NETLIST) (FANOUT-5*)) (IF (B-BUF& (DELETE-MODULE (QUOTE FANOUT-5) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-5) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FANOUT-5& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*FANOUT-5&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& FANOUT-5$VALUE FANOUT-5&-OFF) EVENT (DEFN FANOUT-5& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-5) NETLIST) (FANOUT-5*)) (AND (B-BUF& (DELETE-MODULE (QUOTE FANOUT-5) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-5) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . FANOUT-5&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FANOUT-5&) (IMMEDIATE-DEPENDENTS0 B-BUF& . FANOUT-5&) (IMMEDIATE-DEPENDENTS0 FANOUT-5* . FANOUT-5&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FANOUT-5&) (DCELL . *1*FANOUT-5&))))) (PUT1-LST (QUOTE *1*FANOUT-5*) (QUOTE (MAIN-EVENT FANOUT-5*))) (PUT1-LST (QUOTE FANOUT-5*) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-5* 16)) TOTALP-LST ((FANOUT-5* . T)) SDEFN (LAMBDA NIL (QUOTE (FANOUT-5 (A) (Z0 Z1 Z2 Z3 Z4) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA)) (G4 (Z4) ID (AA))) NIL))) LISP-CODE *1*FANOUT-5* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*FANOUT-5*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST FANOUT-5$VALUE FANOUT-5$NETLIST FANOUT-5&) EVENT (DEFN FANOUT-5* NIL (QUOTE (FANOUT-5 (A) (Z0 Z1 Z2 Z3 Z4) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA)) (G4 (Z4) ID (AA))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*FANOUT-5*))))) (PUT1-LST (QUOTE FANOUT-4$VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE FANOUT-4$VALUE-OFF FANOUT-4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-4$VALUE . FANOUT-4$VALUE-OFF) (DISABLED-LEMMAS NIL FANOUT-4$VALUE FANOUT-4$VALUE-OFF . T))))) (PUT1-LST (QUOTE FANOUT-4$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CV$VALUE FANOUT-4$VALUE-OFF) EVENT (PROVE-LEMMA FANOUT-4$VALUE (REWRITE) (IMPLIES (FANOUT-4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-4) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 4) (THREEFIX A)))) ((ENABLE FANOUT-4& B-BUF$VALUE ID$VALUE OPEN-MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-MAKE-LIST . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-4* . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FANOUT-4$VALUE) (IMMEDIATE-DEPENDENTS0 FANOUT-4& . FANOUT-4$VALUE) (LEMMAS DUAL-EVAL . FANOUT-4$VALUE))))) (PUT1-LST (QUOTE *1*FANOUT-4$NETLIST) (QUOTE (MAIN-EVENT FANOUT-4$NETLIST))) (PUT1-LST (QUOTE FANOUT-4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-4$NETLIST 16)) TOTALP-LST ((FANOUT-4$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (FANOUT-4*) (UNION (B-BUF$NETLIST) (ID$NETLIST)))) LISP-CODE *1*FANOUT-4$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*FANOUT-4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN FANOUT-4$NETLIST NIL (CONS (FANOUT-4*) (UNION (B-BUF$NETLIST) (ID$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . FANOUT-4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . FANOUT-4$NETLIST) (IMMEDIATE-DEPENDENTS0 FANOUT-4* . FANOUT-4$NETLIST) (DCELL . *1*FANOUT-4$NETLIST))))) (PUT1-LST (QUOTE FANOUT-4&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE FANOUT-4&-OFF FANOUT-4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FANOUT-4& . FANOUT-4&-OFF) (DISABLED-LEMMAS NIL FANOUT-4& FANOUT-4&-OFF . T))))) (PUT1-LST (QUOTE *1*FANOUT-4&) (QUOTE (MAIN-EVENT FANOUT-4&))) (PUT1-LST (QUOTE FANOUT-4&) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-4& 3 NIL)) TOTALP-LST ((FANOUT-4& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-4) NETLIST) (FANOUT-4*)) (IF (B-BUF& (DELETE-MODULE (QUOTE FANOUT-4) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-4) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FANOUT-4& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*FANOUT-4&) IMMEDIATE-DEPENDENTS0 (CV& FANOUT-4$VALUE FANOUT-4&-OFF) EVENT (DEFN FANOUT-4& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE FANOUT-4) NETLIST) (FANOUT-4*)) (AND (B-BUF& (DELETE-MODULE (QUOTE FANOUT-4) NETLIST)) (ID& (DELETE-MODULE (QUOTE FANOUT-4) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . FANOUT-4&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FANOUT-4&) (IMMEDIATE-DEPENDENTS0 B-BUF& . FANOUT-4&) (IMMEDIATE-DEPENDENTS0 FANOUT-4* . FANOUT-4&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FANOUT-4&) (DCELL . *1*FANOUT-4&))))) (PUT1-LST (QUOTE *1*FANOUT-4*) (QUOTE (MAIN-EVENT FANOUT-4*))) (PUT1-LST (QUOTE FANOUT-4*) (QUOTE (TYPE-PRESCRIPTION-LST ((FANOUT-4* 16)) TOTALP-LST ((FANOUT-4* . T)) SDEFN (LAMBDA NIL (QUOTE (FANOUT-4 (A) (Z0 Z1 Z2 Z3) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA))) NIL))) LISP-CODE *1*FANOUT-4* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*FANOUT-4*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST FANOUT-4$VALUE FANOUT-4$NETLIST FANOUT-4&) EVENT (DEFN FANOUT-4* NIL (QUOTE (FANOUT-4 (A) (Z0 Z1 Z2 Z3) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*FANOUT-4*))))) (PUT1-LST (QUOTE V-IF-F-4$RESET-VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE V-IF-F-4$RESET-VALUE-OFF V-IF-F-4$RESET-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IF-F-4$RESET-VALUE . V-IF-F-4$RESET-VALUE-OFF) (DISABLED-LEMMAS NIL V-IF-F-4$RESET-VALUE V-IF-F-4$RESET-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-IF-F-4$RESET-VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (V-IF-F-4$RESET-VALUE-OFF) EVENT (PROVE-LEMMA V-IF-F-4$RESET-VALUE (REWRITE) (IMPLIES (V-IF-F-4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-IF-F-4) (CONS (QUOTE *1*TRUE) A) STATE NETLIST) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)))) ((ENABLE V-IF-F-4& B-NOT$VALUE B-AND$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-IF-F-4$RESET-VALUE) (IMMEDIATE-DEPENDENTS0 V-IF-F-4& . V-IF-F-4$RESET-VALUE) (LEMMAS DUAL-EVAL . V-IF-F-4$RESET-VALUE))))) (PUT1-LST (QUOTE F$V-IF-F-4=FV-IF) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$V-IF-F-4=FV-IF (REWRITE) (IMPLIES (BOOLP C) (EQUAL (F$V-IF-F-4 C A) (FV-IF C (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) A))) ((ENABLE F$V-IF-F-4 FV-IF BOOLP-B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 B-NOT . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 F-IF . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 THREEFIX . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 FV-IF . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 F$V-IF-F-4 . F$V-IF-F-4=FV-IF) (IMMEDIATE-DEPENDENTS0 BOOLP . F$V-IF-F-4=FV-IF) (LEMMAS F$V-IF-F-4 . F$V-IF-F-4=FV-IF))))) (PUT1-LST (QUOTE V-IF-F-4$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CV$VALUE) EVENT (PROVE-LEMMA V-IF-F-4$VALUE (REWRITE) (IMPLIES (V-IF-F-4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-IF-F-4) (CONS C A) STATE NETLIST) (F$V-IF-F-4 C A))) ((ENABLE V-IF-F-4& B-NOT$VALUE B-AND$VALUE F$V-IF-F-4) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 F$V-IF-F-4 . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-IF-F-4$VALUE) (IMMEDIATE-DEPENDENTS0 V-IF-F-4& . V-IF-F-4$VALUE) (LEMMAS DUAL-EVAL . V-IF-F-4$VALUE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$V-IF-F-4) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CV$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$V-IF-F-4 (REWRITE) (AND (PROPERP (F$V-IF-F-4 C A)) (EQUAL (LENGTH (F$V-IF-F-4 C A)) (QUOTE 4))) ((ENABLE F$V-IF-F-4) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 F$V-IF-F-4 . PROPERP-LENGTH-F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$V-IF-F-4) (LEMMAS LENGTH . PROPERP-LENGTH-F$V-IF-F-4) (LEMMAS PROPERP . PROPERP-LENGTH-F$V-IF-F-4))))) (PUT1-LST (QUOTE F$V-IF-F-4-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE F$V-IF-F-4-OFF F$V-IF-F-4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$V-IF-F-4 . F$V-IF-F-4-OFF) (DISABLED-LEMMAS NIL F$V-IF-F-4 F$V-IF-F-4-OFF . T))))) (PUT1-LST (QUOTE *1*F$V-IF-F-4) (QUOTE (MAIN-EVENT F$V-IF-F-4))) (PUT1-LST (QUOTE F$V-IF-F-4) (QUOTE (TYPE-PRESCRIPTION-LST ((F$V-IF-F-4 16 NIL NIL)) LEMMAS ((REWRITE-RULE F$V-IF-F-4=FV-IF ((BOOLP C)) (EQUAL (F$V-IF-F-4 C A) (FV-IF C (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) A)) NIL)) TOTALP-LST ((F$V-IF-F-4 . T)) SDEFN (LAMBDA (C A) (CONS (F-AND (F-NOT C) (CAR A)) (CONS (F-AND (F-NOT C) (CAR (CDR A))) (CONS (F-AND (F-NOT C) (CAR (CDR (CDR A)))) (CONS (F-AND (F-NOT C) (CAR (CDR (CDR (CDR A))))) (QUOTE NIL)))))) LISP-CODE *1*F$V-IF-F-4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*F$V-IF-F-4) IMMEDIATE-DEPENDENTS0 (F$CV F$V-IF-F-4=FV-IF V-IF-F-4$VALUE PROPERP-LENGTH-F$V-IF-F-4 F$V-IF-F-4-OFF) EVENT (DEFN F$V-IF-F-4 (C A) (CONS (F-AND (F-NOT C) (CAR A)) (CONS (F-AND (F-NOT C) (CAR (CDR A))) (CONS (F-AND (F-NOT C) (CAR (CDR (CDR A)))) (CONS (F-AND (F-NOT C) (CAR (CDR (CDR (CDR A))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F$V-IF-F-4) (IMMEDIATE-DEPENDENTS0 F-AND . F$V-IF-F-4) (DCELL . *1*F$V-IF-F-4))))) (PUT1-LST (QUOTE *1*V-IF-F-4$NETLIST) (QUOTE (MAIN-EVENT V-IF-F-4$NETLIST))) (PUT1-LST (QUOTE V-IF-F-4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-IF-F-4$NETLIST 16)) TOTALP-LST ((V-IF-F-4$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (V-IF-F-4*) (UNION (B-NOT$NETLIST) (B-AND$NETLIST)))) LISP-CODE *1*V-IF-F-4$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*V-IF-F-4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN V-IF-F-4$NETLIST NIL (CONS (V-IF-F-4*) (UNION (B-NOT$NETLIST) (B-AND$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . V-IF-F-4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . V-IF-F-4$NETLIST) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . V-IF-F-4$NETLIST) (DCELL . *1*V-IF-F-4$NETLIST))))) (PUT1-LST (QUOTE V-IF-F-4&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE V-IF-F-4&-OFF V-IF-F-4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IF-F-4& . V-IF-F-4&-OFF) (DISABLED-LEMMAS NIL V-IF-F-4& V-IF-F-4&-OFF . T))))) (PUT1-LST (QUOTE *1*V-IF-F-4&) (QUOTE (MAIN-EVENT V-IF-F-4&))) (PUT1-LST (QUOTE V-IF-F-4&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-IF-F-4& 3 NIL)) TOTALP-LST ((V-IF-F-4& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE V-IF-F-4) NETLIST) (V-IF-F-4*)) (IF (B-NOT& (DELETE-MODULE (QUOTE V-IF-F-4) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE V-IF-F-4) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*V-IF-F-4& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*V-IF-F-4&) IMMEDIATE-DEPENDENTS0 (CV& V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE V-IF-F-4&-OFF) EVENT (DEFN V-IF-F-4& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE V-IF-F-4) NETLIST) (V-IF-F-4*)) (AND (B-NOT& (DELETE-MODULE (QUOTE V-IF-F-4) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE V-IF-F-4) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND& . V-IF-F-4&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-IF-F-4&) (IMMEDIATE-DEPENDENTS0 B-NOT& . V-IF-F-4&) (IMMEDIATE-DEPENDENTS0 V-IF-F-4* . V-IF-F-4&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-IF-F-4&) (DCELL . *1*V-IF-F-4&))))) (PUT1-LST (QUOTE *1*V-IF-F-4*) (QUOTE (MAIN-EVENT V-IF-F-4*))) (PUT1-LST (QUOTE V-IF-F-4*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-IF-F-4* 16)) TOTALP-LST ((V-IF-F-4* . T)) SDEFN (LAMBDA NIL (QUOTE (V-IF-F-4 (C A0 A1 A2 A3) (Z0 Z1 Z2 Z3) ((CB (C-) B-NOT (C)) (G0 (Z0) B-AND (C- A0)) (G1 (Z1) B-AND (C- A1)) (G2 (Z2) B-AND (C- A2)) (G3 (Z3) B-AND (C- A3))) NIL))) LISP-CODE *1*V-IF-F-4* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*V-IF-F-4*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE V-IF-F-4$NETLIST V-IF-F-4&) EVENT (DEFN V-IF-F-4* NIL (QUOTE (V-IF-F-4 (C A0 A1 A2 A3) (Z0 Z1 Z2 Z3) ((CB (C-) B-NOT (C)) (G0 (Z0) B-AND (C- A0)) (G1 (Z1) B-AND (C- A1)) (G2 (Z2) B-AND (C- A2)) (G3 (Z3) B-AND (C- A3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*V-IF-F-4*))))) (PUT1-LST (QUOTE SELECT-OP-CODE$VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE SELECT-OP-CODE$VALUE-OFF SELECT-OP-CODE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE$VALUE . SELECT-OP-CODE$VALUE-OFF) (DISABLED-LEMMAS NIL SELECT-OP-CODE$VALUE SELECT-OP-CODE$VALUE-OFF . T))))) (PUT1-LST (QUOTE SELECT-OP-CODE$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CV$VALUE SELECT-OP-CODE$VALUE-OFF) EVENT (PROVE-LEMMA SELECT-OP-CODE$VALUE (REWRITE) (IMPLIES (AND (SELECT-OP-CODE& NETLIST) (AND (PROPERP OP) (EQUAL (LENGTH OP) (QUOTE 4)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE SELECT-OP-CODE) (CONS SELECT (CONS DEC OP)) STATE NETLIST) (F$SELECT-OP-CODE SELECT DEC OP))) ((ENABLE SELECT-OP-CODE& F$SELECT-OP-CODE BVP-LENGTH EQUAL-LENGTH-ADD1 B-NOT$VALUE B-AND$VALUE B-NAND$VALUE B-IF$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE* . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . SELECT-OP-CODE$VALUE) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE& . SELECT-OP-CODE$VALUE) (LEMMAS DUAL-EVAL . SELECT-OP-CODE$VALUE))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE$NETLIST) (QUOTE (MAIN-EVENT SELECT-OP-CODE$NETLIST))) (PUT1-LST (QUOTE SELECT-OP-CODE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((SELECT-OP-CODE$NETLIST 16)) TOTALP-LST ((SELECT-OP-CODE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (SELECT-OP-CODE*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-IF$NETLIST)) (B-AND$NETLIST)))) LISP-CODE *1*SELECT-OP-CODE$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*SELECT-OP-CODE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN SELECT-OP-CODE$NETLIST NIL (CONS (SELECT-OP-CODE*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-IF$NETLIST)) (B-AND$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . SELECT-OP-CODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . SELECT-OP-CODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . SELECT-OP-CODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . SELECT-OP-CODE$NETLIST) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE* . SELECT-OP-CODE$NETLIST) (DCELL . *1*SELECT-OP-CODE$NETLIST))))) (PUT1-LST (QUOTE SELECT-OP-CODE&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE SELECT-OP-CODE&-OFF SELECT-OP-CODE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE& . SELECT-OP-CODE&-OFF) (DISABLED-LEMMAS NIL SELECT-OP-CODE& SELECT-OP-CODE&-OFF . T))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE&) (QUOTE (MAIN-EVENT SELECT-OP-CODE&))) (PUT1-LST (QUOTE SELECT-OP-CODE&) (QUOTE (TYPE-PRESCRIPTION-LST ((SELECT-OP-CODE& 3 NIL)) TOTALP-LST ((SELECT-OP-CODE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE SELECT-OP-CODE) NETLIST) (SELECT-OP-CODE*)) (IF (B-NOT& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (IF (B-IF& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*SELECT-OP-CODE& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*SELECT-OP-CODE&) IMMEDIATE-DEPENDENTS0 (CV& SELECT-OP-CODE$VALUE SELECT-OP-CODE&-OFF) EVENT (DEFN SELECT-OP-CODE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE SELECT-OP-CODE) NETLIST) (SELECT-OP-CODE*)) (AND (B-NOT& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (AND (B-IF& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE SELECT-OP-CODE) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND& . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 B-IF& . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 B-NAND& . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 B-NOT& . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 SELECT-OP-CODE* . SELECT-OP-CODE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . SELECT-OP-CODE&) (DCELL . *1*SELECT-OP-CODE&))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE*) (QUOTE (MAIN-EVENT SELECT-OP-CODE*))) (PUT1-LST (QUOTE SELECT-OP-CODE*) (QUOTE (TYPE-PRESCRIPTION-LST ((SELECT-OP-CODE* 16)) TOTALP-LST ((SELECT-OP-CODE* . T)) SDEFN (LAMBDA NIL (QUOTE (SELECT-OP-CODE (SELECT DEC OP0 OP1 OP2 OP3) (Z0 Z1 Z2 Z3) ((I0 (OP0-) B-NOT (OP0)) (G0 (Z0) B-NAND (SELECT OP0-)) (G1 (Z1) B-AND (SELECT OP1)) (G2 (Z2) B-IF (SELECT OP2 DEC)) (G3 (Z3) B-AND (SELECT OP3))) NIL))) LISP-CODE *1*SELECT-OP-CODE* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*SELECT-OP-CODE*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST SELECT-OP-CODE$VALUE SELECT-OP-CODE$NETLIST SELECT-OP-CODE&) EVENT (DEFN SELECT-OP-CODE* NIL (QUOTE (SELECT-OP-CODE (SELECT DEC OP0 OP1 OP2 OP3) (Z0 Z1 Z2 Z3) ((I0 (OP0-) B-NOT (OP0)) (G0 (Z0) B-NAND (SELECT OP0-)) (G1 (Z1) B-AND (SELECT OP1)) (G2 (Z2) B-IF (SELECT OP2 DEC)) (G3 (Z3) B-AND (SELECT OP3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*SELECT-OP-CODE*))))) (PUT1-LST (QUOTE F$SELECT-OP-CODE-SELECTS) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$SELECT-OP-CODE-SELECTS (REWRITE) (IMPLIES (AND (BOOLP SELECT) (AND (BOOLP DEC) (AND (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4))))) (EQUAL (F$SELECT-OP-CODE SELECT DEC OP) (V-IF SELECT OP (V-IF DEC (ALU-DEC-OP) (ALU-INC-OP))))) ((ENABLE F$SELECT-OP-CODE BVP-LENGTH EQUAL-LENGTH-ADD1 BOOLP-B-GATES ALU-INC-OP ALU-DEC-OP V-IF) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-AND . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-IF . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-BUF . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-NAND . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 B-NOT . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BV2P . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BVP-IF . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 F-GATES . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 V-IF . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BVP . F$SELECT-OP-CODE-SELECTS) (IMMEDIATE-DEPENDENTS0 BOOLP . F$SELECT-OP-CODE-SELECTS) (LEMMAS F$SELECT-OP-CODE . F$SELECT-OP-CODE-SELECTS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$SELECT-OP-CODE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CV$VALUE PROPERP-LENGTH-F$CV) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$SELECT-OP-CODE (REWRITE) (AND (PROPERP (F$SELECT-OP-CODE SELECT DEC OP)) (EQUAL (LENGTH (F$SELECT-OP-CODE SELECT DEC OP)) (QUOTE 4))) ((ENABLE F$SELECT-OP-CODE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE . PROPERP-LENGTH-F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$SELECT-OP-CODE) (LEMMAS LENGTH . PROPERP-LENGTH-F$SELECT-OP-CODE) (LEMMAS PROPERP . PROPERP-LENGTH-F$SELECT-OP-CODE))))) (PUT1-LST (QUOTE F$SELECT-OP-CODE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE F$SELECT-OP-CODE-OFF F$SELECT-OP-CODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$SELECT-OP-CODE . F$SELECT-OP-CODE-OFF) (DISABLED-LEMMAS NIL F$SELECT-OP-CODE F$SELECT-OP-CODE-OFF . T))))) (PUT1-LST (QUOTE *1*F$SELECT-OP-CODE) (QUOTE (MAIN-EVENT F$SELECT-OP-CODE))) (PUT1-LST (QUOTE F$SELECT-OP-CODE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$SELECT-OP-CODE 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$SELECT-OP-CODE-SELECTS ((BOOLP SELECT) (BOOLP DEC) (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4))) (EQUAL (F$SELECT-OP-CODE SELECT DEC OP) (V-IF SELECT OP (V-IF DEC (ALU-DEC-OP) (ALU-INC-OP)))) NIL)) TOTALP-LST ((F$SELECT-OP-CODE . T)) SDEFN (LAMBDA (SELECT DEC OP) (CONS (F-NAND SELECT (F-NOT (CAR OP))) (CONS (F-AND SELECT (CAR (CDR OP))) (CONS (F-IF SELECT (CAR (CDR (CDR OP))) DEC) (CONS (F-AND SELECT (CAR (CDR (CDR (CDR OP))))) (QUOTE NIL)))))) LISP-CODE *1*F$SELECT-OP-CODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*F$SELECT-OP-CODE) IMMEDIATE-DEPENDENTS0 (F$CV SELECT-OP-CODE$VALUE F$SELECT-OP-CODE-SELECTS PROPERP-LENGTH-F$SELECT-OP-CODE F$SELECT-OP-CODE-OFF) EVENT (DEFN F$SELECT-OP-CODE (SELECT DEC OP) (CONS (F-NAND SELECT (F-NOT (CAR OP))) (CONS (F-AND SELECT (CAR (CDR OP))) (CONS (F-IF SELECT (CAR (CDR (CDR OP))) DEC) (CONS (F-AND SELECT (CAR (CDR (CDR (CDR OP))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF . F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 F-AND . F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 F-NOT . F$SELECT-OP-CODE) (IMMEDIATE-DEPENDENTS0 F-NAND . F$SELECT-OP-CODE) (DCELL . *1*F$SELECT-OP-CODE))))) (PUT1-LST (QUOTE F$DECODE-REG-MODE-AS-REG-MODE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA F$DECODE-REG-MODE-AS-REG-MODE (REWRITE) (IMPLIES (AND (BVP MODE) (EQUAL (LENGTH MODE) (QUOTE 2))) (EQUAL (F$DECODE-REG-MODE MODE) (CONS (REG-DIRECT-P MODE) (CONS (PRE-DEC-P MODE) (CONS (OR (PRE-DEC-P MODE) (POST-INC-P MODE)) (QUOTE NIL)))))) ((ENABLE-THEORY REG-MODE-THEORY) (ENABLE F$DECODE-REG-MODE EQUAL-LENGTH-ADD1 BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 B-NOT . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 B-OR . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 ID . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-OR . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 REG-MODE-THEORY . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 POST-INC-P . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 F$DECODE-REG-MODE . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 LENGTH . F$DECODE-REG-MODE-AS-REG-MODE) (IMMEDIATE-DEPENDENTS0 BVP . F$DECODE-REG-MODE-AS-REG-MODE) (LEMMAS F$DECODE-REG-MODE . F$DECODE-REG-MODE-AS-REG-MODE))))) (PUT1-LST (QUOTE DECODE-REG-MODE$VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE DECODE-REG-MODE$VALUE-OFF DECODE-REG-MODE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE$VALUE . DECODE-REG-MODE$VALUE-OFF) (DISABLED-LEMMAS NIL DECODE-REG-MODE$VALUE DECODE-REG-MODE$VALUE-OFF . T))))) (PUT1-LST (QUOTE DECODE-REG-MODE$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE DECODE-REG-MODE$VALUE-OFF) EVENT (PROVE-LEMMA DECODE-REG-MODE$VALUE (REWRITE) (IMPLIES (DECODE-REG-MODE& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-REG-MODE) MODE STATE NETLIST) (F$DECODE-REG-MODE MODE))) ((ENABLE DECODE-REG-MODE& B-NOR$VALUE ID$VALUE B-NOT$VALUE F$DECODE-REG-MODE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 ID . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE* . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-REG-MODE . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-REG-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE& . DECODE-REG-MODE$VALUE) (LEMMAS DUAL-EVAL . DECODE-REG-MODE$VALUE))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE$NETLIST) (QUOTE (MAIN-EVENT DECODE-REG-MODE$NETLIST))) (PUT1-LST (QUOTE DECODE-REG-MODE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-REG-MODE$NETLIST 16)) TOTALP-LST ((DECODE-REG-MODE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DECODE-REG-MODE*) (UNION (UNION (B-NOT$NETLIST) (B-NOR$NETLIST)) (ID$NETLIST)))) LISP-CODE *1*DECODE-REG-MODE$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*DECODE-REG-MODE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CONTROL-LET$NETLIST) EVENT (DEFN DECODE-REG-MODE$NETLIST NIL (CONS (DECODE-REG-MODE*) (UNION (UNION (B-NOT$NETLIST) (B-NOR$NETLIST)) (ID$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$NETLIST . DECODE-REG-MODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . DECODE-REG-MODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . DECODE-REG-MODE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE* . DECODE-REG-MODE$NETLIST) (DCELL . *1*DECODE-REG-MODE$NETLIST))))) (PUT1-LST (QUOTE DECODE-REG-MODE&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE DECODE-REG-MODE&-OFF DECODE-REG-MODE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE& . DECODE-REG-MODE&-OFF) (DISABLED-LEMMAS NIL DECODE-REG-MODE& DECODE-REG-MODE&-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE&) (QUOTE (MAIN-EVENT DECODE-REG-MODE&))) (PUT1-LST (QUOTE DECODE-REG-MODE&) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-REG-MODE& 3 NIL)) TOTALP-LST ((DECODE-REG-MODE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DECODE-REG-MODE) NETLIST) (DECODE-REG-MODE*)) (IF (B-NOT& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)) (ID& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DECODE-REG-MODE& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*DECODE-REG-MODE&) IMMEDIATE-DEPENDENTS0 (CONTROL-LET& DECODE-REG-MODE$VALUE DECODE-REG-MODE&-OFF) EVENT (DEFN DECODE-REG-MODE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DECODE-REG-MODE) NETLIST) (DECODE-REG-MODE*)) (AND (B-NOT& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)) (ID& (DELETE-MODULE (QUOTE DECODE-REG-MODE) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . DECODE-REG-MODE&) (IMMEDIATE-DEPENDENTS0 B-NOR& . DECODE-REG-MODE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DECODE-REG-MODE&) (IMMEDIATE-DEPENDENTS0 B-NOT& . DECODE-REG-MODE&) (IMMEDIATE-DEPENDENTS0 DECODE-REG-MODE* . DECODE-REG-MODE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DECODE-REG-MODE&) (DCELL . *1*DECODE-REG-MODE&))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE*) (QUOTE (MAIN-EVENT DECODE-REG-MODE*))) (PUT1-LST (QUOTE DECODE-REG-MODE*) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-REG-MODE* 16)) TOTALP-LST ((DECODE-REG-MODE* . T)) SDEFN (LAMBDA NIL (QUOTE (DECODE-REG-MODE (M0 M1) (DIRECT PRE-DEC SIDE-EFFECT) ((G0 (DIRECT) B-NOR (M0 M1)) (G1 (M1-) B-NOT (M1)) (G2 (PRE-DEC) B-NOR (M0 M1-)) (G3 (SIDE-EFFECT) ID (M1))) NIL))) LISP-CODE *1*DECODE-REG-MODE* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*DECODE-REG-MODE*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST DECODE-REG-MODE$VALUE DECODE-REG-MODE$NETLIST DECODE-REG-MODE&) EVENT (DEFN DECODE-REG-MODE* NIL (QUOTE (DECODE-REG-MODE (M0 M1) (DIRECT PRE-DEC SIDE-EFFECT) ((G0 (DIRECT) B-NOR (M0 M1)) (G1 (M1-) B-NOT (M1)) (G2 (PRE-DEC) B-NOR (M0 M1-)) (G3 (SIDE-EFFECT) ID (M1))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DECODE-REG-MODE*))))) (PUT1-LST (QUOTE F$DECODE-REG-MODE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE F$DECODE-REG-MODE-OFF F$DECODE-REG-MODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-REG-MODE . F$DECODE-REG-MODE-OFF) (DISABLED-LEMMAS NIL F$DECODE-REG-MODE F$DECODE-REG-MODE-OFF . T))))) (PUT1-LST (QUOTE *1*F$DECODE-REG-MODE) (QUOTE (MAIN-EVENT F$DECODE-REG-MODE))) (PUT1-LST (QUOTE F$DECODE-REG-MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DECODE-REG-MODE 16 NIL)) LEMMAS ((REWRITE-RULE F$DECODE-REG-MODE-AS-REG-MODE ((BVP MODE) (EQUAL (LENGTH MODE) (QUOTE 2))) (EQUAL (F$DECODE-REG-MODE MODE) (IF (PRE-DEC-P MODE) (CONS (REG-DIRECT-P MODE) (QUOTE (*1*TRUE *1*TRUE))) (CONS (REG-DIRECT-P MODE) (CONS (QUOTE *1*FALSE) (CONS (POST-INC-P MODE) (QUOTE NIL)))))) NIL)) TOTALP-LST ((F$DECODE-REG-MODE . T)) SDEFN (LAMBDA (M) (CONS (F-NOR (CAR M) (CAR (CDR M))) (CONS (F-NOR (CAR M) (F-NOT (CAR (CDR M)))) (CONS (ID (CAR (CDR M))) (QUOTE NIL))))) LISP-CODE *1*F$DECODE-REG-MODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*F$DECODE-REG-MODE) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE F$DECODE-REG-MODE-OFF) EVENT (DEFN F$DECODE-REG-MODE (M) (CONS (F-NOR (CAR M) (CAR (CDR M))) (CONS (F-NOR (CAR M) (F-NOT (CAR (CDR M)))) (CONS (ID (CAR (CDR M))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID . F$DECODE-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DECODE-REG-MODE) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-REG-MODE) (DCELL . *1*F$DECODE-REG-MODE))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P$VALUE-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE UNARY-OP-CODE-P$VALUE-OFF UNARY-OP-CODE-P$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P$VALUE . UNARY-OP-CODE-P$VALUE-OFF) (DISABLED-LEMMAS NIL UNARY-OP-CODE-P$VALUE UNARY-OP-CODE-P$VALUE-OFF . T))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P$VALUE) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE UNARY-OP-CODE-P$VALUE-OFF) EVENT (PROVE-LEMMA UNARY-OP-CODE-P$VALUE (REWRITE) (IMPLIES (UNARY-OP-CODE-P& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE UNARY-OP-CODE-P) OP-CODE STATE NETLIST) (CONS (F$UNARY-OP-CODE-P OP-CODE) (QUOTE NIL)))) ((ENABLE UNARY-OP-CODE-P& F$UNARY-OP-CODE-P B-NOT$VALUE B-NAND$VALUE B-NAND3$VALUE B-NAND4$VALUE LIST-ELIM-4) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P* . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 F$UNARY-OP-CODE-P . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . UNARY-OP-CODE-P$VALUE) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P& . UNARY-OP-CODE-P$VALUE) (LEMMAS DUAL-EVAL . UNARY-OP-CODE-P$VALUE))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P$NETLIST) (QUOTE (MAIN-EVENT UNARY-OP-CODE-P$NETLIST))) (PUT1-LST (QUOTE UNARY-OP-CODE-P$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((UNARY-OP-CODE-P$NETLIST 16)) TOTALP-LST ((UNARY-OP-CODE-P$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (UNARY-OP-CODE-P*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-NAND4$NETLIST)))) LISP-CODE *1*UNARY-OP-CODE-P$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194059 SATELLITES (*1*UNARY-OP-CODE-P$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CONTROL-LET$NETLIST) EVENT (DEFN UNARY-OP-CODE-P$NETLIST NIL (CONS (UNARY-OP-CODE-P*) (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-NAND4$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . UNARY-OP-CODE-P$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . UNARY-OP-CODE-P$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . UNARY-OP-CODE-P$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . UNARY-OP-CODE-P$NETLIST) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P* . UNARY-OP-CODE-P$NETLIST) (DCELL . *1*UNARY-OP-CODE-P$NETLIST))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P&-OFF) (QUOTE (IDATE 1000402194059 EVENT (TOGGLE UNARY-OP-CODE-P&-OFF UNARY-OP-CODE-P& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P& . UNARY-OP-CODE-P&-OFF) (DISABLED-LEMMAS NIL UNARY-OP-CODE-P& UNARY-OP-CODE-P&-OFF . T))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P&) (QUOTE (MAIN-EVENT UNARY-OP-CODE-P&))) (PUT1-LST (QUOTE UNARY-OP-CODE-P&) (QUOTE (TYPE-PRESCRIPTION-LST ((UNARY-OP-CODE-P& 3 NIL)) TOTALP-LST ((UNARY-OP-CODE-P& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST) (UNARY-OP-CODE-P*)) (IF (B-NOT& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (B-NAND4& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*UNARY-OP-CODE-P& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194059 SATELLITES (*1*UNARY-OP-CODE-P&) IMMEDIATE-DEPENDENTS0 (CONTROL-LET& UNARY-OP-CODE-P$VALUE UNARY-OP-CODE-P&-OFF) EVENT (DEFN UNARY-OP-CODE-P& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST) (UNARY-OP-CODE-P*)) (AND (B-NOT& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST)) (B-NAND4& (DELETE-MODULE (QUOTE UNARY-OP-CODE-P) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4& . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 B-NAND& . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 B-NOT& . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P* . UNARY-OP-CODE-P&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . UNARY-OP-CODE-P&) (DCELL . *1*UNARY-OP-CODE-P&))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P*) (QUOTE (MAIN-EVENT UNARY-OP-CODE-P*))) (PUT1-LST (QUOTE UNARY-OP-CODE-P*) (QUOTE (TYPE-PRESCRIPTION-LST ((UNARY-OP-CODE-P* 16)) TOTALP-LST ((UNARY-OP-CODE-P* . T)) SDEFN (LAMBDA NIL (QUOTE (UNARY-OP-CODE-P (OP0 OP1 OP2 OP3) (Z) ((G0 (OP0-) B-NOT (OP0)) (G1 (OP1-) B-NOT (OP1)) (G2 (OP2-) B-NOT (OP2)) (G3 (OP3-) B-NOT (OP3)) (G4 (S0) B-NAND (OP3- OP1-)) (G5 (S1) B-NAND (OP2- OP1-)) (G6 (S2) B-NAND3 (OP3 OP1 OP0-)) (G7 (S3) B-NAND3 (OP3 OP2 OP1)) (G8 (Z) B-NAND4 (S0 S1 S2 S3))) NIL))) LISP-CODE *1*UNARY-OP-CODE-P* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194059 SATELLITES (*1*UNARY-OP-CODE-P*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST UNARY-OP-CODE-P$VALUE UNARY-OP-CODE-P$NETLIST UNARY-OP-CODE-P&) EVENT (DEFN UNARY-OP-CODE-P* NIL (QUOTE (UNARY-OP-CODE-P (OP0 OP1 OP2 OP3) (Z) ((G0 (OP0-) B-NOT (OP0)) (G1 (OP1-) B-NOT (OP1)) (G2 (OP2-) B-NOT (OP2)) (G3 (OP3-) B-NOT (OP3)) (G4 (S0) B-NAND (OP3- OP1-)) (G5 (S1) B-NAND (OP2- OP1-)) (G6 (S2) B-NAND3 (OP3 OP1 OP0-)) (G7 (S3) B-NAND3 (OP3 OP2 OP1)) (G8 (Z) B-NAND4 (S0 S1 S2 S3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*UNARY-OP-CODE-P*))))) (PUT1-LST (QUOTE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (QUOTE (IDATE 1000402194059 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA F$UNARY-OP-CODE-P=UNARY-OP-CODE-P (REWRITE) (IMPLIES (AND (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4))) (EQUAL (F$UNARY-OP-CODE-P OP) (UNARY-OP-CODE-P OP))) ((ENABLE F$UNARY-OP-CODE-P UNARY-OP-CODE-P BVP-LENGTH BVP EQUAL-LENGTH-ADD1) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BOOLP . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 B-NAND . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 B-NAND3 . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 B-NAND4 . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 B-NOT . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F-GATES . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F$UNARY-OP-CODE-P . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 LENGTH . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 BVP . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P) (LEMMAS F$UNARY-OP-CODE-P . F$UNARY-OP-CODE-P=UNARY-OP-CODE-P))))) (PUT1-LST (QUOTE F$UNARY-OP-CODE-P-OFF) (QUOTE (IDATE 1000402194058 EVENT (TOGGLE F$UNARY-OP-CODE-P-OFF F$UNARY-OP-CODE-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$UNARY-OP-CODE-P . F$UNARY-OP-CODE-P-OFF) (DISABLED-LEMMAS NIL F$UNARY-OP-CODE-P F$UNARY-OP-CODE-P-OFF . T))))) (PUT1-LST (QUOTE *1*F$UNARY-OP-CODE-P) (QUOTE (MAIN-EVENT F$UNARY-OP-CODE-P))) (PUT1-LST (QUOTE F$UNARY-OP-CODE-P) (QUOTE (TYPE-PRESCRIPTION-LST ((F$UNARY-OP-CODE-P 131 NIL)) LEMMAS ((REWRITE-RULE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P ((BVP OP) (EQUAL (LENGTH OP) (QUOTE 4))) (EQUAL (F$UNARY-OP-CODE-P OP) (UNARY-OP-CODE-P OP)) NIL)) TOTALP-LST ((F$UNARY-OP-CODE-P . T)) SDEFN (LAMBDA (OP) (F-NAND4 (F-NAND (F-NOT (CAR (CDR (CDR (CDR OP))))) (F-NOT (CAR (CDR OP)))) (F-NAND (F-NOT (CAR (CDR (CDR OP)))) (F-NOT (CAR (CDR OP)))) (F-NAND3 (CAR (CDR (CDR (CDR OP)))) (CAR (CDR OP)) (F-NOT (CAR OP))) (F-NAND3 (CAR (CDR (CDR (CDR OP)))) (CAR (CDR (CDR OP))) (CAR (CDR OP))))) LISP-CODE *1*F$UNARY-OP-CODE-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194058 SATELLITES (*1*F$UNARY-OP-CODE-P) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET UNARY-OP-CODE-P$VALUE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$UNARY-OP-CODE-P-OFF) EVENT (DEFN F$UNARY-OP-CODE-P (OP) (F-NAND4 (F-NAND (F-NOT (CAR (CDR (CDR (CDR OP))))) (F-NOT (CAR (CDR OP)))) (F-NAND (F-NOT (CAR (CDR (CDR OP)))) (F-NOT (CAR (CDR OP)))) (F-NAND3 (CAR (CDR (CDR (CDR OP)))) (CAR (CDR OP)) (F-NOT (CAR OP))) (F-NAND3 (CAR (CDR (CDR (CDR OP)))) (CAR (CDR (CDR OP))) (CAR (CDR OP))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND3 . F$UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F-NOT . F$UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F-NAND . F$UNARY-OP-CODE-P) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F$UNARY-OP-CODE-P) (DCELL . *1*F$UNARY-OP-CODE-P))))) (PUT1-LST (QUOTE B-STORE-RESULTP$VALUE) (QUOTE (IDATE 1000402194058 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE) EVENT (PROVE-LEMMA B-STORE-RESULTP$VALUE (REWRITE) (IMPLIES (AND (B-STORE-RESULTP& NETLIST) (AND (PROPERP STORE-CC) (AND (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (AND (PROPERP STORE-CC) (EQUAL (LENGTH FLAGS) (QUOTE 4)))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-STORE-RESULTP) (APPEND STORE-CC FLAGS) STATE NETLIST) (CONS (F$B-STORE-RESULTP STORE-CC FLAGS) (QUOTE NIL)))) ((ENABLE B-STORE-RESULTP& F$B-STORE-RESULTP STORE-RESULTP-MUX$VALUE B-OR$VALUE B-XOR$VALUE EQUAL-LENGTH-ADD1) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX$VALUE . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP* . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 F$B-STORE-RESULTP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . B-STORE-RESULTP$VALUE) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP& . B-STORE-RESULTP$VALUE) (LEMMAS DUAL-EVAL . B-STORE-RESULTP$VALUE))))) (PUT1-LST (QUOTE B-STORE-RESULTP=STORE-RESULTP) (QUOTE (IDATE 1000402194058 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA B-STORE-RESULTP=STORE-RESULTP (REWRITE) (IMPLIES (AND (BVP STORE-CC) (AND (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (AND (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))))) (EQUAL (B-STORE-RESULTP STORE-CC FLAGS) (STORE-RESULTP STORE-CC FLAGS))) ((ENABLE BVP EQUAL-LENGTH-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP=STORE-RESULTP$HELP . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 LENGTH . B-STORE-RESULTP=STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP . B-STORE-RESULTP=STORE-RESULTP) (LEMMAS B-STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP))))) (PUT1-LST (QUOTE B-STORE-RESULTP=STORE-RESULTP$HELP) (QUOTE (IDATE 1000402194058 IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP=STORE-RESULTP) EVENT (PROVE-LEMMA B-STORE-RESULTP=STORE-RESULTP$HELP (REWRITE) (IMPLIES (AND (BOOLP S0) (AND (BOOLP S1) (AND (BOOLP S2) (AND (BOOLP S3) (AND (BOOLP S4) (AND (BOOLP S5) (AND (BOOLP S6) (BOOLP S7)))))))) (EQUAL (B-STORE-RESULTP (CONS S0 (CONS S1 (CONS S2 (CONS S3 (QUOTE NIL))))) (CONS S4 (CONS S5 (CONS S6 (CONS S7 (QUOTE NIL)))))) (STORE-RESULTP (CONS S0 (CONS S1 (CONS S2 (CONS S3 (QUOTE NIL))))) (CONS S4 (CONS S5 (CONS S6 (CONS S7 (QUOTE NIL)))))))) ((ENABLE B-STORE-RESULTP STORE-RESULTP BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP$HELP) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . B-STORE-RESULTP=STORE-RESULTP$HELP) (LEMMAS B-STORE-RESULTP . B-STORE-RESULTP=STORE-RESULTP$HELP))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP$NETLIST) (QUOTE (MAIN-EVENT B-STORE-RESULTP$NETLIST))) (PUT1-LST (QUOTE B-STORE-RESULTP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-STORE-RESULTP$NETLIST 16)) TOTALP-LST ((B-STORE-RESULTP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (B-STORE-RESULTP*) (UNION (UNION (B-OR$NETLIST) (STORE-RESULTP-MUX$NETLIST)) (B-XOR$NETLIST)))) LISP-CODE *1*B-STORE-RESULTP$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194057 SATELLITES (*1*B-STORE-RESULTP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CONTROL-LET$NETLIST) EVENT (DEFN B-STORE-RESULTP$NETLIST NIL (CONS (B-STORE-RESULTP*) (UNION (UNION (B-OR$NETLIST) (STORE-RESULTP-MUX$NETLIST)) (B-XOR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . B-STORE-RESULTP$NETLIST) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX$NETLIST . B-STORE-RESULTP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . B-STORE-RESULTP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP* . B-STORE-RESULTP$NETLIST) (DCELL . *1*B-STORE-RESULTP$NETLIST))))) (PUT1-LST (QUOTE B-STORE-RESULTP&-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE B-STORE-RESULTP&-OFF B-STORE-RESULTP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP& . B-STORE-RESULTP&-OFF) (DISABLED-LEMMAS NIL B-STORE-RESULTP& B-STORE-RESULTP&-OFF . T))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP&) (QUOTE (MAIN-EVENT B-STORE-RESULTP&))) (PUT1-LST (QUOTE B-STORE-RESULTP&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-STORE-RESULTP& 3 NIL)) TOTALP-LST ((B-STORE-RESULTP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE B-STORE-RESULTP) NETLIST) (B-STORE-RESULTP*)) (IF (B-OR& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)) (IF (STORE-RESULTP-MUX& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)) (B-XOR& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*B-STORE-RESULTP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194057 SATELLITES (*1*B-STORE-RESULTP&) IMMEDIATE-DEPENDENTS0 (CONTROL-LET& B-STORE-RESULTP$VALUE B-STORE-RESULTP&-OFF) EVENT (DEFN B-STORE-RESULTP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE B-STORE-RESULTP) NETLIST) (B-STORE-RESULTP*)) (AND (B-OR& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)) (AND (STORE-RESULTP-MUX& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)) (B-XOR& (DELETE-MODULE (QUOTE B-STORE-RESULTP) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR& . B-STORE-RESULTP&) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX& . B-STORE-RESULTP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . B-STORE-RESULTP&) (IMMEDIATE-DEPENDENTS0 B-OR& . B-STORE-RESULTP&) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP* . B-STORE-RESULTP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . B-STORE-RESULTP&) (DCELL . *1*B-STORE-RESULTP&))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP*) (QUOTE (MAIN-EVENT B-STORE-RESULTP*))) (PUT1-LST (QUOTE B-STORE-RESULTP*) (QUOTE (TYPE-PRESCRIPTION-LST ((B-STORE-RESULTP* 16)) TOTALP-LST ((B-STORE-RESULTP* . T)) SDEFN (LAMBDA NIL (QUOTE (B-STORE-RESULTP (S0 S1 S2 S3 Z N V C) (RESULT) ((G0 (CZ) B-OR (C Z)) (G1 (NV) B-XOR (N V)) (G2 (ZNV) B-OR (Z NV)) (G3 (MUX) STORE-RESULTP-MUX (S1 S2 S3 C V N Z CZ NV ZNV)) (G4 (RESULT) B-XOR (S0 MUX))) NIL))) LISP-CODE *1*B-STORE-RESULTP* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*B-STORE-RESULTP*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST B-STORE-RESULTP$VALUE B-STORE-RESULTP$NETLIST B-STORE-RESULTP&) EVENT (DEFN B-STORE-RESULTP* NIL (QUOTE (B-STORE-RESULTP (S0 S1 S2 S3 Z N V C) (RESULT) ((G0 (CZ) B-OR (C Z)) (G1 (NV) B-XOR (N V)) (G2 (ZNV) B-OR (Z NV)) (G3 (MUX) STORE-RESULTP-MUX (S1 S2 S3 C V N Z CZ NV ZNV)) (G4 (RESULT) B-XOR (S0 MUX))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-STORE-RESULTP*))))) (PUT1-LST (QUOTE F$B-STORE-RESULTP=B-STORE-RESULTP) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET) EVENT (PROVE-LEMMA F$B-STORE-RESULTP=B-STORE-RESULTP (REWRITE) (IMPLIES (AND (BVP STORE-CC) (AND (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (AND (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))))) (EQUAL (F$B-STORE-RESULTP STORE-CC FLAGS) (B-STORE-RESULTP STORE-CC FLAGS))) ((ENABLE F$B-STORE-RESULTP B-STORE-RESULTP BOOLP-B-GATES BVP-LENGTH) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$STORE-RESULTP-MUX=STORE-RESULTP-MUX . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 B-OR . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 F$B-STORE-RESULTP . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 LENGTH . F$B-STORE-RESULTP=B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 BVP . F$B-STORE-RESULTP=B-STORE-RESULTP) (LEMMAS F$B-STORE-RESULTP . F$B-STORE-RESULTP=B-STORE-RESULTP))))) (PUT1-LST (QUOTE F$B-STORE-RESULTP-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE F$B-STORE-RESULTP-OFF F$B-STORE-RESULTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$B-STORE-RESULTP . F$B-STORE-RESULTP-OFF) (DISABLED-LEMMAS NIL F$B-STORE-RESULTP F$B-STORE-RESULTP-OFF . T))))) (PUT1-LST (QUOTE *1*F$B-STORE-RESULTP) (QUOTE (MAIN-EVENT F$B-STORE-RESULTP))) (PUT1-LST (QUOTE F$B-STORE-RESULTP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$B-STORE-RESULTP 131 NIL NIL)) LEMMAS ((REWRITE-RULE F$B-STORE-RESULTP=B-STORE-RESULTP ((BVP STORE-CC) (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (EQUAL (F$B-STORE-RESULTP STORE-CC FLAGS) (B-STORE-RESULTP STORE-CC FLAGS)) NIL)) TOTALP-LST ((F$B-STORE-RESULTP . T)) SDEFN (LAMBDA (STORE-CC FLAGS) (F-XOR (CAR STORE-CC) (F$STORE-RESULTP-MUX (CAR (CDR STORE-CC)) (CAR (CDR (CDR STORE-CC))) (CAR (CDR (CDR (CDR STORE-CC)))) (CAR (CDR (CDR (CDR FLAGS)))) (CAR (CDR (CDR FLAGS))) (CAR (CDR FLAGS)) (CAR FLAGS) (F-OR (CAR (CDR (CDR (CDR FLAGS)))) (CAR FLAGS)) (F-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))) (F-OR (CAR FLAGS) (F-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))))))) LISP-CODE *1*F$B-STORE-RESULTP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*F$B-STORE-RESULTP) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET B-STORE-RESULTP$VALUE F$B-STORE-RESULTP=B-STORE-RESULTP F$B-STORE-RESULTP-OFF) EVENT (DEFN F$B-STORE-RESULTP (STORE-CC FLAGS) (F-XOR (CAR STORE-CC) (F$STORE-RESULTP-MUX (CAR (CDR STORE-CC)) (CAR (CDR (CDR STORE-CC))) (CAR (CDR (CDR (CDR STORE-CC)))) (CAR (CDR (CDR (CDR FLAGS)))) (CAR (CDR (CDR FLAGS))) (CAR (CDR FLAGS)) (CAR FLAGS) (F-OR (CAR (CDR (CDR (CDR FLAGS)))) (CAR FLAGS)) (F-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))) (F-OR (CAR FLAGS) (F-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F$B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 F$STORE-RESULTP-MUX . F$B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 F-XOR . F$B-STORE-RESULTP) (DCELL . *1*F$B-STORE-RESULTP))))) (PUT1-LST (QUOTE B-STORE-RESULTP-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE B-STORE-RESULTP-OFF B-STORE-RESULTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-STORE-RESULTP . B-STORE-RESULTP-OFF) (DISABLED-LEMMAS NIL B-STORE-RESULTP B-STORE-RESULTP-OFF . T))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP) (QUOTE (MAIN-EVENT B-STORE-RESULTP))) (PUT1-LST (QUOTE B-STORE-RESULTP) (QUOTE (TYPE-PRESCRIPTION-LST ((B-STORE-RESULTP 3 NIL NIL)) LEMMAS ((REWRITE-RULE B-STORE-RESULTP=STORE-RESULTP ((BVP STORE-CC) (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (EQUAL (B-STORE-RESULTP STORE-CC FLAGS) (STORE-RESULTP STORE-CC FLAGS)) NIL) (REWRITE-RULE B-STORE-RESULTP=STORE-RESULTP$HELP ((BOOLP S0) (BOOLP S1) (BOOLP S2) (BOOLP S3) (BOOLP S4) (BOOLP S5) (BOOLP S6) (BOOLP S7)) (EQUAL (B-STORE-RESULTP (CONS S0 (CONS S1 (CONS S2 (CONS S3 (QUOTE NIL))))) (CONS S4 (CONS S5 (CONS S6 (CONS S7 (QUOTE NIL)))))) (STORE-RESULTP (CONS S0 (CONS S1 (CONS S2 (CONS S3 (QUOTE NIL))))) (CONS S4 (CONS S5 (CONS S6 (CONS S7 (QUOTE NIL))))))) NIL)) TOTALP-LST ((B-STORE-RESULTP . T)) SDEFN (LAMBDA (STORE-CC FLAGS) (B-XOR (CAR STORE-CC) (STORE-RESULTP-MUX (CAR (CDR STORE-CC)) (CAR (CDR (CDR STORE-CC))) (CAR (CDR (CDR (CDR STORE-CC)))) (CAR (CDR (CDR (CDR FLAGS)))) (CAR (CDR (CDR FLAGS))) (CAR (CDR FLAGS)) (CAR FLAGS) (B-OR (CAR (CDR (CDR (CDR FLAGS)))) (CAR FLAGS)) (B-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))) (B-OR (CAR FLAGS) (B-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))))))) LISP-CODE *1*B-STORE-RESULTP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*B-STORE-RESULTP) IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP=STORE-RESULTP B-STORE-RESULTP=STORE-RESULTP$HELP F$B-STORE-RESULTP=B-STORE-RESULTP B-STORE-RESULTP-OFF) EVENT (DEFN B-STORE-RESULTP (STORE-CC FLAGS) (B-XOR (CAR STORE-CC) (STORE-RESULTP-MUX (CAR (CDR STORE-CC)) (CAR (CDR (CDR STORE-CC))) (CAR (CDR (CDR (CDR STORE-CC)))) (CAR (CDR (CDR (CDR FLAGS)))) (CAR (CDR (CDR FLAGS))) (CAR (CDR FLAGS)) (CAR FLAGS) (B-OR (CAR (CDR (CDR (CDR FLAGS)))) (CAR FLAGS)) (B-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))) (B-OR (CAR FLAGS) (B-XOR (CAR (CDR FLAGS)) (CAR (CDR (CDR FLAGS)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX . B-STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 B-XOR . B-STORE-RESULTP) (DCELL . *1*B-STORE-RESULTP))))) (PUT1-LST (QUOTE F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (F$B-STORE-RESULTP=B-STORE-RESULTP) EVENT (PROVE-LEMMA F$STORE-RESULTP-MUX=STORE-RESULTP-MUX (REWRITE) (IMPLIES (AND (BOOLP S0) (AND (BOOLP S1) (AND (BOOLP S2) (AND (BOOLP D0) (AND (BOOLP D1) (AND (BOOLP D2) (AND (BOOLP D3) (AND (BOOLP D4) (AND (BOOLP D5) (BOOLP D6)))))))))) (EQUAL (F$STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6))) ((ENABLE BOOLP-B-GATES F$STORE-RESULTP-MUX STORE-RESULTP-MUX) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$AO2 . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 AO2 . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 F-GATES . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 B-GATES . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 F$STORE-RESULTP-MUX . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 BOOLP . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) (LEMMAS F$STORE-RESULTP-MUX . F$STORE-RESULTP-MUX=STORE-RESULTP-MUX))))) (PUT1-LST (QUOTE STORE-RESULTP-MUX$VALUE-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE STORE-RESULTP-MUX$VALUE-OFF STORE-RESULTP-MUX$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX$VALUE . STORE-RESULTP-MUX$VALUE-OFF) (DISABLED-LEMMAS NIL STORE-RESULTP-MUX$VALUE STORE-RESULTP-MUX$VALUE-OFF . T))))) (PUT1-LST (QUOTE STORE-RESULTP-MUX$VALUE) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE-OFF) EVENT (PROVE-LEMMA STORE-RESULTP-MUX$VALUE (REWRITE) (IMPLIES (STORE-RESULTP-MUX& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE STORE-RESULTP-MUX) (CONS S0 (CONS S1 (CONS S2 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (QUOTE NIL))))))))))) STATE NETLIST) (CONS (F$STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (QUOTE NIL)))) ((ENABLE STORE-RESULTP-MUX& F$STORE-RESULTP-MUX B-NAND$VALUE B-NOT$VALUE AO2$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 AO2$VALUE . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 F$AO2 . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX* . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 F$STORE-RESULTP-MUX . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . STORE-RESULTP-MUX$VALUE) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX& . STORE-RESULTP-MUX$VALUE) (LEMMAS DUAL-EVAL . STORE-RESULTP-MUX$VALUE))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX$NETLIST) (QUOTE (MAIN-EVENT STORE-RESULTP-MUX$NETLIST))) (PUT1-LST (QUOTE STORE-RESULTP-MUX$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-RESULTP-MUX$NETLIST 16)) TOTALP-LST ((STORE-RESULTP-MUX$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (STORE-RESULTP-MUX*) (UNION (UNION (B-NAND$NETLIST) (B-NOT$NETLIST)) (AO2$NETLIST)))) LISP-CODE *1*STORE-RESULTP-MUX$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194057 SATELLITES (*1*STORE-RESULTP-MUX$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST B-STORE-RESULTP$NETLIST) EVENT (DEFN STORE-RESULTP-MUX$NETLIST NIL (CONS (STORE-RESULTP-MUX*) (UNION (UNION (B-NAND$NETLIST) (B-NOT$NETLIST)) (AO2$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2$NETLIST . STORE-RESULTP-MUX$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . STORE-RESULTP-MUX$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . STORE-RESULTP-MUX$NETLIST) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX* . STORE-RESULTP-MUX$NETLIST) (DCELL . *1*STORE-RESULTP-MUX$NETLIST))))) (PUT1-LST (QUOTE STORE-RESULTP-MUX&-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE STORE-RESULTP-MUX&-OFF STORE-RESULTP-MUX& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX& . STORE-RESULTP-MUX&-OFF) (DISABLED-LEMMAS NIL STORE-RESULTP-MUX& STORE-RESULTP-MUX&-OFF . T))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX&) (QUOTE (MAIN-EVENT STORE-RESULTP-MUX&))) (PUT1-LST (QUOTE STORE-RESULTP-MUX&) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-RESULTP-MUX& 3 NIL)) TOTALP-LST ((STORE-RESULTP-MUX& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST) (STORE-RESULTP-MUX*)) (IF (B-NAND& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)) (AO2& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*STORE-RESULTP-MUX& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194057 SATELLITES (*1*STORE-RESULTP-MUX&) IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP& STORE-RESULTP-MUX$VALUE STORE-RESULTP-MUX&-OFF) EVENT (DEFN STORE-RESULTP-MUX& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST) (STORE-RESULTP-MUX*)) (AND (B-NAND& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)) (AO2& (DELETE-MODULE (QUOTE STORE-RESULTP-MUX) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2& . STORE-RESULTP-MUX&) (IMMEDIATE-DEPENDENTS0 B-NOT& . STORE-RESULTP-MUX&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . STORE-RESULTP-MUX&) (IMMEDIATE-DEPENDENTS0 B-NAND& . STORE-RESULTP-MUX&) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP-MUX* . STORE-RESULTP-MUX&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . STORE-RESULTP-MUX&) (DCELL . *1*STORE-RESULTP-MUX&))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX*) (QUOTE (MAIN-EVENT STORE-RESULTP-MUX*))) (PUT1-LST (QUOTE STORE-RESULTP-MUX*) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-RESULTP-MUX* 16)) TOTALP-LST ((STORE-RESULTP-MUX* . T)) SDEFN (LAMBDA NIL (QUOTE (STORE-RESULTP-MUX (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (W-13) ((G-10 (W-10) B-NOT (S0)) (G-11 (W-11) B-NAND (W-10 D6)) (G-9 (W-9) AO2 (W-10 D4 S0 D5)) (G-7 (W-7) B-NOT (S1)) (G-12 (W-12) AO2 (W-7 W-9 S1 W-11)) (G-5 (W-5) AO2 (W-10 D2 S0 D3)) (G-3 (W-3) AO2 (W-10 D0 S0 D1)) (G-6 (W-6) AO2 (W-7 W-3 S1 W-5)) (G-0 (W-0) B-NOT (S2)) (G-13 (W-13) AO2 (W-0 W-6 S2 W-12))) NIL))) LISP-CODE *1*STORE-RESULTP-MUX* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*STORE-RESULTP-MUX*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST STORE-RESULTP-MUX$VALUE STORE-RESULTP-MUX$NETLIST STORE-RESULTP-MUX&) EVENT (DEFN STORE-RESULTP-MUX* NIL (QUOTE (STORE-RESULTP-MUX (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (W-13) ((G-10 (W-10) B-NOT (S0)) (G-11 (W-11) B-NAND (W-10 D6)) (G-9 (W-9) AO2 (W-10 D4 S0 D5)) (G-7 (W-7) B-NOT (S1)) (G-12 (W-12) AO2 (W-7 W-9 S1 W-11)) (G-5 (W-5) AO2 (W-10 D2 S0 D3)) (G-3 (W-3) AO2 (W-10 D0 S0 D1)) (G-6 (W-6) AO2 (W-7 W-3 S1 W-5)) (G-0 (W-0) B-NOT (S2)) (G-13 (W-13) AO2 (W-0 W-6 S2 W-12))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*STORE-RESULTP-MUX*))))) (PUT1-LST (QUOTE F$STORE-RESULTP-MUX-OFF) (QUOTE (IDATE 1000402194057 EVENT (TOGGLE F$STORE-RESULTP-MUX-OFF F$STORE-RESULTP-MUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$STORE-RESULTP-MUX . F$STORE-RESULTP-MUX-OFF) (DISABLED-LEMMAS NIL F$STORE-RESULTP-MUX F$STORE-RESULTP-MUX-OFF . T))))) (PUT1-LST (QUOTE *1*F$STORE-RESULTP-MUX) (QUOTE (MAIN-EVENT F$STORE-RESULTP-MUX))) (PUT1-LST (QUOTE F$STORE-RESULTP-MUX) (QUOTE (TYPE-PRESCRIPTION-LST ((F$STORE-RESULTP-MUX 131 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$STORE-RESULTP-MUX=STORE-RESULTP-MUX ((BOOLP S0) (BOOLP S1) (BOOLP S2) (BOOLP D0) (BOOLP D1) (BOOLP D2) (BOOLP D3) (BOOLP D4) (BOOLP D5) (BOOLP D6)) (EQUAL (F$STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6)) NIL)) TOTALP-LST ((F$STORE-RESULTP-MUX . T)) SDEFN (LAMBDA (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (F$AO2 (F-NOT S2) (F$AO2 (F-NOT S1) (F$AO2 (F-NOT S0) D0 S0 D1) S1 (F$AO2 (F-NOT S0) D2 S0 D3)) S2 (F$AO2 (F-NOT S1) (F$AO2 (F-NOT S0) D4 S0 D5) S1 (F-NAND (F-NOT S0) D6)))) LISP-CODE *1*F$STORE-RESULTP-MUX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*F$STORE-RESULTP-MUX) IMMEDIATE-DEPENDENTS0 (F$B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX$VALUE F$STORE-RESULTP-MUX-OFF) EVENT (DEFN F$STORE-RESULTP-MUX (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (F$AO2 (F-NOT S2) (F$AO2 (F-NOT S1) (F$AO2 (F-NOT S0) D0 S0 D1) S1 (F$AO2 (F-NOT S0) D2 S0 D3)) S2 (F$AO2 (F-NOT S1) (F$AO2 (F-NOT S0) D4 S0 D5) S1 (F-NAND (F-NOT S0) D6)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 F-NOT . F$STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 F$AO2 . F$STORE-RESULTP-MUX) (DCELL . *1*F$STORE-RESULTP-MUX))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX) (QUOTE (MAIN-EVENT STORE-RESULTP-MUX))) (PUT1-LST (QUOTE STORE-RESULTP-MUX) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-RESULTP-MUX 3 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((STORE-RESULTP-MUX . T)) SDEFN (LAMBDA (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (AO2 (B-NOT S2) (AO2 (B-NOT S1) (AO2 (B-NOT S0) D0 S0 D1) S1 (AO2 (B-NOT S0) D2 S0 D3)) S2 (AO2 (B-NOT S1) (AO2 (B-NOT S0) D4 S0 D5) S1 (B-NAND (B-NOT S0) D6)))) LISP-CODE *1*STORE-RESULTP-MUX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*STORE-RESULTP-MUX) IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX) EVENT (DEFN STORE-RESULTP-MUX (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (AO2 (B-NOT S2) (AO2 (B-NOT S1) (AO2 (B-NOT S0) D0 S0 D1) S1 (AO2 (B-NOT S0) D2 S0 D3)) S2 (AO2 (B-NOT S1) (AO2 (B-NOT S0) D4 S0 D5) S1 (B-NAND (B-NOT S0) D6)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 B-NOT . STORE-RESULTP-MUX) (IMMEDIATE-DEPENDENTS0 AO2 . STORE-RESULTP-MUX) (DCELL . *1*STORE-RESULTP-MUX))))) (PUT1-LST (QUOTE *1*ASM-AND-FM9001) (QUOTE (MAIN-EVENT ASM-AND-FM9001))) (PUT1-LST (QUOTE ASM-AND-FM9001) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-AND-FM9001 16 NIL NIL)) TOTALP-LST ((ASM-AND-FM9001)) SDEFN (LAMBDA (N PROGRAM) (EXECUTE-FM9001 N (LIST-TO-MEM (ASM PROGRAM) (QUOTE 32) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) LISP-CODE *1*ASM-AND-FM9001 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194057 SATELLITES (*1*ASM-AND-FM9001) EVENT (DEFN ASM-AND-FM9001 (N PROGRAM) (EXECUTE-FM9001 N (LIST-TO-MEM (ASM PROGRAM) (QUOTE 32) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . ASM-AND-FM9001) (IMMEDIATE-DEPENDENTS0 ASM . ASM-AND-FM9001) (IMMEDIATE-DEPENDENTS0 LIST-TO-MEM . ASM-AND-FM9001) (IMMEDIATE-DEPENDENTS0 EXECUTE-FM9001 . ASM-AND-FM9001) (DCELL . *1*ASM-AND-FM9001))))) (PUT1-LST (QUOTE *1*EXECUTE-FM9001) (QUOTE (MAIN-EVENT EXECUTE-FM9001))) (PUT1-LST (QUOTE EXECUTE-FM9001) (QUOTE (TYPE-PRESCRIPTION-LST ((EXECUTE-FM9001 16 NIL NIL)) TOTALP-LST ((EXECUTE-FM9001 . T)) SDEFN (LAMBDA (N TREE-PGM) (UN-FM9001 (FM9001 (CONS (CONS (LIST-TO-MEM (MAKE-LIST (QUOTE 15) (NAT-TO-V (QUOTE 0) (QUOTE 32))) (QUOTE 4) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (QUOTE ((*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) (CONS TREE-PGM (QUOTE NIL))) N))) LISP-CODE *1*EXECUTE-FM9001 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194057 SATELLITES (*1*EXECUTE-FM9001) IMMEDIATE-DEPENDENTS0 (ASM-AND-FM9001) EVENT (DEFN EXECUTE-FM9001 (N TREE-PGM) (UN-FM9001 (FM9001 (CONS (CONS (LIST-TO-MEM (MAKE-LIST (QUOTE 15) (NAT-TO-V (QUOTE 0) (QUOTE 32))) (QUOTE 4) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (QUOTE ((*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) (CONS TREE-PGM (QUOTE NIL))) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V . EXECUTE-FM9001) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . EXECUTE-FM9001) (IMMEDIATE-DEPENDENTS0 LIST-TO-MEM . EXECUTE-FM9001) (IMMEDIATE-DEPENDENTS0 FM9001 . EXECUTE-FM9001) (IMMEDIATE-DEPENDENTS0 UN-FM9001 . EXECUTE-FM9001) (DCELL . *1*EXECUTE-FM9001))))) (PUT1-LST (QUOTE *1*UN-FM9001) (QUOTE (MAIN-EVENT UN-FM9001))) (PUT1-LST (QUOTE UN-FM9001) (QUOTE (TYPE-PRESCRIPTION-LST ((UN-FM9001 16 NIL)) TOTALP-LST ((UN-FM9001 . T)) SDEFN (LAMBDA (STATE) (CONS (CONS (V-TO-NAT-ALL (MEM-TO-LIST (REGS (CAR STATE)))) (CONS (Z-FLAG (FLAGS (CAR STATE))) (CONS (N-FLAG (FLAGS (CAR STATE))) (CONS (V-FLAG (FLAGS (CAR STATE))) (CONS (C-FLAG (FLAGS (CAR STATE))) (QUOTE NIL)))))) (CONS (V-TO-HEX-ALL (MEM-TO-LIST (CAR (CDR STATE)))) (QUOTE NIL)))) LISP-CODE *1*UN-FM9001 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194057 SATELLITES (*1*UN-FM9001) IMMEDIATE-DEPENDENTS0 (EXECUTE-FM9001) EVENT (DEFN UN-FM9001 (STATE) (CONS (CONS (V-TO-NAT-ALL (MEM-TO-LIST (REGS (CAR STATE)))) (CONS (Z-FLAG (FLAGS (CAR STATE))) (CONS (N-FLAG (FLAGS (CAR STATE))) (CONS (V-FLAG (FLAGS (CAR STATE))) (CONS (C-FLAG (FLAGS (CAR STATE))) (QUOTE NIL)))))) (CONS (V-TO-HEX-ALL (MEM-TO-LIST (CAR (CDR STATE)))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-HEX-ALL . UN-FM9001) (IMMEDIATE-DEPENDENTS0 C-FLAG . UN-FM9001) (IMMEDIATE-DEPENDENTS0 V-FLAG . UN-FM9001) (IMMEDIATE-DEPENDENTS0 N-FLAG . UN-FM9001) (IMMEDIATE-DEPENDENTS0 FLAGS . UN-FM9001) (IMMEDIATE-DEPENDENTS0 Z-FLAG . UN-FM9001) (IMMEDIATE-DEPENDENTS0 REGS . UN-FM9001) (IMMEDIATE-DEPENDENTS0 MEM-TO-LIST . UN-FM9001) (IMMEDIATE-DEPENDENTS0 V-TO-NAT-ALL . UN-FM9001) (DCELL . *1*UN-FM9001))))) (PUT1-LST (QUOTE *1*MEM-TO-LIST) (QUOTE (MAIN-EVENT MEM-TO-LIST))) (PUT1-LST (QUOTE MEM-TO-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-TO-LIST -1 T)) TOTALP-LST ((MEM-TO-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (MEM) (IF (LISTP MEM) (APPEND (MEM-TO-LIST (CAR MEM)) (MEM-TO-LIST (CDR MEM))) (IF (STUBP MEM) (QUOTE NIL) (IF (RAMP MEM) (CONS (RAM-GUTS MEM) (QUOTE NIL)) (IF (ROMP MEM) (CONS (ROM-GUTS MEM) (QUOTE NIL)) MEM))))) LISP-CODE *1*MEM-TO-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP MEM)) (((CDR MEM)) ((CAR MEM)))) (TESTS-AND-CASES ((NOT (LISTP MEM)) (STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (LISTP MEM)) (NOT (STUBP MEM)) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (LISTP MEM)) (NOT (STUBP MEM)) (NOT (RAMP MEM)) (ROMP MEM)) NIL) (TESTS-AND-CASES ((NOT (LISTP MEM)) (NOT (STUBP MEM)) (NOT (RAMP MEM)) (NOT (ROMP MEM))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*MEM-TO-LIST) IMMEDIATE-DEPENDENTS0 (UN-FM9001) EVENT (DEFN MEM-TO-LIST (MEM) (IF (LISTP MEM) (APPEND (MEM-TO-LIST (CAR MEM)) (MEM-TO-LIST (CDR MEM))) (IF (STUBP MEM) (QUOTE NIL) (IF (RAMP MEM) (CONS (RAM-GUTS MEM) (QUOTE NIL)) (IF (ROMP MEM) (CONS (ROM-GUTS MEM) (QUOTE NIL)) MEM))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM . MEM-TO-LIST) (IMMEDIATE-DEPENDENTS0 RAM . MEM-TO-LIST) (IMMEDIATE-DEPENDENTS0 STUB . MEM-TO-LIST) (DCELL . *1*MEM-TO-LIST))))) (PUT1-LST (QUOTE *1*LIST-TO-TREE-MEM) (QUOTE (MAIN-EVENT LIST-TO-TREE-MEM))) (PUT1-LST (QUOTE LIST-TO-TREE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-TO-TREE-MEM -1 NIL)) TOTALP-LST ((LIST-TO-TREE-MEM . T)) SDEFN (LAMBDA (MEM) (LIST-TO-MEM MEM (QUOTE 32) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) LISP-CODE *1*LIST-TO-TREE-MEM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*LIST-TO-TREE-MEM) EVENT (DEFN LIST-TO-TREE-MEM (MEM) (LIST-TO-MEM MEM (QUOTE 32) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . LIST-TO-TREE-MEM) (IMMEDIATE-DEPENDENTS0 LIST-TO-MEM . LIST-TO-TREE-MEM) (DCELL . *1*LIST-TO-TREE-MEM))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM) (QUOTE (MAIN-EVENT LIST-TO-MEM))) (PUT1-LST (QUOTE LIST-TO-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-TO-MEM -1 NIL NIL NIL)) TOTALP-LST ((LIST-TO-MEM . T)) SDEFN (LAMBDA (MEM SIZE DEFAULT) (IF (LESSP SIZE (ADD1 (LOG2 (LENGTH MEM)))) (QUOTE (LIST-TO-MEM= INSUFFICIENT-SIZE)) (STUB-RIGHT (LIST-TO-MEM1 MEM DEFAULT) (DIFFERENCE SIZE (ADD1 (LOG2 (LENGTH MEM)))) DEFAULT))) LISP-CODE *1*LIST-TO-MEM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*LIST-TO-MEM) IMMEDIATE-DEPENDENTS0 (ASM-AND-FM9001 EXECUTE-FM9001 LIST-TO-TREE-MEM) EVENT (DEFN LIST-TO-MEM (MEM SIZE DEFAULT) (IF (LESSP SIZE (ADD1 (LOG2 (LENGTH MEM)))) (QUOTE (LIST-TO-MEM= INSUFFICIENT-SIZE)) (STUB-RIGHT (LIST-TO-MEM1 MEM DEFAULT) (DIFFERENCE SIZE (ADD1 (LOG2 (LENGTH MEM)))) DEFAULT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-TO-MEM1 . LIST-TO-MEM) (IMMEDIATE-DEPENDENTS0 STUB-RIGHT . LIST-TO-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . LIST-TO-MEM) (IMMEDIATE-DEPENDENTS0 LOG2 . LIST-TO-MEM) (DCELL . *1*LIST-TO-MEM))))) (PUT1-LST (QUOTE *1*STUB-RIGHT) (QUOTE (MAIN-EVENT STUB-RIGHT))) (PUT1-LST (QUOTE STUB-RIGHT) (QUOTE (TYPE-PRESCRIPTION-LST ((STUB-RIGHT 16 T NIL NIL)) TOTALP-LST ((STUB-RIGHT . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (MEM LEVELS DEFAULT) (IF (EQUAL LEVELS (QUOTE 0)) MEM (IF (NUMBERP LEVELS) (CONS (STUB-RIGHT MEM (SUB1 LEVELS) DEFAULT) (STUB DEFAULT)) MEM))) LISP-CODE *1*STUB-RIGHT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP LEVELS)) NIL) (TESTS-AND-CASES ((NOT (ZEROP LEVELS))) ((MEM (SUB1 LEVELS) DEFAULT)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LEVELS) (COUNT LEVELS) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194057 CONTROLLER-POCKETS (2) SATELLITES (*1*STUB-RIGHT) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM) EVENT (DEFN STUB-RIGHT (MEM LEVELS DEFAULT) (IF (ZEROP LEVELS) MEM (CONS (STUB-RIGHT MEM (SUB1 LEVELS) DEFAULT) (STUB DEFAULT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . STUB-RIGHT) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . STUB-RIGHT) (DCELL . *1*STUB-RIGHT))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM1) (QUOTE (MAIN-EVENT LIST-TO-MEM1))) (PUT1-LST (QUOTE LIST-TO-MEM1) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-TO-MEM1 -1 NIL NIL)) TOTALP-LST ((LIST-TO-MEM1 . T)) SDEFN (LAMBDA (MEM DEFAULT) (LIST-TO-MEM2 (ADD-RAM-MARKER (APPEND MEM (MAKE-LIST (DIFFERENCE (EXP2 (ADD1 (LOG2 (LENGTH MEM)))) (LENGTH MEM)) DEFAULT))) (ADD1 (LOG2 (LENGTH MEM))))) LISP-CODE *1*LIST-TO-MEM1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*LIST-TO-MEM1) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM) EVENT (DEFN LIST-TO-MEM1 (MEM DEFAULT) (LIST-TO-MEM2 (ADD-RAM-MARKER (APPEND MEM (MAKE-LIST (DIFFERENCE (EXP2 (ADD1 (LOG2 (LENGTH MEM)))) (LENGTH MEM)) DEFAULT))) (ADD1 (LOG2 (LENGTH MEM))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . LIST-TO-MEM1) (IMMEDIATE-DEPENDENTS0 LOG2 . LIST-TO-MEM1) (IMMEDIATE-DEPENDENTS0 EXP2 . LIST-TO-MEM1) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . LIST-TO-MEM1) (IMMEDIATE-DEPENDENTS0 ADD-RAM-MARKER . LIST-TO-MEM1) (IMMEDIATE-DEPENDENTS0 LIST-TO-MEM2 . LIST-TO-MEM1) (DCELL . *1*LIST-TO-MEM1))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM2) (QUOTE (MAIN-EVENT LIST-TO-MEM2))) (PUT1-LST (QUOTE LIST-TO-MEM2) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-TO-MEM2 -1 NIL NIL)) TOTALP-LST ((LIST-TO-MEM2 . T)) SDEFN (LAMBDA (MEM DEPTH) (CAR (LIST-TO-MEM3 MEM DEPTH))) LISP-CODE *1*LIST-TO-MEM2 SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194057 SATELLITES (*1*LIST-TO-MEM2) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM1) EVENT (DEFN LIST-TO-MEM2 (MEM DEPTH) (CAR (LIST-TO-MEM3 MEM DEPTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-TO-MEM3 . LIST-TO-MEM2) (DCELL . *1*LIST-TO-MEM2))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM3) (QUOTE (MAIN-EVENT LIST-TO-MEM3))) (PUT1-LST (QUOTE LIST-TO-MEM3) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-TO-MEM3 24 T NIL)) TOTALP-LST ((LIST-TO-MEM3 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (MEM DEPTH) (IF (EQUAL DEPTH (QUOTE 0)) MEM (IF (NUMBERP DEPTH) (LIST-TO-MEM3 (MAKE-PAIRS MEM) (SUB1 DEPTH)) MEM))) LISP-CODE *1*LIST-TO-MEM3 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP DEPTH)) NIL) (TESTS-AND-CASES ((NOT (ZEROP DEPTH))) (((MAKE-PAIRS MEM) (SUB1 DEPTH))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (DEPTH) (COUNT DEPTH) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194057 CONTROLLER-POCKETS (2) SATELLITES (*1*LIST-TO-MEM3) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM2) EVENT (DEFN LIST-TO-MEM3 (MEM DEPTH) (IF (ZEROP DEPTH) MEM (LIST-TO-MEM3 (MAKE-PAIRS MEM) (SUB1 DEPTH)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-PAIRS . LIST-TO-MEM3) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LIST-TO-MEM3) (DCELL . *1*LIST-TO-MEM3))))) (PUT1-LST (QUOTE *1*ADD-RAM-MARKER) (QUOTE (MAIN-EVENT ADD-RAM-MARKER))) (PUT1-LST (QUOTE ADD-RAM-MARKER) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-RAM-MARKER 24 NIL)) TOTALP-LST ((ADD-RAM-MARKER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST-MEM) (IF (LISTP LIST-MEM) (CONS (RAM (CAR LIST-MEM)) (ADD-RAM-MARKER (CDR LIST-MEM))) (QUOTE NIL))) LISP-CODE *1*ADD-RAM-MARKER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST-MEM)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST-MEM))) (((CDR LIST-MEM))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LIST-MEM) (COUNT LIST-MEM) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-RAM-MARKER) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM1) EVENT (DEFN ADD-RAM-MARKER (LIST-MEM) (IF (NLISTP LIST-MEM) (QUOTE NIL) (CONS (RAM (CAR LIST-MEM)) (ADD-RAM-MARKER (CDR LIST-MEM))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . ADD-RAM-MARKER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ADD-RAM-MARKER) (DCELL . *1*ADD-RAM-MARKER))))) (PUT1-LST (QUOTE *1*MAKE-PAIRS) (QUOTE (MAIN-EVENT MAKE-PAIRS))) (PUT1-LST (QUOTE MAKE-PAIRS) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-PAIRS 24 NIL)) TOTALP-LST ((MAKE-PAIRS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (IF (LISTP (CDR LIST)) (CONS (CONS (CAR LIST) (CAR (CDR LIST))) (MAKE-PAIRS (CDR (CDR LIST)))) (QUOTE NIL)) (QUOTE NIL))) LISP-CODE *1*MAKE-PAIRS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP LIST) (NLISTP (CDR LIST)))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP LIST) (NLISTP (CDR LIST))))) (((CDR (CDR LIST)))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP OR ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*MAKE-PAIRS) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM3) EVENT (DEFN MAKE-PAIRS (LIST) (IF (OR (NLISTP LIST) (NLISTP (CDR LIST))) (QUOTE NIL) (CONS (CONS (CAR LIST) (CAR (CDR LIST))) (MAKE-PAIRS (CDR (CDR LIST)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAKE-PAIRS))))) (PUT1-LST (QUOTE *1*V-TO-HEX-ALL) (QUOTE (MAIN-EVENT V-TO-HEX-ALL))) (PUT1-LST (QUOTE V-TO-HEX-ALL) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-HEX-ALL 24 NIL)) TOTALP-LST ((V-TO-HEX-ALL . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (CONS (V-TO-HEX (CAR X)) (V-TO-HEX-ALL (CDR X))) (QUOTE NIL))) LISP-CODE *1*V-TO-HEX-ALL SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*V-TO-HEX-ALL) IMMEDIATE-DEPENDENTS0 (UN-FM9001) EVENT (DEFN V-TO-HEX-ALL (X) (IF (NLISTP X) (QUOTE NIL) (CONS (V-TO-HEX (CAR X)) (V-TO-HEX-ALL (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-HEX . V-TO-HEX-ALL) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-TO-HEX-ALL) (DCELL . *1*V-TO-HEX-ALL))))) (PUT1-LST (QUOTE *1*V-TO-HEX) (QUOTE (MAIN-EVENT V-TO-HEX))) (PUT1-LST (QUOTE V-TO-HEX) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-HEX 8 NIL)) TOTALP-LST ((V-TO-HEX . T)) SDEFN (LAMBDA (X) (PACK (CONS (CAR (UNPACK (QUOTE X))) (V-TO-0S-THROUGH-FS X (QUOTE 0))))) LISP-CODE *1*V-TO-HEX SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194057 SATELLITES (*1*V-TO-HEX) IMMEDIATE-DEPENDENTS0 (V-TO-HEX-ALL) EVENT (DEFN V-TO-HEX (X) (PACK (CONS (CAR (UNPACK (QUOTE X))) (V-TO-0S-THROUGH-FS X (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-0S-THROUGH-FS . V-TO-HEX) (DCELL . *1*V-TO-HEX))))) (PUT1-LST (QUOTE *1*V-TO-0S-THROUGH-FS) (QUOTE (MAIN-EVENT V-TO-0S-THROUGH-FS))) (PUT1-LST (QUOTE V-TO-0S-THROUGH-FS) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-0S-THROUGH-FS 16 NIL T)) TOTALP-LST ((V-TO-0S-THROUGH-FS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X COLLECT) (IF (LISTP X) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 0)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X0)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 1)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X1)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 2)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X2)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 3)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X3)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 4)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X4)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 5)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X5)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 6)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X6)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 7)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X7)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 8)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X8)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 9)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE X9)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 10)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XA)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 11)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XB)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 12)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XC)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 13)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XD)))) COLLECT)) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 14)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XE)))) COLLECT)) (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (CAR (CDR (UNPACK (QUOTE XF)))) COLLECT))))))))))))))))) COLLECT)) LISP-CODE *1*V-TO-0S-THROUGH-FS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR (CDR (CDR (CDR X)))) (CONS (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 0)) (CAR (CDR (UNPACK (QUOTE X0)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 1)) (CAR (CDR (UNPACK (QUOTE X1)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 2)) (CAR (CDR (UNPACK (QUOTE X2)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 3)) (CAR (CDR (UNPACK (QUOTE X3)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 4)) (CAR (CDR (UNPACK (QUOTE X4)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 5)) (CAR (CDR (UNPACK (QUOTE X5)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 6)) (CAR (CDR (UNPACK (QUOTE X6)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 7)) (CAR (CDR (UNPACK (QUOTE X7)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 8)) (CAR (CDR (UNPACK (QUOTE X8)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 9)) (CAR (CDR (UNPACK (QUOTE X9)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 10)) (CAR (CDR (UNPACK (QUOTE XA)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 11)) (CAR (CDR (UNPACK (QUOTE XB)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 12)) (CAR (CDR (UNPACK (QUOTE XC)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 13)) (CAR (CDR (UNPACK (QUOTE XD)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 14)) (CAR (CDR (UNPACK (QUOTE XE)))) (CAR (CDR (UNPACK (QUOTE XF))))))))))))))))))) COLLECT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*V-TO-0S-THROUGH-FS) IMMEDIATE-DEPENDENTS0 (V-TO-HEX) EVENT (DEFN V-TO-0S-THROUGH-FS (X COLLECT) (IF (NLISTP X) COLLECT (V-TO-0S-THROUGH-FS (CDR (CDR (CDR (CDR X)))) (CONS (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 0)) (CAR (CDR (UNPACK (QUOTE X0)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 1)) (CAR (CDR (UNPACK (QUOTE X1)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 2)) (CAR (CDR (UNPACK (QUOTE X2)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 3)) (CAR (CDR (UNPACK (QUOTE X3)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 4)) (CAR (CDR (UNPACK (QUOTE X4)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 5)) (CAR (CDR (UNPACK (QUOTE X5)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 6)) (CAR (CDR (UNPACK (QUOTE X6)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 7)) (CAR (CDR (UNPACK (QUOTE X7)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 8)) (CAR (CDR (UNPACK (QUOTE X8)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 9)) (CAR (CDR (UNPACK (QUOTE X9)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 10)) (CAR (CDR (UNPACK (QUOTE XA)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 11)) (CAR (CDR (UNPACK (QUOTE XB)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 12)) (CAR (CDR (UNPACK (QUOTE XC)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 13)) (CAR (CDR (UNPACK (QUOTE XD)))) (IF (EQUAL (V-TO-NAT (FIRSTN (QUOTE 4) X)) (QUOTE 14)) (CAR (CDR (UNPACK (QUOTE XE)))) (CAR (CDR (UNPACK (QUOTE XF))))))))))))))))))) COLLECT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . V-TO-0S-THROUGH-FS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-0S-THROUGH-FS) (DCELL . *1*V-TO-0S-THROUGH-FS))))) (PUT1-LST (QUOTE *1*V-TO-NAT-ALL) (QUOTE (MAIN-EVENT V-TO-NAT-ALL))) (PUT1-LST (QUOTE V-TO-NAT-ALL) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-NAT-ALL 24 NIL)) TOTALP-LST ((V-TO-NAT-ALL . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (CONS (V-TO-NAT (CAR X)) (V-TO-NAT-ALL (CDR X))) (QUOTE NIL))) LISP-CODE *1*V-TO-NAT-ALL SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*V-TO-NAT-ALL) IMMEDIATE-DEPENDENTS0 (UN-FM9001) EVENT (DEFN V-TO-NAT-ALL (X) (IF (NLISTP X) (QUOTE NIL) (CONS (V-TO-NAT (CAR X)) (V-TO-NAT-ALL (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-ALL) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-TO-NAT-ALL) (DCELL . *1*V-TO-NAT-ALL))))) (PUT1-LST (QUOTE *1*ASM-TO-1-AND-0) (QUOTE (MAIN-EVENT ASM-TO-1-AND-0))) (PUT1-LST (QUOTE ASM-TO-1-AND-0) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-TO-1-AND-0 24 NIL)) TOTALP-LST ((ASM-TO-1-AND-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (CONS (T-AND-F-TO-1-AND-0 (CAR LIST)) (ASM-TO-1-AND-0 (CDR LIST))) (QUOTE NIL))) LISP-CODE *1*ASM-TO-1-AND-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST))) (((CDR LIST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*ASM-TO-1-AND-0) EVENT (DEFN ASM-TO-1-AND-0 (LIST) (IF (NLISTP LIST) (QUOTE NIL) (CONS (T-AND-F-TO-1-AND-0 (CAR LIST)) (ASM-TO-1-AND-0 (CDR LIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-AND-F-TO-1-AND-0 . ASM-TO-1-AND-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ASM-TO-1-AND-0) (DCELL . *1*ASM-TO-1-AND-0))))) (PUT1-LST (QUOTE *1*T-AND-F-TO-1-AND-0) (QUOTE (MAIN-EVENT T-AND-F-TO-1-AND-0))) (PUT1-LST (QUOTE T-AND-F-TO-1-AND-0) (QUOTE (TYPE-PRESCRIPTION-LST ((T-AND-F-TO-1-AND-0 24 NIL)) TOTALP-LST ((T-AND-F-TO-1-AND-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (IF (FALSEP (CAR LIST)) (CONS (QUOTE 0) (T-AND-F-TO-1-AND-0 (CDR LIST))) (CONS (QUOTE 1) (T-AND-F-TO-1-AND-0 (CDR LIST)))) (QUOTE NIL))) LISP-CODE *1*T-AND-F-TO-1-AND-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST))) (((CDR LIST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*T-AND-F-TO-1-AND-0) IMMEDIATE-DEPENDENTS0 (ASM-TO-1-AND-0) EVENT (DEFN T-AND-F-TO-1-AND-0 (LIST) (IF (NLISTP LIST) (QUOTE NIL) (CONS (IF (FALSEP (CAR LIST)) (QUOTE 0) (QUOTE 1)) (T-AND-F-TO-1-AND-0 (CDR LIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . T-AND-F-TO-1-AND-0) (DCELL . *1*T-AND-F-TO-1-AND-0))))) (PUT1-LST (QUOTE *1*ASM) (QUOTE (MAIN-EVENT ASM))) (PUT1-LST (QUOTE ASM) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM 24 NIL)) TOTALP-LST ((ASM)) SDEFN (LAMBDA (LIST) (ASM-LIST (UPDATE-LIST LIST (RESOLVE-NAMES LIST (QUOTE 0) (QUOTE NIL))))) LISP-CODE *1*ASM SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194057 SATELLITES (*1*ASM) IMMEDIATE-DEPENDENTS0 (ASM-AND-FM9001) EVENT (DEFN ASM (LIST) (ASM-LIST (UPDATE-LIST LIST (RESOLVE-NAMES LIST (QUOTE 0) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESOLVE-NAMES . ASM) (IMMEDIATE-DEPENDENTS0 UPDATE-LIST . ASM) (IMMEDIATE-DEPENDENTS0 ASM-LIST . ASM) (DCELL . *1*ASM))))) (PUT1-LST (QUOTE *1*ASM-LIST) (QUOTE (MAIN-EVENT ASM-LIST))) (PUT1-LST (QUOTE ASM-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-LIST 24 NIL)) TOTALP-LST ((ASM-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (IF (LITATOM (CAR LIST)) (ASM-LIST (CDR LIST)) (CONS (ASM-LINE (CAR LIST)) (ASM-LIST (CDR LIST)))) (QUOTE NIL))) LISP-CODE *1*ASM-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST)) (LITATOM (CAR LIST))) (((CDR LIST)))) (TESTS-AND-CASES ((NOT (NLISTP LIST)) (NOT (LITATOM (CAR LIST)))) (((CDR LIST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*ASM-LIST) IMMEDIATE-DEPENDENTS0 (ASM) EVENT (DEFN ASM-LIST (LIST) (IF (NLISTP LIST) (QUOTE NIL) (IF (LITATOM (CAR LIST)) (ASM-LIST (CDR LIST)) (CONS (ASM-LINE (CAR LIST)) (ASM-LIST (CDR LIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASM-LINE . ASM-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ASM-LIST) (DCELL . *1*ASM-LIST))))) (PUT1-LST (QUOTE *1*ASM-LINE) (QUOTE (MAIN-EVENT ASM-LINE))) (PUT1-LST (QUOTE ASM-LINE) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-LINE 24 NIL)) TOTALP-LST ((ASM-LINE . T)) SDEFN (LAMBDA (LINE) (IF (INTP LINE) (INT-TO-BV LINE (QUOTE 32)) (APPEND (ASM-REGISTER-A (CAR (CDR (CDR (CDR (CDR LINE)))))) (APPEND (ASM-REGISTER (CAR (CDR (CDR (CDR LINE))))) (APPEND (ASM-FLAGS (CAR (CDR (CDR LINE)))) (APPEND (ASM-STORE-CC (CAR (CDR LINE))) (APPEND (ASM-OP-CODE (CAR LINE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))) LISP-CODE *1*ASM-LINE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*ASM-LINE) IMMEDIATE-DEPENDENTS0 (ASM-LIST) EVENT (DEFN ASM-LINE (LINE) (IF (INTP LINE) (INT-TO-BV LINE (QUOTE 32)) (APPEND (ASM-REGISTER-A (CAR (CDR (CDR (CDR (CDR LINE)))))) (APPEND (ASM-REGISTER (CAR (CDR (CDR (CDR LINE))))) (APPEND (ASM-FLAGS (CAR (CDR (CDR LINE)))) (APPEND (ASM-STORE-CC (CAR (CDR LINE))) (APPEND (ASM-OP-CODE (CAR LINE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASM-OP-CODE . ASM-LINE) (IMMEDIATE-DEPENDENTS0 ASM-STORE-CC . ASM-LINE) (IMMEDIATE-DEPENDENTS0 ASM-FLAGS . ASM-LINE) (IMMEDIATE-DEPENDENTS0 ASM-REGISTER . ASM-LINE) (IMMEDIATE-DEPENDENTS0 ASM-REGISTER-A . ASM-LINE) (IMMEDIATE-DEPENDENTS0 INT-TO-BV . ASM-LINE) (IMMEDIATE-DEPENDENTS0 INTP . ASM-LINE) (DCELL . *1*ASM-LINE))))) (PUT1-LST (QUOTE *1*UPDATE-LIST) (QUOTE (MAIN-EVENT UPDATE-LIST))) (PUT1-LST (QUOTE UPDATE-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-LIST 24 NIL NIL)) TOTALP-LST ((UPDATE-LIST)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LIST ALIST) (IF (LISTP LIST) (IF (LISTP (CAR LIST)) (IF (EQUAL (CAR (CAR LIST)) (QUOTE VALUE)) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CAR LIST))) ALIST) (UPDATE-LIST (CDR LIST) ALIST)) (CONS (CAR LIST) (UPDATE-LIST (CDR LIST) ALIST))) (CONS (CAR LIST) (UPDATE-LIST (CDR LIST) ALIST))) (QUOTE NIL))) LISP-CODE *1*UPDATE-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST))) (((CDR LIST) ALIST)))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*UPDATE-LIST) IMMEDIATE-DEPENDENTS0 (ASM) EVENT (DEFN UPDATE-LIST (LIST ALIST) (IF (NLISTP LIST) (QUOTE NIL) (CONS (IF (AND (LISTP (CAR LIST)) (EQUAL (CAR (CAR LIST)) (QUOTE VALUE))) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CAR LIST))) ALIST) (CAR LIST)) (UPDATE-LIST (CDR LIST) ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . UPDATE-LIST) (DCELL . *1*UPDATE-LIST))))) (PUT1-LST (QUOTE *1*RESOLVE-NAMES) (QUOTE (MAIN-EVENT RESOLVE-NAMES))) (PUT1-LST (QUOTE RESOLVE-NAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((RESOLVE-NAMES 16 NIL NIL T)) TOTALP-LST ((RESOLVE-NAMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (LIST CNT ALIST) (IF (LISTP LIST) (IF (LITATOM (CAR LIST)) (RESOLVE-NAMES (CDR LIST) CNT (CONS (CONS (CAR LIST) CNT) ALIST)) (RESOLVE-NAMES (CDR LIST) (ADD1 CNT) ALIST)) ALIST)) LISP-CODE *1*RESOLVE-NAMES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST)) (LITATOM (CAR LIST))) (((CDR LIST) CNT (CONS (CONS (CAR LIST) CNT) ALIST)))) (TESTS-AND-CASES ((NOT (NLISTP LIST)) (NOT (LITATOM (CAR LIST)))) (((CDR LIST) (ADD1 CNT) ALIST)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*RESOLVE-NAMES) IMMEDIATE-DEPENDENTS0 (ASM) EVENT (DEFN RESOLVE-NAMES (LIST CNT ALIST) (IF (NLISTP LIST) ALIST (IF (LITATOM (CAR LIST)) (RESOLVE-NAMES (CDR LIST) CNT (CONS (CONS (CAR LIST) CNT) ALIST)) (RESOLVE-NAMES (CDR LIST) (ADD1 CNT) ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . RESOLVE-NAMES) (DCELL . *1*RESOLVE-NAMES))))) (PUT1-LST (QUOTE *1*ASM-FLAGS) (QUOTE (MAIN-EVENT ASM-FLAGS))) (PUT1-LST (QUOTE ASM-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-FLAGS 16 NIL)) TOTALP-LST ((ASM-FLAGS . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE T)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (CONS (MEMBER (CAR (UNPACK (QUOTE Z))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE N))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE V))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE C))) (UNPACK X)) (QUOTE NIL))))))) LISP-CODE *1*ASM-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194057 SATELLITES (*1*ASM-FLAGS) IMMEDIATE-DEPENDENTS0 (ASM-LINE) EVENT (DEFN ASM-FLAGS (X) (IF (EQUAL X (QUOTE T)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (CONS (MEMBER (CAR (UNPACK (QUOTE Z))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE N))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE V))) (UNPACK X)) (CONS (MEMBER (CAR (UNPACK (QUOTE C))) (UNPACK X)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ASM-FLAGS))))) (PUT1-LST (QUOTE *1*ASM-STORE-CC) (QUOTE (MAIN-EVENT ASM-STORE-CC))) (PUT1-LST (QUOTE ASM-STORE-CC) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-STORE-CC 16 NIL)) TOTALP-LST ((ASM-STORE-CC . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE CC)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE CS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE VC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE VS)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE PL)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NC)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE MI)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NS)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NE)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ZC)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE EQ)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ZS)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE HI)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE GE)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LT)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE GT)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE LE)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE T)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE F)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))))))) LISP-CODE *1*ASM-STORE-CC SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*ASM-STORE-CC) IMMEDIATE-DEPENDENTS0 (ASM-LINE) EVENT (DEFN ASM-STORE-CC (X) (IF (EQUAL X (QUOTE CC)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE CS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE VC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE VS)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE PL)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NC)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE MI)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NS)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE NE)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ZC)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE EQ)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ZS)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE HI)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE GE)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LT)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE GT)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE LE)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE T)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE F)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ASM-STORE-CC))))) (PUT1-LST (QUOTE *1*ASM-OP-CODE) (QUOTE (MAIN-EVENT ASM-OP-CODE))) (PUT1-LST (QUOTE ASM-OP-CODE) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-OP-CODE 16 NIL)) TOTALP-LST ((ASM-OP-CODE . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE MOVE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE INC)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE ADDC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE ADD)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE NEG)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE DEC)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE SUBB)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE SUB)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ROR)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE ASR)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LSR)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE XOR)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE OR)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE AND)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE NOT)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE M15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))) LISP-CODE *1*ASM-OP-CODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*ASM-OP-CODE) IMMEDIATE-DEPENDENTS0 (ASM-LINE) EVENT (DEFN ASM-OP-CODE (X) (IF (EQUAL X (QUOTE MOVE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE INC)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE ADDC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE ADD)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE NEG)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE DEC)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE SUBB)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE SUB)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE ROR)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE ASR)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE LSR)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE XOR)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE OR)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE AND)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE NOT)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE M15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ASM-OP-CODE))))) (PUT1-LST (QUOTE *1*ASM-REGISTER-A) (QUOTE (MAIN-EVENT ASM-REGISTER-A))) (PUT1-LST (QUOTE ASM-REGISTER-A) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-REGISTER-A 16 NIL)) TOTALP-LST ((ASM-REGISTER-A . T)) SDEFN (LAMBDA (X) (IF (INTP X) (APPEND (INT-TO-BV X (QUOTE 9)) (QUOTE (*1*TRUE))) (APPEND (ASM-REGISTER X) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))) LISP-CODE *1*ASM-REGISTER-A SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*ASM-REGISTER-A) IMMEDIATE-DEPENDENTS0 (ASM-LINE) EVENT (DEFN ASM-REGISTER-A (X) (IF (INTP X) (APPEND (INT-TO-BV X (QUOTE 9)) (QUOTE (*1*TRUE))) (APPEND (ASM-REGISTER X) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASM-REGISTER . ASM-REGISTER-A) (IMMEDIATE-DEPENDENTS0 INT-TO-BV . ASM-REGISTER-A) (IMMEDIATE-DEPENDENTS0 INTP . ASM-REGISTER-A) (DCELL . *1*ASM-REGISTER-A))))) (PUT1-LST (QUOTE *1*ASM-REGISTER) (QUOTE (MAIN-EVENT ASM-REGISTER))) (PUT1-LST (QUOTE ASM-REGISTER) (QUOTE (TYPE-PRESCRIPTION-LST ((ASM-REGISTER 16 NIL)) TOTALP-LST ((ASM-REGISTER . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE R0)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R1)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R2)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R3)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R4)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R5)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R6)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R7)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R8)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R9)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R10)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R11)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R12)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R13)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE LNK)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R14)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE TOS)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE PC)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE (R0))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R1))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R2))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R3))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R4))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R5))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R6))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R7))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R8))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R9))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R10))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R11))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R12))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R13))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (LNK))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R14))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (TOS))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R15))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (PC))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R0-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R1-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R2-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R3-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R4-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R5-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R6-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R7-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R8-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R9-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R10-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R11-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R12-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R13-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (LNK-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R14-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (TOS-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R15-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (PC-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R0+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R1+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R2+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R3+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R4+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R5+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R6+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R7+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R8+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R9+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R10+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R11+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R12+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R13+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (LNK+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R14+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (TOS+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R15+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (PC+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) LISP-CODE *1*ASM-REGISTER SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*ASM-REGISTER) IMMEDIATE-DEPENDENTS0 (ASM-LINE ASM-REGISTER-A) EVENT (DEFN ASM-REGISTER (X) (IF (EQUAL X (QUOTE R0)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R1)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R2)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R3)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R4)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R5)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R6)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R7)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R8)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R9)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R10)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R11)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R12)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R13)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE LNK)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R14)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE TOS)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE R15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE PC)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)) (IF (EQUAL X (QUOTE (R0))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R1))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R2))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R3))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R4))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R5))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R6))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R7))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R8))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R9))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R10))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R11))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R12))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R13))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (LNK))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R14))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (TOS))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R15))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (PC))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)) (IF (EQUAL X (QUOTE (R0-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R1-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R2-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R3-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R4-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R5-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R6-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R7-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R8-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R9-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R10-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R11-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R12-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R13-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (LNK-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R14-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (TOS-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R15-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (PC-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) (IF (EQUAL X (QUOTE (R0+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R1+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R2+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R3+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R4+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R5+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R6+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R7+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R8+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R9+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R10+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R11+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R12+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R13+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (LNK+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R14+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (TOS+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (R15+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (IF (EQUAL X (QUOTE (PC+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ASM-REGISTER))))) (PUT1-LST (QUOTE *1*LOG2) (QUOTE (MAIN-EVENT LOG2))) (PUT1-LST (QUOTE LOG2) (QUOTE (TYPE-PRESCRIPTION-LST ((LOG2 4 NIL)) TOTALP-LST ((LOG2 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (IF (EQUAL N (QUOTE 1)) (QUOTE 0) (ADD1 (LOG2 (QUOTIENT N (QUOTE 2))))) (QUOTE 0)))) LISP-CODE *1*LOG2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP N) (EQUAL N (QUOTE 1)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP N) (EQUAL N (QUOTE 1))))) (((QUOTIENT N (QUOTE 2)))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZERO QUOTIENT-STUFF ZEROP OR COUNT-NUMBERP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*LOG2) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM LIST-TO-MEM1) EVENT (DEFN LOG2 (N) (IF (OR (ZEROP N) (EQUAL N (QUOTE 1))) (QUOTE 0) (ADD1 (LOG2 (QUOTIENT N (QUOTE 2)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-STUFF . LOG2) (DCELL . *1*LOG2))))) (PUT1-LST (QUOTE QUOTIENT-STUFF) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-NAT-LSR-ZERO IPLUS-DIV-HACK1 LOG2) EVENT (PROVE-LEMMA QUOTIENT-STUFF (REWRITE) (IMPLIES (AND (NOT (EQUAL N (QUOTE 0))) (NUMBERP N)) (LESSP (QUOTIENT N (QUOTE 2)) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . QUOTIENT-STUFF) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-STUFF))))) (PUT1-LST (QUOTE *1*EXP2) (QUOTE (MAIN-EVENT EXP2))) (PUT1-LST (QUOTE EXP2) (QUOTE (TYPE-PRESCRIPTION-LST ((EXP2 4 NIL)) TOTALP-LST ((EXP2 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 1) (IF (NUMBERP Y) (TIMES (QUOTE 2) (EXP2 (SUB1 Y))) (QUOTE 1)))) LISP-CODE *1*EXP2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP Y))) (((SUB1 Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*EXP2) IMMEDIATE-DEPENDENTS0 (LIST-TO-MEM1) EVENT (DEFN EXP2 (Y) (IF (ZEROP Y) (QUOTE 1) (TIMES (QUOTE 2) (EXP2 (SUB1 Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . EXP2) (DCELL . *1*EXP2))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (MAIN-EVENT SUB))) (PUT1-LST (QUOTE SUB) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB 36 NIL NIL)) TOTALP-LST ((SUB . T)) SDEFN (LAMBDA (X Y) (ADD X (INTEGER-MINUS Y))) LISP-CODE *1*SUB SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194057 SATELLITES (*1*SUB) EVENT (DEFN SUB (X Y) (ADD X (INTEGER-MINUS Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-MINUS . SUB) (IMMEDIATE-DEPENDENTS0 ADD . SUB) (DCELL . *1*SUB))))) (PUT1-LST (QUOTE *1*INTEGER-MINUS) (QUOTE (MAIN-EVENT INTEGER-MINUS))) (PUT1-LST (QUOTE INTEGER-MINUS) (QUOTE (TYPE-PRESCRIPTION-LST ((INTEGER-MINUS 36 NIL)) TOTALP-LST ((INTEGER-MINUS . T)) SDEFN (LAMBDA (X) (IF (NEGATIVEP X) (NEGATIVE-GUTS X) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (MINUS X) (QUOTE 0))))) LISP-CODE *1*INTEGER-MINUS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*INTEGER-MINUS) IMMEDIATE-DEPENDENTS0 (SUB) EVENT (DEFN INTEGER-MINUS (X) (IF (NEGATIVEP X) (NEGATIVE-GUTS X) (IF (ZEROP X) (QUOTE 0) (MINUS X)))) LOCAL-UNDO-TUPLES ((DCELL . *1*INTEGER-MINUS))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (MAIN-EVENT ADD))) (PUT1-LST (QUOTE ADD) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD 36 NIL NIL)) TOTALP-LST ((ADD . T)) SDEFN (LAMBDA (X Y) (IF (NEGATIVEP X) (IF (NEGATIVEP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGATIVEP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LISP-CODE *1*ADD SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194057 SATELLITES (*1*ADD) IMMEDIATE-DEPENDENTS0 (SUB) EVENT (DEFN ADD (X Y) (IF (NEGATIVEP X) (IF (NEGATIVEP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGATIVEP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ADD))))) (PUT1-LST (QUOTE *1*C10-INT) (QUOTE (MAIN-EVENT C10-INT))) (PUT1-LST (QUOTE C10-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((C10-INT 36 NIL)) TOTALP-LST ((C10-INT . T)) SDEFN (LAMBDA (X) (BV-TO-INT (C10-TF X))) LISP-CODE *1*C10-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*C10-INT) EVENT (DEFN C10-INT (X) (BV-TO-INT (C10-TF X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C10-TF . C10-INT) (IMMEDIATE-DEPENDENTS0 BV-TO-INT . C10-INT) (DCELL . *1*C10-INT))))) (PUT1-LST (QUOTE *1*C10-TF) (QUOTE (MAIN-EVENT C10-TF))) (PUT1-LST (QUOTE C10-TF) (QUOTE (TYPE-PRESCRIPTION-LST ((C10-TF 24 NIL)) TOTALP-LST ((C10-TF . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE 0)) (CONS (QUOTE *1*FALSE) (C10-TF (CDR X))) (CONS (QUOTE *1*TRUE) (C10-TF (CDR X)))) (QUOTE NIL))) LISP-CODE *1*C10-TF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194057 CONTROLLER-POCKETS (1) SATELLITES (*1*C10-TF) IMMEDIATE-DEPENDENTS0 (C10-INT) EVENT (DEFN C10-TF (X) (IF (NLISTP X) (QUOTE NIL) (CONS (IF (EQUAL (CAR X) (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (C10-TF (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . C10-TF) (DCELL . *1*C10-TF))))) (PUT1-LST (QUOTE *1*BV-TO-INT) (QUOTE (MAIN-EVENT BV-TO-INT))) (PUT1-LST (QUOTE BV-TO-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-TO-INT 36 NIL)) TOTALP-LST ((BV-TO-INT . T)) SDEFN (LAMBDA (X) (IF (NTH (SUB1 (LENGTH X)) X) (MINUS (V-TO-NAT (V-INC (V-NOT X)))) (V-TO-NAT X))) LISP-CODE *1*BV-TO-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*BV-TO-INT) IMMEDIATE-DEPENDENTS0 (C10-INT) EVENT (DEFN BV-TO-INT (X) (IF (NTH (SUB1 (LENGTH X)) X) (MINUS (V-TO-NAT (V-INC (V-NOT X)))) (V-TO-NAT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . BV-TO-INT) (IMMEDIATE-DEPENDENTS0 V-INC . BV-TO-INT) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . BV-TO-INT) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-TO-INT) (IMMEDIATE-DEPENDENTS0 NTH . BV-TO-INT) (DCELL . *1*BV-TO-INT))))) (PUT1-LST (QUOTE *1*INT-TO-BV) (QUOTE (MAIN-EVENT INT-TO-BV))) (PUT1-LST (QUOTE INT-TO-BV) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-TO-BV 24 NIL NIL)) TOTALP-LST ((INT-TO-BV . T)) SDEFN (LAMBDA (X SIZE) (IF (NEGATIVEP X) (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) (NAT-TO-V (NEGATIVE-GUTS X) SIZE) (NAT-TO-V (QUOTE 0) SIZE)) (NAT-TO-V X SIZE))) LISP-CODE *1*INT-TO-BV SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194057 SATELLITES (*1*INT-TO-BV) IMMEDIATE-DEPENDENTS0 (ASM-LINE ASM-REGISTER-A) EVENT (DEFN INT-TO-BV (X SIZE) (IF (NEGATIVEP X) (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) (NAT-TO-V (NEGATIVE-GUTS X) SIZE) (NAT-TO-V (QUOTE 0) SIZE)) (NAT-TO-V X SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V . INT-TO-BV) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . INT-TO-BV) (DCELL . *1*INT-TO-BV))))) (PUT1-LST (QUOTE *1*INTP) (QUOTE (MAIN-EVENT INTP))) (PUT1-LST (QUOTE INTP) (QUOTE (TYPE-PRESCRIPTION-LST ((INTP 3 NIL)) TOTALP-LST ((INTP . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) (QUOTE *1*TRUE) (NEGATIVEP X))) LISP-CODE *1*INTP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194057 SATELLITES (*1*INTP) IMMEDIATE-DEPENDENTS0 (ASM-LINE ASM-REGISTER-A) EVENT (DEFN INTP (X) (OR (NUMBERP X) (NEGATIVEP X))) LOCAL-UNDO-TUPLES ((DCELL . *1*INTP))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 (REWRITE) (IMPLIES (UNARY-OP-CODE-P (OP-CODE I-REG)) (EQUAL (V-ALU C A B (OP-CODE I-REG)) (V-ALU-1 C A (OP-CODE I-REG)))) ((ENABLE UNARY-OP-CODE-P->V-ALU=V-ALU-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P->V-ALU=V-ALU-1 . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU-1 . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 OP-CODE . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1) (LEMMAS V-ALU . UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1))))) (PUT1-LST (QUOTE BOOLP-STORE-RESULT-P) (QUOTE (IDATE 1000402194057 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP UPDATE$STEP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-CV-VECTORS) EVENT (PROVE-LEMMA BOOLP-STORE-RESULT-P (REWRITE) (IMPLIES (AND (BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (BOOLP (STORE-RESULTP STORE-CC FLAGS))) ((ENABLE STORE-RESULTP OPEN-NTH C-FLAG V-FLAG N-FLAG Z-FLAG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 Z-FLAG . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 N-FLAG . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 V-FLAG . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 C-FLAG . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-STORE-RESULT-P) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-STORE-RESULT-P) (LEMMAS BOOLP . BOOLP-STORE-RESULT-P))))) (PUT1-LST (QUOTE REG-DIRECT->NOT-REG-INDIRECT) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE) EVENT (PROVE-LEMMA REG-DIRECT->NOT-REG-INDIRECT (REWRITE) (IMPLIES (REG-DIRECT-P MODE) (AND (EQUAL (REG-INDIRECT-P MODE) (QUOTE *1*FALSE)) (AND (EQUAL (PRE-DEC-P MODE) (QUOTE *1*FALSE)) (EQUAL (POST-INC-P MODE) (QUOTE *1*FALSE))))) ((ENABLE-THEORY REG-MODE-THEORY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-MODE-THEORY . REG-DIRECT->NOT-REG-INDIRECT) (IMMEDIATE-DEPENDENTS0 POST-INC-P . REG-DIRECT->NOT-REG-INDIRECT) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . REG-DIRECT->NOT-REG-INDIRECT) (IMMEDIATE-DEPENDENTS0 REG-INDIRECT-P . REG-DIRECT->NOT-REG-INDIRECT) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . REG-DIRECT->NOT-REG-INDIRECT) (LEMMAS POST-INC-P . REG-DIRECT->NOT-REG-INDIRECT) (LEMMAS PRE-DEC-P . REG-DIRECT->NOT-REG-INDIRECT) (LEMMAS REG-INDIRECT-P . REG-DIRECT->NOT-REG-INDIRECT))))) (PUT1-LST (QUOTE BVP-A-IMMEDIATE) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA BVP-A-IMMEDIATE (REWRITE) (IMPLIES (AND (BVP IR) (LESSP (QUOTE 8) (LENGTH IR))) (BVP (A-IMMEDIATE IR))) ((ENABLE A-IMMEDIATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . BVP-A-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . BVP-A-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-A-IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BVP . BVP-A-IMMEDIATE) (LEMMAS BVP . BVP-A-IMMEDIATE))))) (PUT1-LST (QUOTE BOOLP-C-FLAG-UPDATE-FLAGS) (QUOTE (IDATE 1000402194056 EVENT (PROVE-LEMMA BOOLP-C-FLAG-UPDATE-FLAGS (REWRITE) (BOOLP (C-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) ((ENABLE C-FLAG UPDATE-FLAGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-FLAG . BOOLP-C-FLAG-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-C-FLAG-UPDATE-FLAGS) (LEMMAS BOOLP . BOOLP-C-FLAG-UPDATE-FLAGS))))) (PUT1-LST (QUOTE BVP-LENGTH-UPDATE-FLAGS) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM) EVENT (PROVE-LEMMA BVP-LENGTH-UPDATE-FLAGS (REWRITE) (AND (BVP (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (EQUAL (LENGTH (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (QUOTE 4))) ((ENABLE BVP UPDATE-FLAGS LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-IF . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . BVP-LENGTH-UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-UPDATE-FLAGS) (LEMMAS LENGTH . BVP-LENGTH-UPDATE-FLAGS) (LEMMAS BVP . BVP-LENGTH-UPDATE-FLAGS))))) (PUT1-LST (QUOTE BOOLP-A-IMMEDIATE-P) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (READB1$STEP REGA$STEP BVP-CV-VECTORS) EVENT (PROVE-LEMMA BOOLP-A-IMMEDIATE-P (REWRITE) (IMPLIES (AND (BVP IR) (EQUAL (LENGTH IR) (QUOTE 32))) (BOOLP (A-IMMEDIATE-P IR))) ((ENABLE A-IMMEDIATE-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BOOLP-A-IMMEDIATE-P) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . BOOLP-A-IMMEDIATE-P) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-A-IMMEDIATE-P) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-A-IMMEDIATE-P) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-A-IMMEDIATE-P) (LEMMAS BOOLP . BOOLP-A-IMMEDIATE-P))))) (PUT1-LST (QUOTE BVP-IR-ACCESSORS) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH1$STEP BVP-CV-VECTORS) EVENT (PROVE-LEMMA BVP-IR-ACCESSORS (REWRITE) (IMPLIES (AND (BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (AND (BVP (A-IMMEDIATE I-REG)) (AND (BVP (RN-A I-REG)) (AND (BVP (MODE-A I-REG)) (AND (BVP (RN-B I-REG)) (AND (BVP (MODE-B I-REG)) (AND (BVP (SET-FLAGS I-REG)) (AND (BVP (STORE-CC I-REG)) (BVP (OP-CODE I-REG)))))))))) ((ENABLE A-IMMEDIATE RN-A RN-B MODE-A MODE-B SET-FLAGS STORE-CC OP-CODE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-SUBRANGE . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 OP-CODE . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 STORE-CC . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 MODE-B . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 RN-B . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 MODE-A . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 RN-A . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS) (LEMMAS BVP . BVP-IR-ACCESSORS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-IR-ACCESSORS) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT PROPERP-LENGTH-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE PROPERP-LENGTH-CV_FETCH1) EVENT (PROVE-LEMMA PROPERP-LENGTH-IR-ACCESSORS (REWRITE) (AND (PROPERP (A-IMMEDIATE I-REG)) (AND (EQUAL (LENGTH (A-IMMEDIATE I-REG)) (QUOTE 9)) (AND (PROPERP (RN-A I-REG)) (AND (EQUAL (LENGTH (RN-A I-REG)) (QUOTE 4)) (AND (PROPERP (MODE-A I-REG)) (AND (EQUAL (LENGTH (MODE-A I-REG)) (QUOTE 2)) (AND (PROPERP (RN-B I-REG)) (AND (EQUAL (LENGTH (RN-B I-REG)) (QUOTE 4)) (AND (PROPERP (MODE-B I-REG)) (AND (EQUAL (LENGTH (MODE-B I-REG)) (QUOTE 2)) (AND (PROPERP (SET-FLAGS I-REG)) (AND (EQUAL (LENGTH (SET-FLAGS I-REG)) (QUOTE 4)) (AND (PROPERP (STORE-CC I-REG)) (AND (EQUAL (LENGTH (STORE-CC I-REG)) (QUOTE 4)) (AND (PROPERP (OP-CODE I-REG)) (EQUAL (LENGTH (OP-CODE I-REG)) (QUOTE 4))))))))))))))))) ((ENABLE A-IMMEDIATE RN-A RN-B MODE-A MODE-B SET-FLAGS STORE-CC OP-CODE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-SUBRANGE . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 PROPERP-SUBRANGE . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 OP-CODE . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 STORE-CC . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 MODE-B . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 RN-B . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 MODE-A . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 RN-A . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . PROPERP-LENGTH-IR-ACCESSORS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS LENGTH . PROPERP-LENGTH-IR-ACCESSORS) (LEMMAS PROPERP . PROPERP-LENGTH-IR-ACCESSORS))))) (PUT1-LST (QUOTE FM9001-INTR-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE FM9001-INTR-OFF FM9001-INTR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-INTR . FM9001-INTR-OFF) (DISABLED-LEMMAS NIL FM9001-INTR FM9001-INTR-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001-INTR) (QUOTE (MAIN-EVENT FM9001-INTR))) (PUT1-LST (QUOTE FM9001-INTR) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-INTR 16 T NIL)) TOTALP-LST ((FM9001-INTR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE PC-REG-INPUT) (IF (LISTP PC-REG-INPUT) (FM9001-INTR (FM9001-STEP STATE (CAR PC-REG-INPUT)) (CDR PC-REG-INPUT)) STATE)) LISP-CODE *1*FM9001-INTR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP PC-REG-INPUT)) NIL) (TESTS-AND-CASES ((NOT (NLISTP PC-REG-INPUT))) (((FM9001-STEP STATE (CAR PC-REG-INPUT)) (CDR PC-REG-INPUT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (PC-REG-INPUT) (COUNT PC-REG-INPUT) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194056 CONTROLLER-POCKETS (2) SATELLITES (*1*FM9001-INTR) IMMEDIATE-DEPENDENTS0 (FM9001-INTR-OFF) EVENT (DEFN FM9001-INTR (STATE PC-REG-INPUT) (IF (NLISTP PC-REG-INPUT) STATE (FM9001-INTR (FM9001-STEP STATE (CAR PC-REG-INPUT)) (CDR PC-REG-INPUT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001-INTR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FM9001-INTR) (DCELL . *1*FM9001-INTR))))) (PUT1-LST (QUOTE OPEN-FM9001-INTERPRETER) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (FM9001=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT) EVENT (PROVE-LEMMA OPEN-FM9001-INTERPRETER (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (FM9001-INTERPRETER STATE PC-REG N) STATE)) (IMPLIES (NOT (ZEROP N)) (EQUAL (FM9001-INTERPRETER STATE PC-REG N) (FM9001-INTERPRETER (FM9001-STEP STATE PC-REG) PC-REG (SUB1 N))))) ((ENABLE FM9001-INTERPRETER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . OPEN-FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . OPEN-FM9001-INTERPRETER) (LEMMAS FM9001-INTERPRETER . OPEN-FM9001-INTERPRETER) (LEMMAS FM9001-INTERPRETER . OPEN-FM9001-INTERPRETER))))) (PUT1-LST (QUOTE FM9001-INTERPRETER-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE FM9001-INTERPRETER-OFF FM9001-INTERPRETER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-INTERPRETER . FM9001-INTERPRETER-OFF) (DISABLED-LEMMAS NIL FM9001-INTERPRETER FM9001-INTERPRETER-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001-INTERPRETER) (QUOTE (MAIN-EVENT FM9001-INTERPRETER))) (PUT1-LST (QUOTE FM9001-INTERPRETER) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-INTERPRETER 16 T NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-FM9001-INTERPRETER ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (FM9001-INTERPRETER STATE PC-REG N) (FM9001-INTERPRETER (FM9001-STEP STATE PC-REG) PC-REG (SUB1 N))) NIL) (REWRITE-RULE OPEN-FM9001-INTERPRETER ((ZEROP N)) (EQUAL (FM9001-INTERPRETER STATE PC-REG N) STATE) NIL)) TOTALP-LST ((FM9001-INTERPRETER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (STATE PC-REG N) (IF (EQUAL N (QUOTE 0)) STATE (IF (NUMBERP N) (FM9001-INTERPRETER (FM9001-STEP STATE PC-REG) PC-REG (SUB1 N)) STATE))) LISP-CODE *1*FM9001-INTERPRETER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((FM9001-STEP STATE PC-REG) PC-REG (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194056 CONTROLLER-POCKETS (4) SATELLITES (*1*FM9001-INTERPRETER) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET INSTANCE-THEOREM FM9001-INTERPRETER-CORRECT$MAP-DOWN FM9001=FM9001-INTERPRETER CHIP-SYSTEM=FM9001-INTERPRETER FM9001-INTERPRETER-CORRECT OPEN-FM9001-INTERPRETER FM9001-INTERPRETER-OFF) EVENT (DEFN FM9001-INTERPRETER (STATE PC-REG N) (IF (ZEROP N) STATE (FM9001-INTERPRETER (FM9001-STEP STATE PC-REG) PC-REG (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001-INTERPRETER) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FM9001-INTERPRETER) (DCELL . *1*FM9001-INTERPRETER))))) (PUT1-LST (QUOTE FM9001-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE FM9001-OFF FM9001 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001 . FM9001-OFF) (DISABLED-LEMMAS NIL FM9001 FM9001-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001) (QUOTE (MAIN-EVENT FM9001))) (PUT1-LST (QUOTE FM9001) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001 16 T NIL)) LEMMAS ((REWRITE-RULE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET ((CHIP-SYSTEM& NETLIST) (MEMORY-OKP (QUOTE 32) (QUOTE 32) MEMORY) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N))) (EQUAL (FM9001 (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL)))) N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) NETLIST (TOTAL-MICROCYCLES (CONS (INITIALIZED-MACHINE-STATE) (CONS (CONS MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))) (QUOTE NIL))) (MAP-UP-INPUTS INPUTS) N)))) NIL) (REWRITE-RULE FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA ((CHIP-SYSTEM& NETLIST) (MEMORY-OKP (QUOTE 32) (QUOTE 32) (CAR (CDR (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))))) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N))) (EQUAL (FM9001 (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL)))) N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) NETLIST (TOTAL-MICROCYCLES (MAP-DOWN (MAP-UP (CONS (INITIALIZED-MACHINE-STATE) (CONS MACHINE-MEMORY (QUOTE NIL))))) (MAP-UP-INPUTS INPUTS) N)))) NIL) (REWRITE-RULE FM9001=CHIP-SYSTEM ((CHIP-SYSTEM& NETLIST) (FM9001-STATEP STATE) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N)) (OPERATING-INPUTS-P (MAP-UP-INPUTS INPUTS) (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N))) (EQUAL (FM9001 STATE N) (MAP-UP (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS (MAP-DOWN STATE) NETLIST (TOTAL-MICROCYCLES (MAP-DOWN STATE) (MAP-UP-INPUTS INPUTS) N)))) NIL)) TOTALP-LST ((FM9001 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE N) (IF (EQUAL N (QUOTE 0)) STATE (IF (NUMBERP N) (FM9001 (FM9001-STEP STATE (NAT-TO-V (QUOTE 15) (REG-SIZE))) (SUB1 N)) STATE))) LISP-CODE *1*FM9001 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((FM9001-STEP STATE (NAT-TO-V (QUOTE 15) (REG-SIZE))) (SUB1 N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194056 CONTROLLER-POCKETS (2) SATELLITES (*1*FM9001) IMMEDIATE-DEPENDENTS0 (FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM FM9001=FM9001-INTERPRETER EXECUTE-FM9001 FM9001-OFF) EVENT (DEFN FM9001 (STATE N) (IF (ZEROP N) STATE (FM9001 (FM9001-STEP STATE (NAT-TO-V (QUOTE 15) (REG-SIZE))) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-SIZE . FM9001) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . FM9001) (IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FM9001) (DCELL . *1*FM9001))))) (PUT1-LST (QUOTE FM9001-STEP-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE FM9001-STEP-OFF FM9001-STEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FM9001-STEP . FM9001-STEP-OFF) (DISABLED-LEMMAS NIL FM9001-STEP FM9001-STEP-OFF . T))))) (PUT1-LST (QUOTE *1*FM9001-STEP) (QUOTE (MAIN-EVENT FM9001-STEP))) (PUT1-LST (QUOTE FM9001-STEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-STEP 16 NIL NIL)) TOTALP-LST ((FM9001-STEP . T)) SDEFN (LAMBDA (STATE PC-REG) (FM9001-FETCH (REGS (CAR STATE)) (FLAGS (CAR STATE)) (CAR (CDR STATE)) PC-REG)) LISP-CODE *1*FM9001-STEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194056 SATELLITES (*1*FM9001-STEP) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH MIDDLE=HIGH$HELP FM9001-STEP*-LEMMA FM9001-STEP* FM9001-INTR OPEN-FM9001-INTERPRETER FM9001-INTERPRETER FM9001 FM9001-STEP-OFF) EVENT (DEFN FM9001-STEP (STATE PC-REG) (FM9001-FETCH (REGS (CAR STATE)) (FLAGS (CAR STATE)) (CAR (CDR STATE)) PC-REG)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS . FM9001-STEP) (IMMEDIATE-DEPENDENTS0 REGS . FM9001-STEP) (IMMEDIATE-DEPENDENTS0 FM9001-FETCH . FM9001-STEP) (DCELL . *1*FM9001-STEP))))) (PUT1-LST (QUOTE *1*FM9001-FETCH) (QUOTE (MAIN-EVENT FM9001-FETCH))) (PUT1-LST (QUOTE FM9001-FETCH) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-FETCH 16 NIL NIL NIL NIL)) TOTALP-LST ((FM9001-FETCH . T)) SDEFN (LAMBDA (REGS FLAGS MEM PC-REG) (FM9001-OPERAND-A (WRITE-MEM PC-REG REGS (V-INC (READ-MEM PC-REG REGS))) FLAGS MEM (READ-MEM (READ-MEM PC-REG REGS) MEM))) LISP-CODE *1*FM9001-FETCH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194056 SATELLITES (*1*FM9001-FETCH) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP FM9001-STEP) EVENT (DEFN FM9001-FETCH (REGS FLAGS MEM PC-REG) (FM9001-OPERAND-A (WRITE-MEM PC-REG REGS (V-INC (READ-MEM PC-REG REGS))) FLAGS MEM (READ-MEM (READ-MEM PC-REG REGS) MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . FM9001-FETCH) (IMMEDIATE-DEPENDENTS0 V-INC . FM9001-FETCH) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FM9001-FETCH) (IMMEDIATE-DEPENDENTS0 FM9001-OPERAND-A . FM9001-FETCH) (DCELL . *1*FM9001-FETCH))))) (PUT1-LST (QUOTE *1*FM9001-OPERAND-A) (QUOTE (MAIN-EVENT FM9001-OPERAND-A))) (PUT1-LST (QUOTE FM9001-OPERAND-A) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-OPERAND-A 16 NIL NIL NIL NIL)) TOTALP-LST ((FM9001-OPERAND-A . T)) SDEFN (LAMBDA (REGS FLAGS MEM INS) (IF (A-IMMEDIATE-P INS) (FM9001-OPERAND-B REGS FLAGS MEM INS (SIGN-EXTEND (A-IMMEDIATE INS) (QUOTE 32))) (IF (PRE-DEC-P (MODE-A INS)) (IF (REG-DIRECT-P (MODE-A INS)) (FM9001-OPERAND-B (WRITE-MEM (RN-A INS) REGS (V-DEC (READ-MEM (RN-A INS) REGS))) FLAGS MEM INS (READ-MEM (RN-A INS) REGS)) (FM9001-OPERAND-B (WRITE-MEM (RN-A INS) REGS (V-DEC (READ-MEM (RN-A INS) REGS))) FLAGS MEM INS (READ-MEM (V-DEC (READ-MEM (RN-A INS) REGS)) MEM))) (IF (POST-INC-P (MODE-A INS)) (IF (REG-DIRECT-P (MODE-A INS)) (FM9001-OPERAND-B (WRITE-MEM (RN-A INS) REGS (V-INC (READ-MEM (RN-A INS) REGS))) FLAGS MEM INS (READ-MEM (RN-A INS) REGS)) (FM9001-OPERAND-B (WRITE-MEM (RN-A INS) REGS (V-INC (READ-MEM (RN-A INS) REGS))) FLAGS MEM INS (READ-MEM (READ-MEM (RN-A INS) REGS) MEM))) (IF (REG-DIRECT-P (MODE-A INS)) (FM9001-OPERAND-B REGS FLAGS MEM INS (READ-MEM (RN-A INS) REGS)) (FM9001-OPERAND-B REGS FLAGS MEM INS (READ-MEM (READ-MEM (RN-A INS) REGS) MEM))))))) LISP-CODE *1*FM9001-OPERAND-A SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194056 SATELLITES (*1*FM9001-OPERAND-A) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP FM9001-FETCH) EVENT (DEFN FM9001-OPERAND-A (REGS FLAGS MEM INS) (FM9001-OPERAND-B (IF (A-IMMEDIATE-P INS) REGS (IF (PRE-DEC-P (MODE-A INS)) (WRITE-MEM (RN-A INS) REGS (V-DEC (READ-MEM (RN-A INS) REGS))) (IF (POST-INC-P (MODE-A INS)) (WRITE-MEM (RN-A INS) REGS (V-INC (READ-MEM (RN-A INS) REGS))) REGS))) FLAGS MEM INS (IF (A-IMMEDIATE-P INS) (SIGN-EXTEND (A-IMMEDIATE INS) (QUOTE 32)) (IF (REG-DIRECT-P (MODE-A INS)) (READ-MEM (RN-A INS) REGS) (IF (PRE-DEC-P (MODE-A INS)) (READ-MEM (V-DEC (READ-MEM (RN-A INS) REGS)) MEM) (READ-MEM (READ-MEM (RN-A INS) REGS) MEM)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 V-INC . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 POST-INC-P . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 READ-MEM . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 V-DEC . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 RN-A . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 MODE-A . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . FM9001-OPERAND-A) (IMMEDIATE-DEPENDENTS0 FM9001-OPERAND-B . FM9001-OPERAND-A) (DCELL . *1*FM9001-OPERAND-A))))) (PUT1-LST (QUOTE *1*FM9001-OPERAND-B) (QUOTE (MAIN-EVENT FM9001-OPERAND-B))) (PUT1-LST (QUOTE FM9001-OPERAND-B) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-OPERAND-B 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((FM9001-OPERAND-B . T)) SDEFN (LAMBDA (REGS FLAGS MEM INS OPERAND-A) (IF (PRE-DEC-P (MODE-B INS)) (IF (REG-DIRECT-P (MODE-B INS)) (FM9001-ALU-OPERATION (WRITE-MEM (RN-B INS) REGS (V-DEC (READ-MEM (RN-B INS) REGS))) FLAGS MEM INS OPERAND-A (READ-MEM (RN-B INS) REGS) (V-DEC (READ-MEM (RN-B INS) REGS))) (FM9001-ALU-OPERATION (WRITE-MEM (RN-B INS) REGS (V-DEC (READ-MEM (RN-B INS) REGS))) FLAGS MEM INS OPERAND-A (READ-MEM (V-DEC (READ-MEM (RN-B INS) REGS)) MEM) (V-DEC (READ-MEM (RN-B INS) REGS)))) (IF (POST-INC-P (MODE-B INS)) (IF (REG-DIRECT-P (MODE-B INS)) (FM9001-ALU-OPERATION (WRITE-MEM (RN-B INS) REGS (V-INC (READ-MEM (RN-B INS) REGS))) FLAGS MEM INS OPERAND-A (READ-MEM (RN-B INS) REGS) (READ-MEM (RN-B INS) REGS)) (FM9001-ALU-OPERATION (WRITE-MEM (RN-B INS) REGS (V-INC (READ-MEM (RN-B INS) REGS))) FLAGS MEM INS OPERAND-A (READ-MEM (READ-MEM (RN-B INS) REGS) MEM) (READ-MEM (RN-B INS) REGS))) (IF (REG-DIRECT-P (MODE-B INS)) (FM9001-ALU-OPERATION REGS FLAGS MEM INS OPERAND-A (READ-MEM (RN-B INS) REGS) (READ-MEM (RN-B INS) REGS)) (FM9001-ALU-OPERATION REGS FLAGS MEM INS OPERAND-A (READ-MEM (READ-MEM (RN-B INS) REGS) MEM) (READ-MEM (RN-B INS) REGS)))))) LISP-CODE *1*FM9001-OPERAND-B SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194056 SATELLITES (*1*FM9001-OPERAND-B) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP FM9001-OPERAND-A) EVENT (DEFN FM9001-OPERAND-B (REGS FLAGS MEM INS OPERAND-A) (FM9001-ALU-OPERATION (IF (PRE-DEC-P (MODE-B INS)) (WRITE-MEM (RN-B INS) REGS (V-DEC (READ-MEM (RN-B INS) REGS))) (IF (POST-INC-P (MODE-B INS)) (WRITE-MEM (RN-B INS) REGS (V-INC (READ-MEM (RN-B INS) REGS))) REGS)) FLAGS MEM INS OPERAND-A (IF (REG-DIRECT-P (MODE-B INS)) (READ-MEM (RN-B INS) REGS) (READ-MEM (IF (PRE-DEC-P (MODE-B INS)) (V-DEC (READ-MEM (RN-B INS) REGS)) (READ-MEM (RN-B INS) REGS)) MEM)) (IF (PRE-DEC-P (MODE-B INS)) (V-DEC (READ-MEM (RN-B INS) REGS)) (READ-MEM (RN-B INS) REGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 V-INC . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 POST-INC-P . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 READ-MEM . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 V-DEC . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 RN-B . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 MODE-B . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . FM9001-OPERAND-B) (IMMEDIATE-DEPENDENTS0 FM9001-ALU-OPERATION . FM9001-OPERAND-B) (DCELL . *1*FM9001-OPERAND-B))))) (PUT1-LST (QUOTE *1*FM9001-ALU-OPERATION) (QUOTE (MAIN-EVENT FM9001-ALU-OPERATION))) (PUT1-LST (QUOTE FM9001-ALU-OPERATION) (QUOTE (TYPE-PRESCRIPTION-LST ((FM9001-ALU-OPERATION 16 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((FM9001-ALU-OPERATION . T)) SDEFN (LAMBDA (REGS FLAGS MEM INS OPERAND-A OPERAND-B B-ADDRESS) (IF (STORE-RESULTP (STORE-CC INS) FLAGS) (IF (REG-DIRECT-P (MODE-B INS)) (CONS (CONS (WRITE-MEM (RN-B INS) REGS (BV (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS)))) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS INS) (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS))) (QUOTE NIL))) (CONS MEM (QUOTE NIL))) (CONS (CONS REGS (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS INS) (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS))) (QUOTE NIL))) (CONS (WRITE-MEM B-ADDRESS MEM (BV (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS)))) (QUOTE NIL)))) (CONS (CONS REGS (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS INS) (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS))) (QUOTE NIL))) (CONS MEM (QUOTE NIL))))) LISP-CODE *1*FM9001-ALU-OPERATION SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194056 SATELLITES (*1*FM9001-ALU-OPERATION) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP FM9001-OPERAND-B) EVENT (DEFN FM9001-ALU-OPERATION (REGS FLAGS MEM INS OPERAND-A OPERAND-B B-ADDRESS) (CONS (CONS (IF (AND (STORE-RESULTP (STORE-CC INS) FLAGS) (REG-DIRECT-P (MODE-B INS))) (WRITE-MEM (RN-B INS) REGS (BV (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS)))) REGS) (CONS (UPDATE-FLAGS FLAGS (SET-FLAGS INS) (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS))) (QUOTE NIL))) (CONS (IF (AND (STORE-RESULTP (STORE-CC INS) FLAGS) (NOT (REG-DIRECT-P (MODE-B INS)))) (WRITE-MEM B-ADDRESS MEM (BV (V-ALU (C-FLAG FLAGS) OPERAND-A OPERAND-B (OP-CODE INS)))) MEM) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-FLAGS . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 OP-CODE . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 C-FLAG . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 V-ALU . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 BV . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 RN-B . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 MODE-B . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 STORE-CC . FM9001-ALU-OPERATION) (IMMEDIATE-DEPENDENTS0 STORE-RESULTP . FM9001-ALU-OPERATION) (DCELL . *1*FM9001-ALU-OPERATION))))) (PUT1-LST (QUOTE FLAGS-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE FLAGS-OFF FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLAGS . FLAGS-OFF) (DISABLED-LEMMAS NIL FLAGS FLAGS-OFF . T))))) (PUT1-LST (QUOTE REGS-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE REGS-OFF REGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGS . REGS-OFF) (DISABLED-LEMMAS NIL REGS REGS-OFF . T))))) (PUT1-LST (QUOTE *1*FLAGS) (QUOTE (MAIN-EVENT FLAGS))) (PUT1-LST (QUOTE FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((FLAGS -1 NIL)) TOTALP-LST ((FLAGS . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 1) STATE)) LISP-CODE *1*FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*FLAGS) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA MAP-DOWN-RELATION MIDDLE=HIGH MIDDLE=HIGH$HELP OPEN-MAP-UP P-MAP-UP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS UN-FM9001 FM9001-STEP FLAGS-OFF) EVENT (DEFN FLAGS (STATE) (NTH (QUOTE 1) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . FLAGS) (DCELL . *1*FLAGS))))) (PUT1-LST (QUOTE *1*REGS) (QUOTE (MAIN-EVENT REGS))) (PUT1-LST (QUOTE REGS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGS -1 NIL)) TOTALP-LST ((REGS . T)) SDEFN (LAMBDA (STATE) (NTH (QUOTE 0) STATE)) LISP-CODE *1*REGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*REGS) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA MAP-DOWN-RELATION MIDDLE=HIGH MIDDLE=HIGH$HELP OPEN-MAP-UP P-MAP-UP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE FM9001-NEXT-STATE FM9001-HARDWARE-STATE-ACCESSORS UN-FM9001 FM9001-STEP REGS-OFF) EVENT (DEFN REGS (STATE) (NTH (QUOTE 0) STATE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . REGS) (DCELL . *1*REGS))))) (PUT1-LST (QUOTE UPDATE-FLAGS-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE UPDATE-FLAGS-OFF UPDATE-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-FLAGS . UPDATE-FLAGS-OFF) (DISABLED-LEMMAS NIL UPDATE-FLAGS UPDATE-FLAGS-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-FLAGS) (QUOTE (MAIN-EVENT UPDATE-FLAGS))) (PUT1-LST (QUOTE UPDATE-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-FLAGS 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE NOT-SET-SOME-FLAGS-UPDATE-FLAGS ((FLAGS-HYPS FLAGS) (NOT (SET-SOME-FLAGS SET-FLAGS))) (EQUAL (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV) FLAGS) NIL)) TOTALP-LST ((UPDATE-FLAGS . T)) SDEFN (LAMBDA (FLAGS SET-FLAGS CVZBV) (CONS (B-IF (Z-SET SET-FLAGS) (ZB CVZBV) (Z-FLAG FLAGS)) (CONS (B-IF (N-SET SET-FLAGS) (N CVZBV) (N-FLAG FLAGS)) (CONS (B-IF (V-SET SET-FLAGS) (V CVZBV) (V-FLAG FLAGS)) (CONS (B-IF (C-SET SET-FLAGS) (C CVZBV) (C-FLAG FLAGS)) (QUOTE NIL)))))) LISP-CODE *1*UPDATE-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*UPDATE-FLAGS) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS WRITE0->WRITE3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM WRITE0$STEP UPDATE$STEP FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS FM9001-ALU-OPERATION UPDATE-FLAGS-OFF) EVENT (DEFN UPDATE-FLAGS (FLAGS SET-FLAGS CVZBV) (CONS (B-IF (Z-SET SET-FLAGS) (ZB CVZBV) (Z-FLAG FLAGS)) (CONS (B-IF (N-SET SET-FLAGS) (N CVZBV) (N-FLAG FLAGS)) (CONS (B-IF (V-SET SET-FLAGS) (V CVZBV) (V-FLAG FLAGS)) (CONS (B-IF (C-SET SET-FLAGS) (C CVZBV) (C-FLAG FLAGS)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-FLAG . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 C-SET . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-FLAG . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 V-SET . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-FLAG . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 N-SET . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-FLAG . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 ZB . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 Z-SET . UPDATE-FLAGS) (IMMEDIATE-DEPENDENTS0 B-IF . UPDATE-FLAGS) (DCELL . *1*UPDATE-FLAGS))))) (PUT1-LST (QUOTE STORE-RESULTP-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE STORE-RESULTP-OFF STORE-RESULTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STORE-RESULTP . STORE-RESULTP-OFF) (DISABLED-LEMMAS NIL STORE-RESULTP STORE-RESULTP-OFF . T))))) (PUT1-LST (QUOTE *1*STORE-RESULTP) (QUOTE (MAIN-EVENT STORE-RESULTP))) (PUT1-LST (QUOTE STORE-RESULTP) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-RESULTP -1 NIL NIL)) TOTALP-LST ((STORE-RESULTP . T)) SDEFN (LAMBDA (STORE-CC FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (IF (C-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (C-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (IF (V-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (IF (N-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (N-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (IF (Z-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (Z-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (IF (C-FLAG FLAGS) (QUOTE *1*FALSE) (IF (Z-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (IF (C-FLAG FLAGS) (QUOTE *1*TRUE) (IF (Z-FLAG FLAGS) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (IF (N-FLAG FLAGS) (IF (V-FLAG FLAGS) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF (V-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (IF (N-FLAG FLAGS) (IF (V-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (V-FLAG FLAGS) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (IF (N-FLAG FLAGS) (IF (V-FLAG FLAGS) (IF (Z-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (IF (V-FLAG FLAGS) (QUOTE *1*FALSE) (IF (Z-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (IF (Z-FLAG FLAGS) (QUOTE *1*TRUE) (IF (N-FLAG FLAGS) (IF (V-FLAG FLAGS) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (V-FLAG FLAGS) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)))))))))))))))))) LISP-CODE *1*STORE-RESULTP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*STORE-RESULTP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR FLAGS-INTERPRETATION-SUB UNIVERSAL-FLAGS-INTERPRETATIONS T_FETCH1 T_REGA T_READA0 T_READB0 READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM READB3$STEP0 READB2$STEP READA3$STEP0 UPDATE$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_READB2$DESTRUCTURE CV_READB2 CV_UPDATE$DESTRUCTURE CV_UPDATE B-STORE-RESULTP=STORE-RESULTP B-STORE-RESULTP=STORE-RESULTP$HELP BOOLP-STORE-RESULT-P FM9001-ALU-OPERATION STORE-RESULTP-OFF) EVENT (DEFN STORE-RESULTP (STORE-CC FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (NOT (C-FLAG FLAGS)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (C-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (NOT (V-FLAG FLAGS)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (V-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (NOT (N-FLAG FLAGS)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (N-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (NOT (Z-FLAG FLAGS)) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (Z-FLAG FLAGS) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (AND (NOT (C-FLAG FLAGS)) (NOT (Z-FLAG FLAGS))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (OR (C-FLAG FLAGS) (Z-FLAG FLAGS)) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (OR (AND (N-FLAG FLAGS) (V-FLAG FLAGS)) (AND (NOT (N-FLAG FLAGS)) (NOT (V-FLAG FLAGS)))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (OR (AND (N-FLAG FLAGS) (NOT (V-FLAG FLAGS))) (AND (NOT (N-FLAG FLAGS)) (V-FLAG FLAGS))) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (OR (AND (N-FLAG FLAGS) (AND (V-FLAG FLAGS) (NOT (Z-FLAG FLAGS)))) (AND (NOT (N-FLAG FLAGS)) (AND (NOT (V-FLAG FLAGS)) (NOT (Z-FLAG FLAGS))))) (IF (EQUAL STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (OR (Z-FLAG FLAGS) (OR (AND (N-FLAG FLAGS) (NOT (V-FLAG FLAGS))) (AND (NOT (N-FLAG FLAGS)) (V-FLAG FLAGS)))) (IF (EQUAL STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE) (QUOTE *1*FALSE))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z-FLAG . STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 N-FLAG . STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 V-FLAG . STORE-RESULTP) (IMMEDIATE-DEPENDENTS0 C-FLAG . STORE-RESULTP) (DCELL . *1*STORE-RESULTP))))) (PUT1-LST (QUOTE REG-MODE-THEORY) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (F$DECODE-REG-MODE-AS-REG-MODE REG-DIRECT->NOT-REG-INDIRECT) EVENT (DEFTHEORY REG-MODE-THEORY (REG-DIRECT-P REG-INDIRECT-P PRE-DEC-P POST-INC-P)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . REG-MODE-THEORY) (IMMEDIATE-DEPENDENTS0 REG-INDIRECT-P . REG-MODE-THEORY) (IMMEDIATE-DEPENDENTS0 PRE-DEC-P . REG-MODE-THEORY) (IMMEDIATE-DEPENDENTS0 POST-INC-P . REG-MODE-THEORY))))) (PUT1-LST (QUOTE POST-INC-P-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE POST-INC-P-OFF POST-INC-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POST-INC-P . POST-INC-P-OFF) (DISABLED-LEMMAS NIL POST-INC-P POST-INC-P-OFF . T))))) (PUT1-LST (QUOTE PRE-DEC-P-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE PRE-DEC-P-OFF PRE-DEC-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRE-DEC-P . PRE-DEC-P-OFF) (DISABLED-LEMMAS NIL PRE-DEC-P PRE-DEC-P-OFF . T))))) (PUT1-LST (QUOTE REG-INDIRECT-P-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE REG-INDIRECT-P-OFF REG-INDIRECT-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-INDIRECT-P . REG-INDIRECT-P-OFF) (DISABLED-LEMMAS NIL REG-INDIRECT-P REG-INDIRECT-P-OFF . T))))) (PUT1-LST (QUOTE REG-DIRECT-P-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE REG-DIRECT-P-OFF REG-DIRECT-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-DIRECT-P . REG-DIRECT-P-OFF) (DISABLED-LEMMAS NIL REG-DIRECT-P REG-DIRECT-P-OFF . T))))) (PUT1-LST (QUOTE *1*POST-INC-P) (QUOTE (MAIN-EVENT POST-INC-P))) (PUT1-LST (QUOTE POST-INC-P) (QUOTE (TYPE-PRESCRIPTION-LST ((POST-INC-P 3 NIL)) LEMMAS ((REWRITE-RULE REG-DIRECT->NOT-REG-INDIRECT ((REG-DIRECT-P MODE)) (EQUAL (POST-INC-P MODE) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((POST-INC-P . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE (*1*TRUE *1*TRUE)))) LISP-CODE *1*POST-INC-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194056 SATELLITES (*1*POST-INC-P) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGB T_UPDATE T_SEFA0 SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP UPDATE$STEP DECODE$STEP NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 F$DECODE-REG-MODE-AS-REG-MODE REG-DIRECT->NOT-REG-INDIRECT FM9001-OPERAND-A FM9001-OPERAND-B REG-MODE-THEORY POST-INC-P-OFF) EVENT (DEFN POST-INC-P (MODE) (EQUAL MODE (QUOTE (*1*TRUE *1*TRUE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*POST-INC-P))))) (PUT1-LST (QUOTE *1*PRE-DEC-P) (QUOTE (MAIN-EVENT PRE-DEC-P))) (PUT1-LST (QUOTE PRE-DEC-P) (QUOTE (TYPE-PRESCRIPTION-LST ((PRE-DEC-P 3 NIL)) LEMMAS ((REWRITE-RULE REG-DIRECT->NOT-REG-INDIRECT ((REG-DIRECT-P MODE)) (EQUAL (PRE-DEC-P MODE) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((PRE-DEC-P . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE (*1*FALSE *1*TRUE)))) LISP-CODE *1*PRE-DEC-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194056 SATELLITES (*1*PRE-DEC-P) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGB T_UPDATE T_SEFA0 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READB0$STEP READA1$STEP READA0$STEP UPDATE$STEP DECODE$STEP NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB2$DESTRUCTURE CV_READB2 CV_READB0$DESTRUCTURE CV_READB0 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 F$DECODE-REG-MODE-AS-REG-MODE REG-DIRECT->NOT-REG-INDIRECT FM9001-OPERAND-A FM9001-OPERAND-B REG-MODE-THEORY PRE-DEC-P-OFF) EVENT (DEFN PRE-DEC-P (MODE) (EQUAL MODE (QUOTE (*1*FALSE *1*TRUE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PRE-DEC-P))))) (PUT1-LST (QUOTE *1*REG-INDIRECT-P) (QUOTE (MAIN-EVENT REG-INDIRECT-P))) (PUT1-LST (QUOTE REG-INDIRECT-P) (QUOTE (TYPE-PRESCRIPTION-LST ((REG-INDIRECT-P 3 NIL)) LEMMAS ((REWRITE-RULE REG-DIRECT->NOT-REG-INDIRECT ((REG-DIRECT-P MODE)) (EQUAL (REG-INDIRECT-P MODE) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((REG-INDIRECT-P . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE (*1*TRUE *1*FALSE)))) LISP-CODE *1*REG-INDIRECT-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194056 SATELLITES (*1*REG-INDIRECT-P) IMMEDIATE-DEPENDENTS0 (REG-DIRECT->NOT-REG-INDIRECT REG-MODE-THEORY REG-INDIRECT-P-OFF) EVENT (DEFN REG-INDIRECT-P (MODE) (EQUAL MODE (QUOTE (*1*TRUE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*REG-INDIRECT-P))))) (PUT1-LST (QUOTE *1*REG-DIRECT-P) (QUOTE (MAIN-EVENT REG-DIRECT-P))) (PUT1-LST (QUOTE REG-DIRECT-P) (QUOTE (TYPE-PRESCRIPTION-LST ((REG-DIRECT-P 3 NIL)) TOTALP-LST ((REG-DIRECT-P . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE (*1*FALSE *1*FALSE)))) LISP-CODE *1*REG-DIRECT-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194056 SATELLITES (*1*REG-DIRECT-P) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGA T_READA0 READB0->READB3$SIM READA0->READA3$SIM REGA->REGA$SIM FETCH1->DECODE$SIM READB1$STEP READA3$STEP0 REGA$STEP DECODE$STEP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_READB1$DESTRUCTURE CV_READB1 F$DECODE-REG-MODE-AS-REG-MODE REG-DIRECT->NOT-REG-INDIRECT FM9001-OPERAND-A FM9001-OPERAND-B FM9001-ALU-OPERATION REG-MODE-THEORY REG-DIRECT-P-OFF) EVENT (DEFN REG-DIRECT-P (MODE) (EQUAL MODE (QUOTE (*1*FALSE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*REG-DIRECT-P))))) (PUT1-LST (QUOTE FLAGS-THEORY) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS) EVENT (DEFTHEORY FLAGS-THEORY (Z-FLAG N-FLAG V-FLAG C-FLAG)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z-FLAG . FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 N-FLAG . FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 V-FLAG . FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 C-FLAG . FLAGS-THEORY))))) (PUT1-LST (QUOTE C-FLAG-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE C-FLAG-OFF C-FLAG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-FLAG . C-FLAG-OFF) (DISABLED-LEMMAS NIL C-FLAG C-FLAG-OFF . T))))) (PUT1-LST (QUOTE V-FLAG-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE V-FLAG-OFF V-FLAG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FLAG . V-FLAG-OFF) (DISABLED-LEMMAS NIL V-FLAG V-FLAG-OFF . T))))) (PUT1-LST (QUOTE N-FLAG-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE N-FLAG-OFF N-FLAG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N-FLAG . N-FLAG-OFF) (DISABLED-LEMMAS NIL N-FLAG N-FLAG-OFF . T))))) (PUT1-LST (QUOTE Z-FLAG-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE Z-FLAG-OFF Z-FLAG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z-FLAG . Z-FLAG-OFF) (DISABLED-LEMMAS NIL Z-FLAG Z-FLAG-OFF . T))))) (PUT1-LST (QUOTE *1*C-FLAG) (QUOTE (MAIN-EVENT C-FLAG))) (PUT1-LST (QUOTE C-FLAG) (QUOTE (TYPE-PRESCRIPTION-LST ((C-FLAG -1 NIL)) TOTALP-LST ((C-FLAG . T)) SDEFN (LAMBDA (FLAGS) (NTH (QUOTE 3) FLAGS)) LISP-CODE *1*C-FLAG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*C-FLAG) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READA1$STEP UPDATE$STEP FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_V11111$DESTRUCTURE CV_V11111 CV_RESET2$DESTRUCTURE CV_RESET2 CV_RESET1$DESTRUCTURE CV_RESET1 CV_RESET0$DESTRUCTURE CV_RESET0 CV_V11011$DESTRUCTURE CV_V11011 CV_V11010$DESTRUCTURE CV_V11010 CV_HOLD1$DESTRUCTURE CV_HOLD1 CV_HOLD0$DESTRUCTURE CV_HOLD0 CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_WRITE3$DESTRUCTURE CV_WRITE3 CV_WRITE2$DESTRUCTURE CV_WRITE2 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB3$DESTRUCTURE CV_READB3 CV_READB2$DESTRUCTURE CV_READB2 CV_READB1$DESTRUCTURE CV_READB1 CV_READB0$DESTRUCTURE CV_READB0 CV_READA3$DESTRUCTURE CV_READA3 CV_READA2$DESTRUCTURE CV_READA2 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 CV_UPDATE$DESTRUCTURE CV_UPDATE CV_REGB$DESTRUCTURE CV_REGB CV_REGA$DESTRUCTURE CV_REGA CV_DECODE$DESTRUCTURE CV_DECODE CV_FETCH3$DESTRUCTURE CV_FETCH3 CV_FETCH2$DESTRUCTURE CV_FETCH2 CV_FETCH1$DESTRUCTURE CV_FETCH1 CV_FETCH0$DESTRUCTURE CV_FETCH0 BOOLP-C-FLAG NOT-SET-SOME-FLAGS-UPDATE-FLAGS UN-FM9001 BOOLP-STORE-RESULT-P BOOLP-C-FLAG-UPDATE-FLAGS FM9001-ALU-OPERATION UPDATE-FLAGS STORE-RESULTP FLAGS-THEORY C-FLAG-OFF) EVENT (DEFN C-FLAG (FLAGS) (NTH (QUOTE 3) FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . C-FLAG) (DCELL . *1*C-FLAG))))) (PUT1-LST (QUOTE *1*V-FLAG) (QUOTE (MAIN-EVENT V-FLAG))) (PUT1-LST (QUOTE V-FLAG) (QUOTE (TYPE-PRESCRIPTION-LST ((V-FLAG -1 NIL)) TOTALP-LST ((V-FLAG . T)) SDEFN (LAMBDA (FLAGS) (NTH (QUOTE 2) FLAGS)) LISP-CODE *1*V-FLAG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*V-FLAG) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS UN-FM9001 BOOLP-STORE-RESULT-P UPDATE-FLAGS STORE-RESULTP FLAGS-THEORY V-FLAG-OFF) EVENT (DEFN V-FLAG (FLAGS) (NTH (QUOTE 2) FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . V-FLAG) (DCELL . *1*V-FLAG))))) (PUT1-LST (QUOTE *1*N-FLAG) (QUOTE (MAIN-EVENT N-FLAG))) (PUT1-LST (QUOTE N-FLAG) (QUOTE (TYPE-PRESCRIPTION-LST ((N-FLAG -1 NIL)) TOTALP-LST ((N-FLAG . T)) SDEFN (LAMBDA (FLAGS) (NTH (QUOTE 1) FLAGS)) LISP-CODE *1*N-FLAG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*N-FLAG) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS UN-FM9001 BOOLP-STORE-RESULT-P UPDATE-FLAGS STORE-RESULTP FLAGS-THEORY N-FLAG-OFF) EVENT (DEFN N-FLAG (FLAGS) (NTH (QUOTE 1) FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . N-FLAG) (DCELL . *1*N-FLAG))))) (PUT1-LST (QUOTE *1*Z-FLAG) (QUOTE (MAIN-EVENT Z-FLAG))) (PUT1-LST (QUOTE Z-FLAG) (QUOTE (TYPE-PRESCRIPTION-LST ((Z-FLAG -1 NIL)) TOTALP-LST ((Z-FLAG . T)) SDEFN (LAMBDA (FLAGS) (NTH (QUOTE 0) FLAGS)) LISP-CODE *1*Z-FLAG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*Z-FLAG) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS UN-FM9001 BOOLP-STORE-RESULT-P UPDATE-FLAGS STORE-RESULTP FLAGS-THEORY Z-FLAG-OFF) EVENT (DEFN Z-FLAG (FLAGS) (NTH (QUOTE 0) FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . Z-FLAG) (DCELL . *1*Z-FLAG))))) (PUT1-LST (QUOTE SET-FLAGS-THEORY) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS) EVENT (DEFTHEORY SET-FLAGS-THEORY (Z-SET N-SET V-SET C-SET)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z-SET . SET-FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 N-SET . SET-FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 V-SET . SET-FLAGS-THEORY) (IMMEDIATE-DEPENDENTS0 C-SET . SET-FLAGS-THEORY))))) (PUT1-LST (QUOTE C-SET-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE C-SET-OFF C-SET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C-SET . C-SET-OFF) (DISABLED-LEMMAS NIL C-SET C-SET-OFF . T))))) (PUT1-LST (QUOTE V-SET-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE V-SET-OFF V-SET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SET . V-SET-OFF) (DISABLED-LEMMAS NIL V-SET V-SET-OFF . T))))) (PUT1-LST (QUOTE N-SET-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE N-SET-OFF N-SET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N-SET . N-SET-OFF) (DISABLED-LEMMAS NIL N-SET N-SET-OFF . T))))) (PUT1-LST (QUOTE Z-SET-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE Z-SET-OFF Z-SET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z-SET . Z-SET-OFF) (DISABLED-LEMMAS NIL Z-SET Z-SET-OFF . T))))) (PUT1-LST (QUOTE *1*C-SET) (QUOTE (MAIN-EVENT C-SET))) (PUT1-LST (QUOTE C-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((C-SET -1 NIL)) TOTALP-LST ((C-SET . T)) SDEFN (LAMBDA (SET-FLAGS) (NTH (QUOTE 3) SET-FLAGS)) LISP-CODE *1*C-SET SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*C-SET) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* F$SET-SOME-FLAGS=SET-SOME=FLAGS SET-SOME-FLAGS UPDATE-FLAGS SET-FLAGS-THEORY C-SET-OFF) EVENT (DEFN C-SET (SET-FLAGS) (NTH (QUOTE 3) SET-FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . C-SET) (DCELL . *1*C-SET))))) (PUT1-LST (QUOTE *1*V-SET) (QUOTE (MAIN-EVENT V-SET))) (PUT1-LST (QUOTE V-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SET -1 NIL)) TOTALP-LST ((V-SET . T)) SDEFN (LAMBDA (SET-FLAGS) (NTH (QUOTE 2) SET-FLAGS)) LISP-CODE *1*V-SET SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*V-SET) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* F$SET-SOME-FLAGS=SET-SOME=FLAGS SET-SOME-FLAGS UPDATE-FLAGS SET-FLAGS-THEORY V-SET-OFF) EVENT (DEFN V-SET (SET-FLAGS) (NTH (QUOTE 2) SET-FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . V-SET) (DCELL . *1*V-SET))))) (PUT1-LST (QUOTE *1*N-SET) (QUOTE (MAIN-EVENT N-SET))) (PUT1-LST (QUOTE N-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((N-SET -1 NIL)) TOTALP-LST ((N-SET . T)) SDEFN (LAMBDA (SET-FLAGS) (NTH (QUOTE 1) SET-FLAGS)) LISP-CODE *1*N-SET SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*N-SET) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* F$SET-SOME-FLAGS=SET-SOME=FLAGS SET-SOME-FLAGS UPDATE-FLAGS SET-FLAGS-THEORY N-SET-OFF) EVENT (DEFN N-SET (SET-FLAGS) (NTH (QUOTE 1) SET-FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . N-SET) (DCELL . *1*N-SET))))) (PUT1-LST (QUOTE *1*Z-SET) (QUOTE (MAIN-EVENT Z-SET))) (PUT1-LST (QUOTE Z-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((Z-SET -1 NIL)) TOTALP-LST ((Z-SET . T)) SDEFN (LAMBDA (SET-FLAGS) (NTH (QUOTE 0) SET-FLAGS)) LISP-CODE *1*Z-SET SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*Z-SET) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* F$SET-SOME-FLAGS=SET-SOME=FLAGS SET-SOME-FLAGS UPDATE-FLAGS SET-FLAGS-THEORY Z-SET-OFF) EVENT (DEFN Z-SET (SET-FLAGS) (NTH (QUOTE 0) SET-FLAGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . Z-SET) (DCELL . *1*Z-SET))))) (PUT1-LST (QUOTE IR-FIELDS-THEORY) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE) EVENT (DEFTHEORY IR-FIELDS-THEORY (A-IMMEDIATE-P A-IMMEDIATE RN-A MODE-A RN-B MODE-B SET-FLAGS STORE-CC OP-CODE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 RN-A . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 MODE-A . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 RN-B . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 MODE-B . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 SET-FLAGS . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 STORE-CC . IR-FIELDS-THEORY) (IMMEDIATE-DEPENDENTS0 OP-CODE . IR-FIELDS-THEORY))))) (PUT1-LST (QUOTE OP-CODE-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE OP-CODE-OFF OP-CODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-CODE . OP-CODE-OFF) (DISABLED-LEMMAS NIL OP-CODE OP-CODE-OFF . T))))) (PUT1-LST (QUOTE STORE-CC-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE STORE-CC-OFF STORE-CC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STORE-CC . STORE-CC-OFF) (DISABLED-LEMMAS NIL STORE-CC STORE-CC-OFF . T))))) (PUT1-LST (QUOTE SET-FLAGS-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE SET-FLAGS-OFF SET-FLAGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-FLAGS . SET-FLAGS-OFF) (DISABLED-LEMMAS NIL SET-FLAGS SET-FLAGS-OFF . T))))) (PUT1-LST (QUOTE MODE-B-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE MODE-B-OFF MODE-B T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-B . MODE-B-OFF) (DISABLED-LEMMAS NIL MODE-B MODE-B-OFF . T))))) (PUT1-LST (QUOTE MODE-A-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE MODE-A-OFF MODE-A T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-A . MODE-A-OFF) (DISABLED-LEMMAS NIL MODE-A MODE-A-OFF . T))))) (PUT1-LST (QUOTE RN-B-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE RN-B-OFF RN-B T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RN-B . RN-B-OFF) (DISABLED-LEMMAS NIL RN-B RN-B-OFF . T))))) (PUT1-LST (QUOTE RN-A-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE RN-A-OFF RN-A T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RN-A . RN-A-OFF) (DISABLED-LEMMAS NIL RN-A RN-A-OFF . T))))) (PUT1-LST (QUOTE A-IMMEDIATE-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE A-IMMEDIATE-OFF A-IMMEDIATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 A-IMMEDIATE . A-IMMEDIATE-OFF) (DISABLED-LEMMAS NIL A-IMMEDIATE A-IMMEDIATE-OFF . T))))) (PUT1-LST (QUOTE A-IMMEDIATE-P-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE A-IMMEDIATE-P-OFF A-IMMEDIATE-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 A-IMMEDIATE-P . A-IMMEDIATE-P-OFF) (DISABLED-LEMMAS NIL A-IMMEDIATE-P A-IMMEDIATE-P-OFF . T))))) (PUT1-LST (QUOTE *1*OP-CODE) (QUOTE (MAIN-EVENT OP-CODE))) (PUT1-LST (QUOTE OP-CODE) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-CODE 24 NIL)) TOTALP-LST ((OP-CODE . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 24) (QUOTE 27))) LISP-CODE *1*OP-CODE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*OP-CODE) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 T_FETCH1 T_REGA T_REGB T_READA0 T_UPDATE WRITE0->WRITE3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM WRITE0$STEP READA3$STEP0 UPDATE$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_V11111$DESTRUCTURE CV_V11111 CV_V11011$DESTRUCTURE CV_V11011 CV_V11010$DESTRUCTURE CV_V11010 CV_HOLD1$DESTRUCTURE CV_HOLD1 CV_HOLD0$DESTRUCTURE CV_HOLD0 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_WRITE3$DESTRUCTURE CV_WRITE3 CV_WRITE2$DESTRUCTURE CV_WRITE2 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB3$DESTRUCTURE CV_READB3 CV_READB1$DESTRUCTURE CV_READB1 CV_READB0$DESTRUCTURE CV_READB0 CV_READA3$DESTRUCTURE CV_READA3 CV_READA2$DESTRUCTURE CV_READA2 CV_READA0$DESTRUCTURE CV_READA0 CV_UPDATE$DESTRUCTURE CV_UPDATE CV_REGB$DESTRUCTURE CV_REGB CV_REGA$DESTRUCTURE CV_REGA CV_DECODE$DESTRUCTURE CV_DECODE CV_FETCH3$DESTRUCTURE CV_FETCH3 CV_FETCH1$DESTRUCTURE CV_FETCH1 UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-ALU-OPERATION IR-FIELDS-THEORY OP-CODE-OFF) EVENT (DEFN OP-CODE (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 24) (QUOTE 27))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . OP-CODE) (DCELL . *1*OP-CODE))))) (PUT1-LST (QUOTE *1*STORE-CC) (QUOTE (MAIN-EVENT STORE-CC))) (PUT1-LST (QUOTE STORE-CC) (QUOTE (TYPE-PRESCRIPTION-LST ((STORE-CC 24 NIL)) TOTALP-LST ((STORE-CC . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 20) (QUOTE 23))) LISP-CODE *1*STORE-CC SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*STORE-CC) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGA T_READA0 T_READB0 READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM READB3$STEP0 READB2$STEP READA3$STEP0 UPDATE$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 CHECK-NEXT-CNTL-STATE$NETLIST F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_READB2$DESTRUCTURE CV_READB2 CV_UPDATE$DESTRUCTURE CV_UPDATE BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-ALU-OPERATION IR-FIELDS-THEORY STORE-CC-OFF) EVENT (DEFN STORE-CC (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 20) (QUOTE 23))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . STORE-CC) (DCELL . *1*STORE-CC))))) (PUT1-LST (QUOTE *1*SET-FLAGS) (QUOTE (MAIN-EVENT SET-FLAGS))) (PUT1-LST (QUOTE SET-FLAGS) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-FLAGS 24 NIL)) TOTALP-LST ((SET-FLAGS . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 16) (QUOTE 19))) LISP-CODE *1*SET-FLAGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*SET-FLAGS) IMMEDIATE-DEPENDENTS0 (T_FETCH1 WRITE0->WRITE3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM WRITE0$STEP UPDATE$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_UPDATE$DESTRUCTURE CV_UPDATE BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-ALU-OPERATION IR-FIELDS-THEORY SET-FLAGS-OFF) EVENT (DEFN SET-FLAGS (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 16) (QUOTE 19))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . SET-FLAGS) (DCELL . *1*SET-FLAGS))))) (PUT1-LST (QUOTE *1*MODE-B) (QUOTE (MAIN-EVENT MODE-B))) (PUT1-LST (QUOTE MODE-B) (QUOTE (TYPE-PRESCRIPTION-LST ((MODE-B 24 NIL)) TOTALP-LST ((MODE-B . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 14) (QUOTE 15))) LISP-CODE *1*MODE-B SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*MODE-B) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGA T_REGB T_READA0 T_UPDATE T_SEFA0 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READB0$STEP READA3$STEP0 UPDATE$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 CHECK-NEXT-CNTL-STATE$NETLIST F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB2$DESTRUCTURE CV_READB2 CV_READB0$DESTRUCTURE CV_READB0 BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-OPERAND-B FM9001-ALU-OPERATION IR-FIELDS-THEORY MODE-B-OFF) EVENT (DEFN MODE-B (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 14) (QUOTE 15))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . MODE-B) (DCELL . *1*MODE-B))))) (PUT1-LST (QUOTE *1*RN-B) (QUOTE (MAIN-EVENT RN-B))) (PUT1-LST (QUOTE RN-B) (QUOTE (TYPE-PRESCRIPTION-LST ((RN-B 24 NIL)) TOTALP-LST ((RN-B . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 10) (QUOTE 13))) LISP-CODE *1*RN-B SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*RN-B) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM SEFB1$STEP SEFB0$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READB0$STEP READA2$STEP UPDATE$STEP REGB$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$NEXT-CNTL-STATE NEXT-CNTL-STATE CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB2$DESTRUCTURE CV_READB2 CV_READB0$DESTRUCTURE CV_READB0 CV_READA2$DESTRUCTURE CV_READA2 CV_UPDATE$DESTRUCTURE CV_UPDATE CV_REGB$DESTRUCTURE CV_REGB BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-OPERAND-B FM9001-ALU-OPERATION IR-FIELDS-THEORY RN-B-OFF) EVENT (DEFN RN-B (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 10) (QUOTE 13))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . RN-B) (DCELL . *1*RN-B))))) (PUT1-LST (QUOTE *1*MODE-A) (QUOTE (MAIN-EVENT MODE-A))) (PUT1-LST (QUOTE MODE-A) (QUOTE (TYPE-PRESCRIPTION-LST ((MODE-A 24 NIL)) TOTALP-LST ((MODE-A . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 4) (QUOTE 5))) LISP-CODE *1*MODE-A SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*MODE-A) IMMEDIATE-DEPENDENTS0 (T_FETCH1 SEFA0->SEFA1$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM SEFA1$STEP READB1$STEP READA1$STEP READA0$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 CHECK-NEXT-CNTL-STATE$NETLIST F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_READB1$DESTRUCTURE CV_READB1 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-OPERAND-A IR-FIELDS-THEORY MODE-A-OFF) EVENT (DEFN MODE-A (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 4) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . MODE-A) (DCELL . *1*MODE-A))))) (PUT1-LST (QUOTE *1*RN-A) (QUOTE (MAIN-EVENT RN-A))) (PUT1-LST (QUOTE RN-A) (QUOTE (TYPE-PRESCRIPTION-LST ((RN-A 24 NIL)) TOTALP-LST ((RN-A . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 0) (QUOTE 3))) LISP-CODE *1*RN-A SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*RN-A) IMMEDIATE-DEPENDENTS0 (SEFA0->SEFA1$SIM READB0->READB3$SIM READA0->READA3$SIM REGA->REGA$SIM SEFA1$STEP SEFA0$STEP READB1$STEP READA1$STEP READA0$STEP REGA$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$NEXT-CNTL-STATE NEXT-CNTL-STATE CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_READB1$DESTRUCTURE CV_READB1 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 CV_REGA$DESTRUCTURE CV_REGA BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-OPERAND-A IR-FIELDS-THEORY RN-A-OFF) EVENT (DEFN RN-A (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 0) (QUOTE 3))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . RN-A) (DCELL . *1*RN-A))))) (PUT1-LST (QUOTE *1*A-IMMEDIATE) (QUOTE (MAIN-EVENT A-IMMEDIATE))) (PUT1-LST (QUOTE A-IMMEDIATE) (QUOTE (TYPE-PRESCRIPTION-LST ((A-IMMEDIATE 24 NIL)) TOTALP-LST ((A-IMMEDIATE . T)) SDEFN (LAMBDA (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 0) (QUOTE 8))) LISP-CODE *1*A-IMMEDIATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*A-IMMEDIATE) IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM REGA->REGA$SIM READB1$STEP REGA$STEP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* FM9001-NEXT-STATE BVP-A-IMMEDIATE BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS FM9001-OPERAND-A IR-FIELDS-THEORY A-IMMEDIATE-OFF) EVENT (DEFN A-IMMEDIATE (INSTRUCTION) (SUBRANGE INSTRUCTION (QUOTE 0) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . A-IMMEDIATE) (DCELL . *1*A-IMMEDIATE))))) (PUT1-LST (QUOTE *1*A-IMMEDIATE-P) (QUOTE (MAIN-EVENT A-IMMEDIATE-P))) (PUT1-LST (QUOTE A-IMMEDIATE-P) (QUOTE (TYPE-PRESCRIPTION-LST ((A-IMMEDIATE-P -1 NIL)) TOTALP-LST ((A-IMMEDIATE-P . T)) SDEFN (LAMBDA (INSTRUCTION) (NTH (QUOTE 9) INSTRUCTION)) LISP-CODE *1*A-IMMEDIATE-P SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194056 SATELLITES (*1*A-IMMEDIATE-P) IMMEDIATE-DEPENDENTS0 (T_FETCH1 READB0->READB3$SIM READA0->READA3$SIM REGA->REGA$SIM FETCH1->DECODE$SIM READB1$STEP READA1$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 CHECK-NEXT-CNTL-STATE$NETLIST F$NEXT-CNTL-STATE=NEXT-CNTL-STATE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CONTROL-LET* F$CONTROL-LET CV_READB1$DESTRUCTURE CV_READB1 CV_READA1$DESTRUCTURE CV_READA1 CV_REGA$DESTRUCTURE CV_REGA BOOLP-A-IMMEDIATE-P FM9001-OPERAND-A IR-FIELDS-THEORY A-IMMEDIATE-P-OFF) EVENT (DEFN A-IMMEDIATE-P (INSTRUCTION) (NTH (QUOTE 9) INSTRUCTION)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . A-IMMEDIATE-P) (DCELL . *1*A-IMMEDIATE-P))))) (PUT1-LST (QUOTE *1*REG-SIZE) (QUOTE (MAIN-EVENT REG-SIZE))) (PUT1-LST (QUOTE REG-SIZE) (QUOTE (TYPE-PRESCRIPTION-LST ((REG-SIZE 4)) TOTALP-LST ((REG-SIZE . T)) SDEFN (LAMBDA NIL (QUOTE 4)) LISP-CODE *1*REG-SIZE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194056 SATELLITES (*1*REG-SIZE) IMMEDIATE-DEPENDENTS0 (FM9001=FM9001-INTERPRETER FM9001) EVENT (DEFN REG-SIZE NIL (QUOTE 4)) LOCAL-UNDO-TUPLES ((DCELL . *1*REG-SIZE))))) (PUT1-LST (QUOTE CORE-ALU$VALUE-OFF) (QUOTE (IDATE 1000402194056 EVENT (TOGGLE CORE-ALU$VALUE-OFF CORE-ALU$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU$VALUE . CORE-ALU$VALUE-OFF) (DISABLED-LEMMAS NIL CORE-ALU$VALUE CORE-ALU$VALUE-OFF . T))))) (PUT1-LST (QUOTE CORE-ALU$VALUE) (QUOTE (IDATE 1000402194056 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE CORE-ALU$VALUE-OFF) EVENT (PROVE-LEMMA CORE-ALU$VALUE (REWRITE) (IMPLIES (AND (CORE-ALU& NETLIST TREE) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (IF (LESSP (LENGTH A) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (PROPERP A) (AND (PROPERP B) (AND (PROPERP OP) (AND (EQUAL (LENGTH OP) (QUOTE 4)) (AND (PROPERP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))))))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B (CONS ZERO (APPEND MPG OP))))) STATE NETLIST) (F$CORE-ALU C A B ZERO MPG OP TREE))) ((ENABLE F$CORE-ALU CORE-ALU& TV-SHIFT-OR-BUF$VALUE CORE-ALU*$DESTRUCTURE TV-ALU-HELP$VALUE T-CARRY$VALUE CARRY-OUT-HELP$VALUE OVERFLOW-HELP$VALUE FAST-ZERO$VALUE OPEN-NTH) (DISABLE *1*INDICES OPEN-INDICES INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 CORE-ALU*$DESTRUCTURE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 T-CARRY$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 CDDR-F$TV-ALU-HELP-LENGTH . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CDDR-F$TV-ALU-HELP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$SHIFT-OR-BUF . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 FAST-ZERO$VALUE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU$VALUE) (IMMEDIATE-DEPENDENTS0 CORE-ALU& . CORE-ALU$VALUE) (LEMMAS DUAL-EVAL . CORE-ALU$VALUE))))) (PUT1-LST (QUOTE *1*CORE-ALU$NETLIST) (QUOTE (MAIN-EVENT CORE-ALU$NETLIST))) (PUT1-LST (QUOTE CORE-ALU$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CORE-ALU$NETLIST 16 NIL)) TOTALP-LST ((CORE-ALU$NETLIST . T)) SDEFN (LAMBDA (TREE) (CONS (CORE-ALU* TREE) (UNION (TV-ALU-HELP$NETLIST TREE) (UNION (T-CARRY$NETLIST) (UNION (CARRY-OUT-HELP$NETLIST) (UNION (OVERFLOW-HELP$NETLIST) (UNION (TV-SHIFT-OR-BUF$NETLIST TREE) (FAST-ZERO$NETLIST (TREE-SIZE TREE))))))))) LISP-CODE *1*CORE-ALU$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194055 SATELLITES (*1*CORE-ALU$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST) EVENT (DEFN CORE-ALU$NETLIST (TREE) (CONS (CORE-ALU* TREE) (UNION (TV-ALU-HELP$NETLIST TREE) (UNION (T-CARRY$NETLIST) (UNION (CARRY-OUT-HELP$NETLIST) (UNION (OVERFLOW-HELP$NETLIST) (UNION (TV-SHIFT-OR-BUF$NETLIST TREE) (FAST-ZERO$NETLIST (TREE-SIZE TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 FAST-ZERO$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 T-CARRY$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP$NETLIST . CORE-ALU$NETLIST) (IMMEDIATE-DEPENDENTS0 CORE-ALU* . CORE-ALU$NETLIST) (DCELL . *1*CORE-ALU$NETLIST))))) (PUT1-LST (QUOTE CORE-ALU&-OFF) (QUOTE (IDATE 1000402194055 EVENT (TOGGLE CORE-ALU&-OFF CORE-ALU& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU& . CORE-ALU&-OFF) (DISABLED-LEMMAS NIL CORE-ALU& CORE-ALU&-OFF . T))))) (PUT1-LST (QUOTE *1*CORE-ALU&) (QUOTE (MAIN-EVENT CORE-ALU&))) (PUT1-LST (QUOTE CORE-ALU&) (QUOTE (TYPE-PRESCRIPTION-LST ((CORE-ALU& 3 NIL NIL)) TOTALP-LST ((CORE-ALU& . T)) SDEFN (LAMBDA (NETLIST TREE) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) (CORE-ALU* TREE)) (IF (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) TREE) (IF (T-CARRY& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (IF (CARRY-OUT-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (IF (OVERFLOW-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-SHIFT-OR-BUF& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) TREE) (FAST-ZERO& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) (TREE-SIZE TREE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CORE-ALU& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194055 SATELLITES (*1*CORE-ALU&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& CORE-ALU$VALUE CORE-ALU&-OFF) EVENT (DEFN CORE-ALU& (NETLIST TREE) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) (CORE-ALU* TREE)) (AND (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) TREE) (AND (T-CARRY& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (AND (CARRY-OUT-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (AND (OVERFLOW-HELP& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST)) (AND (TV-SHIFT-OR-BUF& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) TREE) (FAST-ZERO& (DELETE-MODULE (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) NETLIST) (TREE-SIZE TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 FAST-ZERO& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 T-CARRY& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP& . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 CORE-ALU* . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 INDEX . CORE-ALU&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CORE-ALU&) (DCELL . *1*CORE-ALU&))))) (PUT1-LST (QUOTE CORE-ALU*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194055 EVENT (TOGGLE CORE-ALU*$DESTRUCTURE-OFF CORE-ALU*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU*$DESTRUCTURE . CORE-ALU*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL CORE-ALU*$DESTRUCTURE CORE-ALU*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE CORE-ALU*-OFF) (QUOTE (IDATE 1000402194055 EVENT (TOGGLE CORE-ALU*-OFF CORE-ALU* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU* . CORE-ALU*-OFF) (DISABLED-LEMMAS NIL CORE-ALU* CORE-ALU*-OFF . T))))) (PUT1-LST (QUOTE CORE-ALU*$DESTRUCTURE) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE CORE-ALU*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA CORE-ALU*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (CORE-ALU* TREE)) (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (CORE-ALU* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE ZERO) (APPEND (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE OP) (QUOTE 0) (QUOTE 4)))))))) (AND (EQUAL (CAR (CDR (CDR (CORE-ALU* TREE)))) (CONS (QUOTE CARRY) (CONS (QUOTE OVERFLOW) (CONS (QUOTE ZEROP) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)))))) (AND (EQUAL (CAR (CDR (CDR (CDR (CORE-ALU* TREE))))) (CONS (CONS (QUOTE M-ALU) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (M-ALU-CARRY (ALU-CARRY) T-CARRY (C P G))) (CONS (QUOTE (M-CARRY-OUT-HELP (CARRY) CARRY-OUT-HELP ((*1*QUOTE INDEX A 0) ALU-CARRY ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))) (CONS (CONS (QUOTE M-OVERFLOW-HELP) (CONS (QUOTE (OVERFLOW)) (CONS (QUOTE OVERFLOW-HELP) (CONS (CONS (INDEX (QUOTE ALU-OUT) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE B) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-SHIFT) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-ZEROP) (CONS (QUOTE (ZEROP)) (CONS (INDEX (QUOTE FAST-ZERO) (TREE-SIZE TREE)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL)))))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (CORE-ALU* TREE)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . CORE-ALU*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CORE-ALU* . CORE-ALU*$DESTRUCTURE) (LEMMAS CAR . CORE-ALU*$DESTRUCTURE) (LEMMAS CAR . CORE-ALU*$DESTRUCTURE) (LEMMAS CAR . CORE-ALU*$DESTRUCTURE) (LEMMAS CAR . CORE-ALU*$DESTRUCTURE) (LEMMAS CAR . CORE-ALU*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*CORE-ALU*) (QUOTE (MAIN-EVENT CORE-ALU*))) (PUT1-LST (QUOTE CORE-ALU*) (QUOTE (TYPE-PRESCRIPTION-LST ((CORE-ALU* 16 NIL)) TOTALP-LST ((CORE-ALU* . T)) SDEFN (LAMBDA (TREE) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE ZERO) (APPEND (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE OP) (QUOTE 0) (QUOTE 4))))))) (CONS (CONS (QUOTE CARRY) (CONS (QUOTE OVERFLOW) (CONS (QUOTE ZEROP) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))))) (CONS (CONS (CONS (QUOTE M-ALU) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (M-ALU-CARRY (ALU-CARRY) T-CARRY (C P G))) (CONS (QUOTE (M-CARRY-OUT-HELP (CARRY) CARRY-OUT-HELP ((*1*QUOTE INDEX A 0) ALU-CARRY ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))) (CONS (CONS (QUOTE M-OVERFLOW-HELP) (CONS (QUOTE (OVERFLOW)) (CONS (QUOTE OVERFLOW-HELP) (CONS (CONS (INDEX (QUOTE ALU-OUT) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE B) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-SHIFT) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-ZEROP) (CONS (QUOTE (ZEROP)) (CONS (INDEX (QUOTE FAST-ZERO) (TREE-SIZE TREE)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL))))))) (QUOTE (NIL))))))) LISP-CODE *1*CORE-ALU* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194055 SATELLITES (*1*CORE-ALU*) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST CORE-ALU& CORE-ALU*-OFF CORE-ALU*$DESTRUCTURE) EVENT (DEFN CORE-ALU* (TREE) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE ZERO) (APPEND (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE OP) (QUOTE 0) (QUOTE 4))))))) (CONS (CONS (QUOTE CARRY) (CONS (QUOTE OVERFLOW) (CONS (QUOTE ZEROP) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))))) (CONS (CONS (CONS (QUOTE M-ALU) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (M-ALU-CARRY (ALU-CARRY) T-CARRY (C P G))) (CONS (QUOTE (M-CARRY-OUT-HELP (CARRY) CARRY-OUT-HELP ((*1*QUOTE INDEX A 0) ALU-CARRY ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))) (CONS (CONS (QUOTE M-OVERFLOW-HELP) (CONS (QUOTE (OVERFLOW)) (CONS (QUOTE OVERFLOW-HELP) (CONS (CONS (INDEX (QUOTE ALU-OUT) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE B) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-SHIFT) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-ZEROP) (CONS (QUOTE (ZEROP)) (CONS (INDEX (QUOTE FAST-ZERO) (TREE-SIZE TREE)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL))))))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU*) (IMMEDIATE-DEPENDENTS0 INDICES . CORE-ALU*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . CORE-ALU*) (IMMEDIATE-DEPENDENTS0 INDEX . CORE-ALU*) (DCELL . *1*CORE-ALU*))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-AS-DEC-B) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA CORE-ALU-WORKS-AS-DEC-B (REWRITE) (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (NOT ZERO) SWAP))) (EQUAL (BV (CORE-ALU (CARRY-IN-HELP (CONS C (CONS ZERO (ALU-DEC-OP)))) A B ZERO (MPG (CONS ZERO (CONS SWAP (ALU-DEC-OP)))) (ALU-DEC-OP) TREE)) (V-DEC B))) ((DISABLE TV-ALU-HELP) (ENABLE ALU-DEC-OP V-DEC BV CORE-ALU MPG CARRY-IN-HELP TV-ALU-HELP-TV-DEC-B-WORKS TV-ADDER-AS-P-G-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-NAND . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-NOT . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-EQUV . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-AND . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-XOR . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-NOR . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 V-ZEROP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-BUF . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 BVP-SUM . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-OR3 . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 B-IF . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 T-CARRY-P-G-CARRY . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-DEC-B-WORKS . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 TV-ADDER-AS-P-G-SUM . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 V-DEC . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 MPG . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 BV . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-WORKS-AS-DEC-B) (IMMEDIATE-DEPENDENTS0 BV2P . CORE-ALU-WORKS-AS-DEC-B) (LEMMAS BV . CORE-ALU-WORKS-AS-DEC-B))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-AS-INC-B) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA CORE-ALU-WORKS-AS-INC-B (REWRITE) (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (NOT ZERO) SWAP))) (EQUAL (BV (CORE-ALU (CARRY-IN-HELP (CONS C (CONS ZERO (ALU-INC-OP)))) A B ZERO (MPG (CONS ZERO (CONS SWAP (ALU-INC-OP)))) (ALU-INC-OP) TREE)) (V-INC B))) ((DISABLE TV-ALU-HELP) (ENABLE ALU-INC-OP V-INC BV CORE-ALU MPG CARRY-IN-HELP TV-ALU-HELP-TV-INC-B-WORKS TV-ADDER-AS-P-G-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-NAND . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-NOT . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-EQUV . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-AND . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-XOR . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-NOR . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 V-ZEROP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-BUF . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 BVP-SUM . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-OR3 . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 B-IF . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 T-CARRY-P-G-CARRY . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-INC-B-WORKS . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 TV-ADDER-AS-P-G-SUM . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 V-INC . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 MPG . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 BV . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-WORKS-AS-INC-B) (IMMEDIATE-DEPENDENTS0 BV2P . CORE-ALU-WORKS-AS-INC-B) (LEMMAS BV . CORE-ALU-WORKS-AS-INC-B))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-FOR-ZERO-CASE) (QUOTE (IDATE 1000402194055 EVENT (PROVE-LEMMA CORE-ALU-WORKS-FOR-ZERO-CASE (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) ZERO) (EQUAL (CORE-ALU (QUOTE *1*TRUE) A B ZERO (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) OP TREE) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (MAKE-LIST (LENGTH A) (QUOTE *1*FALSE))))) ((ENABLE CORE-ALU TV-ALU-HELP-ZERO))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP-MAKE-LIST-F . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-BUF . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 BOOLP . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-OR3 . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-NOR . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-IF . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-NOT . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-NAND . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 T-CARRY . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-ZERO . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 CVZBV . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-WORKS-FOR-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-WORKS-FOR-ZERO-CASE) (LEMMAS CORE-ALU . CORE-ALU-WORKS-FOR-ZERO-CASE))))) (PUT1-LST (QUOTE CORE-ALU-IS-V-ALU) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP) EVENT (PROVE-LEMMA CORE-ALU-IS-V-ALU (REWRITE) (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP OP) (AND (EQUAL (LENGTH OP) (QUOTE 4)) (AND (NOT ZERO) (AND (EQUAL MPG (MPG (CONS ZERO (CONS (QUOTE *1*FALSE) OP)))) (BOOLP C))))))) (EQUAL (CORE-ALU (CARRY-IN-HELP (CONS C (CONS (QUOTE *1*FALSE) OP))) A B ZERO MPG OP TREE) (V-ALU C A B OP))) ((USE (CASES-ON-A-4-BIT-BVP (P (EQUAL (CORE-ALU (CARRY-IN-HELP (CONS C (CONS (QUOTE *1*FALSE) OP))) A B ZERO MPG OP TREE) (V-ALU C A B OP))))) (DISABLE BOOLP-LEMMAS BV2P BVP LENGTH CORE-ALU V-ALU TREE-SIZE MPG *1*MPG) (ENABLE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 CASES-ON-A-4-BIT-BVP . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 MPG . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-IS-V-ALU) (IMMEDIATE-DEPENDENTS0 BV2P . CORE-ALU-IS-V-ALU) (LEMMAS CORE-ALU . CORE-ALU-IS-V-ALU))))) (PUT1-LST (QUOTE CASES-ON-A-4-BIT-BVP) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (CORE-ALU-IS-V-ALU) EVENT (PROVE-LEMMA CASES-ON-A-4-BIT-BVP NIL (IMPLIES (AND (BVP OP) (AND (EQUAL (LENGTH OP) (QUOTE 4)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) P (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) P (QUOTE *1*TRUE))))))))))))))))))) P) ((ENABLE EQUAL-LENGTH-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 LENGTH . CASES-ON-A-4-BIT-BVP) (IMMEDIATE-DEPENDENTS0 BVP . CASES-ON-A-4-BIT-BVP))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF) (QUOTE (IDATE 1000402194055 EVENT (TOGGLE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF) (DISABLED-LEMMAS NIL CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF . T))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (QUOTE (IDATE 1000402194055 IMMEDIATE-DEPENDENTS0 (CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES-OFF) EVENT (PROVE-LEMMA CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES (REWRITE) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) TREE))) (AND (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) TREE))) (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C))) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) TREE)))))))))))))))))) ((DISABLE T-CARRY TV-ALU-HELP) (ENABLE CORE-ALU V-ALU BOOLP MPG CARRY-IN-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-NEG-WORKS TV-ADDER-AS-P-G-SUM CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-NOT-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-V-AND . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-AND-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-V-OR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-OR-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-XOR-NZEROP=NOT-EQUAL . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-V-XOR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-XOR-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-LSR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-LSR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ASR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-ASR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ROR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-ROR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-SUBTRACTER-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-DEC-A-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-NEG-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-ADDER-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BVP-SUM . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 T-CARRY-P-G-CARRY . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-INC-A-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ADDER-AS-P-G-SUM . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CVZBV . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ZEROP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-IS-BUF . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-OR3 . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-NOR . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-IF . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-BUF-WORKS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-NOT . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-NAND . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 B-AND . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 MPG . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BOOLP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (IMMEDIATE-DEPENDENTS0 BV2P . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) (LEMMAS V-ALU . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF) (DISABLED-LEMMAS NIL CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF . T))))) (PUT1-LST (QUOTE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK-OFF) EVENT (PROVE-LEMMA CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK (REWRITE) (IMPLIES (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NTH (QUOTE 0) A))) (EQUAL (NTH (QUOTE 0) A) (QUOTE *1*TRUE))) ((ENABLE OPEN-NTH BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 NTH . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (IMMEDIATE-DEPENDENTS0 BVP . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK) (LEMMAS NTH . CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK))))) (PUT1-LST (QUOTE BOOLP-BVP-CORE-ALU) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA BOOLP-BVP-CORE-ALU (REWRITE) (AND (BOOLP (C (CORE-ALU C A B ZERO MPG OP TREE))) (AND (BOOLP (V (CORE-ALU C A B ZERO MPG OP TREE))) (AND (BOOLP (ZB (CORE-ALU C A B ZERO MPG OP TREE))) (AND (BVP (BV (CORE-ALU C A B ZERO MPG OP TREE))) (BVP (CORE-ALU C A B ZERO MPG OP TREE)))))) ((ENABLE CORE-ALU BVP C V ZB BV) (DISABLE CARRY-IN-HELP CARRY-OUT-HELP OVERFLOW-HELP SHIFT-OR-BUF V-ZEROP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-SHIFT-OR-BUF . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 BV . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 ZB . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 V . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 CORE-ALU . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 C . BOOLP-BVP-CORE-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-BVP-CORE-ALU) (LEMMAS BVP . BOOLP-BVP-CORE-ALU) (LEMMAS BVP . BOOLP-BVP-CORE-ALU) (LEMMAS BOOLP . BOOLP-BVP-CORE-ALU) (LEMMAS BOOLP . BOOLP-BVP-CORE-ALU) (LEMMAS BOOLP . BOOLP-BVP-CORE-ALU))))) (PUT1-LST (QUOTE LENGTH-CORE-ALU) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA LENGTH-CORE-ALU (REWRITE) (EQUAL (LENGTH (CORE-ALU C A B ZERO MPG OP TREE)) (ADD1 (ADD1 (ADD1 (TREE-SIZE TREE))))) ((ENABLE CORE-ALU))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-OR3 . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NOR . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-IF . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND4 . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND3 . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 CDDR-TV-ALU-HELP-LENGTH . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-SHIFT-OR-BUF . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 CORE-ALU . LENGTH-CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CORE-ALU) (LEMMAS LENGTH . LENGTH-CORE-ALU))))) (PUT1-LST (QUOTE F$CORE-ALU=CORE-ALU) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$CORE-ALU=CORE-ALU (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (IF (LESSP (LENGTH A) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (BOOLP ZERO) (AND (BVP MPG) (AND (EQUAL (LENGTH MPG) (QUOTE 7)) (AND (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4)))))))))))) (EQUAL (F$CORE-ALU C A B ZERO MPG OP TREE) (CORE-ALU C A B ZERO MPG OP TREE))) ((ENABLE CORE-ALU F$CORE-ALU BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$FAST-ZERO=V-ZEROP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 V-ZEROP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-SHIFT-OR-BUF . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-SHIFT-OR-BUF . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF=SHIFT-OR-BUF . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$OVERFLOW-HELP=OVERFLOW-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-OR3 . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NOR . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-IF . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-CDDR-TV-ALU-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 CDDR-TV-ALU-HELP-LENGTH . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$CARRY-OUT-HELP=CARRY-OUT-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND4 . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-NAND3 . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$T-CARRY=T-CARRY . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-TV-ALU-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP=TV-ALU-HELP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 CORE-ALU . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BVP . F$CORE-ALU=CORE-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . F$CORE-ALU=CORE-ALU) (LEMMAS F$CORE-ALU . F$CORE-ALU=CORE-ALU))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$CORE-ALU) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$VALUE CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$CORE-ALU (REWRITE) (AND (PROPERP (F$CORE-ALU C A B ZERO MPG OP TREE)) (EQUAL (LENGTH (F$CORE-ALU C A B ZERO MPG OP TREE)) (ADD1 (ADD1 (ADD1 (TREE-SIZE TREE)))))) ((ENABLE F$CORE-ALU))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDDR-F$TV-ALU-HELP-LENGTH . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-F$SHIFT-OR-BUF . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$CORE-ALU . PROPERP-LENGTH-F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$CORE-ALU) (LEMMAS LENGTH . PROPERP-LENGTH-F$CORE-ALU) (LEMMAS PROPERP . PROPERP-LENGTH-F$CORE-ALU))))) (PUT1-LST (QUOTE CORE-ALU-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE CORE-ALU-OFF CORE-ALU T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORE-ALU . CORE-ALU-OFF) (DISABLED-LEMMAS NIL CORE-ALU CORE-ALU-OFF . T))))) (PUT1-LST (QUOTE *1*CORE-ALU) (QUOTE (MAIN-EVENT CORE-ALU))) (PUT1-LST (QUOTE CORE-ALU) (QUOTE (TYPE-PRESCRIPTION-LST ((CORE-ALU 16 NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE CORE-ALU-WORKS-FOR-ZERO-CASE ((EQUAL (LENGTH A) (TREE-SIZE TREE)) ZERO) (EQUAL (CORE-ALU (QUOTE *1*TRUE) A B ZERO (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) OP TREE) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (MAKE-LIST (LENGTH A) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE CORE-ALU-IS-V-ALU ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4)) (NOT ZERO) (EQUAL MPG (MPG (CONS ZERO (CONS (QUOTE *1*FALSE) OP)))) (BOOLP C)) (EQUAL (CORE-ALU (CARRY-IN-HELP (CONS C (CONS (QUOTE *1*FALSE) OP))) A B ZERO MPG OP TREE) (V-ALU C A B OP)) NIL)) TOTALP-LST ((CORE-ALU . T)) SDEFN (LAMBDA (C A B ZERO MPG OP TREE) (CONS (CARRY-OUT-HELP (NTH (QUOTE 0) A) (T-CARRY C (CAR (TV-ALU-HELP C A B MPG TREE)) (CAR (CDR (TV-ALU-HELP C A B MPG TREE)))) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (OVERFLOW-HELP (NTH (SUB1 (LENGTH A)) (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) B) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (V-ZEROP (SHIFT-OR-BUF C (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP)))))) (SHIFT-OR-BUF C (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))))))) LISP-CODE *1*CORE-ALU SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194053 SATELLITES (*1*CORE-ALU) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BOOLP-BVP-CORE-ALU LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU CORE-ALU-OFF) EVENT (DEFN CORE-ALU (C A B ZERO MPG OP TREE) (CONS (CARRY-OUT-HELP (NTH (QUOTE 0) A) (T-CARRY C (CAR (TV-ALU-HELP C A B MPG TREE)) (CAR (CDR (TV-ALU-HELP C A B MPG TREE)))) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (OVERFLOW-HELP (NTH (SUB1 (LENGTH A)) (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) B) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (V-ZEROP (SHIFT-OR-BUF C (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP)))))) (SHIFT-OR-BUF C (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . CORE-ALU) (IMMEDIATE-DEPENDENTS0 V-ZEROP . CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . CORE-ALU) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . CORE-ALU) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . CORE-ALU) (IMMEDIATE-DEPENDENTS0 T-CARRY . CORE-ALU) (IMMEDIATE-DEPENDENTS0 NTH . CORE-ALU) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CORE-ALU) (DCELL . *1*CORE-ALU))))) (PUT1-LST (QUOTE F$CORE-ALU-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE F$CORE-ALU-OFF F$CORE-ALU T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$CORE-ALU . F$CORE-ALU-OFF) (DISABLED-LEMMAS NIL F$CORE-ALU F$CORE-ALU-OFF . T))))) (PUT1-LST (QUOTE *1*F$CORE-ALU) (QUOTE (MAIN-EVENT F$CORE-ALU))) (PUT1-LST (QUOTE F$CORE-ALU) (QUOTE (TYPE-PRESCRIPTION-LST ((F$CORE-ALU 16 NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$CORE-ALU=CORE-ALU ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (NOT (LESSP (LENGTH A) (QUOTE 3))) (BOOLP ZERO) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)) (BVP OP) (EQUAL (LENGTH OP) (QUOTE 4))) (EQUAL (F$CORE-ALU C A B ZERO MPG OP TREE) (CORE-ALU C A B ZERO MPG OP TREE)) NIL)) TOTALP-LST ((F$CORE-ALU . T)) SDEFN (LAMBDA (C A B ZERO MPG OP TREE) (CONS (F$CARRY-OUT-HELP (NTH (QUOTE 0) A) (F$T-CARRY C (CAR (F$TV-ALU-HELP C A B MPG TREE)) (CAR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (F$OVERFLOW-HELP (NTH (SUB1 (LENGTH A)) (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) B) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (F$FAST-ZERO (F$SHIFT-OR-BUF C (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP)))))) (F$SHIFT-OR-BUF C (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))))))) LISP-CODE *1*F$CORE-ALU SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194053 SATELLITES (*1*F$CORE-ALU) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE FM9001-NEXT-STATE CORE-ALU$VALUE F$CORE-ALU=CORE-ALU PROPERP-LENGTH-F$CORE-ALU F$CORE-ALU-OFF) EVENT (DEFN F$CORE-ALU (C A B ZERO MPG OP TREE) (CONS (F$CARRY-OUT-HELP (NTH (QUOTE 0) A) (F$T-CARRY C (CAR (F$TV-ALU-HELP C A B MPG TREE)) (CAR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (F$OVERFLOW-HELP (NTH (SUB1 (LENGTH A)) (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) B) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))) (CONS (F$FAST-ZERO (F$SHIFT-OR-BUF C (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP)))))) (F$SHIFT-OR-BUF C (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE))) (NTH (SUB1 (LENGTH A)) A) ZERO (CAR OP) (CAR (CDR OP)) (CAR (CDR (CDR OP))) (CAR (CDR (CDR (CDR OP))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$FAST-ZERO . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$OVERFLOW-HELP . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$T-CARRY . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 NTH . F$CORE-ALU) (IMMEDIATE-DEPENDENTS0 F$CARRY-OUT-HELP . F$CORE-ALU) (DCELL . *1*F$CORE-ALU))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE TV-SHIFT-OR-BUF$VALUE-ZERO-OFF TV-SHIFT-OR-BUF$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF$VALUE-ZERO . TV-SHIFT-OR-BUF$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF$VALUE-ZERO) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA TV-SHIFT-OR-BUF$VALUE-ZERO (REWRITE) (IMPLIES (AND (TV-SHIFT-OR-BUF& NETLIST TREE) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS C (APPEND A (CONS AN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) A)) ((ENABLE TV-SHIFT-OR-BUF& TV-IF$VALUE TV-SHIFT-OR-BUF*$DESTRUCTURE SHIFT-OR-BUF-CNTL$VALUE-ZERO) (DISABLE-THEORY F-GATES B-GATES) (DISABLE V-SHIFT-RIGHT V-SHIFT-RIGHT-NAMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF*$DESTRUCTURE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 INDEX . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL$VALUE-ZERO . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT-NAMES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-GATES . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BVP . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-SHIFT-OR-BUF$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF& . TV-SHIFT-OR-BUF$VALUE-ZERO) (LEMMAS DUAL-EVAL . TV-SHIFT-OR-BUF$VALUE-ZERO))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF$VALUE-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE TV-SHIFT-OR-BUF$VALUE-OFF TV-SHIFT-OR-BUF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF$VALUE . TV-SHIFT-OR-BUF$VALUE-OFF) (DISABLED-LEMMAS NIL TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF$VALUE-OFF . T))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF$VALUE) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-OFF) EVENT (PROVE-LEMMA TV-SHIFT-OR-BUF$VALUE (REWRITE) (IMPLIES (AND (TV-SHIFT-OR-BUF& NETLIST TREE) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP A))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS C (APPEND A (CONS AN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3))) ((ENABLE F$SHIFT-OR-BUF TV-SHIFT-OR-BUF& SHIFT-OR-BUF-CNTL$VALUE TV-IF$VALUE TV-SHIFT-OR-BUF*$DESTRUCTURE FV-IF-REWRITE) (DISABLE-THEORY F-GATES) (DISABLE FV-SHIFT-RIGHT V-SHIFT-RIGHT-NAMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF*$DESTRUCTURE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL$VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT-NAMES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-V-SHIFT-RIGHT . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 FV-IF-REWRITE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-FV-SHIFT-RIGHT . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-FV-SHIFT-RIGHT . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-SHIFT-OR-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF& . TV-SHIFT-OR-BUF$VALUE) (LEMMAS DUAL-EVAL . TV-SHIFT-OR-BUF$VALUE))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF$NETLIST) (QUOTE (MAIN-EVENT TV-SHIFT-OR-BUF$NETLIST))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-SHIFT-OR-BUF$NETLIST 16 NIL)) TOTALP-LST ((TV-SHIFT-OR-BUF$NETLIST . T)) SDEFN (LAMBDA (TREE) (CONS (TV-SHIFT-OR-BUF* TREE) (UNION (TV-IF$NETLIST TREE) (SHIFT-OR-BUF-CNTL$NETLIST)))) LISP-CODE *1*TV-SHIFT-OR-BUF$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194053 SATELLITES (*1*TV-SHIFT-OR-BUF$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST) EVENT (DEFN TV-SHIFT-OR-BUF$NETLIST (TREE) (CONS (TV-SHIFT-OR-BUF* TREE) (UNION (TV-IF$NETLIST TREE) (SHIFT-OR-BUF-CNTL$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL$NETLIST . TV-SHIFT-OR-BUF$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF$NETLIST . TV-SHIFT-OR-BUF$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF* . TV-SHIFT-OR-BUF$NETLIST) (DCELL . *1*TV-SHIFT-OR-BUF$NETLIST))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF&-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE TV-SHIFT-OR-BUF&-OFF TV-SHIFT-OR-BUF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF& . TV-SHIFT-OR-BUF&-OFF) (DISABLED-LEMMAS NIL TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF&-OFF . T))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF&) (QUOTE (MAIN-EVENT TV-SHIFT-OR-BUF&))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF&) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-SHIFT-OR-BUF& 3 NIL NIL)) TOTALP-LST ((TV-SHIFT-OR-BUF& . T)) SDEFN (LAMBDA (NETLIST TREE) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST) (TV-SHIFT-OR-BUF* TREE)) (IF (SHIFT-OR-BUF-CNTL& (DELETE-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST)) (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST) TREE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*TV-SHIFT-OR-BUF& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194053 SATELLITES (*1*TV-SHIFT-OR-BUF&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF&-OFF) EVENT (DEFN TV-SHIFT-OR-BUF& (NETLIST TREE) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST) (TV-SHIFT-OR-BUF* TREE)) (AND (SHIFT-OR-BUF-CNTL& (DELETE-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST)) (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) NETLIST) TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF& . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL& . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF* . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 INDEX . TV-SHIFT-OR-BUF&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TV-SHIFT-OR-BUF&) (DCELL . *1*TV-SHIFT-OR-BUF&))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF TV-SHIFT-OR-BUF*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF*$DESTRUCTURE . TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF*-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE TV-SHIFT-OR-BUF*-OFF TV-SHIFT-OR-BUF* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF* . TV-SHIFT-OR-BUF*-OFF) (DISABLED-LEMMAS NIL TV-SHIFT-OR-BUF* TV-SHIFT-OR-BUF*-OFF . T))))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF*$DESTRUCTURE) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TV-SHIFT-OR-BUF*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TV-SHIFT-OR-BUF* TREE)) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (TV-SHIFT-OR-BUF* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE (AN ZERO OP0 OP1 OP2 OP3))))) (AND (EQUAL (CAR (CDR (CDR (TV-SHIFT-OR-BUF* TREE)))) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))) (AND (EQUAL (CAR (CDR (CDR (CDR (TV-SHIFT-OR-BUF* TREE))))) (CONS (QUOTE (CNTL (CTL SI) SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE CTL) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (V-SHIFT-RIGHT-NAMES (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE SI)))) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-SHIFT-OR-BUF* TREE)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT-NAMES . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-SHIFT-OR-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-SHIFT-OR-BUF* . TV-SHIFT-OR-BUF*$DESTRUCTURE) (LEMMAS CAR . TV-SHIFT-OR-BUF*$DESTRUCTURE) (LEMMAS CAR . TV-SHIFT-OR-BUF*$DESTRUCTURE) (LEMMAS CAR . TV-SHIFT-OR-BUF*$DESTRUCTURE) (LEMMAS CAR . TV-SHIFT-OR-BUF*$DESTRUCTURE) (LEMMAS CAR . TV-SHIFT-OR-BUF*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF*) (QUOTE (MAIN-EVENT TV-SHIFT-OR-BUF*))) (PUT1-LST (QUOTE TV-SHIFT-OR-BUF*) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-SHIFT-OR-BUF* 16 NIL)) TOTALP-LST ((TV-SHIFT-OR-BUF* . T)) SDEFN (LAMBDA (TREE) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE (AN ZERO OP0 OP1 OP2 OP3)))) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (CONS (QUOTE (CNTL (CTL SI) SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE CTL) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (V-SHIFT-RIGHT-NAMES (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE SI)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LISP-CODE *1*TV-SHIFT-OR-BUF* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194053 SATELLITES (*1*TV-SHIFT-OR-BUF*) IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$NETLIST TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF*-OFF TV-SHIFT-OR-BUF*$DESTRUCTURE) EVENT (DEFN TV-SHIFT-OR-BUF* (TREE) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE (AN ZERO OP0 OP1 OP2 OP3)))) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (CONS (QUOTE (CNTL (CTL SI) SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE CTL) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (V-SHIFT-RIGHT-NAMES (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE SI)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT-NAMES . TV-SHIFT-OR-BUF*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-SHIFT-OR-BUF*) (IMMEDIATE-DEPENDENTS0 INDICES . TV-SHIFT-OR-BUF*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-SHIFT-OR-BUF*) (IMMEDIATE-DEPENDENTS0 INDEX . TV-SHIFT-OR-BUF*) (DCELL . *1*TV-SHIFT-OR-BUF*))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-IS-LSR) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) EVENT (PROVE-LEMMA SHIFT-OR-BUF-IS-LSR (REWRITE) (IMPLIES (AND (BVP A) (AND (NOT OP0) (AND OP1 (AND (NOT OP2) (AND OP3 (NOT ZERO)))))) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-LSR A))) ((ENABLE SHIFT-OR-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IF-WORKS . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 BV2P . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-NOT . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-NAND . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-OR3 . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-AND . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 B-OR . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 V-LSR . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . SHIFT-OR-BUF-IS-LSR) (IMMEDIATE-DEPENDENTS0 BVP . SHIFT-OR-BUF-IS-LSR) (LEMMAS SHIFT-OR-BUF . SHIFT-OR-BUF-IS-LSR))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-IS-ROR) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) EVENT (PROVE-LEMMA SHIFT-OR-BUF-IS-ROR (REWRITE) (IMPLIES (AND (BVP A) (AND (BOOLP C) (AND (NOT OP0) (AND (NOT OP1) (AND (NOT OP2) (AND OP3 (NOT ZERO))))))) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-ROR A C))) ((ENABLE SHIFT-OR-BUF V-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BV2P . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 PLUS-0 . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 V-IF . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BOOLFIX . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-AND . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-NOT . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-NAND . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-OR3 . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 B-OR . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 V-ROR . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BOOLP . SHIFT-OR-BUF-IS-ROR) (IMMEDIATE-DEPENDENTS0 BVP . SHIFT-OR-BUF-IS-ROR) (LEMMAS SHIFT-OR-BUF . SHIFT-OR-BUF-IS-ROR))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-IS-ASR) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) EVENT (PROVE-LEMMA SHIFT-OR-BUF-IS-ASR (REWRITE) (IMPLIES (AND (BVP A) (AND (EQUAL AN (NTH (SUB1 (LENGTH A)) A)) (AND OP0 (AND (NOT OP1) (AND (NOT OP2) (AND OP3 (NOT ZERO))))))) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-ASR A))) ((ENABLE SHIFT-OR-BUF V-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 BV2P . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 PLUS-0 . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 V-IF . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 BOOLFIX . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-NOT . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-NAND . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-OR3 . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-AND . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 B-OR . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 V-ASR . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 NTH . SHIFT-OR-BUF-IS-ASR) (IMMEDIATE-DEPENDENTS0 BVP . SHIFT-OR-BUF-IS-ASR) (LEMMAS SHIFT-OR-BUF . SHIFT-OR-BUF-IS-ASR))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-IS-BUF) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES) EVENT (PROVE-LEMMA SHIFT-OR-BUF-IS-BUF (REWRITE) (IMPLIES (AND (BVP A) (OR (AND OP0 OP1) (OR OP2 (OR (NOT OP3) ZERO)))) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) A)) ((ENABLE SHIFT-OR-BUF) (DISABLE V-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IF-WORKS . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 BV2P . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-NOT . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-NAND . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-OR3 . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-AND . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 B-OR . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . SHIFT-OR-BUF-IS-BUF) (IMMEDIATE-DEPENDENTS0 BVP . SHIFT-OR-BUF-IS-BUF) (LEMMAS SHIFT-OR-BUF . SHIFT-OR-BUF-IS-BUF))))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF=SHIFT-OR-BUF) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA F$SHIFT-OR-BUF=SHIFT-OR-BUF (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BOOLP AN) (AND (BOOLP ZERO) (AND (BOOLP OP1) (AND (BOOLP OP2) (AND (BOOLP OP3) (AND (BOOLP OP4) (BVP A)))))))) (EQUAL (F$SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4) (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4))) ((ENABLE F$SHIFT-OR-BUF SHIFT-OR-BUF) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BVP . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT=V-SHIFT-RIGHT . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-AND . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NOT . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NAND . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-OR3 . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-OR . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 V-IF-WORKS . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BV2P . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 F-GATES . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BVP . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BOOLP . F$SHIFT-OR-BUF=SHIFT-OR-BUF) (LEMMAS F$SHIFT-OR-BUF . F$SHIFT-OR-BUF=SHIFT-OR-BUF))))) (PUT1-LST (QUOTE BVP-SHIFT-OR-BUF) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (BOOLP-BVP-CORE-ALU F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA BVP-SHIFT-OR-BUF (REWRITE) (BVP (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)) ((EXPAND (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-OR3 . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BVP-V-IF . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . BVP-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 BVP . BVP-SHIFT-OR-BUF) (LEMMAS BVP . BVP-SHIFT-OR-BUF))))) (PUT1-LST (QUOTE LENGTH-SHIFT-OR-BUF) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA LENGTH-SHIFT-OR-BUF (REWRITE) (EQUAL (LENGTH (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)) (LENGTH A)) ((EXPAND (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-OR3 . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NAND . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-NOT . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-V-IF . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . LENGTH-SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-SHIFT-OR-BUF) (LEMMAS LENGTH . LENGTH-SHIFT-OR-BUF))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$SHIFT-OR-BUF) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE PROPERP-LENGTH-F$CORE-ALU) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$SHIFT-OR-BUF (REWRITE) (AND (PROPERP (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3)) (EQUAL (LENGTH (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3)) (LENGTH A))) ((ENABLE F$SHIFT-OR-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-FV-IF . PROPERP-LENGTH-F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 PROPERP-FV-IF . PROPERP-LENGTH-F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF . PROPERP-LENGTH-F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$SHIFT-OR-BUF) (LEMMAS LENGTH . PROPERP-LENGTH-F$SHIFT-OR-BUF) (LEMMAS PROPERP . PROPERP-LENGTH-F$SHIFT-OR-BUF))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE SHIFT-OR-BUF-OFF SHIFT-OR-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF . SHIFT-OR-BUF-OFF) (DISABLED-LEMMAS NIL SHIFT-OR-BUF SHIFT-OR-BUF-OFF . T))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF) (QUOTE (MAIN-EVENT SHIFT-OR-BUF))) (PUT1-LST (QUOTE SHIFT-OR-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((SHIFT-OR-BUF 24 NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE SHIFT-OR-BUF-IS-LSR ((BVP A) (NOT OP0) OP1 (NOT OP2) OP3 (NOT ZERO)) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-LSR A)) NIL) (REWRITE-RULE SHIFT-OR-BUF-IS-ROR ((BVP A) (BOOLP C) (NOT OP0) (NOT OP1) (NOT OP2) OP3 (NOT ZERO)) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-ROR A C)) NIL) (REWRITE-RULE SHIFT-OR-BUF-IS-ASR ((BVP A) (EQUAL AN (NTH (SUB1 (LENGTH A)) A)) OP0 (NOT OP1) (NOT OP2) OP3 (NOT ZERO)) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) (V-ASR A)) NIL) (REWRITE-RULE SHIFT-OR-BUF-IS-BUF ((BVP A) (OR (AND OP0 OP1) (OR OP2 (OR (NOT OP3) ZERO)))) (EQUAL (SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3) A) NIL)) TOTALP-LST ((SHIFT-OR-BUF . T)) SDEFN (LAMBDA (C A AN ZERO OP0 OP1 OP2 OP3) (V-IF (CAR (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) A (V-SHIFT-RIGHT A (CAR (CDR (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)))))) LISP-CODE *1*SHIFT-OR-BUF SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194053 SATELLITES (*1*SHIFT-OR-BUF) IMMEDIATE-DEPENDENTS0 (CORE-ALU SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-OFF) EVENT (DEFN SHIFT-OR-BUF (C A AN ZERO OP0 OP1 OP2 OP3) (V-IF (CAR (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) A (V-SHIFT-RIGHT A (CAR (CDR (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 V-IF . SHIFT-OR-BUF) (DCELL . *1*SHIFT-OR-BUF))))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE F$SHIFT-OR-BUF-OFF F$SHIFT-OR-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF . F$SHIFT-OR-BUF-OFF) (DISABLED-LEMMAS NIL F$SHIFT-OR-BUF F$SHIFT-OR-BUF-OFF . T))))) (PUT1-LST (QUOTE *1*F$SHIFT-OR-BUF) (QUOTE (MAIN-EVENT F$SHIFT-OR-BUF))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((F$SHIFT-OR-BUF 24 NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$SHIFT-OR-BUF=SHIFT-OR-BUF ((BOOLP C) (BOOLP AN) (BOOLP ZERO) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3) (BOOLP OP4) (BVP A)) (EQUAL (F$SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4) (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)) NIL)) TOTALP-LST ((F$SHIFT-OR-BUF . T)) SDEFN (LAMBDA (C A AN ZERO OP0 OP1 OP2 OP3) (FV-IF (CAR (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) A (FV-SHIFT-RIGHT A (CAR (CDR (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)))))) LISP-CODE *1*F$SHIFT-OR-BUF SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194053 SATELLITES (*1*F$SHIFT-OR-BUF) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU TV-SHIFT-OR-BUF$VALUE F$SHIFT-OR-BUF=SHIFT-OR-BUF PROPERP-LENGTH-F$SHIFT-OR-BUF F$SHIFT-OR-BUF-OFF) EVENT (DEFN F$SHIFT-OR-BUF (C A AN ZERO OP0 OP1 OP2 OP3) (FV-IF (CAR (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) A (FV-SHIFT-RIGHT A (CAR (CDR (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF) (IMMEDIATE-DEPENDENTS0 FV-IF . F$SHIFT-OR-BUF) (DCELL . *1*F$SHIFT-OR-BUF))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL$VALUE-ZERO) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE-ZERO) EVENT (PROVE-LEMMA SHIFT-OR-BUF-CNTL$VALUE-ZERO (REWRITE) (IMPLIES (SHIFT-OR-BUF-CNTL& NETLIST) (EQUAL (CAR (DUAL-EVAL (QUOTE 0) (QUOTE SHIFT-OR-BUF-CNTL) (CONS C (CONS AN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST)) (QUOTE *1*TRUE))) ((ENABLE SHIFT-OR-BUF-CNTL& B-OR3$VALUE F-OR3 F-OR-REWRITE) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-OR3 . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-OR3$VALUE . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL* . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-GATES . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL& . SHIFT-OR-BUF-CNTL$VALUE-ZERO) (LEMMAS CAR . SHIFT-OR-BUF-CNTL$VALUE-ZERO))))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (F$SHIFT-OR-BUF=SHIFT-OR-BUF) EVENT (PROVE-LEMMA F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BOOLP AN) (AND (BOOLP ZERO) (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3))))))) (EQUAL (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3) (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-GATES . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 B-GATES . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 BOOLP . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) (LEMMAS F$SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL$VALUE-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE SHIFT-OR-BUF-CNTL$VALUE-OFF SHIFT-OR-BUF-CNTL$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL$VALUE . SHIFT-OR-BUF-CNTL$VALUE-OFF) (DISABLED-LEMMAS NIL SHIFT-OR-BUF-CNTL$VALUE SHIFT-OR-BUF-CNTL$VALUE-OFF . T))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL$VALUE) (QUOTE (IDATE 1000402194053 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-OFF) EVENT (PROVE-LEMMA SHIFT-OR-BUF-CNTL$VALUE (REWRITE) (IMPLIES (SHIFT-OR-BUF-CNTL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE SHIFT-OR-BUF-CNTL) (CONS C (CONS AN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3))) ((ENABLE SHIFT-OR-BUF-CNTL& F$SHIFT-OR-BUF-CNTL B-OR$VALUE B-NOT$VALUE B-NAND$VALUE B-AND$VALUE B-OR3$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR3$VALUE . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL* . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF-CNTL . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SHIFT-OR-BUF-CNTL$VALUE) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL& . SHIFT-OR-BUF-CNTL$VALUE) (LEMMAS DUAL-EVAL . SHIFT-OR-BUF-CNTL$VALUE))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL$NETLIST) (QUOTE (MAIN-EVENT SHIFT-OR-BUF-CNTL$NETLIST))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((SHIFT-OR-BUF-CNTL$NETLIST 16)) TOTALP-LST ((SHIFT-OR-BUF-CNTL$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (SHIFT-OR-BUF-CNTL*) (UNION (UNION (UNION (UNION (B-OR$NETLIST) (B-NOT$NETLIST)) (B-NAND$NETLIST)) (B-AND$NETLIST)) (B-OR3$NETLIST)))) LISP-CODE *1*SHIFT-OR-BUF-CNTL$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194053 SATELLITES (*1*SHIFT-OR-BUF-CNTL$NETLIST) IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$NETLIST) EVENT (DEFN SHIFT-OR-BUF-CNTL$NETLIST NIL (CONS (SHIFT-OR-BUF-CNTL*) (UNION (UNION (UNION (UNION (B-OR$NETLIST) (B-NOT$NETLIST)) (B-NAND$NETLIST)) (B-AND$NETLIST)) (B-OR3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3$NETLIST . SHIFT-OR-BUF-CNTL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . SHIFT-OR-BUF-CNTL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . SHIFT-OR-BUF-CNTL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . SHIFT-OR-BUF-CNTL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . SHIFT-OR-BUF-CNTL$NETLIST) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL* . SHIFT-OR-BUF-CNTL$NETLIST) (DCELL . *1*SHIFT-OR-BUF-CNTL$NETLIST))))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL&-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE SHIFT-OR-BUF-CNTL&-OFF SHIFT-OR-BUF-CNTL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL& . SHIFT-OR-BUF-CNTL&-OFF) (DISABLED-LEMMAS NIL SHIFT-OR-BUF-CNTL& SHIFT-OR-BUF-CNTL&-OFF . T))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL&) (QUOTE (MAIN-EVENT SHIFT-OR-BUF-CNTL&))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL&) (QUOTE (TYPE-PRESCRIPTION-LST ((SHIFT-OR-BUF-CNTL& 3 NIL)) TOTALP-LST ((SHIFT-OR-BUF-CNTL& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST) (SHIFT-OR-BUF-CNTL*)) (IF (B-OR& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (IF (B-AND& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (B-OR3& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*SHIFT-OR-BUF-CNTL& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194053 SATELLITES (*1*SHIFT-OR-BUF-CNTL&) IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF& SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE SHIFT-OR-BUF-CNTL&-OFF) EVENT (DEFN SHIFT-OR-BUF-CNTL& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST) (SHIFT-OR-BUF-CNTL*)) (AND (B-OR& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (AND (B-AND& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)) (B-OR3& (DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) NETLIST)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3& . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 B-AND& . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 B-NAND& . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 B-NOT& . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 B-OR& . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 SHIFT-OR-BUF-CNTL* . SHIFT-OR-BUF-CNTL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . SHIFT-OR-BUF-CNTL&) (DCELL . *1*SHIFT-OR-BUF-CNTL&))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL*) (QUOTE (MAIN-EVENT SHIFT-OR-BUF-CNTL*))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL*) (QUOTE (TYPE-PRESCRIPTION-LST ((SHIFT-OR-BUF-CNTL* 16)) TOTALP-LST ((SHIFT-OR-BUF-CNTL* . T)) SDEFN (LAMBDA NIL (QUOTE (SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3) (W-3 W-9) ((G-6 (W-6) B-NOT (OP1)) (G-5 (W-5) B-NOT (OP0)) (G-7 (W-7) B-AND (W-5 W-6)) (G-8 (W-8) B-AND (W-7 C)) (G-4 (W-4) B-AND (OP0 AN)) (G-9 (W-9) B-OR (W-4 W-8)) (G-1 (W-1) B-NOT (OP2)) (G-2 (W-2) B-NAND (W-1 OP3)) (G-0 (W-0) B-AND (OP0 OP1)) (G-3 (W-3) B-OR3 (W-0 W-2 ZERO))) NIL))) LISP-CODE *1*SHIFT-OR-BUF-CNTL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194053 SATELLITES (*1*SHIFT-OR-BUF-CNTL*) IMMEDIATE-DEPENDENTS0 (SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE SHIFT-OR-BUF-CNTL$NETLIST SHIFT-OR-BUF-CNTL&) EVENT (DEFN SHIFT-OR-BUF-CNTL* NIL (QUOTE (SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3) (W-3 W-9) ((G-6 (W-6) B-NOT (OP1)) (G-5 (W-5) B-NOT (OP0)) (G-7 (W-7) B-AND (W-5 W-6)) (G-8 (W-8) B-AND (W-7 C)) (G-4 (W-4) B-AND (OP0 AN)) (G-9 (W-9) B-OR (W-4 W-8)) (G-1 (W-1) B-NOT (OP2)) (G-2 (W-2) B-NAND (W-1 OP3)) (G-0 (W-0) B-AND (OP0 OP1)) (G-3 (W-3) B-OR3 (W-0 W-2 ZERO))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*SHIFT-OR-BUF-CNTL*))))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF-CNTL-OFF) (QUOTE (IDATE 1000402194053 EVENT (TOGGLE F$SHIFT-OR-BUF-CNTL-OFF F$SHIFT-OR-BUF-CNTL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$SHIFT-OR-BUF-CNTL . F$SHIFT-OR-BUF-CNTL-OFF) (DISABLED-LEMMAS NIL F$SHIFT-OR-BUF-CNTL F$SHIFT-OR-BUF-CNTL-OFF . T))))) (PUT1-LST (QUOTE *1*F$SHIFT-OR-BUF-CNTL) (QUOTE (MAIN-EVENT F$SHIFT-OR-BUF-CNTL))) (PUT1-LST (QUOTE F$SHIFT-OR-BUF-CNTL) (QUOTE (TYPE-PRESCRIPTION-LST ((F$SHIFT-OR-BUF-CNTL 16 NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL ((BOOLP C) (BOOLP AN) (BOOLP ZERO) (BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3) (SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$SHIFT-OR-BUF-CNTL . T)) SDEFN (LAMBDA (C AN ZERO OP0 OP1 OP2 OP3) (CONS (F-OR3 (F-AND OP0 OP1) (F-NAND (F-NOT OP2) OP3) ZERO) (CONS (F-OR (F-AND OP0 AN) (F-AND (F-AND (F-NOT OP0) (F-NOT OP1)) C)) (QUOTE NIL)))) LISP-CODE *1*F$SHIFT-OR-BUF-CNTL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194052 SATELLITES (*1*F$SHIFT-OR-BUF-CNTL) IMMEDIATE-DEPENDENTS0 (F$SHIFT-OR-BUF F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL$VALUE F$SHIFT-OR-BUF-CNTL-OFF) EVENT (DEFN F$SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3) (CONS (F-OR3 (F-AND OP0 OP1) (F-NAND (F-NOT OP2) OP3) ZERO) (CONS (F-OR (F-AND OP0 AN) (F-AND (F-AND (F-NOT OP0) (F-NOT OP1)) C)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F$SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-NOT . F$SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-NAND . F$SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-AND . F$SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 F-OR3 . F$SHIFT-OR-BUF-CNTL) (DCELL . *1*F$SHIFT-OR-BUF-CNTL))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL) (QUOTE (MAIN-EVENT SHIFT-OR-BUF-CNTL))) (PUT1-LST (QUOTE SHIFT-OR-BUF-CNTL) (QUOTE (TYPE-PRESCRIPTION-LST ((SHIFT-OR-BUF-CNTL 16 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((SHIFT-OR-BUF-CNTL . T)) SDEFN (LAMBDA (C AN ZERO OP0 OP1 OP2 OP3) (CONS (B-OR3 (B-AND OP0 OP1) (B-NAND (B-NOT OP2) OP3) ZERO) (CONS (B-OR (B-AND OP0 AN) (B-AND (B-AND (B-NOT OP0) (B-NOT OP1)) C)) (QUOTE NIL)))) LISP-CODE *1*SHIFT-OR-BUF-CNTL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194052 SATELLITES (*1*SHIFT-OR-BUF-CNTL) IMMEDIATE-DEPENDENTS0 (SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL) EVENT (DEFN SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3) (CONS (B-OR3 (B-AND OP0 OP1) (B-NAND (B-NOT OP2) OP3) ZERO) (CONS (B-OR (B-AND OP0 AN) (B-AND (B-AND (B-NOT OP0) (B-NOT OP1)) C)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 B-NOT . SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 B-NAND . SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 B-AND . SHIFT-OR-BUF-CNTL) (IMMEDIATE-DEPENDENTS0 B-OR3 . SHIFT-OR-BUF-CNTL) (DCELL . *1*SHIFT-OR-BUF-CNTL))))) (PUT1-LST (QUOTE COLLECT-VALUE-V-SHIFT-RIGHT) (QUOTE (IDATE 1000402194052 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-V-SHIFT-RIGHT (REWRITE) (EQUAL (V-THREEFIX (COLLECT-VALUE (V-SHIFT-RIGHT-NAMES A SI) ALIST)) (FV-SHIFT-RIGHT (COLLECT-VALUE A ALIST) (VALUE SI ALIST))) ((ENABLE COLLECT-VALUE APPEND FV-SHIFT-RIGHT V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 THREEFIX . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LISTP-COLLECT-VALUE . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT-NAMES . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . COLLECT-VALUE-V-SHIFT-RIGHT) (LEMMAS V-THREEFIX . COLLECT-VALUE-V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE PROPERP-SHIFT-RIGHT-NAMES) (QUOTE (IDATE 1000402194052 EVENT (PROVE-LEMMA PROPERP-SHIFT-RIGHT-NAMES (REWRITE) (PROPERP (V-SHIFT-RIGHT-NAMES A SI)) ((ENABLE PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT-NAMES . PROPERP-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-SHIFT-RIGHT-NAMES) (LEMMAS PROPERP . PROPERP-SHIFT-RIGHT-NAMES))))) (PUT1-LST (QUOTE LENGTH-V-SHIFT-RIGHT-NAMES) (QUOTE (IDATE 1000402194052 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE) EVENT (PROVE-LEMMA LENGTH-V-SHIFT-RIGHT-NAMES (REWRITE) (EQUAL (LENGTH (V-SHIFT-RIGHT-NAMES A SI)) (LENGTH A)) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT-NAMES . LENGTH-V-SHIFT-RIGHT-NAMES) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-SHIFT-RIGHT-NAMES) (LEMMAS LENGTH . LENGTH-V-SHIFT-RIGHT-NAMES))))) (PUT1-LST (QUOTE *1*V-SHIFT-RIGHT-NAMES) (QUOTE (MAIN-EVENT V-SHIFT-RIGHT-NAMES))) (PUT1-LST (QUOTE V-SHIFT-RIGHT-NAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SHIFT-RIGHT-NAMES 24 NIL NIL)) TOTALP-LST ((V-SHIFT-RIGHT-NAMES . T)) SDEFN (LAMBDA (A SI) (IF (LISTP A) (APPEND (CDR A) (CONS SI (QUOTE NIL))) (QUOTE NIL))) LISP-CODE *1*V-SHIFT-RIGHT-NAMES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194052 SATELLITES (*1*V-SHIFT-RIGHT-NAMES) IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* COLLECT-VALUE-V-SHIFT-RIGHT PROPERP-SHIFT-RIGHT-NAMES LENGTH-V-SHIFT-RIGHT-NAMES) EVENT (DEFN V-SHIFT-RIGHT-NAMES (A SI) (IF (NLISTP A) (QUOTE NIL) (APPEND (CDR A) (CONS SI (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((DCELL . *1*V-SHIFT-RIGHT-NAMES))))) (PUT1-LST (QUOTE OVERFLOW-HELP$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194052 EVENT (TOGGLE OVERFLOW-HELP$VALUE-ZERO-OFF OVERFLOW-HELP$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP$VALUE-ZERO . OVERFLOW-HELP$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE OVERFLOW-HELP$VALUE-ZERO) (QUOTE (IDATE 1000402194052 IMMEDIATE-DEPENDENTS0 (OVERFLOW-HELP$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA OVERFLOW-HELP$VALUE-ZERO (REWRITE) (IMPLIES (AND (OVERFLOW-HELP& NETLIST) (BOOLP RN)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE OVERFLOW-HELP) (CONS RN (CONS AN (CONS BN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (QUOTE (*1*FALSE)))) ((ENABLE OVERFLOW-HELP& B-NAND$VALUE B-NOT$VALUE B-NOR$VALUE F-NAND F-NOR B-IF$VALUE B-NOT F-AND3 F-AND-REWRITE BOOLP B-IF) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NAND . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOR . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP* . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-GATES . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . OVERFLOW-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP& . OVERFLOW-HELP$VALUE-ZERO) (LEMMAS DUAL-EVAL . OVERFLOW-HELP$VALUE-ZERO))))) (PUT1-LST (QUOTE F$OVERFLOW-HELP=OVERFLOW-HELP) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA F$OVERFLOW-HELP=OVERFLOW-HELP (REWRITE) (IMPLIES (AND (BOOLP RN) (AND (BOOLP AN) (AND (BOOLP BN) (AND (BOOLP ZERO) (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3)))))))) (EQUAL (F$OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3) (OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$OVERFLOW-HELP OVERFLOW-HELP) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F$OVERFLOW-HELP . F$OVERFLOW-HELP=OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . F$OVERFLOW-HELP=OVERFLOW-HELP) (LEMMAS F$OVERFLOW-HELP . F$OVERFLOW-HELP=OVERFLOW-HELP))))) (PUT1-LST (QUOTE OVERFLOW-HELP$VALUE-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE OVERFLOW-HELP$VALUE-OFF OVERFLOW-HELP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP$VALUE . OVERFLOW-HELP$VALUE-OFF) (DISABLED-LEMMAS NIL OVERFLOW-HELP$VALUE OVERFLOW-HELP$VALUE-OFF . T))))) (PUT1-LST (QUOTE OVERFLOW-HELP$VALUE) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE OVERFLOW-HELP$VALUE-OFF) EVENT (PROVE-LEMMA OVERFLOW-HELP$VALUE (REWRITE) (IMPLIES (OVERFLOW-HELP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE OVERFLOW-HELP) (CONS RN (CONS AN (CONS BN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (CONS (F$OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3) (QUOTE NIL)))) ((ENABLE OVERFLOW-HELP& F$OVERFLOW-HELP B-XOR$VALUE B-OR3$VALUE B-NOT$VALUE B-NAND3$VALUE B-NAND$VALUE B-NOR$VALUE B-IF$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR3$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP* . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F$OVERFLOW-HELP . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OVERFLOW-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP& . OVERFLOW-HELP$VALUE) (LEMMAS DUAL-EVAL . OVERFLOW-HELP$VALUE))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP$NETLIST) (QUOTE (MAIN-EVENT OVERFLOW-HELP$NETLIST))) (PUT1-LST (QUOTE OVERFLOW-HELP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((OVERFLOW-HELP$NETLIST 16)) TOTALP-LST ((OVERFLOW-HELP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (OVERFLOW-HELP*) (UNION (UNION (UNION (UNION (UNION (UNION (B-XOR$NETLIST) (B-OR3$NETLIST)) (B-NOT$NETLIST)) (B-NAND3$NETLIST)) (B-NAND$NETLIST)) (B-NOR$NETLIST)) (B-IF$NETLIST)))) LISP-CODE *1*OVERFLOW-HELP$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194051 SATELLITES (*1*OVERFLOW-HELP$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST) EVENT (DEFN OVERFLOW-HELP$NETLIST NIL (CONS (OVERFLOW-HELP*) (UNION (UNION (UNION (UNION (UNION (UNION (B-XOR$NETLIST) (B-OR3$NETLIST)) (B-NOT$NETLIST)) (B-NAND3$NETLIST)) (B-NAND$NETLIST)) (B-NOR$NETLIST)) (B-IF$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR3$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . OVERFLOW-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP* . OVERFLOW-HELP$NETLIST) (DCELL . *1*OVERFLOW-HELP$NETLIST))))) (PUT1-LST (QUOTE OVERFLOW-HELP&-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE OVERFLOW-HELP&-OFF OVERFLOW-HELP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP& . OVERFLOW-HELP&-OFF) (DISABLED-LEMMAS NIL OVERFLOW-HELP& OVERFLOW-HELP&-OFF . T))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP&) (QUOTE (MAIN-EVENT OVERFLOW-HELP&))) (PUT1-LST (QUOTE OVERFLOW-HELP&) (QUOTE (TYPE-PRESCRIPTION-LST ((OVERFLOW-HELP& 3 NIL)) TOTALP-LST ((OVERFLOW-HELP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE OVERFLOW-HELP) NETLIST) (OVERFLOW-HELP*)) (IF (B-XOR& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (IF (B-OR3& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (B-IF& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*OVERFLOW-HELP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194051 SATELLITES (*1*OVERFLOW-HELP&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE OVERFLOW-HELP&-OFF) EVENT (DEFN OVERFLOW-HELP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE OVERFLOW-HELP) NETLIST) (OVERFLOW-HELP*)) (AND (B-XOR& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (AND (B-OR3& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)) (B-IF& (DELETE-MODULE (QUOTE OVERFLOW-HELP) NETLIST)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-NOR& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-NOT& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-OR3& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 B-XOR& . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 OVERFLOW-HELP* . OVERFLOW-HELP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OVERFLOW-HELP&) (DCELL . *1*OVERFLOW-HELP&))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP*) (QUOTE (MAIN-EVENT OVERFLOW-HELP*))) (PUT1-LST (QUOTE OVERFLOW-HELP*) (QUOTE (TYPE-PRESCRIPTION-LST ((OVERFLOW-HELP* 16)) TOTALP-LST ((OVERFLOW-HELP* . T)) SDEFN (LAMBDA NIL (QUOTE (OVERFLOW-HELP (RN AN BN ZERO OP0 OP1 OP2 OP3) (W-83) ((G-77 (W-77) B-NOT (AN)) (G-78 (W-78) B-NOT (W-77)) (G-76 (W-76) B-NOT (OP2)) (G-79 (W-79) B-NAND (W-76 W-78)) (G-72 (W-72) B-NOT (OP1)) (G-75 (W-75) B-NAND3 (OP0 W-72 W-78)) (G-69 (W-69) B-NOT (W-76)) (G-71 (W-71) B-NAND (W-69 W-77)) (G-80 (W-80) B-NAND3 (W-71 W-75 W-79)) (G-81 (W-81) B-NOT (W-80)) (G-66 (W-66) B-NOT (ZERO)) (G-63 (W-63) B-NAND3 (W-72 W-76 W-78)) (G-57 (W-57) B-XOR (W-78 BN)) (G-58 (W-58) B-NAND3 (OP1 W-76 W-57)) (G-64 (W-64) B-NAND (W-58 W-63)) (G-52 (W-52) B-NAND3 (W-72 W-69 W-77)) (G-47 (W-47) B-OR3 (W-72 W-76 W-57)) (G-41 (W-41) B-NOT (OP3)) (G-53 (W-53) B-NAND3 (W-41 W-47 W-52)) (G-65 (W-65) B-NOR (W-53 W-64)) (G-67 (W-67) B-NAND (W-65 W-66)) (G-82 (W-82) B-NOR (W-67 W-81)) (G-40 (W-40) B-NOR (W-67 W-80)) (G-83 (W-83) B-IF (RN W-40 W-82))) NIL))) LISP-CODE *1*OVERFLOW-HELP* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*OVERFLOW-HELP*) IMMEDIATE-DEPENDENTS0 (OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE OVERFLOW-HELP$NETLIST OVERFLOW-HELP&) EVENT (DEFN OVERFLOW-HELP* NIL (QUOTE (OVERFLOW-HELP (RN AN BN ZERO OP0 OP1 OP2 OP3) (W-83) ((G-77 (W-77) B-NOT (AN)) (G-78 (W-78) B-NOT (W-77)) (G-76 (W-76) B-NOT (OP2)) (G-79 (W-79) B-NAND (W-76 W-78)) (G-72 (W-72) B-NOT (OP1)) (G-75 (W-75) B-NAND3 (OP0 W-72 W-78)) (G-69 (W-69) B-NOT (W-76)) (G-71 (W-71) B-NAND (W-69 W-77)) (G-80 (W-80) B-NAND3 (W-71 W-75 W-79)) (G-81 (W-81) B-NOT (W-80)) (G-66 (W-66) B-NOT (ZERO)) (G-63 (W-63) B-NAND3 (W-72 W-76 W-78)) (G-57 (W-57) B-XOR (W-78 BN)) (G-58 (W-58) B-NAND3 (OP1 W-76 W-57)) (G-64 (W-64) B-NAND (W-58 W-63)) (G-52 (W-52) B-NAND3 (W-72 W-69 W-77)) (G-47 (W-47) B-OR3 (W-72 W-76 W-57)) (G-41 (W-41) B-NOT (OP3)) (G-53 (W-53) B-NAND3 (W-41 W-47 W-52)) (G-65 (W-65) B-NOR (W-53 W-64)) (G-67 (W-67) B-NAND (W-65 W-66)) (G-82 (W-82) B-NOR (W-67 W-81)) (G-40 (W-40) B-NOR (W-67 W-80)) (G-83 (W-83) B-IF (RN W-40 W-82))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*OVERFLOW-HELP*))))) (PUT1-LST (QUOTE F$OVERFLOW-HELP-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE F$OVERFLOW-HELP-OFF F$OVERFLOW-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$OVERFLOW-HELP . F$OVERFLOW-HELP-OFF) (DISABLED-LEMMAS NIL F$OVERFLOW-HELP F$OVERFLOW-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*F$OVERFLOW-HELP) (QUOTE (MAIN-EVENT F$OVERFLOW-HELP))) (PUT1-LST (QUOTE F$OVERFLOW-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$OVERFLOW-HELP 131 NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$OVERFLOW-HELP=OVERFLOW-HELP ((BOOLP RN) (BOOLP AN) (BOOLP BN) (BOOLP ZERO) (BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3) (OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$OVERFLOW-HELP . T)) SDEFN (LAMBDA (RN AN BN ZERO OP0 OP1 OP2 OP3) (F-IF RN (F-NOR (F-NAND (F-NOR (F-NAND3 (F-NOT OP3) (F-OR3 (F-NOT OP1) (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT AN))) (F-NAND (F-NAND3 OP1 (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOT ZERO)) (F-NAND3 (F-NAND (F-NOT (F-NOT OP2)) (F-NOT AN)) (F-NAND3 OP0 (F-NOT OP1) (F-NOT (F-NOT AN))) (F-NAND (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOR (F-NAND (F-NOR (F-NAND3 (F-NOT OP3) (F-OR3 (F-NOT OP1) (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT AN))) (F-NAND (F-NAND3 OP1 (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOT ZERO)) (F-NOT (F-NAND3 (F-NAND (F-NOT (F-NOT OP2)) (F-NOT AN)) (F-NAND3 OP0 (F-NOT OP1) (F-NOT (F-NOT AN))) (F-NAND (F-NOT OP2) (F-NOT (F-NOT AN)))))))) LISP-CODE *1*F$OVERFLOW-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*F$OVERFLOW-HELP) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU F$OVERFLOW-HELP=OVERFLOW-HELP OVERFLOW-HELP$VALUE F$OVERFLOW-HELP-OFF) EVENT (DEFN F$OVERFLOW-HELP (RN AN BN ZERO OP0 OP1 OP2 OP3) (F-IF RN (F-NOR (F-NAND (F-NOR (F-NAND3 (F-NOT OP3) (F-OR3 (F-NOT OP1) (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT AN))) (F-NAND (F-NAND3 OP1 (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOT ZERO)) (F-NAND3 (F-NAND (F-NOT (F-NOT OP2)) (F-NOT AN)) (F-NAND3 OP0 (F-NOT OP1) (F-NOT (F-NOT AN))) (F-NAND (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOR (F-NAND (F-NOR (F-NAND3 (F-NOT OP3) (F-OR3 (F-NOT OP1) (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT AN))) (F-NAND (F-NAND3 OP1 (F-NOT OP2) (F-XOR (F-NOT (F-NOT AN)) BN)) (F-NAND3 (F-NOT OP1) (F-NOT OP2) (F-NOT (F-NOT AN))))) (F-NOT ZERO)) (F-NOT (F-NAND3 (F-NAND (F-NOT (F-NOT OP2)) (F-NOT AN)) (F-NAND3 OP0 (F-NOT OP1) (F-NOT (F-NOT AN))) (F-NAND (F-NOT OP2) (F-NOT (F-NOT AN)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-OR3 . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-NOT . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-NOR . F$OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 F-IF . F$OVERFLOW-HELP) (DCELL . *1*F$OVERFLOW-HELP))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP) (QUOTE (MAIN-EVENT OVERFLOW-HELP))) (PUT1-LST (QUOTE OVERFLOW-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((OVERFLOW-HELP 3 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((OVERFLOW-HELP . T)) SDEFN (LAMBDA (RN AN BN ZERO OP0 OP1 OP2 OP3) (B-IF RN (B-NOR (B-NAND (B-NOR (B-NAND3 (B-NOT OP3) (B-OR3 (B-NOT OP1) (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT AN))) (B-NAND (B-NAND3 OP1 (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOT ZERO)) (B-NAND3 (B-NAND (B-NOT (B-NOT OP2)) (B-NOT AN)) (B-NAND3 OP0 (B-NOT OP1) (B-NOT (B-NOT AN))) (B-NAND (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOR (B-NAND (B-NOR (B-NAND3 (B-NOT OP3) (B-OR3 (B-NOT OP1) (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT AN))) (B-NAND (B-NAND3 OP1 (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOT ZERO)) (B-NOT (B-NAND3 (B-NAND (B-NOT (B-NOT OP2)) (B-NOT AN)) (B-NAND3 OP0 (B-NOT OP1) (B-NOT (B-NOT AN))) (B-NAND (B-NOT OP2) (B-NOT (B-NOT AN)))))))) LISP-CODE *1*OVERFLOW-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*OVERFLOW-HELP) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU CORE-ALU F$OVERFLOW-HELP=OVERFLOW-HELP) EVENT (DEFN OVERFLOW-HELP (RN AN BN ZERO OP0 OP1 OP2 OP3) (B-IF RN (B-NOR (B-NAND (B-NOR (B-NAND3 (B-NOT OP3) (B-OR3 (B-NOT OP1) (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT AN))) (B-NAND (B-NAND3 OP1 (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOT ZERO)) (B-NAND3 (B-NAND (B-NOT (B-NOT OP2)) (B-NOT AN)) (B-NAND3 OP0 (B-NOT OP1) (B-NOT (B-NOT AN))) (B-NAND (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOR (B-NAND (B-NOR (B-NAND3 (B-NOT OP3) (B-OR3 (B-NOT OP1) (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT AN))) (B-NAND (B-NAND3 OP1 (B-NOT OP2) (B-XOR (B-NOT (B-NOT AN)) BN)) (B-NAND3 (B-NOT OP1) (B-NOT OP2) (B-NOT (B-NOT AN))))) (B-NOT ZERO)) (B-NOT (B-NAND3 (B-NAND (B-NOT (B-NOT OP2)) (B-NOT AN)) (B-NAND3 OP0 (B-NOT OP1) (B-NOT (B-NOT AN))) (B-NAND (B-NOT OP2) (B-NOT (B-NOT AN)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-OR3 . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-NOT . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-NOR . OVERFLOW-HELP) (IMMEDIATE-DEPENDENTS0 B-IF . OVERFLOW-HELP) (DCELL . *1*OVERFLOW-HELP))))) (PUT1-LST (QUOTE CARRY-OUT-HELP$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE CARRY-OUT-HELP$VALUE-ZERO-OFF CARRY-OUT-HELP$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP$VALUE-ZERO . CARRY-OUT-HELP$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE CARRY-OUT-HELP$VALUE-ZERO) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (CARRY-OUT-HELP$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA CARRY-OUT-HELP$VALUE-ZERO (REWRITE) (IMPLIES (CARRY-OUT-HELP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-OUT-HELP) (CONS A0 (CONS RESULT (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (QUOTE (*1*FALSE)))) ((ENABLE CARRY-OUT-HELP& B-NOT$VALUE B-AND$VALUE B-NOT F-AND-REWRITE) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP* . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-GATES . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CARRY-OUT-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP& . CARRY-OUT-HELP$VALUE-ZERO) (LEMMAS DUAL-EVAL . CARRY-OUT-HELP$VALUE-ZERO))))) (PUT1-LST (QUOTE CARRY-OUT-HELP-CONGRUENCE) (QUOTE (IDATE 1000402194051 EVENT (PROVE-LEMMA CARRY-OUT-HELP-CONGRUENCE (REWRITE) (IMPLIES X (EQUAL (EQUAL (CARRY-OUT-HELP X A ZERO OP0 OP1 OP2 OP3) (CARRY-OUT-HELP (QUOTE *1*TRUE) A ZERO OP0 OP1 OP2 OP3)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . CARRY-OUT-HELP-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CARRY-OUT-HELP-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CARRY-OUT-HELP-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NAND . CARRY-OUT-HELP-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-OUT-HELP-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . CARRY-OUT-HELP-CONGRUENCE) (LEMMAS EQUAL . CARRY-OUT-HELP-CONGRUENCE))))) (PUT1-LST (QUOTE F$CARRY-OUT-HELP=CARRY-OUT-HELP) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA F$CARRY-OUT-HELP=CARRY-OUT-HELP (REWRITE) (IMPLIES (AND (BOOLP A0) (AND (BOOLP RESULT) (AND (BOOLP ZERO) (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3))))))) (EQUAL (F$CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3) (CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$CARRY-OUT-HELP CARRY-OUT-HELP) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F$CARRY-OUT-HELP . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . F$CARRY-OUT-HELP=CARRY-OUT-HELP) (LEMMAS F$CARRY-OUT-HELP . F$CARRY-OUT-HELP=CARRY-OUT-HELP))))) (PUT1-LST (QUOTE CARRY-OUT-HELP$VALUE-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE CARRY-OUT-HELP$VALUE-OFF CARRY-OUT-HELP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP$VALUE . CARRY-OUT-HELP$VALUE-OFF) (DISABLED-LEMMAS NIL CARRY-OUT-HELP$VALUE CARRY-OUT-HELP$VALUE-OFF . T))))) (PUT1-LST (QUOTE CARRY-OUT-HELP$VALUE) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE CARRY-OUT-HELP$VALUE-OFF) EVENT (PROVE-LEMMA CARRY-OUT-HELP$VALUE (REWRITE) (IMPLIES (CARRY-OUT-HELP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-OUT-HELP) (CONS A0 (CONS RESULT (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (CONS (F$CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3) (QUOTE NIL)))) ((ENABLE CARRY-OUT-HELP& F$CARRY-OUT-HELP B-NOT$VALUE B-NAND$VALUE B-NAND4$VALUE B-NAND3$VALUE B-AND$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP* . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F$CARRY-OUT-HELP . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CARRY-OUT-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP& . CARRY-OUT-HELP$VALUE) (LEMMAS DUAL-EVAL . CARRY-OUT-HELP$VALUE))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP$NETLIST) (QUOTE (MAIN-EVENT CARRY-OUT-HELP$NETLIST))) (PUT1-LST (QUOTE CARRY-OUT-HELP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-OUT-HELP$NETLIST 16)) TOTALP-LST ((CARRY-OUT-HELP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CARRY-OUT-HELP*) (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND4$NETLIST)) (B-NAND3$NETLIST)) (B-AND$NETLIST)))) LISP-CODE *1*CARRY-OUT-HELP$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194051 SATELLITES (*1*CARRY-OUT-HELP$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST) EVENT (DEFN CARRY-OUT-HELP$NETLIST NIL (CONS (CARRY-OUT-HELP*) (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (B-NAND$NETLIST)) (B-NAND4$NETLIST)) (B-NAND3$NETLIST)) (B-AND$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . CARRY-OUT-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . CARRY-OUT-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . CARRY-OUT-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . CARRY-OUT-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . CARRY-OUT-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP* . CARRY-OUT-HELP$NETLIST) (DCELL . *1*CARRY-OUT-HELP$NETLIST))))) (PUT1-LST (QUOTE CARRY-OUT-HELP&-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE CARRY-OUT-HELP&-OFF CARRY-OUT-HELP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP& . CARRY-OUT-HELP&-OFF) (DISABLED-LEMMAS NIL CARRY-OUT-HELP& CARRY-OUT-HELP&-OFF . T))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP&) (QUOTE (MAIN-EVENT CARRY-OUT-HELP&))) (PUT1-LST (QUOTE CARRY-OUT-HELP&) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-OUT-HELP& 3 NIL)) TOTALP-LST ((CARRY-OUT-HELP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CARRY-OUT-HELP) NETLIST) (CARRY-OUT-HELP*)) (IF (B-NOT& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (IF (B-NAND4& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CARRY-OUT-HELP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194051 SATELLITES (*1*CARRY-OUT-HELP&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE CARRY-OUT-HELP&-OFF) EVENT (DEFN CARRY-OUT-HELP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CARRY-OUT-HELP) NETLIST) (CARRY-OUT-HELP*)) (AND (B-NOT& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (AND (B-NAND4& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE CARRY-OUT-HELP) NETLIST)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND& . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND4& . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND& . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 B-NOT& . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 CARRY-OUT-HELP* . CARRY-OUT-HELP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CARRY-OUT-HELP&) (DCELL . *1*CARRY-OUT-HELP&))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP*) (QUOTE (MAIN-EVENT CARRY-OUT-HELP*))) (PUT1-LST (QUOTE CARRY-OUT-HELP*) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-OUT-HELP* 16)) TOTALP-LST ((CARRY-OUT-HELP* . T)) SDEFN (LAMBDA NIL (QUOTE (CARRY-OUT-HELP (A0 RESULT ZERO OP0 OP1 OP2 OP3) (W-22) ((G-21 (W-21) B-NOT (ZERO)) (G-16 (W-16) B-NOT (OP1)) (G-17 (W-17) B-NOT (W-16)) (G-14 (W-14) B-NOT (OP0)) (G-15 (W-15) B-NOT (W-14)) (G-18 (W-18) B-NAND (W-15 W-17)) (G-13 (W-13) B-NOT (OP2)) (G-11 (W-11) B-NOT (OP3)) (G-12 (W-12) B-NOT (W-11)) (G-19 (W-19) B-NAND4 (W-12 W-13 W-18 A0)) (G-9 (W-9) B-NOT (RESULT)) (G-8 (W-8) B-NOT (W-13)) (G-10 (W-10) B-NAND3 (W-11 W-8 W-9)) (G-3 (W-3) B-NAND (W-14 W-16)) (G-5 (W-5) B-NAND4 (W-11 W-3 W-13 RESULT)) (G-20 (W-20) B-NAND3 (W-5 W-10 W-19)) (G-22 (W-22) B-AND (W-20 W-21))) NIL))) LISP-CODE *1*CARRY-OUT-HELP* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*CARRY-OUT-HELP*) IMMEDIATE-DEPENDENTS0 (CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE CARRY-OUT-HELP$NETLIST CARRY-OUT-HELP&) EVENT (DEFN CARRY-OUT-HELP* NIL (QUOTE (CARRY-OUT-HELP (A0 RESULT ZERO OP0 OP1 OP2 OP3) (W-22) ((G-21 (W-21) B-NOT (ZERO)) (G-16 (W-16) B-NOT (OP1)) (G-17 (W-17) B-NOT (W-16)) (G-14 (W-14) B-NOT (OP0)) (G-15 (W-15) B-NOT (W-14)) (G-18 (W-18) B-NAND (W-15 W-17)) (G-13 (W-13) B-NOT (OP2)) (G-11 (W-11) B-NOT (OP3)) (G-12 (W-12) B-NOT (W-11)) (G-19 (W-19) B-NAND4 (W-12 W-13 W-18 A0)) (G-9 (W-9) B-NOT (RESULT)) (G-8 (W-8) B-NOT (W-13)) (G-10 (W-10) B-NAND3 (W-11 W-8 W-9)) (G-3 (W-3) B-NAND (W-14 W-16)) (G-5 (W-5) B-NAND4 (W-11 W-3 W-13 RESULT)) (G-20 (W-20) B-NAND3 (W-5 W-10 W-19)) (G-22 (W-22) B-AND (W-20 W-21))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*CARRY-OUT-HELP*))))) (PUT1-LST (QUOTE F$CARRY-OUT-HELP-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE F$CARRY-OUT-HELP-OFF F$CARRY-OUT-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$CARRY-OUT-HELP . F$CARRY-OUT-HELP-OFF) (DISABLED-LEMMAS NIL F$CARRY-OUT-HELP F$CARRY-OUT-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*F$CARRY-OUT-HELP) (QUOTE (MAIN-EVENT F$CARRY-OUT-HELP))) (PUT1-LST (QUOTE F$CARRY-OUT-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$CARRY-OUT-HELP 131 NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$CARRY-OUT-HELP=CARRY-OUT-HELP ((BOOLP A0) (BOOLP RESULT) (BOOLP ZERO) (BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3) (CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$CARRY-OUT-HELP . T)) SDEFN (LAMBDA (A0 RESULT ZERO OP0 OP1 OP2 OP3) (F-AND (F-NAND3 (F-NAND4 (F-NOT OP3) (F-NAND (F-NOT OP0) (F-NOT OP1)) (F-NOT OP2) RESULT) (F-NAND3 (F-NOT OP3) (F-NOT (F-NOT OP2)) (F-NOT RESULT)) (F-NAND4 (F-NOT (F-NOT OP3)) (F-NOT OP2) (F-NAND (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1))) A0)) (F-NOT ZERO))) LISP-CODE *1*F$CARRY-OUT-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*F$CARRY-OUT-HELP) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU F$CARRY-OUT-HELP=CARRY-OUT-HELP CARRY-OUT-HELP$VALUE F$CARRY-OUT-HELP-OFF) EVENT (DEFN F$CARRY-OUT-HELP (A0 RESULT ZERO OP0 OP1 OP2 OP3) (F-AND (F-NAND3 (F-NAND4 (F-NOT OP3) (F-NAND (F-NOT OP0) (F-NOT OP1)) (F-NOT OP2) RESULT) (F-NAND3 (F-NOT OP3) (F-NOT (F-NOT OP2)) (F-NOT RESULT)) (F-NAND4 (F-NOT (F-NOT OP3)) (F-NOT OP2) (F-NAND (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1))) A0)) (F-NOT ZERO))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-NOT . F$CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F$CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 F-AND . F$CARRY-OUT-HELP) (DCELL . *1*F$CARRY-OUT-HELP))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP) (QUOTE (MAIN-EVENT CARRY-OUT-HELP))) (PUT1-LST (QUOTE CARRY-OUT-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-OUT-HELP 3 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((CARRY-OUT-HELP . T)) SDEFN (LAMBDA (A0 RESULT ZERO OP0 OP1 OP2 OP3) (B-AND (B-NAND3 (B-NAND4 (B-NOT OP3) (B-NAND (B-NOT OP0) (B-NOT OP1)) (B-NOT OP2) RESULT) (B-NAND3 (B-NOT OP3) (B-NOT (B-NOT OP2)) (B-NOT RESULT)) (B-NAND4 (B-NOT (B-NOT OP3)) (B-NOT OP2) (B-NAND (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1))) A0)) (B-NOT ZERO))) LISP-CODE *1*CARRY-OUT-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194051 SATELLITES (*1*CARRY-OUT-HELP) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU CORE-ALU CARRY-OUT-HELP-CONGRUENCE F$CARRY-OUT-HELP=CARRY-OUT-HELP) EVENT (DEFN CARRY-OUT-HELP (A0 RESULT ZERO OP0 OP1 OP2 OP3) (B-AND (B-NAND3 (B-NAND4 (B-NOT OP3) (B-NAND (B-NOT OP0) (B-NOT OP1)) (B-NOT OP2) RESULT) (B-NAND3 (B-NOT OP3) (B-NOT (B-NOT OP2)) (B-NOT RESULT)) (B-NAND4 (B-NOT (B-NOT OP3)) (B-NOT OP2) (B-NAND (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1))) A0)) (B-NOT ZERO))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND4 . CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CARRY-OUT-HELP) (IMMEDIATE-DEPENDENTS0 B-AND . CARRY-OUT-HELP) (DCELL . *1*CARRY-OUT-HELP))))) (PUT1-LST (QUOTE TV-ALU-HELP$VALUE-OFF) (QUOTE (IDATE 1000402194051 EVENT (TOGGLE TV-ALU-HELP$VALUE-OFF TV-ALU-HELP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP$VALUE . TV-ALU-HELP$VALUE-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP$VALUE) (QUOTE (IDATE 1000402194051 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE TV-ALU-HELP$VALUE-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP$VALUE (REWRITE) (IMPLIES (AND (TV-ALU-HELP& NETLIST TREE) (AND (PROPERP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (PROPERP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (PROPERP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B MPG))) STATE NETLIST) (F$TV-ALU-HELP C A B MPG TREE))) ((INDUCT (TV-ALU-HELP-INDUCTION TREE C A B MPG STATE NETLIST)) (ENABLE TV-ALU-HELP-LEMMA-CROCK T-CARRY$VALUE B-AND$VALUE V-BUF$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP*$DESTRUCTURE) (DISABLE INDICES *1*INDICES OPEN-INDICES F-AND TREE-NUMBER T-CARRY-P-G-CARRY) (EXPAND (TV-ALU-HELP& NETLIST TREE) (F$TV-ALU-HELP C A B MPG TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP*$DESTRUCTURE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-BODY . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 T-CARRY$VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN1 . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-DISJOINT-FIRSTN-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CDDR-F$TV-ALU-HELP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 CDDR-F$TV-ALU-HELP-LENGTH . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-LEMMA-CROCK . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP-V-THREEFIX-MPG . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF$VALUE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP$VALUE-BASE-CASE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-RESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-INDUCTION . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-ALU-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP& . TV-ALU-HELP$VALUE) (LEMMAS DUAL-EVAL . TV-ALU-HELP$VALUE))))) (PUT1-LST (QUOTE F$TV-ALU-HELP-V-THREEFIX-MPG) (QUOTE (IDATE 1000402194050 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE) EVENT (PROVE-LEMMA F$TV-ALU-HELP-V-THREEFIX-MPG (REWRITE) (IMPLIES (EQUAL (LENGTH MPG) (QUOTE 7)) (EQUAL (F$TV-ALU-HELP C A B (V-THREEFIX MPG) TREE) (F$TV-ALU-HELP C A B MPG TREE))) ((INDUCT (F$TV-ALU-HELP C A B MPG TREE)) (EXPAND (F$TV-ALU-HELP C A B MPG TREE) (F$TV-ALU-HELP C A B (V-THREEFIX MPG) TREE)) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$ALU-CELL-V-THREEFIX-MPG . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . F$TV-ALU-HELP-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-ALU-HELP-V-THREEFIX-MPG) (LEMMAS F$TV-ALU-HELP . F$TV-ALU-HELP-V-THREEFIX-MPG))))) (PUT1-LST (QUOTE TV-ALU-HELP$VALUE-BASE-CASE-OFF) (QUOTE (IDATE 1000402194050 EVENT (TOGGLE TV-ALU-HELP$VALUE-BASE-CASE-OFF TV-ALU-HELP$VALUE-BASE-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP$VALUE-BASE-CASE . TV-ALU-HELP$VALUE-BASE-CASE-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP$VALUE-BASE-CASE-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP$VALUE-BASE-CASE) (QUOTE (IDATE 1000402194050 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP$VALUE-BASE-CASE (REWRITE) (IMPLIES (AND (NLISTP TREE) (AND (TV-ALU-HELP& NETLIST TREE) (AND (EQUAL (LENGTH A) (QUOTE 1)) (AND (PROPERP A) (AND (EQUAL (LENGTH B) (QUOTE 1)) (AND (PROPERP B) (AND (EQUAL (LENGTH MPG) (QUOTE 7)) (PROPERP MPG)))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B MPG))) STATE NETLIST) (F$TV-ALU-HELP C A B MPG TREE))) ((DISABLE F-AND *1*INDICES OPEN-INDICES) (ENABLE ALU-CELL$VALUE F$ALU-CELL TV-ALU-HELP*$DESTRUCTURE) (EXPAND (TV-ALU-HELP& NETLIST TREE) (F$TV-ALU-HELP C A B MPG TREE) (APPEND B MPG) (APPEND A (CONS (CAR B) MPG)) (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 1)) (INDICES (QUOTE A) (QUOTE 0) (QUOTE 1)) (INDICES (QUOTE B) (QUOTE 0) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP*$DESTRUCTURE . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-BODY . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 LNFIX . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 F-NAND . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 F-NOT . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 ALU-CELL$VALUE . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP$VALUE-BASE-CASE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP& . TV-ALU-HELP$VALUE-BASE-CASE) (LEMMAS DUAL-EVAL . TV-ALU-HELP$VALUE-BASE-CASE))))) (PUT1-LST (QUOTE TV-ALU-HELP-LEMMA-CROCK-OFF) (QUOTE (IDATE 1000402194050 EVENT (TOGGLE TV-ALU-HELP-LEMMA-CROCK-OFF TV-ALU-HELP-LEMMA-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-LEMMA-CROCK . TV-ALU-HELP-LEMMA-CROCK-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-LEMMA-CROCK-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-LEMMA-CROCK) (QUOTE (IDATE 1000402194050 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-ALU-HELP-LEMMA-CROCK-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-LEMMA-CROCK (REWRITE) (IMPLIES (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) BINDINGS)))) ((USE (COLLECT-VALUE-SPLITTING-CROCK (L (INDICES (QUOTE OUT) (QUOTE 0) N)) (N (TREE-SIZE (CAR TREE))) (ALIST BINDINGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SPLITTING-CROCK . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-ALU-HELP-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP& . TV-ALU-HELP-LEMMA-CROCK) (LEMMAS COLLECT-VALUE . TV-ALU-HELP-LEMMA-CROCK))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP-INDUCTION) (QUOTE (MAIN-EVENT TV-ALU-HELP-INDUCTION))) (PUT1-LST (QUOTE TV-ALU-HELP-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP-INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((TV-ALU-HELP-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE C A B MPG STATE NETLIST) (IF (LISTP TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (IF (TV-ALU-HELP-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (V-THREEFIX MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-ALU-HELP-INDUCTION (CDR TREE) (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (V-THREEFIX MPG) (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (V-THREEFIX MPG) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (V-THREEFIX MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (TV-ALU-HELP-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-ALU-HELP-INDUCTION (CDR TREE) (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) LISP-CODE *1*TV-ALU-HELP-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE) (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) ((CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194050 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-ALU-HELP-INDUCTION) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE) EVENT (DEFN TV-ALU-HELP-INDUCTION (TREE C A B MPG STATE NETLIST) (IF (NLISTP TREE) (QUOTE *1*TRUE) (AND (TV-ALU-HELP-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (TV-ALU-HELP-INDUCTION (CDR TREE) (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (V-THREEFIX MPG) MPG) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 F$T-CARRY . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ALU-HELP-INDUCTION) (DCELL . *1*TV-ALU-HELP-INDUCTION))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP$NETLIST) (QUOTE (MAIN-EVENT TV-ALU-HELP$NETLIST))) (PUT1-LST (QUOTE TV-ALU-HELP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP$NETLIST 16 NIL)) TOTALP-LST ((TV-ALU-HELP$NETLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (CONS (TV-ALU-HELP* TREE) (UNION (TV-ALU-HELP$NETLIST (CAR TREE)) (UNION (TV-ALU-HELP$NETLIST (CDR TREE)) (UNION (T-CARRY$NETLIST) (UNION (B-AND$NETLIST) (V-BUF$NETLIST (QUOTE 7))))))) (CONS (TV-ALU-HELP* TREE) (ALU-CELL$NETLIST)))) LISP-CODE *1*TV-ALU-HELP$NETLIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE)) ((CAR TREE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194050 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-ALU-HELP$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST) EVENT (DEFN TV-ALU-HELP$NETLIST (TREE) (IF (NLISTP TREE) (CONS (TV-ALU-HELP* TREE) (ALU-CELL$NETLIST)) (CONS (TV-ALU-HELP* TREE) (UNION (TV-ALU-HELP$NETLIST (CAR TREE)) (UNION (TV-ALU-HELP$NETLIST (CDR TREE)) (UNION (T-CARRY$NETLIST) (UNION (B-AND$NETLIST) (V-BUF$NETLIST (QUOTE 7))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$NETLIST . TV-ALU-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . TV-ALU-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 T-CARRY$NETLIST . TV-ALU-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 ALU-CELL$NETLIST . TV-ALU-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP* . TV-ALU-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ALU-HELP$NETLIST) (DCELL . *1*TV-ALU-HELP$NETLIST))))) (PUT1-LST (QUOTE TV-ALU-HELP&-OFF) (QUOTE (IDATE 1000402194050 EVENT (TOGGLE TV-ALU-HELP&-OFF TV-ALU-HELP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP& . TV-ALU-HELP&-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP& TV-ALU-HELP&-OFF . T))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP&) (QUOTE (MAIN-EVENT TV-ALU-HELP&))) (PUT1-LST (QUOTE TV-ALU-HELP&) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP& 3 NIL NIL)) TOTALP-LST ((TV-ALU-HELP& . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST TREE) (IF (LISTP TREE) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (TV-ALU-HELP* TREE)) (IF (T-CARRY& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (IF (B-AND& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (IF (V-BUF& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (QUOTE 7)) (IF (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (IF (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CDR TREE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (TV-ALU-HELP* TREE)) (ALU-CELL& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)))) LISP-CODE *1*TV-ALU-HELP& SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CDR TREE)) ((DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CAR TREE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194050 CONTROLLER-POCKETS (2) SATELLITES (*1*TV-ALU-HELP&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP&-OFF) EVENT (DEFN TV-ALU-HELP& (NETLIST TREE) (IF (NLISTP TREE) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (TV-ALU-HELP* TREE)) (ALU-CELL& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST))) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (TV-ALU-HELP* TREE)) (AND (T-CARRY& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (AND (B-AND& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST)) (AND (V-BUF& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (QUOTE 7)) (AND (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CDR TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF& . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 B-AND& . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 T-CARRY& . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 ALU-CELL& . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP* . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TV-ALU-HELP&) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ALU-HELP&) (DCELL . *1*TV-ALU-HELP&))))) (PUT1-LST (QUOTE TV-ALU-HELP*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194050 EVENT (TOGGLE TV-ALU-HELP*$DESTRUCTURE-OFF TV-ALU-HELP*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP*$DESTRUCTURE . TV-ALU-HELP*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP*-OFF) (QUOTE (IDATE 1000402194050 EVENT (TOGGLE TV-ALU-HELP*-OFF TV-ALU-HELP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP* . TV-ALU-HELP*-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP* TV-ALU-HELP*-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP*$DESTRUCTURE) (QUOTE (IDATE 1000402194050 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TV-ALU-HELP* TREE)) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (TV-ALU-HELP* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)))))) (AND (EQUAL (CAR (CDR (CDR (TV-ALU-HELP* TREE)))) (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))))) (AND (EQUAL (CAR (CDR (CDR (CDR (TV-ALU-HELP* TREE))))) (TV-ALU-HELP-BODY TREE)) (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-ALU-HELP* TREE)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-BODY . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP* . TV-ALU-HELP*$DESTRUCTURE) (LEMMAS CAR . TV-ALU-HELP*$DESTRUCTURE) (LEMMAS CAR . TV-ALU-HELP*$DESTRUCTURE) (LEMMAS CAR . TV-ALU-HELP*$DESTRUCTURE) (LEMMAS CAR . TV-ALU-HELP*$DESTRUCTURE) (LEMMAS CAR . TV-ALU-HELP*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP*) (QUOTE (MAIN-EVENT TV-ALU-HELP*))) (PUT1-LST (QUOTE TV-ALU-HELP*) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP* 16 NIL)) TOTALP-LST ((TV-ALU-HELP* . T)) SDEFN (LAMBDA (TREE) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (TV-ALU-HELP-BODY TREE) (QUOTE (NIL))))))) LISP-CODE *1*TV-ALU-HELP* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194049 SATELLITES (*1*TV-ALU-HELP*) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$NETLIST TV-ALU-HELP& TV-ALU-HELP*-OFF TV-ALU-HELP*$DESTRUCTURE) EVENT (DEFN TV-ALU-HELP* (TREE) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (TV-ALU-HELP-BODY TREE) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-BODY . TV-ALU-HELP*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP*) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ALU-HELP*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP*) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP*) (DCELL . *1*TV-ALU-HELP*))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP-BODY) (QUOTE (MAIN-EVENT TV-ALU-HELP-BODY))) (PUT1-LST (QUOTE TV-ALU-HELP-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP-BODY 16 NIL)) TOTALP-LST ((TV-ALU-HELP-BODY . T)) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (APPEND (CONS (CONS (QUOTE BUFFERMPG) (CONS (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7)) (CONS (QUOTE (*1*QUOTE INDEX V-BUF 7)) (CONS (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (QUOTE NIL))))) (QUOTE NIL)) (CONS (CONS (QUOTE LHS) (CONS (CONS (QUOTE PL) (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (LHS-CARRY (CL) T-CARRY (C PL GL))) (CONS (CONS (QUOTE RHS) (CONS (CONS (QUOTE PR) (CONS (QUOTE GR) (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CL) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (QUOTE ((P (P) B-AND (PL PR)) (G (G) T-CARRY (GL PR GR)))))))) (APPEND (QUOTE NIL) (CONS (CONS (QUOTE LHS) (CONS (CONS (QUOTE PL) (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (LHS-CARRY (CL) T-CARRY (C PL GL))) (CONS (CONS (QUOTE RHS) (CONS (CONS (QUOTE PR) (CONS (QUOTE GR) (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CL) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (QUOTE ((P (P) B-AND (PL PR)) (G (G) T-CARRY (GL PR GR))))))))) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (P G (*1*QUOTE INDEX OUT 0))) (CONS (QUOTE ALU-CELL) (CONS (CONS (QUOTE C) (CONS (QUOTE (*1*QUOTE INDEX A 0)) (CONS (QUOTE (*1*QUOTE INDEX B 0)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (QUOTE NIL)))) LISP-CODE *1*TV-ALU-HELP-BODY SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194049 SATELLITES (*1*TV-ALU-HELP-BODY) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP*) EVENT (DEFN TV-ALU-HELP-BODY (TREE) (IF (NLISTP TREE) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (P G (*1*QUOTE INDEX OUT 0))) (CONS (QUOTE ALU-CELL) (CONS (CONS (QUOTE C) (CONS (QUOTE (*1*QUOTE INDEX A 0)) (CONS (QUOTE (*1*QUOTE INDEX B 0)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (QUOTE NIL)) (APPEND (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (CONS (CONS (QUOTE BUFFERMPG) (CONS (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7)) (CONS (QUOTE (*1*QUOTE INDEX V-BUF 7)) (CONS (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (QUOTE NIL))))) (QUOTE NIL)) (QUOTE NIL)) (CONS (CONS (QUOTE LHS) (CONS (CONS (QUOTE PL) (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)))))) (QUOTE NIL))))) (CONS (QUOTE (LHS-CARRY (CL) T-CARRY (C PL GL))) (CONS (CONS (QUOTE RHS) (CONS (CONS (QUOTE PR) (CONS (QUOTE GR) (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CL) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (APPEND (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE) (IF (EQUAL (REMAINDER (SUB1 (TREE-HEIGHT TREE)) (QUOTE 3)) (QUOTE 0)) (INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)))))) (QUOTE NIL))))) (QUOTE ((P (P) B-AND (PL PR)) (G (G) T-CARRY (GL PR GR)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ALU-HELP-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ALU-HELP-BODY) (DCELL . *1*TV-ALU-HELP-BODY))))) (PUT1-LST (QUOTE F$TV-ALU-HELP=TV-ALU-HELP) (QUOTE (IDATE 1000402194049 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA F$TV-ALU-HELP=TV-ALU-HELP (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))))) (EQUAL (F$TV-ALU-HELP C A B MPG TREE) (TV-ALU-HELP C A B MPG TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (ENABLE BOOLP-B-GATES BVP-LENGTH) (EXPAND (F$TV-ALU-HELP C A B MPG TREE) (TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES) (DISABLE ALU-CELL MPG T-CARRY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-F$TV-ALU-HELP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$T-CARRY=T-CARRY . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL=ALU-CELL . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . F$TV-ALU-HELP=TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . F$TV-ALU-HELP=TV-ALU-HELP) (LEMMAS F$TV-ALU-HELP . F$TV-ALU-HELP=TV-ALU-HELP))))) (PUT1-LST (QUOTE BVP-F$TV-ALU-HELP) (QUOTE (IDATE 1000402194049 EVENT (PROVE-LEMMA BVP-F$TV-ALU-HELP (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))))) (BVP (F$TV-ALU-HELP C A B MPG TREE))) ((ENABLE BVP BOOLP-B-GATES) (EXPAND (F$TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CDDR-F$TV-ALU-HELP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 G-CELL . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 P-CELL . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL=ALU-CELL . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-F$TV-ALU-HELP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$T-CARRY=T-CARRY . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-F$TV-ALU-HELP) (LEMMAS BVP . BVP-F$TV-ALU-HELP))))) (PUT1-LST (QUOTE BVP-CDDR-F$TV-ALU-HELP) (QUOTE (IDATE 1000402194049 IMMEDIATE-DEPENDENTS0 (BVP-F$TV-ALU-HELP) EVENT (PROVE-LEMMA BVP-CDDR-F$TV-ALU-HELP (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))))) (BVP (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE))))) ((ENABLE BVP BOOLP-B-GATES) (INDUCT (F$TV-ALU-HELP C A B MPG TREE)) (EXPAND (F$TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-CAR-F$TV-ALU-HELP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$T-CARRY=T-CARRY . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 G-CELL . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 P-CELL . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL=ALU-CELL . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-CDDR-F$TV-ALU-HELP) (LEMMAS BVP . BVP-CDDR-F$TV-ALU-HELP))))) (PUT1-LST (QUOTE BOOLP-CAR-F$TV-ALU-HELP) (QUOTE (IDATE 1000402194049 IMMEDIATE-DEPENDENTS0 (F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP) EVENT (PROVE-LEMMA BOOLP-CAR-F$TV-ALU-HELP (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (BVP B) (AND (EQUAL (LENGTH B) (TREE-SIZE TREE)) (AND (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))))) (AND (BOOLP (CAR (F$TV-ALU-HELP C A B MPG TREE))) (BOOLP (CAR (CDR (F$TV-ALU-HELP C A B MPG TREE)))))) ((INDUCT (F$TV-ALU-HELP C A B MPG TREE)) (EXPAND (F$TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES) (ENABLE BOOLP-B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$T-CARRY=T-CARRY . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 G-CELL . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 P-CELL . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL=ALU-CELL . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-CAR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-CAR-F$TV-ALU-HELP) (LEMMAS BOOLP . BOOLP-CAR-F$TV-ALU-HELP) (LEMMAS BOOLP . BOOLP-CAR-F$TV-ALU-HELP))))) (PUT1-LST (QUOTE PROPERP-F$TV-ALU-HELP) (QUOTE (IDATE 1000402194048 EVENT (PROVE-LEMMA PROPERP-F$TV-ALU-HELP (REWRITE) (PROPERP (F$TV-ALU-HELP C A B MPG TREE)) ((ENABLE PROPERP F$ALU-CELL) (EXPAND (F$TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TFIRSTN . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-CDDR-F$TV-ALU-HELP . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . PROPERP-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-F$TV-ALU-HELP) (LEMMAS PROPERP . PROPERP-F$TV-ALU-HELP))))) (PUT1-LST (QUOTE PROPERP-CDDR-F$TV-ALU-HELP) (QUOTE (IDATE 1000402194048 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE TV-ALU-HELP$VALUE PROPERP-F$TV-ALU-HELP) EVENT (PROVE-LEMMA PROPERP-CDDR-F$TV-ALU-HELP (REWRITE) (PROPERP (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) ((ENABLE PROPERP F$ALU-CELL) (INDUCT (F$TV-ALU-HELP C A B MPG TREE)) (EXPAND (F$TV-ALU-HELP C A B MPG TREE)) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TRESTN . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . PROPERP-CDDR-F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-CDDR-F$TV-ALU-HELP) (LEMMAS PROPERP . PROPERP-CDDR-F$TV-ALU-HELP))))) (PUT1-LST (QUOTE F$TV-ALU-HELP-LENGTH) (QUOTE (IDATE 1000402194048 EVENT (PROVE-LEMMA F$TV-ALU-HELP-LENGTH (REWRITE) (EQUAL (LENGTH (F$TV-ALU-HELP C A B MPG TREE)) (ADD1 (ADD1 (TREE-SIZE TREE)))) ((ENABLE LENGTH F$TV-ALU-HELP F$ALU-CELL TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDDR-F$TV-ALU-HELP-LENGTH . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-NAND . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-AND . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-NOT . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-ALU-HELP-LENGTH) (LEMMAS LENGTH . F$TV-ALU-HELP-LENGTH))))) (PUT1-LST (QUOTE CDDR-F$TV-ALU-HELP-LENGTH) (QUOTE (IDATE 1000402194048 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE PROPERP-LENGTH-F$CORE-ALU TV-ALU-HELP$VALUE F$TV-ALU-HELP-LENGTH) EVENT (PROVE-LEMMA CDDR-F$TV-ALU-HELP-LENGTH (REWRITE) (EQUAL (LENGTH (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) (TREE-SIZE TREE)) ((ENABLE F$TV-ALU-HELP F$ALU-CELL LENGTH TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-NAND . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-AND . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F-NOT . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . CDDR-F$TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . CDDR-F$TV-ALU-HELP-LENGTH) (LEMMAS LENGTH . CDDR-F$TV-ALU-HELP-LENGTH))))) (PUT1-LST (QUOTE F$TV-ALU-HELP-OFF) (QUOTE (IDATE 1000402194048 EVENT (TOGGLE F$TV-ALU-HELP-OFF F$TV-ALU-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$TV-ALU-HELP . F$TV-ALU-HELP-OFF) (DISABLED-LEMMAS NIL F$TV-ALU-HELP F$TV-ALU-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*F$TV-ALU-HELP) (QUOTE (MAIN-EVENT F$TV-ALU-HELP))) (PUT1-LST (QUOTE F$TV-ALU-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$TV-ALU-HELP 16 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$TV-ALU-HELP-V-THREEFIX-MPG ((EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (F$TV-ALU-HELP C A B (V-THREEFIX MPG) TREE) (F$TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE F$TV-ALU-HELP=TV-ALU-HELP ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (F$TV-ALU-HELP C A B MPG TREE) (TV-ALU-HELP C A B MPG TREE)) NIL)) TOTALP-LST ((F$TV-ALU-HELP . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (C A B MPG TREE) (IF (LISTP TREE) (CONS (F-AND (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)))) (CONS (F$T-CARRY (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CAR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))) (CAR (CDR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))) (APPEND (CDR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CDR (CDR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))))) (F$ALU-CELL C (CAR A) (CAR B) MPG))) LISP-CODE *1*F$TV-ALU-HELP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)) (C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194048 CONTROLLER-POCKETS (16) SATELLITES (*1*F$TV-ALU-HELP) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-INDUCTION F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP-OFF) EVENT (DEFN F$TV-ALU-HELP (C A B MPG TREE) (IF (NLISTP TREE) (F$ALU-CELL C (CAR A) (CAR B) MPG) (CONS (F-AND (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)))) (CONS (F$T-CARRY (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CAR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))) (CAR (CDR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))) (APPEND (CDR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CDR (CDR (F$TV-ALU-HELP (F$T-CARRY C (CAR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (F$TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$T-CARRY . F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F-AND . F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . F$TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . F$TV-ALU-HELP) (DCELL . *1*F$TV-ALU-HELP))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-NEG-WORKS-OFF) (QUOTE (IDATE 1000402194048 EVENT (TOGGLE TV-ALU-HELP-TV-NEG-WORKS-OFF TV-ALU-HELP-TV-NEG-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-NEG-WORKS . TV-ALU-HELP-TV-NEG-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-NEG-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-NEG-WORKS) (QUOTE (IDATE 1000402194048 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-NEG-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-NEG-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT A) (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)) TREE) (TV-ADDER C (V-NOT A) (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE)) (ENABLE V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 CAR-NAT-TO-V-0-IS-F . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-FIRSTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-RESTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-NEG-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-NEG-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-NEG-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-DEC-B-WORKS-OFF) (QUOTE (IDATE 1000402194048 EVENT (TOGGLE TV-ALU-HELP-TV-DEC-B-WORKS-OFF TV-ALU-HELP-TV-DEC-B-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-DEC-B-WORKS . TV-ALU-HELP-TV-DEC-B-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-B-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-DEC-B-WORKS) (QUOTE (IDATE 1000402194048 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B TV-ALU-HELP-TV-DEC-B-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-DEC-B-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (AND (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH B))) B TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (DISABLE V-NOT-FIRSTN V-NOT-RESTN) (ENABLE FIRSTN-V-NOT RESTN-V-NOT) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH B))) B TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-V-NOT . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-V-NOT . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-DEC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-DEC-B-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-DEC-B-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-DEC-A-WORKS-OFF) (QUOTE (IDATE 1000402194048 EVENT (TOGGLE TV-ALU-HELP-TV-DEC-A-WORKS-OFF TV-ALU-HELP-TV-DEC-A-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-DEC-A-WORKS . TV-ALU-HELP-TV-DEC-A-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-DEC-A-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-DEC-A-WORKS) (QUOTE (IDATE 1000402194048 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-DEC-A-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-DEC-A-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (DISABLE V-NOT-FIRSTN V-NOT-RESTN) (ENABLE FIRSTN-V-NOT RESTN-V-NOT) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)) TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-V-NOT . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-V-NOT . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-DEC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-DEC-A-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-DEC-A-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-INC-B-WORKS-OFF) (QUOTE (IDATE 1000402194047 EVENT (TOGGLE TV-ALU-HELP-TV-INC-B-WORKS-OFF TV-ALU-HELP-TV-INC-B-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-INC-B-WORKS . TV-ALU-HELP-TV-INC-B-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-B-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-INC-B-WORKS) (QUOTE (IDATE 1000402194047 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-INC-B TV-ALU-HELP-TV-INC-B-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-INC-B-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (AND (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C B (NAT-TO-V (QUOTE 0) (LENGTH B)) TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)) TREE) (TV-ADDER C B (NAT-TO-V (QUOTE 0) (LENGTH B)) TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 CAR-NAT-TO-V-0-IS-F . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-INC-B-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-INC-B-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-INC-B-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-INC-A-WORKS-OFF) (QUOTE (IDATE 1000402194047 EVENT (TOGGLE TV-ALU-HELP-TV-INC-A-WORKS-OFF TV-ALU-HELP-TV-INC-A-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-INC-A-WORKS . TV-ALU-HELP-TV-INC-A-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-INC-A-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-INC-A-WORKS) (QUOTE (IDATE 1000402194047 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-INC-A-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-INC-A-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C A (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)) TREE) (TV-ADDER C A (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 CAR-NAT-TO-V-0-IS-F . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-INC-A-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-INC-A-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-INC-A-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF) (QUOTE (IDATE 1000402194047 EVENT (TOGGLE TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF TV-ALU-HELP-TV-SUBTRACTER-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-SUBTRACTER-WORKS . TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-SUBTRACTER-WORKS) (QUOTE (IDATE 1000402194047 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-SUBTRACTER-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-SUBTRACTER-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT A) B TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)) TREE) (TV-ADDER C (V-NOT A) B TREE)) (ENABLE V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-FIRSTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-RESTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-SUBTRACTER-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-SUBTRACTER-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-ADDER-WORKS-OFF) (QUOTE (IDATE 1000402194047 EVENT (TOGGLE TV-ALU-HELP-TV-ADDER-WORKS-OFF TV-ALU-HELP-TV-ADDER-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-TV-ADDER-WORKS . TV-ALU-HELP-TV-ADDER-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-TV-ADDER-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-TV-ADDER-WORKS) (QUOTE (IDATE 1000402194047 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-ADDER-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-TV-ADDER-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C A B TREE))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)) TREE) (TV-ADDER C A B TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-TV-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-TV-ADDER-WORKS) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-TV-ADDER-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-BUF-WORKS-OFF) (QUOTE (IDATE 1000402194047 EVENT (TOGGLE TV-ALU-HELP-V-BUF-WORKS-OFF TV-ALU-HELP-V-BUF-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-BUF-WORKS . TV-ALU-HELP-V-BUF-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-BUF-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-BUF-WORKS) (QUOTE (IDATE 1000402194047 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-V-BUF-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-V-BUF-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-BUF A))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) TREE)) (ENABLE V-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 V-BUF . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-V-BUF-WORKS) (LEMMAS CDR . TV-ALU-HELP-V-BUF-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-NOT-WORKS-OFF) (QUOTE (IDATE 1000402194046 EVENT (TOGGLE TV-ALU-HELP-V-NOT-WORKS-OFF TV-ALU-HELP-V-NOT-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-NOT-WORKS . TV-ALU-HELP-V-NOT-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-NOT-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-NOT-WORKS) (QUOTE (IDATE 1000402194046 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-V-NOT-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-V-NOT-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-NOT A))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)) TREE)) (ENABLE V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-FIRSTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT-RESTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-V-NOT-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-ALU-HELP-V-NOT-WORKS) (LEMMAS CDR . TV-ALU-HELP-V-NOT-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-XOR-WORKS-OFF) (QUOTE (IDATE 1000402194046 EVENT (TOGGLE TV-ALU-HELP-V-XOR-WORKS-OFF TV-ALU-HELP-V-XOR-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-XOR-WORKS . TV-ALU-HELP-V-XOR-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-XOR-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-XOR-WORKS) (QUOTE (IDATE 1000402194046 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-V-XOR-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-V-XOR-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (AND (BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-XOR A B))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)) TREE)) (ENABLE V-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 V-XOR-APPEND-HELP . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-XOR . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 V-XOR . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-V-XOR-WORKS) (IMMEDIATE-DEPENDENTS0 BV2P . TV-ALU-HELP-V-XOR-WORKS) (LEMMAS CDR . TV-ALU-HELP-V-XOR-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-OR-WORKS-OFF) (QUOTE (IDATE 1000402194046 EVENT (TOGGLE TV-ALU-HELP-V-OR-WORKS-OFF TV-ALU-HELP-V-OR-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-OR-WORKS . TV-ALU-HELP-V-OR-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-OR-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-OR-WORKS) (QUOTE (IDATE 1000402194046 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-V-OR-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-V-OR-WORKS (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (AND (BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-OR A B))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)) TREE)) (ENABLE V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 V-OR-APPEND-HELP . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 V-OR . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-V-OR-WORKS) (IMMEDIATE-DEPENDENTS0 BV2P . TV-ALU-HELP-V-OR-WORKS) (LEMMAS CDR . TV-ALU-HELP-V-OR-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-AND-WORKS-OFF) (QUOTE (IDATE 1000402194046 EVENT (TOGGLE TV-ALU-HELP-V-AND-WORKS-OFF TV-ALU-HELP-V-AND-WORKS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-V-AND-WORKS . TV-ALU-HELP-V-AND-WORKS-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-V-AND-WORKS-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-V-AND-WORKS) (QUOTE (IDATE 1000402194046 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-V-AND-WORKS-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-V-AND-WORKS (REWRITE) (IMPLIES (AND (BV2P A B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL MPG (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-AND A B))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (EXPAND (TV-ALU-HELP C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) TREE)) (ENABLE V-AND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 V-AND-APPEND-HELP . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 V-AND . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-V-AND-WORKS) (IMMEDIATE-DEPENDENTS0 BV2P . TV-ALU-HELP-V-AND-WORKS) (LEMMAS CDR . TV-ALU-HELP-V-AND-WORKS))))) (PUT1-LST (QUOTE TV-ALU-HELP-ZERO-OFF) (QUOTE (IDATE 1000402194046 EVENT (TOGGLE TV-ALU-HELP-ZERO-OFF TV-ALU-HELP-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-ZERO . TV-ALU-HELP-ZERO-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP-ZERO TV-ALU-HELP-ZERO-OFF . T))))) (PUT1-LST (QUOTE TV-ALU-HELP-ZERO) (QUOTE (IDATE 1000402194046 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ZERO-CASE TV-ALU-HELP-ZERO-OFF) EVENT (PROVE-LEMMA TV-ALU-HELP-ZERO (REWRITE) (IMPLIES (AND (EQUAL MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL C (QUOTE *1*TRUE)))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH A) (QUOTE *1*FALSE)))))) ((INDUCT (TV-ALU-HELP C A B MPG TREE)) (ENABLE TV-ALU-HELP MAKE-LIST MAKE-LIST-APPEND-TREE-CROCK) (EXPAND (TV-ALU-HELP (QUOTE *1*TRUE) A B (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)) TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND-TREE-CROCK . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 T-CARRY . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-ZERO) (LEMMAS TV-ALU-HELP . TV-ALU-HELP-ZERO))))) (PUT1-LST (QUOTE BVP-LENGTH-TV-ALU-HELP) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA BVP-LENGTH-TV-ALU-HELP (REWRITE) (EQUAL (BVP-LENGTH (TV-ALU-HELP C A B MPG TREE) N) (IF (LESSP (ADD1 (ADD1 (TREE-SIZE TREE))) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((ENABLE BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP-LENGTH . BVP-LENGTH-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-TV-ALU-HELP . BVP-LENGTH-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BVP-LENGTH-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . BVP-LENGTH-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-TV-ALU-HELP) (LEMMAS BVP-LENGTH . BVP-LENGTH-TV-ALU-HELP))))) (PUT1-LST (QUOTE BVP-TV-ALU-HELP) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-ALU-HELP) EVENT (PROVE-LEMMA BVP-TV-ALU-HELP (REWRITE) (BVP (TV-ALU-HELP C A B MPG TREE)) ((ENABLE BVP TV-ALU-HELP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CDDR-TV-ALU-HELP . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 G-CELL . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-AND3 . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 P-CELL . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . BVP-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-TV-ALU-HELP) (LEMMAS BVP . BVP-TV-ALU-HELP))))) (PUT1-LST (QUOTE BVP-CDDR-TV-ALU-HELP) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU BVP-TV-ALU-HELP) EVENT (PROVE-LEMMA BVP-CDDR-TV-ALU-HELP (REWRITE) (BVP (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) ((ENABLE BVP TV-ALU-HELP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 G-CELL . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-AND3 . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 P-CELL . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . BVP-CDDR-TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CDDR-TV-ALU-HELP) (LEMMAS BVP . BVP-CDDR-TV-ALU-HELP))))) (PUT1-LST (QUOTE TV-ALU-HELP-LENGTH) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-ALU-HELP) EVENT (PROVE-LEMMA TV-ALU-HELP-LENGTH (REWRITE) (EQUAL (LENGTH (TV-ALU-HELP C A B MPG TREE)) (ADD1 (ADD1 (TREE-SIZE TREE)))) ((ENABLE LENGTH TV-ALU-HELP TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDDR-TV-ALU-HELP-LENGTH . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 G-CELL . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-AND3 . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 P-CELL . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NAND . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NAND3 . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ALU-HELP-LENGTH) (LEMMAS LENGTH . TV-ALU-HELP-LENGTH))))) (PUT1-LST (QUOTE CDDR-TV-ALU-HELP-LENGTH) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU TV-ALU-HELP-LENGTH) EVENT (PROVE-LEMMA CDDR-TV-ALU-HELP-LENGTH (REWRITE) (EQUAL (LENGTH (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) (TREE-SIZE TREE)) ((ENABLE TV-ALU-HELP LENGTH TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 G-CELL . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-AND3 . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 P-CELL . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NAND . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 B-NOT . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 ALU-CELL . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . CDDR-TV-ALU-HELP-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . CDDR-TV-ALU-HELP-LENGTH) (LEMMAS LENGTH . CDDR-TV-ALU-HELP-LENGTH))))) (PUT1-LST (QUOTE TV-ALU-HELP-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE TV-ALU-HELP-OFF TV-ALU-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ALU-HELP . TV-ALU-HELP-OFF) (DISABLED-LEMMAS NIL TV-ALU-HELP TV-ALU-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP) (QUOTE (MAIN-EVENT TV-ALU-HELP))) (PUT1-LST (QUOTE TV-ALU-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ALU-HELP 16 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE TV-ALU-HELP-TV-NEG-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT A) (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-DEC-B-WORKS ((EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH B))) B TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-DEC-A-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-INC-B-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C B (NAT-TO-V (QUOTE 0) (LENGTH B)) TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-INC-A-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C A (NAT-TO-V (QUOTE 0) (LENGTH A)) TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-SUBTRACTER-WORKS ((EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C (V-NOT A) B TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-TV-ADDER-WORKS ((EQUAL MPG (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (TV-ADDER C A B TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-ZERO ((EQUAL MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL C (QUOTE *1*TRUE))) (EQUAL (TV-ALU-HELP C A B MPG TREE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH A) (QUOTE *1*FALSE))))) NIL)) TOTALP-LST ((TV-ALU-HELP . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (C A B MPG TREE) (IF (LISTP TREE) (CONS (B-AND (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)))) (CONS (T-CARRY (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CAR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))) (CAR (CDR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))) (APPEND (CDR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CDR (CDR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))))) (ALU-CELL C (CAR A) (CAR B) MPG))) LISP-CODE *1*TV-ALU-HELP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)) (C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194044 CONTROLLER-POCKETS (16) SATELLITES (*1*TV-ALU-HELP) IMMEDIATE-DEPENDENTS0 (CORE-ALU F$TV-ALU-HELP=TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-LENGTH-TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP-OFF) EVENT (DEFN TV-ALU-HELP (C A B MPG TREE) (IF (NLISTP TREE) (ALU-CELL C (CAR A) (CAR B) MPG) (CONS (B-AND (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE)))) (CONS (T-CARRY (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CAR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))) (CAR (CDR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))) (APPEND (CDR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE)))) (CDR (CDR (TV-ALU-HELP (T-CARRY C (CAR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))) (CAR (CDR (TV-ALU-HELP C (TFIRSTN A TREE) (TFIRSTN B TREE) MPG (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) MPG (CDR TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 T-CARRY . TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 ALU-CELL . TV-ALU-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ALU-HELP) (DCELL . *1*TV-ALU-HELP))))) (PUT1-LST (QUOTE F$ALU-CELL-V-THREEFIX-MPG) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$TV-ALU-HELP-V-THREEFIX-MPG) EVENT (PROVE-LEMMA F$ALU-CELL-V-THREEFIX-MPG (REWRITE) (IMPLIES (EQUAL (LENGTH MPG) (QUOTE 7)) (EQUAL (F$ALU-CELL C A B (V-THREEFIX MPG)) (F$ALU-CELL C A B MPG))) ((ENABLE F$ALU-CELL F$P-CELL F$G-CELL V-THREEFIX EQUAL-LENGTH-ADD1 F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (DISABLE THREEFIX) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F$G-CELL . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F$P-CELL . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F-GATE-THREEFIX-CONGRUENCE-LEMMAS . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F-GATES . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . F$ALU-CELL-V-THREEFIX-MPG) (IMMEDIATE-DEPENDENTS0 LENGTH . F$ALU-CELL-V-THREEFIX-MPG) (LEMMAS F$ALU-CELL . F$ALU-CELL-V-THREEFIX-MPG))))) (PUT1-LST (QUOTE ALU-CELL$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE ALU-CELL$VALUE-ZERO-OFF ALU-CELL$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-CELL$VALUE-ZERO . ALU-CELL$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL ALU-CELL$VALUE-ZERO ALU-CELL$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE ALU-CELL$VALUE-ZERO) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA ALU-CELL$VALUE-ZERO (REWRITE) (IMPLIES (AND (ALU-CELL& NETLIST) (EQUAL MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ALU-CELL) (CONS (QUOTE *1*TRUE) (CONS A (CONS B MPG))) STATE NETLIST) (QUOTE (*1*FALSE *1*TRUE *1*FALSE)))) ((ENABLE ALU-CELL& BVP-LENGTH P-CELL$VALUE-ZERO G-CELL$VALUE-ZERO B-NAND$VALUE B-EQUV3$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 P-CELL$VALUE-ZERO . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 G-CELL$VALUE-ZERO . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NAND . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-EQUV3$VALUE . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-CELL* . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ALU-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-CELL& . ALU-CELL$VALUE-ZERO) (LEMMAS DUAL-EVAL . ALU-CELL$VALUE-ZERO))))) (PUT1-LST (QUOTE ALU-CELL$VALUE-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE ALU-CELL$VALUE-OFF ALU-CELL$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-CELL$VALUE . ALU-CELL$VALUE-OFF) (DISABLED-LEMMAS NIL ALU-CELL$VALUE ALU-CELL$VALUE-OFF . T))))) (PUT1-LST (QUOTE ALU-CELL$VALUE) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-OFF) EVENT (PROVE-LEMMA ALU-CELL$VALUE (REWRITE) (IMPLIES (ALU-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ALU-CELL) (CONS C (CONS A (CONS B MPG))) STATE NETLIST) (F$ALU-CELL C A B MPG))) ((ENABLE F$ALU-CELL ALU-CELL& B-NOT$VALUE P-CELL$VALUE G-CELL$VALUE B-NAND$VALUE B-EQUV3$VALUE BVP-LENGTH) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 P-CELL$VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 G-CELL$VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV3$VALUE . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-CELL* . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ALU-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 ALU-CELL& . ALU-CELL$VALUE) (LEMMAS DUAL-EVAL . ALU-CELL$VALUE))))) (PUT1-LST (QUOTE *1*ALU-CELL$NETLIST) (QUOTE (MAIN-EVENT ALU-CELL$NETLIST))) (PUT1-LST (QUOTE ALU-CELL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-CELL$NETLIST 16)) TOTALP-LST ((ALU-CELL$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (ALU-CELL*) (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (P-CELL$NETLIST)) (G-CELL$NETLIST)) (B-NAND$NETLIST)) (B-EQUV3$NETLIST)))) LISP-CODE *1*ALU-CELL$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194044 SATELLITES (*1*ALU-CELL$NETLIST) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$NETLIST) EVENT (DEFN ALU-CELL$NETLIST NIL (CONS (ALU-CELL*) (UNION (UNION (UNION (UNION (B-NOT$NETLIST) (P-CELL$NETLIST)) (G-CELL$NETLIST)) (B-NAND$NETLIST)) (B-EQUV3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3$NETLIST . ALU-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . ALU-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 G-CELL$NETLIST . ALU-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 P-CELL$NETLIST . ALU-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . ALU-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 ALU-CELL* . ALU-CELL$NETLIST) (DCELL . *1*ALU-CELL$NETLIST))))) (PUT1-LST (QUOTE ALU-CELL&-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE ALU-CELL&-OFF ALU-CELL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-CELL& . ALU-CELL&-OFF) (DISABLED-LEMMAS NIL ALU-CELL& ALU-CELL&-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-CELL&) (QUOTE (MAIN-EVENT ALU-CELL&))) (PUT1-LST (QUOTE ALU-CELL&) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-CELL& 3 NIL)) TOTALP-LST ((ALU-CELL& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE ALU-CELL) NETLIST) (ALU-CELL*)) (IF (B-NOT& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (IF (P-CELL& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (IF (G-CELL& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (B-EQUV3& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*ALU-CELL& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194044 SATELLITES (*1*ALU-CELL&) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP& ALU-CELL$VALUE-ZERO ALU-CELL$VALUE ALU-CELL&-OFF) EVENT (DEFN ALU-CELL& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE ALU-CELL) NETLIST) (ALU-CELL*)) (AND (B-NOT& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (AND (P-CELL& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (AND (G-CELL& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)) (B-EQUV3& (DELETE-MODULE (QUOTE ALU-CELL) NETLIST)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3& . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 B-NAND& . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 G-CELL& . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 P-CELL& . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 B-NOT& . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 ALU-CELL* . ALU-CELL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . ALU-CELL&) (DCELL . *1*ALU-CELL&))))) (PUT1-LST (QUOTE *1*ALU-CELL*) (QUOTE (MAIN-EVENT ALU-CELL*))) (PUT1-LST (QUOTE ALU-CELL*) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-CELL* 16)) TOTALP-LST ((ALU-CELL* . T)) SDEFN (LAMBDA NIL (QUOTE (ALU-CELL (C A B GBN GAN GA PB PAN PA M) (P G Z) ((N0 (AN) B-NOT (A)) (N1 (BN) B-NOT (B)) (P0 (P) P-CELL (A AN B PA PAN PB)) (G0 (G) G-CELL (A AN BN GA GAN GBN)) (M0 (MC) B-NAND (C M)) (Z0 (Z) B-EQUV3 (MC P G))) NIL))) LISP-CODE *1*ALU-CELL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*ALU-CELL*) IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE-ZERO ALU-CELL$VALUE ALU-CELL$NETLIST ALU-CELL&) EVENT (DEFN ALU-CELL* NIL (QUOTE (ALU-CELL (C A B GBN GAN GA PB PAN PA M) (P G Z) ((N0 (AN) B-NOT (A)) (N1 (BN) B-NOT (B)) (P0 (P) P-CELL (A AN B PA PAN PB)) (G0 (G) G-CELL (A AN BN GA GAN GBN)) (M0 (MC) B-NAND (C M)) (Z0 (Z) B-EQUV3 (MC P G))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALU-CELL*))))) (PUT1-LST (QUOTE F$ALU-CELL=ALU-CELL) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP) EVENT (PROVE-LEMMA F$ALU-CELL=ALU-CELL (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BOOLP A) (AND (BOOLP B) (AND (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7)))))) (EQUAL (F$ALU-CELL C A B MPG) (ALU-CELL C A B MPG))) ((ENABLE F$ALU-CELL BVP-LENGTH BOOLP-B-GATES) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$G-CELL=G-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 G-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 F$P-CELL=P-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 P-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 F-GATES . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 B-GATES . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 ALU-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 F$ALU-CELL . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 LENGTH . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BVP . F$ALU-CELL=ALU-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP . F$ALU-CELL=ALU-CELL) (LEMMAS F$ALU-CELL . F$ALU-CELL=ALU-CELL))))) (PUT1-LST (QUOTE F$ALU-CELL-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE F$ALU-CELL-OFF F$ALU-CELL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$ALU-CELL . F$ALU-CELL-OFF) (DISABLED-LEMMAS NIL F$ALU-CELL F$ALU-CELL-OFF . T))))) (PUT1-LST (QUOTE *1*F$ALU-CELL) (QUOTE (MAIN-EVENT F$ALU-CELL))) (PUT1-LST (QUOTE F$ALU-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((F$ALU-CELL 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$ALU-CELL-V-THREEFIX-MPG ((EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (F$ALU-CELL C A B (V-THREEFIX MPG)) (F$ALU-CELL C A B MPG)) NIL) (REWRITE-RULE F$ALU-CELL=ALU-CELL ((BOOLP C) (BOOLP A) (BOOLP B) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (F$ALU-CELL C A B MPG) (ALU-CELL C A B MPG)) NIL)) TOTALP-LST ((F$ALU-CELL . T)) SDEFN (LAMBDA (C A B MPG) (CONS (F$P-CELL A (F-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (CONS (F$G-CELL A (F-NOT A) (F-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG)) (CONS (F-EQUV3 (F-NAND C (CAR (CDR (CDR (CDR (CDR (CDR (CDR MPG)))))))) (F$P-CELL A (F-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (F$G-CELL A (F-NOT A) (F-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG))) (QUOTE NIL))))) LISP-CODE *1*F$ALU-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*F$ALU-CELL) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE-BASE-CASE PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP F$ALU-CELL-V-THREEFIX-MPG ALU-CELL$VALUE F$ALU-CELL=ALU-CELL F$ALU-CELL-OFF) EVENT (DEFN F$ALU-CELL (C A B MPG) (CONS (F$P-CELL A (F-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (CONS (F$G-CELL A (F-NOT A) (F-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG)) (CONS (F-EQUV3 (F-NAND C (CAR (CDR (CDR (CDR (CDR (CDR (CDR MPG)))))))) (F$P-CELL A (F-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (F$G-CELL A (F-NOT A) (F-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$ALU-CELL) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F$ALU-CELL) (IMMEDIATE-DEPENDENTS0 F$G-CELL . F$ALU-CELL) (IMMEDIATE-DEPENDENTS0 F-NOT . F$ALU-CELL) (IMMEDIATE-DEPENDENTS0 F$P-CELL . F$ALU-CELL) (DCELL . *1*F$ALU-CELL))))) (PUT1-LST (QUOTE *1*ALU-CELL) (QUOTE (MAIN-EVENT ALU-CELL))) (PUT1-LST (QUOTE ALU-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-CELL 16 NIL NIL NIL NIL)) TOTALP-LST ((ALU-CELL . T)) SDEFN (LAMBDA (C A B MPG) (CONS (P-CELL A (B-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (CONS (G-CELL A (B-NOT A) (B-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG)) (CONS (B-EQUV3 (B-NAND C (CAR (CDR (CDR (CDR (CDR (CDR (CDR MPG)))))))) (P-CELL A (B-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (G-CELL A (B-NOT A) (B-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG))) (QUOTE NIL))))) LISP-CODE *1*ALU-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*ALU-CELL) IMMEDIATE-DEPENDENTS0 (BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP F$ALU-CELL=ALU-CELL) EVENT (DEFN ALU-CELL (C A B MPG) (CONS (P-CELL A (B-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (CONS (G-CELL A (B-NOT A) (B-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG)) (CONS (B-EQUV3 (B-NAND C (CAR (CDR (CDR (CDR (CDR (CDR (CDR MPG)))))))) (P-CELL A (B-NOT A) B (CAR (CDR (CDR (CDR (CDR (CDR MPG)))))) (CAR (CDR (CDR (CDR (CDR MPG))))) (CAR (CDR (CDR (CDR MPG))))) (G-CELL A (B-NOT A) (B-NOT B) (CAR (CDR (CDR MPG))) (CAR (CDR MPG)) (CAR MPG))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . ALU-CELL) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . ALU-CELL) (IMMEDIATE-DEPENDENTS0 G-CELL . ALU-CELL) (IMMEDIATE-DEPENDENTS0 B-NOT . ALU-CELL) (IMMEDIATE-DEPENDENTS0 P-CELL . ALU-CELL) (DCELL . *1*ALU-CELL))))) (PUT1-LST (QUOTE G-CELL$VALUE-ZERO) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE-ZERO) EVENT (PROVE-LEMMA G-CELL$VALUE-ZERO (REWRITE) (IMPLIES (G-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE G-CELL) (CONS A (CONS AN (CONS BN (QUOTE (*1*FALSE *1*FALSE *1*FALSE))))) STATE NETLIST) (QUOTE (*1*TRUE)))) ((ENABLE G-CELL& B-AND3$VALUE B-NAND$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOT . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NAND . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-AND3 . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 G-CELL* . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . G-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 G-CELL& . G-CELL$VALUE-ZERO) (LEMMAS DUAL-EVAL . G-CELL$VALUE-ZERO))))) (PUT1-LST (QUOTE F$G-CELL=G-CELL) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$ALU-CELL=ALU-CELL) EVENT (PROVE-LEMMA F$G-CELL=G-CELL (REWRITE) (IMPLIES (AND (BOOLP A) (AND (BOOLP AN) (AND (BOOLP BN) (AND (BOOLP GA) (AND (BOOLP GAN) (BOOLP GBN)))))) (EQUAL (F$G-CELL A AN BN GA GAN GBN) (G-CELL A AN BN GA GAN GBN))) ((ENABLE BOOLP-B-GATES F$G-CELL G-CELL) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 F-GATES . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 B-GATES . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 G-CELL . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 F$G-CELL . F$G-CELL=G-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP . F$G-CELL=G-CELL) (LEMMAS F$G-CELL . F$G-CELL=G-CELL))))) (PUT1-LST (QUOTE G-CELL$VALUE-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE G-CELL$VALUE-OFF G-CELL$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 G-CELL$VALUE . G-CELL$VALUE-OFF) (DISABLED-LEMMAS NIL G-CELL$VALUE G-CELL$VALUE-OFF . T))))) (PUT1-LST (QUOTE G-CELL$VALUE) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE G-CELL$VALUE-OFF) EVENT (PROVE-LEMMA G-CELL$VALUE (REWRITE) (IMPLIES (G-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE G-CELL) (CONS A (CONS AN (CONS BN (CONS GA (CONS GAN (CONS GBN (QUOTE NIL))))))) STATE NETLIST) (CONS (F$G-CELL A AN BN GA GAN GBN) (QUOTE NIL)))) ((ENABLE G-CELL& F$G-CELL B-NAND$VALUE B-AND3$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 G-CELL* . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F$G-CELL . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . G-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 G-CELL& . G-CELL$VALUE) (LEMMAS DUAL-EVAL . G-CELL$VALUE))))) (PUT1-LST (QUOTE *1*G-CELL$NETLIST) (QUOTE (MAIN-EVENT G-CELL$NETLIST))) (PUT1-LST (QUOTE G-CELL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((G-CELL$NETLIST 16)) TOTALP-LST ((G-CELL$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (G-CELL*) (UNION (B-NAND$NETLIST) (B-AND3$NETLIST)))) LISP-CODE *1*G-CELL$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194044 SATELLITES (*1*G-CELL$NETLIST) IMMEDIATE-DEPENDENTS0 (ALU-CELL$NETLIST) EVENT (DEFN G-CELL$NETLIST NIL (CONS (G-CELL*) (UNION (B-NAND$NETLIST) (B-AND3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3$NETLIST . G-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . G-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 G-CELL* . G-CELL$NETLIST) (DCELL . *1*G-CELL$NETLIST))))) (PUT1-LST (QUOTE G-CELL&-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE G-CELL&-OFF G-CELL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 G-CELL& . G-CELL&-OFF) (DISABLED-LEMMAS NIL G-CELL& G-CELL&-OFF . T))))) (PUT1-LST (QUOTE *1*G-CELL&) (QUOTE (MAIN-EVENT G-CELL&))) (PUT1-LST (QUOTE G-CELL&) (QUOTE (TYPE-PRESCRIPTION-LST ((G-CELL& 3 NIL)) TOTALP-LST ((G-CELL& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE G-CELL) NETLIST) (G-CELL*)) (IF (B-NAND& (DELETE-MODULE (QUOTE G-CELL) NETLIST)) (B-AND3& (DELETE-MODULE (QUOTE G-CELL) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*G-CELL& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194044 SATELLITES (*1*G-CELL&) IMMEDIATE-DEPENDENTS0 (ALU-CELL& G-CELL$VALUE-ZERO G-CELL$VALUE G-CELL&-OFF) EVENT (DEFN G-CELL& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE G-CELL) NETLIST) (G-CELL*)) (AND (B-NAND& (DELETE-MODULE (QUOTE G-CELL) NETLIST)) (B-AND3& (DELETE-MODULE (QUOTE G-CELL) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3& . G-CELL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . G-CELL&) (IMMEDIATE-DEPENDENTS0 B-NAND& . G-CELL&) (IMMEDIATE-DEPENDENTS0 G-CELL* . G-CELL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . G-CELL&) (DCELL . *1*G-CELL&))))) (PUT1-LST (QUOTE *1*G-CELL*) (QUOTE (MAIN-EVENT G-CELL*))) (PUT1-LST (QUOTE G-CELL*) (QUOTE (TYPE-PRESCRIPTION-LST ((G-CELL* 16)) TOTALP-LST ((G-CELL* . T)) SDEFN (LAMBDA NIL (QUOTE (G-CELL (A AN BN GA GAN GBN) (W-3) ((G-2 (W-2) B-NAND (BN GBN)) (G-1 (W-1) B-NAND (AN GAN)) (G-0 (W-0) B-NAND (A GA)) (G-3 (W-3) B-AND3 (W-0 W-1 W-2))) NIL))) LISP-CODE *1*G-CELL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*G-CELL*) IMMEDIATE-DEPENDENTS0 (G-CELL$VALUE-ZERO G-CELL$VALUE G-CELL$NETLIST G-CELL&) EVENT (DEFN G-CELL* NIL (QUOTE (G-CELL (A AN BN GA GAN GBN) (W-3) ((G-2 (W-2) B-NAND (BN GBN)) (G-1 (W-1) B-NAND (AN GAN)) (G-0 (W-0) B-NAND (A GA)) (G-3 (W-3) B-AND3 (W-0 W-1 W-2))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*G-CELL*))))) (PUT1-LST (QUOTE F$G-CELL-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE F$G-CELL-OFF F$G-CELL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$G-CELL . F$G-CELL-OFF) (DISABLED-LEMMAS NIL F$G-CELL F$G-CELL-OFF . T))))) (PUT1-LST (QUOTE *1*F$G-CELL) (QUOTE (MAIN-EVENT F$G-CELL))) (PUT1-LST (QUOTE F$G-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((F$G-CELL 131 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$G-CELL=G-CELL ((BOOLP A) (BOOLP AN) (BOOLP BN) (BOOLP GA) (BOOLP GAN) (BOOLP GBN)) (EQUAL (F$G-CELL A AN BN GA GAN GBN) (G-CELL A AN BN GA GAN GBN)) NIL)) TOTALP-LST ((F$G-CELL . T)) SDEFN (LAMBDA (A AN BN GA GAN GBN) (F-AND3 (F-NAND A GA) (F-NAND AN GAN) (F-NAND BN GBN))) LISP-CODE *1*F$G-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*F$G-CELL) IMMEDIATE-DEPENDENTS0 (F$ALU-CELL-V-THREEFIX-MPG F$ALU-CELL F$G-CELL=G-CELL G-CELL$VALUE F$G-CELL-OFF) EVENT (DEFN F$G-CELL (A AN BN GA GAN GBN) (F-AND3 (F-NAND A GA) (F-NAND AN GAN) (F-NAND BN GBN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$G-CELL) (IMMEDIATE-DEPENDENTS0 F-AND3 . F$G-CELL) (DCELL . *1*F$G-CELL))))) (PUT1-LST (QUOTE *1*G-CELL) (QUOTE (MAIN-EVENT G-CELL))) (PUT1-LST (QUOTE G-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((G-CELL 3 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((G-CELL . T)) SDEFN (LAMBDA (A AN BN GA GAN GBN) (B-AND3 (B-NAND A GA) (B-NAND AN GAN) (B-NAND BN GBN))) LISP-CODE *1*G-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*G-CELL) IMMEDIATE-DEPENDENTS0 (BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH F$ALU-CELL=ALU-CELL ALU-CELL F$G-CELL=G-CELL) EVENT (DEFN G-CELL (A AN BN GA GAN GBN) (B-AND3 (B-NAND A GA) (B-NAND AN GAN) (B-NAND BN GBN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . G-CELL) (IMMEDIATE-DEPENDENTS0 B-AND3 . G-CELL) (DCELL . *1*G-CELL))))) (PUT1-LST (QUOTE P-CELL$VALUE-ZERO) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE-ZERO) EVENT (PROVE-LEMMA P-CELL$VALUE-ZERO (REWRITE) (IMPLIES (P-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE P-CELL) (CONS A (CONS AN (CONS B (QUOTE (*1*FALSE *1*FALSE *1*FALSE))))) STATE NETLIST) (QUOTE (*1*FALSE)))) ((ENABLE P-CELL& B-NAND3$VALUE B-NAND$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOT . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NAND . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NAND3 . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 P-CELL* . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . P-CELL$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 P-CELL& . P-CELL$VALUE-ZERO) (LEMMAS DUAL-EVAL . P-CELL$VALUE-ZERO))))) (PUT1-LST (QUOTE F$P-CELL=P-CELL) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (F$ALU-CELL=ALU-CELL) EVENT (PROVE-LEMMA F$P-CELL=P-CELL (REWRITE) (IMPLIES (AND (BOOLP A) (AND (BOOLP AN) (AND (BOOLP B) (AND (BOOLP PA) (AND (BOOLP PAN) (BOOLP PB)))))) (EQUAL (F$P-CELL A AN B PA PAN PB) (P-CELL A AN B PA PAN PB))) ((ENABLE BOOLP-B-GATES F$P-CELL P-CELL) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 F-GATES . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 B-GATES . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 P-CELL . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 F$P-CELL . F$P-CELL=P-CELL) (IMMEDIATE-DEPENDENTS0 BOOLP . F$P-CELL=P-CELL) (LEMMAS F$P-CELL . F$P-CELL=P-CELL))))) (PUT1-LST (QUOTE P-CELL$VALUE-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE P-CELL$VALUE-OFF P-CELL$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 P-CELL$VALUE . P-CELL$VALUE-OFF) (DISABLED-LEMMAS NIL P-CELL$VALUE P-CELL$VALUE-OFF . T))))) (PUT1-LST (QUOTE P-CELL$VALUE) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE P-CELL$VALUE-OFF) EVENT (PROVE-LEMMA P-CELL$VALUE (REWRITE) (IMPLIES (P-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE P-CELL) (CONS A (CONS AN (CONS B (CONS PA (CONS PAN (CONS PB (QUOTE NIL))))))) STATE NETLIST) (CONS (F$P-CELL A AN B PA PAN PB) (QUOTE NIL)))) ((ENABLE P-CELL& F$P-CELL B-NAND$VALUE B-NAND3$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 P-CELL* . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F$P-CELL . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . P-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 P-CELL& . P-CELL$VALUE) (LEMMAS DUAL-EVAL . P-CELL$VALUE))))) (PUT1-LST (QUOTE *1*P-CELL$NETLIST) (QUOTE (MAIN-EVENT P-CELL$NETLIST))) (PUT1-LST (QUOTE P-CELL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((P-CELL$NETLIST 16)) TOTALP-LST ((P-CELL$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (P-CELL*) (UNION (B-NAND$NETLIST) (B-NAND3$NETLIST)))) LISP-CODE *1*P-CELL$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194044 SATELLITES (*1*P-CELL$NETLIST) IMMEDIATE-DEPENDENTS0 (ALU-CELL$NETLIST) EVENT (DEFN P-CELL$NETLIST NIL (CONS (P-CELL*) (UNION (B-NAND$NETLIST) (B-NAND3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . P-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . P-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 P-CELL* . P-CELL$NETLIST) (DCELL . *1*P-CELL$NETLIST))))) (PUT1-LST (QUOTE P-CELL&-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE P-CELL&-OFF P-CELL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 P-CELL& . P-CELL&-OFF) (DISABLED-LEMMAS NIL P-CELL& P-CELL&-OFF . T))))) (PUT1-LST (QUOTE *1*P-CELL&) (QUOTE (MAIN-EVENT P-CELL&))) (PUT1-LST (QUOTE P-CELL&) (QUOTE (TYPE-PRESCRIPTION-LST ((P-CELL& 3 NIL)) TOTALP-LST ((P-CELL& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE P-CELL) NETLIST) (P-CELL*)) (IF (B-NAND& (DELETE-MODULE (QUOTE P-CELL) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE P-CELL) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*P-CELL& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194044 SATELLITES (*1*P-CELL&) IMMEDIATE-DEPENDENTS0 (ALU-CELL& P-CELL$VALUE-ZERO P-CELL$VALUE P-CELL&-OFF) EVENT (DEFN P-CELL& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE P-CELL) NETLIST) (P-CELL*)) (AND (B-NAND& (DELETE-MODULE (QUOTE P-CELL) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE P-CELL) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3& . P-CELL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . P-CELL&) (IMMEDIATE-DEPENDENTS0 B-NAND& . P-CELL&) (IMMEDIATE-DEPENDENTS0 P-CELL* . P-CELL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . P-CELL&) (DCELL . *1*P-CELL&))))) (PUT1-LST (QUOTE *1*P-CELL*) (QUOTE (MAIN-EVENT P-CELL*))) (PUT1-LST (QUOTE P-CELL*) (QUOTE (TYPE-PRESCRIPTION-LST ((P-CELL* 16)) TOTALP-LST ((P-CELL* . T)) SDEFN (LAMBDA NIL (QUOTE (P-CELL (A AN B PA PAN PB) (W-3) ((G-2 (W-2) B-NAND (B PB)) (G-1 (W-1) B-NAND (AN PAN)) (G-0 (W-0) B-NAND (A PA)) (G-3 (W-3) B-NAND3 (W-0 W-1 W-2))) NIL))) LISP-CODE *1*P-CELL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*P-CELL*) IMMEDIATE-DEPENDENTS0 (P-CELL$VALUE-ZERO P-CELL$VALUE P-CELL$NETLIST P-CELL&) EVENT (DEFN P-CELL* NIL (QUOTE (P-CELL (A AN B PA PAN PB) (W-3) ((G-2 (W-2) B-NAND (B PB)) (G-1 (W-1) B-NAND (AN PAN)) (G-0 (W-0) B-NAND (A PA)) (G-3 (W-3) B-NAND3 (W-0 W-1 W-2))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*P-CELL*))))) (PUT1-LST (QUOTE F$P-CELL-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE F$P-CELL-OFF F$P-CELL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$P-CELL . F$P-CELL-OFF) (DISABLED-LEMMAS NIL F$P-CELL F$P-CELL-OFF . T))))) (PUT1-LST (QUOTE *1*F$P-CELL) (QUOTE (MAIN-EVENT F$P-CELL))) (PUT1-LST (QUOTE F$P-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((F$P-CELL 131 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$P-CELL=P-CELL ((BOOLP A) (BOOLP AN) (BOOLP B) (BOOLP PA) (BOOLP PAN) (BOOLP PB)) (EQUAL (F$P-CELL A AN B PA PAN PB) (P-CELL A AN B PA PAN PB)) NIL)) TOTALP-LST ((F$P-CELL . T)) SDEFN (LAMBDA (A AN B PA PAN PB) (F-NAND3 (F-NAND A PA) (F-NAND AN PAN) (F-NAND B PB))) LISP-CODE *1*F$P-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*F$P-CELL) IMMEDIATE-DEPENDENTS0 (F$ALU-CELL-V-THREEFIX-MPG F$ALU-CELL F$P-CELL=P-CELL P-CELL$VALUE F$P-CELL-OFF) EVENT (DEFN F$P-CELL (A AN B PA PAN PB) (F-NAND3 (F-NAND A PA) (F-NAND AN PAN) (F-NAND B PB))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$P-CELL) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$P-CELL) (DCELL . *1*F$P-CELL))))) (PUT1-LST (QUOTE *1*P-CELL) (QUOTE (MAIN-EVENT P-CELL))) (PUT1-LST (QUOTE P-CELL) (QUOTE (TYPE-PRESCRIPTION-LST ((P-CELL 3 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((P-CELL . T)) SDEFN (LAMBDA (A AN B PA PAN PB) (B-NAND3 (B-NAND A PA) (B-NAND AN PAN) (B-NAND B PB))) LISP-CODE *1*P-CELL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194044 SATELLITES (*1*P-CELL) IMMEDIATE-DEPENDENTS0 (BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH F$ALU-CELL=ALU-CELL ALU-CELL F$P-CELL=P-CELL) EVENT (DEFN P-CELL (A AN B PA PAN PB) (B-NAND3 (B-NAND A PA) (B-NAND AN PAN) (B-NAND B PB))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . P-CELL) (IMMEDIATE-DEPENDENTS0 B-NAND3 . P-CELL) (DCELL . *1*P-CELL))))) (PUT1-LST (QUOTE CARRY-IN-HELP$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194044 EVENT (TOGGLE CARRY-IN-HELP$VALUE-ZERO-OFF CARRY-IN-HELP$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$VALUE-ZERO . CARRY-IN-HELP$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE CARRY-IN-HELP$VALUE-ZERO) (QUOTE (IDATE 1000402194044 IMMEDIATE-DEPENDENTS0 (CARRY-IN-HELP$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA CARRY-IN-HELP$VALUE-ZERO (REWRITE) (IMPLIES (AND (CARRY-IN-HELP& NETLIST) (EQUAL CZOP (CONS C (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-IN-HELP) CZOP STATE NETLIST) (QUOTE (*1*TRUE)))) ((ENABLE F$CARRY-IN-HELP CARRY-IN-HELP& B-NBUF$VALUE B-NAND$VALUE B-NAND3$VALUE B-NAND4$VALUE B-OR$VALUE EQUAL-LENGTH-ADD1 F-NOT-F-NOT=F-BUF ALU-INC-OP BOOLP-B-GATES) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NBUF$VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-BUF . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CARRY-IN-HELP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP& . CARRY-IN-HELP$VALUE-ZERO) (LEMMAS DUAL-EVAL . CARRY-IN-HELP$VALUE-ZERO))))) (PUT1-LST (QUOTE CARRY-IN-HELP$VALUE-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE CARRY-IN-HELP$VALUE-OFF CARRY-IN-HELP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP$VALUE . CARRY-IN-HELP$VALUE-OFF) (DISABLED-LEMMAS NIL CARRY-IN-HELP$VALUE CARRY-IN-HELP$VALUE-OFF . T))))) (PUT1-LST (QUOTE CARRY-IN-HELP$VALUE) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (CV$VALUE CARRY-IN-HELP$VALUE-OFF) EVENT (PROVE-LEMMA CARRY-IN-HELP$VALUE (REWRITE) (IMPLIES (CARRY-IN-HELP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-IN-HELP) CZOP STATE NETLIST) (CONS (F$CARRY-IN-HELP CZOP) (QUOTE NIL)))) ((ENABLE F$CARRY-IN-HELP CARRY-IN-HELP& B-NBUF$VALUE B-NAND$VALUE B-NAND3$VALUE B-NAND4$VALUE B-OR$VALUE EQUAL-LENGTH-ADD1 F-NOT-F-NOT=F-BUF) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NBUF$VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT-F-NOT=F-BUF . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 F$CARRY-IN-HELP . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . CARRY-IN-HELP$VALUE) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP& . CARRY-IN-HELP$VALUE) (LEMMAS DUAL-EVAL . CARRY-IN-HELP$VALUE))))) (PUT1-LST (QUOTE CARRY-IN-HELP-IF-OP-CODE) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 F$CV=CV) EVENT (PROVE-LEMMA CARRY-IN-HELP-IF-OP-CODE (REWRITE) (EQUAL (CARRY-IN-HELP (CONS A (CONS B (IF C D E)))) (IF C (CARRY-IN-HELP (CONS A (CONS B D))) (CARRY-IN-HELP (CONS A (CONS B E)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CARRY-IN-HELP-IF-OP-CODE) (LEMMAS CARRY-IN-HELP . CARRY-IN-HELP-IF-OP-CODE))))) (PUT1-LST (QUOTE CARRY-IN-HELP-ZERO-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE CARRY-IN-HELP-ZERO-OFF CARRY-IN-HELP-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP-ZERO . CARRY-IN-HELP-ZERO-OFF) (DISABLED-LEMMAS NIL CARRY-IN-HELP-ZERO CARRY-IN-HELP-ZERO-OFF . T))))) (PUT1-LST (QUOTE CARRY-IN-HELP-ZERO) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (CARRY-IN-HELP-ZERO-OFF) EVENT (PROVE-LEMMA CARRY-IN-HELP-ZERO (REWRITE) (EQUAL (CARRY-IN-HELP (CONS C (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (QUOTE *1*TRUE)) ((ENABLE CARRY-IN-HELP ALU-INC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . CARRY-IN-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND . CARRY-IN-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CARRY-IN-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-IN-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . CARRY-IN-HELP-ZERO) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CARRY-IN-HELP-ZERO) (LEMMAS CARRY-IN-HELP . CARRY-IN-HELP-ZERO))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP$NETLIST) (QUOTE (MAIN-EVENT CARRY-IN-HELP$NETLIST))) (PUT1-LST (QUOTE CARRY-IN-HELP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-IN-HELP$NETLIST 16)) TOTALP-LST ((CARRY-IN-HELP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (CARRY-IN-HELP*) (UNION (UNION (UNION (B-NBUF$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-OR$NETLIST)))) LISP-CODE *1*CARRY-IN-HELP$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194043 SATELLITES (*1*CARRY-IN-HELP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN CARRY-IN-HELP$NETLIST NIL (CONS (CARRY-IN-HELP*) (UNION (UNION (UNION (B-NBUF$NETLIST) (B-NAND$NETLIST)) (B-NAND3$NETLIST)) (B-OR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . CARRY-IN-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . CARRY-IN-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . CARRY-IN-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NBUF$NETLIST . CARRY-IN-HELP$NETLIST) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CARRY-IN-HELP$NETLIST) (DCELL . *1*CARRY-IN-HELP$NETLIST))))) (PUT1-LST (QUOTE CARRY-IN-HELP&-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE CARRY-IN-HELP&-OFF CARRY-IN-HELP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP& . CARRY-IN-HELP&-OFF) (DISABLED-LEMMAS NIL CARRY-IN-HELP& CARRY-IN-HELP&-OFF . T))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP&) (QUOTE (MAIN-EVENT CARRY-IN-HELP&))) (PUT1-LST (QUOTE CARRY-IN-HELP&) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-IN-HELP& 3 NIL)) TOTALP-LST ((CARRY-IN-HELP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE CARRY-IN-HELP) NETLIST) (CARRY-IN-HELP*)) (IF (B-NBUF& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (IF (B-NAND3& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*CARRY-IN-HELP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194043 SATELLITES (*1*CARRY-IN-HELP&) IMMEDIATE-DEPENDENTS0 (CV& CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE CARRY-IN-HELP&-OFF) EVENT (DEFN CARRY-IN-HELP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE CARRY-IN-HELP) NETLIST) (CARRY-IN-HELP*)) (AND (B-NBUF& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (AND (B-NAND3& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE CARRY-IN-HELP) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR& . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND3& . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 B-NAND& . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 B-NBUF& . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP* . CARRY-IN-HELP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . CARRY-IN-HELP&) (DCELL . *1*CARRY-IN-HELP&))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP*) (QUOTE (MAIN-EVENT CARRY-IN-HELP*))) (PUT1-LST (QUOTE CARRY-IN-HELP*) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-IN-HELP* 16)) TOTALP-LST ((CARRY-IN-HELP* . T)) SDEFN (LAMBDA NIL (QUOTE (CARRY-IN-HELP (CIN Z OP0IN OP1IN OP2IN OP3IN) (COUT) ((G0 (C- C) B-NBUF (CIN)) (G1 (OP0- OP0) B-NBUF (OP0IN)) (G2 (OP1- OP1) B-NBUF (OP1IN)) (G3 (OP2- OP2) B-NBUF (OP2IN)) (G4 (OP3- OP3) B-NBUF (OP3IN)) (G5 (S5) B-NAND3 (OP1- OP2- OP3-)) (G6 (S6) B-NAND3 (OP0- OP1- OP2)) (G7 (S7) B-NAND3 (OP0 OP1 OP2)) (G8 (S8) B-NAND3 (S5 S6 S7)) (G9 (S9) B-NAND (OP3 C)) (G10 (S10) B-NAND3 (OP0- OP2- C)) (G11 (S11) B-NAND3 (OP0- OP2 C-)) (G12 (S12) B-NAND3 (S9 S10 S11)) (G13 (COUT) B-OR (S8 S12))) NIL))) LISP-CODE *1*CARRY-IN-HELP* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194043 SATELLITES (*1*CARRY-IN-HELP*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE CARRY-IN-HELP$NETLIST CARRY-IN-HELP&) EVENT (DEFN CARRY-IN-HELP* NIL (QUOTE (CARRY-IN-HELP (CIN Z OP0IN OP1IN OP2IN OP3IN) (COUT) ((G0 (C- C) B-NBUF (CIN)) (G1 (OP0- OP0) B-NBUF (OP0IN)) (G2 (OP1- OP1) B-NBUF (OP1IN)) (G3 (OP2- OP2) B-NBUF (OP2IN)) (G4 (OP3- OP3) B-NBUF (OP3IN)) (G5 (S5) B-NAND3 (OP1- OP2- OP3-)) (G6 (S6) B-NAND3 (OP0- OP1- OP2)) (G7 (S7) B-NAND3 (OP0 OP1 OP2)) (G8 (S8) B-NAND3 (S5 S6 S7)) (G9 (S9) B-NAND (OP3 C)) (G10 (S10) B-NAND3 (OP0- OP2- C)) (G11 (S11) B-NAND3 (OP0- OP2 C-)) (G12 (S12) B-NAND3 (S9 S10 S11)) (G13 (COUT) B-OR (S8 S12))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*CARRY-IN-HELP*))))) (PUT1-LST (QUOTE F$CARRY-IN-HELP=CARRY-IN-HELP) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$CARRY-IN-HELP=CARRY-IN-HELP (REWRITE) (IMPLIES (AND (BVP CZOP) (EQUAL (LENGTH CZOP) (QUOTE 6))) (EQUAL (F$CARRY-IN-HELP CZOP) (CARRY-IN-HELP CZOP))) ((ENABLE CARRY-IN-HELP F$CARRY-IN-HELP BOOLP-B-GATES EQUAL-LENGTH-ADD1) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 B-GATES . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F$CARRY-IN-HELP . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . F$CARRY-IN-HELP=CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 BVP . F$CARRY-IN-HELP=CARRY-IN-HELP) (LEMMAS F$CARRY-IN-HELP . F$CARRY-IN-HELP=CARRY-IN-HELP))))) (PUT1-LST (QUOTE F$CARRY-IN-HELP-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE F$CARRY-IN-HELP-OFF F$CARRY-IN-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$CARRY-IN-HELP . F$CARRY-IN-HELP-OFF) (DISABLED-LEMMAS NIL F$CARRY-IN-HELP F$CARRY-IN-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*F$CARRY-IN-HELP) (QUOTE (MAIN-EVENT F$CARRY-IN-HELP))) (PUT1-LST (QUOTE F$CARRY-IN-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$CARRY-IN-HELP 131 NIL)) LEMMAS ((REWRITE-RULE F$CARRY-IN-HELP=CARRY-IN-HELP ((BVP CZOP) (EQUAL (LENGTH CZOP) (QUOTE 6))) (EQUAL (F$CARRY-IN-HELP CZOP) (CARRY-IN-HELP CZOP)) NIL)) TOTALP-LST ((F$CARRY-IN-HELP . T)) SDEFN (LAMBDA (CZOP) (F-OR (F-NAND3 (F-NAND3 (F-NOT (CAR (CDR (CDR (CDR CZOP))))) (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (CAR (CDR (CDR (CDR CZOP))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR CZOP))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR CZOP)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))))) (F-NAND3 (F-NAND (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NOT (F-NOT (CAR CZOP)))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (F-NOT (F-NOT (CAR CZOP)))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))) (F-NOT (CAR CZOP)))))) LISP-CODE *1*F$CARRY-IN-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194043 SATELLITES (*1*F$CARRY-IN-HELP) IMMEDIATE-DEPENDENTS0 (F$CV CARRY-IN-HELP$VALUE F$CARRY-IN-HELP=CARRY-IN-HELP F$CARRY-IN-HELP-OFF) EVENT (DEFN F$CARRY-IN-HELP (CZOP) (F-OR (F-NAND3 (F-NAND3 (F-NOT (CAR (CDR (CDR (CDR CZOP))))) (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (F-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (CAR (CDR (CDR (CDR CZOP))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NAND3 (F-NOT (F-NOT (CAR (CDR (CDR CZOP))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR CZOP)))))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))))) (F-NAND3 (F-NAND (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (F-NOT (F-NOT (CAR CZOP)))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (F-NOT (F-NOT (CAR CZOP)))) (F-NAND3 (F-NOT (CAR (CDR (CDR CZOP)))) (F-NOT (F-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))) (F-NOT (CAR CZOP)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . F$CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F-NOT . F$CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 F-OR . F$CARRY-IN-HELP) (DCELL . *1*F$CARRY-IN-HELP))))) (PUT1-LST (QUOTE CARRY-IN-HELP-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE CARRY-IN-HELP-OFF CARRY-IN-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CARRY-IN-HELP . CARRY-IN-HELP-OFF) (DISABLED-LEMMAS NIL CARRY-IN-HELP CARRY-IN-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP) (QUOTE (MAIN-EVENT CARRY-IN-HELP))) (PUT1-LST (QUOTE CARRY-IN-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((CARRY-IN-HELP 3 NIL)) LEMMAS ((REWRITE-RULE CARRY-IN-HELP-IF-OP-CODE NIL (EQUAL (CARRY-IN-HELP (CONS A (CONS B (IF C D E)))) (IF C (CARRY-IN-HELP (CONS A (CONS B D))) (CARRY-IN-HELP (CONS A (CONS B E))))) NIL) (REWRITE-RULE CARRY-IN-HELP-ZERO NIL (EQUAL (CARRY-IN-HELP (CONS C (CONS (QUOTE *1*TRUE) (ALU-INC-OP)))) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((CARRY-IN-HELP . T)) SDEFN (LAMBDA (CZOP) (B-OR (B-NAND3 (B-NAND3 (B-NOT (CAR (CDR (CDR (CDR CZOP))))) (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (CAR (CDR (CDR (CDR CZOP))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR CZOP))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR CZOP)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))))) (B-NAND3 (B-NAND (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NOT (B-NOT (CAR CZOP)))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (B-NOT (B-NOT (CAR CZOP)))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))) (B-NOT (CAR CZOP)))))) LISP-CODE *1*CARRY-IN-HELP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194043 SATELLITES (*1*CARRY-IN-HELP) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP CV CV_V11111$DESTRUCTURE CV_V11111 CV_RESET2$DESTRUCTURE CV_RESET2 CV_RESET1$DESTRUCTURE CV_RESET1 CV_RESET0$DESTRUCTURE CV_RESET0 CV_V11011$DESTRUCTURE CV_V11011 CV_V11010$DESTRUCTURE CV_V11010 CV_HOLD1$DESTRUCTURE CV_HOLD1 CV_HOLD0$DESTRUCTURE CV_HOLD0 CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_WRITE3$DESTRUCTURE CV_WRITE3 CV_WRITE2$DESTRUCTURE CV_WRITE2 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB3$DESTRUCTURE CV_READB3 CV_READB2$DESTRUCTURE CV_READB2 CV_READB1$DESTRUCTURE CV_READB1 CV_READB0$DESTRUCTURE CV_READB0 CV_READA3$DESTRUCTURE CV_READA3 CV_READA2$DESTRUCTURE CV_READA2 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 CV_UPDATE$DESTRUCTURE CV_UPDATE CV_REGB$DESTRUCTURE CV_REGB CV_REGA$DESTRUCTURE CV_REGA CV_DECODE$DESTRUCTURE CV_DECODE CV_FETCH3$DESTRUCTURE CV_FETCH3 CV_FETCH2$DESTRUCTURE CV_FETCH2 CV_FETCH1$DESTRUCTURE CV_FETCH1 CV_FETCH0$DESTRUCTURE CV_FETCH0 CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CARRY-IN-HELP-IF-OP-CODE CARRY-IN-HELP-ZERO F$CARRY-IN-HELP=CARRY-IN-HELP CARRY-IN-HELP-OFF) EVENT (DEFN CARRY-IN-HELP (CZOP) (B-OR (B-NAND3 (B-NAND3 (B-NOT (CAR (CDR (CDR (CDR CZOP))))) (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (B-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (CAR (CDR (CDR (CDR CZOP))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NAND3 (B-NOT (B-NOT (CAR (CDR (CDR CZOP))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR CZOP)))))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))))) (B-NAND3 (B-NAND (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR (CDR CZOP)))))))) (B-NOT (B-NOT (CAR CZOP)))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP)))))) (B-NOT (B-NOT (CAR CZOP)))) (B-NAND3 (B-NOT (CAR (CDR (CDR CZOP)))) (B-NOT (B-NOT (CAR (CDR (CDR (CDR (CDR CZOP))))))) (B-NOT (CAR CZOP)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 B-NOT . CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . CARRY-IN-HELP) (IMMEDIATE-DEPENDENTS0 B-OR . CARRY-IN-HELP) (DCELL . *1*CARRY-IN-HELP))))) (PUT1-LST (QUOTE MPG$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE MPG$VALUE-ZERO-OFF MPG$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG$VALUE-ZERO . MPG$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL MPG$VALUE-ZERO MPG$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE MPG$VALUE-ZERO) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA MPG$VALUE-ZERO (REWRITE) (IMPLIES (AND (MPG& NETLIST) (EQUAL ZSOP (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MPG) ZSOP STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) ((ENABLE MPG MPG& DECODE-MODE$VALUE DECODE-PROP$VALUE DECODE-GEN$VALUE ALU-INC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-MODE$VALUE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-PROP$VALUE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-GEN$VALUE . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MPG* . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . MPG$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MPG& . MPG$VALUE-ZERO) (LEMMAS DUAL-EVAL . MPG$VALUE-ZERO))))) (PUT1-LST (QUOTE MPG$VALUE-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE MPG$VALUE-OFF MPG$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG$VALUE . MPG$VALUE-OFF) (DISABLED-LEMMAS NIL MPG$VALUE MPG$VALUE-OFF . T))))) (PUT1-LST (QUOTE MPG$VALUE) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (CV$VALUE MPG$VALUE-OFF) EVENT (PROVE-LEMMA MPG$VALUE (REWRITE) (IMPLIES (AND (MPG& NETLIST) (AND (PROPERP ZSOP) (EQUAL (LENGTH ZSOP) (QUOTE 6)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MPG) ZSOP STATE NETLIST) (F$MPG ZSOP))) ((ENABLE F$MPG MPG& DECODE-MODE$VALUE DECODE-PROP$VALUE DECODE-GEN$VALUE F$DECODE-MODE F$DECODE-GEN F$DECODE-PROP) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-MODE$VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-PROP$VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-GEN$VALUE . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MPG* . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 F$MPG . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . MPG$VALUE) (IMMEDIATE-DEPENDENTS0 MPG& . MPG$VALUE) (LEMMAS DUAL-EVAL . MPG$VALUE))))) (PUT1-LST (QUOTE *1*MPG$NETLIST) (QUOTE (MAIN-EVENT MPG$NETLIST))) (PUT1-LST (QUOTE MPG$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((MPG$NETLIST 16)) TOTALP-LST ((MPG$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (MPG*) (UNION (UNION (DECODE-MODE$NETLIST) (DECODE-PROP$NETLIST)) (DECODE-GEN$NETLIST)))) LISP-CODE *1*MPG$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194043 SATELLITES (*1*MPG$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN MPG$NETLIST NIL (CONS (MPG*) (UNION (UNION (DECODE-MODE$NETLIST) (DECODE-PROP$NETLIST)) (DECODE-GEN$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-GEN$NETLIST . MPG$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP$NETLIST . MPG$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE$NETLIST . MPG$NETLIST) (IMMEDIATE-DEPENDENTS0 MPG* . MPG$NETLIST) (DCELL . *1*MPG$NETLIST))))) (PUT1-LST (QUOTE MPG&-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE MPG&-OFF MPG& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG& . MPG&-OFF) (DISABLED-LEMMAS NIL MPG& MPG&-OFF . T))))) (PUT1-LST (QUOTE *1*MPG&) (QUOTE (MAIN-EVENT MPG&))) (PUT1-LST (QUOTE MPG&) (QUOTE (TYPE-PRESCRIPTION-LST ((MPG& 3 NIL)) TOTALP-LST ((MPG& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE MPG) NETLIST) (MPG*)) (IF (DECODE-MODE& (DELETE-MODULE (QUOTE MPG) NETLIST)) (IF (DECODE-PROP& (DELETE-MODULE (QUOTE MPG) NETLIST)) (DECODE-GEN& (DELETE-MODULE (QUOTE MPG) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MPG& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194043 SATELLITES (*1*MPG&) IMMEDIATE-DEPENDENTS0 (CV& MPG$VALUE-ZERO MPG$VALUE MPG&-OFF) EVENT (DEFN MPG& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE MPG) NETLIST) (MPG*)) (AND (DECODE-MODE& (DELETE-MODULE (QUOTE MPG) NETLIST)) (AND (DECODE-PROP& (DELETE-MODULE (QUOTE MPG) NETLIST)) (DECODE-GEN& (DELETE-MODULE (QUOTE MPG) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-GEN& . MPG&) (IMMEDIATE-DEPENDENTS0 DECODE-PROP& . MPG&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . MPG&) (IMMEDIATE-DEPENDENTS0 DECODE-MODE& . MPG&) (IMMEDIATE-DEPENDENTS0 MPG* . MPG&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . MPG&) (DCELL . *1*MPG&))))) (PUT1-LST (QUOTE *1*MPG*) (QUOTE (MAIN-EVENT MPG*))) (PUT1-LST (QUOTE MPG*) (QUOTE (TYPE-PRESCRIPTION-LST ((MPG* 16)) TOTALP-LST ((MPG* . T)) SDEFN (LAMBDA NIL (QUOTE (MPG (ZERO SWAP OP0 OP1 OP2 OP3) (GBN GAN GA PB PAN PA MODE) ((M (MODE) DECODE-MODE (OP0 OP1 OP2 OP3)) (P (PB PAN PA) DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3)) (G (GBN GAN GA) DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3))) NIL))) LISP-CODE *1*MPG* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194043 SATELLITES (*1*MPG*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST MPG$VALUE-ZERO MPG$VALUE MPG$NETLIST MPG&) EVENT (DEFN MPG* NIL (QUOTE (MPG (ZERO SWAP OP0 OP1 OP2 OP3) (GBN GAN GA PB PAN PA MODE) ((M (MODE) DECODE-MODE (OP0 OP1 OP2 OP3)) (P (PB PAN PA) DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3)) (G (GBN GAN GA) DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*MPG*))))) (PUT1-LST (QUOTE MPG-ZERO-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE MPG-ZERO-OFF MPG-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG-ZERO . MPG-ZERO-OFF) (DISABLED-LEMMAS NIL MPG-ZERO MPG-ZERO-OFF . T))))) (PUT1-LST (QUOTE MPG-ZERO) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (MPG-ZERO-OFF) EVENT (PROVE-LEMMA MPG-ZERO (REWRITE) (EQUAL (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((ENABLE MPG ALU-INC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-INC-OP . MPG-ZERO) (IMMEDIATE-DEPENDENTS0 MPG . MPG-ZERO) (LEMMAS MPG . MPG-ZERO))))) (PUT1-LST (QUOTE MPG-IF-OP-CODE) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 F$CV=CV) EVENT (PROVE-LEMMA MPG-IF-OP-CODE (REWRITE) (EQUAL (MPG (CONS A (CONS B (IF C D E)))) (IF C (MPG (CONS A (CONS B D))) (MPG (CONS A (CONS B E)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . MPG-IF-OP-CODE) (LEMMAS MPG . MPG-IF-OP-CODE))))) (PUT1-LST (QUOTE PROPERP-MPG) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA PROPERP-MPG (REWRITE) (PROPERP (MPG ZSOP)) ((ENABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR3 . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-AND . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOT . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND3 . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND4 . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 BVP-CONS . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 BVP . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 MPG . PROPERP-MPG) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-MPG) (LEMMAS PROPERP . PROPERP-MPG))))) (PUT1-LST (QUOTE BVP-MPG) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE BVP-LENGTH-CV BVP-CV-VECTORS CV_SEFB1$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READA1$DESTRUCTURE) EVENT (PROVE-LEMMA BVP-MPG (REWRITE) (BVP (MPG ZSOP)) ((ENABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . BVP-MPG) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BVP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR3 . BVP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . BVP-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-AND . BVP-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND4 . BVP-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR . BVP-MPG) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-MPG) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-MPG) (IMMEDIATE-DEPENDENTS0 MPG . BVP-MPG) (IMMEDIATE-DEPENDENTS0 BVP . BVP-MPG) (LEMMAS BVP . BVP-MPG))))) (PUT1-LST (QUOTE LENGTH-MPG) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 BVP-LENGTH-CV PROPERP-LENGTH-CV_FETCH1 CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA LENGTH-MPG (REWRITE) (EQUAL (LENGTH (MPG ZSOP)) (QUOTE 7)) ((ENABLE MPG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR3 . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NOT . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND3 . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NAND4 . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 B-NOR . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 MPG . LENGTH-MPG) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-MPG) (LEMMAS LENGTH . LENGTH-MPG))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$MPG) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (CV$VALUE PROPERP-LENGTH-F$CV) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$MPG (REWRITE) (AND (PROPERP (F$MPG ZSOP)) (EQUAL (LENGTH (F$MPG ZSOP)) (QUOTE 7))) ((ENABLE F$MPG F$DECODE-GEN F$DECODE-PROP F$DECODE-MODE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 F$MPG . PROPERP-LENGTH-F$MPG) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$MPG) (LEMMAS LENGTH . PROPERP-LENGTH-F$MPG) (LEMMAS PROPERP . PROPERP-LENGTH-F$MPG))))) (PUT1-LST (QUOTE F$MPG=MPG) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$MPG=MPG (REWRITE) (IMPLIES (AND (BVP ZSOP) (EQUAL (LENGTH ZSOP) (QUOTE 6))) (EQUAL (F$MPG ZSOP) (MPG ZSOP))) ((ENABLE F$MPG MPG BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE=DECODE-MODE . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NOR3 . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP=DECODE-PROP . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-AND . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN=DECODE-GEN . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NOT . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NAND3 . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NAND . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NAND4 . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 B-NOR . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 MPG . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 F$MPG . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 LENGTH . F$MPG=MPG) (IMMEDIATE-DEPENDENTS0 BVP . F$MPG=MPG) (LEMMAS F$MPG . F$MPG=MPG))))) (PUT1-LST (QUOTE MPG-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE MPG-OFF MPG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MPG . MPG-OFF) (DISABLED-LEMMAS NIL MPG MPG-OFF . T))))) (PUT1-LST (QUOTE *1*MPG) (QUOTE (MAIN-EVENT MPG))) (PUT1-LST (QUOTE MPG) (QUOTE (TYPE-PRESCRIPTION-LST ((MPG 16 NIL)) LEMMAS ((REWRITE-RULE MPG-ZERO NIL (EQUAL (MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP)))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) NIL) (REWRITE-RULE MPG-IF-OP-CODE NIL (EQUAL (MPG (CONS A (CONS B (IF C D E)))) (IF C (MPG (CONS A (CONS B D))) (MPG (CONS A (CONS B E))))) NIL)) TOTALP-LST ((MPG . T)) SDEFN (LAMBDA (ZSOP) (APPEND (DECODE-GEN (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (APPEND (DECODE-PROP (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (CONS (DECODE-MODE (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (QUOTE NIL))))) LISP-CODE *1*MPG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194043 SATELLITES (*1*MPG) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP CV CV_V11111$DESTRUCTURE CV_V11111 CV_RESET2$DESTRUCTURE CV_RESET2 CV_RESET1$DESTRUCTURE CV_RESET1 CV_RESET0$DESTRUCTURE CV_RESET0 CV_V11011$DESTRUCTURE CV_V11011 CV_V11010$DESTRUCTURE CV_V11010 CV_HOLD1$DESTRUCTURE CV_HOLD1 CV_HOLD0$DESTRUCTURE CV_HOLD0 CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_WRITE3$DESTRUCTURE CV_WRITE3 CV_WRITE2$DESTRUCTURE CV_WRITE2 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_WRITE0$DESTRUCTURE CV_WRITE0 CV_READB3$DESTRUCTURE CV_READB3 CV_READB2$DESTRUCTURE CV_READB2 CV_READB1$DESTRUCTURE CV_READB1 CV_READB0$DESTRUCTURE CV_READB0 CV_READA3$DESTRUCTURE CV_READA3 CV_READA2$DESTRUCTURE CV_READA2 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 CV_UPDATE$DESTRUCTURE CV_UPDATE CV_REGB$DESTRUCTURE CV_REGB CV_REGA$DESTRUCTURE CV_REGA CV_DECODE$DESTRUCTURE CV_DECODE CV_FETCH3$DESTRUCTURE CV_FETCH3 CV_FETCH2$DESTRUCTURE CV_FETCH2 CV_FETCH1$DESTRUCTURE CV_FETCH1 CV_FETCH0$DESTRUCTURE CV_FETCH0 CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES MPG-ZERO MPG-IF-OP-CODE PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG MPG-OFF) EVENT (DEFN MPG (ZSOP) (APPEND (DECODE-GEN (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (APPEND (DECODE-PROP (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (CONS (DECODE-MODE (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-MODE . MPG) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . MPG) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . MPG) (DCELL . *1*MPG))))) (PUT1-LST (QUOTE F$MPG-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE F$MPG-OFF F$MPG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$MPG . F$MPG-OFF) (DISABLED-LEMMAS NIL F$MPG F$MPG-OFF . T))))) (PUT1-LST (QUOTE *1*F$MPG) (QUOTE (MAIN-EVENT F$MPG))) (PUT1-LST (QUOTE F$MPG) (QUOTE (TYPE-PRESCRIPTION-LST ((F$MPG 16 NIL)) LEMMAS ((REWRITE-RULE F$MPG=MPG ((BVP ZSOP) (EQUAL (LENGTH ZSOP) (QUOTE 6))) (EQUAL (F$MPG ZSOP) (MPG ZSOP)) NIL)) TOTALP-LST ((F$MPG . T)) SDEFN (LAMBDA (ZSOP) (APPEND (F$DECODE-GEN (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (APPEND (F$DECODE-PROP (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (CONS (F$DECODE-MODE (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (QUOTE NIL))))) LISP-CODE *1*F$MPG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194043 SATELLITES (*1*F$MPG) IMMEDIATE-DEPENDENTS0 (F$CV MPG$VALUE PROPERP-LENGTH-F$MPG F$MPG=MPG F$MPG-OFF) EVENT (DEFN F$MPG (ZSOP) (APPEND (F$DECODE-GEN (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (APPEND (F$DECODE-PROP (CAR ZSOP) (CAR (CDR ZSOP)) (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (CONS (F$DECODE-MODE (CAR (CDR (CDR ZSOP))) (CAR (CDR (CDR (CDR ZSOP)))) (CAR (CDR (CDR (CDR (CDR ZSOP))))) (CAR (CDR (CDR (CDR (CDR (CDR ZSOP))))))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . F$MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . F$MPG) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . F$MPG) (DCELL . *1*F$MPG))))) (PUT1-LST (QUOTE DECODE-GEN$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE DECODE-GEN$VALUE-ZERO-OFF DECODE-GEN$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-GEN$VALUE-ZERO . DECODE-GEN$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE DECODE-GEN$VALUE-ZERO) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (DECODE-GEN$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA DECODE-GEN$VALUE-ZERO (REWRITE) (IMPLIES (DECODE-GEN& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-GEN) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))) STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE)))) ((ENABLE DECODE-GEN& B-AND$VALUE B-NOT$VALUE B-NOR$VALUE B-NAND3$VALUE B-NAND$VALUE B-XOR$VALUE F-AND-REWRITE F-NOT-REWRITE F-NOR F-OR ALU-INC-OP) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3 . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-XOR . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOR . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-GEN$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-GEN& . DECODE-GEN$VALUE-ZERO) (LEMMAS DUAL-EVAL . DECODE-GEN$VALUE-ZERO))))) (PUT1-LST (QUOTE F$DECODE-GEN=DECODE-GEN) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (F$MPG=MPG) EVENT (PROVE-LEMMA F$DECODE-GEN=DECODE-GEN (REWRITE) (IMPLIES (AND (BOOLP ZERO) (AND (BOOLP SWAP) (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3)))))) (EQUAL (F$DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3) (DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$DECODE-GEN DECODE-GEN) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-GATES . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-GATES . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 DECODE-GEN . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . F$DECODE-GEN=DECODE-GEN) (IMMEDIATE-DEPENDENTS0 BOOLP . F$DECODE-GEN=DECODE-GEN) (LEMMAS F$DECODE-GEN . F$DECODE-GEN=DECODE-GEN))))) (PUT1-LST (QUOTE DECODE-GEN$VALUE-OFF) (QUOTE (IDATE 1000402194043 EVENT (TOGGLE DECODE-GEN$VALUE-OFF DECODE-GEN$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-GEN$VALUE . DECODE-GEN$VALUE-OFF) (DISABLED-LEMMAS NIL DECODE-GEN$VALUE DECODE-GEN$VALUE-OFF . T))))) (PUT1-LST (QUOTE DECODE-GEN$VALUE) (QUOTE (IDATE 1000402194043 IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-OFF) EVENT (PROVE-LEMMA DECODE-GEN$VALUE (REWRITE) (IMPLIES (DECODE-GEN& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-GEN) (CONS ZERO (CONS SWAP (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))) STATE NETLIST) (F$DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3))) ((ENABLE DECODE-GEN& F$DECODE-GEN B-XOR$VALUE B-NOT$VALUE B-NAND4$VALUE B-NAND$VALUE B-NOR$VALUE B-NAND3$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-GEN$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-GEN& . DECODE-GEN$VALUE) (LEMMAS DUAL-EVAL . DECODE-GEN$VALUE))))) (PUT1-LST (QUOTE *1*DECODE-GEN$NETLIST) (QUOTE (MAIN-EVENT DECODE-GEN$NETLIST))) (PUT1-LST (QUOTE DECODE-GEN$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-GEN$NETLIST 16)) TOTALP-LST ((DECODE-GEN$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DECODE-GEN*) (UNION (UNION (UNION (UNION (UNION (B-XOR$NETLIST) (B-NOT$NETLIST)) (B-NAND4$NETLIST)) (B-NAND$NETLIST)) (B-NOR$NETLIST)) (B-NAND3$NETLIST)))) LISP-CODE *1*DECODE-GEN$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194042 SATELLITES (*1*DECODE-GEN$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST MPG$NETLIST) EVENT (DEFN DECODE-GEN$NETLIST NIL (CONS (DECODE-GEN*) (UNION (UNION (UNION (UNION (UNION (B-XOR$NETLIST) (B-NOT$NETLIST)) (B-NAND4$NETLIST)) (B-NAND$NETLIST)) (B-NOR$NETLIST)) (B-NAND3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . DECODE-GEN$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . DECODE-GEN$NETLIST) (DCELL . *1*DECODE-GEN$NETLIST))))) (PUT1-LST (QUOTE DECODE-GEN&-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-GEN&-OFF DECODE-GEN& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-GEN& . DECODE-GEN&-OFF) (DISABLED-LEMMAS NIL DECODE-GEN& DECODE-GEN&-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-GEN&) (QUOTE (MAIN-EVENT DECODE-GEN&))) (PUT1-LST (QUOTE DECODE-GEN&) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-GEN& 3 NIL)) TOTALP-LST ((DECODE-GEN& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DECODE-GEN) NETLIST) (DECODE-GEN*)) (IF (B-XOR& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (IF (B-NAND4& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DECODE-GEN& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194042 SATELLITES (*1*DECODE-GEN&) IMMEDIATE-DEPENDENTS0 (MPG& DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-GEN&-OFF) EVENT (DEFN DECODE-GEN& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DECODE-GEN) NETLIST) (DECODE-GEN*)) (AND (B-XOR& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (AND (B-NAND4& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE DECODE-GEN) NETLIST))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 B-NOR& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 B-NAND& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 B-NAND4& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 B-NOT& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 B-XOR& . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 DECODE-GEN* . DECODE-GEN&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DECODE-GEN&) (DCELL . *1*DECODE-GEN&))))) (PUT1-LST (QUOTE *1*DECODE-GEN*) (QUOTE (MAIN-EVENT DECODE-GEN*))) (PUT1-LST (QUOTE DECODE-GEN*) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-GEN* 16)) TOTALP-LST ((DECODE-GEN* . T)) SDEFN (LAMBDA NIL (QUOTE (DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3) (W-22 W-41 W-66) ((G-64 (W-64) B-NOT (ZERO)) (G-65 (W-65) B-NOT (W-64)) (G-61 (W-61) B-NOT (OP3)) (G-60 (W-60) B-NOT (OP2)) (G-58 (W-58) B-NOT (OP1)) (G-59 (W-59) B-NOT (W-58)) (G-62 (W-62) B-NAND3 (W-59 W-60 W-61)) (G-56 (W-56) B-NOT (W-60)) (G-52 (W-52) B-NOT (OP0)) (G-53 (W-53) B-NOT (W-52)) (G-57 (W-57) B-NAND3 (W-53 W-58 W-56)) (G-50 (W-50) B-XOR (W-59 W-56)) (G-45 (W-45) B-NOT (W-61)) (G-51 (W-51) B-NAND3 (W-53 W-45 W-50)) (G-63 (W-63) B-NAND3 (W-51 W-57 W-62)) (G-66 (W-66) B-NOR (W-63 W-65)) (G-35 (W-35) B-NOT (SWAP)) (G-36 (W-36) B-NAND (W-58 W-35)) (G-37 (W-37) B-NAND3 (W-56 W-61 W-36)) (G-30 (W-30) B-NAND4 (W-53 W-59 W-60 W-45)) (G-38 (W-38) B-NAND (W-30 W-37)) (G-41 (W-41) B-NOR (W-38 W-65)) (G-22 (W-22) B-NAND3 (W-51 W-37 W-62))) NIL))) LISP-CODE *1*DECODE-GEN* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-GEN*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-GEN$NETLIST DECODE-GEN&) EVENT (DEFN DECODE-GEN* NIL (QUOTE (DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3) (W-22 W-41 W-66) ((G-64 (W-64) B-NOT (ZERO)) (G-65 (W-65) B-NOT (W-64)) (G-61 (W-61) B-NOT (OP3)) (G-60 (W-60) B-NOT (OP2)) (G-58 (W-58) B-NOT (OP1)) (G-59 (W-59) B-NOT (W-58)) (G-62 (W-62) B-NAND3 (W-59 W-60 W-61)) (G-56 (W-56) B-NOT (W-60)) (G-52 (W-52) B-NOT (OP0)) (G-53 (W-53) B-NOT (W-52)) (G-57 (W-57) B-NAND3 (W-53 W-58 W-56)) (G-50 (W-50) B-XOR (W-59 W-56)) (G-45 (W-45) B-NOT (W-61)) (G-51 (W-51) B-NAND3 (W-53 W-45 W-50)) (G-63 (W-63) B-NAND3 (W-51 W-57 W-62)) (G-66 (W-66) B-NOR (W-63 W-65)) (G-35 (W-35) B-NOT (SWAP)) (G-36 (W-36) B-NAND (W-58 W-35)) (G-37 (W-37) B-NAND3 (W-56 W-61 W-36)) (G-30 (W-30) B-NAND4 (W-53 W-59 W-60 W-45)) (G-38 (W-38) B-NAND (W-30 W-37)) (G-41 (W-41) B-NOR (W-38 W-65)) (G-22 (W-22) B-NAND3 (W-51 W-37 W-62))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DECODE-GEN*))))) (PUT1-LST (QUOTE F$DECODE-GEN-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE F$DECODE-GEN-OFF F$DECODE-GEN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-GEN . F$DECODE-GEN-OFF) (DISABLED-LEMMAS NIL F$DECODE-GEN F$DECODE-GEN-OFF . T))))) (PUT1-LST (QUOTE *1*F$DECODE-GEN) (QUOTE (MAIN-EVENT F$DECODE-GEN))) (PUT1-LST (QUOTE F$DECODE-GEN) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DECODE-GEN 16 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$DECODE-GEN=DECODE-GEN ((BOOLP ZERO) (BOOLP SWAP) (BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3) (DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$DECODE-GEN . T)) SDEFN (LAMBDA (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (F-NAND3 (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP3)) (F-XOR (F-NOT (F-NOT OP1)) (F-NOT (F-NOT OP2)))) (F-NAND3 (F-NOT (F-NOT OP2)) (F-NOT OP3) (F-NAND (F-NOT OP1) (F-NOT SWAP))) (F-NAND3 (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT OP3))) (CONS (F-NOR (F-NAND (F-NAND4 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT (F-NOT OP3))) (F-NAND3 (F-NOT (F-NOT OP2)) (F-NOT OP3) (F-NAND (F-NOT OP1) (F-NOT SWAP)))) (F-NOT (F-NOT ZERO))) (CONS (F-NOR (F-NAND3 (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP3)) (F-XOR (F-NOT (F-NOT OP1)) (F-NOT (F-NOT OP2)))) (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT OP1) (F-NOT (F-NOT OP2))) (F-NAND3 (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT OP3))) (F-NOT (F-NOT ZERO))) (QUOTE NIL))))) LISP-CODE *1*F$DECODE-GEN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*F$DECODE-GEN) IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE PROPERP-LENGTH-F$MPG F$MPG F$DECODE-GEN=DECODE-GEN DECODE-GEN$VALUE F$DECODE-GEN-OFF) EVENT (DEFN F$DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (F-NAND3 (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP3)) (F-XOR (F-NOT (F-NOT OP1)) (F-NOT (F-NOT OP2)))) (F-NAND3 (F-NOT (F-NOT OP2)) (F-NOT OP3) (F-NAND (F-NOT OP1) (F-NOT SWAP))) (F-NAND3 (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT OP3))) (CONS (F-NOR (F-NAND (F-NAND4 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT (F-NOT OP3))) (F-NAND3 (F-NOT (F-NOT OP2)) (F-NOT OP3) (F-NAND (F-NOT OP1) (F-NOT SWAP)))) (F-NOT (F-NOT ZERO))) (CONS (F-NOR (F-NAND3 (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP3)) (F-XOR (F-NOT (F-NOT OP1)) (F-NOT (F-NOT OP2)))) (F-NAND3 (F-NOT (F-NOT OP0)) (F-NOT OP1) (F-NOT (F-NOT OP2))) (F-NAND3 (F-NOT (F-NOT OP1)) (F-NOT OP2) (F-NOT OP3))) (F-NOT (F-NOT ZERO))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND4 . F$DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-NAND . F$DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-XOR . F$DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DECODE-GEN) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$DECODE-GEN) (DCELL . *1*F$DECODE-GEN))))) (PUT1-LST (QUOTE *1*DECODE-GEN) (QUOTE (MAIN-EVENT DECODE-GEN))) (PUT1-LST (QUOTE DECODE-GEN) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-GEN 16 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((DECODE-GEN . T)) SDEFN (LAMBDA (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (B-NAND3 (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP3)) (B-XOR (B-NOT (B-NOT OP1)) (B-NOT (B-NOT OP2)))) (B-NAND3 (B-NOT (B-NOT OP2)) (B-NOT OP3) (B-NAND (B-NOT OP1) (B-NOT SWAP))) (B-NAND3 (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT OP3))) (CONS (B-NOR (B-NAND (B-NAND4 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT (B-NOT OP3))) (B-NAND3 (B-NOT (B-NOT OP2)) (B-NOT OP3) (B-NAND (B-NOT OP1) (B-NOT SWAP)))) (B-NOT (B-NOT ZERO))) (CONS (B-NOR (B-NAND3 (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP3)) (B-XOR (B-NOT (B-NOT OP1)) (B-NOT (B-NOT OP2)))) (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT OP1) (B-NOT (B-NOT OP2))) (B-NAND3 (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT OP3))) (B-NOT (B-NOT ZERO))) (QUOTE NIL))))) LISP-CODE *1*DECODE-GEN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-GEN) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG MPG F$DECODE-GEN=DECODE-GEN) EVENT (DEFN DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (B-NAND3 (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP3)) (B-XOR (B-NOT (B-NOT OP1)) (B-NOT (B-NOT OP2)))) (B-NAND3 (B-NOT (B-NOT OP2)) (B-NOT OP3) (B-NAND (B-NOT OP1) (B-NOT SWAP))) (B-NAND3 (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT OP3))) (CONS (B-NOR (B-NAND (B-NAND4 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT (B-NOT OP3))) (B-NAND3 (B-NOT (B-NOT OP2)) (B-NOT OP3) (B-NAND (B-NOT OP1) (B-NOT SWAP)))) (B-NOT (B-NOT ZERO))) (CONS (B-NOR (B-NAND3 (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP3)) (B-XOR (B-NOT (B-NOT OP1)) (B-NOT (B-NOT OP2)))) (B-NAND3 (B-NOT (B-NOT OP0)) (B-NOT OP1) (B-NOT (B-NOT OP2))) (B-NAND3 (B-NOT (B-NOT OP1)) (B-NOT OP2) (B-NOT OP3))) (B-NOT (B-NOT ZERO))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4 . DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-XOR . DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE-GEN) (IMMEDIATE-DEPENDENTS0 B-NAND3 . DECODE-GEN) (DCELL . *1*DECODE-GEN))))) (PUT1-LST (QUOTE DECODE-PROP$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-PROP$VALUE-ZERO-OFF DECODE-PROP$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-PROP$VALUE-ZERO . DECODE-PROP$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE DECODE-PROP$VALUE-ZERO) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (DECODE-PROP$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA DECODE-PROP$VALUE-ZERO (REWRITE) (IMPLIES (DECODE-PROP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-PROP) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))) STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE)))) ((ENABLE DECODE-PROP& B-AND$VALUE B-NOT$VALUE B-NAND$VALUE B-NAND3$VALUE B-NAND4$VALUE B-NOR$VALUE B-EQUV$VALUE ALU-INC-OP F-AND-REWRITE F-NOT-REWRITE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 BOOLP . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND4 . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-EQUV . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-EQUV$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3 . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-PROP$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-PROP& . DECODE-PROP$VALUE-ZERO) (LEMMAS DUAL-EVAL . DECODE-PROP$VALUE-ZERO))))) (PUT1-LST (QUOTE F$DECODE-PROP=DECODE-PROP) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (F$MPG=MPG) EVENT (PROVE-LEMMA F$DECODE-PROP=DECODE-PROP (REWRITE) (IMPLIES (AND (BOOLP ZERO) (AND (BOOLP SWAP) (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3)))))) (EQUAL (F$DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3) (DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$DECODE-PROP DECODE-PROP) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-GATES . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 DECODE-PROP . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . F$DECODE-PROP=DECODE-PROP) (IMMEDIATE-DEPENDENTS0 BOOLP . F$DECODE-PROP=DECODE-PROP) (LEMMAS F$DECODE-PROP . F$DECODE-PROP=DECODE-PROP))))) (PUT1-LST (QUOTE DECODE-PROP$VALUE-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-PROP$VALUE-OFF DECODE-PROP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-PROP$VALUE . DECODE-PROP$VALUE-OFF) (DISABLED-LEMMAS NIL DECODE-PROP$VALUE DECODE-PROP$VALUE-OFF . T))))) (PUT1-LST (QUOTE DECODE-PROP$VALUE) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE DECODE-PROP$VALUE-OFF) EVENT (PROVE-LEMMA DECODE-PROP$VALUE (REWRITE) (IMPLIES (DECODE-PROP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-PROP) (CONS ZERO (CONS SWAP (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))) STATE NETLIST) (F$DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3))) ((ENABLE DECODE-PROP& F$DECODE-PROP B-EQUV$VALUE B-NOT$VALUE B-AND$VALUE B-NOR$VALUE B-NAND$VALUE B-NAND4$VALUE B-NAND3$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-PROP$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-PROP& . DECODE-PROP$VALUE) (LEMMAS DUAL-EVAL . DECODE-PROP$VALUE))))) (PUT1-LST (QUOTE *1*DECODE-PROP$NETLIST) (QUOTE (MAIN-EVENT DECODE-PROP$NETLIST))) (PUT1-LST (QUOTE DECODE-PROP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-PROP$NETLIST 16)) TOTALP-LST ((DECODE-PROP$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DECODE-PROP*) (UNION (UNION (UNION (UNION (UNION (UNION (B-EQUV$NETLIST) (B-NOT$NETLIST)) (B-AND$NETLIST)) (B-NOR$NETLIST)) (B-NAND$NETLIST)) (B-NAND4$NETLIST)) (B-NAND3$NETLIST)))) LISP-CODE *1*DECODE-PROP$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194042 SATELLITES (*1*DECODE-PROP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST MPG$NETLIST) EVENT (DEFN DECODE-PROP$NETLIST NIL (CONS (DECODE-PROP*) (UNION (UNION (UNION (UNION (UNION (UNION (B-EQUV$NETLIST) (B-NOT$NETLIST)) (B-AND$NETLIST)) (B-NOR$NETLIST)) (B-NAND$NETLIST)) (B-NAND4$NETLIST)) (B-NAND3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND4$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 B-EQUV$NETLIST . DECODE-PROP$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . DECODE-PROP$NETLIST) (DCELL . *1*DECODE-PROP$NETLIST))))) (PUT1-LST (QUOTE DECODE-PROP&-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-PROP&-OFF DECODE-PROP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-PROP& . DECODE-PROP&-OFF) (DISABLED-LEMMAS NIL DECODE-PROP& DECODE-PROP&-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-PROP&) (QUOTE (MAIN-EVENT DECODE-PROP&))) (PUT1-LST (QUOTE DECODE-PROP&) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-PROP& 3 NIL)) TOTALP-LST ((DECODE-PROP& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DECODE-PROP) NETLIST) (DECODE-PROP*)) (IF (B-EQUV& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (IF (B-AND& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (IF (B-NAND& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (IF (B-NAND4& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DECODE-PROP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194042 SATELLITES (*1*DECODE-PROP&) IMMEDIATE-DEPENDENTS0 (MPG& DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-PROP&-OFF) EVENT (DEFN DECODE-PROP& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DECODE-PROP) NETLIST) (DECODE-PROP*)) (AND (B-EQUV& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (AND (B-AND& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (AND (B-NAND& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (AND (B-NAND4& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)) (B-NAND3& (DELETE-MODULE (QUOTE DECODE-PROP) NETLIST)))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-NAND4& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-NAND& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-NOR& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-AND& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-NOT& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 B-EQUV& . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 DECODE-PROP* . DECODE-PROP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DECODE-PROP&) (DCELL . *1*DECODE-PROP&))))) (PUT1-LST (QUOTE *1*DECODE-PROP*) (QUOTE (MAIN-EVENT DECODE-PROP*))) (PUT1-LST (QUOTE DECODE-PROP*) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-PROP* 16)) TOTALP-LST ((DECODE-PROP* . T)) SDEFN (LAMBDA NIL (QUOTE (DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3) (W-16 W-24 W-48) ((G-47 (W-47) B-NOT (ZERO)) (G-44 (W-44) B-NOT (OP3)) (G-42 (W-42) B-NOT (OP2)) (G-43 (W-43) B-NOT (W-42)) (G-41 (W-41) B-NOT (OP1)) (G-39 (W-39) B-NOT (OP0)) (G-40 (W-40) B-NOT (W-39)) (G-45 (W-45) B-NAND4 (W-40 W-41 W-43 W-44)) (G-34 (W-34) B-NOT (SWAP)) (G-35 (W-35) B-NOT (W-34)) (G-37 (W-37) B-NAND (W-35 W-44)) (G-38 (W-38) B-NAND (W-42 W-37)) (G-30 (W-30) B-NOT (W-41)) (G-31 (W-31) B-EQUV (W-40 W-30)) (G-26 (W-26) B-NOT (W-44)) (G-32 (W-32) B-NAND (W-26 W-31)) (G-46 (W-46) B-NAND3 (W-32 W-38 W-45)) (G-48 (W-48) B-AND (W-46 W-47)) (G-22 (W-22) B-NOR (W-40 W-41)) (G-23 (W-23) B-NOR (W-44 W-22)) (G-24 (W-24) B-NOR (W-42 W-23)) (G-15 (W-15) B-NAND3 (W-42 W-44 W-35)) (G-10 (W-10) B-NAND (W-30 W-44)) (G-6 (W-6) B-NAND4 (W-39 W-41 W-43 W-26)) (G-16 (W-16) B-NAND3 (W-6 W-10 W-15))) NIL))) LISP-CODE *1*DECODE-PROP* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-PROP*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-PROP$NETLIST DECODE-PROP&) EVENT (DEFN DECODE-PROP* NIL (QUOTE (DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3) (W-16 W-24 W-48) ((G-47 (W-47) B-NOT (ZERO)) (G-44 (W-44) B-NOT (OP3)) (G-42 (W-42) B-NOT (OP2)) (G-43 (W-43) B-NOT (W-42)) (G-41 (W-41) B-NOT (OP1)) (G-39 (W-39) B-NOT (OP0)) (G-40 (W-40) B-NOT (W-39)) (G-45 (W-45) B-NAND4 (W-40 W-41 W-43 W-44)) (G-34 (W-34) B-NOT (SWAP)) (G-35 (W-35) B-NOT (W-34)) (G-37 (W-37) B-NAND (W-35 W-44)) (G-38 (W-38) B-NAND (W-42 W-37)) (G-30 (W-30) B-NOT (W-41)) (G-31 (W-31) B-EQUV (W-40 W-30)) (G-26 (W-26) B-NOT (W-44)) (G-32 (W-32) B-NAND (W-26 W-31)) (G-46 (W-46) B-NAND3 (W-32 W-38 W-45)) (G-48 (W-48) B-AND (W-46 W-47)) (G-22 (W-22) B-NOR (W-40 W-41)) (G-23 (W-23) B-NOR (W-44 W-22)) (G-24 (W-24) B-NOR (W-42 W-23)) (G-15 (W-15) B-NAND3 (W-42 W-44 W-35)) (G-10 (W-10) B-NAND (W-30 W-44)) (G-6 (W-6) B-NAND4 (W-39 W-41 W-43 W-26)) (G-16 (W-16) B-NAND3 (W-6 W-10 W-15))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DECODE-PROP*))))) (PUT1-LST (QUOTE F$DECODE-PROP-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE F$DECODE-PROP-OFF F$DECODE-PROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-PROP . F$DECODE-PROP-OFF) (DISABLED-LEMMAS NIL F$DECODE-PROP F$DECODE-PROP-OFF . T))))) (PUT1-LST (QUOTE *1*F$DECODE-PROP) (QUOTE (MAIN-EVENT F$DECODE-PROP))) (PUT1-LST (QUOTE F$DECODE-PROP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DECODE-PROP 16 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$DECODE-PROP=DECODE-PROP ((BOOLP ZERO) (BOOLP SWAP) (BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3) (DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$DECODE-PROP . T)) SDEFN (LAMBDA (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (F-NAND3 (F-NAND4 (F-NOT OP0) (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT (F-NOT OP3))) (F-NAND (F-NOT (F-NOT OP1)) (F-NOT OP3)) (F-NAND3 (F-NOT OP2) (F-NOT OP3) (F-NOT (F-NOT SWAP)))) (CONS (F-NOR (F-NOT OP2) (F-NOR (F-NOT OP3) (F-NOR (F-NOT (F-NOT OP0)) (F-NOT OP1)))) (CONS (F-AND (F-NAND3 (F-NAND (F-NOT (F-NOT OP3)) (F-EQUV (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1)))) (F-NAND (F-NOT OP2) (F-NAND (F-NOT (F-NOT SWAP)) (F-NOT OP3))) (F-NAND4 (F-NOT (F-NOT OP0)) (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT OP3))) (F-NOT ZERO)) (QUOTE NIL))))) LISP-CODE *1*F$DECODE-PROP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*F$DECODE-PROP) IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE PROPERP-LENGTH-F$MPG F$MPG F$DECODE-PROP=DECODE-PROP DECODE-PROP$VALUE F$DECODE-PROP-OFF) EVENT (DEFN F$DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (F-NAND3 (F-NAND4 (F-NOT OP0) (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT (F-NOT OP3))) (F-NAND (F-NOT (F-NOT OP1)) (F-NOT OP3)) (F-NAND3 (F-NOT OP2) (F-NOT OP3) (F-NOT (F-NOT SWAP)))) (CONS (F-NOR (F-NOT OP2) (F-NOR (F-NOT OP3) (F-NOR (F-NOT (F-NOT OP0)) (F-NOT OP1)))) (CONS (F-AND (F-NAND3 (F-NAND (F-NOT (F-NOT OP3)) (F-EQUV (F-NOT (F-NOT OP0)) (F-NOT (F-NOT OP1)))) (F-NAND (F-NOT OP2) (F-NAND (F-NOT (F-NOT SWAP)) (F-NOT OP3))) (F-NAND4 (F-NOT (F-NOT OP0)) (F-NOT OP1) (F-NOT (F-NOT OP2)) (F-NOT OP3))) (F-NOT ZERO)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-EQUV . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-AND . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-NAND . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F$DECODE-PROP) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F$DECODE-PROP) (DCELL . *1*F$DECODE-PROP))))) (PUT1-LST (QUOTE *1*DECODE-PROP) (QUOTE (MAIN-EVENT DECODE-PROP))) (PUT1-LST (QUOTE DECODE-PROP) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-PROP 16 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((DECODE-PROP . T)) SDEFN (LAMBDA (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (B-NAND3 (B-NAND4 (B-NOT OP0) (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT (B-NOT OP3))) (B-NAND (B-NOT (B-NOT OP1)) (B-NOT OP3)) (B-NAND3 (B-NOT OP2) (B-NOT OP3) (B-NOT (B-NOT SWAP)))) (CONS (B-NOR (B-NOT OP2) (B-NOR (B-NOT OP3) (B-NOR (B-NOT (B-NOT OP0)) (B-NOT OP1)))) (CONS (B-AND (B-NAND3 (B-NAND (B-NOT (B-NOT OP3)) (B-EQUV (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1)))) (B-NAND (B-NOT OP2) (B-NAND (B-NOT (B-NOT SWAP)) (B-NOT OP3))) (B-NAND4 (B-NOT (B-NOT OP0)) (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT OP3))) (B-NOT ZERO)) (QUOTE NIL))))) LISP-CODE *1*DECODE-PROP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-PROP) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG MPG F$DECODE-PROP=DECODE-PROP) EVENT (DEFN DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3) (CONS (B-NAND3 (B-NAND4 (B-NOT OP0) (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT (B-NOT OP3))) (B-NAND (B-NOT (B-NOT OP1)) (B-NOT OP3)) (B-NAND3 (B-NOT OP2) (B-NOT OP3) (B-NOT (B-NOT SWAP)))) (CONS (B-NOR (B-NOT OP2) (B-NOR (B-NOT OP3) (B-NOR (B-NOT (B-NOT OP0)) (B-NOT OP1)))) (CONS (B-AND (B-NAND3 (B-NAND (B-NOT (B-NOT OP3)) (B-EQUV (B-NOT (B-NOT OP0)) (B-NOT (B-NOT OP1)))) (B-NAND (B-NOT OP2) (B-NAND (B-NOT (B-NOT SWAP)) (B-NOT OP3))) (B-NAND4 (B-NOT (B-NOT OP0)) (B-NOT OP1) (B-NOT (B-NOT OP2)) (B-NOT OP3))) (B-NOT ZERO)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-AND . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-NAND . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-NOT . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-NAND4 . DECODE-PROP) (IMMEDIATE-DEPENDENTS0 B-NAND3 . DECODE-PROP) (DCELL . *1*DECODE-PROP))))) (PUT1-LST (QUOTE DECODE-MODE$VALUE-ZERO-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-MODE$VALUE-ZERO-OFF DECODE-MODE$VALUE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-MODE$VALUE-ZERO . DECODE-MODE$VALUE-ZERO-OFF) (DISABLED-LEMMAS NIL DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE-ZERO-OFF . T))))) (PUT1-LST (QUOTE DECODE-MODE$VALUE-ZERO) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (DECODE-MODE$VALUE-ZERO-OFF) EVENT (PROVE-LEMMA DECODE-MODE$VALUE-ZERO (REWRITE) (IMPLIES (DECODE-MODE& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-MODE) (ALU-INC-OP) STATE NETLIST) (QUOTE (*1*TRUE)))) ((ENABLE DECODE-MODE& B-NOR$VALUE B-NOR3$VALUE ALU-INC-OP) (DISABLE F-AND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOR3 . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOR . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-MODE$VALUE-ZERO) (IMMEDIATE-DEPENDENTS0 DECODE-MODE& . DECODE-MODE$VALUE-ZERO) (LEMMAS DUAL-EVAL . DECODE-MODE$VALUE-ZERO))))) (PUT1-LST (QUOTE F$DECODE-MODE=DECODE-MODE) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (F$MPG=MPG) EVENT (PROVE-LEMMA F$DECODE-MODE=DECODE-MODE (REWRITE) (IMPLIES (AND (BOOLP OP0) (AND (BOOLP OP1) (AND (BOOLP OP2) (BOOLP OP3)))) (EQUAL (F$DECODE-MODE OP0 OP1 OP2 OP3) (DECODE-MODE OP0 OP1 OP2 OP3))) ((ENABLE BOOLP-B-GATES F$DECODE-MODE DECODE-MODE) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 F-GATES . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 B-GATES . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 DECODE-MODE . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . F$DECODE-MODE=DECODE-MODE) (IMMEDIATE-DEPENDENTS0 BOOLP . F$DECODE-MODE=DECODE-MODE) (LEMMAS F$DECODE-MODE . F$DECODE-MODE=DECODE-MODE))))) (PUT1-LST (QUOTE DECODE-MODE$VALUE-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-MODE$VALUE-OFF DECODE-MODE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-MODE$VALUE . DECODE-MODE$VALUE-OFF) (DISABLED-LEMMAS NIL DECODE-MODE$VALUE DECODE-MODE$VALUE-OFF . T))))) (PUT1-LST (QUOTE DECODE-MODE$VALUE) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE DECODE-MODE$VALUE-OFF) EVENT (PROVE-LEMMA DECODE-MODE$VALUE (REWRITE) (IMPLIES (DECODE-MODE& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-MODE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))) STATE NETLIST) (CONS (F$DECODE-MODE OP0 OP1 OP2 OP3) (QUOTE NIL)))) ((ENABLE DECODE-MODE& F$DECODE-MODE B-NOR3$VALUE B-NOR$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DECODE-MODE$VALUE) (IMMEDIATE-DEPENDENTS0 DECODE-MODE& . DECODE-MODE$VALUE) (LEMMAS DUAL-EVAL . DECODE-MODE$VALUE))))) (PUT1-LST (QUOTE *1*DECODE-MODE$NETLIST) (QUOTE (MAIN-EVENT DECODE-MODE$NETLIST))) (PUT1-LST (QUOTE DECODE-MODE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-MODE$NETLIST 16)) TOTALP-LST ((DECODE-MODE$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DECODE-MODE*) (UNION (B-NOR3$NETLIST) (B-NOR$NETLIST)))) LISP-CODE *1*DECODE-MODE$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194042 SATELLITES (*1*DECODE-MODE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST MPG$NETLIST) EVENT (DEFN DECODE-MODE$NETLIST NIL (CONS (DECODE-MODE*) (UNION (B-NOR3$NETLIST) (B-NOR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . DECODE-MODE$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . DECODE-MODE$NETLIST) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . DECODE-MODE$NETLIST) (DCELL . *1*DECODE-MODE$NETLIST))))) (PUT1-LST (QUOTE DECODE-MODE&-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE DECODE-MODE&-OFF DECODE-MODE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DECODE-MODE& . DECODE-MODE&-OFF) (DISABLED-LEMMAS NIL DECODE-MODE& DECODE-MODE&-OFF . T))))) (PUT1-LST (QUOTE *1*DECODE-MODE&) (QUOTE (MAIN-EVENT DECODE-MODE&))) (PUT1-LST (QUOTE DECODE-MODE&) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-MODE& 3 NIL)) TOTALP-LST ((DECODE-MODE& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DECODE-MODE) NETLIST) (DECODE-MODE*)) (IF (B-NOR3& (DELETE-MODULE (QUOTE DECODE-MODE) NETLIST)) (B-NOR& (DELETE-MODULE (QUOTE DECODE-MODE) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DECODE-MODE& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194042 SATELLITES (*1*DECODE-MODE&) IMMEDIATE-DEPENDENTS0 (MPG& DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE DECODE-MODE&-OFF) EVENT (DEFN DECODE-MODE& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DECODE-MODE) NETLIST) (DECODE-MODE*)) (AND (B-NOR3& (DELETE-MODULE (QUOTE DECODE-MODE) NETLIST)) (B-NOR& (DELETE-MODULE (QUOTE DECODE-MODE) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR& . DECODE-MODE&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DECODE-MODE&) (IMMEDIATE-DEPENDENTS0 B-NOR3& . DECODE-MODE&) (IMMEDIATE-DEPENDENTS0 DECODE-MODE* . DECODE-MODE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DECODE-MODE&) (DCELL . *1*DECODE-MODE&))))) (PUT1-LST (QUOTE *1*DECODE-MODE*) (QUOTE (MAIN-EVENT DECODE-MODE*))) (PUT1-LST (QUOTE DECODE-MODE*) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-MODE* 16)) TOTALP-LST ((DECODE-MODE* . T)) SDEFN (LAMBDA NIL (QUOTE (DECODE-MODE (OP0 OP1 OP2 OP3) (W-1) ((G-0 (W-0) B-NOR3 (OP0 OP1 OP2)) (G-1 (W-1) B-NOR (W-0 OP3))) NIL))) LISP-CODE *1*DECODE-MODE* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-MODE*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE DECODE-MODE$NETLIST DECODE-MODE&) EVENT (DEFN DECODE-MODE* NIL (QUOTE (DECODE-MODE (OP0 OP1 OP2 OP3) (W-1) ((G-0 (W-0) B-NOR3 (OP0 OP1 OP2)) (G-1 (W-1) B-NOR (W-0 OP3))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DECODE-MODE*))))) (PUT1-LST (QUOTE F$DECODE-MODE-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE F$DECODE-MODE-OFF F$DECODE-MODE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DECODE-MODE . F$DECODE-MODE-OFF) (DISABLED-LEMMAS NIL F$DECODE-MODE F$DECODE-MODE-OFF . T))))) (PUT1-LST (QUOTE *1*F$DECODE-MODE) (QUOTE (MAIN-EVENT F$DECODE-MODE))) (PUT1-LST (QUOTE F$DECODE-MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DECODE-MODE 131 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$DECODE-MODE=DECODE-MODE ((BOOLP OP0) (BOOLP OP1) (BOOLP OP2) (BOOLP OP3)) (EQUAL (F$DECODE-MODE OP0 OP1 OP2 OP3) (DECODE-MODE OP0 OP1 OP2 OP3)) NIL)) TOTALP-LST ((F$DECODE-MODE . T)) SDEFN (LAMBDA (OP0 OP1 OP2 OP3) (F-NOR (F-NOR3 OP0 OP1 OP2) OP3)) LISP-CODE *1*F$DECODE-MODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*F$DECODE-MODE) IMMEDIATE-DEPENDENTS0 (MPG$VALUE-ZERO MPG$VALUE PROPERP-LENGTH-F$MPG F$MPG F$DECODE-MODE=DECODE-MODE DECODE-MODE$VALUE F$DECODE-MODE-OFF) EVENT (DEFN F$DECODE-MODE (OP0 OP1 OP2 OP3) (F-NOR (F-NOR3 OP0 OP1 OP2) OP3)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F$DECODE-MODE) (IMMEDIATE-DEPENDENTS0 F-NOR . F$DECODE-MODE) (DCELL . *1*F$DECODE-MODE))))) (PUT1-LST (QUOTE *1*DECODE-MODE) (QUOTE (MAIN-EVENT DECODE-MODE))) (PUT1-LST (QUOTE DECODE-MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((DECODE-MODE 3 NIL NIL NIL NIL)) TOTALP-LST ((DECODE-MODE . T)) SDEFN (LAMBDA (OP0 OP1 OP2 OP3) (B-NOR (B-NOR3 OP0 OP1 OP2) OP3)) LISP-CODE *1*DECODE-MODE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*DECODE-MODE) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG MPG F$DECODE-MODE=DECODE-MODE) EVENT (DEFN DECODE-MODE (OP0 OP1 OP2 OP3) (B-NOR (B-NOR3 OP0 OP1 OP2) OP3)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3 . DECODE-MODE) (IMMEDIATE-DEPENDENTS0 B-NOR . DECODE-MODE) (DCELL . *1*DECODE-MODE))))) (PUT1-LST (QUOTE BV-V-ALU-ALU-INC-ALU-DEC) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP FETCH2$STEP) EVENT (PROVE-LEMMA BV-V-ALU-ALU-INC-ALU-DEC (REWRITE) (AND (EQUAL (BV (V-ALU C A B (ALU-INC-OP))) (V-INC A)) (EQUAL (BV (V-ALU C A B (ALU-DEC-OP))) (V-DEC A))) ((ENABLE BV V-ALU V-INC V-DEC ALU-INC-OP ALU-DEC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 B-NOT . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 NTH . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-ZEROP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 B-AND . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-DEC . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-INC . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 V-ALU . BV-V-ALU-ALU-INC-ALU-DEC) (IMMEDIATE-DEPENDENTS0 BV . BV-V-ALU-ALU-INC-ALU-DEC) (LEMMAS BV . BV-V-ALU-ALU-INC-ALU-DEC) (LEMMAS BV . BV-V-ALU-ALU-INC-ALU-DEC))))) (PUT1-LST (QUOTE BVP-LENGTH-ALU-DEC-OP) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV F$CV=CV BVP-CV-VECTORS CV_SEFB1$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READA1$DESTRUCTURE) EVENT (PROVE-LEMMA BVP-LENGTH-ALU-DEC-OP (REWRITE) (AND (EQUAL (LENGTH (ALU-DEC-OP)) (QUOTE 4)) (BVP (ALU-DEC-OP))) ((ENABLE ALU-DEC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-LENGTH-ALU-DEC-OP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-ALU-DEC-OP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-ALU-DEC-OP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-ALU-DEC-OP) (IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . BVP-LENGTH-ALU-DEC-OP) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-ALU-DEC-OP) (LEMMAS BVP . BVP-LENGTH-ALU-DEC-OP) (LEMMAS LENGTH . BVP-LENGTH-ALU-DEC-OP))))) (PUT1-LST (QUOTE G*1*ALU-DEC-OP-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE G*1*ALU-DEC-OP-OFF *1*ALU-DEC-OP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . G*1*ALU-DEC-OP-OFF) (DISABLED-LEMMAS NIL *1*ALU-DEC-OP G*1*ALU-DEC-OP-OFF . T))))) (PUT1-LST (QUOTE ALU-DEC-OP-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE ALU-DEC-OP-OFF ALU-DEC-OP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-DEC-OP . ALU-DEC-OP-OFF) (DISABLED-LEMMAS NIL ALU-DEC-OP ALU-DEC-OP-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-DEC-OP) (QUOTE (MAIN-EVENT ALU-DEC-OP))) (PUT1-LST (QUOTE ALU-DEC-OP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-DEC-OP 16)) TOTALP-LST ((ALU-DEC-OP . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LISP-CODE *1*ALU-DEC-OP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*ALU-DEC-OP) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP CV CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 F$SELECT-OP-CODE-SELECTS CORE-ALU-WORKS-AS-DEC-B BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-ALU-DEC-OP G*1*ALU-DEC-OP-OFF ALU-DEC-OP-OFF) EVENT (DEFN ALU-DEC-OP NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALU-DEC-OP))))) (PUT1-LST (QUOTE BVP-LENGTH-ALU-INC-OP) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP FETCH2$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV F$CV=CV BVP-CV-VECTORS CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA BVP-LENGTH-ALU-INC-OP (REWRITE) (AND (EQUAL (LENGTH (ALU-INC-OP)) (QUOTE 4)) (BVP (ALU-INC-OP))) ((ENABLE ALU-INC-OP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-LENGTH-ALU-INC-OP) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-ALU-INC-OP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-ALU-INC-OP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-ALU-INC-OP) (IMMEDIATE-DEPENDENTS0 ALU-INC-OP . BVP-LENGTH-ALU-INC-OP) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-ALU-INC-OP) (LEMMAS BVP . BVP-LENGTH-ALU-INC-OP) (LEMMAS LENGTH . BVP-LENGTH-ALU-INC-OP))))) (PUT1-LST (QUOTE G*1*ALU-INC-OP-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE G*1*ALU-INC-OP-OFF *1*ALU-INC-OP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-INC-OP . G*1*ALU-INC-OP-OFF) (DISABLED-LEMMAS NIL *1*ALU-INC-OP G*1*ALU-INC-OP-OFF . T))))) (PUT1-LST (QUOTE ALU-INC-OP-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE ALU-INC-OP-OFF ALU-INC-OP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALU-INC-OP . ALU-INC-OP-OFF) (DISABLED-LEMMAS NIL ALU-INC-OP ALU-INC-OP-OFF . T))))) (PUT1-LST (QUOTE *1*ALU-INC-OP) (QUOTE (MAIN-EVENT ALU-INC-OP))) (PUT1-LST (QUOTE ALU-INC-OP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALU-INC-OP 16)) TOTALP-LST ((ALU-INC-OP . T)) SDEFN (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LISP-CODE *1*ALU-INC-OP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*ALU-INC-OP) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP CV CV_RESET2$DESTRUCTURE CV_RESET2 CV_RESET1$DESTRUCTURE CV_RESET1 CV_RESET0$DESTRUCTURE CV_RESET0 CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 CV_FETCH2$DESTRUCTURE CV_FETCH2 CV_FETCH0$DESTRUCTURE CV_FETCH0 F$SELECT-OP-CODE-SELECTS CORE-ALU-WORKS-AS-INC-B CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP-ZERO MPG$VALUE-ZERO MPG-ZERO DECODE-GEN$VALUE-ZERO DECODE-PROP$VALUE-ZERO DECODE-MODE$VALUE-ZERO BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-ALU-INC-OP G*1*ALU-INC-OP-OFF ALU-INC-OP-OFF) EVENT (DEFN ALU-INC-OP NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALU-INC-OP))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF UNARY-OP-CODE-P->V-ALU=V-ALU-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P->V-ALU=V-ALU-1 . UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF) (DISABLED-LEMMAS NIL UNARY-OP-CODE-P->V-ALU=V-ALU-1 UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF . T))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P->V-ALU=V-ALU-1) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 UNARY-OP-CODE-P->V-ALU=V-ALU-1-OFF) EVENT (PROVE-LEMMA UNARY-OP-CODE-P->V-ALU=V-ALU-1 (REWRITE) (IMPLIES (UNARY-OP-CODE-P OP-CODE) (EQUAL (V-ALU C A B OP-CODE) (V-ALU-1 C A OP-CODE))) ((ENABLE UNARY-OP-CODE-P V-ALU V-ALU-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 NTH . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ZEROP . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 B-AND . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 B-NOT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ROR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ASR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-LSR . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU-1 . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . UNARY-OP-CODE-P->V-ALU=V-ALU-1) (LEMMAS V-ALU . UNARY-OP-CODE-P->V-ALU=V-ALU-1))))) (PUT1-LST (QUOTE LENGTH-V-ALU-1) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA LENGTH-V-ALU-1 (REWRITE) (EQUAL (LENGTH (V-ALU-1 C A OP)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) ((ENABLE V-ALU-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . LENGTH-V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU-1 . LENGTH-V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-ALU-1) (LEMMAS LENGTH . LENGTH-V-ALU-1))))) (PUT1-LST (QUOTE BVP-V-ALU-1) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP) EVENT (PROVE-LEMMA BVP-V-ALU-1 (REWRITE) (IMPLIES (AND (BVP A) (AND (BOOLP C) (NOT (EQUAL (LENGTH A) (QUOTE 0))))) (BVP (V-ALU-1 C A OP))) ((USE (BVP-CVZBV (CVZBV (V-ALU C A A OP)))) (ENABLE V-ALU-1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-C-V-ALU . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BOOLP-V-V-ALU . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BOOLP-ZB-V-ALU . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-V-ALU . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BVP-V-ALU . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-BV . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BVP-CVZBV . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 V-ALU-1 . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-V-ALU-1) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-ALU-1) (LEMMAS BVP . BVP-V-ALU-1))))) (PUT1-LST (QUOTE V-ALU-1-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE V-ALU-1-OFF V-ALU-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU-1 . V-ALU-1-OFF) (DISABLED-LEMMAS NIL V-ALU-1 V-ALU-1-OFF . T))))) (PUT1-LST (QUOTE *1*V-ALU-1) (QUOTE (MAIN-EVENT V-ALU-1))) (PUT1-LST (QUOTE V-ALU-1) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU-1 16 NIL NIL NIL)) TOTALP-LST ((V-ALU-1 . T)) SDEFN (LAMBDA (C A OP-CODE) (V-ALU C A A OP-CODE)) LISP-CODE *1*V-ALU-1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194042 SATELLITES (*1*V-ALU-1) IMMEDIATE-DEPENDENTS0 (UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU-1 BVP-V-ALU-1 V-ALU-1-OFF) EVENT (DEFN V-ALU-1 (C A OP-CODE) (V-ALU C A A OP-CODE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-1) (DCELL . *1*V-ALU-1))))) (PUT1-LST (QUOTE UNARY-OP-CODE-P-OFF) (QUOTE (IDATE 1000402194042 EVENT (TOGGLE UNARY-OP-CODE-P-OFF UNARY-OP-CODE-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNARY-OP-CODE-P . UNARY-OP-CODE-P-OFF) (DISABLED-LEMMAS NIL UNARY-OP-CODE-P UNARY-OP-CODE-P-OFF . T))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P) (QUOTE (MAIN-EVENT UNARY-OP-CODE-P))) (PUT1-LST (QUOTE UNARY-OP-CODE-P) (QUOTE (TYPE-PRESCRIPTION-LST ((UNARY-OP-CODE-P 3 NIL)) TOTALP-LST ((UNARY-OP-CODE-P . T)) SDEFN (LAMBDA (OP-CODE) (IF (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE) (IF (EQUAL OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE) (EQUAL OP-CODE (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))))))))) LISP-CODE *1*UNARY-OP-CODE-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194042 SATELLITES (*1*UNARY-OP-CODE-P) IMMEDIATE-DEPENDENTS0 (T_FETCH1 T_REGA T_REGB T_READA0 T_UPDATE READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM READA3$STEP0 UPDATE$STEP REGA$STEP DECODE$STEP NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET F$UNARY-OP-CODE-P=UNARY-OP-CODE-P UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 UNARY-OP-CODE-P->V-ALU=V-ALU-1 UNARY-OP-CODE-P-OFF) EVENT (DEFN UNARY-OP-CODE-P (OP-CODE) (OR (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (OR (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (OR (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (OR (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (OR (EQUAL OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (OR (EQUAL OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (OR (EQUAL OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (OR (EQUAL OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (EQUAL OP-CODE (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*UNARY-OP-CODE-P))))) (PUT1-LST (QUOTE BVP-LENGTH-BV) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT F$UPDATE-FLAGS=UPDATE-FLAGS BVP-V-ALU-1) EVENT (PROVE-LEMMA BVP-LENGTH-BV (REWRITE) (AND (EQUAL (LENGTH (BV X)) (DIFFERENCE (LENGTH X) (QUOTE 3))) (IMPLIES (AND (BVP X) (IF (LESSP (LENGTH X) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (BVP (BV X)))) ((ENABLE BV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 BV . BVP-LENGTH-BV) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-BV) (LEMMAS BVP . BVP-LENGTH-BV) (LEMMAS LENGTH . BVP-LENGTH-BV))))) (PUT1-LST (QUOTE LENGTH-V-ALU) (QUOTE (IDATE 1000402194042 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP LENGTH-V-ALU-1 BVP-V-ALU-1) EVENT (PROVE-LEMMA LENGTH-V-ALU (REWRITE) (EQUAL (LENGTH (V-ALU C A B OP)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) ((ENABLE V-ALU) (DISABLE CVZBV-V-SUBTRACTER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 NTH . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ZEROP . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-SUM . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-XOR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-AND . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-OR . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-CVZBV-SUBTRACTER . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-BUF . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . LENGTH-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-ALU) (LEMMAS LENGTH . LENGTH-V-ALU))))) (PUT1-LST (QUOTE LENGTH-CVZBV-ADDER) (QUOTE (IDATE 1000402194040 EVENT (PROVE-LEMMA LENGTH-CVZBV-ADDER (REWRITE) (EQUAL (LENGTH (CVZBV-V-ADDER C A B)) (ADD1 (ADD1 (ADD1 (LENGTH A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH-SUM . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . LENGTH-CVZBV-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CVZBV-ADDER) (LEMMAS LENGTH . LENGTH-CVZBV-ADDER))))) (PUT1-LST (QUOTE LENGTH-CVZBV-SUBTRACTER) (QUOTE (IDATE 1000402194040 IMMEDIATE-DEPENDENTS0 (LENGTH-V-ALU) EVENT (PROVE-LEMMA LENGTH-CVZBV-SUBTRACTER (REWRITE) (EQUAL (LENGTH (CVZBV-V-SUBTRACTER C A B)) (ADD1 (ADD1 (ADD1 (LENGTH A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ZEROP . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH-SUM . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 B-NOT . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . LENGTH-CVZBV-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CVZBV-SUBTRACTER) (LEMMAS LENGTH . LENGTH-CVZBV-SUBTRACTER))))) (PUT1-LST (QUOTE BVP-V-ALU) (QUOTE (IDATE 1000402194040 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP BVP-V-ALU-1) EVENT (PROVE-LEMMA BVP-V-ALU (REWRITE) (IMPLIES (AND (BVP A) (AND (BOOLP C) (NOT (EQUAL (LENGTH A) (QUOTE 0))))) (BVP (V-ALU C A B OP))) ((USE (BVP-CVZBV (CVZBV (V-ALU C A B OP)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-C-V-ALU . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-V-V-ALU . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-ZB-V-ALU . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-BV-V-ALU . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-CVZBV . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-ALU) (LEMMAS BVP . BVP-V-ALU))))) (PUT1-LST (QUOTE BVP-BV-V-ALU) (QUOTE (IDATE 1000402194040 IMMEDIATE-DEPENDENTS0 (BVP-V-ALU) EVENT (PROVE-LEMMA BVP-BV-V-ALU (REWRITE) (IMPLIES (BVP A) (BVP (BV (V-ALU C A B OP)))) ((ENABLE V-ALU) (DISABLE CVZBV V-ADDER-CARRY-OUT V-ADDER-OVERFLOWP V-ADDER-OUTPUT V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OVERFLOWP B-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-OR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-V-AND . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-V-XOR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 NTH . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP-SUM . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CVZBV . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BV . BVP-BV-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . BVP-BV-V-ALU) (LEMMAS BVP . BVP-BV-V-ALU))))) (PUT1-LST (QUOTE BOOLP-ZB-V-ALU) (QUOTE (IDATE 1000402194040 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS BVP-V-ALU-1 BVP-V-ALU) EVENT (PROVE-LEMMA BOOLP-ZB-V-ALU (REWRITE) (BOOLP (ZB (V-ALU C A B OP))) ((ENABLE V-ALU) (DISABLE CVZBV V-ADDER-CARRY-OUT V-ADDER-OVERFLOWP V-ADDER-OUTPUT V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CVZBV . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 ZB . BOOLP-ZB-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-ZB-V-ALU) (LEMMAS BOOLP . BOOLP-ZB-V-ALU))))) (PUT1-LST (QUOTE BOOLP-V-V-ALU) (QUOTE (IDATE 1000402194040 IMMEDIATE-DEPENDENTS0 (BVP-V-ALU-1 BVP-V-ALU) EVENT (PROVE-LEMMA BOOLP-V-V-ALU (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0))))) (BOOLP (V (V-ALU C A B OP)))) ((ENABLE V-ALU) (DISABLE CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CVZBV . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 V . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-V-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-V-V-ALU) (LEMMAS BOOLP . BOOLP-V-V-ALU))))) (PUT1-LST (QUOTE BOOLP-C-V-ALU) (QUOTE (IDATE 1000402194039 IMMEDIATE-DEPENDENTS0 (BVP-V-ALU-1 BVP-V-ALU) EVENT (PROVE-LEMMA BOOLP-C-V-ALU (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0))))) (BOOLP (C (V-ALU C A B OP)))) ((ENABLE V-ALU) (DISABLE CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-NTH . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP-BVP-CVZBV . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-LSR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ASR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ROR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-NOT-INVERTS-ALL . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 B-NOT . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 ANY-OF-NAT-TO-V-0-IS-F . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 B-AND . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT=V-CARRY . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 V-ALU . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 C . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-C-V-ALU) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-C-V-ALU) (LEMMAS BOOLP . BOOLP-C-V-ALU))))) (PUT1-LST (QUOTE V-ALU-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE V-ALU-OFF V-ALU T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ALU . V-ALU-OFF) (DISABLED-LEMMAS NIL V-ALU V-ALU-OFF . T))))) (PUT1-LST (QUOTE *1*V-ALU) (QUOTE (MAIN-EVENT V-ALU))) (PUT1-LST (QUOTE V-ALU) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ALU 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-REWRITE ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ALU C A B OP) (V-ALU-INT C A B OP)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-REWRITE ((BV2P A B)) (EQUAL (V-ALU C A B OP) (V-ALU-NAT C A B OP)) NIL) (REWRITE-RULE UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 ((UNARY-OP-CODE-P (OP-CODE I-REG))) (EQUAL (V-ALU C A B (OP-CODE I-REG)) (V-ALU-1 C A (OP-CODE I-REG))) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) TREE)) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BOOLP C)) (EQUAL (V-ALU C A B (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (CORE-ALU (CARRY-IN-HELP (CONS C (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) A B (QUOTE *1*FALSE) (MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)) TREE)) NIL) (REWRITE-RULE UNARY-OP-CODE-P->V-ALU=V-ALU-1 ((UNARY-OP-CODE-P OP-CODE)) (EQUAL (V-ALU C A B OP-CODE) (V-ALU-1 C A OP-CODE)) NIL)) TOTALP-LST ((V-ALU . T)) SDEFN (LAMBDA (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (CVZBV-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (CVZBV-V-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (CVZBV-V-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (CVZBV-NEG A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (CVZBV-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (CVZBV-V-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (CVZBV-V-ROR C A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (CVZBV-V-ASR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (CVZBV-V-LSR A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-XOR A B)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-OR A B)) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-AND A B)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (CVZBV-V-NOT A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)))))))))))))))))) LISP-CODE *1*V-ALU SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194039 SATELLITES (*1*V-ALU) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-NAT-REWRITE V-V-ALU C-V-ALU BV-V-ALU FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS N-V-ALU ZB-V-ALU V-ALU-CORRECT-INT V-ALU-INT V-ALU-CORRECT-NAT V-ALU-NAT WRITE0->WRITE3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM WRITE0$STEP UPDATE$STEP UNARY-OP-CODE-P-OP-CODE->V-ALU=V-ALU-1 FM9001-ALU-OPERATION CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 V-ALU-1 LENGTH-V-ALU BVP-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU-OFF) EVENT (DEFN V-ALU (C A B OP) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (CVZBV-INC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (CVZBV-V-ADDER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (CVZBV-V-ADDER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (CVZBV-NEG A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (CVZBV-DEC A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (CVZBV-V-SUBTRACTER C A B) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) A B) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (CVZBV-V-ROR C A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (CVZBV-V-ASR A) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (CVZBV-V-LSR A) (IF (EQUAL OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-XOR A B)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-OR A B)) (IF (EQUAL OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-AND A B)) (IF (EQUAL OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (CVZBV-V-NOT A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV-V-NOT . V-ALU) (IMMEDIATE-DEPENDENTS0 V-AND . V-ALU) (IMMEDIATE-DEPENDENTS0 V-OR . V-ALU) (IMMEDIATE-DEPENDENTS0 V-XOR . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-LSR . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ASR . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ROR . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-DEC . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-NEG . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV-INC . V-ALU) (IMMEDIATE-DEPENDENTS0 V-BUF . V-ALU) (IMMEDIATE-DEPENDENTS0 CVZBV . V-ALU) (DCELL . *1*V-ALU))))) (PUT1-LST (QUOTE *1*CVZBV-V-LSR) (QUOTE (MAIN-EVENT CVZBV-V-LSR))) (PUT1-LST (QUOTE CVZBV-V-LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-LSR 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-LSR ((BVP A)) (EQUAL (CVZBV-V-LSR A) (V-ALU-NAT-LSR A)) NIL)) TOTALP-LST ((CVZBV-V-LSR . T)) SDEFN (LAMBDA (A) (IF (LISTP A) (CVZBV (NTH (QUOTE 0) A) (QUOTE *1*FALSE) (V-LSR A)) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-LSR A)))) LISP-CODE *1*CVZBV-V-LSR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-LSR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU BV-V-ALU FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-LSR ZB-V-ALU V-ALU-CORRECT-NAT-LSR CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-V-LSR (A) (CVZBV (IF (LISTP A) (NTH (QUOTE 0) A) (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (V-LSR A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-LSR . CVZBV-V-LSR) (IMMEDIATE-DEPENDENTS0 NTH . CVZBV-V-LSR) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-LSR) (DCELL . *1*CVZBV-V-LSR))))) (PUT1-LST (QUOTE *1*CVZBV-V-ASR) (QUOTE (MAIN-EVENT CVZBV-V-ASR))) (PUT1-LST (QUOTE CVZBV-V-ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-ASR 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-ASR ((BVP A)) (EQUAL (CVZBV-V-ASR A) (V-ALU-INT-ASR A)) NIL)) TOTALP-LST ((CVZBV-V-ASR . T)) SDEFN (LAMBDA (A) (IF (LISTP A) (CVZBV (NTH (QUOTE 0) A) (QUOTE *1*FALSE) (V-ASR A)) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-ASR A)))) LISP-CODE *1*CVZBV-V-ASR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-ASR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU BV-V-ALU FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO ZB-V-ALU V-ALU-CORRECT-INT-ASR CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-V-ASR (A) (CVZBV (IF (LISTP A) (NTH (QUOTE 0) A) (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (V-ASR A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ASR . CVZBV-V-ASR) (IMMEDIATE-DEPENDENTS0 NTH . CVZBV-V-ASR) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-ASR) (DCELL . *1*CVZBV-V-ASR))))) (PUT1-LST (QUOTE *1*CVZBV-V-NOT) (QUOTE (MAIN-EVENT CVZBV-V-NOT))) (PUT1-LST (QUOTE CVZBV-V-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-NOT 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-NOT ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-NOT A) (V-ALU-INT-NOT A)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-NOT ((BVP A)) (EQUAL (CVZBV-V-NOT A) (V-ALU-NAT-NOT A)) NIL)) TOTALP-LST ((CVZBV-V-NOT . T)) SDEFN (LAMBDA (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-NOT A))) LISP-CODE *1*CVZBV-V-NOT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-NOT) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU BV-V-ALU ZB-V-ALU V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-NAT-NOT CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-V-NOT (A) (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-NOT A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . CVZBV-V-NOT) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-NOT) (DCELL . *1*CVZBV-V-NOT))))) (PUT1-LST (QUOTE *1*CVZBV-DEC) (QUOTE (MAIN-EVENT CVZBV-DEC))) (PUT1-LST (QUOTE CVZBV-DEC) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-DEC 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-DEC ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-DEC A) (V-ALU-INT-DEC A)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-DEC ((BVP A)) (EQUAL (CVZBV-DEC A) (V-ALU-NAT-DEC A)) NIL)) TOTALP-LST ((CVZBV-DEC . T)) SDEFN (LAMBDA (A) (CVZBV-V-SUBTRACTER (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH A)) A)) LISP-CODE *1*CVZBV-DEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194039 SATELLITES (*1*CVZBV-DEC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU ZB-V-ALU V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-NAT-DEC CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-DEC (A) (CVZBV-V-SUBTRACTER (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH A)) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . CVZBV-DEC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . CVZBV-DEC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . CVZBV-DEC) (DCELL . *1*CVZBV-DEC))))) (PUT1-LST (QUOTE *1*CVZBV-NEG) (QUOTE (MAIN-EVENT CVZBV-NEG))) (PUT1-LST (QUOTE CVZBV-NEG) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-NEG 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-NEG ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-NEG A) (V-ALU-INT-NEG A)) NIL)) TOTALP-LST ((CVZBV-NEG . T)) SDEFN (LAMBDA (A) (CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*CVZBV-NEG SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194039 SATELLITES (*1*CVZBV-NEG) IMMEDIATE-DEPENDENTS0 (BV-V-ALU ZB-V-ALU V-ALU-CORRECT-INT-NEG CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-NEG (A) (CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . CVZBV-NEG) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . CVZBV-NEG) (IMMEDIATE-DEPENDENTS0 CVZBV-V-SUBTRACTER . CVZBV-NEG) (DCELL . *1*CVZBV-NEG))))) (PUT1-LST (QUOTE *1*CVZBV-INC) (QUOTE (MAIN-EVENT CVZBV-INC))) (PUT1-LST (QUOTE CVZBV-INC) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-INC 16 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-INC ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-INC A) (V-ALU-INT-INC A)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-INC ((BVP A)) (EQUAL (CVZBV-INC A) (V-ALU-NAT-INC A)) NIL)) TOTALP-LST ((CVZBV-INC . T)) SDEFN (LAMBDA (A) (CVZBV-V-ADDER (QUOTE *1*TRUE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LISP-CODE *1*CVZBV-INC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194039 SATELLITES (*1*CVZBV-INC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-ALU-CORRECT-INT-INC V-ALU-CORRECT-NAT-INC CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-INC (A) (CVZBV-V-ADDER (QUOTE *1*TRUE) A (NAT-TO-V (QUOTE 0) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . CVZBV-INC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . CVZBV-INC) (IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . CVZBV-INC) (DCELL . *1*CVZBV-INC))))) (PUT1-LST (QUOTE *1*CVZBV-V-SUBTRACTER) (QUOTE (MAIN-EVENT CVZBV-V-SUBTRACTER))) (PUT1-LST (QUOTE CVZBV-V-SUBTRACTER) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-SUBTRACTER 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-SUBTRACTER ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-SUBTRACTER C A B) (V-ALU-INT-SUBTRACTER C A B)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-SUBTRACTER ((BV2P A B)) (EQUAL (CVZBV-V-SUBTRACTER C A B) (V-ALU-NAT-SUBTRACTER C A B)) NIL)) TOTALP-LST ((CVZBV-V-SUBTRACTER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-SUBTRACTER-CARRY-OUT C A B) (V-SUBTRACTER-OVERFLOWP C A B) (V-SUBTRACTER-OUTPUT C A B))) LISP-CODE *1*CVZBV-V-SUBTRACTER SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-SUBTRACTER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU CVZBV-DEC CVZBV-NEG) EVENT (DEFN CVZBV-V-SUBTRACTER (C A B) (CVZBV (V-SUBTRACTER-CARRY-OUT C A B) (V-SUBTRACTER-OVERFLOWP C A B) (V-SUBTRACTER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . CVZBV-V-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OVERFLOWP . CVZBV-V-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-CARRY-OUT . CVZBV-V-SUBTRACTER) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-SUBTRACTER) (DCELL . *1*CVZBV-V-SUBTRACTER))))) (PUT1-LST (QUOTE *1*CVZBV-V-LSL) (QUOTE (MAIN-EVENT CVZBV-V-LSL))) (PUT1-LST (QUOTE CVZBV-V-LSL) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-LSL 16 NIL)) TOTALP-LST ((CVZBV-V-LSL . T)) SDEFN (LAMBDA (A) (CVZBV-V-ADDER (QUOTE *1*FALSE) A A)) LISP-CODE *1*CVZBV-V-LSL SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-LSL) EVENT (DEFN CVZBV-V-LSL (A) (CVZBV-V-ADDER (QUOTE *1*FALSE) A A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CVZBV-V-ADDER . CVZBV-V-LSL) (DCELL . *1*CVZBV-V-LSL))))) (PUT1-LST (QUOTE *1*CVZBV-V-ADDER) (QUOTE (MAIN-EVENT CVZBV-V-ADDER))) (PUT1-LST (QUOTE CVZBV-V-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-ADDER 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-ADDER ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (CVZBV-V-ADDER C A B) (V-ALU-INT-ADDER C A B)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-ADDER ((BV2P A B)) (EQUAL (CVZBV-V-ADDER C A B) (V-ALU-NAT-ADDER C A B)) NIL)) TOTALP-LST ((CVZBV-V-ADDER . T)) SDEFN (LAMBDA (C A B) (CVZBV (V-ADDER-CARRY-OUT C A B) (V-ADDER-OVERFLOWP C A B) (V-ADDER-OUTPUT C A B))) LISP-CODE *1*CVZBV-V-ADDER SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-ADDER) IMMEDIATE-DEPENDENTS0 (BV-V-ALU FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-NAT-ADDER CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU CVZBV-INC CVZBV-V-LSL) EVENT (DEFN CVZBV-V-ADDER (C A B) (CVZBV (V-ADDER-CARRY-OUT C A B) (V-ADDER-OVERFLOWP C A B) (V-ADDER-OUTPUT C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . CVZBV-V-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . CVZBV-V-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT . CVZBV-V-ADDER) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-ADDER) (DCELL . *1*CVZBV-V-ADDER))))) (PUT1-LST (QUOTE *1*CVZBV-V-ROR) (QUOTE (MAIN-EVENT CVZBV-V-ROR))) (PUT1-LST (QUOTE CVZBV-V-ROR) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV-V-ROR 16 NIL NIL)) TOTALP-LST ((CVZBV-V-ROR . T)) SDEFN (LAMBDA (C A) (IF (LISTP A) (CVZBV (NTH (QUOTE 0) A) (QUOTE *1*FALSE) (V-ROR A C)) (CVZBV C (QUOTE *1*FALSE) (V-ROR A C)))) LISP-CODE *1*CVZBV-V-ROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV-V-ROR) IMMEDIATE-DEPENDENTS0 (V-V-ALU C-V-ALU BV-V-ALU FLAGS-INTERPRETATION-ROR ZB-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU V-ALU) EVENT (DEFN CVZBV-V-ROR (C A) (CVZBV (IF (NLISTP A) C (NTH (QUOTE 0) A)) (QUOTE *1*FALSE) (V-ROR A C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ROR . CVZBV-V-ROR) (IMMEDIATE-DEPENDENTS0 NTH . CVZBV-V-ROR) (IMMEDIATE-DEPENDENTS0 CVZBV . CVZBV-V-ROR) (DCELL . *1*CVZBV-V-ROR))))) (PUT1-LST (QUOTE BVP-CVZBV) (QUOTE (IDATE 1000402194039 IMMEDIATE-DEPENDENTS0 (BVP-V-ALU-1 BVP-V-ALU) EVENT (PROVE-LEMMA BVP-CVZBV NIL (IMPLIES (AND (BOOLP (C CVZBV)) (AND (BOOLP (V CVZBV)) (AND (BOOLP (ZB CVZBV)) (BVP (BV CVZBV))))) (BVP CVZBV)) ((ENABLE C V ZB BV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BV . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 ZB . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 V . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 C . BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-CVZBV))))) (PUT1-LST (QUOTE BOOLP-BVP-CVZBV) (QUOTE (IDATE 1000402194039 IMMEDIATE-DEPENDENTS0 (BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU) EVENT (PROVE-LEMMA BOOLP-BVP-CVZBV (REWRITE) (AND (EQUAL (BOOLP (C (CVZBV C V BV))) (BOOLP C)) (AND (EQUAL (BOOLP (V (CVZBV C V BV))) (BOOLP V)) (AND (BOOLP (ZB (CVZBV C V BV))) (EQUAL (BVP (BV (CVZBV C V BV))) (BVP BV))))) ((ENABLE C V ZB BV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 V-ZEROP . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BV . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 ZB . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 V . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 CVZBV . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 C . BOOLP-BVP-CVZBV) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-BVP-CVZBV) (LEMMAS BVP . BOOLP-BVP-CVZBV) (LEMMAS BOOLP . BOOLP-BVP-CVZBV) (LEMMAS BOOLP . BOOLP-BVP-CVZBV) (LEMMAS BOOLP . BOOLP-BVP-CVZBV))))) (PUT1-LST (QUOTE BOOLP-N) (QUOTE (IDATE 1000402194039 IMMEDIATE-DEPENDENTS0 (UNIVERSAL-FLAGS-INTERPRETATIONS) EVENT (PROVE-LEMMA BOOLP-N (REWRITE) (IMPLIES (BVP (BV V)) (BOOLP (N V))) ((ENABLE N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-V-NEGP . BOOLP-N) (IMMEDIATE-DEPENDENTS0 N . BOOLP-N) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-N) (IMMEDIATE-DEPENDENTS0 BV . BOOLP-N) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-N) (LEMMAS BOOLP . BOOLP-N))))) (PUT1-LST (QUOTE BV-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE BV-OFF BV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV . BV-OFF) (DISABLED-LEMMAS NIL BV BV-OFF . T))))) (PUT1-LST (QUOTE ZB-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE ZB-OFF ZB T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZB . ZB-OFF) (DISABLED-LEMMAS NIL ZB ZB-OFF . T))))) (PUT1-LST (QUOTE N-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE N-OFF N T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 N . N-OFF) (DISABLED-LEMMAS NIL N N-OFF . T))))) (PUT1-LST (QUOTE V-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE V-OFF V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V . V-OFF) (DISABLED-LEMMAS NIL V V-OFF . T))))) (PUT1-LST (QUOTE C-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE C-OFF C T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 C . C-OFF) (DISABLED-LEMMAS NIL C C-OFF . T))))) (PUT1-LST (QUOTE *1*ZB) (QUOTE (MAIN-EVENT ZB))) (PUT1-LST (QUOTE ZB) (QUOTE (TYPE-PRESCRIPTION-LST ((ZB -1 NIL)) LEMMAS ((REWRITE-RULE ZB-CVZBV NIL (EQUAL (ZB (CVZBV C V BV)) (V-ZEROP BV)) NIL)) TOTALP-LST ((ZB . T)) SDEFN (LAMBDA (CVZBV) (CAR (CDR (CDR CVZBV)))) LISP-CODE *1*ZB SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194039 SATELLITES (*1*ZB) IMMEDIATE-DEPENDENTS0 (ZB-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* UPDATE-FLAGS BOOLP-BVP-CORE-ALU BOOLP-ZB-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV ZB-OFF) EVENT (DEFN ZB (CVZBV) (CAR (CDR (CDR CVZBV)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ZB))))) (PUT1-LST (QUOTE *1*N) (QUOTE (MAIN-EVENT N))) (PUT1-LST (QUOTE N) (QUOTE (TYPE-PRESCRIPTION-LST ((N -1 NIL)) TOTALP-LST ((N . T)) SDEFN (LAMBDA (CVZBV) (V-NEGP (BV CVZBV))) LISP-CODE *1*N SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*N) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB N-V-ALU FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS UPDATE-FLAGS BOOLP-N N-OFF) EVENT (DEFN N (CVZBV) (V-NEGP (BV CVZBV))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV . N) (IMMEDIATE-DEPENDENTS0 V-NEGP . N) (DCELL . *1*N))))) (PUT1-LST (QUOTE *1*BV) (QUOTE (MAIN-EVENT BV))) (PUT1-LST (QUOTE BV) (QUOTE (TYPE-PRESCRIPTION-LST ((BV -1 NIL)) LEMMAS ((REWRITE-RULE BV-CVZBV NIL (EQUAL (BV (CVZBV C V BV)) BV) NIL) (REWRITE-RULE BV-AS-SUBRANGE ((NOT (LESSP (LENGTH X) (QUOTE 3))) (PROPERP X)) (EQUAL (BV X) (SUBRANGE X (QUOTE 3) (SUB1 (LENGTH X)))) NIL) (REWRITE-RULE CORE-ALU-WORKS-AS-DEC-B ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NOT ZERO) SWAP) (EQUAL (BV (CORE-ALU (CARRY-IN-HELP (CONS C (CONS ZERO (ALU-DEC-OP)))) A B ZERO (MPG (CONS ZERO (CONS SWAP (ALU-DEC-OP)))) (ALU-DEC-OP) TREE)) (V-DEC B)) NIL) (REWRITE-RULE CORE-ALU-WORKS-AS-INC-B ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NOT ZERO) SWAP) (EQUAL (BV (CORE-ALU (CARRY-IN-HELP (CONS C (CONS ZERO (ALU-INC-OP)))) A B ZERO (MPG (CONS ZERO (CONS SWAP (ALU-INC-OP)))) (ALU-INC-OP) TREE)) (V-INC B)) NIL) (REWRITE-RULE BV-V-ALU-ALU-INC-ALU-DEC NIL (EQUAL (BV (V-ALU C A B (ALU-DEC-OP))) (V-DEC A)) NIL) (REWRITE-RULE BV-V-ALU-ALU-INC-ALU-DEC NIL (EQUAL (BV (V-ALU C A B (ALU-INC-OP))) (V-INC A)) NIL)) TOTALP-LST ((BV . T)) SDEFN (LAMBDA (CVZBV) (CDR (CDR (CDR CVZBV)))) LISP-CODE *1*BV SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194039 SATELLITES (*1*BV) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL BV-V-ALU BV-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS N-V-ALU ZB-V-ALU SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READA1$STEP UPDATE$STEP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE BV-AS-SUBRANGE CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* FM9001-NEXT-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP WRITE-REGS-F-BV-CROCK FM9001-ALU-OPERATION CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B BOOLP-BVP-CORE-ALU BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-BV BVP-BV-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV BOOLP-N BV-OFF N) EVENT (DEFN BV (CVZBV) (CDR (CDR (CDR CVZBV)))) LOCAL-UNDO-TUPLES ((DCELL . *1*BV))))) (PUT1-LST (QUOTE *1*V) (QUOTE (MAIN-EVENT V))) (PUT1-LST (QUOTE V) (QUOTE (TYPE-PRESCRIPTION-LST ((V -1 NIL)) LEMMAS ((REWRITE-RULE V-CVZBV NIL (EQUAL (V (CVZBV C V BV)) V) NIL)) TOTALP-LST ((V . T)) SDEFN (LAMBDA (CVZBV) (CAR (CDR CVZBV))) LISP-CODE *1*V SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194039 SATELLITES (*1*V) IMMEDIATE-DEPENDENTS0 (V-V-ALU V-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE ZERO-FLAG-INTERPRETATION-FOR-SUB FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* UPDATE-FLAGS BOOLP-BVP-CORE-ALU BOOLP-V-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV V-OFF) EVENT (DEFN V (CVZBV) (CAR (CDR CVZBV))) LOCAL-UNDO-TUPLES ((DCELL . *1*V))))) (PUT1-LST (QUOTE *1*C) (QUOTE (MAIN-EVENT C))) (PUT1-LST (QUOTE C) (QUOTE (TYPE-PRESCRIPTION-LST ((C -1 NIL)) LEMMAS ((REWRITE-RULE C-CVZBV NIL (EQUAL (C (CVZBV C V BV)) C) NIL)) TOTALP-LST ((C . T)) SDEFN (LAMBDA (CVZBV) (CAR CVZBV)) LISP-CODE *1*C SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194039 SATELLITES (*1*C) IMMEDIATE-DEPENDENTS0 (C-V-ALU C-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$UPDATE-FLAGS FLAGS$VALUE CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* UPDATE-FLAGS BOOLP-BVP-CORE-ALU BOOLP-C-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV C-OFF) EVENT (DEFN C (CVZBV) (CAR CVZBV)) LOCAL-UNDO-TUPLES ((DCELL . *1*C))))) (PUT1-LST (QUOTE *1*CVZBV) (QUOTE (MAIN-EVENT CVZBV))) (PUT1-LST (QUOTE CVZBV) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZBV 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-INT-BUF ((BVP A)) (EQUAL (CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (V-BUF A)) (V-ALU-NAT-INT-BUF A)) NIL)) TOTALP-LST ((CVZBV . T)) SDEFN (LAMBDA (CARRY OVERFLOW VECTOR) (CONS CARRY (CONS OVERFLOW (CONS (V-ZEROP VECTOR) VECTOR)))) LISP-CODE *1*CVZBV SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194039 SATELLITES (*1*CVZBV) IMMEDIATE-DEPENDENTS0 (ZB-CVZBV V-CVZBV C-CVZBV BV-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-INT-NOT V-ALU-CORRECT-INT-ASR V-ALU-INT-ASR V-ALU-CORRECT-INT-SUBTRACTER V-ALU-INT-SUBTRACTER V-ALU-CORRECT-INT-ADDER V-ALU-INT-ADDER V-ALU-CORRECT-NAT-NOT V-ALU-NAT-NOT V-ALU-CORRECT-NAT-LSR V-ALU-NAT-LSR V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-NAT-SUBTRACTER V-ALU-CORRECT-NAT-ADDER V-ALU-NAT-ADDER V-ALU-CORRECT-NAT-INT-BUF V-ALU-NAT-INT-BUF CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU V-ALU CVZBV-V-LSR CVZBV-V-ASR CVZBV-V-NOT CVZBV-V-SUBTRACTER CVZBV-V-ADDER CVZBV-V-ROR BOOLP-BVP-CVZBV) EVENT (DEFN CVZBV (CARRY OVERFLOW VECTOR) (CONS CARRY (CONS OVERFLOW (CONS (V-ZEROP VECTOR) VECTOR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ZEROP . CVZBV) (DCELL . *1*CVZBV))))) (PUT1-LST (QUOTE WE-REG$STATE-OFF) (QUOTE (IDATE 1000402194039 EVENT (TOGGLE WE-REG$STATE-OFF WE-REG$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG$STATE . WE-REG$STATE-OFF) (DISABLED-LEMMAS NIL WE-REG$STATE WE-REG$STATE-OFF . T))))) (PUT1-LST (QUOTE WE-REG$STATE) (QUOTE (IDATE 1000402194039 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE REGFILE$STATE WE-REG$STATE-OFF) EVENT (PROVE-LEMMA WE-REG$STATE (REWRITE) (IMPLIES (AND (WE-REG& NETLIST N) (AND (EQUAL (LENGTH D) N) (AND (PROPERP D) (AND (EQUAL (LENGTH STATE) N) (AND (PROPERP STATE) (NOT TE)))))) (EQUAL (DUAL-EVAL (QUOTE 2) (INDEX (QUOTE WE-REG) N) (CONS CLK (CONS WE (CONS TE (CONS TI D)))) STATE NETLIST) (FV-IF WE D STATE))) ((ENABLE WE-REG& WE-REG-BODY$STATE BOOLP B-BUF-PWR$VALUE B-BUF$VALUE DEL4$VALUE WE-REG-BODY$VALUE WE-REG$VALUE WE-REG-BODY$UNBOUND-IN-BODY WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG*$DESTRUCTURE FV-IF-REWRITE) (DISABLE-THEORY F-GATES) (DISABLE OPEN-INDICES OPEN-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG*$DESTRUCTURE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 DEL4$VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-CONS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP-NAMES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY$UNBOUND-IN-BODY . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY$STATE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF-REWRITE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY$ALL-UNBOUND-IN-BODY . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . WE-REG$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG& . WE-REG$STATE) (LEMMAS DUAL-EVAL . WE-REG$STATE))))) (PUT1-LST (QUOTE WE-REG-BODY$STATE-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG-BODY$STATE-OFF WE-REG-BODY$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY$STATE . WE-REG-BODY$STATE-OFF) (DISABLED-LEMMAS NIL WE-REG-BODY$STATE WE-REG-BODY$STATE-OFF . T))))) (PUT1-LST (QUOTE WE-REG-BODY$STATE) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG-BODY$STATE-OFF) EVENT (PROVE-LEMMA WE-REG-BODY$STATE (REWRITE) (IMPLIES (AND (FD1SLP& NETLIST) (NOT (VALUE (QUOTE TE-BUF) BINDINGS))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE G) M N) (DUAL-EVAL (QUOTE 3) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST)) (FV-IF (VALUE (QUOTE WE-BUF) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE D) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE G) M N) STATE-BINDINGS)))) ((ENABLE WE-REG-BODY FD1SLP$STATE BOOLP FV-IF) (DISABLE THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX-IDEMPOTENT . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FD1SLP$STATE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LNFIX . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FV-IF . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . WE-REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FD1SLP& . WE-REG-BODY$STATE) (LEMMAS COLLECT-VALUE . WE-REG-BODY$STATE))))) (PUT1-LST (QUOTE WE-REG$VALUE-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG$VALUE-OFF WE-REG$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG$VALUE . WE-REG$VALUE-OFF) (DISABLED-LEMMAS NIL WE-REG$VALUE WE-REG$VALUE-OFF . T))))) (PUT1-LST (QUOTE WE-REG$VALUE) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE REGFILE$VALUE WE-REG$VALUE-OFF) EVENT (PROVE-LEMMA WE-REG$VALUE (REWRITE) (IMPLIES (AND (WE-REG& NETLIST N) (AND (EQUAL (LENGTH STATE) N) (PROPERP STATE))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE WE-REG) N) INPUTS STATE NETLIST) (V-THREEFIX STATE))) ((ENABLE WE-REG& B-BUF$VALUE B-BUF-PWR$VALUE DEL4$VALUE WE-REG-BODY$VALUE WE-REG*$DESTRUCTURE) (DISABLE OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG*$DESTRUCTURE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 DEL4$VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY$VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . WE-REG$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG& . WE-REG$VALUE) (LEMMAS DUAL-EVAL . WE-REG$VALUE))))) (PUT1-LST (QUOTE WE-REG-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG-BODY$VALUE-OFF WE-REG-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY$VALUE . WE-REG-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL WE-REG-BODY$VALUE WE-REG-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE WE-REG-BODY$VALUE) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (WE-REG$VALUE WE-REG-BODY$VALUE-OFF) EVENT (PROVE-LEMMA WE-REG-BODY$VALUE (REWRITE) (IMPLIES (FD1SLP& NETLIST) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Q) M N) (DUAL-EVAL (QUOTE 1) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE G) M N) STATE-BINDINGS)))) ((INDUCT (WE-REG-BODY-INDUCTION M N TI BINDINGS STATE-BINDINGS NETLIST)) (ENABLE WE-REG-BODY FD1SLP$VALUE WE-REG-BODY$UNBOUND-IN-BODY) (DISABLE F-NOT THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SLP$VALUE . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY$UNBOUND-IN-BODY . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY-INDUCTION . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . WE-REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SLP& . WE-REG-BODY$VALUE) (LEMMAS COLLECT-VALUE . WE-REG-BODY$VALUE))))) (PUT1-LST (QUOTE *1*WE-REG-BODY-INDUCTION) (QUOTE (MAIN-EVENT WE-REG-BODY-INDUCTION))) (PUT1-LST (QUOTE WE-REG-BODY-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REG-BODY-INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((WE-REG-BODY-INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N TI BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (WE-REG-BODY-INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*WE-REG-BODY-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194038 CONTROLLER-POCKETS (2) SATELLITES (*1*WE-REG-BODY-INDUCTION) IMMEDIATE-DEPENDENTS0 (WE-REG-BODY$VALUE) EVENT (DEFN WE-REG-BODY-INDUCTION (M N TI BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (WE-REG-BODY-INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . WE-REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WE-REG-BODY-INDUCTION) (DCELL . *1*WE-REG-BODY-INDUCTION))))) (PUT1-LST (QUOTE WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF WE-REG-BODY$ALL-UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY$ALL-UNBOUND-IN-BODY . WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE WE-REG-BODY$ALL-UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG-BODY$ALL-UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA WE-REG-BODY$ALL-UNBOUND-IN-BODY (REWRITE) (ALL-UNBOUND-IN-BODY (INDICES (QUOTE D) X Y) (WE-REG-BODY M N TI)) ((ENABLE ALL-UNBOUND-IN-BODY WE-REG-BODY INDICES-AS-APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LNFIX . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-LISTP . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . WE-REG-BODY$ALL-UNBOUND-IN-BODY) (LEMMAS ALL-UNBOUND-IN-BODY . WE-REG-BODY$ALL-UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE WE-REG-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG-BODY$UNBOUND-IN-BODY-OFF WE-REG-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY$UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL WE-REG-BODY$UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE WE-REG-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG-BODY$VALUE WE-REG-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA WE-REG-BODY$UNBOUND-IN-BODY (REWRITE) (AND (UNBOUND-IN-BODY (QUOTE CLK) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE WE) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE WE-BUF) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE TI) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE TI-BUF) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE TE) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (QUOTE TE-BUF) (WE-REG-BODY M N TI)) (AND (UNBOUND-IN-BODY (INDEX (QUOTE D) L) (WE-REG-BODY M N TI)) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Q) L) (WE-REG-BODY M N TI))))))))))) ((ENABLE UNBOUND-IN-BODY WE-REG-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . WE-REG-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*WE-REG$NETLIST) (QUOTE (MAIN-EVENT WE-REG$NETLIST))) (PUT1-LST (QUOTE WE-REG$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REG$NETLIST 16 NIL)) TOTALP-LST ((WE-REG$NETLIST . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (WE-REG* N) (UNION (B-BUF$NETLIST) (UNION (DEL4$NETLIST) (FD1SLP$NETLIST)))) (CONS (WE-REG* N) (UNION (B-BUF-PWR$NETLIST) (UNION (DEL4$NETLIST) (FD1SLP$NETLIST)))))) LISP-CODE *1*WE-REG$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194038 SATELLITES (*1*WE-REG$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-REGFILE$NETLIST REGFILE$NETLIST) EVENT (DEFN WE-REG$NETLIST (N) (CONS (WE-REG* N) (UNION (IF (LESSP N (QUOTE 8)) (B-BUF$NETLIST) (B-BUF-PWR$NETLIST)) (UNION (DEL4$NETLIST) (FD1SLP$NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP$NETLIST . WE-REG$NETLIST) (IMMEDIATE-DEPENDENTS0 DEL4$NETLIST . WE-REG$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . WE-REG$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . WE-REG$NETLIST) (IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG$NETLIST) (DCELL . *1*WE-REG$NETLIST))))) (PUT1-LST (QUOTE WE-REG&-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG&-OFF WE-REG& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG& . WE-REG&-OFF) (DISABLED-LEMMAS NIL WE-REG& WE-REG&-OFF . T))))) (PUT1-LST (QUOTE *1*WE-REG&) (QUOTE (MAIN-EVENT WE-REG&))) (PUT1-LST (QUOTE WE-REG&) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REG& 3 NIL NIL)) TOTALP-LST ((WE-REG& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE WE-REG) N) NETLIST) (WE-REG* N)) (IF (LESSP N (QUOTE 8)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (IF (DEL4& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (FD1SLP& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (IF (DEL4& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (FD1SLP& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*WE-REG& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194038 SATELLITES (*1*WE-REG&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& REGFILE& WE-REG$STATE WE-REG$VALUE WE-REG&-OFF) EVENT (DEFN WE-REG& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE WE-REG) N) NETLIST) (WE-REG* N)) (AND (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST))) (AND (DEL4& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)) (FD1SLP& (DELETE-MODULE (INDEX (QUOTE WE-REG) N) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP& . WE-REG&) (IMMEDIATE-DEPENDENTS0 DEL4& . WE-REG&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . WE-REG&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . WE-REG&) (IMMEDIATE-DEPENDENTS0 B-BUF& . WE-REG&) (IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG&) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . WE-REG&) (DCELL . *1*WE-REG&))))) (PUT1-LST (QUOTE WE-REG*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG*$DESTRUCTURE-OFF WE-REG*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG*$DESTRUCTURE . WE-REG*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL WE-REG*$DESTRUCTURE WE-REG*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE WE-REG*-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG*-OFF WE-REG* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG*-OFF) (DISABLED-LEMMAS NIL WE-REG* WE-REG*-OFF . T))))) (PUT1-LST (QUOTE WE-REG*$DESTRUCTURE) (QUOTE (IDATE 1000402194038 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG$VALUE WE-REG*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA WE-REG*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (WE-REG* N)) (INDEX (QUOTE WE-REG) N)) (AND (EQUAL (CAR (CDR (WE-REG* N))) (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))))) (AND (EQUAL (CAR (CDR (CDR (WE-REG* N)))) (INDICES (QUOTE Q) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (WE-REG* N))))) (CONS (CONS (QUOTE WE-BUFFER) (CONS (QUOTE (WE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((WE)))))) (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF)))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (WE-REG* N)))))) (INDICES (QUOTE G) (QUOTE 0) N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . WE-REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 WE-REG* . WE-REG*$DESTRUCTURE) (LEMMAS CAR . WE-REG*$DESTRUCTURE) (LEMMAS CAR . WE-REG*$DESTRUCTURE) (LEMMAS CAR . WE-REG*$DESTRUCTURE) (LEMMAS CAR . WE-REG*$DESTRUCTURE) (LEMMAS CAR . WE-REG*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*WE-REG*) (QUOTE (MAIN-EVENT WE-REG*))) (PUT1-LST (QUOTE WE-REG*) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REG* 16 NIL)) TOTALP-LST ((WE-REG* . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (INDEX (QUOTE WE-REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N))))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (QUOTE (WE-BUFFER (WE-BUF) B-BUF (WE))) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF))))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL)))))) (CONS (INDEX (QUOTE WE-REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N))))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (QUOTE (WE-BUFFER (WE-BUF) B-BUF-PWR (WE))) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF-PWR (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF))))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL)))))))) LISP-CODE *1*WE-REG* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194038 SATELLITES (*1*WE-REG*) IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG$VALUE WE-REG$NETLIST WE-REG& WE-REG*-OFF WE-REG*$DESTRUCTURE) EVENT (DEFN WE-REG* (N) (CONS (INDEX (QUOTE WE-REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N))))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (CONS (QUOTE WE-BUFFER) (CONS (QUOTE (WE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((WE)))))) (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF))))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG*) (IMMEDIATE-DEPENDENTS0 INDICES . WE-REG*) (IMMEDIATE-DEPENDENTS0 INDEX . WE-REG*) (DCELL . *1*WE-REG*))))) (PUT1-LST (QUOTE WE-REG-BODY-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE WE-REG-BODY-OFF WE-REG-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WE-REG-BODY . WE-REG-BODY-OFF) (DISABLED-LEMMAS NIL WE-REG-BODY WE-REG-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*WE-REG-BODY) (QUOTE (MAIN-EVENT WE-REG-BODY))) (PUT1-LST (QUOTE WE-REG-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((WE-REG-BODY 24 NIL NIL NIL)) TOTALP-LST ((WE-REG-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (M N TI) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Q) M) (CONS (INDEX (QUOTE QB) M) (QUOTE NIL))) (CONS (QUOTE FD1SLP) (CONS (CONS (INDEX (QUOTE D) M) (CONS (QUOTE CLK) (CONS (QUOTE WE-BUF) (CONS TI (QUOTE (TE-BUF)))))) (QUOTE NIL))))) (WE-REG-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M))) (QUOTE NIL)))) LISP-CODE *1*WE-REG-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194038 CONTROLLER-POCKETS (2) SATELLITES (*1*WE-REG-BODY) IMMEDIATE-DEPENDENTS0 (WE-REG-BODY$STATE WE-REG-BODY$VALUE WE-REG-BODY-INDUCTION WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY WE-REG*$DESTRUCTURE WE-REG* WE-REG-BODY-OFF) EVENT (DEFN WE-REG-BODY (M N TI) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Q) M) (CONS (INDEX (QUOTE QB) M) (QUOTE NIL))) (CONS (QUOTE FD1SLP) (CONS (CONS (INDEX (QUOTE D) M) (CONS (QUOTE CLK) (CONS (QUOTE WE-BUF) (CONS TI (QUOTE (TE-BUF)))))) (QUOTE NIL))))) (WE-REG-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . WE-REG-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . WE-REG-BODY) (DCELL . *1*WE-REG-BODY))))) (PUT1-LST (QUOTE REG$STATE-OFF) (QUOTE (IDATE 1000402194038 EVENT (TOGGLE REG$STATE-OFF REG$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG$STATE . REG$STATE-OFF) (DISABLED-LEMMAS NIL REG$STATE REG$STATE-OFF . T))))) (PUT1-LST (QUOTE REG$STATE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE REG$STATE-OFF) EVENT (PROVE-LEMMA REG$STATE (REWRITE) (IMPLIES (AND (REG& NETLIST N) (AND (EQUAL (LENGTH D) N) (AND (PROPERP D) (NOT TE)))) (EQUAL (DUAL-EVAL (QUOTE 2) (INDEX (QUOTE REG) N) (CONS CLK (CONS TE (CONS TI D))) STATE NETLIST) (V-THREEFIX D))) ((USE (REG-BODY$STATE (M (QUOTE 0)) (TI (QUOTE TI-BUF)) (TE (QUOTE TE-BUF)) (NETLIST (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (BINDINGS (DUAL-EVAL (QUOTE 1) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)) (PAIRLIST (CONS (QUOTE TI-BUF) (CONS (QUOTE TE-BUF) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))))) (CONS (F-BUF TI) (CONS (F-BUF TE) (CONS CLK (CONS TE (CONS TI D)))))) (PAIRSTATES (INDICES (QUOTE G) (QUOTE 0) N) STATE) (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST))) (STATE-BINDINGS (PAIRSTATES (INDICES (QUOTE G) (QUOTE 0) N) STATE)))) (ENABLE REG& REG-BODY$UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY REG*$DESTRUCTURE B-BUF-PWR$VALUE B-BUF$VALUE DEL4$VALUE) (DISABLE OPEN-INDICES OPEN-V-THREEFIX V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . REG$STATE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . REG$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG-BODY$UNBOUND-IN-BODY . REG$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . REG$STATE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG-BODY$ALL-UNBOUND-IN-BODY . REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . REG$STATE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 . REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG* . REG$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . REG$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP . REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . REG$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REG$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REG$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . REG$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . REG$STATE) (IMMEDIATE-DEPENDENTS0 DEL4$VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . REG$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . REG$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . REG$STATE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . REG$STATE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG*$DESTRUCTURE . REG$STATE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-CONS . REG$STATE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP-NAMES . REG$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG-BODY$STATE . REG$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REG$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . REG$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REG$STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . REG$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . REG$STATE) (IMMEDIATE-DEPENDENTS0 REG& . REG$STATE) (LEMMAS DUAL-EVAL . REG$STATE))))) (PUT1-LST (QUOTE REG-BODY$STATE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG$STATE) EVENT (PROVE-LEMMA REG-BODY$STATE NIL (IMPLIES (AND (FD1S& NETLIST) (NOT (VALUE TE BINDINGS))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE G) M N) (DUAL-EVAL (QUOTE 3) (REG-BODY M N TI TE) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE D) M N) BINDINGS)))) ((ENABLE REG-BODY FD1S$STATE) (DISABLE THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FD1S$STATE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDEX . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LNFIX . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 INDICES . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . REG-BODY$STATE) (IMMEDIATE-DEPENDENTS0 FD1S& . REG-BODY$STATE))))) (PUT1-LST (QUOTE REG$VALUE-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG$VALUE-OFF REG$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG$VALUE . REG$VALUE-OFF) (DISABLED-LEMMAS NIL REG$VALUE REG$VALUE-OFF . T))))) (PUT1-LST (QUOTE REG$VALUE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG-40$VALUE-AS-CNTL-STATE REG$VALUE-OFF) EVENT (PROVE-LEMMA REG$VALUE (REWRITE) (IMPLIES (AND (REG& NETLIST N) (AND (EQUAL (LENGTH STATE) N) (PROPERP STATE))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE REG) N) INPUTS STATE NETLIST) (V-THREEFIX STATE))) ((USE (REG-BODY$VALUE (M (QUOTE 0)) (TI (QUOTE TI-BUF)) (TE (QUOTE TE-BUF)) (NETLIST (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (BINDINGS (CONS (CONS (QUOTE TI-BUF) (F-BUF (CAR (CDR (CDR INPUTS))))) (CONS (CONS (QUOTE TE-BUF) (F-BUF (CAR (CDR INPUTS)))) (PAIRLIST (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))) INPUTS)))) (STATE-BINDINGS (PAIRSTATES (INDICES (QUOTE G) (QUOTE 0) N) STATE)))) (ENABLE REG& REG*$DESTRUCTURE B-BUF-PWR$VALUE B-BUF$VALUE DEL4$VALUE) (DISABLE OPEN-V-THREEFIX OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REG* . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REG$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . REG$VALUE) (IMMEDIATE-DEPENDENTS0 DEL4$VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . REG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . REG$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . REG$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REG*$DESTRUCTURE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . REG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . REG$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REG-BODY$VALUE . REG$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REG$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . REG$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . REG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . REG$VALUE) (IMMEDIATE-DEPENDENTS0 REG& . REG$VALUE) (LEMMAS DUAL-EVAL . REG$VALUE))))) (PUT1-LST (QUOTE REG-BODY$VALUE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG$VALUE) EVENT (PROVE-LEMMA REG-BODY$VALUE NIL (IMPLIES (FD1S& NETLIST) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Q) M N) (DUAL-EVAL (QUOTE 1) (REG-BODY M N TI TE) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE G) M N) STATE-BINDINGS)))) ((INDUCT (REG-BODY-INDUCTION M N TI TE BINDINGS STATE-BINDINGS NETLIST)) (ENABLE REG-BODY FD1S$VALUE REG-BODY$UNBOUND-IN-BODY) (DISABLE F-NOT THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FD1S$VALUE . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REG-BODY$UNBOUND-IN-BODY . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REG-BODY-INDUCTION . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . REG-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FD1S& . REG-BODY$VALUE))))) (PUT1-LST (QUOTE *1*REG-BODY-INDUCTION) (QUOTE (MAIN-EVENT REG-BODY-INDUCTION))) (PUT1-LST (QUOTE REG-BODY-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((REG-BODY-INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((REG-BODY-INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE UNCHANGING SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N TI TE BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (REG-BODY-INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (REG-BODY M N TI TE) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*REG-BODY-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (REG-BODY M N TI TE) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194037 CONTROLLER-POCKETS (2) SATELLITES (*1*REG-BODY-INDUCTION) IMMEDIATE-DEPENDENTS0 (REG-BODY$VALUE) EVENT (DEFN REG-BODY-INDUCTION (M N TI TE BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (REG-BODY-INDUCTION (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (REG-BODY M N TI TE) BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . REG-BODY-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . REG-BODY-INDUCTION) (DCELL . *1*REG-BODY-INDUCTION))))) (PUT1-LST (QUOTE REG-BODY$ALL-UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG-BODY$ALL-UNBOUND-IN-BODY-OFF REG-BODY$ALL-UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-BODY$ALL-UNBOUND-IN-BODY . REG-BODY$ALL-UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE REG-BODY$ALL-UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG$STATE REG-BODY$ALL-UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA REG-BODY$ALL-UNBOUND-IN-BODY (REWRITE) (ALL-UNBOUND-IN-BODY (INDICES (QUOTE D) X Y) (REG-BODY M N TI TE)) ((ENABLE ALL-UNBOUND-IN-BODY REG-BODY INDICES-AS-APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LNFIX . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-LISTP . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . REG-BODY$ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . REG-BODY$ALL-UNBOUND-IN-BODY) (LEMMAS ALL-UNBOUND-IN-BODY . REG-BODY$ALL-UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE REG-BODY$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG-BODY$UNBOUND-IN-BODY-OFF REG-BODY$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-BODY$UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL REG-BODY$UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE REG-BODY$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG$STATE REG-BODY$VALUE REG-BODY$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA REG-BODY$UNBOUND-IN-BODY (REWRITE) (AND (UNBOUND-IN-BODY (QUOTE CLK) (REG-BODY M N TI TE)) (AND (UNBOUND-IN-BODY (QUOTE TI) (REG-BODY M N TI TE)) (AND (UNBOUND-IN-BODY (QUOTE TI-DEL) (REG-BODY M N TI TE)) (AND (UNBOUND-IN-BODY (QUOTE TE) (REG-BODY M N TI TE)) (AND (UNBOUND-IN-BODY (QUOTE TE-BUF) (REG-BODY M N TI TE)) (AND (UNBOUND-IN-BODY (INDEX (QUOTE D) L) (REG-BODY M N TI TE)) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Q) L) (REG-BODY M N TI TE))))))))) ((ENABLE UNBOUND-IN-BODY REG-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . REG-BODY$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*REG$NETLIST) (QUOTE (MAIN-EVENT REG$NETLIST))) (PUT1-LST (QUOTE REG$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((REG$NETLIST 16 NIL)) TOTALP-LST ((REG$NETLIST . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (REG* N) (UNION (B-BUF$NETLIST) (UNION (DEL4$NETLIST) (FD1S$NETLIST)))) (CONS (REG* N) (UNION (B-BUF-PWR$NETLIST) (UNION (DEL4$NETLIST) (FD1S$NETLIST)))))) LISP-CODE *1*REG$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194037 SATELLITES (*1*REG$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST) EVENT (DEFN REG$NETLIST (N) (CONS (REG* N) (UNION (IF (LESSP N (QUOTE 8)) (B-BUF$NETLIST) (B-BUF-PWR$NETLIST)) (UNION (DEL4$NETLIST) (FD1S$NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S$NETLIST . REG$NETLIST) (IMMEDIATE-DEPENDENTS0 DEL4$NETLIST . REG$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR$NETLIST . REG$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . REG$NETLIST) (IMMEDIATE-DEPENDENTS0 REG* . REG$NETLIST) (DCELL . *1*REG$NETLIST))))) (PUT1-LST (QUOTE REG&-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG&-OFF REG& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG& . REG&-OFF) (DISABLED-LEMMAS NIL REG& REG&-OFF . T))))) (PUT1-LST (QUOTE *1*REG&) (QUOTE (MAIN-EVENT REG&))) (PUT1-LST (QUOTE REG&) (QUOTE (TYPE-PRESCRIPTION-LST ((REG& 3 NIL NIL)) TOTALP-LST ((REG& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE REG) N) NETLIST) (REG* N)) (IF (LESSP N (QUOTE 8)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (IF (DEL4& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (FD1S& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (IF (DEL4& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (FD1S& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*REG& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194037 SATELLITES (*1*REG&) IMMEDIATE-DEPENDENTS0 (REG-40$VALUE-AS-CNTL-STATE CHIP-MODULE& REG$STATE REG$VALUE REG&-OFF) EVENT (DEFN REG& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE REG) N) NETLIST) (REG* N)) (AND (IF (LESSP N (QUOTE 8)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (B-BUF-PWR& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST))) (AND (DEL4& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)) (FD1S& (DELETE-MODULE (INDEX (QUOTE REG) N) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S& . REG&) (IMMEDIATE-DEPENDENTS0 DEL4& . REG&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . REG&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . REG&) (IMMEDIATE-DEPENDENTS0 B-BUF& . REG&) (IMMEDIATE-DEPENDENTS0 REG* . REG&) (IMMEDIATE-DEPENDENTS0 INDEX . REG&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . REG&) (DCELL . *1*REG&))))) (PUT1-LST (QUOTE REG*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG*$DESTRUCTURE-OFF REG*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG*$DESTRUCTURE . REG*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL REG*$DESTRUCTURE REG*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE REG*-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG*-OFF REG* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG* . REG*-OFF) (DISABLED-LEMMAS NIL REG* REG*-OFF . T))))) (PUT1-LST (QUOTE REG*$DESTRUCTURE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (REG$STATE REG$VALUE REG*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA REG*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (REG* N)) (INDEX (QUOTE REG) N)) (AND (EQUAL (CAR (CDR (REG* N))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N))))) (AND (EQUAL (CAR (CDR (CDR (REG* N)))) (INDICES (QUOTE Q) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (REG* N))))) (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF))))) (EQUAL (CAR (CDR (CDR (CDR (CDR (REG* N)))))) (INDICES (QUOTE G) (QUOTE 0) N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REG-BODY . REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . REG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 REG* . REG*$DESTRUCTURE) (LEMMAS CAR . REG*$DESTRUCTURE) (LEMMAS CAR . REG*$DESTRUCTURE) (LEMMAS CAR . REG*$DESTRUCTURE) (LEMMAS CAR . REG*$DESTRUCTURE) (LEMMAS CAR . REG*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*REG*) (QUOTE (MAIN-EVENT REG*))) (PUT1-LST (QUOTE REG*) (QUOTE (TYPE-PRESCRIPTION-LST ((REG* 16 NIL)) TOTALP-LST ((REG* . T)) SDEFN (LAMBDA (N) (IF (LESSP N (QUOTE 8)) (CONS (INDEX (QUOTE REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL)))))) (CONS (INDEX (QUOTE REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF-PWR (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL)))))))) LISP-CODE *1*REG* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194037 SATELLITES (*1*REG*) IMMEDIATE-DEPENDENTS0 (REG$STATE REG$VALUE REG$NETLIST REG& REG*-OFF REG*$DESTRUCTURE) EVENT (DEFN REG* (N) (CONS (INDEX (QUOTE REG) N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))) (CONS (INDICES (QUOTE Q) (QUOTE 0) N) (CONS (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS (IF (LESSP N (QUOTE 8)) (QUOTE B-BUF) (QUOTE B-BUF-PWR)) (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)))) (CONS (INDICES (QUOTE G) (QUOTE 0) N) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-BODY . REG*) (IMMEDIATE-DEPENDENTS0 INDICES . REG*) (IMMEDIATE-DEPENDENTS0 INDEX . REG*) (DCELL . *1*REG*))))) (PUT1-LST (QUOTE REG-BODY-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE REG-BODY-OFF REG-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REG-BODY . REG-BODY-OFF) (DISABLED-LEMMAS NIL REG-BODY REG-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*REG-BODY) (QUOTE (MAIN-EVENT REG-BODY))) (PUT1-LST (QUOTE REG-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((REG-BODY 24 NIL NIL NIL NIL)) TOTALP-LST ((REG-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (M N TI TE) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Q) M) (CONS (INDEX (QUOTE QB) M) (QUOTE NIL))) (CONS (QUOTE FD1S) (CONS (CONS (INDEX (QUOTE D) M) (CONS (QUOTE CLK) (CONS TI (CONS TE (QUOTE NIL))))) (QUOTE NIL))))) (REG-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE)) (QUOTE NIL)))) LISP-CODE *1*REG-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194037 CONTROLLER-POCKETS (2) SATELLITES (*1*REG-BODY) IMMEDIATE-DEPENDENTS0 (REG-BODY$STATE REG-BODY$VALUE REG-BODY-INDUCTION REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY REG*$DESTRUCTURE REG* REG-BODY-OFF) EVENT (DEFN REG-BODY (M N TI TE) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Q) M) (CONS (INDEX (QUOTE QB) M) (QUOTE NIL))) (CONS (QUOTE FD1S) (CONS (CONS (INDEX (QUOTE D) M) (CONS (QUOTE CLK) (CONS TI (CONS TE (QUOTE NIL))))) (QUOTE NIL))))) (REG-BODY (ADD1 M) (SUB1 N) (INDEX (QUOTE Q) M) TE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . REG-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . REG-BODY) (DCELL . *1*REG-BODY))))) (PUT1-LST (QUOTE CHECK-DEC-PASS$NETLIST) (QUOTE (IDATE 1000402194037 EVENT (PROVE-LEMMA CHECK-DEC-PASS$NETLIST NIL (DEC-PASS& (DEC-PASS$NETLIST (QUOTE 7)) (QUOTE 7))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS$NETLIST . CHECK-DEC-PASS$NETLIST) (IMMEDIATE-DEPENDENTS0 DEC-PASS& . CHECK-DEC-PASS$NETLIST))))) (PUT1-LST (QUOTE *1*DEC-PASS$NETLIST) (QUOTE (MAIN-EVENT DEC-PASS$NETLIST))) (PUT1-LST (QUOTE DEC-PASS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS$NETLIST 16 NIL)) TOTALP-LST ((DEC-PASS$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (DEC-PASS* N) (UNION (B-NOT$NETLIST) (TV-DEC-PASS-NG$NETLIST (MAKE-TREE N) (QUOTE *1*FALSE))))) LISP-CODE *1*DEC-PASS$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194037 SATELLITES (*1*DEC-PASS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-DEC-PASS$NETLIST) EVENT (DEFN DEC-PASS$NETLIST (N) (CONS (DEC-PASS* N) (UNION (B-NOT$NETLIST) (TV-DEC-PASS-NG$NETLIST (MAKE-TREE N) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . DEC-PASS$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG$NETLIST . DEC-PASS$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . DEC-PASS$NETLIST) (IMMEDIATE-DEPENDENTS0 DEC-PASS* . DEC-PASS$NETLIST) (DCELL . *1*DEC-PASS$NETLIST))))) (PUT1-LST (QUOTE DEC-PASS$VALUE-OFF) (QUOTE (IDATE 1000402194037 EVENT (TOGGLE DEC-PASS$VALUE-OFF DEC-PASS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS$VALUE . DEC-PASS$VALUE-OFF) (DISABLED-LEMMAS NIL DEC-PASS$VALUE DEC-PASS$VALUE-OFF . T))))) (PUT1-LST (QUOTE DEC-PASS$VALUE) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE DEC-PASS$VALUE-OFF) EVENT (PROVE-LEMMA DEC-PASS$VALUE (REWRITE) (IMPLIES (AND (DEC-PASS& NETLIST N) (AND (NOT (ZEROP N)) (AND (EQUAL (LENGTH A) N) (PROPERP A)))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE DEC-PASS) N) (CONS C A) STATE NETLIST) (F$DEC-PASS C A))) ((ENABLE DEC-PASS& DEC-PASS*$DESTRUCTURE B-NOT$VALUE TV-DEC-PASS-NG$VALUE F$DEC-PASS) (DISABLE OPEN-INDICES LENGTH) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS*$DESTRUCTURE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-LITATOM-INDICES-SPEEDUP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG$VALUE . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-F$TV-DEC-PASS-NG . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG-LENGTH . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DEC-PASS$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS& . DEC-PASS$VALUE) (LEMMAS DUAL-EVAL . DEC-PASS$VALUE))))) (PUT1-LST (QUOTE F$DEC-PASS=DEC-OR-PASS) (QUOTE (IDATE 1000402194037 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F$DEC-PASS=DEC-OR-PASS (REWRITE) (IMPLIES (AND (BVP V) (AND (BOOLP DEC) (NOT (EQUAL (LENGTH V) (QUOTE 0))))) (EQUAL (F$DEC-PASS DEC V) (IF* DEC (V-DEC V) V))) ((ENABLE F$DEC-PASS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG=TV-DEC-PASS-NG . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-WORKS-2 . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 B-NOT . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 V-DEC . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 IF* . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 LENGTH . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 BOOLP . F$DEC-PASS=DEC-OR-PASS) (IMMEDIATE-DEPENDENTS0 BVP . F$DEC-PASS=DEC-OR-PASS) (LEMMAS F$DEC-PASS . F$DEC-PASS=DEC-OR-PASS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$DEC-PASS) (QUOTE (IDATE 1000402194036 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$DEC-PASS (REWRITE) (AND (PROPERP (F$DEC-PASS C V)) (IMPLIES (NOT (EQUAL (LENGTH V) (QUOTE 0))) (EQUAL (LENGTH (F$DEC-PASS C V)) (LENGTH V)))) ((ENABLE F$DEC-PASS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG-LENGTH . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 F-NOT . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 PROPERP-F$TV-DEC-PASS-NG . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 F$DEC-PASS . PROPERP-LENGTH-F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$DEC-PASS) (LEMMAS LENGTH . PROPERP-LENGTH-F$DEC-PASS) (LEMMAS PROPERP . PROPERP-LENGTH-F$DEC-PASS))))) (PUT1-LST (QUOTE F$DEC-PASS-OFF) (QUOTE (IDATE 1000402194036 EVENT (TOGGLE F$DEC-PASS-OFF F$DEC-PASS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$DEC-PASS . F$DEC-PASS-OFF) (DISABLED-LEMMAS NIL F$DEC-PASS F$DEC-PASS-OFF . T))))) (PUT1-LST (QUOTE *1*F$DEC-PASS) (QUOTE (MAIN-EVENT F$DEC-PASS))) (PUT1-LST (QUOTE F$DEC-PASS) (QUOTE (TYPE-PRESCRIPTION-LST ((F$DEC-PASS 16 NIL NIL)) LEMMAS ((REWRITE-RULE F$DEC-PASS=DEC-OR-PASS ((BVP V) (BOOLP DEC) (NOT (EQUAL (LENGTH V) (QUOTE 0)))) (EQUAL (F$DEC-PASS DEC V) (IF* DEC (V-DEC V) V)) NIL)) TOTALP-LST ((F$DEC-PASS . T)) SDEFN (LAMBDA (C A) (F$TV-DEC-PASS-NG (F-NOT C) A (MAKE-TREE (LENGTH A)) (QUOTE *1*FALSE))) LISP-CODE *1*F$DEC-PASS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194036 SATELLITES (*1*F$DEC-PASS) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS F$DEC-PASS-OFF) EVENT (DEFN F$DEC-PASS (C A) (F$TV-DEC-PASS-NG (F-NOT C) A (MAKE-TREE (LENGTH A)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 F-NOT . F$DEC-PASS) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$DEC-PASS) (DCELL . *1*F$DEC-PASS))))) (PUT1-LST (QUOTE DEC-PASS&-OFF) (QUOTE (IDATE 1000402194036 EVENT (TOGGLE DEC-PASS&-OFF DEC-PASS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS& . DEC-PASS&-OFF) (DISABLED-LEMMAS NIL DEC-PASS& DEC-PASS&-OFF . T))))) (PUT1-LST (QUOTE *1*DEC-PASS&) (QUOTE (MAIN-EVENT DEC-PASS&))) (PUT1-LST (QUOTE DEC-PASS&) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS& 3 NIL NIL)) TOTALP-LST ((DEC-PASS& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST) (DEC-PASS* N)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST)) (TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST) (MAKE-TREE N) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DEC-PASS& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194036 SATELLITES (*1*DEC-PASS&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& CHECK-DEC-PASS$NETLIST DEC-PASS$VALUE DEC-PASS&-OFF) EVENT (DEFN DEC-PASS& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST) (DEC-PASS* N)) (AND (B-NOT& (DELETE-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST)) (TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE DEC-PASS) N) NETLIST) (MAKE-TREE N) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG& . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 B-NOT& . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 DEC-PASS* . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 INDEX . DEC-PASS&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DEC-PASS&) (DCELL . *1*DEC-PASS&))))) (PUT1-LST (QUOTE DEC-PASS*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194036 EVENT (TOGGLE DEC-PASS*$DESTRUCTURE-OFF DEC-PASS*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS*$DESTRUCTURE . DEC-PASS*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL DEC-PASS*$DESTRUCTURE DEC-PASS*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE DEC-PASS*-OFF) (QUOTE (IDATE 1000402194036 EVENT (TOGGLE DEC-PASS*-OFF DEC-PASS* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS* . DEC-PASS*-OFF) (DISABLED-LEMMAS NIL DEC-PASS* DEC-PASS*-OFF . T))))) (PUT1-LST (QUOTE DEC-PASS*$DESTRUCTURE) (QUOTE (IDATE 1000402194036 IMMEDIATE-DEPENDENTS0 (DEC-PASS$VALUE DEC-PASS*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA DEC-PASS*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (DEC-PASS* N)) (INDEX (QUOTE DEC-PASS) N)) (AND (EQUAL (CAR (CDR (DEC-PASS* N))) (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (DEC-PASS* N)))) (INDICES (QUOTE Z) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (DEC-PASS* N))))) (CONS (QUOTE (M0 (CN) B-NOT (C))) (CONS (CONS (QUOTE M1) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (MAKE-TREE N))) (CONS (CONS (QUOTE CN) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (DEC-PASS* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . DEC-PASS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . DEC-PASS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . DEC-PASS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . DEC-PASS*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 DEC-PASS* . DEC-PASS*$DESTRUCTURE) (LEMMAS CAR . DEC-PASS*$DESTRUCTURE) (LEMMAS CAR . DEC-PASS*$DESTRUCTURE) (LEMMAS CAR . DEC-PASS*$DESTRUCTURE) (LEMMAS CAR . DEC-PASS*$DESTRUCTURE) (LEMMAS CAR . DEC-PASS*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*DEC-PASS*) (QUOTE (MAIN-EVENT DEC-PASS*))) (PUT1-LST (QUOTE DEC-PASS*) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS* 16 NIL)) TOTALP-LST ((DEC-PASS* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE DEC-PASS) N) (CONS (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) N)) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (CONS (QUOTE (M0 (CN) B-NOT (C))) (CONS (CONS (QUOTE M1) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (MAKE-TREE N))) (CONS (CONS (QUOTE CN) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LISP-CODE *1*DEC-PASS* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194036 SATELLITES (*1*DEC-PASS*) IMMEDIATE-DEPENDENTS0 (DEC-PASS$NETLIST DEC-PASS& DEC-PASS*-OFF DEC-PASS*$DESTRUCTURE) EVENT (DEFN DEC-PASS* (N) (CONS (INDEX (QUOTE DEC-PASS) N) (CONS (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) N)) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (CONS (QUOTE (M0 (CN) B-NOT (C))) (CONS (CONS (QUOTE M1) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (MAKE-TREE N))) (CONS (CONS (QUOTE CN) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . DEC-PASS*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . DEC-PASS*) (IMMEDIATE-DEPENDENTS0 INDICES . DEC-PASS*) (IMMEDIATE-DEPENDENTS0 INDEX . DEC-PASS*) (DCELL . *1*DEC-PASS*))))) (PUT1-LST (QUOTE CHECK-TV-DEC-PASS-NG$NETLIST) (QUOTE (IDATE 1000402194036 EVENT (PROVE-LEMMA CHECK-TV-DEC-PASS-NG$NETLIST NIL (IMPLIES (BOOLP MAKE-G) (TV-DEC-PASS-NG& (TV-DEC-PASS-NG$NETLIST (QUOTE (0 0 . 0)) MAKE-G) (QUOTE (0 0 . 0)) MAKE-G)) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG$NETLIST . CHECK-TV-DEC-PASS-NG$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG& . CHECK-TV-DEC-PASS-NG$NETLIST) (IMMEDIATE-DEPENDENTS0 BOOLP . CHECK-TV-DEC-PASS-NG$NETLIST))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG$NETLIST) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG$NETLIST))) (PUT1-LST (QUOTE TV-DEC-PASS-NG$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG$NETLIST 16 NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NG$NETLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (TREE MAKE-G) (IF (LISTP TREE) (CONS (TV-DEC-PASS-NG* TREE MAKE-G) (UNION (TV-DEC-PASS-NG$NETLIST (CAR TREE) (QUOTE *1*TRUE)) (TV-DEC-PASS-NG$NETLIST (CDR TREE) MAKE-G))) (CONS (TV-DEC-PASS-NG* TREE MAKE-G) (CONS (DEC-PASS-CELL*) (QUOTE NIL))))) LISP-CODE *1*TV-DEC-PASS-NG$NETLIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE) MAKE-G) ((CAR TREE) (QUOTE *1*TRUE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194036 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-DEC-PASS-NG$NETLIST) IMMEDIATE-DEPENDENTS0 (DEC-PASS$NETLIST CHECK-TV-DEC-PASS-NG$NETLIST) EVENT (DEFN TV-DEC-PASS-NG$NETLIST (TREE MAKE-G) (IF (NLISTP TREE) (CONS (TV-DEC-PASS-NG* TREE MAKE-G) (CONS (DEC-PASS-CELL*) (QUOTE NIL))) (CONS (TV-DEC-PASS-NG* TREE MAKE-G) (UNION (TV-DEC-PASS-NG$NETLIST (CAR TREE) (QUOTE *1*TRUE)) (TV-DEC-PASS-NG$NETLIST (CDR TREE) MAKE-G))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL* . TV-DEC-PASS-NG$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG* . TV-DEC-PASS-NG$NETLIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG$NETLIST) (DCELL . *1*TV-DEC-PASS-NG$NETLIST))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG$VALUE-OFF) (QUOTE (IDATE 1000402194036 EVENT (TOGGLE TV-DEC-PASS-NG$VALUE-OFF TV-DEC-PASS-NG$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG$VALUE . TV-DEC-PASS-NG$VALUE-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG$VALUE-OFF . T))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG$VALUE) (QUOTE (IDATE 1000402194036 IMMEDIATE-DEPENDENTS0 (DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE-OFF) EVENT (PROVE-LEMMA TV-DEC-PASS-NG$VALUE (REWRITE) (IMPLIES (AND (TV-DEC-PASS-NG& NETLIST TREE MAKE-G) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (AND (PROPERP A) (AND (BOOLP MAKE-G) (EQUAL NAME (TV-DEC-PASS-NAME TREE MAKE-G)))))) (EQUAL (DUAL-EVAL (QUOTE 0) NAME (CONS C A) STATE NETLIST) (F$TV-DEC-PASS-NG C A TREE MAKE-G))) ((INDUCT (TV-DEC-PASS-NG-INDUCTION TREE C A MAKE-G NAME STATE NETLIST)) (DISABLE OPEN-INDICES INDICES) (ENABLE TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG-LEMMA-CROCK DEC-PASS-CELL$VALUE B-OR$VALUE TV-DEC-PASS-NG-BODY BOOLP F$TV-DEC-PASS-NG TV-DEC-PASS-NG&) (DISABLE-THEORY F-GATES) (EXPAND (TV-DEC-PASS-NG& NETLIST TREE (QUOTE *1*FALSE)) (TV-DEC-PASS-NG& NETLIST TREE MAKE-G)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FIRSTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-FIRSTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-FIRSTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN-RESTN-LEMMAS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-DISJOINT-FIRSTN-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CDR-F$TV-DEC-PASS-NG . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG-LENGTH-1 . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-LEMMA-CROCK . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-F$TV-DEC-PASS-NG . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG-LENGTH . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG*$DESTRUCTURE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-BODY . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL$VALUE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-INDUCTION . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-NG$VALUE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG& . TV-DEC-PASS-NG$VALUE) (LEMMAS DUAL-EVAL . TV-DEC-PASS-NG$VALUE))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-LEMMA-CROCK-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE TV-DEC-PASS-NG-LEMMA-CROCK-OFF TV-DEC-PASS-NG-LEMMA-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-LEMMA-CROCK . TV-DEC-PASS-NG-LEMMA-CROCK-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-LEMMA-CROCK-OFF . T))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-LEMMA-CROCK) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK-OFF) EVENT (PROVE-LEMMA TV-DEC-PASS-NG-LEMMA-CROCK (REWRITE) (AND (IMPLIES (TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) MAKE-G) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Z) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS)))) (IMPLIES (TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) MAKE-G) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Z) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS))))) ((USE (COLLECT-VALUE-SPLITTING-CROCK (L (INDICES (QUOTE Z) (QUOTE 0) N)) (N (TREE-SIZE (CAR TREE))) (ALIST BINDINGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SPLITTING-CROCK . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDICES . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-DEC-PASS-NG-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG& . TV-DEC-PASS-NG-LEMMA-CROCK) (LEMMAS COLLECT-VALUE . TV-DEC-PASS-NG-LEMMA-CROCK) (LEMMAS COLLECT-VALUE . TV-DEC-PASS-NG-LEMMA-CROCK))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG-INDUCTION) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG-INDUCTION))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG-INDUCTION 2 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NG-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE C A MAKE-G NAME STATE NETLIST) (IF (LISTP TREE) (IF (TV-DEC-PASS-NG-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (IF (TV-DEC-PASS-NG-INDUCTION (CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (IF (TV-DEC-PASS-NG-INDUCTION (CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*FALSE) (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*TV-DEC-PASS-NG-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*FALSE) (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) ((CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) ((CAR TREE) C (TFIRSTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194035 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-DEC-PASS-NG-INDUCTION) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE) EVENT (DEFN TV-DEC-PASS-NG-INDUCTION (TREE C A MAKE-G NAME STATE NETLIST) (IF (NLISTP TREE) (QUOTE *1*TRUE) (AND (TV-DEC-PASS-NG-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (AND (TV-DEC-PASS-NG-INDUCTION (CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*TRUE) (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (TV-DEC-PASS-NG-INDUCTION (CDR TREE) (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (QUOTE *1*FALSE) (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (CDR TREE))) (QUOTE 0) (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 F-OR . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-NG-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG-INDUCTION) (DCELL . *1*TV-DEC-PASS-NG-INDUCTION))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG&-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE TV-DEC-PASS-NG&-OFF TV-DEC-PASS-NG& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG& . TV-DEC-PASS-NG&-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG& TV-DEC-PASS-NG&-OFF . T))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG&) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG&))) (PUT1-LST (QUOTE TV-DEC-PASS-NG&) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG& 3 NIL NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NG& . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (NETLIST TREE MAKE-G) (IF (LISTP TREE) (IF (EQUAL (LOOKUP-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (TV-DEC-PASS-NG* TREE MAKE-G)) (IF (TV-DEC-PASS-NG& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CAR TREE) (QUOTE *1*TRUE)) (IF (TV-DEC-PASS-NG& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CDR TREE) MAKE-G) (B-OR& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (TV-DEC-PASS-NG* TREE MAKE-G)) (DEC-PASS-CELL& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST)) (QUOTE *1*FALSE)))) LISP-CODE *1*TV-DEC-PASS-NG& SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CDR TREE) MAKE-G) ((DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CAR TREE) (QUOTE *1*TRUE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194035 CONTROLLER-POCKETS (2) SATELLITES (*1*TV-DEC-PASS-NG&) IMMEDIATE-DEPENDENTS0 (DEC-PASS& CHECK-TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG&-OFF) EVENT (DEFN TV-DEC-PASS-NG& (NETLIST TREE MAKE-G) (IF (NLISTP TREE) (AND (EQUAL (LOOKUP-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (TV-DEC-PASS-NG* TREE MAKE-G)) (DEC-PASS-CELL& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST))) (AND (EQUAL (LOOKUP-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (TV-DEC-PASS-NG* TREE MAKE-G)) (AND (TV-DEC-PASS-NG& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CAR TREE) (QUOTE *1*TRUE)) (AND (TV-DEC-PASS-NG& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST) (CDR TREE) MAKE-G) (B-OR& (DELETE-MODULE (TV-DEC-PASS-NAME TREE MAKE-G) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR& . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL& . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG* . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TV-DEC-PASS-NG&) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG&) (DCELL . *1*TV-DEC-PASS-NG&))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE TV-DEC-PASS-NG*$DESTRUCTURE-OFF TV-DEC-PASS-NG*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG*$DESTRUCTURE . TV-DEC-PASS-NG*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG*-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE TV-DEC-PASS-NG*-OFF TV-DEC-PASS-NG* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG* . TV-DEC-PASS-NG*-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG* TV-DEC-PASS-NG*-OFF . T))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG*$DESTRUCTURE) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TV-DEC-PASS-NG*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TV-DEC-PASS-NG* TREE MAKE-G)) (TV-DEC-PASS-NAME TREE MAKE-G)) (AND (EQUAL (CAR (CDR (TV-DEC-PASS-NG* TREE MAKE-G))) (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)))) (AND (EQUAL (CAR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G)))) (IF MAKE-G (CONS (QUOTE G) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE))) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)))) (AND (EQUAL (CAR (CDR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G))))) (TV-DEC-PASS-NG-BODY TREE MAKE-G)) (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-BODY . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . TV-DEC-PASS-NG*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG* . TV-DEC-PASS-NG*$DESTRUCTURE) (LEMMAS CAR . TV-DEC-PASS-NG*$DESTRUCTURE) (LEMMAS CAR . TV-DEC-PASS-NG*$DESTRUCTURE) (LEMMAS CAR . TV-DEC-PASS-NG*$DESTRUCTURE) (LEMMAS CAR . TV-DEC-PASS-NG*$DESTRUCTURE) (LEMMAS CAR . TV-DEC-PASS-NG*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG*) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG*))) (PUT1-LST (QUOTE TV-DEC-PASS-NG*) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG* 16 NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NG* . T)) SDEFN (LAMBDA (TREE MAKE-G) (IF MAKE-G (CONS (TV-DEC-PASS-NAME TREE MAKE-G) (CONS (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE))) (CONS (CONS (QUOTE G) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE))) (CONS (TV-DEC-PASS-NG-BODY TREE MAKE-G) (QUOTE (NIL)))))) (CONS (TV-DEC-PASS-NAME TREE (QUOTE *1*FALSE)) (CONS (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE))) (CONS (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) (CONS (TV-DEC-PASS-NG-BODY TREE (QUOTE *1*FALSE)) (QUOTE (NIL)))))))) LISP-CODE *1*TV-DEC-PASS-NG* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194035 SATELLITES (*1*TV-DEC-PASS-NG*) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG& TV-DEC-PASS-NG*-OFF TV-DEC-PASS-NG*$DESTRUCTURE) EVENT (DEFN TV-DEC-PASS-NG* (TREE MAKE-G) (CONS (TV-DEC-PASS-NAME TREE MAKE-G) (CONS (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE))) (CONS (IF MAKE-G (CONS (QUOTE G) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE))) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE))) (CONS (TV-DEC-PASS-NG-BODY TREE MAKE-G) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-BODY . TV-DEC-PASS-NG*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG*) (IMMEDIATE-DEPENDENTS0 INDICES . TV-DEC-PASS-NG*) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NAME . TV-DEC-PASS-NG*) (DCELL . *1*TV-DEC-PASS-NG*))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-BODY-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE TV-DEC-PASS-NG-BODY-OFF TV-DEC-PASS-NG-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-BODY . TV-DEC-PASS-NG-BODY-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG-BODY TV-DEC-PASS-NG-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG-BODY) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG-BODY))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG-BODY 16 NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NG-BODY . T)) SDEFN (LAMBDA (TREE MAKE-G) (IF (LISTP TREE) (IF MAKE-G (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (CONS (QUOTE GR) (TRESTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CX) (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (QUOTE ((GENERATE (G) B-OR (GL GR))))))) (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (TRESTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CX) (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (QUOTE NIL))))) (QUOTE ((LEAF (G (*1*QUOTE INDEX Z 0)) DEC-PASS-CELL (C (*1*QUOTE INDEX A 0))))))) LISP-CODE *1*TV-DEC-PASS-NG-BODY SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194035 SATELLITES (*1*TV-DEC-PASS-NG-BODY) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG* TV-DEC-PASS-NG-BODY-OFF) EVENT (DEFN TV-DEC-PASS-NG-BODY (TREE MAKE-G) (IF (NLISTP TREE) (QUOTE ((LEAF (G (*1*QUOTE INDEX Z 0)) DEC-PASS-CELL (C (*1*QUOTE INDEX A 0))))) (IF MAKE-G (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (CONS (QUOTE GR) (TRESTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CX) (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (QUOTE ((GENERATE (G) B-OR (GL GR))))))) (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (TFIRSTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (CONS (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (TRESTN (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE CX) (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE)) (QUOTE NIL))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-NG-BODY) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-DEC-PASS-NG-BODY) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . TV-DEC-PASS-NG-BODY) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-NG-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NG-BODY) (DCELL . *1*TV-DEC-PASS-NG-BODY))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NAME) (QUOTE (MAIN-EVENT TV-DEC-PASS-NAME))) (PUT1-LST (QUOTE TV-DEC-PASS-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NAME 64 NIL NIL)) TOTALP-LST ((TV-DEC-PASS-NAME . T)) SDEFN (LAMBDA (TREE MAKE-G) (IF MAKE-G (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER TREE)) (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER TREE)))) LISP-CODE *1*TV-DEC-PASS-NAME SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194035 SATELLITES (*1*TV-DEC-PASS-NAME) IMMEDIATE-DEPENDENTS0 (DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG& TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG*) EVENT (DEFN TV-DEC-PASS-NAME (TREE MAKE-G) (IF MAKE-G (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER TREE)) (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-DEC-PASS-NAME) (IMMEDIATE-DEPENDENTS0 INDEX . TV-DEC-PASS-NAME) (DCELL . *1*TV-DEC-PASS-NAME))))) (PUT1-LST (QUOTE DEC-PASS-CELL$VALUE) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA DEC-PASS-CELL$VALUE (REWRITE) (IMPLIES (DEC-PASS-CELL& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEC-PASS-CELL) (CONS C (CONS A (QUOTE NIL))) STATE NETLIST) (CONS A (CONS (F-EQUV A C) (QUOTE NIL))))) ((ENABLE DEC-PASS-CELL& ID$VALUE B-EQUV$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 ID$VALUE . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV$VALUE . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL* . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 F-EQUV . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DEC-PASS-CELL$VALUE) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL& . DEC-PASS-CELL$VALUE) (LEMMAS DUAL-EVAL . DEC-PASS-CELL$VALUE))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL$NETLIST) (QUOTE (MAIN-EVENT DEC-PASS-CELL$NETLIST))) (PUT1-LST (QUOTE DEC-PASS-CELL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS-CELL$NETLIST 16)) TOTALP-LST ((DEC-PASS-CELL$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (DEC-PASS-CELL*) (UNION (ID$NETLIST) (B-EQUV$NETLIST)))) LISP-CODE *1*DEC-PASS-CELL$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194035 SATELLITES (*1*DEC-PASS-CELL$NETLIST) EVENT (DEFN DEC-PASS-CELL$NETLIST NIL (CONS (DEC-PASS-CELL*) (UNION (ID$NETLIST) (B-EQUV$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV$NETLIST . DEC-PASS-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 ID$NETLIST . DEC-PASS-CELL$NETLIST) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL* . DEC-PASS-CELL$NETLIST) (DCELL . *1*DEC-PASS-CELL$NETLIST))))) (PUT1-LST (QUOTE DEC-PASS-CELL&-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE DEC-PASS-CELL&-OFF DEC-PASS-CELL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL& . DEC-PASS-CELL&-OFF) (DISABLED-LEMMAS NIL DEC-PASS-CELL& DEC-PASS-CELL&-OFF . T))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL&) (QUOTE (MAIN-EVENT DEC-PASS-CELL&))) (PUT1-LST (QUOTE DEC-PASS-CELL&) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS-CELL& 3 NIL)) TOTALP-LST ((DEC-PASS-CELL& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE DEC-PASS-CELL) NETLIST) (DEC-PASS-CELL*)) (IF (ID& (DELETE-MODULE (QUOTE DEC-PASS-CELL) NETLIST)) (B-EQUV& (DELETE-MODULE (QUOTE DEC-PASS-CELL) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*DEC-PASS-CELL& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194035 SATELLITES (*1*DEC-PASS-CELL&) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG& DEC-PASS-CELL$VALUE DEC-PASS-CELL&-OFF) EVENT (DEFN DEC-PASS-CELL& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE DEC-PASS-CELL) NETLIST) (DEC-PASS-CELL*)) (AND (ID& (DELETE-MODULE (QUOTE DEC-PASS-CELL) NETLIST)) (B-EQUV& (DELETE-MODULE (QUOTE DEC-PASS-CELL) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV& . DEC-PASS-CELL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DEC-PASS-CELL&) (IMMEDIATE-DEPENDENTS0 ID& . DEC-PASS-CELL&) (IMMEDIATE-DEPENDENTS0 DEC-PASS-CELL* . DEC-PASS-CELL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DEC-PASS-CELL&) (DCELL . *1*DEC-PASS-CELL&))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL*) (QUOTE (MAIN-EVENT DEC-PASS-CELL*))) (PUT1-LST (QUOTE DEC-PASS-CELL*) (QUOTE (TYPE-PRESCRIPTION-LST ((DEC-PASS-CELL* 16)) TOTALP-LST ((DEC-PASS-CELL* . T)) SDEFN (LAMBDA NIL (QUOTE (DEC-PASS-CELL (C A) (G Z) ((G0 (G) ID (A)) (G1 (Z) B-EQUV (A C))) NIL))) LISP-CODE *1*DEC-PASS-CELL* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194035 SATELLITES (*1*DEC-PASS-CELL*) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$NETLIST DEC-PASS-CELL$VALUE DEC-PASS-CELL$NETLIST DEC-PASS-CELL&) EVENT (DEFN DEC-PASS-CELL* NIL (QUOTE (DEC-PASS-CELL (C A) (G Z) ((G0 (G) ID (A)) (G1 (Z) B-EQUV (A C))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DEC-PASS-CELL*))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (F$DEC-PASS=DEC-OR-PASS) EVENT (PROVE-LEMMA F$TV-DEC-PASS-NG=TV-DEC-PASS-NG (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)))) (EQUAL (F$TV-DEC-PASS-NG C A TREE MAKE-G) (TV-DEC-PASS-NG C A TREE MAKE-G))) ((INDUCT (TV-DEC-PASS-NG C A TREE MAKE-G)) (ENABLE BVP BOOLP-B-GATES B-BUF-X=X F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (EXPAND (F$TV-DEC-PASS-NG C A TREE MAKE-G) (TV-DEC-PASS-NG C A TREE MAKE-G) (F$TV-DEC-PASS-NG C A TREE (QUOTE *1*FALSE)) (TV-DEC-PASS-NG C A TREE (QUOTE *1*FALSE))) (DISABLE-THEORY F-GATES B-GATES) (DISABLE TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS TV-DEC-PASS-NG-WORKS-1 TV-DEC-PASS-NG-WORKS-2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-GATES . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BOOLP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG) (LEMMAS F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF) (QUOTE (IDATE 1000402194035 EVENT (TOGGLE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF) (DISABLED-LEMMAS NIL F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF . T))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK-OFF) EVENT (PROVE-LEMMA F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK (REWRITE) (IMPLIES (EQUAL (F$TV-DEC-PASS-NG C A TREE MAKE-G) (TV-DEC-PASS-NG C A TREE MAKE-G)) (BOOLP (CAR (F$TV-DEC-PASS-NG C A TREE MAKE-G))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-TV-DEC-PASS . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 BOOLP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK) (LEMMAS BOOLP . F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK))))) (PUT1-LST (QUOTE PROPERP-CDR-F$TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA PROPERP-CDR-F$TV-DEC-PASS-NG (REWRITE) (IMPLIES MAKE-G (PROPERP (CDR (F$TV-DEC-PASS-NG C A TREE MAKE-G)))) ((ENABLE PROPERP F$TV-DEC-PASS-NG) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-CDR-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-CDR-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-CDR-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-CDR-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . PROPERP-CDR-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-CDR-F$TV-DEC-PASS-NG) (LEMMAS PROPERP . PROPERP-CDR-F$TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE PROPERP-F$TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (DEC-PASS$VALUE PROPERP-LENGTH-F$DEC-PASS TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA PROPERP-F$TV-DEC-PASS-NG (REWRITE) (PROPERP (F$TV-DEC-PASS-NG C A TREE MAKE-G)) ((ENABLE PROPERP F$TV-DEC-PASS-NG) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . PROPERP-F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-F$TV-DEC-PASS-NG) (LEMMAS PROPERP . PROPERP-F$TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG-LENGTH-1) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA F$TV-DEC-PASS-NG-LENGTH-1 (REWRITE) (IMPLIES MAKE-G (EQUAL (LENGTH (CDR (F$TV-DEC-PASS-NG C A TREE MAKE-G))) (TREE-SIZE TREE))) ((ENABLE F$TV-DEC-PASS-NG LENGTH TREE-SIZE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-DEC-PASS-NG-LENGTH-1) (LEMMAS LENGTH . F$TV-DEC-PASS-NG-LENGTH-1))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG-LENGTH) (QUOTE (IDATE 1000402194035 IMMEDIATE-DEPENDENTS0 (DEC-PASS$VALUE PROPERP-LENGTH-F$DEC-PASS TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA F$TV-DEC-PASS-NG-LENGTH (REWRITE) (EQUAL (LENGTH (F$TV-DEC-PASS-NG C A TREE MAKE-G)) (IF MAKE-G (ADD1 (TREE-SIZE TREE)) (TREE-SIZE TREE))) ((ENABLE F$TV-DEC-PASS-NG LENGTH TREE-SIZE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-DEC-PASS-NG-LENGTH) (LEMMAS LENGTH . F$TV-DEC-PASS-NG-LENGTH))))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG-OFF) (QUOTE (IDATE 1000402194034 EVENT (TOGGLE F$TV-DEC-PASS-NG-OFF F$TV-DEC-PASS-NG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$TV-DEC-PASS-NG . F$TV-DEC-PASS-NG-OFF) (DISABLED-LEMMAS NIL F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-OFF . T))))) (PUT1-LST (QUOTE *1*F$TV-DEC-PASS-NG) (QUOTE (MAIN-EVENT F$TV-DEC-PASS-NG))) (PUT1-LST (QUOTE F$TV-DEC-PASS-NG) (QUOTE (TYPE-PRESCRIPTION-LST ((F$TV-DEC-PASS-NG 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (F$TV-DEC-PASS-NG C A TREE MAKE-G) (TV-DEC-PASS-NG C A TREE MAKE-G)) NIL)) TOTALP-LST ((F$TV-DEC-PASS-NG . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (C A TREE MAKE-G) (IF (LISTP TREE) (IF MAKE-G (CONS (F-OR (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CAR (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))) (APPEND (CDR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CDR (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G)))) (APPEND (CDR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) (QUOTE *1*FALSE)))) (IF MAKE-G (CONS (CAR A) (CONS (F-EQUV (CAR A) C) (QUOTE NIL))) (CONS (F-EQUV (CAR A) C) (QUOTE NIL))))) LISP-CODE *1*F$TV-DEC-PASS-NG SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE) MAKE-G) NIL) (TESTS-AND-CASES ((NLISTP TREE) (NOT MAKE-G)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) MAKE-G) (((F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G) (C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT MAKE-G)) (((F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G) (C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194034 CONTROLLER-POCKETS (4) SATELLITES (*1*F$TV-DEC-PASS-NG) IMMEDIATE-DEPENDENTS0 (F$DEC-PASS TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-INDUCTION F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH F$TV-DEC-PASS-NG-OFF) EVENT (DEFN F$TV-DEC-PASS-NG (C A TREE MAKE-G) (IF (NLISTP TREE) (IF MAKE-G (CONS (CAR A) (CONS (F-EQUV (CAR A) C) (QUOTE NIL))) (CONS (F-EQUV (CAR A) C) (QUOTE NIL))) (IF MAKE-G (CONS (F-OR (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CAR (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))) (APPEND (CDR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CDR (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G)))) (APPEND (CDR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (F$TV-DEC-PASS-NG (F-OR C (CAR (F$TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-OR . F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 F-EQUV . F$TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . F$TV-DEC-PASS-NG) (DCELL . *1*F$TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-WORKS-2) (QUOTE (IDATE 1000402194034 IMMEDIATE-DEPENDENTS0 (F$DEC-PASS=DEC-OR-PASS) EVENT (PROVE-LEMMA TV-DEC-PASS-NG-WORKS-2 (REWRITE) (IMPLIES (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NOT MAKE-G))) (EQUAL (TV-DEC-PASS-NG C A TREE MAKE-G) (IF C (V-BUF A) (V-DEC A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-WORKS . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 V-DEC . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 V-BUF . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-NG-WORKS-2) (IMMEDIATE-DEPENDENTS0 BVP . TV-DEC-PASS-NG-WORKS-2) (LEMMAS TV-DEC-PASS-NG . TV-DEC-PASS-NG-WORKS-2))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-WORKS-1) (QUOTE (IDATE 1000402194034 EVENT (PROVE-LEMMA TV-DEC-PASS-NG-WORKS-1 (REWRITE) (IMPLIES (AND (BVP A) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) MAKE-G)) (EQUAL (CDR (TV-DEC-PASS-NG C A TREE MAKE-G)) (IF C (V-BUF A) (V-DEC A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-WORKS . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 V-DEC . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 V-BUF . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-NG-WORKS-1) (IMMEDIATE-DEPENDENTS0 BVP . TV-DEC-PASS-NG-WORKS-1) (LEMMAS CDR . TV-DEC-PASS-NG-WORKS-1))))) (PUT1-LST (QUOTE BOOLP-CAR-TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194034 EVENT (PROVE-LEMMA BOOLP-CAR-TV-DEC-PASS-NG (REWRITE) (BOOLP (CAR (TV-DEC-PASS-NG C A TREE MAKE-G))) ((ENABLE TV-DEC-PASS-NG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH-CDR . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH-TV-DEC-PASS . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BOOLP-CAR-X . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . BOOLP-CAR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-CAR-TV-DEC-PASS-NG) (LEMMAS BOOLP . BOOLP-CAR-TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (QUOTE (IDATE 1000402194034 IMMEDIATE-DEPENDENTS0 (F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BOOLP-CAR-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS (REWRITE) (EQUAL (TV-DEC-PASS-NG C A TREE MAKE-G) (IF MAKE-G (TV-DEC-PASS C A TREE) (CDR (TV-DEC-PASS C A TREE)))) ((ENABLE TV-DEC-PASS TV-DEC-PASS-NG) (DISABLE B-OR TFIRSTN TRESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS) (LEMMAS TV-DEC-PASS-NG . TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS))))) (PUT1-LST (QUOTE BVP-LENGTH-TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194034 EVENT (PROVE-LEMMA BVP-LENGTH-TV-DEC-PASS-NG (REWRITE) (EQUAL (BVP-LENGTH (TV-DEC-PASS-NG C A TREE MAKE-G) N) (IF MAKE-G (IF (LESSP (ADD1 (TREE-SIZE TREE)) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP N (ADD1 (TREE-SIZE TREE))))) ((ENABLE BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG-LENGTH . BVP-LENGTH-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-TV-DEC-PASS-NG . BVP-LENGTH-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BVP-LENGTH-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . BVP-LENGTH-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-TV-DEC-PASS-NG) (LEMMAS BVP-LENGTH . BVP-LENGTH-TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE BVP-CDR-TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194034 EVENT (PROVE-LEMMA BVP-CDR-TV-DEC-PASS-NG (REWRITE) (IMPLIES MAKE-G (BVP (CDR (TV-DEC-PASS-NG C A TREE MAKE-G)))) ((ENABLE BVP TV-DEC-PASS-NG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-BUF . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . BVP-CDR-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CDR-TV-DEC-PASS-NG) (LEMMAS BVP . BVP-CDR-TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE BVP-TV-DEC-PASS-NG) (QUOTE (IDATE 1000402194034 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA BVP-TV-DEC-PASS-NG (REWRITE) (BVP (TV-DEC-PASS-NG C A TREE MAKE-G)) ((ENABLE BVP TV-DEC-PASS-NG))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TRESTN . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-OR . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-BUF . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . BVP-TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 BVP . BVP-TV-DEC-PASS-NG) (LEMMAS BVP . BVP-TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-LENGTH-1) (QUOTE (IDATE 1000402194032 EVENT (PROVE-LEMMA TV-DEC-PASS-NG-LENGTH-1 (REWRITE) (IMPLIES MAKE-G (EQUAL (LENGTH (CDR (TV-DEC-PASS-NG C A TREE MAKE-G))) (TREE-SIZE TREE))) ((ENABLE TV-DEC-PASS-NG LENGTH TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-NG-LENGTH-1) (LEMMAS LENGTH . TV-DEC-PASS-NG-LENGTH-1))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-LENGTH) (QUOTE (IDATE 1000402194032 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA TV-DEC-PASS-NG-LENGTH (REWRITE) (EQUAL (LENGTH (TV-DEC-PASS-NG C A TREE MAKE-G)) (IF MAKE-G (ADD1 (TREE-SIZE TREE)) (TREE-SIZE TREE))) ((ENABLE TV-DEC-PASS-NG LENGTH TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 B-OR . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-NG-LENGTH) (LEMMAS LENGTH . TV-DEC-PASS-NG-LENGTH))))) (PUT1-LST (QUOTE TV-DEC-PASS-NG-OFF) (QUOTE (IDATE 1000402194032 EVENT (TOGGLE TV-DEC-PASS-NG-OFF TV-DEC-PASS-NG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-NG . TV-DEC-PASS-NG-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS-NG TV-DEC-PASS-NG-OFF . T))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG) (QUOTE (MAIN-EVENT TV-DEC-PASS-NG))) (PUT1-LST (QUOTE TV-DEC-PASS-NG) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS-NG 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE TV-DEC-PASS-NG-WORKS-2 ((BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NOT MAKE-G)) (EQUAL (TV-DEC-PASS-NG C A TREE MAKE-G) (IF C (V-BUF A) (V-DEC A))) NIL) (REWRITE-RULE TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS NIL (EQUAL (TV-DEC-PASS-NG C A TREE MAKE-G) (IF MAKE-G (TV-DEC-PASS C A TREE) (CDR (TV-DEC-PASS C A TREE)))) NIL)) TOTALP-LST ((TV-DEC-PASS-NG . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (C A TREE MAKE-G) (IF (LISTP TREE) (IF MAKE-G (CONS (B-OR (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CAR (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))) (APPEND (CDR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CDR (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G)))) (APPEND (CDR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) (QUOTE *1*FALSE)))) (IF MAKE-G (CONS (B-BUF (CAR A)) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))))) LISP-CODE *1*TV-DEC-PASS-NG SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE) MAKE-G) NIL) (TESTS-AND-CASES ((NLISTP TREE) (NOT MAKE-G)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) MAKE-G) (((B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G) (C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT MAKE-G)) (((B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G) (C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194032 CONTROLLER-POCKETS (4) SATELLITES (*1*TV-DEC-PASS-NG) IMMEDIATE-DEPENDENTS0 (F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BOOLP-CAR-TV-DEC-PASS-NG TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-LENGTH-TV-DEC-PASS-NG BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-OFF) EVENT (DEFN TV-DEC-PASS-NG (C A TREE MAKE-G) (IF (NLISTP TREE) (IF MAKE-G (CONS (B-BUF (CAR A)) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))) (IF MAKE-G (CONS (B-OR (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CAR (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))) (APPEND (CDR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (CDR (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G)))) (APPEND (CDR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE))) (TV-DEC-PASS-NG (B-OR C (CAR (TV-DEC-PASS-NG C (TFIRSTN A TREE) (CAR TREE) (QUOTE *1*TRUE)))) (TRESTN A TREE) (CDR TREE) MAKE-G))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-OR . TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-EQUV . TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS-NG) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS-NG) (DCELL . *1*TV-DEC-PASS-NG))))) (PUT1-LST (QUOTE TV-DEC-PASS-WORKS) (QUOTE (IDATE 1000402194032 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1) EVENT (PROVE-LEMMA TV-DEC-PASS-WORKS (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (CDR (TV-DEC-PASS C A TREE)) (IF C (V-BUF A) (V-DEC A)))) ((USE (TV-DEC-PASS-CROCK-2)) (ENABLE TV-ADDER-AS-P-G-SUM V-SUM V-DEC))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 A-1+1=A . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 TV-ADDER-AS-P-G-SUM . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-CROCK-2 . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 V-DEC . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 V-BUF . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-WORKS) (LEMMAS CDR . TV-DEC-PASS-WORKS))))) (PUT1-LST (QUOTE TV-DEC-PASS-CROCK-2) (QUOTE (IDATE 1000402194032 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-WORKS) EVENT (PROVE-LEMMA TV-DEC-PASS-CROCK-2 NIL (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (CDR (TV-DEC-PASS C A TREE)) (CDR (CDR (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE))))) ((USE (TV-DEC-PASS-CROCK-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-CROCK-1 . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 BVP . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-CROCK-2) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-CROCK-2))))) (PUT1-LST (QUOTE TV-DEC-PASS-CROCK-1) (QUOTE (IDATE 1000402194032 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-CROCK-2) EVENT (PROVE-LEMMA TV-DEC-PASS-CROCK-1 NIL (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE) (CONS (QUOTE *1*TRUE) (TV-DEC-PASS C A TREE)))) ((INDUCT (TV-DEC-PASS C A TREE)) (DISABLE V-NOT-FIRSTN V-NOT-RESTN) (ENABLE FIRSTN-V-NOT RESTN-V-NOT T-CARRY) (EXPAND (TV-DEC-PASS C A TREE) (TV-ADDER C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE) (TV-DEC-PASS (QUOTE *1*FALSE) A TREE) (TV-ADDER (QUOTE *1*FALSE) (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 FIRSTN-V-NOT . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 FIRSTN-NAT-TO-V . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-NOT . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 AO6 . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-NOR . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 T-CARRY . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 RESTN-V-NOT . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 RESTN-NAT-TO-V-0-HACK . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-OR . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-AND . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 V-NOT . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 BVP . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-CROCK-1) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-CROCK-1))))) (PUT1-LST (QUOTE BVP-LENGTH-TV-DEC-PASS) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA BVP-LENGTH-TV-DEC-PASS (REWRITE) (EQUAL (BVP-LENGTH (TV-DEC-PASS C A TREE) N) (IF (LESSP (ADD1 (TREE-SIZE TREE)) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((ENABLE BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS-LENGTH . BVP-LENGTH-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP-TV-DEC-PASS . BVP-LENGTH-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BVP-LENGTH-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . BVP-LENGTH-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-TV-DEC-PASS) (LEMMAS BVP-LENGTH . BVP-LENGTH-TV-DEC-PASS))))) (PUT1-LST (QUOTE BVP-TV-DEC-PASS) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-DEC-PASS) EVENT (PROVE-LEMMA BVP-TV-DEC-PASS (REWRITE) (BVP (TV-DEC-PASS C A TREE)) ((ENABLE BVP TV-DEC-PASS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-BUF . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP-CDR-TV-DEC-PASS . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . BVP-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-TV-DEC-PASS) (LEMMAS BVP . BVP-TV-DEC-PASS))))) (PUT1-LST (QUOTE BVP-CDR-TV-DEC-PASS) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (BVP-TV-DEC-PASS) EVENT (PROVE-LEMMA BVP-CDR-TV-DEC-PASS (REWRITE) (BVP (CDR (TV-DEC-PASS C A TREE))) ((ENABLE BVP TV-DEC-PASS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-BUF . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . BVP-CDR-TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CDR-TV-DEC-PASS) (LEMMAS BVP . BVP-CDR-TV-DEC-PASS))))) (PUT1-LST (QUOTE TV-DEC-PASS-LENGTH) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-TV-DEC-PASS) EVENT (PROVE-LEMMA TV-DEC-PASS-LENGTH (REWRITE) (EQUAL (LENGTH (TV-DEC-PASS C A TREE)) (ADD1 (TREE-SIZE TREE))) ((ENABLE LENGTH TV-DEC-PASS TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDR-TV-DEC-PASS-LENGTH . TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-DEC-PASS-LENGTH) (LEMMAS LENGTH . TV-DEC-PASS-LENGTH))))) (PUT1-LST (QUOTE CDR-TV-DEC-PASS-LENGTH) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-LENGTH) EVENT (PROVE-LEMMA CDR-TV-DEC-PASS-LENGTH (REWRITE) (EQUAL (LENGTH (CDR (TV-DEC-PASS C A TREE))) (TREE-SIZE TREE)) ((ENABLE TV-DEC-PASS LENGTH TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 B-BUF . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . CDR-TV-DEC-PASS-LENGTH) (IMMEDIATE-DEPENDENTS0 LENGTH . CDR-TV-DEC-PASS-LENGTH) (LEMMAS LENGTH . CDR-TV-DEC-PASS-LENGTH))))) (PUT1-LST (QUOTE TV-DEC-PASS-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE TV-DEC-PASS-OFF TV-DEC-PASS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-DEC-PASS . TV-DEC-PASS-OFF) (DISABLED-LEMMAS NIL TV-DEC-PASS TV-DEC-PASS-OFF . T))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS) (QUOTE (MAIN-EVENT TV-DEC-PASS))) (PUT1-LST (QUOTE TV-DEC-PASS) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-DEC-PASS 16 NIL NIL NIL)) TOTALP-LST ((TV-DEC-PASS . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A TREE) (IF (LISTP TREE) (CONS (B-OR (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE))) (CAR (TV-DEC-PASS (B-OR C (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE)))) (TRESTN A TREE) (CDR TREE)))) (APPEND (CDR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE))) (CDR (TV-DEC-PASS (B-OR C (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE)))) (TRESTN A TREE) (CDR TREE))))) (CONS (B-BUF (CAR A)) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))))) LISP-CODE *1*TV-DEC-PASS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((B-OR C (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE)))) (TRESTN A TREE) (CDR TREE)) (C (TFIRSTN A TREE) (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194031 CONTROLLER-POCKETS (4) SATELLITES (*1*TV-DEC-PASS) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 BVP-LENGTH-TV-DEC-PASS BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS TV-DEC-PASS-LENGTH CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS-OFF) EVENT (DEFN TV-DEC-PASS (C A TREE) (IF (NLISTP TREE) (CONS (B-BUF (CAR A)) (CONS (B-EQUV (CAR A) C) (QUOTE NIL))) (CONS (B-OR (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE))) (CAR (TV-DEC-PASS (B-OR C (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE)))) (TRESTN A TREE) (CDR TREE)))) (APPEND (CDR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE))) (CDR (TV-DEC-PASS (B-OR C (CAR (TV-DEC-PASS C (TFIRSTN A TREE) (CAR TREE)))) (TRESTN A TREE) (CDR TREE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-OR . TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-EQUV . TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 B-BUF . TV-DEC-PASS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-DEC-PASS) (DCELL . *1*TV-DEC-PASS))))) (PUT1-LST (QUOTE F$V-INC4$V=V-INC) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$CV=CV) EVENT (PROVE-LEMMA F$V-INC4$V=V-INC (REWRITE) (IMPLIES (AND (BVP A) (EQUAL (LENGTH A) (QUOTE 4))) (EQUAL (F$V-INC4$V A) (V-INC A))) ((ENABLE F$V-INC4$V V-INC V-SUM EQUAL-LENGTH-ADD1 BOOLP-B-GATES) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 BVP-CONS . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-NOT . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-NOR . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-NOR3 . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-OR3 . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-AND . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 V-SUM . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT=V-SUM . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 F-GATES . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 V-INC . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 F$V-INC4$V . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 LENGTH . F$V-INC4$V=V-INC) (IMMEDIATE-DEPENDENTS0 BVP . F$V-INC4$V=V-INC) (LEMMAS F$V-INC4$V . F$V-INC4$V=V-INC))))) (PUT1-LST (QUOTE V-INC4$VALUE-AS-V-INC) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (CV$VALUE) EVENT (PROVE-LEMMA V-INC4$VALUE-AS-V-INC (REWRITE) (IMPLIES (AND (V-INC4& NETLIST) (AND (PROPERP A) (EQUAL (LENGTH A) (QUOTE 4)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-INC4) A STATE NETLIST) (F$V-INC4$V A))) ((ENABLE V-INC4$VALUE F$V-INC4 F$V-INC4$V EQUAL-LENGTH-ADD1) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 F$V-INC4 . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 V-INC4$VALUE . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 F-GATES . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 F$V-INC4$V . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 LENGTH . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 PROPERP . V-INC4$VALUE-AS-V-INC) (IMMEDIATE-DEPENDENTS0 V-INC4& . V-INC4$VALUE-AS-V-INC) (LEMMAS DUAL-EVAL . V-INC4$VALUE-AS-V-INC))))) (PUT1-LST (QUOTE PROPERP-LENGTH-F$V-INC4$V) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (CV$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-F$V-INC4$V (REWRITE) (AND (PROPERP (F$V-INC4$V A)) (EQUAL (LENGTH (F$V-INC4$V A)) (QUOTE 4))) ((ENABLE F$V-INC4$V) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F-GATES . PROPERP-LENGTH-F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F$V-INC4$V . PROPERP-LENGTH-F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-F$V-INC4$V) (LEMMAS LENGTH . PROPERP-LENGTH-F$V-INC4$V) (LEMMAS PROPERP . PROPERP-LENGTH-F$V-INC4$V))))) (PUT1-LST (QUOTE F$V-INC4$V-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE F$V-INC4$V-OFF F$V-INC4$V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$V-INC4$V . F$V-INC4$V-OFF) (DISABLED-LEMMAS NIL F$V-INC4$V F$V-INC4$V-OFF . T))))) (PUT1-LST (QUOTE *1*F$V-INC4$V) (QUOTE (MAIN-EVENT F$V-INC4$V))) (PUT1-LST (QUOTE F$V-INC4$V) (QUOTE (TYPE-PRESCRIPTION-LST ((F$V-INC4$V 16 NIL)) LEMMAS ((REWRITE-RULE F$V-INC4$V=V-INC ((BVP A) (EQUAL (LENGTH A) (QUOTE 4))) (EQUAL (F$V-INC4$V A) (V-INC A)) NIL)) TOTALP-LST ((F$V-INC4$V . T)) SDEFN (LAMBDA (A) (CONS (F-NOT (CAR A)) (CONS (F-XOR (F-NOT (CAR (CDR A))) (F-NOT (CAR A))) (CONS (F-EQUV (F-NOT (CAR (CDR (CDR A)))) (F-NOR (F-NOT (CAR A)) (F-NOT (CAR (CDR A))))) (CONS (F-EQUV (F-NOT (CAR (CDR (CDR (CDR A))))) (F-NOR3 (F-NOT (CAR A)) (F-NOT (CAR (CDR A))) (F-NOT (CAR (CDR (CDR A)))))) (QUOTE NIL)))))) LISP-CODE *1*F$V-INC4$V SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194031 SATELLITES (*1*F$V-INC4$V) IMMEDIATE-DEPENDENTS0 (F$CV F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V F$V-INC4$V-OFF) EVENT (DEFN F$V-INC4$V (A) (CONS (F-NOT (CAR A)) (CONS (F-XOR (F-NOT (CAR (CDR A))) (F-NOT (CAR A))) (CONS (F-EQUV (F-NOT (CAR (CDR (CDR A)))) (F-NOR (F-NOT (CAR A)) (F-NOT (CAR (CDR A))))) (CONS (F-EQUV (F-NOT (CAR (CDR (CDR (CDR A))))) (F-NOR3 (F-NOT (CAR A)) (F-NOT (CAR (CDR A))) (F-NOT (CAR (CDR (CDR A)))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F-NOR . F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F-EQUV . F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F-XOR . F$V-INC4$V) (IMMEDIATE-DEPENDENTS0 F-NOT . F$V-INC4$V) (DCELL . *1*F$V-INC4$V))))) (PUT1-LST (QUOTE F$V-INC4=V-INC4) (QUOTE (IDATE 1000402194031 EVENT (PROVE-LEMMA F$V-INC4=V-INC4 (REWRITE) (IMPLIES (AND (BOOLP A0) (AND (BOOLP A1) (AND (BOOLP A2) (BOOLP A3)))) (EQUAL (F$V-INC4 A0 A1 A2 A3) (V-INC4 A0 A1 A2 A3))) ((ENABLE BOOLP-B-GATES F$V-INC4 V-INC4) (DISABLE-THEORY F-GATES B-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 F-GATES . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 B-GATES . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 V-INC4 . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 F$V-INC4 . F$V-INC4=V-INC4) (IMMEDIATE-DEPENDENTS0 BOOLP . F$V-INC4=V-INC4) (LEMMAS F$V-INC4 . F$V-INC4=V-INC4))))) (PUT1-LST (QUOTE V-INC4$VALUE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-INC4$VALUE-OFF V-INC4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-INC4$VALUE . V-INC4$VALUE-OFF) (DISABLED-LEMMAS NIL V-INC4$VALUE V-INC4$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-INC4$VALUE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (V-INC4$VALUE-AS-V-INC V-INC4$VALUE-OFF) EVENT (PROVE-LEMMA V-INC4$VALUE (REWRITE) (IMPLIES (V-INC4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-INC4) (CONS A0 (CONS A1 (CONS A2 (CONS A3 (QUOTE NIL))))) STATE NETLIST) (F$V-INC4 A0 A1 A2 A3))) ((ENABLE V-INC4& F$V-INC4 B-NOR3$VALUE B-NOT$VALUE B-NOR$VALUE B-EQUV$VALUE B-XOR$VALUE) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV$VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 V-INC4* . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 F$V-INC4 . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-INC4$VALUE) (IMMEDIATE-DEPENDENTS0 V-INC4& . V-INC4$VALUE) (LEMMAS DUAL-EVAL . V-INC4$VALUE))))) (PUT1-LST (QUOTE *1*V-INC4$NETLIST) (QUOTE (MAIN-EVENT V-INC4$NETLIST))) (PUT1-LST (QUOTE V-INC4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-INC4$NETLIST 16)) TOTALP-LST ((V-INC4$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (V-INC4*) (UNION (UNION (UNION (UNION (B-NOR3$NETLIST) (B-NOT$NETLIST)) (B-NOR$NETLIST)) (B-EQUV$NETLIST)) (B-XOR$NETLIST)))) LISP-CODE *1*V-INC4$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194031 SATELLITES (*1*V-INC4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN V-INC4$NETLIST NIL (CONS (V-INC4*) (UNION (UNION (UNION (UNION (B-NOR3$NETLIST) (B-NOT$NETLIST)) (B-NOR$NETLIST)) (B-EQUV$NETLIST)) (B-XOR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . V-INC4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-EQUV$NETLIST . V-INC4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . V-INC4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . V-INC4$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . V-INC4$NETLIST) (IMMEDIATE-DEPENDENTS0 V-INC4* . V-INC4$NETLIST) (DCELL . *1*V-INC4$NETLIST))))) (PUT1-LST (QUOTE V-INC4&-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-INC4&-OFF V-INC4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-INC4& . V-INC4&-OFF) (DISABLED-LEMMAS NIL V-INC4& V-INC4&-OFF . T))))) (PUT1-LST (QUOTE *1*V-INC4&) (QUOTE (MAIN-EVENT V-INC4&))) (PUT1-LST (QUOTE V-INC4&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-INC4& 3 NIL)) TOTALP-LST ((V-INC4& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE V-INC4) NETLIST) (V-INC4*)) (IF (B-NOR3& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (IF (B-NOT& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (IF (B-NOR& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (IF (B-EQUV& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (B-XOR& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*V-INC4& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194031 SATELLITES (*1*V-INC4&) IMMEDIATE-DEPENDENTS0 (CV& V-INC4$VALUE-AS-V-INC V-INC4$VALUE V-INC4&-OFF) EVENT (DEFN V-INC4& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE V-INC4) NETLIST) (V-INC4*)) (AND (B-NOR3& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (AND (B-NOT& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (AND (B-NOR& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (AND (B-EQUV& (DELETE-MODULE (QUOTE V-INC4) NETLIST)) (B-XOR& (DELETE-MODULE (QUOTE V-INC4) NETLIST)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR& . V-INC4&) (IMMEDIATE-DEPENDENTS0 B-EQUV& . V-INC4&) (IMMEDIATE-DEPENDENTS0 B-NOR& . V-INC4&) (IMMEDIATE-DEPENDENTS0 B-NOT& . V-INC4&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-INC4&) (IMMEDIATE-DEPENDENTS0 B-NOR3& . V-INC4&) (IMMEDIATE-DEPENDENTS0 V-INC4* . V-INC4&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-INC4&) (DCELL . *1*V-INC4&))))) (PUT1-LST (QUOTE *1*V-INC4*) (QUOTE (MAIN-EVENT V-INC4*))) (PUT1-LST (QUOTE V-INC4*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-INC4* 16)) TOTALP-LST ((V-INC4* . T)) SDEFN (LAMBDA NIL (QUOTE (V-INC4 (A0 A1 A2 A3) (W-10 W-3 W-8 W-14) ((G-12 (W-12) B-NOT (A2)) (G-11 (W-11) B-NOT (A1)) (G-10 (W-10) B-NOT (A0)) (G-13 (W-13) B-NOR3 (W-10 W-11 W-12)) (G-9 (W-9) B-NOT (A3)) (G-14 (W-14) B-EQUV (W-9 W-13)) (G-7 (W-7) B-NOR (W-10 W-11)) (G-8 (W-8) B-EQUV (W-12 W-7)) (G-3 (W-3) B-XOR (W-11 W-10))) NIL))) LISP-CODE *1*V-INC4* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194031 SATELLITES (*1*V-INC4*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST V-INC4$VALUE V-INC4$NETLIST V-INC4&) EVENT (DEFN V-INC4* NIL (QUOTE (V-INC4 (A0 A1 A2 A3) (W-10 W-3 W-8 W-14) ((G-12 (W-12) B-NOT (A2)) (G-11 (W-11) B-NOT (A1)) (G-10 (W-10) B-NOT (A0)) (G-13 (W-13) B-NOR3 (W-10 W-11 W-12)) (G-9 (W-9) B-NOT (A3)) (G-14 (W-14) B-EQUV (W-9 W-13)) (G-7 (W-7) B-NOR (W-10 W-11)) (G-8 (W-8) B-EQUV (W-12 W-7)) (G-3 (W-3) B-XOR (W-11 W-10))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*V-INC4*))))) (PUT1-LST (QUOTE F$V-INC4-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE F$V-INC4-OFF F$V-INC4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$V-INC4 . F$V-INC4-OFF) (DISABLED-LEMMAS NIL F$V-INC4 F$V-INC4-OFF . T))))) (PUT1-LST (QUOTE *1*F$V-INC4) (QUOTE (MAIN-EVENT F$V-INC4))) (PUT1-LST (QUOTE F$V-INC4) (QUOTE (TYPE-PRESCRIPTION-LST ((F$V-INC4 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$V-INC4=V-INC4 ((BOOLP A0) (BOOLP A1) (BOOLP A2) (BOOLP A3)) (EQUAL (F$V-INC4 A0 A1 A2 A3) (V-INC4 A0 A1 A2 A3)) NIL)) TOTALP-LST ((F$V-INC4 . T)) SDEFN (LAMBDA (A0 A1 A2 A3) (CONS (F-NOT A0) (CONS (F-XOR (F-NOT A1) (F-NOT A0)) (CONS (F-EQUV (F-NOT A2) (F-NOR (F-NOT A0) (F-NOT A1))) (CONS (F-EQUV (F-NOT A3) (F-NOR3 (F-NOT A0) (F-NOT A1) (F-NOT A2))) (QUOTE NIL)))))) LISP-CODE *1*F$V-INC4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194031 SATELLITES (*1*F$V-INC4) IMMEDIATE-DEPENDENTS0 (V-INC4$VALUE-AS-V-INC F$V-INC4=V-INC4 V-INC4$VALUE F$V-INC4-OFF) EVENT (DEFN F$V-INC4 (A0 A1 A2 A3) (CONS (F-NOT A0) (CONS (F-XOR (F-NOT A1) (F-NOT A0)) (CONS (F-EQUV (F-NOT A2) (F-NOR (F-NOT A0) (F-NOT A1))) (CONS (F-EQUV (F-NOT A3) (F-NOR3 (F-NOT A0) (F-NOT A1) (F-NOT A2))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F$V-INC4) (IMMEDIATE-DEPENDENTS0 F-NOR . F$V-INC4) (IMMEDIATE-DEPENDENTS0 F-EQUV . F$V-INC4) (IMMEDIATE-DEPENDENTS0 F-XOR . F$V-INC4) (IMMEDIATE-DEPENDENTS0 F-NOT . F$V-INC4) (DCELL . *1*F$V-INC4))))) (PUT1-LST (QUOTE *1*V-INC4) (QUOTE (MAIN-EVENT V-INC4))) (PUT1-LST (QUOTE V-INC4) (QUOTE (TYPE-PRESCRIPTION-LST ((V-INC4 16 NIL NIL NIL NIL)) TOTALP-LST ((V-INC4 . T)) SDEFN (LAMBDA (A0 A1 A2 A3) (CONS (B-NOT A0) (CONS (B-XOR (B-NOT A1) (B-NOT A0)) (CONS (B-EQUV (B-NOT A2) (B-NOR (B-NOT A0) (B-NOT A1))) (CONS (B-EQUV (B-NOT A3) (B-NOR3 (B-NOT A0) (B-NOT A1) (B-NOT A2))) (QUOTE NIL)))))) LISP-CODE *1*V-INC4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194031 SATELLITES (*1*V-INC4) IMMEDIATE-DEPENDENTS0 (F$V-INC4=V-INC4) EVENT (DEFN V-INC4 (A0 A1 A2 A3) (CONS (B-NOT A0) (CONS (B-XOR (B-NOT A1) (B-NOT A0)) (CONS (B-EQUV (B-NOT A2) (B-NOR (B-NOT A0) (B-NOT A1))) (CONS (B-EQUV (B-NOT A3) (B-NOR3 (B-NOT A0) (B-NOT A1) (B-NOT A2))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3 . V-INC4) (IMMEDIATE-DEPENDENTS0 B-NOR . V-INC4) (IMMEDIATE-DEPENDENTS0 B-EQUV . V-INC4) (IMMEDIATE-DEPENDENTS0 B-XOR . V-INC4) (IMMEDIATE-DEPENDENTS0 B-NOT . V-INC4) (DCELL . *1*V-INC4))))) (PUT1-LST (QUOTE F$V-EQUAL=EQUAL*) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$READ-REGS=READ-REGS) EVENT (PROVE-LEMMA F$V-EQUAL=EQUAL* (REWRITE) (IMPLIES (AND (NOT (ZEROP (LENGTH A))) (AND (BVP A) (AND (BVP B) (EQUAL (LENGTH A) (LENGTH B))))) (EQUAL (F$V-EQUAL A B) (EQUAL A B))) ((ENABLE F$V-EQUAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$TV-ZEROP=V-ZEROP . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 V-ZEROP . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 BV2P . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 V-XOR-NZEROP=NOT-EQUAL . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 LENGTH-V-XOR . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 BVP-V-XOR . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 FV-XOR=V-XOR . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 F$V-EQUAL . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 BVP . F$V-EQUAL=EQUAL*) (IMMEDIATE-DEPENDENTS0 LENGTH . F$V-EQUAL=EQUAL*) (LEMMAS F$V-EQUAL . F$V-EQUAL=EQUAL*))))) (PUT1-LST (QUOTE V-EQUAL$VALUE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-EQUAL$VALUE-OFF V-EQUAL$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-EQUAL$VALUE . V-EQUAL$VALUE-OFF) (DISABLED-LEMMAS NIL V-EQUAL$VALUE V-EQUAL$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-EQUAL$VALUE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (REGFILE$STATE REGFILE$VALUE V-EQUAL$VALUE-OFF) EVENT (PROVE-LEMMA V-EQUAL$VALUE (REWRITE) (IMPLIES (AND (V-EQUAL& NETLIST N) (AND (NOT (ZEROP N)) (AND (PROPERP A) (AND (PROPERP B) (AND (EQUAL (LENGTH A) N) (EQUAL (LENGTH B) N)))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-EQUAL) N) (APPEND A B) STATE NETLIST) (CONS (F$V-EQUAL A B) (QUOTE NIL)))) ((ENABLE V-EQUAL& V-XOR$VALUE TV-ZEROP$VALUE V-EQUAL*$DESTRUCTURE F$V-EQUAL) (DISABLE OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 V-EQUAL*$DESTRUCTURE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR$VALUE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-LENGTH-FV-XOR . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ZEROP$VALUE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 F$V-EQUAL . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-EQUAL$VALUE) (IMMEDIATE-DEPENDENTS0 V-EQUAL& . V-EQUAL$VALUE) (LEMMAS DUAL-EVAL . V-EQUAL$VALUE))))) (PUT1-LST (QUOTE F$V-EQUAL-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE F$V-EQUAL-OFF F$V-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$V-EQUAL . F$V-EQUAL-OFF) (DISABLED-LEMMAS NIL F$V-EQUAL F$V-EQUAL-OFF . T))))) (PUT1-LST (QUOTE *1*F$V-EQUAL) (QUOTE (MAIN-EVENT F$V-EQUAL))) (PUT1-LST (QUOTE F$V-EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((F$V-EQUAL -1 NIL NIL)) LEMMAS ((REWRITE-RULE F$V-EQUAL=EQUAL* ((NUMBERP (LENGTH A)) (NOT (EQUAL (LENGTH A) (QUOTE 0))) (BVP A) (BVP B) (EQUAL (LENGTH A) (LENGTH B))) (EQUAL (F$V-EQUAL A B) (EQUAL A B)) NIL)) TOTALP-LST ((F$V-EQUAL . T)) SDEFN (LAMBDA (A B) (F$TV-ZEROP (FV-XOR A B) (MAKE-TREE (LENGTH A)))) LISP-CODE *1*F$V-EQUAL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194031 SATELLITES (*1*F$V-EQUAL) IMMEDIATE-DEPENDENTS0 (F$READ-REGS F$V-EQUAL=EQUAL* V-EQUAL$VALUE F$V-EQUAL-OFF) EVENT (DEFN F$V-EQUAL (A B) (F$TV-ZEROP (FV-XOR A B) (MAKE-TREE (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . F$V-EQUAL) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . F$V-EQUAL) (IMMEDIATE-DEPENDENTS0 FV-XOR . F$V-EQUAL) (IMMEDIATE-DEPENDENTS0 F$TV-ZEROP . F$V-EQUAL) (DCELL . *1*F$V-EQUAL))))) (PUT1-LST (QUOTE *1*V-EQUAL$NETLIST) (QUOTE (MAIN-EVENT V-EQUAL$NETLIST))) (PUT1-LST (QUOTE V-EQUAL$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-EQUAL$NETLIST 16 NIL)) TOTALP-LST ((V-EQUAL$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-EQUAL* N) (UNION (V-XOR$NETLIST N) (TV-ZEROP$NETLIST (MAKE-TREE N))))) LISP-CODE *1*V-EQUAL$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*V-EQUAL$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-REGFILE$NETLIST REGFILE$NETLIST) EVENT (DEFN V-EQUAL$NETLIST (N) (CONS (V-EQUAL* N) (UNION (V-XOR$NETLIST N) (TV-ZEROP$NETLIST (MAKE-TREE N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . V-EQUAL$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-ZEROP$NETLIST . V-EQUAL$NETLIST) (IMMEDIATE-DEPENDENTS0 V-XOR$NETLIST . V-EQUAL$NETLIST) (IMMEDIATE-DEPENDENTS0 V-EQUAL* . V-EQUAL$NETLIST) (DCELL . *1*V-EQUAL$NETLIST))))) (PUT1-LST (QUOTE V-EQUAL&-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-EQUAL&-OFF V-EQUAL& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-EQUAL& . V-EQUAL&-OFF) (DISABLED-LEMMAS NIL V-EQUAL& V-EQUAL&-OFF . T))))) (PUT1-LST (QUOTE *1*V-EQUAL&) (QUOTE (MAIN-EVENT V-EQUAL&))) (PUT1-LST (QUOTE V-EQUAL&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-EQUAL& 3 NIL NIL)) TOTALP-LST ((V-EQUAL& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) (V-EQUAL* N)) (IF (V-XOR& (DELETE-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) N) (TV-ZEROP& (DELETE-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) (MAKE-TREE N)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*V-EQUAL& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*V-EQUAL&) IMMEDIATE-DEPENDENTS0 (REGFILE& V-EQUAL$VALUE V-EQUAL&-OFF) EVENT (DEFN V-EQUAL& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) (V-EQUAL* N)) (AND (V-XOR& (DELETE-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) N) (TV-ZEROP& (DELETE-MODULE (INDEX (QUOTE V-EQUAL) N) NETLIST) (MAKE-TREE N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 TV-ZEROP& . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 V-XOR& . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 V-EQUAL* . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 INDEX . V-EQUAL&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-EQUAL&) (DCELL . *1*V-EQUAL&))))) (PUT1-LST (QUOTE V-EQUAL*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-EQUAL*$DESTRUCTURE-OFF V-EQUAL*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-EQUAL*$DESTRUCTURE . V-EQUAL*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-EQUAL*$DESTRUCTURE V-EQUAL*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-EQUAL*-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE V-EQUAL*-OFF V-EQUAL* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-EQUAL* . V-EQUAL*-OFF) (DISABLED-LEMMAS NIL V-EQUAL* V-EQUAL*-OFF . T))))) (PUT1-LST (QUOTE V-EQUAL*$DESTRUCTURE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (V-EQUAL$VALUE V-EQUAL*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-EQUAL*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-EQUAL* N)) (INDEX (QUOTE V-EQUAL) N)) (AND (EQUAL (CAR (CDR (V-EQUAL* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (V-EQUAL* N)))) (QUOTE (EQUAL))) (AND (EQUAL (CAR (CDR (CDR (CDR (V-EQUAL* N))))) (CONS (CONS (QUOTE G0) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE G1) (CONS (QUOTE (EQUAL)) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER (MAKE-TREE N))) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-EQUAL* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . V-EQUAL*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . V-EQUAL*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-EQUAL*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-EQUAL*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-EQUAL* . V-EQUAL*$DESTRUCTURE) (LEMMAS CAR . V-EQUAL*$DESTRUCTURE) (LEMMAS CAR . V-EQUAL*$DESTRUCTURE) (LEMMAS CAR . V-EQUAL*$DESTRUCTURE) (LEMMAS CAR . V-EQUAL*$DESTRUCTURE) (LEMMAS CAR . V-EQUAL*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-EQUAL*) (QUOTE (MAIN-EVENT V-EQUAL*))) (PUT1-LST (QUOTE V-EQUAL*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-EQUAL* 16 NIL)) TOTALP-LST ((V-EQUAL* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-EQUAL) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (QUOTE (EQUAL)) (CONS (CONS (CONS (QUOTE G0) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE G1) (CONS (QUOTE (EQUAL)) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER (MAKE-TREE N))) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LISP-CODE *1*V-EQUAL* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194031 SATELLITES (*1*V-EQUAL*) IMMEDIATE-DEPENDENTS0 (V-EQUAL$NETLIST V-EQUAL& V-EQUAL*-OFF V-EQUAL*$DESTRUCTURE) EVENT (DEFN V-EQUAL* (N) (CONS (INDEX (QUOTE V-EQUAL) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (QUOTE (EQUAL)) (CONS (CONS (CONS (QUOTE G0) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE G1) (CONS (QUOTE (EQUAL)) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER (MAKE-TREE N))) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . V-EQUAL*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . V-EQUAL*) (IMMEDIATE-DEPENDENTS0 INDICES . V-EQUAL*) (IMMEDIATE-DEPENDENTS0 INDEX . V-EQUAL*) (DCELL . *1*V-EQUAL*))))) (PUT1-LST (QUOTE FAST-ZERO$VALUE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE) EVENT (PROVE-LEMMA FAST-ZERO$VALUE (REWRITE) (IMPLIES (AND (FAST-ZERO& NETLIST N) (AND (PROPERP V) (AND (EQUAL (LENGTH V) N) (IF (LESSP N (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE FAST-ZERO) N) V STATE NETLIST) (CONS (F$FAST-ZERO V) (QUOTE NIL)))) ((ENABLE FAST-ZERO& F$FAST-ZERO FAST-ZERO*$DESTRUCTURE T-OR-NOR$VALUE B-NOR3$VALUE) (DISABLE OPEN-INDICES) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-INDICES-HACK . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 FAST-ZERO*$DESTRUCTURE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FIRSTN . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-FIRSTN . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-FIRSTN . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR$VALUE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 F$FAST-ZERO . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . FAST-ZERO$VALUE) (IMMEDIATE-DEPENDENTS0 FAST-ZERO& . FAST-ZERO$VALUE) (LEMMAS DUAL-EVAL . FAST-ZERO$VALUE))))) (PUT1-LST (QUOTE CHECK-FAST-ZERO$NETLIST) (QUOTE (IDATE 1000402194031 EVENT (PROVE-LEMMA CHECK-FAST-ZERO$NETLIST NIL (FAST-ZERO& (FAST-ZERO$NETLIST (QUOTE 5)) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FAST-ZERO$NETLIST . CHECK-FAST-ZERO$NETLIST) (IMMEDIATE-DEPENDENTS0 FAST-ZERO& . CHECK-FAST-ZERO$NETLIST))))) (PUT1-LST (QUOTE *1*FAST-ZERO$NETLIST) (QUOTE (MAIN-EVENT FAST-ZERO$NETLIST))) (PUT1-LST (QUOTE FAST-ZERO$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FAST-ZERO$NETLIST 16 NIL)) TOTALP-LST ((FAST-ZERO$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (FAST-ZERO* N) (UNION (T-OR-NOR$NETLIST (MAKE-TREE (SUB1 (SUB1 N))) (QUOTE *1*FALSE)) (B-NOR3$NETLIST)))) LISP-CODE *1*FAST-ZERO$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*FAST-ZERO$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST CHECK-FAST-ZERO$NETLIST) EVENT (DEFN FAST-ZERO$NETLIST (N) (CONS (FAST-ZERO* N) (UNION (T-OR-NOR$NETLIST (MAKE-TREE (SUB1 (SUB1 N))) (QUOTE *1*FALSE)) (B-NOR3$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3$NETLIST . FAST-ZERO$NETLIST) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . FAST-ZERO$NETLIST) (IMMEDIATE-DEPENDENTS0 T-OR-NOR$NETLIST . FAST-ZERO$NETLIST) (IMMEDIATE-DEPENDENTS0 FAST-ZERO* . FAST-ZERO$NETLIST) (DCELL . *1*FAST-ZERO$NETLIST))))) (PUT1-LST (QUOTE FAST-ZERO&-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE FAST-ZERO&-OFF FAST-ZERO& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FAST-ZERO& . FAST-ZERO&-OFF) (DISABLED-LEMMAS NIL FAST-ZERO& FAST-ZERO&-OFF . T))))) (PUT1-LST (QUOTE *1*FAST-ZERO&) (QUOTE (MAIN-EVENT FAST-ZERO&))) (PUT1-LST (QUOTE FAST-ZERO&) (QUOTE (TYPE-PRESCRIPTION-LST ((FAST-ZERO& 3 NIL NIL)) TOTALP-LST ((FAST-ZERO& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST) (FAST-ZERO* N)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST) (MAKE-TREE (SUB1 (SUB1 N))) (QUOTE *1*FALSE)) (B-NOR3& (DELETE-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FAST-ZERO& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*FAST-ZERO&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& FAST-ZERO$VALUE CHECK-FAST-ZERO$NETLIST FAST-ZERO&-OFF) EVENT (DEFN FAST-ZERO& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST) (FAST-ZERO* N)) (AND (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST) (MAKE-TREE (SUB1 (SUB1 N))) (QUOTE *1*FALSE)) (B-NOR3& (DELETE-MODULE (INDEX (QUOTE FAST-ZERO) N) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3& . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 T-OR-NOR& . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 FAST-ZERO* . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 INDEX . FAST-ZERO&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FAST-ZERO&) (DCELL . *1*FAST-ZERO&))))) (PUT1-LST (QUOTE FAST-ZERO*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE FAST-ZERO*$DESTRUCTURE-OFF FAST-ZERO*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FAST-ZERO*$DESTRUCTURE . FAST-ZERO*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL FAST-ZERO*$DESTRUCTURE FAST-ZERO*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE FAST-ZERO*-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE FAST-ZERO*-OFF FAST-ZERO* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FAST-ZERO* . FAST-ZERO*-OFF) (DISABLED-LEMMAS NIL FAST-ZERO* FAST-ZERO*-OFF . T))))) (PUT1-LST (QUOTE FAST-ZERO*$DESTRUCTURE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (FAST-ZERO$VALUE FAST-ZERO*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA FAST-ZERO*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (FAST-ZERO* N)) (INDEX (QUOTE FAST-ZERO) N)) (AND (EQUAL (CAR (CDR (FAST-ZERO* N))) (INDICES (QUOTE A) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (FAST-ZERO* N)))) (QUOTE (Z))) (AND (EQUAL (CAR (CDR (CDR (CDR (FAST-ZERO* N))))) (CONS (CONS (QUOTE FRONT) (CONS (QUOTE (ZFRONT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (MAKE-TREE (SUB1 (SUB1 N))))) (CONS (FIRSTN (SUB1 (SUB1 N)) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE RESULT) (CONS (QUOTE (Z)) (CONS (QUOTE B-NOR3) (CONS (CONS (QUOTE ZFRONT) (CONS (INDEX (QUOTE A) (SUB1 (SUB1 N))) (CONS (INDEX (QUOTE A) (SUB1 N)) (QUOTE NIL)))) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (FAST-ZERO* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . FAST-ZERO*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . FAST-ZERO*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . FAST-ZERO*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . FAST-ZERO*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . FAST-ZERO*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 FAST-ZERO* . FAST-ZERO*$DESTRUCTURE) (LEMMAS CAR . FAST-ZERO*$DESTRUCTURE) (LEMMAS CAR . FAST-ZERO*$DESTRUCTURE) (LEMMAS CAR . FAST-ZERO*$DESTRUCTURE) (LEMMAS CAR . FAST-ZERO*$DESTRUCTURE) (LEMMAS CAR . FAST-ZERO*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*FAST-ZERO*) (QUOTE (MAIN-EVENT FAST-ZERO*))) (PUT1-LST (QUOTE FAST-ZERO*) (QUOTE (TYPE-PRESCRIPTION-LST ((FAST-ZERO* 16 NIL)) TOTALP-LST ((FAST-ZERO* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE FAST-ZERO) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (QUOTE (Z)) (CONS (CONS (CONS (QUOTE FRONT) (CONS (QUOTE (ZFRONT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (MAKE-TREE (SUB1 (SUB1 N))))) (CONS (FIRSTN (SUB1 (SUB1 N)) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE RESULT) (CONS (QUOTE (Z)) (CONS (QUOTE B-NOR3) (CONS (CONS (QUOTE ZFRONT) (CONS (INDEX (QUOTE A) (SUB1 (SUB1 N))) (CONS (INDEX (QUOTE A) (SUB1 N)) (QUOTE NIL)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LISP-CODE *1*FAST-ZERO* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194031 SATELLITES (*1*FAST-ZERO*) IMMEDIATE-DEPENDENTS0 (FAST-ZERO$NETLIST FAST-ZERO& FAST-ZERO*-OFF FAST-ZERO*$DESTRUCTURE) EVENT (DEFN FAST-ZERO* (N) (CONS (INDEX (QUOTE FAST-ZERO) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (QUOTE (Z)) (CONS (CONS (CONS (QUOTE FRONT) (CONS (QUOTE (ZFRONT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (MAKE-TREE (SUB1 (SUB1 N))))) (CONS (FIRSTN (SUB1 (SUB1 N)) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE RESULT) (CONS (QUOTE (Z)) (CONS (QUOTE B-NOR3) (CONS (CONS (QUOTE ZFRONT) (CONS (INDEX (QUOTE A) (SUB1 (SUB1 N))) (CONS (INDEX (QUOTE A) (SUB1 N)) (QUOTE NIL)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . FAST-ZERO*) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . FAST-ZERO*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . FAST-ZERO*) (IMMEDIATE-DEPENDENTS0 INDICES . FAST-ZERO*) (IMMEDIATE-DEPENDENTS0 INDEX . FAST-ZERO*) (DCELL . *1*FAST-ZERO*))))) (PUT1-LST (QUOTE F$FAST-ZERO=V-ZEROP) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU) EVENT (PROVE-LEMMA F$FAST-ZERO=V-ZEROP (REWRITE) (IMPLIES (AND (BVP V) (IF (LESSP (LENGTH V) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (F$FAST-ZERO V) (V-ZEROP V))) ((USE (F$FAST-ZERO=TR-OR-NOR)) (ENABLE TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-0 . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 BTR-OR-IS-V-NZEROP . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR=BTR-OR-NOR . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 F$FAST-ZERO=TR-OR-NOR . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 V-ZEROP . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 F$FAST-ZERO . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH . F$FAST-ZERO=V-ZEROP) (IMMEDIATE-DEPENDENTS0 BVP . F$FAST-ZERO=V-ZEROP) (LEMMAS F$FAST-ZERO . F$FAST-ZERO=V-ZEROP))))) (PUT1-LST (QUOTE F$FAST-ZERO=TR-OR-NOR) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=V-ZEROP) EVENT (PROVE-LEMMA F$FAST-ZERO=TR-OR-NOR NIL (IMPLIES (AND (PROPERP V) (IF (LESSP (LENGTH V) (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (F$FAST-ZERO V) (TR-OR-NOR V (QUOTE *1*TRUE) (CONS (MAKE-TREE (SUB1 (SUB1 (LENGTH V)))) (QUOTE (0 . 0)))))) ((ENABLE F$FAST-ZERO TR-OR-NOR F-NOR3 F-NOR NTH-RESTN CDR-RESTN) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOR3 . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 NTH-RESTN . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-NOR . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TRESTN . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TFIRSTN . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-MAKE-TREE . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LISTP-MAKE-TREE . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 CDR-RESTN . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-GATES . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F$FAST-ZERO . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LENGTH . F$FAST-ZERO=TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 PROPERP . F$FAST-ZERO=TR-OR-NOR))))) (PUT1-LST (QUOTE F$FAST-ZERO-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE F$FAST-ZERO-OFF F$FAST-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$FAST-ZERO . F$FAST-ZERO-OFF) (DISABLED-LEMMAS NIL F$FAST-ZERO F$FAST-ZERO-OFF . T))))) (PUT1-LST (QUOTE *1*F$FAST-ZERO) (QUOTE (MAIN-EVENT F$FAST-ZERO))) (PUT1-LST (QUOTE F$FAST-ZERO) (QUOTE (TYPE-PRESCRIPTION-LST ((F$FAST-ZERO 131 NIL)) LEMMAS ((REWRITE-RULE F$FAST-ZERO=V-ZEROP ((BVP V) (NOT (LESSP (LENGTH V) (QUOTE 3)))) (EQUAL (F$FAST-ZERO V) (V-ZEROP V)) NIL)) TOTALP-LST ((F$FAST-ZERO . T)) SDEFN (LAMBDA (V) (F-NOR3 (TR-OR-NOR (FIRSTN (SUB1 (SUB1 (LENGTH V))) V) (QUOTE *1*FALSE) (MAKE-TREE (SUB1 (SUB1 (LENGTH V))))) (NTH (SUB1 (SUB1 (LENGTH V))) V) (NTH (SUB1 (LENGTH V)) V))) LISP-CODE *1*F$FAST-ZERO SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194031 SATELLITES (*1*F$FAST-ZERO) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU FAST-ZERO$VALUE F$FAST-ZERO=V-ZEROP F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO-OFF) EVENT (DEFN F$FAST-ZERO (V) (F-NOR3 (TR-OR-NOR (FIRSTN (SUB1 (SUB1 (LENGTH V))) V) (QUOTE *1*FALSE) (MAKE-TREE (SUB1 (SUB1 (LENGTH V))))) (NTH (SUB1 (SUB1 (LENGTH V))) V) (NTH (SUB1 (LENGTH V)) V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . F$FAST-ZERO) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . F$FAST-ZERO) (IMMEDIATE-DEPENDENTS0 LENGTH . F$FAST-ZERO) (IMMEDIATE-DEPENDENTS0 FIRSTN . F$FAST-ZERO) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR . F$FAST-ZERO) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F$FAST-ZERO) (DCELL . *1*F$FAST-ZERO))))) (PUT1-LST (QUOTE F$TV-ZEROP=V-ZEROP) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$V-EQUAL=EQUAL*) EVENT (PROVE-LEMMA F$TV-ZEROP=V-ZEROP (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (F$TV-ZEROP A TREE) (V-ZEROP A))) ((ENABLE F$TV-ZEROP) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 B-NOT . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR=BTR-OR-NOR . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 BTR-OR-IS-V-NZEROP . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 F-GATES . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 V-ZEROP . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 F$TV-ZEROP . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 BVP . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . F$TV-ZEROP=V-ZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH . F$TV-ZEROP=V-ZEROP) (LEMMAS F$TV-ZEROP . F$TV-ZEROP=V-ZEROP))))) (PUT1-LST (QUOTE TV-ZEROP$VALUE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE TV-ZEROP$VALUE-OFF TV-ZEROP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ZEROP$VALUE . TV-ZEROP$VALUE-OFF) (DISABLED-LEMMAS NIL TV-ZEROP$VALUE TV-ZEROP$VALUE-OFF . T))))) (PUT1-LST (QUOTE TV-ZEROP$VALUE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (V-EQUAL$VALUE TV-ZEROP$VALUE-OFF) EVENT (PROVE-LEMMA TV-ZEROP$VALUE (REWRITE) (IMPLIES (AND (TV-ZEROP& NETLIST TREE) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP A))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) A STATE NETLIST) (CONS (F$TV-ZEROP A TREE) (QUOTE NIL)))) ((ENABLE TV-ZEROP& TV-ZEROP*$DESTRUCTURE B-NOT$VALUE T-OR-NOR$VALUE F$TV-ZEROP) (DISABLE-THEORY F-GATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ZEROP*$DESTRUCTURE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR$VALUE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 F$TV-ZEROP . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ZEROP$VALUE) (IMMEDIATE-DEPENDENTS0 TV-ZEROP& . TV-ZEROP$VALUE) (LEMMAS DUAL-EVAL . TV-ZEROP$VALUE))))) (PUT1-LST (QUOTE F$TV-ZEROP-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE F$TV-ZEROP-OFF F$TV-ZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$TV-ZEROP . F$TV-ZEROP-OFF) (DISABLED-LEMMAS NIL F$TV-ZEROP F$TV-ZEROP-OFF . T))))) (PUT1-LST (QUOTE *1*F$TV-ZEROP) (QUOTE (MAIN-EVENT F$TV-ZEROP))) (PUT1-LST (QUOTE F$TV-ZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((F$TV-ZEROP -1 NIL NIL)) LEMMAS ((REWRITE-RULE F$TV-ZEROP=V-ZEROP ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (F$TV-ZEROP A TREE) (V-ZEROP A)) NIL)) TOTALP-LST ((F$TV-ZEROP . T)) SDEFN (LAMBDA (A TREE) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (F-NOT (TR-OR-NOR A (QUOTE *1*FALSE) TREE)) (TR-OR-NOR A (QUOTE *1*TRUE) TREE))) LISP-CODE *1*F$TV-ZEROP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194031 SATELLITES (*1*F$TV-ZEROP) IMMEDIATE-DEPENDENTS0 (F$V-EQUAL F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE F$TV-ZEROP-OFF) EVENT (DEFN F$TV-ZEROP (A TREE) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (F-NOT (TR-OR-NOR A (QUOTE *1*FALSE) TREE)) (TR-OR-NOR A (QUOTE *1*TRUE) TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TR-OR-NOR . F$TV-ZEROP) (IMMEDIATE-DEPENDENTS0 F-NOT . F$TV-ZEROP) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . F$TV-ZEROP) (DCELL . *1*F$TV-ZEROP))))) (PUT1-LST (QUOTE *1*TV-ZEROP$NETLIST) (QUOTE (MAIN-EVENT TV-ZEROP$NETLIST))) (PUT1-LST (QUOTE TV-ZEROP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ZEROP$NETLIST 16 NIL)) TOTALP-LST ((TV-ZEROP$NETLIST . T)) SDEFN (LAMBDA (TREE) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (CONS (TV-ZEROP* TREE) (UNION (T-OR-NOR$NETLIST TREE (QUOTE *1*FALSE)) (B-NOT$NETLIST))) (CONS (TV-ZEROP* TREE) (UNION (T-OR-NOR$NETLIST TREE (QUOTE *1*TRUE)) (B-NOT$NETLIST))))) LISP-CODE *1*TV-ZEROP$NETLIST SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*TV-ZEROP$NETLIST) IMMEDIATE-DEPENDENTS0 (V-EQUAL$NETLIST) EVENT (DEFN TV-ZEROP$NETLIST (TREE) (CONS (TV-ZEROP* TREE) (UNION (T-OR-NOR$NETLIST TREE (NOT (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)))) (B-NOT$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . TV-ZEROP$NETLIST) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ZEROP$NETLIST) (IMMEDIATE-DEPENDENTS0 T-OR-NOR$NETLIST . TV-ZEROP$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-ZEROP* . TV-ZEROP$NETLIST) (DCELL . *1*TV-ZEROP$NETLIST))))) (PUT1-LST (QUOTE TV-ZEROP&-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE TV-ZEROP&-OFF TV-ZEROP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ZEROP& . TV-ZEROP&-OFF) (DISABLED-LEMMAS NIL TV-ZEROP& TV-ZEROP&-OFF . T))))) (PUT1-LST (QUOTE *1*TV-ZEROP&) (QUOTE (MAIN-EVENT TV-ZEROP&))) (PUT1-LST (QUOTE TV-ZEROP&) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ZEROP& 3 NIL NIL)) TOTALP-LST ((TV-ZEROP& . T)) SDEFN (LAMBDA (NETLIST TREE) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST) (TV-ZEROP* TREE)) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST) TREE (QUOTE *1*FALSE)) (B-NOT& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST) TREE (QUOTE *1*TRUE)) (B-NOT& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*TV-ZEROP& SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194031 SATELLITES (*1*TV-ZEROP&) IMMEDIATE-DEPENDENTS0 (V-EQUAL& TV-ZEROP$VALUE TV-ZEROP&-OFF) EVENT (DEFN TV-ZEROP& (NETLIST TREE) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST) (TV-ZEROP* TREE)) (AND (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST) TREE (NOT (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)))) (B-NOT& (DELETE-MODULE (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT& . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 T-OR-NOR& . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 TV-ZEROP* . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ZEROP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TV-ZEROP&) (DCELL . *1*TV-ZEROP&))))) (PUT1-LST (QUOTE TV-ZEROP*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE TV-ZEROP*$DESTRUCTURE-OFF TV-ZEROP*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ZEROP*$DESTRUCTURE . TV-ZEROP*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TV-ZEROP*$DESTRUCTURE TV-ZEROP*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TV-ZEROP*-OFF) (QUOTE (IDATE 1000402194031 EVENT (TOGGLE TV-ZEROP*-OFF TV-ZEROP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ZEROP* . TV-ZEROP*-OFF) (DISABLED-LEMMAS NIL TV-ZEROP* TV-ZEROP*-OFF . T))))) (PUT1-LST (QUOTE TV-ZEROP*$DESTRUCTURE) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (TV-ZEROP$VALUE TV-ZEROP*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TV-ZEROP*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TV-ZEROP* TREE)) (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (TV-ZEROP* TREE))) (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE))) (AND (EQUAL (CAR (CDR (CDR (TV-ZEROP* TREE)))) (QUOTE (OUT))) (AND (EQUAL (CAR (CDR (CDR (CDR (TV-ZEROP* TREE))))) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT-)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE ((G1 (OUT) B-NOT (OUT-))))) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL)))) (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-ZEROP* TREE)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ZEROP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-ZEROP* . TV-ZEROP*$DESTRUCTURE) (LEMMAS CAR . TV-ZEROP*$DESTRUCTURE) (LEMMAS CAR . TV-ZEROP*$DESTRUCTURE) (LEMMAS CAR . TV-ZEROP*$DESTRUCTURE) (LEMMAS CAR . TV-ZEROP*$DESTRUCTURE) (LEMMAS CAR . TV-ZEROP*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TV-ZEROP*) (QUOTE (MAIN-EVENT TV-ZEROP*))) (PUT1-LST (QUOTE TV-ZEROP*) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ZEROP* 16 NIL)) TOTALP-LST ((TV-ZEROP* . T)) SDEFN (LAMBDA (TREE) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT-)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE ((G1 (OUT) B-NOT (OUT-))))) (QUOTE (NIL)))))) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL)) (QUOTE (NIL)))))))) LISP-CODE *1*TV-ZEROP* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194031 SATELLITES (*1*TV-ZEROP*) IMMEDIATE-DEPENDENTS0 (TV-ZEROP$NETLIST TV-ZEROP& TV-ZEROP*-OFF TV-ZEROP*$DESTRUCTURE) EVENT (DEFN TV-ZEROP* (TREE) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT-)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE ((G1 (OUT) B-NOT (OUT-))))) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-ZEROP*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ZEROP*) (IMMEDIATE-DEPENDENTS0 INDICES . TV-ZEROP*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-ZEROP*) (IMMEDIATE-DEPENDENTS0 INDEX . TV-ZEROP*) (DCELL . *1*TV-ZEROP*))))) (PUT1-LST (QUOTE BTR-OR-IS-V-NZEROP) (QUOTE (IDATE 1000402194031 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=V-ZEROP F$TV-ZEROP=V-ZEROP) EVENT (PROVE-LEMMA BTR-OR-IS-V-NZEROP (REWRITE) (IMPLIES (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (BTR-OR-NOR A PARITY TREE) (IF PARITY (V-ZEROP A) (V-NZEROP A)))) ((INDUCT (BTR-OR-NOR A PARITY TREE)) (ENABLE BTR-OR-NOR V-NZEROP TREE-SIZE) (EXPAND (BTR-OR-NOR A PARITY TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-0 . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NZEROP-AS-OR-CROCK . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 NOT-V-NZEROP-AS-AND-CROCK . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 B-OR . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 B-NOR . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 B-BUF . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 B-NOT . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TRESTN . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-NZEROP . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 V-ZEROP . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 BTR-OR-NOR . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . BTR-OR-IS-V-NZEROP) (IMMEDIATE-DEPENDENTS0 LENGTH . BTR-OR-IS-V-NZEROP) (LEMMAS BTR-OR-NOR . BTR-OR-IS-V-NZEROP))))) (PUT1-LST (QUOTE TR-OR-NOR=BTR-OR-NOR) (QUOTE (IDATE 1000402194030 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=V-ZEROP F$TV-ZEROP=V-ZEROP) EVENT (PROVE-LEMMA TR-OR-NOR=BTR-OR-NOR (REWRITE) (IMPLIES (AND (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TR-OR-NOR A PARITY TREE) (BTR-OR-NOR A PARITY TREE))) ((DISABLE TREE-SIZE-NLISTP) (ENABLE FIRSTN RESTN EXPAND-F-FUNCTIONS BTR-OR-NOR TR-OR-NOR BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-NAND . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TRESTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-OR . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-1-CROCK . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BOOLP . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-NOR . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BVP-CONS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 THREEFIX . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-BUF . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 EXPAND-F-FUNCTIONS . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-NOT . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BTR-OR-NOR . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LENGTH . TR-OR-NOR=BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 BVP . TR-OR-NOR=BTR-OR-NOR) (LEMMAS TR-OR-NOR . TR-OR-NOR=BTR-OR-NOR))))) (PUT1-LST (QUOTE BTR-OR-NOR-OFF) (QUOTE (IDATE 1000402194027 EVENT (TOGGLE BTR-OR-NOR-OFF BTR-OR-NOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BTR-OR-NOR . BTR-OR-NOR-OFF) (DISABLED-LEMMAS NIL BTR-OR-NOR BTR-OR-NOR-OFF . T))))) (PUT1-LST (QUOTE *1*BTR-OR-NOR) (QUOTE (MAIN-EVENT BTR-OR-NOR))) (PUT1-LST (QUOTE BTR-OR-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((BTR-OR-NOR 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE BTR-OR-IS-V-NZEROP ((EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (BTR-OR-NOR A PARITY TREE) (IF PARITY (V-ZEROP A) (V-NZEROP A))) NIL)) TOTALP-LST ((BTR-OR-NOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A PARITY TREE) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (B-NOR (BTR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*FALSE) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (QUOTE *1*FALSE) (CDR TREE))) (B-NAND (BTR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*TRUE) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (QUOTE *1*TRUE) (CDR TREE)))) (IF (LISTP (CDR TREE)) (IF PARITY (B-NOR (BTR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*FALSE) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (QUOTE *1*FALSE) (CDR TREE))) (B-NAND (BTR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*TRUE) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (QUOTE *1*TRUE) (CDR TREE)))) (IF PARITY (B-NOR (CAR A) (CAR (CDR A))) (B-OR (CAR A) (CAR (CDR A)))))) (IF PARITY (B-NOT (CAR A)) (B-BUF (CAR A))))) LISP-CODE *1*BTR-OR-NOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE) PARITY) NIL) (TESTS-AND-CASES ((NLISTP TREE) (NOT PARITY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) PARITY) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) (NOT PARITY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) PARITY) (((TRESTN A TREE) (NOT PARITY) (CDR TREE)) ((TFIRSTN A TREE) (NOT PARITY) (CAR TREE)))) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) (NOT PARITY)) (((TRESTN A TREE) (NOT PARITY) (CDR TREE)) ((TFIRSTN A TREE) (NOT PARITY) (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194027 CONTROLLER-POCKETS (4) SATELLITES (*1*BTR-OR-NOR) IMMEDIATE-DEPENDENTS0 (BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR-OFF) EVENT (DEFN BTR-OR-NOR (A PARITY TREE) (IF (NLISTP TREE) (IF PARITY (B-NOT (CAR A)) (B-BUF (CAR A))) (IF (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) (IF PARITY (B-NOR (CAR A) (CAR (CDR A))) (B-OR (CAR A) (CAR (CDR A)))) (IF PARITY (B-NOR (BTR-OR-NOR (TFIRSTN A TREE) (NOT PARITY) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (NOT PARITY) (CDR TREE))) (B-NAND (BTR-OR-NOR (TFIRSTN A TREE) (NOT PARITY) (CAR TREE)) (BTR-OR-NOR (TRESTN A TREE) (NOT PARITY) (CDR TREE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TRESTN . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TFIRSTN . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-OR . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-NOR . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-BUF . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 B-NOT . BTR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BTR-OR-NOR) (DCELL . *1*BTR-OR-NOR))))) (PUT1-LST (QUOTE T-OR-NOR$VALUE-OFF) (QUOTE (IDATE 1000402194027 EVENT (TOGGLE T-OR-NOR$VALUE-OFF T-OR-NOR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-NOR$VALUE . T-OR-NOR$VALUE-OFF) (DISABLED-LEMMAS NIL T-OR-NOR$VALUE T-OR-NOR$VALUE-OFF . T))))) (PUT1-LST (QUOTE T-OR-NOR$VALUE) (QUOTE (IDATE 1000402194027 IMMEDIATE-DEPENDENTS0 (FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE-OFF) EVENT (PROVE-LEMMA T-OR-NOR$VALUE (REWRITE) (IMPLIES (AND (T-OR-NOR& NETLIST TREE PARITY) (AND (EQUAL CALL-NAME (IF PARITY (QUOTE T-NOR) (QUOTE T-OR))) (AND (PROPERP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX CALL-NAME (TREE-NUMBER TREE)) A STATE NETLIST) (CONS (TR-OR-NOR A PARITY TREE) (QUOTE NIL)))) ((INDUCT (T-OR-NOR-INDUCTION TREE PARITY CALL-NAME A STATE NETLIST)) (ENABLE T-OR-NOR*$DESTRUCTURE B-BUF$VALUE B-NAND$VALUE B-NOT$VALUE B-OR$VALUE B-NOR$VALUE TR-OR-NOR) (DISABLE TREE-SIZE-NLISTP) (DISABLE-THEORY F-GATES) (EXPAND (T-OR-NOR& NETLIST TREE (QUOTE *1*FALSE)) (T-OR-NOR& NETLIST TREE PARITY) (TR-OR-NOR A (QUOTE *1*FALSE) TREE) (TR-OR-NOR A PARITY TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TOO-MANY-RESTNS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FIRSTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-FIRSTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-FIRSTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-RESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-RESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-FIRSTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-1-CROCK . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR*$DESTRUCTURE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR-BODY . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TFIRSTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-RESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TRESTN . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR-INDUCTION . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TR-OR-NOR . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . T-OR-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR& . T-OR-NOR$VALUE) (LEMMAS DUAL-EVAL . T-OR-NOR$VALUE))))) (PUT1-LST (QUOTE TR-OR-NOR-OFF) (QUOTE (IDATE 1000402194026 EVENT (TOGGLE TR-OR-NOR-OFF TR-OR-NOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TR-OR-NOR . TR-OR-NOR-OFF) (DISABLED-LEMMAS NIL TR-OR-NOR TR-OR-NOR-OFF . T))))) (PUT1-LST (QUOTE *1*TR-OR-NOR) (QUOTE (MAIN-EVENT TR-OR-NOR))) (PUT1-LST (QUOTE TR-OR-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((TR-OR-NOR -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE TR-OR-NOR=BTR-OR-NOR ((BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (TR-OR-NOR A PARITY TREE) (BTR-OR-NOR A PARITY TREE)) NIL)) TOTALP-LST ((TR-OR-NOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A PARITY TREE) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (F-NOR (TR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*FALSE) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (QUOTE *1*FALSE) (CDR TREE))) (F-NAND (TR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*TRUE) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (QUOTE *1*TRUE) (CDR TREE)))) (IF (LISTP (CDR TREE)) (IF PARITY (F-NOR (TR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*FALSE) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (QUOTE *1*FALSE) (CDR TREE))) (F-NAND (TR-OR-NOR (TFIRSTN A TREE) (QUOTE *1*TRUE) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (QUOTE *1*TRUE) (CDR TREE)))) (IF PARITY (F-NOR (CAR A) (CAR (CDR A))) (F-OR (CAR A) (CAR (CDR A)))))) (IF PARITY (F-NOT (CAR A)) (F-BUF (CAR A))))) LISP-CODE *1*TR-OR-NOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE) PARITY) NIL) (TESTS-AND-CASES ((NLISTP TREE) (NOT PARITY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) PARITY) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) (NOT PARITY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) PARITY) (((TRESTN A TREE) (NOT PARITY) (CDR TREE)) ((TFIRSTN A TREE) (NOT PARITY) (CAR TREE)))) (TESTS-AND-CASES ((NOT (NLISTP TREE)) (NOT (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) (NOT PARITY)) (((TRESTN A TREE) (NOT PARITY) (CDR TREE)) ((TFIRSTN A TREE) (NOT PARITY) (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194026 CONTROLLER-POCKETS (4) SATELLITES (*1*TR-OR-NOR) IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO F$TV-ZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TR-OR-NOR-OFF) EVENT (DEFN TR-OR-NOR (A PARITY TREE) (IF (NLISTP TREE) (IF PARITY (F-NOT (CAR A)) (F-BUF (CAR A))) (IF (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) (IF PARITY (F-NOR (CAR A) (CAR (CDR A))) (F-OR (CAR A) (CAR (CDR A)))) (IF PARITY (F-NOR (TR-OR-NOR (TFIRSTN A TREE) (NOT PARITY) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (NOT PARITY) (CDR TREE))) (F-NAND (TR-OR-NOR (TFIRSTN A TREE) (NOT PARITY) (CAR TREE)) (TR-OR-NOR (TRESTN A TREE) (NOT PARITY) (CDR TREE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NAND . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TRESTN . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-OR . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-NOR . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-BUF . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 F-NOT . TR-OR-NOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TR-OR-NOR) (DCELL . *1*TR-OR-NOR))))) (PUT1-LST (QUOTE *1*T-OR-NOR-INDUCTION) (QUOTE (MAIN-EVENT T-OR-NOR-INDUCTION))) (PUT1-LST (QUOTE T-OR-NOR-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-NOR-INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((T-OR-NOR-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE PARITY CALL-NAME A STATE NETLIST) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (IF (T-OR-NOR-INDUCTION (CAR TREE) (QUOTE *1*FALSE) (QUOTE T-OR) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (T-OR-NOR-INDUCTION (CDR TREE) (QUOTE *1*FALSE) (QUOTE T-OR) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (T-OR-NOR-INDUCTION (CAR TREE) (QUOTE *1*TRUE) (QUOTE T-NOR) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (T-OR-NOR-INDUCTION (CDR TREE) (QUOTE *1*TRUE) (QUOTE T-NOR) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LISTP (CDR TREE)) (IF PARITY (IF (T-OR-NOR-INDUCTION (CAR TREE) (QUOTE *1*FALSE) (QUOTE T-OR) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (T-OR-NOR-INDUCTION (CDR TREE) (QUOTE *1*FALSE) (QUOTE T-OR) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (T-OR-NOR-INDUCTION (CAR TREE) (QUOTE *1*TRUE) (QUOTE T-NOR) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (T-OR-NOR-INDUCTION (CDR TREE) (QUOTE *1*TRUE) (QUOTE T-NOR) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE))) LISP-CODE *1*T-OR-NOR-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))))) (((CDR TREE) (NOT PARITY) (IF (NOT PARITY) (QUOTE T-NOR) (QUOTE T-OR)) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) ((CAR TREE) (NOT PARITY) (IF (NOT PARITY) (QUOTE T-NOR) (QUOTE T-OR)) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP AND OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194026 CONTROLLER-POCKETS (1) SATELLITES (*1*T-OR-NOR-INDUCTION) IMMEDIATE-DEPENDENTS0 (T-OR-NOR$VALUE) EVENT (DEFN T-OR-NOR-INDUCTION (TREE PARITY CALL-NAME A STATE NETLIST) (IF (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) (QUOTE *1*TRUE) (AND (T-OR-NOR-INDUCTION (CAR TREE) (NOT PARITY) (IF (NOT PARITY) (QUOTE T-NOR) (QUOTE T-OR)) (TFIRSTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (T-OR-NOR-INDUCTION (CDR TREE) (NOT PARITY) (IF (NOT PARITY) (QUOTE T-NOR) (QUOTE T-OR)) (TRESTN A TREE) (QUOTE 0) (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . T-OR-NOR-INDUCTION) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . T-OR-NOR-INDUCTION) (IMMEDIATE-DEPENDENTS0 TFIRSTN . T-OR-NOR-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . T-OR-NOR-INDUCTION) (DCELL . *1*T-OR-NOR-INDUCTION))))) (PUT1-LST (QUOTE *1*T-OR-NOR$NETLIST) (QUOTE (MAIN-EVENT T-OR-NOR$NETLIST))) (PUT1-LST (QUOTE T-OR-NOR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-NOR$NETLIST 16 NIL NIL)) TOTALP-LST ((T-OR-NOR$NETLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE PARITY) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (CONS (T-OR-NOR* TREE PARITY) (UNION (T-OR-NOR$NETLIST (CAR TREE) (QUOTE *1*FALSE)) (T-OR-NOR$NETLIST (CDR TREE) (QUOTE *1*FALSE)))) (CONS (T-OR-NOR* TREE (QUOTE *1*FALSE)) (UNION (T-OR-NOR$NETLIST (CAR TREE) (QUOTE *1*TRUE)) (T-OR-NOR$NETLIST (CDR TREE) (QUOTE *1*TRUE))))) (IF (LISTP (CDR TREE)) (IF PARITY (CONS (T-OR-NOR* TREE PARITY) (UNION (T-OR-NOR$NETLIST (CAR TREE) (QUOTE *1*FALSE)) (T-OR-NOR$NETLIST (CDR TREE) (QUOTE *1*FALSE)))) (CONS (T-OR-NOR* TREE (QUOTE *1*FALSE)) (UNION (T-OR-NOR$NETLIST (CAR TREE) (QUOTE *1*TRUE)) (T-OR-NOR$NETLIST (CDR TREE) (QUOTE *1*TRUE))))) (CONS (T-OR-NOR* TREE PARITY) (UNION (UNION (UNION (B-NOT$NETLIST) (B-BUF$NETLIST)) (UNION (B-NOR$NETLIST) (B-OR$NETLIST))) (B-NAND$NETLIST))))) (CONS (T-OR-NOR* TREE PARITY) (UNION (UNION (UNION (B-NOT$NETLIST) (B-BUF$NETLIST)) (UNION (B-NOR$NETLIST) (B-OR$NETLIST))) (B-NAND$NETLIST))))) LISP-CODE *1*T-OR-NOR$NETLIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))))) (((CDR TREE) (NOT PARITY)) ((CAR TREE) (NOT PARITY))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP AND OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194026 CONTROLLER-POCKETS (1) SATELLITES (*1*T-OR-NOR$NETLIST) IMMEDIATE-DEPENDENTS0 (FAST-ZERO$NETLIST TV-ZEROP$NETLIST) EVENT (DEFN T-OR-NOR$NETLIST (TREE PARITY) (IF (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) (CONS (T-OR-NOR* TREE PARITY) (UNION (UNION (UNION (B-NOT$NETLIST) (B-BUF$NETLIST)) (UNION (B-NOR$NETLIST) (B-OR$NETLIST))) (B-NAND$NETLIST))) (CONS (T-OR-NOR* TREE PARITY) (UNION (T-OR-NOR$NETLIST (CAR TREE) (NOT PARITY)) (T-OR-NOR$NETLIST (CDR TREE) (NOT PARITY)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND$NETLIST . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOR$NETLIST . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 T-OR-NOR* . T-OR-NOR$NETLIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . T-OR-NOR$NETLIST) (DCELL . *1*T-OR-NOR$NETLIST))))) (PUT1-LST (QUOTE T-OR-NOR&-OFF) (QUOTE (IDATE 1000402194026 EVENT (TOGGLE T-OR-NOR&-OFF T-OR-NOR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-NOR& . T-OR-NOR&-OFF) (DISABLED-LEMMAS NIL T-OR-NOR& T-OR-NOR&-OFF . T))))) (PUT1-LST (QUOTE *1*T-OR-NOR&) (QUOTE (MAIN-EVENT T-OR-NOR&))) (PUT1-LST (QUOTE T-OR-NOR&) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-NOR& 3 NIL NIL NIL)) TOTALP-LST ((T-OR-NOR& . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST TREE PARITY) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (QUOTE *1*FALSE)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (QUOTE *1*FALSE)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE (QUOTE *1*FALSE))) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (QUOTE *1*TRUE)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (QUOTE *1*TRUE)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LISTP (CDR TREE)) (IF PARITY (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (QUOTE *1*FALSE)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (QUOTE *1*FALSE)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE (QUOTE *1*FALSE))) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (QUOTE *1*TRUE)) (IF (T-OR-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (QUOTE *1*TRUE)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF PARITY (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE (QUOTE *1*FALSE))) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))) (IF PARITY (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE (QUOTE *1*FALSE))) (IF (B-NOT& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-NOR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (IF (B-OR& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))) LISP-CODE *1*T-OR-NOR& SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))))) (((DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (NOT PARITY)) ((DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (NOT PARITY))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP AND OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194026 CONTROLLER-POCKETS (2) SATELLITES (*1*T-OR-NOR&) IMMEDIATE-DEPENDENTS0 (FAST-ZERO& TV-ZEROP& T-OR-NOR$VALUE T-OR-NOR&-OFF) EVENT (DEFN T-OR-NOR& (NETLIST TREE PARITY) (IF (OR (NLISTP TREE) (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE)))) (AND (EQUAL (LOOKUP-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (AND (B-NOT& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-BUF& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-NOR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-OR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST))))))) (AND (EQUAL (LOOKUP-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (T-OR-NOR* TREE PARITY)) (AND (T-OR-NOR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) (NOT PARITY)) (AND (T-OR-NOR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST) (CDR TREE) (NOT PARITY)) (AND (B-NOT& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-BUF& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-NOR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (AND (B-OR& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST)) (B-NAND& (DELETE-MODULE (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) NETLIST))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND& . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 B-OR& . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 B-NOR& . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 B-BUF& . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 B-NOT& . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 T-OR-NOR* . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . T-OR-NOR&) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . T-OR-NOR&) (DCELL . *1*T-OR-NOR&))))) (PUT1-LST (QUOTE T-OR-NOR*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194026 EVENT (TOGGLE T-OR-NOR*$DESTRUCTURE-OFF T-OR-NOR*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-NOR*$DESTRUCTURE . T-OR-NOR*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL T-OR-NOR*$DESTRUCTURE T-OR-NOR*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE T-OR-NOR*-OFF) (QUOTE (IDATE 1000402194026 EVENT (TOGGLE T-OR-NOR*-OFF T-OR-NOR* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-NOR* . T-OR-NOR*-OFF) (DISABLED-LEMMAS NIL T-OR-NOR* T-OR-NOR*-OFF . T))))) (PUT1-LST (QUOTE T-OR-NOR*$DESTRUCTURE) (QUOTE (IDATE 1000402194026 IMMEDIATE-DEPENDENTS0 (T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA T-OR-NOR*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (T-OR-NOR* TREE PARITY)) (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (T-OR-NOR* TREE PARITY))) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE))) (AND (EQUAL (CAR (CDR (CDR (T-OR-NOR* TREE PARITY)))) (QUOTE (OUT))) (AND (EQUAL (CAR (CDR (CDR (CDR (T-OR-NOR* TREE PARITY))))) (T-OR-NOR-BODY TREE PARITY)) (EQUAL (CAR (CDR (CDR (CDR (CDR (T-OR-NOR* TREE PARITY)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TFIRSTN . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TRESTN . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR-BODY . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 T-OR-NOR* . T-OR-NOR*$DESTRUCTURE) (LEMMAS CAR . T-OR-NOR*$DESTRUCTURE) (LEMMAS CAR . T-OR-NOR*$DESTRUCTURE) (LEMMAS CAR . T-OR-NOR*$DESTRUCTURE) (LEMMAS CAR . T-OR-NOR*$DESTRUCTURE) (LEMMAS CAR . T-OR-NOR*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*T-OR-NOR*) (QUOTE (MAIN-EVENT T-OR-NOR*))) (PUT1-LST (QUOTE T-OR-NOR*) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-NOR* 16 NIL NIL)) TOTALP-LST ((T-OR-NOR* . T)) SDEFN (LAMBDA (TREE PARITY) (IF PARITY (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (T-OR-NOR-BODY TREE PARITY) (QUOTE (NIL)))))) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (T-OR-NOR-BODY TREE (QUOTE *1*FALSE)) (QUOTE (NIL)))))))) LISP-CODE *1*T-OR-NOR* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194026 SATELLITES (*1*T-OR-NOR*) IMMEDIATE-DEPENDENTS0 (T-OR-NOR$NETLIST T-OR-NOR& T-OR-NOR*-OFF T-OR-NOR*$DESTRUCTURE) EVENT (DEFN T-OR-NOR* (TREE PARITY) (CONS (INDEX (IF PARITY (QUOTE T-NOR) (QUOTE T-OR)) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE (OUT)) (CONS (T-OR-NOR-BODY TREE PARITY) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-NOR-BODY . T-OR-NOR*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . T-OR-NOR*) (IMMEDIATE-DEPENDENTS0 INDICES . T-OR-NOR*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR*) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR*) (DCELL . *1*T-OR-NOR*))))) (PUT1-LST (QUOTE *1*T-OR-NOR-BODY) (QUOTE (MAIN-EVENT T-OR-NOR-BODY))) (PUT1-LST (QUOTE T-OR-NOR-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-NOR-BODY 16 NIL NIL)) TOTALP-LST ((T-OR-NOR-BODY . T)) SDEFN (LAMBDA (TREE PARITY) (IF (LISTP TREE) (IF (LISTP (CAR TREE)) (IF PARITY (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (CAR TREE))) (CONS (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (CDR TREE))) (CONS (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (QUOTE ((OUTPUT (OUT) B-NOR (LEFT-OUT RIGHT-OUT)))))) (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER (CAR TREE))) (CONS (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER (CDR TREE))) (CONS (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (QUOTE ((OUTPUT (OUT) B-NAND (LEFT-OUT RIGHT-OUT))))))) (IF (LISTP (CDR TREE)) (IF PARITY (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (CAR TREE))) (CONS (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (CDR TREE))) (CONS (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (QUOTE ((OUTPUT (OUT) B-NOR (LEFT-OUT RIGHT-OUT)))))) (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER (CAR TREE))) (CONS (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER (CDR TREE))) (CONS (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (QUOTE ((OUTPUT (OUT) B-NAND (LEFT-OUT RIGHT-OUT))))))) (IF PARITY (QUOTE ((LEAF (OUT) B-NOR ((*1*QUOTE INDEX A 0) (*1*QUOTE INDEX A 1))))) (QUOTE ((LEAF (OUT) B-OR ((*1*QUOTE INDEX A 0) (*1*QUOTE INDEX A 1)))))))) (IF PARITY (QUOTE ((LEAF (OUT) B-NOT ((*1*QUOTE INDEX A 0))))) (QUOTE ((LEAF (OUT) B-BUF ((*1*QUOTE INDEX A 0)))))))) LISP-CODE *1*T-OR-NOR-BODY SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194026 SATELLITES (*1*T-OR-NOR-BODY) IMMEDIATE-DEPENDENTS0 (T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE T-OR-NOR*) EVENT (DEFN T-OR-NOR-BODY (TREE PARITY) (IF (NLISTP TREE) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (OUT)) (CONS (IF PARITY (QUOTE B-NOT) (QUOTE B-BUF)) (QUOTE (((*1*QUOTE INDEX A 0))))))) (QUOTE NIL)) (IF (AND (NLISTP (CAR TREE)) (NLISTP (CDR TREE))) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (OUT)) (CONS (IF PARITY (QUOTE B-NOR) (QUOTE B-OR)) (QUOTE (((*1*QUOTE INDEX A 0) (*1*QUOTE INDEX A 1))))))) (QUOTE NIL)) (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (INDEX (IF PARITY (QUOTE T-OR) (QUOTE T-NOR)) (TREE-NUMBER (CAR TREE))) (CONS (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (INDEX (IF PARITY (QUOTE T-OR) (QUOTE T-NOR)) (TREE-NUMBER (CDR TREE))) (CONS (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE OUTPUT) (CONS (QUOTE (OUT)) (CONS (IF PARITY (QUOTE B-NOR) (QUOTE B-NAND)) (QUOTE ((LEFT-OUT RIGHT-OUT)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . T-OR-NOR-BODY) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . T-OR-NOR-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . T-OR-NOR-BODY) (IMMEDIATE-DEPENDENTS0 TFIRSTN . T-OR-NOR-BODY) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . T-OR-NOR-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . T-OR-NOR-BODY) (DCELL . *1*T-OR-NOR-BODY))))) (PUT1-LST (QUOTE TV-IF$VALUE-OFF) (QUOTE (IDATE 1000402194026 EVENT (TOGGLE TV-IF$VALUE-OFF TV-IF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF$VALUE . TV-IF$VALUE-OFF) (DISABLED-LEMMAS NIL TV-IF$VALUE TV-IF$VALUE-OFF . T))))) (PUT1-LST (QUOTE TV-IF$VALUE) (QUOTE (IDATE 1000402194026 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE CV$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-IF$VALUE-OFF) EVENT (PROVE-LEMMA TV-IF$VALUE (REWRITE) (IMPLIES (AND (TV-IF& NETLIST TREE) (AND (PROPERP A) (AND (PROPERP B) (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE)))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS C (APPEND A B)) STATE NETLIST) (FV-IF C A B))) ((INDUCT (TV-IF-INDUCTION TREE C A B STATE NETLIST)) (ENABLE TV-IF& TV-IF-LEMMA-CROCK TV-IF*$DESTRUCTURE B-BUF$VALUE B-IF$VALUE FV-IF-REWRITE TREE-SIZE) (DISABLE OPEN-INDICES) (EXPAND (TV-IF& NETLIST TREE) (FV-IF C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-X=X . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-V-THREEFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-V-THREEFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN1 . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-DUPLICATES?-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-DISJOINT-FIRSTN-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-FIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF-LEMMA-CROCK . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF*$DESTRUCTURE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF-BODY . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 FV-IF-REWRITE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-RESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF-INDUCTION . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 FV-IF . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . TV-IF$VALUE) (IMMEDIATE-DEPENDENTS0 TV-IF& . TV-IF$VALUE) (LEMMAS DUAL-EVAL . TV-IF$VALUE))))) (PUT1-LST (QUOTE TV-IF-LEMMA-CROCK-OFF) (QUOTE (IDATE 1000402194022 EVENT (TOGGLE TV-IF-LEMMA-CROCK-OFF TV-IF-LEMMA-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF-LEMMA-CROCK . TV-IF-LEMMA-CROCK-OFF) (DISABLED-LEMMAS NIL TV-IF-LEMMA-CROCK TV-IF-LEMMA-CROCK-OFF . T))))) (PUT1-LST (QUOTE TV-IF-LEMMA-CROCK) (QUOTE (IDATE 1000402194022 IMMEDIATE-DEPENDENTS0 (TV-IF$VALUE TV-IF-LEMMA-CROCK-OFF) EVENT (PROVE-LEMMA TV-IF-LEMMA-CROCK (REWRITE) (IMPLIES (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) (QUOTE 0) N) ALIST) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) ALIST) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) ALIST)))) ((USE (COLLECT-VALUE-SPLITTING-CROCK (L (INDICES (QUOTE OUT) (QUOTE 0) N)) (N (TREE-SIZE (CAR TREE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SPLITTING-CROCK . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDICES . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-IF-LEMMA-CROCK) (IMMEDIATE-DEPENDENTS0 TV-IF& . TV-IF-LEMMA-CROCK) (LEMMAS COLLECT-VALUE . TV-IF-LEMMA-CROCK))))) (PUT1-LST (QUOTE *1*TV-IF-INDUCTION) (QUOTE (MAIN-EVENT TV-IF-INDUCTION))) (PUT1-LST (QUOTE TV-IF-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-IF-INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((TV-IF-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE C A B STATE NETLIST) (IF (LISTP TREE) (IF (TV-IF-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-IF-INDUCTION (CAR TREE) (QUOTE (*1*QUOTE X)) (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-IF-INDUCTION (CDR TREE) C (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-IF-INDUCTION (CDR TREE) (QUOTE (*1*QUOTE X)) (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*TV-IF-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE) (QUOTE (*1*QUOTE X)) (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) ((CDR TREE) C (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) ((CAR TREE) (QUOTE (*1*QUOTE X)) (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) ((CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194022 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-IF-INDUCTION) IMMEDIATE-DEPENDENTS0 (TV-IF$VALUE) EVENT (DEFN TV-IF-INDUCTION (TREE C A B STATE NETLIST) (IF (NLISTP TREE) (QUOTE *1*TRUE) (AND (TV-IF-INDUCTION (CAR TREE) C (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (AND (TV-IF-INDUCTION (CAR TREE) (QUOTE (*1*QUOTE X)) (TFIRSTN A TREE) (TFIRSTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (AND (TV-IF-INDUCTION (CDR TREE) C (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (TV-IF-INDUCTION (CDR TREE) (QUOTE (*1*QUOTE X)) (TRESTN A TREE) (TRESTN B TREE) (QUOTE 0) (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 X . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-IF-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-IF-INDUCTION) (DCELL . *1*TV-IF-INDUCTION))))) (PUT1-LST (QUOTE *1*TV-IF$NETLIST) (QUOTE (MAIN-EVENT TV-IF$NETLIST))) (PUT1-LST (QUOTE TV-IF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-IF$NETLIST 16 NIL)) TOTALP-LST ((TV-IF$NETLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (CONS (TV-IF* TREE) (UNION (TV-IF$NETLIST (CAR TREE)) (UNION (TV-IF$NETLIST (CDR TREE)) (B-BUF$NETLIST)))) (CONS (TV-IF* TREE) (B-IF$NETLIST)))) LISP-CODE *1*TV-IF$NETLIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE)) ((CAR TREE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194022 CONTROLLER-POCKETS (1) SATELLITES (*1*TV-IF$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST CHECK-REGFILE$NETLIST REGFILE$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST TV-SHIFT-OR-BUF$NETLIST) EVENT (DEFN TV-IF$NETLIST (TREE) (IF (NLISTP TREE) (CONS (TV-IF* TREE) (B-IF$NETLIST)) (CONS (TV-IF* TREE) (UNION (TV-IF$NETLIST (CAR TREE)) (UNION (TV-IF$NETLIST (CDR TREE)) (B-BUF$NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . TV-IF$NETLIST) (IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . TV-IF$NETLIST) (IMMEDIATE-DEPENDENTS0 TV-IF* . TV-IF$NETLIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-IF$NETLIST) (DCELL . *1*TV-IF$NETLIST))))) (PUT1-LST (QUOTE TV-IF&-OFF) (QUOTE (IDATE 1000402194022 EVENT (TOGGLE TV-IF&-OFF TV-IF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF& . TV-IF&-OFF) (DISABLED-LEMMAS NIL TV-IF& TV-IF&-OFF . T))))) (PUT1-LST (QUOTE *1*TV-IF&) (QUOTE (MAIN-EVENT TV-IF&))) (PUT1-LST (QUOTE TV-IF&) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-IF& 3 NIL NIL)) TOTALP-LST ((TV-IF& . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST TREE) (IF (LISTP TREE) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (TV-IF* TREE)) (IF (B-BUF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (IF (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (IF (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CDR TREE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (TV-IF* TREE)) (B-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (QUOTE *1*FALSE)))) LISP-CODE *1*TV-IF& SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CDR TREE)) ((DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CAR TREE))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194022 CONTROLLER-POCKETS (2) SATELLITES (*1*TV-IF&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& EXTEND-IMMEDIATE& REGFILE& CV& TV-SHIFT-OR-BUF& TV-IF$VALUE TV-IF-LEMMA-CROCK TV-IF&-OFF) EVENT (DEFN TV-IF& (NETLIST TREE) (IF (NLISTP TREE) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (TV-IF* TREE)) (B-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST))) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (TV-IF* TREE)) (AND (B-BUF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST)) (AND (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CAR TREE)) (TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CDR TREE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF& . TV-IF&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TV-IF&) (IMMEDIATE-DEPENDENTS0 B-IF& . TV-IF&) (IMMEDIATE-DEPENDENTS0 TV-IF* . TV-IF&) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF&) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TV-IF&) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-IF&) (DCELL . *1*TV-IF&))))) (PUT1-LST (QUOTE TV-IF*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194022 EVENT (TOGGLE TV-IF*$DESTRUCTURE-OFF TV-IF*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF*$DESTRUCTURE . TV-IF*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL TV-IF*$DESTRUCTURE TV-IF*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE TV-IF*-OFF) (QUOTE (IDATE 1000402194022 EVENT (TOGGLE TV-IF*-OFF TV-IF* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF* . TV-IF*-OFF) (DISABLED-LEMMAS NIL TV-IF* TV-IF*-OFF . T))))) (PUT1-LST (QUOTE TV-IF*$DESTRUCTURE) (QUOTE (IDATE 1000402194022 IMMEDIATE-DEPENDENTS0 (TV-IF$VALUE TV-IF*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA TV-IF*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (TV-IF* TREE)) (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE))) (AND (EQUAL (CAR (CDR (TV-IF* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE))))) (AND (EQUAL (CAR (CDR (CDR (TV-IF* TREE)))) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))) (AND (EQUAL (CAR (CDR (CDR (CDR (TV-IF* TREE))))) (TV-IF-BODY TREE)) (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-IF* TREE)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TRESTN . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-IF-BODY . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 TV-IF* . TV-IF*$DESTRUCTURE) (LEMMAS CAR . TV-IF*$DESTRUCTURE) (LEMMAS CAR . TV-IF*$DESTRUCTURE) (LEMMAS CAR . TV-IF*$DESTRUCTURE) (LEMMAS CAR . TV-IF*$DESTRUCTURE) (LEMMAS CAR . TV-IF*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*TV-IF*) (QUOTE (MAIN-EVENT TV-IF*))) (PUT1-LST (QUOTE TV-IF*) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-IF* 16 NIL)) TOTALP-LST ((TV-IF* . T)) SDEFN (LAMBDA (TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (TV-IF-BODY TREE) (QUOTE (NIL))))))) LISP-CODE *1*TV-IF* SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194022 SATELLITES (*1*TV-IF*) IMMEDIATE-DEPENDENTS0 (TV-IF$NETLIST TV-IF& TV-IF*-OFF TV-IF*$DESTRUCTURE) EVENT (DEFN TV-IF* (TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (TV-IF-BODY TREE) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-IF-BODY . TV-IF*) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-IF*) (IMMEDIATE-DEPENDENTS0 INDICES . TV-IF*) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF*) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF*) (DCELL . *1*TV-IF*))))) (PUT1-LST (QUOTE *1*TV-IF-BODY) (QUOTE (MAIN-EVENT TV-IF-BODY))) (PUT1-LST (QUOTE TV-IF-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-IF-BODY 16 NIL)) TOTALP-LST ((TV-IF-BODY . T)) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 3)) (QUOTE 0)) (APPEND (QUOTE ((C-BUF (C-BUF) B-BUF (C)))) (CONS (CONS (QUOTE LEFT) (CONS (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C-BUF) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE C-BUF) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (QUOTE NIL)))) (APPEND (QUOTE NIL) (CONS (CONS (QUOTE LEFT) (CONS (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CAR TREE))) (CONS (CONS (QUOTE C) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CDR TREE))) (CONS (CONS (QUOTE C) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (QUOTE NIL))))) (QUOTE ((LEAF ((*1*QUOTE INDEX OUT 0)) B-IF (C (*1*QUOTE INDEX A 0) (*1*QUOTE INDEX B 0))))))) LISP-CODE *1*TV-IF-BODY SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194022 SATELLITES (*1*TV-IF-BODY) IMMEDIATE-DEPENDENTS0 (TV-IF$VALUE TV-IF*$DESTRUCTURE TV-IF*) EVENT (DEFN TV-IF-BODY (TREE) (IF (NLISTP TREE) (QUOTE ((LEAF ((*1*QUOTE INDEX OUT 0)) B-IF (C (*1*QUOTE INDEX A 0) (*1*QUOTE INDEX B 0))))) (APPEND (IF (ZEROP (REMAINDER (TREE-HEIGHT TREE) (QUOTE 3))) (QUOTE ((C-BUF (C-BUF) B-BUF (C)))) (QUOTE NIL)) (CONS (CONS (QUOTE LEFT) (CONS (TFIRSTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CAR TREE))) (CONS (CONS (IF (ZEROP (REMAINDER (TREE-HEIGHT TREE) (QUOTE 3))) (QUOTE C-BUF) (QUOTE C)) (APPEND (TFIRSTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TFIRSTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (TRESTN (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) TREE) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (CDR TREE))) (CONS (CONS (IF (ZEROP (REMAINDER (TREE-HEIGHT TREE) (QUOTE 3))) (QUOTE C-BUF) (QUOTE C)) (APPEND (TRESTN (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) TREE) (TRESTN (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) TREE))) (QUOTE NIL))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 INDICES . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TV-IF-BODY) (IMMEDIATE-DEPENDENTS0 INDEX . TV-IF-BODY) (DCELL . *1*TV-IF-BODY))))) (PUT1-LST (QUOTE TV-ADDER-AS-P-G-SUM-OFF) (QUOTE (IDATE 1000402194021 EVENT (TOGGLE TV-ADDER-AS-P-G-SUM-OFF TV-ADDER-AS-P-G-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ADDER-AS-P-G-SUM . TV-ADDER-AS-P-G-SUM-OFF) (DISABLED-LEMMAS NIL TV-ADDER-AS-P-G-SUM TV-ADDER-AS-P-G-SUM-OFF . T))))) (PUT1-LST (QUOTE CDDR-TV-ADDER-AS-SUM-OFF) (QUOTE (IDATE 1000402194021 EVENT (TOGGLE CDDR-TV-ADDER-AS-SUM-OFF CDDR-TV-ADDER-AS-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDDR-TV-ADDER-AS-SUM . CDDR-TV-ADDER-AS-SUM-OFF) (DISABLED-LEMMAS NIL CDDR-TV-ADDER-AS-SUM CDDR-TV-ADDER-AS-SUM-OFF . T))))) (PUT1-LST (QUOTE CADR-TV-ADDER-AS-G-OFF) (QUOTE (IDATE 1000402194021 EVENT (TOGGLE CADR-TV-ADDER-AS-G-OFF CADR-TV-ADDER-AS-G T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CADR-TV-ADDER-AS-G . CADR-TV-ADDER-AS-G-OFF) (DISABLED-LEMMAS NIL CADR-TV-ADDER-AS-G CADR-TV-ADDER-AS-G-OFF . T))))) (PUT1-LST (QUOTE CAR-TV-ADDER-AS-P-OFF) (QUOTE (IDATE 1000402194021 EVENT (TOGGLE CAR-TV-ADDER-AS-P-OFF CAR-TV-ADDER-AS-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-TV-ADDER-AS-P . CAR-TV-ADDER-AS-P-OFF) (DISABLED-LEMMAS NIL CAR-TV-ADDER-AS-P CAR-TV-ADDER-AS-P-OFF . T))))) (PUT1-LST (QUOTE TV-ADDER-AS-P-G-SUM) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-DEC-PASS-WORKS TV-ADDER-AS-P-G-SUM-OFF) EVENT (PROVE-LEMMA TV-ADDER-AS-P-G-SUM (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (TV-ADDER C A B TREE) (CONS (V-PROPAGATE A B) (CONS (V-GENERATE A B) (V-SUM C A B))))) ((DISABLE TV-ADDER BOOLP) (USE (EQUALITY-OF-THREE-ELEMENT-LISTS (W (TV-ADDER C A B TREE)) (X (V-PROPAGATE A B)) (Y (V-GENERATE A B)) (Z (V-SUM C A B)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-TV-ADDER-AS-P . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 CADR-TV-ADDER-AS-G . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 CDDR-TV-ADDER-AS-SUM . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 EQUALITY-OF-THREE-ELEMENT-LISTS . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 V-GENERATE . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TV-ADDER-AS-P-G-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH . TV-ADDER-AS-P-G-SUM) (LEMMAS TV-ADDER . TV-ADDER-AS-P-G-SUM))))) (PUT1-LST (QUOTE EQUALITY-OF-THREE-ELEMENT-LISTS) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (TV-ADDER-AS-P-G-SUM) EVENT (PROVE-LEMMA EQUALITY-OF-THREE-ELEMENT-LISTS NIL (IMPLIES (AND (NOT (EQUAL X (QUOTE 0))) (AND (NOT (EQUAL Y (QUOTE 0))) (NOT (EQUAL Z (QUOTE 0))))) (EQUAL (EQUAL W (CONS X (CONS Y Z))) (AND (EQUAL (CAR W) X) (AND (EQUAL (CAR (CDR W)) Y) (EQUAL (CDR (CDR W)) Z))))))))) (PUT1-LST (QUOTE CDDR-TV-ADDER-AS-SUM) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CDDR-TV-ADDER-AS-SUM-OFF TV-ADDER-AS-P-G-SUM) EVENT (PROVE-LEMMA CDDR-TV-ADDER-AS-SUM (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ADDER C A B TREE))) (V-SUM C A B))) ((INDUCT (TV-ADDER C A B TREE)) (DISABLE B-AND T-CARRY V-APPEND-PROPAGATE) (ENABLE V-SUM V-PROPAGATE-APPEND) (EXPAND (TV-ADDER C A B TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 CAR-TV-ADDER-AS-P . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 CADR-TV-ADDER-AS-G . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 T-CARRY-P-G-CARRY . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE-APPEND . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 APPEND-SUM . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 B-OR3 . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 B-AND . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 B-XOR . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 B-OR . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 TFIRSTN . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 TRESTN . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 TV-ADDER . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CDDR-TV-ADDER-AS-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH . CDDR-TV-ADDER-AS-SUM) (LEMMAS CDR . CDDR-TV-ADDER-AS-SUM))))) (PUT1-LST (QUOTE CADR-TV-ADDER-AS-G) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CADR-TV-ADDER-AS-G-OFF TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM) EVENT (PROVE-LEMMA CADR-TV-ADDER-AS-G (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CAR (CDR (TV-ADDER C A B TREE))) (V-GENERATE A B))) ((INDUCT (TV-ADDER C A B TREE)) (DISABLE B-AND V-APPEND-PROPAGATE T-CARRY-P-G-CARRY) (ENABLE V-PROPAGATE V-GENERATE V-PROPAGATE-APPEND) (EXPAND (TV-ADDER C A B TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GENERATE-APPEND . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 CAR-TV-ADDER-AS-P . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE-APPEND . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 B-OR . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TFIRSTN . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TRESTN . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 V-GENERATE . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TV-ADDER . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CADR-TV-ADDER-AS-G) (IMMEDIATE-DEPENDENTS0 LENGTH . CADR-TV-ADDER-AS-G) (LEMMAS CAR . CADR-TV-ADDER-AS-G))))) (PUT1-LST (QUOTE CAR-TV-ADDER-AS-P) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CAR-TV-ADDER-AS-P-OFF TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G) EVENT (PROVE-LEMMA CAR-TV-ADDER-AS-P (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CAR (TV-ADDER C A B TREE)) (V-PROPAGATE A B))) ((INDUCT (TV-ADDER C A B TREE)) (DISABLE B-AND V-APPEND-PROPAGATE) (ENABLE V-PROPAGATE-APPEND V-PROPAGATE) (EXPAND (TV-ADDER C A B TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE-APPEND . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-LEMMAS . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 B-OR . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TFIRSTN . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TRESTN . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TV-ADDER . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . CAR-TV-ADDER-AS-P) (IMMEDIATE-DEPENDENTS0 LENGTH . CAR-TV-ADDER-AS-P) (LEMMAS CAR . CAR-TV-ADDER-AS-P))))) (PUT1-LST (QUOTE TV-ADDER-OFF) (QUOTE (IDATE 1000402194021 EVENT (TOGGLE TV-ADDER-OFF TV-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TV-ADDER . TV-ADDER-OFF) (DISABLED-LEMMAS NIL TV-ADDER TV-ADDER-OFF . T))))) (PUT1-LST (QUOTE *1*TV-ADDER) (QUOTE (MAIN-EVENT TV-ADDER))) (PUT1-LST (QUOTE TV-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((TV-ADDER 16 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE TV-ADDER-AS-P-G-SUM ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (TV-ADDER C A B TREE) (CONS (V-PROPAGATE A B) (CONS (V-GENERATE A B) (V-SUM C A B)))) NIL)) TOTALP-LST ((TV-ADDER . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B TREE) (IF (LISTP TREE) (CONS (B-AND (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE)))) (CONS (T-CARRY (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE)))) (CAR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))) (CAR (CDR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))))) (APPEND (CDR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE)))) (CDR (CDR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))))))) (CONS (B-OR (CAR A) (CAR B)) (CONS (B-AND (CAR A) (CAR B)) (CONS (B-XOR (CAR A) (B-XOR (CAR B) C)) (QUOTE NIL)))))) LISP-CODE *1*TV-ADDER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE)) (C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194021 CONTROLLER-POCKETS (8) SATELLITES (*1*TV-ADDER) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER-OFF) EVENT (DEFN TV-ADDER (C A B TREE) (IF (NLISTP TREE) (CONS (B-OR (CAR A) (CAR B)) (CONS (B-AND (CAR A) (CAR B)) (CONS (B-XOR (CAR A) (B-XOR (CAR B) C)) (QUOTE NIL)))) (CONS (B-AND (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE)))) (CONS (T-CARRY (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE)))) (CAR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))) (CAR (CDR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))))) (APPEND (CDR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE)))) (CDR (CDR (TV-ADDER (T-CARRY C (CAR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))) (CAR (CDR (TV-ADDER C (TFIRSTN A TREE) (TFIRSTN B TREE) (CAR TREE))))) (TRESTN A TREE) (TRESTN B TREE) (CDR TREE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRESTN . TV-ADDER) (IMMEDIATE-DEPENDENTS0 T-CARRY . TV-ADDER) (IMMEDIATE-DEPENDENTS0 TFIRSTN . TV-ADDER) (IMMEDIATE-DEPENDENTS0 B-XOR . TV-ADDER) (IMMEDIATE-DEPENDENTS0 B-AND . TV-ADDER) (IMMEDIATE-DEPENDENTS0 B-OR . TV-ADDER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TV-ADDER) (DCELL . *1*TV-ADDER))))) (PUT1-LST (QUOTE V-ADDER-CARRY-OUT=V-CARRY) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ADDER-CARRY-OUT=V-CARRY-ON V-ADDER-CARRY-OUT=V-CARRY-OFF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU) EVENT (PROVE-LEMMA V-ADDER-CARRY-OUT=V-CARRY (REWRITE) (EQUAL (V-ADDER-CARRY-OUT C A B) (V-CARRY C A B)) ((ENABLE V-ADDER V-CARRY NTH RESTN LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 B-AND . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 B-OR . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 NTH . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 V-CARRY . V-ADDER-CARRY-OUT=V-CARRY) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT . V-ADDER-CARRY-OUT=V-CARRY) (LEMMAS V-ADDER-CARRY-OUT . V-ADDER-CARRY-OUT=V-CARRY))))) (PUT1-LST (QUOTE V-ADDER-OUTPUT=V-SUM) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-ADDER-OUTPUT=V-SUM-OFF1 V-ADDER-OUTPUT=V-SUM-ON V-ADDER-OUTPUT=V-SUM-OFF CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-WORKS F$V-INC4$V=V-INC) EVENT (PROVE-LEMMA V-ADDER-OUTPUT=V-SUM (REWRITE) (EQUAL (V-ADDER-OUTPUT C A B) (V-SUM C A B)) ((ENABLE V-ADDER V-SUM FIRSTN LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 B-OR . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 FIRSTN . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 B-AND . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 B-OR3 . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . V-ADDER-OUTPUT=V-SUM) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-ADDER-OUTPUT=V-SUM) (LEMMAS V-ADDER-OUTPUT . V-ADDER-OUTPUT=V-SUM))))) (PUT1-LST (QUOTE T-CARRY-P-G-CARRY) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CDDR-TV-ADDER-AS-SUM) EVENT (PROVE-LEMMA T-CARRY-P-G-CARRY (REWRITE) (EQUAL (T-CARRY C (V-PROPAGATE A B) (V-GENERATE A B)) (V-CARRY C A B)) ((ENABLE T-CARRY V-PROPAGATE V-GENERATE V-CARRY BOOLFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 BOOLFIX . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 B-AND . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOR . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOT . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 AO6 . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 V-CARRY . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 V-GENERATE . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . T-CARRY-P-G-CARRY) (IMMEDIATE-DEPENDENTS0 T-CARRY . T-CARRY-P-G-CARRY) (LEMMAS T-CARRY . T-CARRY-P-G-CARRY))))) (PUT1-LST (QUOTE APPEND-SUM) (QUOTE (IDATE 1000402194021 IMMEDIATE-DEPENDENTS0 (CDDR-TV-ADDER-AS-SUM) EVENT (PROVE-LEMMA APPEND-SUM (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (LENGTH B)) (EQUAL C2 (V-CARRY C1 A B))) (EQUAL (APPEND (V-SUM C1 A B) (V-SUM C2 C D)) (V-SUM C1 (APPEND A C) (APPEND B D)))) ((ENABLE LENGTH V-CARRY APPEND V-SUM BOOLFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SUM-CONGRUENCE . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 BOOLFIX . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 B-AND . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 B-OR3 . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 B-XOR . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 V-CARRY . APPEND-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH . APPEND-SUM) (LEMMAS APPEND . APPEND-SUM))))) (PUT1-LST (QUOTE GENERATE-APPEND) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (CADR-TV-ADDER-AS-G) EVENT (PROVE-LEMMA GENERATE-APPEND (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH C)) (EQUAL (T-CARRY (V-GENERATE A C) (V-PROPAGATE B D) (V-GENERATE B D)) (V-GENERATE (APPEND A B) (APPEND C D)))) ((ENABLE LENGTH T-CARRY V-GENERATE V-PROPAGATE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 V-APPEND-PROPAGATE . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 B-AND . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 B-NOR . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 B-NOT . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 AO6 . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 V-GENERATE . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 T-CARRY . GENERATE-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . GENERATE-APPEND) (LEMMAS T-CARRY . GENERATE-APPEND))))) (PUT1-LST (QUOTE V-PROPAGATE-APPEND-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE V-PROPAGATE-APPEND-OFF V-PROPAGATE-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PROPAGATE-APPEND . V-PROPAGATE-APPEND-OFF) (DISABLED-LEMMAS NIL V-PROPAGATE-APPEND V-PROPAGATE-APPEND-OFF . T))))) (PUT1-LST (QUOTE V-PROPAGATE-APPEND) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P V-PROPAGATE-APPEND-OFF) EVENT (PROVE-LEMMA V-PROPAGATE-APPEND (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH C)) (EQUAL (B-AND (V-PROPAGATE A C) (V-PROPAGATE B D)) (V-PROPAGATE (APPEND A B) (APPEND C D))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-APPEND-PROPAGATE . V-PROPAGATE-APPEND) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . V-PROPAGATE-APPEND) (IMMEDIATE-DEPENDENTS0 B-AND . V-PROPAGATE-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . V-PROPAGATE-APPEND) (LEMMAS B-AND . V-PROPAGATE-APPEND))))) (PUT1-LST (QUOTE V-APPEND-PROPAGATE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (GENERATE-APPEND V-PROPAGATE-APPEND) EVENT (PROVE-LEMMA V-APPEND-PROPAGATE (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH C)) (EQUAL (V-PROPAGATE (APPEND A B) (APPEND C D)) (AND (V-PROPAGATE A C) (V-PROPAGATE B D)))) ((ENABLE LENGTH V-PROPAGATE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-APPEND-PROPAGATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-APPEND-PROPAGATE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-APPEND-PROPAGATE) (IMMEDIATE-DEPENDENTS0 V-PROPAGATE . V-APPEND-PROPAGATE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-APPEND-PROPAGATE) (LEMMAS V-PROPAGATE . V-APPEND-PROPAGATE))))) (PUT1-LST (QUOTE T-CARRY$VALUE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE T-CARRY$VALUE-OFF T-CARRY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-CARRY$VALUE . T-CARRY$VALUE-OFF) (DISABLED-LEMMAS NIL T-CARRY$VALUE T-CARRY$VALUE-OFF . T))))) (PUT1-LST (QUOTE T-CARRY$VALUE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE TV-ALU-HELP$VALUE T-CARRY$VALUE-OFF) EVENT (PROVE-LEMMA T-CARRY$VALUE (REWRITE) (IMPLIES (T-CARRY& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-CARRY) (CONS C (CONS PROP (CONS GEN (QUOTE NIL)))) STATE NETLIST) (CONS (F$T-CARRY C PROP GEN) (QUOTE NIL)))) ((ENABLE T-CARRY& F$T-CARRY B-NOT$VALUE AO6$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 AO6$VALUE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 T-CARRY* . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 F$T-CARRY . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . T-CARRY$VALUE) (IMMEDIATE-DEPENDENTS0 T-CARRY& . T-CARRY$VALUE) (LEMMAS DUAL-EVAL . T-CARRY$VALUE))))) (PUT1-LST (QUOTE *1*T-CARRY$NETLIST) (QUOTE (MAIN-EVENT T-CARRY$NETLIST))) (PUT1-LST (QUOTE T-CARRY$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((T-CARRY$NETLIST 16)) TOTALP-LST ((T-CARRY$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (T-CARRY*) (UNION (AO6$NETLIST) (B-NOT$NETLIST)))) LISP-CODE *1*T-CARRY$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194020 SATELLITES (*1*T-CARRY$NETLIST) IMMEDIATE-DEPENDENTS0 (CORE-ALU$NETLIST TV-ALU-HELP$NETLIST) EVENT (DEFN T-CARRY$NETLIST NIL (CONS (T-CARRY*) (UNION (AO6$NETLIST) (B-NOT$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . T-CARRY$NETLIST) (IMMEDIATE-DEPENDENTS0 AO6$NETLIST . T-CARRY$NETLIST) (IMMEDIATE-DEPENDENTS0 T-CARRY* . T-CARRY$NETLIST) (DCELL . *1*T-CARRY$NETLIST))))) (PUT1-LST (QUOTE T-CARRY&-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE T-CARRY&-OFF T-CARRY& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-CARRY& . T-CARRY&-OFF) (DISABLED-LEMMAS NIL T-CARRY& T-CARRY&-OFF . T))))) (PUT1-LST (QUOTE *1*T-CARRY&) (QUOTE (MAIN-EVENT T-CARRY&))) (PUT1-LST (QUOTE T-CARRY&) (QUOTE (TYPE-PRESCRIPTION-LST ((T-CARRY& 3 NIL)) TOTALP-LST ((T-CARRY& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE T-CARRY) NETLIST) (T-CARRY*)) (IF (AO6& (DELETE-MODULE (QUOTE T-CARRY) NETLIST)) (B-NOT& (DELETE-MODULE (QUOTE T-CARRY) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*T-CARRY& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194020 SATELLITES (*1*T-CARRY&) IMMEDIATE-DEPENDENTS0 (CORE-ALU& TV-ALU-HELP& T-CARRY$VALUE T-CARRY&-OFF) EVENT (DEFN T-CARRY& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE T-CARRY) NETLIST) (T-CARRY*)) (AND (AO6& (DELETE-MODULE (QUOTE T-CARRY) NETLIST)) (B-NOT& (DELETE-MODULE (QUOTE T-CARRY) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT& . T-CARRY&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . T-CARRY&) (IMMEDIATE-DEPENDENTS0 AO6& . T-CARRY&) (IMMEDIATE-DEPENDENTS0 T-CARRY* . T-CARRY&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . T-CARRY&) (DCELL . *1*T-CARRY&))))) (PUT1-LST (QUOTE *1*T-CARRY*) (QUOTE (MAIN-EVENT T-CARRY*))) (PUT1-LST (QUOTE T-CARRY*) (QUOTE (TYPE-PRESCRIPTION-LST ((T-CARRY* 16)) TOTALP-LST ((T-CARRY* . T)) SDEFN (LAMBDA NIL (QUOTE (T-CARRY (C PROP GEN) (Z) ((G0 (Z-) AO6 (C PROP GEN)) (G1 (Z) B-NOT (Z-))) NIL))) LISP-CODE *1*T-CARRY* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194020 SATELLITES (*1*T-CARRY*) IMMEDIATE-DEPENDENTS0 (T-CARRY$VALUE T-CARRY$NETLIST T-CARRY&) EVENT (DEFN T-CARRY* NIL (QUOTE (T-CARRY (C PROP GEN) (Z) ((G0 (Z-) AO6 (C PROP GEN)) (G1 (Z) B-NOT (Z-))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*T-CARRY*))))) (PUT1-LST (QUOTE T-CARRY-CONGRUENCE) (QUOTE (IDATE 1000402194020 EVENT (PROVE-LEMMA T-CARRY-CONGRUENCE (REWRITE) (IMPLIES X (EQUAL (EQUAL (T-CARRY X P G) (T-CARRY (QUOTE *1*TRUE) P G)) (QUOTE *1*TRUE))) ((ENABLE T-CARRY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . T-CARRY-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NOR . T-CARRY-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-NOT . T-CARRY-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 AO6 . T-CARRY-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 T-CARRY . T-CARRY-CONGRUENCE) (LEMMAS EQUAL . T-CARRY-CONGRUENCE))))) (PUT1-LST (QUOTE F$T-CARRY=T-CARRY) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (F$CORE-ALU=CORE-ALU F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP) EVENT (PROVE-LEMMA F$T-CARRY=T-CARRY (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BOOLP PROP) (BOOLP GEN))) (EQUAL (F$T-CARRY C PROP GEN) (T-CARRY C PROP GEN))) ((ENABLE F$T-CARRY T-CARRY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 B-OR . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOR . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOT . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 AO6 . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 T-CARRY . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 F$T-CARRY . F$T-CARRY=T-CARRY) (IMMEDIATE-DEPENDENTS0 BOOLP . F$T-CARRY=T-CARRY) (LEMMAS F$T-CARRY . F$T-CARRY=T-CARRY))))) (PUT1-LST (QUOTE T-CARRY-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE T-CARRY-OFF T-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-CARRY . T-CARRY-OFF) (DISABLED-LEMMAS NIL T-CARRY T-CARRY-OFF . T))))) (PUT1-LST (QUOTE *1*T-CARRY) (QUOTE (MAIN-EVENT T-CARRY))) (PUT1-LST (QUOTE T-CARRY) (QUOTE (TYPE-PRESCRIPTION-LST ((T-CARRY 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE T-CARRY-P-G-CARRY NIL (EQUAL (T-CARRY C (V-PROPAGATE A B) (V-GENERATE A B)) (V-CARRY C A B)) NIL) (REWRITE-RULE GENERATE-APPEND ((EQUAL (LENGTH A) (LENGTH C))) (EQUAL (T-CARRY (V-GENERATE A C) (V-PROPAGATE B D) (V-GENERATE B D)) (V-GENERATE (APPEND A B) (APPEND C D))) NIL)) TOTALP-LST ((T-CARRY . T)) SDEFN (LAMBDA (C PROP GEN) (B-NOT (AO6 C PROP GEN))) LISP-CODE *1*T-CARRY SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194020 SATELLITES (*1*T-CARRY) IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU TV-ALU-HELP-ZERO TV-ALU-HELP TV-DEC-PASS-CROCK-1 TV-ADDER T-CARRY-P-G-CARRY GENERATE-APPEND T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY T-CARRY-OFF) EVENT (DEFN T-CARRY (C PROP GEN) (B-NOT (AO6 C PROP GEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6 . T-CARRY) (IMMEDIATE-DEPENDENTS0 B-NOT . T-CARRY) (DCELL . *1*T-CARRY))))) (PUT1-LST (QUOTE F$T-CARRY-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE F$T-CARRY-OFF F$T-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F$T-CARRY . F$T-CARRY-OFF) (DISABLED-LEMMAS NIL F$T-CARRY F$T-CARRY-OFF . T))))) (PUT1-LST (QUOTE *1*F$T-CARRY) (QUOTE (MAIN-EVENT F$T-CARRY))) (PUT1-LST (QUOTE F$T-CARRY) (QUOTE (TYPE-PRESCRIPTION-LST ((F$T-CARRY 131 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$T-CARRY=T-CARRY ((BOOLP C) (BOOLP PROP) (BOOLP GEN)) (EQUAL (F$T-CARRY C PROP GEN) (T-CARRY C PROP GEN)) NIL)) TOTALP-LST ((F$T-CARRY . T)) SDEFN (LAMBDA (C PROP GEN) (F-OR (F-AND C PROP) GEN)) LISP-CODE *1*F$T-CARRY SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194020 SATELLITES (*1*F$T-CARRY) IMMEDIATE-DEPENDENTS0 (F$CORE-ALU TV-ALU-HELP-INDUCTION F$TV-ALU-HELP T-CARRY$VALUE F$T-CARRY=T-CARRY F$T-CARRY-OFF) EVENT (DEFN F$T-CARRY (C PROP GEN) (F-OR (F-AND C PROP) GEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F$T-CARRY) (IMMEDIATE-DEPENDENTS0 F-OR . F$T-CARRY) (DCELL . *1*F$T-CARRY))))) (PUT1-LST (QUOTE V-GENERATE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE V-GENERATE-OFF V-GENERATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-GENERATE . V-GENERATE-OFF) (DISABLED-LEMMAS NIL V-GENERATE V-GENERATE-OFF . T))))) (PUT1-LST (QUOTE *1*V-GENERATE) (QUOTE (MAIN-EVENT V-GENERATE))) (PUT1-LST (QUOTE V-GENERATE) (QUOTE (TYPE-PRESCRIPTION-LST ((V-GENERATE 3 NIL NIL)) TOTALP-LST ((V-GENERATE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (IF (V-GENERATE (CDR A) (CDR B)) (QUOTE *1*TRUE) (IF (CAR A) (IF (CAR B) (V-PROPAGATE (CDR A) (CDR B)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*V-GENERATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194020 CONTROLLER-POCKETS (1) SATELLITES (*1*V-GENERATE) IMMEDIATE-DEPENDENTS0 (TV-ADDER-AS-P-G-SUM CADR-TV-ADDER-AS-G T-CARRY-P-G-CARRY GENERATE-APPEND V-GENERATE-OFF) EVENT (DEFN V-GENERATE (A B) (IF (NLISTP A) (QUOTE *1*FALSE) (OR (V-GENERATE (CDR A) (CDR B)) (AND (CAR A) (AND (CAR B) (V-PROPAGATE (CDR A) (CDR B))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PROPAGATE . V-GENERATE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-GENERATE) (DCELL . *1*V-GENERATE))))) (PUT1-LST (QUOTE V-PROPAGATE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE V-PROPAGATE-OFF V-PROPAGATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PROPAGATE . V-PROPAGATE-OFF) (DISABLED-LEMMAS NIL V-PROPAGATE V-PROPAGATE-OFF . T))))) (PUT1-LST (QUOTE *1*V-PROPAGATE) (QUOTE (MAIN-EVENT V-PROPAGATE))) (PUT1-LST (QUOTE V-PROPAGATE) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PROPAGATE 3 NIL NIL)) LEMMAS ((REWRITE-RULE V-APPEND-PROPAGATE ((EQUAL (LENGTH A) (LENGTH C))) (EQUAL (V-PROPAGATE (APPEND A B) (APPEND C D)) (IF (V-PROPAGATE A C) (V-PROPAGATE B D) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((V-PROPAGATE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (IF (CAR A) (IF (V-PROPAGATE (CDR A) (CDR B)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF (CAR B) (IF (V-PROPAGATE (CDR A) (CDR B)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) LISP-CODE *1*V-PROPAGATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194020 CONTROLLER-POCKETS (1) SATELLITES (*1*V-PROPAGATE) IMMEDIATE-DEPENDENTS0 (TV-ADDER-AS-P-G-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P T-CARRY-P-G-CARRY GENERATE-APPEND V-PROPAGATE-APPEND V-APPEND-PROPAGATE V-GENERATE V-PROPAGATE-OFF) EVENT (DEFN V-PROPAGATE (A B) (IF (NLISTP A) (QUOTE *1*TRUE) (AND (OR (CAR A) (CAR B)) (V-PROPAGATE (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-PROPAGATE) (DCELL . *1*V-PROPAGATE))))) (PUT1-LST (QUOTE V-CARRY-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE V-CARRY-OFF V-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-CARRY . V-CARRY-OFF) (DISABLED-LEMMAS NIL V-CARRY V-CARRY-OFF . T))))) (PUT1-LST (QUOTE *1*V-CARRY) (QUOTE (MAIN-EVENT V-CARRY))) (PUT1-LST (QUOTE V-CARRY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-CARRY 3 NIL NIL NIL)) TOTALP-LST ((V-CARRY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (IF (CAR A) (IF (CAR B) (V-CARRY (QUOTE *1*TRUE) (CDR A) (CDR B)) (IF C (V-CARRY (QUOTE *1*TRUE) (CDR A) (CDR B)) (V-CARRY (QUOTE *1*FALSE) (CDR A) (CDR B)))) (IF (CAR B) (IF C (V-CARRY (QUOTE *1*TRUE) (CDR A) (CDR B)) (V-CARRY (QUOTE *1*FALSE) (CDR A) (CDR B))) (V-CARRY (QUOTE *1*FALSE) (CDR A) (CDR B)))) (BOOLFIX C))) LISP-CODE *1*V-CARRY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((OR (AND (CAR A) (CAR B)) (AND (OR (CAR A) (CAR B)) C)) (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194020 CONTROLLER-POCKETS (2) SATELLITES (*1*V-CARRY) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-INC V-ADDER-CARRY-OUT=V-CARRY T-CARRY-P-G-CARRY APPEND-SUM V-CARRY-OFF) EVENT (DEFN V-CARRY (C A B) (IF (NLISTP A) (BOOLFIX C) (V-CARRY (OR (AND (CAR A) (CAR B)) (AND (OR (CAR A) (CAR B)) C)) (CDR A) (CDR B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . V-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-CARRY) (DCELL . *1*V-CARRY))))) (PUT1-LST (QUOTE A-1+1=A) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-WORKS) EVENT (PROVE-LEMMA A-1+1=A (REWRITE) (IMPLIES (AND (BVP A) C) (EQUAL (V-SUM C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A) A)) ((ENABLE V-SUM V-NOT NAT-TO-V LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . A-1+1=A) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . A-1+1=A) (IMMEDIATE-DEPENDENTS0 V-SUM-CONGRUENCE . A-1+1=A) (IMMEDIATE-DEPENDENTS0 BOOLP . A-1+1=A) (IMMEDIATE-DEPENDENTS0 BVP-CONS . A-1+1=A) (IMMEDIATE-DEPENDENTS0 B-NOT . A-1+1=A) (IMMEDIATE-DEPENDENTS0 B-OR3 . A-1+1=A) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . A-1+1=A) (IMMEDIATE-DEPENDENTS0 B-AND . A-1+1=A) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . A-1+1=A) (IMMEDIATE-DEPENDENTS0 LENGTH . A-1+1=A) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . A-1+1=A) (IMMEDIATE-DEPENDENTS0 V-NOT . A-1+1=A) (IMMEDIATE-DEPENDENTS0 V-SUM . A-1+1=A) (IMMEDIATE-DEPENDENTS0 BVP . A-1+1=A) (LEMMAS V-SUM . A-1+1=A))))) (PUT1-LST (QUOTE V-SUM-CONGRUENCE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (APPEND-SUM A-1+1=A) EVENT (PROVE-LEMMA V-SUM-CONGRUENCE (REWRITE) (IMPLIES C (EQUAL (EQUAL (V-SUM C A B) (V-SUM (QUOTE *1*TRUE) A B)) (QUOTE *1*TRUE))) ((ENABLE V-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-XOR . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-OR3 . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-SUM-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 V-SUM . V-SUM-CONGRUENCE) (LEMMAS EQUAL . V-SUM-CONGRUENCE))))) (PUT1-LST (QUOTE LENGTH-SUM) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER) EVENT (PROVE-LEMMA LENGTH-SUM (REWRITE) (EQUAL (LENGTH (V-SUM C A B)) (LENGTH A)) ((ENABLE LENGTH V-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-SUM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . LENGTH-SUM) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-SUM) (LEMMAS LENGTH . LENGTH-SUM))))) (PUT1-LST (QUOTE BVP-SUM) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BVP-BV-V-ALU) EVENT (PROVE-LEMMA BVP-SUM (REWRITE) (BVP (V-SUM C A B)) ((ENABLE BVP V-SUM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-SUM) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-SUM) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-SUM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-SUM) (IMMEDIATE-DEPENDENTS0 V-SUM . BVP-SUM) (IMMEDIATE-DEPENDENTS0 BVP . BVP-SUM) (LEMMAS BVP . BVP-SUM))))) (PUT1-LST (QUOTE V-SUM-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE V-SUM-OFF V-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SUM . V-SUM-OFF) (DISABLED-LEMMAS NIL V-SUM V-SUM-OFF . T))))) (PUT1-LST (QUOTE *1*V-SUM) (QUOTE (MAIN-EVENT V-SUM))) (PUT1-LST (QUOTE V-SUM) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SUM 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE A-1+1=A ((BVP A) C) (EQUAL (V-SUM C (V-NOT (NAT-TO-V (QUOTE 0) (LENGTH A))) A) A) NIL)) TOTALP-LST ((V-SUM . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (CONS (B-XOR C (B-XOR (CAR A) (CAR B))) (V-SUM (B-OR3 (B-AND (CAR A) (CAR B)) (B-AND (CAR A) C) (B-AND (CAR B) C)) (CDR A) (CDR B))) (QUOTE NIL))) LISP-CODE *1*V-SUM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((B-OR3 (B-AND (CAR A) (CAR B)) (B-AND (CAR A) C) (B-AND (CAR B) C)) (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194020 CONTROLLER-POCKETS (2) SATELLITES (*1*V-SUM) IMMEDIATE-DEPENDENTS0 (V-SUM-ON-NOT-A-A F$V-INC4$V=V-INC TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM V-ADDER-OUTPUT=V-SUM APPEND-SUM A-1+1=A V-SUM-CONGRUENCE LENGTH-SUM BVP-SUM V-SUM-OFF) EVENT (DEFN V-SUM (C A B) (IF (NLISTP A) (QUOTE NIL) (CONS (B-XOR C (B-XOR (CAR A) (CAR B))) (V-SUM (B-OR3 (B-AND (CAR A) (CAR B)) (B-AND (CAR A) C) (B-AND (CAR B) C)) (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . V-SUM) (IMMEDIATE-DEPENDENTS0 B-OR3 . V-SUM) (IMMEDIATE-DEPENDENTS0 B-XOR . V-SUM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-SUM) (DCELL . *1*V-SUM))))) (PUT1-LST (QUOTE BV-ADDER$VALUE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE BV-ADDER$VALUE-OFF BV-ADDER$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER$VALUE . BV-ADDER$VALUE-OFF) (DISABLED-LEMMAS NIL BV-ADDER$VALUE BV-ADDER$VALUE-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER-BODY$VALUE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE BV-ADDER-BODY$VALUE-OFF BV-ADDER-BODY$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY$VALUE . BV-ADDER-BODY$VALUE-OFF) (DISABLED-LEMMAS NIL BV-ADDER-BODY$VALUE BV-ADDER-BODY$VALUE-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF) (QUOTE (IDATE 1000402194020 EVENT (TOGGLE BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF BV-ADDER-BODY-SPECIAL-CASE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY-SPECIAL-CASE$VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF) (DISABLED-LEMMAS NIL BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER$VALUE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (BV-ADDER$VALUE-OFF) EVENT (PROVE-LEMMA BV-ADDER$VALUE (REWRITE) (IMPLIES (AND (BV-ADDER& NETLIST N) (AND (BOOLP C) (AND (BVP A) (AND (BVP B) (AND (EQUAL (LENGTH A) N) (EQUAL (LENGTH B) N)))))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE BV-ADDER) N) (CONS C (APPEND A B)) STATE NETLIST) (BV-ADDER C A B))) ((ENABLE BV-ADDER& BV-ADDER*$DESTRUCTURE FULL-ADDER$VALUE) (DISABLE COLLECT-VALUE-APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER*$DESTRUCTURE . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY-SPECIAL-CASE$VALUE . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BVP . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . BV-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER& . BV-ADDER$VALUE) (LEMMAS DUAL-EVAL . BV-ADDER$VALUE))))) (PUT1-LST (QUOTE BV-ADDER-BODY-SPECIAL-CASE$VALUE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY-SPECIAL-CASE$VALUE-OFF BV-ADDER$VALUE) EVENT (PROVE-LEMMA BV-ADDER-BODY-SPECIAL-CASE$VALUE (REWRITE) (IMPLIES (AND (FULL-ADDER& NETLIST) (AND (BOOLP (VALUE (QUOTE (*1*QUOTE INDEX CARRY 0)) BINDINGS)) (AND (BVP (COLLECT-VALUE (INDICES (QUOTE A) (QUOTE 0) N) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE B) (QUOTE 0) N) BINDINGS))))) (EQUAL (COLLECT-VALUE (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL))) (DUAL-EVAL (QUOTE 1) (BV-ADDER-BODY (QUOTE 0) N) BINDINGS STATE-BINDINGS NETLIST)) (BV-ADDER (VALUE (QUOTE (*1*QUOTE INDEX CARRY 0)) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE A) (QUOTE 0) N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) (QUOTE 0) N) BINDINGS)))) ((USE (BV-ADDER-BODY$VALUE (M (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP-NAMES . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY$VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 BVP . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER& . BV-ADDER-BODY-SPECIAL-CASE$VALUE) (LEMMAS COLLECT-VALUE . BV-ADDER-BODY-SPECIAL-CASE$VALUE))))) (PUT1-LST (QUOTE BV-ADDER-BODY$VALUE) (QUOTE (IDATE 1000402194020 IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE-OFF BV-ADDER-BODY-SPECIAL-CASE$VALUE) EVENT (PROVE-LEMMA BV-ADDER-BODY$VALUE (REWRITE) (IMPLIES (AND (FULL-ADDER& NETLIST) (AND (BOOLP (VALUE (INDEX (QUOTE CARRY) M) BINDINGS)) (AND (BVP (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))))) (EQUAL (COLLECT-VALUE (APPEND (INDICES (QUOTE SUM) M N) (CONS (INDEX (QUOTE CARRY) (PLUS N M)) (QUOTE NIL))) (DUAL-EVAL (QUOTE 1) (BV-ADDER-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (BV-ADDER (VALUE (INDEX (QUOTE CARRY) M) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS)))) ((ENABLE BV-ADDER-BODY FULL-ADDER$VALUE MAKE-LIST FV-IF-REWRITE BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER$UNBOUND-IN-BODY-CARRY) (INDUCT (BV-ADDER-BODY$INDUCTION M N BINDINGS STATE-BINDINGS NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F$FULL-ADDER . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER$VALUE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 F$FULL-ADDER=FULL-ADDER . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER$UNBOUND-IN-BODY-SUM . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 XOR . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY$INDUCTION . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BVP . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . BV-ADDER-BODY$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER& . BV-ADDER-BODY$VALUE) (LEMMAS COLLECT-VALUE . BV-ADDER-BODY$VALUE))))) (PUT1-LST (QUOTE BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF BV-ADDER$UNBOUND-IN-BODY-CARRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER$UNBOUND-IN-BODY-CARRY . BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF) (DISABLED-LEMMAS NIL BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER$UNBOUND-IN-BODY-SUM-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER$UNBOUND-IN-BODY-SUM-OFF BV-ADDER$UNBOUND-IN-BODY-SUM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER$UNBOUND-IN-BODY-SUM . BV-ADDER$UNBOUND-IN-BODY-SUM-OFF) (DISABLED-LEMMAS NIL BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER$UNBOUND-IN-BODY-SUM-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER$UNBOUND-IN-BODY-CARRY) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (BV-ADDER$UNBOUND-IN-BODY-CARRY-OFF) EVENT (PROVE-LEMMA BV-ADDER$UNBOUND-IN-BODY-CARRY (REWRITE) (IMPLIES (LESSP L (ADD1 M)) (UNBOUND-IN-BODY (INDEX (QUOTE CARRY) L) (BV-ADDER-BODY M N))) ((ENABLE UNBOUND-IN-BODY BV-ADDER-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER$UNBOUND-IN-BODY-CARRY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . BV-ADDER$UNBOUND-IN-BODY-CARRY) (LEMMAS UNBOUND-IN-BODY . BV-ADDER$UNBOUND-IN-BODY-CARRY))))) (PUT1-LST (QUOTE BV-ADDER$UNBOUND-IN-BODY-SUM) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-SUM-OFF) EVENT (PROVE-LEMMA BV-ADDER$UNBOUND-IN-BODY-SUM (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE SUM) L) (BV-ADDER-BODY M N))) ((ENABLE UNBOUND-IN-BODY BV-ADDER-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER$UNBOUND-IN-BODY-SUM) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . BV-ADDER$UNBOUND-IN-BODY-SUM) (LEMMAS UNBOUND-IN-BODY . BV-ADDER$UNBOUND-IN-BODY-SUM))))) (PUT1-LST (QUOTE *1*BV-ADDER-BODY$INDUCTION) (QUOTE (MAIN-EVENT BV-ADDER-BODY$INDUCTION))) (PUT1-LST (QUOTE BV-ADDER-BODY$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER-BODY$INDUCTION 16 NIL NIL T NIL NIL)) TOTALP-LST ((BV-ADDER-BODY$INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (M N BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) BINDINGS (IF (NUMBERP N) (BV-ADDER-BODY$INDUCTION (ADD1 M) (SUB1 N) (APPEND (PAIRLIST (CONS (INDEX (QUOTE SUM) M) (CONS (INDEX (QUOTE CARRY) (ADD1 M)) (QUOTE NIL))) (DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (COLLECT-VALUE (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (CONS (INDEX (QUOTE CARRY) M) (QUOTE NIL)))) BINDINGS) (VALUE (INDEX (QUOTE G) M) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST) BINDINGS))) LISP-CODE *1*BV-ADDER-BODY$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N) (APPEND (PAIRLIST (CONS (INDEX (QUOTE SUM) M) (CONS (INDEX (QUOTE CARRY) (ADD1 M)) (QUOTE NIL))) (DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (COLLECT-VALUE (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (CONS (INDEX (QUOTE CARRY) M) (QUOTE NIL)))) BINDINGS) (VALUE (INDEX (QUOTE G) M) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194016 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-ADDER-BODY$INDUCTION) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE) EVENT (DEFN BV-ADDER-BODY$INDUCTION (M N BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) BINDINGS (BV-ADDER-BODY$INDUCTION (ADD1 M) (SUB1 N) (APPEND (PAIRLIST (CONS (INDEX (QUOTE SUM) M) (CONS (INDEX (QUOTE CARRY) (ADD1 M)) (QUOTE NIL))) (DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (COLLECT-VALUE (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (CONS (INDEX (QUOTE CARRY) M) (QUOTE NIL)))) BINDINGS) (VALUE (INDEX (QUOTE G) M) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . BV-ADDER-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . BV-ADDER-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . BV-ADDER-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER-BODY$INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BV-ADDER-BODY$INDUCTION) (DCELL . *1*BV-ADDER-BODY$INDUCTION))))) (PUT1-LST (QUOTE BV-ADDER$NETLIST-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER$NETLIST-OFF BV-ADDER$NETLIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER$NETLIST . BV-ADDER$NETLIST-OFF) (DISABLED-LEMMAS NIL BV-ADDER$NETLIST BV-ADDER$NETLIST-OFF . T))))) (PUT1-LST (QUOTE *1*BV-ADDER$NETLIST) (QUOTE (MAIN-EVENT BV-ADDER$NETLIST))) (PUT1-LST (QUOTE BV-ADDER$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER$NETLIST 16 NIL)) TOTALP-LST ((BV-ADDER$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (BV-ADDER* N) (FULL-ADDER$NETLIST))) LISP-CODE *1*BV-ADDER$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194016 SATELLITES (*1*BV-ADDER$NETLIST) IMMEDIATE-DEPENDENTS0 (BV-ADDER$NETLIST-OFF) EVENT (DEFN BV-ADDER$NETLIST (N) (CONS (BV-ADDER* N) (FULL-ADDER$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FULL-ADDER$NETLIST . BV-ADDER$NETLIST) (IMMEDIATE-DEPENDENTS0 BV-ADDER* . BV-ADDER$NETLIST) (DCELL . *1*BV-ADDER$NETLIST))))) (PUT1-LST (QUOTE BV-ADDER&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER&-OFF BV-ADDER& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER& . BV-ADDER&-OFF) (DISABLED-LEMMAS NIL BV-ADDER& BV-ADDER&-OFF . T))))) (PUT1-LST (QUOTE *1*BV-ADDER&) (QUOTE (MAIN-EVENT BV-ADDER&))) (PUT1-LST (QUOTE BV-ADDER&) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER& 3 NIL NIL)) TOTALP-LST ((BV-ADDER& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE BV-ADDER) N) NETLIST) (BV-ADDER* N)) (FULL-ADDER& (DELETE-MODULE (INDEX (QUOTE BV-ADDER) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*BV-ADDER& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*BV-ADDER&) IMMEDIATE-DEPENDENTS0 (BV-ADDER$VALUE BV-ADDER&-OFF) EVENT (DEFN BV-ADDER& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE BV-ADDER) N) NETLIST) (BV-ADDER* N)) (FULL-ADDER& (DELETE-MODULE (INDEX (QUOTE BV-ADDER) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . BV-ADDER&) (IMMEDIATE-DEPENDENTS0 FULL-ADDER& . BV-ADDER&) (IMMEDIATE-DEPENDENTS0 BV-ADDER* . BV-ADDER&) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . BV-ADDER&) (DCELL . *1*BV-ADDER&))))) (PUT1-LST (QUOTE BV-ADDER*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER*$DESTRUCTURE-OFF BV-ADDER*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER*$DESTRUCTURE . BV-ADDER*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL BV-ADDER*$DESTRUCTURE BV-ADDER*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER*-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER*-OFF BV-ADDER* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER* . BV-ADDER*-OFF) (DISABLED-LEMMAS NIL BV-ADDER* BV-ADDER*-OFF . T))))) (PUT1-LST (QUOTE BV-ADDER*$DESTRUCTURE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (BV-ADDER$VALUE BV-ADDER*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA BV-ADDER*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (BV-ADDER* N)) (INDEX (QUOTE BV-ADDER) N)) (AND (EQUAL (CAR (CDR (BV-ADDER* N))) (CONS (QUOTE (*1*QUOTE INDEX CARRY 0)) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)))) (AND (EQUAL (CAR (CDR (CDR (BV-ADDER* N)))) (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL)))) (AND (EQUAL (CAR (CDR (CDR (CDR (BV-ADDER* N))))) (BV-ADDER-BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (BV-ADDER* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . BV-ADDER*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 BV-ADDER* . BV-ADDER*$DESTRUCTURE) (LEMMAS CAR . BV-ADDER*$DESTRUCTURE) (LEMMAS CAR . BV-ADDER*$DESTRUCTURE) (LEMMAS CAR . BV-ADDER*$DESTRUCTURE) (LEMMAS CAR . BV-ADDER*$DESTRUCTURE) (LEMMAS CAR . BV-ADDER*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*BV-ADDER*) (QUOTE (MAIN-EVENT BV-ADDER*))) (PUT1-LST (QUOTE BV-ADDER*) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER* 16 NIL)) TOTALP-LST ((BV-ADDER* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE BV-ADDER) N) (CONS (CONS (QUOTE (*1*QUOTE INDEX CARRY 0)) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (CONS (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL))) (CONS (BV-ADDER-BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*BV-ADDER* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*BV-ADDER*) IMMEDIATE-DEPENDENTS0 (BV-ADDER$NETLIST BV-ADDER& BV-ADDER*-OFF BV-ADDER*$DESTRUCTURE) EVENT (DEFN BV-ADDER* (N) (CONS (INDEX (QUOTE BV-ADDER) N) (CONS (CONS (QUOTE (*1*QUOTE INDEX CARRY 0)) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (CONS (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL))) (CONS (BV-ADDER-BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER*) (IMMEDIATE-DEPENDENTS0 INDICES . BV-ADDER*) (IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER*) (DCELL . *1*BV-ADDER*))))) (PUT1-LST (QUOTE BV-ADDER-BODY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE BV-ADDER-BODY-OFF BV-ADDER-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BV-ADDER-BODY . BV-ADDER-BODY-OFF) (DISABLED-LEMMAS NIL BV-ADDER-BODY BV-ADDER-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*BV-ADDER-BODY) (QUOTE (MAIN-EVENT BV-ADDER-BODY))) (PUT1-LST (QUOTE BV-ADDER-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER-BODY 24 NIL NIL)) TOTALP-LST ((BV-ADDER-BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE SUM) M) (CONS (INDEX (QUOTE CARRY) (ADD1 M)) (QUOTE NIL))) (CONS (QUOTE FULL-ADDER) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (CONS (INDEX (QUOTE CARRY) M) (QUOTE NIL)))) (QUOTE NIL))))) (BV-ADDER-BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*BV-ADDER-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194016 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-ADDER-BODY) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER*$DESTRUCTURE BV-ADDER* BV-ADDER-BODY-OFF) EVENT (DEFN BV-ADDER-BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE SUM) M) (CONS (INDEX (QUOTE CARRY) (ADD1 M)) (QUOTE NIL))) (CONS (QUOTE FULL-ADDER) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (CONS (INDEX (QUOTE CARRY) M) (QUOTE NIL)))) (QUOTE NIL))))) (BV-ADDER-BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . BV-ADDER-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BV-ADDER-BODY) (DCELL . *1*BV-ADDER-BODY))))) (PUT1-LST (QUOTE *1*BV-ADDER) (QUOTE (MAIN-EVENT BV-ADDER))) (PUT1-LST (QUOTE BV-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((BV-ADDER 16 NIL NIL NIL)) TOTALP-LST ((BV-ADDER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (IF (CAR A) (IF (CAR B) (CONS (XOR C (XOR (CAR A) (CAR B))) (BV-ADDER (QUOTE *1*TRUE) (CDR A) (CDR B))) (IF C (CONS (XOR C (XOR (CAR A) (QUOTE *1*FALSE))) (BV-ADDER (QUOTE *1*TRUE) (CDR A) (CDR B))) (CONS (XOR (QUOTE *1*FALSE) (XOR (CAR A) (QUOTE *1*FALSE))) (BV-ADDER (QUOTE *1*FALSE) (CDR A) (CDR B))))) (IF (CAR B) (IF C (CONS (XOR C (XOR (QUOTE *1*FALSE) (CAR B))) (BV-ADDER (QUOTE *1*TRUE) (CDR A) (CDR B))) (CONS (XOR (QUOTE *1*FALSE) (XOR (QUOTE *1*FALSE) (CAR B))) (BV-ADDER (QUOTE *1*FALSE) (CDR A) (CDR B)))) (CONS (XOR C (XOR (QUOTE *1*FALSE) (QUOTE *1*FALSE))) (BV-ADDER (QUOTE *1*FALSE) (CDR A) (CDR B))))) (CONS C (QUOTE NIL)))) LISP-CODE *1*BV-ADDER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((OR (AND (CAR A) (CAR B)) (OR (AND (CAR A) C) (AND (CAR B) C))) (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194016 CONTROLLER-POCKETS (2) SATELLITES (*1*BV-ADDER) IMMEDIATE-DEPENDENTS0 (BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE) EVENT (DEFN BV-ADDER (C A B) (IF (NLISTP A) (CONS C (QUOTE NIL)) (CONS (XOR C (XOR (CAR A) (CAR B))) (BV-ADDER (OR (AND (CAR A) (CAR B)) (OR (AND (CAR A) C) (AND (CAR B) C))) (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 XOR . BV-ADDER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BV-ADDER) (DCELL . *1*BV-ADDER))))) (PUT1-LST (QUOTE M2$STATE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M2$STATE-OFF M2$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M2$STATE . M2$STATE-OFF) (DISABLED-LEMMAS NIL M2$STATE M2$STATE-OFF . T))))) (PUT1-LST (QUOTE M2$STATE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (M2$STATE-OFF) EVENT (PROVE-LEMMA M2$STATE (REWRITE) (IMPLIES (M2& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE M2) (CONS CLK (CONS EN0 (CONS EN1 (CONS SEL0 (CONS SEL1 (CONS D0 (CONS D1 (QUOTE NIL)))))))) STATE NETLIST) (CONS (F-IF SEL0 D0 (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE))))) (CONS (F-IF SEL1 D1 (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE))))) (QUOTE NIL))))) ((ENABLE M2& M1$VALUE M1$STATE T-WIRE$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . M2$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . M2$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . M2$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . M2$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . M2$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . M2$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . M2$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . M2$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . M2$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . M2$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . M2$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . M2$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . M2$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . M2$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . M2$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . M2$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . M2$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . M2$STATE) (IMMEDIATE-DEPENDENTS0 M1$VALUE . M2$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . M2$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . M2$STATE) (IMMEDIATE-DEPENDENTS0 T-WIRE$VALUE . M2$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . M2$STATE) (IMMEDIATE-DEPENDENTS0 M1$STATE . M2$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . M2$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . M2$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . M2$STATE) (IMMEDIATE-DEPENDENTS0 M2* . M2$STATE) (IMMEDIATE-DEPENDENTS0 FT-BUF . M2$STATE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . M2$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . M2$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . M2$STATE) (IMMEDIATE-DEPENDENTS0 M2& . M2$STATE) (LEMMAS DUAL-EVAL . M2$STATE))))) (PUT1-LST (QUOTE M2$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M2$VALUE-OFF M2$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M2$VALUE . M2$VALUE-OFF) (DISABLED-LEMMAS NIL M2$VALUE M2$VALUE-OFF . T))))) (PUT1-LST (QUOTE M2$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (M2$VALUE-OFF) EVENT (PROVE-LEMMA M2$VALUE (REWRITE) (IMPLIES (M2& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE M2) (CONS CLK (CONS EN0 (CONS EN1 (CONS SEL0 (CONS SEL1 (CONS D0 (CONS D1 (QUOTE NIL)))))))) STATE NETLIST) (CONS (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE)))) (QUOTE NIL)))) ((ENABLE M2& M1$VALUE M1$STATE T-WIRE$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . M2$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . M2$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . M2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . M2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . M2$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . M2$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . M2$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . M2$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . M2$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . M2$VALUE) (IMMEDIATE-DEPENDENTS0 M1$VALUE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . M2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 T-WIRE$VALUE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . M2$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . M2$VALUE) (IMMEDIATE-DEPENDENTS0 M2* . M2$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . M2$VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . M2$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . M2$VALUE) (IMMEDIATE-DEPENDENTS0 M2& . M2$VALUE) (LEMMAS DUAL-EVAL . M2$VALUE))))) (PUT1-LST (QUOTE M2&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M2&-OFF M2& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M2& . M2&-OFF) (DISABLED-LEMMAS NIL M2& M2&-OFF . T))))) (PUT1-LST (QUOTE *1*M2&) (QUOTE (MAIN-EVENT M2&))) (PUT1-LST (QUOTE M2&) (QUOTE (TYPE-PRESCRIPTION-LST ((M2& 3 NIL)) TOTALP-LST ((M2& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE M2) NETLIST) (M2*)) (IF (M1& (DELETE-MODULE (QUOTE M2) NETLIST)) (T-WIRE& (DELETE-MODULE (QUOTE M2) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*M2& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*M2&) IMMEDIATE-DEPENDENTS0 (M2$STATE M2$VALUE M2&-OFF) EVENT (DEFN M2& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE M2) NETLIST) (M2*)) (AND (M1& (DELETE-MODULE (QUOTE M2) NETLIST)) (T-WIRE& (DELETE-MODULE (QUOTE M2) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE& . M2&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . M2&) (IMMEDIATE-DEPENDENTS0 M1& . M2&) (IMMEDIATE-DEPENDENTS0 M2* . M2&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . M2&) (DCELL . *1*M2&))))) (PUT1-LST (QUOTE *1*M2$NETLIST) (QUOTE (MAIN-EVENT M2$NETLIST))) (PUT1-LST (QUOTE M2$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((M2$NETLIST 16)) TOTALP-LST ((M2$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (M2*) (UNION (M1$NETLIST) (T-WIRE$NETLIST)))) LISP-CODE *1*M2$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194016 SATELLITES (*1*M2$NETLIST) EVENT (DEFN M2$NETLIST NIL (CONS (M2*) (UNION (M1$NETLIST) (T-WIRE$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE$NETLIST . M2$NETLIST) (IMMEDIATE-DEPENDENTS0 M1$NETLIST . M2$NETLIST) (IMMEDIATE-DEPENDENTS0 M2* . M2$NETLIST) (DCELL . *1*M2$NETLIST))))) (PUT1-LST (QUOTE *1*M2*) (QUOTE (MAIN-EVENT M2*))) (PUT1-LST (QUOTE M2*) (QUOTE (TYPE-PRESCRIPTION-LST ((M2* 16)) TOTALP-LST ((M2* . T)) SDEFN (LAMBDA NIL (QUOTE (M2 (CLK EN0 EN1 SEL0 SEL1 D0 D1) (Q) ((OCC0 (Q0) M1 (CLK EN0 SEL0 D0 Q)) (OCC1 (Q1) M1 (CLK EN1 SEL1 D1 Q)) (WIRE (Q) T-WIRE (Q0 Q1))) (OCC0 OCC1)))) LISP-CODE *1*M2* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*M2*) IMMEDIATE-DEPENDENTS0 (M2$STATE M2$VALUE M2& M2$NETLIST) EVENT (DEFN M2* NIL (QUOTE (M2 (CLK EN0 EN1 SEL0 SEL1 D0 D1) (Q) ((OCC0 (Q0) M1 (CLK EN0 SEL0 D0 Q)) (OCC1 (Q1) M1 (CLK EN1 SEL1 D1 Q)) (WIRE (Q) T-WIRE (Q0 Q1))) (OCC0 OCC1)))) LOCAL-UNDO-TUPLES ((DCELL . *1*M2*))))) (PUT1-LST (QUOTE M1$STATE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M1$STATE-OFF M1$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M1$STATE . M1$STATE-OFF) (DISABLED-LEMMAS NIL M1$STATE M1$STATE-OFF . T))))) (PUT1-LST (QUOTE M1$STATE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (M2$STATE M1$STATE-OFF) EVENT (PROVE-LEMMA M1$STATE (REWRITE) (IMPLIES (M1& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE M1) (CONS CLK (CONS EN (CONS SEL (CONS D (CONS Q (QUOTE NIL)))))) STATE NETLIST) (F-IF SEL D Q))) ((ENABLE M1& B-IF$VALUE FD1$VALUE FD1$STATE T-BUF$VALUE F-IF FT-BUF F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . M1$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . M1$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . M1$STATE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . M1$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . M1$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . M1$STATE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . M1$STATE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . M1$STATE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . M1$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . M1$STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . M1$STATE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . M1$STATE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . M1$STATE) (IMMEDIATE-DEPENDENTS0 VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . M1$STATE) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . M1$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . M1$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . M1$STATE) (IMMEDIATE-DEPENDENTS0 F-NOT . M1$STATE) (IMMEDIATE-DEPENDENTS0 FD1$VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 FT-BUF . M1$STATE) (IMMEDIATE-DEPENDENTS0 T-BUF$VALUE . M1$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . M1$STATE) (IMMEDIATE-DEPENDENTS0 FD1$STATE . M1$STATE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-3 . M1$STATE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . M1$STATE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . M1$STATE) (IMMEDIATE-DEPENDENTS0 M1* . M1$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . M1$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . M1$STATE) (IMMEDIATE-DEPENDENTS0 M1& . M1$STATE) (LEMMAS DUAL-EVAL . M1$STATE))))) (PUT1-LST (QUOTE M1$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M1$VALUE-OFF M1$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M1$VALUE . M1$VALUE-OFF) (DISABLED-LEMMAS NIL M1$VALUE M1$VALUE-OFF . T))))) (PUT1-LST (QUOTE M1$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (M2$STATE M2$VALUE M1$VALUE-OFF) EVENT (PROVE-LEMMA M1$VALUE (REWRITE) (IMPLIES (M1& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE M1) (CONS CLK (CONS EN (CONS SEL (CONS D (CONS Q (QUOTE NIL)))))) STATE NETLIST) (CONS (FT-BUF EN STATE) (QUOTE NIL)))) ((ENABLE M1& B-IF$VALUE FD1$VALUE T-BUF$VALUE FT-BUF F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . M1$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . M1$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . M1$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . M1$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . M1$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . M1$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . M1$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . M1$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . M1$VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . M1$VALUE) (IMMEDIATE-DEPENDENTS0 B-IF$VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . M1$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . M1$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . M1$VALUE) (IMMEDIATE-DEPENDENTS0 FD1$VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 T-BUF$VALUE . M1$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . M1$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . M1$VALUE) (IMMEDIATE-DEPENDENTS0 M1* . M1$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . M1$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . M1$VALUE) (IMMEDIATE-DEPENDENTS0 M1& . M1$VALUE) (LEMMAS DUAL-EVAL . M1$VALUE))))) (PUT1-LST (QUOTE M1&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE M1&-OFF M1& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M1& . M1&-OFF) (DISABLED-LEMMAS NIL M1& M1&-OFF . T))))) (PUT1-LST (QUOTE *1*M1&) (QUOTE (MAIN-EVENT M1&))) (PUT1-LST (QUOTE M1&) (QUOTE (TYPE-PRESCRIPTION-LST ((M1& 3 NIL)) TOTALP-LST ((M1& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE M1) NETLIST) (M1*)) (IF (B-IF& (DELETE-MODULE (QUOTE M1) NETLIST)) (IF (FD1& (DELETE-MODULE (QUOTE M1) NETLIST)) (T-BUF& (DELETE-MODULE (QUOTE M1) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*M1& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*M1&) IMMEDIATE-DEPENDENTS0 (M2& M1$STATE M1$VALUE M1&-OFF) EVENT (DEFN M1& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE M1) NETLIST) (M1*)) (AND (B-IF& (DELETE-MODULE (QUOTE M1) NETLIST)) (AND (FD1& (DELETE-MODULE (QUOTE M1) NETLIST)) (T-BUF& (DELETE-MODULE (QUOTE M1) NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF& . M1&) (IMMEDIATE-DEPENDENTS0 FD1& . M1&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . M1&) (IMMEDIATE-DEPENDENTS0 B-IF& . M1&) (IMMEDIATE-DEPENDENTS0 M1* . M1&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . M1&) (DCELL . *1*M1&))))) (PUT1-LST (QUOTE *1*M1$NETLIST) (QUOTE (MAIN-EVENT M1$NETLIST))) (PUT1-LST (QUOTE M1$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((M1$NETLIST 16)) TOTALP-LST ((M1$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (M1*) (UNION (UNION (B-IF$NETLIST) (FD1$NETLIST)) (T-BUF$NETLIST)))) LISP-CODE *1*M1$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194016 SATELLITES (*1*M1$NETLIST) IMMEDIATE-DEPENDENTS0 (M2$NETLIST) EVENT (DEFN M1$NETLIST NIL (CONS (M1*) (UNION (UNION (B-IF$NETLIST) (FD1$NETLIST)) (T-BUF$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF$NETLIST . M1$NETLIST) (IMMEDIATE-DEPENDENTS0 FD1$NETLIST . M1$NETLIST) (IMMEDIATE-DEPENDENTS0 B-IF$NETLIST . M1$NETLIST) (IMMEDIATE-DEPENDENTS0 M1* . M1$NETLIST) (DCELL . *1*M1$NETLIST))))) (PUT1-LST (QUOTE *1*M1*) (QUOTE (MAIN-EVENT M1*))) (PUT1-LST (QUOTE M1*) (QUOTE (TYPE-PRESCRIPTION-LST ((M1* 16)) TOTALP-LST ((M1* . T)) SDEFN (LAMBDA NIL (QUOTE (M1 (CLK EN SEL D Q) (Q) ((MUX (B) B-IF (SEL D Q)) (LATCH (A AN) FD1 (B CLK)) (TBUF (Q) T-BUF (EN A))) LATCH))) LISP-CODE *1*M1* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*M1*) IMMEDIATE-DEPENDENTS0 (M1$STATE M1$VALUE M1& M1$NETLIST) EVENT (DEFN M1* NIL (QUOTE (M1 (CLK EN SEL D Q) (Q) ((MUX (B) B-IF (SEL D Q)) (LATCH (A AN) FD1 (B CLK)) (TBUF (Q) T-BUF (EN A))) LATCH))) LOCAL-UNDO-TUPLES ((DCELL . *1*M1*))))) (PUT1-LST (QUOTE F$FULL-ADDER=FULL-ADDER) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE) EVENT (PROVE-LEMMA F$FULL-ADDER=FULL-ADDER (REWRITE) (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F$FULL-ADDER A B C) (FULL-ADDER A B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 B-AND . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 FULL-ADDER . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 F$FULL-ADDER . F$FULL-ADDER=FULL-ADDER) (IMMEDIATE-DEPENDENTS0 BOOLP . F$FULL-ADDER=FULL-ADDER) (LEMMAS F$FULL-ADDER . F$FULL-ADDER=FULL-ADDER))))) (PUT1-LST (QUOTE *1*FULL-ADDER) (QUOTE (MAIN-EVENT FULL-ADDER))) (PUT1-LST (QUOTE FULL-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((FULL-ADDER 16 NIL NIL NIL)) TOTALP-LST ((FULL-ADDER . T)) SDEFN (LAMBDA (A B C) (CONS (B-XOR3 A B C) (CONS (B-OR (B-AND A (B-OR B C)) (B-AND B C)) (QUOTE NIL)))) LISP-CODE *1*FULL-ADDER SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*FULL-ADDER) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER) EVENT (DEFN FULL-ADDER (A B C) (CONS (B-XOR3 A B C) (CONS (B-OR (B-AND A (B-OR B C)) (B-AND B C)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . FULL-ADDER) (IMMEDIATE-DEPENDENTS0 B-OR . FULL-ADDER) (IMMEDIATE-DEPENDENTS0 B-XOR3 . FULL-ADDER) (DCELL . *1*FULL-ADDER))))) (PUT1-LST (QUOTE FULL-ADDER$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE) EVENT (PROVE-LEMMA FULL-ADDER$VALUE (REWRITE) (IMPLIES (FULL-ADDER& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (F$FULL-ADDER A B C))) ((ENABLE FULL-ADDER& HALF-ADDER$VALUE B-OR$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 HALF-ADDER$VALUE . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER* . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F$FULL-ADDER . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FULL-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 FULL-ADDER& . FULL-ADDER$VALUE) (LEMMAS DUAL-EVAL . FULL-ADDER$VALUE))))) (PUT1-LST (QUOTE *1*F$FULL-ADDER) (QUOTE (MAIN-EVENT F$FULL-ADDER))) (PUT1-LST (QUOTE F$FULL-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((F$FULL-ADDER 16 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F$FULL-ADDER=FULL-ADDER ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F$FULL-ADDER A B C) (FULL-ADDER A B C)) NIL)) TOTALP-LST ((F$FULL-ADDER . T)) SDEFN (LAMBDA (A B C) (CONS (F-XOR (F-XOR A B) C) (CONS (F-OR (F-AND A B) (F-AND (F-XOR A B) C)) (QUOTE NIL)))) LISP-CODE *1*F$FULL-ADDER SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*F$FULL-ADDER) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER FULL-ADDER$VALUE) EVENT (DEFN F$FULL-ADDER (A B C) (CONS (F-XOR (F-XOR A B) C) (CONS (F-OR (F-AND A B) (F-AND (F-XOR A B) C)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F$FULL-ADDER) (IMMEDIATE-DEPENDENTS0 F-OR . F$FULL-ADDER) (IMMEDIATE-DEPENDENTS0 F-XOR . F$FULL-ADDER) (DCELL . *1*F$FULL-ADDER))))) (PUT1-LST (QUOTE FULL-ADDER&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE FULL-ADDER&-OFF FULL-ADDER& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FULL-ADDER& . FULL-ADDER&-OFF) (DISABLED-LEMMAS NIL FULL-ADDER& FULL-ADDER&-OFF . T))))) (PUT1-LST (QUOTE *1*FULL-ADDER&) (QUOTE (MAIN-EVENT FULL-ADDER&))) (PUT1-LST (QUOTE FULL-ADDER&) (QUOTE (TYPE-PRESCRIPTION-LST ((FULL-ADDER& 3 NIL)) TOTALP-LST ((FULL-ADDER& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE FULL-ADDER) NETLIST) (FULL-ADDER*)) (IF (HALF-ADDER& (DELETE-MODULE (QUOTE FULL-ADDER) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE FULL-ADDER) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*FULL-ADDER& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*FULL-ADDER&) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER& FULL-ADDER$VALUE FULL-ADDER&-OFF) EVENT (DEFN FULL-ADDER& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE FULL-ADDER) NETLIST) (FULL-ADDER*)) (AND (HALF-ADDER& (DELETE-MODULE (QUOTE FULL-ADDER) NETLIST)) (B-OR& (DELETE-MODULE (QUOTE FULL-ADDER) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR& . FULL-ADDER&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FULL-ADDER&) (IMMEDIATE-DEPENDENTS0 HALF-ADDER& . FULL-ADDER&) (IMMEDIATE-DEPENDENTS0 FULL-ADDER* . FULL-ADDER&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . FULL-ADDER&) (DCELL . *1*FULL-ADDER&))))) (PUT1-LST (QUOTE *1*FULL-ADDER$NETLIST) (QUOTE (MAIN-EVENT FULL-ADDER$NETLIST))) (PUT1-LST (QUOTE FULL-ADDER$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FULL-ADDER$NETLIST 16)) TOTALP-LST ((FULL-ADDER$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (FULL-ADDER*) (UNION (HALF-ADDER$NETLIST) (B-OR$NETLIST)))) LISP-CODE *1*FULL-ADDER$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194016 SATELLITES (*1*FULL-ADDER$NETLIST) IMMEDIATE-DEPENDENTS0 (BV-ADDER$NETLIST) EVENT (DEFN FULL-ADDER$NETLIST NIL (CONS (FULL-ADDER*) (UNION (HALF-ADDER$NETLIST) (B-OR$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . FULL-ADDER$NETLIST) (IMMEDIATE-DEPENDENTS0 HALF-ADDER$NETLIST . FULL-ADDER$NETLIST) (IMMEDIATE-DEPENDENTS0 FULL-ADDER* . FULL-ADDER$NETLIST) (DCELL . *1*FULL-ADDER$NETLIST))))) (PUT1-LST (QUOTE *1*FULL-ADDER*) (QUOTE (MAIN-EVENT FULL-ADDER*))) (PUT1-LST (QUOTE FULL-ADDER*) (QUOTE (TYPE-PRESCRIPTION-LST ((FULL-ADDER* 16)) TOTALP-LST ((FULL-ADDER* . T)) SDEFN (LAMBDA NIL (QUOTE (FULL-ADDER (A B C) (SUM CARRY) ((T0 (SUM1 CARRY1) HALF-ADDER (A B)) (T1 (SUM CARRY2) HALF-ADDER (SUM1 C)) (T2 (CARRY) B-OR (CARRY1 CARRY2))) NIL))) LISP-CODE *1*FULL-ADDER* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*FULL-ADDER*) IMMEDIATE-DEPENDENTS0 (FULL-ADDER$VALUE FULL-ADDER& FULL-ADDER$NETLIST) EVENT (DEFN FULL-ADDER* NIL (QUOTE (FULL-ADDER (A B C) (SUM CARRY) ((T0 (SUM1 CARRY1) HALF-ADDER (A B)) (T1 (SUM CARRY2) HALF-ADDER (SUM1 C)) (T2 (CARRY) B-OR (CARRY1 CARRY2))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*FULL-ADDER*))))) (PUT1-LST (QUOTE HALF-ADDER$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE HALF-ADDER$VALUE-OFF HALF-ADDER$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALF-ADDER$VALUE . HALF-ADDER$VALUE-OFF) (DISABLED-LEMMAS NIL HALF-ADDER$VALUE HALF-ADDER$VALUE-OFF . T))))) (PUT1-LST (QUOTE HALF-ADDER$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (FULL-ADDER$VALUE HALF-ADDER$VALUE-OFF) EVENT (PROVE-LEMMA HALF-ADDER$VALUE (REWRITE) (IMPLIES (HALF-ADDER& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE HALF-ADDER) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-XOR A B) (CONS (F-AND A B) (QUOTE NIL))))) ((ENABLE HALF-ADDER& B-XOR$VALUE B-AND$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND$VALUE . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE-4X . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 HALF-ADDER* . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . HALF-ADDER$VALUE) (IMMEDIATE-DEPENDENTS0 HALF-ADDER& . HALF-ADDER$VALUE) (LEMMAS DUAL-EVAL . HALF-ADDER$VALUE))))) (PUT1-LST (QUOTE HALF-ADDER&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE HALF-ADDER&-OFF HALF-ADDER& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALF-ADDER& . HALF-ADDER&-OFF) (DISABLED-LEMMAS NIL HALF-ADDER& HALF-ADDER&-OFF . T))))) (PUT1-LST (QUOTE *1*HALF-ADDER&) (QUOTE (MAIN-EVENT HALF-ADDER&))) (PUT1-LST (QUOTE HALF-ADDER&) (QUOTE (TYPE-PRESCRIPTION-LST ((HALF-ADDER& 3 NIL)) TOTALP-LST ((HALF-ADDER& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE HALF-ADDER) NETLIST) (HALF-ADDER*)) (IF (B-XOR& (DELETE-MODULE (QUOTE HALF-ADDER) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE HALF-ADDER) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*HALF-ADDER& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*HALF-ADDER&) IMMEDIATE-DEPENDENTS0 (FULL-ADDER& HALF-ADDER$VALUE HALF-ADDER&-OFF) EVENT (DEFN HALF-ADDER& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE HALF-ADDER) NETLIST) (HALF-ADDER*)) (AND (B-XOR& (DELETE-MODULE (QUOTE HALF-ADDER) NETLIST)) (B-AND& (DELETE-MODULE (QUOTE HALF-ADDER) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND& . HALF-ADDER&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . HALF-ADDER&) (IMMEDIATE-DEPENDENTS0 B-XOR& . HALF-ADDER&) (IMMEDIATE-DEPENDENTS0 HALF-ADDER* . HALF-ADDER&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . HALF-ADDER&) (DCELL . *1*HALF-ADDER&))))) (PUT1-LST (QUOTE *1*HALF-ADDER$NETLIST) (QUOTE (MAIN-EVENT HALF-ADDER$NETLIST))) (PUT1-LST (QUOTE HALF-ADDER$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((HALF-ADDER$NETLIST 16)) TOTALP-LST ((HALF-ADDER$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (HALF-ADDER*) (UNION (B-XOR$NETLIST) (B-AND$NETLIST)))) LISP-CODE *1*HALF-ADDER$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194016 SATELLITES (*1*HALF-ADDER$NETLIST) IMMEDIATE-DEPENDENTS0 (FULL-ADDER$NETLIST) EVENT (DEFN HALF-ADDER$NETLIST NIL (CONS (HALF-ADDER*) (UNION (B-XOR$NETLIST) (B-AND$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND$NETLIST . HALF-ADDER$NETLIST) (IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . HALF-ADDER$NETLIST) (IMMEDIATE-DEPENDENTS0 HALF-ADDER* . HALF-ADDER$NETLIST) (DCELL . *1*HALF-ADDER$NETLIST))))) (PUT1-LST (QUOTE *1*HALF-ADDER*) (QUOTE (MAIN-EVENT HALF-ADDER*))) (PUT1-LST (QUOTE HALF-ADDER*) (QUOTE (TYPE-PRESCRIPTION-LST ((HALF-ADDER* 16)) TOTALP-LST ((HALF-ADDER* . T)) SDEFN (LAMBDA NIL (QUOTE (HALF-ADDER (A B) (SUM CARRY) ((G0 (SUM) B-XOR (A B)) (G1 (CARRY) B-AND (A B))) NIL))) LISP-CODE *1*HALF-ADDER* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194016 SATELLITES (*1*HALF-ADDER*) IMMEDIATE-DEPENDENTS0 (HALF-ADDER$VALUE HALF-ADDER& HALF-ADDER$NETLIST) EVENT (DEFN HALF-ADDER* NIL (QUOTE (HALF-ADDER (A B) (SUM CARRY) ((G0 (SUM) B-XOR (A B)) (G1 (CARRY) B-AND (A B))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*HALF-ADDER*))))) (PUT1-LST (QUOTE COUNT-PRIMITIVES-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE COUNT-PRIMITIVES-OFF COUNT-PRIMITIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COUNT-PRIMITIVES . COUNT-PRIMITIVES-OFF) (DISABLED-LEMMAS NIL COUNT-PRIMITIVES COUNT-PRIMITIVES-OFF . T))))) (PUT1-LST (QUOTE *1*COUNT-PRIMITIVES) (QUOTE (MAIN-EVENT COUNT-PRIMITIVES))) (PUT1-LST (QUOTE COUNT-PRIMITIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((COUNT-PRIMITIVES -1 NIL NIL T NIL NIL)) TOTALP-LST ((COUNT-PRIMITIVES . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (FLG X0 X1 TYPE NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (PRIMP-LOOKUP X0 TYPE) (PRIMP2 X0 TYPE) (QUOTE *1*FALSE)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COUNT-PRIMITIVES (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE 0) TYPE (DELETE-MODULE X0 NETLIST)) (QUOTE *1*FALSE))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST) (COUNT-PRIMITIVES (QUOTE 1) (CDR X0) (PLUS X1 (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST)) TYPE NETLIST) (QUOTE *1*FALSE)) X1) (QUOTE *1*FALSE)))) LISP-CODE *1*COUNT-PRIMITIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0) (PRIMP-LOOKUP X0 TYPE)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0) (NOT (PRIMP-LOOKUP X0 TYPE))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (LISTP (LOOKUP-MODULE X0 NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE 0) TYPE (DELETE-MODULE X0 NETLIST)))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST)) (((QUOTE 1) (CDR X0) (PLUS X1 (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST)) TYPE NETLIST) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194016 CONTROLLER-POCKETS (18) SATELLITES (*1*COUNT-PRIMITIVES) IMMEDIATE-DEPENDENTS0 (COUNT-PRIMITIVES-OFF) EVENT (DEFN COUNT-PRIMITIVES (FLG X0 X1 TYPE NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (PRIMP-LOOKUP X0 TYPE) (PRIMP2 X0 TYPE) (QUOTE *1*FALSE)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COUNT-PRIMITIVES (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE 0) TYPE (DELETE-MODULE X0 NETLIST)) (QUOTE *1*FALSE))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) X1 (IF (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST) (COUNT-PRIMITIVES (QUOTE 1) (CDR X0) (PLUS X1 (COUNT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) TYPE NETLIST)) TYPE NETLIST) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 PRIMP2 . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 PRIMP . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . COUNT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . COUNT-PRIMITIVES) (DCELL . *1*COUNT-PRIMITIVES))))) (PUT1-LST (QUOTE *1*COLLECT-PRIMITIVES) (QUOTE (MAIN-EVENT COLLECT-PRIMITIVES))) (PUT1-LST (QUOTE COLLECT-PRIMITIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-PRIMITIVES -1 NIL NIL NIL)) TOTALP-LST ((COLLECT-PRIMITIVES . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (FLG X0 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS X0 (QUOTE NIL)) (IF (LOOKUP-MODULE X0 NETLIST) (FLATTEN-LIST (COLLECT-PRIMITIVES (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST))) (CONS X0 (QUOTE NIL)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (CONS (COLLECT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST) (COLLECT-PRIMITIVES (QUOTE 1) (CDR X0) NETLIST)) (QUOTE NIL)) (QUOTE *1*FALSE)))) LISP-CODE *1*COLLECT-PRIMITIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (OR (PRIMP X0) (NOT (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (OR (PRIMP X0) (NOT (LOOKUP-MODULE X0 NETLIST))))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST)))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0))) (((QUOTE 1) (CDR X0) NETLIST) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CAR-LESSP CDR-LESSEQP CAR-LESSEQP OCC-FUNCTION CDR-LESSP EQUAL NLISTP LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT NOT OR MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194016 CONTROLLER-POCKETS (6) SATELLITES (*1*COLLECT-PRIMITIVES) EVENT (DEFN COLLECT-PRIMITIVES (FLG X0 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (OR (PRIMP X0) (NOT (LOOKUP-MODULE X0 NETLIST))) (CONS X0 (QUOTE NIL)) (FLATTEN-LIST (COLLECT-PRIMITIVES (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) (QUOTE NIL) (CONS (COLLECT-PRIMITIVES (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST) (COLLECT-PRIMITIVES (QUOTE 1) (CDR X0) NETLIST))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 FLATTEN-LIST . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 PRIMP . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . COLLECT-PRIMITIVES) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . COLLECT-PRIMITIVES) (DCELL . *1*COLLECT-PRIMITIVES))))) (PUT1-LST (QUOTE *1*LISP-NETLIST) (QUOTE (MAIN-EVENT LISP-NETLIST))) (PUT1-LST (QUOTE LISP-NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((LISP-NETLIST 24 T)) TOTALP-LST ((LISP-NETLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (INDEXP NETLIST) (PACK (APPEND (UNPACK (I-NAME NETLIST)) (CONS (CAR (CDR (UNPACK (QUOTE A_)))) (NUMBER-TO-LIST (I-NUM NETLIST))))) (IF (LISTP NETLIST) (CONS (LISP-NETLIST (CAR NETLIST)) (LISP-NETLIST (CDR NETLIST))) NETLIST))) LISP-CODE *1*LISP-NETLIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((INDEXP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (INDEXP NETLIST)) (NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (INDEXP NETLIST)) (NOT (NLISTP NETLIST))) (((CDR NETLIST)) ((CAR NETLIST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194016 CONTROLLER-POCKETS (1) SATELLITES (*1*LISP-NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-SIMPLE CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED) EVENT (DEFN LISP-NETLIST (NETLIST) (IF (INDEXP NETLIST) (PACK (APPEND (UNPACK (I-NAME NETLIST)) (CONS (CAR (CDR (UNPACK (QUOTE A_)))) (NUMBER-TO-LIST (I-NUM NETLIST))))) (IF (NLISTP NETLIST) NETLIST (CONS (LISP-NETLIST (CAR NETLIST)) (LISP-NETLIST (CDR NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . LISP-NETLIST) (IMMEDIATE-DEPENDENTS0 NUMBER-TO-LIST . LISP-NETLIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LISP-NETLIST) (DCELL . *1*LISP-NETLIST))))) (PUT1-LST (QUOTE *1*NUMBER-TO-LIST) (QUOTE (MAIN-EVENT NUMBER-TO-LIST))) (PUT1-LST (QUOTE NUMBER-TO-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBER-TO-LIST 20 NIL)) TOTALP-LST ((NUMBER-TO-LIST . T)) SDEFN (LAMBDA (NUMBER) (IF (EQUAL NUMBER (QUOTE 0)) (CONS (CAR (CDR (UNPACK (QUOTE A0)))) (QUOTE 0)) (IF (NUMBERP NUMBER) (REV-0 (NUMBER-TO-LIST1 NUMBER)) (CONS (CAR (CDR (UNPACK (QUOTE A0)))) (QUOTE 0))))) LISP-CODE *1*NUMBER-TO-LIST SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194016 SATELLITES (*1*NUMBER-TO-LIST) IMMEDIATE-DEPENDENTS0 (LISP-NETLIST) EVENT (DEFN NUMBER-TO-LIST (NUMBER) (IF (ZEROP NUMBER) (CONS (CAR (CDR (UNPACK (QUOTE A0)))) (QUOTE 0)) (REV-0 (NUMBER-TO-LIST1 NUMBER)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBER-TO-LIST1 . NUMBER-TO-LIST) (IMMEDIATE-DEPENDENTS0 REV-0 . NUMBER-TO-LIST) (DCELL . *1*NUMBER-TO-LIST))))) (PUT1-LST (QUOTE *1*NUMBER-TO-LIST1) (QUOTE (MAIN-EVENT NUMBER-TO-LIST1))) (PUT1-LST (QUOTE NUMBER-TO-LIST1) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBER-TO-LIST1 20 NIL)) TOTALP-LST ((NUMBER-TO-LIST1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NUMBER) (IF (EQUAL NUMBER (QUOTE 0)) (QUOTE 0) (IF (NUMBERP NUMBER) (CONS (NUMBER-TO-DIGIT (REMAINDER NUMBER (QUOTE 10))) (NUMBER-TO-LIST1 (QUOTIENT NUMBER (QUOTE 10)))) (QUOTE 0)))) LISP-CODE *1*NUMBER-TO-LIST1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP NUMBER)) NIL) (TESTS-AND-CASES ((NOT (ZEROP NUMBER))) (((QUOTIENT NUMBER (QUOTE 10)))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NUMBER) (COUNT NUMBER) LESSP (ZERO QUOTIENT-LESSP LESSP ZEROP COUNT-NUMBERP))) IDATE 1000402194016 CONTROLLER-POCKETS (1) SATELLITES (*1*NUMBER-TO-LIST1) IMMEDIATE-DEPENDENTS0 (NUMBER-TO-LIST) EVENT (DEFN NUMBER-TO-LIST1 (NUMBER) (IF (ZEROP NUMBER) (QUOTE 0) (CONS (NUMBER-TO-DIGIT (REMAINDER NUMBER (QUOTE 10))) (NUMBER-TO-LIST1 (QUOTIENT NUMBER (QUOTE 10)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBER-TO-DIGIT . NUMBER-TO-LIST1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . NUMBER-TO-LIST1) (DCELL . *1*NUMBER-TO-LIST1))))) (PUT1-LST (QUOTE *1*NUMBER-TO-DIGIT) (QUOTE (MAIN-EVENT NUMBER-TO-DIGIT))) (PUT1-LST (QUOTE NUMBER-TO-DIGIT) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBER-TO-DIGIT -1 NIL)) TOTALP-LST ((NUMBER-TO-DIGIT . T)) SDEFN (LAMBDA (NUMBER) (NTH NUMBER (CDR (UNPACK (QUOTE A0123456789))))) LISP-CODE *1*NUMBER-TO-DIGIT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*NUMBER-TO-DIGIT) IMMEDIATE-DEPENDENTS0 (NUMBER-TO-LIST1) EVENT (DEFN NUMBER-TO-DIGIT (NUMBER) (NTH NUMBER (CDR (UNPACK (QUOTE A0123456789))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . NUMBER-TO-DIGIT) (DCELL . *1*NUMBER-TO-DIGIT))))) (PUT1-LST (QUOTE *1*REV-0) (QUOTE (MAIN-EVENT REV-0))) (PUT1-LST (QUOTE REV-0) (QUOTE (TYPE-PRESCRIPTION-LST ((REV-0 20 NIL)) TOTALP-LST ((REV-0 . T)) SDEFN (LAMBDA (X) (REV1 X (QUOTE 0))) LISP-CODE *1*REV-0 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*REV-0) IMMEDIATE-DEPENDENTS0 (NUMBER-TO-LIST) EVENT (DEFN REV-0 (X) (REV1 X (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REV1 . REV-0) (DCELL . *1*REV-0))))) (PUT1-LST (QUOTE V-WIRE$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE$VALUE-OFF V-WIRE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$VALUE . V-WIRE$VALUE-OFF) (DISABLED-LEMMAS NIL V-WIRE$VALUE V-WIRE$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-WIRE$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP V-WIRE$VALUE-OFF) EVENT (PROVE-LEMMA V-WIRE$VALUE (REWRITE) (IMPLIES (AND (V-WIRE& NETLIST N) (AND (AND (PROPERP A) (EQUAL (LENGTH A) N)) (AND (PROPERP B) (EQUAL (LENGTH B) N)))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-WIRE) N) (APPEND A B) STATE NETLIST) (V-WIRE A B))) ((ENABLE V-WIRE& V-WIRE$BODY-VALUE V-WIRE*$DESTRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE*$DESTRUCTURE . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE$BODY-VALUE . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE& . V-WIRE$VALUE) (LEMMAS DUAL-EVAL . V-WIRE$VALUE))))) (PUT1-LST (QUOTE V-WIRE$BODY-VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE$BODY-VALUE-OFF V-WIRE$BODY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$BODY-VALUE . V-WIRE$BODY-VALUE-OFF) (DISABLED-LEMMAS NIL V-WIRE$BODY-VALUE V-WIRE$BODY-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-WIRE$BODY-VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-WIRE$VALUE V-WIRE$BODY-VALUE-OFF) EVENT (PROVE-LEMMA V-WIRE$BODY-VALUE (REWRITE) (IMPLIES (AND (T-WIRE& NETLIST) (EQUAL BODY (V-WIRE$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-WIRE (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS)))) ((INDUCT (VECTOR-MODULE-INDUCTION BODY M N BINDINGS STATE-BINDINGS NETLIST)) (DISABLE-THEORY F-GATES) (ENABLE V-WIRE$BODY T-WIRE$VALUE V-WIRE$UNBOUND-IN-BODY V-WIRE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 T-WIRE$VALUE . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE$UNBOUND-IN-BODY . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 VECTOR-MODULE-INDUCTION . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-WIRE$BODY . V-WIRE$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 T-WIRE& . V-WIRE$BODY-VALUE) (LEMMAS COLLECT-VALUE . V-WIRE$BODY-VALUE))))) (PUT1-LST (QUOTE V-WIRE$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE$UNBOUND-IN-BODY-OFF V-WIRE$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$UNBOUND-IN-BODY . V-WIRE$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL V-WIRE$UNBOUND-IN-BODY V-WIRE$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE V-WIRE$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA V-WIRE$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-WIRE$BODY M N))) ((ENABLE V-WIRE$BODY UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 V-WIRE$BODY . V-WIRE$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . V-WIRE$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . V-WIRE$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*V-WIRE$NETLIST) (QUOTE (MAIN-EVENT V-WIRE$NETLIST))) (PUT1-LST (QUOTE V-WIRE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-WIRE$NETLIST 16 NIL)) TOTALP-LST ((V-WIRE$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-WIRE* N) (T-WIRE$NETLIST))) LISP-CODE *1*V-WIRE$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-WIRE$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$NETLIST) EVENT (DEFN V-WIRE$NETLIST (N) (CONS (V-WIRE* N) (T-WIRE$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE$NETLIST . V-WIRE$NETLIST) (IMMEDIATE-DEPENDENTS0 V-WIRE* . V-WIRE$NETLIST) (DCELL . *1*V-WIRE$NETLIST))))) (PUT1-LST (QUOTE V-WIRE&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE&-OFF V-WIRE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE& . V-WIRE&-OFF) (DISABLED-LEMMAS NIL V-WIRE& V-WIRE&-OFF . T))))) (PUT1-LST (QUOTE *1*V-WIRE&) (QUOTE (MAIN-EVENT V-WIRE&))) (PUT1-LST (QUOTE V-WIRE&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-WIRE& 3 NIL NIL)) TOTALP-LST ((V-WIRE& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-WIRE) N) NETLIST) (V-WIRE* N)) (T-WIRE& (DELETE-MODULE (INDEX (QUOTE V-WIRE) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*V-WIRE& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-WIRE&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM& V-WIRE$VALUE V-WIRE&-OFF) EVENT (DEFN V-WIRE& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-WIRE) N) NETLIST) (V-WIRE* N)) (T-WIRE& (DELETE-MODULE (INDEX (QUOTE V-WIRE) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-WIRE&) (IMMEDIATE-DEPENDENTS0 T-WIRE& . V-WIRE&) (IMMEDIATE-DEPENDENTS0 V-WIRE* . V-WIRE&) (IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-WIRE&) (DCELL . *1*V-WIRE&))))) (PUT1-LST (QUOTE V-WIRE*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE*$DESTRUCTURE-OFF V-WIRE*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE*$DESTRUCTURE . V-WIRE*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-WIRE*$DESTRUCTURE V-WIRE*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-WIRE*-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE*-OFF V-WIRE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE* . V-WIRE*-OFF) (DISABLED-LEMMAS NIL V-WIRE* V-WIRE*-OFF . T))))) (PUT1-LST (QUOTE V-WIRE*$DESTRUCTURE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-WIRE$VALUE V-WIRE*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-WIRE*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-WIRE* N)) (INDEX (QUOTE V-WIRE) N)) (AND (EQUAL (CAR (CDR (V-WIRE* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (V-WIRE* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (V-WIRE* N))))) (V-WIRE$BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-WIRE* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$BODY . V-WIRE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-WIRE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-WIRE* . V-WIRE*$DESTRUCTURE) (LEMMAS CAR . V-WIRE*$DESTRUCTURE) (LEMMAS CAR . V-WIRE*$DESTRUCTURE) (LEMMAS CAR . V-WIRE*$DESTRUCTURE) (LEMMAS CAR . V-WIRE*$DESTRUCTURE) (LEMMAS CAR . V-WIRE*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-WIRE*) (QUOTE (MAIN-EVENT V-WIRE*))) (PUT1-LST (QUOTE V-WIRE*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-WIRE* 16 NIL)) TOTALP-LST ((V-WIRE* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-WIRE) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-WIRE$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*V-WIRE* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-WIRE*) IMMEDIATE-DEPENDENTS0 (V-WIRE$NETLIST V-WIRE& V-WIRE*-OFF V-WIRE*$DESTRUCTURE) EVENT (DEFN V-WIRE* (N) (CONS (INDEX (QUOTE V-WIRE) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-WIRE$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$BODY . V-WIRE*) (IMMEDIATE-DEPENDENTS0 INDICES . V-WIRE*) (IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE*) (DCELL . *1*V-WIRE*))))) (PUT1-LST (QUOTE V-WIRE$BODY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-WIRE$BODY-OFF V-WIRE$BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE$BODY . V-WIRE$BODY-OFF) (DISABLED-LEMMAS NIL V-WIRE$BODY V-WIRE$BODY-OFF . T))))) (PUT1-LST (QUOTE *1*V-WIRE$BODY) (QUOTE (MAIN-EVENT V-WIRE$BODY))) (PUT1-LST (QUOTE V-WIRE$BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-WIRE$BODY 24 NIL NIL)) TOTALP-LST ((V-WIRE$BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE T-WIRE) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-WIRE$BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*V-WIRE$BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194016 CONTROLLER-POCKETS (2) SATELLITES (*1*V-WIRE$BODY) IMMEDIATE-DEPENDENTS0 (V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY V-WIRE*$DESTRUCTURE V-WIRE* V-WIRE$BODY-OFF) EVENT (DEFN V-WIRE$BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE T-WIRE) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-WIRE$BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-WIRE$BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-WIRE$BODY) (DCELL . *1*V-WIRE$BODY))))) (PUT1-LST (QUOTE V-PULLUP$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP$VALUE-OFF V-PULLUP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$VALUE . V-PULLUP$VALUE-OFF) (DISABLED-LEMMAS NIL V-PULLUP$VALUE V-PULLUP$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-PULLUP$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP V-PULLUP$VALUE-OFF) EVENT (PROVE-LEMMA V-PULLUP$VALUE (REWRITE) (IMPLIES (AND (V-PULLUP& NETLIST N) (AND (PROPERP A) (EQUAL (LENGTH A) N))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-PULLUP) N) A STATE NETLIST) (V-PULLUP A))) ((ENABLE V-PULLUP& V-PULLUP$BODY-VALUE V-PULLUP*$DESTRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP*$DESTRUCTURE . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY-VALUE . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP& . V-PULLUP$VALUE) (LEMMAS DUAL-EVAL . V-PULLUP$VALUE))))) (PUT1-LST (QUOTE V-PULLUP$BODY-VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP$BODY-VALUE-OFF V-PULLUP$BODY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY-VALUE . V-PULLUP$BODY-VALUE-OFF) (DISABLED-LEMMAS NIL V-PULLUP$BODY-VALUE V-PULLUP$BODY-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-PULLUP$BODY-VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-PULLUP$VALUE V-PULLUP$BODY-VALUE-OFF) EVENT (PROVE-LEMMA V-PULLUP$BODY-VALUE (REWRITE) (IMPLIES (AND (PULLUP& NETLIST) (EQUAL BODY (V-PULLUP$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-PULLUP (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS)))) ((INDUCT (VECTOR-MODULE-INDUCTION BODY M N BINDINGS STATE-BINDINGS NETLIST)) (DISABLE-THEORY F-GATES) (ENABLE V-PULLUP$BODY PULLUP$VALUE V-PULLUP$UNBOUND-IN-BODY V-PULLUP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PULLUP$VALUE . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP$UNBOUND-IN-BODY . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 VECTOR-MODULE-INDUCTION . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY . V-PULLUP$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PULLUP& . V-PULLUP$BODY-VALUE) (LEMMAS COLLECT-VALUE . V-PULLUP$BODY-VALUE))))) (PUT1-LST (QUOTE V-PULLUP$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP$UNBOUND-IN-BODY-OFF V-PULLUP$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$UNBOUND-IN-BODY . V-PULLUP$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL V-PULLUP$UNBOUND-IN-BODY V-PULLUP$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE V-PULLUP$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA V-PULLUP$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-PULLUP$BODY M N))) ((ENABLE V-PULLUP$BODY UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY . V-PULLUP$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . V-PULLUP$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . V-PULLUP$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*V-PULLUP$NETLIST) (QUOTE (MAIN-EVENT V-PULLUP$NETLIST))) (PUT1-LST (QUOTE V-PULLUP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PULLUP$NETLIST 16 NIL)) TOTALP-LST ((V-PULLUP$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-PULLUP* N) (PULLUP$NETLIST))) LISP-CODE *1*V-PULLUP$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-PULLUP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$NETLIST) EVENT (DEFN V-PULLUP$NETLIST (N) (CONS (V-PULLUP* N) (PULLUP$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP$NETLIST . V-PULLUP$NETLIST) (IMMEDIATE-DEPENDENTS0 V-PULLUP* . V-PULLUP$NETLIST) (DCELL . *1*V-PULLUP$NETLIST))))) (PUT1-LST (QUOTE V-PULLUP&-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP&-OFF V-PULLUP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP& . V-PULLUP&-OFF) (DISABLED-LEMMAS NIL V-PULLUP& V-PULLUP&-OFF . T))))) (PUT1-LST (QUOTE *1*V-PULLUP&) (QUOTE (MAIN-EVENT V-PULLUP&))) (PUT1-LST (QUOTE V-PULLUP&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PULLUP& 3 NIL NIL)) TOTALP-LST ((V-PULLUP& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-PULLUP) N) NETLIST) (V-PULLUP* N)) (PULLUP& (DELETE-MODULE (INDEX (QUOTE V-PULLUP) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*V-PULLUP& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-PULLUP&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM& V-PULLUP$VALUE V-PULLUP&-OFF) EVENT (DEFN V-PULLUP& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-PULLUP) N) NETLIST) (V-PULLUP* N)) (PULLUP& (DELETE-MODULE (INDEX (QUOTE V-PULLUP) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-PULLUP&) (IMMEDIATE-DEPENDENTS0 PULLUP& . V-PULLUP&) (IMMEDIATE-DEPENDENTS0 V-PULLUP* . V-PULLUP&) (IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-PULLUP&) (DCELL . *1*V-PULLUP&))))) (PUT1-LST (QUOTE V-PULLUP*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP*$DESTRUCTURE-OFF V-PULLUP*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP*$DESTRUCTURE . V-PULLUP*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-PULLUP*$DESTRUCTURE V-PULLUP*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-PULLUP*-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP*-OFF V-PULLUP* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP* . V-PULLUP*-OFF) (DISABLED-LEMMAS NIL V-PULLUP* V-PULLUP*-OFF . T))))) (PUT1-LST (QUOTE V-PULLUP*$DESTRUCTURE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-PULLUP$VALUE V-PULLUP*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-PULLUP*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-PULLUP* N)) (INDEX (QUOTE V-PULLUP) N)) (AND (EQUAL (CAR (CDR (V-PULLUP* N))) (INDICES (QUOTE A) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (V-PULLUP* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (V-PULLUP* N))))) (V-PULLUP$BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-PULLUP* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY . V-PULLUP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-PULLUP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-PULLUP* . V-PULLUP*$DESTRUCTURE) (LEMMAS CAR . V-PULLUP*$DESTRUCTURE) (LEMMAS CAR . V-PULLUP*$DESTRUCTURE) (LEMMAS CAR . V-PULLUP*$DESTRUCTURE) (LEMMAS CAR . V-PULLUP*$DESTRUCTURE) (LEMMAS CAR . V-PULLUP*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-PULLUP*) (QUOTE (MAIN-EVENT V-PULLUP*))) (PUT1-LST (QUOTE V-PULLUP*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PULLUP* 16 NIL)) TOTALP-LST ((V-PULLUP* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-PULLUP) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-PULLUP$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*V-PULLUP* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194016 SATELLITES (*1*V-PULLUP*) IMMEDIATE-DEPENDENTS0 (V-PULLUP$NETLIST V-PULLUP& V-PULLUP*-OFF V-PULLUP*$DESTRUCTURE) EVENT (DEFN V-PULLUP* (N) (CONS (INDEX (QUOTE V-PULLUP) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-PULLUP$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY . V-PULLUP*) (IMMEDIATE-DEPENDENTS0 INDICES . V-PULLUP*) (IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP*) (DCELL . *1*V-PULLUP*))))) (PUT1-LST (QUOTE V-PULLUP$BODY-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-PULLUP$BODY-OFF V-PULLUP$BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP$BODY . V-PULLUP$BODY-OFF) (DISABLED-LEMMAS NIL V-PULLUP$BODY V-PULLUP$BODY-OFF . T))))) (PUT1-LST (QUOTE *1*V-PULLUP$BODY) (QUOTE (MAIN-EVENT V-PULLUP$BODY))) (PUT1-LST (QUOTE V-PULLUP$BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PULLUP$BODY 24 NIL NIL)) TOTALP-LST ((V-PULLUP$BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE PULLUP) (CONS (CONS (INDEX (QUOTE A) M) (QUOTE NIL)) (QUOTE NIL))))) (V-PULLUP$BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*V-PULLUP$BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194016 CONTROLLER-POCKETS (2) SATELLITES (*1*V-PULLUP$BODY) IMMEDIATE-DEPENDENTS0 (V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY V-PULLUP*$DESTRUCTURE V-PULLUP* V-PULLUP$BODY-OFF) EVENT (DEFN V-PULLUP$BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE PULLUP) (CONS (CONS (INDEX (QUOTE A) M) (QUOTE NIL)) (QUOTE NIL))))) (V-PULLUP$BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-PULLUP$BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-PULLUP$BODY) (DCELL . *1*V-PULLUP$BODY))))) (PUT1-LST (QUOTE V-XOR$VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-XOR$VALUE-OFF V-XOR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$VALUE . V-XOR$VALUE-OFF) (DISABLED-LEMMAS NIL V-XOR$VALUE V-XOR$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-XOR$VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-EQUAL$VALUE V-XOR$VALUE-OFF) EVENT (PROVE-LEMMA V-XOR$VALUE (REWRITE) (IMPLIES (AND (V-XOR& NETLIST N) (AND (AND (PROPERP A) (EQUAL (LENGTH A) N)) (AND (PROPERP B) (EQUAL (LENGTH B) N)))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-XOR) N) (APPEND A B) STATE NETLIST) (FV-XOR A B))) ((ENABLE V-XOR& V-XOR$BODY-VALUE V-XOR*$DESTRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR*$DESTRUCTURE . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR$BODY-VALUE . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 FV-XOR . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR& . V-XOR$VALUE) (LEMMAS DUAL-EVAL . V-XOR$VALUE))))) (PUT1-LST (QUOTE V-XOR$BODY-VALUE-OFF) (QUOTE (IDATE 1000402194016 EVENT (TOGGLE V-XOR$BODY-VALUE-OFF V-XOR$BODY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$BODY-VALUE . V-XOR$BODY-VALUE-OFF) (DISABLED-LEMMAS NIL V-XOR$BODY-VALUE V-XOR$BODY-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-XOR$BODY-VALUE) (QUOTE (IDATE 1000402194016 IMMEDIATE-DEPENDENTS0 (V-XOR$VALUE V-XOR$BODY-VALUE-OFF) EVENT (PROVE-LEMMA V-XOR$BODY-VALUE (REWRITE) (IMPLIES (AND (B-XOR& NETLIST) (EQUAL BODY (V-XOR$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (FV-XOR (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS)))) ((INDUCT (VECTOR-MODULE-INDUCTION BODY M N BINDINGS STATE-BINDINGS NETLIST)) (DISABLE-THEORY F-GATES) (ENABLE V-XOR$BODY B-XOR$VALUE V-XOR$UNBOUND-IN-BODY FV-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR$UNBOUND-IN-BODY . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 VECTOR-MODULE-INDUCTION . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 FV-XOR . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-XOR$BODY . V-XOR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR& . V-XOR$BODY-VALUE) (LEMMAS COLLECT-VALUE . V-XOR$BODY-VALUE))))) (PUT1-LST (QUOTE V-XOR$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-XOR$UNBOUND-IN-BODY-OFF V-XOR$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$UNBOUND-IN-BODY . V-XOR$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL V-XOR$UNBOUND-IN-BODY V-XOR$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE V-XOR$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA V-XOR$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-XOR$BODY M N))) ((ENABLE V-XOR$BODY UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 V-XOR$BODY . V-XOR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . V-XOR$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . V-XOR$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*V-XOR$NETLIST) (QUOTE (MAIN-EVENT V-XOR$NETLIST))) (PUT1-LST (QUOTE V-XOR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-XOR$NETLIST 16 NIL)) TOTALP-LST ((V-XOR$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-XOR* N) (B-XOR$NETLIST))) LISP-CODE *1*V-XOR$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-XOR$NETLIST) IMMEDIATE-DEPENDENTS0 (V-EQUAL$NETLIST) EVENT (DEFN V-XOR$NETLIST (N) (CONS (V-XOR* N) (B-XOR$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR$NETLIST . V-XOR$NETLIST) (IMMEDIATE-DEPENDENTS0 V-XOR* . V-XOR$NETLIST) (DCELL . *1*V-XOR$NETLIST))))) (PUT1-LST (QUOTE V-XOR&-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-XOR&-OFF V-XOR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR& . V-XOR&-OFF) (DISABLED-LEMMAS NIL V-XOR& V-XOR&-OFF . T))))) (PUT1-LST (QUOTE *1*V-XOR&) (QUOTE (MAIN-EVENT V-XOR&))) (PUT1-LST (QUOTE V-XOR&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-XOR& 3 NIL NIL)) TOTALP-LST ((V-XOR& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-XOR) N) NETLIST) (V-XOR* N)) (B-XOR& (DELETE-MODULE (INDEX (QUOTE V-XOR) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*V-XOR& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-XOR&) IMMEDIATE-DEPENDENTS0 (V-EQUAL& V-XOR$VALUE V-XOR&-OFF) EVENT (DEFN V-XOR& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-XOR) N) NETLIST) (V-XOR* N)) (B-XOR& (DELETE-MODULE (INDEX (QUOTE V-XOR) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-XOR&) (IMMEDIATE-DEPENDENTS0 B-XOR& . V-XOR&) (IMMEDIATE-DEPENDENTS0 V-XOR* . V-XOR&) (IMMEDIATE-DEPENDENTS0 INDEX . V-XOR&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-XOR&) (DCELL . *1*V-XOR&))))) (PUT1-LST (QUOTE V-XOR*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-XOR*$DESTRUCTURE-OFF V-XOR*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR*$DESTRUCTURE . V-XOR*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-XOR*$DESTRUCTURE V-XOR*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-XOR*-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-XOR*-OFF V-XOR* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR* . V-XOR*-OFF) (DISABLED-LEMMAS NIL V-XOR* V-XOR*-OFF . T))))) (PUT1-LST (QUOTE V-XOR*$DESTRUCTURE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-XOR$VALUE V-XOR*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-XOR*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-XOR* N)) (INDEX (QUOTE V-XOR) N)) (AND (EQUAL (CAR (CDR (V-XOR* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (V-XOR* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (V-XOR* N))))) (V-XOR$BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-XOR* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$BODY . V-XOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-XOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-XOR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-XOR* . V-XOR*$DESTRUCTURE) (LEMMAS CAR . V-XOR*$DESTRUCTURE) (LEMMAS CAR . V-XOR*$DESTRUCTURE) (LEMMAS CAR . V-XOR*$DESTRUCTURE) (LEMMAS CAR . V-XOR*$DESTRUCTURE) (LEMMAS CAR . V-XOR*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-XOR*) (QUOTE (MAIN-EVENT V-XOR*))) (PUT1-LST (QUOTE V-XOR*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-XOR* 16 NIL)) TOTALP-LST ((V-XOR* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-XOR$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*V-XOR* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-XOR*) IMMEDIATE-DEPENDENTS0 (V-XOR$NETLIST V-XOR& V-XOR*-OFF V-XOR*$DESTRUCTURE) EVENT (DEFN V-XOR* (N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-XOR$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$BODY . V-XOR*) (IMMEDIATE-DEPENDENTS0 INDICES . V-XOR*) (IMMEDIATE-DEPENDENTS0 INDEX . V-XOR*) (DCELL . *1*V-XOR*))))) (PUT1-LST (QUOTE V-XOR$BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-XOR$BODY-OFF V-XOR$BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR$BODY . V-XOR$BODY-OFF) (DISABLED-LEMMAS NIL V-XOR$BODY V-XOR$BODY-OFF . T))))) (PUT1-LST (QUOTE *1*V-XOR$BODY) (QUOTE (MAIN-EVENT V-XOR$BODY))) (PUT1-LST (QUOTE V-XOR$BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-XOR$BODY 24 NIL NIL)) TOTALP-LST ((V-XOR$BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-XOR) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-XOR$BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*V-XOR$BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194015 CONTROLLER-POCKETS (2) SATELLITES (*1*V-XOR$BODY) IMMEDIATE-DEPENDENTS0 (V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY V-XOR*$DESTRUCTURE V-XOR* V-XOR$BODY-OFF) EVENT (DEFN V-XOR$BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-XOR) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-XOR$BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-XOR$BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-XOR$BODY) (DCELL . *1*V-XOR$BODY))))) (PUT1-LST (QUOTE V-OR$VALUE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR$VALUE-OFF V-OR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$VALUE . V-OR$VALUE-OFF) (DISABLED-LEMMAS NIL V-OR$VALUE V-OR$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-OR$VALUE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE V-OR$VALUE-OFF) EVENT (PROVE-LEMMA V-OR$VALUE (REWRITE) (IMPLIES (AND (V-OR& NETLIST N) (AND (AND (PROPERP A) (EQUAL (LENGTH A) N)) (AND (PROPERP B) (EQUAL (LENGTH B) N)))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-OR) N) (APPEND A B) STATE NETLIST) (FV-OR A B))) ((ENABLE V-OR& V-OR$BODY-VALUE V-OR*$DESTRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 V-OR*$DESTRUCTURE . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-APPEND . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 DISJOINT-INDICES-DIFFERENT-NAMES . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 V-OR$BODY-VALUE . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 FV-OR . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-OR$VALUE) (IMMEDIATE-DEPENDENTS0 V-OR& . V-OR$VALUE) (LEMMAS DUAL-EVAL . V-OR$VALUE))))) (PUT1-LST (QUOTE V-OR$BODY-VALUE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR$BODY-VALUE-OFF V-OR$BODY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$BODY-VALUE . V-OR$BODY-VALUE-OFF) (DISABLED-LEMMAS NIL V-OR$BODY-VALUE V-OR$BODY-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-OR$BODY-VALUE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-OR$VALUE V-OR$BODY-VALUE-OFF) EVENT (PROVE-LEMMA V-OR$BODY-VALUE (REWRITE) (IMPLIES (AND (B-OR& NETLIST) (EQUAL BODY (V-OR$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (FV-OR (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS)))) ((INDUCT (VECTOR-MODULE-INDUCTION BODY M N BINDINGS STATE-BINDINGS NETLIST)) (DISABLE-THEORY F-GATES) (ENABLE V-OR$BODY B-OR$VALUE V-OR$UNBOUND-IN-BODY FV-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-OR$VALUE . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-OR$UNBOUND-IN-BODY . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 VECTOR-MODULE-INDUCTION . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 FV-OR . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-OR$BODY . V-OR$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-OR& . V-OR$BODY-VALUE) (LEMMAS COLLECT-VALUE . V-OR$BODY-VALUE))))) (PUT1-LST (QUOTE V-OR$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR$UNBOUND-IN-BODY-OFF V-OR$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$UNBOUND-IN-BODY . V-OR$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL V-OR$UNBOUND-IN-BODY V-OR$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE V-OR$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA V-OR$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-OR$BODY M N))) ((ENABLE V-OR$BODY UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 V-OR$BODY . V-OR$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . V-OR$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . V-OR$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*V-OR$NETLIST) (QUOTE (MAIN-EVENT V-OR$NETLIST))) (PUT1-LST (QUOTE V-OR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-OR$NETLIST 16 NIL)) TOTALP-LST ((V-OR$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-OR* N) (B-OR$NETLIST))) LISP-CODE *1*V-OR$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-OR$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST) EVENT (DEFN V-OR$NETLIST (N) (CONS (V-OR* N) (B-OR$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR$NETLIST . V-OR$NETLIST) (IMMEDIATE-DEPENDENTS0 V-OR* . V-OR$NETLIST) (DCELL . *1*V-OR$NETLIST))))) (PUT1-LST (QUOTE V-OR&-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR&-OFF V-OR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR& . V-OR&-OFF) (DISABLED-LEMMAS NIL V-OR& V-OR&-OFF . T))))) (PUT1-LST (QUOTE *1*V-OR&) (QUOTE (MAIN-EVENT V-OR&))) (PUT1-LST (QUOTE V-OR&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-OR& 3 NIL NIL)) TOTALP-LST ((V-OR& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-OR) N) NETLIST) (V-OR* N)) (B-OR& (DELETE-MODULE (INDEX (QUOTE V-OR) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*V-OR& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-OR&) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE& V-OR$VALUE V-OR&-OFF) EVENT (DEFN V-OR& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-OR) N) NETLIST) (V-OR* N)) (B-OR& (DELETE-MODULE (INDEX (QUOTE V-OR) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-OR&) (IMMEDIATE-DEPENDENTS0 B-OR& . V-OR&) (IMMEDIATE-DEPENDENTS0 V-OR* . V-OR&) (IMMEDIATE-DEPENDENTS0 INDEX . V-OR&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-OR&) (DCELL . *1*V-OR&))))) (PUT1-LST (QUOTE V-OR*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR*$DESTRUCTURE-OFF V-OR*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR*$DESTRUCTURE . V-OR*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-OR*$DESTRUCTURE V-OR*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-OR*-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR*-OFF V-OR* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR* . V-OR*-OFF) (DISABLED-LEMMAS NIL V-OR* V-OR*-OFF . T))))) (PUT1-LST (QUOTE V-OR*$DESTRUCTURE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-OR$VALUE V-OR*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-OR*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-OR* N)) (INDEX (QUOTE V-OR) N)) (AND (EQUAL (CAR (CDR (V-OR* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) (AND (EQUAL (CAR (CDR (CDR (V-OR* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (V-OR* N))))) (V-OR$BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-OR* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$BODY . V-OR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-OR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-OR*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-OR* . V-OR*$DESTRUCTURE) (LEMMAS CAR . V-OR*$DESTRUCTURE) (LEMMAS CAR . V-OR*$DESTRUCTURE) (LEMMAS CAR . V-OR*$DESTRUCTURE) (LEMMAS CAR . V-OR*$DESTRUCTURE) (LEMMAS CAR . V-OR*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-OR*) (QUOTE (MAIN-EVENT V-OR*))) (PUT1-LST (QUOTE V-OR*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-OR* 16 NIL)) TOTALP-LST ((V-OR* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-OR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-OR$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*V-OR* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-OR*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST V-OR$NETLIST V-OR& V-OR*-OFF V-OR*$DESTRUCTURE) EVENT (DEFN V-OR* (N) (CONS (INDEX (QUOTE V-OR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-OR$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$BODY . V-OR*) (IMMEDIATE-DEPENDENTS0 INDICES . V-OR*) (IMMEDIATE-DEPENDENTS0 INDEX . V-OR*) (DCELL . *1*V-OR*))))) (PUT1-LST (QUOTE V-OR$BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-OR$BODY-OFF V-OR$BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR$BODY . V-OR$BODY-OFF) (DISABLED-LEMMAS NIL V-OR$BODY V-OR$BODY-OFF . T))))) (PUT1-LST (QUOTE *1*V-OR$BODY) (QUOTE (MAIN-EVENT V-OR$BODY))) (PUT1-LST (QUOTE V-OR$BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-OR$BODY 24 NIL NIL)) TOTALP-LST ((V-OR$BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-OR) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-OR$BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*V-OR$BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194015 CONTROLLER-POCKETS (2) SATELLITES (*1*V-OR$BODY) IMMEDIATE-DEPENDENTS0 (V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY V-OR*$DESTRUCTURE V-OR* V-OR$BODY-OFF) EVENT (DEFN V-OR$BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-OR) (CONS (CONS (INDEX (QUOTE A) M) (CONS (INDEX (QUOTE B) M) (QUOTE NIL))) (QUOTE NIL))))) (V-OR$BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-OR$BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-OR$BODY) (DCELL . *1*V-OR$BODY))))) (PUT1-LST (QUOTE V-BUF$VALUE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF$VALUE-OFF V-BUF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$VALUE . V-BUF$VALUE-OFF) (DISABLED-LEMMAS NIL V-BUF$VALUE V-BUF$VALUE-OFF . T))))) (PUT1-LST (QUOTE V-BUF$VALUE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE V-BUF$VALUE-OFF) EVENT (PROVE-LEMMA V-BUF$VALUE (REWRITE) (IMPLIES (AND (V-BUF& NETLIST N) (AND (PROPERP A) (EQUAL (LENGTH A) N))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-BUF) N) A STATE NETLIST) (V-THREEFIX A))) ((ENABLE V-BUF& V-BUF$BODY-VALUE V-BUF*$DESTRUCTURE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-LITATOM==>NOT-PRIMP . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF*$DESTRUCTURE . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-INDICES . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-IN-INDICES . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-ARGS-PAIRLIST-ARGS . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF$BODY-VALUE . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . V-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF& . V-BUF$VALUE) (LEMMAS DUAL-EVAL . V-BUF$VALUE))))) (PUT1-LST (QUOTE V-BUF$BODY-VALUE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF$BODY-VALUE-OFF V-BUF$BODY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$BODY-VALUE . V-BUF$BODY-VALUE-OFF) (DISABLED-LEMMAS NIL V-BUF$BODY-VALUE V-BUF$BODY-VALUE-OFF . T))))) (PUT1-LST (QUOTE V-BUF$BODY-VALUE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-BUF$VALUE V-BUF$BODY-VALUE-OFF) EVENT (PROVE-LEMMA V-BUF$BODY-VALUE (REWRITE) (IMPLIES (AND (B-BUF& NETLIST) (EQUAL BODY (V-BUF$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS)))) ((INDUCT (VECTOR-MODULE-INDUCTION BODY M N BINDINGS STATE-BINDINGS NETLIST)) (DISABLE-THEORY F-GATES) (ENABLE V-BUF$BODY B-BUF$VALUE V-BUF$UNBOUND-IN-BODY V-THREEFIX F-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-BODY-BINDINGS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 LNFIX . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDEX . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF$UNBOUND-IN-BODY . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-DUAL-EVAL-1 . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 F-GATES . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 VECTOR-MODULE-INDUCTION . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 INDICES . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 V-BUF$BODY . V-BUF$BODY-VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF& . V-BUF$BODY-VALUE) (LEMMAS COLLECT-VALUE . V-BUF$BODY-VALUE))))) (PUT1-LST (QUOTE V-BUF$UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF$UNBOUND-IN-BODY-OFF V-BUF$UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$UNBOUND-IN-BODY . V-BUF$UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL V-BUF$UNBOUND-IN-BODY V-BUF$UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE V-BUF$UNBOUND-IN-BODY) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY-OFF) EVENT (PROVE-LEMMA V-BUF$UNBOUND-IN-BODY (REWRITE) (IMPLIES (LESSP L M) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-BUF$BODY M N))) ((ENABLE V-BUF$BODY UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-LISTP . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 V-BUF$BODY . V-BUF$UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . V-BUF$UNBOUND-IN-BODY) (LEMMAS UNBOUND-IN-BODY . V-BUF$UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE *1*V-BUF$NETLIST) (QUOTE (MAIN-EVENT V-BUF$NETLIST))) (PUT1-LST (QUOTE V-BUF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((V-BUF$NETLIST 16 NIL)) TOTALP-LST ((V-BUF$NETLIST . T)) SDEFN (LAMBDA (N) (CONS (V-BUF* N) (B-BUF$NETLIST))) LISP-CODE *1*V-BUF$NETLIST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-BUF$NETLIST) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$NETLIST) EVENT (DEFN V-BUF$NETLIST (N) (CONS (V-BUF* N) (B-BUF$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF$NETLIST . V-BUF$NETLIST) (IMMEDIATE-DEPENDENTS0 V-BUF* . V-BUF$NETLIST) (DCELL . *1*V-BUF$NETLIST))))) (PUT1-LST (QUOTE V-BUF&-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF&-OFF V-BUF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF& . V-BUF&-OFF) (DISABLED-LEMMAS NIL V-BUF& V-BUF&-OFF . T))))) (PUT1-LST (QUOTE *1*V-BUF&) (QUOTE (MAIN-EVENT V-BUF&))) (PUT1-LST (QUOTE V-BUF&) (QUOTE (TYPE-PRESCRIPTION-LST ((V-BUF& 3 NIL NIL)) TOTALP-LST ((V-BUF& . T)) SDEFN (LAMBDA (NETLIST N) (IF (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-BUF) N) NETLIST) (V-BUF* N)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE V-BUF) N) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*V-BUF& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-BUF&) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP& V-BUF$VALUE V-BUF&-OFF) EVENT (DEFN V-BUF& (NETLIST N) (AND (EQUAL (LOOKUP-MODULE (INDEX (QUOTE V-BUF) N) NETLIST) (V-BUF* N)) (B-BUF& (DELETE-MODULE (INDEX (QUOTE V-BUF) N) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . V-BUF&) (IMMEDIATE-DEPENDENTS0 B-BUF& . V-BUF&) (IMMEDIATE-DEPENDENTS0 V-BUF* . V-BUF&) (IMMEDIATE-DEPENDENTS0 INDEX . V-BUF&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . V-BUF&) (DCELL . *1*V-BUF&))))) (PUT1-LST (QUOTE V-BUF*$DESTRUCTURE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF*$DESTRUCTURE-OFF V-BUF*$DESTRUCTURE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF*$DESTRUCTURE . V-BUF*$DESTRUCTURE-OFF) (DISABLED-LEMMAS NIL V-BUF*$DESTRUCTURE V-BUF*$DESTRUCTURE-OFF . T))))) (PUT1-LST (QUOTE V-BUF*-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF*-OFF V-BUF* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF* . V-BUF*-OFF) (DISABLED-LEMMAS NIL V-BUF* V-BUF*-OFF . T))))) (PUT1-LST (QUOTE V-BUF*$DESTRUCTURE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (V-BUF$VALUE V-BUF*$DESTRUCTURE-OFF) EVENT (PROVE-LEMMA V-BUF*$DESTRUCTURE (REWRITE) (AND (EQUAL (CAR (V-BUF* N)) (INDEX (QUOTE V-BUF) N)) (AND (EQUAL (CAR (CDR (V-BUF* N))) (INDICES (QUOTE A) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (V-BUF* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) (AND (EQUAL (CAR (CDR (CDR (CDR (V-BUF* N))))) (V-BUF$BODY (QUOTE 0) N)) (EQUAL (CAR (CDR (CDR (CDR (CDR (V-BUF* N)))))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$BODY . V-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDICES . V-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 INDEX . V-BUF*$DESTRUCTURE) (IMMEDIATE-DEPENDENTS0 V-BUF* . V-BUF*$DESTRUCTURE) (LEMMAS CAR . V-BUF*$DESTRUCTURE) (LEMMAS CAR . V-BUF*$DESTRUCTURE) (LEMMAS CAR . V-BUF*$DESTRUCTURE) (LEMMAS CAR . V-BUF*$DESTRUCTURE) (LEMMAS CAR . V-BUF*$DESTRUCTURE))))) (PUT1-LST (QUOTE *1*V-BUF*) (QUOTE (MAIN-EVENT V-BUF*))) (PUT1-LST (QUOTE V-BUF*) (QUOTE (TYPE-PRESCRIPTION-LST ((V-BUF* 16 NIL)) TOTALP-LST ((V-BUF* . T)) SDEFN (LAMBDA (N) (CONS (INDEX (QUOTE V-BUF) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-BUF$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LISP-CODE *1*V-BUF* SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194015 SATELLITES (*1*V-BUF*) IMMEDIATE-DEPENDENTS0 (V-BUF$NETLIST V-BUF& V-BUF*-OFF V-BUF*$DESTRUCTURE) EVENT (DEFN V-BUF* (N) (CONS (INDEX (QUOTE V-BUF) N) (CONS (INDICES (QUOTE A) (QUOTE 0) N) (CONS (INDICES (QUOTE Y) (QUOTE 0) N) (CONS (V-BUF$BODY (QUOTE 0) N) (QUOTE (NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$BODY . V-BUF*) (IMMEDIATE-DEPENDENTS0 INDICES . V-BUF*) (IMMEDIATE-DEPENDENTS0 INDEX . V-BUF*) (DCELL . *1*V-BUF*))))) (PUT1-LST (QUOTE V-BUF$BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE V-BUF$BODY-OFF V-BUF$BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF$BODY . V-BUF$BODY-OFF) (DISABLED-LEMMAS NIL V-BUF$BODY V-BUF$BODY-OFF . T))))) (PUT1-LST (QUOTE *1*V-BUF$BODY) (QUOTE (MAIN-EVENT V-BUF$BODY))) (PUT1-LST (QUOTE V-BUF$BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((V-BUF$BODY 24 NIL NIL)) TOTALP-LST ((V-BUF$BODY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (M N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE A) M) (QUOTE NIL)) (QUOTE NIL))))) (V-BUF$BODY (ADD1 M) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*V-BUF$BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD1 M) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194015 CONTROLLER-POCKETS (2) SATELLITES (*1*V-BUF$BODY) IMMEDIATE-DEPENDENTS0 (V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY V-BUF*$DESTRUCTURE V-BUF* V-BUF$BODY-OFF) EVENT (DEFN V-BUF$BODY (M N) (IF (ZEROP N) (QUOTE NIL) (CONS (CONS (INDEX (QUOTE G) M) (CONS (CONS (INDEX (QUOTE Y) M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (INDEX (QUOTE A) M) (QUOTE NIL)) (QUOTE NIL))))) (V-BUF$BODY (ADD1 M) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . V-BUF$BODY) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-BUF$BODY) (DCELL . *1*V-BUF$BODY))))) (PUT1-LST (QUOTE *1*VECTOR-MODULE-INDUCTION) (QUOTE (MAIN-EVENT VECTOR-MODULE-INDUCTION))) (PUT1-LST (QUOTE VECTOR-MODULE-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((VECTOR-MODULE-INDUCTION 2 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((VECTOR-MODULE-INDUCTION)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (BODY M N BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (VECTOR-MODULE-INDUCTION (CDR BODY) (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST) (QUOTE *1*TRUE)))) LISP-CODE *1*VECTOR-MODULE-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((CDR BODY) (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST)))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194015 CONTROLLER-POCKETS (4) SATELLITES (*1*VECTOR-MODULE-INDUCTION) IMMEDIATE-DEPENDENTS0 (V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE) EVENT (DEFN VECTOR-MODULE-INDUCTION (BODY M N BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) (QUOTE *1*TRUE) (VECTOR-MODULE-INDUCTION (CDR BODY) (ADD1 M) (SUB1 N) (DUAL-EVAL-BODY-BINDINGS (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . VECTOR-MODULE-INDUCTION) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . VECTOR-MODULE-INDUCTION) (DCELL . *1*VECTOR-MODULE-INDUCTION))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE REG$STATE BV-ADDER-BODY-SPECIAL-CASE$VALUE) EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 (REWRITE) (IMPLIES (AND (EQUAL FLAG (QUOTE 1)) (ALL-UNBOUND-IN-BODY NAMES BODY)) (EQUAL (COLLECT-VALUE NAMES (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (COLLECT-VALUE NAMES BINDINGS))) ((INDUCT (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (ENABLE ALL-UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-NAME . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) (LEMMAS COLLECT-VALUE . ALL-UNBOUND-IN-BODY-DUAL-EVAL-1))))) (PUT1-LST (QUOTE UNBOUND-IN-BODY-DUAL-EVAL-1) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE WE-REG$STATE WE-REG-BODY$VALUE REG$STATE REG-BODY$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE) EVENT (PROVE-LEMMA UNBOUND-IN-BODY-DUAL-EVAL-1 (REWRITE) (IMPLIES (AND (EQUAL FLAG (QUOTE 1)) (UNBOUND-IN-BODY NAME BODY)) (EQUAL (VALUE NAME (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (VALUE NAME BINDINGS))) ((INDUCT (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (ENABLE UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-NAME . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 VALUE . UNBOUND-IN-BODY-DUAL-EVAL-1) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . UNBOUND-IN-BODY-DUAL-EVAL-1) (LEMMAS VALUE . UNBOUND-IN-BODY-DUAL-EVAL-1))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE REG$STATE BV-ADDER-BODY-SPECIAL-CASE$VALUE) EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-NLISTP-NAMES (REWRITE) (IMPLIES (NLISTP NAMES) (ALL-UNBOUND-IN-BODY NAMES BODY)) ((ENABLE ALL-UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-NLISTP-NAMES) (LEMMAS ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-NLISTP-NAMES))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-CONS) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE REG$STATE) EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-CONS (REWRITE) (EQUAL (ALL-UNBOUND-IN-BODY (CONS NAME NAMES) BODY) (AND (UNBOUND-IN-BODY NAME BODY) (ALL-UNBOUND-IN-BODY NAMES BODY))) ((ENABLE ALL-UNBOUND-IN-BODY UNBOUND-IN-BODY APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY-NLISTP . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-CONS) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-CONS) (LEMMAS ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-CONS))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-APPEND) (QUOTE (IDATE 1000402194015 EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-APPEND (REWRITE) (EQUAL (ALL-UNBOUND-IN-BODY (APPEND NAMES1 NAMES2) BODY) (AND (ALL-UNBOUND-IN-BODY NAMES1 BODY) (ALL-UNBOUND-IN-BODY NAMES2 BODY))) ((ENABLE ALL-UNBOUND-IN-BODY APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY-APPEND) (IMMEDIATE-DEPENDENTS0 DISJOINT-APPEND . ALL-UNBOUND-IN-BODY-APPEND) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY-NLISTP . ALL-UNBOUND-IN-BODY-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-UNBOUND-IN-BODY-APPEND) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-APPEND) (LEMMAS ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-APPEND))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-LISTP) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY) EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-LISTP (REWRITE) (EQUAL (ALL-UNBOUND-IN-BODY NAMES (CONS OCCURRENCE REST)) (AND (DISJOINT NAMES (OCC-OUTPUTS OCCURRENCE)) (ALL-UNBOUND-IN-BODY NAMES REST))) ((ENABLE ALL-UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY-LISTP) (IMMEDIATE-DEPENDENTS0 DISJOINT . ALL-UNBOUND-IN-BODY-LISTP) (IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-LISTP) (LEMMAS ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-LISTP))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-NLISTP) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND) EVENT (PROVE-LEMMA ALL-UNBOUND-IN-BODY-NLISTP (REWRITE) (IMPLIES (NLISTP BODY) (ALL-UNBOUND-IN-BODY NAMES BODY)) ((ENABLE ALL-UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-NLISTP) (LEMMAS ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-NLISTP))))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE ALL-UNBOUND-IN-BODY-OFF ALL-UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-UNBOUND-IN-BODY . ALL-UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-UNBOUND-IN-BODY) (QUOTE (MAIN-EVENT ALL-UNBOUND-IN-BODY))) (PUT1-LST (QUOTE ALL-UNBOUND-IN-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-UNBOUND-IN-BODY 3 NIL NIL)) LEMMAS ((REWRITE-RULE WE-REG-BODY$ALL-UNBOUND-IN-BODY NIL (ALL-UNBOUND-IN-BODY (INDICES (QUOTE D) X Y) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE REG-BODY$ALL-UNBOUND-IN-BODY NIL (ALL-UNBOUND-IN-BODY (INDICES (QUOTE D) X Y) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-NLISTP-NAMES ((NOT (LISTP NAMES))) (ALL-UNBOUND-IN-BODY NAMES BODY) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-CONS NIL (EQUAL (ALL-UNBOUND-IN-BODY (CONS NAME NAMES) BODY) (IF (UNBOUND-IN-BODY NAME BODY) (ALL-UNBOUND-IN-BODY NAMES BODY) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-APPEND NIL (EQUAL (ALL-UNBOUND-IN-BODY (APPEND NAMES1 NAMES2) BODY) (IF (ALL-UNBOUND-IN-BODY NAMES1 BODY) (ALL-UNBOUND-IN-BODY NAMES2 BODY) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-LISTP NIL (EQUAL (ALL-UNBOUND-IN-BODY NAMES (CONS OCCURRENCE REST)) (IF (DISJOINT NAMES (OCC-OUTPUTS OCCURRENCE)) (ALL-UNBOUND-IN-BODY NAMES REST) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-NLISTP ((NOT (LISTP BODY))) (ALL-UNBOUND-IN-BODY NAMES BODY) NIL)) TOTALP-LST ((ALL-UNBOUND-IN-BODY . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAMES BODY) (IF (LISTP BODY) (IF (DISJOINT NAMES (OCC-OUTPUTS (CAR BODY))) (IF (ALL-UNBOUND-IN-BODY NAMES (CDR BODY)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*ALL-UNBOUND-IN-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BODY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BODY))) ((NAMES (CDR BODY))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194015 CONTROLLER-POCKETS (2) SATELLITES (*1*ALL-UNBOUND-IN-BODY) IMMEDIATE-DEPENDENTS0 (WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND ALL-UNBOUND-IN-BODY-LISTP ALL-UNBOUND-IN-BODY-NLISTP ALL-UNBOUND-IN-BODY-OFF) EVENT (DEFN ALL-UNBOUND-IN-BODY (NAMES BODY) (IF (NLISTP BODY) (QUOTE *1*TRUE) (AND (DISJOINT NAMES (OCC-OUTPUTS (CAR BODY))) (ALL-UNBOUND-IN-BODY NAMES (CDR BODY))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 DISJOINT . ALL-UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-UNBOUND-IN-BODY) (DCELL . *1*ALL-UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE UNBOUND-IN-BODY-LISTP) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM V-WIRE$UNBOUND-IN-BODY V-PULLUP$UNBOUND-IN-BODY V-XOR$UNBOUND-IN-BODY V-OR$UNBOUND-IN-BODY V-BUF$UNBOUND-IN-BODY) EVENT (PROVE-LEMMA UNBOUND-IN-BODY-LISTP (REWRITE) (EQUAL (UNBOUND-IN-BODY NAME (CONS OCCURRENCE REST)) (AND (NOT (MEMBER NAME (OCC-OUTPUTS OCCURRENCE))) (UNBOUND-IN-BODY NAME REST))) ((ENABLE UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . UNBOUND-IN-BODY-LISTP) (IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . UNBOUND-IN-BODY-LISTP) (LEMMAS UNBOUND-IN-BODY . UNBOUND-IN-BODY-LISTP))))) (PUT1-LST (QUOTE UNBOUND-IN-BODY-NLISTP) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM V-WIRE$UNBOUND-IN-BODY V-PULLUP$UNBOUND-IN-BODY V-XOR$UNBOUND-IN-BODY V-OR$UNBOUND-IN-BODY V-BUF$UNBOUND-IN-BODY UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-CONS) EVENT (PROVE-LEMMA UNBOUND-IN-BODY-NLISTP (REWRITE) (IMPLIES (NLISTP BODY) (UNBOUND-IN-BODY NAME BODY)) ((ENABLE UNBOUND-IN-BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . UNBOUND-IN-BODY-NLISTP) (LEMMAS UNBOUND-IN-BODY . UNBOUND-IN-BODY-NLISTP))))) (PUT1-LST (QUOTE UNBOUND-IN-BODY-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE UNBOUND-IN-BODY-OFF UNBOUND-IN-BODY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBOUND-IN-BODY . UNBOUND-IN-BODY-OFF) (DISABLED-LEMMAS NIL UNBOUND-IN-BODY UNBOUND-IN-BODY-OFF . T))))) (PUT1-LST (QUOTE *1*UNBOUND-IN-BODY) (QUOTE (MAIN-EVENT UNBOUND-IN-BODY))) (PUT1-LST (QUOTE UNBOUND-IN-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBOUND-IN-BODY 3 NIL NIL)) LEMMAS ((REWRITE-RULE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE IN) L) (TTL-BIDIRECT-PADS-BODY M N PI)) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE PO) L) (TTL-BIDIRECT-PADS-BODY M N PI)) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-BIDIRECT-PADS-BODY M N PI)) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE DATA) L) (TTL-BIDIRECT-PADS-BODY M N PI)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-TRI-OUTPUT-PADS-BODY M N)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE OUT) L) (TTL-OUTPUT-PADS-BODY M N)) NIL) (REWRITE-RULE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE B-OUT) L) (TTL-INPUT-PADS-BODY M N PI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Q) L) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (INDEX (QUOTE D) L) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TE-BUF) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TE) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TI-BUF) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TI) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE WE-BUF) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE WE) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE WE-REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE CLK) (WE-REG-BODY M N TI)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Q) L) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (INDEX (QUOTE D) L) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TE-BUF) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TE) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TI-DEL) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE TI) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE REG-BODY$UNBOUND-IN-BODY NIL (UNBOUND-IN-BODY (QUOTE CLK) (REG-BODY M N TI TE)) NIL) (REWRITE-RULE BV-ADDER$UNBOUND-IN-BODY-CARRY ((LESSP L (ADD1 M))) (UNBOUND-IN-BODY (INDEX (QUOTE CARRY) L) (BV-ADDER-BODY M N)) NIL) (REWRITE-RULE BV-ADDER$UNBOUND-IN-BODY-SUM ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE SUM) L) (BV-ADDER-BODY M N)) NIL) (REWRITE-RULE V-WIRE$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-WIRE$BODY M N)) NIL) (REWRITE-RULE V-PULLUP$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-PULLUP$BODY M N)) NIL) (REWRITE-RULE V-XOR$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-XOR$BODY M N)) NIL) (REWRITE-RULE V-OR$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-OR$BODY M N)) NIL) (REWRITE-RULE V-BUF$UNBOUND-IN-BODY ((LESSP L M)) (UNBOUND-IN-BODY (INDEX (QUOTE Y) L) (V-BUF$BODY M N)) NIL) (REWRITE-RULE UNBOUND-IN-BODY-LISTP NIL (EQUAL (UNBOUND-IN-BODY NAME (CONS OCCURRENCE REST)) (IF (MEMBER NAME (OCC-OUTPUTS OCCURRENCE)) (QUOTE *1*FALSE) (UNBOUND-IN-BODY NAME REST))) NIL) (REWRITE-RULE UNBOUND-IN-BODY-NLISTP ((NOT (LISTP BODY))) (UNBOUND-IN-BODY NAME BODY) NIL)) TOTALP-LST ((UNBOUND-IN-BODY . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAME BODY) (IF (LISTP BODY) (IF (MEMBER NAME (OCC-OUTPUTS (CAR BODY))) (QUOTE *1*FALSE) (IF (UNBOUND-IN-BODY NAME (CDR BODY)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) LISP-CODE *1*UNBOUND-IN-BODY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BODY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BODY))) ((NAME (CDR BODY))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194015 CONTROLLER-POCKETS (2) SATELLITES (*1*UNBOUND-IN-BODY) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM V-WIRE$UNBOUND-IN-BODY V-PULLUP$UNBOUND-IN-BODY V-XOR$UNBOUND-IN-BODY V-OR$UNBOUND-IN-BODY V-BUF$UNBOUND-IN-BODY UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-CONS UNBOUND-IN-BODY-LISTP UNBOUND-IN-BODY-NLISTP UNBOUND-IN-BODY-OFF) EVENT (DEFN UNBOUND-IN-BODY (NAME BODY) (IF (NLISTP BODY) (QUOTE *1*TRUE) (AND (NOT (MEMBER NAME (OCC-OUTPUTS (CAR BODY)))) (UNBOUND-IN-BODY NAME (CDR BODY))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . UNBOUND-IN-BODY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . UNBOUND-IN-BODY) (DCELL . *1*UNBOUND-IN-BODY))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-STATE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE MEM-32X32$STRUCTURED-STATE-OFF MEM-32X32$STRUCTURED-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-STATE . MEM-32X32$STRUCTURED-STATE-OFF) (DISABLED-LEMMAS NIL MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-STATE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP MEM-32X32$STRUCTURED-STATE-OFF) EVENT (PROVE-LEMMA MEM-32X32$STRUCTURED-STATE (REWRITE) (IMPLIES (AND (MEM-32X32& NETLIST) (AND (EQUAL (LENGTH ADDR) (QUOTE 32)) (AND (PROPERP ADDR) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (NEXT-MEMORY-STATE STATE STROBE- RW- ADDR DATA))) ((ENABLE MEM-STATE LIST-32-NTH-COLLAPSE MEM-32X32$STRUCTURED-STATE-1) (DISABLE CAR-CDR-ELIM MEMORY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-32-NTH-COLLAPSE . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-STATE-1 . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . MEM-32X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$STRUCTURED-STATE) (LEMMAS DUAL-EVAL . MEM-32X32$STRUCTURED-STATE))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-STATE-1-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE MEM-32X32$STRUCTURED-STATE-1-OFF MEM-32X32$STRUCTURED-STATE-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-STATE-1 . MEM-32X32$STRUCTURED-STATE-1-OFF) (DISABLED-LEMMAS NIL MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-STATE-1-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-STATE-1) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1-OFF) EVENT (PROVE-LEMMA MEM-32X32$STRUCTURED-STATE-1 (REWRITE) (IMPLIES (AND (MEM-32X32& NETLIST) (AND (EQUAL (LENGTH ADDR) (QUOTE 32)) (AND (PROPERP ADDR) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (NEXT-MEMORY-STATE STATE STROBE- RW- (CONS (NTH (QUOTE 0) ADDR) (CONS (NTH (QUOTE 1) ADDR) (CONS (NTH (QUOTE 2) ADDR) (CONS (NTH (QUOTE 3) ADDR) (CONS (NTH (QUOTE 4) ADDR) (CONS (NTH (QUOTE 5) ADDR) (CONS (NTH (QUOTE 6) ADDR) (CONS (NTH (QUOTE 7) ADDR) (CONS (NTH (QUOTE 8) ADDR) (CONS (NTH (QUOTE 9) ADDR) (CONS (NTH (QUOTE 10) ADDR) (CONS (NTH (QUOTE 11) ADDR) (CONS (NTH (QUOTE 12) ADDR) (CONS (NTH (QUOTE 13) ADDR) (CONS (NTH (QUOTE 14) ADDR) (CONS (NTH (QUOTE 15) ADDR) (CONS (NTH (QUOTE 16) ADDR) (CONS (NTH (QUOTE 17) ADDR) (CONS (NTH (QUOTE 18) ADDR) (CONS (NTH (QUOTE 19) ADDR) (CONS (NTH (QUOTE 20) ADDR) (CONS (NTH (QUOTE 21) ADDR) (CONS (NTH (QUOTE 22) ADDR) (CONS (NTH (QUOTE 23) ADDR) (CONS (NTH (QUOTE 24) ADDR) (CONS (NTH (QUOTE 25) ADDR) (CONS (NTH (QUOTE 26) ADDR) (CONS (NTH (QUOTE 27) ADDR) (CONS (NTH (QUOTE 28) ADDR) (CONS (NTH (QUOTE 29) ADDR) (CONS (NTH (QUOTE 30) ADDR) (CONS (NTH (QUOTE 31) ADDR) (QUOTE NIL))))))))))))))))))))))))))))))))) (CONS (NTH (QUOTE 0) DATA) (CONS (NTH (QUOTE 1) DATA) (CONS (NTH (QUOTE 2) DATA) (CONS (NTH (QUOTE 3) DATA) (CONS (NTH (QUOTE 4) DATA) (CONS (NTH (QUOTE 5) DATA) (CONS (NTH (QUOTE 6) DATA) (CONS (NTH (QUOTE 7) DATA) (CONS (NTH (QUOTE 8) DATA) (CONS (NTH (QUOTE 9) DATA) (CONS (NTH (QUOTE 10) DATA) (CONS (NTH (QUOTE 11) DATA) (CONS (NTH (QUOTE 12) DATA) (CONS (NTH (QUOTE 13) DATA) (CONS (NTH (QUOTE 14) DATA) (CONS (NTH (QUOTE 15) DATA) (CONS (NTH (QUOTE 16) DATA) (CONS (NTH (QUOTE 17) DATA) (CONS (NTH (QUOTE 18) DATA) (CONS (NTH (QUOTE 19) DATA) (CONS (NTH (QUOTE 20) DATA) (CONS (NTH (QUOTE 21) DATA) (CONS (NTH (QUOTE 22) DATA) (CONS (NTH (QUOTE 23) DATA) (CONS (NTH (QUOTE 24) DATA) (CONS (NTH (QUOTE 25) DATA) (CONS (NTH (QUOTE 26) DATA) (CONS (NTH (QUOTE 27) DATA) (CONS (NTH (QUOTE 28) DATA) (CONS (NTH (QUOTE 29) DATA) (CONS (NTH (QUOTE 30) DATA) (CONS (NTH (QUOTE 31) DATA) (QUOTE NIL)))))))))))))))))))))))))))))))))))) ((ENABLE MEM-32X32$STATE MEM-32X32-ARGS-CROCK MEM-STATE OPEN-SUBRANGE) (DISABLE CAR-CDR-ELIM NEXT-MEMORY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32-ARGS-CROCK . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 MEM-STATE . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32$STATE . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 NTH . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 PROPERP . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 LENGTH . MEM-32X32$STRUCTURED-STATE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$STRUCTURED-STATE-1) (LEMMAS DUAL-EVAL . MEM-32X32$STRUCTURED-STATE-1))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-VALUE-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE MEM-32X32$STRUCTURED-VALUE-OFF MEM-32X32$STRUCTURED-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-VALUE . MEM-32X32$STRUCTURED-VALUE-OFF) (DISABLED-LEMMAS NIL MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-VALUE) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP MEM-32X32$STRUCTURED-VALUE-OFF) EVENT (PROVE-LEMMA MEM-32X32$STRUCTURED-VALUE (REWRITE) (IMPLIES (AND (MEM-32X32& NETLIST) (AND (EQUAL (LENGTH ADDR) (QUOTE 32)) (AND (PROPERP ADDR) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (MEMORY-VALUE STATE STROBE- RW- ADDR DATA))) ((ENABLE MEM-VALUE LIST-32-NTH-COLLAPSE MEM-32X32$STRUCTURED-VALUE-1) (DISABLE CAR-CDR-ELIM MEMORY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-32-NTH-COLLAPSE . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-VALUE-1 . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . MEM-32X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$STRUCTURED-VALUE) (LEMMAS DUAL-EVAL . MEM-32X32$STRUCTURED-VALUE))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-VALUE-1-OFF) (QUOTE (IDATE 1000402194015 EVENT (TOGGLE MEM-32X32$STRUCTURED-VALUE-1-OFF MEM-32X32$STRUCTURED-VALUE-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$STRUCTURED-VALUE-1 . MEM-32X32$STRUCTURED-VALUE-1-OFF) (DISABLED-LEMMAS NIL MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32$STRUCTURED-VALUE-1-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$STRUCTURED-VALUE-1) (QUOTE (IDATE 1000402194015 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1-OFF) EVENT (PROVE-LEMMA MEM-32X32$STRUCTURED-VALUE-1 (REWRITE) (IMPLIES (AND (MEM-32X32& NETLIST) (AND (EQUAL (LENGTH ADDR) (QUOTE 32)) (AND (PROPERP ADDR) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (MEMORY-VALUE STATE STROBE- RW- (CONS (NTH (QUOTE 0) ADDR) (CONS (NTH (QUOTE 1) ADDR) (CONS (NTH (QUOTE 2) ADDR) (CONS (NTH (QUOTE 3) ADDR) (CONS (NTH (QUOTE 4) ADDR) (CONS (NTH (QUOTE 5) ADDR) (CONS (NTH (QUOTE 6) ADDR) (CONS (NTH (QUOTE 7) ADDR) (CONS (NTH (QUOTE 8) ADDR) (CONS (NTH (QUOTE 9) ADDR) (CONS (NTH (QUOTE 10) ADDR) (CONS (NTH (QUOTE 11) ADDR) (CONS (NTH (QUOTE 12) ADDR) (CONS (NTH (QUOTE 13) ADDR) (CONS (NTH (QUOTE 14) ADDR) (CONS (NTH (QUOTE 15) ADDR) (CONS (NTH (QUOTE 16) ADDR) (CONS (NTH (QUOTE 17) ADDR) (CONS (NTH (QUOTE 18) ADDR) (CONS (NTH (QUOTE 19) ADDR) (CONS (NTH (QUOTE 20) ADDR) (CONS (NTH (QUOTE 21) ADDR) (CONS (NTH (QUOTE 22) ADDR) (CONS (NTH (QUOTE 23) ADDR) (CONS (NTH (QUOTE 24) ADDR) (CONS (NTH (QUOTE 25) ADDR) (CONS (NTH (QUOTE 26) ADDR) (CONS (NTH (QUOTE 27) ADDR) (CONS (NTH (QUOTE 28) ADDR) (CONS (NTH (QUOTE 29) ADDR) (CONS (NTH (QUOTE 30) ADDR) (CONS (NTH (QUOTE 31) ADDR) (QUOTE NIL))))))))))))))))))))))))))))))))) (CONS (NTH (QUOTE 0) DATA) (CONS (NTH (QUOTE 1) DATA) (CONS (NTH (QUOTE 2) DATA) (CONS (NTH (QUOTE 3) DATA) (CONS (NTH (QUOTE 4) DATA) (CONS (NTH (QUOTE 5) DATA) (CONS (NTH (QUOTE 6) DATA) (CONS (NTH (QUOTE 7) DATA) (CONS (NTH (QUOTE 8) DATA) (CONS (NTH (QUOTE 9) DATA) (CONS (NTH (QUOTE 10) DATA) (CONS (NTH (QUOTE 11) DATA) (CONS (NTH (QUOTE 12) DATA) (CONS (NTH (QUOTE 13) DATA) (CONS (NTH (QUOTE 14) DATA) (CONS (NTH (QUOTE 15) DATA) (CONS (NTH (QUOTE 16) DATA) (CONS (NTH (QUOTE 17) DATA) (CONS (NTH (QUOTE 18) DATA) (CONS (NTH (QUOTE 19) DATA) (CONS (NTH (QUOTE 20) DATA) (CONS (NTH (QUOTE 21) DATA) (CONS (NTH (QUOTE 22) DATA) (CONS (NTH (QUOTE 23) DATA) (CONS (NTH (QUOTE 24) DATA) (CONS (NTH (QUOTE 25) DATA) (CONS (NTH (QUOTE 26) DATA) (CONS (NTH (QUOTE 27) DATA) (CONS (NTH (QUOTE 28) DATA) (CONS (NTH (QUOTE 29) DATA) (CONS (NTH (QUOTE 30) DATA) (CONS (NTH (QUOTE 31) DATA) (QUOTE NIL)))))))))))))))))))))))))))))))))))) ((ENABLE MEM-32X32$VALUE MEM-32X32-ARGS-CROCK MEM-VALUE OPEN-SUBRANGE) (DISABLE CAR-CDR-ELIM MEMORY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32-ARGS-CROCK . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 MEM-VALUE . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32$VALUE . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 NTH . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 PROPERP . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 LENGTH . MEM-32X32$STRUCTURED-VALUE-1) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$STRUCTURED-VALUE-1) (LEMMAS DUAL-EVAL . MEM-32X32$STRUCTURED-VALUE-1))))) (PUT1-LST (QUOTE LIST-32-NTH-COLLAPSE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE LIST-32-NTH-COLLAPSE-OFF LIST-32-NTH-COLLAPSE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-32-NTH-COLLAPSE . LIST-32-NTH-COLLAPSE-OFF) (DISABLED-LEMMAS NIL LIST-32-NTH-COLLAPSE LIST-32-NTH-COLLAPSE-OFF . T))))) (PUT1-LST (QUOTE LIST-32-NTH-COLLAPSE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-VALUE LIST-32-NTH-COLLAPSE-OFF) EVENT (PROVE-LEMMA LIST-32-NTH-COLLAPSE (REWRITE) (IMPLIES (AND (PROPERP ARGS) (EQUAL (LENGTH ARGS) (QUOTE 32))) (EQUAL (CONS (NTH (QUOTE 0) ARGS) (CONS (NTH (QUOTE 1) ARGS) (CONS (NTH (QUOTE 2) ARGS) (CONS (NTH (QUOTE 3) ARGS) (CONS (NTH (QUOTE 4) ARGS) (CONS (NTH (QUOTE 5) ARGS) (CONS (NTH (QUOTE 6) ARGS) (CONS (NTH (QUOTE 7) ARGS) (CONS (NTH (QUOTE 8) ARGS) (CONS (NTH (QUOTE 9) ARGS) (CONS (NTH (QUOTE 10) ARGS) (CONS (NTH (QUOTE 11) ARGS) (CONS (NTH (QUOTE 12) ARGS) (CONS (NTH (QUOTE 13) ARGS) (CONS (NTH (QUOTE 14) ARGS) (CONS (NTH (QUOTE 15) ARGS) (CONS (NTH (QUOTE 16) ARGS) (CONS (NTH (QUOTE 17) ARGS) (CONS (NTH (QUOTE 18) ARGS) (CONS (NTH (QUOTE 19) ARGS) (CONS (NTH (QUOTE 20) ARGS) (CONS (NTH (QUOTE 21) ARGS) (CONS (NTH (QUOTE 22) ARGS) (CONS (NTH (QUOTE 23) ARGS) (CONS (NTH (QUOTE 24) ARGS) (CONS (NTH (QUOTE 25) ARGS) (CONS (NTH (QUOTE 26) ARGS) (CONS (NTH (QUOTE 27) ARGS) (CONS (NTH (QUOTE 28) ARGS) (CONS (NTH (QUOTE 29) ARGS) (CONS (NTH (QUOTE 30) ARGS) (CONS (NTH (QUOTE 31) ARGS) (QUOTE NIL))))))))))))))))))))))))))))))))) ARGS)) ((USE (EQUAL-LENGTH-32-AS-COLLECTED-NTH (L ARGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . LIST-32-NTH-COLLAPSE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-32-AS-COLLECTED-NTH . LIST-32-NTH-COLLAPSE) (IMMEDIATE-DEPENDENTS0 NTH . LIST-32-NTH-COLLAPSE) (IMMEDIATE-DEPENDENTS0 LENGTH . LIST-32-NTH-COLLAPSE) (IMMEDIATE-DEPENDENTS0 PROPERP . LIST-32-NTH-COLLAPSE) (LEMMAS CONS . LIST-32-NTH-COLLAPSE))))) (PUT1-LST (QUOTE MEM-32X32-ARGS-CROCK-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE MEM-32X32-ARGS-CROCK-OFF MEM-32X32-ARGS-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32-ARGS-CROCK . MEM-32X32-ARGS-CROCK-OFF) (DISABLED-LEMMAS NIL MEM-32X32-ARGS-CROCK MEM-32X32-ARGS-CROCK-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32-ARGS-CROCK) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32-ARGS-CROCK-OFF) EVENT (PROVE-LEMMA MEM-32X32-ARGS-CROCK (REWRITE) (IMPLIES (AND (EQUAL (LENGTH ADDR) (QUOTE 32)) (AND (PROPERP ADDR) (AND (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)))) (EQUAL (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) (CONS RW- (CONS STROBE- (APPEND (LIST-AS-COLLECTED-NTH ADDR (QUOTE 32) (QUOTE 0)) (LIST-AS-COLLECTED-NTH DATA (QUOTE 32) (QUOTE 0))))))) ((USE (EQUAL-LENGTH-32-AS-COLLECTED-NTH (L ADDR)) (EQUAL-LENGTH-32-AS-COLLECTED-NTH (L DATA))) (DISABLE OPEN-LIST-AS-COLLECTED-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-32-AS-COLLECTED-NTH . MEM-32X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . MEM-32X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP . MEM-32X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . MEM-32X32-ARGS-CROCK) (LEMMAS CONS . MEM-32X32-ARGS-CROCK))))) (PUT1-LST (QUOTE DP-RAM-16X32$STRUCTURED-STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE DP-RAM-16X32$STRUCTURED-STATE-OFF DP-RAM-16X32$STRUCTURED-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STRUCTURED-STATE . DP-RAM-16X32$STRUCTURED-STATE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-STATE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32$STRUCTURED-STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (REGFILE$STATE DP-RAM-16X32$STRUCTURED-STATE-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32$STRUCTURED-STATE (REWRITE) (IMPLIES (AND (DP-RAM-16X32& NETLIST) (AND (EQUAL (LENGTH A) (QUOTE 4)) (AND (PROPERP A) (AND (EQUAL (LENGTH B) (QUOTE 4)) (AND (PROPERP B) (AND (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C))))))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DP-RAM-16X32) (APPEND A (APPEND B (CONS X C))) STATE NETLIST) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A (APPEND B (CONS X C))) STATE))) ((ENABLE DP-RAM-16X32-ARGS-CROCK DP-RAM-16X32$STATE) (DISABLE CAR-CDR-ELIM DUAL-PORT-RAM-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-ARGS-CROCK . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STATE . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . DP-RAM-16X32$STRUCTURED-STATE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . DP-RAM-16X32$STRUCTURED-STATE) (LEMMAS DUAL-EVAL . DP-RAM-16X32$STRUCTURED-STATE))))) (PUT1-LST (QUOTE DP-RAM-16X32$STRUCTURED-VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE DP-RAM-16X32$STRUCTURED-VALUE-OFF DP-RAM-16X32$STRUCTURED-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STRUCTURED-VALUE . DP-RAM-16X32$STRUCTURED-VALUE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32$STRUCTURED-VALUE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32$STRUCTURED-VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (REGFILE$VALUE DP-RAM-16X32$STRUCTURED-VALUE-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32$STRUCTURED-VALUE (REWRITE) (IMPLIES (AND (DP-RAM-16X32& NETLIST) (AND (EQUAL (LENGTH A) (QUOTE 4)) (AND (PROPERP A) (AND (EQUAL (LENGTH B) (QUOTE 4)) (AND (PROPERP B) (AND (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C))))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DP-RAM-16X32) (APPEND A (APPEND B (CONS X C))) STATE NETLIST) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (APPEND A (APPEND B (CONS X C))) STATE))) ((ENABLE DP-RAM-16X32-ARGS-CROCK DP-RAM-16X32$VALUE) (DISABLE CAR-CDR-ELIM DUAL-PORT-RAM-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-ARGS-CROCK . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$VALUE . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . DP-RAM-16X32$STRUCTURED-VALUE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . DP-RAM-16X32$STRUCTURED-VALUE) (LEMMAS DUAL-EVAL . DP-RAM-16X32$STRUCTURED-VALUE))))) (PUT1-LST (QUOTE DP-RAM-16X32-ARGS-CROCK-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE DP-RAM-16X32-ARGS-CROCK-OFF DP-RAM-16X32-ARGS-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32-ARGS-CROCK . DP-RAM-16X32-ARGS-CROCK-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32-ARGS-CROCK DP-RAM-16X32-ARGS-CROCK-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32-ARGS-CROCK) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32-ARGS-CROCK-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32-ARGS-CROCK (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (QUOTE 4)) (AND (PROPERP A) (AND (EQUAL (LENGTH B) (QUOTE 4)) (AND (PROPERP B) (AND (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C)))))) (EQUAL (APPEND A (APPEND B (CONS X C))) (APPEND (LIST-AS-COLLECTED-NTH A (QUOTE 4) (QUOTE 0)) (APPEND (LIST-AS-COLLECTED-NTH B (QUOTE 4) (QUOTE 0)) (CONS X (LIST-AS-COLLECTED-NTH C (QUOTE 32) (QUOTE 0))))))) ((USE (EQUAL-LENGTH-4-AS-COLLECTED-NTH (L A)) (EQUAL-LENGTH-4-AS-COLLECTED-NTH (L B)) (EQUAL-LENGTH-32-AS-COLLECTED-NTH (L C))) (DISABLE OPEN-LIST-AS-COLLECTED-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-4-AS-COLLECTED-NTH . DP-RAM-16X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-32-AS-COLLECTED-NTH . DP-RAM-16X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . DP-RAM-16X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 PROPERP . DP-RAM-16X32-ARGS-CROCK) (IMMEDIATE-DEPENDENTS0 LENGTH . DP-RAM-16X32-ARGS-CROCK) (LEMMAS APPEND . DP-RAM-16X32-ARGS-CROCK))))) (PUT1-LST (QUOTE B-BUF-PWR$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE B-BUF-PWR$VALUE-OFF B-BUF-PWR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-PWR$VALUE . B-BUF-PWR$VALUE-OFF) (DISABLED-LEMMAS NIL B-BUF-PWR$VALUE B-BUF-PWR$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-BUF-PWR$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FANOUT-32$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE B-BUF-PWR$VALUE-OFF) EVENT (PROVE-LEMMA B-BUF-PWR$VALUE (REWRITE) (IMPLIES (B-BUF-PWR& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-BUF-PWR) (CONS IN (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF IN) (QUOTE NIL)))) ((ENABLE B-BUF-PWR& BOOLP-B-GATES B-BUF B-NOT$VALUE B-NOT-B4IP$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP$VALUE . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR* . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-BUF-PWR$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . B-BUF-PWR$VALUE) (LEMMAS DUAL-EVAL . B-BUF-PWR$VALUE))))) (PUT1-LST (QUOTE *1*B-BUF-PWR$NETLIST) (QUOTE (MAIN-EVENT B-BUF-PWR$NETLIST))) (PUT1-LST (QUOTE B-BUF-PWR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF-PWR$NETLIST 16)) TOTALP-LST ((B-BUF-PWR$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (B-BUF-PWR*) (UNION (B-NOT$NETLIST) (B-NOT-B4IP$NETLIST)))) LISP-CODE *1*B-BUF-PWR$NETLIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194014 SATELLITES (*1*B-BUF-PWR$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST TTL-BIDIRECT-PADS$NETLIST TTL-TRI-OUTPUT-PADS$NETLIST CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST FANOUT-32$NETLIST WE-REG$NETLIST REG$NETLIST) EVENT (DEFN B-BUF-PWR$NETLIST NIL (CONS (B-BUF-PWR*) (UNION (B-NOT$NETLIST) (B-NOT-B4IP$NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP$NETLIST . B-BUF-PWR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-NOT$NETLIST . B-BUF-PWR$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR* . B-BUF-PWR$NETLIST) (DCELL . *1*B-BUF-PWR$NETLIST))))) (PUT1-LST (QUOTE B-BUF-PWR&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE B-BUF-PWR&-OFF B-BUF-PWR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-PWR& . B-BUF-PWR&-OFF) (DISABLED-LEMMAS NIL B-BUF-PWR& B-BUF-PWR&-OFF . T))))) (PUT1-LST (QUOTE *1*B-BUF-PWR&) (QUOTE (MAIN-EVENT B-BUF-PWR&))) (PUT1-LST (QUOTE B-BUF-PWR&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF-PWR& 3 NIL)) TOTALP-LST ((B-BUF-PWR& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE B-BUF-PWR) NETLIST) (B-BUF-PWR*)) (IF (B-NOT& (DELETE-MODULE (QUOTE B-BUF-PWR) NETLIST)) (B-NOT-B4IP& (DELETE-MODULE (QUOTE B-BUF-PWR) NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*B-BUF-PWR& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194014 SATELLITES (*1*B-BUF-PWR&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& TTL-BIDIRECT-PADS& TTL-TRI-OUTPUT-PADS& EXTEND-IMMEDIATE& FANOUT-32& WE-REG& REG& B-BUF-PWR$VALUE B-BUF-PWR&-OFF) EVENT (DEFN B-BUF-PWR& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE B-BUF-PWR) NETLIST) (B-BUF-PWR*)) (AND (B-NOT& (DELETE-MODULE (QUOTE B-BUF-PWR) NETLIST)) (B-NOT-B4IP& (DELETE-MODULE (QUOTE B-BUF-PWR) NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP& . B-BUF-PWR&) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . B-BUF-PWR&) (IMMEDIATE-DEPENDENTS0 B-NOT& . B-BUF-PWR&) (IMMEDIATE-DEPENDENTS0 B-BUF-PWR* . B-BUF-PWR&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . B-BUF-PWR&) (DCELL . *1*B-BUF-PWR&))))) (PUT1-LST (QUOTE *1*B-BUF-PWR*) (QUOTE (MAIN-EVENT B-BUF-PWR*))) (PUT1-LST (QUOTE B-BUF-PWR*) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF-PWR* 16)) TOTALP-LST ((B-BUF-PWR* . T)) SDEFN (LAMBDA NIL (QUOTE (B-BUF-PWR (IN) (OUT) ((G0 (OUT-) B-NOT (IN)) (G1 (OUT) B-NOT-B4IP (OUT-))) NIL))) LISP-CODE *1*B-BUF-PWR* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*B-BUF-PWR*) IMMEDIATE-DEPENDENTS0 (CHECK-EXTEND-IMMEDIATE$NETLIST B-BUF-PWR$VALUE B-BUF-PWR$NETLIST B-BUF-PWR&) EVENT (DEFN B-BUF-PWR* NIL (QUOTE (B-BUF-PWR (IN) (OUT) ((G0 (OUT-) B-NOT (IN)) (G1 (OUT) B-NOT-B4IP (OUT-))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-BUF-PWR*))))) (PUT1-LST (QUOTE B-BUF$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE B-BUF$VALUE-OFF B-BUF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF$VALUE . B-BUF$VALUE-OFF) (DISABLED-LEMMAS NIL B-BUF$VALUE B-BUF$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-BUF$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FANOUT-5$VALUE FANOUT-4$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE T-OR-NOR$VALUE TV-IF$VALUE V-BUF$BODY-VALUE B-BUF$VALUE-OFF) EVENT (PROVE-LEMMA B-BUF$VALUE (REWRITE) (IMPLIES (B-BUF& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-BUF) (CONS IN (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF IN) (QUOTE NIL)))) ((ENABLE B-BUF& BOOLP-B-GATES B-BUF BOOLP B-NBUF$VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OCC-NAME . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 B-NBUF$VALUE . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 OPEN-DUAL-EVAL-WITH-FLAG-1 . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF* . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 B-BUF& . B-BUF$VALUE) (LEMMAS DUAL-EVAL . B-BUF$VALUE))))) (PUT1-LST (QUOTE *1*B-BUF$NETLIST) (QUOTE (MAIN-EVENT B-BUF$NETLIST))) (PUT1-LST (QUOTE B-BUF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF$NETLIST 16)) TOTALP-LST ((B-BUF$NETLIST . T)) SDEFN (LAMBDA NIL (CONS (B-BUF*) (B-NBUF$NETLIST))) LISP-CODE *1*B-BUF$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*B-BUF$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST TTL-BIDIRECT-PADS$NETLIST TTL-TRI-OUTPUT-PADS$NETLIST TTL-OUTPUT-PADS$NETLIST TTL-INPUT-PADS$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST FANOUT-5$NETLIST FANOUT-4$NETLIST WE-REG$NETLIST REG$NETLIST T-OR-NOR$NETLIST TV-IF$NETLIST V-BUF$NETLIST) EVENT (DEFN B-BUF$NETLIST NIL (CONS (B-BUF*) (B-NBUF$NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF$NETLIST . B-BUF$NETLIST) (IMMEDIATE-DEPENDENTS0 B-BUF* . B-BUF$NETLIST) (DCELL . *1*B-BUF$NETLIST))))) (PUT1-LST (QUOTE B-BUF&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE B-BUF&-OFF B-BUF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF& . B-BUF&-OFF) (DISABLED-LEMMAS NIL B-BUF& B-BUF&-OFF . T))))) (PUT1-LST (QUOTE *1*B-BUF&) (QUOTE (MAIN-EVENT B-BUF&))) (PUT1-LST (QUOTE B-BUF&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF& 3 NIL)) TOTALP-LST ((B-BUF& . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LOOKUP-MODULE (QUOTE B-BUF) NETLIST) (B-BUF*)) (B-NBUF& (DELETE-MODULE (QUOTE B-BUF) NETLIST)) (QUOTE *1*FALSE))) LISP-CODE *1*B-BUF& SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194014 SATELLITES (*1*B-BUF&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& TTL-BIDIRECT-PADS& TTL-TRI-OUTPUT-PADS& TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS& TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS& FANOUT-5& FANOUT-4& WE-REG& REG& T-OR-NOR& TV-IF& V-BUF$BODY-VALUE V-BUF& B-BUF$VALUE B-BUF&-OFF) EVENT (DEFN B-BUF& (NETLIST) (AND (EQUAL (LOOKUP-MODULE (QUOTE B-BUF) NETLIST) (B-BUF*)) (B-NBUF& (DELETE-MODULE (QUOTE B-BUF) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . B-BUF&) (IMMEDIATE-DEPENDENTS0 B-NBUF& . B-BUF&) (IMMEDIATE-DEPENDENTS0 B-BUF* . B-BUF&) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . B-BUF&) (DCELL . *1*B-BUF&))))) (PUT1-LST (QUOTE *1*B-BUF*) (QUOTE (MAIN-EVENT B-BUF*))) (PUT1-LST (QUOTE B-BUF*) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF* 16)) TOTALP-LST ((B-BUF* . T)) SDEFN (LAMBDA NIL (QUOTE (B-BUF (IN) (OUT) ((G0 (OUT- OUT) B-NBUF (IN))) NIL))) LISP-CODE *1*B-BUF* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*B-BUF*) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST B-BUF$VALUE B-BUF$NETLIST B-BUF&) EVENT (DEFN B-BUF* NIL (QUOTE (B-BUF (IN) (OUT) ((G0 (OUT- OUT) B-NBUF (IN))) NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-BUF*))))) (PUT1-LST (QUOTE MEM-32X32$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE MEM-32X32$STATE-OFF MEM-32X32$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$STATE . MEM-32X32$STATE-OFF) (DISABLED-LEMMAS NIL MEM-32X32$STATE MEM-32X32$STATE-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STATE-OFF) EVENT (PROVE-LEMMA MEM-32X32$STATE (REWRITE) (IMPLIES (MEM-32X32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (MEM-STATE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE))) ((ENABLE MEM-32X32& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 MEM-STATE . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$STATE) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$STATE) (LEMMAS DUAL-EVAL . MEM-32X32$STATE))))) (PUT1-LST (QUOTE FD1SLP$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE FD1SLP$STATE-OFF FD1SLP$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP$STATE . FD1SLP$STATE-OFF) (DISABLED-LEMMAS NIL FD1SLP$STATE FD1SLP$STATE-OFF . T))))) (PUT1-LST (QUOTE FD1SLP$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP WE-REG-BODY$STATE FD1SLP$STATE-OFF) EVENT (PROVE-LEMMA FD1SLP$STATE (REWRITE) (IMPLIES (FD1SLP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST) (F-IF TE TI (F-IF LD D STATE)))) ((ENABLE FD1SLP& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1SLP$STATE) (IMMEDIATE-DEPENDENTS0 FD1SLP& . FD1SLP$STATE) (LEMMAS DUAL-EVAL . FD1SLP$STATE))))) (PUT1-LST (QUOTE FD1SP$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE FD1SP$STATE-OFF FD1SP$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP$STATE . FD1SP$STATE-OFF) (DISABLED-LEMMAS NIL FD1SP$STATE FD1SP$STATE-OFF . T))))) (PUT1-LST (QUOTE FD1SP$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (FD1SP$STATE-OFF) EVENT (PROVE-LEMMA FD1SP$STATE (REWRITE) (IMPLIES (FD1SP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (F-IF TE TI D))) ((ENABLE FD1SP& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1SP$STATE) (IMMEDIATE-DEPENDENTS0 FD1SP& . FD1SP$STATE) (LEMMAS DUAL-EVAL . FD1SP$STATE))))) (PUT1-LST (QUOTE FD1S$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE FD1S$STATE-OFF FD1S$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S$STATE . FD1S$STATE-OFF) (DISABLED-LEMMAS NIL FD1S$STATE FD1S$STATE-OFF . T))))) (PUT1-LST (QUOTE FD1S$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$STATE REGFILE$STATE REG-BODY$STATE FD1S$STATE-OFF) EVENT (PROVE-LEMMA FD1S$STATE (REWRITE) (IMPLIES (FD1S& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (F-IF TE TI D))) ((ENABLE FD1S& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 F-IF . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1S$STATE) (IMMEDIATE-DEPENDENTS0 FD1S& . FD1S$STATE) (LEMMAS DUAL-EVAL . FD1S$STATE))))) (PUT1-LST (QUOTE FD1$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE FD1$STATE-OFF FD1$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1$STATE . FD1$STATE-OFF) (DISABLED-LEMMAS NIL FD1$STATE FD1$STATE-OFF . T))))) (PUT1-LST (QUOTE FD1$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (M1$STATE FD1$STATE-OFF) EVENT (PROVE-LEMMA FD1$STATE (REWRITE) (IMPLIES (FD1& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST) (F-BUF D))) ((ENABLE FD1& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1$STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . FD1$STATE) (IMMEDIATE-DEPENDENTS0 F-BUF . FD1$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1$STATE) (IMMEDIATE-DEPENDENTS0 FD1& . FD1$STATE) (LEMMAS DUAL-EVAL . FD1$STATE))))) (PUT1-LST (QUOTE DP-RAM-16X32$STATE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE DP-RAM-16X32$STATE-OFF DP-RAM-16X32$STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$STATE . DP-RAM-16X32$STATE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32$STATE DP-RAM-16X32$STATE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32$STATE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STATE-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32$STATE (REWRITE) (IMPLIES (DP-RAM-16X32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE))) ((ENABLE DP-RAM-16X32& PRIMP DUAL-APPLY-STATE) (EXPAND (DUAL-EVAL (QUOTE 2) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-STATE . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DP-RAM-16X32$STATE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . DP-RAM-16X32$STATE) (LEMMAS DUAL-EVAL . DP-RAM-16X32$STATE))))) (PUT1-LST (QUOTE VSS$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VSS$VALUE-OFF VSS$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS$VALUE . VSS$VALUE-OFF) (DISABLED-LEMMAS NIL VSS$VALUE VSS$VALUE-OFF . T))))) (PUT1-LST (QUOTE VSS$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (NEXT-STATE$VALUE VSS$VALUE-OFF) EVENT (PROVE-LEMMA VSS$VALUE (REWRITE) (IMPLIES (VSS& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VSS) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*FALSE)))) ((ENABLE VSS& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE VSS) (QUOTE NIL) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . VSS$VALUE) (IMMEDIATE-DEPENDENTS0 VSS& . VSS$VALUE) (LEMMAS DUAL-EVAL . VSS$VALUE))))) (PUT1-LST (QUOTE *1*VSS$NETLIST) (QUOTE (MAIN-EVENT VSS$NETLIST))) (PUT1-LST (QUOTE VSS$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((VSS$NETLIST 8)) TOTALP-LST ((VSS$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*VSS$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VSS$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-STATE$NETLIST) EVENT (DEFN VSS$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*VSS$NETLIST))))) (PUT1-LST (QUOTE VSS&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VSS&-OFF VSS& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VSS& . VSS&-OFF) (DISABLED-LEMMAS NIL VSS& VSS&-OFF . T))))) (PUT1-LST (QUOTE *1*VSS&) (QUOTE (MAIN-EVENT VSS&))) (PUT1-LST (QUOTE VSS&) (QUOTE (TYPE-PRESCRIPTION-LST ((VSS& 2 NIL)) TOTALP-LST ((VSS& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*VSS& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VSS&) IMMEDIATE-DEPENDENTS0 (NEXT-STATE& VSS$VALUE VSS&-OFF) EVENT (DEFN VSS& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*VSS&))))) (PUT1-LST (QUOTE VDD-PARAMETRIC$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VDD-PARAMETRIC$VALUE-OFF VDD-PARAMETRIC$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC$VALUE . VDD-PARAMETRIC$VALUE-OFF) (DISABLED-LEMMAS NIL VDD-PARAMETRIC$VALUE VDD-PARAMETRIC$VALUE-OFF . T))))) (PUT1-LST (QUOTE VDD-PARAMETRIC$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE VDD-PARAMETRIC$VALUE-OFF) EVENT (PROVE-LEMMA VDD-PARAMETRIC$VALUE (REWRITE) (IMPLIES (VDD-PARAMETRIC& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD-PARAMETRIC) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*TRUE)))) ((ENABLE VDD-PARAMETRIC& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE VDD-PARAMETRIC) (QUOTE NIL) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . VDD-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC& . VDD-PARAMETRIC$VALUE) (LEMMAS DUAL-EVAL . VDD-PARAMETRIC$VALUE))))) (PUT1-LST (QUOTE *1*VDD-PARAMETRIC$NETLIST) (QUOTE (MAIN-EVENT VDD-PARAMETRIC$NETLIST))) (PUT1-LST (QUOTE VDD-PARAMETRIC$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((VDD-PARAMETRIC$NETLIST 8)) TOTALP-LST ((VDD-PARAMETRIC$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*VDD-PARAMETRIC$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VDD-PARAMETRIC$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN VDD-PARAMETRIC$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*VDD-PARAMETRIC$NETLIST))))) (PUT1-LST (QUOTE VDD-PARAMETRIC&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VDD-PARAMETRIC&-OFF VDD-PARAMETRIC& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD-PARAMETRIC& . VDD-PARAMETRIC&-OFF) (DISABLED-LEMMAS NIL VDD-PARAMETRIC& VDD-PARAMETRIC&-OFF . T))))) (PUT1-LST (QUOTE *1*VDD-PARAMETRIC&) (QUOTE (MAIN-EVENT VDD-PARAMETRIC&))) (PUT1-LST (QUOTE VDD-PARAMETRIC&) (QUOTE (TYPE-PRESCRIPTION-LST ((VDD-PARAMETRIC& 2 NIL)) TOTALP-LST ((VDD-PARAMETRIC& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*VDD-PARAMETRIC& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VDD-PARAMETRIC&) IMMEDIATE-DEPENDENTS0 (CHIP& VDD-PARAMETRIC$VALUE VDD-PARAMETRIC&-OFF) EVENT (DEFN VDD-PARAMETRIC& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*VDD-PARAMETRIC&))))) (PUT1-LST (QUOTE VDD$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VDD$VALUE-OFF VDD$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD$VALUE . VDD$VALUE-OFF) (DISABLED-LEMMAS NIL VDD$VALUE VDD$VALUE-OFF . T))))) (PUT1-LST (QUOTE VDD$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (VDD$VALUE-OFF) EVENT (PROVE-LEMMA VDD$VALUE (REWRITE) (IMPLIES (VDD& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*TRUE)))) ((ENABLE VDD& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE VDD) (QUOTE NIL) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . VDD$VALUE) (IMMEDIATE-DEPENDENTS0 VDD& . VDD$VALUE) (LEMMAS DUAL-EVAL . VDD$VALUE))))) (PUT1-LST (QUOTE *1*VDD$NETLIST) (QUOTE (MAIN-EVENT VDD$NETLIST))) (PUT1-LST (QUOTE VDD$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((VDD$NETLIST 8)) TOTALP-LST ((VDD$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*VDD$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VDD$NETLIST) EVENT (DEFN VDD$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*VDD$NETLIST))))) (PUT1-LST (QUOTE VDD&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE VDD&-OFF VDD& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VDD& . VDD&-OFF) (DISABLED-LEMMAS NIL VDD& VDD&-OFF . T))))) (PUT1-LST (QUOTE *1*VDD&) (QUOTE (MAIN-EVENT VDD&))) (PUT1-LST (QUOTE VDD&) (QUOTE (TYPE-PRESCRIPTION-LST ((VDD& 2 NIL)) TOTALP-LST ((VDD& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*VDD& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*VDD&) IMMEDIATE-DEPENDENTS0 (VDD$VALUE VDD&-OFF) EVENT (DEFN VDD& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*VDD&))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST$VALUE-OFF TTL-TRI-OUTPUT-FAST$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST$VALUE . TTL-TRI-OUTPUT-FAST$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-TRI-OUTPUT-FAST$VALUE-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT-FAST$VALUE (REWRITE) (IMPLIES (TTL-TRI-OUTPUT-FAST& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)))) ((ENABLE TTL-TRI-OUTPUT-FAST& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-TRI-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST& . TTL-TRI-OUTPUT-FAST$VALUE) (LEMMAS DUAL-EVAL . TTL-TRI-OUTPUT-FAST$VALUE))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-FAST$NETLIST) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-FAST$NETLIST))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-FAST$NETLIST 8)) TOTALP-LST ((TTL-TRI-OUTPUT-FAST$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-TRI-OUTPUT-FAST$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-TRI-OUTPUT-FAST$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-TRI-OUTPUT-FAST$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-TRI-OUTPUT-FAST$NETLIST))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-TRI-OUTPUT-FAST&-OFF TTL-TRI-OUTPUT-FAST& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT-FAST& . TTL-TRI-OUTPUT-FAST&-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT-FAST& TTL-TRI-OUTPUT-FAST&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-FAST&) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT-FAST&))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT-FAST&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT-FAST& 2 NIL)) TOTALP-LST ((TTL-TRI-OUTPUT-FAST& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-TRI-OUTPUT-FAST& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-TRI-OUTPUT-FAST&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT-FAST&-OFF) EVENT (DEFN TTL-TRI-OUTPUT-FAST& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-TRI-OUTPUT-FAST&))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-TRI-OUTPUT$VALUE-OFF TTL-TRI-OUTPUT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT$VALUE . TTL-TRI-OUTPUT$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT$VALUE TTL-TRI-OUTPUT$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT$VALUE-OFF) EVENT (PROVE-LEMMA TTL-TRI-OUTPUT$VALUE (REWRITE) (IMPLIES (TTL-TRI-OUTPUT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)))) ((ENABLE TTL-TRI-OUTPUT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-TRI-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT& . TTL-TRI-OUTPUT$VALUE) (LEMMAS DUAL-EVAL . TTL-TRI-OUTPUT$VALUE))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT$NETLIST) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT$NETLIST))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT$NETLIST 8)) TOTALP-LST ((TTL-TRI-OUTPUT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-TRI-OUTPUT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-TRI-OUTPUT$NETLIST) IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS$NETLIST) EVENT (DEFN TTL-TRI-OUTPUT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-TRI-OUTPUT$NETLIST))))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-TRI-OUTPUT&-OFF TTL-TRI-OUTPUT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-TRI-OUTPUT& . TTL-TRI-OUTPUT&-OFF) (DISABLED-LEMMAS NIL TTL-TRI-OUTPUT& TTL-TRI-OUTPUT&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT&) (QUOTE (MAIN-EVENT TTL-TRI-OUTPUT&))) (PUT1-LST (QUOTE TTL-TRI-OUTPUT&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-TRI-OUTPUT& 2 NIL)) TOTALP-LST ((TTL-TRI-OUTPUT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-TRI-OUTPUT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-TRI-OUTPUT&) IMMEDIATE-DEPENDENTS0 (TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT$VALUE TTL-TRI-OUTPUT&-OFF) EVENT (DEFN TTL-TRI-OUTPUT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-TRI-OUTPUT&))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT-FAST$VALUE-OFF TTL-OUTPUT-FAST$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST$VALUE . TTL-OUTPUT-FAST$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-FAST$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-OUTPUT-FAST$VALUE-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT-FAST$VALUE (REWRITE) (IMPLIES (TTL-OUTPUT-FAST& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE TTL-OUTPUT-FAST& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-OUTPUT-FAST$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST& . TTL-OUTPUT-FAST$VALUE) (LEMMAS DUAL-EVAL . TTL-OUTPUT-FAST$VALUE))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-FAST$NETLIST) (QUOTE (MAIN-EVENT TTL-OUTPUT-FAST$NETLIST))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-FAST$NETLIST 8)) TOTALP-LST ((TTL-OUTPUT-FAST$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-OUTPUT-FAST$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT-FAST$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-OUTPUT-FAST$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT-FAST$NETLIST))))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT-FAST&-OFF TTL-OUTPUT-FAST& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-FAST& . TTL-OUTPUT-FAST&-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-FAST& TTL-OUTPUT-FAST&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-FAST&) (QUOTE (MAIN-EVENT TTL-OUTPUT-FAST&))) (PUT1-LST (QUOTE TTL-OUTPUT-FAST&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-FAST& 2 NIL)) TOTALP-LST ((TTL-OUTPUT-FAST& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-OUTPUT-FAST& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT-FAST&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-FAST&-OFF) EVENT (DEFN TTL-OUTPUT-FAST& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT-FAST&))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC$VALUE-OFF TTL-OUTPUT-PARAMETRIC$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC$VALUE . TTL-OUTPUT-PARAMETRIC$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT-PARAMETRIC$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (TTL-OUTPUT-PARAMETRIC$VALUE-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT-PARAMETRIC$VALUE (REWRITE) (IMPLIES (TTL-OUTPUT-PARAMETRIC& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE TTL-OUTPUT-PARAMETRIC& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-OUTPUT-PARAMETRIC$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC& . TTL-OUTPUT-PARAMETRIC$VALUE) (LEMMAS DUAL-EVAL . TTL-OUTPUT-PARAMETRIC$VALUE))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PARAMETRIC$NETLIST) (QUOTE (MAIN-EVENT TTL-OUTPUT-PARAMETRIC$NETLIST))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PARAMETRIC$NETLIST 8)) TOTALP-LST ((TTL-OUTPUT-PARAMETRIC$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-OUTPUT-PARAMETRIC$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT-PARAMETRIC$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-OUTPUT-PARAMETRIC$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT-PARAMETRIC$NETLIST))))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT-PARAMETRIC&-OFF TTL-OUTPUT-PARAMETRIC& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT-PARAMETRIC& . TTL-OUTPUT-PARAMETRIC&-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT-PARAMETRIC& TTL-OUTPUT-PARAMETRIC&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PARAMETRIC&) (QUOTE (MAIN-EVENT TTL-OUTPUT-PARAMETRIC&))) (PUT1-LST (QUOTE TTL-OUTPUT-PARAMETRIC&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT-PARAMETRIC& 2 NIL)) TOTALP-LST ((TTL-OUTPUT-PARAMETRIC& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-OUTPUT-PARAMETRIC& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT-PARAMETRIC&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT-PARAMETRIC&-OFF) EVENT (DEFN TTL-OUTPUT-PARAMETRIC& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT-PARAMETRIC&))))) (PUT1-LST (QUOTE TTL-OUTPUT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT$VALUE-OFF TTL-OUTPUT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT$VALUE . TTL-OUTPUT$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT$VALUE TTL-OUTPUT$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-OUTPUT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT$VALUE-OFF) EVENT (PROVE-LEMMA TTL-OUTPUT$VALUE (REWRITE) (IMPLIES (TTL-OUTPUT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE TTL-OUTPUT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-OUTPUT$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-OUTPUT& . TTL-OUTPUT$VALUE) (LEMMAS DUAL-EVAL . TTL-OUTPUT$VALUE))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT$NETLIST) (QUOTE (MAIN-EVENT TTL-OUTPUT$NETLIST))) (PUT1-LST (QUOTE TTL-OUTPUT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT$NETLIST 8)) TOTALP-LST ((TTL-OUTPUT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-OUTPUT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST TTL-OUTPUT-PADS$NETLIST) EVENT (DEFN TTL-OUTPUT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT$NETLIST))))) (PUT1-LST (QUOTE TTL-OUTPUT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-OUTPUT&-OFF TTL-OUTPUT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-OUTPUT& . TTL-OUTPUT&-OFF) (DISABLED-LEMMAS NIL TTL-OUTPUT& TTL-OUTPUT&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT&) (QUOTE (MAIN-EVENT TTL-OUTPUT&))) (PUT1-LST (QUOTE TTL-OUTPUT&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-OUTPUT& 2 NIL)) TOTALP-LST ((TTL-OUTPUT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-OUTPUT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-OUTPUT&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS& TTL-OUTPUT$VALUE TTL-OUTPUT&-OFF) EVENT (DEFN TTL-OUTPUT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-OUTPUT&))))) (PUT1-LST (QUOTE TTL-INPUT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-INPUT$VALUE-OFF TTL-INPUT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT$VALUE . TTL-INPUT$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-INPUT$VALUE TTL-INPUT$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-INPUT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-INPUT-PADS-BODY$VALUE TTL-INPUT$VALUE-OFF) EVENT (PROVE-LEMMA TTL-INPUT$VALUE (REWRITE) (IMPLIES (TTL-INPUT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))))) ((ENABLE TTL-INPUT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-INPUT& . TTL-INPUT$VALUE) (LEMMAS DUAL-EVAL . TTL-INPUT$VALUE))))) (PUT1-LST (QUOTE *1*TTL-INPUT$NETLIST) (QUOTE (MAIN-EVENT TTL-INPUT$NETLIST))) (PUT1-LST (QUOTE TTL-INPUT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT$NETLIST 8)) TOTALP-LST ((TTL-INPUT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-INPUT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-INPUT$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST TTL-INPUT-PADS$NETLIST) EVENT (DEFN TTL-INPUT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-INPUT$NETLIST))))) (PUT1-LST (QUOTE TTL-INPUT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-INPUT&-OFF TTL-INPUT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-INPUT& . TTL-INPUT&-OFF) (DISABLED-LEMMAS NIL TTL-INPUT& TTL-INPUT&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-INPUT&) (QUOTE (MAIN-EVENT TTL-INPUT&))) (PUT1-LST (QUOTE TTL-INPUT&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-INPUT& 2 NIL)) TOTALP-LST ((TTL-INPUT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-INPUT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-INPUT&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS& TTL-INPUT$VALUE TTL-INPUT&-OFF) EVENT (DEFN TTL-INPUT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-INPUT&))))) (PUT1-LST (QUOTE TTL-CLK-INPUT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-CLK-INPUT$VALUE-OFF TTL-CLK-INPUT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT$VALUE . TTL-CLK-INPUT$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-CLK-INPUT$VALUE TTL-CLK-INPUT$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-CLK-INPUT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE TTL-CLK-INPUT$VALUE-OFF) EVENT (PROVE-LEMMA TTL-CLK-INPUT$VALUE (REWRITE) (IMPLIES (TTL-CLK-INPUT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-CLK-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))))) ((ENABLE TTL-CLK-INPUT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-CLK-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-CLK-INPUT$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT& . TTL-CLK-INPUT$VALUE) (LEMMAS DUAL-EVAL . TTL-CLK-INPUT$VALUE))))) (PUT1-LST (QUOTE *1*TTL-CLK-INPUT$NETLIST) (QUOTE (MAIN-EVENT TTL-CLK-INPUT$NETLIST))) (PUT1-LST (QUOTE TTL-CLK-INPUT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-CLK-INPUT$NETLIST 8)) TOTALP-LST ((TTL-CLK-INPUT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-CLK-INPUT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-CLK-INPUT$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN TTL-CLK-INPUT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-CLK-INPUT$NETLIST))))) (PUT1-LST (QUOTE TTL-CLK-INPUT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-CLK-INPUT&-OFF TTL-CLK-INPUT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-CLK-INPUT& . TTL-CLK-INPUT&-OFF) (DISABLED-LEMMAS NIL TTL-CLK-INPUT& TTL-CLK-INPUT&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-CLK-INPUT&) (QUOTE (MAIN-EVENT TTL-CLK-INPUT&))) (PUT1-LST (QUOTE TTL-CLK-INPUT&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-CLK-INPUT& 2 NIL)) TOTALP-LST ((TTL-CLK-INPUT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-CLK-INPUT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-CLK-INPUT&) IMMEDIATE-DEPENDENTS0 (CHIP& TTL-CLK-INPUT$VALUE TTL-CLK-INPUT&-OFF) EVENT (DEFN TTL-CLK-INPUT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-CLK-INPUT&))))) (PUT1-LST (QUOTE TTL-BIDIRECT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-BIDIRECT$VALUE-OFF TTL-BIDIRECT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT$VALUE . TTL-BIDIRECT$VALUE-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT$VALUE TTL-BIDIRECT$VALUE-OFF . T))))) (PUT1-LST (QUOTE TTL-BIDIRECT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT$VALUE-OFF) EVENT (PROVE-LEMMA TTL-BIDIRECT$VALUE (REWRITE) (IMPLIES (TTL-BIDIRECT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-BIDIRECT) (CONS IO (CONS A (CONS EN (CONS PI (QUOTE NIL))))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (CONS (F-BUF (FT-WIRE IO (FT-BUF (F-NOT EN) A))) (CONS (F-NAND (FT-WIRE IO (FT-BUF (F-NOT EN) A)) PI) (QUOTE NIL)))))) ((ENABLE TTL-BIDIRECT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE TTL-BIDIRECT) (CONS IO (CONS A (CONS EN (CONS PI (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . TTL-BIDIRECT$VALUE) (IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT& . TTL-BIDIRECT$VALUE) (LEMMAS DUAL-EVAL . TTL-BIDIRECT$VALUE))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT$NETLIST) (QUOTE (MAIN-EVENT TTL-BIDIRECT$NETLIST))) (PUT1-LST (QUOTE TTL-BIDIRECT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT$NETLIST 8)) TOTALP-LST ((TTL-BIDIRECT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*TTL-BIDIRECT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-BIDIRECT$NETLIST) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$NETLIST) EVENT (DEFN TTL-BIDIRECT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-BIDIRECT$NETLIST))))) (PUT1-LST (QUOTE TTL-BIDIRECT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE TTL-BIDIRECT&-OFF TTL-BIDIRECT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TTL-BIDIRECT& . TTL-BIDIRECT&-OFF) (DISABLED-LEMMAS NIL TTL-BIDIRECT& TTL-BIDIRECT&-OFF . T))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT&) (QUOTE (MAIN-EVENT TTL-BIDIRECT&))) (PUT1-LST (QUOTE TTL-BIDIRECT&) (QUOTE (TYPE-PRESCRIPTION-LST ((TTL-BIDIRECT& 2 NIL)) TOTALP-LST ((TTL-BIDIRECT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*TTL-BIDIRECT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*TTL-BIDIRECT&) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS& TTL-BIDIRECT$VALUE TTL-BIDIRECT&-OFF) EVENT (DEFN TTL-BIDIRECT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*TTL-BIDIRECT&))))) (PUT1-LST (QUOTE PULLUP$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE PULLUP$VALUE-OFF PULLUP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP$VALUE . PULLUP$VALUE-OFF) (DISABLED-LEMMAS NIL PULLUP$VALUE PULLUP$VALUE-OFF . T))))) (PUT1-LST (QUOTE PULLUP$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP V-PULLUP$BODY-VALUE PULLUP$VALUE-OFF) EVENT (PROVE-LEMMA PULLUP$VALUE (REWRITE) (IMPLIES (PULLUP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PULLUP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-PULLUP A) (QUOTE NIL)))) ((ENABLE PULLUP& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE PULLUP) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 F-PULLUP . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . PULLUP$VALUE) (IMMEDIATE-DEPENDENTS0 PULLUP& . PULLUP$VALUE) (LEMMAS DUAL-EVAL . PULLUP$VALUE))))) (PUT1-LST (QUOTE *1*PULLUP$NETLIST) (QUOTE (MAIN-EVENT PULLUP$NETLIST))) (PUT1-LST (QUOTE PULLUP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PULLUP$NETLIST 8)) TOTALP-LST ((PULLUP$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*PULLUP$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*PULLUP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$NETLIST V-PULLUP$NETLIST) EVENT (DEFN PULLUP$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*PULLUP$NETLIST))))) (PUT1-LST (QUOTE PULLUP&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE PULLUP&-OFF PULLUP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PULLUP& . PULLUP&-OFF) (DISABLED-LEMMAS NIL PULLUP& PULLUP&-OFF . T))))) (PUT1-LST (QUOTE *1*PULLUP&) (QUOTE (MAIN-EVENT PULLUP&))) (PUT1-LST (QUOTE PULLUP&) (QUOTE (TYPE-PRESCRIPTION-LST ((PULLUP& 2 NIL)) TOTALP-LST ((PULLUP& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*PULLUP& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*PULLUP&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM& V-PULLUP$BODY-VALUE V-PULLUP& PULLUP$VALUE PULLUP&-OFF) EVENT (DEFN PULLUP& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*PULLUP&))))) (PUT1-LST (QUOTE T-WIRE$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE T-WIRE$VALUE-OFF T-WIRE$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE$VALUE . T-WIRE$VALUE-OFF) (DISABLED-LEMMAS NIL T-WIRE$VALUE T-WIRE$VALUE-OFF . T))))) (PUT1-LST (QUOTE T-WIRE$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (M2$STATE M2$VALUE V-WIRE$BODY-VALUE T-WIRE$VALUE-OFF) EVENT (PROVE-LEMMA T-WIRE$VALUE (REWRITE) (IMPLIES (T-WIRE& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-WIRE) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (FT-WIRE A B) (QUOTE NIL)))) ((ENABLE T-WIRE& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE T-WIRE) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 FOURP . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 FOURFIX . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . T-WIRE$VALUE) (IMMEDIATE-DEPENDENTS0 T-WIRE& . T-WIRE$VALUE) (LEMMAS DUAL-EVAL . T-WIRE$VALUE))))) (PUT1-LST (QUOTE *1*T-WIRE$NETLIST) (QUOTE (MAIN-EVENT T-WIRE$NETLIST))) (PUT1-LST (QUOTE T-WIRE$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((T-WIRE$NETLIST 8)) TOTALP-LST ((T-WIRE$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*T-WIRE$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*T-WIRE$NETLIST) IMMEDIATE-DEPENDENTS0 (M2$NETLIST V-WIRE$NETLIST) EVENT (DEFN T-WIRE$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*T-WIRE$NETLIST))))) (PUT1-LST (QUOTE T-WIRE&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE T-WIRE&-OFF T-WIRE& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE& . T-WIRE&-OFF) (DISABLED-LEMMAS NIL T-WIRE& T-WIRE&-OFF . T))))) (PUT1-LST (QUOTE *1*T-WIRE&) (QUOTE (MAIN-EVENT T-WIRE&))) (PUT1-LST (QUOTE T-WIRE&) (QUOTE (TYPE-PRESCRIPTION-LST ((T-WIRE& 2 NIL)) TOTALP-LST ((T-WIRE& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*T-WIRE& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*T-WIRE&) IMMEDIATE-DEPENDENTS0 (M2& V-WIRE$BODY-VALUE V-WIRE& T-WIRE$VALUE T-WIRE&-OFF) EVENT (DEFN T-WIRE& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*T-WIRE&))))) (PUT1-LST (QUOTE T-BUF$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE T-BUF$VALUE-OFF T-BUF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF$VALUE . T-BUF$VALUE-OFF) (DISABLED-LEMMAS NIL T-BUF$VALUE T-BUF$VALUE-OFF . T))))) (PUT1-LST (QUOTE T-BUF$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (M1$STATE M1$VALUE T-BUF$VALUE-OFF) EVENT (PROVE-LEMMA T-BUF$VALUE (REWRITE) (IMPLIES (T-BUF& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-BUF) (CONS E (CONS A (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF E A) (QUOTE NIL)))) ((ENABLE T-BUF& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE T-BUF) (CONS E (CONS A (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 FT-BUF . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . T-BUF$VALUE) (IMMEDIATE-DEPENDENTS0 T-BUF& . T-BUF$VALUE) (LEMMAS DUAL-EVAL . T-BUF$VALUE))))) (PUT1-LST (QUOTE *1*T-BUF$NETLIST) (QUOTE (MAIN-EVENT T-BUF$NETLIST))) (PUT1-LST (QUOTE T-BUF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((T-BUF$NETLIST 8)) TOTALP-LST ((T-BUF$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*T-BUF$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*T-BUF$NETLIST) IMMEDIATE-DEPENDENTS0 (M1$NETLIST) EVENT (DEFN T-BUF$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*T-BUF$NETLIST))))) (PUT1-LST (QUOTE T-BUF&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE T-BUF&-OFF T-BUF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-BUF& . T-BUF&-OFF) (DISABLED-LEMMAS NIL T-BUF& T-BUF&-OFF . T))))) (PUT1-LST (QUOTE *1*T-BUF&) (QUOTE (MAIN-EVENT T-BUF&))) (PUT1-LST (QUOTE T-BUF&) (QUOTE (TYPE-PRESCRIPTION-LST ((T-BUF& 2 NIL)) TOTALP-LST ((T-BUF& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*T-BUF& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*T-BUF&) IMMEDIATE-DEPENDENTS0 (M1& T-BUF$VALUE T-BUF&-OFF) EVENT (DEFN T-BUF& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*T-BUF&))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE RAM-ENABLE-CIRCUIT$VALUE-OFF RAM-ENABLE-CIRCUIT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT$VALUE . RAM-ENABLE-CIRCUIT$VALUE-OFF) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT$VALUE RAM-ENABLE-CIRCUIT$VALUE-OFF . T))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (REGFILE$STATE REGFILE$VALUE RAM-ENABLE-CIRCUIT$VALUE-OFF) EVENT (PROVE-LEMMA RAM-ENABLE-CIRCUIT$VALUE (REWRITE) (IMPLIES (RAM-ENABLE-CIRCUIT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) (CONS CLK (CONS TEST-REGFILE- (CONS DISABLE-REGFILE- (CONS WE (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND DISABLE-REGFILE- WE) (QUOTE NIL)))) ((ENABLE RAM-ENABLE-CIRCUIT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) (CONS CLK (CONS TEST-REGFILE- (CONS DISABLE-REGFILE- (CONS WE (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . RAM-ENABLE-CIRCUIT$VALUE) (IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT& . RAM-ENABLE-CIRCUIT$VALUE) (LEMMAS DUAL-EVAL . RAM-ENABLE-CIRCUIT$VALUE))))) (PUT1-LST (QUOTE *1*RAM-ENABLE-CIRCUIT$NETLIST) (QUOTE (MAIN-EVENT RAM-ENABLE-CIRCUIT$NETLIST))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM-ENABLE-CIRCUIT$NETLIST 8)) TOTALP-LST ((RAM-ENABLE-CIRCUIT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*RAM-ENABLE-CIRCUIT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*RAM-ENABLE-CIRCUIT$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-REGFILE$NETLIST REGFILE$NETLIST) EVENT (DEFN RAM-ENABLE-CIRCUIT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*RAM-ENABLE-CIRCUIT$NETLIST))))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT&-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE RAM-ENABLE-CIRCUIT&-OFF RAM-ENABLE-CIRCUIT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM-ENABLE-CIRCUIT& . RAM-ENABLE-CIRCUIT&-OFF) (DISABLED-LEMMAS NIL RAM-ENABLE-CIRCUIT& RAM-ENABLE-CIRCUIT&-OFF . T))))) (PUT1-LST (QUOTE *1*RAM-ENABLE-CIRCUIT&) (QUOTE (MAIN-EVENT RAM-ENABLE-CIRCUIT&))) (PUT1-LST (QUOTE RAM-ENABLE-CIRCUIT&) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM-ENABLE-CIRCUIT& 2 NIL)) TOTALP-LST ((RAM-ENABLE-CIRCUIT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*RAM-ENABLE-CIRCUIT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194014 SATELLITES (*1*RAM-ENABLE-CIRCUIT&) IMMEDIATE-DEPENDENTS0 (REGFILE& RAM-ENABLE-CIRCUIT$VALUE RAM-ENABLE-CIRCUIT&-OFF) EVENT (DEFN RAM-ENABLE-CIRCUIT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*RAM-ENABLE-CIRCUIT&))))) (PUT1-LST (QUOTE MEM-32X32$VALUE-OFF) (QUOTE (IDATE 1000402194014 EVENT (TOGGLE MEM-32X32$VALUE-OFF MEM-32X32$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32$VALUE . MEM-32X32$VALUE-OFF) (DISABLED-LEMMAS NIL MEM-32X32$VALUE MEM-32X32$VALUE-OFF . T))))) (PUT1-LST (QUOTE MEM-32X32$VALUE) (QUOTE (IDATE 1000402194014 IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32$VALUE-OFF) EVENT (PROVE-LEMMA MEM-32X32$VALUE (REWRITE) (IMPLIES (MEM-32X32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (MEM-VALUE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE))) ((ENABLE MEM-32X32& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 MEM-VALUE . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . MEM-32X32$VALUE) (IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32$VALUE) (LEMMAS DUAL-EVAL . MEM-32X32$VALUE))))) (PUT1-LST (QUOTE *1*MEM-32X32$NETLIST) (QUOTE (MAIN-EVENT MEM-32X32$NETLIST))) (PUT1-LST (QUOTE MEM-32X32$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-32X32$NETLIST 8)) TOTALP-LST ((MEM-32X32$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*MEM-32X32$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*MEM-32X32$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$NETLIST) EVENT (DEFN MEM-32X32$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*MEM-32X32$NETLIST))))) (PUT1-LST (QUOTE MEM-32X32&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE MEM-32X32&-OFF MEM-32X32& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-32X32& . MEM-32X32&-OFF) (DISABLED-LEMMAS NIL MEM-32X32& MEM-32X32&-OFF . T))))) (PUT1-LST (QUOTE *1*MEM-32X32&) (QUOTE (MAIN-EVENT MEM-32X32&))) (PUT1-LST (QUOTE MEM-32X32&) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-32X32& 2 NIL)) TOTALP-LST ((MEM-32X32& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*MEM-32X32& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*MEM-32X32&) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM& MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32$STATE MEM-32X32$VALUE MEM-32X32&-OFF) EVENT (DEFN MEM-32X32& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*MEM-32X32&))))) (PUT1-LST (QUOTE ID$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE ID$VALUE-OFF ID$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID$VALUE . ID$VALUE-OFF) (DISABLED-LEMMAS NIL ID$VALUE ID$VALUE-OFF . T))))) (PUT1-LST (QUOTE ID$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE REGFILE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE DECODE-REG-MODE$VALUE DEC-PASS-CELL$VALUE ID$VALUE-OFF) EVENT (PROVE-LEMMA ID$VALUE (REWRITE) (IMPLIES (ID& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ID) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS A (QUOTE NIL)))) ((ENABLE ID& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE ID) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . ID$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ID$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ID$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . ID$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . ID$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . ID$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . ID$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . ID$VALUE) (IMMEDIATE-DEPENDENTS0 ID& . ID$VALUE) (LEMMAS DUAL-EVAL . ID$VALUE))))) (PUT1-LST (QUOTE *1*ID$NETLIST) (QUOTE (MAIN-EVENT ID$NETLIST))) (PUT1-LST (QUOTE ID$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ID$NETLIST 8)) TOTALP-LST ((ID$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*ID$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*ID$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-REGFILE$NETLIST REGFILE$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST CONTROL-LET$NETLIST FANOUT-32$NETLIST FANOUT-5$NETLIST FANOUT-4$NETLIST DECODE-REG-MODE$NETLIST DEC-PASS-CELL$NETLIST) EVENT (DEFN ID$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*ID$NETLIST))))) (PUT1-LST (QUOTE ID&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE ID&-OFF ID& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID& . ID&-OFF) (DISABLED-LEMMAS NIL ID& ID&-OFF . T))))) (PUT1-LST (QUOTE *1*ID&) (QUOTE (MAIN-EVENT ID&))) (PUT1-LST (QUOTE ID&) (QUOTE (TYPE-PRESCRIPTION-LST ((ID& 2 NIL)) TOTALP-LST ((ID& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*ID& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*ID&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& REGFILE& CV& NEXT-STATE& CONTROL-LET& FANOUT-32& FANOUT-5& FANOUT-4& DECODE-REG-MODE& DEC-PASS-CELL& ID$VALUE ID&-OFF) EVENT (DEFN ID& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*ID&))))) (PUT1-LST (QUOTE FD1SLP$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1SLP$VALUE-OFF FD1SLP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP$VALUE . FD1SLP$VALUE-OFF) (DISABLED-LEMMAS NIL FD1SLP$VALUE FD1SLP$VALUE-OFF . T))))) (PUT1-LST (QUOTE FD1SLP$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE FLAGS$VALUE WE-REG-BODY$VALUE FD1SLP$VALUE-OFF) EVENT (PROVE-LEMMA FD1SLP$VALUE (REWRITE) (IMPLIES (FD1SLP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))))) ((ENABLE FD1SLP& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1SLP$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SLP& . FD1SLP$VALUE) (LEMMAS DUAL-EVAL . FD1SLP$VALUE))))) (PUT1-LST (QUOTE *1*FD1SLP$NETLIST) (QUOTE (MAIN-EVENT FD1SLP$NETLIST))) (PUT1-LST (QUOTE FD1SLP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1SLP$NETLIST 8)) TOTALP-LST ((FD1SLP$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*FD1SLP$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1SLP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-FLAGS$NETLIST FLAGS$NETLIST WE-REG$NETLIST) EVENT (DEFN FD1SLP$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1SLP$NETLIST))))) (PUT1-LST (QUOTE FD1SLP&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1SLP&-OFF FD1SLP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SLP& . FD1SLP&-OFF) (DISABLED-LEMMAS NIL FD1SLP& FD1SLP&-OFF . T))))) (PUT1-LST (QUOTE *1*FD1SLP&) (QUOTE (MAIN-EVENT FD1SLP&))) (PUT1-LST (QUOTE FD1SLP&) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1SLP& 2 NIL)) TOTALP-LST ((FD1SLP& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*FD1SLP& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1SLP&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& FLAGS& WE-REG-BODY$STATE WE-REG-BODY$VALUE WE-REG& FD1SLP$STATE FD1SLP$VALUE FD1SLP&-OFF) EVENT (DEFN FD1SLP& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1SLP&))))) (PUT1-LST (QUOTE FD1SP$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1SP$VALUE-OFF FD1SP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP$VALUE . FD1SP$VALUE-OFF) (DISABLED-LEMMAS NIL FD1SP$VALUE FD1SP$VALUE-OFF . T))))) (PUT1-LST (QUOTE FD1SP$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (FD1SP$VALUE-OFF) EVENT (PROVE-LEMMA FD1SP$VALUE (REWRITE) (IMPLIES (FD1SP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))))) ((ENABLE FD1SP& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1SP$VALUE) (IMMEDIATE-DEPENDENTS0 FD1SP& . FD1SP$VALUE) (LEMMAS DUAL-EVAL . FD1SP$VALUE))))) (PUT1-LST (QUOTE *1*FD1SP$NETLIST) (QUOTE (MAIN-EVENT FD1SP$NETLIST))) (PUT1-LST (QUOTE FD1SP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1SP$NETLIST 8)) TOTALP-LST ((FD1SP$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*FD1SP$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1SP$NETLIST) EVENT (DEFN FD1SP$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1SP$NETLIST))))) (PUT1-LST (QUOTE FD1SP&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1SP&-OFF FD1SP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1SP& . FD1SP&-OFF) (DISABLED-LEMMAS NIL FD1SP& FD1SP&-OFF . T))))) (PUT1-LST (QUOTE *1*FD1SP&) (QUOTE (MAIN-EVENT FD1SP&))) (PUT1-LST (QUOTE FD1SP&) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1SP& 2 NIL)) TOTALP-LST ((FD1SP& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*FD1SP& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1SP&) IMMEDIATE-DEPENDENTS0 (FD1SP$STATE FD1SP$VALUE FD1SP&-OFF) EVENT (DEFN FD1SP& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1SP&))))) (PUT1-LST (QUOTE FD1S$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1S$VALUE-OFF FD1S$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S$VALUE . FD1S$VALUE-OFF) (DISABLED-LEMMAS NIL FD1S$VALUE FD1S$VALUE-OFF . T))))) (PUT1-LST (QUOTE FD1S$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE REGFILE$VALUE REG-BODY$VALUE FD1S$VALUE-OFF) EVENT (PROVE-LEMMA FD1S$VALUE (REWRITE) (IMPLIES (FD1S& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))))) ((ENABLE FD1S& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1S$VALUE) (IMMEDIATE-DEPENDENTS0 FD1S& . FD1S$VALUE) (LEMMAS DUAL-EVAL . FD1S$VALUE))))) (PUT1-LST (QUOTE *1*FD1S$NETLIST) (QUOTE (MAIN-EVENT FD1S$NETLIST))) (PUT1-LST (QUOTE FD1S$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1S$NETLIST 8)) TOTALP-LST ((FD1S$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*FD1S$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1S$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-REGFILE$NETLIST REGFILE$NETLIST REG$NETLIST) EVENT (DEFN FD1S$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1S$NETLIST))))) (PUT1-LST (QUOTE FD1S&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1S&-OFF FD1S& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1S& . FD1S&-OFF) (DISABLED-LEMMAS NIL FD1S& FD1S&-OFF . T))))) (PUT1-LST (QUOTE *1*FD1S&) (QUOTE (MAIN-EVENT FD1S&))) (PUT1-LST (QUOTE FD1S&) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1S& 2 NIL)) TOTALP-LST ((FD1S& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*FD1S& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1S&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& REGFILE& REG-BODY$STATE REG-BODY$VALUE REG& FD1S$STATE FD1S$VALUE FD1S&-OFF) EVENT (DEFN FD1S& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1S&))))) (PUT1-LST (QUOTE FD1$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1$VALUE-OFF FD1$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1$VALUE . FD1$VALUE-OFF) (DISABLED-LEMMAS NIL FD1$VALUE FD1$VALUE-OFF . T))))) (PUT1-LST (QUOTE FD1$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (M1$STATE M1$VALUE FD1$VALUE-OFF) EVENT (PROVE-LEMMA FD1$VALUE (REWRITE) (IMPLIES (FD1& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))))) ((ENABLE FD1& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . FD1$VALUE) (IMMEDIATE-DEPENDENTS0 FD1& . FD1$VALUE) (LEMMAS DUAL-EVAL . FD1$VALUE))))) (PUT1-LST (QUOTE *1*FD1$NETLIST) (QUOTE (MAIN-EVENT FD1$NETLIST))) (PUT1-LST (QUOTE FD1$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1$NETLIST 8)) TOTALP-LST ((FD1$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*FD1$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1$NETLIST) IMMEDIATE-DEPENDENTS0 (M1$NETLIST) EVENT (DEFN FD1$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1$NETLIST))))) (PUT1-LST (QUOTE FD1&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE FD1&-OFF FD1& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FD1& . FD1&-OFF) (DISABLED-LEMMAS NIL FD1& FD1&-OFF . T))))) (PUT1-LST (QUOTE *1*FD1&) (QUOTE (MAIN-EVENT FD1&))) (PUT1-LST (QUOTE FD1&) (QUOTE (TYPE-PRESCRIPTION-LST ((FD1& 2 NIL)) TOTALP-LST ((FD1& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*FD1& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*FD1&) IMMEDIATE-DEPENDENTS0 (M1& FD1$STATE FD1$VALUE FD1&-OFF) EVENT (DEFN FD1& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*FD1&))))) (PUT1-LST (QUOTE DP-RAM-16X32$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DP-RAM-16X32$VALUE-OFF DP-RAM-16X32$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32$VALUE . DP-RAM-16X32$VALUE-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32$VALUE DP-RAM-16X32$VALUE-OFF . T))))) (PUT1-LST (QUOTE DP-RAM-16X32$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32$VALUE-OFF) EVENT (PROVE-LEMMA DP-RAM-16X32$VALUE (REWRITE) (IMPLIES (DP-RAM-16X32& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE))) ((ENABLE DP-RAM-16X32& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DP-RAM-16X32$VALUE) (IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . DP-RAM-16X32$VALUE) (LEMMAS DUAL-EVAL . DP-RAM-16X32$VALUE))))) (PUT1-LST (QUOTE *1*DP-RAM-16X32$NETLIST) (QUOTE (MAIN-EVENT DP-RAM-16X32$NETLIST))) (PUT1-LST (QUOTE DP-RAM-16X32$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DP-RAM-16X32$NETLIST 8)) TOTALP-LST ((DP-RAM-16X32$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*DP-RAM-16X32$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DP-RAM-16X32$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-REGFILE$NETLIST REGFILE$NETLIST) EVENT (DEFN DP-RAM-16X32$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*DP-RAM-16X32$NETLIST))))) (PUT1-LST (QUOTE DP-RAM-16X32&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DP-RAM-16X32&-OFF DP-RAM-16X32& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DP-RAM-16X32& . DP-RAM-16X32&-OFF) (DISABLED-LEMMAS NIL DP-RAM-16X32& DP-RAM-16X32&-OFF . T))))) (PUT1-LST (QUOTE *1*DP-RAM-16X32&) (QUOTE (MAIN-EVENT DP-RAM-16X32&))) (PUT1-LST (QUOTE DP-RAM-16X32&) (QUOTE (TYPE-PRESCRIPTION-LST ((DP-RAM-16X32& 2 NIL)) TOTALP-LST ((DP-RAM-16X32& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*DP-RAM-16X32& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DP-RAM-16X32&) IMMEDIATE-DEPENDENTS0 (REGFILE& DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32$STATE DP-RAM-16X32$VALUE DP-RAM-16X32&-OFF) EVENT (DEFN DP-RAM-16X32& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*DP-RAM-16X32&))))) (PUT1-LST (QUOTE PROCMON$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE PROCMON$VALUE-OFF PROCMON$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON$VALUE . PROCMON$VALUE-OFF) (DISABLED-LEMMAS NIL PROCMON$VALUE PROCMON$VALUE-OFF . T))))) (PUT1-LST (QUOTE PROCMON$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (PROCMON$VALUE-OFF) EVENT (PROVE-LEMMA PROCMON$VALUE (REWRITE) (IMPLIES (PROCMON& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PROCMON) (CONS A (CONS E (CONS S (CONS N (QUOTE NIL))))) STATE NETLIST) (CONS (F-IF S (F-IF E (F-IF A (QUOTE *1*FALSE) (QUOTE *1*FALSE)) A) N) (QUOTE NIL)))) ((ENABLE PROCMON& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE PROCMON) (CONS A (CONS E (CONS S (CONS N (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . PROCMON$VALUE) (IMMEDIATE-DEPENDENTS0 PROCMON& . PROCMON$VALUE) (LEMMAS DUAL-EVAL . PROCMON$VALUE))))) (PUT1-LST (QUOTE *1*PROCMON$NETLIST) (QUOTE (MAIN-EVENT PROCMON$NETLIST))) (PUT1-LST (QUOTE PROCMON$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PROCMON$NETLIST 8)) TOTALP-LST ((PROCMON$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*PROCMON$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*PROCMON$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP$NETLIST) EVENT (DEFN PROCMON$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*PROCMON$NETLIST))))) (PUT1-LST (QUOTE PROCMON&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE PROCMON&-OFF PROCMON& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROCMON& . PROCMON&-OFF) (DISABLED-LEMMAS NIL PROCMON& PROCMON&-OFF . T))))) (PUT1-LST (QUOTE *1*PROCMON&) (QUOTE (MAIN-EVENT PROCMON&))) (PUT1-LST (QUOTE PROCMON&) (QUOTE (TYPE-PRESCRIPTION-LST ((PROCMON& 2 NIL)) TOTALP-LST ((PROCMON& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*PROCMON& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*PROCMON&) IMMEDIATE-DEPENDENTS0 (CHIP& PROCMON$VALUE PROCMON&-OFF) EVENT (DEFN PROCMON& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*PROCMON&))))) (PUT1-LST (QUOTE DEL10$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL10$VALUE-OFF DEL10$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10$VALUE . DEL10$VALUE-OFF) (DISABLED-LEMMAS NIL DEL10$VALUE DEL10$VALUE-OFF . T))))) (PUT1-LST (QUOTE DEL10$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (DEL10$VALUE-OFF) EVENT (PROVE-LEMMA DEL10$VALUE (REWRITE) (IMPLIES (DEL10& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL10) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE DEL10& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE DEL10) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DEL10$VALUE) (IMMEDIATE-DEPENDENTS0 DEL10& . DEL10$VALUE) (LEMMAS DUAL-EVAL . DEL10$VALUE))))) (PUT1-LST (QUOTE *1*DEL10$NETLIST) (QUOTE (MAIN-EVENT DEL10$NETLIST))) (PUT1-LST (QUOTE DEL10$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL10$NETLIST 8)) TOTALP-LST ((DEL10$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*DEL10$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL10$NETLIST) EVENT (DEFN DEL10$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL10$NETLIST))))) (PUT1-LST (QUOTE DEL10&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL10&-OFF DEL10& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL10& . DEL10&-OFF) (DISABLED-LEMMAS NIL DEL10& DEL10&-OFF . T))))) (PUT1-LST (QUOTE *1*DEL10&) (QUOTE (MAIN-EVENT DEL10&))) (PUT1-LST (QUOTE DEL10&) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL10& 2 NIL)) TOTALP-LST ((DEL10& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*DEL10& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL10&) IMMEDIATE-DEPENDENTS0 (DEL10$VALUE DEL10&-OFF) EVENT (DEFN DEL10& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL10&))))) (PUT1-LST (QUOTE DEL4$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL4$VALUE-OFF DEL4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4$VALUE . DEL4$VALUE-OFF) (DISABLED-LEMMAS NIL DEL4$VALUE DEL4$VALUE-OFF . T))))) (PUT1-LST (QUOTE DEL4$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEL4$VALUE-OFF) EVENT (PROVE-LEMMA DEL4$VALUE (REWRITE) (IMPLIES (DEL4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL4) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE DEL4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE DEL4) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DEL4$VALUE) (IMMEDIATE-DEPENDENTS0 DEL4& . DEL4$VALUE) (LEMMAS DUAL-EVAL . DEL4$VALUE))))) (PUT1-LST (QUOTE *1*DEL4$NETLIST) (QUOTE (MAIN-EVENT DEL4$NETLIST))) (PUT1-LST (QUOTE DEL4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL4$NETLIST 8)) TOTALP-LST ((DEL4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*DEL4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL4$NETLIST) IMMEDIATE-DEPENDENTS0 (WE-REG$NETLIST REG$NETLIST) EVENT (DEFN DEL4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL4$NETLIST))))) (PUT1-LST (QUOTE DEL4&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL4&-OFF DEL4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL4& . DEL4&-OFF) (DISABLED-LEMMAS NIL DEL4& DEL4&-OFF . T))))) (PUT1-LST (QUOTE *1*DEL4&) (QUOTE (MAIN-EVENT DEL4&))) (PUT1-LST (QUOTE DEL4&) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL4& 2 NIL)) TOTALP-LST ((DEL4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*DEL4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL4&) IMMEDIATE-DEPENDENTS0 (WE-REG& REG& DEL4$VALUE DEL4&-OFF) EVENT (DEFN DEL4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL4&))))) (PUT1-LST (QUOTE DEL2$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL2$VALUE-OFF DEL2$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2$VALUE . DEL2$VALUE-OFF) (DISABLED-LEMMAS NIL DEL2$VALUE DEL2$VALUE-OFF . T))))) (PUT1-LST (QUOTE DEL2$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (DEL2$VALUE-OFF) EVENT (PROVE-LEMMA DEL2$VALUE (REWRITE) (IMPLIES (DEL2& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL2) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL)))) ((ENABLE DEL2& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE DEL2) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DEL2$VALUE) (IMMEDIATE-DEPENDENTS0 DEL2& . DEL2$VALUE) (LEMMAS DUAL-EVAL . DEL2$VALUE))))) (PUT1-LST (QUOTE *1*DEL2$NETLIST) (QUOTE (MAIN-EVENT DEL2$NETLIST))) (PUT1-LST (QUOTE DEL2$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL2$NETLIST 8)) TOTALP-LST ((DEL2$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*DEL2$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL2$NETLIST) EVENT (DEFN DEL2$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL2$NETLIST))))) (PUT1-LST (QUOTE DEL2&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE DEL2&-OFF DEL2& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEL2& . DEL2&-OFF) (DISABLED-LEMMAS NIL DEL2& DEL2&-OFF . T))))) (PUT1-LST (QUOTE *1*DEL2&) (QUOTE (MAIN-EVENT DEL2&))) (PUT1-LST (QUOTE DEL2&) (QUOTE (TYPE-PRESCRIPTION-LST ((DEL2& 2 NIL)) TOTALP-LST ((DEL2& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*DEL2& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*DEL2&) IMMEDIATE-DEPENDENTS0 (DEL2$VALUE DEL2&-OFF) EVENT (DEFN DEL2& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*DEL2&))))) (PUT1-LST (QUOTE B-XOR3$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-XOR3$VALUE-OFF B-XOR3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3$VALUE . B-XOR3$VALUE-OFF) (DISABLED-LEMMAS NIL B-XOR3$VALUE B-XOR3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-XOR3$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (B-XOR3$VALUE-OFF) EVENT (PROVE-LEMMA B-XOR3$VALUE (REWRITE) (IMPLIES (B-XOR3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-XOR3 A B C) (QUOTE NIL)))) ((ENABLE B-XOR3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR3 . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-XOR3$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR3& . B-XOR3$VALUE) (LEMMAS DUAL-EVAL . B-XOR3$VALUE))))) (PUT1-LST (QUOTE *1*B-XOR3$NETLIST) (QUOTE (MAIN-EVENT B-XOR3$NETLIST))) (PUT1-LST (QUOTE B-XOR3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR3$NETLIST 8)) TOTALP-LST ((B-XOR3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-XOR3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-XOR3$NETLIST) EVENT (DEFN B-XOR3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-XOR3$NETLIST))))) (PUT1-LST (QUOTE B-XOR3&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-XOR3&-OFF B-XOR3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR3& . B-XOR3&-OFF) (DISABLED-LEMMAS NIL B-XOR3& B-XOR3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-XOR3&) (QUOTE (MAIN-EVENT B-XOR3&))) (PUT1-LST (QUOTE B-XOR3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR3& 2 NIL)) TOTALP-LST ((B-XOR3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-XOR3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-XOR3&) IMMEDIATE-DEPENDENTS0 (B-XOR3$VALUE B-XOR3&-OFF) EVENT (DEFN B-XOR3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-XOR3&))))) (PUT1-LST (QUOTE B-XOR$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-XOR$VALUE-OFF B-XOR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR$VALUE . B-XOR$VALUE-OFF) (DISABLED-LEMMAS NIL B-XOR$VALUE B-XOR$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-XOR$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP$VALUE OVERFLOW-HELP$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE V-INC4$VALUE HALF-ADDER$VALUE V-XOR$BODY-VALUE B-XOR$VALUE-OFF) EVENT (PROVE-LEMMA B-XOR$VALUE (REWRITE) (IMPLIES (B-XOR& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-XOR A B) (QUOTE NIL)))) ((ENABLE B-XOR& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-XOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-XOR& . B-XOR$VALUE) (LEMMAS DUAL-EVAL . B-XOR$VALUE))))) (PUT1-LST (QUOTE *1*B-XOR$NETLIST) (QUOTE (MAIN-EVENT B-XOR$NETLIST))) (PUT1-LST (QUOTE B-XOR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR$NETLIST 8)) TOTALP-LST ((B-XOR$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-XOR$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-XOR$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST B-STORE-RESULTP$NETLIST OVERFLOW-HELP$NETLIST DECODE-GEN$NETLIST V-INC4$NETLIST HALF-ADDER$NETLIST V-XOR$NETLIST) EVENT (DEFN B-XOR$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-XOR$NETLIST))))) (PUT1-LST (QUOTE B-XOR&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-XOR&-OFF B-XOR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR& . B-XOR&-OFF) (DISABLED-LEMMAS NIL B-XOR& B-XOR&-OFF . T))))) (PUT1-LST (QUOTE *1*B-XOR&) (QUOTE (MAIN-EVENT B-XOR&))) (PUT1-LST (QUOTE B-XOR&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR& 2 NIL)) TOTALP-LST ((B-XOR& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-XOR& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-XOR&) IMMEDIATE-DEPENDENTS0 (B-STORE-RESULTP& OVERFLOW-HELP& DECODE-GEN& V-INC4& HALF-ADDER& V-XOR$BODY-VALUE V-XOR& B-XOR$VALUE B-XOR&-OFF) EVENT (DEFN B-XOR& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-XOR&))))) (PUT1-LST (QUOTE B-OR4$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR4$VALUE-OFF B-OR4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4$VALUE . B-OR4$VALUE-OFF) (DISABLED-LEMMAS NIL B-OR4$VALUE B-OR4$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-OR4$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-OR4$VALUE-OFF) EVENT (PROVE-LEMMA B-OR4$VALUE (REWRITE) (IMPLIES (B-OR4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-OR4 A B C D) (QUOTE NIL)))) ((ENABLE B-OR4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR4 . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-OR4$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR4& . B-OR4$VALUE) (LEMMAS DUAL-EVAL . B-OR4$VALUE))))) (PUT1-LST (QUOTE *1*B-OR4$NETLIST) (QUOTE (MAIN-EVENT B-OR4$NETLIST))) (PUT1-LST (QUOTE B-OR4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR4$NETLIST 8)) TOTALP-LST ((B-OR4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-OR4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST CONTROL-LET$NETLIST) EVENT (DEFN B-OR4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR4$NETLIST))))) (PUT1-LST (QUOTE B-OR4&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR4&-OFF B-OR4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR4& . B-OR4&-OFF) (DISABLED-LEMMAS NIL B-OR4& B-OR4&-OFF . T))))) (PUT1-LST (QUOTE *1*B-OR4&) (QUOTE (MAIN-EVENT B-OR4&))) (PUT1-LST (QUOTE B-OR4&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR4& 2 NIL)) TOTALP-LST ((B-OR4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-OR4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR4&) IMMEDIATE-DEPENDENTS0 (CV& CONTROL-LET& B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-OR4$VALUE B-OR4&-OFF) EVENT (DEFN B-OR4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR4&))))) (PUT1-LST (QUOTE B-OR3$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR3$VALUE-OFF B-OR3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3$VALUE . B-OR3$VALUE-OFF) (DISABLED-LEMMAS NIL B-OR3$VALUE B-OR3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-OR3$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE B-OR3$VALUE-OFF) EVENT (PROVE-LEMMA B-OR3$VALUE (REWRITE) (IMPLIES (B-OR3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-OR3 A B C) (QUOTE NIL)))) ((ENABLE B-OR3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-OR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR3 . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-OR3$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR3& . B-OR3$VALUE) (LEMMAS DUAL-EVAL . B-OR3$VALUE))))) (PUT1-LST (QUOTE *1*B-OR3$NETLIST) (QUOTE (MAIN-EVENT B-OR3$NETLIST))) (PUT1-LST (QUOTE B-OR3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR3$NETLIST 8)) TOTALP-LST ((B-OR3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-OR3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR3$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST SHIFT-OR-BUF-CNTL$NETLIST OVERFLOW-HELP$NETLIST) EVENT (DEFN B-OR3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR3$NETLIST))))) (PUT1-LST (QUOTE B-OR3&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR3&-OFF B-OR3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR3& . B-OR3&-OFF) (DISABLED-LEMMAS NIL B-OR3& B-OR3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-OR3&) (QUOTE (MAIN-EVENT B-OR3&))) (PUT1-LST (QUOTE B-OR3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR3& 2 NIL)) TOTALP-LST ((B-OR3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-OR3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR3&) IMMEDIATE-DEPENDENTS0 (CV& SHIFT-OR-BUF-CNTL& OVERFLOW-HELP& B-OR3$VALUE B-OR3&-OFF) EVENT (DEFN B-OR3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR3&))))) (PUT1-LST (QUOTE B-OR$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR$VALUE-OFF B-OR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR$VALUE . B-OR$VALUE-OFF) (DISABLED-LEMMAS NIL B-OR$VALUE B-OR$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-OR$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE B-STORE-RESULTP$VALUE SHIFT-OR-BUF-CNTL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE FULL-ADDER$VALUE V-OR$BODY-VALUE B-OR$VALUE-OFF) EVENT (PROVE-LEMMA B-OR$VALUE (REWRITE) (IMPLIES (B-OR& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-OR A B) (QUOTE NIL)))) ((ENABLE B-OR& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-OR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-OR$VALUE) (IMMEDIATE-DEPENDENTS0 B-OR& . B-OR$VALUE) (LEMMAS DUAL-EVAL . B-OR$VALUE))))) (PUT1-LST (QUOTE *1*B-OR$NETLIST) (QUOTE (MAIN-EVENT B-OR$NETLIST))) (PUT1-LST (QUOTE B-OR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR$NETLIST 8)) TOTALP-LST ((B-OR$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-OR$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST CONTROL-LET$NETLIST B-STORE-RESULTP$NETLIST SHIFT-OR-BUF-CNTL$NETLIST CARRY-IN-HELP$NETLIST T-OR-NOR$NETLIST FULL-ADDER$NETLIST V-OR$NETLIST) EVENT (DEFN B-OR$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR$NETLIST))))) (PUT1-LST (QUOTE B-OR&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-OR&-OFF B-OR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR& . B-OR&-OFF) (DISABLED-LEMMAS NIL B-OR& B-OR&-OFF . T))))) (PUT1-LST (QUOTE *1*B-OR&) (QUOTE (MAIN-EVENT B-OR&))) (PUT1-LST (QUOTE B-OR&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR& 2 NIL)) TOTALP-LST ((B-OR& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-OR& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-OR&) IMMEDIATE-DEPENDENTS0 (CV& NEXT-STATE& CONTROL-LET& B-STORE-RESULTP& SHIFT-OR-BUF-CNTL& CARRY-IN-HELP& TV-DEC-PASS-NG& T-OR-NOR& FULL-ADDER& V-OR$BODY-VALUE V-OR& B-OR$VALUE B-OR&-OFF) EVENT (DEFN B-OR& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR&))))) (PUT1-LST (QUOTE B-NOT-IVAP$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT-IVAP$VALUE-OFF B-NOT-IVAP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP$VALUE . B-NOT-IVAP$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOT-IVAP$VALUE B-NOT-IVAP$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOT-IVAP$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (B-NOT-IVAP$VALUE-OFF) EVENT (PROVE-LEMMA B-NOT-IVAP$VALUE (REWRITE) (IMPLIES (B-NOT-IVAP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-IVAP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL)))) ((ENABLE B-NOT-IVAP& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-IVAP) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOT-IVAP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT-IVAP& . B-NOT-IVAP$VALUE) (LEMMAS DUAL-EVAL . B-NOT-IVAP$VALUE))))) (PUT1-LST (QUOTE *1*B-NOT-IVAP$NETLIST) (QUOTE (MAIN-EVENT B-NOT-IVAP$NETLIST))) (PUT1-LST (QUOTE B-NOT-IVAP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT-IVAP$NETLIST 8)) TOTALP-LST ((B-NOT-IVAP$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOT-IVAP$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT-IVAP$NETLIST) EVENT (DEFN B-NOT-IVAP$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT-IVAP$NETLIST))))) (PUT1-LST (QUOTE B-NOT-IVAP&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT-IVAP&-OFF B-NOT-IVAP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-IVAP& . B-NOT-IVAP&-OFF) (DISABLED-LEMMAS NIL B-NOT-IVAP& B-NOT-IVAP&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOT-IVAP&) (QUOTE (MAIN-EVENT B-NOT-IVAP&))) (PUT1-LST (QUOTE B-NOT-IVAP&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT-IVAP& 2 NIL)) TOTALP-LST ((B-NOT-IVAP& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOT-IVAP& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT-IVAP&) IMMEDIATE-DEPENDENTS0 (B-NOT-IVAP$VALUE B-NOT-IVAP&-OFF) EVENT (DEFN B-NOT-IVAP& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT-IVAP&))))) (PUT1-LST (QUOTE B-NOT-B4IP$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT-B4IP$VALUE-OFF B-NOT-B4IP$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP$VALUE . B-NOT-B4IP$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOT-B4IP$VALUE B-NOT-B4IP$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOT-B4IP$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (B-BUF-PWR$VALUE B-NOT-B4IP$VALUE-OFF) EVENT (PROVE-LEMMA B-NOT-B4IP$VALUE (REWRITE) (IMPLIES (B-NOT-B4IP& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-B4IP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL)))) ((ENABLE B-NOT-B4IP& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-B4IP) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOT-B4IP$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT-B4IP& . B-NOT-B4IP$VALUE) (LEMMAS DUAL-EVAL . B-NOT-B4IP$VALUE))))) (PUT1-LST (QUOTE *1*B-NOT-B4IP$NETLIST) (QUOTE (MAIN-EVENT B-NOT-B4IP$NETLIST))) (PUT1-LST (QUOTE B-NOT-B4IP$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT-B4IP$NETLIST 8)) TOTALP-LST ((B-NOT-B4IP$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOT-B4IP$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT-B4IP$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-EXTEND-IMMEDIATE$NETLIST B-BUF-PWR$NETLIST) EVENT (DEFN B-NOT-B4IP$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT-B4IP$NETLIST))))) (PUT1-LST (QUOTE B-NOT-B4IP&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT-B4IP&-OFF B-NOT-B4IP& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT-B4IP& . B-NOT-B4IP&-OFF) (DISABLED-LEMMAS NIL B-NOT-B4IP& B-NOT-B4IP&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOT-B4IP&) (QUOTE (MAIN-EVENT B-NOT-B4IP&))) (PUT1-LST (QUOTE B-NOT-B4IP&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT-B4IP& 2 NIL)) TOTALP-LST ((B-NOT-B4IP& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOT-B4IP& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT-B4IP&) IMMEDIATE-DEPENDENTS0 (B-BUF-PWR& B-NOT-B4IP$VALUE B-NOT-B4IP&-OFF) EVENT (DEFN B-NOT-B4IP& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT-B4IP&))))) (PUT1-LST (QUOTE B-NOT$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT$VALUE-OFF B-NOT$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT$VALUE . B-NOT$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOT$VALUE B-NOT$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOT$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE STORE-RESULTP-MUX$VALUE SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE ALU-CELL$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DEC-PASS$VALUE V-INC4$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE T-CARRY$VALUE B-BUF-PWR$VALUE B-NOT$VALUE-OFF) EVENT (PROVE-LEMMA B-NOT$VALUE (REWRITE) (IMPLIES (B-NOT& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL)))) ((ENABLE B-NOT& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOT$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOT& . B-NOT$VALUE) (LEMMAS DUAL-EVAL . B-NOT$VALUE))))) (PUT1-LST (QUOTE *1*B-NOT$NETLIST) (QUOTE (MAIN-EVENT B-NOT$NETLIST))) (PUT1-LST (QUOTE B-NOT$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT$NETLIST 8)) TOTALP-LST ((B-NOT$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOT$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT$NETLIST) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$NETLIST CHECK-EXTEND-IMMEDIATE$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST CONTROL-LET$NETLIST ENCODE-32$NETLIST DECODE-5$NETLIST V-IF-F-4$NETLIST SELECT-OP-CODE$NETLIST DECODE-REG-MODE$NETLIST UNARY-OP-CODE-P$NETLIST STORE-RESULTP-MUX$NETLIST SHIFT-OR-BUF-CNTL$NETLIST OVERFLOW-HELP$NETLIST CARRY-OUT-HELP$NETLIST ALU-CELL$NETLIST DECODE-GEN$NETLIST DECODE-PROP$NETLIST DEC-PASS$NETLIST V-INC4$NETLIST TV-ZEROP$NETLIST T-OR-NOR$NETLIST T-CARRY$NETLIST B-BUF-PWR$NETLIST) EVENT (DEFN B-NOT$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT$NETLIST))))) (PUT1-LST (QUOTE B-NOT&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOT&-OFF B-NOT& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT& . B-NOT&-OFF) (DISABLED-LEMMAS NIL B-NOT& B-NOT&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOT&) (QUOTE (MAIN-EVENT B-NOT&))) (PUT1-LST (QUOTE B-NOT&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT& 2 NIL)) TOTALP-LST ((B-NOT& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOT& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOT&) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE& NEXT-CNTL-STATE& CV& NEXT-STATE& CONTROL-LET& ENCODE-32& DECODE-5& V-IF-F-4& SELECT-OP-CODE& DECODE-REG-MODE& UNARY-OP-CODE-P& STORE-RESULTP-MUX& SHIFT-OR-BUF-CNTL& OVERFLOW-HELP& CARRY-OUT-HELP& ALU-CELL& DECODE-GEN& DECODE-PROP& DEC-PASS& V-INC4& TV-ZEROP& T-OR-NOR& T-CARRY& B-BUF-PWR& B-NOT$VALUE B-NOT&-OFF) EVENT (DEFN B-NOT& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT&))))) (PUT1-LST (QUOTE B-NOR8$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR8$VALUE-OFF B-NOR8$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8$VALUE . B-NOR8$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR8$VALUE B-NOR8$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR8$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE B-NOR8$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR8$VALUE (REWRITE) (IMPLIES (B-NOR8& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST) (CONS (F-NOR8 A B C D E G H I) (QUOTE NIL)))) ((ENABLE B-NOR8& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR8 . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR8$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR8& . B-NOR8$VALUE) (LEMMAS DUAL-EVAL . B-NOR8$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR8$NETLIST) (QUOTE (MAIN-EVENT B-NOR8$NETLIST))) (PUT1-LST (QUOTE B-NOR8$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR8$NETLIST 8)) TOTALP-LST ((B-NOR8$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR8$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR8$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN B-NOR8$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR8$NETLIST))))) (PUT1-LST (QUOTE B-NOR8&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR8&-OFF B-NOR8& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR8& . B-NOR8&-OFF) (DISABLED-LEMMAS NIL B-NOR8& B-NOR8&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR8&) (QUOTE (MAIN-EVENT B-NOR8&))) (PUT1-LST (QUOTE B-NOR8&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR8& 2 NIL)) TOTALP-LST ((B-NOR8& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR8& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR8&) IMMEDIATE-DEPENDENTS0 (CV& B-NOR8$VALUE B-NOR8&-OFF) EVENT (DEFN B-NOR8& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR8&))))) (PUT1-LST (QUOTE B-NOR6$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR6$VALUE-OFF B-NOR6$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6$VALUE . B-NOR6$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR6$VALUE B-NOR6$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR6$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE B-NOR6$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR6$VALUE (REWRITE) (IMPLIES (B-NOR6& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST) (CONS (F-NOR6 A B C D E G) (QUOTE NIL)))) ((ENABLE B-NOR6& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR6 . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR6$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR6& . B-NOR6$VALUE) (LEMMAS DUAL-EVAL . B-NOR6$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR6$NETLIST) (QUOTE (MAIN-EVENT B-NOR6$NETLIST))) (PUT1-LST (QUOTE B-NOR6$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR6$NETLIST 8)) TOTALP-LST ((B-NOR6$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR6$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR6$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN B-NOR6$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR6$NETLIST))))) (PUT1-LST (QUOTE B-NOR6&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR6&-OFF B-NOR6& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR6& . B-NOR6&-OFF) (DISABLED-LEMMAS NIL B-NOR6& B-NOR6&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR6&) (QUOTE (MAIN-EVENT B-NOR6&))) (PUT1-LST (QUOTE B-NOR6&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR6& 2 NIL)) TOTALP-LST ((B-NOR6& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR6& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR6&) IMMEDIATE-DEPENDENTS0 (CV& B-NOR6$VALUE B-NOR6&-OFF) EVENT (DEFN B-NOR6& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR6&))))) (PUT1-LST (QUOTE B-NOR5$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR5$VALUE-OFF B-NOR5$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5$VALUE . B-NOR5$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR5$VALUE B-NOR5$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR5$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE B-NOR5$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR5$VALUE (REWRITE) (IMPLIES (B-NOR5& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST) (CONS (F-NOR5 A B C D E) (QUOTE NIL)))) ((ENABLE B-NOR5& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR5 . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR5& . B-NOR5$VALUE) (LEMMAS DUAL-EVAL . B-NOR5$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR5$NETLIST) (QUOTE (MAIN-EVENT B-NOR5$NETLIST))) (PUT1-LST (QUOTE B-NOR5$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR5$NETLIST 8)) TOTALP-LST ((B-NOR5$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR5$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR5$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST) EVENT (DEFN B-NOR5$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR5$NETLIST))))) (PUT1-LST (QUOTE B-NOR5&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR5&-OFF B-NOR5& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR5& . B-NOR5&-OFF) (DISABLED-LEMMAS NIL B-NOR5& B-NOR5&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR5&) (QUOTE (MAIN-EVENT B-NOR5&))) (PUT1-LST (QUOTE B-NOR5&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR5& 2 NIL)) TOTALP-LST ((B-NOR5& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR5& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR5&) IMMEDIATE-DEPENDENTS0 (CV& B-NOR5$VALUE B-NOR5&-OFF) EVENT (DEFN B-NOR5& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR5&))))) (PUT1-LST (QUOTE B-NOR4$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR4$VALUE-OFF B-NOR4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4$VALUE . B-NOR4$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR4$VALUE B-NOR4$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR4$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE ENCODE-32$VALUE B-NOR4$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR4$VALUE (REWRITE) (IMPLIES (B-NOR4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NOR4 A B C D) (QUOTE NIL)))) ((ENABLE B-NOR4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR4 . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR4& . B-NOR4$VALUE) (LEMMAS DUAL-EVAL . B-NOR4$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR4$NETLIST) (QUOTE (MAIN-EVENT B-NOR4$NETLIST))) (PUT1-LST (QUOTE B-NOR4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR4$NETLIST 8)) TOTALP-LST ((B-NOR4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST ENCODE-32$NETLIST) EVENT (DEFN B-NOR4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR4$NETLIST))))) (PUT1-LST (QUOTE B-NOR4&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR4&-OFF B-NOR4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR4& . B-NOR4&-OFF) (DISABLED-LEMMAS NIL B-NOR4& B-NOR4&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR4&) (QUOTE (MAIN-EVENT B-NOR4&))) (PUT1-LST (QUOTE B-NOR4&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR4& 2 NIL)) TOTALP-LST ((B-NOR4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR4&) IMMEDIATE-DEPENDENTS0 (CV& ENCODE-32& B-NOR4$VALUE B-NOR4&-OFF) EVENT (DEFN B-NOR4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR4&))))) (PUT1-LST (QUOTE B-NOR3$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR3$VALUE-OFF B-NOR3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3$VALUE . B-NOR3$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR3$VALUE B-NOR3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR3$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE ENCODE-32$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE V-INC4$VALUE FAST-ZERO$VALUE B-NOR3$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR3$VALUE (REWRITE) (IMPLIES (B-NOR3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NOR3 A B C) (QUOTE NIL)))) ((ENABLE B-NOR3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR3 . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR3$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR3& . B-NOR3$VALUE) (LEMMAS DUAL-EVAL . B-NOR3$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR3$NETLIST) (QUOTE (MAIN-EVENT B-NOR3$NETLIST))) (PUT1-LST (QUOTE B-NOR3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR3$NETLIST 8)) TOTALP-LST ((B-NOR3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR3$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST ENCODE-32$NETLIST DECODE-MODE$NETLIST V-INC4$NETLIST FAST-ZERO$NETLIST) EVENT (DEFN B-NOR3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR3$NETLIST))))) (PUT1-LST (QUOTE B-NOR3&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR3&-OFF B-NOR3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR3& . B-NOR3&-OFF) (DISABLED-LEMMAS NIL B-NOR3& B-NOR3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR3&) (QUOTE (MAIN-EVENT B-NOR3&))) (PUT1-LST (QUOTE B-NOR3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR3& 2 NIL)) TOTALP-LST ((B-NOR3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR3&) IMMEDIATE-DEPENDENTS0 (CV& ENCODE-32& DECODE-MODE& V-INC4& FAST-ZERO& B-NOR3$VALUE B-NOR3&-OFF) EVENT (DEFN B-NOR3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR3&))))) (PUT1-LST (QUOTE B-NOR$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR$VALUE-OFF B-NOR$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR$VALUE . B-NOR$VALUE-OFF) (DISABLED-LEMMAS NIL B-NOR$VALUE B-NOR$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NOR$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CV$VALUE ENCODE-32$VALUE DECODE-5$VALUE DECODE-REG-MODE$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE V-INC4$VALUE T-OR-NOR$VALUE B-NOR$VALUE-OFF) EVENT (PROVE-LEMMA B-NOR$VALUE (REWRITE) (IMPLIES (B-NOR& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-NOR A B) (QUOTE NIL)))) ((ENABLE B-NOR& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NOR$VALUE) (IMMEDIATE-DEPENDENTS0 B-NOR& . B-NOR$VALUE) (LEMMAS DUAL-EVAL . B-NOR$VALUE))))) (PUT1-LST (QUOTE *1*B-NOR$NETLIST) (QUOTE (MAIN-EVENT B-NOR$NETLIST))) (PUT1-LST (QUOTE B-NOR$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR$NETLIST 8)) TOTALP-LST ((B-NOR$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NOR$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST ENCODE-32$NETLIST DECODE-5$NETLIST DECODE-REG-MODE$NETLIST OVERFLOW-HELP$NETLIST DECODE-GEN$NETLIST DECODE-PROP$NETLIST DECODE-MODE$NETLIST V-INC4$NETLIST T-OR-NOR$NETLIST) EVENT (DEFN B-NOR$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR$NETLIST))))) (PUT1-LST (QUOTE B-NOR&-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NOR&-OFF B-NOR& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOR& . B-NOR&-OFF) (DISABLED-LEMMAS NIL B-NOR& B-NOR&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NOR&) (QUOTE (MAIN-EVENT B-NOR&))) (PUT1-LST (QUOTE B-NOR&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR& 2 NIL)) TOTALP-LST ((B-NOR& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NOR& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194013 SATELLITES (*1*B-NOR&) IMMEDIATE-DEPENDENTS0 (CV& ENCODE-32& DECODE-5& DECODE-REG-MODE& OVERFLOW-HELP& DECODE-GEN& DECODE-PROP& DECODE-MODE& V-INC4& T-OR-NOR& B-NOR$VALUE B-NOR&-OFF) EVENT (DEFN B-NOR& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR&))))) (PUT1-LST (QUOTE B-NBUF$VALUE-OFF) (QUOTE (IDATE 1000402194013 EVENT (TOGGLE B-NBUF$VALUE-OFF B-NBUF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF$VALUE . B-NBUF$VALUE-OFF) (DISABLED-LEMMAS NIL B-NBUF$VALUE B-NBUF$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NBUF$VALUE) (QUOTE (IDATE 1000402194013 IMMEDIATE-DEPENDENTS0 (CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE B-BUF$VALUE B-NBUF$VALUE-OFF) EVENT (PROVE-LEMMA B-NBUF$VALUE (REWRITE) (IMPLIES (B-NBUF& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NBUF) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (CONS (F-BUF A) (QUOTE NIL))))) ((ENABLE B-NBUF& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NBUF) (CONS A (QUOTE NIL)) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 F-BUF . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NBUF$VALUE) (IMMEDIATE-DEPENDENTS0 B-NBUF& . B-NBUF$VALUE) (LEMMAS DUAL-EVAL . B-NBUF$VALUE))))) (PUT1-LST (QUOTE *1*B-NBUF$NETLIST) (QUOTE (MAIN-EVENT B-NBUF$NETLIST))) (PUT1-LST (QUOTE B-NBUF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NBUF$NETLIST 8)) TOTALP-LST ((B-NBUF$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NBUF$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NBUF$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CARRY-IN-HELP$NETLIST B-BUF$NETLIST) EVENT (DEFN B-NBUF$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NBUF$NETLIST))))) (PUT1-LST (QUOTE B-NBUF&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NBUF&-OFF B-NBUF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NBUF& . B-NBUF&-OFF) (DISABLED-LEMMAS NIL B-NBUF& B-NBUF&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NBUF&) (QUOTE (MAIN-EVENT B-NBUF&))) (PUT1-LST (QUOTE B-NBUF&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NBUF& 2 NIL)) TOTALP-LST ((B-NBUF& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NBUF& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NBUF&) IMMEDIATE-DEPENDENTS0 (CARRY-IN-HELP& B-BUF& B-NBUF$VALUE B-NBUF&-OFF) EVENT (DEFN B-NBUF& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NBUF&))))) (PUT1-LST (QUOTE B-NAND8$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND8$VALUE-OFF B-NAND8$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8$VALUE . B-NAND8$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND8$VALUE B-NAND8$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND8$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (B-NAND8$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND8$VALUE (REWRITE) (IMPLIES (B-NAND8& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST) (CONS (F-NAND8 A B C D E G H I) (QUOTE NIL)))) ((ENABLE B-NAND8& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND8 . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND8$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND8& . B-NAND8$VALUE) (LEMMAS DUAL-EVAL . B-NAND8$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND8$NETLIST) (QUOTE (MAIN-EVENT B-NAND8$NETLIST))) (PUT1-LST (QUOTE B-NAND8$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND8$NETLIST 8)) TOTALP-LST ((B-NAND8$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND8$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND8$NETLIST) EVENT (DEFN B-NAND8$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND8$NETLIST))))) (PUT1-LST (QUOTE B-NAND8&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND8&-OFF B-NAND8& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND8& . B-NAND8&-OFF) (DISABLED-LEMMAS NIL B-NAND8& B-NAND8&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND8&) (QUOTE (MAIN-EVENT B-NAND8&))) (PUT1-LST (QUOTE B-NAND8&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND8& 2 NIL)) TOTALP-LST ((B-NAND8& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND8& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND8&) IMMEDIATE-DEPENDENTS0 (B-NAND8$VALUE B-NAND8&-OFF) EVENT (DEFN B-NAND8& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND8&))))) (PUT1-LST (QUOTE B-NAND6$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND6$VALUE-OFF B-NAND6$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6$VALUE . B-NAND6$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND6$VALUE B-NAND6$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND6$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (NEXT-STATE$VALUE B-NAND6$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND6$VALUE (REWRITE) (IMPLIES (B-NAND6& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST) (CONS (F-NAND6 A B C D E G) (QUOTE NIL)))) ((ENABLE B-NAND6& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND6 . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND6$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND6& . B-NAND6$VALUE) (LEMMAS DUAL-EVAL . B-NAND6$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND6$NETLIST) (QUOTE (MAIN-EVENT B-NAND6$NETLIST))) (PUT1-LST (QUOTE B-NAND6$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND6$NETLIST 8)) TOTALP-LST ((B-NAND6$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND6$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND6$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-STATE$NETLIST) EVENT (DEFN B-NAND6$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND6$NETLIST))))) (PUT1-LST (QUOTE B-NAND6&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND6&-OFF B-NAND6& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND6& . B-NAND6&-OFF) (DISABLED-LEMMAS NIL B-NAND6& B-NAND6&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND6&) (QUOTE (MAIN-EVENT B-NAND6&))) (PUT1-LST (QUOTE B-NAND6&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND6& 2 NIL)) TOTALP-LST ((B-NAND6& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND6& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND6&) IMMEDIATE-DEPENDENTS0 (NEXT-STATE& B-NAND6$VALUE B-NAND6&-OFF) EVENT (DEFN B-NAND6& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND6&))))) (PUT1-LST (QUOTE B-NAND5$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND5$VALUE-OFF B-NAND5$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5$VALUE . B-NAND5$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND5$VALUE B-NAND5$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND5$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (CV$VALUE NEXT-STATE$VALUE B-NAND5$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND5$VALUE (REWRITE) (IMPLIES (B-NAND5& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST) (CONS (F-NAND5 A B C D E) (QUOTE NIL)))) ((ENABLE B-NAND5& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND5 . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND5$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND5& . B-NAND5$VALUE) (LEMMAS DUAL-EVAL . B-NAND5$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND5$NETLIST) (QUOTE (MAIN-EVENT B-NAND5$NETLIST))) (PUT1-LST (QUOTE B-NAND5$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND5$NETLIST 8)) TOTALP-LST ((B-NAND5$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND5$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND5$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST) EVENT (DEFN B-NAND5$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND5$NETLIST))))) (PUT1-LST (QUOTE B-NAND5&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND5&-OFF B-NAND5& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND5& . B-NAND5&-OFF) (DISABLED-LEMMAS NIL B-NAND5& B-NAND5&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND5&) (QUOTE (MAIN-EVENT B-NAND5&))) (PUT1-LST (QUOTE B-NAND5&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND5& 2 NIL)) TOTALP-LST ((B-NAND5& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND5& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND5&) IMMEDIATE-DEPENDENTS0 (CV& NEXT-STATE& B-NAND5$VALUE B-NAND5&-OFF) EVENT (DEFN B-NAND5& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND5&))))) (PUT1-LST (QUOTE B-NAND4$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND4$VALUE-OFF B-NAND4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4$VALUE . B-NAND4$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND4$VALUE B-NAND4$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND4$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (NEXT-STATE$VALUE ENCODE-32$VALUE UNARY-OP-CODE-P$VALUE CARRY-OUT-HELP$VALUE DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE B-NAND4$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND4$VALUE (REWRITE) (IMPLIES (B-NAND4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND4 A B C D) (QUOTE NIL)))) ((ENABLE B-NAND4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND4 . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND4$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND4& . B-NAND4$VALUE) (LEMMAS DUAL-EVAL . B-NAND4$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND4$NETLIST) (QUOTE (MAIN-EVENT B-NAND4$NETLIST))) (PUT1-LST (QUOTE B-NAND4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND4$NETLIST 8)) TOTALP-LST ((B-NAND4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST NEXT-STATE$NETLIST ENCODE-32$NETLIST UNARY-OP-CODE-P$NETLIST CARRY-OUT-HELP$NETLIST DECODE-GEN$NETLIST DECODE-PROP$NETLIST) EVENT (DEFN B-NAND4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND4$NETLIST))))) (PUT1-LST (QUOTE B-NAND4&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND4&-OFF B-NAND4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND4& . B-NAND4&-OFF) (DISABLED-LEMMAS NIL B-NAND4& B-NAND4&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND4&) (QUOTE (MAIN-EVENT B-NAND4&))) (PUT1-LST (QUOTE B-NAND4&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND4& 2 NIL)) TOTALP-LST ((B-NAND4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND4&) IMMEDIATE-DEPENDENTS0 (NEXT-STATE& ENCODE-32& UNARY-OP-CODE-P& CARRY-OUT-HELP& DECODE-GEN& DECODE-PROP& B-NAND4$VALUE B-NAND4&-OFF) EVENT (DEFN B-NAND4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND4&))))) (PUT1-LST (QUOTE B-NAND3$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND3$VALUE-OFF B-NAND3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3$VALUE . B-NAND3$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND3$VALUE B-NAND3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND3$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (CV$VALUE NEXT-STATE$VALUE DECODE-5$VALUE UNARY-OP-CODE-P$VALUE OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE B-NAND3$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND3$VALUE (REWRITE) (IMPLIES (B-NAND3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NAND3 A B C) (QUOTE NIL)))) ((ENABLE B-NAND3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND3 . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND3$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND3& . B-NAND3$VALUE) (LEMMAS DUAL-EVAL . B-NAND3$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND3$NETLIST) (QUOTE (MAIN-EVENT B-NAND3$NETLIST))) (PUT1-LST (QUOTE B-NAND3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND3$NETLIST 8)) TOTALP-LST ((B-NAND3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND3$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST DECODE-5$NETLIST UNARY-OP-CODE-P$NETLIST OVERFLOW-HELP$NETLIST CARRY-OUT-HELP$NETLIST P-CELL$NETLIST CARRY-IN-HELP$NETLIST DECODE-GEN$NETLIST DECODE-PROP$NETLIST) EVENT (DEFN B-NAND3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND3$NETLIST))))) (PUT1-LST (QUOTE B-NAND3&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND3&-OFF B-NAND3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND3& . B-NAND3&-OFF) (DISABLED-LEMMAS NIL B-NAND3& B-NAND3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND3&) (QUOTE (MAIN-EVENT B-NAND3&))) (PUT1-LST (QUOTE B-NAND3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND3& 2 NIL)) TOTALP-LST ((B-NAND3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND3&) IMMEDIATE-DEPENDENTS0 (CV& NEXT-STATE& DECODE-5& UNARY-OP-CODE-P& OVERFLOW-HELP& CARRY-OUT-HELP& P-CELL& CARRY-IN-HELP& DECODE-GEN& DECODE-PROP& B-NAND3$VALUE B-NAND3&-OFF) EVENT (DEFN B-NAND3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND3&))))) (PUT1-LST (QUOTE B-NAND$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND$VALUE-OFF B-NAND$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND$VALUE . B-NAND$VALUE-OFF) (DISABLED-LEMMAS NIL B-NAND$VALUE B-NAND$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-NAND$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE CV$VALUE NEXT-STATE$VALUE DECODE-5$VALUE SELECT-OP-CODE$VALUE UNARY-OP-CODE-P$VALUE STORE-RESULTP-MUX$VALUE SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE T-OR-NOR$VALUE B-NAND$VALUE-OFF) EVENT (PROVE-LEMMA B-NAND$VALUE (REWRITE) (IMPLIES (B-NAND& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-NAND A B) (QUOTE NIL)))) ((ENABLE B-NAND& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-NAND$VALUE) (IMMEDIATE-DEPENDENTS0 B-NAND& . B-NAND$VALUE) (LEMMAS DUAL-EVAL . B-NAND$VALUE))))) (PUT1-LST (QUOTE *1*B-NAND$NETLIST) (QUOTE (MAIN-EVENT B-NAND$NETLIST))) (PUT1-LST (QUOTE B-NAND$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND$NETLIST 8)) TOTALP-LST ((B-NAND$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-NAND$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST DECODE-5$NETLIST SELECT-OP-CODE$NETLIST UNARY-OP-CODE-P$NETLIST STORE-RESULTP-MUX$NETLIST SHIFT-OR-BUF-CNTL$NETLIST OVERFLOW-HELP$NETLIST CARRY-OUT-HELP$NETLIST ALU-CELL$NETLIST G-CELL$NETLIST P-CELL$NETLIST CARRY-IN-HELP$NETLIST DECODE-GEN$NETLIST DECODE-PROP$NETLIST T-OR-NOR$NETLIST) EVENT (DEFN B-NAND$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND$NETLIST))))) (PUT1-LST (QUOTE B-NAND&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-NAND&-OFF B-NAND& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NAND& . B-NAND&-OFF) (DISABLED-LEMMAS NIL B-NAND& B-NAND&-OFF . T))))) (PUT1-LST (QUOTE *1*B-NAND&) (QUOTE (MAIN-EVENT B-NAND&))) (PUT1-LST (QUOTE B-NAND&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND& 2 NIL)) TOTALP-LST ((B-NAND& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-NAND& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-NAND&) IMMEDIATE-DEPENDENTS0 (CV& NEXT-STATE& DECODE-5& SELECT-OP-CODE& UNARY-OP-CODE-P& STORE-RESULTP-MUX& SHIFT-OR-BUF-CNTL& OVERFLOW-HELP& CARRY-OUT-HELP& ALU-CELL& G-CELL& P-CELL& CARRY-IN-HELP& DECODE-GEN& DECODE-PROP& T-OR-NOR& B-NAND$VALUE B-NAND&-OFF) EVENT (DEFN B-NAND& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND&))))) (PUT1-LST (QUOTE B-IF$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-IF$VALUE-OFF B-IF$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF$VALUE . B-IF$VALUE-OFF) (DISABLED-LEMMAS NIL B-IF$VALUE B-IF$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-IF$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (SELECT-OP-CODE$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE TV-IF$VALUE M1$STATE M1$VALUE B-IF$VALUE-OFF) EVENT (PROVE-LEMMA B-IF$VALUE (REWRITE) (IMPLIES (B-IF& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-IF) (CONS S (CONS A (CONS B (QUOTE NIL)))) STATE NETLIST) (CONS (F-IF S A B) (QUOTE NIL)))) ((ENABLE B-IF& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-IF) (CONS S (CONS A (CONS B (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 F-IF . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-IF$VALUE) (IMMEDIATE-DEPENDENTS0 B-IF& . B-IF$VALUE) (LEMMAS DUAL-EVAL . B-IF$VALUE))))) (PUT1-LST (QUOTE *1*B-IF$NETLIST) (QUOTE (MAIN-EVENT B-IF$NETLIST))) (PUT1-LST (QUOTE B-IF$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-IF$NETLIST 8)) TOTALP-LST ((B-IF$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-IF$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-IF$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST SELECT-OP-CODE$NETLIST OVERFLOW-HELP$NETLIST TV-IF$NETLIST M1$NETLIST) EVENT (DEFN B-IF$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-IF$NETLIST))))) (PUT1-LST (QUOTE B-IF&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-IF&-OFF B-IF& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF& . B-IF&-OFF) (DISABLED-LEMMAS NIL B-IF& B-IF&-OFF . T))))) (PUT1-LST (QUOTE *1*B-IF&) (QUOTE (MAIN-EVENT B-IF&))) (PUT1-LST (QUOTE B-IF&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-IF& 2 NIL)) TOTALP-LST ((B-IF& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-IF& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-IF&) IMMEDIATE-DEPENDENTS0 (SELECT-OP-CODE& OVERFLOW-HELP& TV-IF& M1& B-IF$VALUE B-IF&-OFF) EVENT (DEFN B-IF& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-IF&))))) (PUT1-LST (QUOTE B-EQUV3$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-EQUV3$VALUE-OFF B-EQUV3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3$VALUE . B-EQUV3$VALUE-OFF) (DISABLED-LEMMAS NIL B-EQUV3$VALUE B-EQUV3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-EQUV3$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (ALU-CELL$VALUE-ZERO ALU-CELL$VALUE B-EQUV3$VALUE-OFF) EVENT (PROVE-LEMMA B-EQUV3$VALUE (REWRITE) (IMPLIES (B-EQUV3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-EQUV3 A B C) (QUOTE NIL)))) ((ENABLE B-EQUV3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 F-XOR . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-EQUV3$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV3& . B-EQUV3$VALUE) (LEMMAS DUAL-EVAL . B-EQUV3$VALUE))))) (PUT1-LST (QUOTE *1*B-EQUV3$NETLIST) (QUOTE (MAIN-EVENT B-EQUV3$NETLIST))) (PUT1-LST (QUOTE B-EQUV3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV3$NETLIST 8)) TOTALP-LST ((B-EQUV3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-EQUV3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-EQUV3$NETLIST) IMMEDIATE-DEPENDENTS0 (ALU-CELL$NETLIST) EVENT (DEFN B-EQUV3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-EQUV3$NETLIST))))) (PUT1-LST (QUOTE B-EQUV3&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-EQUV3&-OFF B-EQUV3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV3& . B-EQUV3&-OFF) (DISABLED-LEMMAS NIL B-EQUV3& B-EQUV3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-EQUV3&) (QUOTE (MAIN-EVENT B-EQUV3&))) (PUT1-LST (QUOTE B-EQUV3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV3& 2 NIL)) TOTALP-LST ((B-EQUV3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-EQUV3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-EQUV3&) IMMEDIATE-DEPENDENTS0 (ALU-CELL& B-EQUV3$VALUE B-EQUV3&-OFF) EVENT (DEFN B-EQUV3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-EQUV3&))))) (PUT1-LST (QUOTE B-EQUV$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-EQUV$VALUE-OFF B-EQUV$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV$VALUE . B-EQUV$VALUE-OFF) (DISABLED-LEMMAS NIL B-EQUV$VALUE B-EQUV$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-EQUV$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE B-EQUV$VALUE-OFF) EVENT (PROVE-LEMMA B-EQUV$VALUE (REWRITE) (IMPLIES (B-EQUV& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-EQUV A B) (QUOTE NIL)))) ((ENABLE B-EQUV& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 THREEFIX . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOT . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 F-EQUV . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-EQUV$VALUE) (IMMEDIATE-DEPENDENTS0 B-EQUV& . B-EQUV$VALUE) (LEMMAS DUAL-EVAL . B-EQUV$VALUE))))) (PUT1-LST (QUOTE *1*B-EQUV$NETLIST) (QUOTE (MAIN-EVENT B-EQUV$NETLIST))) (PUT1-LST (QUOTE B-EQUV$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV$NETLIST 8)) TOTALP-LST ((B-EQUV$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-EQUV$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-EQUV$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST DECODE-PROP$NETLIST DEC-PASS-CELL$NETLIST V-INC4$NETLIST) EVENT (DEFN B-EQUV$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-EQUV$NETLIST))))) (PUT1-LST (QUOTE B-EQUV&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-EQUV&-OFF B-EQUV& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV& . B-EQUV&-OFF) (DISABLED-LEMMAS NIL B-EQUV& B-EQUV&-OFF . T))))) (PUT1-LST (QUOTE *1*B-EQUV&) (QUOTE (MAIN-EVENT B-EQUV&))) (PUT1-LST (QUOTE B-EQUV&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV& 2 NIL)) TOTALP-LST ((B-EQUV& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-EQUV& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-EQUV&) IMMEDIATE-DEPENDENTS0 (DECODE-PROP& DEC-PASS-CELL& V-INC4& B-EQUV$VALUE B-EQUV&-OFF) EVENT (DEFN B-EQUV& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-EQUV&))))) (PUT1-LST (QUOTE B-AND4$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND4$VALUE-OFF B-AND4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4$VALUE . B-AND4$VALUE-OFF) (DISABLED-LEMMAS NIL B-AND4$VALUE B-AND4$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-AND4$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (NEXT-STATE$VALUE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-AND4$VALUE-OFF) EVENT (PROVE-LEMMA B-AND4$VALUE (REWRITE) (IMPLIES (B-AND4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-AND4 A B C D) (QUOTE NIL)))) ((ENABLE B-AND4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND4 . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-AND4$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND4& . B-AND4$VALUE) (LEMMAS DUAL-EVAL . B-AND4$VALUE))))) (PUT1-LST (QUOTE *1*B-AND4$NETLIST) (QUOTE (MAIN-EVENT B-AND4$NETLIST))) (PUT1-LST (QUOTE B-AND4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND4$NETLIST 8)) TOTALP-LST ((B-AND4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-AND4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND4$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST NEXT-STATE$NETLIST CONTROL-LET$NETLIST) EVENT (DEFN B-AND4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND4$NETLIST))))) (PUT1-LST (QUOTE B-AND4&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND4&-OFF B-AND4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND4& . B-AND4&-OFF) (DISABLED-LEMMAS NIL B-AND4& B-AND4&-OFF . T))))) (PUT1-LST (QUOTE *1*B-AND4&) (QUOTE (MAIN-EVENT B-AND4&))) (PUT1-LST (QUOTE B-AND4&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND4& 2 NIL)) TOTALP-LST ((B-AND4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-AND4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND4&) IMMEDIATE-DEPENDENTS0 (NEXT-STATE& CONTROL-LET& B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-AND4$VALUE B-AND4&-OFF) EVENT (DEFN B-AND4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND4&))))) (PUT1-LST (QUOTE B-AND3$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND3$VALUE-OFF B-AND3$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3$VALUE . B-AND3$VALUE-OFF) (DISABLED-LEMMAS NIL B-AND3$VALUE B-AND3$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-AND3$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (REGFILE$STATE REGFILE$VALUE NEXT-STATE$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE B-AND3$VALUE-OFF) EVENT (PROVE-LEMMA B-AND3$VALUE (REWRITE) (IMPLIES (B-AND3& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-AND3 A B C) (QUOTE NIL)))) ((ENABLE B-AND3& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-AND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND3 . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-AND3$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND3& . B-AND3$VALUE) (LEMMAS DUAL-EVAL . B-AND3$VALUE))))) (PUT1-LST (QUOTE *1*B-AND3$NETLIST) (QUOTE (MAIN-EVENT B-AND3$NETLIST))) (PUT1-LST (QUOTE B-AND3$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND3$NETLIST 8)) TOTALP-LST ((B-AND3$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-AND3$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND3$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-REGFILE$NETLIST REGFILE$NETLIST CHECK-NEXT-CNTL-STATE$NETLIST NEXT-STATE$NETLIST G-CELL$NETLIST) EVENT (DEFN B-AND3$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND3$NETLIST))))) (PUT1-LST (QUOTE B-AND3&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND3&-OFF B-AND3& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND3& . B-AND3&-OFF) (DISABLED-LEMMAS NIL B-AND3& B-AND3&-OFF . T))))) (PUT1-LST (QUOTE *1*B-AND3&) (QUOTE (MAIN-EVENT B-AND3&))) (PUT1-LST (QUOTE B-AND3&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND3& 2 NIL)) TOTALP-LST ((B-AND3& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-AND3& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND3&) IMMEDIATE-DEPENDENTS0 (REGFILE& NEXT-STATE& G-CELL& B-AND3$VALUE B-AND3&-OFF) EVENT (DEFN B-AND3& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND3&))))) (PUT1-LST (QUOTE B-AND$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND$VALUE-OFF B-AND$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND$VALUE . B-AND$VALUE-OFF) (DISABLED-LEMMAS NIL B-AND$VALUE B-AND$VALUE-OFF . T))))) (PUT1-LST (QUOTE B-AND$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE SHIFT-OR-BUF-CNTL$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE HALF-ADDER$VALUE B-AND$VALUE-OFF) EVENT (PROVE-LEMMA B-AND$VALUE (REWRITE) (IMPLIES (B-AND& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-AND A B) (QUOTE NIL)))) ((ENABLE B-AND& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE B-AND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . B-AND$VALUE) (IMMEDIATE-DEPENDENTS0 B-AND& . B-AND$VALUE) (LEMMAS DUAL-EVAL . B-AND$VALUE))))) (PUT1-LST (QUOTE *1*B-AND$NETLIST) (QUOTE (MAIN-EVENT B-AND$NETLIST))) (PUT1-LST (QUOTE B-AND$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND$NETLIST 8)) TOTALP-LST ((B-AND$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*B-AND$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST NEXT-STATE$NETLIST CONTROL-LET$NETLIST V-IF-F-4$NETLIST SELECT-OP-CODE$NETLIST SHIFT-OR-BUF-CNTL$NETLIST CARRY-OUT-HELP$NETLIST TV-ALU-HELP$NETLIST DECODE-PROP$NETLIST HALF-ADDER$NETLIST) EVENT (DEFN B-AND$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND$NETLIST))))) (PUT1-LST (QUOTE B-AND&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE B-AND&-OFF B-AND& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND& . B-AND&-OFF) (DISABLED-LEMMAS NIL B-AND& B-AND&-OFF . T))))) (PUT1-LST (QUOTE *1*B-AND&) (QUOTE (MAIN-EVENT B-AND&))) (PUT1-LST (QUOTE B-AND&) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND& 2 NIL)) TOTALP-LST ((B-AND& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*B-AND& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*B-AND&) IMMEDIATE-DEPENDENTS0 (CV& NEXT-STATE& CONTROL-LET& V-IF-F-4& SELECT-OP-CODE& SHIFT-OR-BUF-CNTL& CARRY-OUT-HELP& TV-ALU-HELP& DECODE-PROP& HALF-ADDER& B-AND$VALUE B-AND&-OFF) EVENT (DEFN B-AND& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND&))))) (PUT1-LST (QUOTE AO7$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO7$VALUE-OFF AO7$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7$VALUE . AO7$VALUE-OFF) (DISABLED-LEMMAS NIL AO7$VALUE AO7$VALUE-OFF . T))))) (PUT1-LST (QUOTE AO7$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (AO7$VALUE-OFF) EVENT (PROVE-LEMMA AO7$VALUE (REWRITE) (IMPLIES (AO7& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO7) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NAND (F-OR A B) C) (QUOTE NIL)))) ((ENABLE AO7& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE AO7) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . AO7$VALUE) (IMMEDIATE-DEPENDENTS0 AO7& . AO7$VALUE) (LEMMAS DUAL-EVAL . AO7$VALUE))))) (PUT1-LST (QUOTE *1*AO7$NETLIST) (QUOTE (MAIN-EVENT AO7$NETLIST))) (PUT1-LST (QUOTE AO7$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((AO7$NETLIST 8)) TOTALP-LST ((AO7$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*AO7$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO7$NETLIST) EVENT (DEFN AO7$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO7$NETLIST))))) (PUT1-LST (QUOTE AO7&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO7&-OFF AO7& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO7& . AO7&-OFF) (DISABLED-LEMMAS NIL AO7& AO7&-OFF . T))))) (PUT1-LST (QUOTE *1*AO7&) (QUOTE (MAIN-EVENT AO7&))) (PUT1-LST (QUOTE AO7&) (QUOTE (TYPE-PRESCRIPTION-LST ((AO7& 2 NIL)) TOTALP-LST ((AO7& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*AO7& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO7&) IMMEDIATE-DEPENDENTS0 (AO7$VALUE AO7&-OFF) EVENT (DEFN AO7& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO7&))))) (PUT1-LST (QUOTE AO6$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO6$VALUE-OFF AO6$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6$VALUE . AO6$VALUE-OFF) (DISABLED-LEMMAS NIL AO6$VALUE AO6$VALUE-OFF . T))))) (PUT1-LST (QUOTE AO6$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (T-CARRY$VALUE AO6$VALUE-OFF) EVENT (PROVE-LEMMA AO6$VALUE (REWRITE) (IMPLIES (AO6& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO6) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NOR (F-AND A B) C) (QUOTE NIL)))) ((ENABLE AO6& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE AO6) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . AO6$VALUE) (IMMEDIATE-DEPENDENTS0 AO6& . AO6$VALUE) (LEMMAS DUAL-EVAL . AO6$VALUE))))) (PUT1-LST (QUOTE *1*AO6$NETLIST) (QUOTE (MAIN-EVENT AO6$NETLIST))) (PUT1-LST (QUOTE AO6$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((AO6$NETLIST 8)) TOTALP-LST ((AO6$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*AO6$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO6$NETLIST) IMMEDIATE-DEPENDENTS0 (T-CARRY$NETLIST) EVENT (DEFN AO6$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO6$NETLIST))))) (PUT1-LST (QUOTE AO6&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO6&-OFF AO6& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO6& . AO6&-OFF) (DISABLED-LEMMAS NIL AO6& AO6&-OFF . T))))) (PUT1-LST (QUOTE *1*AO6&) (QUOTE (MAIN-EVENT AO6&))) (PUT1-LST (QUOTE AO6&) (QUOTE (TYPE-PRESCRIPTION-LST ((AO6& 2 NIL)) TOTALP-LST ((AO6& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*AO6& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO6&) IMMEDIATE-DEPENDENTS0 (T-CARRY& AO6$VALUE AO6&-OFF) EVENT (DEFN AO6& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO6&))))) (PUT1-LST (QUOTE AO4$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO4$VALUE-OFF AO4$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4$VALUE . AO4$VALUE-OFF) (DISABLED-LEMMAS NIL AO4$VALUE AO4$VALUE-OFF . T))))) (PUT1-LST (QUOTE AO4$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (AO4$VALUE-OFF) EVENT (PROVE-LEMMA AO4$VALUE (REWRITE) (IMPLIES (AO4& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND (F-OR A B) (F-OR C D)) (QUOTE NIL)))) ((ENABLE AO4& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE AO4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 F-OR . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 F-NAND . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . AO4$VALUE) (IMMEDIATE-DEPENDENTS0 AO4& . AO4$VALUE) (LEMMAS DUAL-EVAL . AO4$VALUE))))) (PUT1-LST (QUOTE *1*AO4$NETLIST) (QUOTE (MAIN-EVENT AO4$NETLIST))) (PUT1-LST (QUOTE AO4$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((AO4$NETLIST 8)) TOTALP-LST ((AO4$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*AO4$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO4$NETLIST) EVENT (DEFN AO4$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO4$NETLIST))))) (PUT1-LST (QUOTE AO4&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO4&-OFF AO4& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO4& . AO4&-OFF) (DISABLED-LEMMAS NIL AO4& AO4&-OFF . T))))) (PUT1-LST (QUOTE *1*AO4&) (QUOTE (MAIN-EVENT AO4&))) (PUT1-LST (QUOTE AO4&) (QUOTE (TYPE-PRESCRIPTION-LST ((AO4& 2 NIL)) TOTALP-LST ((AO4& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*AO4& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO4&) IMMEDIATE-DEPENDENTS0 (AO4$VALUE AO4&-OFF) EVENT (DEFN AO4& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO4&))))) (PUT1-LST (QUOTE AO2$VALUE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO2$VALUE-OFF AO2$VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2$VALUE . AO2$VALUE-OFF) (DISABLED-LEMMAS NIL AO2$VALUE AO2$VALUE-OFF . T))))) (PUT1-LST (QUOTE AO2$VALUE) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (STORE-RESULTP-MUX$VALUE AO2$VALUE-OFF) EVENT (PROVE-LEMMA AO2$VALUE (REWRITE) (IMPLIES (AO2& NETLIST) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO2) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NOR (F-AND A B) (F-AND C D)) (QUOTE NIL)))) ((ENABLE AO2& PRIMP DUAL-APPLY-VALUE) (EXPAND (DUAL-EVAL (QUOTE 0) (QUOTE AO2) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 F-AND . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 F-NOR . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . AO2$VALUE) (IMMEDIATE-DEPENDENTS0 AO2& . AO2$VALUE) (LEMMAS DUAL-EVAL . AO2$VALUE))))) (PUT1-LST (QUOTE *1*AO2$NETLIST) (QUOTE (MAIN-EVENT AO2$NETLIST))) (PUT1-LST (QUOTE AO2$NETLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((AO2$NETLIST 8)) TOTALP-LST ((AO2$NETLIST . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*AO2$NETLIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO2$NETLIST) IMMEDIATE-DEPENDENTS0 (CHECK-NEXT-CNTL-STATE$NETLIST STORE-RESULTP-MUX$NETLIST) EVENT (DEFN AO2$NETLIST NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO2$NETLIST))))) (PUT1-LST (QUOTE AO2&-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE AO2&-OFF AO2& T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AO2& . AO2&-OFF) (DISABLED-LEMMAS NIL AO2& AO2&-OFF . T))))) (PUT1-LST (QUOTE *1*AO2&) (QUOTE (MAIN-EVENT AO2&))) (PUT1-LST (QUOTE AO2&) (QUOTE (TYPE-PRESCRIPTION-LST ((AO2& 2 NIL)) TOTALP-LST ((AO2& . T)) SDEFN (LAMBDA (NETLIST) (QUOTE *1*TRUE)) LISP-CODE *1*AO2& SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194012 SATELLITES (*1*AO2&) IMMEDIATE-DEPENDENTS0 (STORE-RESULTP-MUX& AO2$VALUE AO2&-OFF) EVENT (DEFN AO2& (NETLIST) (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*AO2&))))) (PUT1-LST (QUOTE NETLIST-LOADINGS-AND-DRIVES-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE NETLIST-LOADINGS-AND-DRIVES-OFF NETLIST-LOADINGS-AND-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-LOADINGS-AND-DRIVES . NETLIST-LOADINGS-AND-DRIVES-OFF) (DISABLED-LEMMAS NIL NETLIST-LOADINGS-AND-DRIVES NETLIST-LOADINGS-AND-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-LOADINGS-AND-DRIVES) (QUOTE (MAIN-EVENT NETLIST-LOADINGS-AND-DRIVES))) (PUT1-LST (QUOTE NETLIST-LOADINGS-AND-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-LOADINGS-AND-DRIVES 4120 NIL)) TOTALP-LST ((NETLIST-LOADINGS-AND-DRIVES . T)) SDEFN (LAMBDA (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (LOADINGS DRIVES)) (QUOTE *1*TRUE))) LISP-CODE *1*NETLIST-LOADINGS-AND-DRIVES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*NETLIST-LOADINGS-AND-DRIVES) IMMEDIATE-DEPENDENTS0 (NETLIST-LOADINGS-AND-DRIVES-OFF) EVENT (DEFN NETLIST-LOADINGS-AND-DRIVES (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (LOADINGS DRIVES)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . NETLIST-LOADINGS-AND-DRIVES) (DCELL . *1*NETLIST-LOADINGS-AND-DRIVES))))) (PUT1-LST (QUOTE LOADINGS-AND-DRIVES-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE LOADINGS-AND-DRIVES-OFF LOADINGS-AND-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADINGS-AND-DRIVES . LOADINGS-AND-DRIVES-OFF) (DISABLED-LEMMAS NIL LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*LOADINGS-AND-DRIVES) (QUOTE (MAIN-EVENT LOADINGS-AND-DRIVES))) (PUT1-LST (QUOTE LOADINGS-AND-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADINGS-AND-DRIVES 4112 NIL NIL NIL NIL NIL)) TOTALP-LST ((LOADINGS-AND-DRIVES . T)) SDEFN (LAMBDA (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP-LOOKUP X0 (QUOTE LOADINGS)) (CONS (CONS (QUOTE DRIVES) (FIX-DEPENDENT-DRS (PRIMP2 X0 (QUOTE DRIVES)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2)))) (QUOTE NIL))) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)) (CONS (ALIST-ENTRY (QUOTE LOADINGS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) (CONS (CONS (QUOTE DRIVES) (FIX-DEPENDENT-DRS (VALUE (QUOTE DRIVES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) (APPEND (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) X1) (PAIRLIST (VALUE (QUOTE OUTPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) X2)))) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (CONS (ALIST-ENTRY (QUOTE LOADINGS) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) (QUOTE *1*TRUE)))) (CONS (ALIST-ENTRY (QUOTE DRIVES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LISP-CODE *1*LOADINGS-AND-DRIVES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*LOADINGS-AND-DRIVES) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-OFF) EVENT (DEFN LOADINGS-AND-DRIVES (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP-LOOKUP X0 (QUOTE LOADINGS)) (CONS (CONS (QUOTE DRIVES) (FIX-DEPENDENT-DRS (PRIMP2 X0 (QUOTE DRIVES)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2)))) (QUOTE NIL))) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)) (CONS (ALIST-ENTRY (QUOTE LOADINGS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) (CONS (CONS (QUOTE DRIVES) (FIX-DEPENDENT-DRS (VALUE (QUOTE DRIVES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) (APPEND (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) X1) (PAIRLIST (VALUE (QUOTE OUTPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) X2)))) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (CONS (ALIST-ENTRY (QUOTE LOADINGS) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) (QUOTE *1*TRUE)))) (CONS (ALIST-ENTRY (QUOTE DRIVES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (LOADINGS DRIVES))) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 INTERSECTION . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 VALUE . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 SUBNET . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 NET-ERROR . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 PRIMP2 . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-DRS . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . LOADINGS-AND-DRIVES) (IMMEDIATE-DEPENDENTS0 PRIMP . LOADINGS-AND-DRIVES) (DCELL . *1*LOADINGS-AND-DRIVES))))) (PUT1-LST (QUOTE FIX-DEPENDENT-DRS-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE FIX-DEPENDENT-DRS-OFF FIX-DEPENDENT-DRS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-DRS . FIX-DEPENDENT-DRS-OFF) (DISABLED-LEMMAS NIL FIX-DEPENDENT-DRS FIX-DEPENDENT-DRS-OFF . T))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-DRS) (QUOTE (MAIN-EVENT FIX-DEPENDENT-DRS))) (PUT1-LST (QUOTE FIX-DEPENDENT-DRS) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-DEPENDENT-DRS 24 NIL NIL)) TOTALP-LST ((FIX-DEPENDENT-DRS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DRS ALIST) (IF (LISTP DRS) (IF (SIGNAL-NAMEP (CAR DRS)) (CONS (VALUE (CAR DRS) ALIST) (FIX-DEPENDENT-DRS (CDR DRS) ALIST)) (IF (LISTP (CAR DRS)) (IF (EQUAL (CAR (CAR DRS)) (QUOTE MIN)) (CONS (CONS (QUOTE MIN) (FIX-DEPENDENT-DRS (CDR (CAR DRS)) ALIST)) (FIX-DEPENDENT-DRS (CDR DRS) ALIST)) (CONS (CAR DRS) (FIX-DEPENDENT-DRS (CDR DRS) ALIST))) (CONS (CAR DRS) (FIX-DEPENDENT-DRS (CDR DRS) ALIST)))) (QUOTE NIL))) LISP-CODE *1*FIX-DEPENDENT-DRS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DRS)) (((CDR DRS) ALIST) ((CDR (CAR DRS)) ALIST))) (TESTS-AND-CASES ((NOT (LISTP DRS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (DRS) (COUNT DRS) LESSP (CAR-LESSP CDR-LESSEQP ZERO CDR-LESSP))) IDATE 1000402194012 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-DEPENDENT-DRS) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES FIX-DEPENDENT-DRS-OFF) EVENT (DEFN FIX-DEPENDENT-DRS (DRS ALIST) (IF (LISTP DRS) (CONS (IF (SIGNAL-NAMEP (CAR DRS)) (VALUE (CAR DRS) ALIST) (IF (AND (LISTP (CAR DRS)) (EQUAL (CAR (CAR DRS)) (QUOTE MIN))) (CONS (QUOTE MIN) (FIX-DEPENDENT-DRS (CDR (CAR DRS)) ALIST)) (CAR DRS))) (FIX-DEPENDENT-DRS (CDR DRS) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FIX-DEPENDENT-DRS) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . FIX-DEPENDENT-DRS) (DCELL . *1*FIX-DEPENDENT-DRS))))) (PUT1-LST (QUOTE STATE-OKP-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE STATE-OKP-OFF STATE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-OKP . STATE-OKP-OFF) (DISABLED-LEMMAS NIL STATE-OKP STATE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-OKP) (QUOTE (MAIN-EVENT STATE-OKP))) (PUT1-LST (QUOTE STATE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-OKP 3 NIL NIL NIL)) TOTALP-LST ((STATE-OKP . T)) SDEFN (LAMBDA (FN STATE NETLIST) (STATE-OKP-0 STATE (STATE-TYPE-REQUIREMENT (QUOTE 0) FN NETLIST) (QUOTE 0) (QUOTE *1*FALSE))) LISP-CODE *1*STATE-OKP SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*STATE-OKP) IMMEDIATE-DEPENDENTS0 (STATE-OKP-OFF) EVENT (DEFN STATE-OKP (FN STATE NETLIST) (STATE-OKP-0 STATE (STATE-TYPE-REQUIREMENT (QUOTE 0) FN NETLIST) (QUOTE 0) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-TYPE-REQUIREMENT . STATE-OKP) (IMMEDIATE-DEPENDENTS0 STATE-OKP-0 . STATE-OKP) (DCELL . *1*STATE-OKP))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP3-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE TYPE-COUNT-LESSP3-OFF TYPE-COUNT-LESSP3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP3 . TYPE-COUNT-LESSP3-OFF) (DISABLED-LEMMAS NIL TYPE-COUNT-LESSP3 TYPE-COUNT-LESSP3-OFF . T))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP2-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE TYPE-COUNT-LESSP2-OFF TYPE-COUNT-LESSP2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP2 . TYPE-COUNT-LESSP2-OFF) (DISABLED-LEMMAS NIL TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP2-OFF . T))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP1-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE TYPE-COUNT-LESSP1-OFF TYPE-COUNT-LESSP1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP1 . TYPE-COUNT-LESSP1-OFF) (DISABLED-LEMMAS NIL TYPE-COUNT-LESSP1 TYPE-COUNT-LESSP1-OFF . T))))) (PUT1-LST (QUOTE STATE-OKP-0-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE STATE-OKP-0-OFF STATE-OKP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-OKP-0 . STATE-OKP-0-OFF) (DISABLED-LEMMAS NIL STATE-OKP-0 STATE-OKP-0-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-OKP-0) (QUOTE (MAIN-EVENT STATE-OKP-0))) (PUT1-LST (QUOTE STATE-OKP-0) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-OKP-0 3 NIL NIL NIL NIL)) TOTALP-LST ((STATE-OKP-0 . T)) QUICK-BLOCK-INFO (QUESTIONABLE QUESTIONABLE QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (STATE TYPE ADDRESS-BITS WORD-TYPE) (IF (EQUAL TYPE (QUOTE NIL)) (EQUAL STATE (QUOTE NIL)) (IF (EQUAL TYPE (QUOTE BOOLP)) (BOOLP STATE) (IF (LISTP TYPE) (IF (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE)) (STATE-OKP-0 STATE (CAR TYPE) (CAR (CDR TYPE)) (CAR (CDR (CDR TYPE)))) (IF (EQUAL (CAR TYPE) (QUOTE RAM)) (IF (RAMP STATE) (IF (STATE-OKP-0 (RAM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR TYPE) (QUOTE ROM)) (IF (ROMP STATE) (IF (STATE-OKP-0 (ROM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR TYPE) (QUOTE STUB)) (IF (STUBP STATE) (IF (STATE-OKP-0 (STUB-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR TYPE) (QUOTE QUOTE)) (STATE-OKP-0 STATE (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)) (IF (LISTP STATE) (IF (STATE-OKP-0 (CAR STATE) (CAR TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (IF (STATE-OKP-0 (CDR STATE) (CDR TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))) (IF (EQUAL TYPE (QUOTE ADDRESSED-STATE)) (IF (EQUAL ADDRESS-BITS (QUOTE 0)) (STATE-OKP-0 STATE WORD-TYPE (QUOTE 0) (QUOTE *1*FALSE)) (IF (NUMBERP ADDRESS-BITS) (IF (LISTP STATE) (IF (STATE-OKP-0 (CAR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE) (IF (STATE-OKP-0 (CDR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (STATE-OKP-0 STATE WORD-TYPE (QUOTE 0) (QUOTE *1*FALSE)))) (IF (EQUAL TYPE (QUOTE NUMBERP)) (NUMBERP STATE) (IF (EQUAL TYPE (QUOTE NUMBER-LISTP)) (IF (LISTP STATE) (IF (NUMBERP (CAR STATE)) (STATE-OKP-0 (CDR STATE) TYPE (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL STATE (QUOTE NIL))) (IF (RAMP TYPE) (IF (RAMP STATE) (STATE-OKP-0 (RAM-GUTS STATE) (RAM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (ROMP TYPE) (IF (ROMP STATE) (STATE-OKP-0 (ROM-GUTS STATE) (ROM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (STUBP TYPE) (IF (STUBP STATE) (STATE-OKP-0 (STUB-GUTS STATE) (STUB-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))))))) LISP-CODE *1*STATE-OKP-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL TYPE (QUOTE NIL))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (EQUAL TYPE (QUOTE BOOLP))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) ((STATE (CAR TYPE) (CAR (CDR TYPE)) (CAR (CDR (CDR TYPE)))))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (EQUAL (CAR TYPE) (QUOTE RAM))) (((RAM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (NOT (EQUAL (CAR TYPE) (QUOTE RAM))) (EQUAL (CAR TYPE) (QUOTE ROM))) (((ROM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (NOT (EQUAL (CAR TYPE) (QUOTE RAM))) (NOT (EQUAL (CAR TYPE) (QUOTE ROM))) (EQUAL (CAR TYPE) (QUOTE STUB))) (((STUB-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (NOT (EQUAL (CAR TYPE) (QUOTE RAM))) (NOT (EQUAL (CAR TYPE) (QUOTE ROM))) (NOT (EQUAL (CAR TYPE) (QUOTE STUB))) (EQUAL (CAR TYPE) (QUOTE QUOTE))) ((STATE (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (NOT (EQUAL (CAR TYPE) (QUOTE RAM))) (NOT (EQUAL (CAR TYPE) (QUOTE ROM))) (NOT (EQUAL (CAR TYPE) (QUOTE STUB))) (NOT (EQUAL (CAR TYPE) (QUOTE QUOTE))) (LISTP STATE)) (((CDR STATE) (CDR TYPE) (QUOTE 0) (QUOTE *1*FALSE)) ((CAR STATE) (CAR TYPE) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (LISTP TYPE) (NOT (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (NOT (EQUAL (CAR TYPE) (QUOTE RAM))) (NOT (EQUAL (CAR TYPE) (QUOTE ROM))) (NOT (EQUAL (CAR TYPE) (QUOTE STUB))) (NOT (EQUAL (CAR TYPE) (QUOTE QUOTE))) (NOT (LISTP STATE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (EQUAL TYPE (QUOTE ADDRESSED-STATE)) (ZEROP ADDRESS-BITS)) ((STATE WORD-TYPE (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (EQUAL TYPE (QUOTE ADDRESSED-STATE)) (NOT (ZEROP ADDRESS-BITS)) (LISTP STATE)) (((CDR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE) ((CAR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (EQUAL TYPE (QUOTE ADDRESSED-STATE)) (NOT (ZEROP ADDRESS-BITS)) (NOT (LISTP STATE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (EQUAL TYPE (QUOTE NUMBERP))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (EQUAL TYPE (QUOTE NUMBER-LISTP)) (NLISTP STATE)) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (EQUAL TYPE (QUOTE NUMBER-LISTP)) (NOT (NLISTP STATE)) (NUMBERP (CAR STATE))) (((CDR STATE) TYPE (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (EQUAL TYPE (QUOTE NUMBER-LISTP)) (NOT (NLISTP STATE)) (NOT (NUMBERP (CAR STATE)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (RAMP TYPE) (RAMP STATE)) (((RAM-GUTS STATE) (RAM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (RAMP TYPE) (NOT (RAMP STATE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (NOT (RAMP TYPE)) (ROMP TYPE) (ROMP STATE)) (((ROM-GUTS STATE) (ROM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (NOT (RAMP TYPE)) (ROMP TYPE) (NOT (ROMP STATE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (STUBP TYPE) (STUBP STATE)) (((STUB-GUTS STATE) (STUB-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)))) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (STUBP TYPE) (NOT (STUBP STATE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL TYPE (QUOTE NIL))) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE ADDRESSED-STATE))) (NOT (EQUAL TYPE (QUOTE NUMBERP))) (NOT (EQUAL TYPE (QUOTE NUMBER-LISTP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (NOT (STUBP TYPE))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (WORD-TYPE TYPE STATE) (CONS (ADD1 (COUNT STATE)) (TYPE-COUNT TYPE WORD-TYPE)) ORD-LESSP (STUB-GUTS-LESSP ROM-GUTS-LESSP RAM-GUTS-LESSP NLISTP TYPE-COUNT LISTP ZEROP TYPE-COUNT-LESSP3 COUNT CAR-LESSP CDR-LESSP STUB-GUTS-LESSEQP ROM-GUTS-LESSEQP RAM-GUTS-LESSEQP TYPE-COUNT-LESSP2 EQUAL ADD1-EQUAL LESSP SUB1-ADD1 ZERO TYPE-COUNT-LESSP1 ORD-LESSP LESSP-X-X CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194012 CONTROLLER-POCKETS (11) SATELLITES (*1*STATE-OKP-0) IMMEDIATE-DEPENDENTS0 (STATE-OKP STATE-OKP-0-OFF) EVENT (DEFN STATE-OKP-0 (STATE TYPE ADDRESS-BITS WORD-TYPE) (IF (EQUAL TYPE (QUOTE NIL)) (EQUAL STATE (QUOTE NIL)) (IF (EQUAL TYPE (QUOTE BOOLP)) (BOOLP STATE) (IF (LISTP TYPE) (IF (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE)) (STATE-OKP-0 STATE (CAR TYPE) (CAR (CDR TYPE)) (CAR (CDR (CDR TYPE)))) (IF (EQUAL (CAR TYPE) (QUOTE RAM)) (AND (RAMP STATE) (STATE-OKP-0 (RAM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE))) (IF (EQUAL (CAR TYPE) (QUOTE ROM)) (AND (ROMP STATE) (STATE-OKP-0 (ROM-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE))) (IF (EQUAL (CAR TYPE) (QUOTE STUB)) (AND (STUBP STATE) (STATE-OKP-0 (STUB-GUTS STATE) (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE))) (IF (EQUAL (CAR TYPE) (QUOTE QUOTE)) (STATE-OKP-0 STATE (CAR (CDR TYPE)) (QUOTE 0) (QUOTE *1*FALSE)) (IF (LISTP STATE) (AND (STATE-OKP-0 (CAR STATE) (CAR TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (STATE-OKP-0 (CDR STATE) (CDR TYPE) (QUOTE 0) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))))))) (IF (EQUAL TYPE (QUOTE ADDRESSED-STATE)) (IF (ZEROP ADDRESS-BITS) (STATE-OKP-0 STATE WORD-TYPE (QUOTE 0) (QUOTE *1*FALSE)) (IF (LISTP STATE) (AND (STATE-OKP-0 (CAR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE) (STATE-OKP-0 (CDR STATE) TYPE (SUB1 ADDRESS-BITS) WORD-TYPE)) (QUOTE *1*FALSE))) (IF (EQUAL TYPE (QUOTE NUMBERP)) (NUMBERP STATE) (IF (EQUAL TYPE (QUOTE NUMBER-LISTP)) (IF (NLISTP STATE) (EQUAL STATE (QUOTE NIL)) (IF (NUMBERP (CAR STATE)) (STATE-OKP-0 (CDR STATE) TYPE (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (RAMP TYPE) (IF (RAMP STATE) (STATE-OKP-0 (RAM-GUTS STATE) (RAM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (ROMP TYPE) (IF (ROMP STATE) (STATE-OKP-0 (ROM-GUTS STATE) (ROM-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (STUBP TYPE) (IF (STUBP STATE) (STATE-OKP-0 (STUB-GUTS STATE) (STUB-GUTS TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))))))))) ((ORD-LESSP (CONS (ADD1 (COUNT STATE)) (TYPE-COUNT TYPE WORD-TYPE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 ROM . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 RAM . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 BOOLP . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP3 . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP2 . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT-LESSP1 . STATE-OKP-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . STATE-OKP-0) (DCELL . *1*STATE-OKP-0))))) (PUT1-LST (QUOTE TYPE-COUNT-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE TYPE-COUNT-OFF TYPE-COUNT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-COUNT . TYPE-COUNT-OFF) (DISABLED-LEMMAS NIL TYPE-COUNT TYPE-COUNT-OFF . T))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP3) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (TYPE-COUNT-LESSP3-OFF STATE-OKP-0) EVENT (PROVE-LEMMA TYPE-COUNT-LESSP3 (REWRITE) (IMPLIES (LESSP (COUNT T2) (COUNT T1)) (EQUAL (LESSP (TYPE-COUNT WTYPE T2) (TYPE-COUNT T1 WTYPE)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-COUNT . TYPE-COUNT-LESSP3) (LEMMAS LESSP . TYPE-COUNT-LESSP3))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP2) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (TYPE-COUNT-LESSP2-OFF STATE-OKP-0) EVENT (PROVE-LEMMA TYPE-COUNT-LESSP2 (REWRITE) (IMPLIES (LISTP TYPE) (LESSP (TYPE-COUNT (CAR (CDR TYPE)) (QUOTE *1*FALSE)) (TYPE-COUNT TYPE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . TYPE-COUNT-LESSP2) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT . TYPE-COUNT-LESSP2) (LINEAR-LEMMAS TYPE-COUNT . TYPE-COUNT-LESSP2))))) (PUT1-LST (QUOTE TYPE-COUNT-LESSP1) (QUOTE (IDATE 1000402194012 IMMEDIATE-DEPENDENTS0 (TYPE-COUNT-LESSP1-OFF STATE-OKP-0) EVENT (PROVE-LEMMA TYPE-COUNT-LESSP1 (REWRITE) (IMPLIES (LISTP TYPE) (LESSP (TYPE-COUNT (CAR TYPE) (CAR (CDR (CDR TYPE)))) (TYPE-COUNT TYPE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . TYPE-COUNT-LESSP1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . TYPE-COUNT-LESSP1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TYPE-COUNT-LESSP1) (IMMEDIATE-DEPENDENTS0 TYPE-COUNT . TYPE-COUNT-LESSP1) (LINEAR-LEMMAS TYPE-COUNT . TYPE-COUNT-LESSP1))))) (PUT1-LST (QUOTE *1*TYPE-COUNT) (QUOTE (MAIN-EVENT TYPE-COUNT))) (PUT1-LST (QUOTE TYPE-COUNT) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-COUNT 4 NIL NIL)) TOTALP-LST ((TYPE-COUNT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA TYPE-COUNT-LESSP2 ((LISTP TYPE)) (LESSP (TYPE-COUNT (CAR (CDR TYPE)) (QUOTE *1*FALSE)) (TYPE-COUNT TYPE X)) (TYPE-COUNT TYPE X)) (LINEAR-LEMMA TYPE-COUNT-LESSP1 ((LISTP TYPE)) (LESSP (TYPE-COUNT (CAR TYPE) (CAR (CDR (CDR TYPE)))) (TYPE-COUNT TYPE X)) (TYPE-COUNT TYPE X))) SDEFN (LAMBDA (TYPE WORD-TYPE) (PLUS (COUNT TYPE) (COUNT WORD-TYPE))) LISP-CODE *1*TYPE-COUNT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194012 SATELLITES (*1*TYPE-COUNT) IMMEDIATE-DEPENDENTS0 (STATE-OKP-0 TYPE-COUNT-OFF TYPE-COUNT-LESSP3 TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP1) EVENT (DEFN TYPE-COUNT (TYPE WORD-TYPE) (PLUS (COUNT TYPE) (COUNT WORD-TYPE))) LOCAL-UNDO-TUPLES ((DCELL . *1*TYPE-COUNT))))) (PUT1-LST (QUOTE NETLIST-STATE-TYPES-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE NETLIST-STATE-TYPES-OFF NETLIST-STATE-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-STATE-TYPES . NETLIST-STATE-TYPES-OFF) (DISABLED-LEMMAS NIL NETLIST-STATE-TYPES NETLIST-STATE-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-STATE-TYPES) (QUOTE (MAIN-EVENT NETLIST-STATE-TYPES))) (PUT1-LST (QUOTE NETLIST-STATE-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-STATE-TYPES 4120 NIL)) TOTALP-LST ((NETLIST-STATE-TYPES . T)) SDEFN (LAMBDA (NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)) (DELETE-NULL-ENTRIES (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))))) LISP-CODE *1*NETLIST-STATE-TYPES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*NETLIST-STATE-TYPES) IMMEDIATE-DEPENDENTS0 (NETLIST-STATE-TYPES-OFF) EVENT (DEFN NETLIST-STATE-TYPES (NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)) (DELETE-NULL-ENTRIES (NETLIST-PROPERTIES NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NULL-ENTRIES . NETLIST-STATE-TYPES) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . NETLIST-STATE-TYPES) (IMMEDIATE-DEPENDENTS0 NET-ERROR . NETLIST-STATE-TYPES) (DCELL . *1*NETLIST-STATE-TYPES))))) (PUT1-LST (QUOTE STATE-TYPE-REQUIREMENT-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE STATE-TYPE-REQUIREMENT-OFF STATE-TYPE-REQUIREMENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-TYPE-REQUIREMENT . STATE-TYPE-REQUIREMENT-OFF) (DISABLED-LEMMAS NIL STATE-TYPE-REQUIREMENT STATE-TYPE-REQUIREMENT-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-TYPE-REQUIREMENT) (QUOTE (MAIN-EVENT STATE-TYPE-REQUIREMENT))) (PUT1-LST (QUOTE STATE-TYPE-REQUIREMENT) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-TYPE-REQUIREMENT -1 NIL NIL NIL)) TOTALP-LST ((STATE-TYPE-REQUIREMENT . T)) SDEFN (LAMBDA (FLG X0 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (PRIMP-LOOKUP X0 (QUOTE STATE-TYPES)) (PRIMP2 X0 (QUOTE STATE-TYPES)) (QUOTE NIL)) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)) (IF (BOUNDP (QUOTE STATE-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) (VALUE (QUOTE STATE-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE (QUOTE STATE-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (STATE-TYPES))) X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (STATE-TYPES))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (QUOTE NIL))))))) LISP-CODE *1*STATE-TYPE-REQUIREMENT SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*STATE-TYPE-REQUIREMENT) IMMEDIATE-DEPENDENTS0 (STATE-OKP STATE-TYPE-REQUIREMENT-OFF) EVENT (DEFN STATE-TYPE-REQUIREMENT (FLG X0 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (PRIMP-LOOKUP X0 (QUOTE STATE-TYPES)) (PRIMP2 X0 (QUOTE STATE-TYPES)) (QUOTE NIL)) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)) (IF (BOUNDP (QUOTE STATE-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) (VALUE (QUOTE STATE-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE (QUOTE STATE-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (STATE-TYPES))) X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (STATE-TYPES))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 VALUE . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 BOUNDP . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 SUBNET . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 NET-ERROR . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 PRIMP2 . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . STATE-TYPE-REQUIREMENT) (IMMEDIATE-DEPENDENTS0 PRIMP . STATE-TYPE-REQUIREMENT) (DCELL . *1*STATE-TYPE-REQUIREMENT))))) (PUT1-LST (QUOTE ARG-TYPES-OKP-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE ARG-TYPES-OKP-OFF ARG-TYPES-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ARG-TYPES-OKP . ARG-TYPES-OKP-OFF) (DISABLED-LEMMAS NIL ARG-TYPES-OKP ARG-TYPES-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*ARG-TYPES-OKP) (QUOTE (MAIN-EVENT ARG-TYPES-OKP))) (PUT1-LST (QUOTE ARG-TYPES-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((ARG-TYPES-OKP 3 NIL NIL NIL)) TOTALP-LST ((ARG-TYPES-OKP . T)) SDEFN (LAMBDA (FN ARG-TYPES NETLIST) (IF (BOUNDP (QUOTE INPUT-TYPES) (IO-TYPES (QUOTE 0) FN ARG-TYPES (QUOTE NIL) NETLIST)) (ARG-TYPES-MATCHP ARG-TYPES (VALUE (QUOTE INPUT-TYPES) (IO-TYPES (QUOTE 0) FN ARG-TYPES (QUOTE NIL) NETLIST))) (QUOTE *1*FALSE))) LISP-CODE *1*ARG-TYPES-OKP SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*ARG-TYPES-OKP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-OKP-OFF) EVENT (DEFN ARG-TYPES-OKP (FN ARG-TYPES NETLIST) (IF (BOUNDP (QUOTE INPUT-TYPES) (IO-TYPES (QUOTE 0) FN ARG-TYPES (QUOTE NIL) NETLIST)) (ARG-TYPES-MATCHP ARG-TYPES (VALUE (QUOTE INPUT-TYPES) (IO-TYPES (QUOTE 0) FN ARG-TYPES (QUOTE NIL) NETLIST))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . ARG-TYPES-OKP) (IMMEDIATE-DEPENDENTS0 ARG-TYPES-MATCHP . ARG-TYPES-OKP) (IMMEDIATE-DEPENDENTS0 IO-TYPES . ARG-TYPES-OKP) (IMMEDIATE-DEPENDENTS0 BOUNDP . ARG-TYPES-OKP) (DCELL . *1*ARG-TYPES-OKP))))) (PUT1-LST (QUOTE ARG-TYPES-MATCHP-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE ARG-TYPES-MATCHP-OFF ARG-TYPES-MATCHP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ARG-TYPES-MATCHP . ARG-TYPES-MATCHP-OFF) (DISABLED-LEMMAS NIL ARG-TYPES-MATCHP ARG-TYPES-MATCHP-OFF . T))))) (PUT1-LST (QUOTE *1*ARG-TYPES-MATCHP) (QUOTE (MAIN-EVENT ARG-TYPES-MATCHP))) (PUT1-LST (QUOTE ARG-TYPES-MATCHP) (QUOTE (TYPE-PRESCRIPTION-LST ((ARG-TYPES-MATCHP 3 NIL NIL)) TOTALP-LST ((ARG-TYPES-MATCHP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (ACTUALS FORMALS) (IF (LISTP ACTUALS) (IF (LISTP FORMALS) (IF (UNKNOWNP (CAR ACTUALS)) (QUOTE *1*FALSE) (IF (UNKNOWNP (CAR FORMALS)) (QUOTE *1*FALSE) (IF (TYPES-COMPATIBLEP (CAR ACTUALS) (CAR FORMALS)) (ARG-TYPES-MATCHP (CDR ACTUALS) (CDR FORMALS)) (QUOTE *1*FALSE)))) (EQUAL ACTUALS FORMALS)) (EQUAL ACTUALS FORMALS))) LISP-CODE *1*ARG-TYPES-MATCHP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP ACTUALS) (NLISTP FORMALS))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP ACTUALS) (NLISTP FORMALS))) (OR (UNKNOWNP (CAR ACTUALS)) (UNKNOWNP (CAR FORMALS)))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP ACTUALS) (NLISTP FORMALS))) (NOT (OR (UNKNOWNP (CAR ACTUALS)) (UNKNOWNP (CAR FORMALS)))) (TYPES-COMPATIBLEP (CAR ACTUALS) (CAR FORMALS))) (((CDR ACTUALS) (CDR FORMALS)))) (TESTS-AND-CASES ((NOT (OR (NLISTP ACTUALS) (NLISTP FORMALS))) (NOT (OR (UNKNOWNP (CAR ACTUALS)) (UNKNOWNP (CAR FORMALS)))) (NOT (TYPES-COMPATIBLEP (CAR ACTUALS) (CAR FORMALS)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (ACTUALS) (COUNT ACTUALS) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (FORMALS) (COUNT FORMALS) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194012 CONTROLLER-POCKETS (1 2) SATELLITES (*1*ARG-TYPES-MATCHP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-OKP ARG-TYPES-MATCHP-OFF) EVENT (DEFN ARG-TYPES-MATCHP (ACTUALS FORMALS) (IF (OR (NLISTP ACTUALS) (NLISTP FORMALS)) (EQUAL ACTUALS FORMALS) (IF (OR (UNKNOWNP (CAR ACTUALS)) (UNKNOWNP (CAR FORMALS))) (QUOTE *1*FALSE) (IF (TYPES-COMPATIBLEP (CAR ACTUALS) (CAR FORMALS)) (ARG-TYPES-MATCHP (CDR ACTUALS) (CDR FORMALS)) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPES-COMPATIBLEP . ARG-TYPES-MATCHP) (IMMEDIATE-DEPENDENTS0 UNKNOWN . ARG-TYPES-MATCHP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ARG-TYPES-MATCHP) (DCELL . *1*ARG-TYPES-MATCHP))))) (PUT1-LST (QUOTE NETLIST-TYPE-TABLE-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE NETLIST-TYPE-TABLE-OFF NETLIST-TYPE-TABLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-TABLE . NETLIST-TYPE-TABLE-OFF) (DISABLED-LEMMAS NIL NETLIST-TYPE-TABLE NETLIST-TYPE-TABLE-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-TABLE) (QUOTE (MAIN-EVENT NETLIST-TYPE-TABLE))) (PUT1-LST (QUOTE NETLIST-TYPE-TABLE) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-TYPE-TABLE 4120 NIL)) TOTALP-LST ((NETLIST-TYPE-TABLE . T)) SDEFN (LAMBDA (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (INPUT-TYPES OUTPUT-TYPES)) (QUOTE *1*TRUE))) LISP-CODE *1*NETLIST-TYPE-TABLE SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*NETLIST-TYPE-TABLE) IMMEDIATE-DEPENDENTS0 (NETLIST-TYPE-TABLE-OFF) EVENT (DEFN NETLIST-TYPE-TABLE (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (INPUT-TYPES OUTPUT-TYPES)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . NETLIST-TYPE-TABLE) (DCELL . *1*NETLIST-TYPE-TABLE))))) (PUT1-LST (QUOTE IO-TYPES-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE IO-TYPES-OFF IO-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-TYPES . IO-TYPES-OFF) (DISABLED-LEMMAS NIL IO-TYPES IO-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*IO-TYPES) (QUOTE (MAIN-EVENT IO-TYPES))) (PUT1-LST (QUOTE IO-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-TYPES 4112 NIL NIL NIL NIL NIL)) TOTALP-LST ((IO-TYPES . T)) SDEFN (LAMBDA (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP-LOOKUP X0 (QUOTE INPUT-TYPES)) (CONS (CONS (QUOTE OUTPUT-TYPES) (IO-TYPES-COLLECTOR (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1))) (QUOTE NIL))) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)) (CONS (ALIST-ENTRY (QUOTE INPUT-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (IO-TYPES-COLLECTOR (VALUE (QUOTE OUTPUT-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) X1))) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (CONS (ALIST-ENTRY (QUOTE INPUT-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) (QUOTE *1*TRUE)))) (CONS (ALIST-ENTRY (QUOTE OUTPUT-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LISP-CODE *1*IO-TYPES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194012 SATELLITES (*1*IO-TYPES) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-OKP IO-TYPES-OFF) EVENT (DEFN IO-TYPES (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP-LOOKUP X0 (QUOTE INPUT-TYPES)) (CONS (CONS (QUOTE OUTPUT-TYPES) (IO-TYPES-COLLECTOR (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1))) (QUOTE NIL))) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)) (CONS (ALIST-ENTRY (QUOTE INPUT-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (IO-TYPES-COLLECTOR (VALUE (QUOTE OUTPUT-TYPES) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) X1))) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (CONS (ALIST-ENTRY (QUOTE INPUT-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) (QUOTE *1*TRUE)))) (CONS (ALIST-ENTRY (QUOTE OUTPUT-TYPES) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES))) (QUOTE *1*TRUE)))) (QUOTE NIL))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . IO-TYPES) (IMMEDIATE-DEPENDENTS0 INTERSECTION . IO-TYPES) (IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . IO-TYPES) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . IO-TYPES) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . IO-TYPES) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . IO-TYPES) (IMMEDIATE-DEPENDENTS0 VALUE . IO-TYPES) (IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . IO-TYPES) (IMMEDIATE-DEPENDENTS0 SUBNET . IO-TYPES) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . IO-TYPES) (IMMEDIATE-DEPENDENTS0 NET-ERROR . IO-TYPES) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . IO-TYPES) (IMMEDIATE-DEPENDENTS0 PRIMP2 . IO-TYPES) (IMMEDIATE-DEPENDENTS0 IO-TYPES-COLLECTOR . IO-TYPES) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . IO-TYPES) (IMMEDIATE-DEPENDENTS0 PRIMP . IO-TYPES) (DCELL . *1*IO-TYPES))))) (PUT1-LST (QUOTE IO-TYPES-COLLECTOR-OFF) (QUOTE (IDATE 1000402194012 EVENT (TOGGLE IO-TYPES-COLLECTOR-OFF IO-TYPES-COLLECTOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-TYPES-COLLECTOR . IO-TYPES-COLLECTOR-OFF) (DISABLED-LEMMAS NIL IO-TYPES-COLLECTOR IO-TYPES-COLLECTOR-OFF . T))))) (PUT1-LST (QUOTE *1*IO-TYPES-COLLECTOR) (QUOTE (MAIN-EVENT IO-TYPES-COLLECTOR))) (PUT1-LST (QUOTE IO-TYPES-COLLECTOR) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-TYPES-COLLECTOR 24 NIL NIL)) TOTALP-LST ((IO-TYPES-COLLECTOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (TYPES ALIST) (IF (LISTP TYPES) (IF (LISTP (CAR TYPES)) (CONS (VALUE (CAR (CAR TYPES)) ALIST) (IO-TYPES-COLLECTOR (CDR TYPES) ALIST)) (CONS (CAR TYPES) (IO-TYPES-COLLECTOR (CDR TYPES) ALIST))) (QUOTE NIL))) LISP-CODE *1*IO-TYPES-COLLECTOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES)) (((CDR TYPES) ALIST))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*IO-TYPES-COLLECTOR) IMMEDIATE-DEPENDENTS0 (IO-TYPES IO-TYPES-COLLECTOR-OFF) EVENT (DEFN IO-TYPES-COLLECTOR (TYPES ALIST) (IF (LISTP TYPES) (CONS (IF (LISTP (CAR TYPES)) (VALUE (CAR (CAR TYPES)) ALIST) (CAR TYPES)) (IO-TYPES-COLLECTOR (CDR TYPES) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . IO-TYPES-COLLECTOR) (DCELL . *1*IO-TYPES-COLLECTOR))))) (PUT1-LST (QUOTE OUTPUT-DEPENDENCIES-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OUTPUT-DEPENDENCIES-OFF OUTPUT-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-DEPENDENCIES . OUTPUT-DEPENDENCIES-OFF) (DISABLED-LEMMAS NIL OUTPUT-DEPENDENCIES OUTPUT-DEPENDENCIES-OFF . T))))) (PUT1-LST (QUOTE *1*OUTPUT-DEPENDENCIES) (QUOTE (MAIN-EVENT OUTPUT-DEPENDENCIES))) (PUT1-LST (QUOTE OUTPUT-DEPENDENCIES) (QUOTE (TYPE-PRESCRIPTION-LST ((OUTPUT-DEPENDENCIES 4120 NIL NIL NIL)) TOTALP-LST ((OUTPUT-DEPENDENCIES . T)) SDEFN (LAMBDA (MODULE-NAME ARGS NETLIST) (IF (PRIMP MODULE-NAME) (IF (NET-ERRORP (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS)))) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (IF (EQUAL (LENGTH ARGS) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS)))) (IF (NET-ERRORP (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST)) (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST) (LIST-LIST-SORT (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST))) (PRED-ERROR (QUOTE WRONG-NUMBER-OF-ARGS) (CONS (CONS MODULE-NAME (CONS (QUOTE EXPECTS) (CONS (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (QUOTE NIL)))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ARGS) (CONS ARGS (QUOTE NIL)))) (QUOTE NIL)))))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (IF (NET-ERRORP (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST)))) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (IF (EQUAL (LENGTH ARGS) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST)))) (IF (NET-ERRORP (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST)) (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST) (LIST-LIST-SORT (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST))) (PRED-ERROR (QUOTE WRONG-NUMBER-OF-ARGS) (CONS (CONS MODULE-NAME (CONS (QUOTE EXPECTS) (CONS (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (QUOTE NIL)))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ARGS) (CONS ARGS (QUOTE NIL)))) (QUOTE NIL)))))) (IF (NET-ERRORP (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME)) (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME) (PRED-ERROR (QUOTE WRONG-NUMBER-OF-ARGS) (CONS (CONS MODULE-NAME (CONS (QUOTE EXPECTS) (CONS (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME) (QUOTE NIL)))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ARGS) (CONS ARGS (QUOTE NIL)))) (QUOTE NIL)))))))) LISP-CODE *1*OUTPUT-DEPENDENCIES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194011 SATELLITES (*1*OUTPUT-DEPENDENCIES) IMMEDIATE-DEPENDENTS0 (OUTPUT-DEPENDENCIES-OFF) EVENT (DEFN OUTPUT-DEPENDENCIES (MODULE-NAME ARGS NETLIST) (IF (NET-ERRORP (IF (PRIMP MODULE-NAME) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME)))) (IF (PRIMP MODULE-NAME) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME))) (IF (EQUAL (LENGTH ARGS) (IF (PRIMP MODULE-NAME) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME)))) (IF (NET-ERRORP (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST)) (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST) (LIST-LIST-SORT (OUT-DEPENDS (QUOTE 0) MODULE-NAME ARGS (QUOTE NIL) NETLIST))) (PRED-ERROR (QUOTE WRONG-NUMBER-OF-ARGS) (CONS (CONS MODULE-NAME (CONS (QUOTE EXPECTS) (CONS (IF (PRIMP MODULE-NAME) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) MODULE-NAME))) (QUOTE NIL)))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ARGS) (CONS ARGS (QUOTE NIL)))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-LIST-SORT . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 OUT-DEPENDS . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 LENGTH . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 PRIMP . OUTPUT-DEPENDENCIES) (IMMEDIATE-DEPENDENTS0 NET-ERROR . OUTPUT-DEPENDENCIES) (DCELL . *1*OUTPUT-DEPENDENCIES))))) (PUT1-LST (QUOTE DEPENDENCY-TABLE-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE DEPENDENCY-TABLE-OFF DEPENDENCY-TABLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DEPENDENCY-TABLE . DEPENDENCY-TABLE-OFF) (DISABLED-LEMMAS NIL DEPENDENCY-TABLE DEPENDENCY-TABLE-OFF . T))))) (PUT1-LST (QUOTE *1*DEPENDENCY-TABLE) (QUOTE (MAIN-EVENT DEPENDENCY-TABLE))) (PUT1-LST (QUOTE DEPENDENCY-TABLE) (QUOTE (TYPE-PRESCRIPTION-LST ((DEPENDENCY-TABLE 4120 NIL)) TOTALP-LST ((DEPENDENCY-TABLE . T)) SDEFN (LAMBDA (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (OUT-DEPENDS)) (QUOTE *1*TRUE))) LISP-CODE *1*DEPENDENCY-TABLE SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194011 SATELLITES (*1*DEPENDENCY-TABLE) IMMEDIATE-DEPENDENTS0 (DEPENDENCY-TABLE-OFF) EVENT (DEFN DEPENDENCY-TABLE (NETLIST) (NETLIST-PROPERTIES NETLIST (QUOTE (OUT-DEPENDS)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . DEPENDENCY-TABLE) (DCELL . *1*DEPENDENCY-TABLE))))) (PUT1-LST (QUOTE OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OUT-DEPENDS-OFF OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-DEPENDS . OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL OUT-DEPENDS OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS) (QUOTE (MAIN-EVENT OUT-DEPENDS))) (PUT1-LST (QUOTE OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((OUT-DEPENDS -1 NIL NIL NIL NIL NIL)) TOTALP-LST ((OUT-DEPENDS . T)) SDEFN (LAMBDA (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (LIST-UNION-VALUES (PRIMP2 X0 (QUOTE OUT-DEPENDS)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1)) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)) (LIST-UNION-VALUES (VALUE (QUOTE OUT-DEPENDS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)))) (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)))) X1))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE (QUOTE OUT-DEPENDS) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (OUT-DEPENDS))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (OUT-DEPENDS))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LISP-CODE *1*OUT-DEPENDS SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194011 SATELLITES (*1*OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (OUTPUT-DEPENDENCIES OUT-DEPENDS-OFF) EVENT (DEFN OUT-DEPENDS (FLG X0 X1 X2 NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (LIST-UNION-VALUES (PRIMP2 X0 (QUOTE OUT-DEPENDS)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1)) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)) (LIST-UNION-VALUES (VALUE (QUOTE OUT-DEPENDS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)))) (PAIRLIST (VALUE (QUOTE INPUTS) (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)))) X1))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE (QUOTE OUT-DEPENDS) (OCCURRENCE-DATA (REQUIRED-PROPS (QUOTE (OUT-DEPENDS))) X0 X1 (MARK-IO-OUTS X2 (INTERSECTION X1 X2)) (INTERSECTION X1 X2) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (QUOTE (OUT-DEPENDS))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS X2 (QUOTE NIL))) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 INTERSECTION . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 VALUE . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 SUBNET . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 NET-ERROR . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 LIST-UNION-VALUES . OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 PRIMP . OUT-DEPENDS) (DCELL . *1*OUT-DEPENDS))))) (PUT1-LST (QUOTE PRIMITIVE-COUNT-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMITIVE-COUNT-OFF PRIMITIVE-COUNT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-COUNT . PRIMITIVE-COUNT-OFF) (DISABLED-LEMMAS NIL PRIMITIVE-COUNT PRIMITIVE-COUNT-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMITIVE-COUNT) (QUOTE (MAIN-EVENT PRIMITIVE-COUNT))) (PUT1-LST (QUOTE PRIMITIVE-COUNT) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMITIVE-COUNT -1 NIL NIL NIL NIL)) TOTALP-LST ((PRIMITIVE-COUNT . T)) SDEFN (LAMBDA (FLG X0 TYPE NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (PRIMP2 X0 TYPE) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE)) (VALUE TYPE (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE))))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE TYPE (OCCURRENCE-DATA (REQUIRED-PROPS (CONS TYPE (QUOTE NIL))) X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (CONS TYPE (QUOTE NIL))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (QUOTE NIL))))))) LISP-CODE *1*PRIMITIVE-COUNT SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194011 SATELLITES (*1*PRIMITIVE-COUNT) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-COUNT-OFF) EVENT (DEFN PRIMITIVE-COUNT (FLG X0 TYPE NETLIST) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (PRIMP2 X0 TYPE) (IF (LOOKUP-MODULE X0 NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE)) (VALUE TYPE (VALUE X0 (NETLIST-PROPERTIES (SUBNET (QUOTE 0) X0 NETLIST) (CONS TYPE (QUOTE NIL)) (QUOTE *1*TRUE))))) (PRED-ERROR (QUOTE UNKNOWN-MODULE) X0))) (IF (EQUAL FLG (QUOTE 1)) (VALUE TYPE (OCCURRENCE-DATA (REQUIRED-PROPS (CONS TYPE (QUOTE NIL))) X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (MODULE-DATABASE (SUBNET (QUOTE 1) X0 NETLIST) (REQUIRED-PROPS (CONS TYPE (QUOTE NIL))) (QUOTE *1*TRUE)))) (PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS X0 (QUOTE NIL))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 VALUE . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 SUBNET . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 NET-ERROR . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 PRIMP2 . PRIMITIVE-COUNT) (IMMEDIATE-DEPENDENTS0 PRIMP . PRIMITIVE-COUNT) (DCELL . *1*PRIMITIVE-COUNT))))) (PUT1-LST (QUOTE DELETE-NULL-ENTRIES-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE DELETE-NULL-ENTRIES-OFF DELETE-NULL-ENTRIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NULL-ENTRIES . DELETE-NULL-ENTRIES-OFF) (DISABLED-LEMMAS NIL DELETE-NULL-ENTRIES DELETE-NULL-ENTRIES-OFF . T))))) (PUT1-LST (QUOTE *1*DELETE-NULL-ENTRIES) (QUOTE (MAIN-EVENT DELETE-NULL-ENTRIES))) (PUT1-LST (QUOTE DELETE-NULL-ENTRIES) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE-NULL-ENTRIES 24 NIL)) TOTALP-LST ((DELETE-NULL-ENTRIES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (DATABASE) (IF (LISTP DATABASE) (IF (LISTP (CDR (CAR DATABASE))) (CONS (CAR DATABASE) (DELETE-NULL-ENTRIES (CDR DATABASE))) (DELETE-NULL-ENTRIES (CDR DATABASE))) (QUOTE NIL))) LISP-CODE *1*DELETE-NULL-ENTRIES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DATABASE) (LISTP (CDR (CAR DATABASE)))) (((CDR DATABASE)))) (TESTS-AND-CASES ((LISTP DATABASE) (NOT (LISTP (CDR (CAR DATABASE))))) (((CDR DATABASE)))) (TESTS-AND-CASES ((NOT (LISTP DATABASE))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (DATABASE) (COUNT DATABASE) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*DELETE-NULL-ENTRIES) IMMEDIATE-DEPENDENTS0 (NETLIST-STATE-TYPES DELETE-NULL-ENTRIES-OFF) EVENT (DEFN DELETE-NULL-ENTRIES (DATABASE) (IF (LISTP DATABASE) (IF (LISTP (CDR (CAR DATABASE))) (CONS (CAR DATABASE) (DELETE-NULL-ENTRIES (CDR DATABASE))) (DELETE-NULL-ENTRIES (CDR DATABASE))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELETE-NULL-ENTRIES))))) (PUT1-LST (QUOTE SUBNET-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE SUBNET-OFF SUBNET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBNET . SUBNET-OFF) (DISABLED-LEMMAS NIL SUBNET SUBNET-OFF . T))))) (PUT1-LST (QUOTE *1*SUBNET) (QUOTE (MAIN-EVENT SUBNET))) (PUT1-LST (QUOTE SUBNET) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBNET 25 NIL NIL NIL)) TOTALP-LST ((SUBNET . T)) SDEFN (LAMBDA (FLG X0 NETLIST) (SUBNET0 FLG X0 NETLIST (QUOTE NIL) (QUOTE NIL))) LISP-CODE *1*SUBNET SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*SUBNET) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUT-DEPENDS PRIMITIVE-COUNT SUBNET-OFF) EVENT (DEFN SUBNET (FLG X0 NETLIST) (SUBNET0 FLG X0 NETLIST (QUOTE NIL) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBNET0 . SUBNET) (DCELL . *1*SUBNET))))) (PUT1-LST (QUOTE SUBNET0-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE SUBNET0-OFF SUBNET0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBNET0 . SUBNET0-OFF) (DISABLED-LEMMAS NIL SUBNET0 SUBNET0-OFF . T))))) (PUT1-LST (QUOTE BOUNDP-OFF1) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE BOUNDP-OFF1 BOUNDP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOUNDP . BOUNDP-OFF1) (DISABLED-LEMMAS NIL BOUNDP BOUNDP-OFF1 . T))))) (PUT1-LST (QUOTE *1*SUBNET0) (QUOTE (MAIN-EVENT SUBNET0))) (PUT1-LST (QUOTE SUBNET0) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBNET0 17 NIL NIL NIL NIL T)) TOTALP-LST ((SUBNET0 . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE UNCHANGING QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (FLG X0 NETLIST USED-MODULES RESULT) (IF (EQUAL FLG (QUOTE 0)) (IF (LOOKUP-MODULE X0 RESULT) RESULT (IF (MEMBER X0 USED-MODULES) RESULT (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (CONS (LOOKUP-MODULE X0 NETLIST) (SUBNET0 (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) NETLIST (CONS X0 USED-MODULES) RESULT)) RESULT))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (SUBNET0 (QUOTE 1) (CDR X0) NETLIST USED-MODULES (SUBNET0 (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST USED-MODULES RESULT)) RESULT) (QUOTE *1*FALSE)))) LISP-CODE *1*SUBNET0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (OR (LOOKUP-MODULE X0 RESULT) (MEMBER X0 USED-MODULES))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (OR (LOOKUP-MODULE X0 RESULT) (MEMBER X0 USED-MODULES))) (LISTP (LOOKUP-MODULE X0 NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) NETLIST (CONS X0 USED-MODULES) RESULT))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (OR (LOOKUP-MODULE X0 RESULT) (MEMBER X0 USED-MODULES))) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0))) (((QUOTE 1) (CDR X0) NETLIST USED-MODULES (SUBNET0 (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST USED-MODULES RESULT)) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST USED-MODULES RESULT))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST USED-MODULES) (CONS (ADD1 (COUNT (UNBIND-LIST USED-MODULES NETLIST))) (COUNT X0)) ORD-LESSP (CAR-LESSP CDR-LESSEQP CAR-LESSEQP OCC-FUNCTION CDR-LESSP EQUAL NLISTP LESSP-X-X ZERO LESSP-UNBIND-LIST-COUNT BOUNDP OR MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194011 CONTROLLER-POCKETS (14) SATELLITES (*1*SUBNET0) IMMEDIATE-DEPENDENTS0 (SUBNET SUBNET0-OFF) EVENT (DEFN SUBNET0 (FLG X0 NETLIST USED-MODULES RESULT) (IF (EQUAL FLG (QUOTE 0)) (IF (OR (LOOKUP-MODULE X0 RESULT) (MEMBER X0 USED-MODULES)) RESULT (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (CONS (LOOKUP-MODULE X0 NETLIST) (SUBNET0 (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) NETLIST (CONS X0 USED-MODULES) RESULT)) RESULT)) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) RESULT (SUBNET0 (QUOTE 1) (CDR X0) NETLIST USED-MODULES (SUBNET0 (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST USED-MODULES RESULT))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT (UNBIND-LIST USED-MODULES NETLIST))) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . SUBNET0) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . SUBNET0) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . SUBNET0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUBNET0) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . SUBNET0) (IMMEDIATE-DEPENDENTS0 BOUNDP . SUBNET0) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . SUBNET0) (DCELL . *1*SUBNET0))))) (PUT1-LST (QUOTE BOUNDP-ON) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE BOUNDP-ON BOUNDP NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOUNDP . BOUNDP-ON) (DISABLED-LEMMAS NIL BOUNDP BOUNDP-ON))))) (PUT1-LST (QUOTE PRIMP-DATABASE-PREDICATE-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMP-DATABASE-PREDICATE-OFF PRIMP-DATABASE-PREDICATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE-PREDICATE . PRIMP-DATABASE-PREDICATE-OFF) (DISABLED-LEMMAS NIL PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-PREDICATE-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE-PREDICATE) (QUOTE (MAIN-EVENT PRIMP-DATABASE-PREDICATE))) (PUT1-LST (QUOTE PRIMP-DATABASE-PREDICATE) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP-DATABASE-PREDICATE 4098)) TOTALP-LST ((PRIMP-DATABASE-PREDICATE . T)) SDEFN (LAMBDA NIL (ERR-AND (PRIMP-DATABASE-ERRORS (PRIMP-DATABASE)) (QUOTE PRIMP-DATABASE-ERRORS))) LISP-CODE *1*PRIMP-DATABASE-PREDICATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402194011 SATELLITES (*1*PRIMP-DATABASE-PREDICATE) IMMEDIATE-DEPENDENTS0 (PRIMP-DATABASE-PREDICATE-OFF) EVENT (DEFN PRIMP-DATABASE-PREDICATE NIL (ERR-AND (PRIMP-DATABASE-ERRORS (PRIMP-DATABASE)) (QUOTE PRIMP-DATABASE-ERRORS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE . PRIMP-DATABASE-PREDICATE) (IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE-ERRORS . PRIMP-DATABASE-PREDICATE) (IMMEDIATE-DEPENDENTS0 ERR-AND . PRIMP-DATABASE-PREDICATE) (DCELL . *1*PRIMP-DATABASE-PREDICATE))))) (PUT1-LST (QUOTE PRIMP-DATABASE-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMP-DATABASE-ERRORS-OFF PRIMP-DATABASE-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE-ERRORS . PRIMP-DATABASE-ERRORS-OFF) (DISABLED-LEMMAS NIL PRIMP-DATABASE-ERRORS PRIMP-DATABASE-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE-ERRORS) (QUOTE (MAIN-EVENT PRIMP-DATABASE-ERRORS))) (PUT1-LST (QUOTE PRIMP-DATABASE-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP-DATABASE-ERRORS 24 NIL)) TOTALP-LST ((PRIMP-DATABASE-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (D) (IF (LISTP D) (CONS (PRIMITIVE-OK (CAR D)) (PRIMP-DATABASE-ERRORS (CDR D))) (QUOTE NIL))) LISP-CODE *1*PRIMP-DATABASE-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP D)) NIL) (TESTS-AND-CASES ((NOT (NLISTP D))) (((CDR D))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (D) (COUNT D) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PRIMP-DATABASE-ERRORS) IMMEDIATE-DEPENDENTS0 (PRIMP-DATABASE-PREDICATE PRIMP-DATABASE-ERRORS-OFF) EVENT (DEFN PRIMP-DATABASE-ERRORS (D) (IF (NLISTP D) (QUOTE NIL) (CONS (PRIMITIVE-OK (CAR D)) (PRIMP-DATABASE-ERRORS (CDR D))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-OK . PRIMP-DATABASE-ERRORS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PRIMP-DATABASE-ERRORS) (DCELL . *1*PRIMP-DATABASE-ERRORS))))) (PUT1-LST (QUOTE PRIMITIVE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMITIVE-OK-OFF PRIMITIVE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-OK . PRIMITIVE-OK-OFF) (DISABLED-LEMMAS NIL PRIMITIVE-OK PRIMITIVE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMITIVE-OK) (QUOTE (MAIN-EVENT PRIMITIVE-OK))) (PUT1-LST (QUOTE PRIMITIVE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMITIVE-OK 4098 NIL)) TOTALP-LST ((PRIMITIVE-OK . T)) SDEFN (LAMBDA (P) (IF (LISTP P) (ERR-AND (CONS (T-OR-ERR (NAME-OKP (CAR P)) (QUOTE BAD-PRIMITIVE-NAME) (CAR P)) (PRIMITIVE-PROP-ERRORS (CDR P) (PARENT-PROPS-ALIST P) (QUOTE NIL))) (CONS (QUOTE PRIMITIVE) (CONS (CAR P) (QUOTE NIL)))) (PRED-ERROR (QUOTE NOT-A-PRIMITIVE) P))) LISP-CODE *1*PRIMITIVE-OK SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194011 SATELLITES (*1*PRIMITIVE-OK) IMMEDIATE-DEPENDENTS0 (PRIMP-DATABASE-ERRORS PRIMITIVE-OK-OFF) EVENT (DEFN PRIMITIVE-OK (P) (IF (LISTP P) (ERR-AND (CONS (T-OR-ERR (NAME-OKP (CAR P)) (QUOTE BAD-PRIMITIVE-NAME) (CAR P)) (PRIMITIVE-PROP-ERRORS (CDR P) (PARENT-PROPS-ALIST P) (QUOTE NIL))) (CONS (QUOTE PRIMITIVE) (CONS (CAR P) (QUOTE NIL)))) (PRED-ERROR (QUOTE NOT-A-PRIMITIVE) P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRIMITIVE-OK) (IMMEDIATE-DEPENDENTS0 PARENT-PROPS-ALIST . PRIMITIVE-OK) (IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROP-ERRORS . PRIMITIVE-OK) (IMMEDIATE-DEPENDENTS0 NAME-OKP . PRIMITIVE-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PRIMITIVE-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PRIMITIVE-OK) (DCELL . *1*PRIMITIVE-OK))))) (PUT1-LST (QUOTE PARENT-PROPS-ALIST-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PARENT-PROPS-ALIST-OFF PARENT-PROPS-ALIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-PROPS-ALIST . PARENT-PROPS-ALIST-OFF) (DISABLED-LEMMAS NIL PARENT-PROPS-ALIST PARENT-PROPS-ALIST-OFF . T))))) (PUT1-LST (QUOTE *1*PARENT-PROPS-ALIST) (QUOTE (MAIN-EVENT PARENT-PROPS-ALIST))) (PUT1-LST (QUOTE PARENT-PROPS-ALIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PARENT-PROPS-ALIST 16 NIL)) TOTALP-LST ((PARENT-PROPS-ALIST . T)) SDEFN (LAMBDA (PRIMP-ENTRY) (CONS (CONS (QUOTE PRIMP-NAME) (CAR PRIMP-ENTRY)) (CONS (CONS (QUOTE INPUTS) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE OUTPUTS) (OK-NAME-LIST (QUOTE OUTPUTS) (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE STATES) (OK-STATES (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE OUT-DEPENDS) (OK-OUT-DEPENDS (VALUE (QUOTE OUT-DEPENDS) (CDR PRIMP-ENTRY)) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY)))) (CONS (CONS (QUOTE INPUT-TYPES) (OK-INPUT-TYPES (VALUE (QUOTE INPUT-TYPES) (CDR PRIMP-ENTRY)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (OK-OUTPUT-TYPES (VALUE (QUOTE OUTPUT-TYPES) (CDR PRIMP-ENTRY)) (OK-OUT-DEPENDS (VALUE (QUOTE OUT-DEPENDS) (CDR PRIMP-ENTRY)) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY))) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY)))) (QUOTE NIL))))))))) LISP-CODE *1*PARENT-PROPS-ALIST SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*PARENT-PROPS-ALIST) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-OK PARENT-PROPS-ALIST-OFF) EVENT (DEFN PARENT-PROPS-ALIST (PRIMP-ENTRY) (CONS (CONS (QUOTE PRIMP-NAME) (CAR PRIMP-ENTRY)) (CONS (CONS (QUOTE INPUTS) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE OUTPUTS) (OK-NAME-LIST (QUOTE OUTPUTS) (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE STATES) (OK-STATES (CDR PRIMP-ENTRY))) (CONS (CONS (QUOTE OUT-DEPENDS) (OK-OUT-DEPENDS (VALUE (QUOTE OUT-DEPENDS) (CDR PRIMP-ENTRY)) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY)))) (CONS (CONS (QUOTE INPUT-TYPES) (OK-INPUT-TYPES (VALUE (QUOTE INPUT-TYPES) (CDR PRIMP-ENTRY)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (OK-OUTPUT-TYPES (VALUE (QUOTE OUTPUT-TYPES) (CDR PRIMP-ENTRY)) (OK-OUT-DEPENDS (VALUE (QUOTE OUT-DEPENDS) (CDR PRIMP-ENTRY)) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY))) (OK-NAME-LIST (QUOTE INPUTS) (CDR PRIMP-ENTRY)))) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-OUTPUT-TYPES . PARENT-PROPS-ALIST) (IMMEDIATE-DEPENDENTS0 OK-INPUT-TYPES . PARENT-PROPS-ALIST) (IMMEDIATE-DEPENDENTS0 VALUE . PARENT-PROPS-ALIST) (IMMEDIATE-DEPENDENTS0 OK-OUT-DEPENDS . PARENT-PROPS-ALIST) (IMMEDIATE-DEPENDENTS0 OK-STATES . PARENT-PROPS-ALIST) (IMMEDIATE-DEPENDENTS0 OK-NAME-LIST . PARENT-PROPS-ALIST) (DCELL . *1*PARENT-PROPS-ALIST))))) (PUT1-LST (QUOTE OK-OUTPUT-TYPES-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OK-OUTPUT-TYPES-OFF OK-OUTPUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-OUTPUT-TYPES . OK-OUTPUT-TYPES-OFF) (DISABLED-LEMMAS NIL OK-OUTPUT-TYPES OK-OUTPUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*OK-OUTPUT-TYPES) (QUOTE (MAIN-EVENT OK-OUTPUT-TYPES))) (PUT1-LST (QUOTE OK-OUTPUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-OUTPUT-TYPES 24 NIL NIL NIL)) TOTALP-LST ((OK-OUTPUT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (OUT-TYPES OUT-DEPENDS INPUTS) (IF (LISTP OUT-TYPES) (IF (LISTP (CAR OUT-TYPES)) (IF (PROPERP (CAR OUT-TYPES)) (IF (EQUAL (LENGTH (CAR OUT-TYPES)) (QUOTE 1)) (IF (UNKNOWNP (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS)) (IF (NAME-OKP (CAR (CAR OUT-TYPES))) (CONS (CAR OUT-TYPES) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS))) (IF (MEMBER (CAR (CAR OUT-TYPES)) (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS)) (CONS (CAR OUT-TYPES) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)))) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS))) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS))) (IF (MEMBER (CAR OUT-TYPES) (ALL-OUTPUT-TYPES (QUOTE NIL))) (CONS (CAR OUT-TYPES) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)))) (QUOTE NIL))) LISP-CODE *1*OK-OUTPUT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUT-TYPES)) (((CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS))) (TESTS-AND-CASES ((NOT (LISTP OUT-TYPES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (OUT-TYPES) (COUNT OUT-TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*OK-OUTPUT-TYPES) IMMEDIATE-DEPENDENTS0 (PARENT-PROPS-ALIST OK-OUTPUT-TYPES-OFF) EVENT (DEFN OK-OUTPUT-TYPES (OUT-TYPES OUT-DEPENDS INPUTS) (IF (LISTP OUT-TYPES) (CONS (IF (IF (LISTP (CAR OUT-TYPES)) (AND (PROPERP (CAR OUT-TYPES)) (AND (EQUAL (LENGTH (CAR OUT-TYPES)) (QUOTE 1)) (IF (UNKNOWNP (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS)) (NAME-OKP (CAR (CAR OUT-TYPES))) (MEMBER (CAR (CAR OUT-TYPES)) (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS))))) (MEMBER (CAR OUT-TYPES) (ALL-OUTPUT-TYPES (QUOTE NIL)))) (CAR OUT-TYPES) (QUOTE (*1*QUOTE UNKNOWN))) (OK-OUTPUT-TYPES (CDR OUT-TYPES) (UCDR OUT-DEPENDS) INPUTS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UCDR . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 ALL-OUTPUT-TYPES . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 NAME-OKP . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 UCAR . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 LENGTH . OK-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 PROPERP . OK-OUTPUT-TYPES) (DCELL . *1*OK-OUTPUT-TYPES))))) (PUT1-LST (QUOTE OK-INPUT-TYPES-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OK-INPUT-TYPES-OFF OK-INPUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-INPUT-TYPES . OK-INPUT-TYPES-OFF) (DISABLED-LEMMAS NIL OK-INPUT-TYPES OK-INPUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*OK-INPUT-TYPES) (QUOTE (MAIN-EVENT OK-INPUT-TYPES))) (PUT1-LST (QUOTE OK-INPUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-INPUT-TYPES 24 NIL)) TOTALP-LST ((OK-INPUT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (TYPES) (IF (LISTP TYPES) (IF (MEMBER (CAR TYPES) (ALL-INPUT-TYPES)) (CONS (CAR TYPES) (OK-INPUT-TYPES (CDR TYPES))) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-INPUT-TYPES (CDR TYPES)))) (QUOTE NIL))) LISP-CODE *1*OK-INPUT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES)) (((CDR TYPES)))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*OK-INPUT-TYPES) IMMEDIATE-DEPENDENTS0 (PARENT-PROPS-ALIST OK-INPUT-TYPES-OFF) EVENT (DEFN OK-INPUT-TYPES (TYPES) (IF (LISTP TYPES) (CONS (IF (MEMBER (CAR TYPES) (ALL-INPUT-TYPES)) (CAR TYPES) (QUOTE (*1*QUOTE UNKNOWN))) (OK-INPUT-TYPES (CDR TYPES))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-INPUT-TYPES) (IMMEDIATE-DEPENDENTS0 ALL-INPUT-TYPES . OK-INPUT-TYPES) (DCELL . *1*OK-INPUT-TYPES))))) (PUT1-LST (QUOTE OK-OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OK-OUT-DEPENDS-OFF OK-OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-OUT-DEPENDS . OK-OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL OK-OUT-DEPENDS OK-OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*OK-OUT-DEPENDS) (QUOTE (MAIN-EVENT OK-OUT-DEPENDS))) (PUT1-LST (QUOTE OK-OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-OUT-DEPENDS 24 NIL NIL)) TOTALP-LST ((OK-OUT-DEPENDS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (ODS INPUTS) (IF (LISTP ODS) (IF (PNAME-LISTP (CAR ODS)) (IF (UNKNOWNP INPUTS) (CONS (CAR ODS) (OK-OUT-DEPENDS (CDR ODS) INPUTS)) (IF (SUBSET (CAR ODS) INPUTS) (CONS (CAR ODS) (OK-OUT-DEPENDS (CDR ODS) INPUTS)) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUT-DEPENDS (CDR ODS) INPUTS)))) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (OK-OUT-DEPENDS (CDR ODS) INPUTS))) (QUOTE NIL))) LISP-CODE *1*OK-OUT-DEPENDS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP ODS)) (((CDR ODS) INPUTS))) (TESTS-AND-CASES ((NOT (LISTP ODS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (ODS) (COUNT ODS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*OK-OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (PARENT-PROPS-ALIST OK-OUT-DEPENDS-OFF) EVENT (DEFN OK-OUT-DEPENDS (ODS INPUTS) (IF (LISTP ODS) (CONS (IF (AND (PNAME-LISTP (CAR ODS)) (OR (UNKNOWNP INPUTS) (SUBSET (CAR ODS) INPUTS))) (CAR ODS) (QUOTE (*1*QUOTE UNKNOWN))) (OK-OUT-DEPENDS (CDR ODS) INPUTS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 SUBSET . OK-OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 PNAME-LISTP . OK-OUT-DEPENDS) (DCELL . *1*OK-OUT-DEPENDS))))) (PUT1-LST (QUOTE OK-STATES-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OK-STATES-OFF OK-STATES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-STATES . OK-STATES-OFF) (DISABLED-LEMMAS NIL OK-STATES OK-STATES-OFF . T))))) (PUT1-LST (QUOTE *1*OK-STATES) (QUOTE (MAIN-EVENT OK-STATES))) (PUT1-LST (QUOTE OK-STATES) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-STATES -1 NIL)) TOTALP-LST ((OK-STATES . T)) SDEFN (LAMBDA (PROPS) (IF (BOUNDP (QUOTE STATES) PROPS) (IF (LISTP (VALUE (QUOTE STATES) PROPS)) (IF (PNAME-LISTP (VALUE (QUOTE STATES) PROPS)) (VALUE (QUOTE STATES) PROPS) (QUOTE (*1*QUOTE UNKNOWN))) (IF (EQUAL (VALUE (QUOTE STATES) PROPS) (QUOTE NIL)) (IF (PNAME-LISTP (VALUE (QUOTE STATES) PROPS)) (VALUE (QUOTE STATES) PROPS) (QUOTE (*1*QUOTE UNKNOWN))) (IF (NAME-OKP (VALUE (QUOTE STATES) PROPS)) (VALUE (QUOTE STATES) PROPS) (QUOTE (*1*QUOTE UNKNOWN))))) (QUOTE NIL))) LISP-CODE *1*OK-STATES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*OK-STATES) IMMEDIATE-DEPENDENTS0 (PARENT-PROPS-ALIST OK-STATES-OFF) EVENT (DEFN OK-STATES (PROPS) (IF (BOUNDP (QUOTE STATES) PROPS) (IF (OR (LISTP (VALUE (QUOTE STATES) PROPS)) (EQUAL (VALUE (QUOTE STATES) PROPS) (QUOTE NIL))) (IF (PNAME-LISTP (VALUE (QUOTE STATES) PROPS)) (VALUE (QUOTE STATES) PROPS) (QUOTE (*1*QUOTE UNKNOWN))) (IF (NAME-OKP (VALUE (QUOTE STATES) PROPS)) (VALUE (QUOTE STATES) PROPS) (QUOTE (*1*QUOTE UNKNOWN)))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . OK-STATES) (IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-STATES) (IMMEDIATE-DEPENDENTS0 PNAME-LISTP . OK-STATES) (IMMEDIATE-DEPENDENTS0 VALUE . OK-STATES) (IMMEDIATE-DEPENDENTS0 BOUNDP . OK-STATES) (DCELL . *1*OK-STATES))))) (PUT1-LST (QUOTE OK-NAME-LIST-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE OK-NAME-LIST-OFF OK-NAME-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-NAME-LIST . OK-NAME-LIST-OFF) (DISABLED-LEMMAS NIL OK-NAME-LIST OK-NAME-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*OK-NAME-LIST) (QUOTE (MAIN-EVENT OK-NAME-LIST))) (PUT1-LST (QUOTE OK-NAME-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-NAME-LIST -1 NIL NIL)) TOTALP-LST ((OK-NAME-LIST . T)) SDEFN (LAMBDA (PNAME PROPS) (IF (PNAME-LISTP (VALUE-OR-UNKNOWN PNAME PROPS)) (VALUE-OR-UNKNOWN PNAME PROPS) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*OK-NAME-LIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*OK-NAME-LIST) IMMEDIATE-DEPENDENTS0 (PARENT-PROPS-ALIST OK-NAME-LIST-OFF) EVENT (DEFN OK-NAME-LIST (PNAME PROPS) (IF (PNAME-LISTP (VALUE-OR-UNKNOWN PNAME PROPS)) (VALUE-OR-UNKNOWN PNAME PROPS) (QUOTE (*1*QUOTE UNKNOWN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-NAME-LIST) (IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . OK-NAME-LIST) (IMMEDIATE-DEPENDENTS0 PNAME-LISTP . OK-NAME-LIST) (DCELL . *1*OK-NAME-LIST))))) (PUT1-LST (QUOTE PRIMITIVE-PROP-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMITIVE-PROP-ERRORS-OFF PRIMITIVE-PROP-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROP-ERRORS . PRIMITIVE-PROP-ERRORS-OFF) (DISABLED-LEMMAS NIL PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROP-ERRORS) (QUOTE (MAIN-EVENT PRIMITIVE-PROP-ERRORS))) (PUT1-LST (QUOTE PRIMITIVE-PROP-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMITIVE-PROP-ERRORS 16 NIL NIL NIL)) TOTALP-LST ((PRIMITIVE-PROP-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (PROPS ALIST KEYS) (IF (LISTP PROPS) (CONS (PRIMITIVE-PROP-OK (CAR PROPS) ALIST KEYS) (PRIMITIVE-PROP-ERRORS (CDR PROPS) ALIST (CONS (CAR (CAR PROPS)) KEYS))) (IF (SUBSET (QUOTE (NEW-STATES STATE-TYPES STATES)) (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS)) (CONS (NLISTP-OR-ERR (DELETE* (QUOTE PADS) (SET-DIFF (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS) (QUOTE (NEW-STATES STATE-TYPES STATES)))) (QUOTE MISSING-PROPERTIES)) (CONS (NIL-OR-ERR PROPS (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (CONS (NLISTP-OR-ERR (DELETE* (QUOTE PADS) (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS)) (QUOTE MISSING-PROPERTIES)) (CONS (NIL-OR-ERR PROPS (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))) LISP-CODE *1*PRIMITIVE-PROP-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP PROPS)) (((CDR PROPS) ALIST (CONS (CAR (CAR PROPS)) KEYS)))) (TESTS-AND-CASES ((NOT (LISTP PROPS))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (PROPS) (COUNT PROPS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PRIMITIVE-PROP-ERRORS) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-OK PRIMITIVE-PROP-ERRORS-OFF) EVENT (DEFN PRIMITIVE-PROP-ERRORS (PROPS ALIST KEYS) (IF (LISTP PROPS) (CONS (PRIMITIVE-PROP-OK (CAR PROPS) ALIST KEYS) (PRIMITIVE-PROP-ERRORS (CDR PROPS) ALIST (CONS (CAR (CAR PROPS)) KEYS))) (CONS (NLISTP-OR-ERR (DELETE* (QUOTE PADS) (IF (SUBSET (QUOTE (NEW-STATES STATE-TYPES STATES)) (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS)) (SET-DIFF (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS) (QUOTE (NEW-STATES STATE-TYPES STATES))) (SET-DIFF (PRIMITIVE-PROPERTIES) KEYS))) (QUOTE MISSING-PROPERTIES)) (CONS (NIL-OR-ERR PROPS (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROPERTIES . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 SET-DIFF . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 SUBSET . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 DELETE* . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PRIMITIVE-PROP-ERRORS) (IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROP-OK . PRIMITIVE-PROP-ERRORS) (DCELL . *1*PRIMITIVE-PROP-ERRORS))))) (PUT1-LST (QUOTE PRIMITIVE-PROP-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRIMITIVE-PROP-OK-OFF PRIMITIVE-PROP-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROP-OK . PRIMITIVE-PROP-OK-OFF) (DISABLED-LEMMAS NIL PRIMITIVE-PROP-OK PRIMITIVE-PROP-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROP-OK) (QUOTE (MAIN-EVENT PRIMITIVE-PROP-OK))) (PUT1-LST (QUOTE PRIMITIVE-PROP-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMITIVE-PROP-OK 4098 NIL NIL NIL)) TOTALP-LST ((PRIMITIVE-PROP-OK . T)) SDEFN (LAMBDA (PROP ALIST KEYS) (IF (LISTP PROP) (IF (MEMBER (CAR PROP) KEYS) (PRED-ERROR (QUOTE DUPLICATE-PROPERTY) PROP) (IF (EQUAL (CAR PROP) (QUOTE DELAYS)) (PDELAYS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE DRIVES)) (PDRIVES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE INPUT-TYPES)) (PIN-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE INPUTS)) (NAME-LIST-OK (CDR PROP) (QUOTE INPUTS) (QUOTE *1*FALSE)) (IF (EQUAL (CAR PROP) (QUOTE LOADINGS)) (PLOADINGS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE LSI-NAME)) (PLSI-NAME-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE NEW-STATES)) (PNEW-STATES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUT-DEPENDS)) (POUT-DEPENDS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUTPUT-TYPES)) (POUT-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUTPUTS)) (NAME-LIST-OK (CDR PROP) (QUOTE OUTPUTS) (QUOTE *1*FALSE)) (IF (EQUAL (CAR PROP) (QUOTE RESULTS)) (PRESULTS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE STATE-TYPES)) (PSTATE-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE STATES)) (PSTATES-OK (CDR PROP)) (IF (MEMBER (CAR PROP) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (T-OR-ERR (NUMBERP (CDR PROP)) (CAR PROP) (CONS (QUOTE VALUE-NOT-NUMBER) (CONS (CDR PROP) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-PROPERTY) (CAR PROP))))))))))))))))) (PRED-ERROR (QUOTE NOT-KEY-VALUE-PAIR) PROP))) LISP-CODE *1*PRIMITIVE-PROP-OK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194011 SATELLITES (*1*PRIMITIVE-PROP-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS PRIMITIVE-PROP-OK-OFF) EVENT (DEFN PRIMITIVE-PROP-OK (PROP ALIST KEYS) (IF (LISTP PROP) (IF (MEMBER (CAR PROP) KEYS) (PRED-ERROR (QUOTE DUPLICATE-PROPERTY) PROP) (IF (EQUAL (CAR PROP) (QUOTE DELAYS)) (PDELAYS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE DRIVES)) (PDRIVES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE INPUT-TYPES)) (PIN-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE INPUTS)) (NAME-LIST-OK (CDR PROP) (QUOTE INPUTS) (QUOTE *1*FALSE)) (IF (EQUAL (CAR PROP) (QUOTE LOADINGS)) (PLOADINGS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE LSI-NAME)) (PLSI-NAME-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE NEW-STATES)) (PNEW-STATES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUT-DEPENDS)) (POUT-DEPENDS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUTPUT-TYPES)) (POUT-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE OUTPUTS)) (NAME-LIST-OK (CDR PROP) (QUOTE OUTPUTS) (QUOTE *1*FALSE)) (IF (EQUAL (CAR PROP) (QUOTE RESULTS)) (PRESULTS-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE STATE-TYPES)) (PSTATE-TYPES-OK (CDR PROP) ALIST) (IF (EQUAL (CAR PROP) (QUOTE STATES)) (PSTATES-OK (CDR PROP)) (IF (MEMBER (CAR PROP) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (T-OR-ERR (NUMBERP (CDR PROP)) (CAR PROP) (CONS (QUOTE VALUE-NOT-NUMBER) (CONS (CDR PROP) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-PROPERTY) (CAR PROP))))))))))))))))) (PRED-ERROR (QUOTE NOT-KEY-VALUE-PAIR) PROP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-ERR . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PSTATES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PSTATE-TYPES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PRESULTS-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 POUT-TYPES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PNEW-STATES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PLSI-NAME-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PLOADINGS-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PIN-TYPES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PDRIVES-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PDELAYS-OK . PRIMITIVE-PROP-OK) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRIMITIVE-PROP-OK) (DCELL . *1*PRIMITIVE-PROP-OK))))) (PUT1-LST (QUOTE PNEW-STATES-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PNEW-STATES-OK-OFF PNEW-STATES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PNEW-STATES-OK . PNEW-STATES-OK-OFF) (DISABLED-LEMMAS NIL PNEW-STATES-OK PNEW-STATES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PNEW-STATES-OK) (QUOTE (MAIN-EVENT PNEW-STATES-OK))) (PUT1-LST (QUOTE PNEW-STATES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PNEW-STATES-OK 4098 NIL NIL)) TOTALP-LST ((PNEW-STATES-OK . T)) SDEFN (LAMBDA (NEW-STATES ALIST) (IF (LISTP (VALUE (QUOTE STATES) ALIST)) (ERR-AND (PRESULTS-ERRORS NEW-STATES (VALUE (QUOTE STATES) ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE STATES) ALIST) (QUOTE STATE)) (QUOTE NEW-STATES)) (IF (EQUAL (VALUE (QUOTE STATES) ALIST) (QUOTE NIL)) (ERR-AND (PRESULTS-ERRORS NEW-STATES (VALUE (QUOTE STATES) ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE STATES) ALIST) (QUOTE STATE)) (QUOTE NEW-STATES)) (IF (LITATOM (VALUE (QUOTE STATES) ALIST)) (ERR-AND (CONS (PRESULT-OK NEW-STATES (VALUE (QUOTE INPUTS) ALIST) (CONS (VALUE (QUOTE STATES) ALIST) (QUOTE NIL)) (STATE-LABEL (VALUE (QUOTE STATES) ALIST))) (QUOTE NIL)) (QUOTE NEW-STATES)) (IF (INDEXP (VALUE (QUOTE STATES) ALIST)) (ERR-AND (CONS (PRESULT-OK NEW-STATES (VALUE (QUOTE INPUTS) ALIST) (CONS (VALUE (QUOTE STATES) ALIST) (QUOTE NIL)) (STATE-LABEL (VALUE (QUOTE STATES) ALIST))) (QUOTE NIL)) (QUOTE NEW-STATES)) (ERR-AND (PRESULTS-ERRORS NEW-STATES (QUOTE 1) (QUOTE (*1*QUOTE UNKNOWN)) (VALUE (QUOTE INPUTS) ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (QUOTE STATE)) (QUOTE NEW-STATES))))))) LISP-CODE *1*PNEW-STATES-OK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194011 SATELLITES (*1*PNEW-STATES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PNEW-STATES-OK-OFF) EVENT (DEFN PNEW-STATES-OK (NEW-STATES ALIST) (ERR-AND (IF (OR (LISTP (VALUE (QUOTE STATES) ALIST)) (EQUAL (VALUE (QUOTE STATES) ALIST) (QUOTE NIL))) (PRESULTS-ERRORS NEW-STATES (VALUE (QUOTE STATES) ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE STATES) ALIST) (QUOTE STATE)) (IF (OR (LITATOM (VALUE (QUOTE STATES) ALIST)) (INDEXP (VALUE (QUOTE STATES) ALIST))) (CONS (PRESULT-OK NEW-STATES (VALUE (QUOTE INPUTS) ALIST) (CONS (VALUE (QUOTE STATES) ALIST) (QUOTE NIL)) (STATE-LABEL (VALUE (QUOTE STATES) ALIST))) (QUOTE NIL)) (PRESULTS-ERRORS NEW-STATES (QUOTE 1) (QUOTE (*1*QUOTE UNKNOWN)) (VALUE (QUOTE INPUTS) ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (QUOTE STATE)))) (QUOTE NEW-STATES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-LABEL . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 PRESULT-OK . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 INDEX . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 PRESULTS-ERRORS . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 VALUE . PNEW-STATES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PNEW-STATES-OK) (DCELL . *1*PNEW-STATES-OK))))) (PUT1-LST (QUOTE PRESULTS-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRESULTS-OK-OFF PRESULTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRESULTS-OK . PRESULTS-OK-OFF) (DISABLED-LEMMAS NIL PRESULTS-OK PRESULTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PRESULTS-OK) (QUOTE (MAIN-EVENT PRESULTS-OK))) (PUT1-LST (QUOTE PRESULTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PRESULTS-OK 4098 NIL NIL)) TOTALP-LST ((PRESULTS-OK . T)) SDEFN (LAMBDA (RESULTS ALIST) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (IF (UNKNOWNP (VALUE (QUOTE STATES) ALIST)) (ERR-AND (PRESULTS-ERRORS RESULTS (QUOTE 1) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE STATES) ALIST) (QUOTE OUTPUT)) (QUOTE RESULTS)) (ERR-AND (PRESULTS-ERRORS RESULTS (QUOTE 1) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (M-STATES-LIST (VALUE (QUOTE STATES) ALIST)) (QUOTE OUTPUT)) (QUOTE RESULTS))) (IF (UNKNOWNP (VALUE (QUOTE STATES) ALIST)) (ERR-AND (PRESULTS-ERRORS RESULTS (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE STATES) ALIST) (QUOTE OUTPUT)) (QUOTE RESULTS)) (ERR-AND (PRESULTS-ERRORS RESULTS (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (M-STATES-LIST (VALUE (QUOTE STATES) ALIST)) (QUOTE OUTPUT)) (QUOTE RESULTS))))) LISP-CODE *1*PRESULTS-OK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194011 SATELLITES (*1*PRESULTS-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PRESULTS-OK-OFF) EVENT (DEFN PRESULTS-OK (RESULTS ALIST) (ERR-AND (PRESULTS-ERRORS RESULTS (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (IF (UNKNOWNP (VALUE (QUOTE STATES) ALIST)) (VALUE (QUOTE STATES) ALIST) (M-STATES-LIST (VALUE (QUOTE STATES) ALIST))) (QUOTE OUTPUT)) (QUOTE RESULTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-STATES-LIST . PRESULTS-OK) (IMMEDIATE-DEPENDENTS0 VALUE . PRESULTS-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PRESULTS-OK) (IMMEDIATE-DEPENDENTS0 PRESULTS-ERRORS . PRESULTS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PRESULTS-OK) (DCELL . *1*PRESULTS-OK))))) (PUT1-LST (QUOTE PRESULTS-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRESULTS-ERRORS-OFF PRESULTS-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRESULTS-ERRORS . PRESULTS-ERRORS-OFF) (DISABLED-LEMMAS NIL PRESULTS-ERRORS PRESULTS-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PRESULTS-ERRORS) (QUOTE (MAIN-EVENT PRESULTS-ERRORS))) (PUT1-LST (QUOTE PRESULTS-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PRESULTS-ERRORS 16 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((PRESULTS-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (RESULTS OUTPUTS OUT-DEPENDS INPUTS STATES LABEL) (IF (LISTP RESULTS) (IF (EQUAL RESULTS (QUOTE (QUOTE NIL))) (CONS (NLISTP-OR-ERR OUTPUTS (CONS (QUOTE MISSING) (CONS LABEL (QUOTE (VALUES))))) (QUOTE NIL)) (IF (EQUAL (CAR RESULTS) (QUOTE CONS)) (IF (NET-ERRORP (FUNCTION-CALL-OK RESULTS (QUOTE 2))) (CONS (FUNCTION-CALL-OK RESULTS (QUOTE 2)) (QUOTE NIL)) (IF (LISTP OUTPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-VALUES) (CONS (RESULTS-LENGTH RESULTS) (QUOTE (OR MORE EXTRAS)))) (CONS (PRESULT-OK (CAR (CDR RESULTS)) (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS) STATES (IO-LABEL (IO-CAR OUTPUTS) LABEL)) (PRESULTS-ERRORS (CAR (CDR (CDR RESULTS))) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS STATES LABEL))) (CONS (T-OR-ERR (NUMBERP OUTPUTS) (QUOTE TOO-MANY-VALUES) (CONS (RESULTS-LENGTH RESULTS) (QUOTE (OR MORE EXTRAS)))) (CONS (PRESULT-OK (CAR (CDR RESULTS)) (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS) STATES (IO-LABEL (IO-CAR OUTPUTS) LABEL)) (PRESULTS-ERRORS (CAR (CDR (CDR RESULTS))) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS STATES LABEL))))) (IF (LISTP OUTPUTS) (CONS (PRED-ERROR (CONS (QUOTE EVALUATION) (CONS (QUOTE SHOULD) (CONS (QUOTE RETURN) (CONS (LENGTH OUTPUTS) (QUOTE (RESULTS)))))) RESULTS) (CONS (PRESULT-OK RESULTS INPUTS STATES (CONS LABEL (CONS (QUOTE LIST) (CONS OUTPUTS (QUOTE NIL))))) (QUOTE NIL))) (IF (EQUAL OUTPUTS (QUOTE NIL)) (CONS (PRED-ERROR (CONS (QUOTE EVALUATION) (CONS (QUOTE SHOULD) (CONS (QUOTE RETURN) (CONS (LENGTH OUTPUTS) (QUOTE (RESULTS)))))) RESULTS) (CONS (PRESULT-OK RESULTS INPUTS STATES (CONS LABEL (CONS (QUOTE LIST) (CONS OUTPUTS (QUOTE NIL))))) (QUOTE NIL))) (CONS (PRESULT-OK RESULTS INPUTS STATES (QUOTE UNKNOWN-OUTPUTS)) (QUOTE NIL)))))) (CONS (PRED-ERROR (QUOTE UNKNOWN-DUAL-EVAL-FORM) RESULTS) (QUOTE NIL)))) LISP-CODE *1*PRESULTS-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP RESULTS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP RESULTS)) (EQUAL RESULTS (QUOTE (QUOTE NIL)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP RESULTS)) (NOT (EQUAL RESULTS (QUOTE (QUOTE NIL)))) (EQUAL (CAR RESULTS) (QUOTE CONS)) (NET-ERRORP (FUNCTION-CALL-OK RESULTS (QUOTE 2)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP RESULTS)) (NOT (EQUAL RESULTS (QUOTE (QUOTE NIL)))) (EQUAL (CAR RESULTS) (QUOTE CONS)) (NOT (NET-ERRORP (FUNCTION-CALL-OK RESULTS (QUOTE 2))))) (((CAR (CDR (CDR RESULTS))) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS STATES LABEL))) (TESTS-AND-CASES ((NOT (NLISTP RESULTS)) (NOT (EQUAL RESULTS (QUOTE (QUOTE NIL)))) (NOT (EQUAL (CAR RESULTS) (QUOTE CONS))) (OR (LISTP OUTPUTS) (EQUAL OUTPUTS (QUOTE NIL)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP RESULTS)) (NOT (EQUAL RESULTS (QUOTE (QUOTE NIL)))) (NOT (EQUAL (CAR RESULTS) (QUOTE CONS))) (NOT (OR (LISTP OUTPUTS) (EQUAL OUTPUTS (QUOTE NIL))))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RESULTS) (COUNT RESULTS) LESSP (CDR-LESSP NLISTP CAR EQUAL ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PRESULTS-ERRORS) IMMEDIATE-DEPENDENTS0 (PNEW-STATES-OK PRESULTS-OK PRESULTS-ERRORS-OFF) EVENT (DEFN PRESULTS-ERRORS (RESULTS OUTPUTS OUT-DEPENDS INPUTS STATES LABEL) (IF (NLISTP RESULTS) (CONS (PRED-ERROR (QUOTE UNKNOWN-DUAL-EVAL-FORM) RESULTS) (QUOTE NIL)) (IF (EQUAL RESULTS (QUOTE (QUOTE NIL))) (CONS (NLISTP-OR-ERR OUTPUTS (CONS (QUOTE MISSING) (CONS LABEL (QUOTE (VALUES))))) (QUOTE NIL)) (IF (EQUAL (CAR RESULTS) (QUOTE CONS)) (IF (NET-ERRORP (FUNCTION-CALL-OK RESULTS (QUOTE 2))) (CONS (FUNCTION-CALL-OK RESULTS (QUOTE 2)) (QUOTE NIL)) (CONS (T-OR-ERR (OR (LISTP OUTPUTS) (NUMBERP OUTPUTS)) (QUOTE TOO-MANY-VALUES) (CONS (RESULTS-LENGTH RESULTS) (QUOTE (OR MORE EXTRAS)))) (CONS (PRESULT-OK (CAR (CDR RESULTS)) (OUT-PROP-SIGNALS (UCAR OUT-DEPENDS) INPUTS) STATES (IO-LABEL (IO-CAR OUTPUTS) LABEL)) (PRESULTS-ERRORS (CAR (CDR (CDR RESULTS))) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS STATES LABEL)))) (IF (OR (LISTP OUTPUTS) (EQUAL OUTPUTS (QUOTE NIL))) (CONS (PRED-ERROR (CONS (QUOTE EVALUATION) (CONS (QUOTE SHOULD) (CONS (QUOTE RETURN) (CONS (LENGTH OUTPUTS) (QUOTE (RESULTS)))))) RESULTS) (CONS (PRESULT-OK RESULTS INPUTS STATES (CONS LABEL (CONS (QUOTE LIST) (CONS OUTPUTS (QUOTE NIL))))) (QUOTE NIL))) (CONS (PRESULT-OK RESULTS INPUTS STATES (QUOTE UNKNOWN-OUTPUTS)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCDR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-LABEL . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCAR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 PRESULT-OK . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 RESULTS-LENGTH . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 FUNCTION-CALL-OK . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 NET-ERROR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PRESULTS-ERRORS) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRESULTS-ERRORS) (DCELL . *1*PRESULTS-ERRORS))))) (PUT1-LST (QUOTE RESULTS-LENGTH-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE RESULTS-LENGTH-OFF RESULTS-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESULTS-LENGTH . RESULTS-LENGTH-OFF) (DISABLED-LEMMAS NIL RESULTS-LENGTH RESULTS-LENGTH-OFF . T))))) (PUT1-LST (QUOTE *1*RESULTS-LENGTH) (QUOTE (MAIN-EVENT RESULTS-LENGTH))) (PUT1-LST (QUOTE RESULTS-LENGTH) (QUOTE (TYPE-PRESCRIPTION-LST ((RESULTS-LENGTH 4 NIL)) TOTALP-LST ((RESULTS-LENGTH . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE CONS)) (ADD1 (RESULTS-LENGTH (CAR (CDR (CDR X))))) (QUOTE 0)) (QUOTE 0))) LISP-CODE *1*RESULTS-LENGTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE CONS))) (((CAR (CDR (CDR X)))))) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE CONS)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*RESULTS-LENGTH) IMMEDIATE-DEPENDENTS0 (PRESULTS-ERRORS RESULTS-LENGTH-OFF) EVENT (DEFN RESULTS-LENGTH (X) (IF (NLISTP X) (QUOTE 0) (IF (EQUAL (CAR X) (QUOTE CONS)) (ADD1 (RESULTS-LENGTH (CAR (CDR (CDR X))))) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((DCELL . *1*RESULTS-LENGTH))))) (PUT1-LST (QUOTE PRESULT-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRESULT-OK-OFF PRESULT-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRESULT-OK . PRESULT-OK-OFF) (DISABLED-LEMMAS NIL PRESULT-OK PRESULT-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PRESULT-OK) (QUOTE (MAIN-EVENT PRESULT-OK))) (PUT1-LST (QUOTE PRESULT-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PRESULT-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((PRESULT-OK . T)) SDEFN (LAMBDA (RESULT SIGNALS STATES LABEL) (ERR-AND (CONS (NLISTP-OR-ERR (UNKNOWN-ARGS RESULT SIGNALS STATES (QUOTE *1*FALSE)) (QUOTE UNKNOWN-ARGS)) (PRESULT-FORM-ERRORS (CONS RESULT (QUOTE NIL)) (QUOTE *1*TRUE))) LABEL)) LISP-CODE *1*PRESULT-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*PRESULT-OK) IMMEDIATE-DEPENDENTS0 (PNEW-STATES-OK PRESULTS-ERRORS PRESULT-OK-OFF) EVENT (DEFN PRESULT-OK (RESULT SIGNALS STATES LABEL) (ERR-AND (CONS (NLISTP-OR-ERR (UNKNOWN-ARGS RESULT SIGNALS STATES (QUOTE *1*FALSE)) (QUOTE UNKNOWN-ARGS)) (PRESULT-FORM-ERRORS (CONS RESULT (QUOTE NIL)) (QUOTE *1*TRUE))) LABEL)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRESULT-FORM-ERRORS . PRESULT-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN-ARGS . PRESULT-OK) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PRESULT-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PRESULT-OK) (DCELL . *1*PRESULT-OK))))) (PUT1-LST (QUOTE PRESULT-FORM-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PRESULT-FORM-ERRORS-OFF PRESULT-FORM-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRESULT-FORM-ERRORS . PRESULT-FORM-ERRORS-OFF) (DISABLED-LEMMAS NIL PRESULT-FORM-ERRORS PRESULT-FORM-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PRESULT-FORM-ERRORS) (QUOTE (MAIN-EVENT PRESULT-FORM-ERRORS))) (PUT1-LST (QUOTE PRESULT-FORM-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PRESULT-FORM-ERRORS 4120 NIL NIL)) TOTALP-LST ((PRESULT-FORM-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (X ARG-LISTP) (IF ARG-LISTP (IF (LISTP X) (IF (NET-ERRORP (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE))) (CONS (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE)) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE))) (APPEND (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE)) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE)))) (IF (EQUAL X (QUOTE NIL)) (QUOTE NIL) (CONS (PRED-ERROR (QUOTE NOT-PROPER-LIST) X) (QUOTE NIL)))) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (IF (NET-ERRORP (FUNCTION-CALL-OK X (QUOTE 1))) (FUNCTION-CALL-OK X (QUOTE 1)) (QUOTE NIL)) (IF (EQUAL (CAR X) (QUOTE CONS)) (IF (NET-ERRORP (FUNCTION-CALL-OK X (QUOTE 2))) (FUNCTION-CALL-OK X (QUOTE 2)) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE))) (IF (NET-ERRORP (FUNCTION-CALL-OK X (QUOTE (*1*QUOTE UNKNOWN)))) (FUNCTION-CALL-OK X (QUOTE (*1*QUOTE UNKNOWN))) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE))))) (QUOTE NIL)))) LISP-CODE *1*PRESULT-FORM-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (ARG-LISTP (LISTP X) (NET-ERRORP (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE)))) (((CDR X) (QUOTE *1*TRUE)) ((CAR X) (QUOTE *1*FALSE)))) (TESTS-AND-CASES (ARG-LISTP (LISTP X) (NOT (NET-ERRORP (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE))))) (((CDR X) (QUOTE *1*TRUE)) ((CAR X) (QUOTE *1*FALSE)))) (TESTS-AND-CASES (ARG-LISTP (NOT (LISTP X)) (EQUAL X (QUOTE NIL))) NIL) (TESTS-AND-CASES (ARG-LISTP (NOT (LISTP X)) (NOT (EQUAL X (QUOTE NIL)))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (LISTP X) (NET-ERRORP (FUNCTION-CALL-OK X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE 1) (IF (EQUAL (CAR X) (QUOTE CONS)) (QUOTE 2) (QUOTE (*1*QUOTE UNKNOWN))))))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (LISTP X) (NOT (NET-ERRORP (FUNCTION-CALL-OK X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE 1) (IF (EQUAL (CAR X) (QUOTE CONS)) (QUOTE 2) (QUOTE (*1*QUOTE UNKNOWN))))))) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (LISTP X) (NOT (NET-ERRORP (FUNCTION-CALL-OK X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE 1) (IF (EQUAL (CAR X) (QUOTE CONS)) (QUOTE 2) (QUOTE (*1*QUOTE UNKNOWN))))))) (NOT (EQUAL (CAR X) (QUOTE QUOTE)))) (((CDR X) (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT ARG-LISTP) (NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP ZERO CAR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PRESULT-FORM-ERRORS) IMMEDIATE-DEPENDENTS0 (PRESULT-OK PRESULT-FORM-ERRORS-OFF) EVENT (DEFN PRESULT-FORM-ERRORS (X ARG-LISTP) (IF ARG-LISTP (IF (LISTP X) (IF (NET-ERRORP (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE))) (CONS (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE)) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE))) (APPEND (PRESULT-FORM-ERRORS (CAR X) (QUOTE *1*FALSE)) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE)))) (IF (EQUAL X (QUOTE NIL)) (QUOTE NIL) (CONS (PRED-ERROR (QUOTE NOT-PROPER-LIST) X) (QUOTE NIL)))) (IF (LISTP X) (IF (NET-ERRORP (FUNCTION-CALL-OK X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE 1) (IF (EQUAL (CAR X) (QUOTE CONS)) (QUOTE 2) (QUOTE (*1*QUOTE UNKNOWN)))))) (FUNCTION-CALL-OK X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE 1) (IF (EQUAL (CAR X) (QUOTE CONS)) (QUOTE 2) (QUOTE (*1*QUOTE UNKNOWN))))) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE NIL) (PRESULT-FORM-ERRORS (CDR X) (QUOTE *1*TRUE)))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . PRESULT-FORM-ERRORS) (IMMEDIATE-DEPENDENTS0 FUNCTION-CALL-OK . PRESULT-FORM-ERRORS) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRESULT-FORM-ERRORS) (IMMEDIATE-DEPENDENTS0 NET-ERROR . PRESULT-FORM-ERRORS) (DCELL . *1*PRESULT-FORM-ERRORS))))) (PUT1-LST (QUOTE UNKNOWN-ARGS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE UNKNOWN-ARGS-OFF UNKNOWN-ARGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN-ARGS . UNKNOWN-ARGS-OFF) (DISABLED-LEMMAS NIL UNKNOWN-ARGS UNKNOWN-ARGS-OFF . T))))) (PUT1-LST (QUOTE *1*UNKNOWN-ARGS) (QUOTE (MAIN-EVENT UNKNOWN-ARGS))) (PUT1-LST (QUOTE UNKNOWN-ARGS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN-ARGS 24 NIL NIL NIL NIL)) TOTALP-LST ((UNKNOWN-ARGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (X SIGNALS STATES ARG-LISTP) (IF ARG-LISTP (IF (LISTP X) (UNION (UNKNOWN-ARGS (CAR X) SIGNALS STATES (QUOTE *1*FALSE)) (UNKNOWN-ARGS (CDR X) SIGNALS STATES (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE NIL) (IF (LITATOM (CAR X)) (UNKNOWN-ARGS (CDR X) SIGNALS STATES (QUOTE *1*TRUE)) (QUOTE NIL))) (IF (MEMBER X SIGNALS) (QUOTE NIL) (IF (MEMBER X STATES) (QUOTE NIL) (IF (UNKNOWNP SIGNALS) (IF (NAME-OKP X) (QUOTE NIL) (CONS X (QUOTE NIL))) (IF (UNKNOWNP STATES) (IF (NAME-OKP X) (QUOTE NIL) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL))))))))) LISP-CODE *1*UNKNOWN-ARGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (ARG-LISTP (LISTP X)) (((CDR X) SIGNALS STATES (QUOTE *1*TRUE)) ((CAR X) SIGNALS STATES (QUOTE *1*FALSE)))) (TESTS-AND-CASES (ARG-LISTP (NOT (LISTP X))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NLISTP X) (OR (MEMBER X SIGNALS) (MEMBER X STATES))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NLISTP X) (NOT (OR (MEMBER X SIGNALS) (MEMBER X STATES))) (OR (UNKNOWNP SIGNALS) (UNKNOWNP STATES)) (NAME-OKP X)) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NLISTP X) (NOT (OR (MEMBER X SIGNALS) (MEMBER X STATES))) (OR (UNKNOWNP SIGNALS) (UNKNOWNP STATES)) (NOT (NAME-OKP X))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NLISTP X) (NOT (OR (MEMBER X SIGNALS) (MEMBER X STATES))) (NOT (OR (UNKNOWNP SIGNALS) (UNKNOWNP STATES)))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT ARG-LISTP) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (LITATOM (CAR X))) (((CDR X) SIGNALS STATES (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT ARG-LISTP) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (LITATOM (CAR X)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (NLISTP UNPACK LESSP-X-X CDR-LESSEQP CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*UNKNOWN-ARGS) IMMEDIATE-DEPENDENTS0 (PRESULT-OK UNKNOWN-ARGS-OFF) EVENT (DEFN UNKNOWN-ARGS (X SIGNALS STATES ARG-LISTP) (IF ARG-LISTP (IF (LISTP X) (UNION (UNKNOWN-ARGS (CAR X) SIGNALS STATES (QUOTE *1*FALSE)) (UNKNOWN-ARGS (CDR X) SIGNALS STATES (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (NLISTP X) (IF (OR (MEMBER X SIGNALS) (MEMBER X STATES)) (QUOTE NIL) (IF (OR (UNKNOWNP SIGNALS) (UNKNOWNP STATES)) (IF (NAME-OKP X) (QUOTE NIL) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (QUOTE NIL) (IF (LITATOM (CAR X)) (UNKNOWN-ARGS (CDR X) SIGNALS STATES (QUOTE *1*TRUE)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . UNKNOWN-ARGS) (IMMEDIATE-DEPENDENTS0 UNKNOWN . UNKNOWN-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . UNKNOWN-ARGS) (DCELL . *1*UNKNOWN-ARGS))))) (PUT1-LST (QUOTE PSTATE-TYPES-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PSTATE-TYPES-OK-OFF PSTATE-TYPES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPES-OK . PSTATE-TYPES-OK-OFF) (DISABLED-LEMMAS NIL PSTATE-TYPES-OK PSTATE-TYPES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PSTATE-TYPES-OK) (QUOTE (MAIN-EVENT PSTATE-TYPES-OK))) (PUT1-LST (QUOTE PSTATE-TYPES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PSTATE-TYPES-OK 4098 NIL NIL)) TOTALP-LST ((PSTATE-TYPES-OK . T)) SDEFN (LAMBDA (STATE-TYPES ALIST) (IF (LISTP (VALUE (QUOTE STATES) ALIST)) (ERR-AND (PSTATE-TYPES-ERRORS STATE-TYPES (VALUE (QUOTE STATES) ALIST) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE STATE-TYPES)) (IF (EQUAL (VALUE (QUOTE STATES) ALIST) (QUOTE NIL)) (ERR-AND (PSTATE-TYPES-ERRORS STATE-TYPES (VALUE (QUOTE STATES) ALIST) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE STATE-TYPES)) (ERR-AND (CONS (PSTATE-TYPE-OK STATE-TYPES (VALUE (QUOTE STATES) ALIST) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE NIL)) (QUOTE STATE-TYPES))))) LISP-CODE *1*PSTATE-TYPES-OK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194011 SATELLITES (*1*PSTATE-TYPES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PSTATE-TYPES-OK-OFF) EVENT (DEFN PSTATE-TYPES-OK (STATE-TYPES ALIST) (ERR-AND (IF (OR (LISTP (VALUE (QUOTE STATES) ALIST)) (EQUAL (VALUE (QUOTE STATES) ALIST) (QUOTE NIL))) (PSTATE-TYPES-ERRORS STATE-TYPES (VALUE (QUOTE STATES) ALIST) (VALUE (QUOTE PRIMP-NAME) ALIST)) (CONS (PSTATE-TYPE-OK STATE-TYPES (VALUE (QUOTE STATES) ALIST) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE NIL))) (QUOTE STATE-TYPES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPE-OK . PSTATE-TYPES-OK) (IMMEDIATE-DEPENDENTS0 PSTATE-TYPES-ERRORS . PSTATE-TYPES-OK) (IMMEDIATE-DEPENDENTS0 VALUE . PSTATE-TYPES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PSTATE-TYPES-OK) (DCELL . *1*PSTATE-TYPES-OK))))) (PUT1-LST (QUOTE PSTATE-TYPES-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PSTATE-TYPES-ERRORS-OFF PSTATE-TYPES-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPES-ERRORS . PSTATE-TYPES-ERRORS-OFF) (DISABLED-LEMMAS NIL PSTATE-TYPES-ERRORS PSTATE-TYPES-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PSTATE-TYPES-ERRORS) (QUOTE (MAIN-EVENT PSTATE-TYPES-ERRORS))) (PUT1-LST (QUOTE PSTATE-TYPES-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PSTATE-TYPES-ERRORS 16 NIL NIL NIL)) TOTALP-LST ((PSTATE-TYPES-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (TYPES STATES FNAME) (IF (LISTP TYPES) (IF (LISTP STATES) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-STATE-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PSTATE-TYPE-OK (CAR TYPES) (IO-CAR STATES) FNAME) (PSTATE-TYPES-ERRORS (CDR TYPES) (IO-CDR STATES) FNAME))) (CONS (T-OR-ERR (NUMBERP STATES) (QUOTE TOO-MANY-STATE-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PSTATE-TYPE-OK (CAR TYPES) (IO-CAR STATES) FNAME) (PSTATE-TYPES-ERRORS (CDR TYPES) (IO-CDR STATES) FNAME)))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR STATES (QUOTE STATES-WITHOUT-TYPES)) (QUOTE NIL))))) LISP-CODE *1*PSTATE-TYPES-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES)) (((CDR TYPES) (IO-CDR STATES) FNAME))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PSTATE-TYPES-ERRORS) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPES-OK PSTATE-TYPES-ERRORS-OFF) EVENT (DEFN PSTATE-TYPES-ERRORS (TYPES STATES FNAME) (IF (LISTP TYPES) (CONS (T-OR-ERR (OR (LISTP STATES) (NUMBERP STATES)) (QUOTE TOO-MANY-STATE-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PSTATE-TYPE-OK (CAR TYPES) (IO-CAR STATES) FNAME) (PSTATE-TYPES-ERRORS (CDR TYPES) (IO-CDR STATES) FNAME))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR STATES (QUOTE STATES-WITHOUT-TYPES)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 PSTATE-TYPE-OK . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PSTATE-TYPES-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PSTATE-TYPES-ERRORS) (DCELL . *1*PSTATE-TYPES-ERRORS))))) (PUT1-LST (QUOTE PSTATE-TYPE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PSTATE-TYPE-OK-OFF PSTATE-TYPE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPE-OK . PSTATE-TYPE-OK-OFF) (DISABLED-LEMMAS NIL PSTATE-TYPE-OK PSTATE-TYPE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PSTATE-TYPE-OK) (QUOTE (MAIN-EVENT PSTATE-TYPE-OK))) (PUT1-LST (QUOTE PSTATE-TYPE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PSTATE-TYPE-OK 4098 NIL NIL NIL)) TOTALP-LST ((PSTATE-TYPE-OK . T)) SDEFN (LAMBDA (TYPE STATE FNAME) (IF (LISTP TYPE) (IF (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB ADDRESSED-STATE))) (LABEL-ERROR (ONE-PSTATE-TYPE-OK TYPE) (STATE-LABEL STATE)) (ERR-AND (PSTATE-TYPE-LIST-ERRORS TYPE FNAME) (STATE-LABEL STATE))) (LABEL-ERROR (ONE-PSTATE-TYPE-OK TYPE) (STATE-LABEL STATE)))) LISP-CODE *1*PSTATE-TYPE-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*PSTATE-TYPE-OK) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPES-OK PSTATE-TYPES-ERRORS PSTATE-TYPE-OK-OFF) EVENT (DEFN PSTATE-TYPE-OK (TYPE STATE FNAME) (IF (OR (NLISTP TYPE) (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB ADDRESSED-STATE)))) (LABEL-ERROR (ONE-PSTATE-TYPE-OK TYPE) (STATE-LABEL STATE)) (ERR-AND (PSTATE-TYPE-LIST-ERRORS TYPE FNAME) (STATE-LABEL STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPE-LIST-ERRORS . PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 STATE-LABEL . PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 ONE-PSTATE-TYPE-OK . PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PSTATE-TYPE-OK) (DCELL . *1*PSTATE-TYPE-OK))))) (PUT1-LST (QUOTE PSTATE-TYPE-LIST-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PSTATE-TYPE-LIST-ERRORS-OFF PSTATE-TYPE-LIST-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATE-TYPE-LIST-ERRORS . PSTATE-TYPE-LIST-ERRORS-OFF) (DISABLED-LEMMAS NIL PSTATE-TYPE-LIST-ERRORS PSTATE-TYPE-LIST-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PSTATE-TYPE-LIST-ERRORS) (QUOTE (MAIN-EVENT PSTATE-TYPE-LIST-ERRORS))) (PUT1-LST (QUOTE PSTATE-TYPE-LIST-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PSTATE-TYPE-LIST-ERRORS 16 NIL NIL)) TOTALP-LST ((PSTATE-TYPE-LIST-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (TYPES FNAME) (IF (LISTP TYPES) (IF (EQUAL FNAME (QUOTE MEM-32X32)) (IF (MEMBER (CAR TYPES) (QUOTE (NUMBERP NUMBER-LISTP))) (PSTATE-TYPE-LIST-ERRORS (CDR TYPES) FNAME) (INSERT (ONE-PSTATE-TYPE-OK (CAR TYPES)) (PSTATE-TYPE-LIST-ERRORS (CDR TYPES) FNAME))) (INSERT (ONE-PSTATE-TYPE-OK (CAR TYPES)) (PSTATE-TYPE-LIST-ERRORS (CDR TYPES) FNAME))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LISP-CODE *1*PSTATE-TYPE-LIST-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES) (AND (EQUAL FNAME (QUOTE MEM-32X32)) (MEMBER (CAR TYPES) (QUOTE (NUMBERP NUMBER-LISTP))))) (((CDR TYPES) FNAME))) (TESTS-AND-CASES ((LISTP TYPES) (NOT (AND (EQUAL FNAME (QUOTE MEM-32X32)) (MEMBER (CAR TYPES) (QUOTE (NUMBERP NUMBER-LISTP)))))) (((CDR TYPES) FNAME))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PSTATE-TYPE-LIST-ERRORS) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPE-OK PSTATE-TYPE-LIST-ERRORS-OFF) EVENT (DEFN PSTATE-TYPE-LIST-ERRORS (TYPES FNAME) (IF (LISTP TYPES) (IF (AND (EQUAL FNAME (QUOTE MEM-32X32)) (MEMBER (CAR TYPES) (QUOTE (NUMBERP NUMBER-LISTP)))) (PSTATE-TYPE-LIST-ERRORS (CDR TYPES) FNAME) (INSERT (ONE-PSTATE-TYPE-OK (CAR TYPES)) (PSTATE-TYPE-LIST-ERRORS (CDR TYPES) FNAME))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PSTATE-TYPE-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 ONE-PSTATE-TYPE-OK . PSTATE-TYPE-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 INSERT . PSTATE-TYPE-LIST-ERRORS) (DCELL . *1*PSTATE-TYPE-LIST-ERRORS))))) (PUT1-LST (QUOTE ONE-PSTATE-TYPE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE ONE-PSTATE-TYPE-OK-OFF ONE-PSTATE-TYPE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ONE-PSTATE-TYPE-OK . ONE-PSTATE-TYPE-OK-OFF) (DISABLED-LEMMAS NIL ONE-PSTATE-TYPE-OK ONE-PSTATE-TYPE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*ONE-PSTATE-TYPE-OK) (QUOTE (MAIN-EVENT ONE-PSTATE-TYPE-OK))) (PUT1-LST (QUOTE ONE-PSTATE-TYPE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((ONE-PSTATE-TYPE-OK 4098 NIL)) TOTALP-LST ((ONE-PSTATE-TYPE-OK . T)) SDEFN (LAMBDA (TYPE) (IF (LISTP TYPE) (IF (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB))) (PMEMORY-WORD-CALL-OK TYPE) (IF (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE)) (PADDRESSED-STATE-CALL-OK TYPE) (BOOLP-LIST-OK TYPE (QUOTE BAD-TYPE-LIST)))) (LITERAL-STATE-TYPE-OK TYPE))) LISP-CODE *1*ONE-PSTATE-TYPE-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*ONE-PSTATE-TYPE-OK) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPE-OK PSTATE-TYPE-LIST-ERRORS ONE-PSTATE-TYPE-OK-OFF) EVENT (DEFN ONE-PSTATE-TYPE-OK (TYPE) (IF (NLISTP TYPE) (LITERAL-STATE-TYPE-OK TYPE) (IF (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB))) (PMEMORY-WORD-CALL-OK TYPE) (IF (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE)) (PADDRESSED-STATE-CALL-OK TYPE) (BOOLP-LIST-OK TYPE (QUOTE BAD-TYPE-LIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LIST-OK . ONE-PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 PADDRESSED-STATE-CALL-OK . ONE-PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 PMEMORY-WORD-CALL-OK . ONE-PSTATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 LITERAL-STATE-TYPE-OK . ONE-PSTATE-TYPE-OK) (DCELL . *1*ONE-PSTATE-TYPE-OK))))) (PUT1-LST (QUOTE PADDRESSED-STATE-CALL-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PADDRESSED-STATE-CALL-OK-OFF PADDRESSED-STATE-CALL-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PADDRESSED-STATE-CALL-OK . PADDRESSED-STATE-CALL-OK-OFF) (DISABLED-LEMMAS NIL PADDRESSED-STATE-CALL-OK PADDRESSED-STATE-CALL-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PADDRESSED-STATE-CALL-OK) (QUOTE (MAIN-EVENT PADDRESSED-STATE-CALL-OK))) (PUT1-LST (QUOTE PADDRESSED-STATE-CALL-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PADDRESSED-STATE-CALL-OK 4098 NIL)) TOTALP-LST ((PADDRESSED-STATE-CALL-OK . T)) SDEFN (LAMBDA (TYPE) (IF (LISTP TYPE) (IF (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE)) (IF (NET-ERRORP (FUNCTION-CALL-OK TYPE (QUOTE 2))) (FUNCTION-CALL-OK TYPE (QUOTE 2)) (ERR-AND (CONS (T-OR-ERR (NUMBERP (CAR (CDR TYPE))) (QUOTE ADDRESS-BITS-NOT-NUMBER) (CAR (CDR TYPE))) (CONS (PMEMORY-WORD-CALL-OK (CAR (CDR (CDR TYPE)))) (QUOTE NIL))) (QUOTE (BAD ADDRESSED-STATE CALL)))) (PRED-ERROR (QUOTE NOT-ADDRESSED-STATE-CALL) TYPE)) (PRED-ERROR (QUOTE NOT-ADDRESSED-STATE-CALL) TYPE))) LISP-CODE *1*PADDRESSED-STATE-CALL-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PADDRESSED-STATE-CALL-OK) IMMEDIATE-DEPENDENTS0 (ONE-PSTATE-TYPE-OK PADDRESSED-STATE-CALL-OK-OFF) EVENT (DEFN PADDRESSED-STATE-CALL-OK (TYPE) (IF (AND (LISTP TYPE) (EQUAL (CAR TYPE) (QUOTE ADDRESSED-STATE))) (IF (NET-ERRORP (FUNCTION-CALL-OK TYPE (QUOTE 2))) (FUNCTION-CALL-OK TYPE (QUOTE 2)) (ERR-AND (CONS (T-OR-ERR (NUMBERP (CAR (CDR TYPE))) (QUOTE ADDRESS-BITS-NOT-NUMBER) (CAR (CDR TYPE))) (CONS (PMEMORY-WORD-CALL-OK (CAR (CDR (CDR TYPE)))) (QUOTE NIL))) (QUOTE (BAD ADDRESSED-STATE CALL)))) (PRED-ERROR (QUOTE NOT-ADDRESSED-STATE-CALL) TYPE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . PADDRESSED-STATE-CALL-OK) (IMMEDIATE-DEPENDENTS0 PMEMORY-WORD-CALL-OK . PADDRESSED-STATE-CALL-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PADDRESSED-STATE-CALL-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PADDRESSED-STATE-CALL-OK) (IMMEDIATE-DEPENDENTS0 FUNCTION-CALL-OK . PADDRESSED-STATE-CALL-OK) (IMMEDIATE-DEPENDENTS0 NET-ERROR . PADDRESSED-STATE-CALL-OK) (DCELL . *1*PADDRESSED-STATE-CALL-OK))))) (PUT1-LST (QUOTE PMEMORY-WORD-CALL-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PMEMORY-WORD-CALL-OK-OFF PMEMORY-WORD-CALL-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PMEMORY-WORD-CALL-OK . PMEMORY-WORD-CALL-OK-OFF) (DISABLED-LEMMAS NIL PMEMORY-WORD-CALL-OK PMEMORY-WORD-CALL-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PMEMORY-WORD-CALL-OK) (QUOTE (MAIN-EVENT PMEMORY-WORD-CALL-OK))) (PUT1-LST (QUOTE PMEMORY-WORD-CALL-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PMEMORY-WORD-CALL-OK 4098 NIL)) TOTALP-LST ((PMEMORY-WORD-CALL-OK . T)) SDEFN (LAMBDA (TYPE) (IF (LISTP TYPE) (IF (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB))) (IF (NET-ERRORP (FUNCTION-CALL-OK TYPE (QUOTE 1))) (FUNCTION-CALL-OK TYPE (QUOTE 1)) (IF (EQUAL (CAR (CAR (CDR TYPE))) (QUOTE QUOTE)) (IF (NET-ERRORP (FUNCTION-CALL-OK (CAR (CDR TYPE)) (QUOTE 1))) (LABEL-ERROR (FUNCTION-CALL-OK (CAR (CDR TYPE)) (QUOTE 1)) (CONS (QUOTE BAD) (CONS (CAR TYPE) (QUOTE (CALL))))) (LABEL-ERROR (BOOLP-LIST-OK (CAR (CDR (CAR (CDR TYPE)))) (QUOTE BAD-MEMORY-BIT-TYPES)) (CONS (QUOTE BAD) (CONS (CAR TYPE) (QUOTE (CALL)))))) (LABEL-ERROR (PRED-ERROR (QUOTE UNKNOWN-MEMORY-BITS-CALL) (CAR (CDR TYPE))) (CONS (QUOTE BAD) (CONS (CAR TYPE) (QUOTE (CALL))))))) (PRED-ERROR (QUOTE NOT-MEMORY-WORD-CALL) TYPE)) (PRED-ERROR (QUOTE NOT-MEMORY-WORD-CALL) TYPE))) LISP-CODE *1*PMEMORY-WORD-CALL-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PMEMORY-WORD-CALL-OK) IMMEDIATE-DEPENDENTS0 (ONE-PSTATE-TYPE-OK PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK-OFF) EVENT (DEFN PMEMORY-WORD-CALL-OK (TYPE) (IF (AND (LISTP TYPE) (MEMBER (CAR TYPE) (QUOTE (RAM ROM STUB)))) (IF (NET-ERRORP (FUNCTION-CALL-OK TYPE (QUOTE 1))) (FUNCTION-CALL-OK TYPE (QUOTE 1)) (LABEL-ERROR (IF (EQUAL (CAR (CAR (CDR TYPE))) (QUOTE QUOTE)) (IF (NET-ERRORP (FUNCTION-CALL-OK (CAR (CDR TYPE)) (QUOTE 1))) (FUNCTION-CALL-OK (CAR (CDR TYPE)) (QUOTE 1)) (BOOLP-LIST-OK (CAR (CDR (CAR (CDR TYPE)))) (QUOTE BAD-MEMORY-BIT-TYPES))) (PRED-ERROR (QUOTE UNKNOWN-MEMORY-BITS-CALL) (CAR (CDR TYPE)))) (CONS (QUOTE BAD) (CONS (CAR TYPE) (QUOTE (CALL)))))) (PRED-ERROR (QUOTE NOT-MEMORY-WORD-CALL) TYPE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . PMEMORY-WORD-CALL-OK) (IMMEDIATE-DEPENDENTS0 BOOLP-LIST-OK . PMEMORY-WORD-CALL-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PMEMORY-WORD-CALL-OK) (IMMEDIATE-DEPENDENTS0 FUNCTION-CALL-OK . PMEMORY-WORD-CALL-OK) (IMMEDIATE-DEPENDENTS0 NET-ERROR . PMEMORY-WORD-CALL-OK) (DCELL . *1*PMEMORY-WORD-CALL-OK))))) (PUT1-LST (QUOTE LITERAL-STATE-TYPE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE LITERAL-STATE-TYPE-OK-OFF LITERAL-STATE-TYPE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-STATE-TYPE-OK . LITERAL-STATE-TYPE-OK-OFF) (DISABLED-LEMMAS NIL LITERAL-STATE-TYPE-OK LITERAL-STATE-TYPE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LITERAL-STATE-TYPE-OK) (QUOTE (MAIN-EVENT LITERAL-STATE-TYPE-OK))) (PUT1-LST (QUOTE LITERAL-STATE-TYPE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LITERAL-STATE-TYPE-OK 4098 NIL)) TOTALP-LST ((LITERAL-STATE-TYPE-OK . T)) SDEFN (LAMBDA (TYPE) (IF (RAMP TYPE) (BOOLP-LIST-OK (RAM-GUTS TYPE) (QUOTE BAD-RAM-TYPE)) (IF (ROMP TYPE) (BOOLP-LIST-OK (ROM-GUTS TYPE) (QUOTE BAD-ROM-TYPE)) (IF (STUBP TYPE) (BOOLP-LIST-OK (STUB-GUTS TYPE) (QUOTE BAD-STUB-TYPE)) (T-OR-ERR (EQUAL TYPE (QUOTE BOOLP)) (QUOTE UNKNOWN-TYPE) TYPE))))) LISP-CODE *1*LITERAL-STATE-TYPE-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*LITERAL-STATE-TYPE-OK) IMMEDIATE-DEPENDENTS0 (ONE-PSTATE-TYPE-OK LITERAL-STATE-TYPE-OK-OFF) EVENT (DEFN LITERAL-STATE-TYPE-OK (TYPE) (IF (RAMP TYPE) (BOOLP-LIST-OK (RAM-GUTS TYPE) (QUOTE BAD-RAM-TYPE)) (IF (ROMP TYPE) (BOOLP-LIST-OK (ROM-GUTS TYPE) (QUOTE BAD-ROM-TYPE)) (IF (STUBP TYPE) (BOOLP-LIST-OK (STUB-GUTS TYPE) (QUOTE BAD-STUB-TYPE)) (T-OR-ERR (EQUAL TYPE (QUOTE BOOLP)) (QUOTE UNKNOWN-TYPE) TYPE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-ERR . LITERAL-STATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 STUB . LITERAL-STATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 ROM . LITERAL-STATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 RAM . LITERAL-STATE-TYPE-OK) (IMMEDIATE-DEPENDENTS0 BOOLP-LIST-OK . LITERAL-STATE-TYPE-OK) (DCELL . *1*LITERAL-STATE-TYPE-OK))))) (PUT1-LST (QUOTE BOOLP-LIST-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE BOOLP-LIST-OK-OFF BOOLP-LIST-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LIST-OK . BOOLP-LIST-OK-OFF) (DISABLED-LEMMAS NIL BOOLP-LIST-OK BOOLP-LIST-OK-OFF . T))))) (PUT1-LST (QUOTE *1*BOOLP-LIST-OK) (QUOTE (MAIN-EVENT BOOLP-LIST-OK))) (PUT1-LST (QUOTE BOOLP-LIST-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((BOOLP-LIST-OK 4098 NIL NIL)) TOTALP-LST ((BOOLP-LIST-OK . T)) SDEFN (LAMBDA (LST LABEL) (ERR-AND (CONS (NLISTP-OR-ERR (REMOVE-DUPLICATES (DELETE* (QUOTE BOOLP) LST)) (QUOTE NOT-BOOLP)) (CONS (NIL-OR-ERR (LAST-CDR LST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) LABEL)) LISP-CODE *1*BOOLP-LIST-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*BOOLP-LIST-OK) IMMEDIATE-DEPENDENTS0 (ONE-PSTATE-TYPE-OK PMEMORY-WORD-CALL-OK LITERAL-STATE-TYPE-OK BOOLP-LIST-OK-OFF) EVENT (DEFN BOOLP-LIST-OK (LST LABEL) (ERR-AND (CONS (NLISTP-OR-ERR (REMOVE-DUPLICATES (DELETE* (QUOTE BOOLP) LST)) (QUOTE NOT-BOOLP)) (CONS (NIL-OR-ERR (LAST-CDR LST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) LABEL)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . BOOLP-LIST-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . BOOLP-LIST-OK) (IMMEDIATE-DEPENDENTS0 DELETE* . BOOLP-LIST-OK) (IMMEDIATE-DEPENDENTS0 REMOVE-DUPLICATES . BOOLP-LIST-OK) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . BOOLP-LIST-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . BOOLP-LIST-OK) (DCELL . *1*BOOLP-LIST-OK))))) (PUT1-LST (QUOTE ADDRESSED-STATE-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE ADDRESSED-STATE-OFF ADDRESSED-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDRESSED-STATE . ADDRESSED-STATE-OFF) (DISABLED-LEMMAS NIL ADDRESSED-STATE ADDRESSED-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*ADDRESSED-STATE) (QUOTE (MAIN-EVENT ADDRESSED-STATE))) (PUT1-LST (QUOTE ADDRESSED-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDRESSED-STATE 16 NIL T)) TOTALP-LST ((ADDRESSED-STATE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (ADDRESS-BITS WORD-VALUE) (IF (EQUAL ADDRESS-BITS (QUOTE 0)) WORD-VALUE (IF (NUMBERP ADDRESS-BITS) (CONS (ADDRESSED-STATE (SUB1 ADDRESS-BITS) WORD-VALUE) (ADDRESSED-STATE (SUB1 ADDRESS-BITS) WORD-VALUE)) WORD-VALUE))) LISP-CODE *1*ADDRESSED-STATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP ADDRESS-BITS)) NIL) (TESTS-AND-CASES ((NOT (ZEROP ADDRESS-BITS))) (((SUB1 ADDRESS-BITS) WORD-VALUE)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (ADDRESS-BITS) (COUNT ADDRESS-BITS) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*ADDRESSED-STATE) IMMEDIATE-DEPENDENTS0 (ADDRESSED-STATE-OFF) EVENT (DEFN ADDRESSED-STATE (ADDRESS-BITS WORD-VALUE) (IF (ZEROP ADDRESS-BITS) WORD-VALUE (CONS (ADDRESSED-STATE (SUB1 ADDRESS-BITS) WORD-VALUE) (ADDRESSED-STATE (SUB1 ADDRESS-BITS) WORD-VALUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . ADDRESSED-STATE) (DCELL . *1*ADDRESSED-STATE))))) (PUT1-LST (QUOTE PSTATES-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PSTATES-OK-OFF PSTATES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PSTATES-OK . PSTATES-OK-OFF) (DISABLED-LEMMAS NIL PSTATES-OK PSTATES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PSTATES-OK) (QUOTE (MAIN-EVENT PSTATES-OK))) (PUT1-LST (QUOTE PSTATES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PSTATES-OK 4098 NIL)) TOTALP-LST ((PSTATES-OK . T)) SDEFN (LAMBDA (STATES) (IF (LISTP STATES) (ERR-AND (CONS (T-OR-ERR (LISTP (CDR STATES)) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) STATES) (NAME-LIST-ERRORS STATES (QUOTE *1*FALSE))) (QUOTE STATES)) (IF (EQUAL STATES (QUOTE NIL)) (QUOTE *1*TRUE) (T-OR-ERR (NAME-OKP STATES) (QUOTE STATES) (CONS (QUOTE BAD-NAME) (CONS STATES (QUOTE NIL))))))) LISP-CODE *1*PSTATES-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PSTATES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PSTATES-OK-OFF) EVENT (DEFN PSTATES-OK (STATES) (IF (LISTP STATES) (ERR-AND (CONS (T-OR-ERR (LISTP (CDR STATES)) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) STATES) (NAME-LIST-ERRORS STATES (QUOTE *1*FALSE))) (QUOTE STATES)) (IF (EQUAL STATES (QUOTE NIL)) (QUOTE *1*TRUE) (T-OR-ERR (NAME-OKP STATES) (QUOTE STATES) (CONS (QUOTE BAD-NAME) (CONS STATES (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . PSTATES-OK) (IMMEDIATE-DEPENDENTS0 NAME-LIST-ERRORS . PSTATES-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PSTATES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PSTATES-OK) (DCELL . *1*PSTATES-OK))))) (PUT1-LST (QUOTE POUT-DEPENDS-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE POUT-DEPENDS-OK-OFF POUT-DEPENDS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-OK . POUT-DEPENDS-OK-OFF) (DISABLED-LEMMAS NIL POUT-DEPENDS-OK POUT-DEPENDS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-OK) (QUOTE (MAIN-EVENT POUT-DEPENDS-OK))) (PUT1-LST (QUOTE POUT-DEPENDS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-DEPENDS-OK 4098 NIL NIL)) TOTALP-LST ((POUT-DEPENDS-OK . T)) SDEFN (LAMBDA (OUT-DEPENDS ALIST) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (POUT-DEPENDS-ERRORS OUT-DEPENDS (QUOTE 1) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE OUT-DEPENDS)) (ERR-AND (POUT-DEPENDS-ERRORS OUT-DEPENDS (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE OUT-DEPENDS)))) LISP-CODE *1*POUT-DEPENDS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*POUT-DEPENDS-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK POUT-DEPENDS-OK-OFF) EVENT (DEFN POUT-DEPENDS-OK (OUT-DEPENDS ALIST) (ERR-AND (POUT-DEPENDS-ERRORS OUT-DEPENDS (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE OUT-DEPENDS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . POUT-DEPENDS-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . POUT-DEPENDS-OK) (IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-ERRORS . POUT-DEPENDS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . POUT-DEPENDS-OK) (DCELL . *1*POUT-DEPENDS-OK))))) (PUT1-LST (QUOTE POUT-DEPENDS-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE POUT-DEPENDS-ERRORS-OFF POUT-DEPENDS-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-ERRORS . POUT-DEPENDS-ERRORS-OFF) (DISABLED-LEMMAS NIL POUT-DEPENDS-ERRORS POUT-DEPENDS-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-ERRORS) (QUOTE (MAIN-EVENT POUT-DEPENDS-ERRORS))) (PUT1-LST (QUOTE POUT-DEPENDS-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-DEPENDS-ERRORS 16 NIL NIL NIL)) TOTALP-LST ((POUT-DEPENDS-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (OUT-DEPENDS OUTPUTS INPUTS) (IF (LISTP OUT-DEPENDS) (IF (LISTP OUTPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-OUT-DEPENDS) (CONS (LENGTH OUT-DEPENDS) (QUOTE (EXTRAS)))) (CONS (POUT-DEPENDS-ONE-OK (CAR OUT-DEPENDS) (IO-CAR OUTPUTS) INPUTS) (POUT-DEPENDS-ERRORS (CDR OUT-DEPENDS) (IO-CDR OUTPUTS) INPUTS))) (CONS (T-OR-ERR (NUMBERP OUTPUTS) (QUOTE TOO-MANY-OUT-DEPENDS) (CONS (LENGTH OUT-DEPENDS) (QUOTE (EXTRAS)))) (CONS (POUT-DEPENDS-ONE-OK (CAR OUT-DEPENDS) (IO-CAR OUTPUTS) INPUTS) (POUT-DEPENDS-ERRORS (CDR OUT-DEPENDS) (IO-CDR OUTPUTS) INPUTS)))) (CONS (NIL-OR-ERR OUT-DEPENDS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-OUT-DEPENDS)) (QUOTE NIL))))) LISP-CODE *1*POUT-DEPENDS-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUT-DEPENDS)) (((CDR OUT-DEPENDS) (IO-CDR OUTPUTS) INPUTS))) (TESTS-AND-CASES ((NOT (LISTP OUT-DEPENDS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (OUT-DEPENDS) (COUNT OUT-DEPENDS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*POUT-DEPENDS-ERRORS) IMMEDIATE-DEPENDENTS0 (POUT-DEPENDS-OK POUT-DEPENDS-ERRORS-OFF) EVENT (DEFN POUT-DEPENDS-ERRORS (OUT-DEPENDS OUTPUTS INPUTS) (IF (LISTP OUT-DEPENDS) (CONS (T-OR-ERR (OR (LISTP OUTPUTS) (NUMBERP OUTPUTS)) (QUOTE TOO-MANY-OUT-DEPENDS) (CONS (LENGTH OUT-DEPENDS) (QUOTE (EXTRAS)))) (CONS (POUT-DEPENDS-ONE-OK (CAR OUT-DEPENDS) (IO-CAR OUTPUTS) INPUTS) (POUT-DEPENDS-ERRORS (CDR OUT-DEPENDS) (IO-CDR OUTPUTS) INPUTS))) (CONS (NIL-OR-ERR OUT-DEPENDS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-OUT-DEPENDS)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-ONE-OK . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . POUT-DEPENDS-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . POUT-DEPENDS-ERRORS) (DCELL . *1*POUT-DEPENDS-ERRORS))))) (PUT1-LST (QUOTE POUT-DEPENDS-ONE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE POUT-DEPENDS-ONE-OK-OFF POUT-DEPENDS-ONE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-DEPENDS-ONE-OK . POUT-DEPENDS-ONE-OK-OFF) (DISABLED-LEMMAS NIL POUT-DEPENDS-ONE-OK POUT-DEPENDS-ONE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-ONE-OK) (QUOTE (MAIN-EVENT POUT-DEPENDS-ONE-OK))) (PUT1-LST (QUOTE POUT-DEPENDS-ONE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-DEPENDS-ONE-OK 4098 NIL NIL NIL)) TOTALP-LST ((POUT-DEPENDS-ONE-OK . T)) SDEFN (LAMBDA (OUT-DEPENDS OUTPUT INPUTS) (IF (UNKNOWNP INPUTS) (NAME-LIST-OK OUT-DEPENDS (OUTPUT-LABEL OUTPUT) (QUOTE *1*FALSE)) (ERR-AND (CONS (SUBSET-OR-ERR OUT-DEPENDS INPUTS (QUOTE UNKNOWN-OUTPUT-DEPENDENCIES)) (CONS (NO-DUPLICATES-OR-ERR OUT-DEPENDS (QUOTE DUPLICATES)) (CONS (NIL-OR-ERR (LAST-CDR OUT-DEPENDS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)))) LISP-CODE *1*POUT-DEPENDS-ONE-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*POUT-DEPENDS-ONE-OK) IMMEDIATE-DEPENDENTS0 (POUT-DEPENDS-ERRORS POUT-DEPENDS-ONE-OK-OFF) EVENT (DEFN POUT-DEPENDS-ONE-OK (OUT-DEPENDS OUTPUT INPUTS) (IF (UNKNOWNP INPUTS) (NAME-LIST-OK OUT-DEPENDS (OUTPUT-LABEL OUTPUT) (QUOTE *1*FALSE)) (ERR-AND (CONS (SUBSET-OR-ERR OUT-DEPENDS INPUTS (QUOTE UNKNOWN-OUTPUT-DEPENDENCIES)) (CONS (NO-DUPLICATES-OR-ERR OUT-DEPENDS (QUOTE DUPLICATES)) (CONS (NIL-OR-ERR (LAST-CDR OUT-DEPENDS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 SUBSET-OR-ERR . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 OUTPUT-LABEL . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . POUT-DEPENDS-ONE-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . POUT-DEPENDS-ONE-OK) (DCELL . *1*POUT-DEPENDS-ONE-OK))))) (PUT1-LST (QUOTE PLSI-NAME-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PLSI-NAME-OK-OFF PLSI-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLSI-NAME-OK . PLSI-NAME-OK-OFF) (DISABLED-LEMMAS NIL PLSI-NAME-OK PLSI-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PLSI-NAME-OK) (QUOTE (MAIN-EVENT PLSI-NAME-OK))) (PUT1-LST (QUOTE PLSI-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PLSI-NAME-OK 4098 NIL NIL)) TOTALP-LST ((PLSI-NAME-OK . T)) SDEFN (LAMBDA (LSI-NAME-ENTRY ALIST) (IF (LISTP LSI-NAME-ENTRY) (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (ERR-AND (CONS (LSI-NAME-OK (CAR LSI-NAME-ENTRY) (QUOTE 64)) (QUOTE (*1*TRUE *1*TRUE))) (QUOTE LSI-NAME)) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (CONS (LSI-NAME-OK (CAR LSI-NAME-ENTRY) (QUOTE 64)) (CONS (T-OR-ERR (SET-EQUAL (CDR LSI-NAME-ENTRY) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE INPUT-CONFLICT) (CONS (CONS (QUOTE INPUTS) (CONS (VALUE (QUOTE INPUTS) ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE LSI-INPUTS) (CONS (CDR LSI-NAME-ENTRY) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE (*1*TRUE)))) (QUOTE LSI-NAME)) (ERR-AND (CONS (LSI-NAME-OK (CAR LSI-NAME-ENTRY) (QUOTE 64)) (CONS (T-OR-ERR (SET-EQUAL (CDR LSI-NAME-ENTRY) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE INPUT-CONFLICT) (CONS (CONS (QUOTE INPUTS) (CONS (VALUE (QUOTE INPUTS) ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE LSI-INPUTS) (CONS (CDR LSI-NAME-ENTRY) (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (EQUAL (LISTP (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST))) (IS-HEAD (UNPACK (QUOTE BD)) (UNPACK (CAR LSI-NAME-ENTRY)))) (QUOTE BIDIRECT-CONFLICT) (CONS (CONS (QUOTE LSI-NAME) (CONS (CAR LSI-NAME-ENTRY) (QUOTE NIL))) (CONS (CONS (QUOTE IO-SIGNALS) (CONS (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE NIL)))) (QUOTE LSI-NAME)))) (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (ERR-AND (CONS (LSI-NAME-OK LSI-NAME-ENTRY (QUOTE 64)) (QUOTE (*1*TRUE *1*TRUE))) (QUOTE LSI-NAME)) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (CONS (LSI-NAME-OK LSI-NAME-ENTRY (QUOTE 64)) (QUOTE (*1*TRUE *1*TRUE))) (QUOTE LSI-NAME)) (ERR-AND (CONS (LSI-NAME-OK LSI-NAME-ENTRY (QUOTE 64)) (CONS (QUOTE *1*TRUE) (CONS (T-OR-ERR (EQUAL (LISTP (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST))) (IS-HEAD (UNPACK (QUOTE BD)) (UNPACK LSI-NAME-ENTRY))) (QUOTE BIDIRECT-CONFLICT) (CONS (CONS (QUOTE LSI-NAME) (CONS LSI-NAME-ENTRY (QUOTE NIL))) (CONS (CONS (QUOTE IO-SIGNALS) (CONS (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE NIL)))) (QUOTE LSI-NAME)))))) LISP-CODE *1*PLSI-NAME-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PLSI-NAME-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PLSI-NAME-OK-OFF) EVENT (DEFN PLSI-NAME-OK (LSI-NAME-ENTRY ALIST) (ERR-AND (CONS (LSI-NAME-OK (IF (LISTP LSI-NAME-ENTRY) (CAR LSI-NAME-ENTRY) LSI-NAME-ENTRY) (QUOTE 64)) (CONS (IF (OR (NLISTP LSI-NAME-ENTRY) (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST))) (QUOTE *1*TRUE) (T-OR-ERR (SET-EQUAL (CDR LSI-NAME-ENTRY) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE INPUT-CONFLICT) (CONS (CONS (QUOTE INPUTS) (CONS (VALUE (QUOTE INPUTS) ALIST) (QUOTE NIL))) (CONS (CONS (QUOTE LSI-INPUTS) (CONS (CDR LSI-NAME-ENTRY) (QUOTE NIL))) (QUOTE NIL))))) (CONS (IF (OR (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST))) (QUOTE *1*TRUE) (T-OR-ERR (EQUAL (LISTP (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST))) (IS-HEAD (UNPACK (QUOTE BD)) (UNPACK (IF (LISTP LSI-NAME-ENTRY) (CAR LSI-NAME-ENTRY) LSI-NAME-ENTRY)))) (QUOTE BIDIRECT-CONFLICT) (CONS (CONS (QUOTE LSI-NAME) (CONS (IF (LISTP LSI-NAME-ENTRY) (CAR LSI-NAME-ENTRY) LSI-NAME-ENTRY) (QUOTE NIL))) (CONS (CONS (QUOTE IO-SIGNALS) (CONS (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE NIL))) (QUOTE NIL))))) (QUOTE NIL)))) (QUOTE LSI-NAME))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IS-HEAD . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 INTERSECTION . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 SET-EQUAL . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 VALUE . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 LSI-NAME-OK . PLSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PLSI-NAME-OK) (DCELL . *1*PLSI-NAME-OK))))) (PUT1-LST (QUOTE PLOADINGS-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PLOADINGS-OK-OFF PLOADINGS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLOADINGS-OK . PLOADINGS-OK-OFF) (DISABLED-LEMMAS NIL PLOADINGS-OK PLOADINGS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PLOADINGS-OK) (QUOTE (MAIN-EVENT PLOADINGS-OK))) (PUT1-LST (QUOTE PLOADINGS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PLOADINGS-OK 4098 NIL NIL)) TOTALP-LST ((PLOADINGS-OK . T)) SDEFN (LAMBDA (LOADINGS ALIST) (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (ERR-AND (PLOADINGS-ERRORS LOADINGS (QUOTE 1) (VALUE (QUOTE INPUT-TYPES) ALIST)) (QUOTE LOADINGS)) (ERR-AND (PLOADINGS-ERRORS LOADINGS (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE INPUT-TYPES) ALIST)) (QUOTE LOADINGS)))) LISP-CODE *1*PLOADINGS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PLOADINGS-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PLOADINGS-OK-OFF) EVENT (DEFN PLOADINGS-OK (LOADINGS ALIST) (ERR-AND (PLOADINGS-ERRORS LOADINGS (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE INPUTS) ALIST)) (VALUE (QUOTE INPUT-TYPES) ALIST)) (QUOTE LOADINGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . PLOADINGS-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PLOADINGS-OK) (IMMEDIATE-DEPENDENTS0 PLOADINGS-ERRORS . PLOADINGS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PLOADINGS-OK) (DCELL . *1*PLOADINGS-OK))))) (PUT1-LST (QUOTE PLOADINGS-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PLOADINGS-ERRORS-OFF PLOADINGS-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLOADINGS-ERRORS . PLOADINGS-ERRORS-OFF) (DISABLED-LEMMAS NIL PLOADINGS-ERRORS PLOADINGS-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PLOADINGS-ERRORS) (QUOTE (MAIN-EVENT PLOADINGS-ERRORS))) (PUT1-LST (QUOTE PLOADINGS-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PLOADINGS-ERRORS 16 NIL NIL NIL)) TOTALP-LST ((PLOADINGS-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (LOADINGS INPUTS TYPES) (IF (LISTP LOADINGS) (IF (LISTP INPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-LOADINGS) (CONS (LENGTH LOADINGS) (QUOTE (EXTRAS)))) (CONS (PLOADING-OK (CAR LOADINGS) (IO-CAR INPUTS) (UCAR TYPES)) (PLOADINGS-ERRORS (CDR LOADINGS) (IO-CDR INPUTS) (UCDR TYPES)))) (CONS (T-OR-ERR (NUMBERP INPUTS) (QUOTE TOO-MANY-LOADINGS) (CONS (LENGTH LOADINGS) (QUOTE (EXTRAS)))) (CONS (PLOADING-OK (CAR LOADINGS) (IO-CAR INPUTS) (UCAR TYPES)) (PLOADINGS-ERRORS (CDR LOADINGS) (IO-CDR INPUTS) (UCDR TYPES))))) (CONS (NIL-OR-ERR LOADINGS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR INPUTS (QUOTE INPUTS-WITHOUT-LOADINGS)) (QUOTE NIL))))) LISP-CODE *1*PLOADINGS-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LOADINGS)) (((CDR LOADINGS) (IO-CDR INPUTS) (UCDR TYPES)))) (TESTS-AND-CASES ((NOT (LISTP LOADINGS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LOADINGS) (COUNT LOADINGS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PLOADINGS-ERRORS) IMMEDIATE-DEPENDENTS0 (PLOADINGS-OK PLOADINGS-ERRORS-OFF) EVENT (DEFN PLOADINGS-ERRORS (LOADINGS INPUTS TYPES) (IF (LISTP LOADINGS) (CONS (T-OR-ERR (OR (LISTP INPUTS) (NUMBERP INPUTS)) (QUOTE TOO-MANY-LOADINGS) (CONS (LENGTH LOADINGS) (QUOTE (EXTRAS)))) (CONS (PLOADING-OK (CAR LOADINGS) (IO-CAR INPUTS) (UCAR TYPES)) (PLOADINGS-ERRORS (CDR LOADINGS) (IO-CDR INPUTS) (UCDR TYPES)))) (CONS (NIL-OR-ERR LOADINGS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR INPUTS (QUOTE INPUTS-WITHOUT-LOADINGS)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCDR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCAR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 PLOADING-OK . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PLOADINGS-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PLOADINGS-ERRORS) (DCELL . *1*PLOADINGS-ERRORS))))) (PUT1-LST (QUOTE PLOADING-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PLOADING-OK-OFF PLOADING-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLOADING-OK . PLOADING-OK-OFF) (DISABLED-LEMMAS NIL PLOADING-OK PLOADING-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PLOADING-OK) (QUOTE (MAIN-EVENT PLOADING-OK))) (PUT1-LST (QUOTE PLOADING-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PLOADING-OK 4098 NIL NIL NIL)) TOTALP-LST ((PLOADING-OK . T)) SDEFN (LAMBDA (LOADING INPUT TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE))) (LABEL-ERROR (T-OR-ERR (NUMBERP LOADING) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (INPUT-LABEL INPUT)) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (LABEL-ERROR (T-OR-ERR (PFP LOADING) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (INPUT-LABEL INPUT)) (IF (NUMBERP LOADING) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (INPUT-LABEL INPUT)) (LABEL-ERROR (T-OR-ERR (PFP LOADING) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (INPUT-LABEL INPUT)))))) LISP-CODE *1*PLOADING-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194011 SATELLITES (*1*PLOADING-OK) IMMEDIATE-DEPENDENTS0 (PLOADINGS-ERRORS PLOADING-OK-OFF) EVENT (DEFN PLOADING-OK (LOADING INPUT TYPE) (LABEL-ERROR (T-OR-ERR (IF (MEMBER TYPE (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE))) (NUMBERP LOADING) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (PFP LOADING) (OR (NUMBERP LOADING) (PFP LOADING)))) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (INPUT-LABEL INPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-LABEL . PLOADING-OK) (IMMEDIATE-DEPENDENTS0 PFP . PLOADING-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PLOADING-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PLOADING-OK) (DCELL . *1*PLOADING-OK))))) (PUT1-LST (QUOTE PDRIVES-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDRIVES-OK-OFF PDRIVES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDRIVES-OK . PDRIVES-OK-OFF) (DISABLED-LEMMAS NIL PDRIVES-OK PDRIVES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PDRIVES-OK) (QUOTE (MAIN-EVENT PDRIVES-OK))) (PUT1-LST (QUOTE PDRIVES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PDRIVES-OK 4098 NIL NIL)) TOTALP-LST ((PDRIVES-OK . T)) SDEFN (LAMBDA (DRIVES ALIST) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (PDRIVES-ERRORS DRIVES (QUOTE 1) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DRIVES)) (ERR-AND (PDRIVES-ERRORS DRIVES (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DRIVES)))) LISP-CODE *1*PDRIVES-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*PDRIVES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PDRIVES-OK-OFF) EVENT (DEFN PDRIVES-OK (DRIVES ALIST) (ERR-AND (PDRIVES-ERRORS DRIVES (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DRIVES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . PDRIVES-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PDRIVES-OK) (IMMEDIATE-DEPENDENTS0 PDRIVES-ERRORS . PDRIVES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PDRIVES-OK) (DCELL . *1*PDRIVES-OK))))) (PUT1-LST (QUOTE PDRIVES-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDRIVES-ERRORS-OFF PDRIVES-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDRIVES-ERRORS . PDRIVES-ERRORS-OFF) (DISABLED-LEMMAS NIL PDRIVES-ERRORS PDRIVES-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PDRIVES-ERRORS) (QUOTE (MAIN-EVENT PDRIVES-ERRORS))) (PUT1-LST (QUOTE PDRIVES-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PDRIVES-ERRORS 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((PDRIVES-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DRIVES OUTPUTS TYPES OUT-DEPENDS INPUTS) (IF (LISTP DRIVES) (IF (LISTP OUTPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-DRIVES) (CONS (LENGTH DRIVES) (QUOTE (EXTRAS)))) (CONS (PDRIVE-OK (CAR DRIVES) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDRIVES-ERRORS (CDR DRIVES) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (CONS (T-OR-ERR (NUMBERP OUTPUTS) (QUOTE TOO-MANY-DRIVES) (CONS (LENGTH DRIVES) (QUOTE (EXTRAS)))) (CONS (PDRIVE-OK (CAR DRIVES) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDRIVES-ERRORS (CDR DRIVES) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS)))) (CONS (NIL-OR-ERR DRIVES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-DRIVES)) (QUOTE NIL))))) LISP-CODE *1*PDRIVES-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DRIVES)) (((CDR DRIVES) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (TESTS-AND-CASES ((NOT (LISTP DRIVES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DRIVES) (COUNT DRIVES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PDRIVES-ERRORS) IMMEDIATE-DEPENDENTS0 (PDRIVES-OK PDRIVES-ERRORS-OFF) EVENT (DEFN PDRIVES-ERRORS (DRIVES OUTPUTS TYPES OUT-DEPENDS INPUTS) (IF (LISTP DRIVES) (CONS (T-OR-ERR (OR (LISTP OUTPUTS) (NUMBERP OUTPUTS)) (QUOTE TOO-MANY-DRIVES) (CONS (LENGTH DRIVES) (QUOTE (EXTRAS)))) (CONS (PDRIVE-OK (CAR DRIVES) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDRIVES-ERRORS (CDR DRIVES) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (CONS (NIL-OR-ERR DRIVES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-DRIVES)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 UCDR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 UCAR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 PDRIVE-OK . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PDRIVES-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PDRIVES-ERRORS) (DCELL . *1*PDRIVES-ERRORS))))) (PUT1-LST (QUOTE PDRIVE-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDRIVE-OK-OFF PDRIVE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDRIVE-OK . PDRIVE-OK-OFF) (DISABLED-LEMMAS NIL PDRIVE-OK PDRIVE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PDRIVE-OK) (QUOTE (MAIN-EVENT PDRIVE-OK))) (PUT1-LST (QUOTE PDRIVE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PDRIVE-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((PDRIVE-OK . T)) SDEFN (LAMBDA (DRIVE OUTPUT TYPE OUT-DEPENDS INPUTS) (IF (LITATOM DRIVE) (LABEL-ERROR (P-NAME-PROP-VALUE-OK DRIVE TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DRIVE)) (OUTPUT-LABEL OUTPUT)) (IF (INDEXP DRIVE) (LABEL-ERROR (P-NAME-PROP-VALUE-OK DRIVE TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DRIVE)) (OUTPUT-LABEL OUTPUT)) (IF (LISTP DRIVE) (IF (EQUAL (CAR DRIVE) (QUOTE MIN)) (LABEL-ERROR (P-T-WIRE-ARGS-OK (CDR DRIVE) OUT-DEPENDS INPUTS (QUOTE BAD-MIN-DRIVE)) (OUTPUT-LABEL OUTPUT)) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (LABEL-ERROR (T-OR-ERR (NUMBERP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (LABEL-ERROR (T-OR-ERR (MAP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (IF (NUMBERP DRIVE) (IF (LISTP TYPE) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT))) (IF (MAP DRIVE) (IF (LISTP TYPE) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (PRED-ERROR (QUOTE UNKNOWN-DRIVE) DRIVE) (OUTPUT-LABEL OUTPUT))))))) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (LABEL-ERROR (T-OR-ERR (NUMBERP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (LABEL-ERROR (T-OR-ERR (MAP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (IF (NUMBERP DRIVE) (IF (LISTP TYPE) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT))) (IF (MAP DRIVE) (IF (LISTP TYPE) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (PRED-ERROR (QUOTE UNKNOWN-DRIVE) DRIVE) (OUTPUT-LABEL OUTPUT)))))))))) LISP-CODE *1*PDRIVE-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PDRIVE-OK) IMMEDIATE-DEPENDENTS0 (PDRIVES-ERRORS PDRIVE-OK-OFF) EVENT (DEFN PDRIVE-OK (DRIVE OUTPUT TYPE OUT-DEPENDS INPUTS) (LABEL-ERROR (IF (OR (LITATOM DRIVE) (INDEXP DRIVE)) (P-NAME-PROP-VALUE-OK DRIVE TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DRIVE)) (IF (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN))) (P-T-WIRE-ARGS-OK (CDR DRIVE) OUT-DEPENDS INPUTS (QUOTE BAD-MIN-DRIVE)) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (T-OR-ERR (NUMBERP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (T-OR-ERR (MAP DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (IF (OR (NUMBERP DRIVE) (MAP DRIVE)) (T-OR-ERR (NLISTP TYPE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR (QUOTE UNKNOWN-DRIVE) DRIVE)))))) (OUTPUT-LABEL OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-LABEL . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 MAP . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 P-T-WIRE-ARGS-OK . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 P-NAME-PROP-VALUE-OK . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 INDEX . PDRIVE-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PDRIVE-OK) (DCELL . *1*PDRIVE-OK))))) (PUT1-LST (QUOTE PDELAYS-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDELAYS-OK-OFF PDELAYS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDELAYS-OK . PDELAYS-OK-OFF) (DISABLED-LEMMAS NIL PDELAYS-OK PDELAYS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PDELAYS-OK) (QUOTE (MAIN-EVENT PDELAYS-OK))) (PUT1-LST (QUOTE PDELAYS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PDELAYS-OK 4098 NIL NIL)) TOTALP-LST ((PDELAYS-OK . T)) SDEFN (LAMBDA (DELAYS ALIST) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (PDELAYS-ERRORS DELAYS (QUOTE 1) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DELAYS)) (ERR-AND (PDELAYS-ERRORS DELAYS (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DELAYS)))) LISP-CODE *1*PDELAYS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194011 SATELLITES (*1*PDELAYS-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PDELAYS-OK-OFF) EVENT (DEFN PDELAYS-OK (DELAYS ALIST) (ERR-AND (PDELAYS-ERRORS DELAYS (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE OUTPUT-TYPES) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST)) (QUOTE DELAYS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . PDELAYS-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PDELAYS-OK) (IMMEDIATE-DEPENDENTS0 PDELAYS-ERRORS . PDELAYS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PDELAYS-OK) (DCELL . *1*PDELAYS-OK))))) (PUT1-LST (QUOTE PDELAYS-ERRORS-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDELAYS-ERRORS-OFF PDELAYS-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDELAYS-ERRORS . PDELAYS-ERRORS-OFF) (DISABLED-LEMMAS NIL PDELAYS-ERRORS PDELAYS-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PDELAYS-ERRORS) (QUOTE (MAIN-EVENT PDELAYS-ERRORS))) (PUT1-LST (QUOTE PDELAYS-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PDELAYS-ERRORS 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((PDELAYS-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DELAYS OUTPUTS TYPES OUT-DEPENDS INPUTS) (IF (LISTP DELAYS) (IF (LISTP OUTPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-DELAYS) (CONS (LENGTH DELAYS) (QUOTE (EXTRAS)))) (CONS (PDELAY-OK (CAR DELAYS) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDELAYS-ERRORS (CDR DELAYS) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (CONS (T-OR-ERR (NUMBERP OUTPUTS) (QUOTE TOO-MANY-DELAYS) (CONS (LENGTH DELAYS) (QUOTE (EXTRAS)))) (CONS (PDELAY-OK (CAR DELAYS) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDELAYS-ERRORS (CDR DELAYS) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS)))) (CONS (NIL-OR-ERR DELAYS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-DELAYS)) (QUOTE NIL))))) LISP-CODE *1*PDELAYS-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DELAYS)) (((CDR DELAYS) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (TESTS-AND-CASES ((NOT (LISTP DELAYS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DELAYS) (COUNT DELAYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194011 CONTROLLER-POCKETS (1) SATELLITES (*1*PDELAYS-ERRORS) IMMEDIATE-DEPENDENTS0 (PDELAYS-OK PDELAYS-ERRORS-OFF) EVENT (DEFN PDELAYS-ERRORS (DELAYS OUTPUTS TYPES OUT-DEPENDS INPUTS) (IF (LISTP DELAYS) (CONS (T-OR-ERR (OR (LISTP OUTPUTS) (NUMBERP OUTPUTS)) (QUOTE TOO-MANY-DELAYS) (CONS (LENGTH DELAYS) (QUOTE (EXTRAS)))) (CONS (PDELAY-OK (CAR DELAYS) (IO-CAR OUTPUTS) (UCAR TYPES) (UCAR OUT-DEPENDS) INPUTS) (PDELAYS-ERRORS (CDR DELAYS) (IO-CDR OUTPUTS) (UCDR TYPES) (UCDR OUT-DEPENDS) INPUTS))) (CONS (NIL-OR-ERR DELAYS (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-DELAYS)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCDR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 UCAR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 PDELAY-OK . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PDELAYS-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PDELAYS-ERRORS) (DCELL . *1*PDELAYS-ERRORS))))) (PUT1-LST (QUOTE PDELAY-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PDELAY-OK-OFF PDELAY-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PDELAY-OK . PDELAY-OK-OFF) (DISABLED-LEMMAS NIL PDELAY-OK PDELAY-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PDELAY-OK) (QUOTE (MAIN-EVENT PDELAY-OK))) (PUT1-LST (QUOTE PDELAY-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PDELAY-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((PDELAY-OK . T)) SDEFN (LAMBDA (DELAY OUTPUT TYPE OUT-DEPENDS INPUTS) (IF (LITATOM DELAY) (LABEL-ERROR (P-NAME-PROP-VALUE-OK DELAY TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DELAY)) (OUTPUT-LABEL OUTPUT)) (IF (INDEXP DELAY) (LABEL-ERROR (P-NAME-PROP-VALUE-OK DELAY TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DELAY)) (OUTPUT-LABEL OUTPUT)) (IF (LISTP DELAY) (IF (EQUAL (CAR DELAY) (QUOTE OR)) (LABEL-ERROR (P-T-WIRE-ARGS-OK (CDR DELAY) OUT-DEPENDS INPUTS (QUOTE BAD-OR-DELAY)) (OUTPUT-LABEL OUTPUT)) (IF (EQUAL (LENGTH DELAY) (QUOTE 2)) (LABEL-ERROR (ERR-AND (CONS (NLISTP-OR-ERR TYPE (QUOTE EXPECTED-LITERAL-TYPE)) (CONS (PHALF-DELAY-OK (CAR DELAY) TYPE (QUOTE LOW-TO-HIGH)) (CONS (PHALF-DELAY-OK (CAR (CDR DELAY)) TYPE (QUOTE HIGH-TO-LOW)) (CONS (NIL-OR-ERR (LAST-CDR DELAY) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) (QUOTE BAD-LITERAL-DELAY)) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (PRED-ERROR (QUOTE UNKNOWN-DELAY) DELAY) (OUTPUT-LABEL OUTPUT)))) (IF (EQUAL (LENGTH DELAY) (QUOTE 2)) (LABEL-ERROR (ERR-AND (CONS (NLISTP-OR-ERR TYPE (QUOTE EXPECTED-LITERAL-TYPE)) (CONS (PHALF-DELAY-OK (CAR DELAY) TYPE (QUOTE LOW-TO-HIGH)) (CONS (PHALF-DELAY-OK (CAR (CDR DELAY)) TYPE (QUOTE HIGH-TO-LOW)) (CONS (NIL-OR-ERR (LAST-CDR DELAY) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) (QUOTE BAD-LITERAL-DELAY)) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (PRED-ERROR (QUOTE UNKNOWN-DELAY) DELAY) (OUTPUT-LABEL OUTPUT))))))) LISP-CODE *1*PDELAY-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194011 SATELLITES (*1*PDELAY-OK) IMMEDIATE-DEPENDENTS0 (PDELAYS-ERRORS PDELAY-OK-OFF) EVENT (DEFN PDELAY-OK (DELAY OUTPUT TYPE OUT-DEPENDS INPUTS) (LABEL-ERROR (IF (OR (LITATOM DELAY) (INDEXP DELAY)) (P-NAME-PROP-VALUE-OK DELAY TYPE OUT-DEPENDS INPUTS (QUOTE UNKNOWN-DELAY)) (IF (AND (LISTP DELAY) (EQUAL (CAR DELAY) (QUOTE OR))) (P-T-WIRE-ARGS-OK (CDR DELAY) OUT-DEPENDS INPUTS (QUOTE BAD-OR-DELAY)) (IF (EQUAL (LENGTH DELAY) (QUOTE 2)) (ERR-AND (CONS (NLISTP-OR-ERR TYPE (QUOTE EXPECTED-LITERAL-TYPE)) (CONS (PHALF-DELAY-OK (CAR DELAY) TYPE (QUOTE LOW-TO-HIGH)) (CONS (PHALF-DELAY-OK (CAR (CDR DELAY)) TYPE (QUOTE HIGH-TO-LOW)) (CONS (NIL-OR-ERR (LAST-CDR DELAY) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) (QUOTE BAD-LITERAL-DELAY)) (PRED-ERROR (QUOTE UNKNOWN-DELAY) DELAY)))) (OUTPUT-LABEL OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-LABEL . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 LAST-CDR . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 PHALF-DELAY-OK . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 P-T-WIRE-ARGS-OK . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 P-NAME-PROP-VALUE-OK . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 INDEX . PDELAY-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PDELAY-OK) (DCELL . *1*PDELAY-OK))))) (PUT1-LST (QUOTE PHALF-DELAY-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE PHALF-DELAY-OK-OFF PHALF-DELAY-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PHALF-DELAY-OK . PHALF-DELAY-OK-OFF) (DISABLED-LEMMAS NIL PHALF-DELAY-OK PHALF-DELAY-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PHALF-DELAY-OK) (QUOTE (MAIN-EVENT PHALF-DELAY-OK))) (PUT1-LST (QUOTE PHALF-DELAY-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PHALF-DELAY-OK 4098 NIL NIL NIL)) TOTALP-LST ((PHALF-DELAY-OK . T)) SDEFN (LAMBDA (D TYPE LABEL) (IF (EQUAL (LENGTH D) (QUOTE 2)) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (ERR-AND (CONS (T-OR-ERR (NUMBERP (CAR D)) (QUOTE SLOPE-NOT-NUMBER) (CONS (CONS (QUOTE SLOPE) (CONS (CAR D) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (NUMBERP (CAR (CDR D))) (QUOTE INTERCEPT-NOT-NUMBER) (CAR (CDR D))) (CONS (NIL-OR-ERR (LAST-CDR D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (ERR-AND (CONS (T-OR-ERR (PS-PFP (CAR D)) (QUOTE SLOPE-NOT-PS-PF) (CONS (CONS (QUOTE SLOPE) (CONS (CAR D) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (NUMBERP (CAR (CDR D))) (QUOTE INTERCEPT-NOT-NUMBER) (CAR (CDR D))) (CONS (NIL-OR-ERR (LAST-CDR D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL) (IF (NUMBERP (CAR D)) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE SLOPE-NOT-NUMBER-OR-PS-PF) (CAR D)) (CONS (T-OR-ERR (NUMBERP (CAR (CDR D))) (QUOTE INTERCEPT-NOT-NUMBER) (CAR (CDR D))) (CONS (NIL-OR-ERR (LAST-CDR D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL) (ERR-AND (CONS (T-OR-ERR (PS-PFP (CAR D)) (QUOTE SLOPE-NOT-NUMBER-OR-PS-PF) (CAR D)) (CONS (T-OR-ERR (NUMBERP (CAR (CDR D))) (QUOTE INTERCEPT-NOT-NUMBER) (CAR (CDR D))) (CONS (NIL-OR-ERR (LAST-CDR D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL)))) (PRED-ERROR LABEL (CONS (QUOTE LENGTH-NOT-2) (CONS D (QUOTE NIL)))))) LISP-CODE *1*PHALF-DELAY-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194011 SATELLITES (*1*PHALF-DELAY-OK) IMMEDIATE-DEPENDENTS0 (PDELAY-OK PHALF-DELAY-OK-OFF) EVENT (DEFN PHALF-DELAY-OK (D TYPE LABEL) (IF (EQUAL (LENGTH D) (QUOTE 2)) (ERR-AND (CONS (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (T-OR-ERR (NUMBERP (CAR D)) (QUOTE SLOPE-NOT-NUMBER) (CONS (CONS (QUOTE SLOPE) (CONS (CAR D) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (T-OR-ERR (PS-PFP (CAR D)) (QUOTE SLOPE-NOT-PS-PF) (CONS (CONS (QUOTE SLOPE) (CONS (CAR D) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (T-OR-ERR (OR (NUMBERP (CAR D)) (PS-PFP (CAR D))) (QUOTE SLOPE-NOT-NUMBER-OR-PS-PF) (CAR D)))) (CONS (T-OR-ERR (NUMBERP (CAR (CDR D))) (QUOTE INTERCEPT-NOT-NUMBER) (CAR (CDR D))) (CONS (NIL-OR-ERR (LAST-CDR D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL) (PRED-ERROR LABEL (CONS (QUOTE LENGTH-NOT-2) (CONS D (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 LAST-CDR . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 PS-PFP . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PHALF-DELAY-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . PHALF-DELAY-OK) (DCELL . *1*PHALF-DELAY-OK))))) (PUT1-LST (QUOTE P-T-WIRE-ARGS-OK-OFF) (QUOTE (IDATE 1000402194011 EVENT (TOGGLE P-T-WIRE-ARGS-OK-OFF P-T-WIRE-ARGS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 P-T-WIRE-ARGS-OK . P-T-WIRE-ARGS-OK-OFF) (DISABLED-LEMMAS NIL P-T-WIRE-ARGS-OK P-T-WIRE-ARGS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*P-T-WIRE-ARGS-OK) (QUOTE (MAIN-EVENT P-T-WIRE-ARGS-OK))) (PUT1-LST (QUOTE P-T-WIRE-ARGS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((P-T-WIRE-ARGS-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((P-T-WIRE-ARGS-OK . T)) SDEFN (LAMBDA (ARGS OUT-DEPENDS INPUTS LABEL) (IF (UNKNOWNP (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS)) (ERR-AND (CONS (NAME-LIST-OK ARGS (QUOTE ILL-FORMED-ARGS) (QUOTE *1*FALSE)) (QUOTE NIL)) LABEL) (ERR-AND (CONS (SUBSET-OR-ERR ARGS (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS) (QUOTE UNKNOWN-ARGS)) (CONS (NO-DUPLICATES-OR-ERR ARGS (QUOTE DUPLICATE-ARGS)) (CONS (NIL-OR-ERR (LAST-CDR ARGS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LABEL))) LISP-CODE *1*P-T-WIRE-ARGS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*P-T-WIRE-ARGS-OK) IMMEDIATE-DEPENDENTS0 (PDRIVE-OK PDELAY-OK P-T-WIRE-ARGS-OK-OFF) EVENT (DEFN P-T-WIRE-ARGS-OK (ARGS OUT-DEPENDS INPUTS LABEL) (ERR-AND (IF (UNKNOWNP (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS)) (CONS (NAME-LIST-OK ARGS (QUOTE ILL-FORMED-ARGS) (QUOTE *1*FALSE)) (QUOTE NIL)) (CONS (SUBSET-OR-ERR ARGS (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS) (QUOTE UNKNOWN-ARGS)) (CONS (NO-DUPLICATES-OR-ERR ARGS (QUOTE DUPLICATE-ARGS)) (CONS (NIL-OR-ERR (LAST-CDR ARGS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) LABEL)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 SUBSET-OR-ERR . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . P-T-WIRE-ARGS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . P-T-WIRE-ARGS-OK) (DCELL . *1*P-T-WIRE-ARGS-OK))))) (PUT1-LST (QUOTE P-NAME-PROP-VALUE-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE P-NAME-PROP-VALUE-OK-OFF P-NAME-PROP-VALUE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 P-NAME-PROP-VALUE-OK . P-NAME-PROP-VALUE-OK-OFF) (DISABLED-LEMMAS NIL P-NAME-PROP-VALUE-OK P-NAME-PROP-VALUE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*P-NAME-PROP-VALUE-OK) (QUOTE (MAIN-EVENT P-NAME-PROP-VALUE-OK))) (PUT1-LST (QUOTE P-NAME-PROP-VALUE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((P-NAME-PROP-VALUE-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((P-NAME-PROP-VALUE-OK . T)) SDEFN (LAMBDA (NAME OUT-TYPE OUT-DEPENDS INPUTS LABEL) (IF (UNKNOWNP (ID-OUT-PROP-SIGNALS OUT-TYPE OUT-DEPENDS INPUTS)) (T-OR-ERR (NAME-OKP NAME) LABEL NAME) (T-OR-ERR (MEMBER NAME (ID-OUT-PROP-SIGNALS OUT-TYPE OUT-DEPENDS INPUTS)) LABEL NAME))) LISP-CODE *1*P-NAME-PROP-VALUE-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*P-NAME-PROP-VALUE-OK) IMMEDIATE-DEPENDENTS0 (PDRIVE-OK PDELAY-OK P-NAME-PROP-VALUE-OK-OFF) EVENT (DEFN P-NAME-PROP-VALUE-OK (NAME OUT-TYPE OUT-DEPENDS INPUTS LABEL) (T-OR-ERR (IF (UNKNOWNP (ID-OUT-PROP-SIGNALS OUT-TYPE OUT-DEPENDS INPUTS)) (NAME-OKP NAME) (MEMBER NAME (ID-OUT-PROP-SIGNALS OUT-TYPE OUT-DEPENDS INPUTS))) LABEL NAME)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . P-NAME-PROP-VALUE-OK) (IMMEDIATE-DEPENDENTS0 ID-OUT-PROP-SIGNALS . P-NAME-PROP-VALUE-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . P-NAME-PROP-VALUE-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . P-NAME-PROP-VALUE-OK) (DCELL . *1*P-NAME-PROP-VALUE-OK))))) (PUT1-LST (QUOTE POUT-TYPES-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE POUT-TYPES-OK-OFF POUT-TYPES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-TYPES-OK . POUT-TYPES-OK-OFF) (DISABLED-LEMMAS NIL POUT-TYPES-OK POUT-TYPES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-TYPES-OK) (QUOTE (MAIN-EVENT POUT-TYPES-OK))) (PUT1-LST (QUOTE POUT-TYPES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-TYPES-OK 4098 NIL NIL)) TOTALP-LST ((POUT-TYPES-OK . T)) SDEFN (LAMBDA (OUT-TYPES ALIST) (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (ERR-AND (POUT-TYPE-ERRORS OUT-TYPES (QUOTE 1) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST) (PAIRLIST (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE INPUT-TYPES) ALIST))) (QUOTE OUTPUT-TYPES)) (ERR-AND (POUT-TYPE-ERRORS OUT-TYPES (VALUE (QUOTE OUTPUTS) ALIST) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST) (PAIRLIST (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE INPUT-TYPES) ALIST))) (QUOTE OUTPUT-TYPES)))) LISP-CODE *1*POUT-TYPES-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*POUT-TYPES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK POUT-TYPES-OK-OFF) EVENT (DEFN POUT-TYPES-OK (OUT-TYPES ALIST) (ERR-AND (POUT-TYPE-ERRORS OUT-TYPES (IF (UNKNOWNP (VALUE (QUOTE OUTPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE OUT-DEPENDS) ALIST) (VALUE (QUOTE INPUTS) ALIST) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST) (PAIRLIST (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE INPUT-TYPES) ALIST))) (QUOTE OUTPUT-TYPES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTERSECTION . POUT-TYPES-OK) (IMMEDIATE-DEPENDENTS0 VALUE . POUT-TYPES-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . POUT-TYPES-OK) (IMMEDIATE-DEPENDENTS0 POUT-TYPE-ERRORS . POUT-TYPES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . POUT-TYPES-OK) (DCELL . *1*POUT-TYPES-OK))))) (PUT1-LST (QUOTE POUT-TYPE-ERRORS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE POUT-TYPE-ERRORS-OFF POUT-TYPE-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-TYPE-ERRORS . POUT-TYPE-ERRORS-OFF) (DISABLED-LEMMAS NIL POUT-TYPE-ERRORS POUT-TYPE-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-TYPE-ERRORS) (QUOTE (MAIN-EVENT POUT-TYPE-ERRORS))) (PUT1-LST (QUOTE POUT-TYPE-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-TYPE-ERRORS 16 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((POUT-TYPE-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (TYPES OUTPUTS OUT-DEPENDS INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (IF (LISTP TYPES) (IF (LISTP OUTPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-OUTPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (POUT-TYPE-OK (CAR TYPES) (IO-CAR OUTPUTS) (UCAR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (POUT-TYPE-ERRORS (CDR TYPES) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP))) (CONS (T-OR-ERR (NUMBERP OUTPUTS) (QUOTE TOO-MANY-OUTPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (POUT-TYPE-OK (CAR TYPES) (IO-CAR OUTPUTS) (UCAR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (POUT-TYPE-ERRORS (CDR TYPES) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP)))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-TYPES)) (QUOTE NIL))))) LISP-CODE *1*POUT-TYPE-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES)) (((CDR TYPES) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*POUT-TYPE-ERRORS) IMMEDIATE-DEPENDENTS0 (POUT-TYPES-OK POUT-TYPE-ERRORS-OFF) EVENT (DEFN POUT-TYPE-ERRORS (TYPES OUTPUTS OUT-DEPENDS INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (IF (LISTP TYPES) (CONS (T-OR-ERR (OR (LISTP OUTPUTS) (NUMBERP OUTPUTS)) (QUOTE TOO-MANY-OUTPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (POUT-TYPE-OK (CAR TYPES) (IO-CAR OUTPUTS) (UCAR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (POUT-TYPE-ERRORS (CDR TYPES) (IO-CDR OUTPUTS) (UCDR OUT-DEPENDS) INPUTS IO-SIGNALS FNAME IN-TYPE-MAP))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR OUTPUTS (QUOTE OUTPUTS-WITHOUT-TYPES)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 UCDR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 UCAR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 POUT-TYPE-OK . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . POUT-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . POUT-TYPE-ERRORS) (DCELL . *1*POUT-TYPE-ERRORS))))) (PUT1-LST (QUOTE POUT-TYPE-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE POUT-TYPE-OK-OFF POUT-TYPE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POUT-TYPE-OK . POUT-TYPE-OK-OFF) (DISABLED-LEMMAS NIL POUT-TYPE-OK POUT-TYPE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*POUT-TYPE-OK) (QUOTE (MAIN-EVENT POUT-TYPE-OK))) (PUT1-LST (QUOTE POUT-TYPE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((POUT-TYPE-OK 4098 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((POUT-TYPE-OK . T)) SDEFN (LAMBDA (TYPE OUTPUT OUT-DEPENDS INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (IF (EQUAL FNAME (QUOTE T-WIRE)) (LABEL-ERROR (T-OR-ERR (EQUAL TYPE (QUOTE TRI-STATE)) (QUOTE T-WIRE-OUTPUT-TYPE-NOT-TRI-STATE) TYPE) (OUTPUT-LABEL OUTPUT)) (IF (MEMBER OUTPUT IO-SIGNALS) (IF (TRI-STATE-TYPEP TYPE) (IF (TRI-STATE-TYPEP (VALUE OUTPUT IN-TYPE-MAP)) (LABEL-ERROR (T-OR-ERR (EQUAL TYPE (VALUE OUTPUT IN-TYPE-MAP)) (QUOTE DIFFERENT-IO-SIGNAL-IN-AND-OUT-TYPES) (CONS (CONS (QUOTE INPUT-TYPE) (CONS (VALUE OUTPUT IN-TYPE-MAP) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (QUOTE *1*TRUE) (QUOTE DIFFERENT-IO-SIGNAL-IN-AND-OUT-TYPES) (CONS (CONS (QUOTE INPUT-TYPE) (CONS (VALUE OUTPUT IN-TYPE-MAP) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (PRED-ERROR (QUOTE BAD-IO-SIGNAL-TYPE) TYPE) (OUTPUT-LABEL OUTPUT))) (IF (LISTP TYPE) (IF (PROPERP TYPE) (IF (EQUAL (LENGTH TYPE) (QUOTE 1)) (IF (UNKNOWNP (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS)) (LABEL-ERROR (T-OR-ERR (NAME-OKP (CAR TYPE)) (QUOTE UNKNOWN-TYPE) TYPE) (OUTPUT-LABEL OUTPUT)) (LABEL-ERROR (T-OR-ERR (MEMBER (CAR TYPE) (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS)) (QUOTE UNKNOWN-TYPE) TYPE) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE UNKNOWN-TYPE) TYPE) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (T-OR-ERR (QUOTE *1*FALSE) (QUOTE UNKNOWN-TYPE) TYPE) (OUTPUT-LABEL OUTPUT))) (LABEL-ERROR (T-OR-ERR (MEMBER TYPE (ALL-OUTPUT-TYPES (QUOTE NIL))) (QUOTE UNKNOWN-TYPE) TYPE) (OUTPUT-LABEL OUTPUT)))))) LISP-CODE *1*POUT-TYPE-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*POUT-TYPE-OK) IMMEDIATE-DEPENDENTS0 (POUT-TYPE-ERRORS POUT-TYPE-OK-OFF) EVENT (DEFN POUT-TYPE-OK (TYPE OUTPUT OUT-DEPENDS INPUTS IO-SIGNALS FNAME IN-TYPE-MAP) (LABEL-ERROR (IF (EQUAL FNAME (QUOTE T-WIRE)) (T-OR-ERR (EQUAL TYPE (QUOTE TRI-STATE)) (QUOTE T-WIRE-OUTPUT-TYPE-NOT-TRI-STATE) TYPE) (IF (MEMBER OUTPUT IO-SIGNALS) (IF (TRI-STATE-TYPEP TYPE) (T-OR-ERR (OR (NOT (TRI-STATE-TYPEP (VALUE OUTPUT IN-TYPE-MAP))) (EQUAL TYPE (VALUE OUTPUT IN-TYPE-MAP))) (QUOTE DIFFERENT-IO-SIGNAL-IN-AND-OUT-TYPES) (CONS (CONS (QUOTE INPUT-TYPE) (CONS (VALUE OUTPUT IN-TYPE-MAP) (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR (QUOTE BAD-IO-SIGNAL-TYPE) TYPE)) (IF (LISTP TYPE) (T-OR-ERR (AND (PROPERP TYPE) (AND (EQUAL (LENGTH TYPE) (QUOTE 1)) (IF (UNKNOWNP (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS)) (NAME-OKP (CAR TYPE)) (MEMBER (CAR TYPE) (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS))))) (QUOTE UNKNOWN-TYPE) TYPE) (T-OR-ERR (MEMBER TYPE (ALL-OUTPUT-TYPES (QUOTE NIL))) (QUOTE UNKNOWN-TYPE) TYPE)))) (OUTPUT-LABEL OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-LABEL . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 ALL-OUTPUT-TYPES . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 NAME-OKP . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 PROPERP . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 VALUE . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 TRI-STATE-TYPEP . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . POUT-TYPE-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . POUT-TYPE-OK) (DCELL . *1*POUT-TYPE-OK))))) (PUT1-LST (QUOTE PIN-TYPES-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE PIN-TYPES-OK-OFF PIN-TYPES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PIN-TYPES-OK . PIN-TYPES-OK-OFF) (DISABLED-LEMMAS NIL PIN-TYPES-OK PIN-TYPES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PIN-TYPES-OK) (QUOTE (MAIN-EVENT PIN-TYPES-OK))) (PUT1-LST (QUOTE PIN-TYPES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PIN-TYPES-OK 4098 NIL NIL)) TOTALP-LST ((PIN-TYPES-OK . T)) SDEFN (LAMBDA (IN-TYPES ALIST) (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (ERR-AND (PIN-TYPE-ERRORS IN-TYPES (QUOTE 1) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE INPUT-TYPES)) (ERR-AND (PIN-TYPE-ERRORS IN-TYPES (VALUE (QUOTE INPUTS) ALIST) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE INPUT-TYPES)))) LISP-CODE *1*PIN-TYPES-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*PIN-TYPES-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK PIN-TYPES-OK-OFF) EVENT (DEFN PIN-TYPES-OK (IN-TYPES ALIST) (ERR-AND (PIN-TYPE-ERRORS IN-TYPES (IF (UNKNOWNP (VALUE (QUOTE INPUTS) ALIST)) (QUOTE 1) (VALUE (QUOTE INPUTS) ALIST)) (INTERSECTION (VALUE (QUOTE INPUTS) ALIST) (VALUE (QUOTE OUTPUTS) ALIST)) (VALUE (QUOTE PRIMP-NAME) ALIST)) (QUOTE INPUT-TYPES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTERSECTION . PIN-TYPES-OK) (IMMEDIATE-DEPENDENTS0 VALUE . PIN-TYPES-OK) (IMMEDIATE-DEPENDENTS0 UNKNOWN . PIN-TYPES-OK) (IMMEDIATE-DEPENDENTS0 PIN-TYPE-ERRORS . PIN-TYPES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . PIN-TYPES-OK) (DCELL . *1*PIN-TYPES-OK))))) (PUT1-LST (QUOTE PIN-TYPE-ERRORS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE PIN-TYPE-ERRORS-OFF PIN-TYPE-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PIN-TYPE-ERRORS . PIN-TYPE-ERRORS-OFF) (DISABLED-LEMMAS NIL PIN-TYPE-ERRORS PIN-TYPE-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*PIN-TYPE-ERRORS) (QUOTE (MAIN-EVENT PIN-TYPE-ERRORS))) (PUT1-LST (QUOTE PIN-TYPE-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((PIN-TYPE-ERRORS 16 NIL NIL NIL NIL)) TOTALP-LST ((PIN-TYPE-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (TYPES INPUTS IO-SIGNALS FNAME) (IF (LISTP TYPES) (IF (LISTP INPUTS) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE TOO-MANY-INPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PIN-TYPE-OK (CAR TYPES) (IO-CAR INPUTS) IO-SIGNALS FNAME) (PIN-TYPE-ERRORS (CDR TYPES) (IO-CDR INPUTS) IO-SIGNALS FNAME))) (CONS (T-OR-ERR (NUMBERP INPUTS) (QUOTE TOO-MANY-INPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PIN-TYPE-OK (CAR TYPES) (IO-CAR INPUTS) IO-SIGNALS FNAME) (PIN-TYPE-ERRORS (CDR TYPES) (IO-CDR INPUTS) IO-SIGNALS FNAME)))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR INPUTS (QUOTE INPUTS-WITHOUT-TYPES)) (QUOTE NIL))))) LISP-CODE *1*PIN-TYPE-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP TYPES)) (((CDR TYPES) (IO-CDR INPUTS) IO-SIGNALS FNAME))) (TESTS-AND-CASES ((NOT (LISTP TYPES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*PIN-TYPE-ERRORS) IMMEDIATE-DEPENDENTS0 (PIN-TYPES-OK PIN-TYPE-ERRORS-OFF) EVENT (DEFN PIN-TYPE-ERRORS (TYPES INPUTS IO-SIGNALS FNAME) (IF (LISTP TYPES) (CONS (T-OR-ERR (OR (LISTP INPUTS) (NUMBERP INPUTS)) (QUOTE TOO-MANY-INPUT-TYPES) (CONS (LENGTH TYPES) (QUOTE (EXTRAS)))) (CONS (PIN-TYPE-OK (CAR TYPES) (IO-CAR INPUTS) IO-SIGNALS FNAME) (PIN-TYPE-ERRORS (CDR TYPES) (IO-CDR INPUTS) IO-SIGNALS FNAME))) (CONS (NIL-OR-ERR TYPES (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR INPUTS (QUOTE INPUTS-WITHOUT-TYPES)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CDR . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 IO-CAR . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 PIN-TYPE-OK . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . PIN-TYPE-ERRORS) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PIN-TYPE-ERRORS) (DCELL . *1*PIN-TYPE-ERRORS))))) (PUT1-LST (QUOTE PIN-TYPE-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE PIN-TYPE-OK-OFF PIN-TYPE-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PIN-TYPE-OK . PIN-TYPE-OK-OFF) (DISABLED-LEMMAS NIL PIN-TYPE-OK PIN-TYPE-OK-OFF . T))))) (PUT1-LST (QUOTE *1*PIN-TYPE-OK) (QUOTE (MAIN-EVENT PIN-TYPE-OK))) (PUT1-LST (QUOTE PIN-TYPE-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((PIN-TYPE-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((PIN-TYPE-OK . T)) SDEFN (LAMBDA (TYPE INPUT IO-SIGNALS FNAME) (IF (EQUAL FNAME (QUOTE T-WIRE)) (LABEL-ERROR (T-OR-ERR (EQUAL TYPE (QUOTE TRI-STATE)) (QUOTE T-WIRE-INPUT-TYPE-NOT-TRI-STATE) TYPE) (INPUT-LABEL INPUT)) (IF (MEMBER INPUT IO-SIGNALS) (LABEL-ERROR (T-OR-ERR (TRI-STATE-TYPEP TYPE) (QUOTE BAD-IO-SIGNAL-TYPE) TYPE) (INPUT-LABEL INPUT)) (LABEL-ERROR (T-OR-ERR (MEMBER TYPE (ALL-INPUT-TYPES)) (QUOTE UNKNOWN-TYPE) TYPE) (INPUT-LABEL INPUT))))) LISP-CODE *1*PIN-TYPE-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*PIN-TYPE-OK) IMMEDIATE-DEPENDENTS0 (PIN-TYPE-ERRORS PIN-TYPE-OK-OFF) EVENT (DEFN PIN-TYPE-OK (TYPE INPUT IO-SIGNALS FNAME) (LABEL-ERROR (IF (EQUAL FNAME (QUOTE T-WIRE)) (T-OR-ERR (EQUAL TYPE (QUOTE TRI-STATE)) (QUOTE T-WIRE-INPUT-TYPE-NOT-TRI-STATE) TYPE) (IF (MEMBER INPUT IO-SIGNALS) (T-OR-ERR (TRI-STATE-TYPEP TYPE) (QUOTE BAD-IO-SIGNAL-TYPE) TYPE) (T-OR-ERR (MEMBER TYPE (ALL-INPUT-TYPES)) (QUOTE UNKNOWN-TYPE) TYPE))) (INPUT-LABEL INPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-LABEL . PIN-TYPE-OK) (IMMEDIATE-DEPENDENTS0 ALL-INPUT-TYPES . PIN-TYPE-OK) (IMMEDIATE-DEPENDENTS0 TRI-STATE-TYPEP . PIN-TYPE-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . PIN-TYPE-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . PIN-TYPE-OK) (DCELL . *1*PIN-TYPE-OK))))) (PUT1-LST (QUOTE ALL-OUTPUT-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ALL-OUTPUT-TYPES-OFF ALL-OUTPUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-OUTPUT-TYPES . ALL-OUTPUT-TYPES-OFF) (DISABLED-LEMMAS NIL ALL-OUTPUT-TYPES ALL-OUTPUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-OUTPUT-TYPES) (QUOTE (MAIN-EVENT ALL-OUTPUT-TYPES))) (PUT1-LST (QUOTE ALL-OUTPUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-OUTPUT-TYPES -1 NIL)) TOTALP-LST ((ALL-OUTPUT-TYPES . T)) SDEFN (LAMBDA (INPUTS) (APPEND (LISTIFY INPUTS) (DELETE* (QUOTE FREE) (ALL-INPUT-TYPES)))) LISP-CODE *1*ALL-OUTPUT-TYPES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*ALL-OUTPUT-TYPES) IMMEDIATE-DEPENDENTS0 (OK-OUTPUT-TYPES POUT-TYPE-OK ALL-OUTPUT-TYPES-OFF) EVENT (DEFN ALL-OUTPUT-TYPES (INPUTS) (APPEND (LISTIFY INPUTS) (DELETE* (QUOTE FREE) (ALL-INPUT-TYPES)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-INPUT-TYPES . ALL-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 DELETE* . ALL-OUTPUT-TYPES) (IMMEDIATE-DEPENDENTS0 LISTIFY . ALL-OUTPUT-TYPES) (DCELL . *1*ALL-OUTPUT-TYPES))))) (PUT1-LST (QUOTE G*1*ALL-INPUT-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE G*1*ALL-INPUT-TYPES-OFF *1*ALL-INPUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-INPUT-TYPES . G*1*ALL-INPUT-TYPES-OFF) (DISABLED-LEMMAS NIL *1*ALL-INPUT-TYPES G*1*ALL-INPUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE ALL-INPUT-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ALL-INPUT-TYPES-OFF ALL-INPUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-INPUT-TYPES . ALL-INPUT-TYPES-OFF) (DISABLED-LEMMAS NIL ALL-INPUT-TYPES ALL-INPUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-INPUT-TYPES) (QUOTE (MAIN-EVENT ALL-INPUT-TYPES))) (PUT1-LST (QUOTE ALL-INPUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-INPUT-TYPES 16)) TOTALP-LST ((ALL-INPUT-TYPES . T)) SDEFN (LAMBDA NIL (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE TTL TTL-TRI-STATE))) LISP-CODE *1*ALL-INPUT-TYPES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*ALL-INPUT-TYPES) IMMEDIATE-DEPENDENTS0 (OK-INPUT-TYPES PIN-TYPE-OK ALL-OUTPUT-TYPES G*1*ALL-INPUT-TYPES-OFF ALL-INPUT-TYPES-OFF) EVENT (DEFN ALL-INPUT-TYPES NIL (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE TTL TTL-TRI-STATE))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALL-INPUT-TYPES))))) (PUT1-LST (QUOTE ID-OUT-PROP-SIGNALS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ID-OUT-PROP-SIGNALS-OFF ID-OUT-PROP-SIGNALS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ID-OUT-PROP-SIGNALS . ID-OUT-PROP-SIGNALS-OFF) (DISABLED-LEMMAS NIL ID-OUT-PROP-SIGNALS ID-OUT-PROP-SIGNALS-OFF . T))))) (PUT1-LST (QUOTE *1*ID-OUT-PROP-SIGNALS) (QUOTE (MAIN-EVENT ID-OUT-PROP-SIGNALS))) (PUT1-LST (QUOTE ID-OUT-PROP-SIGNALS) (QUOTE (TYPE-PRESCRIPTION-LST ((ID-OUT-PROP-SIGNALS 16 NIL T T)) TOTALP-LST ((ID-OUT-PROP-SIGNALS . T)) SDEFN (LAMBDA (OUTPUT-TYPE OUT-DEPENDS INPUTS) (IF (LISTP OUTPUT-TYPE) OUTPUT-TYPE (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS))) LISP-CODE *1*ID-OUT-PROP-SIGNALS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*ID-OUT-PROP-SIGNALS) IMMEDIATE-DEPENDENTS0 (P-NAME-PROP-VALUE-OK ID-OUT-PROP-SIGNALS-OFF) EVENT (DEFN ID-OUT-PROP-SIGNALS (OUTPUT-TYPE OUT-DEPENDS INPUTS) (IF (LISTP OUTPUT-TYPE) OUTPUT-TYPE (OUT-PROP-SIGNALS OUT-DEPENDS INPUTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . ID-OUT-PROP-SIGNALS) (DCELL . *1*ID-OUT-PROP-SIGNALS))))) (PUT1-LST (QUOTE OUT-PROP-SIGNALS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE OUT-PROP-SIGNALS-OFF OUT-PROP-SIGNALS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-PROP-SIGNALS . OUT-PROP-SIGNALS-OFF) (DISABLED-LEMMAS NIL OUT-PROP-SIGNALS OUT-PROP-SIGNALS-OFF . T))))) (PUT1-LST (QUOTE *1*OUT-PROP-SIGNALS) (QUOTE (MAIN-EVENT OUT-PROP-SIGNALS))) (PUT1-LST (QUOTE OUT-PROP-SIGNALS) (QUOTE (TYPE-PRESCRIPTION-LST ((OUT-PROP-SIGNALS 0 T T)) TOTALP-LST ((OUT-PROP-SIGNALS . T)) SDEFN (LAMBDA (OUT-DEPENDS INPUTS) (IF (UNKNOWNP OUT-DEPENDS) INPUTS OUT-DEPENDS)) LISP-CODE *1*OUT-PROP-SIGNALS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*OUT-PROP-SIGNALS) IMMEDIATE-DEPENDENTS0 (OK-OUTPUT-TYPES PRESULTS-ERRORS P-T-WIRE-ARGS-OK POUT-TYPE-OK ID-OUT-PROP-SIGNALS OUT-PROP-SIGNALS-OFF) EVENT (DEFN OUT-PROP-SIGNALS (OUT-DEPENDS INPUTS) (IF (UNKNOWNP OUT-DEPENDS) INPUTS OUT-DEPENDS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . OUT-PROP-SIGNALS) (DCELL . *1*OUT-PROP-SIGNALS))))) (PUT1-LST (QUOTE IO-CDR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE IO-CDR-OFF IO-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-CDR . IO-CDR-OFF) (DISABLED-LEMMAS NIL IO-CDR IO-CDR-OFF . T))))) (PUT1-LST (QUOTE *1*IO-CDR) (QUOTE (MAIN-EVENT IO-CDR))) (PUT1-LST (QUOTE IO-CDR) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-CDR -1 NIL)) TOTALP-LST ((IO-CDR . T)) SDEFN (LAMBDA (ARGS) (IF (NUMBERP ARGS) (ADD1 ARGS) (IF (LISTP ARGS) (IF (NUMBERP (CDR ARGS)) (QUOTE NIL) (CDR ARGS)) (QUOTE 2)))) LISP-CODE *1*IO-CDR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*IO-CDR) IMMEDIATE-DEPENDENTS0 (PRESULTS-ERRORS PSTATE-TYPES-ERRORS POUT-DEPENDS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS POUT-TYPE-ERRORS PIN-TYPE-ERRORS IO-CDR-OFF) EVENT (DEFN IO-CDR (ARGS) (IF (NUMBERP ARGS) (ADD1 ARGS) (IF (NLISTP ARGS) (QUOTE 2) (IF (NUMBERP (CDR ARGS)) (QUOTE NIL) (CDR ARGS))))) LOCAL-UNDO-TUPLES ((DCELL . *1*IO-CDR))))) (PUT1-LST (QUOTE IO-CAR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE IO-CAR-OFF IO-CAR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-CAR . IO-CAR-OFF) (DISABLED-LEMMAS NIL IO-CAR IO-CAR-OFF . T))))) (PUT1-LST (QUOTE *1*IO-CAR) (QUOTE (MAIN-EVENT IO-CAR))) (PUT1-LST (QUOTE IO-CAR) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-CAR -1 NIL)) TOTALP-LST ((IO-CAR . T)) SDEFN (LAMBDA (ARGS) (IF (LISTP ARGS) (CAR ARGS) (IF (NUMBERP ARGS) ARGS (QUOTE 1)))) LISP-CODE *1*IO-CAR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*IO-CAR) IMMEDIATE-DEPENDENTS0 (PRESULTS-ERRORS PSTATE-TYPES-ERRORS POUT-DEPENDS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS POUT-TYPE-ERRORS PIN-TYPE-ERRORS IO-CAR-OFF) EVENT (DEFN IO-CAR (ARGS) (IF (LISTP ARGS) (CAR ARGS) (IF (NUMBERP ARGS) ARGS (QUOTE 1)))) LOCAL-UNDO-TUPLES ((DCELL . *1*IO-CAR))))) (PUT1-LST (QUOTE UCDR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UCDR-OFF UCDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UCDR . UCDR-OFF) (DISABLED-LEMMAS NIL UCDR UCDR-OFF . T))))) (PUT1-LST (QUOTE *1*UCDR) (QUOTE (MAIN-EVENT UCDR))) (PUT1-LST (QUOTE UCDR) (QUOTE (TYPE-PRESCRIPTION-LST ((UCDR -1 NIL)) TOTALP-LST ((UCDR . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (CDR X) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*UCDR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*UCDR) IMMEDIATE-DEPENDENTS0 (OK-OUTPUT-TYPES PRESULTS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS POUT-TYPE-ERRORS UCDR-OFF) EVENT (DEFN UCDR (X) (IF (LISTP X) (CDR X) (QUOTE (*1*QUOTE UNKNOWN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . UCDR) (DCELL . *1*UCDR))))) (PUT1-LST (QUOTE UCAR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UCAR-OFF UCAR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UCAR . UCAR-OFF) (DISABLED-LEMMAS NIL UCAR UCAR-OFF . T))))) (PUT1-LST (QUOTE *1*UCAR) (QUOTE (MAIN-EVENT UCAR))) (PUT1-LST (QUOTE UCAR) (QUOTE (TYPE-PRESCRIPTION-LST ((UCAR -1 NIL)) TOTALP-LST ((UCAR . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (CAR X) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*UCAR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*UCAR) IMMEDIATE-DEPENDENTS0 (OK-OUTPUT-TYPES PRESULTS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS POUT-TYPE-ERRORS UCAR-OFF) EVENT (DEFN UCAR (X) (IF (LISTP X) (CAR X) (QUOTE (*1*QUOTE UNKNOWN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . UCAR) (DCELL . *1*UCAR))))) (PUT1-LST (QUOTE STATE-LABEL-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE STATE-LABEL-OFF STATE-LABEL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-LABEL . STATE-LABEL-OFF) (DISABLED-LEMMAS NIL STATE-LABEL STATE-LABEL-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-LABEL) (QUOTE (MAIN-EVENT STATE-LABEL))) (PUT1-LST (QUOTE STATE-LABEL) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-LABEL 16 NIL)) TOTALP-LST ((STATE-LABEL . T)) SDEFN (LAMBDA (STATE) (IO-LABEL STATE (QUOTE STATE))) LISP-CODE *1*STATE-LABEL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*STATE-LABEL) IMMEDIATE-DEPENDENTS0 (PNEW-STATES-OK PSTATE-TYPE-OK STATE-LABEL-OFF) EVENT (DEFN STATE-LABEL (STATE) (IO-LABEL STATE (QUOTE STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-LABEL . STATE-LABEL) (DCELL . *1*STATE-LABEL))))) (PUT1-LST (QUOTE OUTPUT-LABEL-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE OUTPUT-LABEL-OFF OUTPUT-LABEL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-LABEL . OUTPUT-LABEL-OFF) (DISABLED-LEMMAS NIL OUTPUT-LABEL OUTPUT-LABEL-OFF . T))))) (PUT1-LST (QUOTE *1*OUTPUT-LABEL) (QUOTE (MAIN-EVENT OUTPUT-LABEL))) (PUT1-LST (QUOTE OUTPUT-LABEL) (QUOTE (TYPE-PRESCRIPTION-LST ((OUTPUT-LABEL 16 NIL)) TOTALP-LST ((OUTPUT-LABEL . T)) SDEFN (LAMBDA (OUTPUT) (IO-LABEL OUTPUT (QUOTE OUTPUT))) LISP-CODE *1*OUTPUT-LABEL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*OUTPUT-LABEL) IMMEDIATE-DEPENDENTS0 (POUT-DEPENDS-ONE-OK PDRIVE-OK PDELAY-OK POUT-TYPE-OK OUTPUT-LABEL-OFF) EVENT (DEFN OUTPUT-LABEL (OUTPUT) (IO-LABEL OUTPUT (QUOTE OUTPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-LABEL . OUTPUT-LABEL) (DCELL . *1*OUTPUT-LABEL))))) (PUT1-LST (QUOTE INPUT-LABEL-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE INPUT-LABEL-OFF INPUT-LABEL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-LABEL . INPUT-LABEL-OFF) (DISABLED-LEMMAS NIL INPUT-LABEL INPUT-LABEL-OFF . T))))) (PUT1-LST (QUOTE *1*INPUT-LABEL) (QUOTE (MAIN-EVENT INPUT-LABEL))) (PUT1-LST (QUOTE INPUT-LABEL) (QUOTE (TYPE-PRESCRIPTION-LST ((INPUT-LABEL 16 NIL)) TOTALP-LST ((INPUT-LABEL . T)) SDEFN (LAMBDA (INPUT) (IO-LABEL INPUT (QUOTE INPUT))) LISP-CODE *1*INPUT-LABEL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*INPUT-LABEL) IMMEDIATE-DEPENDENTS0 (PLOADING-OK PIN-TYPE-OK INPUT-LABEL-OFF) EVENT (DEFN INPUT-LABEL (INPUT) (IO-LABEL INPUT (QUOTE INPUT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-LABEL . INPUT-LABEL) (DCELL . *1*INPUT-LABEL))))) (PUT1-LST (QUOTE IO-LABEL-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE IO-LABEL-OFF IO-LABEL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-LABEL . IO-LABEL-OFF) (DISABLED-LEMMAS NIL IO-LABEL IO-LABEL-OFF . T))))) (PUT1-LST (QUOTE *1*IO-LABEL) (QUOTE (MAIN-EVENT IO-LABEL))) (PUT1-LST (QUOTE IO-LABEL) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-LABEL 16 NIL NIL)) TOTALP-LST ((IO-LABEL . T)) SDEFN (LAMBDA (ARG WHAT) (IF (NUMBERP ARG) (CONS (QUOTE UNKNOWN) (CONS WHAT (CONS ARG (QUOTE NIL)))) (CONS WHAT (CONS ARG (QUOTE NIL))))) LISP-CODE *1*IO-LABEL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*IO-LABEL) IMMEDIATE-DEPENDENTS0 (PRESULTS-ERRORS STATE-LABEL OUTPUT-LABEL INPUT-LABEL IO-LABEL-OFF) EVENT (DEFN IO-LABEL (ARG WHAT) (IF (NUMBERP ARG) (CONS (QUOTE UNKNOWN) (CONS WHAT (CONS ARG (QUOTE NIL)))) (CONS WHAT (CONS ARG (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((DCELL . *1*IO-LABEL))))) (PUT1-LST (QUOTE FUNCTION-CALL-OK-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE FUNCTION-CALL-OK-OFF FUNCTION-CALL-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FUNCTION-CALL-OK . FUNCTION-CALL-OK-OFF) (DISABLED-LEMMAS NIL FUNCTION-CALL-OK FUNCTION-CALL-OK-OFF . T))))) (PUT1-LST (QUOTE *1*FUNCTION-CALL-OK) (QUOTE (MAIN-EVENT FUNCTION-CALL-OK))) (PUT1-LST (QUOTE FUNCTION-CALL-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((FUNCTION-CALL-OK 4098 NIL NIL)) TOTALP-LST ((FUNCTION-CALL-OK . T)) SDEFN (LAMBDA (X NUMBER-OF-ARGS) (IF (LISTP X) (IF (LITATOM (CAR X)) (IF (PROPERP X) (IF (NUMBERP NUMBER-OF-ARGS) (T-OR-ERR (EQUAL (LENGTH (CDR X)) NUMBER-OF-ARGS) (CONS (QUOTE FUNCTION) (CONS (CAR X) (CONS (QUOTE HAS) (CONS NUMBER-OF-ARGS (QUOTE (ARGS)))))) (CONS (QUOTE IT) (CONS (QUOTE IS) (CONS (QUOTE GIVEN) (CONS (LENGTH (CDR X)) (CONS (QUOTE IN) (CONS X (QUOTE NIL)))))))) (QUOTE *1*TRUE)) (PRED-ERROR (QUOTE ILL-FORMED-FUNCTION-CALL) X)) (PRED-ERROR (QUOTE NOT-FUNCTION-CALL) X)) (PRED-ERROR (QUOTE NOT-FUNCTION-CALL) X))) LISP-CODE *1*FUNCTION-CALL-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*FUNCTION-CALL-OK) IMMEDIATE-DEPENDENTS0 (PRESULTS-ERRORS PRESULT-FORM-ERRORS PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK FUNCTION-CALL-OK-OFF) EVENT (DEFN FUNCTION-CALL-OK (X NUMBER-OF-ARGS) (IF (AND (LISTP X) (LITATOM (CAR X))) (IF (PROPERP X) (IF (NUMBERP NUMBER-OF-ARGS) (T-OR-ERR (EQUAL (LENGTH (CDR X)) NUMBER-OF-ARGS) (CONS (QUOTE FUNCTION) (CONS (CAR X) (CONS (QUOTE HAS) (CONS NUMBER-OF-ARGS (QUOTE (ARGS)))))) (CONS (QUOTE IT) (CONS (QUOTE IS) (CONS (QUOTE GIVEN) (CONS (LENGTH (CDR X)) (CONS (QUOTE IN) (CONS X (QUOTE NIL)))))))) (QUOTE *1*TRUE)) (PRED-ERROR (QUOTE ILL-FORMED-FUNCTION-CALL) X)) (PRED-ERROR (QUOTE NOT-FUNCTION-CALL) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . FUNCTION-CALL-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . FUNCTION-CALL-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . FUNCTION-CALL-OK) (IMMEDIATE-DEPENDENTS0 PROPERP . FUNCTION-CALL-OK) (DCELL . *1*FUNCTION-CALL-OK))))) (PUT1-LST (QUOTE PNAME-LISTP-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE PNAME-LISTP-OFF PNAME-LISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PNAME-LISTP . PNAME-LISTP-OFF) (DISABLED-LEMMAS NIL PNAME-LISTP PNAME-LISTP-OFF . T))))) (PUT1-LST (QUOTE *1*PNAME-LISTP) (QUOTE (MAIN-EVENT PNAME-LISTP))) (PUT1-LST (QUOTE PNAME-LISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((PNAME-LISTP 3 NIL)) TOTALP-LST ((PNAME-LISTP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (NAME-OKP (CAR X)) (IF (MEMBER (CAR X) (CDR X)) (QUOTE *1*FALSE) (IF (PNAME-LISTP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (EQUAL X (QUOTE NIL)))) LISP-CODE *1*PNAME-LISTP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*PNAME-LISTP) IMMEDIATE-DEPENDENTS0 (OK-OUT-DEPENDS OK-STATES OK-NAME-LIST PNAME-LISTP-OFF) EVENT (DEFN PNAME-LISTP (X) (IF (LISTP X) (AND (NAME-OKP (CAR X)) (AND (NOT (MEMBER (CAR X) (CDR X))) (PNAME-LISTP (CDR X)))) (EQUAL X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . PNAME-LISTP) (DCELL . *1*PNAME-LISTP))))) (PUT1-LST (QUOTE LSI-TOP-LEVEL-PREDICATE-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE LSI-TOP-LEVEL-PREDICATE-OFF LSI-TOP-LEVEL-PREDICATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-TOP-LEVEL-PREDICATE . LSI-TOP-LEVEL-PREDICATE-OFF) (DISABLED-LEMMAS NIL LSI-TOP-LEVEL-PREDICATE LSI-TOP-LEVEL-PREDICATE-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-TOP-LEVEL-PREDICATE) (QUOTE (MAIN-EVENT LSI-TOP-LEVEL-PREDICATE))) (PUT1-LST (QUOTE LSI-TOP-LEVEL-PREDICATE) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-TOP-LEVEL-PREDICATE 4098 NIL NIL NIL)) TOTALP-LST ((LSI-TOP-LEVEL-PREDICATE . T)) SDEFN (LAMBDA (NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH) (IF (NET-ERRORP (LSI-NETLIST-SYNTAX-OK NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH)) (LSI-NETLIST-SYNTAX-OK NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))) LISP-CODE *1*LSI-TOP-LEVEL-PREDICATE SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194010 SATELLITES (*1*LSI-TOP-LEVEL-PREDICATE) IMMEDIATE-DEPENDENTS0 (LSI-TOP-LEVEL-PREDICATE-OFF) EVENT (DEFN LSI-TOP-LEVEL-PREDICATE (NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH) (IF (NET-ERRORP (LSI-NETLIST-SYNTAX-OK NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH)) (LSI-NETLIST-SYNTAX-OK NETLIST TOKEN-SIZE MAX-HIERARCHICAL-NAME-LENGTH) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PREDICATE-PROPERTIES . LSI-TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . LSI-TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 LSI-NETLIST-SYNTAX-OK . LSI-TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . LSI-TOP-LEVEL-PREDICATE) (DCELL . *1*LSI-TOP-LEVEL-PREDICATE))))) (PUT1-LST (QUOTE TOP-LEVEL-PREDICATE-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE TOP-LEVEL-PREDICATE-OFF TOP-LEVEL-PREDICATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TOP-LEVEL-PREDICATE . TOP-LEVEL-PREDICATE-OFF) (DISABLED-LEMMAS NIL TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE-OFF . T))))) (PUT1-LST (QUOTE *1*TOP-LEVEL-PREDICATE) (QUOTE (MAIN-EVENT TOP-LEVEL-PREDICATE))) (PUT1-LST (QUOTE TOP-LEVEL-PREDICATE) (QUOTE (TYPE-PRESCRIPTION-LST ((TOP-LEVEL-PREDICATE 4098 NIL)) TOTALP-LST ((TOP-LEVEL-PREDICATE . T)) SDEFN (LAMBDA (NETLIST) (IF (NET-ERRORP (NETLIST-SYNTAX-OK NETLIST)) (NETLIST-SYNTAX-OK NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))) LISP-CODE *1*TOP-LEVEL-PREDICATE SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194010 SATELLITES (*1*TOP-LEVEL-PREDICATE) IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-AFTER-INDEXED-NAMES-REMOVED CHIP-WELL-FORMED TOP-LEVEL-PREDICATE-OFF) EVENT (DEFN TOP-LEVEL-PREDICATE (NETLIST) (IF (NET-ERRORP (NETLIST-SYNTAX-OK NETLIST)) (NETLIST-SYNTAX-OK NETLIST) (IF (NET-ERRORP (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE))) (NETLIST-PROPERTIES NETLIST (PREDICATE-PROPERTIES) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PREDICATE-PROPERTIES . TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-OK . TOP-LEVEL-PREDICATE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . TOP-LEVEL-PREDICATE) (DCELL . *1*TOP-LEVEL-PREDICATE))))) (PUT1-LST (QUOTE G*1*PREDICATE-PROPERTIES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE G*1*PREDICATE-PROPERTIES-OFF *1*PREDICATE-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PREDICATE-PROPERTIES . G*1*PREDICATE-PROPERTIES-OFF) (DISABLED-LEMMAS NIL *1*PREDICATE-PROPERTIES G*1*PREDICATE-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE PREDICATE-PROPERTIES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE PREDICATE-PROPERTIES-OFF PREDICATE-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PREDICATE-PROPERTIES . PREDICATE-PROPERTIES-OFF) (DISABLED-LEMMAS NIL PREDICATE-PROPERTIES PREDICATE-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE *1*PREDICATE-PROPERTIES) (QUOTE (MAIN-EVENT PREDICATE-PROPERTIES))) (PUT1-LST (QUOTE PREDICATE-PROPERTIES) (QUOTE (TYPE-PRESCRIPTION-LST ((PREDICATE-PROPERTIES 16)) TOTALP-LST ((PREDICATE-PROPERTIES . T)) SDEFN (LAMBDA NIL (QUOTE (DRIVES INPUT-TYPES LOADINGS OUT-DEPENDS OUTPUT-TYPES STATE-TYPES))) LISP-CODE *1*PREDICATE-PROPERTIES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*PREDICATE-PROPERTIES) IMMEDIATE-DEPENDENTS0 (LSI-TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE G*1*PREDICATE-PROPERTIES-OFF PREDICATE-PROPERTIES-OFF) EVENT (DEFN PREDICATE-PROPERTIES NIL (QUOTE (DRIVES INPUT-TYPES LOADINGS OUT-DEPENDS OUTPUT-TYPES STATE-TYPES))) LOCAL-UNDO-TUPLES ((DCELL . *1*PREDICATE-PROPERTIES))))) (PUT1-LST (QUOTE NETLIST-DATABASE-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE NETLIST-DATABASE-OFF NETLIST-DATABASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-DATABASE . NETLIST-DATABASE-OFF) (DISABLED-LEMMAS NIL NETLIST-DATABASE NETLIST-DATABASE-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-DATABASE) (QUOTE (MAIN-EVENT NETLIST-DATABASE))) (PUT1-LST (QUOTE NETLIST-DATABASE) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-DATABASE 24 NIL NIL)) TOTALP-LST ((NETLIST-DATABASE . T)) SDEFN (LAMBDA (NETLIST APPROXIMATE-DELAYS-P) (UNBIND-NETLIST-PROPS (SET-DIFF (REQUIRED-PROPS (ALL-MODULE-PROPS)) (ALL-MODULE-PROPS)) (MODULE-DATABASE NETLIST (REQUIRED-PROPS (ALL-MODULE-PROPS)) APPROXIMATE-DELAYS-P))) LISP-CODE *1*NETLIST-DATABASE SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194010 SATELLITES (*1*NETLIST-DATABASE) IMMEDIATE-DEPENDENTS0 (NETLIST-DATABASE-OFF) EVENT (DEFN NETLIST-DATABASE (NETLIST APPROXIMATE-DELAYS-P) (UNBIND-NETLIST-PROPS (SET-DIFF (REQUIRED-PROPS (ALL-MODULE-PROPS)) (ALL-MODULE-PROPS)) (MODULE-DATABASE NETLIST (REQUIRED-PROPS (ALL-MODULE-PROPS)) APPROXIMATE-DELAYS-P))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . NETLIST-DATABASE) (IMMEDIATE-DEPENDENTS0 ALL-MODULE-PROPS . NETLIST-DATABASE) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . NETLIST-DATABASE) (IMMEDIATE-DEPENDENTS0 SET-DIFF . NETLIST-DATABASE) (IMMEDIATE-DEPENDENTS0 UNBIND-NETLIST-PROPS . NETLIST-DATABASE) (DCELL . *1*NETLIST-DATABASE))))) (PUT1-LST (QUOTE NETLIST-PROPERTIES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE NETLIST-PROPERTIES-OFF NETLIST-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-PROPERTIES . NETLIST-PROPERTIES-OFF) (DISABLED-LEMMAS NIL NETLIST-PROPERTIES NETLIST-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-PROPERTIES) (QUOTE (MAIN-EVENT NETLIST-PROPERTIES))) (PUT1-LST (QUOTE NETLIST-PROPERTIES) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-PROPERTIES 4120 NIL NIL NIL)) TOTALP-LST ((NETLIST-PROPERTIES . T)) SDEFN (LAMBDA (NETLIST PROPS APPROXIMATE-DELAYS-P) (IF (NET-ERRORP (SUBSET-OR-ERR PROPS (ALL-MODULE-PROPS) (QUOTE UNKNOWN-PROPERTIES))) (SUBSET-OR-ERR PROPS (ALL-MODULE-PROPS) (QUOTE UNKNOWN-PROPERTIES)) (IF (LISTP (COLLECT-NET-ERRORS (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))) (PRED-ERROR (QUOTE NETLIST-ERRORS) (COLLECT-NET-ERRORS (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))) (UNBIND-NETLIST-PROPS (SET-DIFF (REQUIRED-PROPS PROPS) PROPS) (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))))) LISP-CODE *1*NETLIST-PROPERTIES SUBRP *1*FALSE LEVEL-NO 9 IDATE 1000402194010 SATELLITES (*1*NETLIST-PROPERTIES) IMMEDIATE-DEPENDENTS0 (NETLIST-LOADINGS-AND-DRIVES LOADINGS-AND-DRIVES NETLIST-STATE-TYPES STATE-TYPE-REQUIREMENT NETLIST-TYPE-TABLE IO-TYPES DEPENDENCY-TABLE OUT-DEPENDS PRIMITIVE-COUNT LSI-TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE NETLIST-PROPERTIES-OFF) EVENT (DEFN NETLIST-PROPERTIES (NETLIST PROPS APPROXIMATE-DELAYS-P) (IF (NET-ERRORP (SUBSET-OR-ERR PROPS (ALL-MODULE-PROPS) (QUOTE UNKNOWN-PROPERTIES))) (SUBSET-OR-ERR PROPS (ALL-MODULE-PROPS) (QUOTE UNKNOWN-PROPERTIES)) (IF (LISTP (COLLECT-NET-ERRORS (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))) (PRED-ERROR (QUOTE NETLIST-ERRORS) (COLLECT-NET-ERRORS (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))) (UNBIND-NETLIST-PROPS (SET-DIFF (REQUIRED-PROPS PROPS) PROPS) (MODULE-DATABASE NETLIST (REQUIRED-PROPS PROPS) APPROXIMATE-DELAYS-P))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-DIFF . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 UNBIND-NETLIST-PROPS . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 COLLECT-NET-ERRORS . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 ALL-MODULE-PROPS . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 SUBSET-OR-ERR . NETLIST-PROPERTIES) (IMMEDIATE-DEPENDENTS0 NET-ERROR . NETLIST-PROPERTIES) (DCELL . *1*NETLIST-PROPERTIES))))) (PUT1-LST (QUOTE UNBIND-NETLIST-PROPS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UNBIND-NETLIST-PROPS-OFF UNBIND-NETLIST-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND-NETLIST-PROPS . UNBIND-NETLIST-PROPS-OFF) (DISABLED-LEMMAS NIL UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS-OFF . T))))) (PUT1-LST (QUOTE *1*UNBIND-NETLIST-PROPS) (QUOTE (MAIN-EVENT UNBIND-NETLIST-PROPS))) (PUT1-LST (QUOTE UNBIND-NETLIST-PROPS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBIND-NETLIST-PROPS 24 NIL T)) TOTALP-LST ((UNBIND-NETLIST-PROPS . T)) SDEFN (LAMBDA (PROPS DATABASE) (IF (LISTP PROPS) (UNBIND-NETLIST-PROPS-0 (REVERSE PROPS) DATABASE) DATABASE)) LISP-CODE *1*UNBIND-NETLIST-PROPS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*UNBIND-NETLIST-PROPS) IMMEDIATE-DEPENDENTS0 (NETLIST-DATABASE NETLIST-PROPERTIES UNBIND-NETLIST-PROPS-OFF) EVENT (DEFN UNBIND-NETLIST-PROPS (PROPS DATABASE) (IF (LISTP PROPS) (UNBIND-NETLIST-PROPS-0 (REVERSE PROPS) DATABASE) DATABASE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REVERSE . UNBIND-NETLIST-PROPS) (IMMEDIATE-DEPENDENTS0 UNBIND-NETLIST-PROPS-0 . UNBIND-NETLIST-PROPS) (DCELL . *1*UNBIND-NETLIST-PROPS))))) (PUT1-LST (QUOTE UNBIND-NETLIST-PROPS-0-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UNBIND-NETLIST-PROPS-0-OFF UNBIND-NETLIST-PROPS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND-NETLIST-PROPS-0 . UNBIND-NETLIST-PROPS-0-OFF) (DISABLED-LEMMAS NIL UNBIND-NETLIST-PROPS-0 UNBIND-NETLIST-PROPS-0-OFF . T))))) (PUT1-LST (QUOTE *1*UNBIND-NETLIST-PROPS-0) (QUOTE (MAIN-EVENT UNBIND-NETLIST-PROPS-0))) (PUT1-LST (QUOTE UNBIND-NETLIST-PROPS-0) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBIND-NETLIST-PROPS-0 24 NIL NIL)) TOTALP-LST ((UNBIND-NETLIST-PROPS-0 . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (PROPS DATABASE) (IF (LISTP DATABASE) (IF (NET-ERRORP (CAR (CDR (CAR DATABASE)))) (CONS (CONS (CAR (CAR DATABASE)) (CONS (CAR (CDR (CAR DATABASE))) (UNBIND-LIST PROPS (CDR (CDR (CAR DATABASE)))))) (UNBIND-NETLIST-PROPS-0 PROPS (CDR DATABASE))) (CONS (CONS (CAR (CAR DATABASE)) (UNBIND-LIST PROPS (CDR (CAR DATABASE)))) (UNBIND-NETLIST-PROPS-0 PROPS (CDR DATABASE)))) (QUOTE NIL))) LISP-CODE *1*UNBIND-NETLIST-PROPS-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DATABASE)) ((PROPS (CDR DATABASE)))) (TESTS-AND-CASES ((NOT (LISTP DATABASE))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DATABASE) (COUNT DATABASE) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (2) SATELLITES (*1*UNBIND-NETLIST-PROPS-0) IMMEDIATE-DEPENDENTS0 (UNBIND-NETLIST-PROPS UNBIND-NETLIST-PROPS-0-OFF) EVENT (DEFN UNBIND-NETLIST-PROPS-0 (PROPS DATABASE) (IF (LISTP DATABASE) (CONS (CONS (CAR (CAR DATABASE)) (IF (NET-ERRORP (CAR (CDR (CAR DATABASE)))) (CONS (CAR (CDR (CAR DATABASE))) (UNBIND-LIST PROPS (CDR (CDR (CAR DATABASE))))) (UNBIND-LIST PROPS (CDR (CAR DATABASE))))) (UNBIND-NETLIST-PROPS-0 PROPS (CDR DATABASE))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND-LIST . UNBIND-NETLIST-PROPS-0) (IMMEDIATE-DEPENDENTS0 NET-ERROR . UNBIND-NETLIST-PROPS-0) (DCELL . *1*UNBIND-NETLIST-PROPS-0))))) (PUT1-LST (QUOTE REQUIRED-PROPS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE REQUIRED-PROPS-OFF REQUIRED-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REQUIRED-PROPS . REQUIRED-PROPS-OFF) (DISABLED-LEMMAS NIL REQUIRED-PROPS REQUIRED-PROPS-OFF . T))))) (PUT1-LST (QUOTE *1*REQUIRED-PROPS) (QUOTE (MAIN-EVENT REQUIRED-PROPS))) (PUT1-LST (QUOTE REQUIRED-PROPS) (QUOTE (TYPE-PRESCRIPTION-LST ((REQUIRED-PROPS 16 T)) TOTALP-LST ((REQUIRED-PROPS . T)) SDEFN (LAMBDA (PROPS) (GET-REQUIRED-PROPS PROPS PROPS)) LISP-CODE *1*REQUIRED-PROPS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*REQUIRED-PROPS) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUT-DEPENDS PRIMITIVE-COUNT NETLIST-DATABASE NETLIST-PROPERTIES REQUIRED-PROPS-OFF) EVENT (DEFN REQUIRED-PROPS (PROPS) (GET-REQUIRED-PROPS PROPS PROPS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-REQUIRED-PROPS . REQUIRED-PROPS) (DCELL . *1*REQUIRED-PROPS))))) (PUT1-LST (QUOTE GET-REQUIRED-PROPS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE GET-REQUIRED-PROPS-OFF GET-REQUIRED-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-REQUIRED-PROPS . GET-REQUIRED-PROPS-OFF) (DISABLED-LEMMAS NIL GET-REQUIRED-PROPS GET-REQUIRED-PROPS-OFF . T))))) (PUT1-LST (QUOTE *1*GET-REQUIRED-PROPS) (QUOTE (MAIN-EVENT GET-REQUIRED-PROPS))) (PUT1-LST (QUOTE GET-REQUIRED-PROPS) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-REQUIRED-PROPS 16 NIL T)) TOTALP-LST ((GET-REQUIRED-PROPS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (PROPS WANTED-PROPS) (IF (LISTP PROPS) (UNION (REQUIRED-FOR-PROP (CAR PROPS)) (GET-REQUIRED-PROPS (CDR PROPS) WANTED-PROPS)) WANTED-PROPS)) LISP-CODE *1*GET-REQUIRED-PROPS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP PROPS)) (((CDR PROPS) WANTED-PROPS))) (TESTS-AND-CASES ((NOT (LISTP PROPS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (PROPS) (COUNT PROPS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*GET-REQUIRED-PROPS) IMMEDIATE-DEPENDENTS0 (REQUIRED-PROPS GET-REQUIRED-PROPS-OFF) EVENT (DEFN GET-REQUIRED-PROPS (PROPS WANTED-PROPS) (IF (LISTP PROPS) (UNION (REQUIRED-FOR-PROP (CAR PROPS)) (GET-REQUIRED-PROPS (CDR PROPS) WANTED-PROPS)) WANTED-PROPS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REQUIRED-FOR-PROP . GET-REQUIRED-PROPS) (DCELL . *1*GET-REQUIRED-PROPS))))) (PUT1-LST (QUOTE REQUIRED-FOR-PROP-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE REQUIRED-FOR-PROP-OFF REQUIRED-FOR-PROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REQUIRED-FOR-PROP . REQUIRED-FOR-PROP-OFF) (DISABLED-LEMMAS NIL REQUIRED-FOR-PROP REQUIRED-FOR-PROP-OFF . T))))) (PUT1-LST (QUOTE *1*REQUIRED-FOR-PROP) (QUOTE (MAIN-EVENT REQUIRED-FOR-PROP))) (PUT1-LST (QUOTE REQUIRED-FOR-PROP) (QUOTE (TYPE-PRESCRIPTION-LST ((REQUIRED-FOR-PROP 24 NIL)) TOTALP-LST ((REQUIRED-FOR-PROP . T)) SDEFN (LAMBDA (PROP) (IF (EQUAL PROP (QUOTE DELAYS)) (QUOTE (DELAYS LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE DRIVES)) (QUOTE (DRIVES LOADINGS INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE INPUT-TYPES)) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE LOADINGS)) (QUOTE (LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE OUT-DEPENDS)) (QUOTE (OUT-DEPENDS INPUTS OUTPUTS)) (IF (EQUAL PROP (QUOTE OUTPUT-TYPES)) (QUOTE (OUTPUT-TYPES INPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (MEMBER PROP (ALL-MODULE-PROPS)) (CONS PROP (QUOTE NIL)) (QUOTE NIL))))))))) LISP-CODE *1*REQUIRED-FOR-PROP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*REQUIRED-FOR-PROP) IMMEDIATE-DEPENDENTS0 (GET-REQUIRED-PROPS REQUIRED-FOR-PROP-OFF) EVENT (DEFN REQUIRED-FOR-PROP (PROP) (IF (EQUAL PROP (QUOTE DELAYS)) (QUOTE (DELAYS LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE DRIVES)) (QUOTE (DRIVES LOADINGS INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE INPUT-TYPES)) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE LOADINGS)) (QUOTE (LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (EQUAL PROP (QUOTE OUT-DEPENDS)) (QUOTE (OUT-DEPENDS INPUTS OUTPUTS)) (IF (EQUAL PROP (QUOTE OUTPUT-TYPES)) (QUOTE (OUTPUT-TYPES INPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA)) (IF (MEMBER PROP (ALL-MODULE-PROPS)) (CONS PROP (QUOTE NIL)) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-MODULE-PROPS . REQUIRED-FOR-PROP) (DCELL . *1*REQUIRED-FOR-PROP))))) (PUT1-LST (QUOTE MODULE-DATABASE-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE MODULE-DATABASE-OFF MODULE-DATABASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATABASE . MODULE-DATABASE-OFF) (DISABLED-LEMMAS NIL MODULE-DATABASE MODULE-DATABASE-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-DATABASE) (QUOTE (MAIN-EVENT MODULE-DATABASE))) (PUT1-LST (QUOTE MODULE-DATABASE) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-DATABASE 24 NIL NIL NIL)) TOTALP-LST ((MODULE-DATABASE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (NETLIST PROPS APPROXIMATE-DELAYS-P) (IF (LISTP NETLIST) (CONS (MODULE-DATA (CAR NETLIST) PROPS (MODULE-DATABASE (CDR NETLIST) PROPS APPROXIMATE-DELAYS-P) APPROXIMATE-DELAYS-P) (MODULE-DATABASE (CDR NETLIST) PROPS APPROXIMATE-DELAYS-P)) (QUOTE NIL))) LISP-CODE *1*MODULE-DATABASE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NETLIST)) (((CDR NETLIST) PROPS APPROXIMATE-DELAYS-P))) (TESTS-AND-CASES ((NOT (LISTP NETLIST))) NIL)) LEVEL-NO 9 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*MODULE-DATABASE) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUT-DEPENDS PRIMITIVE-COUNT NETLIST-DATABASE NETLIST-PROPERTIES MODULE-DATABASE-OFF) EVENT (DEFN MODULE-DATABASE (NETLIST PROPS APPROXIMATE-DELAYS-P) (IF (LISTP NETLIST) (CONS (MODULE-DATA (CAR NETLIST) PROPS (MODULE-DATABASE (CDR NETLIST) PROPS APPROXIMATE-DELAYS-P) APPROXIMATE-DELAYS-P) (MODULE-DATABASE (CDR NETLIST) PROPS APPROXIMATE-DELAYS-P)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATA . MODULE-DATABASE) (DCELL . *1*MODULE-DATABASE))))) (PUT1-LST (QUOTE MODULE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE MODULE-DATA-OFF MODULE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-DATA . MODULE-DATA-OFF) (DISABLED-LEMMAS NIL MODULE-DATA MODULE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-DATA) (QUOTE (MAIN-EVENT MODULE-DATA))) (PUT1-LST (QUOTE MODULE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-DATA 16 NIL NIL NIL NIL)) TOTALP-LST ((MODULE-DATA . T)) SDEFN (LAMBDA (MODULE PROPS DATABASE APPROXIMATE-DELAYS-P) (COLLECT-MODULE-DATA PROPS (MODULE-NAME MODULE) (MODULE-INPUTS MODULE) (MARK-IO-OUTS (MODULE-OUTPUTS MODULE) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE))) (MODULE-STATENAMES MODULE) (OCCURRENCE-DATA PROPS (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MARK-IO-OUTS (MODULE-OUTPUTS MODULE) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE))) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE)) DATABASE) APPROXIMATE-DELAYS-P)) LISP-CODE *1*MODULE-DATA SUBRP *1*FALSE LEVEL-NO 8 IDATE 1000402194010 SATELLITES (*1*MODULE-DATA) IMMEDIATE-DEPENDENTS0 (MODULE-DATABASE MODULE-DATA-OFF) EVENT (DEFN MODULE-DATA (MODULE PROPS DATABASE APPROXIMATE-DELAYS-P) (COLLECT-MODULE-DATA PROPS (MODULE-NAME MODULE) (MODULE-INPUTS MODULE) (MARK-IO-OUTS (MODULE-OUTPUTS MODULE) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE))) (MODULE-STATENAMES MODULE) (OCCURRENCE-DATA PROPS (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MARK-IO-OUTS (MODULE-OUTPUTS MODULE) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE))) (INTERSECTION (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE)) DATABASE) APPROXIMATE-DELAYS-P)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 INTERSECTION . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . MODULE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-DATA . MODULE-DATA) (DCELL . *1*MODULE-DATA))))) (PUT1-LST (QUOTE COLLECT-MODULE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-MODULE-DATA-OFF COLLECT-MODULE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-DATA . COLLECT-MODULE-DATA-OFF) (DISABLED-LEMMAS NIL COLLECT-MODULE-DATA COLLECT-MODULE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-DATA) (QUOTE (MAIN-EVENT COLLECT-MODULE-DATA))) (PUT1-LST (QUOTE COLLECT-MODULE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-MODULE-DATA 16 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-MODULE-DATA . T)) SDEFN (LAMBDA (PROPS M-NAME M-INS M-OUTS M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (NET-ERRORP (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL))))) (IF (MEMBER (QUOTE INPUT-TYPES) PROPS) (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (CONS M-NAME (CONS (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL)))) (COLLECT-MODULE-PROPS PROPS M-INS (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-OUTS (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (CONS M-NAME (CONS (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL)))) (COLLECT-MODULE-PROPS PROPS M-INS (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-OUTS (QUOTE NIL) M-STATES OBINDINGS APPROXIMATE-DELAYS-P)))) (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (CONS M-NAME (CONS (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL)))) (COLLECT-MODULE-PROPS PROPS M-INS (QUOTE NIL) M-OUTS (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (CONS M-NAME (CONS (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL)))) (COLLECT-MODULE-PROPS PROPS M-INS (QUOTE NIL) M-OUTS (QUOTE NIL) M-STATES OBINDINGS APPROXIMATE-DELAYS-P))))) (IF (MEMBER (QUOTE INPUT-TYPES) PROPS) (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (CONS M-NAME (COLLECT-MODULE-PROPS PROPS M-INS (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-OUTS (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (CONS M-NAME (COLLECT-MODULE-PROPS PROPS M-INS (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-OUTS (QUOTE NIL) M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (CONS M-NAME (COLLECT-MODULE-PROPS PROPS M-INS (QUOTE NIL) M-OUTS (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (CONS M-NAME (COLLECT-MODULE-PROPS PROPS M-INS (QUOTE NIL) M-OUTS (QUOTE NIL) M-STATES OBINDINGS APPROXIMATE-DELAYS-P)))))) LISP-CODE *1*COLLECT-MODULE-DATA SUBRP *1*FALSE LEVEL-NO 8 IDATE 1000402194010 SATELLITES (*1*COLLECT-MODULE-DATA) IMMEDIATE-DEPENDENTS0 (MODULE-DATA COLLECT-MODULE-DATA-OFF) EVENT (DEFN COLLECT-MODULE-DATA (PROPS M-NAME M-INS M-OUTS M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (NET-ERRORP (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL))))) (CONS M-NAME (CONS (NLISTP-OR-ERR (COLLECT-MODULE-ERRORS OBINDINGS M-STATES) (CONS (QUOTE MODULE) (CONS M-NAME (QUOTE NIL)))) (COLLECT-MODULE-PROPS PROPS M-INS (IF (MEMBER (QUOTE INPUT-TYPES) PROPS) (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) (QUOTE NIL)) M-OUTS (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) (QUOTE NIL)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (CONS M-NAME (COLLECT-MODULE-PROPS PROPS M-INS (IF (MEMBER (QUOTE INPUT-TYPES) PROPS) (COLLECT-IN-TYPES M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) (QUOTE NIL)) M-OUTS (IF (MEMBER (QUOTE OUTPUT-TYPES) PROPS) (COLLECT-OUT-TYPES M-OUTS (VALUE (QUOTE OUTPUT-TYPES) OBINDINGS) M-INS (VALUE (QUOTE INPUT-TYPES) OBINDINGS)) (QUOTE NIL)) M-STATES OBINDINGS APPROXIMATE-DELAYS-P)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-TYPES . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-IN-TYPES . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-PROPS . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-ERRORS . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . COLLECT-MODULE-DATA) (IMMEDIATE-DEPENDENTS0 NET-ERROR . COLLECT-MODULE-DATA) (DCELL . *1*COLLECT-MODULE-DATA))))) (PUT1-LST (QUOTE COLLECT-MODULE-ERRORS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-MODULE-ERRORS-OFF COLLECT-MODULE-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-ERRORS . COLLECT-MODULE-ERRORS-OFF) (DISABLED-LEMMAS NIL COLLECT-MODULE-ERRORS COLLECT-MODULE-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-ERRORS) (QUOTE (MAIN-EVENT COLLECT-MODULE-ERRORS))) (PUT1-LST (QUOTE COLLECT-MODULE-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-MODULE-ERRORS 24 NIL NIL)) TOTALP-LST ((COLLECT-MODULE-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (OBINDINGS M-STATES) (IF (LISTP OBINDINGS) (IF (NET-ERRORP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES)) (CONS (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES)) (IF (LISTP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES)) (APPEND (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES)) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES))) (QUOTE NIL))) LISP-CODE *1*COLLECT-MODULE-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OBINDINGS) (NET-ERRORP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES))) (((CDR OBINDINGS) M-STATES))) (TESTS-AND-CASES ((LISTP OBINDINGS) (NOT (NET-ERRORP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES))) (LISTP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES))) (((CDR OBINDINGS) M-STATES))) (TESTS-AND-CASES ((LISTP OBINDINGS) (NOT (NET-ERRORP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES))) (NOT (LISTP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES)))) (((CDR OBINDINGS) M-STATES))) (TESTS-AND-CASES ((NOT (LISTP OBINDINGS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (OBINDINGS) (COUNT OBINDINGS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-MODULE-ERRORS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-DATA COLLECT-MODULE-ERRORS-OFF) EVENT (DEFN COLLECT-MODULE-ERRORS (OBINDINGS M-STATES) (IF (LISTP OBINDINGS) (IF (NET-ERRORP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES)) (CONS (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES)) (IF (LISTP (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES)) (APPEND (MODULE-PROP-ERROR (CAR OBINDINGS) M-STATES) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES)) (COLLECT-MODULE-ERRORS (CDR OBINDINGS) M-STATES))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-PROP-ERROR . COLLECT-MODULE-ERRORS) (IMMEDIATE-DEPENDENTS0 NET-ERROR . COLLECT-MODULE-ERRORS) (DCELL . *1*COLLECT-MODULE-ERRORS))))) (PUT1-LST (QUOTE MODULE-PROP-ERROR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE MODULE-PROP-ERROR-OFF MODULE-PROP-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-PROP-ERROR . MODULE-PROP-ERROR-OFF) (DISABLED-LEMMAS NIL MODULE-PROP-ERROR MODULE-PROP-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-PROP-ERROR) (QUOTE (MAIN-EVENT MODULE-PROP-ERROR))) (PUT1-LST (QUOTE MODULE-PROP-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-PROP-ERROR 4122 T NIL)) TOTALP-LST ((MODULE-PROP-ERROR . T)) SDEFN (LAMBDA (OBINDING M-STATES) (IF (LISTP OBINDING) (IF (EQUAL (CAR OBINDING) (QUOTE DELAYS)) (DELAYS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE DRIVES)) (DRIVES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE INPUT-TYPES)) (IN-TYPES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE LOADINGS)) (LOADINGS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE OUT-DEPENDS)) (OUT-DEPENDS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE OUTPUT-TYPES)) (OUT-TYPES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE STATE-TYPES)) (STATE-TYPES-ERROR (CDR OBINDING) M-STATES) (IF (EQUAL (CAR OBINDING) (QUOTE TRI-STATE-DATA)) (TRI-STATE-ERRORS (CDR OBINDING)) (QUOTE NIL))))))))) OBINDING)) LISP-CODE *1*MODULE-PROP-ERROR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*MODULE-PROP-ERROR) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-ERRORS MODULE-PROP-ERROR-OFF) EVENT (DEFN MODULE-PROP-ERROR (OBINDING M-STATES) (IF (LISTP OBINDING) (IF (EQUAL (CAR OBINDING) (QUOTE DELAYS)) (DELAYS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE DRIVES)) (DRIVES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE INPUT-TYPES)) (IN-TYPES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE LOADINGS)) (LOADINGS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE OUT-DEPENDS)) (OUT-DEPENDS-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE OUTPUT-TYPES)) (OUT-TYPES-ERROR (CDR OBINDING)) (IF (EQUAL (CAR OBINDING) (QUOTE STATE-TYPES)) (STATE-TYPES-ERROR (CDR OBINDING) M-STATES) (IF (EQUAL (CAR OBINDING) (QUOTE TRI-STATE-DATA)) (TRI-STATE-ERRORS (CDR OBINDING)) (QUOTE NIL))))))))) OBINDING)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRI-STATE-ERRORS . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 STATE-TYPES-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 OUT-TYPES-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 OUT-DEPENDS-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 LOADINGS-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 IN-TYPES-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 DRIVES-ERROR . MODULE-PROP-ERROR) (IMMEDIATE-DEPENDENTS0 DELAYS-ERROR . MODULE-PROP-ERROR) (DCELL . *1*MODULE-PROP-ERROR))))) (PUT1-LST (QUOTE COLLECT-MODULE-PROPS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-MODULE-PROPS-OFF COLLECT-MODULE-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-PROPS . COLLECT-MODULE-PROPS-OFF) (DISABLED-LEMMAS NIL COLLECT-MODULE-PROPS COLLECT-MODULE-PROPS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-PROPS) (QUOTE (MAIN-EVENT COLLECT-MODULE-PROPS))) (PUT1-LST (QUOTE COLLECT-MODULE-PROPS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-MODULE-PROPS 24 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-MODULE-PROPS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (PROPS M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (LISTP PROPS) (IF (LISTP (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (CONS (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (COLLECT-MODULE-PROPS (CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (COLLECT-MODULE-PROPS (CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (QUOTE NIL))) LISP-CODE *1*COLLECT-MODULE-PROPS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP PROPS) (LISTP (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (((CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (TESTS-AND-CASES ((LISTP PROPS) (NOT (LISTP (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)))) (((CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P))) (TESTS-AND-CASES ((NOT (LISTP PROPS))) NIL)) LEVEL-NO 8 JUSTIFICATIONS ((JUSTIFICATION (PROPS) (COUNT PROPS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-MODULE-PROPS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-DATA COLLECT-MODULE-PROPS-OFF) EVENT (DEFN COLLECT-MODULE-PROPS (PROPS M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (LISTP PROPS) (IF (LISTP (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (CONS (COLLECT-MODULE-PROP (CAR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (COLLECT-MODULE-PROPS (CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (COLLECT-MODULE-PROPS (CDR PROPS) M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-PROP . COLLECT-MODULE-PROPS) (DCELL . *1*COLLECT-MODULE-PROPS))))) (PUT1-LST (QUOTE COLLECT-MODULE-PROP-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-MODULE-PROP-OFF COLLECT-MODULE-PROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MODULE-PROP . COLLECT-MODULE-PROP-OFF) (DISABLED-LEMMAS NIL COLLECT-MODULE-PROP COLLECT-MODULE-PROP-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-PROP) (QUOTE (MAIN-EVENT COLLECT-MODULE-PROP))) (PUT1-LST (QUOTE COLLECT-MODULE-PROP) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-MODULE-PROP 25 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-MODULE-PROP . T)) SDEFN (LAMBDA (PROP-NAME M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (EQUAL PROP-NAME (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (COLLECT-DELAYS M-OUTS OUT-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)) M-INS APPROXIMATE-DELAYS-P)) (IF (EQUAL PROP-NAME (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (COLLECT-DRIVES M-OUTS OUT-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)) M-INS)) (IF (EQUAL PROP-NAME (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) IN-TYPES) (IF (EQUAL PROP-NAME (QUOTE INPUTS)) (CONS (QUOTE INPUTS) M-INS) (IF (EQUAL PROP-NAME (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (COLLECT-LOADINGS M-INS IN-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (IF (EQUAL PROP-NAME (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (COLLECT-OUT-DEPENDS M-OUTS (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (IF (EQUAL PROP-NAME (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) OUT-TYPES) (IF (EQUAL PROP-NAME (QUOTE OUTPUTS)) (CONS (QUOTE OUTPUTS) (UNMARK-IO-OUTS M-OUTS)) (IF (EQUAL PROP-NAME (QUOTE STATE-TYPES)) (IF (EQUAL M-STATES (QUOTE NIL)) (QUOTE NIL) (CONS (QUOTE STATE-TYPES) (COLLECT-STATE-TYPES M-STATES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS))))) (IF (EQUAL PROP-NAME (QUOTE STATES)) (IF (EQUAL M-STATES (QUOTE NIL)) (QUOTE NIL) (CONS (QUOTE STATES) M-STATES)) (IF (EQUAL PROP-NAME (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (COLLECT-TRI-STATE-DATA M-INS M-OUTS (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (ALIST-ENTRY PROP-NAME OBINDINGS))))))))))))) LISP-CODE *1*COLLECT-MODULE-PROP SUBRP *1*FALSE LEVEL-NO 7 IDATE 1000402194010 SATELLITES (*1*COLLECT-MODULE-PROP) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROPS COLLECT-MODULE-PROP-OFF) EVENT (DEFN COLLECT-MODULE-PROP (PROP-NAME M-INS IN-TYPES M-OUTS OUT-TYPES M-STATES OBINDINGS APPROXIMATE-DELAYS-P) (IF (EQUAL PROP-NAME (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (COLLECT-DELAYS M-OUTS OUT-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)) M-INS APPROXIMATE-DELAYS-P)) (IF (EQUAL PROP-NAME (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (COLLECT-DRIVES M-OUTS OUT-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)) M-INS)) (IF (EQUAL PROP-NAME (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) IN-TYPES) (IF (EQUAL PROP-NAME (QUOTE INPUTS)) (CONS (QUOTE INPUTS) M-INS) (IF (EQUAL PROP-NAME (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (COLLECT-LOADINGS M-INS IN-TYPES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (IF (EQUAL PROP-NAME (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (COLLECT-OUT-DEPENDS M-OUTS (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (IF (EQUAL PROP-NAME (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) OUT-TYPES) (IF (EQUAL PROP-NAME (QUOTE OUTPUTS)) (CONS (QUOTE OUTPUTS) (UNMARK-IO-OUTS M-OUTS)) (IF (EQUAL PROP-NAME (QUOTE STATE-TYPES)) (IF (EQUAL M-STATES (QUOTE NIL)) (QUOTE NIL) (CONS (QUOTE STATE-TYPES) (COLLECT-STATE-TYPES M-STATES (CDR (ALIST-ENTRY PROP-NAME OBINDINGS))))) (IF (EQUAL PROP-NAME (QUOTE STATES)) (IF (EQUAL M-STATES (QUOTE NIL)) (QUOTE NIL) (CONS (QUOTE STATES) M-STATES)) (IF (EQUAL PROP-NAME (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (COLLECT-TRI-STATE-DATA M-INS M-OUTS (CDR (ALIST-ENTRY PROP-NAME OBINDINGS)))) (ALIST-ENTRY PROP-NAME OBINDINGS))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-TRI-STATE-DATA . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 COLLECT-STATE-TYPES . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUTS . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 COLLECT-OUT-DEPENDS . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 COLLECT-LOADINGS . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . COLLECT-MODULE-PROP) (IMMEDIATE-DEPENDENTS0 COLLECT-DELAYS . COLLECT-MODULE-PROP) (DCELL . *1*COLLECT-MODULE-PROP))))) (PUT1-LST (QUOTE OCCURRENCE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE OCCURRENCE-DATA-OFF OCCURRENCE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCE-DATA . OCCURRENCE-DATA-OFF) (DISABLED-LEMMAS NIL OCCURRENCE-DATA OCCURRENCE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*OCCURRENCE-DATA) (QUOTE (MAIN-EVENT OCCURRENCE-DATA))) (PUT1-LST (QUOTE OCCURRENCE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((OCCURRENCE-DATA 24 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((OCCURRENCE-DATA . T)) SDEFN (LAMBDA (PROPS BODY M-INS M-OUTS IO-SIGNALS DATABASE) (COMPOSE-OCCURRENCE-DATA (COLLECT-OCCURRENCE-DATA BODY (INITIAL-OCC-DATA PROPS M-INS M-OUTS) (QUOTE NIL) IO-SIGNALS DATABASE) IO-SIGNALS)) LISP-CODE *1*OCCURRENCE-DATA SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402194010 SATELLITES (*1*OCCURRENCE-DATA) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUT-DEPENDS PRIMITIVE-COUNT MODULE-DATA OCCURRENCE-DATA-OFF) EVENT (DEFN OCCURRENCE-DATA (PROPS BODY M-INS M-OUTS IO-SIGNALS DATABASE) (COMPOSE-OCCURRENCE-DATA (COLLECT-OCCURRENCE-DATA BODY (INITIAL-OCC-DATA PROPS M-INS M-OUTS) (QUOTE NIL) IO-SIGNALS DATABASE) IO-SIGNALS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-DATA . OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-OCCURRENCE-DATA . OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 COMPOSE-OCCURRENCE-DATA . OCCURRENCE-DATA) (DCELL . *1*OCCURRENCE-DATA))))) (PUT1-LST (QUOTE COMPOSE-OCCURRENCE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COMPOSE-OCCURRENCE-DATA-OFF COMPOSE-OCCURRENCE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSE-OCCURRENCE-DATA . COMPOSE-OCCURRENCE-DATA-OFF) (DISABLED-LEMMAS NIL COMPOSE-OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSE-OCCURRENCE-DATA) (QUOTE (MAIN-EVENT COMPOSE-OCCURRENCE-DATA))) (PUT1-LST (QUOTE COMPOSE-OCCURRENCE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSE-OCCURRENCE-DATA 24 NIL NIL)) TOTALP-LST ((COMPOSE-OCCURRENCE-DATA . T)) SDEFN (LAMBDA (BINDINGS IO-SIGNALS) (COMPOSED-OCCURRENCE-DATA BINDINGS IO-SIGNALS (QUOTE NIL))) LISP-CODE *1*COMPOSE-OCCURRENCE-DATA SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194010 SATELLITES (*1*COMPOSE-OCCURRENCE-DATA) IMMEDIATE-DEPENDENTS0 (OCCURRENCE-DATA COMPOSE-OCCURRENCE-DATA-OFF) EVENT (DEFN COMPOSE-OCCURRENCE-DATA (BINDINGS IO-SIGNALS) (COMPOSED-OCCURRENCE-DATA BINDINGS IO-SIGNALS (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-OCCURRENCE-DATA . COMPOSE-OCCURRENCE-DATA) (DCELL . *1*COMPOSE-OCCURRENCE-DATA))))) (PUT1-LST (QUOTE COMPOSED-OCCURRENCE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COMPOSED-OCCURRENCE-DATA-OFF COMPOSED-OCCURRENCE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-OCCURRENCE-DATA . COMPOSED-OCCURRENCE-DATA-OFF) (DISABLED-LEMMAS NIL COMPOSED-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSED-OCCURRENCE-DATA) (QUOTE (MAIN-EVENT COMPOSED-OCCURRENCE-DATA))) (PUT1-LST (QUOTE COMPOSED-OCCURRENCE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSED-OCCURRENCE-DATA 16 NIL NIL T)) TOTALP-LST ((COMPOSED-OCCURRENCE-DATA . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (BINDINGS IO-SIGNALS RESULT) (IF (LISTP BINDINGS) (IF (LISTP (CAR BINDINGS)) (COMPOSED-OCCURRENCE-DATA (CDR BINDINGS) IO-SIGNALS (ADD-COMPOSED-DATA (CAR (CAR BINDINGS)) BINDINGS IO-SIGNALS RESULT)) (COMPOSED-OCCURRENCE-DATA (CDR BINDINGS) IO-SIGNALS (CONS (CAR BINDINGS) RESULT))) RESULT)) LISP-CODE *1*COMPOSED-OCCURRENCE-DATA SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP BINDINGS)) (((CDR BINDINGS) IO-SIGNALS (IF (NLISTP (CAR BINDINGS)) (CONS (CAR BINDINGS) RESULT) (ADD-COMPOSED-DATA (CAR (CAR BINDINGS)) BINDINGS IO-SIGNALS RESULT))))) (TESTS-AND-CASES ((NOT (LISTP BINDINGS))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (BINDINGS) (COUNT BINDINGS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COMPOSED-OCCURRENCE-DATA) IMMEDIATE-DEPENDENTS0 (COMPOSE-OCCURRENCE-DATA COMPOSED-OCCURRENCE-DATA-OFF) EVENT (DEFN COMPOSED-OCCURRENCE-DATA (BINDINGS IO-SIGNALS RESULT) (IF (LISTP BINDINGS) (COMPOSED-OCCURRENCE-DATA (CDR BINDINGS) IO-SIGNALS (IF (NLISTP (CAR BINDINGS)) (CONS (CAR BINDINGS) RESULT) (ADD-COMPOSED-DATA (CAR (CAR BINDINGS)) BINDINGS IO-SIGNALS RESULT))) RESULT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMPOSED-DATA . COMPOSED-OCCURRENCE-DATA) (DCELL . *1*COMPOSED-OCCURRENCE-DATA))))) (PUT1-LST (QUOTE ADD-COMPOSED-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ADD-COMPOSED-DATA-OFF ADD-COMPOSED-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-COMPOSED-DATA . ADD-COMPOSED-DATA-OFF) (DISABLED-LEMMAS NIL ADD-COMPOSED-DATA ADD-COMPOSED-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-COMPOSED-DATA) (QUOTE (MAIN-EVENT ADD-COMPOSED-DATA))) (PUT1-LST (QUOTE ADD-COMPOSED-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-COMPOSED-DATA 16 NIL NIL NIL T)) TOTALP-LST ((ADD-COMPOSED-DATA . T)) SDEFN (LAMBDA (PROP-NAME BINDINGS IO-SIGNALS RESULT) (IF (BOUNDP PROP-NAME RESULT) RESULT (IF (BOUNDP PROP-NAME BINDINGS) (IF (MEMBER PROP-NAME (QUOTE (INPUT-TYPES OUTPUT-TYPES TRI-STATE-DATA))) (APPEND (COMPOSED-IO-TYPES (VALUE (QUOTE INPUT-TYPES) BINDINGS) (VALUE (QUOTE OUTPUT-TYPES) BINDINGS) (VALUE (QUOTE TRI-STATE-DATA) BINDINGS) IO-SIGNALS) RESULT) (IF (MEMBER PROP-NAME (QUOTE (LOADINGS DRIVES DELAYS))) (APPEND (COMPOSED-LOADINGS-DRIVES-DELAYS (VALUE (QUOTE LOADINGS) BINDINGS) (VALUE (QUOTE DRIVES) BINDINGS) (VALUE (QUOTE DELAYS) BINDINGS)) RESULT) (CONS (ALIST-ENTRY PROP-NAME BINDINGS) RESULT))) RESULT))) LISP-CODE *1*ADD-COMPOSED-DATA SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194010 SATELLITES (*1*ADD-COMPOSED-DATA) IMMEDIATE-DEPENDENTS0 (COMPOSED-OCCURRENCE-DATA ADD-COMPOSED-DATA-OFF) EVENT (DEFN ADD-COMPOSED-DATA (PROP-NAME BINDINGS IO-SIGNALS RESULT) (IF (OR (BOUNDP PROP-NAME RESULT) (NOT (BOUNDP PROP-NAME BINDINGS))) RESULT (IF (MEMBER PROP-NAME (QUOTE (INPUT-TYPES OUTPUT-TYPES TRI-STATE-DATA))) (APPEND (COMPOSED-IO-TYPES (VALUE (QUOTE INPUT-TYPES) BINDINGS) (VALUE (QUOTE OUTPUT-TYPES) BINDINGS) (VALUE (QUOTE TRI-STATE-DATA) BINDINGS) IO-SIGNALS) RESULT) (IF (MEMBER PROP-NAME (QUOTE (LOADINGS DRIVES DELAYS))) (APPEND (COMPOSED-LOADINGS-DRIVES-DELAYS (VALUE (QUOTE LOADINGS) BINDINGS) (VALUE (QUOTE DRIVES) BINDINGS) (VALUE (QUOTE DELAYS) BINDINGS)) RESULT) (CONS (ALIST-ENTRY PROP-NAME BINDINGS) RESULT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . ADD-COMPOSED-DATA) (IMMEDIATE-DEPENDENTS0 COMPOSED-LOADINGS-DRIVES-DELAYS . ADD-COMPOSED-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . ADD-COMPOSED-DATA) (IMMEDIATE-DEPENDENTS0 COMPOSED-IO-TYPES . ADD-COMPOSED-DATA) (IMMEDIATE-DEPENDENTS0 BOUNDP . ADD-COMPOSED-DATA) (DCELL . *1*ADD-COMPOSED-DATA))))) (PUT1-LST (QUOTE COMPOSED-LOADINGS-DRIVES-DELAYS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COMPOSED-LOADINGS-DRIVES-DELAYS-OFF COMPOSED-LOADINGS-DRIVES-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-LOADINGS-DRIVES-DELAYS . COMPOSED-LOADINGS-DRIVES-DELAYS-OFF) (DISABLED-LEMMAS NIL COMPOSED-LOADINGS-DRIVES-DELAYS COMPOSED-LOADINGS-DRIVES-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSED-LOADINGS-DRIVES-DELAYS) (QUOTE (MAIN-EVENT COMPOSED-LOADINGS-DRIVES-DELAYS))) (PUT1-LST (QUOTE COMPOSED-LOADINGS-DRIVES-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSED-LOADINGS-DRIVES-DELAYS 16 NIL NIL NIL)) TOTALP-LST ((COMPOSED-LOADINGS-DRIVES-DELAYS . T)) SDEFN (LAMBDA (LOADINGS DRIVES DELAYS) (CONS (CONS (QUOTE DELAYS) (LOADED-DELAYS DELAYS (TRANSFER-LOADINGS LOADINGS DRIVES))) (CONS (CONS (QUOTE DRIVES) (NET-DRIVES-SIMPLE DRIVES (TRANSFER-LOADINGS LOADINGS DRIVES))) (CONS (CONS (QUOTE LOADINGS) (TRANSFER-LOADINGS LOADINGS DRIVES)) (QUOTE NIL))))) LISP-CODE *1*COMPOSED-LOADINGS-DRIVES-DELAYS SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194010 SATELLITES (*1*COMPOSED-LOADINGS-DRIVES-DELAYS) IMMEDIATE-DEPENDENTS0 (ADD-COMPOSED-DATA COMPOSED-LOADINGS-DRIVES-DELAYS-OFF) EVENT (DEFN COMPOSED-LOADINGS-DRIVES-DELAYS (LOADINGS DRIVES DELAYS) (CONS (CONS (QUOTE DELAYS) (LOADED-DELAYS DELAYS (TRANSFER-LOADINGS LOADINGS DRIVES))) (CONS (CONS (QUOTE DRIVES) (NET-DRIVES-SIMPLE DRIVES (TRANSFER-LOADINGS LOADINGS DRIVES))) (CONS (CONS (QUOTE LOADINGS) (TRANSFER-LOADINGS LOADINGS DRIVES)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-DRIVES-SIMPLE . COMPOSED-LOADINGS-DRIVES-DELAYS) (IMMEDIATE-DEPENDENTS0 TRANSFER-LOADINGS . COMPOSED-LOADINGS-DRIVES-DELAYS) (IMMEDIATE-DEPENDENTS0 LOADED-DELAYS . COMPOSED-LOADINGS-DRIVES-DELAYS) (DCELL . *1*COMPOSED-LOADINGS-DRIVES-DELAYS))))) (PUT1-LST (QUOTE COMPOSED-IO-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COMPOSED-IO-TYPES-OFF COMPOSED-IO-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-IO-TYPES . COMPOSED-IO-TYPES-OFF) (DISABLED-LEMMAS NIL COMPOSED-IO-TYPES COMPOSED-IO-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSED-IO-TYPES) (QUOTE (MAIN-EVENT COMPOSED-IO-TYPES))) (PUT1-LST (QUOTE COMPOSED-IO-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSED-IO-TYPES 16 NIL NIL NIL NIL)) TOTALP-LST ((COMPOSED-IO-TYPES . T)) SDEFN (LAMBDA (IN-TYPES OUT-TYPES TRI-STATE-DATA IO-SIGNALS) (CONS (CONS (QUOTE TRI-STATE-DATA) (COMPOSE-TRI-STATE-DATA TRI-STATE-DATA IO-SIGNALS)) (CONS (CONS (QUOTE INPUT-TYPES) (CAR (COMPOSE-IO-TYPES IN-TYPES OUT-TYPES (VALUE (QUOTE T-WIRE-INS) TRI-STATE-DATA)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (CDR (COMPOSE-IO-TYPES IN-TYPES OUT-TYPES (VALUE (QUOTE T-WIRE-INS) TRI-STATE-DATA)))) (QUOTE NIL))))) LISP-CODE *1*COMPOSED-IO-TYPES SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*COMPOSED-IO-TYPES) IMMEDIATE-DEPENDENTS0 (ADD-COMPOSED-DATA COMPOSED-IO-TYPES-OFF) EVENT (DEFN COMPOSED-IO-TYPES (IN-TYPES OUT-TYPES TRI-STATE-DATA IO-SIGNALS) (CONS (CONS (QUOTE TRI-STATE-DATA) (COMPOSE-TRI-STATE-DATA TRI-STATE-DATA IO-SIGNALS)) (CONS (CONS (QUOTE INPUT-TYPES) (CAR (COMPOSE-IO-TYPES IN-TYPES OUT-TYPES (VALUE (QUOTE T-WIRE-INS) TRI-STATE-DATA)))) (CONS (CONS (QUOTE OUTPUT-TYPES) (CDR (COMPOSE-IO-TYPES IN-TYPES OUT-TYPES (VALUE (QUOTE T-WIRE-INS) TRI-STATE-DATA)))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COMPOSED-IO-TYPES) (IMMEDIATE-DEPENDENTS0 COMPOSE-IO-TYPES . COMPOSED-IO-TYPES) (IMMEDIATE-DEPENDENTS0 COMPOSE-TRI-STATE-DATA . COMPOSED-IO-TYPES) (DCELL . *1*COMPOSED-IO-TYPES))))) (PUT1-LST (QUOTE COLLECT-OCCURRENCE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-OCCURRENCE-DATA-OFF COLLECT-OCCURRENCE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OCCURRENCE-DATA . COLLECT-OCCURRENCE-DATA-OFF) (DISABLED-LEMMAS NIL COLLECT-OCCURRENCE-DATA COLLECT-OCCURRENCE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-OCCURRENCE-DATA) (QUOTE (MAIN-EVENT COLLECT-OCCURRENCE-DATA))) (PUT1-LST (QUOTE COLLECT-OCCURRENCE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-OCCURRENCE-DATA 24 NIL T NIL NIL NIL)) TOTALP-LST ((COLLECT-OCCURRENCE-DATA . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (BODY BINDINGS IO-OUTPUTS IO-SIGNALS DATABASE) (IF (LISTP BODY) (COLLECT-OCCURRENCE-DATA (CDR BODY) (UPDATE-OCC-BINDINGS (OCC-NAME (CAR BODY)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS) (OCC-FUNCTION (CAR BODY)) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE) (PAIRLIST (VALUE (QUOTE INPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS)) (PAIRLIST (VALUE (QUOTE OUTPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS)) BINDINGS) (APPEND (INTERSECTION IO-SIGNALS (OCC-OUTPUTS (CAR BODY))) IO-OUTPUTS) IO-SIGNALS DATABASE) BINDINGS)) LISP-CODE *1*COLLECT-OCCURRENCE-DATA SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP BODY)) (((CDR BODY) (UPDATE-OCC-BINDINGS (OCC-NAME (CAR BODY)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS) (OCC-FUNCTION (CAR BODY)) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE) (PAIRLIST (VALUE (QUOTE INPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS)) (PAIRLIST (VALUE (QUOTE OUTPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS)) BINDINGS) (APPEND (INTERSECTION IO-SIGNALS (OCC-OUTPUTS (CAR BODY))) IO-OUTPUTS) IO-SIGNALS DATABASE))) (TESTS-AND-CASES ((NOT (LISTP BODY))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-OCCURRENCE-DATA) IMMEDIATE-DEPENDENTS0 (OCCURRENCE-DATA COLLECT-OCCURRENCE-DATA-OFF) EVENT (DEFN COLLECT-OCCURRENCE-DATA (BODY BINDINGS IO-OUTPUTS IO-SIGNALS DATABASE) (IF (LISTP BODY) (COLLECT-OCCURRENCE-DATA (CDR BODY) (UPDATE-OCC-BINDINGS (OCC-NAME (CAR BODY)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS) (OCC-FUNCTION (CAR BODY)) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE) (PAIRLIST (VALUE (QUOTE INPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-INPUTS (CAR BODY)) IO-OUTPUTS)) (PAIRLIST (VALUE (QUOTE OUTPUTS) (FUNCTION-PROPERTIES (OCC-FUNCTION (CAR BODY)) DATABASE)) (MARK-IO-OUTS (OCC-OUTPUTS (CAR BODY)) IO-SIGNALS)) BINDINGS) (APPEND (INTERSECTION IO-SIGNALS (OCC-OUTPUTS (CAR BODY))) IO-OUTPUTS) IO-SIGNALS DATABASE) BINDINGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTERSECTION . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 FUNCTION-PROPERTIES . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 OCC-NAME . COLLECT-OCCURRENCE-DATA) (IMMEDIATE-DEPENDENTS0 UPDATE-OCC-BINDINGS . COLLECT-OCCURRENCE-DATA) (DCELL . *1*COLLECT-OCCURRENCE-DATA))))) (PUT1-LST (QUOTE FUNCTION-PROPERTIES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE FUNCTION-PROPERTIES-OFF FUNCTION-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FUNCTION-PROPERTIES . FUNCTION-PROPERTIES-OFF) (DISABLED-LEMMAS NIL FUNCTION-PROPERTIES FUNCTION-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE *1*FUNCTION-PROPERTIES) (QUOTE (MAIN-EVENT FUNCTION-PROPERTIES))) (PUT1-LST (QUOTE FUNCTION-PROPERTIES) (QUOTE (TYPE-PRESCRIPTION-LST ((FUNCTION-PROPERTIES -1 NIL NIL)) TOTALP-LST ((FUNCTION-PROPERTIES . T)) SDEFN (LAMBDA (FN DATABASE) (IF (PRIMP FN) (CDR (PRIMP FN)) (VALUE FN DATABASE))) LISP-CODE *1*FUNCTION-PROPERTIES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*FUNCTION-PROPERTIES) IMMEDIATE-DEPENDENTS0 (COLLECT-OCCURRENCE-DATA FUNCTION-PROPERTIES-OFF) EVENT (DEFN FUNCTION-PROPERTIES (FN DATABASE) (IF (PRIMP FN) (CDR (PRIMP FN)) (VALUE FN DATABASE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FUNCTION-PROPERTIES) (IMMEDIATE-DEPENDENTS0 PRIMP . FUNCTION-PROPERTIES) (DCELL . *1*FUNCTION-PROPERTIES))))) (PUT1-LST (QUOTE UPDATE-OCC-BINDINGS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UPDATE-OCC-BINDINGS-OFF UPDATE-OCC-BINDINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OCC-BINDINGS . UPDATE-OCC-BINDINGS-OFF) (DISABLED-LEMMAS NIL UPDATE-OCC-BINDINGS UPDATE-OCC-BINDINGS-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-OCC-BINDINGS) (QUOTE (MAIN-EVENT UPDATE-OCC-BINDINGS))) (PUT1-LST (QUOTE UPDATE-OCC-BINDINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-OCC-BINDINGS 24 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((UPDATE-OCC-BINDINGS . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP BINDINGS) (IF (LISTP BINDINGS) (CONS (UPDATE-OPROP-BINDING O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP (CAR BINDINGS)) (UPDATE-OCC-BINDINGS O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP (CDR BINDINGS))) (QUOTE NIL))) LISP-CODE *1*UPDATE-OCC-BINDINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP BINDINGS)) ((O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP (CDR BINDINGS)))) (TESTS-AND-CASES ((NOT (LISTP BINDINGS))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (BINDINGS) (COUNT BINDINGS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (128) SATELLITES (*1*UPDATE-OCC-BINDINGS) IMMEDIATE-DEPENDENTS0 (COLLECT-OCCURRENCE-DATA UPDATE-OCC-BINDINGS-OFF) EVENT (DEFN UPDATE-OCC-BINDINGS (O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP BINDINGS) (IF (LISTP BINDINGS) (CONS (UPDATE-OPROP-BINDING O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP (CAR BINDINGS)) (UPDATE-OCC-BINDINGS O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP (CDR BINDINGS))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OPROP-BINDING . UPDATE-OCC-BINDINGS) (DCELL . *1*UPDATE-OCC-BINDINGS))))) (PUT1-LST (QUOTE UPDATE-OPROP-BINDING-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UPDATE-OPROP-BINDING-OFF UPDATE-OPROP-BINDING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OPROP-BINDING . UPDATE-OPROP-BINDING-OFF) (DISABLED-LEMMAS NIL UPDATE-OPROP-BINDING UPDATE-OPROP-BINDING-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-OPROP-BINDING) (QUOTE (MAIN-EVENT UPDATE-OPROP-BINDING))) (PUT1-LST (QUOTE UPDATE-OPROP-BINDING) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-OPROP-BINDING 16 NIL NIL NIL NIL NIL NIL NIL T)) TOTALP-LST ((UPDATE-OPROP-BINDING . T)) SDEFN (LAMBDA (O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP BINDING) (IF (LISTP BINDING) (IF (EQUAL (CAR BINDING) (QUOTE DELAYS)) (CONS (CAR BINDING) (UPDATE-DELAYS (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP OUT-MAP)) (IF (EQUAL (CAR BINDING) (QUOTE DRIVES)) (CONS (CAR BINDING) (UPDATE-DRIVES (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP OUT-MAP)) (IF (EQUAL (CAR BINDING) (QUOTE INPUT-TYPES)) (CONS (CAR BINDING) (UPDATE-IN-TYPES (CDR BINDING) O-INS O-FN-PROPS)) (IF (EQUAL (CAR BINDING) (QUOTE LOADINGS)) (CONS (CAR BINDING) (UPDATE-LOADINGS (CDR BINDING) O-INS O-FN-PROPS)) (IF (EQUAL (CAR BINDING) (QUOTE OUT-DEPENDS)) (CONS (CAR BINDING) (UPDATE-OUT-DEPENDS (CDR BINDING) O-OUTS O-FN-PROPS O-INS IN-MAP)) (IF (EQUAL (CAR BINDING) (QUOTE OUTPUT-TYPES)) (CONS (CAR BINDING) (UPDATE-OUT-TYPES (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP)) (IF (EQUAL (CAR BINDING) (QUOTE STATE-TYPES)) (CONS (CAR BINDING) (UPDATE-STATE-TYPES (CDR BINDING) O-NAME O-FN-PROPS)) (IF (EQUAL (CAR BINDING) (QUOTE TRI-STATE-DATA)) (CONS (CAR BINDING) (UPDATE-TRI-STATE-DATA (CDR BINDING) O-INS O-FN O-FN-PROPS IN-MAP OUT-MAP)) (IF (MEMBER (CAR BINDING) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (CONS (CAR BINDING) (PLUS (VALUE (CAR BINDING) O-FN-PROPS) (CDR BINDING))) (CONS (CAR BINDING) (CDR BINDING))))))))))) BINDING)) LISP-CODE *1*UPDATE-OPROP-BINDING SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194010 SATELLITES (*1*UPDATE-OPROP-BINDING) IMMEDIATE-DEPENDENTS0 (UPDATE-OCC-BINDINGS UPDATE-OPROP-BINDING-OFF) EVENT (DEFN UPDATE-OPROP-BINDING (O-NAME O-INS O-OUTS O-FN O-FN-PROPS IN-MAP OUT-MAP BINDING) (IF (LISTP BINDING) (CONS (CAR BINDING) (IF (EQUAL (CAR BINDING) (QUOTE DELAYS)) (UPDATE-DELAYS (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (IF (EQUAL (CAR BINDING) (QUOTE DRIVES)) (UPDATE-DRIVES (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (IF (EQUAL (CAR BINDING) (QUOTE INPUT-TYPES)) (UPDATE-IN-TYPES (CDR BINDING) O-INS O-FN-PROPS) (IF (EQUAL (CAR BINDING) (QUOTE LOADINGS)) (UPDATE-LOADINGS (CDR BINDING) O-INS O-FN-PROPS) (IF (EQUAL (CAR BINDING) (QUOTE OUT-DEPENDS)) (UPDATE-OUT-DEPENDS (CDR BINDING) O-OUTS O-FN-PROPS O-INS IN-MAP) (IF (EQUAL (CAR BINDING) (QUOTE OUTPUT-TYPES)) (UPDATE-OUT-TYPES (CDR BINDING) O-OUTS O-FN-PROPS IN-MAP) (IF (EQUAL (CAR BINDING) (QUOTE STATE-TYPES)) (UPDATE-STATE-TYPES (CDR BINDING) O-NAME O-FN-PROPS) (IF (EQUAL (CAR BINDING) (QUOTE TRI-STATE-DATA)) (UPDATE-TRI-STATE-DATA (CDR BINDING) O-INS O-FN O-FN-PROPS IN-MAP OUT-MAP) (IF (MEMBER (CAR BINDING) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (PLUS (VALUE (CAR BINDING) O-FN-PROPS) (CDR BINDING)) (CDR BINDING))))))))))) BINDING)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-TRI-STATE-DATA . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-STATE-TYPES . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-OUT-TYPES . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-OUT-DEPENDS . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-LOADINGS . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-IN-TYPES . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-DRIVES . UPDATE-OPROP-BINDING) (IMMEDIATE-DEPENDENTS0 UPDATE-DELAYS . UPDATE-OPROP-BINDING) (DCELL . *1*UPDATE-OPROP-BINDING))))) (PUT1-LST (QUOTE INITIAL-OCC-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE INITIAL-OCC-DATA-OFF INITIAL-OCC-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-DATA . INITIAL-OCC-DATA-OFF) (DISABLED-LEMMAS NIL INITIAL-OCC-DATA INITIAL-OCC-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DATA) (QUOTE (MAIN-EVENT INITIAL-OCC-DATA))) (PUT1-LST (QUOTE INITIAL-OCC-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-DATA 24 NIL NIL NIL)) TOTALP-LST ((INITIAL-OCC-DATA . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (PROPS M-INS M-OUTS) (IF (LISTP PROPS) (IF (EQUAL (CAR PROPS) (QUOTE DELAYS)) (IF (LISTP (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS))) (CONS (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE DRIVES)) (IF (LISTP (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES))) (CONS (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE INPUT-TYPES)) (IF (LISTP (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES))) (CONS (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE LOADINGS)) (IF (LISTP (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS))) (CONS (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUT-DEPENDS)) (IF (LISTP (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS))) (CONS (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUTPUT-TYPES)) (IF (LISTP (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES))) (CONS (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE STATE-TYPES)) (IF (LISTP (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES))) (CONS (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE TRI-STATE-DATA)) (IF (LISTP (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS))) (CONS (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (MEMBER (CAR PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (IF (LISTP (CONS (CAR PROPS) (QUOTE 0))) (CONS (CONS (CAR PROPS) (QUOTE 0)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (IF (LISTP (QUOTE NIL)) (CONS (QUOTE NIL) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS))))))))))) (QUOTE NIL))) LISP-CODE *1*INITIAL-OCC-DATA SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP PROPS) (LISTP (IF (EQUAL (CAR PROPS) (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS)) (IF (EQUAL (CAR PROPS) (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES)) (IF (EQUAL (CAR PROPS) (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS)) (IF (EQUAL (CAR PROPS) (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE STATE-TYPES)) (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS)) (IF (MEMBER (CAR PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (CONS (CAR PROPS) (QUOTE 0)) (QUOTE NIL)))))))))))) (((CDR PROPS) M-INS M-OUTS))) (TESTS-AND-CASES ((LISTP PROPS) (NOT (LISTP (IF (EQUAL (CAR PROPS) (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS)) (IF (EQUAL (CAR PROPS) (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES)) (IF (EQUAL (CAR PROPS) (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS)) (IF (EQUAL (CAR PROPS) (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE STATE-TYPES)) (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS)) (IF (MEMBER (CAR PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (CONS (CAR PROPS) (QUOTE 0)) (QUOTE NIL))))))))))))) (((CDR PROPS) M-INS M-OUTS))) (TESTS-AND-CASES ((NOT (LISTP PROPS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (PROPS) (COUNT PROPS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*INITIAL-OCC-DATA) IMMEDIATE-DEPENDENTS0 (OCCURRENCE-DATA INITIAL-OCC-DATA-OFF) EVENT (DEFN INITIAL-OCC-DATA (PROPS M-INS M-OUTS) (IF (LISTP PROPS) (IF (LISTP (IF (EQUAL (CAR PROPS) (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS)) (IF (EQUAL (CAR PROPS) (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES)) (IF (EQUAL (CAR PROPS) (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS)) (IF (EQUAL (CAR PROPS) (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE STATE-TYPES)) (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS)) (IF (MEMBER (CAR PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (CONS (CAR PROPS) (QUOTE 0)) (QUOTE NIL))))))))))) (CONS (IF (EQUAL (CAR PROPS) (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (INITIAL-OCC-DELAYS)) (IF (EQUAL (CAR PROPS) (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (INITIAL-OCC-DRIVES)) (IF (EQUAL (CAR PROPS) (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) (INITIAL-OCC-IN-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (INITIAL-OCC-LOADINGS)) (IF (EQUAL (CAR PROPS) (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (INITIAL-OCC-OUT-DEPENDS M-INS M-OUTS)) (IF (EQUAL (CAR PROPS) (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) (INITIAL-OCC-OUT-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE STATE-TYPES)) (CONS (QUOTE STATE-TYPES) (INITIAL-OCC-STATE-TYPES)) (IF (EQUAL (CAR PROPS) (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (INITIAL-OCC-TRI-STATE-DATA M-OUTS)) (IF (MEMBER (CAR PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) (CONS (CAR PROPS) (QUOTE 0)) (QUOTE NIL)))))))))) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (INITIAL-OCC-DATA (CDR PROPS) M-INS M-OUTS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-TRI-STATE-DATA . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-STATE-TYPES . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-OUT-TYPES . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-OUT-DEPENDS . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-LOADINGS . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-IN-TYPES . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-DRIVES . INITIAL-OCC-DATA) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-DELAYS . INITIAL-OCC-DATA) (DCELL . *1*INITIAL-OCC-DATA))))) (PUT1-LST (QUOTE TRI-STATE-ERRORS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE TRI-STATE-ERRORS-OFF TRI-STATE-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRI-STATE-ERRORS . TRI-STATE-ERRORS-OFF) (DISABLED-LEMMAS NIL TRI-STATE-ERRORS TRI-STATE-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*TRI-STATE-ERRORS) (QUOTE (MAIN-EVENT TRI-STATE-ERRORS))) (PUT1-LST (QUOTE TRI-STATE-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((TRI-STATE-ERRORS 4120 NIL)) TOTALP-LST ((TRI-STATE-ERRORS . T)) SDEFN (LAMBDA (DATA) (IF (NET-ERRORP (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS))) (IF (NET-ERRORP (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS))) (CONS (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS)) (CONS (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS)) (QUOTE NIL))) (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS))) (IF (NET-ERRORP (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS))) (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS)) (QUOTE NIL)))) LISP-CODE *1*TRI-STATE-ERRORS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*TRI-STATE-ERRORS) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR TRI-STATE-ERRORS-OFF) EVENT (DEFN TRI-STATE-ERRORS (DATA) (IF (AND (NET-ERRORP (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS))) (NET-ERRORP (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS)))) (CONS (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS)) (CONS (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS)) (QUOTE NIL))) (IF (NET-ERRORP (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS))) (ERROR-ENTRY DATA (QUOTE RENAMED-IO-SIGNALS)) (IF (NET-ERRORP (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS))) (ERROR-ENTRY DATA (QUOTE T-WIRE-ERRORS)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERROR-ENTRY . TRI-STATE-ERRORS) (IMMEDIATE-DEPENDENTS0 NET-ERROR . TRI-STATE-ERRORS) (DCELL . *1*TRI-STATE-ERRORS))))) (PUT1-LST (QUOTE COLLECT-TRI-STATE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-TRI-STATE-DATA-OFF COLLECT-TRI-STATE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-TRI-STATE-DATA . COLLECT-TRI-STATE-DATA-OFF) (DISABLED-LEMMAS NIL COLLECT-TRI-STATE-DATA COLLECT-TRI-STATE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-TRI-STATE-DATA) (QUOTE (MAIN-EVENT COLLECT-TRI-STATE-DATA))) (PUT1-LST (QUOTE COLLECT-TRI-STATE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-TRI-STATE-DATA 16 NIL NIL NIL)) TOTALP-LST ((COLLECT-TRI-STATE-DATA . T)) SDEFN (LAMBDA (M-INS M-OUTS DATA) (CONS (CONS (QUOTE T-WIRE-INS) (INTERSECTION M-INS (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (COLLECT-SYNONYMS M-OUTS (EXTERNALIZE-PARENTS M-OUTS (VALUE (QUOTE SYNONYMS) DATA) M-INS M-OUTS))) (QUOTE NIL)))) LISP-CODE *1*COLLECT-TRI-STATE-DATA SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*COLLECT-TRI-STATE-DATA) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-TRI-STATE-DATA-OFF) EVENT (DEFN COLLECT-TRI-STATE-DATA (M-INS M-OUTS DATA) (CONS (CONS (QUOTE T-WIRE-INS) (INTERSECTION M-INS (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (COLLECT-SYNONYMS M-OUTS (EXTERNALIZE-PARENTS M-OUTS (VALUE (QUOTE SYNONYMS) DATA) M-INS M-OUTS))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTERNALIZE-PARENTS . COLLECT-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-SYNONYMS . COLLECT-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 INTERSECTION . COLLECT-TRI-STATE-DATA) (DCELL . *1*COLLECT-TRI-STATE-DATA))))) (PUT1-LST (QUOTE COLLECT-SYNONYMS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-SYNONYMS-OFF COLLECT-SYNONYMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-SYNONYMS . COLLECT-SYNONYMS-OFF) (DISABLED-LEMMAS NIL COLLECT-SYNONYMS COLLECT-SYNONYMS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-SYNONYMS) (QUOTE (MAIN-EVENT COLLECT-SYNONYMS))) (PUT1-LST (QUOTE COLLECT-SYNONYMS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-SYNONYMS 24 NIL NIL)) TOTALP-LST ((COLLECT-SYNONYMS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (M-OUTS SYNONYMS) (IF (LISTP M-OUTS) (IF (EQUAL (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS)) (COLLECT-SYNONYMS (CDR M-OUTS) SYNONYMS) (CONS (CONS (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS)) (COLLECT-SYNONYMS (CDR M-OUTS) SYNONYMS))) (QUOTE NIL))) LISP-CODE *1*COLLECT-SYNONYMS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP M-OUTS) (EQUAL (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS))) (((CDR M-OUTS) SYNONYMS))) (TESTS-AND-CASES ((LISTP M-OUTS) (NOT (EQUAL (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS)))) (((CDR M-OUTS) SYNONYMS))) (TESTS-AND-CASES ((NOT (LISTP M-OUTS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (M-OUTS) (COUNT M-OUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-SYNONYMS) IMMEDIATE-DEPENDENTS0 (COLLECT-TRI-STATE-DATA COLLECT-SYNONYMS-OFF) EVENT (DEFN COLLECT-SYNONYMS (M-OUTS SYNONYMS) (IF (LISTP M-OUTS) (IF (EQUAL (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS)) (COLLECT-SYNONYMS (CDR M-OUTS) SYNONYMS) (CONS (CONS (CAR M-OUTS) (PARENT-SYNONYM (CAR M-OUTS) SYNONYMS)) (COLLECT-SYNONYMS (CDR M-OUTS) SYNONYMS))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . COLLECT-SYNONYMS) (DCELL . *1*COLLECT-SYNONYMS))))) (PUT1-LST (QUOTE COMPOSE-TRI-STATE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COMPOSE-TRI-STATE-DATA-OFF COMPOSE-TRI-STATE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSE-TRI-STATE-DATA . COMPOSE-TRI-STATE-DATA-OFF) (DISABLED-LEMMAS NIL COMPOSE-TRI-STATE-DATA COMPOSE-TRI-STATE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSE-TRI-STATE-DATA) (QUOTE (MAIN-EVENT COMPOSE-TRI-STATE-DATA))) (PUT1-LST (QUOTE COMPOSE-TRI-STATE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSE-TRI-STATE-DATA 16 NIL NIL)) TOTALP-LST ((COMPOSE-TRI-STATE-DATA . T)) SDEFN (LAMBDA (DATA IO-SIGNALS) (CONS (CONS (QUOTE FREE-SIGNALS) (PARENT-SYNONYMS-LIST (VALUE (QUOTE FREE-SIGNALS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (PARENT-SYNONYMS-LIST (VALUE (QUOTE T-WIRE-INS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (VALUE (QUOTE SYNONYMS) DATA)) (CONS (IO-RENAME-ERROR (VALUE (QUOTE SYNONYMS) DATA) IO-SIGNALS) (CONS (T-WIRE-ERROR (PARENT-SYNONYMS-LIST (VALUE (QUOTE FREE-SIGNALS) DATA) (VALUE (QUOTE SYNONYMS) DATA)) (PARENT-SYNONYMS-LIST (VALUE (QUOTE T-WIRE-INS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL))))))) LISP-CODE *1*COMPOSE-TRI-STATE-DATA SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*COMPOSE-TRI-STATE-DATA) IMMEDIATE-DEPENDENTS0 (COMPOSED-IO-TYPES COMPOSE-TRI-STATE-DATA-OFF) EVENT (DEFN COMPOSE-TRI-STATE-DATA (DATA IO-SIGNALS) (CONS (CONS (QUOTE FREE-SIGNALS) (PARENT-SYNONYMS-LIST (VALUE (QUOTE FREE-SIGNALS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (PARENT-SYNONYMS-LIST (VALUE (QUOTE T-WIRE-INS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (VALUE (QUOTE SYNONYMS) DATA)) (CONS (IO-RENAME-ERROR (VALUE (QUOTE SYNONYMS) DATA) IO-SIGNALS) (CONS (T-WIRE-ERROR (PARENT-SYNONYMS-LIST (VALUE (QUOTE FREE-SIGNALS) DATA) (VALUE (QUOTE SYNONYMS) DATA)) (PARENT-SYNONYMS-LIST (VALUE (QUOTE T-WIRE-INS) DATA) (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-ERROR . COMPOSE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 IO-RENAME-ERROR . COMPOSE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . COMPOSE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYMS-LIST . COMPOSE-TRI-STATE-DATA) (DCELL . *1*COMPOSE-TRI-STATE-DATA))))) (PUT1-LST (QUOTE T-WIRE-ERROR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE T-WIRE-ERROR-OFF T-WIRE-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-WIRE-ERROR . T-WIRE-ERROR-OFF) (DISABLED-LEMMAS NIL T-WIRE-ERROR T-WIRE-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*T-WIRE-ERROR) (QUOTE (MAIN-EVENT T-WIRE-ERROR))) (PUT1-LST (QUOTE T-WIRE-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((T-WIRE-ERROR 4098 NIL NIL)) TOTALP-LST ((T-WIRE-ERROR . T)) SDEFN (LAMBDA (FREE-SIGNALS T-WIRE-INS) (ERR-AND (CONS (DISJOINT-OR-ERR (REMOVE-DUPLICATES T-WIRE-INS) FREE-SIGNALS (QUOTE T-WIRE-INS-USED-ELSEWHERE)) (CONS (NO-DUPLICATES-OR-ERR T-WIRE-INS (QUOTE DUPLICATE-T-WIRE-INPUTS)) (QUOTE NIL))) (QUOTE T-WIRE-ERRORS))) LISP-CODE *1*T-WIRE-ERROR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*T-WIRE-ERROR) IMMEDIATE-DEPENDENTS0 (COMPOSE-TRI-STATE-DATA T-WIRE-ERROR-OFF) EVENT (DEFN T-WIRE-ERROR (FREE-SIGNALS T-WIRE-INS) (ERR-AND (CONS (DISJOINT-OR-ERR (REMOVE-DUPLICATES T-WIRE-INS) FREE-SIGNALS (QUOTE T-WIRE-INS-USED-ELSEWHERE)) (CONS (NO-DUPLICATES-OR-ERR T-WIRE-INS (QUOTE DUPLICATE-T-WIRE-INPUTS)) (QUOTE NIL))) (QUOTE T-WIRE-ERRORS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . T-WIRE-ERROR) (IMMEDIATE-DEPENDENTS0 REMOVE-DUPLICATES . T-WIRE-ERROR) (IMMEDIATE-DEPENDENTS0 DISJOINT-OR-ERR . T-WIRE-ERROR) (IMMEDIATE-DEPENDENTS0 ERR-AND . T-WIRE-ERROR) (DCELL . *1*T-WIRE-ERROR))))) (PUT1-LST (QUOTE IO-RENAME-ERROR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE IO-RENAME-ERROR-OFF IO-RENAME-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-RENAME-ERROR . IO-RENAME-ERROR-OFF) (DISABLED-LEMMAS NIL IO-RENAME-ERROR IO-RENAME-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*IO-RENAME-ERROR) (QUOTE (MAIN-EVENT IO-RENAME-ERROR))) (PUT1-LST (QUOTE IO-RENAME-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-RENAME-ERROR 4098 NIL NIL)) TOTALP-LST ((IO-RENAME-ERROR . T)) SDEFN (LAMBDA (SYNONYMS IO-SIGNALS) (NLISTP-OR-ERR (IO-SIGNAL-RENAMES SYNONYMS IO-SIGNALS SYNONYMS) (QUOTE RENAMED-IO-SIGNALS))) LISP-CODE *1*IO-RENAME-ERROR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194010 SATELLITES (*1*IO-RENAME-ERROR) IMMEDIATE-DEPENDENTS0 (COMPOSE-TRI-STATE-DATA IO-RENAME-ERROR-OFF) EVENT (DEFN IO-RENAME-ERROR (SYNONYMS IO-SIGNALS) (NLISTP-OR-ERR (IO-SIGNAL-RENAMES SYNONYMS IO-SIGNALS SYNONYMS) (QUOTE RENAMED-IO-SIGNALS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-SIGNAL-RENAMES . IO-RENAME-ERROR) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . IO-RENAME-ERROR) (DCELL . *1*IO-RENAME-ERROR))))) (PUT1-LST (QUOTE IO-SIGNAL-RENAMES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE IO-SIGNAL-RENAMES-OFF IO-SIGNAL-RENAMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-SIGNAL-RENAMES . IO-SIGNAL-RENAMES-OFF) (DISABLED-LEMMAS NIL IO-SIGNAL-RENAMES IO-SIGNAL-RENAMES-OFF . T))))) (PUT1-LST (QUOTE *1*IO-SIGNAL-RENAMES) (QUOTE (MAIN-EVENT IO-SIGNAL-RENAMES))) (PUT1-LST (QUOTE IO-SIGNAL-RENAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-SIGNAL-RENAMES 24 NIL NIL NIL)) TOTALP-LST ((IO-SIGNAL-RENAMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (SYNONYMS IO-SIGNALS SLIST) (IF (LISTP SYNONYMS) (IF (IO-OUTP (CAR (CAR SYNONYMS))) (IF (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST) (CONS (CONS (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST))) (IF (IO-OUTP (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IF (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST) (CONS (CONS (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST))) (IF (MEMBER (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST) IO-SIGNALS) (IF (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST) (CONS (CONS (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST))) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST)))) (QUOTE NIL))) LISP-CODE *1*IO-SIGNAL-RENAMES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP SYNONYMS) (AND (OR (IO-OUTP (CAR (CAR SYNONYMS))) (OR (IO-OUTP (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (MEMBER (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST) IO-SIGNALS))) (NOT (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST))))) (((CDR SYNONYMS) IO-SIGNALS SLIST))) (TESTS-AND-CASES ((LISTP SYNONYMS) (NOT (AND (OR (IO-OUTP (CAR (CAR SYNONYMS))) (OR (IO-OUTP (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (MEMBER (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST) IO-SIGNALS))) (NOT (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)))))) (((CDR SYNONYMS) IO-SIGNALS SLIST))) (TESTS-AND-CASES ((NOT (LISTP SYNONYMS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (SYNONYMS) (COUNT SYNONYMS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*IO-SIGNAL-RENAMES) IMMEDIATE-DEPENDENTS0 (IO-RENAME-ERROR IO-SIGNAL-RENAMES-OFF) EVENT (DEFN IO-SIGNAL-RENAMES (SYNONYMS IO-SIGNALS SLIST) (IF (LISTP SYNONYMS) (IF (AND (OR (IO-OUTP (CAR (CAR SYNONYMS))) (OR (IO-OUTP (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (MEMBER (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST) IO-SIGNALS))) (NOT (EQUAL (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)))) (CONS (CONS (CAR (CAR SYNONYMS)) (PARENT-SYNONYM (CDR (CAR SYNONYMS)) SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST)) (IO-SIGNAL-RENAMES (CDR SYNONYMS) IO-SIGNALS SLIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . IO-SIGNAL-RENAMES) (IMMEDIATE-DEPENDENTS0 IO-OUT . IO-SIGNAL-RENAMES) (DCELL . *1*IO-SIGNAL-RENAMES))))) (PUT1-LST (QUOTE UPDATE-TRI-STATE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UPDATE-TRI-STATE-DATA-OFF UPDATE-TRI-STATE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-TRI-STATE-DATA . UPDATE-TRI-STATE-DATA-OFF) (DISABLED-LEMMAS NIL UPDATE-TRI-STATE-DATA UPDATE-TRI-STATE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-TRI-STATE-DATA) (QUOTE (MAIN-EVENT UPDATE-TRI-STATE-DATA))) (PUT1-LST (QUOTE UPDATE-TRI-STATE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-TRI-STATE-DATA 16 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((UPDATE-TRI-STATE-DATA . T)) SDEFN (LAMBDA (DATA O-INS O-FN O-FN-DATA IN-MAP OUT-MAP) (IF (LISTP (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP)) (CONS (CONS (QUOTE FREE-SIGNALS) (UNION (SET-DIFF O-INS (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP)) (VALUE (QUOTE FREE-SIGNALS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (APPEND (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP) (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (ADD-SYNONYMS (FUNCTION-SYNONYMS O-FN O-FN-DATA) IN-MAP OUT-MAP (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL)))) (IF (EQUAL O-FN (QUOTE ID)) (CONS (CONS (QUOTE FREE-SIGNALS) (UNION (QUOTE NIL) (VALUE (QUOTE FREE-SIGNALS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (APPEND (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP) (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (ADD-SYNONYMS (FUNCTION-SYNONYMS O-FN O-FN-DATA) IN-MAP OUT-MAP (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL)))) (CONS (CONS (QUOTE FREE-SIGNALS) (UNION O-INS (VALUE (QUOTE FREE-SIGNALS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (APPEND (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP) (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (ADD-SYNONYMS (FUNCTION-SYNONYMS O-FN O-FN-DATA) IN-MAP OUT-MAP (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL))))))) LISP-CODE *1*UPDATE-TRI-STATE-DATA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*UPDATE-TRI-STATE-DATA) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-TRI-STATE-DATA-OFF) EVENT (DEFN UPDATE-TRI-STATE-DATA (DATA O-INS O-FN O-FN-DATA IN-MAP OUT-MAP) (CONS (CONS (QUOTE FREE-SIGNALS) (UNION (IF (LISTP (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP)) (SET-DIFF O-INS (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP)) (IF (EQUAL O-FN (QUOTE ID)) (QUOTE NIL) O-INS)) (VALUE (QUOTE FREE-SIGNALS) DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (APPEND (COLLECT-VALUE2 (FUNCTION-T-WIRE-INS O-FN O-FN-DATA) IN-MAP OUT-MAP) (VALUE (QUOTE T-WIRE-INS) DATA))) (CONS (CONS (QUOTE SYNONYMS) (ADD-SYNONYMS (FUNCTION-SYNONYMS O-FN O-FN-DATA) IN-MAP OUT-MAP (VALUE (QUOTE SYNONYMS) DATA))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FUNCTION-SYNONYMS . UPDATE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 ADD-SYNONYMS . UPDATE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 SET-DIFF . UPDATE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 FUNCTION-T-WIRE-INS . UPDATE-TRI-STATE-DATA) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE2 . UPDATE-TRI-STATE-DATA) (DCELL . *1*UPDATE-TRI-STATE-DATA))))) (PUT1-LST (QUOTE ADD-SYNONYMS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ADD-SYNONYMS-OFF ADD-SYNONYMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-SYNONYMS . ADD-SYNONYMS-OFF) (DISABLED-LEMMAS NIL ADD-SYNONYMS ADD-SYNONYMS-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-SYNONYMS) (QUOTE (MAIN-EVENT ADD-SYNONYMS))) (PUT1-LST (QUOTE ADD-SYNONYMS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-SYNONYMS 16 NIL NIL NIL T)) TOTALP-LST ((ADD-SYNONYMS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (F-SYNONYMS IN-MAP OUT-MAP SLIST) (IF (LISTP F-SYNONYMS) (ADD-SYNONYMS (CDR F-SYNONYMS) IN-MAP OUT-MAP (CONS (CONS (VALUE (CAR (CAR F-SYNONYMS)) OUT-MAP) (VALUE2 (CDR (CAR F-SYNONYMS)) IN-MAP OUT-MAP)) SLIST)) SLIST)) LISP-CODE *1*ADD-SYNONYMS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP F-SYNONYMS)) (((CDR F-SYNONYMS) IN-MAP OUT-MAP (CONS (CONS (VALUE (CAR (CAR F-SYNONYMS)) OUT-MAP) (VALUE2 (CDR (CAR F-SYNONYMS)) IN-MAP OUT-MAP)) SLIST)))) (TESTS-AND-CASES ((NOT (LISTP F-SYNONYMS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (F-SYNONYMS) (COUNT F-SYNONYMS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-SYNONYMS) IMMEDIATE-DEPENDENTS0 (UPDATE-TRI-STATE-DATA ADD-SYNONYMS-OFF) EVENT (DEFN ADD-SYNONYMS (F-SYNONYMS IN-MAP OUT-MAP SLIST) (IF (LISTP F-SYNONYMS) (ADD-SYNONYMS (CDR F-SYNONYMS) IN-MAP OUT-MAP (CONS (CONS (VALUE (CAR (CAR F-SYNONYMS)) OUT-MAP) (VALUE2 (CDR (CAR F-SYNONYMS)) IN-MAP OUT-MAP)) SLIST)) SLIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE2 . ADD-SYNONYMS) (IMMEDIATE-DEPENDENTS0 VALUE . ADD-SYNONYMS) (DCELL . *1*ADD-SYNONYMS))))) (PUT1-LST (QUOTE FUNCTION-SYNONYMS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE FUNCTION-SYNONYMS-OFF FUNCTION-SYNONYMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FUNCTION-SYNONYMS . FUNCTION-SYNONYMS-OFF) (DISABLED-LEMMAS NIL FUNCTION-SYNONYMS FUNCTION-SYNONYMS-OFF . T))))) (PUT1-LST (QUOTE *1*FUNCTION-SYNONYMS) (QUOTE (MAIN-EVENT FUNCTION-SYNONYMS))) (PUT1-LST (QUOTE FUNCTION-SYNONYMS) (QUOTE (TYPE-PRESCRIPTION-LST ((FUNCTION-SYNONYMS -1 NIL NIL)) TOTALP-LST ((FUNCTION-SYNONYMS . T)) SDEFN (LAMBDA (FN DATA) (IF (BOUNDP (QUOTE TRI-STATE-DATA) DATA) (VALUE (QUOTE SYNONYMS) (VALUE (QUOTE TRI-STATE-DATA) DATA)) (IF (EQUAL FN (QUOTE ID)) (PAIRLIST (VALUE (QUOTE OUTPUTS) DATA) (VALUE (QUOTE INPUTS) DATA)) (QUOTE NIL)))) LISP-CODE *1*FUNCTION-SYNONYMS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*FUNCTION-SYNONYMS) IMMEDIATE-DEPENDENTS0 (UPDATE-TRI-STATE-DATA FUNCTION-SYNONYMS-OFF) EVENT (DEFN FUNCTION-SYNONYMS (FN DATA) (IF (BOUNDP (QUOTE TRI-STATE-DATA) DATA) (VALUE (QUOTE SYNONYMS) (VALUE (QUOTE TRI-STATE-DATA) DATA)) (IF (EQUAL FN (QUOTE ID)) (PAIRLIST (VALUE (QUOTE OUTPUTS) DATA) (VALUE (QUOTE INPUTS) DATA)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FUNCTION-SYNONYMS) (IMMEDIATE-DEPENDENTS0 BOUNDP . FUNCTION-SYNONYMS) (DCELL . *1*FUNCTION-SYNONYMS))))) (PUT1-LST (QUOTE FUNCTION-T-WIRE-INS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE FUNCTION-T-WIRE-INS-OFF FUNCTION-T-WIRE-INS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FUNCTION-T-WIRE-INS . FUNCTION-T-WIRE-INS-OFF) (DISABLED-LEMMAS NIL FUNCTION-T-WIRE-INS FUNCTION-T-WIRE-INS-OFF . T))))) (PUT1-LST (QUOTE *1*FUNCTION-T-WIRE-INS) (QUOTE (MAIN-EVENT FUNCTION-T-WIRE-INS))) (PUT1-LST (QUOTE FUNCTION-T-WIRE-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((FUNCTION-T-WIRE-INS -1 NIL NIL)) TOTALP-LST ((FUNCTION-T-WIRE-INS . T)) SDEFN (LAMBDA (FN DATA) (IF (BOUNDP (QUOTE TRI-STATE-DATA) DATA) (VALUE (QUOTE T-WIRE-INS) (VALUE (QUOTE TRI-STATE-DATA) DATA)) (IF (EQUAL FN (QUOTE T-WIRE)) (VALUE (QUOTE INPUTS) DATA) (QUOTE NIL)))) LISP-CODE *1*FUNCTION-T-WIRE-INS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*FUNCTION-T-WIRE-INS) IMMEDIATE-DEPENDENTS0 (UPDATE-TRI-STATE-DATA FUNCTION-T-WIRE-INS-OFF) EVENT (DEFN FUNCTION-T-WIRE-INS (FN DATA) (IF (BOUNDP (QUOTE TRI-STATE-DATA) DATA) (VALUE (QUOTE T-WIRE-INS) (VALUE (QUOTE TRI-STATE-DATA) DATA)) (IF (EQUAL FN (QUOTE T-WIRE)) (VALUE (QUOTE INPUTS) DATA) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FUNCTION-T-WIRE-INS) (IMMEDIATE-DEPENDENTS0 BOUNDP . FUNCTION-T-WIRE-INS) (DCELL . *1*FUNCTION-T-WIRE-INS))))) (PUT1-LST (QUOTE INITIAL-OCC-TRI-STATE-DATA-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE INITIAL-OCC-TRI-STATE-DATA-OFF INITIAL-OCC-TRI-STATE-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-TRI-STATE-DATA . INITIAL-OCC-TRI-STATE-DATA-OFF) (DISABLED-LEMMAS NIL INITIAL-OCC-TRI-STATE-DATA INITIAL-OCC-TRI-STATE-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-TRI-STATE-DATA) (QUOTE (MAIN-EVENT INITIAL-OCC-TRI-STATE-DATA))) (PUT1-LST (QUOTE INITIAL-OCC-TRI-STATE-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-TRI-STATE-DATA 16 NIL)) TOTALP-LST ((INITIAL-OCC-TRI-STATE-DATA . T)) SDEFN (LAMBDA (M-OUTS) (CONS (CONS (QUOTE FREE-SIGNALS) M-OUTS) (QUOTE ((T-WIRE-INS) (SYNONYMS))))) LISP-CODE *1*INITIAL-OCC-TRI-STATE-DATA SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*INITIAL-OCC-TRI-STATE-DATA) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA INITIAL-OCC-TRI-STATE-DATA-OFF) EVENT (DEFN INITIAL-OCC-TRI-STATE-DATA (M-OUTS) (CONS (CONS (QUOTE FREE-SIGNALS) M-OUTS) (QUOTE ((T-WIRE-INS) (SYNONYMS))))) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-TRI-STATE-DATA))))) (PUT1-LST (QUOTE STATE-TYPES-ERROR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE STATE-TYPES-ERROR-OFF STATE-TYPES-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-TYPES-ERROR . STATE-TYPES-ERROR-OFF) (DISABLED-LEMMAS NIL STATE-TYPES-ERROR STATE-TYPES-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-TYPES-ERROR) (QUOTE (MAIN-EVENT STATE-TYPES-ERROR))) (PUT1-LST (QUOTE STATE-TYPES-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-TYPES-ERROR 4098 NIL NIL)) TOTALP-LST ((STATE-TYPES-ERROR . T)) SDEFN (LAMBDA (STATE-TYPES STATES) (T-OR-ERR (SET-EQUAL (STRIP-CARS STATE-TYPES) (M-STATES-LIST STATES)) (QUOTE BAD-STATE-TYPES) (CONS (CONS (QUOTE MODULE-STATES) (CONS STATES (QUOTE NIL))) (CONS (CONS (QUOTE COMPUTED-STATES) (CONS (STRIP-CARS STATE-TYPES) (QUOTE NIL))) (QUOTE NIL))))) LISP-CODE *1*STATE-TYPES-ERROR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*STATE-TYPES-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR STATE-TYPES-ERROR-OFF) EVENT (DEFN STATE-TYPES-ERROR (STATE-TYPES STATES) (T-OR-ERR (SET-EQUAL (STRIP-CARS STATE-TYPES) (M-STATES-LIST STATES)) (QUOTE BAD-STATE-TYPES) (CONS (CONS (QUOTE MODULE-STATES) (CONS STATES (QUOTE NIL))) (CONS (CONS (QUOTE COMPUTED-STATES) (CONS (STRIP-CARS STATE-TYPES) (QUOTE NIL))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-STATES-LIST . STATE-TYPES-ERROR) (IMMEDIATE-DEPENDENTS0 SET-EQUAL . STATE-TYPES-ERROR) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . STATE-TYPES-ERROR) (DCELL . *1*STATE-TYPES-ERROR))))) (PUT1-LST (QUOTE COLLECT-STATE-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-STATE-TYPES-OFF COLLECT-STATE-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-STATE-TYPES . COLLECT-STATE-TYPES-OFF) (DISABLED-LEMMAS NIL COLLECT-STATE-TYPES COLLECT-STATE-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-STATE-TYPES) (QUOTE (MAIN-EVENT COLLECT-STATE-TYPES))) (PUT1-LST (QUOTE COLLECT-STATE-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-STATE-TYPES -1 NIL NIL)) TOTALP-LST ((COLLECT-STATE-TYPES . T)) SDEFN (LAMBDA (STATES STATE-TYPES) (IF (LISTP STATES) (COLLECT-VALUE-OR-UNKNOWN STATES STATE-TYPES) (IF (EQUAL STATES (QUOTE NIL)) (COLLECT-VALUE-OR-UNKNOWN STATES STATE-TYPES) (VALUE-OR-UNKNOWN STATES STATE-TYPES)))) LISP-CODE *1*COLLECT-STATE-TYPES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*COLLECT-STATE-TYPES) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-STATE-TYPES-OFF) EVENT (DEFN COLLECT-STATE-TYPES (STATES STATE-TYPES) (IF (OR (LISTP STATES) (EQUAL STATES (QUOTE NIL))) (COLLECT-VALUE-OR-UNKNOWN STATES STATE-TYPES) (VALUE-OR-UNKNOWN STATES STATE-TYPES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . COLLECT-STATE-TYPES) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-OR-UNKNOWN . COLLECT-STATE-TYPES) (DCELL . *1*COLLECT-STATE-TYPES))))) (PUT1-LST (QUOTE UPDATE-STATE-TYPES-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UPDATE-STATE-TYPES-OFF UPDATE-STATE-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-STATE-TYPES . UPDATE-STATE-TYPES-OFF) (DISABLED-LEMMAS NIL UPDATE-STATE-TYPES UPDATE-STATE-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-STATE-TYPES) (QUOTE (MAIN-EVENT UPDATE-STATE-TYPES))) (PUT1-LST (QUOTE UPDATE-STATE-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-STATE-TYPES 16 T NIL NIL)) TOTALP-LST ((UPDATE-STATE-TYPES . T)) SDEFN (LAMBDA (STATE-TYPES O-NAME O-FN-PROPS) (IF (BOUNDP (QUOTE STATE-TYPES) O-FN-PROPS) (CONS (CONS O-NAME (VALUE (QUOTE STATE-TYPES) O-FN-PROPS)) STATE-TYPES) STATE-TYPES)) LISP-CODE *1*UPDATE-STATE-TYPES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194010 SATELLITES (*1*UPDATE-STATE-TYPES) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-STATE-TYPES-OFF) EVENT (DEFN UPDATE-STATE-TYPES (STATE-TYPES O-NAME O-FN-PROPS) (IF (BOUNDP (QUOTE STATE-TYPES) O-FN-PROPS) (CONS (CONS O-NAME (VALUE (QUOTE STATE-TYPES) O-FN-PROPS)) STATE-TYPES) STATE-TYPES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-STATE-TYPES) (IMMEDIATE-DEPENDENTS0 BOUNDP . UPDATE-STATE-TYPES) (DCELL . *1*UPDATE-STATE-TYPES))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-STATE-TYPES) (QUOTE (MAIN-EVENT INITIAL-OCC-STATE-TYPES))) (PUT1-LST (QUOTE INITIAL-OCC-STATE-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-STATE-TYPES 8)) TOTALP-LST ((INITIAL-OCC-STATE-TYPES . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-STATE-TYPES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194010 SATELLITES (*1*INITIAL-OCC-STATE-TYPES) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-STATE-TYPES NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-STATE-TYPES))))) (PUT1-LST (QUOTE OUT-DEPENDS-ERROR-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE OUT-DEPENDS-ERROR-OFF OUT-DEPENDS-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-DEPENDS-ERROR . OUT-DEPENDS-ERROR-OFF) (DISABLED-LEMMAS NIL OUT-DEPENDS-ERROR OUT-DEPENDS-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS-ERROR) (QUOTE (MAIN-EVENT OUT-DEPENDS-ERROR))) (PUT1-LST (QUOTE OUT-DEPENDS-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((OUT-DEPENDS-ERROR 4098 NIL)) TOTALP-LST ((OUT-DEPENDS-ERROR . T)) SDEFN (LAMBDA (DEPENDENCIES) (NLISTP-OR-ERR (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPENDENCIES) (CAR DEPENDENCIES)) (QUOTE UNBOUND-OUTPUT-DEPENDENCIES))) LISP-CODE *1*OUT-DEPENDS-ERROR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*OUT-DEPENDS-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR OUT-DEPENDS-ERROR-OFF) EVENT (DEFN OUT-DEPENDS-ERROR (DEPENDENCIES) (NLISTP-OR-ERR (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPENDENCIES) (CAR DEPENDENCIES)) (QUOTE UNBOUND-OUTPUT-DEPENDENCIES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-DEPENDS-ERRORS . OUT-DEPENDS-ERROR) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . OUT-DEPENDS-ERROR) (DCELL . *1*OUT-DEPENDS-ERROR))))) (PUT1-LST (QUOTE COLLECT-OUT-DEPENDS-ERRORS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-OUT-DEPENDS-ERRORS-OFF COLLECT-OUT-DEPENDS-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-DEPENDS-ERRORS . COLLECT-OUT-DEPENDS-ERRORS-OFF) (DISABLED-LEMMAS NIL COLLECT-OUT-DEPENDS-ERRORS COLLECT-OUT-DEPENDS-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-DEPENDS-ERRORS) (QUOTE (MAIN-EVENT COLLECT-OUT-DEPENDS-ERRORS))) (PUT1-LST (QUOTE COLLECT-OUT-DEPENDS-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-OUT-DEPENDS-ERRORS 24 NIL NIL)) TOTALP-LST ((COLLECT-OUT-DEPENDS-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DEPS-MAP USED-SIGNALS) (IF (LISTP DEPS-MAP) (IF (NET-ERRORP (CAR DEPS-MAP)) (IF (MEMBER (CAR (CDR (ERROR-LABEL (CAR DEPS-MAP)))) USED-SIGNALS) (CONS (CAR DEPS-MAP) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (QUOTE NIL))) LISP-CODE *1*COLLECT-OUT-DEPENDS-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DEPS-MAP) (NET-ERRORP (CAR DEPS-MAP)) (MEMBER (CAR (CDR (ERROR-LABEL (CAR DEPS-MAP)))) USED-SIGNALS)) (((CDR DEPS-MAP) USED-SIGNALS))) (TESTS-AND-CASES ((LISTP DEPS-MAP) (NET-ERRORP (CAR DEPS-MAP)) (NOT (MEMBER (CAR (CDR (ERROR-LABEL (CAR DEPS-MAP)))) USED-SIGNALS))) (((CDR DEPS-MAP) USED-SIGNALS))) (TESTS-AND-CASES ((LISTP DEPS-MAP) (NOT (NET-ERRORP (CAR DEPS-MAP)))) (((CDR DEPS-MAP) USED-SIGNALS))) (TESTS-AND-CASES ((NOT (LISTP DEPS-MAP))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (DEPS-MAP) (COUNT DEPS-MAP) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-OUT-DEPENDS-ERRORS) IMMEDIATE-DEPENDENTS0 (OUT-DEPENDS-ERROR COLLECT-OUT-DEPENDS-ERRORS-OFF) EVENT (DEFN COLLECT-OUT-DEPENDS-ERRORS (DEPS-MAP USED-SIGNALS) (IF (LISTP DEPS-MAP) (IF (NET-ERRORP (CAR DEPS-MAP)) (IF (MEMBER (CAR (CDR (ERROR-LABEL (CAR DEPS-MAP)))) USED-SIGNALS) (CONS (CAR DEPS-MAP) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (COLLECT-OUT-DEPENDS-ERRORS (CDR DEPS-MAP) USED-SIGNALS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERROR . COLLECT-OUT-DEPENDS-ERRORS) (DCELL . *1*COLLECT-OUT-DEPENDS-ERRORS))))) (PUT1-LST (QUOTE COLLECT-OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE COLLECT-OUT-DEPENDS-OFF COLLECT-OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-DEPENDS . COLLECT-OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL COLLECT-OUT-DEPENDS COLLECT-OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-DEPENDS) (QUOTE (MAIN-EVENT COLLECT-OUT-DEPENDS))) (PUT1-LST (QUOTE COLLECT-OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-OUT-DEPENDS 24 NIL NIL)) TOTALP-LST ((COLLECT-OUT-DEPENDS . T)) SDEFN (LAMBDA (OUTPUTS DEPENDENCIES) (COLLECT-VALUE OUTPUTS (CDR DEPENDENCIES))) LISP-CODE *1*COLLECT-OUT-DEPENDS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194010 SATELLITES (*1*COLLECT-OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-OUT-DEPENDS-OFF) EVENT (DEFN COLLECT-OUT-DEPENDS (OUTPUTS DEPENDENCIES) (COLLECT-VALUE OUTPUTS (CDR DEPENDENCIES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-OUT-DEPENDS) (DCELL . *1*COLLECT-OUT-DEPENDS))))) (PUT1-LST (QUOTE UPDATE-OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE UPDATE-OUT-DEPENDS-OFF UPDATE-OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OUT-DEPENDS . UPDATE-OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL UPDATE-OUT-DEPENDS UPDATE-OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-OUT-DEPENDS) (QUOTE (MAIN-EVENT UPDATE-OUT-DEPENDS))) (PUT1-LST (QUOTE UPDATE-OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-OUT-DEPENDS 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((UPDATE-OUT-DEPENDS . T)) SDEFN (LAMBDA (OUT-DEPENDS O-OUTS O-FN-PROPS O-INS ARG-MAP) (CONS (UNION O-INS (CAR OUT-DEPENDS)) (ADD-OUT-DEPENDS O-OUTS (VALUE (QUOTE OUT-DEPENDS) O-FN-PROPS) ARG-MAP (CDR OUT-DEPENDS)))) LISP-CODE *1*UPDATE-OUT-DEPENDS SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194010 SATELLITES (*1*UPDATE-OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-OUT-DEPENDS-OFF) EVENT (DEFN UPDATE-OUT-DEPENDS (OUT-DEPENDS O-OUTS O-FN-PROPS O-INS ARG-MAP) (CONS (UNION O-INS (CAR OUT-DEPENDS)) (ADD-OUT-DEPENDS O-OUTS (VALUE (QUOTE OUT-DEPENDS) O-FN-PROPS) ARG-MAP (CDR OUT-DEPENDS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 ADD-OUT-DEPENDS . UPDATE-OUT-DEPENDS) (DCELL . *1*UPDATE-OUT-DEPENDS))))) (PUT1-LST (QUOTE ADD-OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE ADD-OUT-DEPENDS-OFF ADD-OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-OUT-DEPENDS . ADD-OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL ADD-OUT-DEPENDS ADD-OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-OUT-DEPENDS) (QUOTE (MAIN-EVENT ADD-OUT-DEPENDS))) (PUT1-LST (QUOTE ADD-OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-OUT-DEPENDS 16 NIL NIL NIL T)) TOTALP-LST ((ADD-OUT-DEPENDS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OUTPUTS OUT-DEPENDS ARG-MAP DEPS-MAP) (IF (LISTP OUTPUTS) (ADD-OUT-DEPENDS (CDR OUTPUTS) (CDR OUT-DEPENDS) ARG-MAP (CONS (CONS (CAR OUTPUTS) (UNION-VALUES (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP)) (CONS (ALL-BOUND-OR-ERR (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP (CONS (QUOTE OUTPUT) (CONS (CAR OUTPUTS) (QUOTE NIL)))) DEPS-MAP))) DEPS-MAP)) LISP-CODE *1*ADD-OUT-DEPENDS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUTPUTS)) (((CDR OUTPUTS) (CDR OUT-DEPENDS) ARG-MAP (CONS (CONS (CAR OUTPUTS) (UNION-VALUES (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP)) (CONS (ALL-BOUND-OR-ERR (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP (CONS (QUOTE OUTPUT) (CONS (CAR OUTPUTS) (QUOTE NIL)))) DEPS-MAP))))) (TESTS-AND-CASES ((NOT (LISTP OUTPUTS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (OUTPUTS) (COUNT OUTPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194010 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (UPDATE-OUT-DEPENDS ADD-OUT-DEPENDS-OFF) EVENT (DEFN ADD-OUT-DEPENDS (OUTPUTS OUT-DEPENDS ARG-MAP DEPS-MAP) (IF (LISTP OUTPUTS) (ADD-OUT-DEPENDS (CDR OUTPUTS) (CDR OUT-DEPENDS) ARG-MAP (CONS (CONS (CAR OUTPUTS) (UNION-VALUES (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP)) (CONS (ALL-BOUND-OR-ERR (COLLECT-VALUE (CAR OUT-DEPENDS) ARG-MAP) DEPS-MAP (CONS (QUOTE OUTPUT) (CONS (CAR OUTPUTS) (QUOTE NIL)))) DEPS-MAP))) DEPS-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-BOUND-OR-ERR . ADD-OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . ADD-OUT-DEPENDS) (IMMEDIATE-DEPENDENTS0 UNION-VALUES . ADD-OUT-DEPENDS) (DCELL . *1*ADD-OUT-DEPENDS))))) (PUT1-LST (QUOTE INITIAL-OCC-OUT-DEPENDS-OFF) (QUOTE (IDATE 1000402194010 EVENT (TOGGLE INITIAL-OCC-OUT-DEPENDS-OFF INITIAL-OCC-OUT-DEPENDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-OUT-DEPENDS . INITIAL-OCC-OUT-DEPENDS-OFF) (DISABLED-LEMMAS NIL INITIAL-OCC-OUT-DEPENDS INITIAL-OCC-OUT-DEPENDS-OFF . T))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-OUT-DEPENDS) (QUOTE (MAIN-EVENT INITIAL-OCC-OUT-DEPENDS))) (PUT1-LST (QUOTE INITIAL-OCC-OUT-DEPENDS) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-OUT-DEPENDS 16 NIL NIL)) TOTALP-LST ((INITIAL-OCC-OUT-DEPENDS . T)) SDEFN (LAMBDA (M-INS M-OUTS) (CONS M-OUTS (PAIRLIST M-INS (LISTIFY M-INS)))) LISP-CODE *1*INITIAL-OCC-OUT-DEPENDS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*INITIAL-OCC-OUT-DEPENDS) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA INITIAL-OCC-OUT-DEPENDS-OFF) EVENT (DEFN INITIAL-OCC-OUT-DEPENDS (M-INS M-OUTS) (CONS M-OUTS (PAIRLIST M-INS (LISTIFY M-INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTIFY . INITIAL-OCC-OUT-DEPENDS) (DCELL . *1*INITIAL-OCC-OUT-DEPENDS))))) (PUT1-LST (QUOTE DELAYS-ERROR-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAYS-ERROR-OFF DELAYS-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAYS-ERROR . DELAYS-ERROR-OFF) (DISABLED-LEMMAS NIL DELAYS-ERROR DELAYS-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*DELAYS-ERROR) (QUOTE (MAIN-EVENT DELAYS-ERROR))) (PUT1-LST (QUOTE DELAYS-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAYS-ERROR 4098 NIL)) TOTALP-LST ((DELAYS-ERROR . T)) SDEFN (LAMBDA (DELAYS) (ERR-AND DELAYS (QUOTE BAD-DELAYS))) LISP-CODE *1*DELAYS-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*DELAYS-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR DELAYS-ERROR-OFF) EVENT (DEFN DELAYS-ERROR (DELAYS) (ERR-AND DELAYS (QUOTE BAD-DELAYS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . DELAYS-ERROR) (DCELL . *1*DELAYS-ERROR))))) (PUT1-LST (QUOTE COLLECT-DELAYS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-DELAYS-OFF COLLECT-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-DELAYS . COLLECT-DELAYS-OFF) (DISABLED-LEMMAS NIL COLLECT-DELAYS COLLECT-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-DELAYS) (QUOTE (MAIN-EVENT COLLECT-DELAYS))) (PUT1-LST (QUOTE COLLECT-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-DELAYS 24 NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-DELAYS . T)) SDEFN (LAMBDA (OUTPUTS OUTPUT-TYPES DELAYS INPUTS APPROXP) (COLLECT-DELAYS-0 OUTPUTS OUTPUT-TYPES (EXTERNALIZE-PARENTS OUTPUTS DELAYS INPUTS OUTPUTS) INPUTS OUTPUTS APPROXP)) LISP-CODE *1*COLLECT-DELAYS SUBRP *1*FALSE LEVEL-NO 7 IDATE 1000402194009 SATELLITES (*1*COLLECT-DELAYS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-DELAYS-OFF) EVENT (DEFN COLLECT-DELAYS (OUTPUTS OUTPUT-TYPES DELAYS INPUTS APPROXP) (COLLECT-DELAYS-0 OUTPUTS OUTPUT-TYPES (EXTERNALIZE-PARENTS OUTPUTS DELAYS INPUTS OUTPUTS) INPUTS OUTPUTS APPROXP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTERNALIZE-PARENTS . COLLECT-DELAYS) (IMMEDIATE-DEPENDENTS0 COLLECT-DELAYS-0 . COLLECT-DELAYS) (DCELL . *1*COLLECT-DELAYS))))) (PUT1-LST (QUOTE COLLECT-DELAYS-0-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-DELAYS-0-OFF COLLECT-DELAYS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-DELAYS-0 . COLLECT-DELAYS-0-OFF) (DISABLED-LEMMAS NIL COLLECT-DELAYS-0 COLLECT-DELAYS-0-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-DELAYS-0) (QUOTE (MAIN-EVENT COLLECT-DELAYS-0))) (PUT1-LST (QUOTE COLLECT-DELAYS-0) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-DELAYS-0 24 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-DELAYS-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (NAMES TYPES DELAYS INPUTS OUTPUTS APPROXP) (IF (LISTP NAMES) (CONS (OUTPUT-DELAY (CAR NAMES) (CAR TYPES) DELAYS INPUTS OUTPUTS APPROXP) (COLLECT-DELAYS-0 (CDR NAMES) (CDR TYPES) DELAYS INPUTS OUTPUTS APPROXP)) (QUOTE NIL))) LISP-CODE *1*COLLECT-DELAYS-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) (CDR TYPES) DELAYS INPUTS OUTPUTS APPROXP))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-DELAYS-0) IMMEDIATE-DEPENDENTS0 (COLLECT-DELAYS COLLECT-DELAYS-0-OFF) EVENT (DEFN COLLECT-DELAYS-0 (NAMES TYPES DELAYS INPUTS OUTPUTS APPROXP) (IF (LISTP NAMES) (CONS (OUTPUT-DELAY (CAR NAMES) (CAR TYPES) DELAYS INPUTS OUTPUTS APPROXP) (COLLECT-DELAYS-0 (CDR NAMES) (CDR TYPES) DELAYS INPUTS OUTPUTS APPROXP)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-DELAY . COLLECT-DELAYS-0) (DCELL . *1*COLLECT-DELAYS-0))))) (PUT1-LST (QUOTE OUTPUT-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE OUTPUT-DELAY-OFF OUTPUT-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-DELAY . OUTPUT-DELAY-OFF) (DISABLED-LEMMAS NIL OUTPUT-DELAY OUTPUT-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*OUTPUT-DELAY) (QUOTE (MAIN-EVENT OUTPUT-DELAY))) (PUT1-LST (QUOTE OUTPUT-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((OUTPUT-DELAY -1 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((OUTPUT-DELAY . T)) SDEFN (LAMBDA (NAME TYPE DELAYS INPUTS OUTPUTS APPROXP) (IF (SIGNAL-NAMEP (VALUE-OR-UNKNOWN NAME DELAYS)) (PARENT-SYNONYM (VALUE-OR-UNKNOWN NAME DELAYS) DELAYS) (IF (LISTP (VALUE-OR-UNKNOWN NAME DELAYS)) (IF (EQUAL (CAR (VALUE-OR-UNKNOWN NAME DELAYS)) (QUOTE OR)) (MAKE-DELAY-OR (OR-DELAY-ARGS (CDR (VALUE-OR-UNKNOWN NAME DELAYS)) (QUOTE *1*TRUE) TYPE DELAYS (CONS NAME (QUOTE NIL)) INPUTS OUTPUTS APPROXP)) (MAKE-OUTPUT-DELAY (VALUE-OR-UNKNOWN NAME DELAYS) TYPE (INPUT-DELAY (DELAY-DEPENDENCIES (VALUE-OR-UNKNOWN NAME DELAYS)) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) (CONS NAME (QUOTE NIL)) APPROXP) APPROXP)) (QUOTE (*1*QUOTE UNKNOWN))))) LISP-CODE *1*OUTPUT-DELAY SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402194009 SATELLITES (*1*OUTPUT-DELAY) IMMEDIATE-DEPENDENTS0 (COLLECT-DELAYS-0 OUTPUT-DELAY-OFF) EVENT (DEFN OUTPUT-DELAY (NAME TYPE DELAYS INPUTS OUTPUTS APPROXP) (IF (SIGNAL-NAMEP (VALUE-OR-UNKNOWN NAME DELAYS)) (PARENT-SYNONYM (VALUE-OR-UNKNOWN NAME DELAYS) DELAYS) (IF (NLISTP (VALUE-OR-UNKNOWN NAME DELAYS)) (QUOTE (*1*QUOTE UNKNOWN)) (IF (EQUAL (CAR (VALUE-OR-UNKNOWN NAME DELAYS)) (QUOTE OR)) (MAKE-DELAY-OR (OR-DELAY-ARGS (CDR (VALUE-OR-UNKNOWN NAME DELAYS)) (QUOTE *1*TRUE) TYPE DELAYS (CONS NAME (QUOTE NIL)) INPUTS OUTPUTS APPROXP)) (MAKE-OUTPUT-DELAY (VALUE-OR-UNKNOWN NAME DELAYS) TYPE (INPUT-DELAY (DELAY-DEPENDENCIES (VALUE-OR-UNKNOWN NAME DELAYS)) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) (CONS NAME (QUOTE NIL)) APPROXP) APPROXP))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 INPUT-DELAY . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-OUTPUT-DELAY . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 OR-DELAY-ARGS . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY-OR . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 UNKNOWN . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . OUTPUT-DELAY) (DCELL . *1*OUTPUT-DELAY))))) (PUT1-LST (QUOTE OR-DELAY-ARGS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE OR-DELAY-ARGS-OFF OR-DELAY-ARGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-DELAY-ARGS . OR-DELAY-ARGS-OFF) (DISABLED-LEMMAS NIL OR-DELAY-ARGS OR-DELAY-ARGS-OFF . T))))) (PUT1-LST (QUOTE *1*OR-DELAY-ARGS) (QUOTE (MAIN-EVENT OR-DELAY-ARGS))) (PUT1-LST (QUOTE OR-DELAY-ARGS) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-DELAY-ARGS 24 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((OR-DELAY-ARGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE UNCHANGING UNCHANGING QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (A LISTP TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (IF LISTP (IF (LISTP A) (UNION (OR-DELAY-ARGS (CAR A) (QUOTE *1*FALSE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (OR-DELAY-ARGS (CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP A) (IF (MEMBER A INPUTS) (CONS A (QUOTE NIL)) (IF (MEMBER A OUTPUTS) (QUOTE ((*1*QUOTE UNKNOWN))) (IF (MEMBER A USED-NAMES) (QUOTE ((*1*QUOTE UNKNOWN))) (IF (BOUNDP A DELAYS) (OR-DELAY-ARGS (VALUE A DELAYS) (QUOTE *1*FALSE) TYPE DELAYS (CONS A USED-NAMES) INPUTS OUTPUTS APPROXP) (QUOTE ((*1*QUOTE UNKNOWN))))))) (IF (LISTP A) (IF (EQUAL (CAR A) (QUOTE OR)) (OR-DELAY-ARGS (CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (CONS (MAKE-OUTPUT-DELAY A TYPE (INPUT-DELAY (DELAY-DEPENDENCIES A) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (QUOTE NIL))) (QUOTE ((*1*QUOTE UNKNOWN))))))) LISP-CODE *1*OR-DELAY-ARGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP A)) (((CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) ((CAR A) (QUOTE *1*FALSE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP))) (TESTS-AND-CASES (LISTP (NOT (LISTP A))) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (MEMBER A INPUTS)) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (NOT (MEMBER A INPUTS)) (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DELAYS))) (((VALUE A DELAYS) (QUOTE *1*FALSE) TYPE DELAYS (CONS A USED-NAMES) INPUTS OUTPUTS APPROXP))) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (NOT (MEMBER A INPUTS)) (NOT (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DELAYS)))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (NLISTP A)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (NOT (NLISTP A)) (EQUAL (CAR A) (QUOTE OR))) (((CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (NOT (NLISTP A)) (NOT (EQUAL (CAR A) (QUOTE OR)))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (A DELAYS USED-NAMES) (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DELAYS))) (COUNT A)) ORD-LESSP (NLISTP LESSP-UNBIND-LIST-COUNT OR NOT AND ADD1-EQUAL LESSP SUB1-ADD1 CAR-LESSP ZERO CDR-LESSP ORD-LESSP LESSP-X-X CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194009 CONTROLLER-POCKETS (25) SATELLITES (*1*OR-DELAY-ARGS) IMMEDIATE-DEPENDENTS0 (OUTPUT-DELAY OR-DELAY-ARGS-OFF) EVENT (DEFN OR-DELAY-ARGS (A LISTP TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (IF LISTP (IF (LISTP A) (UNION (OR-DELAY-ARGS (CAR A) (QUOTE *1*FALSE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (OR-DELAY-ARGS (CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP A) (IF (MEMBER A INPUTS) (CONS A (QUOTE NIL)) (IF (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DELAYS)) (OR-DELAY-ARGS (VALUE A DELAYS) (QUOTE *1*FALSE) TYPE DELAYS (CONS A USED-NAMES) INPUTS OUTPUTS APPROXP) (QUOTE ((*1*QUOTE UNKNOWN))))) (IF (NLISTP A) (QUOTE ((*1*QUOTE UNKNOWN))) (IF (EQUAL (CAR A) (QUOTE OR)) (OR-DELAY-ARGS (CDR A) (QUOTE *1*TRUE) TYPE DELAYS USED-NAMES INPUTS OUTPUTS APPROXP) (CONS (MAKE-OUTPUT-DELAY A TYPE (INPUT-DELAY (DELAY-DEPENDENCIES A) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (QUOTE NIL)))))) ((ORD-LESSP (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DELAYS))) (COUNT A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 INPUT-DELAY . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 MAKE-OUTPUT-DELAY . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 UNKNOWN . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 VALUE . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 BOUNDP . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . OR-DELAY-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OR-DELAY-ARGS) (DCELL . *1*OR-DELAY-ARGS))))) (PUT1-LST (QUOTE MAKE-OUTPUT-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-OUTPUT-DELAY-OFF MAKE-OUTPUT-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-OUTPUT-DELAY . MAKE-OUTPUT-DELAY-OFF) (DISABLED-LEMMAS NIL MAKE-OUTPUT-DELAY MAKE-OUTPUT-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-OUTPUT-DELAY) (QUOTE (MAIN-EVENT MAKE-OUTPUT-DELAY))) (PUT1-LST (QUOTE MAKE-OUTPUT-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-OUTPUT-DELAY 16 NIL NIL NIL NIL)) TOTALP-LST ((MAKE-OUTPUT-DELAY . T)) SDEFN (LAMBDA (DELAY TYPE INPUT-DELAY-LIST APPROXP) (IF (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (MAKE-DELAY (TYPE-DELAY-SLOPE (DELAY-SLOPE-LH DELAY) TYPE) (RANGE-PLUS (DELAY-INTERCEPT-LH DELAY) (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (QUOTE NIL)) (TYPE-DELAY-SLOPE (DELAY-SLOPE-HL DELAY) TYPE) (RANGE-PLUS (DELAY-INTERCEPT-HL DELAY) (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (QUOTE NIL)) (RANGE-DEPENDENCIES (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP))) (MAKE-DELAY (TYPE-DELAY-SLOPE (DELAY-SLOPE-LH DELAY) TYPE) (DELAY-INTERCEPT-LH DELAY) (TYPE-DELAY-SLOPE (DELAY-SLOPE-HL DELAY) TYPE) (DELAY-INTERCEPT-HL DELAY) INPUT-DELAY-LIST))) LISP-CODE *1*MAKE-OUTPUT-DELAY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*MAKE-OUTPUT-DELAY) IMMEDIATE-DEPENDENTS0 (OUTPUT-DELAY OR-DELAY-ARGS MAKE-OUTPUT-DELAY-OFF) EVENT (DEFN MAKE-OUTPUT-DELAY (DELAY TYPE INPUT-DELAY-LIST APPROXP) (IF (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (MAKE-DELAY (TYPE-DELAY-SLOPE (DELAY-SLOPE-LH DELAY) TYPE) (RANGE-PLUS (DELAY-INTERCEPT-LH DELAY) (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (QUOTE NIL)) (TYPE-DELAY-SLOPE (DELAY-SLOPE-HL DELAY) TYPE) (RANGE-PLUS (DELAY-INTERCEPT-HL DELAY) (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP) (QUOTE NIL)) (RANGE-DEPENDENCIES (ADDABLE-INPUT-DELAY INPUT-DELAY-LIST APPROXP))) (MAKE-DELAY (TYPE-DELAY-SLOPE (DELAY-SLOPE-LH DELAY) TYPE) (DELAY-INTERCEPT-LH DELAY) (TYPE-DELAY-SLOPE (DELAY-SLOPE-HL DELAY) TYPE) (DELAY-INTERCEPT-HL DELAY) INPUT-DELAY-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-HL . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-HL . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-LH . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-PLUS . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-LH . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 TYPE-DELAY-SLOPE . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY . MAKE-OUTPUT-DELAY) (IMMEDIATE-DEPENDENTS0 ADDABLE-INPUT-DELAY . MAKE-OUTPUT-DELAY) (DCELL . *1*MAKE-OUTPUT-DELAY))))) (PUT1-LST (QUOTE TYPE-DELAY-SLOPE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE TYPE-DELAY-SLOPE-OFF TYPE-DELAY-SLOPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-DELAY-SLOPE . TYPE-DELAY-SLOPE-OFF) (DISABLED-LEMMAS NIL TYPE-DELAY-SLOPE TYPE-DELAY-SLOPE-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-DELAY-SLOPE) (QUOTE (MAIN-EVENT TYPE-DELAY-SLOPE))) (PUT1-LST (QUOTE TYPE-DELAY-SLOPE) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-DELAY-SLOPE 20 T NIL)) TOTALP-LST ((TYPE-DELAY-SLOPE . T)) SDEFN (LAMBDA (SLOPE TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (PER-STD-LOAD-DELAY-SLOPE SLOPE) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (PER-PF-DELAY-SLOPE SLOPE) SLOPE))) LISP-CODE *1*TYPE-DELAY-SLOPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*TYPE-DELAY-SLOPE) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY TYPE-DELAY-SLOPE-OFF) EVENT (DEFN TYPE-DELAY-SLOPE (SLOPE TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (PER-STD-LOAD-DELAY-SLOPE SLOPE) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (PER-PF-DELAY-SLOPE SLOPE) SLOPE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PER-PF-DELAY-SLOPE . TYPE-DELAY-SLOPE) (IMMEDIATE-DEPENDENTS0 PER-STD-LOAD-DELAY-SLOPE . TYPE-DELAY-SLOPE) (DCELL . *1*TYPE-DELAY-SLOPE))))) (PUT1-LST (QUOTE INPUT-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE INPUT-DELAY-OFF INPUT-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-DELAY . INPUT-DELAY-OFF) (DISABLED-LEMMAS NIL INPUT-DELAY INPUT-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*INPUT-DELAY) (QUOTE (MAIN-EVENT INPUT-DELAY))) (PUT1-LST (QUOTE INPUT-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((INPUT-DELAY -1 T NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((INPUT-DELAY . T)) SDEFN (LAMBDA (DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP) (IF (LISTP (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (IF (RANGEP (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (IF (EQUAL (RANGE-MIN (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (QUOTE 0)) (IF (EQUAL (RANGE-MAX (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (QUOTE 0)) (UNION (RANGE-DEPENDENCIES (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (CDR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) LISP-CODE *1*INPUT-DELAY SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194009 SATELLITES (*1*INPUT-DELAY) IMMEDIATE-DEPENDENTS0 (OUTPUT-DELAY OR-DELAY-ARGS INPUT-DELAY-OFF) EVENT (DEFN INPUT-DELAY (DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP) (IF (AND (LISTP (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (RANGEP (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)))) (IF (AND (EQUAL (RANGE-MIN (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (QUOTE 0)) (EQUAL (RANGE-MAX (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (QUOTE 0))) (UNION (RANGE-DEPENDENCIES (CAR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (CDR (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP)) (INPUT-DELAY0 DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-MAX . INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 RANGEP . INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 INPUT-DELAY0 . INPUT-DELAY) (DCELL . *1*INPUT-DELAY))))) (PUT1-LST (QUOTE INPUT-DELAY0-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE INPUT-DELAY0-OFF INPUT-DELAY0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-DELAY0 . INPUT-DELAY0-OFF) (DISABLED-LEMMAS NIL INPUT-DELAY0 INPUT-DELAY0-OFF . T))))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES-OFF2) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-DEPENDENCIES-OFF2 RANGE-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . RANGE-DEPENDENCIES-OFF2) (DISABLED-LEMMAS NIL RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF2 . T))))) (PUT1-LST (QUOTE *1*INPUT-DELAY0) (QUOTE (MAIN-EVENT INPUT-DELAY0))) (PUT1-LST (QUOTE INPUT-DELAY0) (QUOTE (TYPE-PRESCRIPTION-LST ((INPUT-DELAY0 -1 T NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((INPUT-DELAY0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING QUESTIONABLE QUESTIONABLE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP) (IF LIST? (IF (LISTP DEP) (INSERT-INPUT-DELAY (INPUT-DELAY0 (CAR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) USED-NAMES APPROXP) (INPUT-DELAY0 (CDR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*TRUE) USED-NAMES APPROXP) OR-ARGS? APPROXP) (QUOTE NIL)) (IF (LISTP DEP) (IF (EQUAL (CAR DEP) (QUOTE OR)) (MAKE-DELAY-OR (INPUT-DELAY0 (CDR DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*TRUE) (QUOTE *1*TRUE) USED-NAMES APPROXP)) (IF (RANGEP DEP) (IF (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (RANGE-PLUS DEP (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (RANGE-DEPENDENCIES (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP))) (MAKE-RANGE (RANGE-MIN DEP) (RANGE-MAX DEP) (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP))) (QUOTE (*1*QUOTE UNKNOWN)))) (IF (NUMBERP DEP) DEP (IF (MEMBER DEP INPUTS) DEP (IF (MEMBER DEP USED-NAMES) (QUOTE (*1*QUOTE UNKNOWN)) (IF (MEMBER DEP OUTPUTS) (IF OR-ARGS? (QUOTE (*1*QUOTE UNKNOWN)) (PARENT-SYNONYM DEP DELAYS)) (IF (BOUNDP DEP DELAYS) (INPUT-DELAY0 (DELAY-TO-RANGE (VALUE DEP DELAYS)) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) (CONS DEP USED-NAMES) APPROXP) (QUOTE (*1*QUOTE UNKNOWN)))))))))) LISP-CODE *1*INPUT-DELAY0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LIST? (LISTP DEP)) (((CDR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*TRUE) USED-NAMES APPROXP) ((CAR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) USED-NAMES APPROXP))) (TESTS-AND-CASES (LIST? (NOT (LISTP DEP))) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NUMBERP DEP)) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (MEMBER DEP INPUTS)) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (NOT (MEMBER DEP INPUTS)) (MEMBER DEP USED-NAMES)) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (NOT (MEMBER DEP INPUTS)) (NOT (MEMBER DEP USED-NAMES)) (MEMBER DEP OUTPUTS) OR-ARGS?) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (NOT (MEMBER DEP INPUTS)) (NOT (MEMBER DEP USED-NAMES)) (MEMBER DEP OUTPUTS) (NOT OR-ARGS?)) NIL) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (NOT (MEMBER DEP INPUTS)) (NOT (MEMBER DEP USED-NAMES)) (NOT (MEMBER DEP OUTPUTS)) (BOUNDP DEP DELAYS)) (((DELAY-TO-RANGE (VALUE DEP DELAYS)) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) (CONS DEP USED-NAMES) APPROXP))) (TESTS-AND-CASES ((NOT LIST?) (NLISTP DEP) (NOT (NUMBERP DEP)) (NOT (MEMBER DEP INPUTS)) (NOT (MEMBER DEP USED-NAMES)) (NOT (MEMBER DEP OUTPUTS)) (NOT (BOUNDP DEP DELAYS))) NIL) (TESTS-AND-CASES ((NOT LIST?) (NOT (NLISTP DEP)) (EQUAL (CAR DEP) (QUOTE OR))) (((CDR DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*TRUE) (QUOTE *1*TRUE) USED-NAMES APPROXP))) (TESTS-AND-CASES ((NOT LIST?) (NOT (NLISTP DEP)) (NOT (EQUAL (CAR DEP) (QUOTE OR))) (RANGEP DEP) (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP)) (((RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP))) (TESTS-AND-CASES ((NOT LIST?) (NOT (NLISTP DEP)) (NOT (EQUAL (CAR DEP) (QUOTE OR))) (RANGEP DEP) (NOT (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP))) (((RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP))) (TESTS-AND-CASES ((NOT LIST?) (NOT (NLISTP DEP)) (NOT (EQUAL (CAR DEP) (QUOTE OR))) (NOT (RANGEP DEP))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (DEP DELAYS USED-NAMES) (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DELAYS))) (COUNT DEP)) ORD-LESSP (CDR-LESSEQP RANGE-DEPENDENCIES LESSP-UNBIND-LIST-COUNT NLISTP ADD1-EQUAL LESSP SUB1-ADD1 CAR-LESSP ZERO CDR-LESSP ORD-LESSP LESSP-X-X CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194009 CONTROLLER-POCKETS (67) SATELLITES (*1*INPUT-DELAY0) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY INPUT-DELAY0-OFF) EVENT (DEFN INPUT-DELAY0 (DEP DELAYS INPUTS OUTPUTS OR-ARGS? LIST? USED-NAMES APPROXP) (IF LIST? (IF (LISTP DEP) (INSERT-INPUT-DELAY (INPUT-DELAY0 (CAR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) USED-NAMES APPROXP) (INPUT-DELAY0 (CDR DEP) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*TRUE) USED-NAMES APPROXP) OR-ARGS? APPROXP) (QUOTE NIL)) (IF (NLISTP DEP) (IF (NUMBERP DEP) DEP (IF (MEMBER DEP INPUTS) DEP (IF (MEMBER DEP USED-NAMES) (QUOTE (*1*QUOTE UNKNOWN)) (IF (MEMBER DEP OUTPUTS) (IF OR-ARGS? (QUOTE (*1*QUOTE UNKNOWN)) (PARENT-SYNONYM DEP DELAYS)) (IF (BOUNDP DEP DELAYS) (INPUT-DELAY0 (DELAY-TO-RANGE (VALUE DEP DELAYS)) DELAYS INPUTS OUTPUTS OR-ARGS? (QUOTE *1*FALSE) (CONS DEP USED-NAMES) APPROXP) (QUOTE (*1*QUOTE UNKNOWN))))))) (IF (EQUAL (CAR DEP) (QUOTE OR)) (MAKE-DELAY-OR (INPUT-DELAY0 (CDR DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*TRUE) (QUOTE *1*TRUE) USED-NAMES APPROXP)) (IF (RANGEP DEP) (IF (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (RANGE-PLUS DEP (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP) (RANGE-DEPENDENCIES (ADDABLE-INPUT-DELAY (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP) APPROXP))) (MAKE-RANGE (RANGE-MIN DEP) (RANGE-MAX DEP) (INPUT-DELAY0 (RANGE-DEPENDENCIES DEP) DELAYS INPUTS OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) USED-NAMES APPROXP))) (QUOTE (*1*QUOTE UNKNOWN)))))) ((ORD-LESSP (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DELAYS))) (COUNT DEP))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-MAX . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 MAKE-RANGE . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 RANGE-PLUS . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 ADDABLE-INPUT-DELAY . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 RANGEP . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY-OR . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 VALUE . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 DELAY-TO-RANGE . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 BOUNDP . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 UNKNOWN . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 INSERT-INPUT-DELAY . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . INPUT-DELAY0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . INPUT-DELAY0) (DCELL . *1*INPUT-DELAY0))))) (PUT1-LST (QUOTE ADDABLE-INPUT-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE ADDABLE-INPUT-DELAY-OFF ADDABLE-INPUT-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDABLE-INPUT-DELAY . ADDABLE-INPUT-DELAY-OFF) (DISABLED-LEMMAS NIL ADDABLE-INPUT-DELAY ADDABLE-INPUT-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*ADDABLE-INPUT-DELAY) (QUOTE (MAIN-EVENT ADDABLE-INPUT-DELAY))) (PUT1-LST (QUOTE ADDABLE-INPUT-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDABLE-INPUT-DELAY -1 NIL NIL)) TOTALP-LST ((ADDABLE-INPUT-DELAY . T)) SDEFN (LAMBDA (IN-DELAYS APPROXP) (IF (LISTP IN-DELAYS) (IF (LISTP (CDR IN-DELAYS)) (QUOTE *1*FALSE) (IF APPROXP (IF (RANGEP (CAR IN-DELAYS)) (CAR IN-DELAYS) (IF (NUMBERP (CAR IN-DELAYS)) (CAR IN-DELAYS) (QUOTE *1*FALSE))) (IF (DETERMINED-RANGEP (CAR IN-DELAYS)) (CAR IN-DELAYS) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE))) LISP-CODE *1*ADDABLE-INPUT-DELAY SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*ADDABLE-INPUT-DELAY) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY INPUT-DELAY0 ADDABLE-INPUT-DELAY-OFF) EVENT (DEFN ADDABLE-INPUT-DELAY (IN-DELAYS APPROXP) (IF (AND (LISTP IN-DELAYS) (NLISTP (CDR IN-DELAYS))) (IF (IF APPROXP (OR (RANGEP (CAR IN-DELAYS)) (NUMBERP (CAR IN-DELAYS))) (DETERMINED-RANGEP (CAR IN-DELAYS))) (CAR IN-DELAYS) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DETERMINED-RANGEP . ADDABLE-INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 RANGEP . ADDABLE-INPUT-DELAY) (DCELL . *1*ADDABLE-INPUT-DELAY))))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES-ON1) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-DEPENDENCIES-ON1 RANGE-DEPENDENCIES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . RANGE-DEPENDENCIES-ON1) (DISABLED-LEMMAS NIL RANGE-DEPENDENCIES RANGE-DEPENDENCIES-ON1))))) (PUT1-LST (QUOTE DELAY-TO-RANGE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-TO-RANGE-OFF DELAY-TO-RANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-TO-RANGE . DELAY-TO-RANGE-OFF) (DISABLED-LEMMAS NIL DELAY-TO-RANGE DELAY-TO-RANGE-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-TO-RANGE) (QUOTE (MAIN-EVENT DELAY-TO-RANGE))) (PUT1-LST (QUOTE DELAY-TO-RANGE) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-TO-RANGE -1 T)) TOTALP-LST ((DELAY-TO-RANGE . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (MAKE-DELAY-OR (OR-DELAY-ARGS-TO-RANGES (CDR D) (QUOTE NIL))) (LITERAL-DELAY-TO-RANGE D)) D)) LISP-CODE *1*DELAY-TO-RANGE SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194009 SATELLITES (*1*DELAY-TO-RANGE) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY0 DELAY-TO-RANGE-OFF) EVENT (DEFN DELAY-TO-RANGE (D) (IF (NLISTP D) D (IF (EQUAL (CAR D) (QUOTE OR)) (MAKE-DELAY-OR (OR-DELAY-ARGS-TO-RANGES (CDR D) (QUOTE NIL))) (LITERAL-DELAY-TO-RANGE D)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-DELAY-TO-RANGE . DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 OR-DELAY-ARGS-TO-RANGES . DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY-OR . DELAY-TO-RANGE) (DCELL . *1*DELAY-TO-RANGE))))) (PUT1-LST (QUOTE MAKE-DELAY-OR-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-DELAY-OR-OFF MAKE-DELAY-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-DELAY-OR . MAKE-DELAY-OR-OFF) (DISABLED-LEMMAS NIL MAKE-DELAY-OR MAKE-DELAY-OR-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-DELAY-OR) (QUOTE (MAIN-EVENT MAKE-DELAY-OR))) (PUT1-LST (QUOTE MAKE-DELAY-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-DELAY-OR -1 NIL)) TOTALP-LST ((MAKE-DELAY-OR . T)) SDEFN (LAMBDA (ARGS) (IF (LISTP ARGS) (IF (LISTP (CDR ARGS)) (CONS (QUOTE OR) ARGS) (IF (SIGNAL-NAMEP (CAR ARGS)) (CONS (QUOTE OR) (CONS (QUOTE (*1*QUOTE UNKNOWN)) ARGS)) (CAR ARGS))) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*MAKE-DELAY-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*MAKE-DELAY-OR) IMMEDIATE-DEPENDENTS0 (OUTPUT-DELAY INPUT-DELAY0 DELAY-TO-RANGE MAKE-DELAY-OR-OFF) EVENT (DEFN MAKE-DELAY-OR (ARGS) (IF (NLISTP ARGS) (QUOTE (*1*QUOTE UNKNOWN)) (IF (LISTP (CDR ARGS)) (CONS (QUOTE OR) ARGS) (IF (SIGNAL-NAMEP (CAR ARGS)) (CONS (QUOTE OR) (CONS (QUOTE (*1*QUOTE UNKNOWN)) ARGS)) (CAR ARGS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . MAKE-DELAY-OR) (IMMEDIATE-DEPENDENTS0 UNKNOWN . MAKE-DELAY-OR) (DCELL . *1*MAKE-DELAY-OR))))) (PUT1-LST (QUOTE OR-DELAY-ARGS-TO-RANGES-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE OR-DELAY-ARGS-TO-RANGES-OFF OR-DELAY-ARGS-TO-RANGES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-DELAY-ARGS-TO-RANGES . OR-DELAY-ARGS-TO-RANGES-OFF) (DISABLED-LEMMAS NIL OR-DELAY-ARGS-TO-RANGES OR-DELAY-ARGS-TO-RANGES-OFF . T))))) (PUT1-LST (QUOTE *1*OR-DELAY-ARGS-TO-RANGES) (QUOTE (MAIN-EVENT OR-DELAY-ARGS-TO-RANGES))) (PUT1-LST (QUOTE OR-DELAY-ARGS-TO-RANGES) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-DELAY-ARGS-TO-RANGES -1 NIL T)) TOTALP-LST ((OR-DELAY-ARGS-TO-RANGES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (ARGS RESULT) (IF (LISTP ARGS) (IF (LISTP (CAR ARGS)) (IF (EQUAL (CAR (CAR ARGS)) (QUOTE OR)) (OR-DELAY-ARGS-TO-RANGES (CDR (CAR ARGS)) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT)) (INSERT-INPUT-DELAY (LITERAL-DELAY-TO-RANGE (CAR ARGS)) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (INSERT-INPUT-DELAY (CAR ARGS) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) RESULT)) LISP-CODE *1*OR-DELAY-ARGS-TO-RANGES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP ARGS) (NLISTP (CAR ARGS))) (((CDR ARGS) RESULT))) (TESTS-AND-CASES ((LISTP ARGS) (NOT (NLISTP (CAR ARGS))) (EQUAL (CAR (CAR ARGS)) (QUOTE OR))) (((CDR (CAR ARGS)) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT)) ((CDR ARGS) RESULT))) (TESTS-AND-CASES ((LISTP ARGS) (NOT (NLISTP (CAR ARGS))) (NOT (EQUAL (CAR (CAR ARGS)) (QUOTE OR)))) (((CDR ARGS) RESULT))) (TESTS-AND-CASES ((NOT (LISTP ARGS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (ARGS) (COUNT ARGS) LESSP (CAR-LESSP CDR-LESSEQP ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*OR-DELAY-ARGS-TO-RANGES) IMMEDIATE-DEPENDENTS0 (DELAY-TO-RANGE OR-DELAY-ARGS-TO-RANGES-OFF) EVENT (DEFN OR-DELAY-ARGS-TO-RANGES (ARGS RESULT) (IF (LISTP ARGS) (IF (NLISTP (CAR ARGS)) (INSERT-INPUT-DELAY (CAR ARGS) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF (EQUAL (CAR (CAR ARGS)) (QUOTE OR)) (OR-DELAY-ARGS-TO-RANGES (CDR (CAR ARGS)) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT)) (INSERT-INPUT-DELAY (LITERAL-DELAY-TO-RANGE (CAR ARGS)) (OR-DELAY-ARGS-TO-RANGES (CDR ARGS) RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) RESULT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-DELAY-TO-RANGE . OR-DELAY-ARGS-TO-RANGES) (IMMEDIATE-DEPENDENTS0 INSERT-INPUT-DELAY . OR-DELAY-ARGS-TO-RANGES) (DCELL . *1*OR-DELAY-ARGS-TO-RANGES))))) (PUT1-LST (QUOTE LITERAL-DELAY-TO-RANGE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LITERAL-DELAY-TO-RANGE-OFF LITERAL-DELAY-TO-RANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-DELAY-TO-RANGE . LITERAL-DELAY-TO-RANGE-OFF) (DISABLED-LEMMAS NIL LITERAL-DELAY-TO-RANGE LITERAL-DELAY-TO-RANGE-OFF . T))))) (PUT1-LST (QUOTE *1*LITERAL-DELAY-TO-RANGE) (QUOTE (MAIN-EVENT LITERAL-DELAY-TO-RANGE))) (PUT1-LST (QUOTE LITERAL-DELAY-TO-RANGE) (QUOTE (TYPE-PRESCRIPTION-LST ((LITERAL-DELAY-TO-RANGE -1 NIL)) TOTALP-LST ((LITERAL-DELAY-TO-RANGE . T)) SDEFN (LAMBDA (D) (MAKE-RANGE (MIN (RANGE-MIN (DELAY-INTERCEPT-LH D)) (RANGE-MIN (DELAY-INTERCEPT-HL D))) (MAX (RANGE-MAX (DELAY-INTERCEPT-LH D)) (RANGE-MAX (DELAY-INTERCEPT-HL D))) (DELAY-DEPENDENCIES D))) LISP-CODE *1*LITERAL-DELAY-TO-RANGE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*LITERAL-DELAY-TO-RANGE) IMMEDIATE-DEPENDENTS0 (DELAY-TO-RANGE OR-DELAY-ARGS-TO-RANGES LITERAL-DELAY-TO-RANGE-OFF) EVENT (DEFN LITERAL-DELAY-TO-RANGE (D) (MAKE-RANGE (MIN (RANGE-MIN (DELAY-INTERCEPT-LH D)) (RANGE-MIN (DELAY-INTERCEPT-HL D))) (MAX (RANGE-MAX (DELAY-INTERCEPT-LH D)) (RANGE-MAX (DELAY-INTERCEPT-HL D))) (DELAY-DEPENDENCIES D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 RANGE-MAX . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-HL . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-LH . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 MIN . LITERAL-DELAY-TO-RANGE) (IMMEDIATE-DEPENDENTS0 MAKE-RANGE . LITERAL-DELAY-TO-RANGE) (DCELL . *1*LITERAL-DELAY-TO-RANGE))))) (PUT1-LST (QUOTE INSERT-INPUT-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE INSERT-INPUT-DELAY-OFF INSERT-INPUT-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT-INPUT-DELAY . INSERT-INPUT-DELAY-OFF) (DISABLED-LEMMAS NIL INSERT-INPUT-DELAY INSERT-INPUT-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*INSERT-INPUT-DELAY) (QUOTE (MAIN-EVENT INSERT-INPUT-DELAY))) (PUT1-LST (QUOTE INSERT-INPUT-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((INSERT-INPUT-DELAY -1 NIL T NIL NIL)) TOTALP-LST ((INSERT-INPUT-DELAY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (D DLIST OR-ARGS? APPROXP) (IF (UNKNOWNP D) DLIST (IF (LISTP DLIST) (IF OR-ARGS? (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (INSERT-INPUT-DELAY (CAR (CDR D)) (INSERT (CAR DLIST) (UNION (CDR (CDR D)) (CDR DLIST))) OR-ARGS? APPROXP) (IF (MERGEABLE-INPUT-DELAY-P D (QUOTE *1*FALSE)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (MERGE-INPUT-DELAYS D (CAR DLIST) OR-ARGS?) (CDR DLIST)) (CONS D DLIST)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (CAR DLIST) (INSERT D (CDR DLIST))) (INSERT D DLIST)))) (IF (MERGEABLE-INPUT-DELAY-P D (QUOTE *1*FALSE)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (MERGE-INPUT-DELAYS D (CAR DLIST) OR-ARGS?) (CDR DLIST)) (CONS D DLIST)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (CAR DLIST) (INSERT D (CDR DLIST))) (INSERT D DLIST)))) (IF APPROXP (IF (MERGEABLE-INPUT-DELAY-P D (QUOTE *1*TRUE)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*TRUE)) (CONS (MERGE-INPUT-DELAYS D (CAR DLIST) (QUOTE *1*FALSE)) (CDR DLIST)) (CONS D DLIST)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*TRUE)) (CONS (CAR DLIST) (INSERT D (CDR DLIST))) (INSERT D DLIST))) (IF (MERGEABLE-INPUT-DELAY-P D (QUOTE *1*FALSE)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (MERGE-INPUT-DELAYS D (CAR DLIST) (QUOTE *1*FALSE)) (CDR DLIST)) (CONS D DLIST)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (QUOTE *1*FALSE)) (CONS (CAR DLIST) (INSERT D (CDR DLIST))) (INSERT D DLIST))))) (IF OR-ARGS? (IF (EQUAL (CAR D) (QUOTE OR)) (CDR D) (CONS D (QUOTE NIL))) (CONS D (QUOTE NIL)))))) LISP-CODE *1*INSERT-INPUT-DELAY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((UNKNOWNP D)) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NLISTP DLIST) (AND OR-ARGS? (EQUAL (CAR D) (QUOTE OR)))) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NLISTP DLIST) (NOT (AND OR-ARGS? (EQUAL (CAR D) (QUOTE OR))))) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NOT (NLISTP DLIST)) (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR))))) (((CAR (CDR D)) (INSERT (CAR DLIST) (UNION (CDR (CDR D)) (CDR DLIST))) OR-ARGS? APPROXP))) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NOT (NLISTP DLIST)) (NOT (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR))))) (MERGEABLE-INPUT-DELAY-P D (AND APPROXP (NOT OR-ARGS?))) (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?)))) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NOT (NLISTP DLIST)) (NOT (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR))))) (MERGEABLE-INPUT-DELAY-P D (AND APPROXP (NOT OR-ARGS?))) (NOT (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?))))) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NOT (NLISTP DLIST)) (NOT (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR))))) (NOT (MERGEABLE-INPUT-DELAY-P D (AND APPROXP (NOT OR-ARGS?)))) (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?)))) NIL) (TESTS-AND-CASES ((NOT (UNKNOWNP D)) (NOT (NLISTP DLIST)) (NOT (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR))))) (NOT (MERGEABLE-INPUT-DELAY-P D (AND APPROXP (NOT OR-ARGS?)))) (NOT (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?))))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (D) (COUNT D) LESSP (CDR-LESSP NLISTP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*INSERT-INPUT-DELAY) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY0 OR-DELAY-ARGS-TO-RANGES INSERT-INPUT-DELAY-OFF) EVENT (DEFN INSERT-INPUT-DELAY (D DLIST OR-ARGS? APPROXP) (IF (UNKNOWNP D) DLIST (IF (NLISTP DLIST) (IF (AND OR-ARGS? (EQUAL (CAR D) (QUOTE OR))) (CDR D) (CONS D (QUOTE NIL))) (IF (AND OR-ARGS? (AND (LISTP D) (EQUAL (CAR D) (QUOTE OR)))) (INSERT-INPUT-DELAY (CAR (CDR D)) (INSERT (CAR DLIST) (UNION (CDR (CDR D)) (CDR DLIST))) OR-ARGS? APPROXP) (IF (MERGEABLE-INPUT-DELAY-P D (AND APPROXP (NOT OR-ARGS?))) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?))) (CONS (MERGE-INPUT-DELAYS D (CAR DLIST) OR-ARGS?) (CDR DLIST)) (CONS D DLIST)) (IF (MERGEABLE-INPUT-DELAY-P (CAR DLIST) (AND APPROXP (NOT OR-ARGS?))) (CONS (CAR DLIST) (INSERT D (CDR DLIST))) (INSERT D DLIST))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MERGE-INPUT-DELAYS . INSERT-INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 MERGEABLE-INPUT-DELAY-P . INSERT-INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 INSERT . INSERT-INPUT-DELAY) (IMMEDIATE-DEPENDENTS0 UNKNOWN . INSERT-INPUT-DELAY) (DCELL . *1*INSERT-INPUT-DELAY))))) (PUT1-LST (QUOTE MERGEABLE-INPUT-DELAY-P-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MERGEABLE-INPUT-DELAY-P-OFF MERGEABLE-INPUT-DELAY-P T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MERGEABLE-INPUT-DELAY-P . MERGEABLE-INPUT-DELAY-P-OFF) (DISABLED-LEMMAS NIL MERGEABLE-INPUT-DELAY-P MERGEABLE-INPUT-DELAY-P-OFF . T))))) (PUT1-LST (QUOTE *1*MERGEABLE-INPUT-DELAY-P) (QUOTE (MAIN-EVENT MERGEABLE-INPUT-DELAY-P))) (PUT1-LST (QUOTE MERGEABLE-INPUT-DELAY-P) (QUOTE (TYPE-PRESCRIPTION-LST ((MERGEABLE-INPUT-DELAY-P 3 NIL NIL)) TOTALP-LST ((MERGEABLE-INPUT-DELAY-P . T)) SDEFN (LAMBDA (D APPROXP) (IF APPROXP (IF (RANGEP D) (QUOTE *1*TRUE) (IF (NUMBERP D) (QUOTE *1*TRUE) (SIGNAL-NAMEP D))) (DETERMINED-RANGEP D))) LISP-CODE *1*MERGEABLE-INPUT-DELAY-P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*MERGEABLE-INPUT-DELAY-P) IMMEDIATE-DEPENDENTS0 (INSERT-INPUT-DELAY MERGEABLE-INPUT-DELAY-P-OFF) EVENT (DEFN MERGEABLE-INPUT-DELAY-P (D APPROXP) (IF APPROXP (OR (RANGEP D) (OR (NUMBERP D) (SIGNAL-NAMEP D))) (DETERMINED-RANGEP D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DETERMINED-RANGEP . MERGEABLE-INPUT-DELAY-P) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . MERGEABLE-INPUT-DELAY-P) (IMMEDIATE-DEPENDENTS0 RANGEP . MERGEABLE-INPUT-DELAY-P) (DCELL . *1*MERGEABLE-INPUT-DELAY-P))))) (PUT1-LST (QUOTE MERGE-INPUT-DELAYS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MERGE-INPUT-DELAYS-OFF MERGE-INPUT-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MERGE-INPUT-DELAYS . MERGE-INPUT-DELAYS-OFF) (DISABLED-LEMMAS NIL MERGE-INPUT-DELAYS MERGE-INPUT-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*MERGE-INPUT-DELAYS) (QUOTE (MAIN-EVENT MERGE-INPUT-DELAYS))) (PUT1-LST (QUOTE MERGE-INPUT-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((MERGE-INPUT-DELAYS -1 T T NIL)) TOTALP-LST ((MERGE-INPUT-DELAYS . T)) SDEFN (LAMBDA (R1 R2 OR-ARGS?) (IF (RANGEP R1) (IF (RANGEP R2) (IF OR-ARGS? (MAKE-RANGE (MIN (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (MAX (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2)))) (IF (NUMBERP R2) (IF OR-ARGS? (MAKE-RANGE (MIN (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (MAX (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2)))) (MAKE-RANGE (RANGE-MIN R1) (RANGE-MAX R1) (INSERT R2 (RANGE-DEPENDENCIES R1))))) (IF (NUMBERP R1) (IF (RANGEP R2) (IF OR-ARGS? (MAKE-RANGE (MIN (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (MAX (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2)))) (IF (NUMBERP R2) (IF OR-ARGS? (MAKE-RANGE (MIN (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (MAX (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2)))) (MAKE-RANGE (RANGE-MIN R1) (RANGE-MAX R1) (INSERT R2 (RANGE-DEPENDENCIES R1))))) (IF (RANGEP R2) (MAKE-RANGE (RANGE-MIN R2) (RANGE-MAX R2) (INSERT R1 (RANGE-DEPENDENCIES R2))) (IF (NUMBERP R2) (MAKE-RANGE (RANGE-MIN R2) (RANGE-MAX R2) (INSERT R1 (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (QUOTE 0) (QUOTE 0) (INSERT R1 (CONS R2 (QUOTE NIL))))))))) LISP-CODE *1*MERGE-INPUT-DELAYS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*MERGE-INPUT-DELAYS) IMMEDIATE-DEPENDENTS0 (INSERT-INPUT-DELAY MERGE-INPUT-DELAYS-OFF) EVENT (DEFN MERGE-INPUT-DELAYS (R1 R2 OR-ARGS?) (IF (OR (RANGEP R1) (NUMBERP R1)) (IF (OR (RANGEP R2) (NUMBERP R2)) (MAKE-RANGE (IF OR-ARGS? (MIN (RANGE-MIN R1) (RANGE-MIN R2)) (MAX (RANGE-MIN R1) (RANGE-MIN R2))) (MAX (RANGE-MAX R1) (RANGE-MAX R2)) (UNION (RANGE-DEPENDENCIES R1) (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (RANGE-MIN R1) (RANGE-MAX R1) (INSERT R2 (RANGE-DEPENDENCIES R1)))) (IF (OR (RANGEP R2) (NUMBERP R2)) (MAKE-RANGE (RANGE-MIN R2) (RANGE-MAX R2) (INSERT R1 (RANGE-DEPENDENCIES R2))) (MAKE-RANGE (QUOTE 0) (QUOTE 0) (INSERT R1 (CONS R2 (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 RANGE-MAX . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 MIN . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 MAKE-RANGE . MERGE-INPUT-DELAYS) (IMMEDIATE-DEPENDENTS0 RANGEP . MERGE-INPUT-DELAYS) (DCELL . *1*MERGE-INPUT-DELAYS))))) (PUT1-LST (QUOTE LOADED-DELAYS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOADED-DELAYS-OFF LOADED-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADED-DELAYS . LOADED-DELAYS-OFF) (DISABLED-LEMMAS NIL LOADED-DELAYS LOADED-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*LOADED-DELAYS) (QUOTE (MAIN-EVENT LOADED-DELAYS))) (PUT1-LST (QUOTE LOADED-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADED-DELAYS 16 T NIL)) TOTALP-LST ((LOADED-DELAYS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DELAYS LOADINGS) (IF (LISTP DELAYS) (IF (LISTP (CAR DELAYS)) (CONS (CONS (CAR (CAR DELAYS)) (LOADED-DELAY (CDR (CAR DELAYS)) (VALUE (CAR (CAR DELAYS)) LOADINGS) (QUOTE *1*FALSE))) (LOADED-DELAYS (CDR DELAYS) LOADINGS)) (CONS (CAR DELAYS) (LOADED-DELAYS (CDR DELAYS) LOADINGS))) DELAYS)) LISP-CODE *1*LOADED-DELAYS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DELAYS) (NLISTP (CAR DELAYS))) (((CDR DELAYS) LOADINGS))) (TESTS-AND-CASES ((LISTP DELAYS) (NOT (NLISTP (CAR DELAYS)))) (((CDR DELAYS) LOADINGS))) (TESTS-AND-CASES ((NOT (LISTP DELAYS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (DELAYS) (COUNT DELAYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*LOADED-DELAYS) IMMEDIATE-DEPENDENTS0 (COMPOSED-LOADINGS-DRIVES-DELAYS LOADED-DELAYS-OFF) EVENT (DEFN LOADED-DELAYS (DELAYS LOADINGS) (IF (LISTP DELAYS) (IF (NLISTP (CAR DELAYS)) (CONS (CAR DELAYS) (LOADED-DELAYS (CDR DELAYS) LOADINGS)) (CONS (CONS (CAR (CAR DELAYS)) (LOADED-DELAY (CDR (CAR DELAYS)) (VALUE (CAR (CAR DELAYS)) LOADINGS) (QUOTE *1*FALSE))) (LOADED-DELAYS (CDR DELAYS) LOADINGS))) DELAYS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . LOADED-DELAYS) (IMMEDIATE-DEPENDENTS0 LOADED-DELAY . LOADED-DELAYS) (DCELL . *1*LOADED-DELAYS))))) (PUT1-LST (QUOTE LOADED-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOADED-DELAY-OFF LOADED-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADED-DELAY . LOADED-DELAY-OFF) (DISABLED-LEMMAS NIL LOADED-DELAY LOADED-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*LOADED-DELAY) (QUOTE (MAIN-EVENT LOADED-DELAY))) (PUT1-LST (QUOTE LOADED-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADED-DELAY 24 T NIL NIL)) TOTALP-LST ((LOADED-DELAY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (DELAY LOAD LISTP) (IF LISTP (IF (LISTP DELAY) (CONS (LOADED-DELAY (CAR DELAY) LOAD (QUOTE *1*FALSE)) (LOADED-DELAY (CDR DELAY) LOAD (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (LISTP DELAY) (IF (EQUAL (CAR DELAY) (QUOTE OR)) (CONS (QUOTE OR) (LOADED-DELAY (CDR DELAY) LOAD (QUOTE *1*TRUE))) (ADD-LOAD-DELAY DELAY LOAD)) DELAY))) LISP-CODE *1*LOADED-DELAY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP DELAY)) (((CDR DELAY) LOAD (QUOTE *1*TRUE)) ((CAR DELAY) LOAD (QUOTE *1*FALSE)))) (TESTS-AND-CASES (LISTP (NOT (LISTP DELAY))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NLISTP DELAY)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (NLISTP DELAY)) (EQUAL (CAR DELAY) (QUOTE OR))) (((CDR DELAY) LOAD (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT LISTP) (NOT (NLISTP DELAY)) (NOT (EQUAL (CAR DELAY) (QUOTE OR)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DELAY) (COUNT DELAY) LESSP (NLISTP LESSP-X-X CDR-LESSEQP CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*LOADED-DELAY) IMMEDIATE-DEPENDENTS0 (LOADED-DELAYS LOADED-DELAY-OFF) EVENT (DEFN LOADED-DELAY (DELAY LOAD LISTP) (IF LISTP (IF (LISTP DELAY) (CONS (LOADED-DELAY (CAR DELAY) LOAD (QUOTE *1*FALSE)) (LOADED-DELAY (CDR DELAY) LOAD (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (NLISTP DELAY) DELAY (IF (EQUAL (CAR DELAY) (QUOTE OR)) (CONS (QUOTE OR) (LOADED-DELAY (CDR DELAY) LOAD (QUOTE *1*TRUE))) (ADD-LOAD-DELAY DELAY LOAD))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOAD-DELAY . LOADED-DELAY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOADED-DELAY) (DCELL . *1*LOADED-DELAY))))) (PUT1-LST (QUOTE ADD-LOAD-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE ADD-LOAD-DELAY-OFF ADD-LOAD-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOAD-DELAY . ADD-LOAD-DELAY-OFF) (DISABLED-LEMMAS NIL ADD-LOAD-DELAY ADD-LOAD-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-LOAD-DELAY) (QUOTE (MAIN-EVENT ADD-LOAD-DELAY))) (PUT1-LST (QUOTE ADD-LOAD-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-LOAD-DELAY 16 T NIL)) TOTALP-LST ((ADD-LOAD-DELAY . T)) SDEFN (LAMBDA (DELAY LOAD) (IF (ZERO-LOADINGP LOAD) DELAY (MAKE-DELAY (DELAY-SLOPE-LH DELAY) (RANGE-PLUS (DELAY-INTERCEPT-LH DELAY) (SLOPE-TIMES-LOAD (DELAY-SLOPE-LH DELAY) LOAD) (QUOTE NIL)) (DELAY-SLOPE-HL DELAY) (RANGE-PLUS (DELAY-INTERCEPT-HL DELAY) (SLOPE-TIMES-LOAD (DELAY-SLOPE-HL DELAY) LOAD) (QUOTE NIL)) (DELAY-DEPENDENCIES DELAY)))) LISP-CODE *1*ADD-LOAD-DELAY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*ADD-LOAD-DELAY) IMMEDIATE-DEPENDENTS0 (LOADED-DELAY ADD-LOAD-DELAY-OFF) EVENT (DEFN ADD-LOAD-DELAY (DELAY LOAD) (IF (ZERO-LOADINGP LOAD) DELAY (MAKE-DELAY (DELAY-SLOPE-LH DELAY) (RANGE-PLUS (DELAY-INTERCEPT-LH DELAY) (SLOPE-TIMES-LOAD (DELAY-SLOPE-LH DELAY) LOAD) (QUOTE NIL)) (DELAY-SLOPE-HL DELAY) (RANGE-PLUS (DELAY-INTERCEPT-HL DELAY) (SLOPE-TIMES-LOAD (DELAY-SLOPE-HL DELAY) LOAD) (QUOTE NIL)) (DELAY-DEPENDENCIES DELAY)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-HL . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-HL . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 SLOPE-TIMES-LOAD . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-LH . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-PLUS . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-LH . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY . ADD-LOAD-DELAY) (IMMEDIATE-DEPENDENTS0 ZERO-LOADINGP . ADD-LOAD-DELAY) (DCELL . *1*ADD-LOAD-DELAY))))) (PUT1-LST (QUOTE UPDATE-DELAYS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE UPDATE-DELAYS-OFF UPDATE-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-DELAYS . UPDATE-DELAYS-OFF) (DISABLED-LEMMAS NIL UPDATE-DELAYS UPDATE-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-DELAYS) (QUOTE (MAIN-EVENT UPDATE-DELAYS))) (PUT1-LST (QUOTE UPDATE-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-DELAYS 16 T NIL NIL NIL NIL)) TOTALP-LST ((UPDATE-DELAYS . T)) SDEFN (LAMBDA (DELAYS O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (ADD-DELAYS O-OUTS (VALUE (QUOTE DELAYS) O-FN-PROPS) (VALUE (QUOTE OUT-DEPENDS) O-FN-PROPS) IN-MAP OUT-MAP DELAYS)) LISP-CODE *1*UPDATE-DELAYS SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194009 SATELLITES (*1*UPDATE-DELAYS) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-DELAYS-OFF) EVENT (DEFN UPDATE-DELAYS (DELAYS O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (ADD-DELAYS O-OUTS (VALUE (QUOTE DELAYS) O-FN-PROPS) (VALUE (QUOTE OUT-DEPENDS) O-FN-PROPS) IN-MAP OUT-MAP DELAYS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-DELAYS) (IMMEDIATE-DEPENDENTS0 ADD-DELAYS . UPDATE-DELAYS) (DCELL . *1*UPDATE-DELAYS))))) (PUT1-LST (QUOTE ADD-DELAYS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE ADD-DELAYS-OFF ADD-DELAYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-DELAYS . ADD-DELAYS-OFF) (DISABLED-LEMMAS NIL ADD-DELAYS ADD-DELAYS-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-DELAYS) (QUOTE (MAIN-EVENT ADD-DELAYS))) (PUT1-LST (QUOTE ADD-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-DELAYS 16 NIL NIL NIL NIL NIL T)) TOTALP-LST ((ADD-DELAYS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OUTPUTS DELAYS OUT-DEPENDS IN-MAP OUT-MAP DELAY-MAP) (IF (LISTP OUTPUTS) (ADD-DELAYS (CDR OUTPUTS) (CDR DELAYS) (CDR OUT-DEPENDS) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DELAY (CAR DELAYS) (CAR OUT-DEPENDS) (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP)) DELAY-MAP)) DELAY-MAP)) LISP-CODE *1*ADD-DELAYS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUTPUTS)) (((CDR OUTPUTS) (CDR DELAYS) (CDR OUT-DEPENDS) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DELAY (CAR DELAYS) (CAR OUT-DEPENDS) (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP)) DELAY-MAP)))) (TESTS-AND-CASES ((NOT (LISTP OUTPUTS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (OUTPUTS) (COUNT OUTPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-DELAYS) IMMEDIATE-DEPENDENTS0 (UPDATE-DELAYS ADD-DELAYS-OFF) EVENT (DEFN ADD-DELAYS (OUTPUTS DELAYS OUT-DEPENDS IN-MAP OUT-MAP DELAY-MAP) (IF (LISTP OUTPUTS) (ADD-DELAYS (CDR OUTPUTS) (CDR DELAYS) (CDR OUT-DEPENDS) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DELAY (CAR DELAYS) (CAR OUT-DEPENDS) (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP)) DELAY-MAP)) DELAY-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DELAY . ADD-DELAYS) (DCELL . *1*ADD-DELAYS))))) (PUT1-LST (QUOTE LOCAL-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOCAL-DELAY-OFF LOCAL-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DELAY . LOCAL-DELAY-OFF) (DISABLED-LEMMAS NIL LOCAL-DELAY LOCAL-DELAY-OFF . T))))) (PUT1-LST (QUOTE DELAY-DEPENDENCIES-OFF1) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-DEPENDENCIES-OFF1 DELAY-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . DELAY-DEPENDENCIES-OFF1) (DISABLED-LEMMAS NIL DELAY-DEPENDENCIES DELAY-DEPENDENCIES-OFF1 . T))))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES-OFF1) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-DEPENDENCIES-OFF1 RANGE-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . RANGE-DEPENDENCIES-OFF1) (DISABLED-LEMMAS NIL RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF1 . T))))) (PUT1-LST (QUOTE LOCAL-DELAY-COUNT-HELP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOCAL-DELAY-COUNT-HELP-OFF LOCAL-DELAY-COUNT-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DELAY-COUNT-HELP . LOCAL-DELAY-COUNT-HELP-OFF) (DISABLED-LEMMAS NIL LOCAL-DELAY-COUNT-HELP LOCAL-DELAY-COUNT-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*LOCAL-DELAY) (QUOTE (MAIN-EVENT LOCAL-DELAY))) (PUT1-LST (QUOTE LOCAL-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((LOCAL-DELAY -1 T NIL NIL NIL NIL NIL)) TOTALP-LST ((LOCAL-DELAY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (DELAY OUT-DEPENDS LISTP IN-MAP OUT-MAP DELAY-MAP) (IF LISTP (IF (LISTP DELAY) (CONS (LOCAL-DELAY (CAR DELAY) OUT-DEPENDS (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP) (LOCAL-DELAY (CDR DELAY) OUT-DEPENDS (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP DELAY) (PARENT-SYNONYM (VALUE2 DELAY IN-MAP OUT-MAP) DELAY-MAP) (IF (LISTP DELAY) (IF (EQUAL (CAR DELAY) (QUOTE OR)) (CONS (QUOTE OR) (LOCAL-DELAY (CDR DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) (IF (RANGEP DELAY) (IF (LISTP (RANGE-DEPENDENCIES DELAY)) (MAKE-RANGE (RANGE-MIN DELAY) (RANGE-MAX DELAY) (LOCAL-DELAY (RANGE-DEPENDENCIES DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) DELAY) (IF (LISTP (DELAY-DEPENDENCIES DELAY)) (MAKE-DELAY-0 (DELAY-LH DELAY) (DELAY-HL DELAY) (LOCAL-DELAY (DELAY-DEPENDENCIES DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) (IF (LISTP OUT-DEPENDS) (MAKE-DELAY-0 (DELAY-LH DELAY) (DELAY-HL DELAY) (LOCAL-DELAY OUT-DEPENDS (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) DELAY)))) DELAY)))) LISP-CODE *1*LOCAL-DELAY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP DELAY)) (((CDR DELAY) OUT-DEPENDS (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP) ((CAR DELAY) OUT-DEPENDS (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP))) (TESTS-AND-CASES (LISTP (NOT (LISTP DELAY))) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP DELAY)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NLISTP DELAY)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NOT (NLISTP DELAY)) (EQUAL (CAR DELAY) (QUOTE OR))) (((CDR DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NOT (NLISTP DELAY)) (NOT (EQUAL (CAR DELAY) (QUOTE OR))) (RANGEP DELAY) (LISTP (RANGE-DEPENDENCIES DELAY))) (((RANGE-DEPENDENCIES DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NOT (NLISTP DELAY)) (NOT (EQUAL (CAR DELAY) (QUOTE OR))) (RANGEP DELAY) (NOT (LISTP (RANGE-DEPENDENCIES DELAY)))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NOT (NLISTP DELAY)) (NOT (EQUAL (CAR DELAY) (QUOTE OR))) (NOT (RANGEP DELAY)) (LISTP (IF (LISTP (DELAY-DEPENDENCIES DELAY)) (DELAY-DEPENDENCIES DELAY) OUT-DEPENDS))) (((IF (LISTP (DELAY-DEPENDENCIES DELAY)) (DELAY-DEPENDENCIES DELAY) OUT-DEPENDS) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DELAY)) (NOT (NLISTP DELAY)) (NOT (EQUAL (CAR DELAY) (QUOTE OR))) (NOT (RANGEP DELAY)) (NOT (LISTP (IF (LISTP (DELAY-DEPENDENCIES DELAY)) (DELAY-DEPENDENCIES DELAY) OUT-DEPENDS)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DELAY OUT-DEPENDS) (CONS (ADD1 (COUNT OUT-DEPENDS)) (COUNT DELAY)) ORD-LESSP (DELAY-DEPENDENCIES LOCAL-DELAY-COUNT-HELP CDR-LESSEQP RANGE-DEPENDENCIES NLISTP COUNT ADD1 ADD1-EQUAL NUMBERP LESSP EQUAL SUB1 SUB1-ADD1 LISTP CAR-LESSP ZERO CDR-LESSP ORD-LESSP LESSP-X-X CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194009 CONTROLLER-POCKETS (3) SATELLITES (*1*LOCAL-DELAY) IMMEDIATE-DEPENDENTS0 (ADD-DELAYS LOCAL-DELAY-OFF) EVENT (DEFN LOCAL-DELAY (DELAY OUT-DEPENDS LISTP IN-MAP OUT-MAP DELAY-MAP) (IF LISTP (IF (LISTP DELAY) (CONS (LOCAL-DELAY (CAR DELAY) OUT-DEPENDS (QUOTE *1*FALSE) IN-MAP OUT-MAP DELAY-MAP) (LOCAL-DELAY (CDR DELAY) OUT-DEPENDS (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP DELAY) (PARENT-SYNONYM (VALUE2 DELAY IN-MAP OUT-MAP) DELAY-MAP) (IF (NLISTP DELAY) DELAY (IF (EQUAL (CAR DELAY) (QUOTE OR)) (CONS (QUOTE OR) (LOCAL-DELAY (CDR DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) (IF (RANGEP DELAY) (IF (LISTP (RANGE-DEPENDENCIES DELAY)) (MAKE-RANGE (RANGE-MIN DELAY) (RANGE-MAX DELAY) (LOCAL-DELAY (RANGE-DEPENDENCIES DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) DELAY) (IF (LISTP (IF (LISTP (DELAY-DEPENDENCIES DELAY)) (DELAY-DEPENDENCIES DELAY) OUT-DEPENDS)) (MAKE-DELAY-0 (DELAY-LH DELAY) (DELAY-HL DELAY) (LOCAL-DELAY (IF (LISTP (DELAY-DEPENDENCIES DELAY)) (DELAY-DEPENDENCIES DELAY) OUT-DEPENDS) (QUOTE *1*FALSE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DELAY-MAP)) DELAY)))))) ((ORD-LESSP (CONS (ADD1 (COUNT OUT-DEPENDS)) (COUNT DELAY))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-HL . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-LH . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-DELAY-0 . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-MAX . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 MAKE-RANGE . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 RANGEP . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 VALUE2 . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 LOCAL-DELAY-COUNT-HELP . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . LOCAL-DELAY) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOCAL-DELAY) (DCELL . *1*LOCAL-DELAY))))) (PUT1-LST (QUOTE DELAY-DEPENDENCIES-ON) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-DEPENDENCIES-ON DELAY-DEPENDENCIES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . DELAY-DEPENDENCIES-ON) (DISABLED-LEMMAS NIL DELAY-DEPENDENCIES DELAY-DEPENDENCIES-ON))))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES-ON) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-DEPENDENCIES-ON RANGE-DEPENDENCIES NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . RANGE-DEPENDENCIES-ON) (DISABLED-LEMMAS NIL RANGE-DEPENDENCIES RANGE-DEPENDENCIES-ON))))) (PUT1-LST (QUOTE LOCAL-DELAY-COUNT-HELP-0-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOCAL-DELAY-COUNT-HELP-0-OFF LOCAL-DELAY-COUNT-HELP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DELAY-COUNT-HELP-0 . LOCAL-DELAY-COUNT-HELP-0-OFF) (DISABLED-LEMMAS NIL LOCAL-DELAY-COUNT-HELP-0 LOCAL-DELAY-COUNT-HELP-0-OFF . T))))) (PUT1-LST (QUOTE LOCAL-DELAY-COUNT-HELP) (QUOTE (IDATE 1000402194009 IMMEDIATE-DEPENDENTS0 (LOCAL-DELAY-COUNT-HELP-OFF LOCAL-DELAY) EVENT (PROVE-LEMMA LOCAL-DELAY-COUNT-HELP (REWRITE) (IMPLIES (LISTP X) (EQUAL (EQUAL (COUNT X) (QUOTE 0)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DELAY-COUNT-HELP-0 . LOCAL-DELAY-COUNT-HELP) (LEMMAS EQUAL . LOCAL-DELAY-COUNT-HELP))))) (PUT1-LST (QUOTE LOCAL-DELAY-COUNT-HELP-0) (QUOTE (IDATE 1000402194009 IMMEDIATE-DEPENDENTS0 (LOCAL-DELAY-COUNT-HELP-0-OFF LOCAL-DELAY-COUNT-HELP) EVENT (PROVE-LEMMA LOCAL-DELAY-COUNT-HELP-0 (REWRITE) (IMPLIES (LISTP X) (EQUAL (COUNT X) (ADD1 (PLUS (COUNT (CAR X)) (COUNT (CDR X))))))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . LOCAL-DELAY-COUNT-HELP-0))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DELAYS) (QUOTE (MAIN-EVENT INITIAL-OCC-DELAYS))) (PUT1-LST (QUOTE INITIAL-OCC-DELAYS) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-DELAYS 8)) TOTALP-LST ((INITIAL-OCC-DELAYS . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-DELAYS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*INITIAL-OCC-DELAYS) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-DELAYS NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-DELAYS))))) (PUT1-LST (QUOTE SLOPE-TIMES-LOAD-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE SLOPE-TIMES-LOAD-OFF SLOPE-TIMES-LOAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SLOPE-TIMES-LOAD . SLOPE-TIMES-LOAD-OFF) (DISABLED-LEMMAS NIL SLOPE-TIMES-LOAD SLOPE-TIMES-LOAD-OFF . T))))) (PUT1-LST (QUOTE *1*SLOPE-TIMES-LOAD) (QUOTE (MAIN-EVENT SLOPE-TIMES-LOAD))) (PUT1-LST (QUOTE SLOPE-TIMES-LOAD) (QUOTE (TYPE-PRESCRIPTION-LST ((SLOPE-TIMES-LOAD 4 NIL NIL)) TOTALP-LST ((SLOPE-TIMES-LOAD . T)) SDEFN (LAMBDA (SLOPE LOAD) (IF (NUMBERP SLOPE) (IF (NUMBERP LOAD) (TIMES SLOPE LOAD) (IF (PFP LOAD) (TIMES SLOPE (PF-TO-STD-LOAD LOAD)) (QUOTE 0))) (IF (PS-PFP SLOPE) (IF (PFP LOAD) (TIMES (CAR SLOPE) (CAR LOAD)) (IF (NUMBERP LOAD) (TIMES (CAR SLOPE) (CAR (STD-LOAD-TO-PF LOAD))) (QUOTE 0))) (QUOTE 0)))) LISP-CODE *1*SLOPE-TIMES-LOAD SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*SLOPE-TIMES-LOAD) IMMEDIATE-DEPENDENTS0 (ADD-LOAD-DELAY SLOPE-TIMES-LOAD-OFF) EVENT (DEFN SLOPE-TIMES-LOAD (SLOPE LOAD) (IF (NUMBERP SLOPE) (IF (NUMBERP LOAD) (TIMES SLOPE LOAD) (IF (PFP LOAD) (TIMES SLOPE (PF-TO-STD-LOAD LOAD)) (QUOTE 0))) (IF (PS-PFP SLOPE) (IF (PFP LOAD) (TIMES (CAR SLOPE) (CAR LOAD)) (IF (NUMBERP LOAD) (TIMES (CAR SLOPE) (CAR (STD-LOAD-TO-PF LOAD))) (QUOTE 0))) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-LOAD-TO-PF . SLOPE-TIMES-LOAD) (IMMEDIATE-DEPENDENTS0 PS-PFP . SLOPE-TIMES-LOAD) (IMMEDIATE-DEPENDENTS0 PF-TO-STD-LOAD . SLOPE-TIMES-LOAD) (IMMEDIATE-DEPENDENTS0 PFP . SLOPE-TIMES-LOAD) (DCELL . *1*SLOPE-TIMES-LOAD))))) (PUT1-LST (QUOTE RANGE-PLUS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-PLUS-OFF RANGE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-PLUS . RANGE-PLUS-OFF) (DISABLED-LEMMAS NIL RANGE-PLUS RANGE-PLUS-OFF . T))))) (PUT1-LST (QUOTE *1*RANGE-PLUS) (QUOTE (MAIN-EVENT RANGE-PLUS))) (PUT1-LST (QUOTE RANGE-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((RANGE-PLUS 20 NIL NIL NIL)) TOTALP-LST ((RANGE-PLUS . T)) SDEFN (LAMBDA (I1 I2 DEPS) (MAKE-RANGE (PLUS (RANGE-MIN I1) (RANGE-MIN I2)) (PLUS (RANGE-MAX I1) (RANGE-MAX I2)) DEPS)) LISP-CODE *1*RANGE-PLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*RANGE-PLUS) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY INPUT-DELAY0 ADD-LOAD-DELAY RANGE-PLUS-OFF) EVENT (DEFN RANGE-PLUS (I1 I2 DEPS) (MAKE-RANGE (PLUS (RANGE-MIN I1) (RANGE-MIN I2)) (PLUS (RANGE-MAX I1) (RANGE-MAX I2)) DEPS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-MAX . RANGE-PLUS) (IMMEDIATE-DEPENDENTS0 RANGE-MIN . RANGE-PLUS) (IMMEDIATE-DEPENDENTS0 MAKE-RANGE . RANGE-PLUS) (DCELL . *1*RANGE-PLUS))))) (PUT1-LST (QUOTE PER-PF-DELAY-SLOPE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE PER-PF-DELAY-SLOPE-OFF PER-PF-DELAY-SLOPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PER-PF-DELAY-SLOPE . PER-PF-DELAY-SLOPE-OFF) (DISABLED-LEMMAS NIL PER-PF-DELAY-SLOPE PER-PF-DELAY-SLOPE-OFF . T))))) (PUT1-LST (QUOTE *1*PER-PF-DELAY-SLOPE) (QUOTE (MAIN-EVENT PER-PF-DELAY-SLOPE))) (PUT1-LST (QUOTE PER-PF-DELAY-SLOPE) (QUOTE (TYPE-PRESCRIPTION-LST ((PER-PF-DELAY-SLOPE 16 T)) TOTALP-LST ((PER-PF-DELAY-SLOPE . T)) SDEFN (LAMBDA (SLOPE) (IF (NUMBERP SLOPE) (IF (LESSP (REMAINDER SLOPE (QUOTE 10)) (QUOTE 5)) (CONS (QUOTIENT SLOPE (QUOTE 10)) (QUOTE (PS-PF))) (CONS (ADD1 (QUOTIENT SLOPE (QUOTE 10))) (QUOTE (PS-PF)))) SLOPE)) LISP-CODE *1*PER-PF-DELAY-SLOPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*PER-PF-DELAY-SLOPE) IMMEDIATE-DEPENDENTS0 (TYPE-DELAY-SLOPE PER-PF-DELAY-SLOPE-OFF) EVENT (DEFN PER-PF-DELAY-SLOPE (SLOPE) (IF (NUMBERP SLOPE) (CONS (IF (LESSP (REMAINDER SLOPE (QUOTE 10)) (QUOTE 5)) (QUOTIENT SLOPE (QUOTE 10)) (ADD1 (QUOTIENT SLOPE (QUOTE 10)))) (QUOTE (PS-PF))) SLOPE)) LOCAL-UNDO-TUPLES ((DCELL . *1*PER-PF-DELAY-SLOPE))))) (PUT1-LST (QUOTE PER-STD-LOAD-DELAY-SLOPE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE PER-STD-LOAD-DELAY-SLOPE-OFF PER-STD-LOAD-DELAY-SLOPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PER-STD-LOAD-DELAY-SLOPE . PER-STD-LOAD-DELAY-SLOPE-OFF) (DISABLED-LEMMAS NIL PER-STD-LOAD-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE-OFF . T))))) (PUT1-LST (QUOTE *1*PER-STD-LOAD-DELAY-SLOPE) (QUOTE (MAIN-EVENT PER-STD-LOAD-DELAY-SLOPE))) (PUT1-LST (QUOTE PER-STD-LOAD-DELAY-SLOPE) (QUOTE (TYPE-PRESCRIPTION-LST ((PER-STD-LOAD-DELAY-SLOPE 4 T)) TOTALP-LST ((PER-STD-LOAD-DELAY-SLOPE . T)) SDEFN (LAMBDA (SLOPE) (IF (PS-PFP SLOPE) (TIMES (CAR SLOPE) (QUOTE 10)) SLOPE)) LISP-CODE *1*PER-STD-LOAD-DELAY-SLOPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*PER-STD-LOAD-DELAY-SLOPE) IMMEDIATE-DEPENDENTS0 (TYPE-DELAY-SLOPE PER-STD-LOAD-DELAY-SLOPE-OFF) EVENT (DEFN PER-STD-LOAD-DELAY-SLOPE (SLOPE) (IF (PS-PFP SLOPE) (TIMES (CAR SLOPE) (QUOTE 10)) SLOPE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PS-PFP . PER-STD-LOAD-DELAY-SLOPE) (DCELL . *1*PER-STD-LOAD-DELAY-SLOPE))))) (PUT1-LST (QUOTE DETERMINED-RANGEP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DETERMINED-RANGEP-OFF DETERMINED-RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DETERMINED-RANGEP . DETERMINED-RANGEP-OFF) (DISABLED-LEMMAS NIL DETERMINED-RANGEP DETERMINED-RANGEP-OFF . T))))) (PUT1-LST (QUOTE *1*DETERMINED-RANGEP) (QUOTE (MAIN-EVENT DETERMINED-RANGEP))) (PUT1-LST (QUOTE DETERMINED-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((DETERMINED-RANGEP 3 NIL)) TOTALP-LST ((DETERMINED-RANGEP . T)) SDEFN (LAMBDA (X) (IF (RANGEP X) (IF (LISTP (RANGE-DEPENDENCIES X)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NUMBERP X))) LISP-CODE *1*DETERMINED-RANGEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DETERMINED-RANGEP) IMMEDIATE-DEPENDENTS0 (ADDABLE-INPUT-DELAY MERGEABLE-INPUT-DELAY-P DETERMINED-RANGEP-OFF) EVENT (DEFN DETERMINED-RANGEP (X) (IF (RANGEP X) (NLISTP (RANGE-DEPENDENCIES X)) (NUMBERP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . DETERMINED-RANGEP) (IMMEDIATE-DEPENDENTS0 RANGEP . DETERMINED-RANGEP) (DCELL . *1*DETERMINED-RANGEP))))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-DEPENDENCIES-OFF RANGE-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-DEPENDENCIES . RANGE-DEPENDENCIES-OFF) (DISABLED-LEMMAS NIL RANGE-DEPENDENCIES RANGE-DEPENDENCIES-OFF . T))))) (PUT1-LST (QUOTE *1*RANGE-DEPENDENCIES) (QUOTE (MAIN-EVENT RANGE-DEPENDENCIES))) (PUT1-LST (QUOTE RANGE-DEPENDENCIES) (QUOTE (TYPE-PRESCRIPTION-LST ((RANGE-DEPENDENCIES -1 NIL)) TOTALP-LST ((RANGE-DEPENDENCIES . T)) SDEFN (LAMBDA (X) (IF (RANGEP X) (CDR (CDR (CDR X))) (QUOTE NIL))) LISP-CODE *1*RANGE-DEPENDENCIES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*RANGE-DEPENDENCIES) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY INPUT-DELAY RANGE-DEPENDENCIES-OFF2 INPUT-DELAY0 RANGE-DEPENDENCIES-ON1 MERGE-INPUT-DELAYS RANGE-DEPENDENCIES-OFF1 LOCAL-DELAY RANGE-DEPENDENCIES-ON DETERMINED-RANGEP RANGE-DEPENDENCIES-OFF) EVENT (DEFN RANGE-DEPENDENCIES (X) (IF (RANGEP X) (CDR (CDR (CDR X))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGEP . RANGE-DEPENDENCIES) (DCELL . *1*RANGE-DEPENDENCIES))))) (PUT1-LST (QUOTE RANGE-MAX-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-MAX-OFF RANGE-MAX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-MAX . RANGE-MAX-OFF) (DISABLED-LEMMAS NIL RANGE-MAX RANGE-MAX-OFF . T))))) (PUT1-LST (QUOTE *1*RANGE-MAX) (QUOTE (MAIN-EVENT RANGE-MAX))) (PUT1-LST (QUOTE RANGE-MAX) (QUOTE (TYPE-PRESCRIPTION-LST ((RANGE-MAX -1 T)) TOTALP-LST ((RANGE-MAX . T)) SDEFN (LAMBDA (X) (IF (RANGEP X) (CAR (CDR (CDR X))) X)) LISP-CODE *1*RANGE-MAX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*RANGE-MAX) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY INPUT-DELAY0 LITERAL-DELAY-TO-RANGE MERGE-INPUT-DELAYS LOCAL-DELAY RANGE-PLUS RANGE-MAX-OFF) EVENT (DEFN RANGE-MAX (X) (IF (RANGEP X) (CAR (CDR (CDR X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGEP . RANGE-MAX) (DCELL . *1*RANGE-MAX))))) (PUT1-LST (QUOTE RANGE-MIN-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGE-MIN-OFF RANGE-MIN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGE-MIN . RANGE-MIN-OFF) (DISABLED-LEMMAS NIL RANGE-MIN RANGE-MIN-OFF . T))))) (PUT1-LST (QUOTE *1*RANGE-MIN) (QUOTE (MAIN-EVENT RANGE-MIN))) (PUT1-LST (QUOTE RANGE-MIN) (QUOTE (TYPE-PRESCRIPTION-LST ((RANGE-MIN -1 T)) TOTALP-LST ((RANGE-MIN . T)) SDEFN (LAMBDA (X) (IF (RANGEP X) (CAR (CDR X)) X)) LISP-CODE *1*RANGE-MIN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*RANGE-MIN) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY INPUT-DELAY0 LITERAL-DELAY-TO-RANGE MERGE-INPUT-DELAYS LOCAL-DELAY RANGE-PLUS RANGE-MIN-OFF) EVENT (DEFN RANGE-MIN (X) (IF (RANGEP X) (CAR (CDR X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGEP . RANGE-MIN) (DCELL . *1*RANGE-MIN))))) (PUT1-LST (QUOTE RANGEP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE RANGEP-OFF RANGEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RANGEP . RANGEP-OFF) (DISABLED-LEMMAS NIL RANGEP RANGEP-OFF . T))))) (PUT1-LST (QUOTE *1*RANGEP) (QUOTE (MAIN-EVENT RANGEP))) (PUT1-LST (QUOTE RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((RANGEP 3 NIL)) TOTALP-LST ((RANGEP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (EQUAL (CAR X) (QUOTE RANGE)) (QUOTE *1*FALSE))) LISP-CODE *1*RANGEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*RANGEP) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY INPUT-DELAY0 ADDABLE-INPUT-DELAY MERGEABLE-INPUT-DELAY-P MERGE-INPUT-DELAYS LOCAL-DELAY DETERMINED-RANGEP RANGE-DEPENDENCIES RANGE-MAX RANGE-MIN RANGEP-OFF) EVENT (DEFN RANGEP (X) (IF (LISTP X) (EQUAL (CAR X) (QUOTE RANGE)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*RANGEP))))) (PUT1-LST (QUOTE MAKE-RANGE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-RANGE-OFF MAKE-RANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-RANGE . MAKE-RANGE-OFF) (DISABLED-LEMMAS NIL MAKE-RANGE MAKE-RANGE-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-RANGE) (QUOTE (MAIN-EVENT MAKE-RANGE))) (PUT1-LST (QUOTE MAKE-RANGE) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-RANGE 16 T NIL NIL)) TOTALP-LST ((MAKE-RANGE . T)) SDEFN (LAMBDA (LO HI DEPS) (IF (EQUAL LO HI) (IF (LISTP DEPS) (CONS (QUOTE RANGE) (CONS LO (CONS HI DEPS))) LO) (CONS (QUOTE RANGE) (CONS LO (CONS HI DEPS))))) LISP-CODE *1*MAKE-RANGE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*MAKE-RANGE) IMMEDIATE-DEPENDENTS0 (INPUT-DELAY0 LITERAL-DELAY-TO-RANGE MERGE-INPUT-DELAYS LOCAL-DELAY RANGE-PLUS MAKE-RANGE-OFF) EVENT (DEFN MAKE-RANGE (LO HI DEPS) (IF (AND (EQUAL LO HI) (NLISTP DEPS)) LO (CONS (QUOTE RANGE) (CONS LO (CONS HI DEPS))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAKE-RANGE))))) (PUT1-LST (QUOTE DETERMINED-DELAYP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DETERMINED-DELAYP-OFF DETERMINED-DELAYP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DETERMINED-DELAYP . DETERMINED-DELAYP-OFF) (DISABLED-LEMMAS NIL DETERMINED-DELAYP DETERMINED-DELAYP-OFF . T))))) (PUT1-LST (QUOTE *1*DETERMINED-DELAYP) (QUOTE (MAIN-EVENT DETERMINED-DELAYP))) (PUT1-LST (QUOTE DETERMINED-DELAYP) (QUOTE (TYPE-PRESCRIPTION-LST ((DETERMINED-DELAYP 3 NIL)) TOTALP-LST ((DETERMINED-DELAYP . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (IF (LISTP (DELAY-DEPENDENCIES D)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) LISP-CODE *1*DETERMINED-DELAYP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DETERMINED-DELAYP) IMMEDIATE-DEPENDENTS0 (DETERMINED-DELAYP-OFF) EVENT (DEFN DETERMINED-DELAYP (D) (AND (LISTP D) (AND (NOT (EQUAL (CAR D) (QUOTE OR))) (NLISTP (DELAY-DEPENDENCIES D))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . DETERMINED-DELAYP) (DCELL . *1*DETERMINED-DELAYP))))) (PUT1-LST (QUOTE MAKE-DELAY-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-DELAY-OFF MAKE-DELAY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-DELAY . MAKE-DELAY-OFF) (DISABLED-LEMMAS NIL MAKE-DELAY MAKE-DELAY-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-DELAY) (QUOTE (MAIN-EVENT MAKE-DELAY))) (PUT1-LST (QUOTE MAKE-DELAY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-DELAY 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MAKE-DELAY . T)) SDEFN (LAMBDA (S-LH I-LH S-HL I-HL DEPS) (MAKE-DELAY-0 (CONS S-LH (CONS I-LH (QUOTE NIL))) (CONS S-HL (CONS I-HL (QUOTE NIL))) DEPS)) LISP-CODE *1*MAKE-DELAY SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*MAKE-DELAY) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY ADD-LOAD-DELAY MAKE-DELAY-OFF) EVENT (DEFN MAKE-DELAY (S-LH I-LH S-HL I-HL DEPS) (MAKE-DELAY-0 (CONS S-LH (CONS I-LH (QUOTE NIL))) (CONS S-HL (CONS I-HL (QUOTE NIL))) DEPS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-DELAY-0 . MAKE-DELAY) (DCELL . *1*MAKE-DELAY))))) (PUT1-LST (QUOTE MAKE-DELAY-0-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-DELAY-0-OFF MAKE-DELAY-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-DELAY-0 . MAKE-DELAY-0-OFF) (DISABLED-LEMMAS NIL MAKE-DELAY-0 MAKE-DELAY-0-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-DELAY-0) (QUOTE (MAIN-EVENT MAKE-DELAY-0))) (PUT1-LST (QUOTE MAKE-DELAY-0) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-DELAY-0 16 NIL NIL NIL)) TOTALP-LST ((MAKE-DELAY-0 . T)) SDEFN (LAMBDA (LH HL DEPS) (CONS LH (CONS HL DEPS))) LISP-CODE *1*MAKE-DELAY-0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*MAKE-DELAY-0) IMMEDIATE-DEPENDENTS0 (LOCAL-DELAY MAKE-DELAY MAKE-DELAY-0-OFF) EVENT (DEFN MAKE-DELAY-0 (LH HL DEPS) (CONS LH (CONS HL DEPS))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAKE-DELAY-0))))) (PUT1-LST (QUOTE DELAY-DEPENDENCIES-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-DEPENDENCIES-OFF DELAY-DEPENDENCIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-DEPENDENCIES . DELAY-DEPENDENCIES-OFF) (DISABLED-LEMMAS NIL DELAY-DEPENDENCIES DELAY-DEPENDENCIES-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-DEPENDENCIES) (QUOTE (MAIN-EVENT DELAY-DEPENDENCIES))) (PUT1-LST (QUOTE DELAY-DEPENDENCIES) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-DEPENDENCIES -1 NIL)) TOTALP-LST ((DELAY-DEPENDENCIES . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE NIL) (CDR (CDR D))) (QUOTE NIL))) LISP-CODE *1*DELAY-DEPENDENCIES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-DEPENDENCIES) IMMEDIATE-DEPENDENTS0 (OUTPUT-DELAY OR-DELAY-ARGS LITERAL-DELAY-TO-RANGE ADD-LOAD-DELAY DELAY-DEPENDENCIES-OFF1 LOCAL-DELAY DELAY-DEPENDENCIES-ON DETERMINED-DELAYP DELAY-DEPENDENCIES-OFF) EVENT (DEFN DELAY-DEPENDENCIES (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CDR (CDR D)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-DEPENDENCIES))))) (PUT1-LST (QUOTE DELAY-INTERCEPT-HL-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-INTERCEPT-HL-OFF DELAY-INTERCEPT-HL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-HL . DELAY-INTERCEPT-HL-OFF) (DISABLED-LEMMAS NIL DELAY-INTERCEPT-HL DELAY-INTERCEPT-HL-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-INTERCEPT-HL) (QUOTE (MAIN-EVENT DELAY-INTERCEPT-HL))) (PUT1-LST (QUOTE DELAY-INTERCEPT-HL) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-INTERCEPT-HL -1 NIL)) TOTALP-LST ((DELAY-INTERCEPT-HL . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR (CDR (CAR (CDR D))))) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-INTERCEPT-HL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-INTERCEPT-HL) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY LITERAL-DELAY-TO-RANGE ADD-LOAD-DELAY DELAY-INTERCEPT-HL-OFF) EVENT (DEFN DELAY-INTERCEPT-HL (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR (CDR (CAR (CDR D)))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-INTERCEPT-HL))))) (PUT1-LST (QUOTE DELAY-INTERCEPT-LH-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-INTERCEPT-LH-OFF DELAY-INTERCEPT-LH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-INTERCEPT-LH . DELAY-INTERCEPT-LH-OFF) (DISABLED-LEMMAS NIL DELAY-INTERCEPT-LH DELAY-INTERCEPT-LH-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-INTERCEPT-LH) (QUOTE (MAIN-EVENT DELAY-INTERCEPT-LH))) (PUT1-LST (QUOTE DELAY-INTERCEPT-LH) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-INTERCEPT-LH -1 NIL)) TOTALP-LST ((DELAY-INTERCEPT-LH . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR (CDR (CAR D)))) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-INTERCEPT-LH SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-INTERCEPT-LH) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY LITERAL-DELAY-TO-RANGE ADD-LOAD-DELAY DELAY-INTERCEPT-LH-OFF) EVENT (DEFN DELAY-INTERCEPT-LH (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR (CDR (CAR D))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-INTERCEPT-LH))))) (PUT1-LST (QUOTE DELAY-SLOPE-HL-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-SLOPE-HL-OFF DELAY-SLOPE-HL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-HL . DELAY-SLOPE-HL-OFF) (DISABLED-LEMMAS NIL DELAY-SLOPE-HL DELAY-SLOPE-HL-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-SLOPE-HL) (QUOTE (MAIN-EVENT DELAY-SLOPE-HL))) (PUT1-LST (QUOTE DELAY-SLOPE-HL) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-SLOPE-HL -1 NIL)) TOTALP-LST ((DELAY-SLOPE-HL . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR (CAR (CDR D)))) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-SLOPE-HL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-SLOPE-HL) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY ADD-LOAD-DELAY DELAY-SLOPE-HL-OFF) EVENT (DEFN DELAY-SLOPE-HL (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR (CAR (CDR D))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-SLOPE-HL))))) (PUT1-LST (QUOTE DELAY-SLOPE-LH-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-SLOPE-LH-OFF DELAY-SLOPE-LH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-SLOPE-LH . DELAY-SLOPE-LH-OFF) (DISABLED-LEMMAS NIL DELAY-SLOPE-LH DELAY-SLOPE-LH-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-SLOPE-LH) (QUOTE (MAIN-EVENT DELAY-SLOPE-LH))) (PUT1-LST (QUOTE DELAY-SLOPE-LH) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-SLOPE-LH -1 NIL)) TOTALP-LST ((DELAY-SLOPE-LH . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR (CAR D))) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-SLOPE-LH SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-SLOPE-LH) IMMEDIATE-DEPENDENTS0 (MAKE-OUTPUT-DELAY ADD-LOAD-DELAY DELAY-SLOPE-LH-OFF) EVENT (DEFN DELAY-SLOPE-LH (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR (CAR D)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-SLOPE-LH))))) (PUT1-LST (QUOTE DELAY-HL-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-HL-OFF DELAY-HL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-HL . DELAY-HL-OFF) (DISABLED-LEMMAS NIL DELAY-HL DELAY-HL-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-HL) (QUOTE (MAIN-EVENT DELAY-HL))) (PUT1-LST (QUOTE DELAY-HL) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-HL -1 NIL)) TOTALP-LST ((DELAY-HL . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR (CDR D))) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-HL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-HL) IMMEDIATE-DEPENDENTS0 (LOCAL-DELAY DELAY-HL-OFF) EVENT (DEFN DELAY-HL (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR (CDR D)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-HL))))) (PUT1-LST (QUOTE DELAY-LH-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DELAY-LH-OFF DELAY-LH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELAY-LH . DELAY-LH-OFF) (DISABLED-LEMMAS NIL DELAY-LH DELAY-LH-OFF . T))))) (PUT1-LST (QUOTE *1*DELAY-LH) (QUOTE (MAIN-EVENT DELAY-LH))) (PUT1-LST (QUOTE DELAY-LH) (QUOTE (TYPE-PRESCRIPTION-LST ((DELAY-LH -1 NIL)) TOTALP-LST ((DELAY-LH . T)) SDEFN (LAMBDA (D) (IF (LISTP D) (IF (EQUAL (CAR D) (QUOTE OR)) (QUOTE *1*FALSE) (CAR D)) (QUOTE *1*FALSE))) LISP-CODE *1*DELAY-LH SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194009 SATELLITES (*1*DELAY-LH) IMMEDIATE-DEPENDENTS0 (LOCAL-DELAY DELAY-LH-OFF) EVENT (DEFN DELAY-LH (D) (IF (AND (LISTP D) (NOT (EQUAL (CAR D) (QUOTE OR)))) (CAR D) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*DELAY-LH))))) (PUT1-LST (QUOTE PS-PFP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE PS-PFP-OFF PS-PFP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PS-PFP . PS-PFP-OFF) (DISABLED-LEMMAS NIL PS-PFP PS-PFP-OFF . T))))) (PUT1-LST (QUOTE *1*PS-PFP) (QUOTE (MAIN-EVENT PS-PFP))) (PUT1-LST (QUOTE PS-PFP) (QUOTE (TYPE-PRESCRIPTION-LST ((PS-PFP 3 NIL)) TOTALP-LST ((PS-PFP . T)) SDEFN (LAMBDA (X) (IF (PROPERP X) (IF (EQUAL (LENGTH X) (QUOTE 2)) (IF (NUMBERP (CAR X)) (EQUAL (CAR (CDR X)) (QUOTE PS-PF)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*PS-PFP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*PS-PFP) IMMEDIATE-DEPENDENTS0 (PHALF-DELAY-OK SLOPE-TIMES-LOAD PER-STD-LOAD-DELAY-SLOPE PS-PFP-OFF) EVENT (DEFN PS-PFP (X) (AND (PROPERP X) (AND (EQUAL (LENGTH X) (QUOTE 2)) (AND (NUMBERP (CAR X)) (EQUAL (CAR (CDR X)) (QUOTE PS-PF)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . PS-PFP) (IMMEDIATE-DEPENDENTS0 PROPERP . PS-PFP) (DCELL . *1*PS-PFP))))) (PUT1-LST (QUOTE DRIVES-ERROR-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DRIVES-ERROR-OFF DRIVES-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DRIVES-ERROR . DRIVES-ERROR-OFF) (DISABLED-LEMMAS NIL DRIVES-ERROR DRIVES-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*DRIVES-ERROR) (QUOTE (MAIN-EVENT DRIVES-ERROR))) (PUT1-LST (QUOTE DRIVES-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((DRIVES-ERROR 4098 NIL)) TOTALP-LST ((DRIVES-ERROR . T)) SDEFN (LAMBDA (DRIVES) (ERR-AND DRIVES (QUOTE BAD-DRIVES))) LISP-CODE *1*DRIVES-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*DRIVES-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR DRIVES-ERROR-OFF) EVENT (DEFN DRIVES-ERROR (DRIVES) (ERR-AND DRIVES (QUOTE BAD-DRIVES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . DRIVES-ERROR) (DCELL . *1*DRIVES-ERROR))))) (PUT1-LST (QUOTE COLLECT-DRIVES-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-DRIVES-OFF COLLECT-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES . COLLECT-DRIVES-OFF) (DISABLED-LEMMAS NIL COLLECT-DRIVES COLLECT-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES) (QUOTE (MAIN-EVENT COLLECT-DRIVES))) (PUT1-LST (QUOTE COLLECT-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-DRIVES 24 NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-DRIVES . T)) SDEFN (LAMBDA (OUTPUTS OUTPUT-TYPES DRIVES INPUTS) (COLLECT-DRIVES-0 OUTPUTS OUTPUT-TYPES (EXTERNALIZE-PARENTS OUTPUTS DRIVES INPUTS OUTPUTS) INPUTS OUTPUTS)) LISP-CODE *1*COLLECT-DRIVES SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194009 SATELLITES (*1*COLLECT-DRIVES) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-DRIVES-OFF) EVENT (DEFN COLLECT-DRIVES (OUTPUTS OUTPUT-TYPES DRIVES INPUTS) (COLLECT-DRIVES-0 OUTPUTS OUTPUT-TYPES (EXTERNALIZE-PARENTS OUTPUTS DRIVES INPUTS OUTPUTS) INPUTS OUTPUTS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTERNALIZE-PARENTS . COLLECT-DRIVES) (IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES-0 . COLLECT-DRIVES) (DCELL . *1*COLLECT-DRIVES))))) (PUT1-LST (QUOTE COLLECT-DRIVES-0-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-DRIVES-0-OFF COLLECT-DRIVES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES-0 . COLLECT-DRIVES-0-OFF) (DISABLED-LEMMAS NIL COLLECT-DRIVES-0 COLLECT-DRIVES-0-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES-0) (QUOTE (MAIN-EVENT COLLECT-DRIVES-0))) (PUT1-LST (QUOTE COLLECT-DRIVES-0) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-DRIVES-0 24 NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-DRIVES-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (NAMES OUTPUT-TYPES DRIVES INPUTS OUTPUTS) (IF (LISTP NAMES) (IF (NUMBERP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (CONS (TYPE-DRIVE (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES) (CAR OUTPUT-TYPES)) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)) (IF (MAP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (CONS (TYPE-DRIVE (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES) (CAR OUTPUT-TYPES)) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)) (IF (SIGNAL-NAMEP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (CONS (PARENT-SYNONYM (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)) (IF (LISTP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (IF (EQUAL (CAR (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (QUOTE MIN)) (CONS (MAKE-DRIVE-MIN (CDR (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (CAR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS))) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)))))) (QUOTE NIL))) LISP-CODE *1*COLLECT-DRIVES-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-DRIVES-0) IMMEDIATE-DEPENDENTS0 (COLLECT-DRIVES COLLECT-DRIVES-0-OFF) EVENT (DEFN COLLECT-DRIVES-0 (NAMES OUTPUT-TYPES DRIVES INPUTS OUTPUTS) (IF (LISTP NAMES) (CONS (IF (OR (NUMBERP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (MAP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES))) (TYPE-DRIVE (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES) (CAR OUTPUT-TYPES)) (IF (SIGNAL-NAMEP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (PARENT-SYNONYM (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES) DRIVES) (IF (AND (LISTP (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (EQUAL (CAR (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (QUOTE MIN))) (MAKE-DRIVE-MIN (CDR (VALUE-OR-UNKNOWN (CAR NAMES) DRIVES)) (CAR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS) (QUOTE (*1*QUOTE UNKNOWN))))) (COLLECT-DRIVES-0 (CDR NAMES) (CDR OUTPUT-TYPES) DRIVES INPUTS OUTPUTS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 MAKE-DRIVE-MIN . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 TYPE-DRIVE . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 MAP . COLLECT-DRIVES-0) (IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . COLLECT-DRIVES-0) (DCELL . *1*COLLECT-DRIVES-0))))) (PUT1-LST (QUOTE MAKE-DRIVE-MIN-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE MAKE-DRIVE-MIN-OFF MAKE-DRIVE-MIN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-DRIVE-MIN . MAKE-DRIVE-MIN-OFF) (DISABLED-LEMMAS NIL MAKE-DRIVE-MIN MAKE-DRIVE-MIN-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-DRIVE-MIN) (QUOTE (MAIN-EVENT MAKE-DRIVE-MIN))) (PUT1-LST (QUOTE MAKE-DRIVE-MIN) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-DRIVE-MIN -1 NIL NIL NIL NIL NIL)) TOTALP-LST ((MAKE-DRIVE-MIN . T)) SDEFN (LAMBDA (ARGS TYPE DRIVES INPUTS OUTPUTS) (IF (LISTP (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (IF (LISTP (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (CONS (QUOTE MIN) (CONS (DRIVE-MIN (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)) TYPE) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)))) (IF (LISTP (CDR (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)))) (CONS (QUOTE MIN) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)))))) (DRIVE-MIN (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)) TYPE))) LISP-CODE *1*MAKE-DRIVE-MIN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194009 SATELLITES (*1*MAKE-DRIVE-MIN) IMMEDIATE-DEPENDENTS0 (COLLECT-DRIVES-0 MAKE-DRIVE-MIN-OFF) EVENT (DEFN MAKE-DRIVE-MIN (ARGS TYPE DRIVES INPUTS OUTPUTS) (IF (NLISTP (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (DRIVE-MIN (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)) TYPE) (IF (NLISTP (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (IF (LISTP (CDR (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)))) (CONS (QUOTE MIN) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))) (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))))) (CONS (QUOTE MIN) (CONS (DRIVE-MIN (NUMERIC-DRIVES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS)) TYPE) (EXTRACT-NAMES (COLLECT-MIN-ARGS ARGS (QUOTE *1*TRUE) DRIVES (QUOTE NIL) INPUTS OUTPUTS))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . MAKE-DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 NUMERIC-DRIVES . MAKE-DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 DRIVE-MIN . MAKE-DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 COLLECT-MIN-ARGS . MAKE-DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 EXTRACT-NAMES . MAKE-DRIVE-MIN) (DCELL . *1*MAKE-DRIVE-MIN))))) (PUT1-LST (QUOTE DRIVE-MIN-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DRIVE-MIN-OFF DRIVE-MIN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DRIVE-MIN . DRIVE-MIN-OFF) (DISABLED-LEMMAS NIL DRIVE-MIN DRIVE-MIN-OFF . T))))) (PUT1-LST (QUOTE *1*DRIVE-MIN) (QUOTE (MAIN-EVENT DRIVE-MIN))) (PUT1-LST (QUOTE DRIVE-MIN) (QUOTE (TYPE-PRESCRIPTION-LST ((DRIVE-MIN -1 NIL NIL)) TOTALP-LST ((DRIVE-MIN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LST TYPE) (IF (LISTP LST) (IF (LISTP (CDR LST)) (IF (DRIVE-LESSP (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE)) (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE)) (TYPE-DRIVE (CAR LST) TYPE)) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*DRIVE-MIN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NLISTP (CDR LST))) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (NLISTP (CDR LST))) (DRIVE-LESSP (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE))) (((CDR LST) TYPE))) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (NLISTP (CDR LST))) (NOT (DRIVE-LESSP (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE)))) (((CDR LST) TYPE)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*DRIVE-MIN) IMMEDIATE-DEPENDENTS0 (MAKE-DRIVE-MIN DRIVE-MIN-OFF) EVENT (DEFN DRIVE-MIN (LST TYPE) (IF (NLISTP LST) (QUOTE (*1*QUOTE UNKNOWN)) (IF (NLISTP (CDR LST)) (TYPE-DRIVE (CAR LST) TYPE) (IF (DRIVE-LESSP (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE)) (TYPE-DRIVE (CAR LST) TYPE) (DRIVE-MIN (CDR LST) TYPE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DRIVE-LESSP . DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 TYPE-DRIVE . DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 UNKNOWN . DRIVE-MIN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DRIVE-MIN) (DCELL . *1*DRIVE-MIN))))) (PUT1-LST (QUOTE DRIVE-LESSP-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE DRIVE-LESSP-OFF DRIVE-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DRIVE-LESSP . DRIVE-LESSP-OFF) (DISABLED-LEMMAS NIL DRIVE-LESSP DRIVE-LESSP-OFF . T))))) (PUT1-LST (QUOTE *1*DRIVE-LESSP) (QUOTE (MAIN-EVENT DRIVE-LESSP))) (PUT1-LST (QUOTE DRIVE-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((DRIVE-LESSP 3 NIL NIL)) TOTALP-LST ((DRIVE-LESSP . T)) SDEFN (LAMBDA (X Y) (IF (NUMBERP X) (IF (NUMBERP Y) (LESSP X Y) (IF (MAP X) (IF (MAP Y) (MA-LESSP X Y) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (MAP X) (IF (MAP Y) (MA-LESSP X Y) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*DRIVE-LESSP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*DRIVE-LESSP) IMMEDIATE-DEPENDENTS0 (DRIVE-MIN DRIVE-LESSP-OFF) EVENT (DEFN DRIVE-LESSP (X Y) (IF (AND (NUMBERP X) (NUMBERP Y)) (LESSP X Y) (IF (AND (MAP X) (MAP Y)) (MA-LESSP X Y) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MA-LESSP . DRIVE-LESSP) (IMMEDIATE-DEPENDENTS0 MAP . DRIVE-LESSP) (DCELL . *1*DRIVE-LESSP))))) (PUT1-LST (QUOTE TYPE-DRIVE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE TYPE-DRIVE-OFF TYPE-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-DRIVE . TYPE-DRIVE-OFF) (DISABLED-LEMMAS NIL TYPE-DRIVE TYPE-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-DRIVE) (QUOTE (MAIN-EVENT TYPE-DRIVE))) (PUT1-LST (QUOTE TYPE-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-DRIVE -1 T NIL)) TOTALP-LST ((TYPE-DRIVE . T)) SDEFN (LAMBDA (DRIVE TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (IF (MAP DRIVE) (MA-TO-STD-DRIVE DRIVE) DRIVE) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (IF (NUMBERP DRIVE) (STD-DRIVE-TO-MA DRIVE) DRIVE) DRIVE))) LISP-CODE *1*TYPE-DRIVE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*TYPE-DRIVE) IMMEDIATE-DEPENDENTS0 (COLLECT-DRIVES-0 DRIVE-MIN TYPE-DRIVE-OFF) EVENT (DEFN TYPE-DRIVE (DRIVE TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (IF (MAP DRIVE) (MA-TO-STD-DRIVE DRIVE) DRIVE) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (IF (NUMBERP DRIVE) (STD-DRIVE-TO-MA DRIVE) DRIVE) DRIVE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-DRIVE-TO-MA . TYPE-DRIVE) (IMMEDIATE-DEPENDENTS0 MA-TO-STD-DRIVE . TYPE-DRIVE) (IMMEDIATE-DEPENDENTS0 MAP . TYPE-DRIVE) (DCELL . *1*TYPE-DRIVE))))) (PUT1-LST (QUOTE NUMERIC-DRIVES-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE NUMERIC-DRIVES-OFF NUMERIC-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMERIC-DRIVES . NUMERIC-DRIVES-OFF) (DISABLED-LEMMAS NIL NUMERIC-DRIVES NUMERIC-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*NUMERIC-DRIVES) (QUOTE (MAIN-EVENT NUMERIC-DRIVES))) (PUT1-LST (QUOTE NUMERIC-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMERIC-DRIVES 24 NIL)) TOTALP-LST ((NUMERIC-DRIVES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (DRS) (IF (LISTP DRS) (IF (NUMBERP (CAR DRS)) (CONS (CAR DRS) (NUMERIC-DRIVES (CDR DRS))) (IF (MAP (CAR DRS)) (CONS (CAR DRS) (NUMERIC-DRIVES (CDR DRS))) (NUMERIC-DRIVES (CDR DRS)))) (QUOTE NIL))) LISP-CODE *1*NUMERIC-DRIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DRS) (OR (NUMBERP (CAR DRS)) (MAP (CAR DRS)))) (((CDR DRS)))) (TESTS-AND-CASES ((LISTP DRS) (NOT (OR (NUMBERP (CAR DRS)) (MAP (CAR DRS))))) (((CDR DRS)))) (TESTS-AND-CASES ((NOT (LISTP DRS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (DRS) (COUNT DRS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*NUMERIC-DRIVES) IMMEDIATE-DEPENDENTS0 (MAKE-DRIVE-MIN NUMERIC-DRIVES-OFF) EVENT (DEFN NUMERIC-DRIVES (DRS) (IF (LISTP DRS) (IF (OR (NUMBERP (CAR DRS)) (MAP (CAR DRS))) (CONS (CAR DRS) (NUMERIC-DRIVES (CDR DRS))) (NUMERIC-DRIVES (CDR DRS))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP . NUMERIC-DRIVES) (DCELL . *1*NUMERIC-DRIVES))))) (PUT1-LST (QUOTE COLLECT-MIN-ARGS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-MIN-ARGS-OFF COLLECT-MIN-ARGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-MIN-ARGS . COLLECT-MIN-ARGS-OFF) (DISABLED-LEMMAS NIL COLLECT-MIN-ARGS COLLECT-MIN-ARGS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-MIN-ARGS) (QUOTE (MAIN-EVENT COLLECT-MIN-ARGS))) (PUT1-LST (QUOTE COLLECT-MIN-ARGS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-MIN-ARGS 24 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-MIN-ARGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE UNCHANGING QUESTIONABLE UNCHANGING UNCHANGING) SDEFN (LAMBDA (A LISTP DRIVES USED-NAMES INPUTS OUTPUTS) (IF LISTP (IF (LISTP A) (UNION (COLLECT-MIN-ARGS (CAR A) (QUOTE *1*FALSE) DRIVES USED-NAMES INPUTS OUTPUTS) (COLLECT-MIN-ARGS (CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS)) (QUOTE NIL)) (IF (SIGNAL-NAMEP A) (IF (MEMBER A INPUTS) (CONS A (QUOTE NIL)) (IF (MEMBER A OUTPUTS) (QUOTE ((*1*QUOTE UNKNOWN))) (IF (MEMBER A USED-NAMES) (QUOTE ((*1*QUOTE UNKNOWN))) (IF (BOUNDP A DRIVES) (COLLECT-MIN-ARGS (VALUE A DRIVES) (QUOTE *1*FALSE) DRIVES (CONS A USED-NAMES) INPUTS OUTPUTS) (QUOTE ((*1*QUOTE UNKNOWN))))))) (IF (LISTP A) (IF (EQUAL (CAR A) (QUOTE MIN)) (COLLECT-MIN-ARGS (CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS) (IF (NUMBERP A) (CONS A (QUOTE NIL)) (IF (MAP A) (CONS A (QUOTE NIL)) (QUOTE ((*1*QUOTE UNKNOWN)))))) (IF (NUMBERP A) (CONS A (QUOTE NIL)) (IF (MAP A) (CONS A (QUOTE NIL)) (QUOTE ((*1*QUOTE UNKNOWN))))))))) LISP-CODE *1*COLLECT-MIN-ARGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP A)) (((CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS) ((CAR A) (QUOTE *1*FALSE) DRIVES USED-NAMES INPUTS OUTPUTS))) (TESTS-AND-CASES (LISTP (NOT (LISTP A))) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (MEMBER A INPUTS)) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (NOT (MEMBER A INPUTS)) (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DRIVES))) (((VALUE A DRIVES) (QUOTE *1*FALSE) DRIVES (CONS A USED-NAMES) INPUTS OUTPUTS))) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP A) (NOT (MEMBER A INPUTS)) (NOT (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DRIVES)))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN)))) (((CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (NOT (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN)))) (OR (NUMBERP A) (MAP A))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP A)) (NOT (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN)))) (NOT (OR (NUMBERP A) (MAP A)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (A DRIVES USED-NAMES) (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DRIVES))) (COUNT A)) ORD-LESSP (LESSP-UNBIND-LIST-COUNT OR NOT AND ADD1-EQUAL LESSP SUB1-ADD1 CAR-LESSP ZERO CDR-LESSP ORD-LESSP LESSP-X-X CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194009 CONTROLLER-POCKETS (13) SATELLITES (*1*COLLECT-MIN-ARGS) IMMEDIATE-DEPENDENTS0 (MAKE-DRIVE-MIN COLLECT-MIN-ARGS-OFF) EVENT (DEFN COLLECT-MIN-ARGS (A LISTP DRIVES USED-NAMES INPUTS OUTPUTS) (IF LISTP (IF (LISTP A) (UNION (COLLECT-MIN-ARGS (CAR A) (QUOTE *1*FALSE) DRIVES USED-NAMES INPUTS OUTPUTS) (COLLECT-MIN-ARGS (CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS)) (QUOTE NIL)) (IF (SIGNAL-NAMEP A) (IF (MEMBER A INPUTS) (CONS A (QUOTE NIL)) (IF (AND (NOT (OR (MEMBER A OUTPUTS) (MEMBER A USED-NAMES))) (BOUNDP A DRIVES)) (COLLECT-MIN-ARGS (VALUE A DRIVES) (QUOTE *1*FALSE) DRIVES (CONS A USED-NAMES) INPUTS OUTPUTS) (QUOTE ((*1*QUOTE UNKNOWN))))) (IF (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN))) (COLLECT-MIN-ARGS (CDR A) (QUOTE *1*TRUE) DRIVES USED-NAMES INPUTS OUTPUTS) (IF (OR (NUMBERP A) (MAP A)) (CONS A (QUOTE NIL)) (QUOTE ((*1*QUOTE UNKNOWN))))))) ((ORD-LESSP (CONS (ADD1 (COUNT (UNBIND-LIST USED-NAMES DRIVES))) (COUNT A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 UNKNOWN . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 BOUNDP . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . COLLECT-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-MIN-ARGS) (DCELL . *1*COLLECT-MIN-ARGS))))) (PUT1-LST (QUOTE LOADINGS-ERROR-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE LOADINGS-ERROR-OFF LOADINGS-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADINGS-ERROR . LOADINGS-ERROR-OFF) (DISABLED-LEMMAS NIL LOADINGS-ERROR LOADINGS-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*LOADINGS-ERROR) (QUOTE (MAIN-EVENT LOADINGS-ERROR))) (PUT1-LST (QUOTE LOADINGS-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADINGS-ERROR 4098 NIL)) TOTALP-LST ((LOADINGS-ERROR . T)) SDEFN (LAMBDA (LOADINGS) (ERR-AND LOADINGS (QUOTE BAD-LOADINGS))) LISP-CODE *1*LOADINGS-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194009 SATELLITES (*1*LOADINGS-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR LOADINGS-ERROR-OFF) EVENT (DEFN LOADINGS-ERROR (LOADINGS) (ERR-AND LOADINGS (QUOTE BAD-LOADINGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . LOADINGS-ERROR) (DCELL . *1*LOADINGS-ERROR))))) (PUT1-LST (QUOTE COLLECT-LOADINGS-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE COLLECT-LOADINGS-OFF COLLECT-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-LOADINGS . COLLECT-LOADINGS-OFF) (DISABLED-LEMMAS NIL COLLECT-LOADINGS COLLECT-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-LOADINGS) (QUOTE (MAIN-EVENT COLLECT-LOADINGS))) (PUT1-LST (QUOTE COLLECT-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-LOADINGS 24 NIL NIL NIL)) TOTALP-LST ((COLLECT-LOADINGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (NAMES TYPES LOADINGS) (IF (LISTP NAMES) (CONS (TYPE-LOADING (VALUE (CAR NAMES) LOADINGS) (CAR TYPES)) (COLLECT-LOADINGS (CDR NAMES) (CDR TYPES) LOADINGS)) (QUOTE NIL))) LISP-CODE *1*COLLECT-LOADINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) (CDR TYPES) LOADINGS))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-LOADINGS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP COLLECT-LOADINGS-OFF) EVENT (DEFN COLLECT-LOADINGS (NAMES TYPES LOADINGS) (IF (LISTP NAMES) (CONS (TYPE-LOADING (VALUE (CAR NAMES) LOADINGS) (CAR TYPES)) (COLLECT-LOADINGS (CDR NAMES) (CDR TYPES) LOADINGS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-LOADINGS) (IMMEDIATE-DEPENDENTS0 TYPE-LOADING . COLLECT-LOADINGS) (DCELL . *1*COLLECT-LOADINGS))))) (PUT1-LST (QUOTE TYPE-LOADING-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE TYPE-LOADING-OFF TYPE-LOADING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-LOADING . TYPE-LOADING-OFF) (DISABLED-LEMMAS NIL TYPE-LOADING TYPE-LOADING-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-LOADING) (QUOTE (MAIN-EVENT TYPE-LOADING))) (PUT1-LST (QUOTE TYPE-LOADING) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-LOADING 20 T NIL)) TOTALP-LST ((TYPE-LOADING . T)) SDEFN (LAMBDA (LOAD TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) LOAD) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) LOAD) LOAD))) LISP-CODE *1*TYPE-LOADING SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194009 SATELLITES (*1*TYPE-LOADING) IMMEDIATE-DEPENDENTS0 (COLLECT-LOADINGS TYPE-LOADING-OFF) EVENT (DEFN TYPE-LOADING (LOAD TYPE) (IF (MEMBER TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) LOAD) (IF (MEMBER TYPE (QUOTE (TTL TTL-TRI-STATE))) (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) LOAD) LOAD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-LOAD-TO-PF . TYPE-LOADING) (IMMEDIATE-DEPENDENTS0 PF-TO-STD-LOAD . TYPE-LOADING) (IMMEDIATE-DEPENDENTS0 PFP . TYPE-LOADING) (DCELL . *1*TYPE-LOADING))))) (PUT1-LST (QUOTE NET-DRIVES-SIMPLE-OFF) (QUOTE (IDATE 1000402194009 EVENT (TOGGLE NET-DRIVES-SIMPLE-OFF NET-DRIVES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-DRIVES-SIMPLE . NET-DRIVES-SIMPLE-OFF) (DISABLED-LEMMAS NIL NET-DRIVES-SIMPLE NET-DRIVES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*NET-DRIVES-SIMPLE) (QUOTE (MAIN-EVENT NET-DRIVES-SIMPLE))) (PUT1-LST (QUOTE NET-DRIVES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-DRIVES-SIMPLE 24 NIL NIL)) TOTALP-LST ((NET-DRIVES-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DRS LDS) (IF (LISTP DRS) (ADD-NET-DRIVE (CAR DRS) LDS (NET-DRIVES-SIMPLE (CDR DRS) LDS)) (QUOTE NIL))) LISP-CODE *1*NET-DRIVES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DRS)) (((CDR DRS) LDS))) (TESTS-AND-CASES ((NOT (LISTP DRS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (DRS) (COUNT DRS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194009 CONTROLLER-POCKETS (1) SATELLITES (*1*NET-DRIVES-SIMPLE) IMMEDIATE-DEPENDENTS0 (COMPOSED-LOADINGS-DRIVES-DELAYS NET-DRIVES-SIMPLE-OFF) EVENT (DEFN NET-DRIVES-SIMPLE (DRS LDS) (IF (LISTP DRS) (ADD-NET-DRIVE (CAR DRS) LDS (NET-DRIVES-SIMPLE (CDR DRS) LDS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NET-DRIVE . NET-DRIVES-SIMPLE) (DCELL . *1*NET-DRIVES-SIMPLE))))) (PUT1-LST (QUOTE ADD-NET-DRIVE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-NET-DRIVE-OFF ADD-NET-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NET-DRIVE . ADD-NET-DRIVE-OFF) (DISABLED-LEMMAS NIL ADD-NET-DRIVE ADD-NET-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-NET-DRIVE) (QUOTE (MAIN-EVENT ADD-NET-DRIVE))) (PUT1-LST (QUOTE ADD-NET-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-NET-DRIVE 16 NIL NIL NIL)) TOTALP-LST ((ADD-NET-DRIVE . T)) SDEFN (LAMBDA (DRIVE LOADINGS DRIVE-MAP) (IF (LISTP DRIVE) (IF (NUMBERP (CDR DRIVE)) (IF (NET-ERRORP (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL))))) (CONS (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL)))) DRIVE-MAP) (CONS (CONS (CAR DRIVE) (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL))))) DRIVE-MAP)) (IF (MAP (CDR DRIVE)) (IF (NET-ERRORP (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL))))) (CONS (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL)))) DRIVE-MAP) (CONS (CONS (CAR DRIVE) (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL))))) DRIVE-MAP)) (IF (EQUAL (CAR (CDR DRIVE)) (QUOTE MIN)) (ADD-NET-MIN-DRIVE (CAR DRIVE) (CDR (CDR DRIVE)) (VALUE (CAR DRIVE) LOADINGS) DRIVE-MAP) (CONS DRIVE DRIVE-MAP)))) (CONS DRIVE DRIVE-MAP))) LISP-CODE *1*ADD-NET-DRIVE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*ADD-NET-DRIVE) IMMEDIATE-DEPENDENTS0 (NET-DRIVES-SIMPLE ADD-NET-DRIVE-OFF) EVENT (DEFN ADD-NET-DRIVE (DRIVE LOADINGS DRIVE-MAP) (IF (LISTP DRIVE) (IF (OR (NUMBERP (CDR DRIVE)) (MAP (CDR DRIVE))) (CONS (IF (NET-ERRORP (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL))))) (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL)))) (CONS (CAR DRIVE) (LITERAL-NET-DRIVE (CDR DRIVE) (VALUE (CAR DRIVE) LOADINGS) (CONS (QUOTE SIGNAL) (CONS (CAR DRIVE) (QUOTE NIL)))))) DRIVE-MAP) (IF (EQUAL (CAR (CDR DRIVE)) (QUOTE MIN)) (ADD-NET-MIN-DRIVE (CAR DRIVE) (CDR (CDR DRIVE)) (VALUE (CAR DRIVE) LOADINGS) DRIVE-MAP) (CONS DRIVE DRIVE-MAP))) (CONS DRIVE DRIVE-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NET-MIN-DRIVE . ADD-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 VALUE . ADD-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 LITERAL-NET-DRIVE . ADD-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . ADD-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 MAP . ADD-NET-DRIVE) (DCELL . *1*ADD-NET-DRIVE))))) (PUT1-LST (QUOTE ADD-NET-MIN-DRIVE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-NET-MIN-DRIVE-OFF ADD-NET-MIN-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NET-MIN-DRIVE . ADD-NET-MIN-DRIVE-OFF) (DISABLED-LEMMAS NIL ADD-NET-MIN-DRIVE ADD-NET-MIN-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-NET-MIN-DRIVE) (QUOTE (MAIN-EVENT ADD-NET-MIN-DRIVE))) (PUT1-LST (QUOTE ADD-NET-MIN-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-NET-MIN-DRIVE 16 NIL NIL NIL NIL)) TOTALP-LST ((ADD-NET-MIN-DRIVE . T)) SDEFN (LAMBDA (NAME ARGS LOAD DRIVE-MAP) (IF (NET-ERRORP (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL))))) (IF (LISTP (EXTRACT-NAMES (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))) (CONS (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL)))) (CONS (CONS NAME (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (EXTRACT-NAMES (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))))) DRIVE-MAP)) (CONS (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL)))) DRIVE-MAP)) (CONS (CONS NAME (CONS (QUOTE MIN) (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))) DRIVE-MAP))) LISP-CODE *1*ADD-NET-MIN-DRIVE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*ADD-NET-MIN-DRIVE) IMMEDIATE-DEPENDENTS0 (ADD-NET-DRIVE ADD-NET-MIN-DRIVE-OFF) EVENT (DEFN ADD-NET-MIN-DRIVE (NAME ARGS LOAD DRIVE-MAP) (IF (NET-ERRORP (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL))))) (IF (LISTP (EXTRACT-NAMES (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))) (CONS (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL)))) (CONS (CONS NAME (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) (EXTRACT-NAMES (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))))) DRIVE-MAP)) (CONS (ERR-AND (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)) (CONS (QUOTE SIGNAL) (CONS NAME (QUOTE NIL)))) DRIVE-MAP)) (CONS (CONS NAME (CONS (QUOTE MIN) (NET-MIN-ARGS ARGS LOAD (QUOTE *1*TRUE)))) DRIVE-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . ADD-NET-MIN-DRIVE) (IMMEDIATE-DEPENDENTS0 EXTRACT-NAMES . ADD-NET-MIN-DRIVE) (IMMEDIATE-DEPENDENTS0 NET-MIN-ARGS . ADD-NET-MIN-DRIVE) (IMMEDIATE-DEPENDENTS0 ERR-AND . ADD-NET-MIN-DRIVE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . ADD-NET-MIN-DRIVE) (DCELL . *1*ADD-NET-MIN-DRIVE))))) (PUT1-LST (QUOTE NET-MIN-ARGS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE NET-MIN-ARGS-OFF NET-MIN-ARGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-MIN-ARGS . NET-MIN-ARGS-OFF) (DISABLED-LEMMAS NIL NET-MIN-ARGS NET-MIN-ARGS-OFF . T))))) (PUT1-LST (QUOTE *1*NET-MIN-ARGS) (QUOTE (MAIN-EVENT NET-MIN-ARGS))) (PUT1-LST (QUOTE NET-MIN-ARGS) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-MIN-ARGS 24 NIL NIL NIL)) TOTALP-LST ((NET-MIN-ARGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (A LOAD LISTP) (IF LISTP (IF (LISTP A) (UNION (NET-MIN-ARGS (CAR A) LOAD (QUOTE *1*FALSE)) (NET-MIN-ARGS (CDR A) LOAD (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (NUMBERP A) (CONS (LITERAL-NET-DRIVE A LOAD (QUOTE MIN-ARG)) (QUOTE NIL)) (IF (MAP A) (CONS (LITERAL-NET-DRIVE A LOAD (QUOTE MIN-ARG)) (QUOTE NIL)) (IF (LISTP A) (IF (EQUAL (CAR A) (QUOTE MIN)) (NET-MIN-ARGS (CDR A) LOAD (QUOTE *1*TRUE)) (CONS A (QUOTE NIL))) (CONS A (QUOTE NIL))))))) LISP-CODE *1*NET-MIN-ARGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP A)) (((CDR A) LOAD (QUOTE *1*TRUE)) ((CAR A) LOAD (QUOTE *1*FALSE)))) (TESTS-AND-CASES (LISTP (NOT (LISTP A))) NIL) (TESTS-AND-CASES ((NOT LISTP) (OR (NUMBERP A) (MAP A))) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (OR (NUMBERP A) (MAP A))) (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN)))) (((CDR A) LOAD (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT LISTP) (NOT (OR (NUMBERP A) (MAP A))) (NOT (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN))))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (OR AND LESSP-X-X CDR-LESSEQP CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*NET-MIN-ARGS) IMMEDIATE-DEPENDENTS0 (ADD-NET-MIN-DRIVE NET-MIN-ARGS-OFF) EVENT (DEFN NET-MIN-ARGS (A LOAD LISTP) (IF LISTP (IF (LISTP A) (UNION (NET-MIN-ARGS (CAR A) LOAD (QUOTE *1*FALSE)) (NET-MIN-ARGS (CDR A) LOAD (QUOTE *1*TRUE))) (QUOTE NIL)) (IF (OR (NUMBERP A) (MAP A)) (CONS (LITERAL-NET-DRIVE A LOAD (QUOTE MIN-ARG)) (QUOTE NIL)) (IF (AND (LISTP A) (EQUAL (CAR A) (QUOTE MIN))) (NET-MIN-ARGS (CDR A) LOAD (QUOTE *1*TRUE)) (CONS A (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-NET-DRIVE . NET-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 MAP . NET-MIN-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NET-MIN-ARGS) (DCELL . *1*NET-MIN-ARGS))))) (PUT1-LST (QUOTE LITERAL-NET-DRIVE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LITERAL-NET-DRIVE-OFF LITERAL-NET-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LITERAL-NET-DRIVE . LITERAL-NET-DRIVE-OFF) (DISABLED-LEMMAS NIL LITERAL-NET-DRIVE LITERAL-NET-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*LITERAL-NET-DRIVE) (QUOTE (MAIN-EVENT LITERAL-NET-DRIVE))) (PUT1-LST (QUOTE LITERAL-NET-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((LITERAL-NET-DRIVE 12308 NIL NIL NIL)) TOTALP-LST ((LITERAL-NET-DRIVE . T)) SDEFN (LAMBDA (DRIVE LOAD LABEL) (IF (NUMBERP DRIVE) (IF (NUMBERP LOAD) (IF (LESSP DRIVE LOAD) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (DIFFERENCE DRIVE LOAD)) (IF (PFP LOAD) (IF (LESSP DRIVE (PF-TO-STD-LOAD LOAD)) (IF (EQUAL LOAD (PF-TO-STD-LOAD LOAD)) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (CONS (PF-TO-STD-LOAD LOAD) (QUOTE NIL)))) (QUOTE NIL))))) (DIFFERENCE DRIVE (PF-TO-STD-LOAD LOAD))) (IF (LESSP DRIVE (QUOTE 0)) (IF (EQUAL LOAD (QUOTE 0)) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE (0)))) (QUOTE NIL))))) (DIFFERENCE DRIVE (QUOTE 0))))) (IF (MAP DRIVE) (IF (PFP LOAD) (IF (PF-LESSP (MA-TO-PF DRIVE) LOAD) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (PF-TO-MA (PF-DIFFERENCE (MA-TO-PF DRIVE) LOAD))) (IF (NUMBERP LOAD) (IF (PF-LESSP (MA-TO-PF DRIVE) (STD-LOAD-TO-PF LOAD)) (IF (EQUAL LOAD (STD-LOAD-TO-PF LOAD)) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (CONS (STD-LOAD-TO-PF LOAD) (QUOTE NIL)))) (QUOTE NIL))))) (PF-TO-MA (PF-DIFFERENCE (MA-TO-PF DRIVE) (STD-LOAD-TO-PF LOAD)))) (IF (PF-LESSP (MA-TO-PF DRIVE) (QUOTE (0 PF))) (IF (EQUAL LOAD (QUOTE (0 PF))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (QUOTE ((0 PF))))) (QUOTE NIL))))) (PF-TO-MA (PF-DIFFERENCE (MA-TO-PF DRIVE) (QUOTE (0 PF))))))) (QUOTE (*1*QUOTE UNKNOWN))))) LISP-CODE *1*LITERAL-NET-DRIVE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*LITERAL-NET-DRIVE) IMMEDIATE-DEPENDENTS0 (ADD-NET-DRIVE NET-MIN-ARGS LITERAL-NET-DRIVE-OFF) EVENT (DEFN LITERAL-NET-DRIVE (DRIVE LOAD LABEL) (IF (NUMBERP DRIVE) (IF (LESSP DRIVE (IF (NUMBERP LOAD) LOAD (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) (QUOTE 0)))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (IF (EQUAL LOAD (IF (NUMBERP LOAD) LOAD (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) (QUOTE 0)))) (QUOTE NIL) (CONS (IF (NUMBERP LOAD) LOAD (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) (QUOTE 0))) (QUOTE NIL))))) (QUOTE NIL)))) (DIFFERENCE DRIVE (IF (NUMBERP LOAD) LOAD (IF (PFP LOAD) (PF-TO-STD-LOAD LOAD) (QUOTE 0))))) (IF (MAP DRIVE) (IF (PF-LESSP (MA-TO-PF DRIVE) (IF (PFP LOAD) LOAD (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) (QUOTE (0 PF))))) (PRED-ERROR LABEL (CONS (CONS (QUOTE DRIVE) (CONS DRIVE (CONS (MA-TO-PF DRIVE) (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS LOAD (IF (EQUAL LOAD (IF (PFP LOAD) LOAD (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) (QUOTE (0 PF))))) (QUOTE NIL) (CONS (IF (PFP LOAD) LOAD (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) (QUOTE (0 PF)))) (QUOTE NIL))))) (QUOTE NIL)))) (PF-TO-MA (PF-DIFFERENCE (MA-TO-PF DRIVE) (IF (PFP LOAD) LOAD (IF (NUMBERP LOAD) (STD-LOAD-TO-PF LOAD) (QUOTE (0 PF))))))) (QUOTE (*1*QUOTE UNKNOWN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PF-DIFFERENCE . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PF-TO-MA . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 STD-LOAD-TO-PF . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 MA-TO-PF . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PF-LESSP . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 MAP . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PF-TO-STD-LOAD . LITERAL-NET-DRIVE) (IMMEDIATE-DEPENDENTS0 PFP . LITERAL-NET-DRIVE) (DCELL . *1*LITERAL-NET-DRIVE))))) (PUT1-LST (QUOTE TRANSFER-LOADINGS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TRANSFER-LOADINGS-OFF TRANSFER-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSFER-LOADINGS . TRANSFER-LOADINGS-OFF) (DISABLED-LEMMAS NIL TRANSFER-LOADINGS TRANSFER-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*TRANSFER-LOADINGS) (QUOTE (MAIN-EVENT TRANSFER-LOADINGS))) (PUT1-LST (QUOTE TRANSFER-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((TRANSFER-LOADINGS 16 T NIL)) TOTALP-LST ((TRANSFER-LOADINGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (LOADINGS DRIVES) (IF (LISTP DRIVES) (TRANSFER-LOADINGS (TRANSFER-LOADING (CDR (CAR DRIVES)) (QUOTE *1*FALSE) (VALUE (CAR (CAR DRIVES)) LOADINGS) LOADINGS) (CDR DRIVES)) LOADINGS)) LISP-CODE *1*TRANSFER-LOADINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP DRIVES)) (((TRANSFER-LOADING (CDR (CAR DRIVES)) (QUOTE *1*FALSE) (VALUE (CAR (CAR DRIVES)) LOADINGS) LOADINGS) (CDR DRIVES)))) (TESTS-AND-CASES ((NOT (LISTP DRIVES))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (DRIVES) (COUNT DRIVES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (2) SATELLITES (*1*TRANSFER-LOADINGS) IMMEDIATE-DEPENDENTS0 (COMPOSED-LOADINGS-DRIVES-DELAYS TRANSFER-LOADINGS-OFF) EVENT (DEFN TRANSFER-LOADINGS (LOADINGS DRIVES) (IF (LISTP DRIVES) (TRANSFER-LOADINGS (TRANSFER-LOADING (CDR (CAR DRIVES)) (QUOTE *1*FALSE) (VALUE (CAR (CAR DRIVES)) LOADINGS) LOADINGS) (CDR DRIVES)) LOADINGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . TRANSFER-LOADINGS) (IMMEDIATE-DEPENDENTS0 TRANSFER-LOADING . TRANSFER-LOADINGS) (DCELL . *1*TRANSFER-LOADINGS))))) (PUT1-LST (QUOTE TRANSFER-LOADING-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TRANSFER-LOADING-OFF TRANSFER-LOADING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSFER-LOADING . TRANSFER-LOADING-OFF) (DISABLED-LEMMAS NIL TRANSFER-LOADING TRANSFER-LOADING-OFF . T))))) (PUT1-LST (QUOTE *1*TRANSFER-LOADING) (QUOTE (MAIN-EVENT TRANSFER-LOADING))) (PUT1-LST (QUOTE TRANSFER-LOADING) (QUOTE (TYPE-PRESCRIPTION-LST ((TRANSFER-LOADING 16 NIL NIL NIL T)) TOTALP-LST ((TRANSFER-LOADING . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE UNCHANGING QUESTIONABLE) SDEFN (LAMBDA (DRIVE LISTP LOAD LOADINGS) (IF LISTP (IF (LISTP DRIVE) (TRANSFER-LOADING (CDR DRIVE) (QUOTE *1*TRUE) LOAD (TRANSFER-LOADING (CAR DRIVE) (QUOTE *1*FALSE) LOAD LOADINGS)) LOADINGS) (IF (SIGNAL-NAMEP DRIVE) (ADD-LOADING DRIVE LOAD LOADINGS) (IF (LISTP DRIVE) (IF (EQUAL (CAR DRIVE) (QUOTE MIN)) (TRANSFER-LOADING (CDR DRIVE) (QUOTE *1*TRUE) LOAD LOADINGS) LOADINGS) LOADINGS)))) LISP-CODE *1*TRANSFER-LOADING SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP DRIVE)) (((CDR DRIVE) (QUOTE *1*TRUE) LOAD (TRANSFER-LOADING (CAR DRIVE) (QUOTE *1*FALSE) LOAD LOADINGS)) ((CAR DRIVE) (QUOTE *1*FALSE) LOAD LOADINGS))) (TESTS-AND-CASES (LISTP (NOT (LISTP DRIVE))) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP DRIVE)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DRIVE)) (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN)))) (((CDR DRIVE) (QUOTE *1*TRUE) LOAD LOADINGS))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DRIVE)) (NOT (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN))))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DRIVE) (COUNT DRIVE) LESSP (AND LESSP-X-X CDR-LESSEQP CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*TRANSFER-LOADING) IMMEDIATE-DEPENDENTS0 (TRANSFER-LOADINGS TRANSFER-LOADING-OFF) EVENT (DEFN TRANSFER-LOADING (DRIVE LISTP LOAD LOADINGS) (IF LISTP (IF (LISTP DRIVE) (TRANSFER-LOADING (CDR DRIVE) (QUOTE *1*TRUE) LOAD (TRANSFER-LOADING (CAR DRIVE) (QUOTE *1*FALSE) LOAD LOADINGS)) LOADINGS) (IF (SIGNAL-NAMEP DRIVE) (ADD-LOADING DRIVE LOAD LOADINGS) (IF (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN))) (TRANSFER-LOADING (CDR DRIVE) (QUOTE *1*TRUE) LOAD LOADINGS) LOADINGS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING . TRANSFER-LOADING) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . TRANSFER-LOADING) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TRANSFER-LOADING) (DCELL . *1*TRANSFER-LOADING))))) (PUT1-LST (QUOTE UPDATE-DRIVES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UPDATE-DRIVES-OFF UPDATE-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-DRIVES . UPDATE-DRIVES-OFF) (DISABLED-LEMMAS NIL UPDATE-DRIVES UPDATE-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-DRIVES) (QUOTE (MAIN-EVENT UPDATE-DRIVES))) (PUT1-LST (QUOTE UPDATE-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-DRIVES 16 T NIL NIL NIL NIL)) TOTALP-LST ((UPDATE-DRIVES . T)) SDEFN (LAMBDA (DRIVES O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (ADD-DRIVES O-OUTS (VALUE (QUOTE DRIVES) O-FN-PROPS) IN-MAP OUT-MAP DRIVES)) LISP-CODE *1*UPDATE-DRIVES SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194008 SATELLITES (*1*UPDATE-DRIVES) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-DRIVES-OFF) EVENT (DEFN UPDATE-DRIVES (DRIVES O-OUTS O-FN-PROPS IN-MAP OUT-MAP) (ADD-DRIVES O-OUTS (VALUE (QUOTE DRIVES) O-FN-PROPS) IN-MAP OUT-MAP DRIVES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-DRIVES) (IMMEDIATE-DEPENDENTS0 ADD-DRIVES . UPDATE-DRIVES) (DCELL . *1*UPDATE-DRIVES))))) (PUT1-LST (QUOTE ADD-DRIVES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-DRIVES-OFF ADD-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-DRIVES . ADD-DRIVES-OFF) (DISABLED-LEMMAS NIL ADD-DRIVES ADD-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-DRIVES) (QUOTE (MAIN-EVENT ADD-DRIVES))) (PUT1-LST (QUOTE ADD-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-DRIVES 16 NIL NIL NIL NIL T)) TOTALP-LST ((ADD-DRIVES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OUTPUTS DRIVES IN-MAP OUT-MAP DRIVE-MAP) (IF (LISTP OUTPUTS) (ADD-DRIVES (CDR OUTPUTS) (CDR DRIVES) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DRIVE (CAR DRIVES) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP)) DRIVE-MAP)) DRIVE-MAP)) LISP-CODE *1*ADD-DRIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUTPUTS)) (((CDR OUTPUTS) (CDR DRIVES) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DRIVE (CAR DRIVES) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP)) DRIVE-MAP)))) (TESTS-AND-CASES ((NOT (LISTP OUTPUTS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (OUTPUTS) (COUNT OUTPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-DRIVES) IMMEDIATE-DEPENDENTS0 (UPDATE-DRIVES ADD-DRIVES-OFF) EVENT (DEFN ADD-DRIVES (OUTPUTS DRIVES IN-MAP OUT-MAP DRIVE-MAP) (IF (LISTP OUTPUTS) (ADD-DRIVES (CDR OUTPUTS) (CDR DRIVES) IN-MAP OUT-MAP (CONS (CONS (CAR OUTPUTS) (LOCAL-DRIVE (CAR DRIVES) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP)) DRIVE-MAP)) DRIVE-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DRIVE . ADD-DRIVES) (DCELL . *1*ADD-DRIVES))))) (PUT1-LST (QUOTE LOCAL-DRIVE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LOCAL-DRIVE-OFF LOCAL-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOCAL-DRIVE . LOCAL-DRIVE-OFF) (DISABLED-LEMMAS NIL LOCAL-DRIVE LOCAL-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*LOCAL-DRIVE) (QUOTE (MAIN-EVENT LOCAL-DRIVE))) (PUT1-LST (QUOTE LOCAL-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((LOCAL-DRIVE -1 T NIL NIL NIL NIL)) TOTALP-LST ((LOCAL-DRIVE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (DRIVE LISTP IN-MAP OUT-MAP DRIVE-MAP) (IF LISTP (IF (LISTP DRIVE) (CONS (LOCAL-DRIVE (CAR DRIVE) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP) (LOCAL-DRIVE (CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP DRIVE) (PARENT-SYNONYM (VALUE2 DRIVE IN-MAP OUT-MAP) DRIVE-MAP) (IF (LISTP DRIVE) (IF (EQUAL (CAR DRIVE) (QUOTE MIN)) (CONS (QUOTE MIN) (LOCAL-DRIVE (CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP)) DRIVE) DRIVE)))) LISP-CODE *1*LOCAL-DRIVE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES (LISTP (LISTP DRIVE)) (((CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP) ((CAR DRIVE) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP))) (TESTS-AND-CASES (LISTP (NOT (LISTP DRIVE))) NIL) (TESTS-AND-CASES ((NOT LISTP) (SIGNAL-NAMEP DRIVE)) NIL) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DRIVE)) (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN)))) (((CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP))) (TESTS-AND-CASES ((NOT LISTP) (NOT (SIGNAL-NAMEP DRIVE)) (NOT (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN))))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DRIVE) (COUNT DRIVE) LESSP (AND LESSP-X-X CDR-LESSEQP CAR-LESSP ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*LOCAL-DRIVE) IMMEDIATE-DEPENDENTS0 (ADD-DRIVES LOCAL-DRIVE-OFF) EVENT (DEFN LOCAL-DRIVE (DRIVE LISTP IN-MAP OUT-MAP DRIVE-MAP) (IF LISTP (IF (LISTP DRIVE) (CONS (LOCAL-DRIVE (CAR DRIVE) (QUOTE *1*FALSE) IN-MAP OUT-MAP DRIVE-MAP) (LOCAL-DRIVE (CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP)) (QUOTE NIL)) (IF (SIGNAL-NAMEP DRIVE) (PARENT-SYNONYM (VALUE2 DRIVE IN-MAP OUT-MAP) DRIVE-MAP) (IF (AND (LISTP DRIVE) (EQUAL (CAR DRIVE) (QUOTE MIN))) (CONS (QUOTE MIN) (LOCAL-DRIVE (CDR DRIVE) (QUOTE *1*TRUE) IN-MAP OUT-MAP DRIVE-MAP)) DRIVE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE2 . LOCAL-DRIVE) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . LOCAL-DRIVE) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . LOCAL-DRIVE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOCAL-DRIVE) (DCELL . *1*LOCAL-DRIVE))))) (PUT1-LST (QUOTE UPDATE-LOADINGS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UPDATE-LOADINGS-OFF UPDATE-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-LOADINGS . UPDATE-LOADINGS-OFF) (DISABLED-LEMMAS NIL UPDATE-LOADINGS UPDATE-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-LOADINGS) (QUOTE (MAIN-EVENT UPDATE-LOADINGS))) (PUT1-LST (QUOTE UPDATE-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-LOADINGS 16 T NIL NIL)) TOTALP-LST ((UPDATE-LOADINGS . T)) SDEFN (LAMBDA (LOADINGS O-INS O-FN-PROPS) (ADD-LOADINGS O-INS (VALUE (QUOTE LOADINGS) O-FN-PROPS) LOADINGS)) LISP-CODE *1*UPDATE-LOADINGS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*UPDATE-LOADINGS) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-LOADINGS-OFF) EVENT (DEFN UPDATE-LOADINGS (LOADINGS O-INS O-FN-PROPS) (ADD-LOADINGS O-INS (VALUE (QUOTE LOADINGS) O-FN-PROPS) LOADINGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-LOADINGS) (IMMEDIATE-DEPENDENTS0 ADD-LOADINGS . UPDATE-LOADINGS) (DCELL . *1*UPDATE-LOADINGS))))) (PUT1-LST (QUOTE ADD-LOADINGS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-LOADINGS-OFF ADD-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADINGS . ADD-LOADINGS-OFF) (DISABLED-LEMMAS NIL ADD-LOADINGS ADD-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-LOADINGS) (QUOTE (MAIN-EVENT ADD-LOADINGS))) (PUT1-LST (QUOTE ADD-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-LOADINGS 16 NIL NIL T)) TOTALP-LST ((ADD-LOADINGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NAMES LOADINGS LOAD-MAP) (IF (LISTP NAMES) (ADD-LOADINGS (CDR NAMES) (CDR LOADINGS) (ADD-LOADING (CAR NAMES) (CAR LOADINGS) LOAD-MAP)) LOAD-MAP)) LISP-CODE *1*ADD-LOADINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) (CDR LOADINGS) (ADD-LOADING (CAR NAMES) (CAR LOADINGS) LOAD-MAP)))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-LOADINGS) IMMEDIATE-DEPENDENTS0 (UPDATE-LOADINGS ADD-LOADINGS-OFF) EVENT (DEFN ADD-LOADINGS (NAMES LOADINGS LOAD-MAP) (IF (LISTP NAMES) (ADD-LOADINGS (CDR NAMES) (CDR LOADINGS) (ADD-LOADING (CAR NAMES) (CAR LOADINGS) LOAD-MAP)) LOAD-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING . ADD-LOADINGS) (DCELL . *1*ADD-LOADINGS))))) (PUT1-LST (QUOTE ADD-LOADING-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-LOADING-OFF ADD-LOADING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING . ADD-LOADING-OFF) (DISABLED-LEMMAS NIL ADD-LOADING ADD-LOADING-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-LOADING) (QUOTE (MAIN-EVENT ADD-LOADING))) (PUT1-LST (QUOTE ADD-LOADING) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-LOADING 16 NIL NIL T)) TOTALP-LST ((ADD-LOADING . T)) SDEFN (LAMBDA (NAME LOADING LOAD-MAP) (IF (ZERO-LOADINGP LOADING) LOAD-MAP (IF (BOUNDP NAME LOAD-MAP) (CONS (CONS NAME (LOADING-PLUS LOADING (VALUE NAME LOAD-MAP))) (UNBIND NAME LOAD-MAP)) (CONS (CONS NAME LOADING) LOAD-MAP)))) LISP-CODE *1*ADD-LOADING SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*ADD-LOADING) IMMEDIATE-DEPENDENTS0 (TRANSFER-LOADING ADD-LOADINGS ADD-LOADING-OFF) EVENT (DEFN ADD-LOADING (NAME LOADING LOAD-MAP) (IF (ZERO-LOADINGP LOADING) LOAD-MAP (IF (BOUNDP NAME LOAD-MAP) (CONS (CONS NAME (LOADING-PLUS LOADING (VALUE NAME LOAD-MAP))) (UNBIND NAME LOAD-MAP)) (CONS (CONS NAME LOADING) LOAD-MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . ADD-LOADING) (IMMEDIATE-DEPENDENTS0 VALUE . ADD-LOADING) (IMMEDIATE-DEPENDENTS0 LOADING-PLUS . ADD-LOADING) (IMMEDIATE-DEPENDENTS0 BOUNDP . ADD-LOADING) (IMMEDIATE-DEPENDENTS0 ZERO-LOADINGP . ADD-LOADING) (DCELL . *1*ADD-LOADING))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DRIVES) (QUOTE (MAIN-EVENT INITIAL-OCC-DRIVES))) (PUT1-LST (QUOTE INITIAL-OCC-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-DRIVES 8)) TOTALP-LST ((INITIAL-OCC-DRIVES . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-DRIVES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*INITIAL-OCC-DRIVES) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-DRIVES NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-DRIVES))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-LOADINGS) (QUOTE (MAIN-EVENT INITIAL-OCC-LOADINGS))) (PUT1-LST (QUOTE INITIAL-OCC-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-LOADINGS 8)) TOTALP-LST ((INITIAL-OCC-LOADINGS . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-LOADINGS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*INITIAL-OCC-LOADINGS) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-LOADINGS NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-LOADINGS))))) (PUT1-LST (QUOTE LOADING-PLUS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LOADING-PLUS-OFF LOADING-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADING-PLUS . LOADING-PLUS-OFF) (DISABLED-LEMMAS NIL LOADING-PLUS LOADING-PLUS-OFF . T))))) (PUT1-LST (QUOTE *1*LOADING-PLUS) (QUOTE (MAIN-EVENT LOADING-PLUS))) (PUT1-LST (QUOTE LOADING-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADING-PLUS 20 T T)) TOTALP-LST ((LOADING-PLUS . T)) SDEFN (LAMBDA (X Y) (IF (NUMBERP X) (IF (NUMBERP Y) (PLUS X Y) (IF (PFP Y) (PF-PLUS (STD-LOAD-TO-PF X) Y) X)) (IF (PFP X) (IF (PFP Y) (PF-PLUS X Y) (IF (NUMBERP Y) (PF-PLUS X (STD-LOAD-TO-PF Y)) X)) (IF (NUMBERP Y) Y (IF (PFP Y) Y (QUOTE 0)))))) LISP-CODE *1*LOADING-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*LOADING-PLUS) IMMEDIATE-DEPENDENTS0 (ADD-LOADING LOADING-PLUS-OFF) EVENT (DEFN LOADING-PLUS (X Y) (IF (NUMBERP X) (IF (NUMBERP Y) (PLUS X Y) (IF (PFP Y) (PF-PLUS (STD-LOAD-TO-PF X) Y) X)) (IF (PFP X) (IF (PFP Y) (PF-PLUS X Y) (IF (NUMBERP Y) (PF-PLUS X (STD-LOAD-TO-PF Y)) X)) (IF (OR (NUMBERP Y) (PFP Y)) Y (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-LOAD-TO-PF . LOADING-PLUS) (IMMEDIATE-DEPENDENTS0 PF-PLUS . LOADING-PLUS) (IMMEDIATE-DEPENDENTS0 PFP . LOADING-PLUS) (DCELL . *1*LOADING-PLUS))))) (PUT1-LST (QUOTE MA-LESSP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MA-LESSP-OFF MA-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MA-LESSP . MA-LESSP-OFF) (DISABLED-LEMMAS NIL MA-LESSP MA-LESSP-OFF . T))))) (PUT1-LST (QUOTE *1*MA-LESSP) (QUOTE (MAIN-EVENT MA-LESSP))) (PUT1-LST (QUOTE MA-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((MA-LESSP 3 NIL NIL)) TOTALP-LST ((MA-LESSP . T)) SDEFN (LAMBDA (A B) (IF (LESSP (CAR A) (CAR B)) (QUOTE *1*TRUE) (IF (EQUAL (CAR A) (CAR B)) (LESSP (CAR (CDR (CAR (CDR A)))) (CAR (CDR (CAR (CDR B))))) (QUOTE *1*FALSE)))) LISP-CODE *1*MA-LESSP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*MA-LESSP) IMMEDIATE-DEPENDENTS0 (DRIVE-LESSP MA-LESSP-OFF) EVENT (DEFN MA-LESSP (A B) (IF (LESSP (CAR A) (CAR B)) (QUOTE *1*TRUE) (IF (EQUAL (CAR A) (CAR B)) (LESSP (CAR (CDR (CAR (CDR A)))) (CAR (CDR (CAR (CDR B))))) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*MA-LESSP))))) (PUT1-LST (QUOTE PF-LESSP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PF-LESSP-OFF PF-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PF-LESSP . PF-LESSP-OFF) (DISABLED-LEMMAS NIL PF-LESSP PF-LESSP-OFF . T))))) (PUT1-LST (QUOTE *1*PF-LESSP) (QUOTE (MAIN-EVENT PF-LESSP))) (PUT1-LST (QUOTE PF-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((PF-LESSP 3 NIL NIL)) TOTALP-LST ((PF-LESSP . T)) SDEFN (LAMBDA (A B) (LESSP (CAR A) (CAR B))) LISP-CODE *1*PF-LESSP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*PF-LESSP) IMMEDIATE-DEPENDENTS0 (LITERAL-NET-DRIVE PF-LESSP-OFF) EVENT (DEFN PF-LESSP (A B) (LESSP (CAR A) (CAR B))) LOCAL-UNDO-TUPLES ((DCELL . *1*PF-LESSP))))) (PUT1-LST (QUOTE PF-DIFFERENCE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PF-DIFFERENCE-OFF PF-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PF-DIFFERENCE . PF-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL PF-DIFFERENCE PF-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE *1*PF-DIFFERENCE) (QUOTE (MAIN-EVENT PF-DIFFERENCE))) (PUT1-LST (QUOTE PF-DIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((PF-DIFFERENCE 16 NIL NIL)) TOTALP-LST ((PF-DIFFERENCE . T)) SDEFN (LAMBDA (A B) (CONS (DIFFERENCE (CAR A) (CAR B)) (QUOTE (PF)))) LISP-CODE *1*PF-DIFFERENCE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*PF-DIFFERENCE) IMMEDIATE-DEPENDENTS0 (LITERAL-NET-DRIVE PF-DIFFERENCE-OFF) EVENT (DEFN PF-DIFFERENCE (A B) (CONS (DIFFERENCE (CAR A) (CAR B)) (QUOTE (PF)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PF-DIFFERENCE))))) (PUT1-LST (QUOTE PF-PLUS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PF-PLUS-OFF PF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PF-PLUS . PF-PLUS-OFF) (DISABLED-LEMMAS NIL PF-PLUS PF-PLUS-OFF . T))))) (PUT1-LST (QUOTE *1*PF-PLUS) (QUOTE (MAIN-EVENT PF-PLUS))) (PUT1-LST (QUOTE PF-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((PF-PLUS 16 NIL NIL)) TOTALP-LST ((PF-PLUS . T)) SDEFN (LAMBDA (A B) (CONS (PLUS (CAR A) (CAR B)) (QUOTE (PF)))) LISP-CODE *1*PF-PLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*PF-PLUS) IMMEDIATE-DEPENDENTS0 (LOADING-PLUS PF-PLUS-OFF) EVENT (DEFN PF-PLUS (A B) (CONS (PLUS (CAR A) (CAR B)) (QUOTE (PF)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PF-PLUS))))) (PUT1-LST (QUOTE ZERO-LOADINGP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ZERO-LOADINGP-OFF ZERO-LOADINGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZERO-LOADINGP . ZERO-LOADINGP-OFF) (DISABLED-LEMMAS NIL ZERO-LOADINGP ZERO-LOADINGP-OFF . T))))) (PUT1-LST (QUOTE *1*ZERO-LOADINGP) (QUOTE (MAIN-EVENT ZERO-LOADINGP))) (PUT1-LST (QUOTE ZERO-LOADINGP) (QUOTE (TYPE-PRESCRIPTION-LST ((ZERO-LOADINGP 3 NIL)) TOTALP-LST ((ZERO-LOADINGP . T)) SDEFN (LAMBDA (A) (IF (PFP A) (IF (EQUAL (CAR A) (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP (CAR A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP A) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*ZERO-LOADINGP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*ZERO-LOADINGP) IMMEDIATE-DEPENDENTS0 (ADD-LOAD-DELAY ADD-LOADING ZERO-LOADINGP-OFF) EVENT (DEFN ZERO-LOADINGP (A) (IF (PFP A) (ZEROP (CAR A)) (ZEROP A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PFP . ZERO-LOADINGP) (DCELL . *1*ZERO-LOADINGP))))) (PUT1-LST (QUOTE STD-DRIVE-TO-MA-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE STD-DRIVE-TO-MA-OFF STD-DRIVE-TO-MA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-DRIVE-TO-MA . STD-DRIVE-TO-MA-OFF) (DISABLED-LEMMAS NIL STD-DRIVE-TO-MA STD-DRIVE-TO-MA-OFF . T))))) (PUT1-LST (QUOTE *1*STD-DRIVE-TO-MA) (QUOTE (MAIN-EVENT STD-DRIVE-TO-MA))) (PUT1-LST (QUOTE STD-DRIVE-TO-MA) (QUOTE (TYPE-PRESCRIPTION-LST ((STD-DRIVE-TO-MA 16 NIL)) TOTALP-LST ((STD-DRIVE-TO-MA . T)) SDEFN (LAMBDA (X) (CONS X (QUOTE (MA)))) LISP-CODE *1*STD-DRIVE-TO-MA SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*STD-DRIVE-TO-MA) IMMEDIATE-DEPENDENTS0 (TYPE-DRIVE STD-DRIVE-TO-MA-OFF) EVENT (DEFN STD-DRIVE-TO-MA (X) (CONS X (QUOTE (MA)))) LOCAL-UNDO-TUPLES ((DCELL . *1*STD-DRIVE-TO-MA))))) (PUT1-LST (QUOTE MA-TO-STD-DRIVE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MA-TO-STD-DRIVE-OFF MA-TO-STD-DRIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MA-TO-STD-DRIVE . MA-TO-STD-DRIVE-OFF) (DISABLED-LEMMAS NIL MA-TO-STD-DRIVE MA-TO-STD-DRIVE-OFF . T))))) (PUT1-LST (QUOTE *1*MA-TO-STD-DRIVE) (QUOTE (MAIN-EVENT MA-TO-STD-DRIVE))) (PUT1-LST (QUOTE MA-TO-STD-DRIVE) (QUOTE (TYPE-PRESCRIPTION-LST ((MA-TO-STD-DRIVE -1 NIL)) TOTALP-LST ((MA-TO-STD-DRIVE . T)) SDEFN (LAMBDA (X) (CAR X)) LISP-CODE *1*MA-TO-STD-DRIVE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*MA-TO-STD-DRIVE) IMMEDIATE-DEPENDENTS0 (TYPE-DRIVE MA-TO-STD-DRIVE-OFF) EVENT (DEFN MA-TO-STD-DRIVE (X) (CAR X)) LOCAL-UNDO-TUPLES ((DCELL . *1*MA-TO-STD-DRIVE))))) (PUT1-LST (QUOTE PF-TO-STD-LOAD-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PF-TO-STD-LOAD-OFF PF-TO-STD-LOAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PF-TO-STD-LOAD . PF-TO-STD-LOAD-OFF) (DISABLED-LEMMAS NIL PF-TO-STD-LOAD PF-TO-STD-LOAD-OFF . T))))) (PUT1-LST (QUOTE *1*PF-TO-STD-LOAD) (QUOTE (MAIN-EVENT PF-TO-STD-LOAD))) (PUT1-LST (QUOTE PF-TO-STD-LOAD) (QUOTE (TYPE-PRESCRIPTION-LST ((PF-TO-STD-LOAD 4 NIL)) TOTALP-LST ((PF-TO-STD-LOAD . T)) SDEFN (LAMBDA (X) (IF (LESSP (REMAINDER (CAR X) (QUOTE 10)) (QUOTE 5)) (QUOTIENT (CAR X) (QUOTE 10)) (PLUS (QUOTIENT (CAR X) (QUOTE 10)) (QUOTE 1)))) LISP-CODE *1*PF-TO-STD-LOAD SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*PF-TO-STD-LOAD) IMMEDIATE-DEPENDENTS0 (SLOPE-TIMES-LOAD TYPE-LOADING LITERAL-NET-DRIVE PF-TO-STD-LOAD-OFF) EVENT (DEFN PF-TO-STD-LOAD (X) (IF (LESSP (REMAINDER (CAR X) (QUOTE 10)) (QUOTE 5)) (QUOTIENT (CAR X) (QUOTE 10)) (PLUS (QUOTIENT (CAR X) (QUOTE 10)) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PF-TO-STD-LOAD))))) (PUT1-LST (QUOTE STD-LOAD-TO-PF-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE STD-LOAD-TO-PF-OFF STD-LOAD-TO-PF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STD-LOAD-TO-PF . STD-LOAD-TO-PF-OFF) (DISABLED-LEMMAS NIL STD-LOAD-TO-PF STD-LOAD-TO-PF-OFF . T))))) (PUT1-LST (QUOTE *1*STD-LOAD-TO-PF) (QUOTE (MAIN-EVENT STD-LOAD-TO-PF))) (PUT1-LST (QUOTE STD-LOAD-TO-PF) (QUOTE (TYPE-PRESCRIPTION-LST ((STD-LOAD-TO-PF 16 NIL)) TOTALP-LST ((STD-LOAD-TO-PF . T)) SDEFN (LAMBDA (X) (CONS (TIMES X (QUOTE 10)) (QUOTE (PF)))) LISP-CODE *1*STD-LOAD-TO-PF SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*STD-LOAD-TO-PF) IMMEDIATE-DEPENDENTS0 (SLOPE-TIMES-LOAD TYPE-LOADING LITERAL-NET-DRIVE LOADING-PLUS STD-LOAD-TO-PF-OFF) EVENT (DEFN STD-LOAD-TO-PF (X) (CONS (TIMES X (QUOTE 10)) (QUOTE (PF)))) LOCAL-UNDO-TUPLES ((DCELL . *1*STD-LOAD-TO-PF))))) (PUT1-LST (QUOTE PF-TO-MA-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PF-TO-MA-OFF PF-TO-MA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PF-TO-MA . PF-TO-MA-OFF) (DISABLED-LEMMAS NIL PF-TO-MA PF-TO-MA-OFF . T))))) (PUT1-LST (QUOTE *1*PF-TO-MA) (QUOTE (MAIN-EVENT PF-TO-MA))) (PUT1-LST (QUOTE PF-TO-MA) (QUOTE (TYPE-PRESCRIPTION-LST ((PF-TO-MA 16 NIL)) TOTALP-LST ((PF-TO-MA . T)) SDEFN (LAMBDA (X) (IF (EQUAL (REMAINDER (CAR X) (QUOTE 10)) (QUOTE 0)) (CONS (QUOTIENT (CAR X) (QUOTE 10)) (QUOTE (MA))) (CONS (QUOTIENT (CAR X) (QUOTE 10)) (CONS (CONS (QUOTE POINT) (CONS (REMAINDER (CAR X) (QUOTE 10)) (QUOTE NIL))) (QUOTE (MA)))))) LISP-CODE *1*PF-TO-MA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*PF-TO-MA) IMMEDIATE-DEPENDENTS0 (LITERAL-NET-DRIVE PF-TO-MA-OFF) EVENT (DEFN PF-TO-MA (X) (IF (ZEROP (REMAINDER (CAR X) (QUOTE 10))) (CONS (QUOTIENT (CAR X) (QUOTE 10)) (QUOTE (MA))) (CONS (QUOTIENT (CAR X) (QUOTE 10)) (CONS (CONS (QUOTE POINT) (CONS (REMAINDER (CAR X) (QUOTE 10)) (QUOTE NIL))) (QUOTE (MA)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*PF-TO-MA))))) (PUT1-LST (QUOTE MA-TO-PF-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MA-TO-PF-OFF MA-TO-PF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MA-TO-PF . MA-TO-PF-OFF) (DISABLED-LEMMAS NIL MA-TO-PF MA-TO-PF-OFF . T))))) (PUT1-LST (QUOTE *1*MA-TO-PF) (QUOTE (MAIN-EVENT MA-TO-PF))) (PUT1-LST (QUOTE MA-TO-PF) (QUOTE (TYPE-PRESCRIPTION-LST ((MA-TO-PF 16 NIL)) TOTALP-LST ((MA-TO-PF . T)) SDEFN (LAMBDA (X) (CONS (PLUS (TIMES (CAR X) (QUOTE 10)) (CAR (CDR (CAR (CDR X))))) (QUOTE (PF)))) LISP-CODE *1*MA-TO-PF SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*MA-TO-PF) IMMEDIATE-DEPENDENTS0 (LITERAL-NET-DRIVE MA-TO-PF-OFF) EVENT (DEFN MA-TO-PF (X) (CONS (PLUS (TIMES (CAR X) (QUOTE 10)) (CAR (CDR (CAR (CDR X))))) (QUOTE (PF)))) LOCAL-UNDO-TUPLES ((DCELL . *1*MA-TO-PF))))) (PUT1-LST (QUOTE PFP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PFP-OFF PFP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PFP . PFP-OFF) (DISABLED-LEMMAS NIL PFP PFP-OFF . T))))) (PUT1-LST (QUOTE *1*PFP) (QUOTE (MAIN-EVENT PFP))) (PUT1-LST (QUOTE PFP) (QUOTE (TYPE-PRESCRIPTION-LST ((PFP 3 NIL)) TOTALP-LST ((PFP . T)) SDEFN (LAMBDA (LD) (IF (EQUAL (LENGTH LD) (QUOTE 2)) (IF (NUMBERP (CAR LD)) (IF (EQUAL (CAR (CDR LD)) (QUOTE PF)) (EQUAL (CDR (CDR LD)) (QUOTE NIL)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*PFP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*PFP) IMMEDIATE-DEPENDENTS0 (PLOADING-OK SLOPE-TIMES-LOAD TYPE-LOADING LITERAL-NET-DRIVE LOADING-PLUS ZERO-LOADINGP PFP-OFF) EVENT (DEFN PFP (LD) (IF (EQUAL (LENGTH LD) (QUOTE 2)) (AND (NUMBERP (CAR LD)) (AND (EQUAL (CAR (CDR LD)) (QUOTE PF)) (EQUAL (CDR (CDR LD)) (QUOTE NIL)))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . PFP) (DCELL . *1*PFP))))) (PUT1-LST (QUOTE MAP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MAP-OFF MAP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAP . MAP-OFF) (DISABLED-LEMMAS NIL MAP MAP-OFF . T))))) (PUT1-LST (QUOTE *1*MAP) (QUOTE (MAIN-EVENT MAP))) (PUT1-LST (QUOTE MAP) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP 3 NIL)) TOTALP-LST ((MAP . T)) SDEFN (LAMBDA (DR) (IF (EQUAL (LENGTH DR) (QUOTE 2)) (IF (NUMBERP (CAR DR)) (IF (EQUAL (CAR (CDR DR)) (QUOTE MA)) (EQUAL (CDR (CDR DR)) (QUOTE NIL)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LENGTH DR) (QUOTE 3)) (IF (NUMBERP (CAR DR)) (IF (EQUAL (LENGTH (CAR (CDR DR))) (QUOTE 2)) (IF (EQUAL (CAR (CAR (CDR DR))) (QUOTE POINT)) (IF (NUMBERP (CAR (CDR (CAR (CDR DR))))) (IF (EQUAL (CAR (CDR (CDR DR))) (QUOTE MA)) (EQUAL (CDR (CDR (CDR DR))) (QUOTE NIL)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*MAP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*MAP) IMMEDIATE-DEPENDENTS0 (PDRIVE-OK COLLECT-DRIVES-0 DRIVE-LESSP TYPE-DRIVE NUMERIC-DRIVES COLLECT-MIN-ARGS ADD-NET-DRIVE NET-MIN-ARGS LITERAL-NET-DRIVE MAP-OFF) EVENT (DEFN MAP (DR) (IF (EQUAL (LENGTH DR) (QUOTE 2)) (AND (NUMBERP (CAR DR)) (AND (EQUAL (CAR (CDR DR)) (QUOTE MA)) (EQUAL (CDR (CDR DR)) (QUOTE NIL)))) (IF (EQUAL (LENGTH DR) (QUOTE 3)) (AND (NUMBERP (CAR DR)) (AND (AND (EQUAL (LENGTH (CAR (CDR DR))) (QUOTE 2)) (AND (EQUAL (CAR (CAR (CDR DR))) (QUOTE POINT)) (NUMBERP (CAR (CDR (CAR (CDR DR))))))) (AND (EQUAL (CAR (CDR (CDR DR))) (QUOTE MA)) (EQUAL (CDR (CDR (CDR DR))) (QUOTE NIL))))) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . MAP) (DCELL . *1*MAP))))) (PUT1-LST (QUOTE OUT-TYPES-ERROR-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE OUT-TYPES-ERROR-OFF OUT-TYPES-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-TYPES-ERROR . OUT-TYPES-ERROR-OFF) (DISABLED-LEMMAS NIL OUT-TYPES-ERROR OUT-TYPES-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*OUT-TYPES-ERROR) (QUOTE (MAIN-EVENT OUT-TYPES-ERROR))) (PUT1-LST (QUOTE OUT-TYPES-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((OUT-TYPES-ERROR 4098 NIL)) TOTALP-LST ((OUT-TYPES-ERROR . T)) SDEFN (LAMBDA (OUT-MAP) (ERR-AND OUT-MAP (QUOTE IO-TYPE-CONFLICTS))) LISP-CODE *1*OUT-TYPES-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*OUT-TYPES-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR OUT-TYPES-ERROR-OFF) EVENT (DEFN OUT-TYPES-ERROR (OUT-MAP) (ERR-AND OUT-MAP (QUOTE IO-TYPE-CONFLICTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . OUT-TYPES-ERROR) (DCELL . *1*OUT-TYPES-ERROR))))) (PUT1-LST (QUOTE IN-TYPES-ERROR-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE IN-TYPES-ERROR-OFF IN-TYPES-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IN-TYPES-ERROR . IN-TYPES-ERROR-OFF) (DISABLED-LEMMAS NIL IN-TYPES-ERROR IN-TYPES-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*IN-TYPES-ERROR) (QUOTE (MAIN-EVENT IN-TYPES-ERROR))) (PUT1-LST (QUOTE IN-TYPES-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((IN-TYPES-ERROR 4098 NIL)) TOTALP-LST ((IN-TYPES-ERROR . T)) SDEFN (LAMBDA (IN-MAP) (ERR-AND IN-MAP (QUOTE INPUT-TYPE-CONFLICTS))) LISP-CODE *1*IN-TYPES-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*IN-TYPES-ERROR) IMMEDIATE-DEPENDENTS0 (MODULE-PROP-ERROR IN-TYPES-ERROR-OFF) EVENT (DEFN IN-TYPES-ERROR (IN-MAP) (ERR-AND IN-MAP (QUOTE INPUT-TYPE-CONFLICTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . IN-TYPES-ERROR) (DCELL . *1*IN-TYPES-ERROR))))) (PUT1-LST (QUOTE COLLECT-OUT-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COLLECT-OUT-TYPES-OFF COLLECT-OUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-TYPES . COLLECT-OUT-TYPES-OFF) (DISABLED-LEMMAS NIL COLLECT-OUT-TYPES COLLECT-OUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-TYPES) (QUOTE (MAIN-EVENT COLLECT-OUT-TYPES))) (PUT1-LST (QUOTE COLLECT-OUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-OUT-TYPES 24 NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-OUT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (OUTPUTS OUT-MAP INPUTS IN-MAP) (IF (LISTP OUTPUTS) (CONS (COLLECT-OUT-TYPE (CAR OUTPUTS) OUT-MAP INPUTS IN-MAP) (COLLECT-OUT-TYPES (CDR OUTPUTS) OUT-MAP INPUTS IN-MAP)) (QUOTE NIL))) LISP-CODE *1*COLLECT-OUT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUTPUTS)) (((CDR OUTPUTS) OUT-MAP INPUTS IN-MAP))) (TESTS-AND-CASES ((NOT (LISTP OUTPUTS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (OUTPUTS) (COUNT OUTPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-OUT-TYPES) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-DATA COLLECT-OUT-TYPES-OFF) EVENT (DEFN COLLECT-OUT-TYPES (OUTPUTS OUT-MAP INPUTS IN-MAP) (IF (LISTP OUTPUTS) (CONS (COLLECT-OUT-TYPE (CAR OUTPUTS) OUT-MAP INPUTS IN-MAP) (COLLECT-OUT-TYPES (CDR OUTPUTS) OUT-MAP INPUTS IN-MAP)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-TYPE . COLLECT-OUT-TYPES) (DCELL . *1*COLLECT-OUT-TYPES))))) (PUT1-LST (QUOTE COLLECT-OUT-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COLLECT-OUT-TYPE-OFF COLLECT-OUT-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-OUT-TYPE . COLLECT-OUT-TYPE-OFF) (DISABLED-LEMMAS NIL COLLECT-OUT-TYPE COLLECT-OUT-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-TYPE) (QUOTE (MAIN-EVENT COLLECT-OUT-TYPE))) (PUT1-LST (QUOTE COLLECT-OUT-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-OUT-TYPE -1 NIL NIL NIL NIL)) TOTALP-LST ((COLLECT-OUT-TYPE . T)) SDEFN (LAMBDA (NAME OUT-MAP INPUTS IN-MAP) (IF (LISTP (OUTPUT-TYPE NAME OUT-MAP IN-MAP)) (IF (MEMBER (CAR (OUTPUT-TYPE NAME OUT-MAP IN-MAP)) INPUTS) (OUTPUT-TYPE NAME OUT-MAP IN-MAP) (QUOTE (*1*QUOTE UNKNOWN))) (OUTPUT-TYPE NAME OUT-MAP IN-MAP))) LISP-CODE *1*COLLECT-OUT-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*COLLECT-OUT-TYPE) IMMEDIATE-DEPENDENTS0 (COLLECT-OUT-TYPES COLLECT-OUT-TYPE-OFF) EVENT (DEFN COLLECT-OUT-TYPE (NAME OUT-MAP INPUTS IN-MAP) (IF (AND (LISTP (OUTPUT-TYPE NAME OUT-MAP IN-MAP)) (NOT (MEMBER (CAR (OUTPUT-TYPE NAME OUT-MAP IN-MAP)) INPUTS))) (QUOTE (*1*QUOTE UNKNOWN)) (OUTPUT-TYPE NAME OUT-MAP IN-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . COLLECT-OUT-TYPE) (IMMEDIATE-DEPENDENTS0 OUTPUT-TYPE . COLLECT-OUT-TYPE) (DCELL . *1*COLLECT-OUT-TYPE))))) (PUT1-LST (QUOTE COLLECT-IN-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COLLECT-IN-TYPES-OFF COLLECT-IN-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-IN-TYPES . COLLECT-IN-TYPES-OFF) (DISABLED-LEMMAS NIL COLLECT-IN-TYPES COLLECT-IN-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-IN-TYPES) (QUOTE (MAIN-EVENT COLLECT-IN-TYPES))) (PUT1-LST (QUOTE COLLECT-IN-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-IN-TYPES 24 NIL NIL)) TOTALP-LST ((COLLECT-IN-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (NAMES ALIST) (IF (LISTP NAMES) (CONS (TYPE-VALUE (CAR NAMES) ALIST (QUOTE *1*TRUE)) (COLLECT-IN-TYPES (CDR NAMES) ALIST)) (QUOTE NIL))) LISP-CODE *1*COLLECT-IN-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) ALIST))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-IN-TYPES) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-DATA COLLECT-IN-TYPES-OFF) EVENT (DEFN COLLECT-IN-TYPES (NAMES ALIST) (IF (LISTP NAMES) (CONS (TYPE-VALUE (CAR NAMES) ALIST (QUOTE *1*TRUE)) (COLLECT-IN-TYPES (CDR NAMES) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE . COLLECT-IN-TYPES) (DCELL . *1*COLLECT-IN-TYPES))))) (PUT1-LST (QUOTE COMPOSE-IO-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COMPOSE-IO-TYPES-OFF COMPOSE-IO-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSE-IO-TYPES . COMPOSE-IO-TYPES-OFF) (DISABLED-LEMMAS NIL COMPOSE-IO-TYPES COMPOSE-IO-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSE-IO-TYPES) (QUOTE (MAIN-EVENT COMPOSE-IO-TYPES))) (PUT1-LST (QUOTE COMPOSE-IO-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSE-IO-TYPES 16 NIL NIL NIL)) TOTALP-LST ((COMPOSE-IO-TYPES . T)) SDEFN (LAMBDA (IN-MAP OUT-MAP T-WIRE-INS) (COMPOSED-TYPE-MAPS OUT-MAP IN-MAP OUT-MAP T-WIRE-INS)) LISP-CODE *1*COMPOSE-IO-TYPES SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*COMPOSE-IO-TYPES) IMMEDIATE-DEPENDENTS0 (COMPOSED-IO-TYPES COMPOSE-IO-TYPES-OFF) EVENT (DEFN COMPOSE-IO-TYPES (IN-MAP OUT-MAP T-WIRE-INS) (COMPOSED-TYPE-MAPS OUT-MAP IN-MAP OUT-MAP T-WIRE-INS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-TYPE-MAPS . COMPOSE-IO-TYPES) (DCELL . *1*COMPOSE-IO-TYPES))))) (PUT1-LST (QUOTE COMPOSED-TYPE-MAPS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COMPOSED-TYPE-MAPS-OFF COMPOSED-TYPE-MAPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSED-TYPE-MAPS . COMPOSED-TYPE-MAPS-OFF) (DISABLED-LEMMAS NIL COMPOSED-TYPE-MAPS COMPOSED-TYPE-MAPS-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSED-TYPE-MAPS) (QUOTE (MAIN-EVENT COMPOSED-TYPE-MAPS))) (PUT1-LST (QUOTE COMPOSED-TYPE-MAPS) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSED-TYPE-MAPS 16 NIL NIL NIL NIL)) TOTALP-LST ((COMPOSED-TYPE-MAPS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (OUT-TYPES IN-MAP OUT-MAP T-WIRE-INS) (IF (LISTP OUT-TYPES) (COMPOSE-TYPE (CAR (CAR OUT-TYPES)) (CDR (CAR OUT-TYPES)) (COMPOSED-TYPE-MAPS (CDR OUT-TYPES) (TRANSFER-IN-TYPE (CAR (CAR OUT-TYPES)) (CDR (CAR OUT-TYPES)) IN-MAP) OUT-MAP T-WIRE-INS) T-WIRE-INS) (CONS IN-MAP OUT-MAP))) LISP-CODE *1*COMPOSED-TYPE-MAPS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUT-TYPES)) (((CDR OUT-TYPES) (TRANSFER-IN-TYPE (CAR (CAR OUT-TYPES)) (CDR (CAR OUT-TYPES)) IN-MAP) OUT-MAP T-WIRE-INS))) (TESTS-AND-CASES ((NOT (LISTP OUT-TYPES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (OUT-TYPES) (COUNT OUT-TYPES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*COMPOSED-TYPE-MAPS) IMMEDIATE-DEPENDENTS0 (COMPOSE-IO-TYPES COMPOSED-TYPE-MAPS-OFF) EVENT (DEFN COMPOSED-TYPE-MAPS (OUT-TYPES IN-MAP OUT-MAP T-WIRE-INS) (IF (LISTP OUT-TYPES) (COMPOSE-TYPE (CAR (CAR OUT-TYPES)) (CDR (CAR OUT-TYPES)) (COMPOSED-TYPE-MAPS (CDR OUT-TYPES) (TRANSFER-IN-TYPE (CAR (CAR OUT-TYPES)) (CDR (CAR OUT-TYPES)) IN-MAP) OUT-MAP T-WIRE-INS) T-WIRE-INS) (CONS IN-MAP OUT-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSFER-IN-TYPE . COMPOSED-TYPE-MAPS) (IMMEDIATE-DEPENDENTS0 COMPOSE-TYPE . COMPOSED-TYPE-MAPS) (DCELL . *1*COMPOSED-TYPE-MAPS))))) (PUT1-LST (QUOTE COMPOSE-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COMPOSE-TYPE-OFF COMPOSE-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSE-TYPE . COMPOSE-TYPE-OFF) (DISABLED-LEMMAS NIL COMPOSE-TYPE COMPOSE-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSE-TYPE) (QUOTE (MAIN-EVENT COMPOSE-TYPE))) (PUT1-LST (QUOTE COMPOSE-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSE-TYPE 16 NIL NIL NIL NIL)) TOTALP-LST ((COMPOSE-TYPE . T)) SDEFN (LAMBDA (NAME TYPE MAPS T-WIRE-INS) (IF (LISTP TYPE) (IF (LISTP (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS))) (CONS (OK-IN-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (QUOTE FREE) T-WIRE-INS) NAME (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) (CAR MAPS)) (OK-OUT-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (QUOTE FREE) T-WIRE-INS) NAME (CDR MAPS))) (CONS (OK-IN-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) T-WIRE-INS) NAME (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) (CAR MAPS)) (OK-OUT-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) T-WIRE-INS) NAME (CDR MAPS)))) (CONS (OK-IN-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) TYPE T-WIRE-INS) NAME TYPE (CAR MAPS)) (OK-OUT-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) TYPE T-WIRE-INS) NAME (CDR MAPS))))) LISP-CODE *1*COMPOSE-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*COMPOSE-TYPE) IMMEDIATE-DEPENDENTS0 (COMPOSED-TYPE-MAPS COMPOSE-TYPE-OFF) EVENT (DEFN COMPOSE-TYPE (NAME TYPE MAPS T-WIRE-INS) (CONS (OK-IN-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (IF (LISTP (IF (LISTP TYPE) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) TYPE)) (QUOTE FREE) (IF (LISTP TYPE) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) TYPE)) T-WIRE-INS) NAME (IF (LISTP TYPE) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) TYPE) (CAR MAPS)) (OK-OUT-TYPE (IO-TYPES-COMPATIBLE NAME (INPUT-TYPE NAME (CAR MAPS)) (IF (LISTP (IF (LISTP TYPE) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) TYPE)) (QUOTE FREE) (IF (LISTP TYPE) (OUTPUT-TYPE (CAR TYPE) (CDR MAPS) (CAR MAPS)) TYPE)) T-WIRE-INS) NAME (CDR MAPS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-OUT-TYPE . COMPOSE-TYPE) (IMMEDIATE-DEPENDENTS0 OUTPUT-TYPE . COMPOSE-TYPE) (IMMEDIATE-DEPENDENTS0 INPUT-TYPE . COMPOSE-TYPE) (IMMEDIATE-DEPENDENTS0 IO-TYPES-COMPATIBLE . COMPOSE-TYPE) (IMMEDIATE-DEPENDENTS0 OK-IN-TYPE . COMPOSE-TYPE) (DCELL . *1*COMPOSE-TYPE))))) (PUT1-LST (QUOTE TRANSFER-IN-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TRANSFER-IN-TYPE-OFF TRANSFER-IN-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSFER-IN-TYPE . TRANSFER-IN-TYPE-OFF) (DISABLED-LEMMAS NIL TRANSFER-IN-TYPE TRANSFER-IN-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*TRANSFER-IN-TYPE) (QUOTE (MAIN-EVENT TRANSFER-IN-TYPE))) (PUT1-LST (QUOTE TRANSFER-IN-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((TRANSFER-IN-TYPE 16 NIL NIL T)) TOTALP-LST ((TRANSFER-IN-TYPE . T)) SDEFN (LAMBDA (NAME OUT-TYPE IN-MAP) (IF (LISTP OUT-TYPE) (ADD-IN-TYPE (CAR OUT-TYPE) (INPUT-TYPE NAME IN-MAP) IN-MAP) IN-MAP)) LISP-CODE *1*TRANSFER-IN-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*TRANSFER-IN-TYPE) IMMEDIATE-DEPENDENTS0 (COMPOSED-TYPE-MAPS TRANSFER-IN-TYPE-OFF) EVENT (DEFN TRANSFER-IN-TYPE (NAME OUT-TYPE IN-MAP) (IF (LISTP OUT-TYPE) (ADD-IN-TYPE (CAR OUT-TYPE) (INPUT-TYPE NAME IN-MAP) IN-MAP) IN-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-TYPE . TRANSFER-IN-TYPE) (IMMEDIATE-DEPENDENTS0 ADD-IN-TYPE . TRANSFER-IN-TYPE) (DCELL . *1*TRANSFER-IN-TYPE))))) (PUT1-LST (QUOTE OK-OUT-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE OK-OUT-TYPE-OFF OK-OUT-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-OUT-TYPE . OK-OUT-TYPE-OFF) (DISABLED-LEMMAS NIL OK-OUT-TYPE OK-OUT-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*OK-OUT-TYPE) (QUOTE (MAIN-EVENT OK-OUT-TYPE))) (PUT1-LST (QUOTE OK-OUT-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-OUT-TYPE 16 NIL NIL T)) TOTALP-LST ((OK-OUT-TYPE . T)) SDEFN (LAMBDA (OK NAME OUT-MAP) (IF (NET-ERRORP OK) (CONS OK (SET-VALUE NAME (QUOTE (*1*QUOTE UNKNOWN)) OUT-MAP)) (IF OK OUT-MAP (SET-VALUE NAME (QUOTE (*1*QUOTE UNKNOWN)) OUT-MAP)))) LISP-CODE *1*OK-OUT-TYPE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*OK-OUT-TYPE) IMMEDIATE-DEPENDENTS0 (COMPOSE-TYPE OK-OUT-TYPE-OFF) EVENT (DEFN OK-OUT-TYPE (OK NAME OUT-MAP) (IF (NET-ERRORP OK) (CONS OK (SET-VALUE NAME (QUOTE (*1*QUOTE UNKNOWN)) OUT-MAP)) (IF OK OUT-MAP (SET-VALUE NAME (QUOTE (*1*QUOTE UNKNOWN)) OUT-MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-OUT-TYPE) (IMMEDIATE-DEPENDENTS0 SET-VALUE . OK-OUT-TYPE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . OK-OUT-TYPE) (DCELL . *1*OK-OUT-TYPE))))) (PUT1-LST (QUOTE OK-IN-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE OK-IN-TYPE-OFF OK-IN-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OK-IN-TYPE . OK-IN-TYPE-OFF) (DISABLED-LEMMAS NIL OK-IN-TYPE OK-IN-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*OK-IN-TYPE) (QUOTE (MAIN-EVENT OK-IN-TYPE))) (PUT1-LST (QUOTE OK-IN-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((OK-IN-TYPE 16 NIL NIL NIL T)) TOTALP-LST ((OK-IN-TYPE . T)) SDEFN (LAMBDA (OK NAME OUT-TYPE IN-MAP) (IF OK (IF (NET-ERRORP OK) (SET-VALUE (UNMARK-IO-OUT NAME) (QUOTE (*1*QUOTE UNKNOWN)) IN-MAP) (IF (IO-OUTP NAME) (SET-VALUE (UNMARK-IO-OUT NAME) OUT-TYPE IN-MAP) IN-MAP)) (SET-VALUE (UNMARK-IO-OUT NAME) (QUOTE (*1*QUOTE UNKNOWN)) IN-MAP))) LISP-CODE *1*OK-IN-TYPE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*OK-IN-TYPE) IMMEDIATE-DEPENDENTS0 (COMPOSE-TYPE OK-IN-TYPE-OFF) EVENT (DEFN OK-IN-TYPE (OK NAME OUT-TYPE IN-MAP) (IF (OR (NOT OK) (NET-ERRORP OK)) (SET-VALUE (UNMARK-IO-OUT NAME) (QUOTE (*1*QUOTE UNKNOWN)) IN-MAP) (IF (IO-OUTP NAME) (SET-VALUE (UNMARK-IO-OUT NAME) OUT-TYPE IN-MAP) IN-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-OUT . OK-IN-TYPE) (IMMEDIATE-DEPENDENTS0 UNKNOWN . OK-IN-TYPE) (IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . OK-IN-TYPE) (IMMEDIATE-DEPENDENTS0 SET-VALUE . OK-IN-TYPE) (IMMEDIATE-DEPENDENTS0 NET-ERROR . OK-IN-TYPE) (DCELL . *1*OK-IN-TYPE))))) (PUT1-LST (QUOTE IO-TYPES-COMPATIBLE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE IO-TYPES-COMPATIBLE-OFF IO-TYPES-COMPATIBLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-TYPES-COMPATIBLE . IO-TYPES-COMPATIBLE-OFF) (DISABLED-LEMMAS NIL IO-TYPES-COMPATIBLE IO-TYPES-COMPATIBLE-OFF . T))))) (PUT1-LST (QUOTE *1*IO-TYPES-COMPATIBLE) (QUOTE (MAIN-EVENT IO-TYPES-COMPATIBLE))) (PUT1-LST (QUOTE IO-TYPES-COMPATIBLE) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-TYPES-COMPATIBLE 4099 NIL NIL NIL NIL)) TOTALP-LST ((IO-TYPES-COMPATIBLE . T)) SDEFN (LAMBDA (NAME IN-TYPE OUT-TYPE T-WIRE-INS) (IF (UNKNOWNP IN-TYPE) (UNKNOWNP OUT-TYPE) (IF (UNKNOWNP OUT-TYPE) (QUOTE *1*FALSE) (IF (IO-OUTP NAME) (IF (TRI-STATE-TYPEP OUT-TYPE) (IF (SUBTYPE OUT-TYPE IN-TYPE) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IF (MEMBER NAME T-WIRE-INS) (IF (TRI-STATE-TYPEP IN-TYPE) (IF (TYPES-COMPATIBLEP IN-TYPE OUT-TYPE) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IF (SUBTYPE OUT-TYPE IN-TYPE) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE))))))) LISP-CODE *1*IO-TYPES-COMPATIBLE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*IO-TYPES-COMPATIBLE) IMMEDIATE-DEPENDENTS0 (COMPOSE-TYPE IO-TYPES-COMPATIBLE-OFF) EVENT (DEFN IO-TYPES-COMPATIBLE (NAME IN-TYPE OUT-TYPE T-WIRE-INS) (IF (UNKNOWNP IN-TYPE) (UNKNOWNP OUT-TYPE) (IF (UNKNOWNP OUT-TYPE) (UNKNOWNP IN-TYPE) (IF (IO-OUTP NAME) (IF (AND (TRI-STATE-TYPEP OUT-TYPE) (SUBTYPE OUT-TYPE IN-TYPE)) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IF (MEMBER NAME T-WIRE-INS) (IF (AND (TRI-STATE-TYPEP IN-TYPE) (TYPES-COMPATIBLEP IN-TYPE OUT-TYPE)) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE)) (IF (SUBTYPE OUT-TYPE IN-TYPE) (QUOTE *1*TRUE) (IO-TYPE-ERROR NAME IN-TYPE OUT-TYPE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPES-COMPATIBLEP . IO-TYPES-COMPATIBLE) (IMMEDIATE-DEPENDENTS0 IO-TYPE-ERROR . IO-TYPES-COMPATIBLE) (IMMEDIATE-DEPENDENTS0 SUBTYPE . IO-TYPES-COMPATIBLE) (IMMEDIATE-DEPENDENTS0 TRI-STATE-TYPEP . IO-TYPES-COMPATIBLE) (IMMEDIATE-DEPENDENTS0 IO-OUT . IO-TYPES-COMPATIBLE) (IMMEDIATE-DEPENDENTS0 UNKNOWN . IO-TYPES-COMPATIBLE) (DCELL . *1*IO-TYPES-COMPATIBLE))))) (PUT1-LST (QUOTE IO-TYPE-ERROR-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE IO-TYPE-ERROR-OFF IO-TYPE-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-TYPE-ERROR . IO-TYPE-ERROR-OFF) (DISABLED-LEMMAS NIL IO-TYPE-ERROR IO-TYPE-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*IO-TYPE-ERROR) (QUOTE (MAIN-EVENT IO-TYPE-ERROR))) (PUT1-LST (QUOTE IO-TYPE-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-TYPE-ERROR 4096 NIL NIL NIL)) TOTALP-LST ((IO-TYPE-ERROR . T)) SDEFN (LAMBDA (NAME IN-TYPE OUT-TYPE) (IF (IO-OUTP NAME) (PRED-ERROR (CONS (QUOTE IO-SIGNAL) (CONS (UNMARK-IO-OUT NAME) (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS IN-TYPE (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS OUT-TYPE (QUOTE NIL))) (QUOTE NIL)))) (PRED-ERROR (CONS (QUOTE SIGNAL) (CONS (UNMARK-IO-OUT NAME) (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS IN-TYPE (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS OUT-TYPE (QUOTE NIL))) (QUOTE NIL)))))) LISP-CODE *1*IO-TYPE-ERROR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*IO-TYPE-ERROR) IMMEDIATE-DEPENDENTS0 (IO-TYPES-COMPATIBLE IO-TYPE-ERROR-OFF) EVENT (DEFN IO-TYPE-ERROR (NAME IN-TYPE OUT-TYPE) (PRED-ERROR (CONS (IF (IO-OUTP NAME) (QUOTE IO-SIGNAL) (QUOTE SIGNAL)) (CONS (UNMARK-IO-OUT NAME) (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS IN-TYPE (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS OUT-TYPE (QUOTE NIL))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . IO-TYPE-ERROR) (IMMEDIATE-DEPENDENTS0 IO-OUT . IO-TYPE-ERROR) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . IO-TYPE-ERROR) (DCELL . *1*IO-TYPE-ERROR))))) (PUT1-LST (QUOTE UPDATE-OUT-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UPDATE-OUT-TYPES-OFF UPDATE-OUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OUT-TYPES . UPDATE-OUT-TYPES-OFF) (DISABLED-LEMMAS NIL UPDATE-OUT-TYPES UPDATE-OUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-OUT-TYPES) (QUOTE (MAIN-EVENT UPDATE-OUT-TYPES))) (PUT1-LST (QUOTE UPDATE-OUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-OUT-TYPES 16 T NIL NIL NIL)) TOTALP-LST ((UPDATE-OUT-TYPES . T)) SDEFN (LAMBDA (OUT-TYPES O-OUTS O-FN-PROPS IN-MAP) (ADD-OUT-TYPES O-OUTS (VALUE (QUOTE OUTPUT-TYPES) O-FN-PROPS) IN-MAP OUT-TYPES)) LISP-CODE *1*UPDATE-OUT-TYPES SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*UPDATE-OUT-TYPES) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-OUT-TYPES-OFF) EVENT (DEFN UPDATE-OUT-TYPES (OUT-TYPES O-OUTS O-FN-PROPS IN-MAP) (ADD-OUT-TYPES O-OUTS (VALUE (QUOTE OUTPUT-TYPES) O-FN-PROPS) IN-MAP OUT-TYPES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-OUT-TYPES) (IMMEDIATE-DEPENDENTS0 ADD-OUT-TYPES . UPDATE-OUT-TYPES) (DCELL . *1*UPDATE-OUT-TYPES))))) (PUT1-LST (QUOTE ADD-OUT-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-OUT-TYPES-OFF ADD-OUT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-OUT-TYPES . ADD-OUT-TYPES-OFF) (DISABLED-LEMMAS NIL ADD-OUT-TYPES ADD-OUT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-OUT-TYPES) (QUOTE (MAIN-EVENT ADD-OUT-TYPES))) (PUT1-LST (QUOTE ADD-OUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-OUT-TYPES 16 NIL NIL NIL T)) TOTALP-LST ((ADD-OUT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OUTPUTS TYPES ARG-MAP TYPE-MAP) (IF (LISTP OUTPUTS) (ADD-OUT-TYPES (CDR OUTPUTS) (CDR TYPES) ARG-MAP (ADD-OUT-TYPE (CAR OUTPUTS) (CAR TYPES) ARG-MAP TYPE-MAP)) TYPE-MAP)) LISP-CODE *1*ADD-OUT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP OUTPUTS)) (((CDR OUTPUTS) (CDR TYPES) ARG-MAP (ADD-OUT-TYPE (CAR OUTPUTS) (CAR TYPES) ARG-MAP TYPE-MAP)))) (TESTS-AND-CASES ((NOT (LISTP OUTPUTS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (OUTPUTS) (COUNT OUTPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-OUT-TYPES) IMMEDIATE-DEPENDENTS0 (UPDATE-OUT-TYPES ADD-OUT-TYPES-OFF) EVENT (DEFN ADD-OUT-TYPES (OUTPUTS TYPES ARG-MAP TYPE-MAP) (IF (LISTP OUTPUTS) (ADD-OUT-TYPES (CDR OUTPUTS) (CDR TYPES) ARG-MAP (ADD-OUT-TYPE (CAR OUTPUTS) (CAR TYPES) ARG-MAP TYPE-MAP)) TYPE-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-OUT-TYPE . ADD-OUT-TYPES) (DCELL . *1*ADD-OUT-TYPES))))) (PUT1-LST (QUOTE ADD-OUT-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-OUT-TYPE-OFF ADD-OUT-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-OUT-TYPE . ADD-OUT-TYPE-OFF) (DISABLED-LEMMAS NIL ADD-OUT-TYPE ADD-OUT-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-OUT-TYPE) (QUOTE (MAIN-EVENT ADD-OUT-TYPE))) (PUT1-LST (QUOTE ADD-OUT-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-OUT-TYPE 16 NIL NIL NIL NIL)) TOTALP-LST ((ADD-OUT-TYPE . T)) SDEFN (LAMBDA (NAME TYPE ARG-MAP TYPE-MAP) (IF (LISTP TYPE) (CONS (CONS NAME (COLLECT-VALUE TYPE ARG-MAP)) TYPE-MAP) (CONS (CONS NAME TYPE) TYPE-MAP))) LISP-CODE *1*ADD-OUT-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*ADD-OUT-TYPE) IMMEDIATE-DEPENDENTS0 (ADD-OUT-TYPES ADD-OUT-TYPE-OFF) EVENT (DEFN ADD-OUT-TYPE (NAME TYPE ARG-MAP TYPE-MAP) (CONS (CONS NAME (IF (LISTP TYPE) (COLLECT-VALUE TYPE ARG-MAP) TYPE)) TYPE-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . ADD-OUT-TYPE) (DCELL . *1*ADD-OUT-TYPE))))) (PUT1-LST (QUOTE UPDATE-IN-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UPDATE-IN-TYPES-OFF UPDATE-IN-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-IN-TYPES . UPDATE-IN-TYPES-OFF) (DISABLED-LEMMAS NIL UPDATE-IN-TYPES UPDATE-IN-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-IN-TYPES) (QUOTE (MAIN-EVENT UPDATE-IN-TYPES))) (PUT1-LST (QUOTE UPDATE-IN-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-IN-TYPES 16 T NIL NIL)) TOTALP-LST ((UPDATE-IN-TYPES . T)) SDEFN (LAMBDA (IN-TYPES O-INS O-FN-PROPS) (ADD-IN-TYPES O-INS (VALUE (QUOTE INPUT-TYPES) O-FN-PROPS) IN-TYPES)) LISP-CODE *1*UPDATE-IN-TYPES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*UPDATE-IN-TYPES) IMMEDIATE-DEPENDENTS0 (UPDATE-OPROP-BINDING UPDATE-IN-TYPES-OFF) EVENT (DEFN UPDATE-IN-TYPES (IN-TYPES O-INS O-FN-PROPS) (ADD-IN-TYPES O-INS (VALUE (QUOTE INPUT-TYPES) O-FN-PROPS) IN-TYPES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-IN-TYPES) (IMMEDIATE-DEPENDENTS0 ADD-IN-TYPES . UPDATE-IN-TYPES) (DCELL . *1*UPDATE-IN-TYPES))))) (PUT1-LST (QUOTE ADD-IN-TYPES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-IN-TYPES-OFF ADD-IN-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-IN-TYPES . ADD-IN-TYPES-OFF) (DISABLED-LEMMAS NIL ADD-IN-TYPES ADD-IN-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-IN-TYPES) (QUOTE (MAIN-EVENT ADD-IN-TYPES))) (PUT1-LST (QUOTE ADD-IN-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-IN-TYPES 16 NIL NIL T)) TOTALP-LST ((ADD-IN-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (INPUTS TYPES TYPE-MAP) (IF (LISTP INPUTS) (ADD-IN-TYPES (CDR INPUTS) (CDR TYPES) (ADD-IN-TYPE (CAR INPUTS) (CAR TYPES) TYPE-MAP)) TYPE-MAP)) LISP-CODE *1*ADD-IN-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP INPUTS)) (((CDR INPUTS) (CDR TYPES) (ADD-IN-TYPE (CAR INPUTS) (CAR TYPES) TYPE-MAP)))) (TESTS-AND-CASES ((NOT (LISTP INPUTS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (INPUTS) (COUNT INPUTS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-IN-TYPES) IMMEDIATE-DEPENDENTS0 (UPDATE-IN-TYPES ADD-IN-TYPES-OFF) EVENT (DEFN ADD-IN-TYPES (INPUTS TYPES TYPE-MAP) (IF (LISTP INPUTS) (ADD-IN-TYPES (CDR INPUTS) (CDR TYPES) (ADD-IN-TYPE (CAR INPUTS) (CAR TYPES) TYPE-MAP)) TYPE-MAP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-IN-TYPE . ADD-IN-TYPES) (DCELL . *1*ADD-IN-TYPES))))) (PUT1-LST (QUOTE ADD-IN-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ADD-IN-TYPE-OFF ADD-IN-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-IN-TYPE . ADD-IN-TYPE-OFF) (DISABLED-LEMMAS NIL ADD-IN-TYPE ADD-IN-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-IN-TYPE) (QUOTE (MAIN-EVENT ADD-IN-TYPE))) (PUT1-LST (QUOTE ADD-IN-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-IN-TYPE 16 NIL NIL T)) TOTALP-LST ((ADD-IN-TYPE . T)) SDEFN (LAMBDA (NAME TYPE TYPE-MAP) (IF (EQUAL TYPE (QUOTE FREE)) TYPE-MAP (IF (BOUNDP (UNMARK-IO-OUT NAME) TYPE-MAP) (IF (UNKNOWNP (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP)) TYPE-MAP (IF (SUBTYPE (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP) TYPE) TYPE-MAP (IF (UNKNOWNP TYPE) (CONS (CONS (UNMARK-IO-OUT NAME) TYPE) (UNBIND (UNMARK-IO-OUT NAME) TYPE-MAP)) (IF (SUBTYPE TYPE (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP)) (CONS (CONS (UNMARK-IO-OUT NAME) TYPE) (UNBIND (UNMARK-IO-OUT NAME) TYPE-MAP)) (CONS (PRED-ERROR (CONS (QUOTE SIGNAL) (CONS (UNMARK-IO-OUT NAME) (QUOTE NIL))) (CONS (CONS (QUOTE OLD-TYPE) (CONS (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP) (QUOTE NIL))) (CONS (CONS (QUOTE NEW-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (CONS (CONS (UNMARK-IO-OUT NAME) (QUOTE (*1*QUOTE UNKNOWN))) (UNBIND (UNMARK-IO-OUT NAME) TYPE-MAP))))))) (CONS (CONS (UNMARK-IO-OUT NAME) TYPE) TYPE-MAP)))) LISP-CODE *1*ADD-IN-TYPE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*ADD-IN-TYPE) IMMEDIATE-DEPENDENTS0 (TRANSFER-IN-TYPE ADD-IN-TYPES ADD-IN-TYPE-OFF) EVENT (DEFN ADD-IN-TYPE (NAME TYPE TYPE-MAP) (IF (EQUAL TYPE (QUOTE FREE)) TYPE-MAP (IF (BOUNDP (UNMARK-IO-OUT NAME) TYPE-MAP) (IF (OR (UNKNOWNP (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP)) (SUBTYPE (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP) TYPE)) TYPE-MAP (IF (OR (UNKNOWNP TYPE) (SUBTYPE TYPE (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP))) (CONS (CONS (UNMARK-IO-OUT NAME) TYPE) (UNBIND (UNMARK-IO-OUT NAME) TYPE-MAP)) (CONS (PRED-ERROR (CONS (QUOTE SIGNAL) (CONS (UNMARK-IO-OUT NAME) (QUOTE NIL))) (CONS (CONS (QUOTE OLD-TYPE) (CONS (VALUE (UNMARK-IO-OUT NAME) TYPE-MAP) (QUOTE NIL))) (CONS (CONS (QUOTE NEW-TYPE) (CONS TYPE (QUOTE NIL))) (QUOTE NIL)))) (CONS (CONS (UNMARK-IO-OUT NAME) (QUOTE (*1*QUOTE UNKNOWN))) (UNBIND (UNMARK-IO-OUT NAME) TYPE-MAP))))) (CONS (CONS (UNMARK-IO-OUT NAME) TYPE) TYPE-MAP)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 UNBIND . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 SUBTYPE . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 VALUE . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . ADD-IN-TYPE) (IMMEDIATE-DEPENDENTS0 BOUNDP . ADD-IN-TYPE) (DCELL . *1*ADD-IN-TYPE))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-OUT-TYPES) (QUOTE (MAIN-EVENT INITIAL-OCC-OUT-TYPES))) (PUT1-LST (QUOTE INITIAL-OCC-OUT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-OUT-TYPES 8)) TOTALP-LST ((INITIAL-OCC-OUT-TYPES . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-OUT-TYPES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*INITIAL-OCC-OUT-TYPES) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-OUT-TYPES NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-OUT-TYPES))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-IN-TYPES) (QUOTE (MAIN-EVENT INITIAL-OCC-IN-TYPES))) (PUT1-LST (QUOTE INITIAL-OCC-IN-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-IN-TYPES 8)) TOTALP-LST ((INITIAL-OCC-IN-TYPES . T)) SDEFN (LAMBDA NIL (QUOTE NIL)) LISP-CODE *1*INITIAL-OCC-IN-TYPES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*INITIAL-OCC-IN-TYPES) IMMEDIATE-DEPENDENTS0 (INITIAL-OCC-DATA) EVENT (DEFN INITIAL-OCC-IN-TYPES NIL (QUOTE NIL)) LOCAL-UNDO-TUPLES ((DCELL . *1*INITIAL-OCC-IN-TYPES))))) (PUT1-LST (QUOTE OUTPUT-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE OUTPUT-TYPE-OFF OUTPUT-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-TYPE . OUTPUT-TYPE-OFF) (DISABLED-LEMMAS NIL OUTPUT-TYPE OUTPUT-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*OUTPUT-TYPE) (QUOTE (MAIN-EVENT OUTPUT-TYPE))) (PUT1-LST (QUOTE OUTPUT-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((OUTPUT-TYPE -1 NIL NIL NIL)) TOTALP-LST ((OUTPUT-TYPE . T)) SDEFN (LAMBDA (NAME OUT-MAP IN-MAP) (IF (LISTP (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE))) (TYPE-VALUE (CAR (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE))) IN-MAP (QUOTE *1*FALSE)) (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE)))) LISP-CODE *1*OUTPUT-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*OUTPUT-TYPE) IMMEDIATE-DEPENDENTS0 (COLLECT-OUT-TYPE COMPOSE-TYPE OUTPUT-TYPE-OFF) EVENT (DEFN OUTPUT-TYPE (NAME OUT-MAP IN-MAP) (IF (LISTP (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE))) (TYPE-VALUE (CAR (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE))) IN-MAP (QUOTE *1*FALSE)) (TYPE-VALUE NAME OUT-MAP (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE . OUTPUT-TYPE) (DCELL . *1*OUTPUT-TYPE))))) (PUT1-LST (QUOTE INPUT-TYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE INPUT-TYPE-OFF INPUT-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INPUT-TYPE . INPUT-TYPE-OFF) (DISABLED-LEMMAS NIL INPUT-TYPE INPUT-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*INPUT-TYPE) (QUOTE (MAIN-EVENT INPUT-TYPE))) (PUT1-LST (QUOTE INPUT-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((INPUT-TYPE -1 NIL NIL)) TOTALP-LST ((INPUT-TYPE . T)) SDEFN (LAMBDA (NAME ALIST) (TYPE-VALUE (UNMARK-IO-OUT NAME) ALIST (QUOTE *1*TRUE))) LISP-CODE *1*INPUT-TYPE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*INPUT-TYPE) IMMEDIATE-DEPENDENTS0 (COMPOSE-TYPE TRANSFER-IN-TYPE INPUT-TYPE-OFF) EVENT (DEFN INPUT-TYPE (NAME ALIST) (TYPE-VALUE (UNMARK-IO-OUT NAME) ALIST (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . INPUT-TYPE) (IMMEDIATE-DEPENDENTS0 TYPE-VALUE . INPUT-TYPE) (DCELL . *1*INPUT-TYPE))))) (PUT1-LST (QUOTE TYPE-VALUE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TYPE-VALUE-OFF TYPE-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE . TYPE-VALUE-OFF) (DISABLED-LEMMAS NIL TYPE-VALUE TYPE-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-VALUE) (QUOTE (MAIN-EVENT TYPE-VALUE))) (PUT1-LST (QUOTE TYPE-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-VALUE -1 NIL NIL NIL)) TOTALP-LST ((TYPE-VALUE . T)) SDEFN (LAMBDA (N ALIST FREE) (TYPE-VALUE0 N ALIST FREE (QUOTE NIL))) LISP-CODE *1*TYPE-VALUE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*TYPE-VALUE) IMMEDIATE-DEPENDENTS0 (COLLECT-IN-TYPES OUTPUT-TYPE INPUT-TYPE TYPE-VALUE-OFF) EVENT (DEFN TYPE-VALUE (N ALIST FREE) (TYPE-VALUE0 N ALIST FREE (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE0 . TYPE-VALUE) (DCELL . *1*TYPE-VALUE))))) (PUT1-LST (QUOTE TYPE-VALUE0-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TYPE-VALUE0-OFF TYPE-VALUE0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE0 . TYPE-VALUE0-OFF) (DISABLED-LEMMAS NIL TYPE-VALUE0 TYPE-VALUE0-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-VALUE0) (QUOTE (MAIN-EVENT TYPE-VALUE0))) (PUT1-LST (QUOTE TYPE-VALUE0) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-VALUE0 -1 NIL NIL NIL NIL)) TOTALP-LST ((TYPE-VALUE0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N ALIST FREE USED-NAMES) (IF (MEMBER N USED-NAMES) (IF FREE (QUOTE FREE) (CONS N (QUOTE NIL))) (IF (BOUNDP N ALIST) (IF (LISTP (VALUE N ALIST)) (TYPE-VALUE0 (CAR (VALUE N ALIST)) ALIST FREE (CONS N USED-NAMES)) (VALUE N ALIST)) (IF FREE (QUOTE FREE) (CONS N (QUOTE NIL)))))) LISP-CODE *1*TYPE-VALUE0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (MEMBER N USED-NAMES) (NOT (BOUNDP N ALIST))) FREE) NIL) (TESTS-AND-CASES ((OR (MEMBER N USED-NAMES) (NOT (BOUNDP N ALIST))) (NOT FREE)) NIL) (TESTS-AND-CASES ((NOT (OR (MEMBER N USED-NAMES) (NOT (BOUNDP N ALIST)))) (LISTP (VALUE N ALIST))) (((CAR (VALUE N ALIST)) ALIST FREE (CONS N USED-NAMES)))) (TESTS-AND-CASES ((NOT (OR (MEMBER N USED-NAMES) (NOT (BOUNDP N ALIST)))) (NOT (LISTP (VALUE N ALIST)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (ALIST USED-NAMES) (COUNT (UNBIND-LIST USED-NAMES ALIST)) LESSP (ZERO LESSP-UNBIND-LIST-COUNT NOT OR))) IDATE 1000402194008 CONTROLLER-POCKETS (10) SATELLITES (*1*TYPE-VALUE0) IMMEDIATE-DEPENDENTS0 (TYPE-VALUE TYPE-VALUE0-OFF) EVENT (DEFN TYPE-VALUE0 (N ALIST FREE USED-NAMES) (IF (OR (MEMBER N USED-NAMES) (NOT (BOUNDP N ALIST))) (IF FREE (QUOTE FREE) (CONS N (QUOTE NIL))) (IF (LISTP (VALUE N ALIST)) (TYPE-VALUE0 (CAR (VALUE N ALIST)) ALIST FREE (CONS N USED-NAMES)) (VALUE N ALIST))) ((LESSP (COUNT (UNBIND-LIST USED-NAMES ALIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . TYPE-VALUE0) (IMMEDIATE-DEPENDENTS0 BOUNDP . TYPE-VALUE0) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . TYPE-VALUE0) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . TYPE-VALUE0) (DCELL . *1*TYPE-VALUE0))))) (PUT1-LST (QUOTE TRI-STATE-TYPEP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TRI-STATE-TYPEP-OFF TRI-STATE-TYPEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRI-STATE-TYPEP . TRI-STATE-TYPEP-OFF) (DISABLED-LEMMAS NIL TRI-STATE-TYPEP TRI-STATE-TYPEP-OFF . T))))) (PUT1-LST (QUOTE *1*TRI-STATE-TYPEP) (QUOTE (MAIN-EVENT TRI-STATE-TYPEP))) (PUT1-LST (QUOTE TRI-STATE-TYPEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TRI-STATE-TYPEP 3 NIL)) TOTALP-LST ((TRI-STATE-TYPEP . T)) SDEFN (LAMBDA (TYPE) (MEMBER TYPE (QUOTE (TRI-STATE TTL-TRI-STATE)))) LISP-CODE *1*TRI-STATE-TYPEP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*TRI-STATE-TYPEP) IMMEDIATE-DEPENDENTS0 (POUT-TYPE-OK PIN-TYPE-OK IO-TYPES-COMPATIBLE TRI-STATE-TYPEP-OFF) EVENT (DEFN TRI-STATE-TYPEP (TYPE) (MEMBER TYPE (QUOTE (TRI-STATE TTL-TRI-STATE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*TRI-STATE-TYPEP))))) (PUT1-LST (QUOTE TYPES-COMPATIBLEP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE TYPES-COMPATIBLEP-OFF TYPES-COMPATIBLEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPES-COMPATIBLEP . TYPES-COMPATIBLEP-OFF) (DISABLED-LEMMAS NIL TYPES-COMPATIBLEP TYPES-COMPATIBLEP-OFF . T))))) (PUT1-LST (QUOTE *1*TYPES-COMPATIBLEP) (QUOTE (MAIN-EVENT TYPES-COMPATIBLEP))) (PUT1-LST (QUOTE TYPES-COMPATIBLEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPES-COMPATIBLEP 3 NIL NIL)) TOTALP-LST ((TYPES-COMPATIBLEP . T)) SDEFN (LAMBDA (T1 T2) (IF (EQUAL T1 T2) (QUOTE *1*TRUE) (IF (EQUAL T1 (QUOTE FREE)) (QUOTE *1*TRUE) (IF (EQUAL T2 (QUOTE FREE)) (QUOTE *1*TRUE) (IF (EQUAL T1 (QUOTE TRI-STATE)) (EQUAL T2 (QUOTE TTL-TRI-STATE)) (IF (EQUAL T2 (QUOTE TRI-STATE)) (EQUAL T1 (QUOTE TTL-TRI-STATE)) (QUOTE *1*FALSE))))))) LISP-CODE *1*TYPES-COMPATIBLEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*TYPES-COMPATIBLEP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-MATCHP IO-TYPES-COMPATIBLE TYPES-COMPATIBLEP-OFF) EVENT (DEFN TYPES-COMPATIBLEP (T1 T2) (IF (EQUAL T1 T2) (QUOTE *1*TRUE) (IF (OR (EQUAL T1 (QUOTE FREE)) (EQUAL T2 (QUOTE FREE))) (QUOTE *1*TRUE) (IF (EQUAL T1 (QUOTE TRI-STATE)) (EQUAL T2 (QUOTE TTL-TRI-STATE)) (IF (EQUAL T2 (QUOTE TRI-STATE)) (EQUAL T1 (QUOTE TTL-TRI-STATE)) (QUOTE *1*FALSE)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*TYPES-COMPATIBLEP))))) (PUT1-LST (QUOTE SUBTYPE-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE SUBTYPE-OFF SUBTYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTYPE . SUBTYPE-OFF) (DISABLED-LEMMAS NIL SUBTYPE SUBTYPE-OFF . T))))) (PUT1-LST (QUOTE *1*SUBTYPE) (QUOTE (MAIN-EVENT SUBTYPE))) (PUT1-LST (QUOTE SUBTYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBTYPE 3 NIL NIL)) TOTALP-LST ((SUBTYPE . T)) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE FREE)) (QUOTE *1*TRUE) (IF (EQUAL X (QUOTE BOOLP)) (MEMBER Y (QUOTE (BOOLP TRI-STATE TTL-TRI-STATE TTL))) (IF (EQUAL X (QUOTE TTL-TRI-STATE)) (MEMBER Y (QUOTE (TRI-STATE TTL-TRI-STATE))) (EQUAL X Y))))) LISP-CODE *1*SUBTYPE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*SUBTYPE) IMMEDIATE-DEPENDENTS0 (IO-TYPES-COMPATIBLE ADD-IN-TYPE SUBTYPE-OFF) EVENT (DEFN SUBTYPE (X Y) (IF (EQUAL Y (QUOTE FREE)) (QUOTE *1*TRUE) (IF (EQUAL X (QUOTE BOOLP)) (MEMBER Y (QUOTE (BOOLP TRI-STATE TTL-TRI-STATE TTL))) (IF (EQUAL X (QUOTE TTL-TRI-STATE)) (MEMBER Y (QUOTE (TRI-STATE TTL-TRI-STATE))) (EQUAL X Y))))) LOCAL-UNDO-TUPLES ((DCELL . *1*SUBTYPE))))) (PUT1-LST (QUOTE EXTERNALIZE-PARENTS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE EXTERNALIZE-PARENTS-OFF EXTERNALIZE-PARENTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTERNALIZE-PARENTS . EXTERNALIZE-PARENTS-OFF) (DISABLED-LEMMAS NIL EXTERNALIZE-PARENTS EXTERNALIZE-PARENTS-OFF . T))))) (PUT1-LST (QUOTE *1*EXTERNALIZE-PARENTS) (QUOTE (MAIN-EVENT EXTERNALIZE-PARENTS))) (PUT1-LST (QUOTE EXTERNALIZE-PARENTS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTERNALIZE-PARENTS 16 NIL T NIL NIL)) TOTALP-LST ((EXTERNALIZE-PARENTS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (NAMES ALIST INPUTS OUTPUTS) (IF (LISTP NAMES) (IF (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) INPUTS) (EXTERNALIZE-PARENTS (CDR NAMES) ALIST INPUTS OUTPUTS) (IF (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) OUTPUTS) (EXTERNALIZE-PARENTS (CDR NAMES) ALIST INPUTS OUTPUTS) (EXTERNALIZE-PARENTS (CDR NAMES) (CONS (CONS (PARENT-SYNONYM (CAR NAMES) ALIST) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE-OR-UNKNOWN (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST)) (UNBIND (CAR NAMES) (UNBIND (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST)))) INPUTS OUTPUTS))) ALIST)) LISP-CODE *1*EXTERNALIZE-PARENTS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) (IF (OR (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) INPUTS) (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) OUTPUTS)) ALIST (CONS (CONS (PARENT-SYNONYM (CAR NAMES) ALIST) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE-OR-UNKNOWN (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST)) (UNBIND (CAR NAMES) (UNBIND (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST))))) INPUTS OUTPUTS))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*EXTERNALIZE-PARENTS) IMMEDIATE-DEPENDENTS0 (COLLECT-TRI-STATE-DATA COLLECT-DELAYS COLLECT-DRIVES EXTERNALIZE-PARENTS-OFF) EVENT (DEFN EXTERNALIZE-PARENTS (NAMES ALIST INPUTS OUTPUTS) (IF (LISTP NAMES) (EXTERNALIZE-PARENTS (CDR NAMES) (IF (OR (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) INPUTS) (MEMBER (PARENT-SYNONYM (CAR NAMES) ALIST) OUTPUTS)) ALIST (CONS (CONS (PARENT-SYNONYM (CAR NAMES) ALIST) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE-OR-UNKNOWN (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST)) (UNBIND (CAR NAMES) (UNBIND (PARENT-SYNONYM (CAR NAMES) ALIST) ALIST))))) INPUTS OUTPUTS) ALIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . EXTERNALIZE-PARENTS) (IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . EXTERNALIZE-PARENTS) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . EXTERNALIZE-PARENTS) (DCELL . *1*EXTERNALIZE-PARENTS))))) (PUT1-LST (QUOTE EXTRACT-NAMES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE EXTRACT-NAMES-OFF EXTRACT-NAMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTRACT-NAMES . EXTRACT-NAMES-OFF) (DISABLED-LEMMAS NIL EXTRACT-NAMES EXTRACT-NAMES-OFF . T))))) (PUT1-LST (QUOTE *1*EXTRACT-NAMES) (QUOTE (MAIN-EVENT EXTRACT-NAMES))) (PUT1-LST (QUOTE EXTRACT-NAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTRACT-NAMES 24 NIL)) TOTALP-LST ((EXTRACT-NAMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (SIGNAL-NAMEP (CAR LST)) (INSERT (CAR LST) (EXTRACT-NAMES (CDR LST))) (EXTRACT-NAMES (CDR LST))) (QUOTE NIL))) LISP-CODE *1*EXTRACT-NAMES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (SIGNAL-NAMEP (CAR LST))) (((CDR LST)))) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (SIGNAL-NAMEP (CAR LST)))) (((CDR LST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*EXTRACT-NAMES) IMMEDIATE-DEPENDENTS0 (MAKE-DRIVE-MIN ADD-NET-MIN-DRIVE EXTRACT-NAMES-OFF) EVENT (DEFN EXTRACT-NAMES (LST) (IF (NLISTP LST) (QUOTE NIL) (IF (SIGNAL-NAMEP (CAR LST)) (INSERT (CAR LST) (EXTRACT-NAMES (CDR LST))) (EXTRACT-NAMES (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . EXTRACT-NAMES) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . EXTRACT-NAMES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . EXTRACT-NAMES) (DCELL . *1*EXTRACT-NAMES))))) (PUT1-LST (QUOTE PARENT-SYNONYMS-LIST-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PARENT-SYNONYMS-LIST-OFF PARENT-SYNONYMS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYMS-LIST . PARENT-SYNONYMS-LIST-OFF) (DISABLED-LEMMAS NIL PARENT-SYNONYMS-LIST PARENT-SYNONYMS-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYMS-LIST) (QUOTE (MAIN-EVENT PARENT-SYNONYMS-LIST))) (PUT1-LST (QUOTE PARENT-SYNONYMS-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PARENT-SYNONYMS-LIST 16 T NIL)) TOTALP-LST ((PARENT-SYNONYMS-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LST SLIST) (IF (LISTP LST) (CONS (PARENT-SYNONYM (CAR LST) SLIST) (PARENT-SYNONYMS-LIST (CDR LST) SLIST)) LST)) LISP-CODE *1*PARENT-SYNONYMS-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) (((CDR LST) SLIST))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*PARENT-SYNONYMS-LIST) IMMEDIATE-DEPENDENTS0 (COMPOSE-TRI-STATE-DATA PARENT-SYNONYMS-LIST-OFF) EVENT (DEFN PARENT-SYNONYMS-LIST (LST SLIST) (IF (LISTP LST) (CONS (PARENT-SYNONYM (CAR LST) SLIST) (PARENT-SYNONYMS-LIST (CDR LST) SLIST)) LST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . PARENT-SYNONYMS-LIST) (DCELL . *1*PARENT-SYNONYMS-LIST))))) (PUT1-LST (QUOTE PARENT-SYNONYM-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PARENT-SYNONYM-OFF PARENT-SYNONYM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM . PARENT-SYNONYM-OFF) (DISABLED-LEMMAS NIL PARENT-SYNONYM PARENT-SYNONYM-OFF . T))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM) (QUOTE (MAIN-EVENT PARENT-SYNONYM))) (PUT1-LST (QUOTE PARENT-SYNONYM) (QUOTE (TYPE-PRESCRIPTION-LST ((PARENT-SYNONYM -1 T NIL)) TOTALP-LST ((PARENT-SYNONYM . T)) SDEFN (LAMBDA (NAME SLIST) (PARENT-SYNONYM0 NAME SLIST (QUOTE NIL))) LISP-CODE *1*PARENT-SYNONYM SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*PARENT-SYNONYM) IMMEDIATE-DEPENDENTS0 (COLLECT-SYNONYMS IO-SIGNAL-RENAMES OUTPUT-DELAY INPUT-DELAY0 LOCAL-DELAY COLLECT-DRIVES-0 LOCAL-DRIVE EXTERNALIZE-PARENTS PARENT-SYNONYMS-LIST PARENT-SYNONYM-OFF) EVENT (DEFN PARENT-SYNONYM (NAME SLIST) (PARENT-SYNONYM0 NAME SLIST (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM0 . PARENT-SYNONYM) (DCELL . *1*PARENT-SYNONYM))))) (PUT1-LST (QUOTE PARENT-SYNONYM0-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PARENT-SYNONYM0-OFF PARENT-SYNONYM0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM0 . PARENT-SYNONYM0-OFF) (DISABLED-LEMMAS NIL PARENT-SYNONYM0 PARENT-SYNONYM0-OFF . T))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM0) (QUOTE (MAIN-EVENT PARENT-SYNONYM0))) (PUT1-LST (QUOTE PARENT-SYNONYM0) (QUOTE (TYPE-PRESCRIPTION-LST ((PARENT-SYNONYM0 -1 T NIL NIL)) TOTALP-LST ((PARENT-SYNONYM0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAME SLIST USED-NAMES) (IF (MEMBER NAME USED-NAMES) NAME (IF (BOUNDP NAME SLIST) (IF (SIGNAL-NAMEP (VALUE NAME SLIST)) (PARENT-SYNONYM0 (VALUE NAME SLIST) SLIST (CONS NAME USED-NAMES)) NAME) NAME))) LISP-CODE *1*PARENT-SYNONYM0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((MEMBER NAME USED-NAMES)) NIL) (TESTS-AND-CASES ((NOT (MEMBER NAME USED-NAMES)) (BOUNDP NAME SLIST) (SIGNAL-NAMEP (VALUE NAME SLIST))) (((VALUE NAME SLIST) SLIST (CONS NAME USED-NAMES)))) (TESTS-AND-CASES ((NOT (MEMBER NAME USED-NAMES)) (BOUNDP NAME SLIST) (NOT (SIGNAL-NAMEP (VALUE NAME SLIST)))) NIL) (TESTS-AND-CASES ((NOT (MEMBER NAME USED-NAMES)) (NOT (BOUNDP NAME SLIST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (SLIST USED-NAMES) (COUNT (UNBIND-LIST USED-NAMES SLIST)) LESSP (ZERO LESSP-UNBIND-LIST-COUNT))) IDATE 1000402194008 CONTROLLER-POCKETS (6) SATELLITES (*1*PARENT-SYNONYM0) IMMEDIATE-DEPENDENTS0 (PARENT-SYNONYM PARENT-SYNONYM0-OFF) EVENT (DEFN PARENT-SYNONYM0 (NAME SLIST USED-NAMES) (IF (MEMBER NAME USED-NAMES) NAME (IF (BOUNDP NAME SLIST) (IF (SIGNAL-NAMEP (VALUE NAME SLIST)) (PARENT-SYNONYM0 (VALUE NAME SLIST) SLIST (CONS NAME USED-NAMES)) NAME) NAME)) ((LESSP (COUNT (UNBIND-LIST USED-NAMES SLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . PARENT-SYNONYM0) (IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . PARENT-SYNONYM0) (IMMEDIATE-DEPENDENTS0 BOUNDP . PARENT-SYNONYM0) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . PARENT-SYNONYM0) (IMMEDIATE-DEPENDENTS0 LESSP-UNBIND-LIST-COUNT . PARENT-SYNONYM0) (DCELL . *1*PARENT-SYNONYM0))))) (PUT1-LST (QUOTE SIGNAL-NAMEP-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE SIGNAL-NAMEP-OFF SIGNAL-NAMEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIGNAL-NAMEP . SIGNAL-NAMEP-OFF) (DISABLED-LEMMAS NIL SIGNAL-NAMEP SIGNAL-NAMEP-OFF . T))))) (PUT1-LST (QUOTE *1*SIGNAL-NAMEP) (QUOTE (MAIN-EVENT SIGNAL-NAMEP))) (PUT1-LST (QUOTE SIGNAL-NAMEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SIGNAL-NAMEP 3 NIL)) TOTALP-LST ((SIGNAL-NAMEP . T)) SDEFN (LAMBDA (X) (IF (LITATOM X) (QUOTE *1*TRUE) (IF (INDEXP X) (QUOTE *1*TRUE) (IO-OUTP X)))) LISP-CODE *1*SIGNAL-NAMEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*SIGNAL-NAMEP) IMMEDIATE-DEPENDENTS0 (FIX-DEPENDENT-DRS OUTPUT-DELAY OR-DELAY-ARGS MAKE-DELAY-OR MERGEABLE-INPUT-DELAY-P LOCAL-DELAY COLLECT-DRIVES-0 COLLECT-MIN-ARGS TRANSFER-LOADING LOCAL-DRIVE EXTRACT-NAMES PARENT-SYNONYM0 SIGNAL-NAMEP-OFF) EVENT (DEFN SIGNAL-NAMEP (X) (OR (LITATOM X) (OR (INDEXP X) (IO-OUTP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-OUT . SIGNAL-NAMEP) (IMMEDIATE-DEPENDENTS0 INDEX . SIGNAL-NAMEP) (DCELL . *1*SIGNAL-NAMEP))))) (PUT1-LST (QUOTE COLLECT-VALUE2-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COLLECT-VALUE2-OFF COLLECT-VALUE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE2 . COLLECT-VALUE2-OFF) (DISABLED-LEMMAS NIL COLLECT-VALUE2 COLLECT-VALUE2-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE2) (QUOTE (MAIN-EVENT COLLECT-VALUE2))) (PUT1-LST (QUOTE COLLECT-VALUE2) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-VALUE2 24 NIL NIL NIL)) TOTALP-LST ((COLLECT-VALUE2 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (LST IN-MAP OUT-MAP) (IF (LISTP LST) (CONS (VALUE2 (CAR LST) IN-MAP OUT-MAP) (COLLECT-VALUE2 (CDR LST) IN-MAP OUT-MAP)) (QUOTE NIL))) LISP-CODE *1*COLLECT-VALUE2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) (((CDR LST) IN-MAP OUT-MAP))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-VALUE2) IMMEDIATE-DEPENDENTS0 (UPDATE-TRI-STATE-DATA COLLECT-VALUE2-OFF) EVENT (DEFN COLLECT-VALUE2 (LST IN-MAP OUT-MAP) (IF (LISTP LST) (CONS (VALUE2 (CAR LST) IN-MAP OUT-MAP) (COLLECT-VALUE2 (CDR LST) IN-MAP OUT-MAP)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE2 . COLLECT-VALUE2) (DCELL . *1*COLLECT-VALUE2))))) (PUT1-LST (QUOTE VALUE2-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE VALUE2-OFF VALUE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE2 . VALUE2-OFF) (DISABLED-LEMMAS NIL VALUE2 VALUE2-OFF . T))))) (PUT1-LST (QUOTE *1*VALUE2) (QUOTE (MAIN-EVENT VALUE2))) (PUT1-LST (QUOTE VALUE2) (QUOTE (TYPE-PRESCRIPTION-LST ((VALUE2 -1 NIL NIL NIL)) TOTALP-LST ((VALUE2 . T)) SDEFN (LAMBDA (S IN-MAP OUT-MAP) (IF (BOUNDP S IN-MAP) (VALUE S IN-MAP) (VALUE (UNMARK-IO-OUT S) OUT-MAP))) LISP-CODE *1*VALUE2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*VALUE2) IMMEDIATE-DEPENDENTS0 (ADD-SYNONYMS LOCAL-DELAY LOCAL-DRIVE COLLECT-VALUE2 VALUE2-OFF) EVENT (DEFN VALUE2 (S IN-MAP OUT-MAP) (IF (BOUNDP S IN-MAP) (VALUE S IN-MAP) (VALUE (UNMARK-IO-OUT S) OUT-MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . VALUE2) (IMMEDIATE-DEPENDENTS0 VALUE . VALUE2) (IMMEDIATE-DEPENDENTS0 BOUNDP . VALUE2) (DCELL . *1*VALUE2))))) (PUT1-LST (QUOTE UNMARK-IO-OUTS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UNMARK-IO-OUTS-OFF UNMARK-IO-OUTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUTS . UNMARK-IO-OUTS-OFF) (DISABLED-LEMMAS NIL UNMARK-IO-OUTS UNMARK-IO-OUTS-OFF . T))))) (PUT1-LST (QUOTE *1*UNMARK-IO-OUTS) (QUOTE (MAIN-EVENT UNMARK-IO-OUTS))) (PUT1-LST (QUOTE UNMARK-IO-OUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNMARK-IO-OUTS 16 T)) TOTALP-LST ((UNMARK-IO-OUTS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NAMES) (IF (LISTP NAMES) (IF (EQUAL (UNMARK-IO-OUT (CAR NAMES)) (CAR NAMES)) (IF (EQUAL (UNMARK-IO-OUTS (CDR NAMES)) (CDR NAMES)) NAMES (CONS (UNMARK-IO-OUT (CAR NAMES)) (UNMARK-IO-OUTS (CDR NAMES)))) (CONS (UNMARK-IO-OUT (CAR NAMES)) (UNMARK-IO-OUTS (CDR NAMES)))) NAMES)) LISP-CODE *1*UNMARK-IO-OUTS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES) (AND (EQUAL (UNMARK-IO-OUT (CAR NAMES)) (CAR NAMES)) (EQUAL (UNMARK-IO-OUTS (CDR NAMES)) (CDR NAMES)))) (((CDR NAMES)))) (TESTS-AND-CASES ((LISTP NAMES) (NOT (AND (EQUAL (UNMARK-IO-OUT (CAR NAMES)) (CAR NAMES)) (EQUAL (UNMARK-IO-OUTS (CDR NAMES)) (CDR NAMES))))) (((CDR NAMES)))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*UNMARK-IO-OUTS) IMMEDIATE-DEPENDENTS0 (COLLECT-MODULE-PROP UNMARK-IO-OUTS-OFF) EVENT (DEFN UNMARK-IO-OUTS (NAMES) (IF (LISTP NAMES) (IF (AND (EQUAL (UNMARK-IO-OUT (CAR NAMES)) (CAR NAMES)) (EQUAL (UNMARK-IO-OUTS (CDR NAMES)) (CDR NAMES))) NAMES (CONS (UNMARK-IO-OUT (CAR NAMES)) (UNMARK-IO-OUTS (CDR NAMES)))) NAMES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . UNMARK-IO-OUTS) (DCELL . *1*UNMARK-IO-OUTS))))) (PUT1-LST (QUOTE UNMARK-IO-OUT-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UNMARK-IO-OUT-OFF UNMARK-IO-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNMARK-IO-OUT . UNMARK-IO-OUT-OFF) (DISABLED-LEMMAS NIL UNMARK-IO-OUT UNMARK-IO-OUT-OFF . T))))) (PUT1-LST (QUOTE *1*UNMARK-IO-OUT) (QUOTE (MAIN-EVENT UNMARK-IO-OUT))) (PUT1-LST (QUOTE UNMARK-IO-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((UNMARK-IO-OUT -1 T)) TOTALP-LST ((UNMARK-IO-OUT . T)) SDEFN (LAMBDA (NAME) (IF (IO-OUTP NAME) (IO-OUT-SIGNAL NAME) NAME)) LISP-CODE *1*UNMARK-IO-OUT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*UNMARK-IO-OUT) IMMEDIATE-DEPENDENTS0 (OK-IN-TYPE IO-TYPE-ERROR ADD-IN-TYPE INPUT-TYPE VALUE2 UNMARK-IO-OUTS UNMARK-IO-OUT-OFF) EVENT (DEFN UNMARK-IO-OUT (NAME) (IF (IO-OUTP NAME) (IO-OUT-SIGNAL NAME) NAME)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-OUT . UNMARK-IO-OUT) (DCELL . *1*UNMARK-IO-OUT))))) (PUT1-LST (QUOTE MARK-IO-OUTS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MARK-IO-OUTS-OFF MARK-IO-OUTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS . MARK-IO-OUTS-OFF) (DISABLED-LEMMAS NIL MARK-IO-OUTS MARK-IO-OUTS-OFF . T))))) (PUT1-LST (QUOTE *1*MARK-IO-OUTS) (QUOTE (MAIN-EVENT MARK-IO-OUTS))) (PUT1-LST (QUOTE MARK-IO-OUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MARK-IO-OUTS 24 T NIL)) TOTALP-LST ((MARK-IO-OUTS . T)) SDEFN (LAMBDA (NAMES IO-OUTS) (IF (DISJOINT IO-OUTS NAMES) NAMES (MARK-IO-OUTS-0 NAMES IO-OUTS))) LISP-CODE *1*MARK-IO-OUTS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*MARK-IO-OUTS) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES IO-TYPES OUT-DEPENDS MODULE-DATA COLLECT-OCCURRENCE-DATA MARK-IO-OUTS-OFF) EVENT (DEFN MARK-IO-OUTS (NAMES IO-OUTS) (IF (DISJOINT IO-OUTS NAMES) NAMES (MARK-IO-OUTS-0 NAMES IO-OUTS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS-0 . MARK-IO-OUTS) (IMMEDIATE-DEPENDENTS0 DISJOINT . MARK-IO-OUTS) (DCELL . *1*MARK-IO-OUTS))))) (PUT1-LST (QUOTE MARK-IO-OUTS-0-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MARK-IO-OUTS-0-OFF MARK-IO-OUTS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MARK-IO-OUTS-0 . MARK-IO-OUTS-0-OFF) (DISABLED-LEMMAS NIL MARK-IO-OUTS-0 MARK-IO-OUTS-0-OFF . T))))) (PUT1-LST (QUOTE *1*MARK-IO-OUTS-0) (QUOTE (MAIN-EVENT MARK-IO-OUTS-0))) (PUT1-LST (QUOTE MARK-IO-OUTS-0) (QUOTE (TYPE-PRESCRIPTION-LST ((MARK-IO-OUTS-0 24 NIL NIL)) TOTALP-LST ((MARK-IO-OUTS-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (NAMES IO-OUTS) (IF (LISTP NAMES) (CONS (MARK-IO-OUT (CAR NAMES) IO-OUTS) (MARK-IO-OUTS-0 (CDR NAMES) IO-OUTS)) (QUOTE NIL))) LISP-CODE *1*MARK-IO-OUTS-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES) IO-OUTS))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*MARK-IO-OUTS-0) IMMEDIATE-DEPENDENTS0 (MARK-IO-OUTS MARK-IO-OUTS-0-OFF) EVENT (DEFN MARK-IO-OUTS-0 (NAMES IO-OUTS) (IF (LISTP NAMES) (CONS (MARK-IO-OUT (CAR NAMES) IO-OUTS) (MARK-IO-OUTS-0 (CDR NAMES) IO-OUTS)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MARK-IO-OUT . MARK-IO-OUTS-0) (DCELL . *1*MARK-IO-OUTS-0))))) (PUT1-LST (QUOTE MARK-IO-OUT-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MARK-IO-OUT-OFF MARK-IO-OUT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MARK-IO-OUT . MARK-IO-OUT-OFF) (DISABLED-LEMMAS NIL MARK-IO-OUT MARK-IO-OUT-OFF . T))))) (PUT1-LST (QUOTE *1*MARK-IO-OUT) (QUOTE (MAIN-EVENT MARK-IO-OUT))) (PUT1-LST (QUOTE MARK-IO-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((MARK-IO-OUT 16384 T NIL)) TOTALP-LST ((MARK-IO-OUT . T)) SDEFN (LAMBDA (NAME IO-OUTS) (IF (MEMBER NAME IO-OUTS) (IO-OUT NAME) NAME)) LISP-CODE *1*MARK-IO-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*MARK-IO-OUT) IMMEDIATE-DEPENDENTS0 (MARK-IO-OUTS-0 MARK-IO-OUT-OFF) EVENT (DEFN MARK-IO-OUT (NAME IO-OUTS) (IF (MEMBER NAME IO-OUTS) (IO-OUT NAME) NAME)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-OUT . MARK-IO-OUT) (DCELL . *1*MARK-IO-OUT))))) (PUT1-LST (QUOTE COUNT-IO-OUT) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL-ELIM) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-IO-OUT-SIGNAL) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-EQUAL) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL-LESSEQP) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL-LESSP) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL-NIO-OUTP) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL-IO-OUT) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE *1*IO-OUT) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE *1*IO-OUT-SIGNAL) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-OUT -1 NIL)) LEMMAS ((REWRITE-RULE IO-OUT-SIGNAL-NIO-OUTP ((NOT (IO-OUTP X))) (EQUAL (IO-OUT-SIGNAL X) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE IO-OUT-SIGNAL-IO-OUT NIL (EQUAL (IO-OUT-SIGNAL (IO-OUT IO-OUT-SIGNAL)) IO-OUT-SIGNAL) NIL)) TOTALP-LST ((IO-OUT . T)) LISP-CODE *1*IO-OUT-SIGNAL SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE IO-OUT-SIGNAL-ELIM ((IO-OUTP X)) (EQUAL (IO-OUT (IO-OUT-SIGNAL X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((IO-OUT-SIGNAL X)) MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE *1*IO-OUTP) (QUOTE (MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUTP) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-OUT 3 NIL)) TOTALP-LST ((IO-OUT . T)) LISP-CODE *1*IO-OUTP SUBRP *1*TRUE MAIN-EVENT IO-OUT))) (PUT1-LST (QUOTE IO-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-OUT 16384 NIL)) LEMMAS ((REWRITE-RULE IO-OUT-IO-OUT-SIGNAL NIL (EQUAL (IO-OUT (IO-OUT-SIGNAL X)) (IF (IO-OUTP X) X (QUOTE (*1*QUOTE IO-OUT *1*FALSE)))) NIL)) TOTALP-LST ((IO-OUT . T)) LISP-CODE *1*IO-OUT SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE *1*FALSE))) IDATE 1000402194008 SATELLITES (COUNT-IO-OUT IO-OUT-SIGNAL-ELIM IO-OUT-IO-OUT-SIGNAL IO-OUT-EQUAL IO-OUT-SIGNAL-LESSEQP IO-OUT-SIGNAL-LESSP IO-OUT-SIGNAL-NIO-OUTP IO-OUT-SIGNAL-IO-OUT *1*IO-OUT *1*IO-OUT-SIGNAL IO-OUT-SIGNAL *1*IO-OUTP IO-OUTP) IMMEDIATE-DEPENDENTS0 (IO-SIGNAL-RENAMES OK-IN-TYPE IO-TYPES-COMPATIBLE IO-TYPE-ERROR SIGNAL-NAMEP UNMARK-IO-OUT MARK-IO-OUT) EVENT (ADD-SHELL IO-OUT NIL IO-OUTP ((IO-OUT-SIGNAL (NONE-OF) FALSE))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-IO-OUT) (LEMMAS EQUAL . IO-OUT-EQUAL) (LINEAR-LEMMAS COUNT . IO-OUT-SIGNAL-LESSEQP) (LINEAR-LEMMAS COUNT . IO-OUT-SIGNAL-LESSP) (RECOGNIZER-ALIST NIL IO-OUTP . 16384) (SHELL-POCKETS NIL IO-OUT IO-OUT-SIGNAL) (SHELL-ALIST NIL IO-OUT . 14) (DCELL . *1*IO-OUT) (DCELL . *1*IO-OUT-SIGNAL) (DCELL . *1*IO-OUTP))))) (PUT1-LST (QUOTE COLLECT-VALUE-OR-UNKNOWN-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE COLLECT-VALUE-OR-UNKNOWN-OFF COLLECT-VALUE-OR-UNKNOWN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-OR-UNKNOWN . COLLECT-VALUE-OR-UNKNOWN-OFF) (DISABLED-LEMMAS NIL COLLECT-VALUE-OR-UNKNOWN COLLECT-VALUE-OR-UNKNOWN-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE-OR-UNKNOWN) (QUOTE (MAIN-EVENT COLLECT-VALUE-OR-UNKNOWN))) (PUT1-LST (QUOTE COLLECT-VALUE-OR-UNKNOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-VALUE-OR-UNKNOWN 24 NIL NIL)) TOTALP-LST ((COLLECT-VALUE-OR-UNKNOWN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (KEYS ALIST) (IF (LISTP KEYS) (CONS (VALUE-OR-UNKNOWN (CAR KEYS) ALIST) (COLLECT-VALUE-OR-UNKNOWN (CDR KEYS) ALIST)) (QUOTE NIL))) LISP-CODE *1*COLLECT-VALUE-OR-UNKNOWN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP KEYS)) (((CDR KEYS) ALIST))) (TESTS-AND-CASES ((NOT (LISTP KEYS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (KEYS) (COUNT KEYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-VALUE-OR-UNKNOWN) IMMEDIATE-DEPENDENTS0 (COLLECT-STATE-TYPES COLLECT-VALUE-OR-UNKNOWN-OFF) EVENT (DEFN COLLECT-VALUE-OR-UNKNOWN (KEYS ALIST) (IF (LISTP KEYS) (CONS (VALUE-OR-UNKNOWN (CAR KEYS) ALIST) (COLLECT-VALUE-OR-UNKNOWN (CDR KEYS) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . COLLECT-VALUE-OR-UNKNOWN) (DCELL . *1*COLLECT-VALUE-OR-UNKNOWN))))) (PUT1-LST (QUOTE VALUE-OR-UNKNOWN-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE VALUE-OR-UNKNOWN-OFF VALUE-OR-UNKNOWN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-OR-UNKNOWN . VALUE-OR-UNKNOWN-OFF) (DISABLED-LEMMAS NIL VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN-OFF . T))))) (PUT1-LST (QUOTE *1*VALUE-OR-UNKNOWN) (QUOTE (MAIN-EVENT VALUE-OR-UNKNOWN))) (PUT1-LST (QUOTE VALUE-OR-UNKNOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((VALUE-OR-UNKNOWN -1 NIL NIL)) TOTALP-LST ((VALUE-OR-UNKNOWN . T)) SDEFN (LAMBDA (KEY ALIST) (IF (BOUNDP KEY ALIST) (VALUE KEY ALIST) (QUOTE (*1*QUOTE UNKNOWN)))) LISP-CODE *1*VALUE-OR-UNKNOWN SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*VALUE-OR-UNKNOWN) IMMEDIATE-DEPENDENTS0 (OK-NAME-LIST COLLECT-STATE-TYPES OUTPUT-DELAY COLLECT-DRIVES-0 EXTERNALIZE-PARENTS COLLECT-VALUE-OR-UNKNOWN VALUE-OR-UNKNOWN-OFF) EVENT (DEFN VALUE-OR-UNKNOWN (KEY ALIST) (IF (BOUNDP KEY ALIST) (VALUE KEY ALIST) (QUOTE (*1*QUOTE UNKNOWN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNKNOWN . VALUE-OR-UNKNOWN) (IMMEDIATE-DEPENDENTS0 VALUE . VALUE-OR-UNKNOWN) (IMMEDIATE-DEPENDENTS0 BOUNDP . VALUE-OR-UNKNOWN) (DCELL . *1*VALUE-OR-UNKNOWN))))) (PUT1-LST (QUOTE *1*UNKNOWN) (QUOTE (MAIN-EVENT UNKNOWN))) (PUT1-LST (QUOTE *1*UNKNOWNP) (QUOTE (MAIN-EVENT UNKNOWN))) (PUT1-LST (QUOTE UNKNOWNP) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN 3 NIL)) TOTALP-LST ((UNKNOWN . T)) LISP-CODE *1*UNKNOWNP SUBRP *1*TRUE MAIN-EVENT UNKNOWN))) (PUT1-LST (QUOTE UNKNOWN) (QUOTE (TYPE-PRESCRIPTION-LST ((UNKNOWN 8192)) TOTALP-LST ((UNKNOWN . T)) LISP-CODE *1*UNKNOWN SUBRP *1*TRUE IDATE 1000402194008 SATELLITES (*1*UNKNOWN *1*UNKNOWNP UNKNOWNP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-MATCHP OK-OUTPUT-TYPES OK-INPUT-TYPES OK-OUT-DEPENDS OK-STATES OK-NAME-LIST PNEW-STATES-OK PRESULTS-OK PRESULT-FORM-ERRORS UNKNOWN-ARGS POUT-DEPENDS-OK POUT-DEPENDS-ONE-OK PLSI-NAME-OK PLOADINGS-OK PDRIVES-OK PDELAYS-OK P-T-WIRE-ARGS-OK P-NAME-PROP-VALUE-OK POUT-TYPES-OK POUT-TYPE-OK PIN-TYPES-OK OUT-PROP-SIGNALS UCDR UCAR OUTPUT-DELAY OR-DELAY-ARGS INPUT-DELAY0 MAKE-DELAY-OR INSERT-INPUT-DELAY COLLECT-DRIVES-0 MAKE-DRIVE-MIN DRIVE-MIN COLLECT-MIN-ARGS ADD-NET-MIN-DRIVE LITERAL-NET-DRIVE COLLECT-OUT-TYPE OK-OUT-TYPE OK-IN-TYPE IO-TYPES-COMPATIBLE ADD-IN-TYPE VALUE-OR-UNKNOWN) EVENT (ADD-SHELL UNKNOWN NIL UNKNOWNP NIL) LOCAL-UNDO-TUPLES ((RECOGNIZER-ALIST NIL UNKNOWNP . 8192) (SINGLETON-TYPE-SETS NIL . 8192) (SHELL-POCKETS NIL UNKNOWN) (SHELL-ALIST NIL UNKNOWN . 13) (DCELL . *1*UNKNOWN) (DCELL . *1*UNKNOWNP))))) (PUT1-LST (QUOTE G*1*ALL-MODULE-PROPS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE G*1*ALL-MODULE-PROPS-OFF *1*ALL-MODULE-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-MODULE-PROPS . G*1*ALL-MODULE-PROPS-OFF) (DISABLED-LEMMAS NIL *1*ALL-MODULE-PROPS G*1*ALL-MODULE-PROPS-OFF . T))))) (PUT1-LST (QUOTE ALL-MODULE-PROPS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE ALL-MODULE-PROPS-OFF ALL-MODULE-PROPS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-MODULE-PROPS . ALL-MODULE-PROPS-OFF) (DISABLED-LEMMAS NIL ALL-MODULE-PROPS ALL-MODULE-PROPS-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-MODULE-PROPS) (QUOTE (MAIN-EVENT ALL-MODULE-PROPS))) (PUT1-LST (QUOTE ALL-MODULE-PROPS) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-MODULE-PROPS 16)) TOTALP-LST ((ALL-MODULE-PROPS . T)) SDEFN (LAMBDA NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS OUT-DEPENDS OUTPUT-TYPES OUTPUTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS))) LISP-CODE *1*ALL-MODULE-PROPS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*ALL-MODULE-PROPS) IMMEDIATE-DEPENDENTS0 (NETLIST-DATABASE NETLIST-PROPERTIES REQUIRED-FOR-PROP G*1*ALL-MODULE-PROPS-OFF ALL-MODULE-PROPS-OFF) EVENT (DEFN ALL-MODULE-PROPS NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS OUT-DEPENDS OUTPUT-TYPES OUTPUTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALL-MODULE-PROPS))))) (PUT1-LST (QUOTE G*1*PRIMITIVE-PROPERTIES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE G*1*PRIMITIVE-PROPERTIES-OFF *1*PRIMITIVE-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROPERTIES . G*1*PRIMITIVE-PROPERTIES-OFF) (DISABLED-LEMMAS NIL *1*PRIMITIVE-PROPERTIES G*1*PRIMITIVE-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE PRIMITIVE-PROPERTIES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE PRIMITIVE-PROPERTIES-OFF PRIMITIVE-PROPERTIES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMITIVE-PROPERTIES . PRIMITIVE-PROPERTIES-OFF) (DISABLED-LEMMAS NIL PRIMITIVE-PROPERTIES PRIMITIVE-PROPERTIES-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROPERTIES) (QUOTE (MAIN-EVENT PRIMITIVE-PROPERTIES))) (PUT1-LST (QUOTE PRIMITIVE-PROPERTIES) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMITIVE-PROPERTIES 16)) TOTALP-LST ((PRIMITIVE-PROPERTIES . T)) SDEFN (LAMBDA NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS LSI-NAME NEW-STATES OUT-DEPENDS OUTPUT-TYPES OUTPUTS RESULTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS))) LISP-CODE *1*PRIMITIVE-PROPERTIES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*PRIMITIVE-PROPERTIES) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS G*1*PRIMITIVE-PROPERTIES-OFF PRIMITIVE-PROPERTIES-OFF) EVENT (DEFN PRIMITIVE-PROPERTIES NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS LSI-NAME NEW-STATES OUT-DEPENDS OUTPUT-TYPES OUTPUTS RESULTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS))) LOCAL-UNDO-TUPLES ((DCELL . *1*PRIMITIVE-PROPERTIES))))) (PUT1-LST (QUOTE LSI-NETLIST-SYNTAX-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-NETLIST-SYNTAX-OK-OFF LSI-NETLIST-SYNTAX-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NETLIST-SYNTAX-OK . LSI-NETLIST-SYNTAX-OK-OFF) (DISABLED-LEMMAS NIL LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-NETLIST-SYNTAX-OK) (QUOTE (MAIN-EVENT LSI-NETLIST-SYNTAX-OK))) (PUT1-LST (QUOTE LSI-NETLIST-SYNTAX-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-NETLIST-SYNTAX-OK 4098 NIL NIL NIL)) TOTALP-LST ((LSI-NETLIST-SYNTAX-OK . T)) SDEFN (LAMBDA (NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (ERR-AND (LSI-NETLIST-SYNTAX-CHECK NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (QUOTE LSI-NETLIST-SYNTAX-ERRORS))) LISP-CODE *1*LSI-NETLIST-SYNTAX-OK SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194008 SATELLITES (*1*LSI-NETLIST-SYNTAX-OK) IMMEDIATE-DEPENDENTS0 (LSI-TOP-LEVEL-PREDICATE LSI-NETLIST-SYNTAX-OK-OFF) EVENT (DEFN LSI-NETLIST-SYNTAX-OK (NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (ERR-AND (LSI-NETLIST-SYNTAX-CHECK NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (QUOTE LSI-NETLIST-SYNTAX-ERRORS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NETLIST-SYNTAX-CHECK . LSI-NETLIST-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-NETLIST-SYNTAX-OK) (DCELL . *1*LSI-NETLIST-SYNTAX-OK))))) (PUT1-LST (QUOTE LSI-NETLIST-SYNTAX-CHECK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-NETLIST-SYNTAX-CHECK-OFF LSI-NETLIST-SYNTAX-CHECK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NETLIST-SYNTAX-CHECK . LSI-NETLIST-SYNTAX-CHECK-OFF) (DISABLED-LEMMAS NIL LSI-NETLIST-SYNTAX-CHECK LSI-NETLIST-SYNTAX-CHECK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-NETLIST-SYNTAX-CHECK) (QUOTE (MAIN-EVENT LSI-NETLIST-SYNTAX-CHECK))) (PUT1-LST (QUOTE LSI-NETLIST-SYNTAX-CHECK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-NETLIST-SYNTAX-CHECK 16 NIL NIL NIL)) TOTALP-LST ((LSI-NETLIST-SYNTAX-CHECK . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (IF (LISTP NETLIST) (APPEND (LSI-MODULE-SYNTAX-CHECK (CAR NETLIST) (CDR NETLIST) TOKEN-SIZE (LSI-NETLIST-SYNTAX-CHECK (CDR NETLIST) TOKEN-SIZE HIERARCHICAL-SIZE) HIERARCHICAL-SIZE) (LSI-NETLIST-SYNTAX-CHECK (CDR NETLIST) TOKEN-SIZE HIERARCHICAL-SIZE)) (CONS (NIL-OR-ERR NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LISP-CODE *1*LSI-NETLIST-SYNTAX-CHECK SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NETLIST)) (((CDR NETLIST) TOKEN-SIZE HIERARCHICAL-SIZE))) (TESTS-AND-CASES ((NOT (LISTP NETLIST))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*LSI-NETLIST-SYNTAX-CHECK) IMMEDIATE-DEPENDENTS0 (LSI-NETLIST-SYNTAX-OK LSI-NETLIST-SYNTAX-CHECK-OFF) EVENT (DEFN LSI-NETLIST-SYNTAX-CHECK (NETLIST TOKEN-SIZE HIERARCHICAL-SIZE) (IF (LISTP NETLIST) (APPEND (LSI-MODULE-SYNTAX-CHECK (CAR NETLIST) (CDR NETLIST) TOKEN-SIZE (LSI-NETLIST-SYNTAX-CHECK (CDR NETLIST) TOKEN-SIZE HIERARCHICAL-SIZE) HIERARCHICAL-SIZE) (LSI-NETLIST-SYNTAX-CHECK (CDR NETLIST) TOKEN-SIZE HIERARCHICAL-SIZE)) (CONS (NIL-OR-ERR NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . LSI-NETLIST-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-MODULE-SYNTAX-CHECK . LSI-NETLIST-SYNTAX-CHECK) (DCELL . *1*LSI-NETLIST-SYNTAX-CHECK))))) (PUT1-LST (QUOTE LSI-MODULE-SYNTAX-CHECK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-MODULE-SYNTAX-CHECK-OFF LSI-MODULE-SYNTAX-CHECK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-MODULE-SYNTAX-CHECK . LSI-MODULE-SYNTAX-CHECK-OFF) (DISABLED-LEMMAS NIL LSI-MODULE-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-MODULE-SYNTAX-CHECK) (QUOTE (MAIN-EVENT LSI-MODULE-SYNTAX-CHECK))) (PUT1-LST (QUOTE LSI-MODULE-SYNTAX-CHECK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-MODULE-SYNTAX-CHECK 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((LSI-MODULE-SYNTAX-CHECK . T)) SDEFN (LAMBDA (MODULE NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (CONS (CONS (MODULE-NAME MODULE) (VALUE (QUOTE HIERARCHICAL-NAME) (LSI-MODULE-OCCURRENCES-CHECK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE))) (CONS (ERR-AND (CONS (MODULE-FORM-OK MODULE (LENGTH MODULE)) (CONS (LSI-MODULE-NAME-OK (MODULE-NAME MODULE) (LENGTH MODULE) TOKEN-SIZE NETLIST) (CONS (LSI-MODULE-INPUTS-OK (MODULE-INPUTS MODULE) (LENGTH MODULE) TOKEN-SIZE) (CONS (LSI-MODULE-OUTPUTS-OK (MODULE-OUTPUTS MODULE) (LENGTH MODULE) TOKEN-SIZE) (CONS (ERR-AND (LSI-MODULE-OCCURRENCES-CHECK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (QUOTE MODULE-OCCURRENCES)) (CONS (MODULE-STATENAMES-OK (MODULE-STATENAMES MODULE) (LENGTH MODULE)) (CONS (MODULE-ANNOTATION-OK (MODULE-ANNOTATION MODULE) (LENGTH MODULE)) (QUOTE NIL)))))))) (CONS (QUOTE MODULE) (CONS (MODULE-NAME MODULE) (QUOTE NIL)))) (QUOTE NIL)))) LISP-CODE *1*LSI-MODULE-SYNTAX-CHECK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194008 SATELLITES (*1*LSI-MODULE-SYNTAX-CHECK) IMMEDIATE-DEPENDENTS0 (LSI-NETLIST-SYNTAX-CHECK LSI-MODULE-SYNTAX-CHECK-OFF) EVENT (DEFN LSI-MODULE-SYNTAX-CHECK (MODULE NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (CONS (CONS (MODULE-NAME MODULE) (VALUE (QUOTE HIERARCHICAL-NAME) (LSI-MODULE-OCCURRENCES-CHECK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE))) (CONS (ERR-AND (CONS (MODULE-FORM-OK MODULE (LENGTH MODULE)) (CONS (LSI-MODULE-NAME-OK (MODULE-NAME MODULE) (LENGTH MODULE) TOKEN-SIZE NETLIST) (CONS (LSI-MODULE-INPUTS-OK (MODULE-INPUTS MODULE) (LENGTH MODULE) TOKEN-SIZE) (CONS (LSI-MODULE-OUTPUTS-OK (MODULE-OUTPUTS MODULE) (LENGTH MODULE) TOKEN-SIZE) (CONS (ERR-AND (LSI-MODULE-OCCURRENCES-CHECK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (QUOTE MODULE-OCCURRENCES)) (CONS (MODULE-STATENAMES-OK (MODULE-STATENAMES MODULE) (LENGTH MODULE)) (CONS (MODULE-ANNOTATION-OK (MODULE-ANNOTATION MODULE) (LENGTH MODULE)) (QUOTE NIL)))))))) (CONS (QUOTE MODULE) (CONS (MODULE-NAME MODULE) (QUOTE NIL)))) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-MODULE-OUTPUTS-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-MODULE-INPUTS-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-MODULE-NAME-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-FORM-OK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LENGTH . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-MODULE-OCCURRENCES-CHECK . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 VALUE . LSI-MODULE-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . LSI-MODULE-SYNTAX-CHECK) (DCELL . *1*LSI-MODULE-SYNTAX-CHECK))))) (PUT1-LST (QUOTE LSI-MODULE-OCCURRENCES-CHECK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-MODULE-OCCURRENCES-CHECK-OFF LSI-MODULE-OCCURRENCES-CHECK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-MODULE-OCCURRENCES-CHECK . LSI-MODULE-OCCURRENCES-CHECK-OFF) (DISABLED-LEMMAS NIL LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-OCCURRENCES-CHECK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-MODULE-OCCURRENCES-CHECK) (QUOTE (MAIN-EVENT LSI-MODULE-OCCURRENCES-CHECK))) (PUT1-LST (QUOTE LSI-MODULE-OCCURRENCES-CHECK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-MODULE-OCCURRENCES-CHECK 18 NIL NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((LSI-MODULE-OCCURRENCES-CHECK . T)) SDEFN (LAMBDA (M-OCCS M-INS M-OUTS M-STATES M-LENGTH NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (LESSP M-LENGTH (QUOTE 4)) (QUOTE *1*TRUE) (CONS (T-OR-ERR (LISTP M-OCCS) (QUOTE NO-OCCURRENCES) M-OCCS) (LSI-OCC-BODY-SYNTAX-CHECK M-OCCS (INITIAL-LSI-OCC-SYNTAX-DATA M-INS M-OUTS) M-OUTS (STATES-LIST-OR-NIL M-STATES M-LENGTH) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE)))) LISP-CODE *1*LSI-MODULE-OCCURRENCES-CHECK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194008 SATELLITES (*1*LSI-MODULE-OCCURRENCES-CHECK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK LSI-MODULE-OCCURRENCES-CHECK-OFF) EVENT (DEFN LSI-MODULE-OCCURRENCES-CHECK (M-OCCS M-INS M-OUTS M-STATES M-LENGTH NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (IF (LESSP M-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (T-OR-ERR (LISTP M-OCCS) (QUOTE NO-OCCURRENCES) M-OCCS) (LSI-OCC-BODY-SYNTAX-CHECK M-OCCS (INITIAL-LSI-OCC-SYNTAX-DATA M-INS M-OUTS) M-OUTS (STATES-LIST-OR-NIL M-STATES M-LENGTH) NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATES-LIST-OR-NIL . LSI-MODULE-OCCURRENCES-CHECK) (IMMEDIATE-DEPENDENTS0 INITIAL-LSI-OCC-SYNTAX-DATA . LSI-MODULE-OCCURRENCES-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-OCC-BODY-SYNTAX-CHECK . LSI-MODULE-OCCURRENCES-CHECK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . LSI-MODULE-OCCURRENCES-CHECK) (DCELL . *1*LSI-MODULE-OCCURRENCES-CHECK))))) (PUT1-LST (QUOTE LSI-MODULE-OUTPUTS-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-MODULE-OUTPUTS-OK-OFF LSI-MODULE-OUTPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-MODULE-OUTPUTS-OK . LSI-MODULE-OUTPUTS-OK-OFF) (DISABLED-LEMMAS NIL LSI-MODULE-OUTPUTS-OK LSI-MODULE-OUTPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-MODULE-OUTPUTS-OK) (QUOTE (MAIN-EVENT LSI-MODULE-OUTPUTS-OK))) (PUT1-LST (QUOTE LSI-MODULE-OUTPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-MODULE-OUTPUTS-OK 4098 NIL NIL NIL)) TOTALP-LST ((LSI-MODULE-OUTPUTS-OK . T)) SDEFN (LAMBDA (M-OUTS M-LENGTH TOKEN-SIZE) (IF (LESSP M-LENGTH (QUOTE 3)) (QUOTE *1*TRUE) (LSI-NAME-LIST-OK M-OUTS TOKEN-SIZE (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE)))) LISP-CODE *1*LSI-MODULE-OUTPUTS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-MODULE-OUTPUTS-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK LSI-MODULE-OUTPUTS-OK-OFF) EVENT (DEFN LSI-MODULE-OUTPUTS-OK (M-OUTS M-LENGTH TOKEN-SIZE) (IF (IF (LESSP M-LENGTH (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LSI-NAME-LIST-OK M-OUTS TOKEN-SIZE (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-OK . LSI-MODULE-OUTPUTS-OK) (DCELL . *1*LSI-MODULE-OUTPUTS-OK))))) (PUT1-LST (QUOTE LSI-MODULE-INPUTS-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-MODULE-INPUTS-OK-OFF LSI-MODULE-INPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-MODULE-INPUTS-OK . LSI-MODULE-INPUTS-OK-OFF) (DISABLED-LEMMAS NIL LSI-MODULE-INPUTS-OK LSI-MODULE-INPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-MODULE-INPUTS-OK) (QUOTE (MAIN-EVENT LSI-MODULE-INPUTS-OK))) (PUT1-LST (QUOTE LSI-MODULE-INPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-MODULE-INPUTS-OK 4098 NIL NIL NIL)) TOTALP-LST ((LSI-MODULE-INPUTS-OK . T)) SDEFN (LAMBDA (M-INS M-LENGTH TOKEN-SIZE) (IF (LESSP M-LENGTH (QUOTE 2)) (QUOTE *1*TRUE) (LSI-NAME-LIST-OK M-INS TOKEN-SIZE (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE)))) LISP-CODE *1*LSI-MODULE-INPUTS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-MODULE-INPUTS-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK LSI-MODULE-INPUTS-OK-OFF) EVENT (DEFN LSI-MODULE-INPUTS-OK (M-INS M-LENGTH TOKEN-SIZE) (IF (IF (LESSP M-LENGTH (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LSI-NAME-LIST-OK M-INS TOKEN-SIZE (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-OK . LSI-MODULE-INPUTS-OK) (DCELL . *1*LSI-MODULE-INPUTS-OK))))) (PUT1-LST (QUOTE LSI-MODULE-NAME-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-MODULE-NAME-OK-OFF LSI-MODULE-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-MODULE-NAME-OK . LSI-MODULE-NAME-OK-OFF) (DISABLED-LEMMAS NIL LSI-MODULE-NAME-OK LSI-MODULE-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-MODULE-NAME-OK) (QUOTE (MAIN-EVENT LSI-MODULE-NAME-OK))) (PUT1-LST (QUOTE LSI-MODULE-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-MODULE-NAME-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((LSI-MODULE-NAME-OK . T)) SDEFN (LAMBDA (M-NAME M-LENGTH TOKEN-SIZE NETLIST) (IF (LESSP M-LENGTH (QUOTE 1)) (QUOTE *1*TRUE) (IF (LOOKUP-MODULE M-NAME NETLIST) (IF (PRIMP M-NAME) (ERR-AND (CONS (LSI-NAME-OK M-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (ERR-AND (CONS (LSI-NAME-OK M-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME))) (IF (PRIMP M-NAME) (ERR-AND (CONS (LSI-NAME-OK M-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (ERR-AND (CONS (LSI-NAME-OK M-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)))))) LISP-CODE *1*LSI-MODULE-NAME-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*LSI-MODULE-NAME-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK LSI-MODULE-NAME-OK-OFF) EVENT (DEFN LSI-MODULE-NAME-OK (M-NAME M-LENGTH TOKEN-SIZE NETLIST) (IF (IF (LESSP M-LENGTH (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (LSI-NAME-OK M-NAME TOKEN-SIZE) (CONS (T-OR-ERR (NOT (LOOKUP-MODULE M-NAME NETLIST)) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (NOT (PRIMP M-NAME)) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . LSI-MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LSI-MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . LSI-MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 LSI-NAME-OK . LSI-MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-MODULE-NAME-OK) (DCELL . *1*LSI-MODULE-NAME-OK))))) (PUT1-LST (QUOTE LSI-OCC-BODY-SYNTAX-CHECK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-OCC-BODY-SYNTAX-CHECK-OFF LSI-OCC-BODY-SYNTAX-CHECK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-OCC-BODY-SYNTAX-CHECK . LSI-OCC-BODY-SYNTAX-CHECK-OFF) (DISABLED-LEMMAS NIL LSI-OCC-BODY-SYNTAX-CHECK LSI-OCC-BODY-SYNTAX-CHECK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-OCC-BODY-SYNTAX-CHECK) (QUOTE (MAIN-EVENT LSI-OCC-BODY-SYNTAX-CHECK))) (PUT1-LST (QUOTE LSI-OCC-BODY-SYNTAX-CHECK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-OCC-BODY-SYNTAX-CHECK 16 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((LSI-OCC-BODY-SYNTAX-CHECK . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (BODY OCC-DATA OUTPUTS STATES NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (LISTP BODY) (CONS (LSI-OCC-SYNTAX-OK (CAR BODY) (MAX-OCC-HIERARCHICAL-NAME (CAR BODY) HIERARCHICAL-TABLE HIERARCHICAL-SIZE) OCC-DATA NETLIST TOKEN-SIZE) (LSI-OCC-BODY-SYNTAX-CHECK (CDR BODY) (UPDATE-LSI-OCC-SYNTAX-DATA (CAR BODY) (MAX-OCC-HIERARCHICAL-NAME (CAR BODY) HIERARCHICAL-TABLE HIERARCHICAL-SIZE) OCC-DATA) OUTPUTS STATES NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE)) (APPEND (COMPOSITE-OCC-BODY-SYNTAX-ERRORS BODY OCC-DATA OUTPUTS STATES) (CONS (ALIST-ENTRY (QUOTE HIERARCHICAL-NAME) OCC-DATA) (CONS (DISJOINT-OR-ERR (VALUE (QUOTE SIGNALS) OCC-DATA) (VALUE (QUOTE OCC-FNS) OCC-DATA) (QUOTE SIGNAL-OCC-FN-OVERLAP)) (CONS (DISJOINT-OR-ERR (VALUE (QUOTE OCC-NAMES) OCC-DATA) (VALUE (QUOTE OCC-FNS) OCC-DATA) (QUOTE OCC-NAME-OCC-FN-OVERLAP)) (QUOTE NIL))))))) LISP-CODE *1*LSI-OCC-BODY-SYNTAX-CHECK SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BODY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BODY))) (((CDR BODY) (UPDATE-LSI-OCC-SYNTAX-DATA (CAR BODY) (MAX-OCC-HIERARCHICAL-NAME (CAR BODY) HIERARCHICAL-TABLE HIERARCHICAL-SIZE) OCC-DATA) OUTPUTS STATES NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*LSI-OCC-BODY-SYNTAX-CHECK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-OCCURRENCES-CHECK LSI-OCC-BODY-SYNTAX-CHECK-OFF) EVENT (DEFN LSI-OCC-BODY-SYNTAX-CHECK (BODY OCC-DATA OUTPUTS STATES NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (NLISTP BODY) (APPEND (COMPOSITE-OCC-BODY-SYNTAX-ERRORS BODY OCC-DATA OUTPUTS STATES) (CONS (ALIST-ENTRY (QUOTE HIERARCHICAL-NAME) OCC-DATA) (CONS (DISJOINT-OR-ERR (VALUE (QUOTE SIGNALS) OCC-DATA) (VALUE (QUOTE OCC-FNS) OCC-DATA) (QUOTE SIGNAL-OCC-FN-OVERLAP)) (CONS (DISJOINT-OR-ERR (VALUE (QUOTE OCC-NAMES) OCC-DATA) (VALUE (QUOTE OCC-FNS) OCC-DATA) (QUOTE OCC-NAME-OCC-FN-OVERLAP)) (QUOTE NIL))))) (CONS (LSI-OCC-SYNTAX-OK (CAR BODY) (MAX-OCC-HIERARCHICAL-NAME (CAR BODY) HIERARCHICAL-TABLE HIERARCHICAL-SIZE) OCC-DATA NETLIST TOKEN-SIZE) (LSI-OCC-BODY-SYNTAX-CHECK (CDR BODY) (UPDATE-LSI-OCC-SYNTAX-DATA (CAR BODY) (MAX-OCC-HIERARCHICAL-NAME (CAR BODY) HIERARCHICAL-TABLE HIERARCHICAL-SIZE) OCC-DATA) OUTPUTS STATES NETLIST TOKEN-SIZE HIERARCHICAL-TABLE HIERARCHICAL-SIZE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-LSI-OCC-SYNTAX-DATA . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 MAX-OCC-HIERARCHICAL-NAME . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LSI-OCC-SYNTAX-OK . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 VALUE . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 DISJOINT-OR-ERR . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 COMPOSITE-OCC-BODY-SYNTAX-ERRORS . LSI-OCC-BODY-SYNTAX-CHECK) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LSI-OCC-BODY-SYNTAX-CHECK) (DCELL . *1*LSI-OCC-BODY-SYNTAX-CHECK))))) (PUT1-LST (QUOTE UPDATE-LSI-OCC-SYNTAX-DATA-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE UPDATE-LSI-OCC-SYNTAX-DATA-OFF UPDATE-LSI-OCC-SYNTAX-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-LSI-OCC-SYNTAX-DATA . UPDATE-LSI-OCC-SYNTAX-DATA-OFF) (DISABLED-LEMMAS NIL UPDATE-LSI-OCC-SYNTAX-DATA UPDATE-LSI-OCC-SYNTAX-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-LSI-OCC-SYNTAX-DATA) (QUOTE (MAIN-EVENT UPDATE-LSI-OCC-SYNTAX-DATA))) (PUT1-LST (QUOTE UPDATE-LSI-OCC-SYNTAX-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-LSI-OCC-SYNTAX-DATA 16 NIL NIL NIL)) TOTALP-LST ((UPDATE-LSI-OCC-SYNTAX-DATA . T)) SDEFN (LAMBDA (OCC O-HNAME OCC-DATA) (CONS (CONS (QUOTE OCC-FNS) (CONS (LSI-FUNCTION-NAME (OCC-FUNCTION OCC)) (VALUE (QUOTE OCC-FNS) OCC-DATA))) (CONS (CONS (QUOTE HIERARCHICAL-NAME) (HIERARCHICAL-NAME-MAX (VALUE (QUOTE HIERARCHICAL-NAME) OCC-DATA) O-HNAME)) (UPDATE-OCC-SYNTAX-DATA OCC OCC-DATA)))) LISP-CODE *1*UPDATE-LSI-OCC-SYNTAX-DATA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*UPDATE-LSI-OCC-SYNTAX-DATA) IMMEDIATE-DEPENDENTS0 (LSI-OCC-BODY-SYNTAX-CHECK UPDATE-LSI-OCC-SYNTAX-DATA-OFF) EVENT (DEFN UPDATE-LSI-OCC-SYNTAX-DATA (OCC O-HNAME OCC-DATA) (CONS (CONS (QUOTE OCC-FNS) (CONS (LSI-FUNCTION-NAME (OCC-FUNCTION OCC)) (VALUE (QUOTE OCC-FNS) OCC-DATA))) (CONS (CONS (QUOTE HIERARCHICAL-NAME) (HIERARCHICAL-NAME-MAX (VALUE (QUOTE HIERARCHICAL-NAME) OCC-DATA) O-HNAME)) (UPDATE-OCC-SYNTAX-DATA OCC OCC-DATA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OCC-SYNTAX-DATA . UPDATE-LSI-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 HIERARCHICAL-NAME-MAX . UPDATE-LSI-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-LSI-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . UPDATE-LSI-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 LSI-FUNCTION-NAME . UPDATE-LSI-OCC-SYNTAX-DATA) (DCELL . *1*UPDATE-LSI-OCC-SYNTAX-DATA))))) (PUT1-LST (QUOTE INITIAL-LSI-OCC-SYNTAX-DATA-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE INITIAL-LSI-OCC-SYNTAX-DATA-OFF INITIAL-LSI-OCC-SYNTAX-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-LSI-OCC-SYNTAX-DATA . INITIAL-LSI-OCC-SYNTAX-DATA-OFF) (DISABLED-LEMMAS NIL INITIAL-LSI-OCC-SYNTAX-DATA INITIAL-LSI-OCC-SYNTAX-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*INITIAL-LSI-OCC-SYNTAX-DATA) (QUOTE (MAIN-EVENT INITIAL-LSI-OCC-SYNTAX-DATA))) (PUT1-LST (QUOTE INITIAL-LSI-OCC-SYNTAX-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-LSI-OCC-SYNTAX-DATA 16 NIL NIL)) TOTALP-LST ((INITIAL-LSI-OCC-SYNTAX-DATA . T)) SDEFN (LAMBDA (M-INS M-OUTS) (CONS (QUOTE (OCC-FNS)) (CONS (QUOTE (HIERARCHICAL-NAME . 0)) (INITIAL-OCC-SYNTAX-DATA M-INS M-OUTS)))) LISP-CODE *1*INITIAL-LSI-OCC-SYNTAX-DATA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*INITIAL-LSI-OCC-SYNTAX-DATA) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-OCCURRENCES-CHECK INITIAL-LSI-OCC-SYNTAX-DATA-OFF) EVENT (DEFN INITIAL-LSI-OCC-SYNTAX-DATA (M-INS M-OUTS) (CONS (QUOTE (OCC-FNS)) (CONS (QUOTE (HIERARCHICAL-NAME . 0)) (INITIAL-OCC-SYNTAX-DATA M-INS M-OUTS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-SYNTAX-DATA . INITIAL-LSI-OCC-SYNTAX-DATA) (DCELL . *1*INITIAL-LSI-OCC-SYNTAX-DATA))))) (PUT1-LST (QUOTE LSI-OCC-SYNTAX-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-OCC-SYNTAX-OK-OFF LSI-OCC-SYNTAX-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-OCC-SYNTAX-OK . LSI-OCC-SYNTAX-OK-OFF) (DISABLED-LEMMAS NIL LSI-OCC-SYNTAX-OK LSI-OCC-SYNTAX-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-OCC-SYNTAX-OK) (QUOTE (MAIN-EVENT LSI-OCC-SYNTAX-OK))) (PUT1-LST (QUOTE LSI-OCC-SYNTAX-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-OCC-SYNTAX-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((LSI-OCC-SYNTAX-OK . T)) SDEFN (LAMBDA (OCC HIERARCHICAL-NAME-ERROR OCC-DATA NETLIST TOKEN-SIZE) (ERR-AND (CONS (OCC-FORM-OK OCC (LENGTH OCC)) (CONS (LSI-OCC-NAME-OK (OCC-NAME OCC) (LENGTH OCC) (OCC-OUTPUTS OCC) OCC-DATA TOKEN-SIZE) (CONS (LSI-OCC-OUTPUTS-OK (OCC-OUTPUTS OCC) (LENGTH OCC) OCC-DATA TOKEN-SIZE) (CONS (LSI-OCC-INPUTS-OK (OCC-INPUTS OCC) (LENGTH OCC) TOKEN-SIZE) (CONS (OCC-FUNCTION-OK (OCC-FUNCTION OCC) (OCC-INPUTS OCC) (OCC-OUTPUTS OCC) (LENGTH OCC) NETLIST) (CONS (OCC-ANNOTATION-OK (OCC-ANNOTATION OCC) (LENGTH OCC)) (CONS HIERARCHICAL-NAME-ERROR (QUOTE NIL)))))))) (CONS (QUOTE OCCURRENCE) (CONS (OCC-NAME OCC) (QUOTE NIL))))) LISP-CODE *1*LSI-OCC-SYNTAX-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-OCC-SYNTAX-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-BODY-SYNTAX-CHECK LSI-OCC-SYNTAX-OK-OFF) EVENT (DEFN LSI-OCC-SYNTAX-OK (OCC HIERARCHICAL-NAME-ERROR OCC-DATA NETLIST TOKEN-SIZE) (ERR-AND (CONS (OCC-FORM-OK OCC (LENGTH OCC)) (CONS (LSI-OCC-NAME-OK (OCC-NAME OCC) (LENGTH OCC) (OCC-OUTPUTS OCC) OCC-DATA TOKEN-SIZE) (CONS (LSI-OCC-OUTPUTS-OK (OCC-OUTPUTS OCC) (LENGTH OCC) OCC-DATA TOKEN-SIZE) (CONS (LSI-OCC-INPUTS-OK (OCC-INPUTS OCC) (LENGTH OCC) TOKEN-SIZE) (CONS (OCC-FUNCTION-OK (OCC-FUNCTION OCC) (OCC-INPUTS OCC) (OCC-OUTPUTS OCC) (LENGTH OCC) NETLIST) (CONS (OCC-ANNOTATION-OK (OCC-ANNOTATION OCC) (LENGTH OCC)) (CONS HIERARCHICAL-NAME-ERROR (QUOTE NIL)))))))) (CONS (QUOTE OCCURRENCE) (CONS (OCC-NAME OCC) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 LSI-OCC-INPUTS-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 LSI-OCC-OUTPUTS-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-NAME . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 LSI-OCC-NAME-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-FORM-OK . LSI-OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-OCC-SYNTAX-OK) (DCELL . *1*LSI-OCC-SYNTAX-OK))))) (PUT1-LST (QUOTE LSI-OCC-INPUTS-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-OCC-INPUTS-OK-OFF LSI-OCC-INPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-OCC-INPUTS-OK . LSI-OCC-INPUTS-OK-OFF) (DISABLED-LEMMAS NIL LSI-OCC-INPUTS-OK LSI-OCC-INPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-OCC-INPUTS-OK) (QUOTE (MAIN-EVENT LSI-OCC-INPUTS-OK))) (PUT1-LST (QUOTE LSI-OCC-INPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-OCC-INPUTS-OK 4098 NIL NIL NIL)) TOTALP-LST ((LSI-OCC-INPUTS-OK . T)) SDEFN (LAMBDA (O-INS O-LENGTH TOKEN-SIZE) (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*TRUE) (LSI-NAME-LIST-OK O-INS TOKEN-SIZE (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE)))) LISP-CODE *1*LSI-OCC-INPUTS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-OCC-INPUTS-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK LSI-OCC-INPUTS-OK-OFF) EVENT (DEFN LSI-OCC-INPUTS-OK (O-INS O-LENGTH TOKEN-SIZE) (IF (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LSI-NAME-LIST-OK O-INS TOKEN-SIZE (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-OK . LSI-OCC-INPUTS-OK) (DCELL . *1*LSI-OCC-INPUTS-OK))))) (PUT1-LST (QUOTE LSI-OCC-OUTPUTS-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-OCC-OUTPUTS-OK-OFF LSI-OCC-OUTPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-OCC-OUTPUTS-OK . LSI-OCC-OUTPUTS-OK-OFF) (DISABLED-LEMMAS NIL LSI-OCC-OUTPUTS-OK LSI-OCC-OUTPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-OCC-OUTPUTS-OK) (QUOTE (MAIN-EVENT LSI-OCC-OUTPUTS-OK))) (PUT1-LST (QUOTE LSI-OCC-OUTPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-OCC-OUTPUTS-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((LSI-OCC-OUTPUTS-OK . T)) SDEFN (LAMBDA (O-OUTS O-LENGTH OCC-DATA TOKEN-SIZE) (IF (LESSP O-LENGTH (QUOTE 2)) (QUOTE *1*TRUE) (ERR-AND (CONS (LSI-NAME-LIST-OK O-OUTS TOKEN-SIZE (QUOTE OCC-OUTPUTS) (QUOTE *1*FALSE)) (CONS (DISJOINT-OR-ERR O-OUTS (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE OCC-OUTPUTS-IN-OCC-NAMES)) (QUOTE NIL))) (QUOTE OCCURRENCE-OUTPUTS)))) LISP-CODE *1*LSI-OCC-OUTPUTS-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-OCC-OUTPUTS-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK LSI-OCC-OUTPUTS-OK-OFF) EVENT (DEFN LSI-OCC-OUTPUTS-OK (O-OUTS O-LENGTH OCC-DATA TOKEN-SIZE) (IF (IF (LESSP O-LENGTH (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (LSI-NAME-LIST-OK O-OUTS TOKEN-SIZE (QUOTE OCC-OUTPUTS) (QUOTE *1*FALSE)) (CONS (DISJOINT-OR-ERR O-OUTS (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE OCC-OUTPUTS-IN-OCC-NAMES)) (QUOTE NIL))) (QUOTE OCCURRENCE-OUTPUTS)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . LSI-OCC-OUTPUTS-OK) (IMMEDIATE-DEPENDENTS0 DISJOINT-OR-ERR . LSI-OCC-OUTPUTS-OK) (IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-OK . LSI-OCC-OUTPUTS-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-OCC-OUTPUTS-OK) (DCELL . *1*LSI-OCC-OUTPUTS-OK))))) (PUT1-LST (QUOTE LSI-OCC-NAME-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-OCC-NAME-OK-OFF LSI-OCC-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-OCC-NAME-OK . LSI-OCC-NAME-OK-OFF) (DISABLED-LEMMAS NIL LSI-OCC-NAME-OK LSI-OCC-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-OCC-NAME-OK) (QUOTE (MAIN-EVENT LSI-OCC-NAME-OK))) (PUT1-LST (QUOTE LSI-OCC-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-OCC-NAME-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((LSI-OCC-NAME-OK . T)) SDEFN (LAMBDA (O-NAME O-LENGTH O-OUTS OCC-DATA TOKEN-SIZE) (IF (LESSP O-LENGTH (QUOTE 1)) (QUOTE *1*TRUE) (IF (MEMBER O-NAME (VALUE (QUOTE SIGNALS) OCC-DATA)) (IF (EQUAL (CDR O-OUTS) (QUOTE NIL)) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)) (IF (MEMBER O-NAME O-OUTS) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)))) (IF (EQUAL (CDR O-OUTS) (QUOTE NIL)) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)) (IF (MEMBER O-NAME O-OUTS) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME))))))) LISP-CODE *1*LSI-OCC-NAME-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*LSI-OCC-NAME-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK LSI-OCC-NAME-OK-OFF) EVENT (DEFN LSI-OCC-NAME-OK (O-NAME O-LENGTH O-OUTS OCC-DATA TOKEN-SIZE) (IF (IF (LESSP O-LENGTH (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (LSI-NAME-OK O-NAME TOKEN-SIZE) (CONS (T-OR-ERR (NOT (MEMBER O-NAME (VALUE (QUOTE SIGNALS) OCC-DATA))) (QUOTE OCC-NAME-IS-SIGNAL) O-NAME) (CONS (T-OR-ERR (OR (EQUAL (CDR O-OUTS) (QUOTE NIL)) (NOT (MEMBER O-NAME O-OUTS))) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . LSI-OCC-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . LSI-OCC-NAME-OK) (IMMEDIATE-DEPENDENTS0 LSI-NAME-OK . LSI-OCC-NAME-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-OCC-NAME-OK) (DCELL . *1*LSI-OCC-NAME-OK))))) (PUT1-LST (QUOTE MAX-OCC-HIERARCHICAL-NAME-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MAX-OCC-HIERARCHICAL-NAME-OFF MAX-OCC-HIERARCHICAL-NAME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAX-OCC-HIERARCHICAL-NAME . MAX-OCC-HIERARCHICAL-NAME-OFF) (DISABLED-LEMMAS NIL MAX-OCC-HIERARCHICAL-NAME MAX-OCC-HIERARCHICAL-NAME-OFF . T))))) (PUT1-LST (QUOTE *1*MAX-OCC-HIERARCHICAL-NAME) (QUOTE (MAIN-EVENT MAX-OCC-HIERARCHICAL-NAME))) (PUT1-LST (QUOTE MAX-OCC-HIERARCHICAL-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((MAX-OCC-HIERARCHICAL-NAME 4116 NIL NIL NIL)) TOTALP-LST ((MAX-OCC-HIERARCHICAL-NAME . T)) SDEFN (LAMBDA (OCC HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (PRIMP (OCC-FUNCTION OCC)) (IF (LISTP (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC)))) (IF (LESSP HIERARCHICAL-SIZE (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC)))))) (PRED-ERROR (QUOTE HIERARCHICAL-NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))))) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS HIERARCHICAL-SIZE (QUOTE NIL))) (CONS (CONS (QUOTE NAME) (CONS (CONS (OCC-NAME OCC) (CDR (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))))) (QUOTE NIL))) (QUOTE NIL))))) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))))) (CONS (OCC-NAME OCC) (CDR (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))))))) (QUOTE 0)) (IF (LISTP (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE)) (IF (LESSP HIERARCHICAL-SIZE (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE)))) (PRED-ERROR (QUOTE HIERARCHICAL-NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS HIERARCHICAL-SIZE (QUOTE NIL))) (CONS (CONS (QUOTE NAME) (CONS (CONS (OCC-NAME OCC) (CDR (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))) (QUOTE NIL))) (QUOTE NIL))))) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))) (CONS (OCC-NAME OCC) (CDR (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))))) (QUOTE 0)))) LISP-CODE *1*MAX-OCC-HIERARCHICAL-NAME SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194008 SATELLITES (*1*MAX-OCC-HIERARCHICAL-NAME) IMMEDIATE-DEPENDENTS0 (LSI-OCC-BODY-SYNTAX-CHECK MAX-OCC-HIERARCHICAL-NAME-OFF) EVENT (DEFN MAX-OCC-HIERARCHICAL-NAME (OCC HIERARCHICAL-TABLE HIERARCHICAL-SIZE) (IF (LISTP (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))) (IF (IF (LESSP HIERARCHICAL-SIZE (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE)))) (CONS (OCC-NAME OCC) (CDR (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE))))) (PRED-ERROR (QUOTE HIERARCHICAL-NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (PLUS (ADD1 (NAME-LENGTH (OCC-NAME OCC))) (CAR (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE)))) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS HIERARCHICAL-SIZE (QUOTE NIL))) (CONS (CONS (QUOTE NAME) (CONS (CONS (OCC-NAME OCC) (CDR (IF (PRIMP (OCC-FUNCTION OCC)) (MAX-HIERARCHICAL-LENGTH-AND-NAME (APPEND (OCC-INPUTS OCC) (OCC-OUTPUTS OCC))) (VALUE (OCC-FUNCTION OCC) HIERARCHICAL-TABLE)))) (QUOTE NIL))) (QUOTE NIL)))))) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 OCC-NAME . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 NAME-LENGTH . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 VALUE . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 MAX-HIERARCHICAL-LENGTH-AND-NAME . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . MAX-OCC-HIERARCHICAL-NAME) (IMMEDIATE-DEPENDENTS0 PRIMP . MAX-OCC-HIERARCHICAL-NAME) (DCELL . *1*MAX-OCC-HIERARCHICAL-NAME))))) (PUT1-LST (QUOTE MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF MAX-HIERARCHICAL-LENGTH-AND-NAME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAX-HIERARCHICAL-LENGTH-AND-NAME . MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF) (DISABLED-LEMMAS NIL MAX-HIERARCHICAL-LENGTH-AND-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF . T))))) (PUT1-LST (QUOTE *1*MAX-HIERARCHICAL-LENGTH-AND-NAME) (QUOTE (MAIN-EVENT MAX-HIERARCHICAL-LENGTH-AND-NAME))) (PUT1-LST (QUOTE MAX-HIERARCHICAL-LENGTH-AND-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((MAX-HIERARCHICAL-LENGTH-AND-NAME 20 NIL)) TOTALP-LST ((MAX-HIERARCHICAL-LENGTH-AND-NAME . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NAMES) (IF (LISTP NAMES) (HIERARCHICAL-NAME-MAX (CONS (ADD1 (NAME-LENGTH (CAR NAMES))) (CONS (CAR NAMES) (QUOTE NIL))) (MAX-HIERARCHICAL-LENGTH-AND-NAME (CDR NAMES))) (QUOTE 0))) LISP-CODE *1*MAX-HIERARCHICAL-LENGTH-AND-NAME SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAMES)) (((CDR NAMES)))) (TESTS-AND-CASES ((NOT (LISTP NAMES))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (ZERO CDR-LESSP))) IDATE 1000402194008 CONTROLLER-POCKETS (1) SATELLITES (*1*MAX-HIERARCHICAL-LENGTH-AND-NAME) IMMEDIATE-DEPENDENTS0 (MAX-OCC-HIERARCHICAL-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME-OFF) EVENT (DEFN MAX-HIERARCHICAL-LENGTH-AND-NAME (NAMES) (IF (LISTP NAMES) (HIERARCHICAL-NAME-MAX (CONS (ADD1 (NAME-LENGTH (CAR NAMES))) (CONS (CAR NAMES) (QUOTE NIL))) (MAX-HIERARCHICAL-LENGTH-AND-NAME (CDR NAMES))) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LENGTH . MAX-HIERARCHICAL-LENGTH-AND-NAME) (IMMEDIATE-DEPENDENTS0 HIERARCHICAL-NAME-MAX . MAX-HIERARCHICAL-LENGTH-AND-NAME) (DCELL . *1*MAX-HIERARCHICAL-LENGTH-AND-NAME))))) (PUT1-LST (QUOTE HIERARCHICAL-NAME-MAX-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE HIERARCHICAL-NAME-MAX-OFF HIERARCHICAL-NAME-MAX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HIERARCHICAL-NAME-MAX . HIERARCHICAL-NAME-MAX-OFF) (DISABLED-LEMMAS NIL HIERARCHICAL-NAME-MAX HIERARCHICAL-NAME-MAX-OFF . T))))) (PUT1-LST (QUOTE *1*HIERARCHICAL-NAME-MAX) (QUOTE (MAIN-EVENT HIERARCHICAL-NAME-MAX))) (PUT1-LST (QUOTE HIERARCHICAL-NAME-MAX) (QUOTE (TYPE-PRESCRIPTION-LST ((HIERARCHICAL-NAME-MAX 20 NIL NIL)) TOTALP-LST ((HIERARCHICAL-NAME-MAX . T)) SDEFN (LAMBDA (N1 N2) (IF (LISTP N1) (IF (LISTP N2) (IF (LESSP (CAR N1) (CAR N2)) N2 N1) N1) (IF (LISTP N2) N2 (QUOTE 0)))) LISP-CODE *1*HIERARCHICAL-NAME-MAX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194008 SATELLITES (*1*HIERARCHICAL-NAME-MAX) IMMEDIATE-DEPENDENTS0 (UPDATE-LSI-OCC-SYNTAX-DATA MAX-HIERARCHICAL-LENGTH-AND-NAME HIERARCHICAL-NAME-MAX-OFF) EVENT (DEFN HIERARCHICAL-NAME-MAX (N1 N2) (IF (AND (NLISTP N1) (NLISTP N2)) (QUOTE 0) (IF (NLISTP N1) N2 (IF (NLISTP N2) N1 (IF (LESSP (CAR N1) (CAR N2)) N2 N1))))) LOCAL-UNDO-TUPLES ((DCELL . *1*HIERARCHICAL-NAME-MAX))))) (PUT1-LST (QUOTE NAME-LENGTH-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE NAME-LENGTH-OFF NAME-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LENGTH . NAME-LENGTH-OFF) (DISABLED-LEMMAS NIL NAME-LENGTH NAME-LENGTH-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-LENGTH) (QUOTE (MAIN-EVENT NAME-LENGTH))) (PUT1-LST (QUOTE NAME-LENGTH) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-LENGTH 4 NIL)) TOTALP-LST ((NAME-LENGTH . T)) SDEFN (LAMBDA (NAME) (LENGTH (UNPACK NAME))) LISP-CODE *1*NAME-LENGTH SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*NAME-LENGTH) IMMEDIATE-DEPENDENTS0 (MAX-OCC-HIERARCHICAL-NAME MAX-HIERARCHICAL-LENGTH-AND-NAME NAME-LENGTH-OFF) EVENT (DEFN NAME-LENGTH (NAME) (LENGTH (UNPACK NAME))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . NAME-LENGTH) (DCELL . *1*NAME-LENGTH))))) (PUT1-LST (QUOTE LSI-FUNCTION-NAME-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-FUNCTION-NAME-OFF LSI-FUNCTION-NAME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-FUNCTION-NAME . LSI-FUNCTION-NAME-OFF) (DISABLED-LEMMAS NIL LSI-FUNCTION-NAME LSI-FUNCTION-NAME-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-FUNCTION-NAME) (QUOTE (MAIN-EVENT LSI-FUNCTION-NAME))) (PUT1-LST (QUOTE LSI-FUNCTION-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-FUNCTION-NAME -1 T)) TOTALP-LST ((LSI-FUNCTION-NAME . T)) SDEFN (LAMBDA (FNAME) (IF (PRIMP FNAME) (IF (PRIMP-LOOKUP FNAME (QUOTE LSI-NAME)) (IF (LISTP (PRIMP2 FNAME (QUOTE LSI-NAME))) (CAR (PRIMP2 FNAME (QUOTE LSI-NAME))) (PRIMP2 FNAME (QUOTE LSI-NAME))) FNAME) FNAME)) LISP-CODE *1*LSI-FUNCTION-NAME SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194008 SATELLITES (*1*LSI-FUNCTION-NAME) IMMEDIATE-DEPENDENTS0 (UPDATE-LSI-OCC-SYNTAX-DATA LSI-FUNCTION-NAME-OFF) EVENT (DEFN LSI-FUNCTION-NAME (FNAME) (IF (AND (PRIMP FNAME) (PRIMP-LOOKUP FNAME (QUOTE LSI-NAME))) (IF (LISTP (PRIMP2 FNAME (QUOTE LSI-NAME))) (CAR (PRIMP2 FNAME (QUOTE LSI-NAME))) (PRIMP2 FNAME (QUOTE LSI-NAME))) FNAME)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP2 . LSI-FUNCTION-NAME) (IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . LSI-FUNCTION-NAME) (IMMEDIATE-DEPENDENTS0 PRIMP . LSI-FUNCTION-NAME) (DCELL . *1*LSI-FUNCTION-NAME))))) (PUT1-LST (QUOTE LSI-NAME-LIST-OK-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-NAME-LIST-OK-OFF LSI-NAME-LIST-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-OK . LSI-NAME-LIST-OK-OFF) (DISABLED-LEMMAS NIL LSI-NAME-LIST-OK LSI-NAME-LIST-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-NAME-LIST-OK) (QUOTE (MAIN-EVENT LSI-NAME-LIST-OK))) (PUT1-LST (QUOTE LSI-NAME-LIST-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-NAME-LIST-OK 4098 NIL NIL NIL NIL)) TOTALP-LST ((LSI-NAME-LIST-OK . T)) SDEFN (LAMBDA (NAME-LIST TOKEN-SIZE LABEL DUPLICATES-OK?) (ERR-AND (LSI-NAME-LIST-ERRORS NAME-LIST TOKEN-SIZE DUPLICATES-OK?) LABEL)) LISP-CODE *1*LSI-NAME-LIST-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-NAME-LIST-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-OUTPUTS-OK LSI-MODULE-INPUTS-OK LSI-OCC-INPUTS-OK LSI-OCC-OUTPUTS-OK LSI-NAME-LIST-OK-OFF) EVENT (DEFN LSI-NAME-LIST-OK (NAME-LIST TOKEN-SIZE LABEL DUPLICATES-OK?) (ERR-AND (LSI-NAME-LIST-ERRORS NAME-LIST TOKEN-SIZE DUPLICATES-OK?) LABEL)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-ERRORS . LSI-NAME-LIST-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-NAME-LIST-OK) (DCELL . *1*LSI-NAME-LIST-OK))))) (PUT1-LST (QUOTE LSI-NAME-LIST-ERRORS-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-NAME-LIST-ERRORS-OFF LSI-NAME-LIST-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-LIST-ERRORS . LSI-NAME-LIST-ERRORS-OFF) (DISABLED-LEMMAS NIL LSI-NAME-LIST-ERRORS LSI-NAME-LIST-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-NAME-LIST-ERRORS) (QUOTE (MAIN-EVENT LSI-NAME-LIST-ERRORS))) (PUT1-LST (QUOTE LSI-NAME-LIST-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-NAME-LIST-ERRORS 16 NIL NIL NIL)) TOTALP-LST ((LSI-NAME-LIST-ERRORS . T)) SDEFN (LAMBDA (NAME-LIST TOKEN-SIZE DUPLICATES-OK?) (IF DUPLICATES-OK? (CONS (ERR-AND (LSI-BAD-NAMES NAME-LIST TOKEN-SIZE) (QUOTE BAD-LSI-NAMES)) (CONS (QUOTE *1*TRUE) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) (CONS (ERR-AND (LSI-BAD-NAMES NAME-LIST TOKEN-SIZE) (QUOTE BAD-LSI-NAMES)) (CONS (NO-DUPLICATES-OR-ERR NAME-LIST (QUOTE DUPLICATES)) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))) LISP-CODE *1*LSI-NAME-LIST-ERRORS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194008 SATELLITES (*1*LSI-NAME-LIST-ERRORS) IMMEDIATE-DEPENDENTS0 (LSI-NAME-LIST-OK LSI-NAME-LIST-ERRORS-OFF) EVENT (DEFN LSI-NAME-LIST-ERRORS (NAME-LIST TOKEN-SIZE DUPLICATES-OK?) (CONS (ERR-AND (LSI-BAD-NAMES NAME-LIST TOKEN-SIZE) (QUOTE BAD-LSI-NAMES)) (CONS (IF DUPLICATES-OK? (QUOTE *1*TRUE) (NO-DUPLICATES-OR-ERR NAME-LIST (QUOTE DUPLICATES))) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . LSI-NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . LSI-NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . LSI-NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 LSI-BAD-NAMES . LSI-NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-NAME-LIST-ERRORS) (DCELL . *1*LSI-NAME-LIST-ERRORS))))) (PUT1-LST (QUOTE LSI-BAD-NAMES-OFF) (QUOTE (IDATE 1000402194008 EVENT (TOGGLE LSI-BAD-NAMES-OFF LSI-BAD-NAMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-BAD-NAMES . LSI-BAD-NAMES-OFF) (DISABLED-LEMMAS NIL LSI-BAD-NAMES LSI-BAD-NAMES-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-BAD-NAMES) (QUOTE (MAIN-EVENT LSI-BAD-NAMES))) (PUT1-LST (QUOTE LSI-BAD-NAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-BAD-NAMES 24 NIL NIL)) TOTALP-LST ((LSI-BAD-NAMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (NAME-LIST TOKEN-SIZE) (IF (LISTP NAME-LIST) (CONS (LSI-NAME-OK (CAR NAME-LIST) TOKEN-SIZE) (LSI-BAD-NAMES (CDR NAME-LIST) TOKEN-SIZE)) (QUOTE NIL))) LISP-CODE *1*LSI-BAD-NAMES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAME-LIST)) (((CDR NAME-LIST) TOKEN-SIZE))) (TESTS-AND-CASES ((NOT (LISTP NAME-LIST))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAME-LIST) (COUNT NAME-LIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*LSI-BAD-NAMES) IMMEDIATE-DEPENDENTS0 (LSI-NAME-LIST-ERRORS LSI-BAD-NAMES-OFF) EVENT (DEFN LSI-BAD-NAMES (NAME-LIST TOKEN-SIZE) (IF (LISTP NAME-LIST) (CONS (LSI-NAME-OK (CAR NAME-LIST) TOKEN-SIZE) (LSI-BAD-NAMES (CDR NAME-LIST) TOKEN-SIZE)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-OK . LSI-BAD-NAMES) (DCELL . *1*LSI-BAD-NAMES))))) (PUT1-LST (QUOTE LSI-NAME-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE LSI-NAME-OK-OFF LSI-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-NAME-OK . LSI-NAME-OK-OFF) (DISABLED-LEMMAS NIL LSI-NAME-OK LSI-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-NAME-OK) (QUOTE (MAIN-EVENT LSI-NAME-OK))) (PUT1-LST (QUOTE LSI-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-NAME-OK 4098 NIL NIL)) TOTALP-LST ((LSI-NAME-OK . T)) SDEFN (LAMBDA (NAME TOKEN-SIZE) (IF (MEMBER NAME (LSI-KEYWORDS)) (PRED-ERROR (QUOTE LSI-NAME-IS-KEYWORD) NAME) (IF (LITATOM NAME) (IF (LESSP TOKEN-SIZE (LENGTH (UNPACK NAME))) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (LENGTH (UNPACK NAME)) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS TOKEN-SIZE (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (LETTERP (CAR (UNPACK NAME))) (QUOTE NAME-BEGINS-WITH-NONLETTER) (CAR (UNPACK NAME))) (CONS (NLISTP-OR-ERR (BAD-LSI-NAME-CHARS (CDR (UNPACK NAME)) (CDR (UNPACK (QUOTE A-_)))) (QUOTE ILLEGAL-CHARS-IN-NAME)) (CONS (T-OR-ERR (EQUAL (LAST-CDR (UNPACK NAME)) (QUOTE 0)) (QUOTE NOT-STANDARD-LITATOM) (CONS (QUOTE LAST-CDR) (CONS (LAST-CDR (UNPACK NAME)) (QUOTE NIL)))) (QUOTE NIL))))) (CONS (QUOTE BAD-LSI-NAME) (CONS NAME (QUOTE NIL)))) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (LENGTH (UNPACK NAME)) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS TOKEN-SIZE (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (LETTERP (CAR (UNPACK NAME))) (QUOTE NAME-BEGINS-WITH-NONLETTER) (CAR (UNPACK NAME))) (CONS (NLISTP-OR-ERR (BAD-LSI-NAME-CHARS (CDR (UNPACK NAME)) (CDR (UNPACK (QUOTE A-_)))) (QUOTE ILLEGAL-CHARS-IN-NAME)) (CONS (T-OR-ERR (EQUAL (LAST-CDR (UNPACK NAME)) (QUOTE 0)) (QUOTE NOT-STANDARD-LITATOM) (CONS (QUOTE LAST-CDR) (CONS (LAST-CDR (UNPACK NAME)) (QUOTE NIL)))) (QUOTE NIL))))) (CONS (QUOTE BAD-LSI-NAME) (CONS NAME (QUOTE NIL))))) (PRED-ERROR (QUOTE LSI-NAME-NOT-LITATOM) NAME)))) LISP-CODE *1*LSI-NAME-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*LSI-NAME-OK) IMMEDIATE-DEPENDENTS0 (PLSI-NAME-OK LSI-MODULE-NAME-OK LSI-OCC-NAME-OK LSI-BAD-NAMES LSI-NAME-OK-OFF) EVENT (DEFN LSI-NAME-OK (NAME TOKEN-SIZE) (IF (MEMBER NAME (LSI-KEYWORDS)) (PRED-ERROR (QUOTE LSI-NAME-IS-KEYWORD) NAME) (IF (LITATOM NAME) (ERR-AND (CONS (T-OR-ERR (IF (LESSP TOKEN-SIZE (LENGTH (UNPACK NAME))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS (LENGTH (UNPACK NAME)) (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS TOKEN-SIZE (QUOTE NIL))) (QUOTE NIL)))) (CONS (T-OR-ERR (LETTERP (CAR (UNPACK NAME))) (QUOTE NAME-BEGINS-WITH-NONLETTER) (CAR (UNPACK NAME))) (CONS (NLISTP-OR-ERR (BAD-LSI-NAME-CHARS (CDR (UNPACK NAME)) (CDR (UNPACK (QUOTE A-_)))) (QUOTE ILLEGAL-CHARS-IN-NAME)) (CONS (T-OR-ERR (EQUAL (LAST-CDR (UNPACK NAME)) (QUOTE 0)) (QUOTE NOT-STANDARD-LITATOM) (CONS (QUOTE LAST-CDR) (CONS (LAST-CDR (UNPACK NAME)) (QUOTE NIL)))) (QUOTE NIL))))) (CONS (QUOTE BAD-LSI-NAME) (CONS NAME (QUOTE NIL)))) (PRED-ERROR (QUOTE LSI-NAME-NOT-LITATOM) NAME)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 BAD-LSI-NAME-CHARS . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 LETTERP . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 LENGTH . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 PRED-ERROR . LSI-NAME-OK) (IMMEDIATE-DEPENDENTS0 LSI-KEYWORDS . LSI-NAME-OK) (DCELL . *1*LSI-NAME-OK))))) (PUT1-LST (QUOTE G*1*LSI-KEYWORDS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE G*1*LSI-KEYWORDS-OFF *1*LSI-KEYWORDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-KEYWORDS . G*1*LSI-KEYWORDS-OFF) (DISABLED-LEMMAS NIL *1*LSI-KEYWORDS G*1*LSI-KEYWORDS-OFF . T))))) (PUT1-LST (QUOTE LSI-KEYWORDS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE LSI-KEYWORDS-OFF LSI-KEYWORDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSI-KEYWORDS . LSI-KEYWORDS-OFF) (DISABLED-LEMMAS NIL LSI-KEYWORDS LSI-KEYWORDS-OFF . T))))) (PUT1-LST (QUOTE *1*LSI-KEYWORDS) (QUOTE (MAIN-EVENT LSI-KEYWORDS))) (PUT1-LST (QUOTE LSI-KEYWORDS) (QUOTE (TYPE-PRESCRIPTION-LST ((LSI-KEYWORDS 16)) TOTALP-LST ((LSI-KEYWORDS . T)) SDEFN (LAMBDA NIL (QUOTE (ACTION ANGLE ANNOTATIONS BLOAT BLOCK BUS CELL CELSTAT CHKSUM CLK_LINE DIRECTION DUMMY END FLIP FUNCTION HM_BIDI HM_INPUT HM_OUTPUT LIBRARY NAME NC NET PIN POWERCELLS PRIORITY PSECURED REGION SCALE TECHNOLOGY TSECURED VIA WIRE))) LISP-CODE *1*LSI-KEYWORDS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194007 SATELLITES (*1*LSI-KEYWORDS) IMMEDIATE-DEPENDENTS0 (LSI-NAME-OK G*1*LSI-KEYWORDS-OFF LSI-KEYWORDS-OFF) EVENT (DEFN LSI-KEYWORDS NIL (QUOTE (ACTION ANGLE ANNOTATIONS BLOAT BLOCK BUS CELL CELSTAT CHKSUM CLK_LINE DIRECTION DUMMY END FLIP FUNCTION HM_BIDI HM_INPUT HM_OUTPUT LIBRARY NAME NC NET PIN POWERCELLS PRIORITY PSECURED REGION SCALE TECHNOLOGY TSECURED VIA WIRE))) LOCAL-UNDO-TUPLES ((DCELL . *1*LSI-KEYWORDS))))) (PUT1-LST (QUOTE BAD-LSI-NAME-CHARS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE BAD-LSI-NAME-CHARS-OFF BAD-LSI-NAME-CHARS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAD-LSI-NAME-CHARS . BAD-LSI-NAME-CHARS-OFF) (DISABLED-LEMMAS NIL BAD-LSI-NAME-CHARS BAD-LSI-NAME-CHARS-OFF . T))))) (PUT1-LST (QUOTE *1*BAD-LSI-NAME-CHARS) (QUOTE (MAIN-EVENT BAD-LSI-NAME-CHARS))) (PUT1-LST (QUOTE BAD-LSI-NAME-CHARS) (QUOTE (TYPE-PRESCRIPTION-LST ((BAD-LSI-NAME-CHARS 24 NIL NIL)) TOTALP-LST ((BAD-LSI-NAME-CHARS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (CHAR-LIST SPECIAL-CHARACTERS) (IF (LISTP CHAR-LIST) (IF (LETTERP (CAR CHAR-LIST)) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS) (IF (DIGITP (CAR CHAR-LIST)) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS) (IF (MEMBER (CAR CHAR-LIST) SPECIAL-CHARACTERS) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS) (INSERT (CAR CHAR-LIST) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS))))) (QUOTE NIL))) LISP-CODE *1*BAD-LSI-NAME-CHARS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP CHAR-LIST) (OR (LETTERP (CAR CHAR-LIST)) (OR (DIGITP (CAR CHAR-LIST)) (MEMBER (CAR CHAR-LIST) SPECIAL-CHARACTERS)))) (((CDR CHAR-LIST) SPECIAL-CHARACTERS))) (TESTS-AND-CASES ((LISTP CHAR-LIST) (NOT (OR (LETTERP (CAR CHAR-LIST)) (OR (DIGITP (CAR CHAR-LIST)) (MEMBER (CAR CHAR-LIST) SPECIAL-CHARACTERS))))) (((CDR CHAR-LIST) SPECIAL-CHARACTERS))) (TESTS-AND-CASES ((NOT (LISTP CHAR-LIST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (CHAR-LIST) (COUNT CHAR-LIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*BAD-LSI-NAME-CHARS) IMMEDIATE-DEPENDENTS0 (LSI-NAME-OK BAD-LSI-NAME-CHARS-OFF) EVENT (DEFN BAD-LSI-NAME-CHARS (CHAR-LIST SPECIAL-CHARACTERS) (IF (LISTP CHAR-LIST) (IF (OR (LETTERP (CAR CHAR-LIST)) (OR (DIGITP (CAR CHAR-LIST)) (MEMBER (CAR CHAR-LIST) SPECIAL-CHARACTERS))) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS) (INSERT (CAR CHAR-LIST) (BAD-LSI-NAME-CHARS (CDR CHAR-LIST) SPECIAL-CHARACTERS))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . BAD-LSI-NAME-CHARS) (IMMEDIATE-DEPENDENTS0 DIGITP . BAD-LSI-NAME-CHARS) (IMMEDIATE-DEPENDENTS0 LETTERP . BAD-LSI-NAME-CHARS) (DCELL . *1*BAD-LSI-NAME-CHARS))))) (PUT1-LST (QUOTE DIGITP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE DIGITP-OFF DIGITP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIGITP . DIGITP-OFF) (DISABLED-LEMMAS NIL DIGITP DIGITP-OFF . T))))) (PUT1-LST (QUOTE *1*DIGITP) (QUOTE (MAIN-EVENT DIGITP))) (PUT1-LST (QUOTE DIGITP) (QUOTE (TYPE-PRESCRIPTION-LST ((DIGITP 3 NIL)) TOTALP-LST ((DIGITP . T)) SDEFN (LAMBDA (CHAR) (MEMBER CHAR (CDR (UNPACK (QUOTE A0123456789))))) LISP-CODE *1*DIGITP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*DIGITP) IMMEDIATE-DEPENDENTS0 (BAD-LSI-NAME-CHARS DIGITP-OFF) EVENT (DEFN DIGITP (CHAR) (MEMBER CHAR (CDR (UNPACK (QUOTE A0123456789))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DIGITP))))) (PUT1-LST (QUOTE LETTERP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE LETTERP-OFF LETTERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LETTERP . LETTERP-OFF) (DISABLED-LEMMAS NIL LETTERP LETTERP-OFF . T))))) (PUT1-LST (QUOTE *1*LETTERP) (QUOTE (MAIN-EVENT LETTERP))) (PUT1-LST (QUOTE LETTERP) (QUOTE (TYPE-PRESCRIPTION-LST ((LETTERP 3 NIL)) TOTALP-LST ((LETTERP . T)) SDEFN (LAMBDA (CHAR) (MEMBER CHAR (UNPACK (QUOTE ABCDEFGHIJKLMNOPQRSTUVWXYZ)))) LISP-CODE *1*LETTERP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*LETTERP) IMMEDIATE-DEPENDENTS0 (LSI-NAME-OK BAD-LSI-NAME-CHARS LETTERP-OFF) EVENT (DEFN LETTERP (CHAR) (MEMBER CHAR (UNPACK (QUOTE ABCDEFGHIJKLMNOPQRSTUVWXYZ)))) LOCAL-UNDO-TUPLES ((DCELL . *1*LETTERP))))) (PUT1-LST (QUOTE NETLIST-SYNTAX-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-SYNTAX-OK-OFF NETLIST-SYNTAX-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-OK . NETLIST-SYNTAX-OK-OFF) (DISABLED-LEMMAS NIL NETLIST-SYNTAX-OK NETLIST-SYNTAX-OK-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-OK) (QUOTE (MAIN-EVENT NETLIST-SYNTAX-OK))) (PUT1-LST (QUOTE NETLIST-SYNTAX-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-SYNTAX-OK 4098 NIL)) TOTALP-LST ((NETLIST-SYNTAX-OK . T)) SDEFN (LAMBDA (NETLIST) (ERR-AND (NETLIST-SYNTAX-ERRORS NETLIST) (QUOTE NETLIST-SYNTAX-ERRORS))) LISP-CODE *1*NETLIST-SYNTAX-OK SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194007 SATELLITES (*1*NETLIST-SYNTAX-OK) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE NETLIST-SYNTAX-OK-OFF) EVENT (DEFN NETLIST-SYNTAX-OK (NETLIST) (ERR-AND (NETLIST-SYNTAX-ERRORS NETLIST) (QUOTE NETLIST-SYNTAX-ERRORS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-ERRORS . NETLIST-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . NETLIST-SYNTAX-OK) (DCELL . *1*NETLIST-SYNTAX-OK))))) (PUT1-LST (QUOTE NETLIST-SYNTAX-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-SYNTAX-ERRORS-OFF NETLIST-SYNTAX-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-ERRORS . NETLIST-SYNTAX-ERRORS-OFF) (DISABLED-LEMMAS NIL NETLIST-SYNTAX-ERRORS NETLIST-SYNTAX-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-ERRORS) (QUOTE (MAIN-EVENT NETLIST-SYNTAX-ERRORS))) (PUT1-LST (QUOTE NETLIST-SYNTAX-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-SYNTAX-ERRORS 16 NIL)) TOTALP-LST ((NETLIST-SYNTAX-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (CONS (MODULE-SYNTAX-OK (CAR NETLIST) (CDR NETLIST)) (NETLIST-SYNTAX-ERRORS (CDR NETLIST))) (CONS (NIL-OR-ERR NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LISP-CODE *1*NETLIST-SYNTAX-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NETLIST)) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (LISTP NETLIST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-SYNTAX-ERRORS) IMMEDIATE-DEPENDENTS0 (NETLIST-SYNTAX-OK NETLIST-SYNTAX-ERRORS-OFF) EVENT (DEFN NETLIST-SYNTAX-ERRORS (NETLIST) (IF (LISTP NETLIST) (CONS (MODULE-SYNTAX-OK (CAR NETLIST) (CDR NETLIST)) (NETLIST-SYNTAX-ERRORS (CDR NETLIST))) (CONS (NIL-OR-ERR NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . NETLIST-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-OK . NETLIST-SYNTAX-ERRORS) (DCELL . *1*NETLIST-SYNTAX-ERRORS))))) (PUT1-LST (QUOTE MODULE-SYNTAX-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-SYNTAX-OK-OFF MODULE-SYNTAX-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-OK . MODULE-SYNTAX-OK-OFF) (DISABLED-LEMMAS NIL MODULE-SYNTAX-OK MODULE-SYNTAX-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-OK) (QUOTE (MAIN-EVENT MODULE-SYNTAX-OK))) (PUT1-LST (QUOTE MODULE-SYNTAX-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-SYNTAX-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-SYNTAX-OK . T)) SDEFN (LAMBDA (MODULE NETLIST) (ERR-AND (MODULE-SYNTAX-ERRORS MODULE NETLIST) (CONS (QUOTE MODULE) (CONS (MODULE-NAME MODULE) (QUOTE NIL))))) LISP-CODE *1*MODULE-SYNTAX-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194007 SATELLITES (*1*MODULE-SYNTAX-OK) IMMEDIATE-DEPENDENTS0 (NETLIST-SYNTAX-ERRORS MODULE-SYNTAX-OK-OFF) EVENT (DEFN MODULE-SYNTAX-OK (MODULE NETLIST) (ERR-AND (MODULE-SYNTAX-ERRORS MODULE NETLIST) (CONS (QUOTE MODULE) (CONS (MODULE-NAME MODULE) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-NAME . MODULE-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-ERRORS . MODULE-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . MODULE-SYNTAX-OK) (DCELL . *1*MODULE-SYNTAX-OK))))) (PUT1-LST (QUOTE MODULE-SYNTAX-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-SYNTAX-ERRORS-OFF MODULE-SYNTAX-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-ERRORS . MODULE-SYNTAX-ERRORS-OFF) (DISABLED-LEMMAS NIL MODULE-SYNTAX-ERRORS MODULE-SYNTAX-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-ERRORS) (QUOTE (MAIN-EVENT MODULE-SYNTAX-ERRORS))) (PUT1-LST (QUOTE MODULE-SYNTAX-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-SYNTAX-ERRORS 16 NIL NIL)) TOTALP-LST ((MODULE-SYNTAX-ERRORS . T)) SDEFN (LAMBDA (MODULE NETLIST) (CONS (MODULE-FORM-OK MODULE (LENGTH MODULE)) (CONS (MODULE-NAME-OK (MODULE-NAME MODULE) (LENGTH MODULE) NETLIST) (CONS (MODULE-INPUTS-OK (MODULE-INPUTS MODULE) (LENGTH MODULE)) (CONS (MODULE-OUTPUTS-OK (MODULE-OUTPUTS MODULE) (LENGTH MODULE)) (CONS (MODULE-OCCURRENCES-OK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST) (CONS (MODULE-STATENAMES-OK (MODULE-STATENAMES MODULE) (LENGTH MODULE)) (CONS (MODULE-ANNOTATION-OK (MODULE-ANNOTATION MODULE) (LENGTH MODULE)) (QUOTE NIL))))))))) LISP-CODE *1*MODULE-SYNTAX-ERRORS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194007 SATELLITES (*1*MODULE-SYNTAX-ERRORS) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-OK MODULE-SYNTAX-ERRORS-OFF) EVENT (DEFN MODULE-SYNTAX-ERRORS (MODULE NETLIST) (CONS (MODULE-FORM-OK MODULE (LENGTH MODULE)) (CONS (MODULE-NAME-OK (MODULE-NAME MODULE) (LENGTH MODULE) NETLIST) (CONS (MODULE-INPUTS-OK (MODULE-INPUTS MODULE) (LENGTH MODULE)) (CONS (MODULE-OUTPUTS-OK (MODULE-OUTPUTS MODULE) (LENGTH MODULE)) (CONS (MODULE-OCCURRENCES-OK (MODULE-OCCURRENCES MODULE) (MODULE-INPUTS MODULE) (MODULE-OUTPUTS MODULE) (MODULE-STATENAMES MODULE) (LENGTH MODULE) NETLIST) (CONS (MODULE-STATENAMES-OK (MODULE-STATENAMES MODULE) (LENGTH MODULE)) (CONS (MODULE-ANNOTATION-OK (MODULE-ANNOTATION MODULE) (LENGTH MODULE)) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-NAME-OK . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . MODULE-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 MODULE-FORM-OK . MODULE-SYNTAX-ERRORS) (DCELL . *1*MODULE-SYNTAX-ERRORS))))) (PUT1-LST (QUOTE MODULE-ANNOTATION-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-ANNOTATION-OK-OFF MODULE-ANNOTATION-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION-OK . MODULE-ANNOTATION-OK-OFF) (DISABLED-LEMMAS NIL MODULE-ANNOTATION-OK MODULE-ANNOTATION-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-ANNOTATION-OK) (QUOTE (MAIN-EVENT MODULE-ANNOTATION-OK))) (PUT1-LST (QUOTE MODULE-ANNOTATION-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-ANNOTATION-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-ANNOTATION-OK . T)) SDEFN (LAMBDA (M-ANNO M-LENGTH) (IF (EQUAL M-LENGTH (QUOTE 6)) (LABEL-ERROR (T-OR-ERR (ALISTP M-ANNO) (QUOTE NOT-ALIST) M-ANNO) (QUOTE MODULE-ANNOTATION)) (QUOTE *1*TRUE))) LISP-CODE *1*MODULE-ANNOTATION-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*MODULE-ANNOTATION-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS MODULE-ANNOTATION-OK-OFF) EVENT (DEFN MODULE-ANNOTATION-OK (M-ANNO M-LENGTH) (IF (EQUAL M-LENGTH (QUOTE 6)) (LABEL-ERROR (T-OR-ERR (ALISTP M-ANNO) (QUOTE NOT-ALIST) M-ANNO) (QUOTE MODULE-ANNOTATION)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP . MODULE-ANNOTATION-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . MODULE-ANNOTATION-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . MODULE-ANNOTATION-OK) (DCELL . *1*MODULE-ANNOTATION-OK))))) (PUT1-LST (QUOTE MODULE-STATENAMES-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-STATENAMES-OK-OFF MODULE-STATENAMES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES-OK . MODULE-STATENAMES-OK-OFF) (DISABLED-LEMMAS NIL MODULE-STATENAMES-OK MODULE-STATENAMES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-STATENAMES-OK) (QUOTE (MAIN-EVENT MODULE-STATENAMES-OK))) (PUT1-LST (QUOTE MODULE-STATENAMES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-STATENAMES-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-STATENAMES-OK . T)) SDEFN (LAMBDA (M-STATES M-LENGTH) (IF (LESSP M-LENGTH (QUOTE 5)) (QUOTE *1*TRUE) (IF (LISTP M-STATES) (ERR-AND (CONS (T-OR-ERR (LISTP (CDR M-STATES)) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) M-STATES) (NAME-LIST-ERRORS (M-STATES-LIST M-STATES) (QUOTE *1*FALSE))) (QUOTE MODULE-STATENAMES)) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) M-STATES) (NAME-LIST-ERRORS (M-STATES-LIST M-STATES) (QUOTE *1*FALSE))) (QUOTE MODULE-STATENAMES))))) LISP-CODE *1*MODULE-STATENAMES-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*MODULE-STATENAMES-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS MODULE-STATENAMES-OK-OFF) EVENT (DEFN MODULE-STATENAMES-OK (M-STATES M-LENGTH) (IF (IF (LESSP M-LENGTH (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (T-OR-ERR (IF (LISTP M-STATES) (LISTP (CDR M-STATES)) (QUOTE *1*TRUE)) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) M-STATES) (NAME-LIST-ERRORS (M-STATES-LIST M-STATES) (QUOTE *1*FALSE))) (QUOTE MODULE-STATENAMES)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-STATES-LIST . MODULE-STATENAMES-OK) (IMMEDIATE-DEPENDENTS0 NAME-LIST-ERRORS . MODULE-STATENAMES-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . MODULE-STATENAMES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . MODULE-STATENAMES-OK) (DCELL . *1*MODULE-STATENAMES-OK))))) (PUT1-LST (QUOTE MODULE-OCCURRENCES-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-OCCURRENCES-OK-OFF MODULE-OCCURRENCES-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES-OK . MODULE-OCCURRENCES-OK-OFF) (DISABLED-LEMMAS NIL MODULE-OCCURRENCES-OK MODULE-OCCURRENCES-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-OCCURRENCES-OK) (QUOTE (MAIN-EVENT MODULE-OCCURRENCES-OK))) (PUT1-LST (QUOTE MODULE-OCCURRENCES-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-OCCURRENCES-OK 4098 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((MODULE-OCCURRENCES-OK . T)) SDEFN (LAMBDA (M-OCCS M-INS M-OUTS M-STATES M-LENGTH NETLIST) (IF (LESSP M-LENGTH (QUOTE 4)) (QUOTE *1*TRUE) (ERR-AND (CONS (T-OR-ERR (LISTP M-OCCS) (QUOTE NO-OCCURRENCES) M-OCCS) (OCC-BODY-SYNTAX-ERRORS M-OCCS (INITIAL-OCC-SYNTAX-DATA M-INS M-OUTS) M-OUTS (STATES-LIST-OR-NIL M-STATES M-LENGTH) NETLIST)) (QUOTE MODULE-OCCURRENCES)))) LISP-CODE *1*MODULE-OCCURRENCES-OK SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194007 SATELLITES (*1*MODULE-OCCURRENCES-OK) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-ERRORS MODULE-OCCURRENCES-OK-OFF) EVENT (DEFN MODULE-OCCURRENCES-OK (M-OCCS M-INS M-OUTS M-STATES M-LENGTH NETLIST) (IF (IF (LESSP M-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (T-OR-ERR (LISTP M-OCCS) (QUOTE NO-OCCURRENCES) M-OCCS) (OCC-BODY-SYNTAX-ERRORS M-OCCS (INITIAL-OCC-SYNTAX-DATA M-INS M-OUTS) M-OUTS (STATES-LIST-OR-NIL M-STATES M-LENGTH) NETLIST)) (QUOTE MODULE-OCCURRENCES)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATES-LIST-OR-NIL . MODULE-OCCURRENCES-OK) (IMMEDIATE-DEPENDENTS0 INITIAL-OCC-SYNTAX-DATA . MODULE-OCCURRENCES-OK) (IMMEDIATE-DEPENDENTS0 OCC-BODY-SYNTAX-ERRORS . MODULE-OCCURRENCES-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . MODULE-OCCURRENCES-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . MODULE-OCCURRENCES-OK) (DCELL . *1*MODULE-OCCURRENCES-OK))))) (PUT1-LST (QUOTE STATES-LIST-OR-NIL-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE STATES-LIST-OR-NIL-OFF STATES-LIST-OR-NIL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATES-LIST-OR-NIL . STATES-LIST-OR-NIL-OFF) (DISABLED-LEMMAS NIL STATES-LIST-OR-NIL STATES-LIST-OR-NIL-OFF . T))))) (PUT1-LST (QUOTE *1*STATES-LIST-OR-NIL) (QUOTE (MAIN-EVENT STATES-LIST-OR-NIL))) (PUT1-LST (QUOTE STATES-LIST-OR-NIL) (QUOTE (TYPE-PRESCRIPTION-LST ((STATES-LIST-OR-NIL 24 T NIL)) TOTALP-LST ((STATES-LIST-OR-NIL . T)) SDEFN (LAMBDA (M-STATES M-LENGTH) (IF (LESSP M-LENGTH (QUOTE 5)) (QUOTE NIL) (M-STATES-LIST M-STATES))) LISP-CODE *1*STATES-LIST-OR-NIL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194007 SATELLITES (*1*STATES-LIST-OR-NIL) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-OCCURRENCES-CHECK MODULE-OCCURRENCES-OK STATES-LIST-OR-NIL-OFF) EVENT (DEFN STATES-LIST-OR-NIL (M-STATES M-LENGTH) (IF (IF (LESSP M-LENGTH (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (M-STATES-LIST M-STATES) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-STATES-LIST . STATES-LIST-OR-NIL) (DCELL . *1*STATES-LIST-OR-NIL))))) (PUT1-LST (QUOTE MODULE-OUTPUTS-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-OUTPUTS-OK-OFF MODULE-OUTPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS-OK . MODULE-OUTPUTS-OK-OFF) (DISABLED-LEMMAS NIL MODULE-OUTPUTS-OK MODULE-OUTPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-OUTPUTS-OK) (QUOTE (MAIN-EVENT MODULE-OUTPUTS-OK))) (PUT1-LST (QUOTE MODULE-OUTPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-OUTPUTS-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-OUTPUTS-OK . T)) SDEFN (LAMBDA (M-OUTS M-LENGTH) (IF (LESSP M-LENGTH (QUOTE 3)) (QUOTE *1*TRUE) (NAME-LIST-OK M-OUTS (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE)))) LISP-CODE *1*MODULE-OUTPUTS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*MODULE-OUTPUTS-OK) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-ERRORS MODULE-OUTPUTS-OK-OFF) EVENT (DEFN MODULE-OUTPUTS-OK (M-OUTS M-LENGTH) (IF (IF (LESSP M-LENGTH (QUOTE 3)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAME-LIST-OK M-OUTS (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . MODULE-OUTPUTS-OK) (DCELL . *1*MODULE-OUTPUTS-OK))))) (PUT1-LST (QUOTE MODULE-INPUTS-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-INPUTS-OK-OFF MODULE-INPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-INPUTS-OK . MODULE-INPUTS-OK-OFF) (DISABLED-LEMMAS NIL MODULE-INPUTS-OK MODULE-INPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-INPUTS-OK) (QUOTE (MAIN-EVENT MODULE-INPUTS-OK))) (PUT1-LST (QUOTE MODULE-INPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-INPUTS-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-INPUTS-OK . T)) SDEFN (LAMBDA (M-INS M-LENGTH) (IF (LESSP M-LENGTH (QUOTE 2)) (QUOTE *1*TRUE) (NAME-LIST-OK M-INS (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE)))) LISP-CODE *1*MODULE-INPUTS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*MODULE-INPUTS-OK) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-ERRORS MODULE-INPUTS-OK-OFF) EVENT (DEFN MODULE-INPUTS-OK (M-INS M-LENGTH) (IF (IF (LESSP M-LENGTH (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAME-LIST-OK M-INS (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . MODULE-INPUTS-OK) (DCELL . *1*MODULE-INPUTS-OK))))) (PUT1-LST (QUOTE MODULE-NAME-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-NAME-OK-OFF MODULE-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-NAME-OK . MODULE-NAME-OK-OFF) (DISABLED-LEMMAS NIL MODULE-NAME-OK MODULE-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-NAME-OK) (QUOTE (MAIN-EVENT MODULE-NAME-OK))) (PUT1-LST (QUOTE MODULE-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-NAME-OK 4098 NIL NIL NIL)) TOTALP-LST ((MODULE-NAME-OK . T)) SDEFN (LAMBDA (M-NAME M-LENGTH NETLIST) (IF (LESSP M-LENGTH (QUOTE 1)) (QUOTE *1*TRUE) (IF (LOOKUP-MODULE M-NAME NETLIST) (IF (PRIMP M-NAME) (ERR-AND (CONS (T-OR-ERR (NAME-OKP M-NAME) (QUOTE BAD-NAME) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (ERR-AND (CONS (T-OR-ERR (NAME-OKP M-NAME) (QUOTE BAD-NAME) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME))) (IF (PRIMP M-NAME) (ERR-AND (CONS (T-OR-ERR (NAME-OKP M-NAME) (QUOTE BAD-NAME) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*FALSE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (ERR-AND (CONS (T-OR-ERR (NAME-OKP M-NAME) (QUOTE BAD-NAME) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)))))) LISP-CODE *1*MODULE-NAME-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*MODULE-NAME-OK) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-ERRORS MODULE-NAME-OK-OFF) EVENT (DEFN MODULE-NAME-OK (M-NAME M-LENGTH NETLIST) (IF (IF (LESSP M-LENGTH (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ERR-AND (CONS (T-OR-ERR (NAME-OKP M-NAME) (QUOTE BAD-NAME) M-NAME) (CONS (T-OR-ERR (NOT (LOOKUP-MODULE M-NAME NETLIST)) (QUOTE DUPLICATE-MODULE-DEFNS) M-NAME) (CONS (T-OR-ERR (NOT (PRIMP M-NAME)) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 NAME-OKP . MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . MODULE-NAME-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . MODULE-NAME-OK) (DCELL . *1*MODULE-NAME-OK))))) (PUT1-LST (QUOTE MODULE-FORM-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MODULE-FORM-OK-OFF MODULE-FORM-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-FORM-OK . MODULE-FORM-OK-OFF) (DISABLED-LEMMAS NIL MODULE-FORM-OK MODULE-FORM-OK-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-FORM-OK) (QUOTE (MAIN-EVENT MODULE-FORM-OK))) (PUT1-LST (QUOTE MODULE-FORM-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-FORM-OK 4098 NIL NIL)) TOTALP-LST ((MODULE-FORM-OK . T)) SDEFN (LAMBDA (MODULE M-LENGTH) (IF (EQUAL M-LENGTH (QUOTE 5)) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE BAD-MODULE-LENGTH) M-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR MODULE) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE MODULE-FORM)) (ERR-AND (CONS (T-OR-ERR (EQUAL M-LENGTH (QUOTE 6)) (QUOTE BAD-MODULE-LENGTH) M-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR MODULE) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE MODULE-FORM)))) LISP-CODE *1*MODULE-FORM-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*MODULE-FORM-OK) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS MODULE-FORM-OK-OFF) EVENT (DEFN MODULE-FORM-OK (MODULE M-LENGTH) (ERR-AND (CONS (T-OR-ERR (OR (EQUAL M-LENGTH (QUOTE 5)) (EQUAL M-LENGTH (QUOTE 6))) (QUOTE BAD-MODULE-LENGTH) M-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR MODULE) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE MODULE-FORM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . MODULE-FORM-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . MODULE-FORM-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . MODULE-FORM-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . MODULE-FORM-OK) (DCELL . *1*MODULE-FORM-OK))))) (PUT1-LST (QUOTE OCC-BODY-SYNTAX-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-BODY-SYNTAX-ERRORS-OFF OCC-BODY-SYNTAX-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-BODY-SYNTAX-ERRORS . OCC-BODY-SYNTAX-ERRORS-OFF) (DISABLED-LEMMAS NIL OCC-BODY-SYNTAX-ERRORS OCC-BODY-SYNTAX-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-BODY-SYNTAX-ERRORS) (QUOTE (MAIN-EVENT OCC-BODY-SYNTAX-ERRORS))) (PUT1-LST (QUOTE OCC-BODY-SYNTAX-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-BODY-SYNTAX-ERRORS 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((OCC-BODY-SYNTAX-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (BODY OCC-DATA OUTPUTS STATES NETLIST) (IF (LISTP BODY) (CONS (OCC-SYNTAX-OK (CAR BODY) NETLIST) (OCC-BODY-SYNTAX-ERRORS (CDR BODY) (UPDATE-OCC-SYNTAX-DATA (CAR BODY) OCC-DATA) OUTPUTS STATES NETLIST)) (COMPOSITE-OCC-BODY-SYNTAX-ERRORS BODY OCC-DATA OUTPUTS STATES))) LISP-CODE *1*OCC-BODY-SYNTAX-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BODY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BODY))) (((CDR BODY) (UPDATE-OCC-SYNTAX-DATA (CAR BODY) OCC-DATA) OUTPUTS STATES NETLIST)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*OCC-BODY-SYNTAX-ERRORS) IMMEDIATE-DEPENDENTS0 (MODULE-OCCURRENCES-OK OCC-BODY-SYNTAX-ERRORS-OFF) EVENT (DEFN OCC-BODY-SYNTAX-ERRORS (BODY OCC-DATA OUTPUTS STATES NETLIST) (IF (NLISTP BODY) (COMPOSITE-OCC-BODY-SYNTAX-ERRORS BODY OCC-DATA OUTPUTS STATES) (CONS (OCC-SYNTAX-OK (CAR BODY) NETLIST) (OCC-BODY-SYNTAX-ERRORS (CDR BODY) (UPDATE-OCC-SYNTAX-DATA (CAR BODY) OCC-DATA) OUTPUTS STATES NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OCC-SYNTAX-DATA . OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-OK . OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 COMPOSITE-OCC-BODY-SYNTAX-ERRORS . OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OCC-BODY-SYNTAX-ERRORS) (DCELL . *1*OCC-BODY-SYNTAX-ERRORS))))) (PUT1-LST (QUOTE COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF COMPOSITE-OCC-BODY-SYNTAX-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMPOSITE-OCC-BODY-SYNTAX-ERRORS . COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF) (DISABLED-LEMMAS NIL COMPOSITE-OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (QUOTE (MAIN-EVENT COMPOSITE-OCC-BODY-SYNTAX-ERRORS))) (PUT1-LST (QUOTE COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((COMPOSITE-OCC-BODY-SYNTAX-ERRORS 16 NIL NIL NIL NIL)) TOTALP-LST ((COMPOSITE-OCC-BODY-SYNTAX-ERRORS . T)) SDEFN (LAMBDA (BODY OCC-DATA OUTPUTS STATES) (CONS (NIL-OR-ERR BODY (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR (VALUE (QUOTE PENDING-IO) OCC-DATA) (QUOTE IO-SIGNALS-NOT-IN-OUTPUTS)) (CONS (SUBSET-OR-ERR OUTPUTS (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE OUTPUTS-NOT-IN-SIGNALS)) (CONS (SUBSET-OR-ERR (VALUE (QUOTE NON-DEPENDS) OCC-DATA) (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE NON-DEPENDS-NOT-IN-SIGNALS)) (CONS (SUBSET-OR-ERR STATES (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE STATES-NOT-IN-OCC-NAMES)) (CONS (NO-DUPLICATES-OR-ERR (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE DUPLICATES-IN-SIGNALS)) (CONS (NO-DUPLICATES-OR-ERR (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE DUPLICATES-IN-OCC-NAMES)) (QUOTE NIL))))))))) LISP-CODE *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS) IMMEDIATE-DEPENDENTS0 (LSI-OCC-BODY-SYNTAX-CHECK OCC-BODY-SYNTAX-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS-OFF) EVENT (DEFN COMPOSITE-OCC-BODY-SYNTAX-ERRORS (BODY OCC-DATA OUTPUTS STATES) (CONS (NIL-OR-ERR BODY (QUOTE NOT-PROPER-LIST)) (CONS (NLISTP-OR-ERR (VALUE (QUOTE PENDING-IO) OCC-DATA) (QUOTE IO-SIGNALS-NOT-IN-OUTPUTS)) (CONS (SUBSET-OR-ERR OUTPUTS (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE OUTPUTS-NOT-IN-SIGNALS)) (CONS (SUBSET-OR-ERR (VALUE (QUOTE NON-DEPENDS) OCC-DATA) (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE NON-DEPENDS-NOT-IN-SIGNALS)) (CONS (SUBSET-OR-ERR STATES (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE STATES-NOT-IN-OCC-NAMES)) (CONS (NO-DUPLICATES-OR-ERR (VALUE (QUOTE SIGNALS) OCC-DATA) (QUOTE DUPLICATES-IN-SIGNALS)) (CONS (NO-DUPLICATES-OR-ERR (VALUE (QUOTE OCC-NAMES) OCC-DATA) (QUOTE DUPLICATES-IN-OCC-NAMES)) (QUOTE NIL))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 SUBSET-OR-ERR . COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 VALUE . COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (DCELL . *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS))))) (PUT1-LST (QUOTE UPDATE-OCC-SYNTAX-DATA-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE UPDATE-OCC-SYNTAX-DATA-OFF UPDATE-OCC-SYNTAX-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-OCC-SYNTAX-DATA . UPDATE-OCC-SYNTAX-DATA-OFF) (DISABLED-LEMMAS NIL UPDATE-OCC-SYNTAX-DATA UPDATE-OCC-SYNTAX-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-OCC-SYNTAX-DATA) (QUOTE (MAIN-EVENT UPDATE-OCC-SYNTAX-DATA))) (PUT1-LST (QUOTE UPDATE-OCC-SYNTAX-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-OCC-SYNTAX-DATA 16 NIL NIL)) TOTALP-LST ((UPDATE-OCC-SYNTAX-DATA . T)) SDEFN (LAMBDA (OCC OCC-DATA) (IF (LISTP (VALUE (QUOTE PENDING-IO) OCC-DATA)) (CONS (CONS (QUOTE SIGNALS) (APPEND (SET-DIFF (OCC-OUTPUTS OCC) (VALUE (QUOTE PENDING-IO) OCC-DATA)) (VALUE (QUOTE SIGNALS) OCC-DATA))) (CONS (CONS (QUOTE PENDING-IO) (SET-DIFF (VALUE (QUOTE PENDING-IO) OCC-DATA) (OCC-OUTPUTS OCC))) (CONS (CONS (QUOTE NON-DEPENDS) (APPEND (SET-DIFF (OCC-INPUTS OCC) (VALUE (QUOTE SIGNALS) OCC-DATA)) (VALUE (QUOTE NON-DEPENDS) OCC-DATA))) (CONS (CONS (QUOTE OCC-NAMES) (CONS (OCC-NAME OCC) (VALUE (QUOTE OCC-NAMES) OCC-DATA))) (QUOTE NIL))))) (CONS (CONS (QUOTE SIGNALS) (APPEND (OCC-OUTPUTS OCC) (VALUE (QUOTE SIGNALS) OCC-DATA))) (CONS (CONS (QUOTE PENDING-IO) (SET-DIFF (VALUE (QUOTE PENDING-IO) OCC-DATA) (OCC-OUTPUTS OCC))) (CONS (CONS (QUOTE NON-DEPENDS) (APPEND (SET-DIFF (OCC-INPUTS OCC) (VALUE (QUOTE SIGNALS) OCC-DATA)) (VALUE (QUOTE NON-DEPENDS) OCC-DATA))) (CONS (CONS (QUOTE OCC-NAMES) (CONS (OCC-NAME OCC) (VALUE (QUOTE OCC-NAMES) OCC-DATA))) (QUOTE NIL))))))) LISP-CODE *1*UPDATE-OCC-SYNTAX-DATA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*UPDATE-OCC-SYNTAX-DATA) IMMEDIATE-DEPENDENTS0 (UPDATE-LSI-OCC-SYNTAX-DATA OCC-BODY-SYNTAX-ERRORS UPDATE-OCC-SYNTAX-DATA-OFF) EVENT (DEFN UPDATE-OCC-SYNTAX-DATA (OCC OCC-DATA) (CONS (CONS (QUOTE SIGNALS) (APPEND (IF (LISTP (VALUE (QUOTE PENDING-IO) OCC-DATA)) (SET-DIFF (OCC-OUTPUTS OCC) (VALUE (QUOTE PENDING-IO) OCC-DATA)) (OCC-OUTPUTS OCC)) (VALUE (QUOTE SIGNALS) OCC-DATA))) (CONS (CONS (QUOTE PENDING-IO) (SET-DIFF (VALUE (QUOTE PENDING-IO) OCC-DATA) (OCC-OUTPUTS OCC))) (CONS (CONS (QUOTE NON-DEPENDS) (APPEND (SET-DIFF (OCC-INPUTS OCC) (VALUE (QUOTE SIGNALS) OCC-DATA)) (VALUE (QUOTE NON-DEPENDS) OCC-DATA))) (CONS (CONS (QUOTE OCC-NAMES) (CONS (OCC-NAME OCC) (VALUE (QUOTE OCC-NAMES) OCC-DATA))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . UPDATE-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . UPDATE-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . UPDATE-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 SET-DIFF . UPDATE-OCC-SYNTAX-DATA) (IMMEDIATE-DEPENDENTS0 VALUE . UPDATE-OCC-SYNTAX-DATA) (DCELL . *1*UPDATE-OCC-SYNTAX-DATA))))) (PUT1-LST (QUOTE INITIAL-OCC-SYNTAX-DATA-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE INITIAL-OCC-SYNTAX-DATA-OFF INITIAL-OCC-SYNTAX-DATA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INITIAL-OCC-SYNTAX-DATA . INITIAL-OCC-SYNTAX-DATA-OFF) (DISABLED-LEMMAS NIL INITIAL-OCC-SYNTAX-DATA INITIAL-OCC-SYNTAX-DATA-OFF . T))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-SYNTAX-DATA) (QUOTE (MAIN-EVENT INITIAL-OCC-SYNTAX-DATA))) (PUT1-LST (QUOTE INITIAL-OCC-SYNTAX-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((INITIAL-OCC-SYNTAX-DATA 16 NIL NIL)) TOTALP-LST ((INITIAL-OCC-SYNTAX-DATA . T)) SDEFN (LAMBDA (M-INS M-OUTS) (CONS (CONS (QUOTE SIGNALS) M-INS) (CONS (CONS (QUOTE PENDING-IO) (INTERSECTION M-INS M-OUTS)) (QUOTE ((NON-DEPENDS) (OCC-NAMES)))))) LISP-CODE *1*INITIAL-OCC-SYNTAX-DATA SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*INITIAL-OCC-SYNTAX-DATA) IMMEDIATE-DEPENDENTS0 (INITIAL-LSI-OCC-SYNTAX-DATA MODULE-OCCURRENCES-OK INITIAL-OCC-SYNTAX-DATA-OFF) EVENT (DEFN INITIAL-OCC-SYNTAX-DATA (M-INS M-OUTS) (CONS (CONS (QUOTE SIGNALS) M-INS) (CONS (CONS (QUOTE PENDING-IO) (INTERSECTION M-INS M-OUTS)) (QUOTE ((NON-DEPENDS) (OCC-NAMES)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTERSECTION . INITIAL-OCC-SYNTAX-DATA) (DCELL . *1*INITIAL-OCC-SYNTAX-DATA))))) (PUT1-LST (QUOTE OCC-SYNTAX-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-SYNTAX-OK-OFF OCC-SYNTAX-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-OK . OCC-SYNTAX-OK-OFF) (DISABLED-LEMMAS NIL OCC-SYNTAX-OK OCC-SYNTAX-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-OK) (QUOTE (MAIN-EVENT OCC-SYNTAX-OK))) (PUT1-LST (QUOTE OCC-SYNTAX-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-SYNTAX-OK 4098 NIL NIL)) TOTALP-LST ((OCC-SYNTAX-OK . T)) SDEFN (LAMBDA (OCC NETLIST) (ERR-AND (OCC-SYNTAX-ERRORS OCC NETLIST) (CONS (QUOTE OCCURRENCE) (CONS (OCC-NAME OCC) (QUOTE NIL))))) LISP-CODE *1*OCC-SYNTAX-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*OCC-SYNTAX-OK) IMMEDIATE-DEPENDENTS0 (OCC-BODY-SYNTAX-ERRORS OCC-SYNTAX-OK-OFF) EVENT (DEFN OCC-SYNTAX-OK (OCC NETLIST) (ERR-AND (OCC-SYNTAX-ERRORS OCC NETLIST) (CONS (QUOTE OCCURRENCE) (CONS (OCC-NAME OCC) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-ERRORS . OCC-SYNTAX-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . OCC-SYNTAX-OK) (DCELL . *1*OCC-SYNTAX-OK))))) (PUT1-LST (QUOTE OCC-SYNTAX-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-SYNTAX-ERRORS-OFF OCC-SYNTAX-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-ERRORS . OCC-SYNTAX-ERRORS-OFF) (DISABLED-LEMMAS NIL OCC-SYNTAX-ERRORS OCC-SYNTAX-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-ERRORS) (QUOTE (MAIN-EVENT OCC-SYNTAX-ERRORS))) (PUT1-LST (QUOTE OCC-SYNTAX-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-SYNTAX-ERRORS 16 NIL NIL)) TOTALP-LST ((OCC-SYNTAX-ERRORS . T)) SDEFN (LAMBDA (OCC NETLIST) (CONS (OCC-FORM-OK OCC (LENGTH OCC)) (CONS (OCC-NAME-OK (OCC-NAME OCC) (LENGTH OCC)) (CONS (OCC-OUTPUTS-OK (OCC-OUTPUTS OCC) (LENGTH OCC)) (CONS (OCC-INPUTS-OK (OCC-INPUTS OCC) (LENGTH OCC)) (CONS (OCC-FUNCTION-OK (OCC-FUNCTION OCC) (OCC-INPUTS OCC) (OCC-OUTPUTS OCC) (LENGTH OCC) NETLIST) (CONS (OCC-ANNOTATION-OK (OCC-ANNOTATION OCC) (LENGTH OCC)) (QUOTE NIL)))))))) LISP-CODE *1*OCC-SYNTAX-ERRORS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*OCC-SYNTAX-ERRORS) IMMEDIATE-DEPENDENTS0 (OCC-SYNTAX-OK OCC-SYNTAX-ERRORS-OFF) EVENT (DEFN OCC-SYNTAX-ERRORS (OCC NETLIST) (CONS (OCC-FORM-OK OCC (LENGTH OCC)) (CONS (OCC-NAME-OK (OCC-NAME OCC) (LENGTH OCC)) (CONS (OCC-OUTPUTS-OK (OCC-OUTPUTS OCC) (LENGTH OCC)) (CONS (OCC-INPUTS-OK (OCC-INPUTS OCC) (LENGTH OCC)) (CONS (OCC-FUNCTION-OK (OCC-FUNCTION OCC) (OCC-INPUTS OCC) (OCC-OUTPUTS OCC) (LENGTH OCC) NETLIST) (CONS (OCC-ANNOTATION-OK (OCC-ANNOTATION OCC) (LENGTH OCC)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION-OK . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION-OK . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS-OK . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS-OK . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-NAME . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-NAME-OK . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 LENGTH . OCC-SYNTAX-ERRORS) (IMMEDIATE-DEPENDENTS0 OCC-FORM-OK . OCC-SYNTAX-ERRORS) (DCELL . *1*OCC-SYNTAX-ERRORS))))) (PUT1-LST (QUOTE OCC-ANNOTATION-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-ANNOTATION-OK-OFF OCC-ANNOTATION-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION-OK . OCC-ANNOTATION-OK-OFF) (DISABLED-LEMMAS NIL OCC-ANNOTATION-OK OCC-ANNOTATION-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-ANNOTATION-OK) (QUOTE (MAIN-EVENT OCC-ANNOTATION-OK))) (PUT1-LST (QUOTE OCC-ANNOTATION-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-ANNOTATION-OK 4098 NIL NIL)) TOTALP-LST ((OCC-ANNOTATION-OK . T)) SDEFN (LAMBDA (O-ANNO O-LENGTH) (IF (EQUAL O-LENGTH (QUOTE 5)) (LABEL-ERROR (T-OR-ERR (ALISTP O-ANNO) (QUOTE NOT-ALIST) O-ANNO) (QUOTE OCCURRENCE-ANNOTATION)) (QUOTE *1*TRUE))) LISP-CODE *1*OCC-ANNOTATION-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*OCC-ANNOTATION-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK OCC-SYNTAX-ERRORS OCC-ANNOTATION-OK-OFF) EVENT (DEFN OCC-ANNOTATION-OK (O-ANNO O-LENGTH) (IF (EQUAL O-LENGTH (QUOTE 5)) (LABEL-ERROR (T-OR-ERR (ALISTP O-ANNO) (QUOTE NOT-ALIST) O-ANNO) (QUOTE OCCURRENCE-ANNOTATION)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP . OCC-ANNOTATION-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . OCC-ANNOTATION-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . OCC-ANNOTATION-OK) (DCELL . *1*OCC-ANNOTATION-OK))))) (PUT1-LST (QUOTE OCC-FUNCTION-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-FUNCTION-OK-OFF OCC-FUNCTION-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-FUNCTION-OK . OCC-FUNCTION-OK-OFF) (DISABLED-LEMMAS NIL OCC-FUNCTION-OK OCC-FUNCTION-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-FUNCTION-OK) (QUOTE (MAIN-EVENT OCC-FUNCTION-OK))) (PUT1-LST (QUOTE OCC-FUNCTION-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-FUNCTION-OK 4098 NIL NIL NIL NIL NIL)) TOTALP-LST ((OCC-FUNCTION-OK . T)) SDEFN (LAMBDA (O-FN O-INS O-OUTS O-LENGTH NETLIST) (IF (LESSP O-LENGTH (QUOTE 3)) (QUOTE *1*TRUE) (IF (PRIMP O-FN) (IF (LESSP O-LENGTH (QUOTE 4)) (ERR-AND (CONS (QUOTE *1*TRUE) (CONS (OCC-ARG-LENGTH-ERROR O-FN (PRIMP2 O-FN (QUOTE OUTPUTS)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION)) (ERR-AND (CONS (OCC-ARG-LENGTH-ERROR O-FN (PRIMP2 O-FN (QUOTE INPUTS)) O-INS (QUOTE WRONG-NUMBER-OF-INPUTS)) (CONS (OCC-ARG-LENGTH-ERROR O-FN (PRIMP2 O-FN (QUOTE OUTPUTS)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION))) (IF (LISTP (LOOKUP-MODULE O-FN NETLIST)) (IF (LESSP O-LENGTH (QUOTE 4)) (ERR-AND (CONS (QUOTE *1*TRUE) (CONS (OCC-ARG-LENGTH-ERROR O-FN (MODULE-OUTPUTS (LOOKUP-MODULE O-FN NETLIST)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION)) (ERR-AND (CONS (OCC-ARG-LENGTH-ERROR O-FN (MODULE-INPUTS (LOOKUP-MODULE O-FN NETLIST)) O-INS (QUOTE WRONG-NUMBER-OF-INPUTS)) (CONS (OCC-ARG-LENGTH-ERROR O-FN (MODULE-OUTPUTS (LOOKUP-MODULE O-FN NETLIST)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION))) (PRED-ERROR (QUOTE UNKNOWN-OCCURRENCE-FUNCTION) O-FN))))) LISP-CODE *1*OCC-FUNCTION-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*OCC-FUNCTION-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK OCC-SYNTAX-ERRORS OCC-FUNCTION-OK-OFF) EVENT (DEFN OCC-FUNCTION-OK (O-FN O-INS O-OUTS O-LENGTH NETLIST) (IF (LESSP O-LENGTH (QUOTE 3)) (QUOTE *1*TRUE) (IF (PRIMP O-FN) (ERR-AND (CONS (IF (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (OCC-ARG-LENGTH-ERROR O-FN (PRIMP2 O-FN (QUOTE INPUTS)) O-INS (QUOTE WRONG-NUMBER-OF-INPUTS)) (QUOTE *1*TRUE)) (CONS (OCC-ARG-LENGTH-ERROR O-FN (PRIMP2 O-FN (QUOTE OUTPUTS)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION)) (IF (LISTP (LOOKUP-MODULE O-FN NETLIST)) (ERR-AND (CONS (IF (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (OCC-ARG-LENGTH-ERROR O-FN (MODULE-INPUTS (LOOKUP-MODULE O-FN NETLIST)) O-INS (QUOTE WRONG-NUMBER-OF-INPUTS)) (QUOTE *1*TRUE)) (CONS (OCC-ARG-LENGTH-ERROR O-FN (MODULE-OUTPUTS (LOOKUP-MODULE O-FN NETLIST)) O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION)) (PRED-ERROR (QUOTE UNKNOWN-OCCURRENCE-FUNCTION) O-FN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 OCC-ARG-LENGTH-ERROR . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . OCC-FUNCTION-OK) (IMMEDIATE-DEPENDENTS0 PRIMP . OCC-FUNCTION-OK) (DCELL . *1*OCC-FUNCTION-OK))))) (PUT1-LST (QUOTE OCC-INPUTS-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-INPUTS-OK-OFF OCC-INPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-INPUTS-OK . OCC-INPUTS-OK-OFF) (DISABLED-LEMMAS NIL OCC-INPUTS-OK OCC-INPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-INPUTS-OK) (QUOTE (MAIN-EVENT OCC-INPUTS-OK))) (PUT1-LST (QUOTE OCC-INPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-INPUTS-OK 4098 NIL NIL)) TOTALP-LST ((OCC-INPUTS-OK . T)) SDEFN (LAMBDA (O-INS O-LENGTH) (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*TRUE) (NAME-LIST-OK O-INS (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE)))) LISP-CODE *1*OCC-INPUTS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*OCC-INPUTS-OK) IMMEDIATE-DEPENDENTS0 (OCC-SYNTAX-ERRORS OCC-INPUTS-OK-OFF) EVENT (DEFN OCC-INPUTS-OK (O-INS O-LENGTH) (IF (IF (LESSP O-LENGTH (QUOTE 4)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAME-LIST-OK O-INS (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . OCC-INPUTS-OK) (DCELL . *1*OCC-INPUTS-OK))))) (PUT1-LST (QUOTE OCC-OUTPUTS-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-OUTPUTS-OK-OFF OCC-OUTPUTS-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS-OK . OCC-OUTPUTS-OK-OFF) (DISABLED-LEMMAS NIL OCC-OUTPUTS-OK OCC-OUTPUTS-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-OUTPUTS-OK) (QUOTE (MAIN-EVENT OCC-OUTPUTS-OK))) (PUT1-LST (QUOTE OCC-OUTPUTS-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-OUTPUTS-OK 4098 NIL NIL)) TOTALP-LST ((OCC-OUTPUTS-OK . T)) SDEFN (LAMBDA (O-OUTS O-LENGTH) (IF (LESSP O-LENGTH (QUOTE 2)) (QUOTE *1*TRUE) (NAME-LIST-OK O-OUTS (QUOTE OCCURRENCE-OUTPUTS) (QUOTE *1*FALSE)))) LISP-CODE *1*OCC-OUTPUTS-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*OCC-OUTPUTS-OK) IMMEDIATE-DEPENDENTS0 (OCC-SYNTAX-ERRORS OCC-OUTPUTS-OK-OFF) EVENT (DEFN OCC-OUTPUTS-OK (O-OUTS O-LENGTH) (IF (IF (LESSP O-LENGTH (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NAME-LIST-OK O-OUTS (QUOTE OCCURRENCE-OUTPUTS) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . OCC-OUTPUTS-OK) (DCELL . *1*OCC-OUTPUTS-OK))))) (PUT1-LST (QUOTE OCC-NAME-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-NAME-OK-OFF OCC-NAME-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME-OK . OCC-NAME-OK-OFF) (DISABLED-LEMMAS NIL OCC-NAME-OK OCC-NAME-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-NAME-OK) (QUOTE (MAIN-EVENT OCC-NAME-OK))) (PUT1-LST (QUOTE OCC-NAME-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-NAME-OK 4098 NIL NIL)) TOTALP-LST ((OCC-NAME-OK . T)) SDEFN (LAMBDA (O-NAME O-LENGTH) (IF (LESSP O-LENGTH (QUOTE 1)) (QUOTE *1*TRUE) (LABEL-ERROR (T-OR-ERR (NAME-OKP O-NAME) (QUOTE BAD-NAME) O-NAME) (QUOTE OCCURRENCE-NAME)))) LISP-CODE *1*OCC-NAME-OK SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194007 SATELLITES (*1*OCC-NAME-OK) IMMEDIATE-DEPENDENTS0 (OCC-SYNTAX-ERRORS OCC-NAME-OK-OFF) EVENT (DEFN OCC-NAME-OK (O-NAME O-LENGTH) (IF (IF (LESSP O-LENGTH (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LABEL-ERROR (T-OR-ERR (NAME-OKP O-NAME) (QUOTE BAD-NAME) O-NAME) (QUOTE OCCURRENCE-NAME)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . OCC-NAME-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . OCC-NAME-OK) (IMMEDIATE-DEPENDENTS0 LABEL-ERROR . OCC-NAME-OK) (DCELL . *1*OCC-NAME-OK))))) (PUT1-LST (QUOTE OCC-FORM-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-FORM-OK-OFF OCC-FORM-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-FORM-OK . OCC-FORM-OK-OFF) (DISABLED-LEMMAS NIL OCC-FORM-OK OCC-FORM-OK-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-FORM-OK) (QUOTE (MAIN-EVENT OCC-FORM-OK))) (PUT1-LST (QUOTE OCC-FORM-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-FORM-OK 4098 NIL NIL)) TOTALP-LST ((OCC-FORM-OK . T)) SDEFN (LAMBDA (OCC O-LENGTH) (IF (EQUAL (QUOTE 4) O-LENGTH) (ERR-AND (CONS (T-OR-ERR (QUOTE *1*TRUE) (QUOTE BAD-OCCURRENCE-LENGTH) O-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR OCC) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE OCCURRENCE-FORM)) (ERR-AND (CONS (T-OR-ERR (EQUAL (QUOTE 5) O-LENGTH) (QUOTE BAD-OCCURRENCE-LENGTH) O-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR OCC) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE OCCURRENCE-FORM)))) LISP-CODE *1*OCC-FORM-OK SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*OCC-FORM-OK) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK OCC-SYNTAX-ERRORS OCC-FORM-OK-OFF) EVENT (DEFN OCC-FORM-OK (OCC O-LENGTH) (ERR-AND (CONS (T-OR-ERR (OR (EQUAL (QUOTE 4) O-LENGTH) (EQUAL (QUOTE 5) O-LENGTH)) (QUOTE BAD-OCCURRENCE-LENGTH) O-LENGTH) (CONS (NIL-OR-ERR (LAST-CDR OCC) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE OCCURRENCE-FORM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . OCC-FORM-OK) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . OCC-FORM-OK) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . OCC-FORM-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . OCC-FORM-OK) (DCELL . *1*OCC-FORM-OK))))) (PUT1-LST (QUOTE OCC-ARG-LENGTH-ERROR-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE OCC-ARG-LENGTH-ERROR-OFF OCC-ARG-LENGTH-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-ARG-LENGTH-ERROR . OCC-ARG-LENGTH-ERROR-OFF) (DISABLED-LEMMAS NIL OCC-ARG-LENGTH-ERROR OCC-ARG-LENGTH-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-ARG-LENGTH-ERROR) (QUOTE (MAIN-EVENT OCC-ARG-LENGTH-ERROR))) (PUT1-LST (QUOTE OCC-ARG-LENGTH-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-ARG-LENGTH-ERROR 4098 NIL NIL NIL NIL)) TOTALP-LST ((OCC-ARG-LENGTH-ERROR . T)) SDEFN (LAMBDA (FN EXPECTED-ARGS ACTUAL-ARGS LABEL) (T-OR-ERR (EQUAL (LENGTH EXPECTED-ARGS) (LENGTH ACTUAL-ARGS)) LABEL (CONS (QUOTE OCC-FUNCTION) (CONS FN (CONS (CONS (QUOTE EXPECTED) (CONS (LENGTH EXPECTED-ARGS) (QUOTE NIL))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ACTUAL-ARGS) (QUOTE NIL))) (QUOTE NIL))))))) LISP-CODE *1*OCC-ARG-LENGTH-ERROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*OCC-ARG-LENGTH-ERROR) IMMEDIATE-DEPENDENTS0 (OCC-FUNCTION-OK OCC-ARG-LENGTH-ERROR-OFF) EVENT (DEFN OCC-ARG-LENGTH-ERROR (FN EXPECTED-ARGS ACTUAL-ARGS LABEL) (T-OR-ERR (EQUAL (LENGTH EXPECTED-ARGS) (LENGTH ACTUAL-ARGS)) LABEL (CONS (QUOTE OCC-FUNCTION) (CONS FN (CONS (CONS (QUOTE EXPECTED) (CONS (LENGTH EXPECTED-ARGS) (QUOTE NIL))) (CONS (CONS (QUOTE GOT) (CONS (LENGTH ACTUAL-ARGS) (QUOTE NIL))) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . OCC-ARG-LENGTH-ERROR) (IMMEDIATE-DEPENDENTS0 T-OR-ERR . OCC-ARG-LENGTH-ERROR) (DCELL . *1*OCC-ARG-LENGTH-ERROR))))) (PUT1-LST (QUOTE NAME-LIST-OK-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NAME-LIST-OK-OFF NAME-LIST-OK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-OK . NAME-LIST-OK-OFF) (DISABLED-LEMMAS NIL NAME-LIST-OK NAME-LIST-OK-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-LIST-OK) (QUOTE (MAIN-EVENT NAME-LIST-OK))) (PUT1-LST (QUOTE NAME-LIST-OK) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-LIST-OK 4098 NIL NIL NIL)) TOTALP-LST ((NAME-LIST-OK . T)) SDEFN (LAMBDA (NAME-LIST LABEL DUPLICATES-OK?) (ERR-AND (NAME-LIST-ERRORS NAME-LIST DUPLICATES-OK?) LABEL)) LISP-CODE *1*NAME-LIST-OK SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*NAME-LIST-OK) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-OK POUT-DEPENDS-ONE-OK P-T-WIRE-ARGS-OK MODULE-OUTPUTS-OK MODULE-INPUTS-OK OCC-INPUTS-OK OCC-OUTPUTS-OK NAME-LIST-OK-OFF) EVENT (DEFN NAME-LIST-OK (NAME-LIST LABEL DUPLICATES-OK?) (ERR-AND (NAME-LIST-ERRORS NAME-LIST DUPLICATES-OK?) LABEL)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-ERRORS . NAME-LIST-OK) (IMMEDIATE-DEPENDENTS0 ERR-AND . NAME-LIST-OK) (DCELL . *1*NAME-LIST-OK))))) (PUT1-LST (QUOTE NAME-LIST-ERRORS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NAME-LIST-ERRORS-OFF NAME-LIST-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-ERRORS . NAME-LIST-ERRORS-OFF) (DISABLED-LEMMAS NIL NAME-LIST-ERRORS NAME-LIST-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-LIST-ERRORS) (QUOTE (MAIN-EVENT NAME-LIST-ERRORS))) (PUT1-LST (QUOTE NAME-LIST-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-LIST-ERRORS 16 NIL NIL)) TOTALP-LST ((NAME-LIST-ERRORS . T)) SDEFN (LAMBDA (NAME-LIST DUPLICATES-OK?) (IF DUPLICATES-OK? (CONS (NLISTP-OR-ERR (BAD-NAMES NAME-LIST) (QUOTE BAD-NAMES)) (CONS (QUOTE *1*TRUE) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) (CONS (NLISTP-OR-ERR (BAD-NAMES NAME-LIST) (QUOTE BAD-NAMES)) (CONS (NO-DUPLICATES-OR-ERR NAME-LIST (QUOTE DUPLICATES)) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))) LISP-CODE *1*NAME-LIST-ERRORS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*NAME-LIST-ERRORS) IMMEDIATE-DEPENDENTS0 (PSTATES-OK MODULE-STATENAMES-OK NAME-LIST-OK NAME-LIST-ERRORS-OFF) EVENT (DEFN NAME-LIST-ERRORS (NAME-LIST DUPLICATES-OK?) (CONS (NLISTP-OR-ERR (BAD-NAMES NAME-LIST) (QUOTE BAD-NAMES)) (CONS (IF DUPLICATES-OK? (QUOTE *1*TRUE) (NO-DUPLICATES-OR-ERR NAME-LIST (QUOTE DUPLICATES))) (CONS (NIL-OR-ERR (LAST-CDR NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 BAD-NAMES . NAME-LIST-ERRORS) (IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . NAME-LIST-ERRORS) (DCELL . *1*NAME-LIST-ERRORS))))) (PUT1-LST (QUOTE BAD-NAMES-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE BAD-NAMES-OFF BAD-NAMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAD-NAMES . BAD-NAMES-OFF) (DISABLED-LEMMAS NIL BAD-NAMES BAD-NAMES-OFF . T))))) (PUT1-LST (QUOTE *1*BAD-NAMES) (QUOTE (MAIN-EVENT BAD-NAMES))) (PUT1-LST (QUOTE BAD-NAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((BAD-NAMES 24 NIL)) TOTALP-LST ((BAD-NAMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NAME-LIST) (IF (LISTP NAME-LIST) (IF (NAME-OKP (CAR NAME-LIST)) (BAD-NAMES (CDR NAME-LIST)) (INSERT (CAR NAME-LIST) (BAD-NAMES (CDR NAME-LIST)))) (QUOTE NIL))) LISP-CODE *1*BAD-NAMES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP NAME-LIST) (NAME-OKP (CAR NAME-LIST))) (((CDR NAME-LIST)))) (TESTS-AND-CASES ((LISTP NAME-LIST) (NOT (NAME-OKP (CAR NAME-LIST)))) (((CDR NAME-LIST)))) (TESTS-AND-CASES ((NOT (LISTP NAME-LIST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (NAME-LIST) (COUNT NAME-LIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*BAD-NAMES) IMMEDIATE-DEPENDENTS0 (NAME-LIST-ERRORS BAD-NAMES-OFF) EVENT (DEFN BAD-NAMES (NAME-LIST) (IF (LISTP NAME-LIST) (IF (NAME-OKP (CAR NAME-LIST)) (BAD-NAMES (CDR NAME-LIST)) (INSERT (CAR NAME-LIST) (BAD-NAMES (CDR NAME-LIST)))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . BAD-NAMES) (IMMEDIATE-DEPENDENTS0 NAME-OKP . BAD-NAMES) (DCELL . *1*BAD-NAMES))))) (PUT1-LST (QUOTE NAME-OKP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NAME-OKP-OFF NAME-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-OKP . NAME-OKP-OFF) (DISABLED-LEMMAS NIL NAME-OKP NAME-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-OKP) (QUOTE (MAIN-EVENT NAME-OKP))) (PUT1-LST (QUOTE NAME-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-OKP 3 NIL)) TOTALP-LST ((NAME-OKP . T)) SDEFN (LAMBDA (NAME) (IF (LITATOM NAME) (QUOTE *1*TRUE) (IF (INDEXP NAME) (LITATOM (I-NAME NAME)) (QUOTE *1*FALSE)))) LISP-CODE *1*NAME-OKP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194007 SATELLITES (*1*NAME-OKP) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-OK OK-OUTPUT-TYPES OK-STATES UNKNOWN-ARGS PSTATES-OK P-NAME-PROP-VALUE-OK POUT-TYPE-OK PNAME-LISTP MODULE-NAME-OK OCC-NAME-OK BAD-NAMES NAME-OKP-OFF) EVENT (DEFN NAME-OKP (NAME) (IF (LITATOM NAME) (QUOTE *1*TRUE) (AND (INDEXP NAME) (LITATOM (I-NAME NAME))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . NAME-OKP) (DCELL . *1*NAME-OKP))))) (PUT1-LST (QUOTE *1*TOP-LEVEL-PREDICATE-SIMPLE) (QUOTE (MAIN-EVENT TOP-LEVEL-PREDICATE-SIMPLE))) (PUT1-LST (QUOTE TOP-LEVEL-PREDICATE-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((TOP-LEVEL-PREDICATE-SIMPLE 10 NIL)) TOTALP-LST ((TOP-LEVEL-PREDICATE-SIMPLE)) SDEFN (LAMBDA (NETLIST) (IF (NETLIST-SYNTAX-SIMPLE-OKP NETLIST) (IF (SIMPLE-DEPENDENCY-TABLE NETLIST) (IF (NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST) (IF (NETLIST-STATE-TYPES-SIMPLE NETLIST) (IF (NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST) (QUOTE *1*TRUE) (QUOTE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-ERROR)) (QUOTE NETLIST-STATE-TYPES-SIMPLE-ERROR)) (QUOTE NETLIST-TYPE-CHECK-SIMPLE-OKP-ERROR)) (QUOTE DEPENDENCY-TABLE-SIMPLE-ERROR)) (QUOTE NETLIST-SYNTAX-SIMPLE-OKP-ERROR))) LISP-CODE *1*TOP-LEVEL-PREDICATE-SIMPLE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402194007 SATELLITES (*1*TOP-LEVEL-PREDICATE-SIMPLE) IMMEDIATE-DEPENDENTS0 (CHIP-WELL-FORMED-SIMPLE) EVENT (DEFN TOP-LEVEL-PREDICATE-SIMPLE (NETLIST) (IF (NOT (NETLIST-SYNTAX-SIMPLE-OKP NETLIST)) (QUOTE NETLIST-SYNTAX-SIMPLE-OKP-ERROR) (IF (NOT (SIMPLE-DEPENDENCY-TABLE NETLIST)) (QUOTE DEPENDENCY-TABLE-SIMPLE-ERROR) (IF (NOT (NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST)) (QUOTE NETLIST-TYPE-CHECK-SIMPLE-OKP-ERROR) (IF (NOT (NETLIST-STATE-TYPES-SIMPLE NETLIST)) (QUOTE NETLIST-STATE-TYPES-SIMPLE-ERROR) (IF (NOT (NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST)) (QUOTE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-ERROR) (QUOTE *1*TRUE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-LOADINGS-AND-DRIVES-SIMPLE . TOP-LEVEL-PREDICATE-SIMPLE) (IMMEDIATE-DEPENDENTS0 NETLIST-STATE-TYPES-SIMPLE . TOP-LEVEL-PREDICATE-SIMPLE) (IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-CHECK-SIMPLE-OKP . TOP-LEVEL-PREDICATE-SIMPLE) (IMMEDIATE-DEPENDENTS0 SIMPLE-DEPENDENCY-TABLE . TOP-LEVEL-PREDICATE-SIMPLE) (IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-SIMPLE-OKP . TOP-LEVEL-PREDICATE-SIMPLE) (DCELL . *1*TOP-LEVEL-PREDICATE-SIMPLE))))) (PUT1-LST (QUOTE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF NETLIST-LOADINGS-AND-DRIVES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-LOADINGS-AND-DRIVES-SIMPLE . NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF) (DISABLED-LEMMAS NIL NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (MAIN-EVENT NETLIST-LOADINGS-AND-DRIVES-SIMPLE))) (PUT1-LST (QUOTE NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-LOADINGS-AND-DRIVES-SIMPLE 25 NIL)) TOTALP-LST ((NETLIST-LOADINGS-AND-DRIVES-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE LOADINGS) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))))) (CONS (CONS (QUOTE DRIVES) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))))) (QUOTE NIL)))) (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE NIL))) LISP-CODE *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)) (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)) (NOT (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)))) (((CDR NETLIST))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (MODULE-NAME MODULE-INPUTS MODULE-OUTPUTS CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE-SIMPLE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-OFF) EVENT (DEFN NETLIST-LOADINGS-AND-DRIVES-SIMPLE (NETLIST) (IF (NLISTP NETLIST) (QUOTE NIL) (IF (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE LOADINGS) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))))) (CONS (CONS (QUOTE DRIVES) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST)) NETLIST (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))))) (QUOTE NIL)))) (NETLIST-LOADINGS-AND-DRIVES-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADINGS-AND-DRIVES-SIMPLE . NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (DCELL . *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE))))) (PUT1-LST (QUOTE LOADINGS-AND-DRIVES-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE LOADINGS-AND-DRIVES-SIMPLE-OFF LOADINGS-AND-DRIVES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOADINGS-AND-DRIVES-SIMPLE . LOADINGS-AND-DRIVES-SIMPLE-OFF) (DISABLED-LEMMAS NIL LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (MAIN-EVENT LOADINGS-AND-DRIVES-SIMPLE))) (PUT1-LST (QUOTE LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((LOADINGS-AND-DRIVES-SIMPLE 17 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((LOADINGS-AND-DRIVES-SIMPLE . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (FLG X0 X1 X2 NETLIST LDS-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (FIX-DEPENDENT-LDS (PRIMP2 X0 (QUOTE LOADINGS)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2))) (FIX-DEPENDENT-LDS (PRIMP2 X0 (QUOTE DRIVES)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2)))) (IF (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (IF (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (CONS (FIX-DEPENDENT-LDS (CDR (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2))) (FIX-DEPENDENT-LDS (CDR (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2)))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE) (CONS (FIX-DEPENDENT-LDS (COLLECT-LOADINGS-SIMPLE (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2))) (FIX-DEPENDENT-LDS (COLLECT-DRIVES-SIMPLE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (APPEND (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE) (CONS (FIX-DEPENDENT-LDS (COLLECT-LOADINGS-SIMPLE (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2))) (FIX-DEPENDENT-LDS (COLLECT-DRIVES-SIMPLE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (APPEND (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE) (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (CDR X0) (ADD-LOADING-SIMPLES (OCC-INPUTS (CAR X0)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE)) X1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) X2) NETLIST LDS-TABLE) (QUOTE *1*FALSE)) (IF (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (IF (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1)) (CONS (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) LISP-CODE *1*LOADINGS-AND-DRIVES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (AND (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE))))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE))))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE))))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (NOT (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE))))) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0) (AND (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0) (NOT (AND (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1))))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE)) (((QUOTE 1) (CDR X0) (ADD-LOADING-SIMPLES (OCC-INPUTS (CAR X0)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE)) X1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) X2) NETLIST LDS-TABLE) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP OCC-INPUTS OCC-OUTPUTS CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT AND MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194007 CONTROLLER-POCKETS (18) SATELLITES (*1*LOADINGS-AND-DRIVES-SIMPLE) IMMEDIATE-DEPENDENTS0 (NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE-OFF) EVENT (DEFN LOADINGS-AND-DRIVES-SIMPLE (FLG X0 X1 X2 NETLIST LDS-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (FIX-DEPENDENT-LDS (PRIMP2 X0 (QUOTE LOADINGS)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2))) (FIX-DEPENDENT-LDS (PRIMP2 X0 (QUOTE DRIVES)) (APPEND (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1) (PAIRLIST (PRIMP2 X0 (QUOTE OUTPUTS)) X2)))) (IF (AND (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE))) (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE)))) (CONS (FIX-DEPENDENT-LDS (CDR (LOOKUP-MODULE (QUOTE LOADINGS) (CDR (LOOKUP-MODULE X0 LDS-TABLE)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2))) (FIX-DEPENDENT-LDS (CDR (LOOKUP-MODULE (QUOTE DRIVES) (CDR (LOOKUP-MODULE X0 LDS-TABLE)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2)))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE) (CONS (FIX-DEPENDENT-LDS (COLLECT-LOADINGS-SIMPLE (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2))) (FIX-DEPENDENT-LDS (COLLECT-DRIVES-SIMPLE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) LDS-TABLE)) (APPEND (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)))) (APPEND (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRLIST (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) X2)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) (IF (AND (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1))) (CONS (FIX-LOADINGS (FIX-DRIVES X2 X2) X1) (NET-DRIVES (FIX-DRIVES X2 X2) (FIX-LOADINGS (FIX-DRIVES X2 X2) X1))) (QUOTE *1*FALSE)) (IF (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE) (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (CDR X0) (ADD-LOADING-SIMPLES (OCC-INPUTS (CAR X0)) (CAR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE)) X1) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (OCC-INPUTS (CAR X0)) (OCC-OUTPUTS (CAR X0)) NETLIST LDS-TABLE))) X2) NETLIST LDS-TABLE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING-SIMPLES . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 NET-DRIVES . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 FIX-DRIVES . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 FIX-LOADINGS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES-SIMPLE . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 COLLECT-LOADINGS-SIMPLE . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-LDS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . LOADINGS-AND-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . LOADINGS-AND-DRIVES-SIMPLE) (DCELL . *1*LOADINGS-AND-DRIVES-SIMPLE))))) (PUT1-LST (QUOTE COLLECT-DRIVES-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE COLLECT-DRIVES-SIMPLE-OFF COLLECT-DRIVES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-DRIVES-SIMPLE . COLLECT-DRIVES-SIMPLE-OFF) (DISABLED-LEMMAS NIL COLLECT-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES-SIMPLE) (QUOTE (MAIN-EVENT COLLECT-DRIVES-SIMPLE))) (PUT1-LST (QUOTE COLLECT-DRIVES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-DRIVES-SIMPLE 24 NIL NIL NIL)) TOTALP-LST ((COLLECT-DRIVES-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (NAMES DRIVES EXTERNAL-NAMES) (IF (LISTP NAMES) (IF (LITATOM (VALUE (CAR NAMES) DRIVES)) (IF (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES) (CONS (VALUE (CAR NAMES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)) (IF (EQUAL (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (VALUE (CAR NAMES) DRIVES)) (CONS (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) (CONS (CONS (VALUE (CAR NAMES) DRIVES) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES)) (DELETE-MODULE (CAR NAMES) (DELETE-MODULE (VALUE (CAR NAMES) DRIVES) DRIVES)))) EXTERNAL-NAMES)) (CONS (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)))) (IF (INDEXP (VALUE (CAR NAMES) DRIVES)) (IF (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES) (CONS (VALUE (CAR NAMES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)) (IF (EQUAL (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (VALUE (CAR NAMES) DRIVES)) (CONS (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) (CONS (CONS (VALUE (CAR NAMES) DRIVES) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES)) (DELETE-MODULE (CAR NAMES) (DELETE-MODULE (VALUE (CAR NAMES) DRIVES) DRIVES)))) EXTERNAL-NAMES)) (CONS (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)))) (CONS (VALUE (CAR NAMES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)))) (QUOTE NIL))) LISP-CODE *1*COLLECT-DRIVES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NAMES)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NAMES)) (OR (NOT (OR (LITATOM (VALUE (CAR NAMES) DRIVES)) (INDEXP (VALUE (CAR NAMES) DRIVES)))) (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES))) (((CDR NAMES) DRIVES EXTERNAL-NAMES))) (TESTS-AND-CASES ((NOT (NLISTP NAMES)) (NOT (OR (NOT (OR (LITATOM (VALUE (CAR NAMES) DRIVES)) (INDEXP (VALUE (CAR NAMES) DRIVES)))) (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES))) (EQUAL (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (VALUE (CAR NAMES) DRIVES))) (((CDR NAMES) (CONS (CONS (VALUE (CAR NAMES) DRIVES) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES)) (DELETE-MODULE (CAR NAMES) (DELETE-MODULE (VALUE (CAR NAMES) DRIVES) DRIVES)))) EXTERNAL-NAMES))) (TESTS-AND-CASES ((NOT (NLISTP NAMES)) (NOT (OR (NOT (OR (LITATOM (VALUE (CAR NAMES) DRIVES)) (INDEXP (VALUE (CAR NAMES) DRIVES)))) (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES))) (NOT (EQUAL (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (VALUE (CAR NAMES) DRIVES)))) (((CDR NAMES) DRIVES EXTERNAL-NAMES)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (CDR-LESSP NLISTP OR NOT LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-DRIVES-SIMPLE) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE-OFF) EVENT (DEFN COLLECT-DRIVES-SIMPLE (NAMES DRIVES EXTERNAL-NAMES) (IF (NLISTP NAMES) (QUOTE NIL) (IF (OR (NOT (OR (LITATOM (VALUE (CAR NAMES) DRIVES)) (INDEXP (VALUE (CAR NAMES) DRIVES)))) (MEMBER (VALUE (CAR NAMES) DRIVES) EXTERNAL-NAMES)) (CONS (VALUE (CAR NAMES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)) (IF (EQUAL (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (VALUE (CAR NAMES) DRIVES)) (CONS (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) (CONS (CONS (VALUE (CAR NAMES) DRIVES) (CAR NAMES)) (CONS (CONS (CAR NAMES) (VALUE (VALUE (CAR NAMES) DRIVES) DRIVES)) (DELETE-MODULE (CAR NAMES) (DELETE-MODULE (VALUE (CAR NAMES) DRIVES) DRIVES)))) EXTERNAL-NAMES)) (CONS (PARENT-SYNONYM-SIMPLE (VALUE (CAR NAMES) DRIVES) DRIVES) (COLLECT-DRIVES-SIMPLE (CDR NAMES) DRIVES EXTERNAL-NAMES)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . COLLECT-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM-SIMPLE . COLLECT-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 INDEX . COLLECT-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-DRIVES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-DRIVES-SIMPLE) (DCELL . *1*COLLECT-DRIVES-SIMPLE))))) (PUT1-LST (QUOTE COLLECT-LOADINGS-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE COLLECT-LOADINGS-SIMPLE-OFF COLLECT-LOADINGS-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-LOADINGS-SIMPLE . COLLECT-LOADINGS-SIMPLE-OFF) (DISABLED-LEMMAS NIL COLLECT-LOADINGS-SIMPLE COLLECT-LOADINGS-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-LOADINGS-SIMPLE) (QUOTE (MAIN-EVENT COLLECT-LOADINGS-SIMPLE))) (PUT1-LST (QUOTE COLLECT-LOADINGS-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-LOADINGS-SIMPLE 24 NIL NIL NIL)) TOTALP-LST ((COLLECT-LOADINGS-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (NAMES LOADINGS EXTERNAL-NAMES) (IF (LISTP NAMES) (IF (LOOKUP-MODULE (CAR NAMES) LOADINGS) (IF (LISTP (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES)) (IF (LISTP (CDR (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES))) (CONS (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES)) (CONS (CAR (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES)) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES))) (CONS (QUOTE 0) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES))) (CONS (QUOTE 0) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES))) (QUOTE NIL))) LISP-CODE *1*COLLECT-LOADINGS-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NAMES)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NAMES)) (LOOKUP-MODULE (CAR NAMES) LOADINGS)) (((CDR NAMES) LOADINGS EXTERNAL-NAMES))) (TESTS-AND-CASES ((NOT (NLISTP NAMES)) (NOT (LOOKUP-MODULE (CAR NAMES) LOADINGS))) (((CDR NAMES) LOADINGS EXTERNAL-NAMES)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-LOADINGS-SIMPLE) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE-OFF) EVENT (DEFN COLLECT-LOADINGS-SIMPLE (NAMES LOADINGS EXTERNAL-NAMES) (IF (NLISTP NAMES) (QUOTE NIL) (IF (LOOKUP-MODULE (CAR NAMES) LOADINGS) (CONS (IF (NLISTP (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES)) (QUOTE 0) (IF (NLISTP (CDR (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES))) (CAR (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES)) (EXTERNAL-LOADING (VALUE (CAR NAMES) LOADINGS) EXTERNAL-NAMES))) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES)) (CONS (QUOTE 0) (COLLECT-LOADINGS-SIMPLE (CDR NAMES) LOADINGS EXTERNAL-NAMES))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-LOADINGS-SIMPLE) (IMMEDIATE-DEPENDENTS0 EXTERNAL-LOADING . COLLECT-LOADINGS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . COLLECT-LOADINGS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-LOADINGS-SIMPLE) (DCELL . *1*COLLECT-LOADINGS-SIMPLE))))) (PUT1-LST (QUOTE EXTERNAL-LOADING-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE EXTERNAL-LOADING-OFF EXTERNAL-LOADING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTERNAL-LOADING . EXTERNAL-LOADING-OFF) (DISABLED-LEMMAS NIL EXTERNAL-LOADING EXTERNAL-LOADING-OFF . T))))) (PUT1-LST (QUOTE *1*EXTERNAL-LOADING) (QUOTE (MAIN-EVENT EXTERNAL-LOADING))) (PUT1-LST (QUOTE EXTERNAL-LOADING) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTERNAL-LOADING -1 T NIL)) TOTALP-LST ((EXTERNAL-LOADING . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LD-LST EXTERNAL-NAMES) (IF (LISTP LD-LST) (IF (LITATOM (CAR LD-LST)) (IF (MEMBER (CAR LD-LST) EXTERNAL-NAMES) (CONS (CAR LD-LST) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES)) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES)) (IF (INDEXP (CAR LD-LST)) (IF (MEMBER (CAR LD-LST) EXTERNAL-NAMES) (CONS (CAR LD-LST) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES)) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES)) (CONS (CAR LD-LST) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES)))) LD-LST)) LISP-CODE *1*EXTERNAL-LOADING SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LD-LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LD-LST)) (AND (OR (LITATOM (CAR LD-LST)) (INDEXP (CAR LD-LST))) (NOT (MEMBER (CAR LD-LST) EXTERNAL-NAMES)))) (((CDR LD-LST) EXTERNAL-NAMES))) (TESTS-AND-CASES ((NOT (NLISTP LD-LST)) (NOT (AND (OR (LITATOM (CAR LD-LST)) (INDEXP (CAR LD-LST))) (NOT (MEMBER (CAR LD-LST) EXTERNAL-NAMES))))) (((CDR LD-LST) EXTERNAL-NAMES)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LD-LST) (COUNT LD-LST) LESSP (CDR-LESSP NLISTP OR NOT AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*EXTERNAL-LOADING) IMMEDIATE-DEPENDENTS0 (COLLECT-LOADINGS-SIMPLE EXTERNAL-LOADING-OFF) EVENT (DEFN EXTERNAL-LOADING (LD-LST EXTERNAL-NAMES) (IF (NLISTP LD-LST) LD-LST (IF (AND (OR (LITATOM (CAR LD-LST)) (INDEXP (CAR LD-LST))) (NOT (MEMBER (CAR LD-LST) EXTERNAL-NAMES))) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES) (CONS (CAR LD-LST) (EXTERNAL-LOADING (CDR LD-LST) EXTERNAL-NAMES))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . EXTERNAL-LOADING) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . EXTERNAL-LOADING) (DCELL . *1*EXTERNAL-LOADING))))) (PUT1-LST (QUOTE NET-DRIVES-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NET-DRIVES-OFF NET-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-DRIVES . NET-DRIVES-OFF) (DISABLED-LEMMAS NIL NET-DRIVES NET-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*NET-DRIVES) (QUOTE (MAIN-EVENT NET-DRIVES))) (PUT1-LST (QUOTE NET-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-DRIVES 25 NIL NIL)) TOTALP-LST ((NET-DRIVES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DRS LDS) (IF (LISTP DRS) (IF (NUMBERP (CDR (CAR DRS))) (IF (LESSP (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS))) (QUOTE *1*FALSE) (IF (NET-DRIVES (CDR DRS) LDS) (CONS (CONS (CAR (CAR DRS)) (DIFFERENCE (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS)))) (NET-DRIVES (CDR DRS) LDS)) (QUOTE *1*FALSE))) (IF (NET-DRIVES (CDR DRS) LDS) (CONS (CAR DRS) (NET-DRIVES (CDR DRS) LDS)) (QUOTE *1*FALSE))) (QUOTE NIL))) LISP-CODE *1*NET-DRIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP DRS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NUMBERP (CDR (CAR DRS))) (LESSP (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NUMBERP (CDR (CAR DRS))) (NOT (LESSP (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS)))) (NET-DRIVES (CDR DRS) LDS)) (((CDR DRS) LDS))) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NUMBERP (CDR (CAR DRS))) (NOT (LESSP (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS)))) (NOT (NET-DRIVES (CDR DRS) LDS))) (((CDR DRS) LDS))) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NOT (NUMBERP (CDR (CAR DRS)))) (NET-DRIVES (CDR DRS) LDS)) (((CDR DRS) LDS))) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NOT (NUMBERP (CDR (CAR DRS)))) (NOT (NET-DRIVES (CDR DRS) LDS))) (((CDR DRS) LDS)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DRS) (COUNT DRS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*NET-DRIVES) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE NET-DRIVES-OFF) EVENT (DEFN NET-DRIVES (DRS LDS) (IF (NLISTP DRS) (QUOTE NIL) (IF (NUMBERP (CDR (CAR DRS))) (IF (LESSP (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS))) (QUOTE *1*FALSE) (IF (NET-DRIVES (CDR DRS) LDS) (CONS (CONS (CAR (CAR DRS)) (DIFFERENCE (CDR (CAR DRS)) (SUM-NUMBERS (VALUE (CAR (CAR DRS)) LDS)))) (NET-DRIVES (CDR DRS) LDS)) (QUOTE *1*FALSE))) (IF (NET-DRIVES (CDR DRS) LDS) (CONS (CAR DRS) (NET-DRIVES (CDR DRS) LDS)) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . NET-DRIVES) (IMMEDIATE-DEPENDENTS0 SUM-NUMBERS . NET-DRIVES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NET-DRIVES) (DCELL . *1*NET-DRIVES))))) (PUT1-LST (QUOTE FIX-DRIVES-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE FIX-DRIVES-OFF FIX-DRIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-DRIVES . FIX-DRIVES-OFF) (DISABLED-LEMMAS NIL FIX-DRIVES FIX-DRIVES-OFF . T))))) (PUT1-LST (QUOTE *1*FIX-DRIVES) (QUOTE (MAIN-EVENT FIX-DRIVES))) (PUT1-LST (QUOTE FIX-DRIVES) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-DRIVES 24 NIL NIL)) TOTALP-LST ((FIX-DRIVES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (DRS SLIST) (IF (LISTP DRS) (IF (LITATOM (CDR (CAR DRS))) (CONS (CONS (CAR (CAR DRS)) (PARENT-SYNONYM-SIMPLE (CDR (CAR DRS)) SLIST)) (FIX-DRIVES (CDR DRS) SLIST)) (IF (INDEXP (CDR (CAR DRS))) (CONS (CONS (CAR (CAR DRS)) (PARENT-SYNONYM-SIMPLE (CDR (CAR DRS)) SLIST)) (FIX-DRIVES (CDR DRS) SLIST)) (CONS (CAR DRS) (FIX-DRIVES (CDR DRS) SLIST)))) (QUOTE NIL))) LISP-CODE *1*FIX-DRIVES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP DRS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (OR (LITATOM (CDR (CAR DRS))) (INDEXP (CDR (CAR DRS))))) (((CDR DRS) SLIST))) (TESTS-AND-CASES ((NOT (NLISTP DRS)) (NOT (OR (LITATOM (CDR (CAR DRS))) (INDEXP (CDR (CAR DRS)))))) (((CDR DRS) SLIST)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (DRS) (COUNT DRS) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-DRIVES) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE FIX-DRIVES-OFF) EVENT (DEFN FIX-DRIVES (DRS SLIST) (IF (NLISTP DRS) (QUOTE NIL) (IF (OR (LITATOM (CDR (CAR DRS))) (INDEXP (CDR (CAR DRS)))) (CONS (CONS (CAR (CAR DRS)) (PARENT-SYNONYM-SIMPLE (CDR (CAR DRS)) SLIST)) (FIX-DRIVES (CDR DRS) SLIST)) (CONS (CAR DRS) (FIX-DRIVES (CDR DRS) SLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM-SIMPLE . FIX-DRIVES) (IMMEDIATE-DEPENDENTS0 INDEX . FIX-DRIVES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FIX-DRIVES) (DCELL . *1*FIX-DRIVES))))) (PUT1-LST (QUOTE FIX-LOADINGS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE FIX-LOADINGS-OFF FIX-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-LOADINGS . FIX-LOADINGS-OFF) (DISABLED-LEMMAS NIL FIX-LOADINGS FIX-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*FIX-LOADINGS) (QUOTE (MAIN-EVENT FIX-LOADINGS))) (PUT1-LST (QUOTE FIX-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-LOADINGS 24 NIL NIL)) TOTALP-LST ((FIX-LOADINGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (SLIST LDS) (IF (LISTP SLIST) (IF (LITATOM (CDR (CAR SLIST))) (FIX-LOADINGS (CDR SLIST) (ADD-LOADING-SIMPLE (CDR (CAR SLIST)) (VALUE (CAR (CAR SLIST)) LDS) (DELETE-MODULE (CAR (CAR SLIST)) LDS))) (IF (INDEXP (CDR (CAR SLIST))) (FIX-LOADINGS (CDR SLIST) (ADD-LOADING-SIMPLE (CDR (CAR SLIST)) (VALUE (CAR (CAR SLIST)) LDS) (DELETE-MODULE (CAR (CAR SLIST)) LDS))) (FIX-LOADINGS (CDR SLIST) LDS))) (SUM-LOADINGS LDS))) LISP-CODE *1*FIX-LOADINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP SLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP SLIST)) (OR (LITATOM (CDR (CAR SLIST))) (INDEXP (CDR (CAR SLIST))))) (((CDR SLIST) (ADD-LOADING-SIMPLE (CDR (CAR SLIST)) (VALUE (CAR (CAR SLIST)) LDS) (DELETE-MODULE (CAR (CAR SLIST)) LDS))))) (TESTS-AND-CASES ((NOT (NLISTP SLIST)) (NOT (OR (LITATOM (CDR (CAR SLIST))) (INDEXP (CDR (CAR SLIST)))))) (((CDR SLIST) LDS)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (SLIST) (COUNT SLIST) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-LOADINGS) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE FIX-LOADINGS-OFF) EVENT (DEFN FIX-LOADINGS (SLIST LDS) (IF (NLISTP SLIST) (SUM-LOADINGS LDS) (IF (OR (LITATOM (CDR (CAR SLIST))) (INDEXP (CDR (CAR SLIST)))) (FIX-LOADINGS (CDR SLIST) (ADD-LOADING-SIMPLE (CDR (CAR SLIST)) (VALUE (CAR (CAR SLIST)) LDS) (DELETE-MODULE (CAR (CAR SLIST)) LDS))) (FIX-LOADINGS (CDR SLIST) LDS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . FIX-LOADINGS) (IMMEDIATE-DEPENDENTS0 VALUE . FIX-LOADINGS) (IMMEDIATE-DEPENDENTS0 ADD-LOADING-SIMPLE . FIX-LOADINGS) (IMMEDIATE-DEPENDENTS0 INDEX . FIX-LOADINGS) (IMMEDIATE-DEPENDENTS0 SUM-LOADINGS . FIX-LOADINGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FIX-LOADINGS) (DCELL . *1*FIX-LOADINGS))))) (PUT1-LST (QUOTE SUM-LOADINGS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE SUM-LOADINGS-OFF SUM-LOADINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUM-LOADINGS . SUM-LOADINGS-OFF) (DISABLED-LEMMAS NIL SUM-LOADINGS SUM-LOADINGS-OFF . T))))) (PUT1-LST (QUOTE *1*SUM-LOADINGS) (QUOTE (MAIN-EVENT SUM-LOADINGS))) (PUT1-LST (QUOTE SUM-LOADINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-LOADINGS 24 NIL)) TOTALP-LST ((SUM-LOADINGS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LDS) (IF (LISTP LDS) (CONS (SUM-LOADING (CAR LDS)) (SUM-LOADINGS (CDR LDS))) (QUOTE NIL))) LISP-CODE *1*SUM-LOADINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LDS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LDS))) (((CDR LDS))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (LDS) (COUNT LDS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*SUM-LOADINGS) IMMEDIATE-DEPENDENTS0 (FIX-LOADINGS SUM-LOADINGS-OFF) EVENT (DEFN SUM-LOADINGS (LDS) (IF (NLISTP LDS) (QUOTE NIL) (CONS (SUM-LOADING (CAR LDS)) (SUM-LOADINGS (CDR LDS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUM-LOADING . SUM-LOADINGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUM-LOADINGS) (DCELL . *1*SUM-LOADINGS))))) (PUT1-LST (QUOTE SUM-LOADING-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE SUM-LOADING-OFF SUM-LOADING T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUM-LOADING . SUM-LOADING-OFF) (DISABLED-LEMMAS NIL SUM-LOADING SUM-LOADING-OFF . T))))) (PUT1-LST (QUOTE *1*SUM-LOADING) (QUOTE (MAIN-EVENT SUM-LOADING))) (PUT1-LST (QUOTE SUM-LOADING) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-LOADING 16 NIL)) TOTALP-LST ((SUM-LOADING . T)) SDEFN (LAMBDA (LD) (IF (LISTP (EXTRACT-NAMES-SIMPLE (CDR LD))) (IF (EQUAL (SUM-NUMBERS (CDR LD)) (QUOTE 0)) (CONS (CAR LD) (EXTRACT-NAMES-SIMPLE (CDR LD))) (CONS (CAR LD) (CONS (SUM-NUMBERS (CDR LD)) (EXTRACT-NAMES-SIMPLE (CDR LD))))) (CONS (CAR LD) (CONS (SUM-NUMBERS (CDR LD)) (QUOTE NIL))))) LISP-CODE *1*SUM-LOADING SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194007 SATELLITES (*1*SUM-LOADING) IMMEDIATE-DEPENDENTS0 (SUM-LOADINGS SUM-LOADING-OFF) EVENT (DEFN SUM-LOADING (LD) (CONS (CAR LD) (IF (NLISTP (EXTRACT-NAMES-SIMPLE (CDR LD))) (CONS (SUM-NUMBERS (CDR LD)) (QUOTE NIL)) (IF (ZEROP (SUM-NUMBERS (CDR LD))) (EXTRACT-NAMES-SIMPLE (CDR LD)) (CONS (SUM-NUMBERS (CDR LD)) (EXTRACT-NAMES-SIMPLE (CDR LD))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUM-NUMBERS . SUM-LOADING) (IMMEDIATE-DEPENDENTS0 EXTRACT-NAMES-SIMPLE . SUM-LOADING) (DCELL . *1*SUM-LOADING))))) (PUT1-LST (QUOTE EXTRACT-NAMES-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE EXTRACT-NAMES-SIMPLE-OFF EXTRACT-NAMES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXTRACT-NAMES-SIMPLE . EXTRACT-NAMES-SIMPLE-OFF) (DISABLED-LEMMAS NIL EXTRACT-NAMES-SIMPLE EXTRACT-NAMES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*EXTRACT-NAMES-SIMPLE) (QUOTE (MAIN-EVENT EXTRACT-NAMES-SIMPLE))) (PUT1-LST (QUOTE EXTRACT-NAMES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTRACT-NAMES-SIMPLE 24 NIL)) TOTALP-LST ((EXTRACT-NAMES-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (LITATOM (CAR LST)) (IF (MEMBER (CAR LST) (CDR LST)) (EXTRACT-NAMES-SIMPLE (CDR LST)) (CONS (CAR LST) (EXTRACT-NAMES-SIMPLE (CDR LST)))) (IF (INDEXP (CAR LST)) (IF (MEMBER (CAR LST) (CDR LST)) (EXTRACT-NAMES-SIMPLE (CDR LST)) (CONS (CAR LST) (EXTRACT-NAMES-SIMPLE (CDR LST)))) (EXTRACT-NAMES-SIMPLE (CDR LST)))) (QUOTE NIL))) LISP-CODE *1*EXTRACT-NAMES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (AND (OR (LITATOM (CAR LST)) (INDEXP (CAR LST))) (NOT (MEMBER (CAR LST) (CDR LST))))) (((CDR LST)))) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (AND (OR (LITATOM (CAR LST)) (INDEXP (CAR LST))) (NOT (MEMBER (CAR LST) (CDR LST)))))) (((CDR LST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP OR NOT AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*EXTRACT-NAMES-SIMPLE) IMMEDIATE-DEPENDENTS0 (SUM-LOADING EXTRACT-NAMES-SIMPLE-OFF) EVENT (DEFN EXTRACT-NAMES-SIMPLE (LST) (IF (NLISTP LST) (QUOTE NIL) (IF (AND (OR (LITATOM (CAR LST)) (INDEXP (CAR LST))) (NOT (MEMBER (CAR LST) (CDR LST)))) (CONS (CAR LST) (EXTRACT-NAMES-SIMPLE (CDR LST))) (EXTRACT-NAMES-SIMPLE (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . EXTRACT-NAMES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . EXTRACT-NAMES-SIMPLE) (DCELL . *1*EXTRACT-NAMES-SIMPLE))))) (PUT1-LST (QUOTE SUM-NUMBERS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE SUM-NUMBERS-OFF SUM-NUMBERS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUM-NUMBERS . SUM-NUMBERS-OFF) (DISABLED-LEMMAS NIL SUM-NUMBERS SUM-NUMBERS-OFF . T))))) (PUT1-LST (QUOTE *1*SUM-NUMBERS) (QUOTE (MAIN-EVENT SUM-NUMBERS))) (PUT1-LST (QUOTE SUM-NUMBERS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-NUMBERS 4 NIL)) TOTALP-LST ((SUM-NUMBERS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (NUMBERP (CAR LST)) (PLUS (CAR LST) (SUM-NUMBERS (CDR LST))) (SUM-NUMBERS (CDR LST))) (QUOTE 0))) LISP-CODE *1*SUM-NUMBERS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NUMBERP (CAR LST))) (((CDR LST)))) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (NUMBERP (CAR LST)))) (((CDR LST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*SUM-NUMBERS) IMMEDIATE-DEPENDENTS0 (NET-DRIVES SUM-LOADING SUM-NUMBERS-OFF) EVENT (DEFN SUM-NUMBERS (LST) (IF (NLISTP LST) (QUOTE 0) (IF (NUMBERP (CAR LST)) (PLUS (CAR LST) (SUM-NUMBERS (CDR LST))) (SUM-NUMBERS (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUM-NUMBERS) (DCELL . *1*SUM-NUMBERS))))) (PUT1-LST (QUOTE ADD-LOADING-SIMPLES-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE ADD-LOADING-SIMPLES-OFF ADD-LOADING-SIMPLES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING-SIMPLES . ADD-LOADING-SIMPLES-OFF) (DISABLED-LEMMAS NIL ADD-LOADING-SIMPLES ADD-LOADING-SIMPLES-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-LOADING-SIMPLES) (QUOTE (MAIN-EVENT ADD-LOADING-SIMPLES))) (PUT1-LST (QUOTE ADD-LOADING-SIMPLES) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-LOADING-SIMPLES 16 NIL NIL T)) TOTALP-LST ((ADD-LOADING-SIMPLES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NAMES LOADINGS LD-LIST) (IF (LISTP NAMES) (ADD-LOADING-SIMPLES (CDR NAMES) (CDR LOADINGS) (ADD-LOADING-SIMPLE (CAR NAMES) (CAR LOADINGS) LD-LIST)) LD-LIST)) LISP-CODE *1*ADD-LOADING-SIMPLES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NAMES)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NAMES))) (((CDR NAMES) (CDR LOADINGS) (ADD-LOADING-SIMPLE (CAR NAMES) (CAR LOADINGS) LD-LIST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*ADD-LOADING-SIMPLES) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE ADD-LOADING-SIMPLES-OFF) EVENT (DEFN ADD-LOADING-SIMPLES (NAMES LOADINGS LD-LIST) (IF (NLISTP NAMES) LD-LIST (ADD-LOADING-SIMPLES (CDR NAMES) (CDR LOADINGS) (ADD-LOADING-SIMPLE (CAR NAMES) (CAR LOADINGS) LD-LIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING-SIMPLE . ADD-LOADING-SIMPLES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ADD-LOADING-SIMPLES) (DCELL . *1*ADD-LOADING-SIMPLES))))) (PUT1-LST (QUOTE ADD-LOADING-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE ADD-LOADING-SIMPLE-OFF ADD-LOADING-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-LOADING-SIMPLE . ADD-LOADING-SIMPLE-OFF) (DISABLED-LEMMAS NIL ADD-LOADING-SIMPLE ADD-LOADING-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-LOADING-SIMPLE) (QUOTE (MAIN-EVENT ADD-LOADING-SIMPLE))) (PUT1-LST (QUOTE ADD-LOADING-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-LOADING-SIMPLE 16 NIL NIL NIL)) TOTALP-LST ((ADD-LOADING-SIMPLE . T)) SDEFN (LAMBDA (NAME LOADING LD-LIST) (IF (LISTP (LOOKUP-MODULE NAME LD-LIST)) (IF (LISTP LOADING) (CONS (CONS NAME (APPEND LOADING (CDR (LOOKUP-MODULE NAME LD-LIST)))) (DELETE-MODULE NAME LD-LIST)) (CONS (CONS NAME (CONS LOADING (CDR (LOOKUP-MODULE NAME LD-LIST)))) (DELETE-MODULE NAME LD-LIST))) (IF (LISTP LOADING) (CONS (CONS NAME LOADING) LD-LIST) (CONS (CONS NAME (CONS LOADING (QUOTE NIL))) LD-LIST)))) LISP-CODE *1*ADD-LOADING-SIMPLE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194007 SATELLITES (*1*ADD-LOADING-SIMPLE) IMMEDIATE-DEPENDENTS0 (FIX-LOADINGS ADD-LOADING-SIMPLES ADD-LOADING-SIMPLE-OFF) EVENT (DEFN ADD-LOADING-SIMPLE (NAME LOADING LD-LIST) (IF (NLISTP (LOOKUP-MODULE NAME LD-LIST)) (CONS (CONS NAME (IF (LISTP LOADING) LOADING (CONS LOADING (QUOTE NIL)))) LD-LIST) (CONS (CONS NAME (IF (LISTP LOADING) (APPEND LOADING (CDR (LOOKUP-MODULE NAME LD-LIST))) (CONS LOADING (CDR (LOOKUP-MODULE NAME LD-LIST))))) (DELETE-MODULE NAME LD-LIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . ADD-LOADING-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . ADD-LOADING-SIMPLE) (DCELL . *1*ADD-LOADING-SIMPLE))))) (PUT1-LST (QUOTE PARENT-SYNONYM-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE PARENT-SYNONYM-SIMPLE-OFF PARENT-SYNONYM-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PARENT-SYNONYM-SIMPLE . PARENT-SYNONYM-SIMPLE-OFF) (DISABLED-LEMMAS NIL PARENT-SYNONYM-SIMPLE PARENT-SYNONYM-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM-SIMPLE) (QUOTE (MAIN-EVENT PARENT-SYNONYM-SIMPLE))) (PUT1-LST (QUOTE PARENT-SYNONYM-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((PARENT-SYNONYM-SIMPLE 72 T NIL)) TOTALP-LST ((PARENT-SYNONYM-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NAME SLIST) (IF (LISTP (LOOKUP-MODULE NAME SLIST)) (IF (LITATOM (CDR (LOOKUP-MODULE NAME SLIST))) (PARENT-SYNONYM-SIMPLE (CDR (LOOKUP-MODULE NAME SLIST)) (DELETE-MODULE NAME SLIST)) (IF (INDEXP (CDR (LOOKUP-MODULE NAME SLIST))) (PARENT-SYNONYM-SIMPLE (CDR (LOOKUP-MODULE NAME SLIST)) (DELETE-MODULE NAME SLIST)) NAME)) NAME)) LISP-CODE *1*PARENT-SYNONYM-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP (LOOKUP-MODULE NAME SLIST)) (OR (LITATOM (CDR (LOOKUP-MODULE NAME SLIST))) (INDEXP (CDR (LOOKUP-MODULE NAME SLIST))))) (((CDR (LOOKUP-MODULE NAME SLIST)) (DELETE-MODULE NAME SLIST)))) (TESTS-AND-CASES ((LISTP (LOOKUP-MODULE NAME SLIST)) (NOT (OR (LITATOM (CDR (LOOKUP-MODULE NAME SLIST))) (INDEXP (CDR (LOOKUP-MODULE NAME SLIST)))))) NIL) (TESTS-AND-CASES ((NOT (LISTP (LOOKUP-MODULE NAME SLIST)))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (SLIST) (COUNT SLIST) LESSP (ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT))) IDATE 1000402194007 CONTROLLER-POCKETS (2) SATELLITES (*1*PARENT-SYNONYM-SIMPLE) IMMEDIATE-DEPENDENTS0 (COLLECT-DRIVES-SIMPLE FIX-DRIVES PARENT-SYNONYM-SIMPLE-OFF) EVENT (DEFN PARENT-SYNONYM-SIMPLE (NAME SLIST) (IF (LISTP (LOOKUP-MODULE NAME SLIST)) (IF (OR (LITATOM (CDR (LOOKUP-MODULE NAME SLIST))) (INDEXP (CDR (LOOKUP-MODULE NAME SLIST)))) (PARENT-SYNONYM-SIMPLE (CDR (LOOKUP-MODULE NAME SLIST)) (DELETE-MODULE NAME SLIST)) NAME) NAME)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . PARENT-SYNONYM-SIMPLE) (IMMEDIATE-DEPENDENTS0 INDEX . PARENT-SYNONYM-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PARENT-SYNONYM-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . PARENT-SYNONYM-SIMPLE) (DCELL . *1*PARENT-SYNONYM-SIMPLE))))) (PUT1-LST (QUOTE FIX-DEPENDENT-LDS-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE FIX-DEPENDENT-LDS-OFF FIX-DEPENDENT-LDS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-LDS . FIX-DEPENDENT-LDS-OFF) (DISABLED-LEMMAS NIL FIX-DEPENDENT-LDS FIX-DEPENDENT-LDS-OFF . T))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-LDS) (QUOTE (MAIN-EVENT FIX-DEPENDENT-LDS))) (PUT1-LST (QUOTE FIX-DEPENDENT-LDS) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-DEPENDENT-LDS 16 T NIL)) TOTALP-LST ((FIX-DEPENDENT-LDS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LDS ALIST) (IF (LISTP LDS) (IF (LITATOM (CAR LDS)) (CONS (VALUE (CAR LDS) ALIST) (FIX-DEPENDENT-LDS (CDR LDS) ALIST)) (IF (INDEXP (CAR LDS)) (CONS (VALUE (CAR LDS) ALIST) (FIX-DEPENDENT-LDS (CDR LDS) ALIST)) (IF (LISTP (CAR LDS)) (CONS (FIX-DEPENDENT-LDS (CAR LDS) ALIST) (FIX-DEPENDENT-LDS (CDR LDS) ALIST)) (CONS (CAR LDS) (FIX-DEPENDENT-LDS (CDR LDS) ALIST))))) LDS)) LISP-CODE *1*FIX-DEPENDENT-LDS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LDS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LDS))) (((CDR LDS) ALIST) ((CAR LDS) ALIST)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LDS) (COUNT LDS) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-DEPENDENT-LDS) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES-SIMPLE FIX-DEPENDENT-LDS-OFF) EVENT (DEFN FIX-DEPENDENT-LDS (LDS ALIST) (IF (NLISTP LDS) LDS (CONS (IF (OR (LITATOM (CAR LDS)) (INDEXP (CAR LDS))) (VALUE (CAR LDS) ALIST) (IF (NLISTP (CAR LDS)) (CAR LDS) (FIX-DEPENDENT-LDS (CAR LDS) ALIST))) (FIX-DEPENDENT-LDS (CDR LDS) ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FIX-DEPENDENT-LDS) (IMMEDIATE-DEPENDENTS0 INDEX . FIX-DEPENDENT-LDS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FIX-DEPENDENT-LDS) (DCELL . *1*FIX-DEPENDENT-LDS))))) (PUT1-LST (QUOTE APPLY-STATE-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE APPLY-STATE-SIMPLE-OKP-OFF APPLY-STATE-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPLY-STATE-SIMPLE-OKP . APPLY-STATE-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL APPLY-STATE-SIMPLE-OKP APPLY-STATE-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*APPLY-STATE-SIMPLE-OKP) (QUOTE (MAIN-EVENT APPLY-STATE-SIMPLE-OKP))) (PUT1-LST (QUOTE APPLY-STATE-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY-STATE-SIMPLE-OKP 3 NIL NIL NIL)) TOTALP-LST ((APPLY-STATE-SIMPLE-OKP)) SDEFN (LAMBDA (FN STATE NETLIST) (STATE-SIMPLE-OKP STATE (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) FN (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE NETLIST)))) LISP-CODE *1*APPLY-STATE-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402194007 SATELLITES (*1*APPLY-STATE-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (APPLY-STATE-SIMPLE-OKP-OFF) EVENT (DEFN APPLY-STATE-SIMPLE-OKP (FN STATE NETLIST) (STATE-SIMPLE-OKP STATE (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) FN (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-STATE-TYPES-SIMPLE . APPLY-STATE-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 STATE-TYPE-REQUIREMENT-SIMPLE . APPLY-STATE-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 STATE-SIMPLE-OKP . APPLY-STATE-SIMPLE-OKP) (DCELL . *1*APPLY-STATE-SIMPLE-OKP))))) (PUT1-LST (QUOTE STATE-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE STATE-SIMPLE-OKP-OFF STATE-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-SIMPLE-OKP . STATE-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL STATE-SIMPLE-OKP STATE-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-SIMPLE-OKP) (QUOTE (MAIN-EVENT STATE-SIMPLE-OKP))) (PUT1-LST (QUOTE STATE-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-SIMPLE-OKP 3 NIL NIL)) TOTALP-LST ((STATE-SIMPLE-OKP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STATE TYPE) (IF (TRUEP TYPE) (EQUAL STATE (QUOTE NIL)) (IF (EQUAL TYPE (QUOTE BOOLP)) (BOOLP STATE) (IF (RAMP TYPE) (IF (RAMP STATE) (IF (STATE-SIMPLE-OKP (RAM-GUTS STATE) (RAM-GUTS TYPE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (ROMP TYPE) (IF (ROMP STATE) (IF (STATE-SIMPLE-OKP (ROM-GUTS STATE) (ROM-GUTS TYPE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (STUBP TYPE) (IF (STUBP STATE) (IF (STATE-SIMPLE-OKP (STUB-GUTS STATE) (STUB-GUTS TYPE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (LISTP TYPE) (IF (LISTP STATE) (IF (STATE-SIMPLE-OKP (CAR STATE) (CAR TYPE)) (IF (STATE-SIMPLE-OKP (CDR STATE) (CDR TYPE)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL TYPE (QUOTE NIL)) (EQUAL STATE (QUOTE NIL)) (QUOTE *1*FALSE))))))))) LISP-CODE *1*STATE-SIMPLE-OKP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((TRUEP TYPE)) NIL) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (EQUAL TYPE (QUOTE BOOLP))) NIL) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (RAMP TYPE)) (((RAM-GUTS STATE) (RAM-GUTS TYPE)))) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (RAMP TYPE)) (ROMP TYPE)) (((ROM-GUTS STATE) (ROM-GUTS TYPE)))) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (STUBP TYPE)) (((STUB-GUTS STATE) (STUB-GUTS TYPE)))) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (NOT (STUBP TYPE)) (LISTP TYPE)) (((CDR STATE) (CDR TYPE)) ((CAR STATE) (CAR TYPE)))) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (NOT (STUBP TYPE)) (NOT (LISTP TYPE)) (EQUAL TYPE (QUOTE NIL))) NIL) (TESTS-AND-CASES ((NOT (TRUEP TYPE)) (NOT (EQUAL TYPE (QUOTE BOOLP))) (NOT (RAMP TYPE)) (NOT (ROMP TYPE)) (NOT (STUBP TYPE)) (NOT (LISTP TYPE)) (NOT (EQUAL TYPE (QUOTE NIL)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (TYPE) (COUNT TYPE) LESSP (CAR-LESSP CDR-LESSP STUB-GUTS-LESSP ROM-GUTS-LESSP ZERO RAM-GUTS-LESSP))) IDATE 1000402194007 CONTROLLER-POCKETS (2) SATELLITES (*1*STATE-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (APPLY-STATE-SIMPLE-OKP STATE-SIMPLE-OKP-OFF) EVENT (DEFN STATE-SIMPLE-OKP (STATE TYPE) (IF (TRUEP TYPE) (EQUAL STATE (QUOTE NIL)) (IF (EQUAL TYPE (QUOTE BOOLP)) (BOOLP STATE) (IF (RAMP TYPE) (AND (RAMP STATE) (STATE-SIMPLE-OKP (RAM-GUTS STATE) (RAM-GUTS TYPE))) (IF (ROMP TYPE) (AND (ROMP STATE) (STATE-SIMPLE-OKP (ROM-GUTS STATE) (ROM-GUTS TYPE))) (IF (STUBP TYPE) (AND (STUBP STATE) (STATE-SIMPLE-OKP (STUB-GUTS STATE) (STUB-GUTS TYPE))) (IF (LISTP TYPE) (AND (LISTP STATE) (AND (STATE-SIMPLE-OKP (CAR STATE) (CAR TYPE)) (STATE-SIMPLE-OKP (CDR STATE) (CDR TYPE)))) (IF (EQUAL TYPE (QUOTE NIL)) (EQUAL STATE (QUOTE NIL)) (QUOTE *1*FALSE))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STUB . STATE-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 ROM . STATE-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 RAM . STATE-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 BOOLP . STATE-SIMPLE-OKP) (DCELL . *1*STATE-SIMPLE-OKP))))) (PUT1-LST (QUOTE NETLIST-STATE-TYPES-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-STATE-TYPES-SIMPLE-OFF NETLIST-STATE-TYPES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-STATE-TYPES-SIMPLE . NETLIST-STATE-TYPES-SIMPLE-OFF) (DISABLED-LEMMAS NIL NETLIST-STATE-TYPES-SIMPLE NETLIST-STATE-TYPES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-STATE-TYPES-SIMPLE) (QUOTE (MAIN-EVENT NETLIST-STATE-TYPES-SIMPLE))) (PUT1-LST (QUOTE NETLIST-STATE-TYPES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-STATE-TYPES-SIMPLE 25 NIL)) TOTALP-LST ((NETLIST-STATE-TYPES-SIMPLE)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (IF (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (IF (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE STATE-TYPES) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (QUOTE NIL))) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (QUOTE NIL))) LISP-CODE *1*NETLIST-STATE-TYPES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (NOT (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))))) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (NOT (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))))) (NOT (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (((CDR NETLIST))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (MODULE-NAME CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-STATE-TYPES-SIMPLE) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE-SIMPLE APPLY-STATE-SIMPLE-OKP NETLIST-STATE-TYPES-SIMPLE-OFF) EVENT (DEFN NETLIST-STATE-TYPES-SIMPLE (NETLIST) (IF (NLISTP NETLIST) (QUOTE NIL) (IF (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (IF (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)) (IF (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE STATE-TYPES) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (QUOTE NIL) NETLIST (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST)))) (QUOTE NIL))) (NETLIST-STATE-TYPES-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-TYPE-REQUIREMENT-SIMPLE . NETLIST-STATE-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . NETLIST-STATE-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NETLIST-STATE-TYPES-SIMPLE) (DCELL . *1*NETLIST-STATE-TYPES-SIMPLE))))) (PUT1-LST (QUOTE STATE-TYPE-REQUIREMENT-SIMPLE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF STATE-TYPE-REQUIREMENT-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STATE-TYPE-REQUIREMENT-SIMPLE . STATE-TYPE-REQUIREMENT-SIMPLE-OFF) (DISABLED-LEMMAS NIL STATE-TYPE-REQUIREMENT-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*STATE-TYPE-REQUIREMENT-SIMPLE) (QUOTE (MAIN-EVENT STATE-TYPE-REQUIREMENT-SIMPLE))) (PUT1-LST (QUOTE STATE-TYPE-REQUIREMENT-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((STATE-TYPE-REQUIREMENT-SIMPLE -1 NIL NIL T NIL NIL)) TOTALP-LST ((STATE-TYPE-REQUIREMENT-SIMPLE)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (FLG X0 X1 NETLIST TYPE-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0))) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0)))) (QUOTE NIL)) (QUOTE *1*TRUE)) (IF (LOOKUP-MODULE X0 TYPE-TABLE) (IF (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (CDR (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (QUOTE *1*TRUE)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (SET-EQUAL (M-STATES-LIST (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST))) (STRIP-CARS (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (IF (EQUAL (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL)) (QUOTE *1*TRUE) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (CDR X0) X1 NETLIST TYPE-TABLE) (IF (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (CDR X0) (CONS (CONS (OCC-NAME (CAR X0)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) X1) NETLIST TYPE-TABLE) (QUOTE *1*FALSE))) X1) (QUOTE *1*FALSE)))) LISP-CODE *1*STATE-TYPE-REQUIREMENT-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0) (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0)))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0) (NOT (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0))))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (LOOKUP-MODULE X0 TYPE-TABLE) (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (LOOKUP-MODULE X0 TYPE-TABLE) (NOT (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE X0 TYPE-TABLE)) (LISTP (LOOKUP-MODULE X0 NETLIST)) (SET-EQUAL (M-STATES-LIST (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST))) (STRIP-CARS (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (EQUAL (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE X0 TYPE-TABLE)) (LISTP (LOOKUP-MODULE X0 NETLIST)) (SET-EQUAL (M-STATES-LIST (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST))) (STRIP-CARS (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (NOT (EQUAL (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL)))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE X0 TYPE-TABLE)) (LISTP (LOOKUP-MODULE X0 NETLIST)) (NOT (SET-EQUAL (M-STATES-LIST (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST))) (STRIP-CARS (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE X0 TYPE-TABLE)) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE) ((QUOTE 1) (CDR X0) X1 NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) (((QUOTE 1) (CDR X0) (CONS (CONS (OCC-NAME (CAR X0)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) X1) NETLIST TYPE-TABLE) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (NOT (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X MODULE-STATENAMES ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194007 CONTROLLER-POCKETS (10) SATELLITES (*1*STATE-TYPE-REQUIREMENT-SIMPLE) IMMEDIATE-DEPENDENTS0 (APPLY-STATE-SIMPLE-OKP NETLIST-STATE-TYPES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE-OFF) EVENT (DEFN STATE-TYPE-REQUIREMENT-SIMPLE (FLG X0 X1 NETLIST TYPE-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0))) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (PRIMP X0)))) (QUOTE NIL)) (QUOTE *1*TRUE)) (IF (LOOKUP-MODULE X0 TYPE-TABLE) (IF (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (CDR (LOOKUP-MODULE (QUOTE STATE-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (QUOTE *1*TRUE)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (SET-EQUAL (M-STATES-LIST (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST))) (STRIP-CARS (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (IF (EQUAL (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL)) (QUOTE *1*TRUE) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) X1 (IF (TRUEP (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (CDR X0) X1 NETLIST TYPE-TABLE) (IF (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (CDR X0) (CONS (CONS (OCC-NAME (CAR X0)) (STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (QUOTE NIL) NETLIST TYPE-TABLE)) X1) NETLIST TYPE-TABLE) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 M-STATES-LIST . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 SET-EQUAL . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . STATE-TYPE-REQUIREMENT-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . STATE-TYPE-REQUIREMENT-SIMPLE) (DCELL . *1*STATE-TYPE-REQUIREMENT-SIMPLE))))) (PUT1-LST (QUOTE MAKE-RAM-STATE-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE MAKE-RAM-STATE-OFF MAKE-RAM-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-RAM-STATE . MAKE-RAM-STATE-OFF) (DISABLED-LEMMAS NIL MAKE-RAM-STATE MAKE-RAM-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-RAM-STATE) (QUOTE (MAIN-EVENT MAKE-RAM-STATE))) (PUT1-LST (QUOTE MAKE-RAM-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-RAM-STATE 1040 NIL NIL NIL)) TOTALP-LST ((MAKE-RAM-STATE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (STRUCTURE WIDTH BIT-VALUE) (IF (LISTP STRUCTURE) (CONS (MAKE-RAM-STATE (CAR STRUCTURE) WIDTH BIT-VALUE) (MAKE-RAM-STATE (CDR STRUCTURE) WIDTH BIT-VALUE)) (RAM (MAKE-LIST WIDTH BIT-VALUE)))) LISP-CODE *1*MAKE-RAM-STATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP STRUCTURE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP STRUCTURE))) (((CDR STRUCTURE) WIDTH BIT-VALUE) ((CAR STRUCTURE) WIDTH BIT-VALUE)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (STRUCTURE) (COUNT STRUCTURE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*MAKE-RAM-STATE) IMMEDIATE-DEPENDENTS0 (MAKE-RAM-STATE-OFF) EVENT (DEFN MAKE-RAM-STATE (STRUCTURE WIDTH BIT-VALUE) (IF (NLISTP STRUCTURE) (RAM (MAKE-LIST WIDTH BIT-VALUE)) (CONS (MAKE-RAM-STATE (CAR STRUCTURE) WIDTH BIT-VALUE) (MAKE-RAM-STATE (CDR STRUCTURE) WIDTH BIT-VALUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAKE-RAM-STATE) (IMMEDIATE-DEPENDENTS0 RAM . MAKE-RAM-STATE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . MAKE-RAM-STATE) (DCELL . *1*MAKE-RAM-STATE))))) (PUT1-LST (QUOTE ARG-TYPES-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE ARG-TYPES-SIMPLE-OKP-OFF ARG-TYPES-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ARG-TYPES-SIMPLE-OKP . ARG-TYPES-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL ARG-TYPES-SIMPLE-OKP ARG-TYPES-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*ARG-TYPES-SIMPLE-OKP) (QUOTE (MAIN-EVENT ARG-TYPES-SIMPLE-OKP))) (PUT1-LST (QUOTE ARG-TYPES-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((ARG-TYPES-SIMPLE-OKP 3 NIL NIL NIL)) TOTALP-LST ((ARG-TYPES-SIMPLE-OKP . T)) SDEFN (LAMBDA (FN ARG-TYPES NETLIST) (IF (SUBSET ARG-TYPES (QUOTE (BOOLP CLK LEVEL CLK-10))) (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) FN ARG-TYPES NETLIST (NETLIST-TYPE-TABLE-SIMPLE NETLIST))) (ARG-TYPES-MATCH-SIMPLEP ARG-TYPES (CAR (IO-TYPES-SIMPLE (QUOTE 0) FN ARG-TYPES NETLIST (NETLIST-TYPE-TABLE-SIMPLE NETLIST)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*ARG-TYPES-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194007 SATELLITES (*1*ARG-TYPES-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-SIMPLE-OKP-OFF) EVENT (DEFN ARG-TYPES-SIMPLE-OKP (FN ARG-TYPES NETLIST) (IF (NOT (SUBSET ARG-TYPES (QUOTE (BOOLP CLK LEVEL CLK-10)))) (QUOTE *1*FALSE) (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) FN ARG-TYPES NETLIST (NETLIST-TYPE-TABLE-SIMPLE NETLIST))) (ARG-TYPES-MATCH-SIMPLEP ARG-TYPES (CAR (IO-TYPES-SIMPLE (QUOTE 0) FN ARG-TYPES NETLIST (NETLIST-TYPE-TABLE-SIMPLE NETLIST)))) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ARG-TYPES-MATCH-SIMPLEP . ARG-TYPES-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-TABLE-SIMPLE . ARG-TYPES-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 IO-TYPES-SIMPLE . ARG-TYPES-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 SUBSET . ARG-TYPES-SIMPLE-OKP) (DCELL . *1*ARG-TYPES-SIMPLE-OKP))))) (PUT1-LST (QUOTE ARG-TYPES-MATCH-SIMPLEP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE ARG-TYPES-MATCH-SIMPLEP-OFF ARG-TYPES-MATCH-SIMPLEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ARG-TYPES-MATCH-SIMPLEP . ARG-TYPES-MATCH-SIMPLEP-OFF) (DISABLED-LEMMAS NIL ARG-TYPES-MATCH-SIMPLEP ARG-TYPES-MATCH-SIMPLEP-OFF . T))))) (PUT1-LST (QUOTE *1*ARG-TYPES-MATCH-SIMPLEP) (QUOTE (MAIN-EVENT ARG-TYPES-MATCH-SIMPLEP))) (PUT1-LST (QUOTE ARG-TYPES-MATCH-SIMPLEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ARG-TYPES-MATCH-SIMPLEP 3 NIL NIL)) TOTALP-LST ((ARG-TYPES-MATCH-SIMPLEP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (ACTUALS FORMALS) (IF (LISTP ACTUALS) (IF (LISTP FORMALS) (IF (EQUAL (CAR ACTUALS) (CAR FORMALS)) (IF (ARG-TYPES-MATCH-SIMPLEP (CDR ACTUALS) (CDR FORMALS)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF (EQUAL (CAR FORMALS) (QUOTE FREE)) (IF (ARG-TYPES-MATCH-SIMPLEP (CDR ACTUALS) (CDR FORMALS)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (EQUAL ACTUALS FORMALS)) (EQUAL ACTUALS FORMALS))) LISP-CODE *1*ARG-TYPES-MATCH-SIMPLEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP ACTUALS) (NLISTP FORMALS))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP ACTUALS) (NLISTP FORMALS)))) (((CDR ACTUALS) (CDR FORMALS))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (ACTUALS) (COUNT ACTUALS) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (FORMALS) (COUNT FORMALS) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1 2) SATELLITES (*1*ARG-TYPES-MATCH-SIMPLEP) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-SIMPLE-OKP ARG-TYPES-MATCH-SIMPLEP-OFF) EVENT (DEFN ARG-TYPES-MATCH-SIMPLEP (ACTUALS FORMALS) (IF (OR (NLISTP ACTUALS) (NLISTP FORMALS)) (EQUAL ACTUALS FORMALS) (AND (OR (EQUAL (CAR ACTUALS) (CAR FORMALS)) (EQUAL (CAR FORMALS) (QUOTE FREE))) (ARG-TYPES-MATCH-SIMPLEP (CDR ACTUALS) (CDR FORMALS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . ARG-TYPES-MATCH-SIMPLEP) (DCELL . *1*ARG-TYPES-MATCH-SIMPLEP))))) (PUT1-LST (QUOTE NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF NETLIST-TYPE-CHECK-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-CHECK-SIMPLE-OKP . NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-CHECK-SIMPLE-OKP) (QUOTE (MAIN-EVENT NETLIST-TYPE-CHECK-SIMPLE-OKP))) (PUT1-LST (QUOTE NETLIST-TYPE-CHECK-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-TYPE-CHECK-SIMPLE-OKP 25 NIL)) TOTALP-LST ((NETLIST-TYPE-CHECK-SIMPLE-OKP . T)) SDEFN (LAMBDA (NETLIST) (IF (NETLIST-TYPES-ACCEPTABLE-LIST NETLIST) (NETLIST-TYPE-TABLE-SIMPLE NETLIST) (QUOTE *1*FALSE))) LISP-CODE *1*NETLIST-TYPE-CHECK-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194007 SATELLITES (*1*NETLIST-TYPE-CHECK-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE-SIMPLE NETLIST-TYPE-CHECK-SIMPLE-OKP-OFF) EVENT (DEFN NETLIST-TYPE-CHECK-SIMPLE-OKP (NETLIST) (IF (NETLIST-TYPES-ACCEPTABLE-LIST NETLIST) (NETLIST-TYPE-TABLE-SIMPLE NETLIST) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-TABLE-SIMPLE . NETLIST-TYPE-CHECK-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NETLIST-TYPES-ACCEPTABLE-LIST . NETLIST-TYPE-CHECK-SIMPLE-OKP) (DCELL . *1*NETLIST-TYPE-CHECK-SIMPLE-OKP))))) (PUT1-LST (QUOTE NETLIST-TYPES-ACCEPTABLE-LIST-OFF) (QUOTE (IDATE 1000402194007 EVENT (TOGGLE NETLIST-TYPES-ACCEPTABLE-LIST-OFF NETLIST-TYPES-ACCEPTABLE-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-TYPES-ACCEPTABLE-LIST . NETLIST-TYPES-ACCEPTABLE-LIST-OFF) (DISABLED-LEMMAS NIL NETLIST-TYPES-ACCEPTABLE-LIST NETLIST-TYPES-ACCEPTABLE-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-TYPES-ACCEPTABLE-LIST) (QUOTE (MAIN-EVENT NETLIST-TYPES-ACCEPTABLE-LIST))) (PUT1-LST (QUOTE NETLIST-TYPES-ACCEPTABLE-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-TYPES-ACCEPTABLE-LIST 25 NIL)) TOTALP-LST ((NETLIST-TYPES-ACCEPTABLE-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)) (IF (TYPES-ACCEPTABLEP (QUOTE 0) (MODULE-NAME (CAR NETLIST)) NETLIST (QUOTE (BOOLP CLK LEVEL CLK-10 FREE)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST))) (CONS (MODULE-NAME (CAR NETLIST)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE NIL))) LISP-CODE *1*NETLIST-TYPES-ACCEPTABLE-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)) (TYPES-ACCEPTABLEP (QUOTE 0) (MODULE-NAME (CAR NETLIST)) NETLIST (QUOTE (BOOLP CLK LEVEL CLK-10 FREE)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)) (NOT (TYPES-ACCEPTABLEP (QUOTE 0) (MODULE-NAME (CAR NETLIST)) NETLIST (QUOTE (BOOLP CLK LEVEL CLK-10 FREE)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)))) (((CDR NETLIST))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (MODULE-NAME CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194007 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-TYPES-ACCEPTABLE-LIST) IMMEDIATE-DEPENDENTS0 (NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPES-ACCEPTABLE-LIST-OFF) EVENT (DEFN NETLIST-TYPES-ACCEPTABLE-LIST (NETLIST) (IF (NLISTP NETLIST) (QUOTE NIL) (IF (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST)) (IF (TYPES-ACCEPTABLEP (QUOTE 0) (MODULE-NAME (CAR NETLIST)) NETLIST (QUOTE (BOOLP CLK LEVEL CLK-10 FREE)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST))) (CONS (MODULE-NAME (CAR NETLIST)) (NETLIST-TYPES-ACCEPTABLE-LIST (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPES-ACCEPTABLEP . NETLIST-TYPES-ACCEPTABLE-LIST) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . NETLIST-TYPES-ACCEPTABLE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NETLIST-TYPES-ACCEPTABLE-LIST) (DCELL . *1*NETLIST-TYPES-ACCEPTABLE-LIST))))) (PUT1-LST (QUOTE TYPES-ACCEPTABLEP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE TYPES-ACCEPTABLEP-OFF TYPES-ACCEPTABLEP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPES-ACCEPTABLEP . TYPES-ACCEPTABLEP-OFF) (DISABLED-LEMMAS NIL TYPES-ACCEPTABLEP TYPES-ACCEPTABLEP-OFF . T))))) (PUT1-LST (QUOTE *1*TYPES-ACCEPTABLEP) (QUOTE (MAIN-EVENT TYPES-ACCEPTABLEP))) (PUT1-LST (QUOTE TYPES-ACCEPTABLEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPES-ACCEPTABLEP 3 NIL NIL NIL NIL NIL)) TOTALP-LST ((TYPES-ACCEPTABLEP . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE UNCHANGING UNCHANGING) SDEFN (LAMBDA (FLG X0 NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (IF (SUBSET (PRIMP2 X0 (QUOTE INPUT-TYPES)) ACCEPTABLE-TYPES) (SUBSET (FIX-DEPENDENT-TYPES (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) (PRIMP2 X0 (QUOTE INPUT-TYPES)))) ACCEPTABLE-TYPES) (QUOTE *1*FALSE)) (IF (MEMBER X0 CHECKED-MODULES) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (TYPES-ACCEPTABLEP (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST) ACCEPTABLE-TYPES CHECKED-MODULES) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (TYPES-ACCEPTABLEP (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (TYPES-ACCEPTABLEP (QUOTE 1) (CDR X0) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) LISP-CODE *1*TYPES-ACCEPTABLEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (MEMBER X0 CHECKED-MODULES)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (MEMBER X0 CHECKED-MODULES)) (LISTP (LOOKUP-MODULE X0 NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST) ACCEPTABLE-TYPES CHECKED-MODULES))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (MEMBER X0 CHECKED-MODULES)) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (TYPES-ACCEPTABLEP (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES)) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) ((QUOTE 1) (CDR X0) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (TYPES-ACCEPTABLEP (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194006 CONTROLLER-POCKETS (6) SATELLITES (*1*TYPES-ACCEPTABLEP) IMMEDIATE-DEPENDENTS0 (NETLIST-TYPES-ACCEPTABLE-LIST TYPES-ACCEPTABLEP-OFF) EVENT (DEFN TYPES-ACCEPTABLEP (FLG X0 NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (AND (SUBSET (PRIMP2 X0 (QUOTE INPUT-TYPES)) ACCEPTABLE-TYPES) (SUBSET (FIX-DEPENDENT-TYPES (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) (PRIMP2 X0 (QUOTE INPUT-TYPES)))) ACCEPTABLE-TYPES)) (IF (MEMBER X0 CHECKED-MODULES) (QUOTE *1*TRUE) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (TYPES-ACCEPTABLEP (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DELETE-MODULE X0 NETLIST) ACCEPTABLE-TYPES CHECKED-MODULES) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) (QUOTE *1*TRUE) (IF (TYPES-ACCEPTABLEP (QUOTE 0) (OCC-FUNCTION (CAR X0)) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (TYPES-ACCEPTABLEP (QUOTE 1) (CDR X0) NETLIST ACCEPTABLE-TYPES CHECKED-MODULES) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-TYPES . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 PRIMP2 . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 SUBSET . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 PRIMP . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . TYPES-ACCEPTABLEP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . TYPES-ACCEPTABLEP) (DCELL . *1*TYPES-ACCEPTABLEP))))) (PUT1-LST (QUOTE NETLIST-TYPE-TABLE-SIMPLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NETLIST-TYPE-TABLE-SIMPLE-OFF NETLIST-TYPE-TABLE-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-TYPE-TABLE-SIMPLE . NETLIST-TYPE-TABLE-SIMPLE-OFF) (DISABLED-LEMMAS NIL NETLIST-TYPE-TABLE-SIMPLE NETLIST-TYPE-TABLE-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-TABLE-SIMPLE) (QUOTE (MAIN-EVENT NETLIST-TYPE-TABLE-SIMPLE))) (PUT1-LST (QUOTE NETLIST-TYPE-TABLE-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-TYPE-TABLE-SIMPLE 25 NIL)) TOTALP-LST ((NETLIST-TYPE-TABLE-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)) (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE INPUT-TYPES) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))))) (CONS (CONS (QUOTE OUTPUT-TYPES) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))))) (QUOTE NIL)))) (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE NIL))) LISP-CODE *1*NETLIST-TYPE-TABLE-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)) (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)) (NOT (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)))) (((CDR NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (MODULE-NAME MODULE-INPUTS CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-TYPE-TABLE-SIMPLE) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-SIMPLE-OKP NETLIST-TYPE-CHECK-SIMPLE-OKP NETLIST-TYPE-TABLE-SIMPLE-OFF) EVENT (DEFN NETLIST-TYPE-TABLE-SIMPLE (NETLIST) (IF (NLISTP NETLIST) (QUOTE NIL) (IF (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)) (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST)))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE INPUT-TYPES) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))))) (CONS (CONS (QUOTE OUTPUT-TYPES) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))))) (QUOTE NIL)))) (NETLIST-TYPE-TABLE-SIMPLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTIFY . NETLIST-TYPE-TABLE-SIMPLE) (IMMEDIATE-DEPENDENTS0 IO-TYPES-SIMPLE . NETLIST-TYPE-TABLE-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . NETLIST-TYPE-TABLE-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . NETLIST-TYPE-TABLE-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NETLIST-TYPE-TABLE-SIMPLE) (DCELL . *1*NETLIST-TYPE-TABLE-SIMPLE))))) (PUT1-LST (QUOTE IO-TYPES-SIMPLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE IO-TYPES-SIMPLE-OFF IO-TYPES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IO-TYPES-SIMPLE . IO-TYPES-SIMPLE-OFF) (DISABLED-LEMMAS NIL IO-TYPES-SIMPLE IO-TYPES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*IO-TYPES-SIMPLE) (QUOTE (MAIN-EVENT IO-TYPES-SIMPLE))) (PUT1-LST (QUOTE IO-TYPES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((IO-TYPES-SIMPLE 17 NIL NIL T NIL NIL)) TOTALP-LST ((IO-TYPES-SIMPLE . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (FLG X0 X1 NETLIST TYPE-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP2 X0 (QUOTE INPUT-TYPES)) (FIX-DEPENDENT-TYPES (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1))) (IF (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (IF (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (CONS (CDR (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (FIX-DEPENDENT-TYPES (CDR (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (CONS (COLLECT-TYPES (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*TRUE)) (FIX-DEPENDENT-TYPES (COLLECT-TYPES (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*FALSE)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (CONS (COLLECT-TYPES (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*TRUE)) (FIX-DEPENDENT-TYPES (COLLECT-TYPES (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*FALSE)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE)) (IF (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)) (IO-TYPES-SIMPLE (QUOTE 1) (CDR X0) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)) NETLIST TYPE-TABLE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) X1) (QUOTE *1*FALSE)))) LISP-CODE *1*IO-TYPES-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (AND (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE)) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (NOT (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (AND (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))))) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE)) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1))) (((QUOTE 1) (CDR X0) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)) NETLIST TYPE-TABLE) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE)) (NOT (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE)))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP OCC-OUTPUTS OCC-INPUTS CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT AND MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194006 CONTROLLER-POCKETS (10) SATELLITES (*1*IO-TYPES-SIMPLE) IMMEDIATE-DEPENDENTS0 (ARG-TYPES-SIMPLE-OKP NETLIST-TYPE-TABLE-SIMPLE IO-TYPES-SIMPLE-OFF) EVENT (DEFN IO-TYPES-SIMPLE (FLG X0 X1 NETLIST TYPE-TABLE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (CONS (PRIMP2 X0 (QUOTE INPUT-TYPES)) (FIX-DEPENDENT-TYPES (PRIMP2 X0 (QUOTE OUTPUT-TYPES)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1))) (IF (AND (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE))) (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (CONS (CDR (LOOKUP-MODULE (QUOTE INPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (FIX-DEPENDENT-TYPES (CDR (LOOKUP-MODULE (QUOTE OUTPUT-TYPES) (CDR (LOOKUP-MODULE X0 TYPE-TABLE)))) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1))) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (CONS (COLLECT-TYPES (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*TRUE)) (FIX-DEPENDENT-TYPES (COLLECT-TYPES (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (IO-TYPES-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (QUOTE NIL) (DELETE-MODULE X0 NETLIST) TYPE-TABLE) (QUOTE *1*FALSE)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) X1 (IF (LISTP (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE)) (IF (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)) (IO-TYPES-SIMPLE (QUOTE 1) (CDR X0) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-OUTPUTS (CAR X0)) (CDR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) (UPDATE-KNOWN-TYPES (PAIRLIST (OCC-INPUTS (CAR X0)) (CAR (IO-TYPES-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-TYPES (OCC-INPUTS (CAR X0)) X1 (QUOTE *1*FALSE)) NETLIST TYPE-TABLE))) X1)) NETLIST TYPE-TABLE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-KNOWN-TYPES . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 COLLECT-TYPES . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-TYPES . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . IO-TYPES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . IO-TYPES-SIMPLE) (DCELL . *1*IO-TYPES-SIMPLE))))) (PUT1-LST (QUOTE FIX-DEPENDENT-TYPES-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE FIX-DEPENDENT-TYPES-OFF FIX-DEPENDENT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-DEPENDENT-TYPES . FIX-DEPENDENT-TYPES-OFF) (DISABLED-LEMMAS NIL FIX-DEPENDENT-TYPES FIX-DEPENDENT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-TYPES) (QUOTE (MAIN-EVENT FIX-DEPENDENT-TYPES))) (PUT1-LST (QUOTE FIX-DEPENDENT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-DEPENDENT-TYPES 24 NIL NIL)) TOTALP-LST ((FIX-DEPENDENT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (TYPES ALIST) (IF (LISTP TYPES) (IF (LISTP (CAR TYPES)) (CONS (VALUE (CAR (CAR TYPES)) ALIST) (FIX-DEPENDENT-TYPES (CDR TYPES) ALIST)) (CONS (CAR TYPES) (FIX-DEPENDENT-TYPES (CDR TYPES) ALIST))) (QUOTE NIL))) LISP-CODE *1*FIX-DEPENDENT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TYPES)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TYPES)) (LISTP (CAR TYPES))) (((CDR TYPES) ALIST))) (TESTS-AND-CASES ((NOT (NLISTP TYPES)) (NOT (LISTP (CAR TYPES)))) (((CDR TYPES) ALIST)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TYPES) (COUNT TYPES) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-DEPENDENT-TYPES) IMMEDIATE-DEPENDENTS0 (TYPES-ACCEPTABLEP IO-TYPES-SIMPLE FIX-DEPENDENT-TYPES-OFF) EVENT (DEFN FIX-DEPENDENT-TYPES (TYPES ALIST) (IF (NLISTP TYPES) (QUOTE NIL) (IF (LISTP (CAR TYPES)) (CONS (VALUE (CAR (CAR TYPES)) ALIST) (FIX-DEPENDENT-TYPES (CDR TYPES) ALIST)) (CONS (CAR TYPES) (FIX-DEPENDENT-TYPES (CDR TYPES) ALIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . FIX-DEPENDENT-TYPES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FIX-DEPENDENT-TYPES) (DCELL . *1*FIX-DEPENDENT-TYPES))))) (PUT1-LST (QUOTE UPDATE-KNOWN-TYPES-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE UPDATE-KNOWN-TYPES-OFF UPDATE-KNOWN-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-KNOWN-TYPES . UPDATE-KNOWN-TYPES-OFF) (DISABLED-LEMMAS NIL UPDATE-KNOWN-TYPES UPDATE-KNOWN-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-KNOWN-TYPES) (QUOTE (MAIN-EVENT UPDATE-KNOWN-TYPES))) (PUT1-LST (QUOTE UPDATE-KNOWN-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-KNOWN-TYPES 17 NIL T)) TOTALP-LST ((UPDATE-KNOWN-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NEW-TYPES KNOWN-TYPES) (IF (LISTP NEW-TYPES) (IF (FALSEP KNOWN-TYPES) KNOWN-TYPES (UPDATE-KNOWN-TYPES (CDR NEW-TYPES) (ADD-NEW-TYPE (CAR NEW-TYPES) KNOWN-TYPES))) KNOWN-TYPES)) LISP-CODE *1*UPDATE-KNOWN-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (NLISTP NEW-TYPES) (FALSEP KNOWN-TYPES))) NIL) (TESTS-AND-CASES ((NOT (OR (NLISTP NEW-TYPES) (FALSEP KNOWN-TYPES)))) (((CDR NEW-TYPES) (ADD-NEW-TYPE (CAR NEW-TYPES) KNOWN-TYPES))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NEW-TYPES) (COUNT NEW-TYPES) LESSP (CDR-LESSP NLISTP OR LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*UPDATE-KNOWN-TYPES) IMMEDIATE-DEPENDENTS0 (IO-TYPES-SIMPLE UPDATE-KNOWN-TYPES-OFF) EVENT (DEFN UPDATE-KNOWN-TYPES (NEW-TYPES KNOWN-TYPES) (IF (OR (NLISTP NEW-TYPES) (FALSEP KNOWN-TYPES)) KNOWN-TYPES (UPDATE-KNOWN-TYPES (CDR NEW-TYPES) (ADD-NEW-TYPE (CAR NEW-TYPES) KNOWN-TYPES)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NEW-TYPE . UPDATE-KNOWN-TYPES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . UPDATE-KNOWN-TYPES) (DCELL . *1*UPDATE-KNOWN-TYPES))))) (PUT1-LST (QUOTE ADD-NEW-TYPE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE ADD-NEW-TYPE-OFF ADD-NEW-TYPE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-NEW-TYPE . ADD-NEW-TYPE-OFF) (DISABLED-LEMMAS NIL ADD-NEW-TYPE ADD-NEW-TYPE-OFF . T))))) (PUT1-LST (QUOTE *1*ADD-NEW-TYPE) (QUOTE (MAIN-EVENT ADD-NEW-TYPE))) (PUT1-LST (QUOTE ADD-NEW-TYPE) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-NEW-TYPE 17 NIL T)) TOTALP-LST ((ADD-NEW-TYPE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NEW-TYPE-ENTRY KNOWN-TYPES) (IF (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE)) KNOWN-TYPES (IF (LISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)) (IF (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) KNOWN-TYPES (IF (LISTP (CDR NEW-TYPE-ENTRY)) (CONS (CONS (CAR (CDR NEW-TYPE-ENTRY)) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) KNOWN-TYPES) (IF (LISTP (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (IF (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)) (CONS NEW-TYPE-ENTRY (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (CONS NEW-TYPE-ENTRY KNOWN-TYPES)))) LISP-CODE *1*ADD-NEW-TYPE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NOT (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NOT (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (NOT (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (LISTP (CDR NEW-TYPE-ENTRY))) NIL) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NOT (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (NOT (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (NOT (LISTP (CDR NEW-TYPE-ENTRY))) (LISTP (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (((CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NOT (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (NOT (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (NOT (LISTP (CDR NEW-TYPE-ENTRY))) (LISTP (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (NOT (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (((CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (TESTS-AND-CASES ((NOT (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE))) (NOT (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (NOT (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)))) (NOT (LISTP (CDR NEW-TYPE-ENTRY))) (NOT (LISTP (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (KNOWN-TYPES) (COUNT KNOWN-TYPES) LESSP (ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT NLISTP))) IDATE 1000402194006 CONTROLLER-POCKETS (2) SATELLITES (*1*ADD-NEW-TYPE) IMMEDIATE-DEPENDENTS0 (UPDATE-KNOWN-TYPES ADD-NEW-TYPE-OFF) EVENT (DEFN ADD-NEW-TYPE (NEW-TYPE-ENTRY KNOWN-TYPES) (IF (EQUAL (CDR NEW-TYPE-ENTRY) (QUOTE FREE)) KNOWN-TYPES (IF (NLISTP (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)) (CONS NEW-TYPE-ENTRY KNOWN-TYPES) (IF (EQUAL (CDR NEW-TYPE-ENTRY) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) KNOWN-TYPES (IF (LISTP (CDR NEW-TYPE-ENTRY)) (CONS (CONS (CAR (CDR NEW-TYPE-ENTRY)) (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) KNOWN-TYPES) (IF (LISTP (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (IF (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES)) (CONS NEW-TYPE-ENTRY (ADD-NEW-TYPE (CONS (CAR (CDR (LOOKUP-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (CDR NEW-TYPE-ENTRY)) (DELETE-MODULE (CAR NEW-TYPE-ENTRY) KNOWN-TYPES))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . ADD-NEW-TYPE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . ADD-NEW-TYPE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . ADD-NEW-TYPE) (DCELL . *1*ADD-NEW-TYPE))))) (PUT1-LST (QUOTE COLLECT-TYPES-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE COLLECT-TYPES-OFF COLLECT-TYPES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-TYPES . COLLECT-TYPES-OFF) (DISABLED-LEMMAS NIL COLLECT-TYPES COLLECT-TYPES-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-TYPES) (QUOTE (MAIN-EVENT COLLECT-TYPES))) (PUT1-LST (QUOTE COLLECT-TYPES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-TYPES 24 NIL NIL NIL)) TOTALP-LST ((COLLECT-TYPES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (NAMES ALIST DEFAULT) (IF (LISTP NAMES) (CONS (TYPE-VALUE-SIMPLE (CAR NAMES) ALIST DEFAULT) (COLLECT-TYPES (CDR NAMES) ALIST DEFAULT)) (QUOTE NIL))) LISP-CODE *1*COLLECT-TYPES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NAMES)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NAMES))) (((CDR NAMES) ALIST DEFAULT)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (NAMES) (COUNT NAMES) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-TYPES) IMMEDIATE-DEPENDENTS0 (IO-TYPES-SIMPLE COLLECT-TYPES-OFF) EVENT (DEFN COLLECT-TYPES (NAMES ALIST DEFAULT) (IF (NLISTP NAMES) (QUOTE NIL) (CONS (TYPE-VALUE-SIMPLE (CAR NAMES) ALIST DEFAULT) (COLLECT-TYPES (CDR NAMES) ALIST DEFAULT)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE-SIMPLE . COLLECT-TYPES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-TYPES) (DCELL . *1*COLLECT-TYPES))))) (PUT1-LST (QUOTE TYPE-VALUE-SIMPLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE TYPE-VALUE-SIMPLE-OFF TYPE-VALUE-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TYPE-VALUE-SIMPLE . TYPE-VALUE-SIMPLE-OFF) (DISABLED-LEMMAS NIL TYPE-VALUE-SIMPLE TYPE-VALUE-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*TYPE-VALUE-SIMPLE) (QUOTE (MAIN-EVENT TYPE-VALUE-SIMPLE))) (PUT1-LST (QUOTE TYPE-VALUE-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((TYPE-VALUE-SIMPLE -1 NIL NIL NIL)) TOTALP-LST ((TYPE-VALUE-SIMPLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (N ALIST DEFAULT) (IF (LISTP (LOOKUP-MODULE N ALIST)) (IF (LISTP (CDR (LOOKUP-MODULE N ALIST))) (IF (EQUAL (CAR (CDR (LOOKUP-MODULE N ALIST))) N) (IF DEFAULT (QUOTE FREE) (CDR (LOOKUP-MODULE N ALIST))) (TYPE-VALUE-SIMPLE (CAR (CDR (LOOKUP-MODULE N ALIST))) (DELETE-MODULE N ALIST) DEFAULT)) (CDR (LOOKUP-MODULE N ALIST))) (IF DEFAULT (QUOTE FREE) (CONS N (QUOTE NIL))))) LISP-CODE *1*TYPE-VALUE-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP (LOOKUP-MODULE N ALIST)) DEFAULT) NIL) (TESTS-AND-CASES ((NLISTP (LOOKUP-MODULE N ALIST)) (NOT DEFAULT)) NIL) (TESTS-AND-CASES ((NOT (NLISTP (LOOKUP-MODULE N ALIST))) (NLISTP (CDR (LOOKUP-MODULE N ALIST)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP (LOOKUP-MODULE N ALIST))) (NOT (NLISTP (CDR (LOOKUP-MODULE N ALIST)))) (EQUAL (CAR (CDR (LOOKUP-MODULE N ALIST))) N) DEFAULT) NIL) (TESTS-AND-CASES ((NOT (NLISTP (LOOKUP-MODULE N ALIST))) (NOT (NLISTP (CDR (LOOKUP-MODULE N ALIST)))) (EQUAL (CAR (CDR (LOOKUP-MODULE N ALIST))) N) (NOT DEFAULT)) NIL) (TESTS-AND-CASES ((NOT (NLISTP (LOOKUP-MODULE N ALIST))) (NOT (NLISTP (CDR (LOOKUP-MODULE N ALIST)))) (NOT (EQUAL (CAR (CDR (LOOKUP-MODULE N ALIST))) N))) (((CAR (CDR (LOOKUP-MODULE N ALIST))) (DELETE-MODULE N ALIST) DEFAULT)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (ALIST) (COUNT ALIST) LESSP (ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT NLISTP))) IDATE 1000402194006 CONTROLLER-POCKETS (2) SATELLITES (*1*TYPE-VALUE-SIMPLE) IMMEDIATE-DEPENDENTS0 (COLLECT-TYPES TYPE-VALUE-SIMPLE-OFF) EVENT (DEFN TYPE-VALUE-SIMPLE (N ALIST DEFAULT) (IF (NLISTP (LOOKUP-MODULE N ALIST)) (IF DEFAULT (QUOTE FREE) (CONS N (QUOTE NIL))) (IF (NLISTP (CDR (LOOKUP-MODULE N ALIST))) (CDR (LOOKUP-MODULE N ALIST)) (IF (EQUAL (CAR (CDR (LOOKUP-MODULE N ALIST))) N) (IF DEFAULT (QUOTE FREE) (CDR (LOOKUP-MODULE N ALIST))) (TYPE-VALUE-SIMPLE (CAR (CDR (LOOKUP-MODULE N ALIST))) (DELETE-MODULE N ALIST) DEFAULT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . TYPE-VALUE-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . TYPE-VALUE-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . TYPE-VALUE-SIMPLE) (DCELL . *1*TYPE-VALUE-SIMPLE))))) (PUT1-LST (QUOTE OUTPUT-DEPENDENCIES-SIMPLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE OUTPUT-DEPENDENCIES-SIMPLE-OFF OUTPUT-DEPENDENCIES-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUTPUT-DEPENDENCIES-SIMPLE . OUTPUT-DEPENDENCIES-SIMPLE-OFF) (DISABLED-LEMMAS NIL OUTPUT-DEPENDENCIES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*OUTPUT-DEPENDENCIES-SIMPLE) (QUOTE (MAIN-EVENT OUTPUT-DEPENDENCIES-SIMPLE))) (PUT1-LST (QUOTE OUTPUT-DEPENDENCIES-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((OUTPUT-DEPENDENCIES-SIMPLE 25 NIL NIL NIL)) TOTALP-LST ((OUTPUT-DEPENDENCIES-SIMPLE . T)) SDEFN (LAMBDA (MODULE-NAME ARGS NETLIST) (IF (PRIMP MODULE-NAME) (IF (EQUAL (LENGTH ARGS) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS)))) (LIST-LIST-SORT (OUT-DEPENDS-SIMPLE (QUOTE 0) MODULE-NAME ARGS NETLIST (SIMPLE-DEPENDENCY-TABLE NETLIST))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (IF (EQUAL (LENGTH ARGS) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST)))) (LIST-LIST-SORT (OUT-DEPENDS-SIMPLE (QUOTE 0) MODULE-NAME ARGS NETLIST (SIMPLE-DEPENDENCY-TABLE NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LOOKUP-MODULE MODULE-NAME NETLIST) (IF (EQUAL (LENGTH ARGS) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST)))) (LIST-LIST-SORT (OUT-DEPENDS-SIMPLE (QUOTE 0) MODULE-NAME ARGS NETLIST (SIMPLE-DEPENDENCY-TABLE NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*OUTPUT-DEPENDENCIES-SIMPLE SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402194006 SATELLITES (*1*OUTPUT-DEPENDENCIES-SIMPLE) IMMEDIATE-DEPENDENTS0 (OUTPUT-DEPENDENCIES-SIMPLE-OFF) EVENT (DEFN OUTPUT-DEPENDENCIES-SIMPLE (MODULE-NAME ARGS NETLIST) (IF (OR (AND (PRIMP MODULE-NAME) (EQUAL (LENGTH ARGS) (LENGTH (PRIMP2 MODULE-NAME (QUOTE INPUTS))))) (AND (LOOKUP-MODULE MODULE-NAME NETLIST) (EQUAL (LENGTH ARGS) (LENGTH (MODULE-INPUTS (LOOKUP-MODULE MODULE-NAME NETLIST)))))) (LIST-LIST-SORT (OUT-DEPENDS-SIMPLE (QUOTE 0) MODULE-NAME ARGS NETLIST (SIMPLE-DEPENDENCY-TABLE NETLIST))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMPLE-DEPENDENCY-TABLE . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 OUT-DEPENDS-SIMPLE . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LIST-LIST-SORT . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 LENGTH . OUTPUT-DEPENDENCIES-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP . OUTPUT-DEPENDENCIES-SIMPLE) (DCELL . *1*OUTPUT-DEPENDENCIES-SIMPLE))))) (PUT1-LST (QUOTE SIMPLE-DEPENDENCY-TABLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE SIMPLE-DEPENDENCY-TABLE-OFF SIMPLE-DEPENDENCY-TABLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMPLE-DEPENDENCY-TABLE . SIMPLE-DEPENDENCY-TABLE-OFF) (DISABLED-LEMMAS NIL SIMPLE-DEPENDENCY-TABLE SIMPLE-DEPENDENCY-TABLE-OFF . T))))) (PUT1-LST (QUOTE *1*SIMPLE-DEPENDENCY-TABLE) (QUOTE (MAIN-EVENT SIMPLE-DEPENDENCY-TABLE))) (PUT1-LST (QUOTE SIMPLE-DEPENDENCY-TABLE) (QUOTE (TYPE-PRESCRIPTION-LST ((SIMPLE-DEPENDENCY-TABLE 25 NIL)) TOTALP-LST ((SIMPLE-DEPENDENCY-TABLE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)) (IF (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE OUT-DEPENDS) (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)))) (QUOTE NIL))) (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE NIL))) LISP-CODE *1*SIMPLE-DEPENDENCY-TABLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)) (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)) (NOT (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST))))) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)))) (((CDR NETLIST))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (MODULE-NAME MODULE-INPUTS CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*SIMPLE-DEPENDENCY-TABLE) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE SIMPLE-DEPENDENCY-TABLE-OFF) EVENT (DEFN SIMPLE-DEPENDENCY-TABLE (NETLIST) (IF (NLISTP NETLIST) (QUOTE NIL) (IF (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)) (IF (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST))) (CONS (CONS (MODULE-NAME (CAR NETLIST)) (CONS (CONS (QUOTE OUT-DEPENDS) (OUT-DEPENDS-SIMPLE (QUOTE 0) (MODULE-NAME (CAR NETLIST)) (LISTIFY (MODULE-INPUTS (CAR NETLIST))) NETLIST (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST)))) (QUOTE NIL))) (SIMPLE-DEPENDENCY-TABLE (CDR NETLIST))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTIFY . SIMPLE-DEPENDENCY-TABLE) (IMMEDIATE-DEPENDENTS0 OUT-DEPENDS-SIMPLE . SIMPLE-DEPENDENCY-TABLE) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . SIMPLE-DEPENDENCY-TABLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . SIMPLE-DEPENDENCY-TABLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SIMPLE-DEPENDENCY-TABLE) (DCELL . *1*SIMPLE-DEPENDENCY-TABLE))))) (PUT1-LST (QUOTE OUT-DEPENDS-SIMPLE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE OUT-DEPENDS-SIMPLE-OFF OUT-DEPENDS-SIMPLE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUT-DEPENDS-SIMPLE . OUT-DEPENDS-SIMPLE-OFF) (DISABLED-LEMMAS NIL OUT-DEPENDS-SIMPLE OUT-DEPENDS-SIMPLE-OFF . T))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS-SIMPLE) (QUOTE (MAIN-EVENT OUT-DEPENDS-SIMPLE))) (PUT1-LST (QUOTE OUT-DEPENDS-SIMPLE) (QUOTE (TYPE-PRESCRIPTION-LST ((OUT-DEPENDS-SIMPLE 25 NIL NIL T NIL NIL)) TOTALP-LST ((OUT-DEPENDS-SIMPLE . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE UNCHANGING) SDEFN (LAMBDA (FLG X0 X1 NETLIST MODULE-DATABASE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (LIST-COLLECT-VALUE (PRIMP2 X0 (QUOTE OUT-DEPENDS)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1)) (IF (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE))) (LIST-COLLECT-VALUE (CDR (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE) (IF (SUBSET (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (STRIP-CARS (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE))) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (LISTP X0) (IF (SUBSET (FLATTEN-LIST (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)) (STRIP-CARS X1)) (IF (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE) (OUT-DEPENDS-SIMPLE (QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (LIST-COLLECT-VALUE (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE) X1)) X1) NETLIST MODULE-DATABASE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) X1) (QUOTE *1*FALSE)))) LISP-CODE *1*OUT-DEPENDS-SIMPLE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (AND (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE) (SUBSET (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (STRIP-CARS (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE))))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) (LISTP (LOOKUP-MODULE X0 NETLIST)) (NOT (AND (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE) (SUBSET (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (STRIP-CARS (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE)))))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE))) (TESTS-AND-CASES ((EQUAL FLG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NLISTP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (AND (SUBSET (FLATTEN-LIST (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)) (STRIP-CARS X1)) (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE))) (((QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (LIST-COLLECT-VALUE (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE) X1)) X1) NETLIST MODULE-DATABASE) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (EQUAL FLG (QUOTE 1)) (NOT (NLISTP X0)) (NOT (AND (SUBSET (FLATTEN-LIST (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)) (STRIP-CARS X1)) (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)))) (((QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE 0))) (NOT (EQUAL FLG (QUOTE 1)))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CDR-LESSP OCC-INPUTS CAR-LESSP CDR-LESSEQP CAR-LESSEQP EQUAL NLISTP OCC-FUNCTION LESSP-X-X MODULE-INPUTS MODULE-OUTPUTS AND ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194006 CONTROLLER-POCKETS (10) SATELLITES (*1*OUT-DEPENDS-SIMPLE) IMMEDIATE-DEPENDENTS0 (OUTPUT-DEPENDENCIES-SIMPLE SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE-OFF) EVENT (DEFN OUT-DEPENDS-SIMPLE (FLG X0 X1 NETLIST MODULE-DATABASE) (IF (EQUAL FLG (QUOTE 0)) (IF (PRIMP X0) (LIST-COLLECT-VALUE (PRIMP2 X0 (QUOTE OUT-DEPENDS)) (PAIRLIST (PRIMP2 X0 (QUOTE INPUTS)) X1)) (IF (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE))) (LIST-COLLECT-VALUE (CDR (LOOKUP-MODULE (QUOTE OUT-DEPENDS) (CDR (LOOKUP-MODULE X0 MODULE-DATABASE)))) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1)) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (IF (AND (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE) (SUBSET (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (STRIP-CARS (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE)))) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (OUT-DEPENDS-SIMPLE (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (DELETE-MODULE X0 NETLIST) MODULE-DATABASE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (IF (EQUAL FLG (QUOTE 1)) (IF (NLISTP X0) X1 (IF (AND (SUBSET (FLATTEN-LIST (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)) (STRIP-CARS X1)) (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE)) (OUT-DEPENDS-SIMPLE (QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (LIST-COLLECT-VALUE (OUT-DEPENDS-SIMPLE (QUOTE 0) (OCC-FUNCTION (CAR X0)) (LISTIFY (OCC-INPUTS (CAR X0))) NETLIST MODULE-DATABASE) X1)) X1) NETLIST MODULE-DATABASE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LISTIFY . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 FLATTEN-LIST . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 SUBSET . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LIST-COLLECT-VALUE . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 PRIMP . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . OUT-DEPENDS-SIMPLE) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . OUT-DEPENDS-SIMPLE) (DCELL . *1*OUT-DEPENDS-SIMPLE))))) (PUT1-LST (QUOTE NETLIST-SYNTAX-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NETLIST-SYNTAX-SIMPLE-OKP-OFF NETLIST-SYNTAX-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NETLIST-SYNTAX-SIMPLE-OKP . NETLIST-SYNTAX-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL NETLIST-SYNTAX-SIMPLE-OKP NETLIST-SYNTAX-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-SIMPLE-OKP) (QUOTE (MAIN-EVENT NETLIST-SYNTAX-SIMPLE-OKP))) (PUT1-LST (QUOTE NETLIST-SYNTAX-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((NETLIST-SYNTAX-SIMPLE-OKP 3 NIL)) TOTALP-LST ((NETLIST-SYNTAX-SIMPLE-OKP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NETLIST) (IF (LISTP NETLIST) (IF (MODULE-SYNTAX-SIMPLE-OKP NETLIST) (NETLIST-SYNTAX-SIMPLE-OKP (CDR NETLIST)) (QUOTE *1*FALSE)) (EQUAL NETLIST (QUOTE NIL)))) LISP-CODE *1*NETLIST-SYNTAX-SIMPLE-OKP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (MODULE-SYNTAX-SIMPLE-OKP NETLIST)) (((CDR NETLIST)))) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (MODULE-SYNTAX-SIMPLE-OKP NETLIST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*NETLIST-SYNTAX-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (TOP-LEVEL-PREDICATE-SIMPLE NETLIST-SYNTAX-SIMPLE-OKP-OFF) EVENT (DEFN NETLIST-SYNTAX-SIMPLE-OKP (NETLIST) (IF (NLISTP NETLIST) (EQUAL NETLIST (QUOTE NIL)) (IF (MODULE-SYNTAX-SIMPLE-OKP NETLIST) (NETLIST-SYNTAX-SIMPLE-OKP (CDR NETLIST)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-SIMPLE-OKP . NETLIST-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NETLIST-SYNTAX-SIMPLE-OKP) (DCELL . *1*NETLIST-SYNTAX-SIMPLE-OKP))))) (PUT1-LST (QUOTE MODULE-SYNTAX-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE MODULE-SYNTAX-SIMPLE-OKP-OFF MODULE-SYNTAX-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-SYNTAX-SIMPLE-OKP . MODULE-SYNTAX-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL MODULE-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-SIMPLE-OKP) (QUOTE (MAIN-EVENT MODULE-SYNTAX-SIMPLE-OKP))) (PUT1-LST (QUOTE MODULE-SYNTAX-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-SYNTAX-SIMPLE-OKP 3 NIL)) TOTALP-LST ((MODULE-SYNTAX-SIMPLE-OKP . T)) SDEFN (LAMBDA (NETLIST) (IF (EQUAL (LENGTH (CAR NETLIST)) (QUOTE 5)) (IF (PROPERP (CAR NETLIST)) (IF (NAME-SIMPLE-OKP (MODULE-NAME (CAR NETLIST))) (IF (LOOKUP-MODULE (MODULE-NAME (CAR NETLIST)) (CDR NETLIST)) (QUOTE *1*FALSE) (IF (PRIMP (MODULE-NAME (CAR NETLIST))) (QUOTE *1*FALSE) (IF (NAME-LIST-SIMPLE-OKP (MODULE-INPUTS (CAR NETLIST))) (IF (NAME-LIST-SIMPLE-OKP (MODULE-OUTPUTS (CAR NETLIST))) (IF (NAME-LIST-SIMPLE-OKP (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST)))) (IF (DISJOINT (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST))) (IF (LISTP (MODULE-OCCURRENCES (CAR NETLIST))) (OCC-BODY-SYNTAX-SIMPLE-OKP (MODULE-OCCURRENCES (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (QUOTE NIL) (QUOTE NIL) (MODULE-OUTPUTS (CAR NETLIST)) (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST))) (CDR NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (LENGTH (CAR NETLIST)) (QUOTE 6)) (IF (ALISTP (MODULE-ANNOTATION (CAR NETLIST))) (IF (PROPERP (CAR NETLIST)) (IF (NAME-SIMPLE-OKP (MODULE-NAME (CAR NETLIST))) (IF (LOOKUP-MODULE (MODULE-NAME (CAR NETLIST)) (CDR NETLIST)) (QUOTE *1*FALSE) (IF (PRIMP (MODULE-NAME (CAR NETLIST))) (QUOTE *1*FALSE) (IF (NAME-LIST-SIMPLE-OKP (MODULE-INPUTS (CAR NETLIST))) (IF (NAME-LIST-SIMPLE-OKP (MODULE-OUTPUTS (CAR NETLIST))) (IF (NAME-LIST-SIMPLE-OKP (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST)))) (IF (DISJOINT (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST))) (IF (LISTP (MODULE-OCCURRENCES (CAR NETLIST))) (OCC-BODY-SYNTAX-SIMPLE-OKP (MODULE-OCCURRENCES (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (QUOTE NIL) (QUOTE NIL) (MODULE-OUTPUTS (CAR NETLIST)) (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST))) (CDR NETLIST)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*MODULE-SYNTAX-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402194006 SATELLITES (*1*MODULE-SYNTAX-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (NETLIST-SYNTAX-SIMPLE-OKP MODULE-SYNTAX-SIMPLE-OKP-OFF) EVENT (DEFN MODULE-SYNTAX-SIMPLE-OKP (NETLIST) (AND (OR (EQUAL (LENGTH (CAR NETLIST)) (QUOTE 5)) (AND (EQUAL (LENGTH (CAR NETLIST)) (QUOTE 6)) (ALISTP (MODULE-ANNOTATION (CAR NETLIST))))) (AND (PROPERP (CAR NETLIST)) (AND (NAME-SIMPLE-OKP (MODULE-NAME (CAR NETLIST))) (AND (NOT (LOOKUP-MODULE (MODULE-NAME (CAR NETLIST)) (CDR NETLIST))) (AND (NOT (PRIMP (MODULE-NAME (CAR NETLIST)))) (AND (NAME-LIST-SIMPLE-OKP (MODULE-INPUTS (CAR NETLIST))) (AND (NAME-LIST-SIMPLE-OKP (MODULE-OUTPUTS (CAR NETLIST))) (AND (NAME-LIST-SIMPLE-OKP (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST)))) (AND (DISJOINT (MODULE-INPUTS (CAR NETLIST)) (MODULE-OUTPUTS (CAR NETLIST))) (AND (LISTP (MODULE-OCCURRENCES (CAR NETLIST))) (OCC-BODY-SYNTAX-SIMPLE-OKP (MODULE-OCCURRENCES (CAR NETLIST)) (MODULE-INPUTS (CAR NETLIST)) (QUOTE NIL) (QUOTE NIL) (MODULE-OUTPUTS (CAR NETLIST)) (M-STATES-LIST (MODULE-STATENAMES (CAR NETLIST))) (CDR NETLIST))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-BODY-SYNTAX-SIMPLE-OKP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 DISJOINT . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 M-STATES-LIST . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NAME-LIST-SIMPLE-OKP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 PRIMP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-NAME . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NAME-SIMPLE-OKP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 PROPERP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-ANNOTATION . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 ALISTP . MODULE-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LENGTH . MODULE-SYNTAX-SIMPLE-OKP) (DCELL . *1*MODULE-SYNTAX-SIMPLE-OKP))))) (PUT1-LST (QUOTE OCC-BODY-SYNTAX-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE OCC-BODY-SYNTAX-SIMPLE-OKP-OFF OCC-BODY-SYNTAX-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-BODY-SYNTAX-SIMPLE-OKP . OCC-BODY-SYNTAX-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL OCC-BODY-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-BODY-SYNTAX-SIMPLE-OKP) (QUOTE (MAIN-EVENT OCC-BODY-SYNTAX-SIMPLE-OKP))) (PUT1-LST (QUOTE OCC-BODY-SYNTAX-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-BODY-SYNTAX-SIMPLE-OKP 3 NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((OCC-BODY-SYNTAX-SIMPLE-OKP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (BODY SIGNALS NON-DEPENDS OCC-NAMES OUTPUTS STATES NETLIST) (IF (LISTP BODY) (IF (OCC-SYNTAX-SIMPLE-OKP (CAR BODY) NETLIST) (OCC-BODY-SYNTAX-SIMPLE-OKP (CDR BODY) (APPEND (OCC-OUTPUTS (CAR BODY)) SIGNALS) (APPEND (SET-DIFF (OCC-INPUTS (CAR BODY)) SIGNALS) NON-DEPENDS) (CONS (OCC-NAME (CAR BODY)) OCC-NAMES) OUTPUTS STATES NETLIST) (QUOTE *1*FALSE)) (IF (EQUAL BODY (QUOTE NIL)) (IF (SUBSET OUTPUTS SIGNALS) (IF (SUBSET NON-DEPENDS SIGNALS) (IF (SUBSET STATES OCC-NAMES) (IF (DUPLICATES? SIGNALS) (QUOTE *1*FALSE) (IF (DUPLICATES? OCC-NAMES) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*OCC-BODY-SYNTAX-SIMPLE-OKP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP BODY)) NIL) (TESTS-AND-CASES ((NOT (NLISTP BODY)) (OCC-SYNTAX-SIMPLE-OKP (CAR BODY) NETLIST)) (((CDR BODY) (APPEND (OCC-OUTPUTS (CAR BODY)) SIGNALS) (APPEND (SET-DIFF (OCC-INPUTS (CAR BODY)) SIGNALS) NON-DEPENDS) (CONS (OCC-NAME (CAR BODY)) OCC-NAMES) OUTPUTS STATES NETLIST))) (TESTS-AND-CASES ((NOT (NLISTP BODY)) (NOT (OCC-SYNTAX-SIMPLE-OKP (CAR BODY) NETLIST))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (BODY) (COUNT BODY) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*OCC-BODY-SYNTAX-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP-OFF) EVENT (DEFN OCC-BODY-SYNTAX-SIMPLE-OKP (BODY SIGNALS NON-DEPENDS OCC-NAMES OUTPUTS STATES NETLIST) (IF (NLISTP BODY) (AND (EQUAL BODY (QUOTE NIL)) (AND (SUBSET OUTPUTS SIGNALS) (AND (SUBSET NON-DEPENDS SIGNALS) (AND (SUBSET STATES OCC-NAMES) (AND (NOT (DUPLICATES? SIGNALS)) (NOT (DUPLICATES? OCC-NAMES))))))) (IF (OCC-SYNTAX-SIMPLE-OKP (CAR BODY) NETLIST) (OCC-BODY-SYNTAX-SIMPLE-OKP (CDR BODY) (APPEND (OCC-OUTPUTS (CAR BODY)) SIGNALS) (APPEND (SET-DIFF (OCC-INPUTS (CAR BODY)) SIGNALS) NON-DEPENDS) (CONS (OCC-NAME (CAR BODY)) OCC-NAMES) OUTPUTS STATES NETLIST) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 SET-DIFF . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-SIMPLE-OKP . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 SUBSET . OCC-BODY-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . OCC-BODY-SYNTAX-SIMPLE-OKP) (DCELL . *1*OCC-BODY-SYNTAX-SIMPLE-OKP))))) (PUT1-LST (QUOTE OCC-SYNTAX-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE OCC-SYNTAX-SIMPLE-OKP-OFF OCC-SYNTAX-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-SYNTAX-SIMPLE-OKP . OCC-SYNTAX-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL OCC-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-SIMPLE-OKP) (QUOTE (MAIN-EVENT OCC-SYNTAX-SIMPLE-OKP))) (PUT1-LST (QUOTE OCC-SYNTAX-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-SYNTAX-SIMPLE-OKP 3 NIL NIL)) TOTALP-LST ((OCC-SYNTAX-SIMPLE-OKP . T)) SDEFN (LAMBDA (OCC NETLIST) (IF (EQUAL (QUOTE 4) (LENGTH OCC)) (IF (PROPERP OCC) (IF (NAME-SIMPLE-OKP (OCC-NAME OCC)) (IF (NAME-LIST-SIMPLE-OKP (OCC-OUTPUTS OCC)) (IF (PROPERP (OCC-INPUTS OCC)) (IF (PRIMP (OCC-FUNCTION OCC)) (IF (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE INPUTS))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE OUTPUTS))) (LENGTH (OCC-OUTPUTS OCC))) (QUOTE *1*FALSE)) (IF (LISTP (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST)) (IF (EQUAL (LENGTH (MODULE-INPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (MODULE-OUTPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-OUTPUTS OCC))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL (QUOTE 5) (LENGTH OCC)) (IF (ALISTP (OCC-ANNOTATION OCC)) (IF (PROPERP OCC) (IF (NAME-SIMPLE-OKP (OCC-NAME OCC)) (IF (NAME-LIST-SIMPLE-OKP (OCC-OUTPUTS OCC)) (IF (PROPERP (OCC-INPUTS OCC)) (IF (PRIMP (OCC-FUNCTION OCC)) (IF (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE INPUTS))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE OUTPUTS))) (LENGTH (OCC-OUTPUTS OCC))) (QUOTE *1*FALSE)) (IF (LISTP (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST)) (IF (EQUAL (LENGTH (MODULE-INPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (MODULE-OUTPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-OUTPUTS OCC))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) LISP-CODE *1*OCC-SYNTAX-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194006 SATELLITES (*1*OCC-SYNTAX-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP-OFF) EVENT (DEFN OCC-SYNTAX-SIMPLE-OKP (OCC NETLIST) (AND (OR (EQUAL (QUOTE 4) (LENGTH OCC)) (AND (EQUAL (QUOTE 5) (LENGTH OCC)) (ALISTP (OCC-ANNOTATION OCC)))) (AND (PROPERP OCC) (AND (NAME-SIMPLE-OKP (OCC-NAME OCC)) (AND (NAME-LIST-SIMPLE-OKP (OCC-OUTPUTS OCC)) (AND (PROPERP (OCC-INPUTS OCC)) (IF (PRIMP (OCC-FUNCTION OCC)) (AND (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE INPUTS))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (PRIMP2 (OCC-FUNCTION OCC) (QUOTE OUTPUTS))) (LENGTH (OCC-OUTPUTS OCC)))) (AND (LISTP (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST)) (AND (EQUAL (LENGTH (MODULE-INPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-INPUTS OCC))) (EQUAL (LENGTH (MODULE-OUTPUTS (LOOKUP-MODULE (OCC-FUNCTION OCC) NETLIST))) (LENGTH (OCC-OUTPUTS OCC)))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 PRIMP2 . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 PRIMP . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NAME-LIST-SIMPLE-OKP . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-NAME . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 NAME-SIMPLE-OKP . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 PROPERP . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 OCC-ANNOTATION . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 ALISTP . OCC-SYNTAX-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LENGTH . OCC-SYNTAX-SIMPLE-OKP) (DCELL . *1*OCC-SYNTAX-SIMPLE-OKP))))) (PUT1-LST (QUOTE NAME-LIST-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NAME-LIST-SIMPLE-OKP-OFF NAME-LIST-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-LIST-SIMPLE-OKP . NAME-LIST-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL NAME-LIST-SIMPLE-OKP NAME-LIST-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-LIST-SIMPLE-OKP) (QUOTE (MAIN-EVENT NAME-LIST-SIMPLE-OKP))) (PUT1-LST (QUOTE NAME-LIST-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-LIST-SIMPLE-OKP 3 NIL)) TOTALP-LST ((NAME-LIST-SIMPLE-OKP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (NAME-LIST) (IF (LISTP NAME-LIST) (IF (NAME-SIMPLE-OKP (CAR NAME-LIST)) (IF (MEMBER (CAR NAME-LIST) (CDR NAME-LIST)) (QUOTE *1*FALSE) (IF (NAME-LIST-SIMPLE-OKP (CDR NAME-LIST)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (EQUAL NAME-LIST (QUOTE NIL)))) LISP-CODE *1*NAME-LIST-SIMPLE-OKP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NAME-LIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NAME-LIST))) (((CDR NAME-LIST))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (NAME-LIST) (COUNT NAME-LIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*NAME-LIST-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP NAME-LIST-SIMPLE-OKP-OFF) EVENT (DEFN NAME-LIST-SIMPLE-OKP (NAME-LIST) (IF (NLISTP NAME-LIST) (EQUAL NAME-LIST (QUOTE NIL)) (AND (NAME-SIMPLE-OKP (CAR NAME-LIST)) (AND (NOT (MEMBER (CAR NAME-LIST) (CDR NAME-LIST))) (NAME-LIST-SIMPLE-OKP (CDR NAME-LIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-SIMPLE-OKP . NAME-LIST-SIMPLE-OKP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NAME-LIST-SIMPLE-OKP) (DCELL . *1*NAME-LIST-SIMPLE-OKP))))) (PUT1-LST (QUOTE NAME-SIMPLE-OKP-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NAME-SIMPLE-OKP-OFF NAME-SIMPLE-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAME-SIMPLE-OKP . NAME-SIMPLE-OKP-OFF) (DISABLED-LEMMAS NIL NAME-SIMPLE-OKP NAME-SIMPLE-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*NAME-SIMPLE-OKP) (QUOTE (MAIN-EVENT NAME-SIMPLE-OKP))) (PUT1-LST (QUOTE NAME-SIMPLE-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((NAME-SIMPLE-OKP 3 NIL)) TOTALP-LST ((NAME-SIMPLE-OKP . T)) SDEFN (LAMBDA (NAME) (IF (LITATOM NAME) (QUOTE *1*TRUE) (IF (INDEXP NAME) (LITATOM (I-NAME NAME)) (QUOTE *1*FALSE)))) LISP-CODE *1*NAME-SIMPLE-OKP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*NAME-SIMPLE-OKP) IMMEDIATE-DEPENDENTS0 (MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP NAME-LIST-SIMPLE-OKP NAME-SIMPLE-OKP-OFF) EVENT (DEFN NAME-SIMPLE-OKP (NAME) (OR (LITATOM NAME) (AND (INDEXP NAME) (LITATOM (I-NAME NAME))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . NAME-SIMPLE-OKP) (DCELL . *1*NAME-SIMPLE-OKP))))) (PUT1-LST (QUOTE LIST-COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE LIST-COLLECT-VALUE-OFF LIST-COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-COLLECT-VALUE . LIST-COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL LIST-COLLECT-VALUE LIST-COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-COLLECT-VALUE) (QUOTE (MAIN-EVENT LIST-COLLECT-VALUE))) (PUT1-LST (QUOTE LIST-COLLECT-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-COLLECT-VALUE 24 NIL NIL)) TOTALP-LST ((LIST-COLLECT-VALUE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LIST-OF-ARGS ALIST) (IF (LISTP LIST-OF-ARGS) (CONS (FLATTEN-LIST (COLLECT-VALUE (CAR LIST-OF-ARGS) ALIST)) (LIST-COLLECT-VALUE (CDR LIST-OF-ARGS) ALIST)) (QUOTE NIL))) LISP-CODE *1*LIST-COLLECT-VALUE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LIST-OF-ARGS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LIST-OF-ARGS))) (((CDR LIST-OF-ARGS) ALIST)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (LIST-OF-ARGS) (COUNT LIST-OF-ARGS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*LIST-COLLECT-VALUE) IMMEDIATE-DEPENDENTS0 (OUT-DEPENDS-SIMPLE LIST-COLLECT-VALUE-OFF) EVENT (DEFN LIST-COLLECT-VALUE (LIST-OF-ARGS ALIST) (IF (NLISTP LIST-OF-ARGS) (QUOTE NIL) (CONS (FLATTEN-LIST (COLLECT-VALUE (CAR LIST-OF-ARGS) ALIST)) (LIST-COLLECT-VALUE (CDR LIST-OF-ARGS) ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 FLATTEN-LIST . LIST-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LIST-COLLECT-VALUE) (DCELL . *1*LIST-COLLECT-VALUE))))) (PUT1-LST (QUOTE LABEL-ERROR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE LABEL-ERROR-OFF LABEL-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LABEL-ERROR . LABEL-ERROR-OFF) (DISABLED-LEMMAS NIL LABEL-ERROR LABEL-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*LABEL-ERROR) (QUOTE (MAIN-EVENT LABEL-ERROR))) (PUT1-LST (QUOTE LABEL-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((LABEL-ERROR 4096 T NIL)) TOTALP-LST ((LABEL-ERROR . T)) SDEFN (LAMBDA (X LABEL) (IF (NET-ERRORP X) (PRED-ERROR LABEL X) X)) LISP-CODE *1*LABEL-ERROR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*LABEL-ERROR) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPE-OK PMEMORY-WORD-CALL-OK PLOADING-OK PDRIVE-OK PDELAY-OK POUT-TYPE-OK PIN-TYPE-OK MODULE-ANNOTATION-OK OCC-ANNOTATION-OK OCC-NAME-OK LABEL-ERROR-OFF) EVENT (DEFN LABEL-ERROR (X LABEL) (IF (NET-ERRORP X) (PRED-ERROR LABEL X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . LABEL-ERROR) (IMMEDIATE-DEPENDENTS0 NET-ERROR . LABEL-ERROR) (DCELL . *1*LABEL-ERROR))))) (PUT1-LST (QUOTE ALL-BOUND-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE ALL-BOUND-OR-ERR-OFF ALL-BOUND-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-BOUND-OR-ERR . ALL-BOUND-OR-ERR-OFF) (DISABLED-LEMMAS NIL ALL-BOUND-OR-ERR ALL-BOUND-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-BOUND-OR-ERR) (QUOTE (MAIN-EVENT ALL-BOUND-OR-ERR))) (PUT1-LST (QUOTE ALL-BOUND-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-BOUND-OR-ERR 4098 NIL NIL NIL)) TOTALP-LST ((ALL-BOUND-OR-ERR . T)) SDEFN (LAMBDA (KEYS ALIST LABEL) (IF (LISTP (UNBOUND-KEYS KEYS ALIST)) (PRED-ERROR LABEL (UNBOUND-KEYS KEYS ALIST)) (QUOTE *1*TRUE))) LISP-CODE *1*ALL-BOUND-OR-ERR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194006 SATELLITES (*1*ALL-BOUND-OR-ERR) IMMEDIATE-DEPENDENTS0 (ADD-OUT-DEPENDS ALL-BOUND-OR-ERR-OFF) EVENT (DEFN ALL-BOUND-OR-ERR (KEYS ALIST LABEL) (IF (NLISTP (UNBOUND-KEYS KEYS ALIST)) (QUOTE *1*TRUE) (PRED-ERROR LABEL (UNBOUND-KEYS KEYS ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . ALL-BOUND-OR-ERR) (IMMEDIATE-DEPENDENTS0 UNBOUND-KEYS . ALL-BOUND-OR-ERR) (DCELL . *1*ALL-BOUND-OR-ERR))))) (PUT1-LST (QUOTE DISJOINT-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE DISJOINT-OR-ERR-OFF DISJOINT-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-OR-ERR . DISJOINT-OR-ERR-OFF) (DISABLED-LEMMAS NIL DISJOINT-OR-ERR DISJOINT-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*DISJOINT-OR-ERR) (QUOTE (MAIN-EVENT DISJOINT-OR-ERR))) (PUT1-LST (QUOTE DISJOINT-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((DISJOINT-OR-ERR 4098 NIL NIL NIL)) TOTALP-LST ((DISJOINT-OR-ERR . T)) SDEFN (LAMBDA (X Y LABEL) (IF (LISTP (INTERSECTION X Y)) (PRED-ERROR LABEL (INTERSECTION X Y)) (QUOTE *1*TRUE))) LISP-CODE *1*DISJOINT-OR-ERR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194006 SATELLITES (*1*DISJOINT-OR-ERR) IMMEDIATE-DEPENDENTS0 (T-WIRE-ERROR LSI-OCC-BODY-SYNTAX-CHECK LSI-OCC-OUTPUTS-OK DISJOINT-OR-ERR-OFF) EVENT (DEFN DISJOINT-OR-ERR (X Y LABEL) (IF (NLISTP (INTERSECTION X Y)) (QUOTE *1*TRUE) (PRED-ERROR LABEL (INTERSECTION X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . DISJOINT-OR-ERR) (IMMEDIATE-DEPENDENTS0 INTERSECTION . DISJOINT-OR-ERR) (DCELL . *1*DISJOINT-OR-ERR))))) (PUT1-LST (QUOTE NO-DUPLICATES-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NO-DUPLICATES-OR-ERR-OFF NO-DUPLICATES-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NO-DUPLICATES-OR-ERR . NO-DUPLICATES-OR-ERR-OFF) (DISABLED-LEMMAS NIL NO-DUPLICATES-OR-ERR NO-DUPLICATES-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*NO-DUPLICATES-OR-ERR) (QUOTE (MAIN-EVENT NO-DUPLICATES-OR-ERR))) (PUT1-LST (QUOTE NO-DUPLICATES-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((NO-DUPLICATES-OR-ERR 4098 NIL NIL)) TOTALP-LST ((NO-DUPLICATES-OR-ERR . T)) SDEFN (LAMBDA (X LABEL) (IF (LISTP (LIST-DUPLICATES X (QUOTE NIL))) (PRED-ERROR LABEL (LIST-DUPLICATES X (QUOTE NIL))) (QUOTE *1*TRUE))) LISP-CODE *1*NO-DUPLICATES-OR-ERR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194006 SATELLITES (*1*NO-DUPLICATES-OR-ERR) IMMEDIATE-DEPENDENTS0 (POUT-DEPENDS-ONE-OK P-T-WIRE-ARGS-OK T-WIRE-ERROR LSI-NAME-LIST-ERRORS COMPOSITE-OCC-BODY-SYNTAX-ERRORS NAME-LIST-ERRORS NO-DUPLICATES-OR-ERR-OFF) EVENT (DEFN NO-DUPLICATES-OR-ERR (X LABEL) (IF (NLISTP (LIST-DUPLICATES X (QUOTE NIL))) (QUOTE *1*TRUE) (PRED-ERROR LABEL (LIST-DUPLICATES X (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . NO-DUPLICATES-OR-ERR) (IMMEDIATE-DEPENDENTS0 LIST-DUPLICATES . NO-DUPLICATES-OR-ERR) (DCELL . *1*NO-DUPLICATES-OR-ERR))))) (PUT1-LST (QUOTE SUBSET-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE SUBSET-OR-ERR-OFF SUBSET-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET-OR-ERR . SUBSET-OR-ERR-OFF) (DISABLED-LEMMAS NIL SUBSET-OR-ERR SUBSET-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*SUBSET-OR-ERR) (QUOTE (MAIN-EVENT SUBSET-OR-ERR))) (PUT1-LST (QUOTE SUBSET-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBSET-OR-ERR 4098 NIL NIL NIL)) TOTALP-LST ((SUBSET-OR-ERR . T)) SDEFN (LAMBDA (X Y LABEL) (IF (LISTP (SET-DIFF X Y)) (PRED-ERROR LABEL (SET-DIFF X Y)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBSET-OR-ERR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194006 SATELLITES (*1*SUBSET-OR-ERR) IMMEDIATE-DEPENDENTS0 (POUT-DEPENDS-ONE-OK P-T-WIRE-ARGS-OK NETLIST-PROPERTIES COMPOSITE-OCC-BODY-SYNTAX-ERRORS SUBSET-OR-ERR-OFF) EVENT (DEFN SUBSET-OR-ERR (X Y LABEL) (IF (NLISTP (SET-DIFF X Y)) (QUOTE *1*TRUE) (PRED-ERROR LABEL (SET-DIFF X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . SUBSET-OR-ERR) (IMMEDIATE-DEPENDENTS0 SET-DIFF . SUBSET-OR-ERR) (DCELL . *1*SUBSET-OR-ERR))))) (PUT1-LST (QUOTE NIL-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NIL-OR-ERR-OFF NIL-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NIL-OR-ERR . NIL-OR-ERR-OFF) (DISABLED-LEMMAS NIL NIL-OR-ERR NIL-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*NIL-OR-ERR) (QUOTE (MAIN-EVENT NIL-OR-ERR))) (PUT1-LST (QUOTE NIL-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((NIL-OR-ERR 4098 NIL NIL)) TOTALP-LST ((NIL-OR-ERR . T)) SDEFN (LAMBDA (X LABEL) (IF (EQUAL X (QUOTE NIL)) (QUOTE *1*TRUE) (PRED-ERROR LABEL X))) LISP-CODE *1*NIL-OR-ERR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*NIL-OR-ERR) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS PSTATE-TYPES-ERRORS PSTATE-TYPE-LIST-ERRORS BOOLP-LIST-OK POUT-DEPENDS-ERRORS POUT-DEPENDS-ONE-OK PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS PDELAY-OK PHALF-DELAY-OK P-T-WIRE-ARGS-OK POUT-TYPE-ERRORS PIN-TYPE-ERRORS LSI-NETLIST-SYNTAX-CHECK LSI-NAME-LIST-ERRORS NETLIST-SYNTAX-ERRORS MODULE-FORM-OK COMPOSITE-OCC-BODY-SYNTAX-ERRORS OCC-FORM-OK NAME-LIST-ERRORS NIL-OR-ERR-OFF) EVENT (DEFN NIL-OR-ERR (X LABEL) (IF (EQUAL X (QUOTE NIL)) (QUOTE *1*TRUE) (PRED-ERROR LABEL X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . NIL-OR-ERR) (DCELL . *1*NIL-OR-ERR))))) (PUT1-LST (QUOTE NLISTP-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NLISTP-OR-ERR-OFF NLISTP-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NLISTP-OR-ERR . NLISTP-OR-ERR-OFF) (DISABLED-LEMMAS NIL NLISTP-OR-ERR NLISTP-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*NLISTP-OR-ERR) (QUOTE (MAIN-EVENT NLISTP-OR-ERR))) (PUT1-LST (QUOTE NLISTP-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((NLISTP-OR-ERR 4098 NIL NIL)) TOTALP-LST ((NLISTP-OR-ERR . T)) SDEFN (LAMBDA (X LABEL) (IF (LISTP X) (PRED-ERROR LABEL X) (QUOTE *1*TRUE))) LISP-CODE *1*NLISTP-OR-ERR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*NLISTP-OR-ERR) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS PRESULTS-ERRORS PRESULT-OK PSTATE-TYPES-ERRORS BOOLP-LIST-OK POUT-DEPENDS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS PDELAY-OK POUT-TYPE-ERRORS PIN-TYPE-ERRORS COLLECT-MODULE-DATA IO-RENAME-ERROR OUT-DEPENDS-ERROR LSI-NAME-OK COMPOSITE-OCC-BODY-SYNTAX-ERRORS NAME-LIST-ERRORS NLISTP-OR-ERR-OFF) EVENT (DEFN NLISTP-OR-ERR (X LABEL) (IF (NLISTP X) (QUOTE *1*TRUE) (PRED-ERROR LABEL X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . NLISTP-OR-ERR) (DCELL . *1*NLISTP-OR-ERR))))) (PUT1-LST (QUOTE T-OR-ERR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE T-OR-ERR-OFF T-OR-ERR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 T-OR-ERR . T-OR-ERR-OFF) (DISABLED-LEMMAS NIL T-OR-ERR T-OR-ERR-OFF . T))))) (PUT1-LST (QUOTE *1*T-OR-ERR) (QUOTE (MAIN-EVENT T-OR-ERR))) (PUT1-LST (QUOTE T-OR-ERR) (QUOTE (TYPE-PRESCRIPTION-LST ((T-OR-ERR 4098 NIL NIL NIL)) TOTALP-LST ((T-OR-ERR . T)) SDEFN (LAMBDA (P LABEL BODY) (IF P (IF (NET-ERRORP P) (PRED-ERROR LABEL BODY) (QUOTE *1*TRUE)) (PRED-ERROR LABEL BODY))) LISP-CODE *1*T-OR-ERR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*T-OR-ERR) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-OK PRIMITIVE-PROP-OK PRESULTS-ERRORS PSTATE-TYPES-ERRORS PADDRESSED-STATE-CALL-OK LITERAL-STATE-TYPE-OK PSTATES-OK POUT-DEPENDS-ERRORS PLSI-NAME-OK PLOADINGS-ERRORS PLOADING-OK PDRIVES-ERRORS PDRIVE-OK PDELAYS-ERRORS PHALF-DELAY-OK P-NAME-PROP-VALUE-OK POUT-TYPE-ERRORS POUT-TYPE-OK PIN-TYPE-ERRORS PIN-TYPE-OK FUNCTION-CALL-OK STATE-TYPES-ERROR LSI-MODULE-OCCURRENCES-CHECK LSI-MODULE-NAME-OK LSI-OCC-NAME-OK LSI-NAME-OK MODULE-ANNOTATION-OK MODULE-STATENAMES-OK MODULE-OCCURRENCES-OK MODULE-NAME-OK MODULE-FORM-OK OCC-ANNOTATION-OK OCC-NAME-OK OCC-FORM-OK OCC-ARG-LENGTH-ERROR T-OR-ERR-OFF) EVENT (DEFN T-OR-ERR (P LABEL BODY) (IF (AND P (NOT (NET-ERRORP P))) (QUOTE *1*TRUE) (PRED-ERROR LABEL BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . T-OR-ERR) (IMMEDIATE-DEPENDENTS0 NET-ERROR . T-OR-ERR) (DCELL . *1*T-OR-ERR))))) (PUT1-LST (QUOTE ERR-AND-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE ERR-AND-OFF ERR-AND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERR-AND . ERR-AND-OFF) (DISABLED-LEMMAS NIL ERR-AND ERR-AND-OFF . T))))) (PUT1-LST (QUOTE *1*ERR-AND) (QUOTE (MAIN-EVENT ERR-AND))) (PUT1-LST (QUOTE ERR-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((ERR-AND 4098 NIL NIL)) TOTALP-LST ((ERR-AND . T)) SDEFN (LAMBDA (LST LABEL) (IF (LISTP (NET-ERRORS LST)) (PRED-ERROR LABEL (NET-ERRORS LST)) (QUOTE *1*TRUE))) LISP-CODE *1*ERR-AND SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194006 SATELLITES (*1*ERR-AND) IMMEDIATE-DEPENDENTS0 (PRIMP-DATABASE-PREDICATE PRIMITIVE-OK PNEW-STATES-OK PRESULTS-OK PRESULT-OK PSTATE-TYPES-OK PSTATE-TYPE-OK PADDRESSED-STATE-CALL-OK BOOLP-LIST-OK PSTATES-OK POUT-DEPENDS-OK POUT-DEPENDS-ONE-OK PLSI-NAME-OK PLOADINGS-OK PDRIVES-OK PDELAYS-OK PDELAY-OK PHALF-DELAY-OK P-T-WIRE-ARGS-OK POUT-TYPES-OK PIN-TYPES-OK T-WIRE-ERROR DELAYS-ERROR DRIVES-ERROR LOADINGS-ERROR ADD-NET-MIN-DRIVE OUT-TYPES-ERROR IN-TYPES-ERROR LSI-NETLIST-SYNTAX-OK LSI-MODULE-SYNTAX-CHECK LSI-MODULE-NAME-OK LSI-OCC-SYNTAX-OK LSI-OCC-OUTPUTS-OK LSI-OCC-NAME-OK LSI-NAME-LIST-OK LSI-NAME-LIST-ERRORS LSI-NAME-OK NETLIST-SYNTAX-OK MODULE-SYNTAX-OK MODULE-STATENAMES-OK MODULE-OCCURRENCES-OK MODULE-NAME-OK MODULE-FORM-OK OCC-SYNTAX-OK OCC-FUNCTION-OK OCC-FORM-OK NAME-LIST-OK ERR-AND-OFF) EVENT (DEFN ERR-AND (LST LABEL) (IF (NLISTP (NET-ERRORS LST)) (QUOTE *1*TRUE) (PRED-ERROR LABEL (NET-ERRORS LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . ERR-AND) (IMMEDIATE-DEPENDENTS0 NET-ERRORS . ERR-AND) (DCELL . *1*ERR-AND))))) (PUT1-LST (QUOTE COLLECT-NET-ERRORS-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE COLLECT-NET-ERRORS-OFF COLLECT-NET-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-NET-ERRORS . COLLECT-NET-ERRORS-OFF) (DISABLED-LEMMAS NIL COLLECT-NET-ERRORS COLLECT-NET-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-NET-ERRORS) (QUOTE (MAIN-EVENT COLLECT-NET-ERRORS))) (PUT1-LST (QUOTE COLLECT-NET-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-NET-ERRORS 24 NIL)) TOTALP-LST ((COLLECT-NET-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (APPEND (NET-ERRORS (CAR LST)) (COLLECT-NET-ERRORS (CDR LST))) (QUOTE NIL))) LISP-CODE *1*COLLECT-NET-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) (((CDR LST)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-NET-ERRORS) IMMEDIATE-DEPENDENTS0 (NETLIST-PROPERTIES COLLECT-NET-ERRORS-OFF) EVENT (DEFN COLLECT-NET-ERRORS (LST) (IF (LISTP LST) (APPEND (NET-ERRORS (CAR LST)) (COLLECT-NET-ERRORS (CDR LST))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERRORS . COLLECT-NET-ERRORS) (DCELL . *1*COLLECT-NET-ERRORS))))) (PUT1-LST (QUOTE NET-ERRORS-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE NET-ERRORS-OFF NET-ERRORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERRORS . NET-ERRORS-OFF) (DISABLED-LEMMAS NIL NET-ERRORS NET-ERRORS-OFF . T))))) (PUT1-LST (QUOTE *1*NET-ERRORS) (QUOTE (MAIN-EVENT NET-ERRORS))) (PUT1-LST (QUOTE NET-ERRORS) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-ERRORS 24 NIL)) TOTALP-LST ((NET-ERRORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (IF (NET-ERRORP (CAR LST)) (CONS (CAR LST) (NET-ERRORS (CDR LST))) (NET-ERRORS (CDR LST))) (QUOTE NIL))) LISP-CODE *1*NET-ERRORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST) (NET-ERRORP (CAR LST))) (((CDR LST)))) (TESTS-AND-CASES ((LISTP LST) (NOT (NET-ERRORP (CAR LST)))) (((CDR LST)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*NET-ERRORS) IMMEDIATE-DEPENDENTS0 (ERR-AND COLLECT-NET-ERRORS NET-ERRORS-OFF) EVENT (DEFN NET-ERRORS (LST) (IF (LISTP LST) (IF (NET-ERRORP (CAR LST)) (CONS (CAR LST) (NET-ERRORS (CDR LST))) (NET-ERRORS (CDR LST))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERROR . NET-ERRORS) (DCELL . *1*NET-ERRORS))))) (PUT1-LST (QUOTE ERROR-ENTRY-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE ERROR-ENTRY-OFF ERROR-ENTRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ERROR-ENTRY . ERROR-ENTRY-OFF) (DISABLED-LEMMAS NIL ERROR-ENTRY ERROR-ENTRY-OFF . T))))) (PUT1-LST (QUOTE *1*ERROR-ENTRY) (QUOTE (MAIN-EVENT ERROR-ENTRY))) (PUT1-LST (QUOTE ERROR-ENTRY) (QUOTE (TYPE-PRESCRIPTION-LST ((ERROR-ENTRY 4097 NIL NIL)) TOTALP-LST ((ERROR-ENTRY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LST LABEL) (IF (LISTP LST) (IF (NET-ERRORP (CAR LST)) (IF (EQUAL (ERROR-LABEL (CAR LST)) LABEL) (CAR LST) (ERROR-ENTRY (CDR LST) LABEL)) (ERROR-ENTRY (CDR LST) LABEL)) (QUOTE *1*FALSE))) LISP-CODE *1*ERROR-ENTRY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST) (NET-ERRORP (CAR LST)) (EQUAL (ERROR-LABEL (CAR LST)) LABEL)) NIL) (TESTS-AND-CASES ((LISTP LST) (NET-ERRORP (CAR LST)) (NOT (EQUAL (ERROR-LABEL (CAR LST)) LABEL))) (((CDR LST) LABEL))) (TESTS-AND-CASES ((LISTP LST) (NOT (NET-ERRORP (CAR LST)))) (((CDR LST) LABEL))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*ERROR-ENTRY) IMMEDIATE-DEPENDENTS0 (TRI-STATE-ERRORS ERROR-ENTRY-OFF) EVENT (DEFN ERROR-ENTRY (LST LABEL) (IF (LISTP LST) (IF (NET-ERRORP (CAR LST)) (IF (EQUAL (ERROR-LABEL (CAR LST)) LABEL) (CAR LST) (ERROR-ENTRY (CDR LST) LABEL)) (ERROR-ENTRY (CDR LST) LABEL)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERROR . ERROR-ENTRY) (DCELL . *1*ERROR-ENTRY))))) (PUT1-LST (QUOTE PRED-ERROR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE PRED-ERROR-OFF PRED-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRED-ERROR . PRED-ERROR-OFF) (DISABLED-LEMMAS NIL PRED-ERROR PRED-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*PRED-ERROR) (QUOTE (MAIN-EVENT PRED-ERROR))) (PUT1-LST (QUOTE PRED-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((PRED-ERROR 4096 NIL NIL)) TOTALP-LST ((PRED-ERROR . T)) SDEFN (LAMBDA (LABEL BODY) (REPORT-ERROR (NET-ERROR LABEL BODY))) LISP-CODE *1*PRED-ERROR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*PRED-ERROR) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUTPUT-DEPENDENCIES OUT-DEPENDS PRIMITIVE-COUNT PRIMITIVE-OK PRIMITIVE-PROP-OK PRESULTS-ERRORS PRESULT-FORM-ERRORS PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK PDRIVE-OK PDELAY-OK PHALF-DELAY-OK POUT-TYPE-OK FUNCTION-CALL-OK NETLIST-PROPERTIES LITERAL-NET-DRIVE IO-TYPE-ERROR ADD-IN-TYPE MAX-OCC-HIERARCHICAL-NAME LSI-NAME-OK OCC-FUNCTION-OK LABEL-ERROR ALL-BOUND-OR-ERR DISJOINT-OR-ERR NO-DUPLICATES-OR-ERR SUBSET-OR-ERR NIL-OR-ERR NLISTP-OR-ERR T-OR-ERR ERR-AND PRED-ERROR-OFF) EVENT (DEFN PRED-ERROR (LABEL BODY) (REPORT-ERROR (NET-ERROR LABEL BODY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NET-ERROR . PRED-ERROR) (IMMEDIATE-DEPENDENTS0 REPORT-ERROR . PRED-ERROR) (DCELL . *1*PRED-ERROR))))) (PUT1-LST (QUOTE REPORT-ERROR-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE REPORT-ERROR-OFF REPORT-ERROR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPORT-ERROR . REPORT-ERROR-OFF) (DISABLED-LEMMAS NIL REPORT-ERROR REPORT-ERROR-OFF . T))))) (PUT1-LST (QUOTE *1*REPORT-ERROR) (QUOTE (MAIN-EVENT REPORT-ERROR))) (PUT1-LST (QUOTE REPORT-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((REPORT-ERROR 0 T)) TOTALP-LST ((REPORT-ERROR . T)) SDEFN (LAMBDA (ERR) ERR) LISP-CODE *1*REPORT-ERROR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194006 SATELLITES (*1*REPORT-ERROR) IMMEDIATE-DEPENDENTS0 (PRED-ERROR REPORT-ERROR-OFF) EVENT (DEFN REPORT-ERROR (ERR) ERR) LOCAL-UNDO-TUPLES ((DCELL . *1*REPORT-ERROR))))) (PUT1-LST (QUOTE COUNT-NET-ERROR) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL-ERROR-BODY-ELIM) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE NET-ERROR-ERROR-LABEL-ERROR-BODY) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE NET-ERROR-EQUAL) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-BODY-LESSEQP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-BODY-LESSP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-BODY-NNET-ERRORP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-BODY-NET-ERROR) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL-LESSEQP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL-LESSP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL-NNET-ERRORP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL-NET-ERROR) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE *1*NET-ERROR) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE *1*ERROR-BODY) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-ERROR -1 NIL)) LEMMAS ((REWRITE-RULE ERROR-BODY-NNET-ERRORP ((NOT (NET-ERRORP X))) (EQUAL (ERROR-BODY X) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE ERROR-BODY-NET-ERROR NIL (EQUAL (ERROR-BODY (NET-ERROR ERROR-LABEL ERROR-BODY)) ERROR-BODY) NIL)) TOTALP-LST ((NET-ERROR . T)) LISP-CODE *1*ERROR-BODY SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE ERROR-LABEL-ERROR-BODY-ELIM ((NET-ERRORP X)) (EQUAL (NET-ERROR (ERROR-LABEL X) (ERROR-BODY X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((ERROR-BODY X) (ERROR-LABEL X)) MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE *1*ERROR-LABEL) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE ERROR-LABEL) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-ERROR -1 NIL)) LEMMAS ((REWRITE-RULE ERROR-LABEL-NNET-ERRORP ((NOT (NET-ERRORP X))) (EQUAL (ERROR-LABEL X) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE ERROR-LABEL-NET-ERROR NIL (EQUAL (ERROR-LABEL (NET-ERROR ERROR-LABEL ERROR-BODY)) ERROR-LABEL) NIL)) TOTALP-LST ((NET-ERROR . T)) LISP-CODE *1*ERROR-LABEL SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE ERROR-LABEL-ERROR-BODY-ELIM ((NET-ERRORP X)) (EQUAL (NET-ERROR (ERROR-LABEL X) (ERROR-BODY X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((ERROR-LABEL X) (ERROR-BODY X)) MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE *1*NET-ERRORP) (QUOTE (MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE NET-ERRORP) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-ERROR 3 NIL)) TOTALP-LST ((NET-ERROR . T)) LISP-CODE *1*NET-ERRORP SUBRP *1*TRUE MAIN-EVENT NET-ERROR))) (PUT1-LST (QUOTE NET-ERROR) (QUOTE (TYPE-PRESCRIPTION-LST ((NET-ERROR 4096 NIL NIL)) LEMMAS ((REWRITE-RULE NET-ERROR-ERROR-LABEL-ERROR-BODY NIL (EQUAL (NET-ERROR (ERROR-LABEL X) (ERROR-BODY X)) (IF (NET-ERRORP X) X (QUOTE (*1*QUOTE NET-ERROR *1*FALSE *1*TRUE)))) NIL)) TOTALP-LST ((NET-ERROR . T)) LISP-CODE *1*NET-ERROR SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE *1*FALSE)) (TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE *1*TRUE))) IDATE 1000402194006 SATELLITES (COUNT-NET-ERROR ERROR-LABEL-ERROR-BODY-ELIM NET-ERROR-ERROR-LABEL-ERROR-BODY NET-ERROR-EQUAL ERROR-BODY-LESSEQP ERROR-BODY-LESSP ERROR-BODY-NNET-ERRORP ERROR-BODY-NET-ERROR ERROR-LABEL-LESSEQP ERROR-LABEL-LESSP ERROR-LABEL-NNET-ERRORP ERROR-LABEL-NET-ERROR *1*NET-ERROR *1*ERROR-BODY ERROR-BODY *1*ERROR-LABEL ERROR-LABEL *1*NET-ERRORP NET-ERRORP) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES NETLIST-STATE-TYPES STATE-TYPE-REQUIREMENT IO-TYPES OUTPUT-DEPENDENCIES OUT-DEPENDS PRIMITIVE-COUNT PRESULTS-ERRORS PRESULT-FORM-ERRORS PADDRESSED-STATE-CALL-OK PMEMORY-WORD-CALL-OK LSI-TOP-LEVEL-PREDICATE TOP-LEVEL-PREDICATE NETLIST-PROPERTIES UNBIND-NETLIST-PROPS-0 COLLECT-MODULE-DATA COLLECT-MODULE-ERRORS TRI-STATE-ERRORS COLLECT-OUT-DEPENDS-ERRORS ADD-NET-DRIVE ADD-NET-MIN-DRIVE OK-OUT-TYPE OK-IN-TYPE LABEL-ERROR T-OR-ERR NET-ERRORS ERROR-ENTRY PRED-ERROR) EVENT (ADD-SHELL NET-ERROR NIL NET-ERRORP ((ERROR-LABEL (NONE-OF) FALSE) (ERROR-BODY (NONE-OF) TRUE))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-NET-ERROR) (LEMMAS EQUAL . NET-ERROR-EQUAL) (LINEAR-LEMMAS COUNT . ERROR-BODY-LESSEQP) (LINEAR-LEMMAS COUNT . ERROR-BODY-LESSP) (LINEAR-LEMMAS COUNT . ERROR-LABEL-LESSEQP) (LINEAR-LEMMAS COUNT . ERROR-LABEL-LESSP) (RECOGNIZER-ALIST NIL NET-ERRORP . 4096) (SHELL-POCKETS NIL NET-ERROR ERROR-LABEL ERROR-BODY) (SHELL-ALIST NIL NET-ERROR . 12) (DCELL . *1*NET-ERROR) (DCELL . *1*ERROR-BODY) (DCELL . *1*ERROR-LABEL) (DCELL . *1*NET-ERRORP))))) (PUT1-LST (QUOTE LIST-LIST-SORT-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE LIST-LIST-SORT-OFF LIST-LIST-SORT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-LIST-SORT . LIST-LIST-SORT-OFF) (DISABLED-LEMMAS NIL LIST-LIST-SORT LIST-LIST-SORT-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-LIST-SORT) (QUOTE (MAIN-EVENT LIST-LIST-SORT))) (PUT1-LST (QUOTE LIST-LIST-SORT) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-LIST-SORT 24 NIL)) TOTALP-LST ((LIST-LIST-SORT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (CONS (LIST-SORT (CAR LIST)) (LIST-LIST-SORT (CDR LIST))) (QUOTE NIL))) LISP-CODE *1*LIST-LIST-SORT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LIST)) (((CDR LIST)))) (TESTS-AND-CASES ((NOT (LISTP LIST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*LIST-LIST-SORT) IMMEDIATE-DEPENDENTS0 (OUTPUT-DEPENDENCIES OUTPUT-DEPENDENCIES-SIMPLE LIST-LIST-SORT-OFF) EVENT (DEFN LIST-LIST-SORT (LIST) (IF (LISTP LIST) (CONS (LIST-SORT (CAR LIST)) (LIST-LIST-SORT (CDR LIST))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-SORT . LIST-LIST-SORT) (DCELL . *1*LIST-LIST-SORT))))) (PUT1-LST (QUOTE LIST-SORT-OFF) (QUOTE (IDATE 1000402194006 EVENT (TOGGLE LIST-SORT-OFF LIST-SORT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-SORT . LIST-SORT-OFF) (DISABLED-LEMMAS NIL LIST-SORT LIST-SORT-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-SORT) (QUOTE (MAIN-EVENT LIST-SORT))) (PUT1-LST (QUOTE LIST-SORT) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-SORT 24 NIL)) TOTALP-LST ((LIST-SORT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (CONS (MIN-TOKEN LIST) (LIST-SORT (DELETE* (MIN-TOKEN LIST) LIST))) (QUOTE NIL))) LISP-CODE *1*LIST-SORT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LIST)) (((DELETE* (MIN-TOKEN LIST) LIST)))) (TESTS-AND-CASES ((NOT (LISTP LIST))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (ZERO DELETE*-LEMMA MIN-TOKEN-LEMMA))) IDATE 1000402194006 CONTROLLER-POCKETS (1) SATELLITES (*1*LIST-SORT) IMMEDIATE-DEPENDENTS0 (LIST-LIST-SORT LIST-SORT-OFF) EVENT (DEFN LIST-SORT (LIST) (IF (LISTP LIST) (CONS (MIN-TOKEN LIST) (LIST-SORT (DELETE* (MIN-TOKEN LIST) LIST))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE* . LIST-SORT) (IMMEDIATE-DEPENDENTS0 MIN-TOKEN . LIST-SORT) (IMMEDIATE-DEPENDENTS0 DELETE*-LEMMA . LIST-SORT) (IMMEDIATE-DEPENDENTS0 MIN-TOKEN-LEMMA . LIST-SORT) (DCELL . *1*LIST-SORT))))) (PUT1-LST (QUOTE DELETE*-LEMMA) (QUOTE (IDATE 1000402194006 IMMEDIATE-DEPENDENTS0 (LIST-SORT) EVENT (PROVE-LEMMA DELETE*-LEMMA (REWRITE) (IMPLIES (MEMBER E LST) (LESSP (COUNT (DELETE* E LST)) (COUNT LST))) ((ENABLE DELETE*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE*-COUNT . DELETE*-LEMMA) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DELETE*-LEMMA) (IMMEDIATE-DEPENDENTS0 DELETE* . DELETE*-LEMMA) (LINEAR-LEMMAS COUNT . DELETE*-LEMMA))))) (PUT1-LST (QUOTE DELETE*-COUNT) (QUOTE (IDATE 1000402194005 IMMEDIATE-DEPENDENTS0 (DELETE*-LEMMA) EVENT (PROVE-LEMMA DELETE*-COUNT (REWRITE) (LESSP (COUNT (DELETE* E X)) (COUNT (CONS E X))) ((ENABLE DELETE*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . DELETE*-COUNT) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . DELETE*-COUNT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . DELETE*-COUNT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DELETE*-COUNT) (IMMEDIATE-DEPENDENTS0 DELETE* . DELETE*-COUNT) (LINEAR-LEMMAS COUNT . DELETE*-COUNT) (LINEAR-LEMMAS COUNT . DELETE*-COUNT))))) (PUT1-LST (QUOTE MIN-TOKEN-LEMMA) (QUOTE (IDATE 1000402194005 IMMEDIATE-DEPENDENTS0 (LIST-SORT) EVENT (PROVE-LEMMA MIN-TOKEN-LEMMA (REWRITE) (IMPLIES (LISTP LST) (MEMBER (MIN-TOKEN LST) LST)) ((USE (MIN-TOKEN-HELP-LEMMA (SEED (CAR LST)) (LIST (CDR LST)))) (ENABLE MIN-TOKEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN-TOKEN-HELP-LEMMA . MIN-TOKEN-LEMMA) (IMMEDIATE-DEPENDENTS0 MIN-TOKEN . MIN-TOKEN-LEMMA) (LEMMAS MEMBER . MIN-TOKEN-LEMMA))))) (PUT1-LST (QUOTE MIN-TOKEN-HELP-LEMMA) (QUOTE (IDATE 1000402194005 IMMEDIATE-DEPENDENTS0 (MIN-TOKEN-LEMMA) EVENT (PROVE-LEMMA MIN-TOKEN-HELP-LEMMA NIL (OR (EQUAL (MIN-TOKEN-HELP SEED LIST) SEED) (MEMBER (MIN-TOKEN-HELP SEED LIST) LIST)) ((ENABLE MIN-TOKEN-HELP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN-TOKEN-HELP . MIN-TOKEN-HELP-LEMMA))))) (PUT1-LST (QUOTE MIN-TOKEN-OFF) (QUOTE (IDATE 1000402194005 EVENT (TOGGLE MIN-TOKEN-OFF MIN-TOKEN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN-TOKEN . MIN-TOKEN-OFF) (DISABLED-LEMMAS NIL MIN-TOKEN MIN-TOKEN-OFF . T))))) (PUT1-LST (QUOTE *1*MIN-TOKEN) (QUOTE (MAIN-EVENT MIN-TOKEN))) (PUT1-LST (QUOTE MIN-TOKEN) (QUOTE (TYPE-PRESCRIPTION-LST ((MIN-TOKEN -1 NIL)) TOTALP-LST ((MIN-TOKEN . T)) SDEFN (LAMBDA (LIST) (IF (LISTP LIST) (IF (LISTP (CDR LIST)) (MIN-TOKEN-HELP (CAR LIST) (CDR LIST)) (CAR LIST)) (QUOTE 0))) LISP-CODE *1*MIN-TOKEN SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194005 SATELLITES (*1*MIN-TOKEN) IMMEDIATE-DEPENDENTS0 (LIST-SORT MIN-TOKEN-LEMMA MIN-TOKEN-OFF) EVENT (DEFN MIN-TOKEN (LIST) (IF (LISTP LIST) (IF (LISTP (CDR LIST)) (MIN-TOKEN-HELP (CAR LIST) (CDR LIST)) (CAR LIST)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN-TOKEN-HELP . MIN-TOKEN) (DCELL . *1*MIN-TOKEN))))) (PUT1-LST (QUOTE MIN-TOKEN-HELP-OFF) (QUOTE (IDATE 1000402194005 EVENT (TOGGLE MIN-TOKEN-HELP-OFF MIN-TOKEN-HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN-TOKEN-HELP . MIN-TOKEN-HELP-OFF) (DISABLED-LEMMAS NIL MIN-TOKEN-HELP MIN-TOKEN-HELP-OFF . T))))) (PUT1-LST (QUOTE *1*MIN-TOKEN-HELP) (QUOTE (MAIN-EVENT MIN-TOKEN-HELP))) (PUT1-LST (QUOTE MIN-TOKEN-HELP) (QUOTE (TYPE-PRESCRIPTION-LST ((MIN-TOKEN-HELP -1 T NIL)) TOTALP-LST ((MIN-TOKEN-HELP . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (SEED LIST) (IF (LISTP LIST) (IF (TOKEN-LESSP SEED (CAR LIST)) (MIN-TOKEN-HELP SEED (CDR LIST)) (MIN-TOKEN-HELP (CAR LIST) (CDR LIST))) SEED)) LISP-CODE *1*MIN-TOKEN-HELP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LIST) (TOKEN-LESSP SEED (CAR LIST))) ((SEED (CDR LIST)))) (TESTS-AND-CASES ((LISTP LIST) (NOT (TOKEN-LESSP SEED (CAR LIST)))) (((CAR LIST) (CDR LIST)))) (TESTS-AND-CASES ((NOT (LISTP LIST))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LIST) (COUNT LIST) LESSP (ZERO CDR-LESSP))) IDATE 1000402194005 CONTROLLER-POCKETS (2) SATELLITES (*1*MIN-TOKEN-HELP) IMMEDIATE-DEPENDENTS0 (MIN-TOKEN-HELP-LEMMA MIN-TOKEN MIN-TOKEN-HELP-OFF) EVENT (DEFN MIN-TOKEN-HELP (SEED LIST) (IF (LISTP LIST) (IF (TOKEN-LESSP SEED (CAR LIST)) (MIN-TOKEN-HELP SEED (CDR LIST)) (MIN-TOKEN-HELP (CAR LIST) (CDR LIST))) SEED)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TOKEN-LESSP . MIN-TOKEN-HELP) (DCELL . *1*MIN-TOKEN-HELP))))) (PUT1-LST (QUOTE TOKEN-LESSP-OFF) (QUOTE (IDATE 1000402194005 EVENT (TOGGLE TOKEN-LESSP-OFF TOKEN-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TOKEN-LESSP . TOKEN-LESSP-OFF) (DISABLED-LEMMAS NIL TOKEN-LESSP TOKEN-LESSP-OFF . T))))) (PUT1-LST (QUOTE *1*TOKEN-LESSP) (QUOTE (MAIN-EVENT TOKEN-LESSP))) (PUT1-LST (QUOTE TOKEN-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((TOKEN-LESSP 3 NIL NIL)) TOTALP-LST ((TOKEN-LESSP . T)) SDEFN (LAMBDA (X Y) (IF (LITATOM X) (IF (LITATOM Y) (LIST-LESSP (UNPACK X) (UNPACK Y)) (INDEXP Y)) (IF (INDEXP X) (IF (LITATOM Y) (QUOTE *1*FALSE) (IF (INDEXP Y) (IF (EQUAL (I-NAME X) (I-NAME Y)) (LESSP (I-NUM X) (I-NUM Y)) (LIST-LESSP (UNPACK (I-NAME X)) (UNPACK (I-NAME Y)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) LISP-CODE *1*TOKEN-LESSP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194005 SATELLITES (*1*TOKEN-LESSP) IMMEDIATE-DEPENDENTS0 (MIN-TOKEN-HELP TOKEN-LESSP-OFF) EVENT (DEFN TOKEN-LESSP (X Y) (IF (AND (LITATOM X) (LITATOM Y)) (LIST-LESSP (UNPACK X) (UNPACK Y)) (IF (AND (LITATOM X) (INDEXP Y)) (QUOTE *1*TRUE) (IF (AND (INDEXP X) (LITATOM Y)) (QUOTE *1*FALSE) (IF (AND (INDEXP X) (INDEXP Y)) (IF (EQUAL (I-NAME X) (I-NAME Y)) (LESSP (I-NUM X) (I-NUM Y)) (LIST-LESSP (UNPACK (I-NAME X)) (UNPACK (I-NAME Y)))) (QUOTE *1*FALSE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . TOKEN-LESSP) (IMMEDIATE-DEPENDENTS0 LIST-LESSP . TOKEN-LESSP) (DCELL . *1*TOKEN-LESSP))))) (PUT1-LST (QUOTE LIST-LESSP-OFF) (QUOTE (IDATE 1000402194005 EVENT (TOGGLE LIST-LESSP-OFF LIST-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-LESSP . LIST-LESSP-OFF) (DISABLED-LEMMAS NIL LIST-LESSP LIST-LESSP-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-LESSP) (QUOTE (MAIN-EVENT LIST-LESSP))) (PUT1-LST (QUOTE LIST-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-LESSP 3 NIL NIL)) TOTALP-LST ((LIST-LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (LESSP (CAR X) (CAR Y)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (CAR Y)) (LIST-LESSP (CDR X) (CDR Y)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (LISTP Y))) LISP-CODE *1*LIST-LESSP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (LISTP Y) (LESSP (CAR X) (CAR Y))) NIL) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (NOT (LESSP (CAR X) (CAR Y))) (EQUAL (CAR X) (CAR Y))) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (NOT (LESSP (CAR X) (CAR Y))) (NOT (EQUAL (CAR X) (CAR Y)))) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1 2) SATELLITES (*1*LIST-LESSP) IMMEDIATE-DEPENDENTS0 (TOKEN-LESSP LIST-LESSP-OFF) EVENT (DEFN LIST-LESSP (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (LESSP (CAR X) (CAR Y)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (CAR Y)) (LIST-LESSP (CDR X) (CDR Y)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (LISTP Y))) LOCAL-UNDO-TUPLES ((DCELL . *1*LIST-LESSP))))) (PUT1-LST (QUOTE M-STATES-LIST-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE M-STATES-LIST-OFF M-STATES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-STATES-LIST . M-STATES-LIST-OFF) (DISABLED-LEMMAS NIL M-STATES-LIST M-STATES-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*M-STATES-LIST) (QUOTE (MAIN-EVENT M-STATES-LIST))) (PUT1-LST (QUOTE M-STATES-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((M-STATES-LIST 16 T)) TOTALP-LST ((M-STATES-LIST . T)) SDEFN (LAMBDA (M-STATES) (IF (LISTP M-STATES) M-STATES (IF (EQUAL M-STATES (QUOTE NIL)) M-STATES (CONS M-STATES (QUOTE NIL))))) LISP-CODE *1*M-STATES-LIST SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194004 SATELLITES (*1*M-STATES-LIST) IMMEDIATE-DEPENDENTS0 (PRESULTS-OK STATE-TYPES-ERROR MODULE-STATENAMES-OK STATES-LIST-OR-NIL STATE-TYPE-REQUIREMENT-SIMPLE MODULE-SYNTAX-SIMPLE-OKP M-STATES-LIST-OFF) EVENT (DEFN M-STATES-LIST (M-STATES) (IF (OR (LISTP M-STATES) (EQUAL M-STATES (QUOTE NIL))) M-STATES (CONS M-STATES (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*M-STATES-LIST))))) (PUT1-LST (QUOTE LOOKUP-MODULE-IN-UNBIND-LIST-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LOOKUP-MODULE-IN-UNBIND-LIST-OFF LOOKUP-MODULE-IN-UNBIND-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE-IN-UNBIND-LIST . LOOKUP-MODULE-IN-UNBIND-LIST-OFF) (DISABLED-LEMMAS NIL LOOKUP-MODULE-IN-UNBIND-LIST LOOKUP-MODULE-IN-UNBIND-LIST-OFF . T))))) (PUT1-LST (QUOTE UNBIND-LIST-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE UNBIND-LIST-OFF UNBIND-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND-LIST . UNBIND-LIST-OFF) (DISABLED-LEMMAS NIL UNBIND-LIST UNBIND-LIST-OFF . T))))) (PUT1-LST (QUOTE UNBIND-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE UNBIND-OFF UNBIND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . UNBIND-OFF) (DISABLED-LEMMAS NIL UNBIND UNBIND-OFF . T))))) (PUT1-LST (QUOTE BOUNDP-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE BOUNDP-OFF BOUNDP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOUNDP . BOUNDP-OFF) (DISABLED-LEMMAS NIL BOUNDP BOUNDP-OFF . T))))) (PUT1-LST (QUOTE LESSP-UNBIND-LIST-COUNT) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (SUBNET0 OR-DELAY-ARGS INPUT-DELAY0 COLLECT-MIN-ARGS TYPE-VALUE0 PARENT-SYNONYM0) EVENT (PROVE-LEMMA LESSP-UNBIND-LIST-COUNT (REWRITE) (IMPLIES (AND (NOT (MEMBER K U)) (BOUNDP K M)) (LESSP (COUNT (UNBIND-LIST (CONS K U) M)) (COUNT (UNBIND-LIST U M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . LESSP-UNBIND-LIST-COUNT) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE-IN-UNBIND-LIST . LESSP-UNBIND-LIST-COUNT) (IMMEDIATE-DEPENDENTS0 UNBIND . LESSP-UNBIND-LIST-COUNT) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . LESSP-UNBIND-LIST-COUNT) (IMMEDIATE-DEPENDENTS0 BOUNDP . LESSP-UNBIND-LIST-COUNT) (LINEAR-LEMMAS COUNT . LESSP-UNBIND-LIST-COUNT))))) (PUT1-LST (QUOTE LOOKUP-MODULE-IN-DELETE-MODULE-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LOOKUP-MODULE-IN-DELETE-MODULE-OFF LOOKUP-MODULE-IN-DELETE-MODULE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE-IN-DELETE-MODULE . LOOKUP-MODULE-IN-DELETE-MODULE-OFF) (DISABLED-LEMMAS NIL LOOKUP-MODULE-IN-DELETE-MODULE LOOKUP-MODULE-IN-DELETE-MODULE-OFF . T))))) (PUT1-LST (QUOTE LOOKUP-MODULE-IN-UNBIND-LIST) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (LOOKUP-MODULE-IN-UNBIND-LIST-OFF LESSP-UNBIND-LIST-COUNT) EVENT (PROVE-LEMMA LOOKUP-MODULE-IN-UNBIND-LIST (REWRITE) (IMPLIES (AND (NOT (MEMBER K U)) (LOOKUP-MODULE K M)) (LOOKUP-MODULE K (UNBIND-LIST U M)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . LOOKUP-MODULE-IN-UNBIND-LIST) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE-IN-DELETE-MODULE . LOOKUP-MODULE-IN-UNBIND-LIST) (IMMEDIATE-DEPENDENTS0 UNBIND-LIST . LOOKUP-MODULE-IN-UNBIND-LIST) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LOOKUP-MODULE-IN-UNBIND-LIST) (LEMMAS LOOKUP-MODULE . LOOKUP-MODULE-IN-UNBIND-LIST))))) (PUT1-LST (QUOTE LOOKUP-MODULE-IN-DELETE-MODULE) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (LOOKUP-MODULE-IN-DELETE-MODULE-OFF LOOKUP-MODULE-IN-UNBIND-LIST) EVENT (PROVE-LEMMA LOOKUP-MODULE-IN-DELETE-MODULE (REWRITE) (IMPLIES (AND (NOT (EQUAL K1 K2)) (LOOKUP-MODULE K1 M)) (LOOKUP-MODULE K1 (DELETE-MODULE K2 M))) ((ENABLE DELETE-MODULE LOOKUP-MODULE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOOKUP-MODULE-IN-DELETE-MODULE) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . LOOKUP-MODULE-IN-DELETE-MODULE) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LOOKUP-MODULE-IN-DELETE-MODULE) (LEMMAS LOOKUP-MODULE . LOOKUP-MODULE-IN-DELETE-MODULE))))) (PUT1-LST (QUOTE *1*UNBIND-LIST) (QUOTE (MAIN-EVENT UNBIND-LIST))) (PUT1-LST (QUOTE UNBIND-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBIND-LIST -1 NIL T)) TOTALP-LST ((UNBIND-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (KEYS ALIST) (IF (LISTP KEYS) (UNBIND (CAR KEYS) (UNBIND-LIST (CDR KEYS) ALIST)) ALIST)) LISP-CODE *1*UNBIND-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP KEYS)) (((CDR KEYS) ALIST))) (TESTS-AND-CASES ((NOT (LISTP KEYS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (KEYS) (COUNT KEYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*UNBIND-LIST) IMMEDIATE-DEPENDENTS0 (SUBNET0 UNBIND-NETLIST-PROPS-0 OR-DELAY-ARGS INPUT-DELAY0 COLLECT-MIN-ARGS TYPE-VALUE0 PARENT-SYNONYM0 UNBIND-LIST-OFF LESSP-UNBIND-LIST-COUNT LOOKUP-MODULE-IN-UNBIND-LIST) EVENT (DEFN UNBIND-LIST (KEYS ALIST) (IF (LISTP KEYS) (UNBIND (CAR KEYS) (UNBIND-LIST (CDR KEYS) ALIST)) ALIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . UNBIND-LIST) (DCELL . *1*UNBIND-LIST))))) (PUT1-LST (QUOTE UNBOUND-KEYS-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE UNBOUND-KEYS-OFF UNBOUND-KEYS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBOUND-KEYS . UNBOUND-KEYS-OFF) (DISABLED-LEMMAS NIL UNBOUND-KEYS UNBOUND-KEYS-OFF . T))))) (PUT1-LST (QUOTE *1*UNBOUND-KEYS) (QUOTE (MAIN-EVENT UNBOUND-KEYS))) (PUT1-LST (QUOTE UNBOUND-KEYS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBOUND-KEYS 24 NIL NIL)) TOTALP-LST ((UNBOUND-KEYS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (KEYS ALIST) (IF (LISTP KEYS) (IF (BOUNDP (CAR KEYS) ALIST) (UNBOUND-KEYS (CDR KEYS) ALIST) (INSERT (CAR KEYS) (UNBOUND-KEYS (CDR KEYS) ALIST))) (QUOTE NIL))) LISP-CODE *1*UNBOUND-KEYS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP KEYS) (BOUNDP (CAR KEYS) ALIST)) (((CDR KEYS) ALIST))) (TESTS-AND-CASES ((LISTP KEYS) (NOT (BOUNDP (CAR KEYS) ALIST))) (((CDR KEYS) ALIST))) (TESTS-AND-CASES ((NOT (LISTP KEYS))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (KEYS) (COUNT KEYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*UNBOUND-KEYS) IMMEDIATE-DEPENDENTS0 (ALL-BOUND-OR-ERR UNBOUND-KEYS-OFF) EVENT (DEFN UNBOUND-KEYS (KEYS ALIST) (IF (LISTP KEYS) (IF (BOUNDP (CAR KEYS) ALIST) (UNBOUND-KEYS (CDR KEYS) ALIST) (INSERT (CAR KEYS) (UNBOUND-KEYS (CDR KEYS) ALIST))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . UNBOUND-KEYS) (IMMEDIATE-DEPENDENTS0 BOUNDP . UNBOUND-KEYS) (DCELL . *1*UNBOUND-KEYS))))) (PUT1-LST (QUOTE LIST-UNION-VALUES-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LIST-UNION-VALUES-OFF LIST-UNION-VALUES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-UNION-VALUES . LIST-UNION-VALUES-OFF) (DISABLED-LEMMAS NIL LIST-UNION-VALUES LIST-UNION-VALUES-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-UNION-VALUES) (QUOTE (MAIN-EVENT LIST-UNION-VALUES))) (PUT1-LST (QUOTE LIST-UNION-VALUES) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-UNION-VALUES 24 NIL NIL)) TOTALP-LST ((LIST-UNION-VALUES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (LIST-OF-ARGS ALIST) (IF (LISTP LIST-OF-ARGS) (CONS (UNION-VALUES (CAR LIST-OF-ARGS) ALIST) (LIST-UNION-VALUES (CDR LIST-OF-ARGS) ALIST)) (QUOTE NIL))) LISP-CODE *1*LIST-UNION-VALUES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LIST-OF-ARGS)) (((CDR LIST-OF-ARGS) ALIST))) (TESTS-AND-CASES ((NOT (LISTP LIST-OF-ARGS))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (LIST-OF-ARGS) (COUNT LIST-OF-ARGS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*LIST-UNION-VALUES) IMMEDIATE-DEPENDENTS0 (OUT-DEPENDS LIST-UNION-VALUES-OFF) EVENT (DEFN LIST-UNION-VALUES (LIST-OF-ARGS ALIST) (IF (LISTP LIST-OF-ARGS) (CONS (UNION-VALUES (CAR LIST-OF-ARGS) ALIST) (LIST-UNION-VALUES (CDR LIST-OF-ARGS) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNION-VALUES . LIST-UNION-VALUES) (DCELL . *1*LIST-UNION-VALUES))))) (PUT1-LST (QUOTE UNION-VALUES-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE UNION-VALUES-OFF UNION-VALUES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNION-VALUES . UNION-VALUES-OFF) (DISABLED-LEMMAS NIL UNION-VALUES UNION-VALUES-OFF . T))))) (PUT1-LST (QUOTE *1*UNION-VALUES) (QUOTE (MAIN-EVENT UNION-VALUES))) (PUT1-LST (QUOTE UNION-VALUES) (QUOTE (TYPE-PRESCRIPTION-LST ((UNION-VALUES 24 NIL NIL)) TOTALP-LST ((UNION-VALUES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (KEYS ALIST) (IF (LISTP KEYS) (UNION (VALUE (CAR KEYS) ALIST) (UNION-VALUES (CDR KEYS) ALIST)) (QUOTE NIL))) LISP-CODE *1*UNION-VALUES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP KEYS)) (((CDR KEYS) ALIST))) (TESTS-AND-CASES ((NOT (LISTP KEYS))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (KEYS) (COUNT KEYS) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*UNION-VALUES) IMMEDIATE-DEPENDENTS0 (ADD-OUT-DEPENDS LIST-UNION-VALUES UNION-VALUES-OFF) EVENT (DEFN UNION-VALUES (KEYS ALIST) (IF (LISTP KEYS) (UNION (VALUE (CAR KEYS) ALIST) (UNION-VALUES (CDR KEYS) ALIST)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . UNION-VALUES) (DCELL . *1*UNION-VALUES))))) (PUT1-LST (QUOTE SET-VALUE-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE SET-VALUE-OFF SET-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-VALUE . SET-VALUE-OFF) (DISABLED-LEMMAS NIL SET-VALUE SET-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*SET-VALUE) (QUOTE (MAIN-EVENT SET-VALUE))) (PUT1-LST (QUOTE SET-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-VALUE 16 NIL NIL T)) TOTALP-LST ((SET-VALUE . T)) SDEFN (LAMBDA (KEY VALUE ALIST) (IF (LISTP (ALIST-ENTRY KEY ALIST)) (IF (EQUAL VALUE (CDR (ALIST-ENTRY KEY ALIST))) ALIST (CONS (CONS KEY VALUE) (UNBIND KEY ALIST))) (CONS (CONS KEY VALUE) ALIST))) LISP-CODE *1*SET-VALUE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*SET-VALUE) IMMEDIATE-DEPENDENTS0 (OK-OUT-TYPE OK-IN-TYPE SET-VALUE-OFF) EVENT (DEFN SET-VALUE (KEY VALUE ALIST) (IF (NLISTP (ALIST-ENTRY KEY ALIST)) (CONS (CONS KEY VALUE) ALIST) (IF (EQUAL VALUE (CDR (ALIST-ENTRY KEY ALIST))) ALIST (CONS (CONS KEY VALUE) (UNBIND KEY ALIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNBIND . SET-VALUE) (IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . SET-VALUE) (DCELL . *1*SET-VALUE))))) (PUT1-LST (QUOTE *1*UNBIND) (QUOTE (MAIN-EVENT UNBIND))) (PUT1-LST (QUOTE UNBIND) (QUOTE (TYPE-PRESCRIPTION-LST ((UNBIND -1 NIL T)) TOTALP-LST ((UNBIND . T)) SDEFN (LAMBDA (KEY ALIST) (DELETE-MODULE KEY ALIST)) LISP-CODE *1*UNBIND SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*UNBIND) IMMEDIATE-DEPENDENTS0 (ADD-LOADING ADD-IN-TYPE EXTERNALIZE-PARENTS UNBIND-OFF LESSP-UNBIND-LIST-COUNT LOOKUP-MODULE-IN-UNBIND-LIST UNBIND-LIST SET-VALUE) EVENT (DEFN UNBIND (KEY ALIST) (DELETE-MODULE KEY ALIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . UNBIND) (DCELL . *1*UNBIND))))) (PUT1-LST (QUOTE ALIST-ENTRY-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE ALIST-ENTRY-OFF ALIST-ENTRY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALIST-ENTRY . ALIST-ENTRY-OFF) (DISABLED-LEMMAS NIL ALIST-ENTRY ALIST-ENTRY-OFF . T))))) (PUT1-LST (QUOTE *1*ALIST-ENTRY) (QUOTE (MAIN-EVENT ALIST-ENTRY))) (PUT1-LST (QUOTE ALIST-ENTRY) (QUOTE (TYPE-PRESCRIPTION-LST ((ALIST-ENTRY 17 NIL NIL)) TOTALP-LST ((ALIST-ENTRY . T)) SDEFN (LAMBDA (KEY ALIST) (LOOKUP-MODULE KEY ALIST)) LISP-CODE *1*ALIST-ENTRY SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*ALIST-ENTRY) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES IO-TYPES COLLECT-MODULE-PROP ADD-COMPOSED-DATA LSI-OCC-BODY-SYNTAX-CHECK SET-VALUE ALIST-ENTRY-OFF) EVENT (DEFN ALIST-ENTRY (KEY ALIST) (LOOKUP-MODULE KEY ALIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . ALIST-ENTRY) (DCELL . *1*ALIST-ENTRY))))) (PUT1-LST (QUOTE *1*BOUNDP) (QUOTE (MAIN-EVENT BOUNDP))) (PUT1-LST (QUOTE BOUNDP) (QUOTE (TYPE-PRESCRIPTION-LST ((BOUNDP 3 NIL NIL)) TOTALP-LST ((BOUNDP . T)) SDEFN (LAMBDA (KEY ALIST) (LISTP (LOOKUP-MODULE KEY ALIST))) LISP-CODE *1*BOUNDP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*BOUNDP) IMMEDIATE-DEPENDENTS0 (STATE-TYPE-REQUIREMENT ARG-TYPES-OKP BOUNDP-OFF1 SUBNET0 BOUNDP-ON OK-STATES ADD-COMPOSED-DATA FUNCTION-SYNONYMS FUNCTION-T-WIRE-INS UPDATE-STATE-TYPES OR-DELAY-ARGS INPUT-DELAY0 COLLECT-MIN-ARGS ADD-LOADING ADD-IN-TYPE TYPE-VALUE0 PARENT-SYNONYM0 VALUE2 VALUE-OR-UNKNOWN BOUNDP-OFF LESSP-UNBIND-LIST-COUNT UNBOUND-KEYS) EVENT (DEFN BOUNDP (KEY ALIST) (LISTP (LOOKUP-MODULE KEY ALIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . BOUNDP) (DCELL . *1*BOUNDP))))) (PUT1-LST (QUOTE ALISTP-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE ALISTP-OFF ALISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALISTP . ALISTP-OFF) (DISABLED-LEMMAS NIL ALISTP ALISTP-OFF . T))))) (PUT1-LST (QUOTE *1*ALISTP) (QUOTE (MAIN-EVENT ALISTP))) (PUT1-LST (QUOTE ALISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALISTP 3 NIL)) LEMMAS ((REWRITE-RULE ALISTP-DUAL-EVAL-3 ((ALISTP STATE-BINDINGS) (EQUAL FLAG (QUOTE 3))) (ALISTP (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINGS NETLIST)) NIL) (REWRITE-RULE ALISTP-OPENER NIL (EQUAL (ALISTP (CONS A Z)) (IF (LISTP A) (ALISTP Z) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE ALISTP-DUAL-EVAL-1 ((ALISTP BINDINGS) (EQUAL FLAG (QUOTE 1))) (ALISTP (DUAL-EVAL FLAG OCCURRENCES BINDINGS STATE-BINDINTS NETLIST)) NIL) (REWRITE-RULE ALISTP-APPEND ((ALISTP X)) (EQUAL (ALISTP (APPEND X Y)) (ALISTP Y)) NIL) (REWRITE-RULE ALISTP-PAIRLIST NIL (ALISTP (PAIRLIST X Y)) NIL)) TOTALP-LST ((ALISTP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CAR X)) (IF (ALISTP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL X (QUOTE NIL)))) LISP-CODE *1*ALISTP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*ALISTP) IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE ALISTP-DUAL-EVAL-3 S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE ALISTP-OPENER V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE ALISTP-DUAL-EVAL-1 ALISTP-APPEND ALISTP-PAIRLIST V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY MODULE-ANNOTATION-OK OCC-ANNOTATION-OK MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP ALISTP-OFF) EVENT (DEFN ALISTP (X) (IF (LISTP X) (AND (LISTP (CAR X)) (ALISTP (CDR X))) (EQUAL X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALISTP))))) (PUT1-LST (QUOTE LISTIFY-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LISTIFY-OFF LISTIFY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTIFY . LISTIFY-OFF) (DISABLED-LEMMAS NIL LISTIFY LISTIFY-OFF . T))))) (PUT1-LST (QUOTE *1*LISTIFY) (QUOTE (MAIN-EVENT LISTIFY))) (PUT1-LST (QUOTE LISTIFY) (QUOTE (TYPE-PRESCRIPTION-LST ((LISTIFY 24 NIL)) TOTALP-LST ((LISTIFY . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (CONS (CONS (CAR X) (QUOTE NIL)) (LISTIFY (CDR X))) (QUOTE NIL))) LISP-CODE *1*LISTIFY SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*LISTIFY) IMMEDIATE-DEPENDENTS0 (ALL-OUTPUT-TYPES INITIAL-OCC-OUT-DEPENDS NETLIST-TYPE-TABLE-SIMPLE SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE LISTIFY-OFF) EVENT (DEFN LISTIFY (X) (IF (LISTP X) (CONS (CONS (CAR X) (QUOTE NIL)) (LISTIFY (CDR X))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*LISTIFY))))) (PUT1-LST (QUOTE IS-HEAD-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE IS-HEAD-OFF IS-HEAD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IS-HEAD . IS-HEAD-OFF) (DISABLED-LEMMAS NIL IS-HEAD IS-HEAD-OFF . T))))) (PUT1-LST (QUOTE *1*IS-HEAD) (QUOTE (MAIN-EVENT IS-HEAD))) (PUT1-LST (QUOTE IS-HEAD) (QUOTE (TYPE-PRESCRIPTION-LST ((IS-HEAD 3 NIL NIL)) TOTALP-LST ((IS-HEAD . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (EQUAL (CAR X) (CAR Y)) (IF (IS-HEAD (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*IS-HEAD SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (LISTP Y))) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (LISTP Y)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194004 CONTROLLER-POCKETS (1 2) SATELLITES (*1*IS-HEAD) IMMEDIATE-DEPENDENTS0 (PLSI-NAME-OK IS-HEAD-OFF) EVENT (DEFN IS-HEAD (X Y) (IF (AND (LISTP X) (LISTP Y)) (AND (EQUAL (CAR X) (CAR Y)) (IS-HEAD (CDR X) (CDR Y))) (NLISTP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . IS-HEAD) (DCELL . *1*IS-HEAD))))) (PUT1-LST (QUOTE FLATTEN-LIST-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE FLATTEN-LIST-OFF FLATTEN-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FLATTEN-LIST . FLATTEN-LIST-OFF) (DISABLED-LEMMAS NIL FLATTEN-LIST FLATTEN-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*FLATTEN-LIST) (QUOTE (MAIN-EVENT FLATTEN-LIST))) (PUT1-LST (QUOTE FLATTEN-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((FLATTEN-LIST -1 NIL)) TOTALP-LST ((FLATTEN-LIST . T)) SDEFN (LAMBDA (X) (REMOVE-DUPLICATES (APPEND-LIST X))) LISP-CODE *1*FLATTEN-LIST SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194004 SATELLITES (*1*FLATTEN-LIST) IMMEDIATE-DEPENDENTS0 (COLLECT-PRIMITIVES OUT-DEPENDS-SIMPLE LIST-COLLECT-VALUE FLATTEN-LIST-OFF) EVENT (DEFN FLATTEN-LIST (X) (REMOVE-DUPLICATES (APPEND-LIST X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-LIST . FLATTEN-LIST) (IMMEDIATE-DEPENDENTS0 REMOVE-DUPLICATES . FLATTEN-LIST) (DCELL . *1*FLATTEN-LIST))))) (PUT1-LST (QUOTE APPEND-LIST-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE APPEND-LIST-OFF APPEND-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-LIST . APPEND-LIST-OFF) (DISABLED-LEMMAS NIL APPEND-LIST APPEND-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*APPEND-LIST) (QUOTE (MAIN-EVENT APPEND-LIST))) (PUT1-LST (QUOTE APPEND-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND-LIST 24 NIL)) TOTALP-LST ((APPEND-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (APPEND (CAR X) (APPEND-LIST (CDR X))) (QUOTE NIL))) LISP-CODE *1*APPEND-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*APPEND-LIST) IMMEDIATE-DEPENDENTS0 (FLATTEN-LIST APPEND-LIST-OFF) EVENT (DEFN APPEND-LIST (X) (IF (LISTP X) (APPEND (CAR X) (APPEND-LIST (CDR X))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*APPEND-LIST))))) (PUT1-LST (QUOTE REMOVE-DUPLICATES-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE REMOVE-DUPLICATES-OFF REMOVE-DUPLICATES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMOVE-DUPLICATES . REMOVE-DUPLICATES-OFF) (DISABLED-LEMMAS NIL REMOVE-DUPLICATES REMOVE-DUPLICATES-OFF . T))))) (PUT1-LST (QUOTE *1*REMOVE-DUPLICATES) (QUOTE (MAIN-EVENT REMOVE-DUPLICATES))) (PUT1-LST (QUOTE REMOVE-DUPLICATES) (QUOTE (TYPE-PRESCRIPTION-LST ((REMOVE-DUPLICATES -1 T)) TOTALP-LST ((REMOVE-DUPLICATES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (MEMBER (CAR X) (CDR X)) (REMOVE-DUPLICATES (CDR X)) (CONS (CAR X) (REMOVE-DUPLICATES (CDR X)))) X)) LISP-CODE *1*REMOVE-DUPLICATES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) (CDR X))) (((CDR X)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) (CDR X)))) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*REMOVE-DUPLICATES) IMMEDIATE-DEPENDENTS0 (BOOLP-LIST-OK T-WIRE-ERROR FLATTEN-LIST REMOVE-DUPLICATES-OFF) EVENT (DEFN REMOVE-DUPLICATES (X) (IF (LISTP X) (IF (MEMBER (CAR X) (CDR X)) (REMOVE-DUPLICATES (CDR X)) (CONS (CAR X) (REMOVE-DUPLICATES (CDR X)))) X)) LOCAL-UNDO-TUPLES ((DCELL . *1*REMOVE-DUPLICATES))))) (PUT1-LST (QUOTE LIST-DUPLICATES-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LIST-DUPLICATES-OFF LIST-DUPLICATES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-DUPLICATES . LIST-DUPLICATES-OFF) (DISABLED-LEMMAS NIL LIST-DUPLICATES LIST-DUPLICATES-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-DUPLICATES) (QUOTE (MAIN-EVENT LIST-DUPLICATES))) (PUT1-LST (QUOTE LIST-DUPLICATES) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-DUPLICATES 16 NIL T)) TOTALP-LST ((LIST-DUPLICATES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X DUPLICATES) (IF (LISTP X) (IF (MEMBER (CAR X) (CDR X)) (LIST-DUPLICATES (CDR X) (INSERT (CAR X) DUPLICATES)) (LIST-DUPLICATES (CDR X) DUPLICATES)) DUPLICATES)) LISP-CODE *1*LIST-DUPLICATES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (IF (MEMBER (CAR X) (CDR X)) (INSERT (CAR X) DUPLICATES) DUPLICATES)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*LIST-DUPLICATES) IMMEDIATE-DEPENDENTS0 (NO-DUPLICATES-OR-ERR LIST-DUPLICATES-OFF) EVENT (DEFN LIST-DUPLICATES (X DUPLICATES) (IF (LISTP X) (LIST-DUPLICATES (CDR X) (IF (MEMBER (CAR X) (CDR X)) (INSERT (CAR X) DUPLICATES) DUPLICATES)) DUPLICATES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . LIST-DUPLICATES) (DCELL . *1*LIST-DUPLICATES))))) (PUT1-LST (QUOTE LAST-CDR-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE LAST-CDR-OFF LAST-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LAST-CDR . LAST-CDR-OFF) (DISABLED-LEMMAS NIL LAST-CDR LAST-CDR-OFF . T))))) (PUT1-LST (QUOTE *1*LAST-CDR) (QUOTE (MAIN-EVENT LAST-CDR))) (PUT1-LST (QUOTE LAST-CDR) (QUOTE (TYPE-PRESCRIPTION-LST ((LAST-CDR -1 T)) TOTALP-LST ((LAST-CDR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (LAST-CDR (CDR X)) X)) LISP-CODE *1*LAST-CDR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*LAST-CDR) IMMEDIATE-DEPENDENTS0 (BOOLP-LIST-OK POUT-DEPENDS-ONE-OK PDELAY-OK PHALF-DELAY-OK P-T-WIRE-ARGS-OK LSI-NAME-LIST-ERRORS LSI-NAME-OK MODULE-FORM-OK OCC-FORM-OK NAME-LIST-ERRORS LAST-CDR-OFF) EVENT (DEFN LAST-CDR (X) (IF (LISTP X) (LAST-CDR (CDR X)) X)) LOCAL-UNDO-TUPLES ((DCELL . *1*LAST-CDR))))) (PUT1-LST (QUOTE INTERSECTION-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE INTERSECTION-OFF INTERSECTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTERSECTION . INTERSECTION-OFF) (DISABLED-LEMMAS NIL INTERSECTION INTERSECTION-OFF . T))))) (PUT1-LST (QUOTE *1*INTERSECTION) (QUOTE (MAIN-EVENT INTERSECTION))) (PUT1-LST (QUOTE INTERSECTION) (QUOTE (TYPE-PRESCRIPTION-LST ((INTERSECTION 24 NIL NIL)) TOTALP-LST ((INTERSECTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (INTERSECTION (CDR X) Y)) (INTERSECTION (CDR X) Y)) (QUOTE NIL))) LISP-CODE *1*INTERSECTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*INTERSECTION) IMMEDIATE-DEPENDENTS0 (LOADINGS-AND-DRIVES IO-TYPES OUT-DEPENDS PLSI-NAME-OK POUT-TYPES-OK PIN-TYPES-OK MODULE-DATA COLLECT-OCCURRENCE-DATA COLLECT-TRI-STATE-DATA INITIAL-OCC-SYNTAX-DATA DISJOINT-OR-ERR INTERSECTION-OFF) EVENT (DEFN INTERSECTION (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (INTERSECTION (CDR X) Y)) (INTERSECTION (CDR X) Y)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*INTERSECTION))))) (PUT1-LST (QUOTE SET-DIFF-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE SET-DIFF-OFF SET-DIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-DIFF . SET-DIFF-OFF) (DISABLED-LEMMAS NIL SET-DIFF SET-DIFF-OFF . T))))) (PUT1-LST (QUOTE *1*SET-DIFF) (QUOTE (MAIN-EVENT SET-DIFF))) (PUT1-LST (QUOTE SET-DIFF) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-DIFF 24 NIL NIL)) TOTALP-LST ((SET-DIFF . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SET-DIFF (CDR X) Y) (CONS (CAR X) (SET-DIFF (CDR X) Y))) (QUOTE NIL))) LISP-CODE *1*SET-DIFF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*SET-DIFF) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS NETLIST-DATABASE NETLIST-PROPERTIES UPDATE-TRI-STATE-DATA UPDATE-OCC-SYNTAX-DATA OCC-BODY-SYNTAX-SIMPLE-OKP SUBSET-OR-ERR SET-DIFF-OFF) EVENT (DEFN SET-DIFF (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SET-DIFF (CDR X) Y) (CONS (CAR X) (SET-DIFF (CDR X) Y))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*SET-DIFF))))) (PUT1-LST (QUOTE SET-EQUAL-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE SET-EQUAL-OFF SET-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-EQUAL . SET-EQUAL-OFF) (DISABLED-LEMMAS NIL SET-EQUAL SET-EQUAL-OFF . T))))) (PUT1-LST (QUOTE *1*SET-EQUAL) (QUOTE (MAIN-EVENT SET-EQUAL))) (PUT1-LST (QUOTE SET-EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-EQUAL 3 NIL NIL)) TOTALP-LST ((SET-EQUAL . T)) SDEFN (LAMBDA (X Y) (IF (SUBSET X Y) (SUBSET Y X) (QUOTE *1*FALSE))) LISP-CODE *1*SET-EQUAL SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194004 SATELLITES (*1*SET-EQUAL) IMMEDIATE-DEPENDENTS0 (PLSI-NAME-OK STATE-TYPES-ERROR STATE-TYPE-REQUIREMENT-SIMPLE SET-EQUAL-OFF) EVENT (DEFN SET-EQUAL (X Y) (AND (SUBSET X Y) (SUBSET Y X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET . SET-EQUAL) (DCELL . *1*SET-EQUAL))))) (PUT1-LST (QUOTE INSERT-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE INSERT-OFF INSERT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INSERT . INSERT-OFF) (DISABLED-LEMMAS NIL INSERT INSERT-OFF . T))))) (PUT1-LST (QUOTE *1*INSERT) (QUOTE (MAIN-EVENT INSERT))) (PUT1-LST (QUOTE INSERT) (QUOTE (TYPE-PRESCRIPTION-LST ((INSERT 16 NIL T)) TOTALP-LST ((INSERT . T)) SDEFN (LAMBDA (E X) (IF (MEMBER E X) X (CONS E X))) LISP-CODE *1*INSERT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*INSERT) IMMEDIATE-DEPENDENTS0 (PSTATE-TYPE-LIST-ERRORS INSERT-INPUT-DELAY MERGE-INPUT-DELAYS EXTRACT-NAMES BAD-LSI-NAME-CHARS BAD-NAMES UNBOUND-KEYS LIST-DUPLICATES INSERT-OFF) EVENT (DEFN INSERT (E X) (IF (MEMBER E X) X (CONS E X))) LOCAL-UNDO-TUPLES ((DCELL . *1*INSERT))))) (PUT1-LST (QUOTE MIN-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE MIN-OFF MIN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MIN . MIN-OFF) (DISABLED-LEMMAS NIL MIN MIN-OFF . T))))) (PUT1-LST (QUOTE *1*MIN) (QUOTE (MAIN-EVENT MIN))) (PUT1-LST (QUOTE MIN) (QUOTE (TYPE-PRESCRIPTION-LST ((MIN 0 T T)) TOTALP-LST ((MIN . T)) SDEFN (LAMBDA (X Y) (IF (LESSP Y X) Y X)) LISP-CODE *1*MIN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194004 SATELLITES (*1*MIN) IMMEDIATE-DEPENDENTS0 (LITERAL-DELAY-TO-RANGE MERGE-INPUT-DELAYS MIN-OFF) EVENT (DEFN MIN (X Y) (IF (LESSP Y X) Y X)) LOCAL-UNDO-TUPLES ((DCELL . *1*MIN))))) (PUT1-LST (QUOTE OPEN-SIMULATE-DUAL-EVAL-2) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 CHIP-SYSTEM=RUN-FM9001) EVENT (PROVE-LEMMA OPEN-SIMULATE-DUAL-EVAL-2 (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (SIMULATE-DUAL-EVAL-2 MODULE INPUTS STATE NETLIST N) STATE)) (IMPLIES (NOT (ZEROP N)) (EQUAL (SIMULATE-DUAL-EVAL-2 MODULE INPUTS STATE NETLIST N) (SIMULATE-DUAL-EVAL-2 MODULE (CDR INPUTS) (DUAL-EVAL (QUOTE 2) MODULE (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N))))) ((ENABLE SIMULATE-DUAL-EVAL-2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OPEN-SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . OPEN-SIMULATE-DUAL-EVAL-2) (LEMMAS SIMULATE-DUAL-EVAL-2 . OPEN-SIMULATE-DUAL-EVAL-2) (LEMMAS SIMULATE-DUAL-EVAL-2 . OPEN-SIMULATE-DUAL-EVAL-2))))) (PUT1-LST (QUOTE SIMULATE-DUAL-EVAL-2-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE SIMULATE-DUAL-EVAL-2-OFF SIMULATE-DUAL-EVAL-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIMULATE-DUAL-EVAL-2 . SIMULATE-DUAL-EVAL-2-OFF) (DISABLED-LEMMAS NIL SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2-OFF . T))))) (PUT1-LST (QUOTE *1*SIMULATE-DUAL-EVAL-2) (QUOTE (MAIN-EVENT SIMULATE-DUAL-EVAL-2))) (PUT1-LST (QUOTE SIMULATE-DUAL-EVAL-2) (QUOTE (TYPE-PRESCRIPTION-LST ((SIMULATE-DUAL-EVAL-2 -1 NIL NIL T NIL NIL)) LEMMAS ((REWRITE-RULE CHIP-SYSTEM=RUN-FM9001 ((CHIP-SYSTEM& NETLIST) (FM9001-STATE-STRUCTURE STATE) (CHIP-SYSTEM-INVARIANT STATE) (CHIP-SYSTEM-OPERATING-INPUTS-P INPUTS N) (EQUAL FM9001-INPUTS (MAP-UP-INPUTS INPUTS))) (EQUAL (SIMULATE-DUAL-EVAL-2 (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST N) (RUN-FM9001 STATE FM9001-INPUTS N)) NIL) (REWRITE-RULE OPEN-SIMULATE-DUAL-EVAL-2 ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SIMULATE-DUAL-EVAL-2 MODULE INPUTS STATE NETLIST N) (SIMULATE-DUAL-EVAL-2 MODULE (CDR INPUTS) (DUAL-EVAL (QUOTE 2) MODULE (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N))) NIL) (REWRITE-RULE OPEN-SIMULATE-DUAL-EVAL-2 ((ZEROP N)) (EQUAL (SIMULATE-DUAL-EVAL-2 MODULE INPUTS STATE NETLIST N) STATE) NIL)) TOTALP-LST ((SIMULATE-DUAL-EVAL-2)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (MODULE INPUTS STATE NETLIST N) (IF (EQUAL N (QUOTE 0)) STATE (IF (NUMBERP N) (SIMULATE-DUAL-EVAL-2 MODULE (CDR INPUTS) (DUAL-EVAL (QUOTE 2) MODULE (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N)) STATE))) LISP-CODE *1*SIMULATE-DUAL-EVAL-2 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((MODULE (CDR INPUTS) (DUAL-EVAL (QUOTE 2) MODULE (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194004 CONTROLLER-POCKETS (16) SATELLITES (*1*SIMULATE-DUAL-EVAL-2) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET RESET-CHIP-FROM-ANY-STATE RESET-CHIP SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA INSTANCE-THEOREM FM9001=CHIP-SYSTEM-SUMMARY FM9001=CHIP-SYSTEM CHIP-SYSTEM=FM9001-INTERPRETER CHIP-SYSTEM=RUN-FM9001 OPEN-SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2-OFF) EVENT (DEFN SIMULATE-DUAL-EVAL-2 (MODULE INPUTS STATE NETLIST N) (IF (ZEROP N) STATE (SIMULATE-DUAL-EVAL-2 MODULE (CDR INPUTS) (DUAL-EVAL (QUOTE 2) MODULE (CAR INPUTS) STATE NETLIST) NETLIST (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SIMULATE-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SIMULATE-DUAL-EVAL-2) (DCELL . *1*SIMULATE-DUAL-EVAL-2))))) (PUT1-LST (QUOTE *1*SIMULATE) (QUOTE (MAIN-EVENT SIMULATE))) (PUT1-LST (QUOTE SIMULATE) (QUOTE (TYPE-PRESCRIPTION-LST ((SIMULATE 24 NIL NIL NIL NIL)) TOTALP-LST ((SIMULATE)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (FN INPUTS STATE NETLIST) (IF (LISTP INPUTS) (CONS (CONS (DUAL-EVAL (QUOTE 0) FN (CAR INPUTS) STATE NETLIST) (CONS (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) (QUOTE NIL))) (SIMULATE FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST)) (QUOTE NIL))) LISP-CODE *1*SIMULATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP INPUTS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP INPUTS))) ((FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST)))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (INPUTS) (COUNT INPUTS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194004 CONTROLLER-POCKETS (2) SATELLITES (*1*SIMULATE) IMMEDIATE-DEPENDENTS0 (SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-SEQUENCE-CHIP-1-VS-2 XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE LENGTH-SIMULATE DOUBLET-N-SIMULATE SIMULATE-MONOTONE) EVENT (DEFN SIMULATE (FN INPUTS STATE NETLIST) (IF (NLISTP INPUTS) (QUOTE NIL) (CONS (CONS (DUAL-EVAL (QUOTE 0) FN (CAR INPUTS) STATE NETLIST) (CONS (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) (QUOTE NIL))) (SIMULATE FN (CDR INPUTS) (DUAL-EVAL (QUOTE 2) FN (CAR INPUTS) STATE NETLIST) NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . SIMULATE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SIMULATE) (DCELL . *1*SIMULATE))))) (PUT1-LST (QUOTE OPEN-DUAL-EVAL-BODY-BINDINGS) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE WE-REG-BODY$VALUE REG-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE) EVENT (PROVE-LEMMA OPEN-DUAL-EVAL-BODY-BINDINGS (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (DUAL-EVAL-BODY-BINDINGS N BODY BINDINGS STATE-BINDINGS NETLIST) BINDINGS)) (IMPLIES (NOT (ZEROP N)) (EQUAL (DUAL-EVAL-BODY-BINDINGS N BODY BINDINGS STATE-BINDINGS NETLIST) (DUAL-EVAL-BODY-BINDINGS (SUB1 N) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)))) ((ENABLE DUAL-EVAL-BODY-BINDINGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 VALUE . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OPEN-DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . OPEN-DUAL-EVAL-BODY-BINDINGS) (LEMMAS DUAL-EVAL-BODY-BINDINGS . OPEN-DUAL-EVAL-BODY-BINDINGS) (LEMMAS DUAL-EVAL-BODY-BINDINGS . OPEN-DUAL-EVAL-BODY-BINDINGS))))) (PUT1-LST (QUOTE DUAL-EVAL-BODY-BINDINGS-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE DUAL-EVAL-BODY-BINDINGS-OFF DUAL-EVAL-BODY-BINDINGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL-BODY-BINDINGS . DUAL-EVAL-BODY-BINDINGS-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS-OFF . T))))) (PUT1-LST (QUOTE *1*DUAL-EVAL-BODY-BINDINGS) (QUOTE (MAIN-EVENT DUAL-EVAL-BODY-BINDINGS))) (PUT1-LST (QUOTE DUAL-EVAL-BODY-BINDINGS) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-EVAL-BODY-BINDINGS 16 NIL NIL T NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-DUAL-EVAL-BODY-BINDINGS ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (DUAL-EVAL-BODY-BINDINGS N BODY BINDINGS STATE-BINDINGS NETLIST) (DUAL-EVAL-BODY-BINDINGS (SUB1 N) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)) NIL) (REWRITE-RULE OPEN-DUAL-EVAL-BODY-BINDINGS ((ZEROP N)) (EQUAL (DUAL-EVAL-BODY-BINDINGS N BODY BINDINGS STATE-BINDINGS NETLIST) BINDINGS) NIL)) TOTALP-LST ((DUAL-EVAL-BODY-BINDINGS)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING UNCHANGING) SDEFN (LAMBDA (N BODY BINDINGS STATE-BINDINGS NETLIST) (IF (EQUAL N (QUOTE 0)) BINDINGS (IF (NUMBERP N) (DUAL-EVAL-BODY-BINDINGS (SUB1 N) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST) BINDINGS))) LISP-CODE *1*DUAL-EVAL-BODY-BINDINGS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402194004 CONTROLLER-POCKETS (1) SATELLITES (*1*DUAL-EVAL-BODY-BINDINGS) IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY$INDUCTION WE-REG-BODY-INDUCTION REG-BODY-INDUCTION VECTOR-MODULE-INDUCTION OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS-OFF) EVENT (DEFN DUAL-EVAL-BODY-BINDINGS (N BODY BINDINGS STATE-BINDINGS NETLIST) (IF (ZEROP N) BINDINGS (DUAL-EVAL-BODY-BINDINGS (SUB1 N) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 VALUE . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DUAL-EVAL-BODY-BINDINGS) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . DUAL-EVAL-BODY-BINDINGS) (DCELL . *1*DUAL-EVAL-BODY-BINDINGS))))) (PUT1-LST (QUOTE LENGTH-DUAL-EVAL-2) (QUOTE (IDATE 1000402194004 EVENT (PROVE-LEMMA LENGTH-DUAL-EVAL-2 (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (AND (LISTP (LOOKUP-MODULE FN NETLIST)) (PROPERP (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST))))) (EQUAL (LENGTH (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)) (LENGTH (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST))))) ((EXPAND (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PROPERP . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LENGTH-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PRIMP . LENGTH-DUAL-EVAL-2) (LEMMAS LENGTH . LENGTH-DUAL-EVAL-2))))) (PUT1-LST (QUOTE PROPERP-DUAL-EVAL-2) (QUOTE (IDATE 1000402194004 EVENT (PROVE-LEMMA PROPERP-DUAL-EVAL-2 (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (AND (LISTP (LOOKUP-MODULE FN NETLIST)) (PROPERP (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST))))) (PROPERP (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST))) ((EXPAND (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PROPERP-DUAL-EVAL-2) (IMMEDIATE-DEPENDENTS0 PRIMP . PROPERP-DUAL-EVAL-2) (LEMMAS PROPERP . PROPERP-DUAL-EVAL-2))))) (PUT1-LST (QUOTE LENGTH-DUAL-EVAL-0) (QUOTE (IDATE 1000402194004 EVENT (PROVE-LEMMA LENGTH-DUAL-EVAL-0 (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (LENGTH (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)) (LENGTH (MODULE-OUTPUTS (LOOKUP-MODULE FN NETLIST))))) ((EXPAND (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 LENGTH-COLLECT-VALUE . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LENGTH-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PRIMP . LENGTH-DUAL-EVAL-0) (LEMMAS LENGTH . LENGTH-DUAL-EVAL-0))))) (PUT1-LST (QUOTE PROPERP-DUAL-EVAL-0) (QUOTE (IDATE 1000402194004 EVENT (PROVE-LEMMA PROPERP-DUAL-EVAL-0 (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (PROPERP (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST))) ((EXPAND (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PROPERP-COLLECT-VALUE . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PROPERP-DUAL-EVAL-0) (IMMEDIATE-DEPENDENTS0 PRIMP . PROPERP-DUAL-EVAL-0) (LEMMAS PROPERP . PROPERP-DUAL-EVAL-0))))) (PUT1-LST (QUOTE OPEN-DUAL-EVAL-WITH-FLAG-3) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE WE-REG$STATE WE-REG-BODY$STATE REG$STATE REG-BODY$STATE M2$STATE M1$STATE) EVENT (PROVE-LEMMA OPEN-DUAL-EVAL-WITH-FLAG-3 (REWRITE) (AND (IMPLIES (NLISTP BODY) (EQUAL (DUAL-EVAL (QUOTE 3) BODY BINDINGS STATE-BINDINGS NETLIST) (QUOTE NIL))) (IMPLIES (LISTP BODY) (EQUAL (DUAL-EVAL (QUOTE 3) BODY BINDINGS STATE-BINDINGS NETLIST) (CONS (CONS (OCC-NAME (CAR BODY)) (DUAL-EVAL (QUOTE 2) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) (DUAL-EVAL (QUOTE 3) (CDR BODY) BINDINGS STATE-BINDINGS NETLIST))))) ((ENABLE DUAL-EVAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . OPEN-DUAL-EVAL-WITH-FLAG-3) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OPEN-DUAL-EVAL-WITH-FLAG-3) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . OPEN-DUAL-EVAL-WITH-FLAG-3) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OPEN-DUAL-EVAL-WITH-FLAG-3) (IMMEDIATE-DEPENDENTS0 OCC-NAME . OPEN-DUAL-EVAL-WITH-FLAG-3) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-3) (LEMMAS DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-3) (LEMMAS DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-3))))) (PUT1-LST (QUOTE OPEN-DUAL-EVAL-WITH-FLAG-1) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-1 CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE) EVENT (PROVE-LEMMA OPEN-DUAL-EVAL-WITH-FLAG-1 (REWRITE) (AND (IMPLIES (NLISTP BODY) (EQUAL (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) BINDINGS)) (IMPLIES (LISTP BODY) (EQUAL (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) (DUAL-EVAL (QUOTE 1) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)))) ((ENABLE DUAL-EVAL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCC-NAME . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 VALUE . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . OPEN-DUAL-EVAL-WITH-FLAG-1) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-1) (LEMMAS DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-1) (LEMMAS DUAL-EVAL . OPEN-DUAL-EVAL-WITH-FLAG-1))))) (PUT1-LST (QUOTE EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE WE-REG$STATE REG$STATE M2$STATE M1$STATE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2) EVENT (PROVE-LEMMA EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) ARGS) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST))))) ((EXPAND (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 COLLECT-STATES . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (IMMEDIATE-DEPENDENTS0 PRIMP . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS) (LEMMAS DUAL-EVAL . EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS))))) (PUT1-LST (QUOTE EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM CHIP$VALUE CHIP-MODULE$VALUE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$VALUE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$VALUE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$VALUE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE B-BUF-PWR$VALUE B-BUF$VALUE LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0) EVENT (PROVE-LEMMA EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS (REWRITE) (IMPLIES (AND (NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) ARGS) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST))))) ((EXPAND (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 DUAL-EVAL . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (IMMEDIATE-DEPENDENTS0 PRIMP . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS) (LEMMAS DUAL-EVAL . EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS))))) (PUT1-LST (QUOTE DUAL-EVAL-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE DUAL-EVAL-OFF DUAL-EVAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-EVAL . DUAL-EVAL-OFF) (DISABLED-LEMMAS NIL DUAL-EVAL DUAL-EVAL-OFF . T))))) (PUT1-LST (QUOTE *1*DUAL-EVAL) (QUOTE (MAIN-EVENT DUAL-EVAL))) (PUT1-LST (QUOTE DUAL-EVAL) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-EVAL -1 NIL NIL T NIL NIL)) LEMMAS ((REWRITE-RULE DUAL-EVAL-VSS-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VSS) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-VSS-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VSS) ARGS STATE NETLIST) (QUOTE (*1*FALSE))) NIL) (REWRITE-RULE DUAL-EVAL-VDD-PARAMETRIC-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VDD-PARAMETRIC) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-VDD-PARAMETRIC-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD-PARAMETRIC) ARGS STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE DUAL-EVAL-VDD-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE VDD) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-VDD-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD) ARGS STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-TRI-OUTPUT-FAST) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR ARGS))) (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-TRI-OUTPUT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-TRI-OUTPUT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR ARGS))) (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-FAST-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT-FAST) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-OUTPUT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-OUTPUT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-INPUT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-INPUT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-INPUT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-INPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-CLK-INPUT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-CLK-INPUT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-CLK-INPUT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-CLK-INPUT) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-TTL-BIDIRECT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE TTL-BIDIRECT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-TTL-BIDIRECT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-BIDIRECT) ARGS STATE NETLIST) (CONS (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS))) (CONS (F-BUF (FT-WIRE (CAR ARGS) (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS))))) (CONS (F-NAND (FT-WIRE (CAR ARGS) (FT-BUF (F-NOT (CAR (CDR (CDR ARGS)))) (CAR (CDR ARGS)))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))))) NIL) (REWRITE-RULE DUAL-EVAL-PULLUP-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE PULLUP) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-PULLUP-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PULLUP) ARGS STATE NETLIST) (CONS (F-PULLUP (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-T-WIRE-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE T-WIRE) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-T-WIRE-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-WIRE) ARGS STATE NETLIST) (CONS (FT-WIRE (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-T-BUF-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE T-BUF) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-T-BUF-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-BUF) ARGS STATE NETLIST) (CONS (FT-BUF (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE RAM-ENABLE-CIRCUIT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) ARGS STATE NETLIST) (CONS (F-NAND (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-ID-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE ID) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-ID-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ID) ARGS STATE NETLIST) (CONS (CAR ARGS) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-FD1SLP-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SLP) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR ARGS)))) (F-IF (CAR (CDR (CDR ARGS))) (CAR ARGS) STATE))) NIL) (REWRITE-RULE DUAL-EVAL-FD1SLP-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SLP) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-FD1SP-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SP) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR ARGS))) (CAR ARGS))) NIL) (REWRITE-RULE DUAL-EVAL-FD1SP-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SP) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-FD1S-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1S) ARGS STATE NETLIST) (F-IF (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR ARGS))) (CAR ARGS))) NIL) (REWRITE-RULE DUAL-EVAL-FD1S-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1S) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-FD1-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1) ARGS STATE NETLIST) (F-BUF (CAR ARGS))) NIL) (REWRITE-RULE DUAL-EVAL-FD1-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1) ARGS STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-PROCMON-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE PROCMON) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-PROCMON-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PROCMON) ARGS STATE NETLIST) (CONS (F-IF (CAR (CDR (CDR ARGS))) (F-IF (CAR (CDR ARGS)) (F-IF (CAR ARGS) (QUOTE *1*FALSE) (QUOTE *1*FALSE)) (CAR ARGS)) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-DEL10-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL10) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-DEL10-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL10) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-DEL4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-DEL4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL4) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-DEL2-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DEL2) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-DEL2-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL2) ARGS STATE NETLIST) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-XOR3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-XOR3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-XOR3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR3) ARGS STATE NETLIST) (CONS (F-XOR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-XOR-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-XOR) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-XOR-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR) ARGS STATE NETLIST) (CONS (F-XOR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-OR4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-OR4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) ARGS STATE NETLIST) (CONS (F-OR4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-OR3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-OR3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR3) ARGS STATE NETLIST) (CONS (F-OR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-OR-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-OR) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-OR-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR) ARGS STATE NETLIST) (CONS (F-OR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-IVAP-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT-IVAP) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-IVAP-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-IVAP) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-B4IP-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT-B4IP) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-B4IP-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-B4IP) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOT) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOT-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR8-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR8) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR8-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR8) ARGS STATE NETLIST) (CONS (F-NOR8 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR6-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR6) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR6-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR6) ARGS STATE NETLIST) (CONS (F-NOR6 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR5-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR5) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR5-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR5) ARGS STATE NETLIST) (CONS (F-NOR5 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR4) ARGS STATE NETLIST) (CONS (F-NOR4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR3) ARGS STATE NETLIST) (CONS (F-NOR3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NOR) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NOR-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR) ARGS STATE NETLIST) (CONS (F-NOR (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NBUF-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NBUF) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NBUF-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NBUF) ARGS STATE NETLIST) (CONS (F-NOT (CAR ARGS)) (CONS (F-BUF (CAR ARGS)) (QUOTE NIL)))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND8-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND8) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND8-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND8) ARGS STATE NETLIST) (CONS (F-NAND8 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS)))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR ARGS))))))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND6-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND6) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND6-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND6) ARGS STATE NETLIST) (CONS (F-NAND6 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS))))) (CAR (CDR (CDR (CDR (CDR (CDR ARGS))))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND5-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND5) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND5-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND5) ARGS STATE NETLIST) (CONS (F-NAND5 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))) (CAR (CDR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND4) ARGS STATE NETLIST) (CONS (F-NAND4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND3) ARGS STATE NETLIST) (CONS (F-NAND3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-NAND) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-NAND-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND) ARGS STATE NETLIST) (CONS (F-NAND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-IF-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-IF) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-IF-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-IF) ARGS STATE NETLIST) (CONS (F-IF (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-EQUV3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-EQUV3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-EQUV3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV3) ARGS STATE NETLIST) (CONS (F-EQUV3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-EQUV-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-EQUV) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-EQUV-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV) ARGS STATE NETLIST) (CONS (F-EQUV (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-AND4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-AND4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) ARGS STATE NETLIST) (CONS (F-AND4 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-AND3-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND3) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-AND3-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND3) ARGS STATE NETLIST) (CONS (F-AND3 (CAR ARGS) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-B-AND-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE B-AND) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-B-AND-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND) ARGS STATE NETLIST) (CONS (F-AND (CAR ARGS) (CAR (CDR ARGS))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-AO7-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO7) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-AO7-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO7) ARGS STATE NETLIST) (CONS (F-NAND (F-OR (CAR ARGS) (CAR (CDR ARGS))) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-AO6-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO6) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-AO6-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO6) ARGS STATE NETLIST) (CONS (F-NOR (F-AND (CAR ARGS) (CAR (CDR ARGS))) (CAR (CDR (CDR ARGS)))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-AO4-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO4) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-AO4-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO4) ARGS STATE NETLIST) (CONS (F-NAND (F-OR (CAR ARGS) (CAR (CDR ARGS))) (F-OR (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-AO2-STATE NIL (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE AO2) ARGS STATE NETLIST) (QUOTE 0)) NIL) (REWRITE-RULE DUAL-EVAL-AO2-VALUE NIL (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO2) ARGS STATE NETLIST) (CONS (F-NOR (F-AND (CAR ARGS) (CAR (CDR ARGS))) (F-AND (CAR (CDR (CDR ARGS))) (CAR (CDR (CDR (CDR ARGS)))))) (QUOTE NIL))) NIL) (REWRITE-RULE DUAL-EVAL-2-PRIMP ((PRIMP NAME)) (EQUAL (DUAL-EVAL (QUOTE 2) NAME ARGS STATE NETLIST) (DUAL-APPLY-STATE NAME ARGS STATE)) NIL) (REWRITE-RULE DUAL-EVAL-0-PRIMP ((PRIMP NAME)) (EQUAL (DUAL-EVAL (QUOTE 0) NAME ARGS STATE NETLIST) (DUAL-APPLY-VALUE NAME ARGS STATE)) NIL) (REWRITE-RULE CHIP-SYSTEM=FM9001$STEP ((CHIP-SYSTEM& NETLIST) (FM9001-STATE-STRUCTURE STATE) (CHIP-SYSTEM-INVARIANT STATE) (CHIP-SYSTEM-INPUT-INVARIANT INPUTS)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) INPUTS STATE NETLIST) (FM9001-NEXT-STATE STATE (MAP-UP-1-INPUT INPUTS))) NIL) (REWRITE-RULE CHIP-SYSTEM$STATE ((CHIP-SYSTEM& NETLIST) (CHIP-SYSTEM-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL)))) (EQUAL TE (QUOTE *1*FALSE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) (CONS CLK (CONS TI (CONS TE (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- PC-REG-IN))))))) (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) NETLIST) (FM9001-NEXT-STATE (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) (CONS RESET- (CONS HOLD- PC-REG-IN)))) NIL) (REWRITE-RULE CHIP-SYSTEM$STATE-HELP ((CHIP-SYSTEM& NETLIST) (CHIP-SYSTEM-INVARIANT (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL)))) (EQUAL TE (QUOTE *1*FALSE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-SYSTEM) (CONS CLK (CONS TI (CONS TE (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- PC-REG-IN))))))) (CONS (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) (CONS MEM-STATE (QUOTE NIL))) NETLIST) (CONS (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-THREEFIX (V-WIRE (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT))))) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) (F-BUF (CAR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) (F-BUF HOLD-) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL))))))))))))) (CONS (NEXT-MEMORY-STATE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (V-PULLUP (V-WIRE (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (CDR (MEMORY-VALUE MEM-STATE (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE)))) (F-PULLUP (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE))))) (V-PULLUP (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT))) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))) (QUOTE NIL)))) NIL) (REWRITE-RULE CHIP$STATE ((CHIP& NETLIST) (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (EQUAL TE (QUOTE *1*FALSE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) (V-WIRE DATA-IN (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)))) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) (F-BUF DTACK-)) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) (F-BUF HOLD-) LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL)))))))))))))) NIL) (REWRITE-RULE CHIP-MODULE$VALUE ((CHIP-MODULE& NETLIST) (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CHIP-MODULE) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (NTH (QUOTE 3) (V-THREEFIX LAST-PC-REG)) (CONS (NTH (QUOTE 2) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (HDACK- (V-THREEFIX CNTL-STATE)) (CONS (F-NOT (HDACK- (V-THREEFIX CNTL-STATE))) (CONS (F-BUF (RW- (V-THREEFIX CNTL-STATE))) (CONS (STROBE- (V-THREEFIX CNTL-STATE)) (APPEND5 (V-THREEFIX ADDR-OUT) (V-THREEFIX DATA-OUT) (V-THREEFIX FLAGS) (STATE (V-THREEFIX CNTL-STATE)) (SUBRANGE (V-THREEFIX I-REG) (QUOTE 28) (QUOTE 31)))))))))) NIL) (REWRITE-RULE CHIP-MODULE$STATE ((CHIP-MODULE& NETLIST) (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (EQUAL TE (QUOTE *1*FALSE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE CHIP-MODULE) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST) (CONS (F$WRITE-REGS (WE-REGS (V-THREEFIX CNTL-STATE)) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F$UPDATE-FLAGS FLAGS (WE-FLAGS (V-THREEFIX CNTL-STATE)) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) (CONS (FV-IF (WE-A-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) A-REG) (CONS (FV-IF (WE-B-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) B-REG) (CONS (FV-IF (WE-I-REG (V-THREEFIX CNTL-STATE)) (FV-IF (F-NAND (DATA-IN-SELECT (V-THREEFIX CNTL-STATE)) (F-NOT LAST-DTACK-)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))))) DATA-IN) I-REG) (CONS (FV-IF (WE-DATA-OUT (V-THREEFIX CNTL-STATE)) (BV (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32)))) DATA-OUT) (CONS (FV-IF (WE-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$DEC-PASS (DEC-ADDR-OUT (V-THREEFIX CNTL-STATE)) (F$EXTEND-IMMEDIATE (SELECT-IMMEDIATE (V-THREEFIX CNTL-STATE)) (A-IMMEDIATE (V-THREEFIX I-REG)) (F$READ-REGS (REGS-ADDRESS (V-THREEFIX CNTL-STATE)) (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL)))))))) ADDR-OUT) (CONS (F-BUF RESET-) (CONS (F-OR (STROBE- (V-THREEFIX CNTL-STATE)) DTACK-) (CONS (F-IF (WE-HOLD- (V-THREEFIX CNTL-STATE)) HOLD- LAST-HOLD-) (CONS (FV-IF (WE-PC-REG (V-THREEFIX CNTL-STATE)) PC-REG-IN LAST-PC-REG) (CONS (V-THREEFIX (F$NEXT-CNTL-STATE (F-BUF LAST-RESET-) (F-BUF LAST-DTACK-) (F-BUF LAST-HOLD-) (RW- (V-THREEFIX CNTL-STATE)) (STATE (V-THREEFIX CNTL-STATE)) (V-THREEFIX I-REG) (V-THREEFIX FLAGS) (V-THREEFIX LAST-PC-REG) (REGS-ADDRESS (V-THREEFIX CNTL-STATE)))) (QUOTE NIL)))))))))))))) NIL) (REWRITE-RULE REG-40$VALUE-AS-CNTL-STATE ((REG& NETLIST (QUOTE 40)) (PROPERP STATE) (EQUAL (LENGTH STATE) (QUOTE 40))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE (*1*QUOTE INDEX REG 40)) ARGS STATE NETLIST) (CONS (RW- (V-THREEFIX STATE)) (CONS (STROBE- (V-THREEFIX STATE)) (CONS (HDACK- (V-THREEFIX STATE)) (CONS (WE-REGS (V-THREEFIX STATE)) (CONS (WE-A-REG (V-THREEFIX STATE)) (CONS (WE-B-REG (V-THREEFIX STATE)) (CONS (WE-I-REG (V-THREEFIX STATE)) (CONS (WE-DATA-OUT (V-THREEFIX STATE)) (CONS (WE-ADDR-OUT (V-THREEFIX STATE)) (CONS (WE-HOLD- (V-THREEFIX STATE)) (CONS (WE-PC-REG (V-THREEFIX STATE)) (CONS (DATA-IN-SELECT (V-THREEFIX STATE)) (CONS (DEC-ADDR-OUT (V-THREEFIX STATE)) (CONS (SELECT-IMMEDIATE (V-THREEFIX STATE)) (CONS (ALU-C (V-THREEFIX STATE)) (CONS (ALU-ZERO (V-THREEFIX STATE)) (APPEND (STATE (V-THREEFIX STATE)) (APPEND (WE-FLAGS (V-THREEFIX STATE)) (APPEND (REGS-ADDRESS (V-THREEFIX STATE)) (APPEND (ALU-OP (V-THREEFIX STATE)) (ALU-MPG (V-THREEFIX STATE))))))))))))))))))))))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS$VALUE ((TTL-TRI-OUTPUT-PADS& NETLIST N) (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N) (CONS ENABLE INPUTS) STATE NETLIST) (VFT-BUF (F-NOT ENABLE) INPUTS)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS$VALUE ((TTL-OUTPUT-PADS& NETLIST N) (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-OUTPUT-PADS) N) INPUTS STATE NETLIST) (V-THREEFIX INPUTS)) NIL) (REWRITE-RULE EXTEND-IMMEDIATE$VALUE ((EXTEND-IMMEDIATE& NETLIST) (PROPERP IMMEDIATE) (EQUAL (LENGTH IMMEDIATE) (QUOTE 9)) (PROPERP REG-DATA) (EQUAL (LENGTH REG-DATA) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE EXTEND-IMMEDIATE) (CONS SELECT-IMMEDIATE (APPEND IMMEDIATE REG-DATA)) STATE NETLIST) (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-DATA)) NIL) (REWRITE-RULE FLAGS$PARTIAL-STATE ((FLAGS& NETLIST) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (EQUAL SET-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (BVP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE FLAGS$PARTIAL-STATE-HELP ((FLAGS& NETLIST) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (EQUAL SET-FLAGS (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (EQUAL CVZBV (CONS C (CONS V (CONS Z BV)))) (BVP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE FLAGS$STATE ((FLAGS& NETLIST) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (PROPERP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (PROPERP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE FLAGS$STATE-HELP ((FLAGS& NETLIST) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (EQUAL SET-FLAGS (CONS SET-Z (CONS SET-N (CONS SET-V (CONS SET-C (QUOTE NIL)))))) (EQUAL CVZBV (CONS C (CONS V (CONS Z BV)))) (PROPERP CVZBV) (EQUAL (LENGTH CVZBV) (QUOTE 35)) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE FLAGS$VALUE ((FLAGS& NETLIST) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FLAGS) (CONS CLK (CONS TE (CONS TI (APPEND SET-FLAGS CVZBV)))) FLAGS NETLIST) (V-THREEFIX FLAGS)) NIL) (REWRITE-RULE REGFILE$STATE ((REGFILE& NETLIST) (NOT TE) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP LAST-DATA) (EQUAL (LENGTH LAST-DATA) (QUOTE 32)) (PROPERP ADDRESS) (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (PROPERP LAST-ADDRESS) (EQUAL (LENGTH LAST-ADDRESS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE REGFILE) (CONS CLK (CONS TE (CONS TI (CONS WE (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND ADDRESS DATA))))))) (CONS REGFILE (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) NETLIST) (F$WRITE-REGS WE ADDRESS (CONS REGFILE (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) DATA)) NIL) (REWRITE-RULE NEXT-CNTL-STATE$VALUE ((NEXT-CNTL-STATE& NETLIST) (PROPERP STATE) (EQUAL (LENGTH STATE) (QUOTE 5)) (PROPERP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32)) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (PROPERP PC-REG) (EQUAL (LENGTH PC-REG) (QUOTE 4)) (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE NEXT-CNTL-STATE) (CONS RESET- (CONS DTACK- (CONS HOLD- (CONS RW- (APPEND STATE (APPEND I-REG (APPEND FLAGS (APPEND PC-REG REGS-ADDRESS)))))))) DUAL-EVAL-STATE NETLIST) (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) NIL) (REWRITE-RULE CV$VALUE ((CV& NETLIST) (PROPERP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32)) (PROPERP RN-A) (EQUAL (LENGTH RN-A) (QUOTE 4)) (PROPERP RN-B) (EQUAL (LENGTH RN-B) (QUOTE 4)) (PROPERP OP-CODE) (EQUAL (LENGTH OP-CODE) (QUOTE 4)) (PROPERP PC-REG) (EQUAL (LENGTH PC-REG) (QUOTE 4)) (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4)) (PROPERP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CV) (APPEND DECODED-STATE (APPEND RN-A (APPEND RN-B (APPEND OP-CODE (APPEND PC-REG (APPEND REGS-ADDRESS (APPEND SET-FLAGS (CONS STORE (CONS C (CONS A-IMMEDIATE-P (CONS RW- (CONS DIRECT-A (CONS SIDE-EFFECT-A (CONS SIDE-EFFECT-B (CONS PRE-DEC-A (CONS PRE-DEC-B (QUOTE NIL))))))))))))))))) STATE NETLIST) (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) NIL) (REWRITE-RULE NEXT-STATE$VALUE ((NEXT-STATE& NETLIST) (PROPERP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE NEXT-STATE) (APPEND DECODED-STATE (CONS STORE (CONS SET-SOME-FLAGS (CONS UNARY (CONS DIRECT-A (CONS DIRECT-B (CONS SIDE-EFFECT-A (CONS SIDE-EFFECT-B (CONS ALL-T-REGS-ADDRESS (CONS DTACK- (CONS HOLD- (QUOTE NIL)))))))))))) STATE NETLIST) (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) NIL) (REWRITE-RULE CONTROL-LET$VALUE ((CONTROL-LET& NETLIST) (PROPERP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32)) (PROPERP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4)) (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CONTROL-LET) (APPEND I-REG (APPEND FLAGS REGS-ADDRESS)) STATE NETLIST) (F$CONTROL-LET I-REG FLAGS REGS-ADDRESS)) NIL) (REWRITE-RULE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS ((B-AND4& NETLIST) (PROPERP REGS-ADDRESS) (EQUAL (LENGTH REGS-ADDRESS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) REGS-ADDRESS STATE NETLIST) (CONS (F$ALL-T-REGS-ADDRESS REGS-ADDRESS) (QUOTE NIL))) NIL) (REWRITE-RULE B-OR4$VALUE-AS-F$SET-SOME-FLAGS ((B-OR4& NETLIST) (PROPERP SET-FLAGS) (EQUAL (LENGTH SET-FLAGS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) SET-FLAGS STATE NETLIST) (CONS (F$SET-SOME-FLAGS SET-FLAGS) (QUOTE NIL))) NIL) (REWRITE-RULE ENCODE-32$VALUE-ON-A-VECTOR ((ENCODE-32& NETLIST) (PROPERP ARGS) (EQUAL (LENGTH ARGS) (QUOTE 32))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ENCODE-32) ARGS STATE NETLIST) (F$ENCODE-32 (NTH (QUOTE 0) ARGS) (NTH (QUOTE 1) ARGS) (NTH (QUOTE 2) ARGS) (NTH (QUOTE 3) ARGS) (NTH (QUOTE 4) ARGS) (NTH (QUOTE 5) ARGS) (NTH (QUOTE 6) ARGS) (NTH (QUOTE 7) ARGS) (NTH (QUOTE 8) ARGS) (NTH (QUOTE 9) ARGS) (NTH (QUOTE 10) ARGS) (NTH (QUOTE 11) ARGS) (NTH (QUOTE 12) ARGS) (NTH (QUOTE 13) ARGS) (NTH (QUOTE 14) ARGS) (NTH (QUOTE 15) ARGS) (NTH (QUOTE 16) ARGS) (NTH (QUOTE 17) ARGS) (NTH (QUOTE 18) ARGS) (NTH (QUOTE 19) ARGS) (NTH (QUOTE 20) ARGS) (NTH (QUOTE 21) ARGS) (NTH (QUOTE 22) ARGS) (NTH (QUOTE 23) ARGS) (NTH (QUOTE 24) ARGS) (NTH (QUOTE 25) ARGS) (NTH (QUOTE 26) ARGS) (NTH (QUOTE 27) ARGS) (NTH (QUOTE 28) ARGS) (NTH (QUOTE 29) ARGS) (NTH (QUOTE 30) ARGS) (NTH (QUOTE 31) ARGS))) NIL) (REWRITE-RULE ENCODE-32$VALUE ((ENCODE-32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ENCODE-32) (CONS S0 (CONS S1 (CONS S2 (CONS S3 (CONS S4 (CONS S5 (CONS S6 (CONS S7 (CONS S8 (CONS S9 (CONS S10 (CONS S11 (CONS S12 (CONS S13 (CONS S14 (CONS S15 (CONS S16 (CONS S17 (CONS S18 (CONS S19 (CONS S20 (CONS S21 (CONS S22 (CONS S23 (CONS S24 (CONS S25 (CONS S26 (CONS S27 (CONS S28 (CONS S29 (CONS S30 (CONS S31 (QUOTE NIL))))))))))))))))))))))))))))))))) STATE NETLIST) (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) NIL) (REWRITE-RULE DECODE-5$VALUE ((DECODE-5& NETLIST) (EQUAL (LENGTH S) (QUOTE 5))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-5) S STATE NETLIST) (F$DECODE-5 S)) NIL) (REWRITE-RULE FANOUT-32$VALUE ((FANOUT-32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-32) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 32) (THREEFIX A))) NIL) (REWRITE-RULE FANOUT-5$VALUE ((FANOUT-5& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-5) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 5) (THREEFIX A))) NIL) (REWRITE-RULE FANOUT-4$VALUE ((FANOUT-4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FANOUT-4) (CONS A (QUOTE NIL)) STATE NETLIST) (MAKE-LIST (QUOTE 4) (THREEFIX A))) NIL) (REWRITE-RULE V-IF-F-4$RESET-VALUE ((V-IF-F-4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-IF-F-4) (CONS (QUOTE *1*TRUE) A) STATE NETLIST) (MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE V-IF-F-4$VALUE ((V-IF-F-4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-IF-F-4) (CONS C A) STATE NETLIST) (F$V-IF-F-4 C A)) NIL) (REWRITE-RULE SELECT-OP-CODE$VALUE ((SELECT-OP-CODE& NETLIST) (PROPERP OP) (EQUAL (LENGTH OP) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE SELECT-OP-CODE) (CONS SELECT (CONS DEC OP)) STATE NETLIST) (F$SELECT-OP-CODE SELECT DEC OP)) NIL) (REWRITE-RULE DECODE-REG-MODE$VALUE ((DECODE-REG-MODE& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-REG-MODE) MODE STATE NETLIST) (F$DECODE-REG-MODE MODE)) NIL) (REWRITE-RULE UNARY-OP-CODE-P$VALUE ((UNARY-OP-CODE-P& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE UNARY-OP-CODE-P) OP-CODE STATE NETLIST) (CONS (F$UNARY-OP-CODE-P OP-CODE) (QUOTE NIL))) NIL) (REWRITE-RULE B-STORE-RESULTP$VALUE ((B-STORE-RESULTP& NETLIST) (PROPERP STORE-CC) (EQUAL (LENGTH STORE-CC) (QUOTE 4)) (PROPERP STORE-CC) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-STORE-RESULTP) (APPEND STORE-CC FLAGS) STATE NETLIST) (CONS (F$B-STORE-RESULTP STORE-CC FLAGS) (QUOTE NIL))) NIL) (REWRITE-RULE STORE-RESULTP-MUX$VALUE ((STORE-RESULTP-MUX& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE STORE-RESULTP-MUX) (CONS S0 (CONS S1 (CONS S2 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (QUOTE NIL))))))))))) STATE NETLIST) (CONS (F$STORE-RESULTP-MUX S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (QUOTE NIL))) NIL) (REWRITE-RULE CORE-ALU$VALUE ((CORE-ALU& NETLIST TREE) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (NOT (LESSP (LENGTH A) (QUOTE 3))) (PROPERP A) (PROPERP B) (PROPERP OP) (EQUAL (LENGTH OP) (QUOTE 4)) (PROPERP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B (CONS ZERO (APPEND MPG OP))))) STATE NETLIST) (F$CORE-ALU C A B ZERO MPG OP TREE)) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF$VALUE-ZERO ((TV-SHIFT-OR-BUF& NETLIST TREE) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS C (APPEND A (CONS AN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) A) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF$VALUE ((TV-SHIFT-OR-BUF& NETLIST TREE) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP A)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS C (APPEND A (CONS AN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3)) NIL) (REWRITE-RULE SHIFT-OR-BUF-CNTL$VALUE ((SHIFT-OR-BUF-CNTL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE SHIFT-OR-BUF-CNTL) (CONS C (CONS AN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (F$SHIFT-OR-BUF-CNTL C AN ZERO OP0 OP1 OP2 OP3)) NIL) (REWRITE-RULE OVERFLOW-HELP$VALUE-ZERO ((OVERFLOW-HELP& NETLIST) (BOOLP RN)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE OVERFLOW-HELP) (CONS RN (CONS AN (CONS BN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (QUOTE (*1*FALSE))) NIL) (REWRITE-RULE OVERFLOW-HELP$VALUE ((OVERFLOW-HELP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE OVERFLOW-HELP) (CONS RN (CONS AN (CONS BN (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))))) STATE NETLIST) (CONS (F$OVERFLOW-HELP RN AN BN ZERO OP0 OP1 OP2 OP3) (QUOTE NIL))) NIL) (REWRITE-RULE CARRY-OUT-HELP$VALUE-ZERO ((CARRY-OUT-HELP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-OUT-HELP) (CONS A0 (CONS RESULT (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (QUOTE (*1*FALSE))) NIL) (REWRITE-RULE CARRY-OUT-HELP$VALUE ((CARRY-OUT-HELP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-OUT-HELP) (CONS A0 (CONS RESULT (CONS ZERO (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST) (CONS (F$CARRY-OUT-HELP A0 RESULT ZERO OP0 OP1 OP2 OP3) (QUOTE NIL))) NIL) (REWRITE-RULE TV-ALU-HELP$VALUE ((TV-ALU-HELP& NETLIST TREE) (PROPERP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (PROPERP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B MPG))) STATE NETLIST) (F$TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE TV-ALU-HELP$VALUE-BASE-CASE ((NOT (LISTP TREE)) (TV-ALU-HELP& NETLIST TREE) (EQUAL (LENGTH A) (QUOTE 1)) (PROPERP A) (EQUAL (LENGTH B) (QUOTE 1)) (PROPERP B) (EQUAL (LENGTH MPG) (QUOTE 7)) (PROPERP MPG)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS C (APPEND A (APPEND B MPG))) STATE NETLIST) (F$TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE ALU-CELL$VALUE-ZERO ((ALU-CELL& NETLIST) (EQUAL MPG (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ALU-CELL) (CONS (QUOTE *1*TRUE) (CONS A (CONS B MPG))) STATE NETLIST) (QUOTE (*1*FALSE *1*TRUE *1*FALSE))) NIL) (REWRITE-RULE ALU-CELL$VALUE ((ALU-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ALU-CELL) (CONS C (CONS A (CONS B MPG))) STATE NETLIST) (F$ALU-CELL C A B MPG)) NIL) (REWRITE-RULE G-CELL$VALUE-ZERO ((G-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE G-CELL) (CONS A (CONS AN (CONS BN (QUOTE (*1*FALSE *1*FALSE *1*FALSE))))) STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE G-CELL$VALUE ((G-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE G-CELL) (CONS A (CONS AN (CONS BN (CONS GA (CONS GAN (CONS GBN (QUOTE NIL))))))) STATE NETLIST) (CONS (F$G-CELL A AN BN GA GAN GBN) (QUOTE NIL))) NIL) (REWRITE-RULE P-CELL$VALUE-ZERO ((P-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE P-CELL) (CONS A (CONS AN (CONS B (QUOTE (*1*FALSE *1*FALSE *1*FALSE))))) STATE NETLIST) (QUOTE (*1*FALSE))) NIL) (REWRITE-RULE P-CELL$VALUE ((P-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE P-CELL) (CONS A (CONS AN (CONS B (CONS PA (CONS PAN (CONS PB (QUOTE NIL))))))) STATE NETLIST) (CONS (F$P-CELL A AN B PA PAN PB) (QUOTE NIL))) NIL) (REWRITE-RULE CARRY-IN-HELP$VALUE-ZERO ((CARRY-IN-HELP& NETLIST) (EQUAL CZOP (CONS C (CONS (QUOTE *1*TRUE) (ALU-INC-OP))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-IN-HELP) CZOP STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE CARRY-IN-HELP$VALUE ((CARRY-IN-HELP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE CARRY-IN-HELP) CZOP STATE NETLIST) (CONS (F$CARRY-IN-HELP CZOP) (QUOTE NIL))) NIL) (REWRITE-RULE MPG$VALUE-ZERO ((MPG& NETLIST) (EQUAL ZSOP (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MPG) ZSOP STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) NIL) (REWRITE-RULE MPG$VALUE ((MPG& NETLIST) (PROPERP ZSOP) (EQUAL (LENGTH ZSOP) (QUOTE 6))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MPG) ZSOP STATE NETLIST) (F$MPG ZSOP)) NIL) (REWRITE-RULE DECODE-GEN$VALUE-ZERO ((DECODE-GEN& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-GEN) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))) STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE))) NIL) (REWRITE-RULE DECODE-GEN$VALUE ((DECODE-GEN& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-GEN) (CONS ZERO (CONS SWAP (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))) STATE NETLIST) (F$DECODE-GEN ZERO SWAP OP0 OP1 OP2 OP3)) NIL) (REWRITE-RULE DECODE-PROP$VALUE-ZERO ((DECODE-PROP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-PROP) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (ALU-INC-OP))) STATE NETLIST) (QUOTE (*1*FALSE *1*FALSE *1*FALSE))) NIL) (REWRITE-RULE DECODE-PROP$VALUE ((DECODE-PROP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-PROP) (CONS ZERO (CONS SWAP (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))))) STATE NETLIST) (F$DECODE-PROP ZERO SWAP OP0 OP1 OP2 OP3)) NIL) (REWRITE-RULE DECODE-MODE$VALUE-ZERO ((DECODE-MODE& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-MODE) (ALU-INC-OP) STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE DECODE-MODE$VALUE ((DECODE-MODE& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DECODE-MODE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL))))) STATE NETLIST) (CONS (F$DECODE-MODE OP0 OP1 OP2 OP3) (QUOTE NIL))) NIL) (REWRITE-RULE WE-REG$STATE ((WE-REG& NETLIST N) (EQUAL (LENGTH D) N) (PROPERP D) (EQUAL (LENGTH STATE) N) (PROPERP STATE) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (INDEX (QUOTE WE-REG) N) (CONS CLK (CONS WE (CONS TE (CONS TI D)))) STATE NETLIST) (FV-IF WE D STATE)) NIL) (REWRITE-RULE WE-REG$VALUE ((WE-REG& NETLIST N) (EQUAL (LENGTH STATE) N) (PROPERP STATE)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE WE-REG) N) INPUTS STATE NETLIST) (V-THREEFIX STATE)) NIL) (REWRITE-RULE REG$STATE ((REG& NETLIST N) (EQUAL (LENGTH D) N) (PROPERP D) (NOT TE)) (EQUAL (DUAL-EVAL (QUOTE 2) (INDEX (QUOTE REG) N) (CONS CLK (CONS TE (CONS TI D))) STATE NETLIST) (V-THREEFIX D)) NIL) (REWRITE-RULE REG$VALUE ((REG& NETLIST N) (EQUAL (LENGTH STATE) N) (PROPERP STATE)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE REG) N) INPUTS STATE NETLIST) (V-THREEFIX STATE)) NIL) (REWRITE-RULE DEC-PASS$VALUE ((DEC-PASS& NETLIST N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (EQUAL (LENGTH A) N) (PROPERP A)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE DEC-PASS) N) (CONS C A) STATE NETLIST) (F$DEC-PASS C A)) NIL) (REWRITE-RULE TV-DEC-PASS-NG$VALUE ((TV-DEC-PASS-NG& NETLIST TREE MAKE-G) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP A) (BOOLP MAKE-G) (EQUAL NAME (TV-DEC-PASS-NAME TREE MAKE-G))) (EQUAL (DUAL-EVAL (QUOTE 0) NAME (CONS C A) STATE NETLIST) (F$TV-DEC-PASS-NG C A TREE MAKE-G)) NIL) (REWRITE-RULE DEC-PASS-CELL$VALUE ((DEC-PASS-CELL& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEC-PASS-CELL) (CONS C (CONS A (QUOTE NIL))) STATE NETLIST) (CONS A (CONS (F-EQUV A C) (QUOTE NIL)))) NIL) (REWRITE-RULE V-INC4$VALUE-AS-V-INC ((V-INC4& NETLIST) (PROPERP A) (EQUAL (LENGTH A) (QUOTE 4))) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-INC4) A STATE NETLIST) (F$V-INC4$V A)) NIL) (REWRITE-RULE V-INC4$VALUE ((V-INC4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE V-INC4) (CONS A0 (CONS A1 (CONS A2 (CONS A3 (QUOTE NIL))))) STATE NETLIST) (F$V-INC4 A0 A1 A2 A3)) NIL) (REWRITE-RULE V-EQUAL$VALUE ((V-EQUAL& NETLIST N) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (PROPERP A) (PROPERP B) (EQUAL (LENGTH A) N) (EQUAL (LENGTH B) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-EQUAL) N) (APPEND A B) STATE NETLIST) (CONS (F$V-EQUAL A B) (QUOTE NIL))) NIL) (REWRITE-RULE FAST-ZERO$VALUE ((FAST-ZERO& NETLIST N) (PROPERP V) (EQUAL (LENGTH V) N) (NOT (LESSP N (QUOTE 3)))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE FAST-ZERO) N) V STATE NETLIST) (CONS (F$FAST-ZERO V) (QUOTE NIL))) NIL) (REWRITE-RULE TV-ZEROP$VALUE ((TV-ZEROP& NETLIST TREE) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (PROPERP A)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE)) A STATE NETLIST) (CONS (F$TV-ZEROP A TREE) (QUOTE NIL))) NIL) (REWRITE-RULE T-OR-NOR$VALUE ((T-OR-NOR& NETLIST TREE PARITY) (EQUAL CALL-NAME (IF PARITY (QUOTE T-NOR) (QUOTE T-OR))) (PROPERP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX CALL-NAME (TREE-NUMBER TREE)) A STATE NETLIST) (CONS (TR-OR-NOR A PARITY TREE) (QUOTE NIL))) NIL) (REWRITE-RULE TV-IF$VALUE ((TV-IF& NETLIST TREE) (PROPERP A) (PROPERP B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS C (APPEND A B)) STATE NETLIST) (FV-IF C A B)) NIL) (REWRITE-RULE T-CARRY$VALUE ((T-CARRY& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-CARRY) (CONS C (CONS PROP (CONS GEN (QUOTE NIL)))) STATE NETLIST) (CONS (F$T-CARRY C PROP GEN) (QUOTE NIL))) NIL) (REWRITE-RULE BV-ADDER$VALUE ((BV-ADDER& NETLIST N) (BOOLP C) (BVP A) (BVP B) (EQUAL (LENGTH A) N) (EQUAL (LENGTH B) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE BV-ADDER) N) (CONS C (APPEND A B)) STATE NETLIST) (BV-ADDER C A B)) NIL) (REWRITE-RULE M2$STATE ((M2& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE M2) (CONS CLK (CONS EN0 (CONS EN1 (CONS SEL0 (CONS SEL1 (CONS D0 (CONS D1 (QUOTE NIL)))))))) STATE NETLIST) (CONS (F-IF SEL0 D0 (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE))))) (CONS (F-IF SEL1 D1 (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE))))) (QUOTE NIL)))) NIL) (REWRITE-RULE M2$VALUE ((M2& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE M2) (CONS CLK (CONS EN0 (CONS EN1 (CONS SEL0 (CONS SEL1 (CONS D0 (CONS D1 (QUOTE NIL)))))))) STATE NETLIST) (CONS (FT-WIRE (FT-BUF EN0 (CAR STATE)) (FT-BUF EN1 (CAR (CDR STATE)))) (QUOTE NIL))) NIL) (REWRITE-RULE M1$STATE ((M1& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE M1) (CONS CLK (CONS EN (CONS SEL (CONS D (CONS Q (QUOTE NIL)))))) STATE NETLIST) (F-IF SEL D Q)) NIL) (REWRITE-RULE M1$VALUE ((M1& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE M1) (CONS CLK (CONS EN (CONS SEL (CONS D (CONS Q (QUOTE NIL)))))) STATE NETLIST) (CONS (FT-BUF EN STATE) (QUOTE NIL))) NIL) (REWRITE-RULE FULL-ADDER$VALUE ((FULL-ADDER& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (F$FULL-ADDER A B C)) NIL) (REWRITE-RULE HALF-ADDER$VALUE ((HALF-ADDER& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE HALF-ADDER) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-XOR A B) (CONS (F-AND A B) (QUOTE NIL)))) NIL) (REWRITE-RULE V-WIRE$VALUE ((V-WIRE& NETLIST N) (PROPERP A) (EQUAL (LENGTH A) N) (PROPERP B) (EQUAL (LENGTH B) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-WIRE) N) (APPEND A B) STATE NETLIST) (V-WIRE A B)) NIL) (REWRITE-RULE V-PULLUP$VALUE ((V-PULLUP& NETLIST N) (PROPERP A) (EQUAL (LENGTH A) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-PULLUP) N) A STATE NETLIST) (V-PULLUP A)) NIL) (REWRITE-RULE V-XOR$VALUE ((V-XOR& NETLIST N) (PROPERP A) (EQUAL (LENGTH A) N) (PROPERP B) (EQUAL (LENGTH B) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-XOR) N) (APPEND A B) STATE NETLIST) (FV-XOR A B)) NIL) (REWRITE-RULE V-OR$VALUE ((V-OR& NETLIST N) (PROPERP A) (EQUAL (LENGTH A) N) (PROPERP B) (EQUAL (LENGTH B) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-OR) N) (APPEND A B) STATE NETLIST) (FV-OR A B)) NIL) (REWRITE-RULE V-BUF$VALUE ((V-BUF& NETLIST N) (PROPERP A) (EQUAL (LENGTH A) N)) (EQUAL (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE V-BUF) N) A STATE NETLIST) (V-THREEFIX A)) NIL) (REWRITE-RULE MEM-32X32$STRUCTURED-STATE ((MEM-32X32& NETLIST) (EQUAL (LENGTH ADDR) (QUOTE 32)) (PROPERP ADDR) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (NEXT-MEMORY-STATE STATE STROBE- RW- ADDR DATA)) NIL) (REWRITE-RULE MEM-32X32$STRUCTURED-STATE-1 ((MEM-32X32& NETLIST) (EQUAL (LENGTH ADDR) (QUOTE 32)) (PROPERP ADDR) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (NEXT-MEMORY-STATE STATE STROBE- RW- (CONS (NTH (QUOTE 0) ADDR) (CONS (NTH (QUOTE 1) ADDR) (CONS (NTH (QUOTE 2) ADDR) (CONS (NTH (QUOTE 3) ADDR) (CONS (NTH (QUOTE 4) ADDR) (CONS (NTH (QUOTE 5) ADDR) (CONS (NTH (QUOTE 6) ADDR) (CONS (NTH (QUOTE 7) ADDR) (CONS (NTH (QUOTE 8) ADDR) (CONS (NTH (QUOTE 9) ADDR) (CONS (NTH (QUOTE 10) ADDR) (CONS (NTH (QUOTE 11) ADDR) (CONS (NTH (QUOTE 12) ADDR) (CONS (NTH (QUOTE 13) ADDR) (CONS (NTH (QUOTE 14) ADDR) (CONS (NTH (QUOTE 15) ADDR) (CONS (NTH (QUOTE 16) ADDR) (CONS (NTH (QUOTE 17) ADDR) (CONS (NTH (QUOTE 18) ADDR) (CONS (NTH (QUOTE 19) ADDR) (CONS (NTH (QUOTE 20) ADDR) (CONS (NTH (QUOTE 21) ADDR) (CONS (NTH (QUOTE 22) ADDR) (CONS (NTH (QUOTE 23) ADDR) (CONS (NTH (QUOTE 24) ADDR) (CONS (NTH (QUOTE 25) ADDR) (CONS (NTH (QUOTE 26) ADDR) (CONS (NTH (QUOTE 27) ADDR) (CONS (NTH (QUOTE 28) ADDR) (CONS (NTH (QUOTE 29) ADDR) (CONS (NTH (QUOTE 30) ADDR) (CONS (NTH (QUOTE 31) ADDR) (QUOTE NIL))))))))))))))))))))))))))))))))) (CONS (NTH (QUOTE 0) DATA) (CONS (NTH (QUOTE 1) DATA) (CONS (NTH (QUOTE 2) DATA) (CONS (NTH (QUOTE 3) DATA) (CONS (NTH (QUOTE 4) DATA) (CONS (NTH (QUOTE 5) DATA) (CONS (NTH (QUOTE 6) DATA) (CONS (NTH (QUOTE 7) DATA) (CONS (NTH (QUOTE 8) DATA) (CONS (NTH (QUOTE 9) DATA) (CONS (NTH (QUOTE 10) DATA) (CONS (NTH (QUOTE 11) DATA) (CONS (NTH (QUOTE 12) DATA) (CONS (NTH (QUOTE 13) DATA) (CONS (NTH (QUOTE 14) DATA) (CONS (NTH (QUOTE 15) DATA) (CONS (NTH (QUOTE 16) DATA) (CONS (NTH (QUOTE 17) DATA) (CONS (NTH (QUOTE 18) DATA) (CONS (NTH (QUOTE 19) DATA) (CONS (NTH (QUOTE 20) DATA) (CONS (NTH (QUOTE 21) DATA) (CONS (NTH (QUOTE 22) DATA) (CONS (NTH (QUOTE 23) DATA) (CONS (NTH (QUOTE 24) DATA) (CONS (NTH (QUOTE 25) DATA) (CONS (NTH (QUOTE 26) DATA) (CONS (NTH (QUOTE 27) DATA) (CONS (NTH (QUOTE 28) DATA) (CONS (NTH (QUOTE 29) DATA) (CONS (NTH (QUOTE 30) DATA) (CONS (NTH (QUOTE 31) DATA) (QUOTE NIL))))))))))))))))))))))))))))))))))) NIL) (REWRITE-RULE MEM-32X32$STRUCTURED-VALUE ((MEM-32X32& NETLIST) (EQUAL (LENGTH ADDR) (QUOTE 32)) (PROPERP ADDR) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (MEMORY-VALUE STATE STROBE- RW- ADDR DATA)) NIL) (REWRITE-RULE MEM-32X32$STRUCTURED-VALUE-1 ((MEM-32X32& NETLIST) (EQUAL (LENGTH ADDR) (QUOTE 32)) (PROPERP ADDR) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) STATE NETLIST) (MEMORY-VALUE STATE STROBE- RW- (CONS (NTH (QUOTE 0) ADDR) (CONS (NTH (QUOTE 1) ADDR) (CONS (NTH (QUOTE 2) ADDR) (CONS (NTH (QUOTE 3) ADDR) (CONS (NTH (QUOTE 4) ADDR) (CONS (NTH (QUOTE 5) ADDR) (CONS (NTH (QUOTE 6) ADDR) (CONS (NTH (QUOTE 7) ADDR) (CONS (NTH (QUOTE 8) ADDR) (CONS (NTH (QUOTE 9) ADDR) (CONS (NTH (QUOTE 10) ADDR) (CONS (NTH (QUOTE 11) ADDR) (CONS (NTH (QUOTE 12) ADDR) (CONS (NTH (QUOTE 13) ADDR) (CONS (NTH (QUOTE 14) ADDR) (CONS (NTH (QUOTE 15) ADDR) (CONS (NTH (QUOTE 16) ADDR) (CONS (NTH (QUOTE 17) ADDR) (CONS (NTH (QUOTE 18) ADDR) (CONS (NTH (QUOTE 19) ADDR) (CONS (NTH (QUOTE 20) ADDR) (CONS (NTH (QUOTE 21) ADDR) (CONS (NTH (QUOTE 22) ADDR) (CONS (NTH (QUOTE 23) ADDR) (CONS (NTH (QUOTE 24) ADDR) (CONS (NTH (QUOTE 25) ADDR) (CONS (NTH (QUOTE 26) ADDR) (CONS (NTH (QUOTE 27) ADDR) (CONS (NTH (QUOTE 28) ADDR) (CONS (NTH (QUOTE 29) ADDR) (CONS (NTH (QUOTE 30) ADDR) (CONS (NTH (QUOTE 31) ADDR) (QUOTE NIL))))))))))))))))))))))))))))))))) (CONS (NTH (QUOTE 0) DATA) (CONS (NTH (QUOTE 1) DATA) (CONS (NTH (QUOTE 2) DATA) (CONS (NTH (QUOTE 3) DATA) (CONS (NTH (QUOTE 4) DATA) (CONS (NTH (QUOTE 5) DATA) (CONS (NTH (QUOTE 6) DATA) (CONS (NTH (QUOTE 7) DATA) (CONS (NTH (QUOTE 8) DATA) (CONS (NTH (QUOTE 9) DATA) (CONS (NTH (QUOTE 10) DATA) (CONS (NTH (QUOTE 11) DATA) (CONS (NTH (QUOTE 12) DATA) (CONS (NTH (QUOTE 13) DATA) (CONS (NTH (QUOTE 14) DATA) (CONS (NTH (QUOTE 15) DATA) (CONS (NTH (QUOTE 16) DATA) (CONS (NTH (QUOTE 17) DATA) (CONS (NTH (QUOTE 18) DATA) (CONS (NTH (QUOTE 19) DATA) (CONS (NTH (QUOTE 20) DATA) (CONS (NTH (QUOTE 21) DATA) (CONS (NTH (QUOTE 22) DATA) (CONS (NTH (QUOTE 23) DATA) (CONS (NTH (QUOTE 24) DATA) (CONS (NTH (QUOTE 25) DATA) (CONS (NTH (QUOTE 26) DATA) (CONS (NTH (QUOTE 27) DATA) (CONS (NTH (QUOTE 28) DATA) (CONS (NTH (QUOTE 29) DATA) (CONS (NTH (QUOTE 30) DATA) (CONS (NTH (QUOTE 31) DATA) (QUOTE NIL))))))))))))))))))))))))))))))))))) NIL) (REWRITE-RULE DP-RAM-16X32$STRUCTURED-STATE ((DP-RAM-16X32& NETLIST) (EQUAL (LENGTH A) (QUOTE 4)) (PROPERP A) (EQUAL (LENGTH B) (QUOTE 4)) (PROPERP B) (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DP-RAM-16X32) (APPEND A (APPEND B (CONS X C))) STATE NETLIST) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A (APPEND B (CONS X C))) STATE)) NIL) (REWRITE-RULE DP-RAM-16X32$STRUCTURED-VALUE ((DP-RAM-16X32& NETLIST) (EQUAL (LENGTH A) (QUOTE 4)) (PROPERP A) (EQUAL (LENGTH B) (QUOTE 4)) (PROPERP B) (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DP-RAM-16X32) (APPEND A (APPEND B (CONS X C))) STATE NETLIST) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (APPEND A (APPEND B (CONS X C))) STATE)) NIL) (REWRITE-RULE B-BUF-PWR$VALUE ((B-BUF-PWR& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-BUF-PWR) (CONS IN (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF IN) (QUOTE NIL))) NIL) (REWRITE-RULE B-BUF$VALUE ((B-BUF& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-BUF) (CONS IN (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF IN) (QUOTE NIL))) NIL) (REWRITE-RULE MEM-32X32$STATE ((MEM-32X32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (MEM-STATE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE)) NIL) (REWRITE-RULE FD1SLP$STATE ((FD1SLP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST) (F-IF TE TI (F-IF LD D STATE))) NIL) (REWRITE-RULE FD1SP$STATE ((FD1SP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (F-IF TE TI D)) NIL) (REWRITE-RULE FD1S$STATE ((FD1S& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (F-IF TE TI D)) NIL) (REWRITE-RULE FD1$STATE ((FD1& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST) (F-BUF D)) NIL) (REWRITE-RULE DP-RAM-16X32$STATE ((DP-RAM-16X32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 2) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE)) NIL) (REWRITE-RULE VSS$VALUE ((VSS& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VSS) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*FALSE))) NIL) (REWRITE-RULE VDD-PARAMETRIC$VALUE ((VDD-PARAMETRIC& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD-PARAMETRIC) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE VDD$VALUE ((VDD& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE VDD) (QUOTE NIL) STATE NETLIST) (QUOTE (*1*TRUE))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-FAST$VALUE ((TTL-TRI-OUTPUT-FAST& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT-FAST) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT$VALUE ((TTL-TRI-OUTPUT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-TRI-OUTPUT) (CONS A (CONS EN (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL))) NIL) (REWRITE-RULE TTL-OUTPUT-FAST$VALUE ((TTL-OUTPUT-FAST& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-FAST) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE TTL-OUTPUT-PARAMETRIC$VALUE ((TTL-OUTPUT-PARAMETRIC& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT-PARAMETRIC) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE TTL-OUTPUT$VALUE ((TTL-OUTPUT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-OUTPUT) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE TTL-INPUT$VALUE ((TTL-INPUT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL)))) NIL) (REWRITE-RULE TTL-CLK-INPUT$VALUE ((TTL-CLK-INPUT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-CLK-INPUT) (CONS A (CONS PI (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL)))) NIL) (REWRITE-RULE TTL-BIDIRECT$VALUE ((TTL-BIDIRECT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE TTL-BIDIRECT) (CONS IO (CONS A (CONS EN (CONS PI (QUOTE NIL))))) STATE NETLIST) (CONS (FT-BUF (F-NOT EN) A) (CONS (F-BUF (FT-WIRE IO (FT-BUF (F-NOT EN) A))) (CONS (F-NAND (FT-WIRE IO (FT-BUF (F-NOT EN) A)) PI) (QUOTE NIL))))) NIL) (REWRITE-RULE PULLUP$VALUE ((PULLUP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PULLUP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-PULLUP A) (QUOTE NIL))) NIL) (REWRITE-RULE T-WIRE$VALUE ((T-WIRE& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-WIRE) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (FT-WIRE A B) (QUOTE NIL))) NIL) (REWRITE-RULE T-BUF$VALUE ((T-BUF& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE T-BUF) (CONS E (CONS A (QUOTE NIL))) STATE NETLIST) (CONS (FT-BUF E A) (QUOTE NIL))) NIL) (REWRITE-RULE RAM-ENABLE-CIRCUIT$VALUE ((RAM-ENABLE-CIRCUIT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE RAM-ENABLE-CIRCUIT) (CONS CLK (CONS TEST-REGFILE- (CONS DISABLE-REGFILE- (CONS WE (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND DISABLE-REGFILE- WE) (QUOTE NIL))) NIL) (REWRITE-RULE MEM-32X32$VALUE ((MEM-32X32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE MEM-32X32) (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (MEM-VALUE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE)) NIL) (REWRITE-RULE ID$VALUE ((ID& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE ID) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS A (QUOTE NIL))) NIL) (REWRITE-RULE FD1SLP$VALUE ((FD1SLP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SLP) (CONS D (CONS CP (CONS LD (CONS TI (CONS TE (QUOTE NIL)))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE FD1SP$VALUE ((FD1SP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1SP) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE FD1S$VALUE ((FD1S& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1S) (CONS D (CONS CP (CONS TI (CONS TE (QUOTE NIL))))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE FD1$VALUE ((FD1& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE FD1) (CONS D (CONS CP (QUOTE NIL))) STATE NETLIST) (CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL)))) NIL) (REWRITE-RULE DP-RAM-16X32$VALUE ((DP-RAM-16X32& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DP-RAM-16X32) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE NETLIST) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE)) NIL) (REWRITE-RULE PROCMON$VALUE ((PROCMON& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE PROCMON) (CONS A (CONS E (CONS S (CONS N (QUOTE NIL))))) STATE NETLIST) (CONS (F-IF S (F-IF E (F-IF A (QUOTE *1*FALSE) (QUOTE *1*FALSE)) A) N) (QUOTE NIL))) NIL) (REWRITE-RULE DEL10$VALUE ((DEL10& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL10) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE DEL4$VALUE ((DEL4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL4) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE DEL2$VALUE ((DEL2& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE DEL2) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-BUF A) (QUOTE NIL))) NIL) (REWRITE-RULE B-XOR3$VALUE ((B-XOR3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-XOR3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-XOR$VALUE ((B-XOR& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-XOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-XOR A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-OR4$VALUE ((B-OR4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-OR4 A B C D) (QUOTE NIL))) NIL) (REWRITE-RULE B-OR3$VALUE ((B-OR3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-OR3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-OR$VALUE ((B-OR& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-OR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-OR A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOT-IVAP$VALUE ((B-NOT-IVAP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-IVAP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOT-B4IP$VALUE ((B-NOT-B4IP& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT-B4IP) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOT$VALUE ((B-NOT& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOT) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR8$VALUE ((B-NOR8& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST) (CONS (F-NOR8 A B C D E G H I) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR6$VALUE ((B-NOR6& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST) (CONS (F-NOR6 A B C D E G) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR5$VALUE ((B-NOR5& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST) (CONS (F-NOR5 A B C D E) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR4$VALUE ((B-NOR4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NOR4 A B C D) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR3$VALUE ((B-NOR3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NOR3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-NOR$VALUE ((B-NOR& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NOR) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-NOR A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-NBUF$VALUE ((B-NBUF& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NBUF) (CONS A (QUOTE NIL)) STATE NETLIST) (CONS (F-NOT A) (CONS (F-BUF A) (QUOTE NIL)))) NIL) (REWRITE-RULE B-NAND8$VALUE ((B-NAND8& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND8) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (CONS H (CONS I (QUOTE NIL))))))))) STATE NETLIST) (CONS (F-NAND8 A B C D E G H I) (QUOTE NIL))) NIL) (REWRITE-RULE B-NAND6$VALUE ((B-NAND6& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND6) (CONS A (CONS B (CONS C (CONS D (CONS E (CONS G (QUOTE NIL))))))) STATE NETLIST) (CONS (F-NAND6 A B C D E G) (QUOTE NIL))) NIL) (REWRITE-RULE B-NAND5$VALUE ((B-NAND5& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND5) (CONS A (CONS B (CONS C (CONS D (CONS E (QUOTE NIL)))))) STATE NETLIST) (CONS (F-NAND5 A B C D E) (QUOTE NIL))) NIL) (REWRITE-RULE B-NAND4$VALUE ((B-NAND4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND4 A B C D) (QUOTE NIL))) NIL) (REWRITE-RULE B-NAND3$VALUE ((B-NAND3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NAND3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-NAND$VALUE ((B-NAND& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-NAND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-NAND A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-IF$VALUE ((B-IF& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-IF) (CONS S (CONS A (CONS B (QUOTE NIL)))) STATE NETLIST) (CONS (F-IF S A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-EQUV3$VALUE ((B-EQUV3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-EQUV3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-EQUV$VALUE ((B-EQUV& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-EQUV) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-EQUV A B) (QUOTE NIL))) NIL) (REWRITE-RULE B-AND4$VALUE ((B-AND4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-AND4 A B C D) (QUOTE NIL))) NIL) (REWRITE-RULE B-AND3$VALUE ((B-AND3& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND3) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-AND3 A B C) (QUOTE NIL))) NIL) (REWRITE-RULE B-AND$VALUE ((B-AND& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE B-AND) (CONS A (CONS B (QUOTE NIL))) STATE NETLIST) (CONS (F-AND A B) (QUOTE NIL))) NIL) (REWRITE-RULE AO7$VALUE ((AO7& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO7) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NAND (F-OR A B) C) (QUOTE NIL))) NIL) (REWRITE-RULE AO6$VALUE ((AO6& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO6) (CONS A (CONS B (CONS C (QUOTE NIL)))) STATE NETLIST) (CONS (F-NOR (F-AND A B) C) (QUOTE NIL))) NIL) (REWRITE-RULE AO4$VALUE ((AO4& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO4) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NAND (F-OR A B) (F-OR C D)) (QUOTE NIL))) NIL) (REWRITE-RULE AO2$VALUE ((AO2& NETLIST)) (EQUAL (DUAL-EVAL (QUOTE 0) (QUOTE AO2) (CONS A (CONS B (CONS C (CONS D (QUOTE NIL))))) STATE NETLIST) (CONS (F-NOR (F-AND A B) (F-AND C D)) (QUOTE NIL))) NIL) (REWRITE-RULE OPEN-DUAL-EVAL-WITH-FLAG-3 ((LISTP BODY)) (EQUAL (DUAL-EVAL (QUOTE 3) BODY BINDINGS STATE-BINDINGS NETLIST) (CONS (CONS (OCC-NAME (CAR BODY)) (DUAL-EVAL (QUOTE 2) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) (DUAL-EVAL (QUOTE 3) (CDR BODY) BINDINGS STATE-BINDINGS NETLIST))) NIL) (REWRITE-RULE OPEN-DUAL-EVAL-WITH-FLAG-3 ((NOT (LISTP BODY))) (EQUAL (DUAL-EVAL (QUOTE 3) BODY BINDINGS STATE-BINDINGS NETLIST) (QUOTE NIL)) NIL) (REWRITE-RULE OPEN-DUAL-EVAL-WITH-FLAG-1 ((LISTP BODY)) (EQUAL (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) (DUAL-EVAL (QUOTE 1) (CDR BODY) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR BODY)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR BODY)) (COLLECT-VALUE (OCC-INPUTS (CAR BODY)) BINDINGS) (VALUE (OCC-NAME (CAR BODY)) STATE-BINDINGS) NETLIST)) BINDINGS) STATE-BINDINGS NETLIST)) NIL) (REWRITE-RULE OPEN-DUAL-EVAL-WITH-FLAG-1 ((NOT (LISTP BODY))) (EQUAL (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST) BINDINGS) NIL) (REWRITE-RULE EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) ARGS) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST)))) NIL) (REWRITE-RULE EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE FN NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE FN NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE FN NETLIST)) ARGS) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)) STATE) (DELETE-MODULE FN NETLIST)))) NIL)) TOTALP-LST ((DUAL-EVAL)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (FLAG X0 X1 X2 NETLIST) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP X0) (DUAL-APPLY-VALUE X0 X1 X2) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST))) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP X0) (DUAL-EVAL (QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST)) X1) X2 NETLIST) X1) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP X0) (DUAL-APPLY-STATE X0 X1 X2) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST))) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP X0) (CONS (CONS (OCC-NAME (CAR X0)) (DUAL-EVAL (QUOTE 2) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST)) (DUAL-EVAL (QUOTE 3) (CDR X0) X1 X2 NETLIST)) (QUOTE NIL)) (QUOTE *1*FALSE)))))) LISP-CODE *1*DUAL-EVAL SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP X0)) (LISTP (LOOKUP-MODULE X0 NETLIST))) (((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)))) (TESTS-AND-CASES ((EQUAL FLAG (QUOTE 0)) (NOT (PRIMP X0)) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (LISTP X0)) (((QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST)) X1) X2 NETLIST) ((QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (EQUAL FLAG (QUOTE 1)) (NOT (LISTP X0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (PRIMP X0)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP X0)) (LISTP (LOOKUP-MODULE X0 NETLIST))) (((QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)) ((QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (EQUAL FLAG (QUOTE 2)) (NOT (PRIMP X0)) (NOT (LISTP (LOOKUP-MODULE X0 NETLIST)))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (LISTP X0)) (((QUOTE 3) (CDR X0) X1 X2 NETLIST) ((QUOTE 2) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST))) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (EQUAL FLAG (QUOTE 3)) (NOT (LISTP X0))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLAG (QUOTE 0))) (NOT (EQUAL FLAG (QUOTE 1))) (NOT (EQUAL FLAG (QUOTE 2))) (NOT (EQUAL FLAG (QUOTE 3)))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (X0 NETLIST) (CONS (ADD1 (COUNT NETLIST)) (COUNT X0)) ORD-LESSP (CAR-LESSP CDR-LESSEQP CAR-LESSEQP OCC-FUNCTION CDR-LESSP EQUAL LESSP-X-X ZERO DELETE-MODULE-LOOKUP-MODULE-COUNT MODULE-OCCURRENCES ADD1-EQUAL ORD-LESSP LESSP SUB1-ADD1 CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402194004 CONTROLLER-POCKETS (18) SATELLITES (*1*DUAL-EVAL) IMMEDIATE-DEPENDENTS0 (DOUBLET-N-SIMULATE-INDUCTION SIMULATE-MONOTONE-INDUCTION GOOD-S-PRESERVED ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE DUAL-EVAL-2-PRIMP DUAL-EVAL-0-PRIMP MONOTONICITY-PROPERTY-OPENER-3 MONOTONICITY-PROPERTY-OPENER-2 MONOTONICITY-PROPERTY-OPENER-1 MONOTONICITY-PROPERTY-OPENER-0 MONOTONICITY-PROPERTY-CONSEQUENCE-3 MONOTONICITY-PROPERTY-CONSEQUENCE-2 MONOTONICITY-PROPERTY-CONSEQUENCE-1 MONOTONICITY-PROPERTY-CONSEQUENCE-0 MONOTONICITY-PROPERTY CHIP-SYSTEM=FM9001$STEP CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE-AS-V-INC V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER-BODY$INDUCTION M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-WIRE$BODY-VALUE V-PULLUP$VALUE V-PULLUP$BODY-VALUE V-XOR$VALUE V-XOR$BODY-VALUE V-OR$VALUE V-OR$BODY-VALUE V-BUF$VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1 DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE OPEN-SIMULATE-DUAL-EVAL-2 SIMULATE-DUAL-EVAL-2 SIMULATE OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL-OFF) EVENT (DEFN DUAL-EVAL (FLAG X0 X1 X2 NETLIST) (IF (EQUAL FLAG (QUOTE 0)) (IF (PRIMP X0) (DUAL-APPLY-VALUE X0 X1 X2) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COLLECT-VALUE (MODULE-OUTPUTS (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST))) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 1)) (IF (LISTP X0) (DUAL-EVAL (QUOTE 1) (CDR X0) (APPEND (PAIRLIST (OCC-OUTPUTS (CAR X0)) (DUAL-EVAL (QUOTE 0) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST)) X1) X2 NETLIST) X1) (IF (EQUAL FLAG (QUOTE 2)) (IF (PRIMP X0) (DUAL-APPLY-STATE X0 X1 X2) (IF (LISTP (LOOKUP-MODULE X0 NETLIST)) (COLLECT-STATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 3) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (DUAL-EVAL (QUOTE 1) (MODULE-OCCURRENCES (LOOKUP-MODULE X0 NETLIST)) (PAIRLIST (MODULE-INPUTS (LOOKUP-MODULE X0 NETLIST)) X1) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST)) (PAIRSTATES (MODULE-STATENAMES (LOOKUP-MODULE X0 NETLIST)) X2) (DELETE-MODULE X0 NETLIST))) (QUOTE *1*FALSE))) (IF (EQUAL FLAG (QUOTE 3)) (IF (LISTP X0) (CONS (CONS (OCC-NAME (CAR X0)) (DUAL-EVAL (QUOTE 2) (OCC-FUNCTION (CAR X0)) (COLLECT-VALUE (OCC-INPUTS (CAR X0)) X1) (VALUE (OCC-NAME (CAR X0)) X2) NETLIST)) (DUAL-EVAL (QUOTE 3) (CDR X0) X1 X2 NETLIST)) (QUOTE NIL)) (QUOTE *1*FALSE))))) ((ORD-LESSP (CONS (ADD1 (COUNT NETLIST)) (COUNT X0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-STATES . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 OCC-NAME . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 VALUE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 OCC-INPUTS . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 OCC-OUTPUTS . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 MODULE-STATENAMES . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 MODULE-INPUTS . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 MODULE-OUTPUTS . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 PRIMP . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 OCC-FUNCTION . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE-LOOKUP-MODULE-COUNT . DUAL-EVAL) (IMMEDIATE-DEPENDENTS0 MODULE-OCCURRENCES . DUAL-EVAL) (DCELL . *1*DUAL-EVAL))))) (PUT1-LST (QUOTE DUAL-APPLY-STATE-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE DUAL-APPLY-STATE-OFF DUAL-APPLY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-STATE . DUAL-APPLY-STATE-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-STATE DUAL-APPLY-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*DUAL-APPLY-STATE) (QUOTE (MAIN-EVENT DUAL-APPLY-STATE))) (PUT1-LST (QUOTE DUAL-APPLY-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-APPLY-STATE -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE DUAL-APPLY-STATE-DP-RAM-16X32 NIL (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) A S)) NIL) (REWRITE-RULE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 NIL (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (CONS (CAR (CDR (CDR (CDR (CDR A))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR A)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR A))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) S)) NIL) (REWRITE-RULE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 NIL (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WEN) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D4) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D5) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D6) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D7) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D8) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D9) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D10) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D11) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D12) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D13) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D14) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D15) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D16) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D17) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D18) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D19) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D20) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D21) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D22) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D23) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D24) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D25) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D26) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D27) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D28) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D29) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D30) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D31) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) (EVAL$ (QUOTE *1*TRUE) (QUOTE STATE) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))))) NIL) (REWRITE-RULE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 NIL (EQUAL (DUAL-APPLY-STATE (QUOTE DP-RAM-16X32) A S) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE NEW-STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) (APPEND (PAIRLIST (CDR (LOOKUP-MODULE (QUOTE INPUTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) A) (PAIRSTATES (CDR (LOOKUP-MODULE (QUOTE STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) S)))) NIL)) TOTALP-LST ((DUAL-APPLY-STATE)) SDEFN (LAMBDA (FN ARGS STATE) (EVAL$ (QUOTE *1*TRUE) (PRIMP2 FN (QUOTE NEW-STATES)) (APPEND (PAIRLIST (PRIMP2 FN (QUOTE INPUTS)) ARGS) (PAIRSTATES (PRIMP2 FN (QUOTE STATES)) STATE)))) LISP-CODE *1*DUAL-APPLY-STATE SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194004 SATELLITES (*1*DUAL-APPLY-STATE) IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S DP-RAM-16X32-PRESERVES-GOOD-S VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-EVAL-VSS-STATE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-ID-STATE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1-STATE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL2-STATE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND-STATE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO2-STATE DUAL-EVAL-2-PRIMP MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE DUAL-EVAL DUAL-APPLY-STATE-OFF) EVENT (DEFN DUAL-APPLY-STATE (FN ARGS STATE) (EVAL$ (QUOTE *1*TRUE) (PRIMP2 FN (QUOTE NEW-STATES)) (APPEND (PAIRLIST (PRIMP2 FN (QUOTE INPUTS)) ARGS) (PAIRSTATES (PRIMP2 FN (QUOTE STATES)) STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-STATE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-APPLY-STATE) (DCELL . *1*DUAL-APPLY-STATE))))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE-OFF) (QUOTE (IDATE 1000402194004 EVENT (TOGGLE DUAL-APPLY-VALUE-OFF DUAL-APPLY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUAL-APPLY-VALUE . DUAL-APPLY-VALUE-OFF) (DISABLED-LEMMAS NIL DUAL-APPLY-VALUE DUAL-APPLY-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*DUAL-APPLY-VALUE) (QUOTE (MAIN-EVENT DUAL-APPLY-VALUE))) (PUT1-LST (QUOTE DUAL-APPLY-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-APPLY-VALUE -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE DUAL-APPLY-VALUE-DP-RAM-16X32 NIL (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) A S)) NIL) (REWRITE-RULE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 NIL (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (CONS (CAR (CDR (CDR (CDR (CDR A))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR A)))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR A))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A)))))))))))))))))))))))))))))))))))))))) (CONS (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR (CDR A))))))))))))))))))))))))))))))))))))))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) S)) NIL) (REWRITE-RULE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 NIL (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE READ-A3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WRITE-B3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE WEN) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D0) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D1) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D2) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D3) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D4) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D5) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D6) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D7) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D8) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D9) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D10) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D11) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D12) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D13) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D14) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D15) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D16) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D17) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D18) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D19) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D20) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D21) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D22) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D23) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D24) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D25) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D26) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D27) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D28) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D29) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D30) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (CONS (EVAL$ (QUOTE *1*TRUE) (QUOTE D31) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) (EVAL$ (QUOTE *1*TRUE) (QUOTE STATE) (APPEND (PAIRLIST (QUOTE (READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31)) A) (PAIRSTATES (QUOTE STATE) S))))) NIL) (REWRITE-RULE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 NIL (EQUAL (DUAL-APPLY-VALUE (QUOTE DP-RAM-16X32) A S) (EVAL$ (QUOTE *1*TRUE) (CDR (LOOKUP-MODULE (QUOTE RESULTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) (APPEND (PAIRLIST (CDR (LOOKUP-MODULE (QUOTE INPUTS) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) A) (PAIRSTATES (CDR (LOOKUP-MODULE (QUOTE STATES) (CDR (PRIMP (QUOTE DP-RAM-16X32))))) S)))) NIL)) TOTALP-LST ((DUAL-APPLY-VALUE)) SDEFN (LAMBDA (FN ARGS STATE) (EVAL$ (QUOTE *1*TRUE) (PRIMP2 FN (QUOTE RESULTS)) (APPEND (PAIRLIST (PRIMP2 FN (QUOTE INPUTS)) ARGS) (PAIRSTATES (PRIMP2 FN (QUOTE STATES)) STATE)))) LISP-CODE *1*DUAL-APPLY-VALUE SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402194004 SATELLITES (*1*DUAL-APPLY-VALUE) IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-VALUE DUAL-EVAL-0-PRIMP VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE DUAL-EVAL DUAL-APPLY-VALUE-OFF) EVENT (DEFN DUAL-APPLY-VALUE (FN ARGS STATE) (EVAL$ (QUOTE *1*TRUE) (PRIMP2 FN (QUOTE RESULTS)) (APPEND (PAIRLIST (PRIMP2 FN (QUOTE INPUTS)) ARGS) (PAIRSTATES (PRIMP2 FN (QUOTE STATES)) STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRSTATES . DUAL-APPLY-VALUE) (IMMEDIATE-DEPENDENTS0 PRIMP2 . DUAL-APPLY-VALUE) (DCELL . *1*DUAL-APPLY-VALUE))))) (PUT1-LST (QUOTE *1*PRIMP2) (QUOTE (MAIN-EVENT PRIMP2))) (PUT1-LST (QUOTE PRIMP2) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP2 -1 NIL NIL)) TOTALP-LST ((PRIMP2 . T)) SDEFN (LAMBDA (FN NAME) (CDR (PRIMP-LOOKUP FN NAME))) LISP-CODE *1*PRIMP2 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*PRIMP2) IMMEDIATE-DEPENDENTS0 (VSS-PRESERVES-GOOD-S VDD-PARAMETRIC-PRESERVES-GOOD-S VDD-PRESERVES-GOOD-S TTL-TRI-OUTPUT-FAST-PRESERVES-GOOD-S TTL-TRI-OUTPUT-PRESERVES-GOOD-S TTL-OUTPUT-FAST-PRESERVES-GOOD-S TTL-OUTPUT-PARAMETRIC-PRESERVES-GOOD-S TTL-OUTPUT-PRESERVES-GOOD-S TTL-INPUT-PRESERVES-GOOD-S TTL-CLK-INPUT-PRESERVES-GOOD-S TTL-BIDIRECT-PRESERVES-GOOD-S PULLUP-PRESERVES-GOOD-S T-WIRE-PRESERVES-GOOD-S T-BUF-PRESERVES-GOOD-S RAM-ENABLE-CIRCUIT-PRESERVES-GOOD-S ID-PRESERVES-GOOD-S FD1SLP-PRESERVES-GOOD-S FD1SP-PRESERVES-GOOD-S FD1S-PRESERVES-GOOD-S FD1-PRESERVES-GOOD-S PROCMON-PRESERVES-GOOD-S DEL10-PRESERVES-GOOD-S DEL4-PRESERVES-GOOD-S DEL2-PRESERVES-GOOD-S B-XOR3-PRESERVES-GOOD-S B-XOR-PRESERVES-GOOD-S B-OR4-PRESERVES-GOOD-S B-OR3-PRESERVES-GOOD-S B-OR-PRESERVES-GOOD-S B-NOT-IVAP-PRESERVES-GOOD-S B-NOT-B4IP-PRESERVES-GOOD-S B-NOT-PRESERVES-GOOD-S B-NOR8-PRESERVES-GOOD-S B-NOR6-PRESERVES-GOOD-S B-NOR5-PRESERVES-GOOD-S B-NOR4-PRESERVES-GOOD-S B-NOR3-PRESERVES-GOOD-S B-NOR-PRESERVES-GOOD-S B-NBUF-PRESERVES-GOOD-S B-NAND8-PRESERVES-GOOD-S B-NAND6-PRESERVES-GOOD-S B-NAND5-PRESERVES-GOOD-S B-NAND4-PRESERVES-GOOD-S B-NAND3-PRESERVES-GOOD-S B-NAND-PRESERVES-GOOD-S B-IF-PRESERVES-GOOD-S B-EQUV3-PRESERVES-GOOD-S B-EQUV-PRESERVES-GOOD-S B-AND4-PRESERVES-GOOD-S B-AND3-PRESERVES-GOOD-S B-AND-PRESERVES-GOOD-S AO7-PRESERVES-GOOD-S AO6-PRESERVES-GOOD-S AO4-PRESERVES-GOOD-S AO2-PRESERVES-GOOD-S DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE COUNT-PRIMITIVES MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUTPUT-DEPENDENCIES OUT-DEPENDS PRIMITIVE-COUNT LSI-FUNCTION-NAME OCC-FUNCTION-OK LOADINGS-AND-DRIVES-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE OUT-DEPENDS-SIMPLE OCC-SYNTAX-SIMPLE-OKP DUAL-APPLY-STATE DUAL-APPLY-VALUE) EVENT (DEFN PRIMP2 (FN NAME) (CDR (PRIMP-LOOKUP FN NAME))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-LOOKUP . PRIMP2) (DCELL . *1*PRIMP2))))) (PUT1-LST (QUOTE *1*PRIMP-LOOKUP) (QUOTE (MAIN-EVENT PRIMP-LOOKUP))) (PUT1-LST (QUOTE PRIMP-LOOKUP) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP-LOOKUP 17 NIL NIL)) TOTALP-LST ((PRIMP-LOOKUP . T)) SDEFN (LAMBDA (FN NAME) (LOOKUP-MODULE NAME (CDR (PRIMP FN)))) LISP-CODE *1*PRIMP-LOOKUP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194004 SATELLITES (*1*PRIMP-LOOKUP) IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 COUNT-PRIMITIVES LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES LSI-FUNCTION-NAME PRIMP2) EVENT (DEFN PRIMP-LOOKUP (FN NAME) (LOOKUP-MODULE NAME (CDR (PRIMP FN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . PRIMP-LOOKUP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PRIMP-LOOKUP) (DCELL . *1*PRIMP-LOOKUP))))) (PUT1-LST (QUOTE NOT-LITATOM==>NOT-PRIMP) (QUOTE (IDATE 1000402194004 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE) EVENT (PROVE-LEMMA NOT-LITATOM==>NOT-PRIMP (REWRITE) (IMPLIES (NOT (LITATOM FN)) (NOT (PRIMP FN))) ((ENABLE LOOKUP-MODULE PRIMP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . NOT-LITATOM==>NOT-PRIMP) (IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE . NOT-LITATOM==>NOT-PRIMP) (IMMEDIATE-DEPENDENTS0 PRIMP . NOT-LITATOM==>NOT-PRIMP) (LEMMAS PRIMP . NOT-LITATOM==>NOT-PRIMP))))) (PUT1-LST (QUOTE PRIMP-OFF) (QUOTE (IDATE 1000402194003 EVENT (TOGGLE PRIMP-OFF PRIMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP . PRIMP-OFF) (DISABLED-LEMMAS NIL PRIMP PRIMP-OFF . T))))) (PUT1-LST (QUOTE *1*PRIMP) (QUOTE (MAIN-EVENT PRIMP))) (PUT1-LST (QUOTE PRIMP) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP 17 NIL)) LEMMAS ((REWRITE-RULE NOT-LITATOM==>NOT-PRIMP ((NOT (LITATOM FN))) (NOT (PRIMP FN)) NIL)) TOTALP-LST ((PRIMP . T)) SDEFN (LAMBDA (FN) (LOOKUP-MODULE FN (PRIMP-DATABASE))) LISP-CODE *1*PRIMP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194003 SATELLITES (*1*PRIMP) IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S DUAL-EVAL-MONOTONE-INDUCTION PRIMP-MONOTONE OK-NETLISTP DP-RAM-16X32-MONOTONE-STATE DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DP-RAM-16X32-MONOTONE-VALUE DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE DUAL-EVAL-2-PRIMP DUAL-EVAL-0-PRIMP CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE REG$STATE REG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE T-CARRY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE COUNT-PRIMITIVES COLLECT-PRIMITIVES B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUTPUT-DEPENDENCIES OUT-DEPENDS PRIMITIVE-COUNT FUNCTION-PROPERTIES LSI-MODULE-NAME-OK MAX-OCC-HIERARCHICAL-NAME LSI-FUNCTION-NAME MODULE-NAME-OK OCC-FUNCTION-OK LOADINGS-AND-DRIVES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE OUT-DEPENDS-SIMPLE MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL PRIMP-LOOKUP NOT-LITATOM==>NOT-PRIMP PRIMP-OFF) EVENT (DEFN PRIMP (FN) (LOOKUP-MODULE FN (PRIMP-DATABASE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PRIMP-DATABASE . PRIMP) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . PRIMP) (DCELL . *1*PRIMP))))) (PUT1-LST (QUOTE *1*OCC-ANNOTATION) (QUOTE (MAIN-EVENT OCC-ANNOTATION))) (PUT1-LST (QUOTE OCC-ANNOTATION) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-ANNOTATION -1 NIL)) TOTALP-LST ((OCC-ANNOTATION . T)) SDEFN (LAMBDA (OCCURRENCE) (CAR (CDR (CDR (CDR (CDR OCCURRENCE)))))) LISP-CODE *1*OCC-ANNOTATION SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*OCC-ANNOTATION) IMMEDIATE-DEPENDENTS0 (LSI-OCC-SYNTAX-OK OCC-SYNTAX-ERRORS OCC-SYNTAX-SIMPLE-OKP) EVENT (DEFN OCC-ANNOTATION (OCCURRENCE) (CAR (CDR (CDR (CDR (CDR OCCURRENCE)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*OCC-ANNOTATION))))) (PUT1-LST (QUOTE *1*OCC-INPUTS) (QUOTE (MAIN-EVENT OCC-INPUTS))) (PUT1-LST (QUOTE OCC-INPUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-INPUTS -1 NIL)) TOTALP-LST ((OCC-INPUTS . T)) SDEFN (LAMBDA (OCCURRENCE) (CAR (CDR (CDR (CDR OCCURRENCE))))) LISP-CODE *1*OCC-INPUTS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*OCC-INPUTS) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE COLLECT-OCCURRENCE-DATA LSI-OCC-SYNTAX-OK MAX-OCC-HIERARCHICAL-NAME UPDATE-OCC-SYNTAX-DATA OCC-SYNTAX-ERRORS LOADINGS-AND-DRIVES-SIMPLE IO-TYPES-SIMPLE OUT-DEPENDS-SIMPLE OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 DUAL-EVAL) EVENT (DEFN OCC-INPUTS (OCCURRENCE) (CAR (CDR (CDR (CDR OCCURRENCE))))) LOCAL-UNDO-TUPLES ((DCELL . *1*OCC-INPUTS))))) (PUT1-LST (QUOTE *1*OCC-FUNCTION) (QUOTE (MAIN-EVENT OCC-FUNCTION))) (PUT1-LST (QUOTE OCC-FUNCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-FUNCTION -1 NIL)) TOTALP-LST ((OCC-FUNCTION . T)) SDEFN (LAMBDA (OCCURRENCE) (CAR (CDR (CDR OCCURRENCE)))) LISP-CODE *1*OCC-FUNCTION SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*OCC-FUNCTION) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM OK-NETLISTP-REDUCTION ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION OK-NETLISTP CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE COUNT-PRIMITIVES COLLECT-PRIMITIVES V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE SUBNET0 COLLECT-OCCURRENCE-DATA UPDATE-LSI-OCC-SYNTAX-DATA LSI-OCC-SYNTAX-OK MAX-OCC-HIERARCHICAL-NAME OCC-SYNTAX-ERRORS LOADINGS-AND-DRIVES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE OUT-DEPENDS-SIMPLE OCC-SYNTAX-SIMPLE-OKP OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 DUAL-EVAL) EVENT (DEFN OCC-FUNCTION (OCCURRENCE) (CAR (CDR (CDR OCCURRENCE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*OCC-FUNCTION))))) (PUT1-LST (QUOTE *1*OCC-OUTPUTS) (QUOTE (MAIN-EVENT OCC-OUTPUTS))) (PUT1-LST (QUOTE OCC-OUTPUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-OUTPUTS -1 NIL)) TOTALP-LST ((OCC-OUTPUTS . T)) SDEFN (LAMBDA (OCCURRENCE) (CAR (CDR OCCURRENCE))) LISP-CODE *1*OCC-OUTPUTS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*OCC-OUTPUTS) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY REG$STATE REG$VALUE REG-BODY$VALUE REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND ALL-UNBOUND-IN-BODY-LISTP ALL-UNBOUND-IN-BODY UNBOUND-IN-BODY-LISTP UNBOUND-IN-BODY B-BUF-PWR$VALUE B-BUF$VALUE COLLECT-OCCURRENCE-DATA LSI-OCC-SYNTAX-OK MAX-OCC-HIERARCHICAL-NAME UPDATE-OCC-SYNTAX-DATA OCC-SYNTAX-ERRORS LOADINGS-AND-DRIVES-SIMPLE IO-TYPES-SIMPLE OUT-DEPENDS-SIMPLE OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-1 DUAL-EVAL) EVENT (DEFN OCC-OUTPUTS (OCCURRENCE) (CAR (CDR OCCURRENCE))) LOCAL-UNDO-TUPLES ((DCELL . *1*OCC-OUTPUTS))))) (PUT1-LST (QUOTE *1*OCC-NAME) (QUOTE (MAIN-EVENT OCC-NAME))) (PUT1-LST (QUOTE OCC-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((OCC-NAME -1 NIL)) TOTALP-LST ((OCC-NAME . T)) SDEFN (LAMBDA (OCCURRENCE) (CAR OCCURRENCE)) LISP-CODE *1*OCC-NAME SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*OCC-NAME) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE COLLECT-OCCURRENCE-DATA LSI-OCC-SYNTAX-OK MAX-OCC-HIERARCHICAL-NAME UPDATE-OCC-SYNTAX-DATA OCC-SYNTAX-OK OCC-SYNTAX-ERRORS STATE-TYPE-REQUIREMENT-SIMPLE OCC-BODY-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 DUAL-EVAL) EVENT (DEFN OCC-NAME (OCCURRENCE) (CAR OCCURRENCE)) LOCAL-UNDO-TUPLES ((DCELL . *1*OCC-NAME))))) (PUT1-LST (QUOTE *1*MODULE-ANNOTATION) (QUOTE (MAIN-EVENT MODULE-ANNOTATION))) (PUT1-LST (QUOTE MODULE-ANNOTATION) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-ANNOTATION -1 NIL)) TOTALP-LST ((MODULE-ANNOTATION . T)) SDEFN (LAMBDA (MODULE) (CAR (CDR (CDR (CDR (CDR (CDR MODULE))))))) LISP-CODE *1*MODULE-ANNOTATION SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-ANNOTATION) IMMEDIATE-DEPENDENTS0 (LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS MODULE-SYNTAX-SIMPLE-OKP) EVENT (DEFN MODULE-ANNOTATION (MODULE) (CAR (CDR (CDR (CDR (CDR (CDR MODULE))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-ANNOTATION))))) (PUT1-LST (QUOTE *1*MODULE-STATENAMES) (QUOTE (MAIN-EVENT MODULE-STATENAMES))) (PUT1-LST (QUOTE MODULE-STATENAMES) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-STATENAMES -1 NIL)) TOTALP-LST ((MODULE-STATENAMES . T)) SDEFN (LAMBDA (MODULE) (CAR (CDR (CDR (CDR (CDR MODULE)))))) LISP-CODE *1*MODULE-STATENAMES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-STATENAMES) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE MODULE-DATA LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS STATE-TYPE-REQUIREMENT-SIMPLE MODULE-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL) EVENT (DEFN MODULE-STATENAMES (MODULE) (CAR (CDR (CDR (CDR (CDR MODULE)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-STATENAMES))))) (PUT1-LST (QUOTE *1*MODULE-OCCURRENCES) (QUOTE (MAIN-EVENT MODULE-OCCURRENCES))) (PUT1-LST (QUOTE MODULE-OCCURRENCES) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-OCCURRENCES -1 NIL)) TOTALP-LST ((MODULE-OCCURRENCES . T)) SDEFN (LAMBDA (MODULE) (CAR (CDR (CDR (CDR MODULE))))) LISP-CODE *1*MODULE-OCCURRENCES SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-OCCURRENCES) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM OK-NETLISTP-REDUCTION ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION OK-NETLISTP CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE COUNT-PRIMITIVES COLLECT-PRIMITIVES V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE SUBNET0 MODULE-DATA LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS LOADINGS-AND-DRIVES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE OUT-DEPENDS-SIMPLE MODULE-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL) EVENT (DEFN MODULE-OCCURRENCES (MODULE) (CAR (CDR (CDR (CDR MODULE))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-OCCURRENCES))))) (PUT1-LST (QUOTE *1*MODULE-OUTPUTS) (QUOTE (MAIN-EVENT MODULE-OUTPUTS))) (PUT1-LST (QUOTE MODULE-OUTPUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-OUTPUTS -1 NIL)) TOTALP-LST ((MODULE-OUTPUTS . T)) SDEFN (LAMBDA (MODULE) (CAR (CDR (CDR MODULE)))) LISP-CODE *1*MODULE-OUTPUTS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-OUTPUTS) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM CHIP$VALUE CHIP-MODULE$VALUE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$VALUE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$VALUE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$VALUE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE B-BUF-PWR$VALUE B-BUF$VALUE MODULE-DATA LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS OCC-FUNCTION-OK NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE IO-TYPES-SIMPLE OUT-DEPENDS-SIMPLE MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL) EVENT (DEFN MODULE-OUTPUTS (MODULE) (CAR (CDR (CDR MODULE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-OUTPUTS))))) (PUT1-LST (QUOTE *1*MODULE-INPUTS) (QUOTE (MAIN-EVENT MODULE-INPUTS))) (PUT1-LST (QUOTE MODULE-INPUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-INPUTS -1 NIL)) TOTALP-LST ((MODULE-INPUTS . T)) SDEFN (LAMBDA (MODULE) (CAR (CDR MODULE))) LISP-CODE *1*MODULE-INPUTS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-INPUTS) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM ALISTP-DUAL-EVAL-3 ALISTP-DUAL-EVAL-1 DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE OUTPUT-DEPENDENCIES MODULE-DATA LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-ERRORS OCC-FUNCTION-OK NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE NETLIST-TYPE-TABLE-SIMPLE IO-TYPES-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL) EVENT (DEFN MODULE-INPUTS (MODULE) (CAR (CDR MODULE))) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-INPUTS))))) (PUT1-LST (QUOTE *1*MODULE-NAME) (QUOTE (MAIN-EVENT MODULE-NAME))) (PUT1-LST (QUOTE MODULE-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((MODULE-NAME -1 NIL)) TOTALP-LST ((MODULE-NAME . T)) SDEFN (LAMBDA (MODULE) (CAR MODULE)) LISP-CODE *1*MODULE-NAME SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194003 SATELLITES (*1*MODULE-NAME) IMMEDIATE-DEPENDENTS0 (MODULE-DATA LSI-MODULE-SYNTAX-CHECK MODULE-SYNTAX-OK MODULE-SYNTAX-ERRORS NETLIST-LOADINGS-AND-DRIVES-SIMPLE NETLIST-STATE-TYPES-SIMPLE NETLIST-TYPES-ACCEPTABLE-LIST NETLIST-TYPE-TABLE-SIMPLE SIMPLE-DEPENDENCY-TABLE MODULE-SYNTAX-SIMPLE-OKP) EVENT (DEFN MODULE-NAME (MODULE) (CAR MODULE)) LOCAL-UNDO-TUPLES ((DCELL . *1*MODULE-NAME))))) (PUT1-LST (QUOTE *1*COLLECT-STATES) (QUOTE (MAIN-EVENT COLLECT-STATES))) (PUT1-LST (QUOTE COLLECT-STATES) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-STATES -1 NIL NIL)) TOTALP-LST ((COLLECT-STATES . T)) SDEFN (LAMBDA (STATENAMES STATE-BINDINGS) (IF (LISTP STATENAMES) (COLLECT-VALUE STATENAMES STATE-BINDINGS) (IF (EQUAL STATENAMES (QUOTE NIL)) (COLLECT-VALUE STATENAMES STATE-BINDINGS) (VALUE STATENAMES STATE-BINDINGS)))) LISP-CODE *1*COLLECT-STATES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402194003 SATELLITES (*1*COLLECT-STATES) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE WE-REG$STATE REG$STATE M2$STATE M1$STATE STATE-TYPE-REQUIREMENT-SIMPLE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS DUAL-EVAL) EVENT (DEFN COLLECT-STATES (STATENAMES STATE-BINDINGS) (IF (OR (LISTP STATENAMES) (EQUAL STATENAMES (QUOTE NIL))) (COLLECT-VALUE STATENAMES STATE-BINDINGS) (VALUE STATENAMES STATE-BINDINGS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-STATES) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-STATES) (DCELL . *1*COLLECT-STATES))))) (PUT1-LST (QUOTE *1*PAIRSTATES) (QUOTE (MAIN-EVENT PAIRSTATES))) (PUT1-LST (QUOTE PAIRSTATES) (QUOTE (TYPE-PRESCRIPTION-LST ((PAIRSTATES 24 NIL NIL)) TOTALP-LST ((PAIRSTATES . T)) SDEFN (LAMBDA (STATENAMES STATE) (IF (LISTP STATENAMES) (PAIRLIST STATENAMES STATE) (IF (EQUAL STATENAMES (QUOTE NIL)) (PAIRLIST STATENAMES STATE) (CONS (CONS STATENAMES STATE) (QUOTE NIL))))) LISP-CODE *1*PAIRSTATES SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194003 SATELLITES (*1*PAIRSTATES) IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM DUAL-EVAL-MONOTONE-INDUCTION DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL DUAL-APPLY-STATE DUAL-APPLY-VALUE) EVENT (DEFN PAIRSTATES (STATENAMES STATE) (IF (OR (LISTP STATENAMES) (EQUAL STATENAMES (QUOTE NIL))) (PAIRLIST STATENAMES STATE) (CONS (CONS STATENAMES STATE) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PAIRSTATES))))) (PUT1-LST (QUOTE DELETE-MODULE-LOOKUP-MODULE-COUNT) (QUOTE (IDATE 1000402194003 IMMEDIATE-DEPENDENTS0 (OK-NETLISTP-REDUCTION DUAL-EVAL-MONOTONE-INDUCTION OK-NETLISTP COUNT-PRIMITIVES COLLECT-PRIMITIVES LOADINGS-AND-DRIVES-SIMPLE PARENT-SYNONYM-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE ADD-NEW-TYPE TYPE-VALUE-SIMPLE OUT-DEPENDS-SIMPLE LESSP-UNBIND-LIST-COUNT DUAL-EVAL) EVENT (PROVE-LEMMA DELETE-MODULE-LOOKUP-MODULE-COUNT (REWRITE) (IMPLIES (LOOKUP-MODULE NAME NETLIST) (LESSP (COUNT (DELETE-MODULE NAME NETLIST)) (COUNT NETLIST))) ((ENABLE LOOKUP-MODULE DELETE-MODULE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . DELETE-MODULE-LOOKUP-MODULE-COUNT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DELETE-MODULE-LOOKUP-MODULE-COUNT) (IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DELETE-MODULE-LOOKUP-MODULE-COUNT) (IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . DELETE-MODULE-LOOKUP-MODULE-COUNT) (LINEAR-LEMMAS COUNT . DELETE-MODULE-LOOKUP-MODULE-COUNT))))) (PUT1-LST (QUOTE DELETE-MODULE-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE DELETE-MODULE-OFF DELETE-MODULE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-MODULE . DELETE-MODULE-OFF) (DISABLED-LEMMAS NIL DELETE-MODULE DELETE-MODULE-OFF . T))))) (PUT1-LST (QUOTE *1*DELETE-MODULE) (QUOTE (MAIN-EVENT DELETE-MODULE))) (PUT1-LST (QUOTE DELETE-MODULE) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE-MODULE -1 NIL T)) TOTALP-LST ((DELETE-MODULE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAME NETLIST) (IF (LISTP NETLIST) (IF (LISTP (CAR NETLIST)) (IF (EQUAL (CAR (CAR NETLIST)) NAME) (CDR NETLIST) (CONS (CAR NETLIST) (DELETE-MODULE NAME (CDR NETLIST)))) (CONS (CAR NETLIST) (DELETE-MODULE NAME (CDR NETLIST)))) NETLIST)) LISP-CODE *1*DELETE-MODULE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME))) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME)))) ((NAME (CDR NETLIST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (CDR-LESSP NLISTP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194002 CONTROLLER-POCKETS (2) SATELLITES (*1*DELETE-MODULE) IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-MONOTONE-INDUCTION OK-NETLISTP CHIP-SYSTEM& CHIP& CHIP-MODULE& TTL-BIDIRECT-PADS& TTL-TRI-OUTPUT-PADS& TTL-OUTPUT-PADS& TTL-INPUT-PADS& EXTEND-IMMEDIATE& FLAGS& REGFILE& NEXT-CNTL-STATE& CV& NEXT-STATE& CONTROL-LET& ENCODE-32& DECODE-5& FANOUT-32& FANOUT-5& FANOUT-4& V-IF-F-4& SELECT-OP-CODE& DECODE-REG-MODE& UNARY-OP-CODE-P& B-STORE-RESULTP& STORE-RESULTP-MUX& CORE-ALU& TV-SHIFT-OR-BUF& SHIFT-OR-BUF-CNTL& OVERFLOW-HELP& CARRY-OUT-HELP& TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-INDUCTION TV-ALU-HELP& ALU-CELL& G-CELL& P-CELL& CARRY-IN-HELP& MPG& DECODE-GEN& DECODE-PROP& DECODE-MODE& WE-REG& REG& DEC-PASS& TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG& DEC-PASS-CELL& V-INC4& V-EQUAL& FAST-ZERO& TV-ZEROP& T-OR-NOR-INDUCTION T-OR-NOR& TV-IF-LEMMA-CROCK TV-IF-INDUCTION TV-IF& T-CARRY& BV-ADDER& M2& M1& FULL-ADDER& HALF-ADDER& COUNT-PRIMITIVES COLLECT-PRIMITIVES V-WIRE& V-PULLUP& V-XOR& V-OR& V-BUF& B-BUF-PWR& B-BUF& LOADINGS-AND-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE FIX-LOADINGS ADD-LOADING-SIMPLE PARENT-SYNONYM-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE ADD-NEW-TYPE TYPE-VALUE-SIMPLE OUT-DEPENDS-SIMPLE LOOKUP-MODULE-IN-DELETE-MODULE UNBIND EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL DELETE-MODULE-LOOKUP-MODULE-COUNT DELETE-MODULE-OFF) EVENT (DEFN DELETE-MODULE (NAME NETLIST) (IF (NLISTP NETLIST) NETLIST (IF (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME)) (CDR NETLIST) (CONS (CAR NETLIST) (DELETE-MODULE NAME (CDR NETLIST)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DELETE-MODULE) (DCELL . *1*DELETE-MODULE))))) (PUT1-LST (QUOTE LOOKUP-MODULE-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE LOOKUP-MODULE-OFF LOOKUP-MODULE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOOKUP-MODULE . LOOKUP-MODULE-OFF) (DISABLED-LEMMAS NIL LOOKUP-MODULE LOOKUP-MODULE-OFF . T))))) (PUT1-LST (QUOTE *1*LOOKUP-MODULE) (QUOTE (MAIN-EVENT LOOKUP-MODULE))) (PUT1-LST (QUOTE LOOKUP-MODULE) (QUOTE (TYPE-PRESCRIPTION-LST ((LOOKUP-MODULE 17 NIL NIL)) LEMMAS ((REWRITE-RULE LOOKUP-MODULE-IN-UNBIND-LIST ((NOT (MEMBER K U)) (LOOKUP-MODULE K M)) (LOOKUP-MODULE K (UNBIND-LIST U M)) NIL) (REWRITE-RULE LOOKUP-MODULE-IN-DELETE-MODULE ((NOT (EQUAL K1 K2)) (LOOKUP-MODULE K1 M)) (LOOKUP-MODULE K1 (DELETE-MODULE K2 M)) NIL)) TOTALP-LST ((LOOKUP-MODULE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAME NETLIST) (IF (LISTP NETLIST) (IF (LISTP (CAR NETLIST)) (IF (EQUAL (CAR (CAR NETLIST)) NAME) (CAR NETLIST) (LOOKUP-MODULE NAME (CDR NETLIST))) (LOOKUP-MODULE NAME (CDR NETLIST))) (QUOTE *1*FALSE))) LISP-CODE *1*LOOKUP-MODULE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP NETLIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME))) NIL) (TESTS-AND-CASES ((NOT (NLISTP NETLIST)) (NOT (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME)))) ((NAME (CDR NETLIST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (NETLIST) (COUNT NETLIST) LESSP (CDR-LESSP NLISTP AND LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194002 CONTROLLER-POCKETS (2) SATELLITES (*1*LOOKUP-MODULE) IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S DUAL-EVAL-MONOTONE-INDUCTION PRIMP-MONOTONE OK-NETLISTP DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-1 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-1 CHIP-SYSTEM& CHIP& CHIP-MODULE& TTL-BIDIRECT-PADS& TTL-TRI-OUTPUT-PADS& TTL-OUTPUT-PADS& TTL-INPUT-PADS& EXTEND-IMMEDIATE& FLAGS& REGFILE& NEXT-CNTL-STATE& CV& NEXT-STATE& CONTROL-LET& ENCODE-32& DECODE-5& FANOUT-32& FANOUT-5& FANOUT-4& V-IF-F-4& SELECT-OP-CODE& DECODE-REG-MODE& UNARY-OP-CODE-P& B-STORE-RESULTP& STORE-RESULTP-MUX& CORE-ALU& TV-SHIFT-OR-BUF& SHIFT-OR-BUF-CNTL& OVERFLOW-HELP& CARRY-OUT-HELP& TV-ALU-HELP& ALU-CELL& G-CELL& P-CELL& CARRY-IN-HELP& MPG& DECODE-GEN& DECODE-PROP& DECODE-MODE& WE-REG& REG& DEC-PASS& TV-DEC-PASS-NG& DEC-PASS-CELL& V-INC4& V-EQUAL& FAST-ZERO& TV-ZEROP& T-OR-NOR& TV-IF& T-CARRY& BV-ADDER& M2& M1& FULL-ADDER& HALF-ADDER& COUNT-PRIMITIVES COLLECT-PRIMITIVES V-WIRE& V-PULLUP& V-XOR& V-OR& V-BUF& B-BUF-PWR& B-BUF& LOADINGS-AND-DRIVES STATE-TYPE-REQUIREMENT IO-TYPES OUTPUT-DEPENDENCIES OUT-DEPENDS PRIMITIVE-COUNT SUBNET0 LSI-MODULE-NAME-OK MODULE-NAME-OK OCC-FUNCTION-OK LOADINGS-AND-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE ADD-LOADING-SIMPLE PARENT-SYNONYM-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE TYPES-ACCEPTABLEP IO-TYPES-SIMPLE ADD-NEW-TYPE TYPE-VALUE-SIMPLE OUTPUT-DEPENDENCIES-SIMPLE OUT-DEPENDS-SIMPLE MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LOOKUP-MODULE-IN-UNBIND-LIST LOOKUP-MODULE-IN-DELETE-MODULE ALIST-ENTRY BOUNDP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL PRIMP-LOOKUP NOT-LITATOM==>NOT-PRIMP PRIMP DELETE-MODULE-LOOKUP-MODULE-COUNT LOOKUP-MODULE-OFF) EVENT (DEFN LOOKUP-MODULE (NAME NETLIST) (IF (NLISTP NETLIST) (QUOTE *1*FALSE) (IF (AND (LISTP (CAR NETLIST)) (EQUAL (CAR (CAR NETLIST)) NAME)) (CAR NETLIST) (LOOKUP-MODULE NAME (CDR NETLIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . LOOKUP-MODULE) (DCELL . *1*LOOKUP-MODULE))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE) (QUOTE (MAIN-EVENT PRIMP-DATABASE))) (PUT1-LST (QUOTE PRIMP-DATABASE) (QUOTE (TYPE-PRESCRIPTION-LST ((PRIMP-DATABASE 16)) TOTALP-LST ((PRIMP-DATABASE . T)) SDEFN (LAMBDA NIL (QUOTE ((AO2 (DELAYS ((263 737) (83 392))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO2) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) (F-AND C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO4 (DELAYS ((260 895) (82 311))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) (F-OR C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO6 (DELAYS ((260 745) (82 202))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO6) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (AO7 (DELAYS ((261 486) (83 293))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO7) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND (DELAYS ((144 422) (54 707))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . AN2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND3 (DELAYS ((146 663) (58 809))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-AND4 (DELAYS ((149 934) (60 870))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AN4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-EQUV (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EN) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-EQUV3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-IF (DELAYS ((70 775) (60 1040))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS S A B) (LOADINGS 2 1 1) (LSI-NAME MUX21H B A S) (OUT-DEPENDS (A B S)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-IF S A B) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NAND (DELAYS ((141 420) (82 161))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . ND2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NAND3 (DELAYS ((142 537) (109 322))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . ND3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NAND4 (DELAYS ((144 588) (144 418))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . ND4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NAND5 (DELAYS ((144 1002) (59 1120))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . ND5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NAND6 (DELAYS ((144 982) (59 1090))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . ND6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NAND8 (DELAYS ((144 1042) (60 1360))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . ND8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NBUF (DELAYS ((142 447) (57 213)) ((143 302) (52 366))) (DRIVES 9 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . IVDA) (OUT-DEPENDS (A) (A)) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Y Z) (RESULTS CONS (F-NOT A) (CONS (F-BUF A) (QUOTE NIL))) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR (DELAYS ((260 460) (59 170))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . NR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR3 (DELAYS ((384 798) (59 224))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . NR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NOR4 (DELAYS ((510 1072) (59 225))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . NR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NOR5 (DELAYS ((145 1493) (55 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . NR5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NOR6 (DELAYS ((146 1593) (55 807))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . NR6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NOR8 (DELAYS ((146 1853) (54 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . NR8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NOT (DELAYS ((70 235) (57 198))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 2) (LSI-NAME . IVA) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 3)) (B-NOT-B4IP (DELAYS ((17 333) (12 124))) (DRIVES 128) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 8) (LSI-NAME . B4IP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NOT-IVAP (DELAYS ((38 208) (35 126))) (DRIVES 20) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . IVAP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR (DELAYS ((143 332) (58 819))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . OR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR3 (DELAYS ((144 422) (70 1185))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . OR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-OR4 (DELAYS ((143 352) (78 1329))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . OR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-XOR (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EO) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-XOR3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EO3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (DEL2 (DELAYS ((70 2035) (38 2199))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL2) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (DEL4 (DELAYS ((73 4017) (38 4179))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL4) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 28)) (DEL10 (DELAYS ((60 10530) (49 10424))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL10) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 19) (PRIMITIVES . 1) (TRANSISTORS . 76)) (PROCMON (DELAYS ((70 25000) (60 25000))) (DRIVES 10) (INPUT-TYPES PARAMETRIC PARAMETRIC PARAMETRIC PARAMETRIC) (INPUTS A E S N) (LOADINGS 2 2 2 1) (LSI-NAME . PROCMON) (OUT-DEPENDS (A E S N)) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (F-IF S (F-IF E (F-IF A (QUOTE *1*FALSE) (QUOTE *1*FALSE)) A) N) (QUOTE NIL)) (GATES . 100) (PRIMITIVES . 1) (TRANSISTORS . 400)) (DP-RAM-16X32 (DELAYS ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500))) (DRIVES 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP LEVEL BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 2 2 2 2 2 2 2 2 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . CMRB100A) (NEW-STATES DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (OUTPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (OUT-DEPENDS (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3)) (OUTPUTS O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES ADDRESSED-STATE 4 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) (STATES . STATE) (GATES . 2368) (PRIMITIVES . 1) (TRANSISTORS . 9472)) (FD1 (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK) (INPUTS D CP) (LOADINGS 1 1) (LSI-NAME . FD1) (NEW-STATES F-BUF D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 26)) (FD1S (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1S) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 9) (PRIMITIVES . 1) (TRANSISTORS . 34)) (FD1SP (DELAYS ((68 1084) (34 1327)) ((65 1712) (32 1596))) (DRIVES 16 16) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1SP) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 10) (PRIMITIVES . 1) (TRANSISTORS . 38)) (FD1SLP (DELAYS ((70 1085) (45 982)) ((67 1493) (35 1568))) (DRIVES 12 12) (INPUT-TYPES BOOLP CLK BOOLP BOOLP BOOLP) (INPUTS D CP LD TI TE) (LOADINGS 1 1 2 1 2) (LSI-NAME . FD1SLP) (NEW-STATES F-IF TE TI (F-IF LD D STATE)) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 12) (PRIMITIVES . 1) (TRANSISTORS . 40)) (ID (DELAYS A) (DRIVES A) (INPUT-TYPES FREE) (INPUTS A) (LOADINGS 0) (LSI-NAME . ID) (OUT-DEPENDS (A)) (OUTPUT-TYPES (A)) (OUTPUTS Z) (RESULTS CONS A (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (MEM-32X32 (DELAYS ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000))) (DRIVES 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS RW- STROBE- A0 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 D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . MEM-32X32) (NEW-STATES MEM-STATE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (OUT-DEPENDS (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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)) (OUTPUT-TYPES BOOLP TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE) (OUTPUTS DTACK- O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS MEM-VALUE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES (ADDRESSED-STATE 32 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) NUMBERP NUMBER-LISTP NUMBERP BOOLP BOOLP (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)) (STATES . STATE) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (RAM-ENABLE-CIRCUIT (DELAYS ((68 12000) (54 12000))) (DRIVES 10) (INPUT-TYPES CLK BOOLP BOOLP BOOLP) (INPUTS CLK TEST-REGFILE- DISABLE-REGFILE- WE) (LOADINGS 1 2 2 2) (LSI-NAME . RAM-ENABLE-CIRCUIT) (OUT-DEPENDS (CLK TEST-REGFILE- DISABLE-REGFILE- WE)) (OUTPUT-TYPES LEVEL) (OUTPUTS Z) (RESULTS CONS (F-NAND DISABLE-REGFILE- WE) (QUOTE NIL)) (GATES . 24) (PRIMITIVES . 1) (TRANSISTORS . 97)) (T-BUF (DELAYS ((146 313) (57 728))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS E A) (LOADINGS 2 2) (LSI-NAME BTS4 A E) (OUT-DEPENDS (A E)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF E A) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (T-WIRE (DELAYS (OR A B)) (DRIVES (MIN A B)) (INPUT-TYPES TRI-STATE TRI-STATE) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . T-WIRE) (OUT-DEPENDS (A B)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-WIRE A B) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (PULLUP (DELAYS A) (DRIVES A) (INPUT-TYPES TRI-STATE) (INPUTS A) (LOADINGS 1) (LSI-NAME . PULLUP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-PULLUP A) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (TTL-BIDIRECT (DELAYS (((61 PS-PF) 1633) ((41 PS-PF) 2253)) ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES (8 MA) 10 10) (INPUT-TYPES TTL-TRI-STATE BOOLP BOOLP PARAMETRIC) (INPUTS IO A EN PI) (LOADINGS (3 PF) 1 1 1) (LSI-NAME . BD8TRP) (OUT-DEPENDS (EN A) (EN A IO) (EN A IO PI)) (OUTPUT-TYPES TTL-TRI-STATE BOOLP PARAMETRIC) (OUTPUTS IO ZI PO) (RESULTS CONS (FT-BUF (F-NOT EN) A) (CONS (F-BUF (FT-WIRE IO (FT-BUF (F-NOT EN) A))) (CONS (F-NAND (FT-WIRE IO (FT-BUF (F-NOT EN) A)) PI) (QUOTE NIL)))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-CLK-INPUT (DELAYS ((4 1225) (4 1152)) ((202 1050) (117 741))) (DRIVES 400 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . DRVT8) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES CLK PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 2) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-INPUT (DELAYS ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES 10 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . TLCHT) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES BOOLP PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT (DELAYS (((61 PS-PF) 812) ((42 PS-PF) 1155))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 5) (LSI-NAME . B8RP) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-PARAMETRIC (DELAYS (((64 PS-PF) 737) ((42 PS-PF) 1125))) (DRIVES (4 MA)) (INPUT-TYPES PARAMETRIC) (INPUTS A) (LOADINGS 3) (LSI-NAME . B4) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-FAST (DELAYS (((36 PS-PF) 991) ((24 PS-PF) 1488))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . B8) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT (DELAYS (((61 PS-PF) 1602) ((41 PS-PF) 2233))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8RP) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT-FAST (DELAYS (((36 PS-PF) 1581) ((24 PS-PF) 2198))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD-PARAMETRIC (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VSS (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VSS) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*FALSE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0))))) LISP-CODE *1*PRIMP-DATABASE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402194002 SATELLITES (*1*PRIMP-DATABASE) IMMEDIATE-DEPENDENTS0 (PRIMP-PRESERVES-GOOD-S PRIMP-MONOTONE PRIMP-DATABASE-PREDICATE NOT-LITATOM==>NOT-PRIMP PRIMP) EVENT (DEFN PRIMP-DATABASE NIL (QUOTE ((AO2 (DELAYS ((263 737) (83 392))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO2) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) (F-AND C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO4 (DELAYS ((260 895) (82 311))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) (F-OR C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO6 (DELAYS ((260 745) (82 202))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO6) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (AO7 (DELAYS ((261 486) (83 293))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO7) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND (DELAYS ((144 422) (54 707))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . AN2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND3 (DELAYS ((146 663) (58 809))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-AND4 (DELAYS ((149 934) (60 870))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AN4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-EQUV (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EN) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-EQUV3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-IF (DELAYS ((70 775) (60 1040))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS S A B) (LOADINGS 2 1 1) (LSI-NAME MUX21H B A S) (OUT-DEPENDS (A B S)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-IF S A B) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NAND (DELAYS ((141 420) (82 161))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . ND2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NAND3 (DELAYS ((142 537) (109 322))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . ND3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NAND4 (DELAYS ((144 588) (144 418))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . ND4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NAND5 (DELAYS ((144 1002) (59 1120))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . ND5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NAND6 (DELAYS ((144 982) (59 1090))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . ND6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NAND8 (DELAYS ((144 1042) (60 1360))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . ND8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NBUF (DELAYS ((142 447) (57 213)) ((143 302) (52 366))) (DRIVES 9 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . IVDA) (OUT-DEPENDS (A) (A)) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Y Z) (RESULTS CONS (F-NOT A) (CONS (F-BUF A) (QUOTE NIL))) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR (DELAYS ((260 460) (59 170))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . NR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR3 (DELAYS ((384 798) (59 224))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . NR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NOR4 (DELAYS ((510 1072) (59 225))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . NR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NOR5 (DELAYS ((145 1493) (55 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . NR5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NOR6 (DELAYS ((146 1593) (55 807))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . NR6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NOR8 (DELAYS ((146 1853) (54 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . NR8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NOT (DELAYS ((70 235) (57 198))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 2) (LSI-NAME . IVA) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 3)) (B-NOT-B4IP (DELAYS ((17 333) (12 124))) (DRIVES 128) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 8) (LSI-NAME . B4IP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NOT-IVAP (DELAYS ((38 208) (35 126))) (DRIVES 20) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . IVAP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR (DELAYS ((143 332) (58 819))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . OR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR3 (DELAYS ((144 422) (70 1185))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . OR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-OR4 (DELAYS ((143 352) (78 1329))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . OR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-XOR (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EO) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-XOR3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EO3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (DEL2 (DELAYS ((70 2035) (38 2199))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL2) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (DEL4 (DELAYS ((73 4017) (38 4179))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL4) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 28)) (DEL10 (DELAYS ((60 10530) (49 10424))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL10) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 19) (PRIMITIVES . 1) (TRANSISTORS . 76)) (PROCMON (DELAYS ((70 25000) (60 25000))) (DRIVES 10) (INPUT-TYPES PARAMETRIC PARAMETRIC PARAMETRIC PARAMETRIC) (INPUTS A E S N) (LOADINGS 2 2 2 1) (LSI-NAME . PROCMON) (OUT-DEPENDS (A E S N)) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (F-IF S (F-IF E (F-IF A (QUOTE *1*FALSE) (QUOTE *1*FALSE)) A) N) (QUOTE NIL)) (GATES . 100) (PRIMITIVES . 1) (TRANSISTORS . 400)) (DP-RAM-16X32 (DELAYS ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500))) (DRIVES 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP LEVEL BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 2 2 2 2 2 2 2 2 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . CMRB100A) (NEW-STATES DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (OUTPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (OUT-DEPENDS (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3)) (OUTPUTS O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES ADDRESSED-STATE 4 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) (STATES . STATE) (GATES . 2368) (PRIMITIVES . 1) (TRANSISTORS . 9472)) (FD1 (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK) (INPUTS D CP) (LOADINGS 1 1) (LSI-NAME . FD1) (NEW-STATES F-BUF D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 26)) (FD1S (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1S) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 9) (PRIMITIVES . 1) (TRANSISTORS . 34)) (FD1SP (DELAYS ((68 1084) (34 1327)) ((65 1712) (32 1596))) (DRIVES 16 16) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1SP) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 10) (PRIMITIVES . 1) (TRANSISTORS . 38)) (FD1SLP (DELAYS ((70 1085) (45 982)) ((67 1493) (35 1568))) (DRIVES 12 12) (INPUT-TYPES BOOLP CLK BOOLP BOOLP BOOLP) (INPUTS D CP LD TI TE) (LOADINGS 1 1 2 1 2) (LSI-NAME . FD1SLP) (NEW-STATES F-IF TE TI (F-IF LD D STATE)) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 12) (PRIMITIVES . 1) (TRANSISTORS . 40)) (ID (DELAYS A) (DRIVES A) (INPUT-TYPES FREE) (INPUTS A) (LOADINGS 0) (LSI-NAME . ID) (OUT-DEPENDS (A)) (OUTPUT-TYPES (A)) (OUTPUTS Z) (RESULTS CONS A (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (MEM-32X32 (DELAYS ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000))) (DRIVES 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS RW- STROBE- A0 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 D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . MEM-32X32) (NEW-STATES MEM-STATE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (OUT-DEPENDS (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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)) (OUTPUT-TYPES BOOLP TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE) (OUTPUTS DTACK- O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS MEM-VALUE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES (ADDRESSED-STATE 32 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) NUMBERP NUMBER-LISTP NUMBERP BOOLP BOOLP (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)) (STATES . STATE) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (RAM-ENABLE-CIRCUIT (DELAYS ((68 12000) (54 12000))) (DRIVES 10) (INPUT-TYPES CLK BOOLP BOOLP BOOLP) (INPUTS CLK TEST-REGFILE- DISABLE-REGFILE- WE) (LOADINGS 1 2 2 2) (LSI-NAME . RAM-ENABLE-CIRCUIT) (OUT-DEPENDS (CLK TEST-REGFILE- DISABLE-REGFILE- WE)) (OUTPUT-TYPES LEVEL) (OUTPUTS Z) (RESULTS CONS (F-NAND DISABLE-REGFILE- WE) (QUOTE NIL)) (GATES . 24) (PRIMITIVES . 1) (TRANSISTORS . 97)) (T-BUF (DELAYS ((146 313) (57 728))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS E A) (LOADINGS 2 2) (LSI-NAME BTS4 A E) (OUT-DEPENDS (A E)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF E A) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (T-WIRE (DELAYS (OR A B)) (DRIVES (MIN A B)) (INPUT-TYPES TRI-STATE TRI-STATE) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . T-WIRE) (OUT-DEPENDS (A B)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-WIRE A B) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (PULLUP (DELAYS A) (DRIVES A) (INPUT-TYPES TRI-STATE) (INPUTS A) (LOADINGS 1) (LSI-NAME . PULLUP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-PULLUP A) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (TTL-BIDIRECT (DELAYS (((61 PS-PF) 1633) ((41 PS-PF) 2253)) ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES (8 MA) 10 10) (INPUT-TYPES TTL-TRI-STATE BOOLP BOOLP PARAMETRIC) (INPUTS IO A EN PI) (LOADINGS (3 PF) 1 1 1) (LSI-NAME . BD8TRP) (OUT-DEPENDS (EN A) (EN A IO) (EN A IO PI)) (OUTPUT-TYPES TTL-TRI-STATE BOOLP PARAMETRIC) (OUTPUTS IO ZI PO) (RESULTS CONS (FT-BUF (F-NOT EN) A) (CONS (F-BUF (FT-WIRE IO (FT-BUF (F-NOT EN) A))) (CONS (F-NAND (FT-WIRE IO (FT-BUF (F-NOT EN) A)) PI) (QUOTE NIL)))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-CLK-INPUT (DELAYS ((4 1225) (4 1152)) ((202 1050) (117 741))) (DRIVES 400 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . DRVT8) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES CLK PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 2) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-INPUT (DELAYS ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES 10 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . TLCHT) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES BOOLP PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT (DELAYS (((61 PS-PF) 812) ((42 PS-PF) 1155))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 5) (LSI-NAME . B8RP) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-PARAMETRIC (DELAYS (((64 PS-PF) 737) ((42 PS-PF) 1125))) (DRIVES (4 MA)) (INPUT-TYPES PARAMETRIC) (INPUTS A) (LOADINGS 3) (LSI-NAME . B4) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-FAST (DELAYS (((36 PS-PF) 991) ((24 PS-PF) 1488))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . B8) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT (DELAYS (((61 PS-PF) 1602) ((41 PS-PF) 2233))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8RP) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT-FAST (DELAYS (((36 PS-PF) 1581) ((24 PS-PF) 2198))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD-PARAMETRIC (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VSS (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VSS) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*FALSE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0))))) LOCAL-UNDO-TUPLES ((DCELL . *1*PRIMP-DATABASE))))) (PUT1-LST (QUOTE VFT-BUF-REWRITE-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE VFT-BUF-REWRITE-OFF VFT-BUF-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VFT-BUF-REWRITE . VFT-BUF-REWRITE-OFF) (DISABLED-LEMMAS NIL VFT-BUF-REWRITE VFT-BUF-REWRITE-OFF . T))))) (PUT1-LST (QUOTE VFT-BUF-REWRITE) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE VFT-BUF-REWRITE-OFF) EVENT (PROVE-LEMMA VFT-BUF-REWRITE (REWRITE) (EQUAL (VFT-BUF C A) (IF (EQUAL C (QUOTE *1*TRUE)) (V-THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE Z))) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE X)))))) ((ENABLE VFT-BUF V-THREEFIX MAKE-LIST LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 VFT-BUF-LEMMAS . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 X . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 Z . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 LENGTH . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . VFT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 VFT-BUF . VFT-BUF-REWRITE) (LEMMAS VFT-BUF . VFT-BUF-REWRITE))))) (PUT1-LST (QUOTE VFT-BUF-LEMMAS) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 TTL-TRI-OUTPUT-PADS$VALUE VFT-BUF-REWRITE) EVENT (PROVE-LEMMA VFT-BUF-LEMMAS (REWRITE) (AND (EQUAL (VFT-BUF (QUOTE *1*TRUE) A) (V-THREEFIX A)) (EQUAL (VFT-BUF (QUOTE *1*FALSE) A) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE Z))))) ((ENABLE VFT-BUF V-THREEFIX MAKE-LIST LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 THREEFIX . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 FT-BUF-REWRITE . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 Z . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . VFT-BUF-LEMMAS) (IMMEDIATE-DEPENDENTS0 VFT-BUF . VFT-BUF-LEMMAS) (LEMMAS VFT-BUF . VFT-BUF-LEMMAS) (LEMMAS VFT-BUF . VFT-BUF-LEMMAS))))) (PUT1-LST (QUOTE PROPERP-LENGTH-VFT-BUF) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-VFT-BUF (REWRITE) (AND (PROPERP (VFT-BUF C A)) (EQUAL (LENGTH (VFT-BUF C A)) (LENGTH A))) ((ENABLE PROPERP VFT-BUF LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 FT-BUF . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 VFT-BUF . PROPERP-LENGTH-VFT-BUF) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-VFT-BUF) (LEMMAS LENGTH . PROPERP-LENGTH-VFT-BUF) (LEMMAS PROPERP . PROPERP-LENGTH-VFT-BUF))))) (PUT1-LST (QUOTE VFT-BUF-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE VFT-BUF-OFF VFT-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VFT-BUF . VFT-BUF-OFF) (DISABLED-LEMMAS NIL VFT-BUF VFT-BUF-OFF . T))))) (PUT1-LST (QUOTE *1*VFT-BUF) (QUOTE (MAIN-EVENT VFT-BUF))) (PUT1-LST (QUOTE VFT-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((VFT-BUF 24 NIL NIL)) LEMMAS ((REWRITE-RULE VFT-BUF-REWRITE NIL (EQUAL (VFT-BUF C A) (IF (EQUAL C (QUOTE *1*TRUE)) (V-THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE Z))) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE X)))))) NIL) (REWRITE-RULE VFT-BUF-LEMMAS NIL (EQUAL (VFT-BUF (QUOTE *1*FALSE) A) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE Z)))) NIL) (REWRITE-RULE VFT-BUF-LEMMAS NIL (EQUAL (VFT-BUF (QUOTE *1*TRUE) A) (V-THREEFIX A)) NIL)) TOTALP-LST ((VFT-BUF . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (C A) (IF (LISTP A) (CONS (FT-BUF C (CAR A)) (VFT-BUF C (CDR A))) (QUOTE NIL))) LISP-CODE *1*VFT-BUF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) ((C (CDR A))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194002 CONTROLLER-POCKETS (2) SATELLITES (*1*VFT-BUF) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF VFT-BUF-OFF) EVENT (DEFN VFT-BUF (C A) (IF (NLISTP A) (QUOTE NIL) (CONS (FT-BUF C (CAR A)) (VFT-BUF C (CDR A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-BUF . VFT-BUF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . VFT-BUF) (DCELL . *1*VFT-BUF))))) (PUT1-LST (QUOTE V-THREEFIX-FV-SHIFT-RIGHT) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE) EVENT (PROVE-LEMMA V-THREEFIX-FV-SHIFT-RIGHT (REWRITE) (EQUAL (V-THREEFIX (FV-SHIFT-RIGHT A SI)) (FV-SHIFT-RIGHT A SI)) ((ENABLE FV-SHIFT-RIGHT V-THREEFIX-APPEND) (DISABLE APPEND-V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX-IDEMPOTENCE . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-APPEND . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . V-THREEFIX-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-FV-SHIFT-RIGHT) (LEMMAS V-THREEFIX . V-THREEFIX-FV-SHIFT-RIGHT))))) (PUT1-LST (QUOTE PROPERP-LENGTH-FV-SHIFT-RIGHT) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-FV-SHIFT-RIGHT (REWRITE) (AND (PROPERP (FV-SHIFT-RIGHT A SI)) (EQUAL (LENGTH (FV-SHIFT-RIGHT A SI)) (LENGTH A))) ((ENABLE FV-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-THREEFIX . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROPERP-APPEND . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . PROPERP-LENGTH-FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-FV-SHIFT-RIGHT) (LEMMAS LENGTH . PROPERP-LENGTH-FV-SHIFT-RIGHT) (LEMMAS PROPERP . PROPERP-LENGTH-FV-SHIFT-RIGHT))))) (PUT1-LST (QUOTE FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (F$SHIFT-OR-BUF=SHIFT-OR-BUF) EVENT (PROVE-LEMMA FV-SHIFT-RIGHT=V-SHIFT-RIGHT (REWRITE) (IMPLIES (AND (BOOLP SI) (BVP A)) (EQUAL (FV-SHIFT-RIGHT A SI) (V-SHIFT-RIGHT A SI))) ((EXPAND (FV-SHIFT-RIGHT A SI) (V-SHIFT-RIGHT A SI)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-BUF-WORKS . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 EQUAL-APPEND-X-X . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 THREEFIX . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLFIX . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLP . FV-SHIFT-RIGHT=V-SHIFT-RIGHT) (LEMMAS FV-SHIFT-RIGHT . FV-SHIFT-RIGHT=V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE FV-SHIFT-RIGHT-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE FV-SHIFT-RIGHT-OFF FV-SHIFT-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-SHIFT-RIGHT . FV-SHIFT-RIGHT-OFF) (DISABLED-LEMMAS NIL FV-SHIFT-RIGHT FV-SHIFT-RIGHT-OFF . T))))) (PUT1-LST (QUOTE *1*FV-SHIFT-RIGHT) (QUOTE (MAIN-EVENT FV-SHIFT-RIGHT))) (PUT1-LST (QUOTE FV-SHIFT-RIGHT) (QUOTE (TYPE-PRESCRIPTION-LST ((FV-SHIFT-RIGHT 24 NIL NIL)) LEMMAS ((REWRITE-RULE FV-SHIFT-RIGHT=V-SHIFT-RIGHT ((BOOLP SI) (BVP A)) (EQUAL (FV-SHIFT-RIGHT A SI) (V-SHIFT-RIGHT A SI)) NIL)) TOTALP-LST ((FV-SHIFT-RIGHT . T)) SDEFN (LAMBDA (A SI) (IF (LISTP A) (APPEND (V-THREEFIX (CDR A)) (CONS (THREEFIX SI) (QUOTE NIL))) (QUOTE NIL))) LISP-CODE *1*FV-SHIFT-RIGHT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402194002 SATELLITES (*1*FV-SHIFT-RIGHT) IMMEDIATE-DEPENDENTS0 (F$SHIFT-OR-BUF COLLECT-VALUE-V-SHIFT-RIGHT V-THREEFIX-FV-SHIFT-RIGHT PROPERP-LENGTH-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-SHIFT-RIGHT-OFF) EVENT (DEFN FV-SHIFT-RIGHT (A SI) (IF (NLISTP A) (QUOTE NIL) (APPEND (V-THREEFIX (CDR A)) (CONS (THREEFIX SI) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . FV-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FV-SHIFT-RIGHT) (DCELL . *1*FV-SHIFT-RIGHT))))) (PUT1-LST (QUOTE V-PULLUP-MAKE-LIST-Z) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE0$STEP READB1$STEP READB0$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH1$STEP FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA V-PULLUP-MAKE-LIST-Z (REWRITE) (EQUAL (V-PULLUP (MAKE-LIST N (QUOTE (*1*QUOTE Z)))) (MAKE-LIST N (QUOTE *1*TRUE))) ((ENABLE V-PULLUP MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP . V-PULLUP-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-PULLUP-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 Z . V-PULLUP-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-PULLUP-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 V-PULLUP . V-PULLUP-MAKE-LIST-Z) (LEMMAS V-PULLUP . V-PULLUP-MAKE-LIST-Z))))) (PUT1-LST (QUOTE V-PULLUP-BVP) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA V-PULLUP-BVP (REWRITE) (IMPLIES (BVP V) (EQUAL (V-PULLUP V) V)) ((ENABLE V-PULLUP BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 THREEFIX . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 F-PULLUP . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 V-PULLUP . V-PULLUP-BVP) (IMMEDIATE-DEPENDENTS0 BVP . V-PULLUP-BVP) (LEMMAS V-PULLUP . V-PULLUP-BVP))))) (PUT1-LST (QUOTE PROPERP-LENGTH-V-PULLUP) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE2$STEP READB3$STEP1 READB2$STEP READA3$STEP1 READA2$STEP FETCH3$STEP1 FETCH2$STEP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP) EVENT (PROVE-LEMMA PROPERP-LENGTH-V-PULLUP (REWRITE) (AND (PROPERP (V-PULLUP V)) (EQUAL (LENGTH (V-PULLUP V)) (LENGTH V))) ((ENABLE PROPERP LENGTH V-PULLUP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 F-PULLUP . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 V-PULLUP . PROPERP-LENGTH-V-PULLUP) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-V-PULLUP) (LEMMAS LENGTH . PROPERP-LENGTH-V-PULLUP) (LEMMAS PROPERP . PROPERP-LENGTH-V-PULLUP))))) (PUT1-LST (QUOTE V-PULLUP-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE V-PULLUP-OFF V-PULLUP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-PULLUP . V-PULLUP-OFF) (DISABLED-LEMMAS NIL V-PULLUP V-PULLUP-OFF . T))))) (PUT1-LST (QUOTE *1*V-PULLUP) (QUOTE (MAIN-EVENT V-PULLUP))) (PUT1-LST (QUOTE V-PULLUP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-PULLUP 24 NIL)) LEMMAS ((REWRITE-RULE V-PULLUP-MAKE-LIST-Z NIL (EQUAL (V-PULLUP (MAKE-LIST N (QUOTE (*1*QUOTE Z)))) (MAKE-LIST N (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-PULLUP-BVP ((BVP V)) (EQUAL (V-PULLUP V) V) NIL)) TOTALP-LST ((V-PULLUP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (V) (IF (LISTP V) (CONS (F-PULLUP (CAR V)) (V-PULLUP (CDR V))) (QUOTE NIL))) LISP-CODE *1*V-PULLUP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP V)) NIL) (TESTS-AND-CASES ((NOT (NLISTP V))) (((CDR V))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V) (COUNT V) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194002 CONTROLLER-POCKETS (1) SATELLITES (*1*V-PULLUP) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP FM9001-NEXT-STATE V-PULLUP$VALUE V-PULLUP$BODY-VALUE V-PULLUP-MAKE-LIST-Z V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP V-PULLUP-OFF) EVENT (DEFN V-PULLUP (V) (IF (NLISTP V) (QUOTE NIL) (CONS (F-PULLUP (CAR V)) (V-PULLUP (CDR V))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-PULLUP . V-PULLUP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-PULLUP) (DCELL . *1*V-PULLUP))))) (PUT1-LST (QUOTE V-WIRE-MAKE-LIST-X) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE) EVENT (PROVE-LEMMA V-WIRE-MAKE-LIST-X (REWRITE) (IMPLIES (EQUAL N (LENGTH X)) (EQUAL (V-WIRE X (MAKE-LIST N (QUOTE (*1*QUOTE X)))) (MAKE-LIST N (QUOTE (*1*QUOTE X))))) ((ENABLE LENGTH V-WIRE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE-REWRITE . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 X . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LENGTH . V-WIRE-MAKE-LIST-X) (LEMMAS V-WIRE . V-WIRE-MAKE-LIST-X))))) (PUT1-LST (QUOTE PROPERP-LENGTH-V-WIRE) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE2$STEP READB3$STEP1 READB2$STEP READA3$STEP1 READA2$STEP FETCH3$STEP1 FETCH2$STEP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP$STATE) EVENT (PROVE-LEMMA PROPERP-LENGTH-V-WIRE (REWRITE) (AND (PROPERP (V-WIRE A B)) (EQUAL (LENGTH (V-WIRE A B)) (LENGTH A))) ((ENABLE PROPERP LENGTH V-WIRE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 FOURFIX . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 FOURP . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 V-WIRE . PROPERP-LENGTH-V-WIRE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-V-WIRE) (LEMMAS LENGTH . PROPERP-LENGTH-V-WIRE) (LEMMAS PROPERP . PROPERP-LENGTH-V-WIRE))))) (PUT1-LST (QUOTE V-WIRE-MAKE-LIST-Z) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 TTL-BIDIRECT-PADS$VALUE) EVENT (PROVE-LEMMA V-WIRE-MAKE-LIST-Z (REWRITE) (IMPLIES (EQUAL (LENGTH V) N) (AND (EQUAL (V-WIRE (MAKE-LIST N (QUOTE (*1*QUOTE Z))) V) (V-FOURFIX V)) (EQUAL (V-WIRE V (MAKE-LIST N (QUOTE (*1*QUOTE Z)))) (V-FOURFIX V)))) ((INDUCT (NTH N V)) (ENABLE LENGTH V-WIRE MAKE-LIST V-FOURFIX FOURFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE-REWRITE . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 FOURFIX . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 FOURP . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 NTH . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 V-FOURFIX . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 Z . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE-MAKE-LIST-Z) (IMMEDIATE-DEPENDENTS0 LENGTH . V-WIRE-MAKE-LIST-Z) (LEMMAS V-WIRE . V-WIRE-MAKE-LIST-Z) (LEMMAS V-WIRE . V-WIRE-MAKE-LIST-Z))))) (PUT1-LST (QUOTE V-WIRE-X-X=X) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP0 WRITE1$STEP FETCH0$STEP2) EVENT (PROVE-LEMMA V-WIRE-X-X=X (REWRITE) (EQUAL (V-WIRE X X) (V-FOURFIX X)) ((ENABLE V-WIRE V-FOURFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURFIX . V-WIRE-X-X=X) (IMMEDIATE-DEPENDENTS0 FOURP . V-WIRE-X-X=X) (IMMEDIATE-DEPENDENTS0 FT-WIRE . V-WIRE-X-X=X) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-WIRE-X-X=X) (IMMEDIATE-DEPENDENTS0 V-FOURFIX . V-WIRE-X-X=X) (IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE-X-X=X) (LEMMAS V-WIRE . V-WIRE-X-X=X))))) (PUT1-LST (QUOTE V-WIRE-OFF) (QUOTE (IDATE 1000402194002 EVENT (TOGGLE V-WIRE-OFF V-WIRE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-WIRE . V-WIRE-OFF) (DISABLED-LEMMAS NIL V-WIRE V-WIRE-OFF . T))))) (PUT1-LST (QUOTE *1*V-WIRE) (QUOTE (MAIN-EVENT V-WIRE))) (PUT1-LST (QUOTE V-WIRE) (QUOTE (TYPE-PRESCRIPTION-LST ((V-WIRE 24 NIL NIL)) LEMMAS ((REWRITE-RULE V-WIRE-MAKE-LIST-X ((EQUAL N (LENGTH X))) (EQUAL (V-WIRE X (MAKE-LIST N (QUOTE (*1*QUOTE X)))) (MAKE-LIST N (QUOTE (*1*QUOTE X)))) NIL) (REWRITE-RULE V-WIRE-MAKE-LIST-Z ((EQUAL (LENGTH V) N)) (EQUAL (V-WIRE V (MAKE-LIST N (QUOTE (*1*QUOTE Z)))) (V-FOURFIX V)) NIL) (REWRITE-RULE V-WIRE-MAKE-LIST-Z ((EQUAL (LENGTH V) N)) (EQUAL (V-WIRE (MAKE-LIST N (QUOTE (*1*QUOTE Z))) V) (V-FOURFIX V)) NIL) (REWRITE-RULE V-WIRE-X-X=X NIL (EQUAL (V-WIRE X X) (V-FOURFIX X)) NIL)) TOTALP-LST ((V-WIRE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (CONS (FT-WIRE (CAR A) (CAR B)) (V-WIRE (CDR A) (CDR B))) (QUOTE NIL))) LISP-CODE *1*V-WIRE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194002 CONTROLLER-POCKETS (1) SATELLITES (*1*V-WIRE) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE V-WIRE$VALUE V-WIRE$BODY-VALUE V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X V-WIRE-OFF) EVENT (DEFN V-WIRE (A B) (IF (NLISTP A) (QUOTE NIL) (CONS (FT-WIRE (CAR A) (CAR B)) (V-WIRE (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FT-WIRE . V-WIRE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-WIRE) (DCELL . *1*V-WIRE))))) (PUT1-LST (QUOTE FV-IF-V-THREEFIX) (QUOTE (IDATE 1000402194002 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE2$STEP READB3$STEP1 READB2$STEP READA3$STEP1 READA2$STEP FETCH3$STEP1 FETCH2$STEP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP CHIP$STATE FM9001-STATE-STRUCTURE$STEP REGFILE$STATE REGFILE$VALUE PROPERP-LENGTH-F$READ-REGS) EVENT (PROVE-LEMMA FV-IF-V-THREEFIX (REWRITE) (AND (EQUAL (FV-IF C (V-THREEFIX A) B) (FV-IF C A B)) (EQUAL (FV-IF C A (V-THREEFIX B)) (FV-IF C A B))) ((ENABLE FV-IF V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 B-IF . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 BOOLP . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 F-BUF . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 THREEFIX . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 F-IF . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FV-IF-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 FV-IF . FV-IF-V-THREEFIX) (LEMMAS FV-IF . FV-IF-V-THREEFIX) (LEMMAS FV-IF . FV-IF-V-THREEFIX))))) (PUT1-LST (QUOTE FV-IF-REWRITE-OFF) (QUOTE (IDATE 1000402194001 EVENT (TOGGLE FV-IF-REWRITE-OFF FV-IF-REWRITE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-IF-REWRITE . FV-IF-REWRITE-OFF) (DISABLED-LEMMAS NIL FV-IF-REWRITE FV-IF-REWRITE-OFF . T))))) (PUT1-LST (QUOTE FV-IF-REWRITE) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (TV-SHIFT-OR-BUF$VALUE WE-REG$STATE TV-IF$VALUE FV-IF-REWRITE-OFF) EVENT (PROVE-LEMMA FV-IF-REWRITE (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (FV-IF C A B) (IF (BOOLP C) (IF C (V-THREEFIX A) (V-THREEFIX B)) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE X)))))) ((ENABLE LENGTH FV-IF BOOLP V-THREEFIX MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 F-IF . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 X . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 BOOLP . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 FV-IF . FV-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 LENGTH . FV-IF-REWRITE) (LEMMAS FV-IF . FV-IF-REWRITE))))) (PUT1-LST (QUOTE FV-IF-WHEN-BVP) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS F$CV=CV F$SHIFT-OR-BUF=SHIFT-OR-BUF) EVENT (PROVE-LEMMA FV-IF-WHEN-BVP (REWRITE) (IMPLIES (AND (BOOLP C) (AND (BVP A) (AND (BVP B) (EQUAL (LENGTH A) (LENGTH B))))) (EQUAL (FV-IF C A B) (IF* C A B))) ((ENABLE IF* BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 FV-IF-WHEN-BOOLP-C . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 IF* . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 FV-IF . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 LENGTH . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 BVP . FV-IF-WHEN-BVP) (IMMEDIATE-DEPENDENTS0 BOOLP . FV-IF-WHEN-BVP) (LEMMAS FV-IF . FV-IF-WHEN-BVP))))) (PUT1-LST (QUOTE FV-IF-WHEN-BOOLP-C) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$READ-REGS=READ-REGS TV-SHIFT-OR-BUF$VALUE-ZERO WE-REG-BODY$STATE FV-IF-REWRITE FV-IF-WHEN-BVP) EVENT (PROVE-LEMMA FV-IF-WHEN-BOOLP-C (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (AND (EQUAL (FV-IF (QUOTE *1*TRUE) A B) (V-THREEFIX A)) (EQUAL (FV-IF (QUOTE *1*FALSE) A B) (V-THREEFIX B)))) ((ENABLE MAKE-LIST V-THREEFIX LENGTH FV-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 THREEFIX . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 F-BUF . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 FV-IF . FV-IF-WHEN-BOOLP-C) (IMMEDIATE-DEPENDENTS0 LENGTH . FV-IF-WHEN-BOOLP-C) (LEMMAS FV-IF . FV-IF-WHEN-BOOLP-C) (LEMMAS FV-IF . FV-IF-WHEN-BOOLP-C))))) (PUT1-LST (QUOTE V-THREEFIX-FV-IF) (QUOTE (IDATE 1000402194001 EVENT (PROVE-LEMMA V-THREEFIX-FV-IF (REWRITE) (EQUAL (V-THREEFIX (FV-IF C A B)) (FV-IF C A B)) ((ENABLE V-THREEFIX FV-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-FV-IF) (IMMEDIATE-DEPENDENTS0 F-IF . V-THREEFIX-FV-IF) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-THREEFIX-FV-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-THREEFIX-FV-IF) (IMMEDIATE-DEPENDENTS0 FV-IF . V-THREEFIX-FV-IF) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-FV-IF) (LEMMAS V-THREEFIX . V-THREEFIX-FV-IF))))) (PUT1-LST (QUOTE PROPERP-FV-IF) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE PROPERP-LENGTH-F$EXTEND-IMMEDIATE REGFILE$VALUE PROPERP-LENGTH-F$READ-REGS CV$VALUE PROPERP-LENGTH-F$SHIFT-OR-BUF) EVENT (PROVE-LEMMA PROPERP-FV-IF (REWRITE) (PROPERP (FV-IF C A B)) ((ENABLE PROPERP FV-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-FV-IF) (IMMEDIATE-DEPENDENTS0 F-IF . PROPERP-FV-IF) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-FV-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-FV-IF) (IMMEDIATE-DEPENDENTS0 FV-IF . PROPERP-FV-IF) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-FV-IF) (LEMMAS PROPERP . PROPERP-FV-IF))))) (PUT1-LST (QUOTE LENGTH-FV-IF) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE PROPERP-LENGTH-F$EXTEND-IMMEDIATE REGFILE$VALUE PROPERP-LENGTH-F$READ-REGS CV$VALUE PROPERP-LENGTH-F$CV PROPERP-LENGTH-F$SHIFT-OR-BUF) EVENT (PROVE-LEMMA LENGTH-FV-IF (REWRITE) (EQUAL (LENGTH (FV-IF C A B)) (LENGTH A)) ((ENABLE LENGTH FV-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 F-IF . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 FV-IF . LENGTH-FV-IF) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-FV-IF) (LEMMAS LENGTH . LENGTH-FV-IF))))) (PUT1-LST (QUOTE FV-IF-OFF) (QUOTE (IDATE 1000402194001 EVENT (TOGGLE FV-IF-OFF FV-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-IF . FV-IF-OFF) (DISABLED-LEMMAS NIL FV-IF FV-IF-OFF . T))))) (PUT1-LST (QUOTE *1*FV-IF) (QUOTE (MAIN-EVENT FV-IF))) (PUT1-LST (QUOTE FV-IF) (QUOTE (TYPE-PRESCRIPTION-LST ((FV-IF 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE FV-IF-V-THREEFIX NIL (EQUAL (FV-IF C A (V-THREEFIX B)) (FV-IF C A B)) NIL) (REWRITE-RULE FV-IF-V-THREEFIX NIL (EQUAL (FV-IF C (V-THREEFIX A) B) (FV-IF C A B)) NIL) (REWRITE-RULE FV-IF-REWRITE ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-IF C A B) (IF (BOOLP C) (IF C (V-THREEFIX A) (V-THREEFIX B)) (MAKE-LIST (LENGTH A) (QUOTE (*1*QUOTE X))))) NIL) (REWRITE-RULE FV-IF-WHEN-BVP ((BOOLP C) (BVP A) (BVP B) (EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-IF C A B) (IF* C A B)) NIL) (REWRITE-RULE FV-IF-WHEN-BOOLP-C ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-IF (QUOTE *1*FALSE) A B) (V-THREEFIX B)) NIL) (REWRITE-RULE FV-IF-WHEN-BOOLP-C ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-IF (QUOTE *1*TRUE) A B) (V-THREEFIX A)) NIL)) TOTALP-LST ((FV-IF . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (CONS (F-IF C (CAR A) (CAR B)) (FV-IF C (CDR A) (CDR B))) (QUOTE NIL))) LISP-CODE *1*FV-IF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) ((C (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194001 CONTROLLER-POCKETS (2) SATELLITES (*1*FV-IF) IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE F$EXTEND-IMMEDIATE F$WRITE-REGS F$READ-REGS F$CV F$V-IF-F-4=FV-IF F$SHIFT-OR-BUF WE-REG$STATE WE-REG-BODY$STATE TV-IF$VALUE FV-IF-V-THREEFIX FV-IF-REWRITE FV-IF-WHEN-BVP FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF FV-IF-OFF) EVENT (DEFN FV-IF (C A B) (IF (NLISTP A) (QUOTE NIL) (CONS (F-IF C (CAR A) (CAR B)) (FV-IF C (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-IF . FV-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-IF) (DCELL . *1*FV-IF))))) (PUT1-LST (QUOTE FV-XOR=V-XOR) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (F$V-EQUAL=EQUAL*) EVENT (PROVE-LEMMA FV-XOR=V-XOR (REWRITE) (IMPLIES (AND (BVP A) (AND (BVP B) (EQUAL (LENGTH A) (LENGTH B)))) (EQUAL (FV-XOR A B) (V-XOR A B))) ((ENABLE BVP FV-XOR V-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 V-XOR . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 FV-XOR . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH . FV-XOR=V-XOR) (IMMEDIATE-DEPENDENTS0 BVP . FV-XOR=V-XOR) (LEMMAS FV-XOR . FV-XOR=V-XOR))))) (PUT1-LST (QUOTE PROPERP-LENGTH-FV-XOR) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (V-EQUAL$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-FV-XOR (REWRITE) (AND (PROPERP (FV-XOR A B)) (EQUAL (LENGTH (FV-XOR A B)) (LENGTH A))) ((ENABLE PROPERP FV-XOR LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 F-NOT . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 F-XOR . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 FV-XOR . PROPERP-LENGTH-FV-XOR) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-FV-XOR) (LEMMAS LENGTH . PROPERP-LENGTH-FV-XOR) (LEMMAS PROPERP . PROPERP-LENGTH-FV-XOR))))) (PUT1-LST (QUOTE FV-XOR-OFF) (QUOTE (IDATE 1000402194001 EVENT (TOGGLE FV-XOR-OFF FV-XOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-XOR . FV-XOR-OFF) (DISABLED-LEMMAS NIL FV-XOR FV-XOR-OFF . T))))) (PUT1-LST (QUOTE *1*FV-XOR) (QUOTE (MAIN-EVENT FV-XOR))) (PUT1-LST (QUOTE FV-XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((FV-XOR 24 NIL NIL)) LEMMAS ((REWRITE-RULE FV-XOR=V-XOR ((BVP A) (BVP B) (EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-XOR A B) (V-XOR A B)) NIL)) TOTALP-LST ((FV-XOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (CONS (F-XOR (CAR A) (CAR B)) (FV-XOR (CDR A) (CDR B))) (QUOTE NIL))) LISP-CODE *1*FV-XOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194001 CONTROLLER-POCKETS (1) SATELLITES (*1*FV-XOR) IMMEDIATE-DEPENDENTS0 (F$V-EQUAL V-XOR$VALUE V-XOR$BODY-VALUE FV-XOR=V-XOR PROPERP-LENGTH-FV-XOR FV-XOR-OFF) EVENT (DEFN FV-XOR (A B) (IF (NLISTP A) (QUOTE NIL) (CONS (F-XOR (CAR A) (CAR B)) (FV-XOR (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . FV-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-XOR) (DCELL . *1*FV-XOR))))) (PUT1-LST (QUOTE FV-OR=V-OR) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE) EVENT (PROVE-LEMMA FV-OR=V-OR (REWRITE) (IMPLIES (AND (BVP A) (AND (BVP B) (EQUAL (LENGTH A) (LENGTH B)))) (EQUAL (FV-OR A B) (V-OR A B))) ((ENABLE BVP FV-OR V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 F-GATES=B-GATES . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 V-OR . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 FV-OR . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 LENGTH . FV-OR=V-OR) (IMMEDIATE-DEPENDENTS0 BVP . FV-OR=V-OR) (LEMMAS FV-OR . FV-OR=V-OR))))) (PUT1-LST (QUOTE PROPERP-LENGTH-FV-OR) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-FV-OR (REWRITE) (AND (PROPERP (FV-OR A B)) (EQUAL (LENGTH (FV-OR A B)) (LENGTH A))) ((ENABLE PROPERP FV-OR LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 F-OR . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 FV-OR . PROPERP-LENGTH-FV-OR) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-FV-OR) (LEMMAS LENGTH . PROPERP-LENGTH-FV-OR) (LEMMAS PROPERP . PROPERP-LENGTH-FV-OR))))) (PUT1-LST (QUOTE FV-OR-OFF) (QUOTE (IDATE 1000402194001 EVENT (TOGGLE FV-OR-OFF FV-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FV-OR . FV-OR-OFF) (DISABLED-LEMMAS NIL FV-OR FV-OR-OFF . T))))) (PUT1-LST (QUOTE *1*FV-OR) (QUOTE (MAIN-EVENT FV-OR))) (PUT1-LST (QUOTE FV-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((FV-OR 24 NIL NIL)) LEMMAS ((REWRITE-RULE FV-OR=V-OR ((BVP A) (BVP B) (EQUAL (LENGTH A) (LENGTH B))) (EQUAL (FV-OR A B) (V-OR A B)) NIL)) TOTALP-LST ((FV-OR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (CONS (F-OR (CAR A) (CAR B)) (FV-OR (CDR A) (CDR B))) (QUOTE NIL))) LISP-CODE *1*FV-OR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402194001 CONTROLLER-POCKETS (1) SATELLITES (*1*FV-OR) IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE V-OR$VALUE V-OR$BODY-VALUE FV-OR=V-OR PROPERP-LENGTH-FV-OR FV-OR-OFF) EVENT (DEFN FV-OR (A B) (IF (NLISTP A) (QUOTE NIL) (CONS (F-OR (CAR A) (CAR B)) (FV-OR (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . FV-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FV-OR) (DCELL . *1*FV-OR))))) (PUT1-LST (QUOTE F-GATES=B-GATES) (QUOTE (IDATE 1000402194001 IMMEDIATE-DEPENDENTS0 (F-IF-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-OR-MONOTONE F-NOT-MONOTONE F-AND-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$CV=CV F$NEXT-STATE=NEXT-STATE F$CONTROL-LET=CONTROL-LET B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS F$ENCODE-32=ENCODE-32 F$DECODE-5=DECODE-5 F$V-IF-F-4=FV-IF F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$B-STORE-RESULTP=B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO F$CARRY-OUT-HELP=CARRY-OUT-HELP F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$ALU-CELL=ALU-CELL F$G-CELL=G-CELL F$P-CELL=P-CELL CARRY-IN-HELP$VALUE-ZERO F$CARRY-IN-HELP=CARRY-IN-HELP DECODE-GEN$VALUE-ZERO F$DECODE-GEN=DECODE-GEN DECODE-PROP$VALUE-ZERO F$DECODE-PROP=DECODE-PROP F$DECODE-MODE=DECODE-MODE WE-REG$STATE REG$STATE REG$VALUE F$DEC-PASS=DEC-OR-PASS F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$V-INC4$V=V-INC F$V-INC4=V-INC4 F$TV-ZEROP=V-ZEROP TR-OR-NOR=BTR-OR-NOR TV-IF$VALUE F$T-CARRY=T-CARRY BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER V-BUF$BODY-VALUE FV-IF-V-THREEFIX FV-XOR=V-XOR FV-OR=V-OR) EVENT (PROVE-LEMMA F-GATES=B-GATES (REWRITE) (AND (IMPLIES (BOOLP A) (EQUAL (F-BUF A) (B-BUF A))) (AND (IMPLIES (BOOLP A) (EQUAL (F-NOT A) (B-NOT A))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-NAND A B) (B-NAND A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-NAND3 A B C) (B-NAND3 A B C))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (BOOLP D)))) (EQUAL (F-NAND4 A B C D) (B-NAND4 A B C D))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (BOOLP E))))) (EQUAL (F-NAND5 A B C D E) (B-NAND5 A B C D E))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (AND (BOOLP E) (BOOLP G)))))) (EQUAL (F-NAND6 A B C D E G) (B-NAND6 A B C D E G))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (AND (BOOLP E) (AND (BOOLP G) (AND (BOOLP H) (BOOLP I)))))))) (EQUAL (F-NAND8 A B C D E G H I) (B-NAND8 A B C D E G H I))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-OR A B) (B-OR A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-OR3 A B C) (B-OR3 A B C))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (BOOLP D)))) (EQUAL (F-OR4 A B C D) (B-OR4 A B C D))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-XOR A B) (B-XOR A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-XOR3 A B C) (B-XOR3 A B C))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-EQUV A B) (B-EQUV A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-EQUV3 A B C) (B-EQUV3 A B C))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-AND A B) (B-AND A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-AND3 A B C) (B-AND3 A B C))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (BOOLP D)))) (EQUAL (F-AND4 A B C D) (B-AND4 A B C D))) (AND (IMPLIES (AND (BOOLP A) (BOOLP B)) (EQUAL (F-NOR A B) (B-NOR A B))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (BOOLP C))) (EQUAL (F-NOR3 A B C) (B-NOR3 A B C))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (BOOLP D)))) (EQUAL (F-NOR4 A B C D) (B-NOR4 A B C D))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (BOOLP E))))) (EQUAL (F-NOR5 A B C D E) (B-NOR5 A B C D E))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (AND (BOOLP E) (BOOLP G)))))) (EQUAL (F-NOR6 A B C D E G) (B-NOR6 A B C D E G))) (AND (IMPLIES (AND (BOOLP A) (AND (BOOLP B) (AND (BOOLP C) (AND (BOOLP D) (AND (BOOLP E) (AND (BOOLP G) (AND (BOOLP H) (BOOLP I)))))))) (EQUAL (F-NOR8 A B C D E G H I) (B-NOR8 A B C D E G H I))) (IMPLIES (AND (BOOLP C) (AND (BOOLP A) (BOOLP B))) (EQUAL (F-IF C A B) (B-IF C A B))))))))))))))))))))))))))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-IF . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-IF . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR8 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR6 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR5 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-AND4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-AND3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-AND . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-XOR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-XOR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-OR4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-OR3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-OR . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND8 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND8 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND6 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND5 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOT . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-NOT . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 B-BUF . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 F-BUF . F-GATES=B-GATES) (IMMEDIATE-DEPENDENTS0 BOOLP . F-GATES=B-GATES) (LEMMAS F-IF . F-GATES=B-GATES) (LEMMAS F-NOR8 . F-GATES=B-GATES) (LEMMAS F-NOR6 . F-GATES=B-GATES) (LEMMAS F-NOR5 . F-GATES=B-GATES) (LEMMAS F-NOR4 . F-GATES=B-GATES) (LEMMAS F-NOR3 . F-GATES=B-GATES) (LEMMAS F-NOR . F-GATES=B-GATES) (LEMMAS F-AND4 . F-GATES=B-GATES) (LEMMAS F-AND3 . F-GATES=B-GATES) (LEMMAS F-AND . F-GATES=B-GATES) (LEMMAS F-EQUV3 . F-GATES=B-GATES) (LEMMAS F-EQUV . F-GATES=B-GATES) (LEMMAS F-XOR3 . F-GATES=B-GATES) (LEMMAS F-XOR . F-GATES=B-GATES) (LEMMAS F-OR4 . F-GATES=B-GATES) (LEMMAS F-OR3 . F-GATES=B-GATES) (LEMMAS F-OR . F-GATES=B-GATES) (LEMMAS F-NAND8 . F-GATES=B-GATES) (LEMMAS F-NAND6 . F-GATES=B-GATES) (LEMMAS F-NAND5 . F-GATES=B-GATES) (LEMMAS F-NAND4 . F-GATES=B-GATES) (LEMMAS F-NAND3 . F-GATES=B-GATES) (LEMMAS F-NAND . F-GATES=B-GATES) (LEMMAS F-NOT . F-GATES=B-GATES) (LEMMAS F-BUF . F-GATES=B-GATES))))) (PUT1-LST (QUOTE F-GATES) (QUOTE (IDATE 1000402194000 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE FM9001-STATE-STRUCTURE$STEP TTL-BIDIRECT-PADS-BODY$VALUE F$UPDATE-FLAGS=UPDATE-FLAGS REGFILE$STATE F$WRITE-REGS=WRITE-REGS REGFILE$VALUE F$READ-REGS=READ-REGS F$NEXT-CNTL-STATE=NEXT-CNTL-STATE PROPERP-LENGTH-F$NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV F$CV=CV NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE F$NEXT-STATE=NEXT-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS PROPERP-LENGTH-F$ENCODE-32 F$ENCODE-32=ENCODE-32 ENCODE-32$VALUE F$DECODE-5=DECODE-5 DECODE-5$VALUE PROPERP-LENGTH-F$DECODE-5 V-IF-F-4$VALUE PROPERP-LENGTH-F$V-IF-F-4 SELECT-OP-CODE$VALUE F$SELECT-OP-CODE-SELECTS PROPERP-LENGTH-F$SELECT-OP-CODE UNARY-OP-CODE-P$VALUE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP$VALUE F$B-STORE-RESULTP=B-STORE-RESULTP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE F$SHIFT-OR-BUF=SHIFT-OR-BUF SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO F$CARRY-OUT-HELP=CARRY-OUT-HELP CARRY-OUT-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$ALU-CELL-V-THREEFIX-MPG ALU-CELL$VALUE F$ALU-CELL=ALU-CELL F$G-CELL=G-CELL G-CELL$VALUE F$P-CELL=P-CELL P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE F$CARRY-IN-HELP=CARRY-IN-HELP MPG$VALUE PROPERP-LENGTH-F$MPG DECODE-GEN$VALUE-ZERO F$DECODE-GEN=DECODE-GEN DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO F$DECODE-PROP=DECODE-PROP DECODE-PROP$VALUE F$DECODE-MODE=DECODE-MODE DECODE-MODE$VALUE WE-REG$STATE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V F$V-INC4=V-INC4 V-INC4$VALUE FAST-ZERO$VALUE F$FAST-ZERO=TR-OR-NOR F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE T-OR-NOR$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE) EVENT (DEFTHEORY F-GATES (F-BUF F-NOT F-NAND F-NAND3 F-NAND4 F-NAND5 F-NAND6 F-NAND8 F-OR F-OR3 F-OR4 F-XOR F-XOR3 F-EQUV F-EQUV3 F-AND F-AND3 F-AND4 F-NOR F-NOR3 F-NOR4 F-NOR5 F-NOR6 F-NOR8 F-IF FT-BUF FT-WIRE F-PULLUP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOT . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NAND8 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-OR . F-GATES) (IMMEDIATE-DEPENDENTS0 F-OR3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-OR4 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-XOR . F-GATES) (IMMEDIATE-DEPENDENTS0 F-XOR3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-GATES) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-AND . F-GATES) (IMMEDIATE-DEPENDENTS0 F-AND3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-AND4 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F-GATES) (IMMEDIATE-DEPENDENTS0 F-IF . F-GATES) (IMMEDIATE-DEPENDENTS0 FT-BUF . F-GATES) (IMMEDIATE-DEPENDENTS0 FT-WIRE . F-GATES) (IMMEDIATE-DEPENDENTS0 F-PULLUP . F-GATES))))) (PUT1-LST (QUOTE F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF) (QUOTE (IDATE 1000402194000 EVENT (TOGGLE F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATE-THREEFIX-CONGRUENCE-LEMMAS . F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF) (DISABLED-LEMMAS NIL F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF . T))))) (PUT1-LST (QUOTE F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (QUOTE (IDATE 1000402194000 IMMEDIATE-DEPENDENTS0 (F$ALU-CELL-V-THREEFIX-MPG F-GATE-THREEFIX-CONGRUENCE-LEMMAS-OFF) EVENT (PROVE-LEMMA F-GATE-THREEFIX-CONGRUENCE-LEMMAS (REWRITE) (AND (EQUAL (F-BUF (THREEFIX A)) (F-BUF A)) (AND (EQUAL (F-NOT (THREEFIX A)) (F-NOT A)) (AND (EQUAL (F-NAND (THREEFIX A) B) (F-NAND A B)) (AND (EQUAL (F-NAND A (THREEFIX B)) (F-NAND A B)) (AND (EQUAL (F-NAND3 (THREEFIX A) B C) (F-NAND3 A B C)) (AND (EQUAL (F-NAND3 A (THREEFIX B) C) (F-NAND3 A B C)) (AND (EQUAL (F-NAND3 A (THREEFIX B) C) (F-NAND3 A B C)) (AND (EQUAL (F-NAND4 (THREEFIX A) B C D) (F-NAND4 A B C D)) (AND (EQUAL (F-NAND4 A (THREEFIX B) C D) (F-NAND4 A B C D)) (AND (EQUAL (F-NAND4 A B (THREEFIX C) D) (F-NAND4 A B C D)) (AND (EQUAL (F-NAND4 A B C (THREEFIX D)) (F-NAND4 A B C D)) (AND (EQUAL (F-NAND5 (THREEFIX A) B C D E) (F-NAND5 A B C D E)) (AND (EQUAL (F-NAND5 A (THREEFIX B) C D E) (F-NAND5 A B C D E)) (AND (EQUAL (F-NAND5 A B (THREEFIX C) D E) (F-NAND5 A B C D E)) (AND (EQUAL (F-NAND5 A B C (THREEFIX D) E) (F-NAND5 A B C D E)) (AND (EQUAL (F-NAND5 A B C D (THREEFIX E)) (F-NAND5 A B C D E)) (AND (EQUAL (F-NAND6 (THREEFIX A) B C D E G) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND6 A (THREEFIX B) C D E G) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND6 A B (THREEFIX C) D E G) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND6 A B C (THREEFIX D) E G) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND6 A B C D (THREEFIX E) G) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND6 A B C D E (THREEFIX G)) (F-NAND6 A B C D E G)) (AND (EQUAL (F-NAND8 (THREEFIX A) B C D E G H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A (THREEFIX B) C D E G H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B (THREEFIX C) D E G H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B C (THREEFIX D) E G H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B C D (THREEFIX E) G H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B C D E (THREEFIX G) H I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B C D E G (THREEFIX H) I) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-NAND8 A B C D E G H (THREEFIX I)) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-OR (THREEFIX A) B) (F-OR A B)) (AND (EQUAL (F-OR A (THREEFIX B)) (F-OR A B)) (AND (EQUAL (F-OR3 (THREEFIX A) B C) (F-OR3 A B C)) (AND (EQUAL (F-OR3 A (THREEFIX B) C) (F-OR3 A B C)) (AND (EQUAL (F-OR3 A (THREEFIX B) C) (F-OR3 A B C)) (AND (EQUAL (F-OR4 (THREEFIX A) B C D) (F-OR4 A B C D)) (AND (EQUAL (F-OR4 A (THREEFIX B) C D) (F-OR4 A B C D)) (AND (EQUAL (F-OR4 A B (THREEFIX C) D) (F-OR4 A B C D)) (AND (EQUAL (F-OR4 A B C (THREEFIX D)) (F-OR4 A B C D)) (AND (EQUAL (F-XOR (THREEFIX A) B) (F-XOR A B)) (AND (EQUAL (F-XOR A (THREEFIX B)) (F-XOR A B)) (AND (EQUAL (F-XOR3 (THREEFIX A) B C) (F-XOR3 A B C)) (AND (EQUAL (F-XOR3 A (THREEFIX B) C) (F-XOR3 A B C)) (AND (EQUAL (F-XOR3 A (THREEFIX B) C) (F-XOR3 A B C)) (AND (EQUAL (F-EQUV (THREEFIX A) B) (F-EQUV A B)) (AND (EQUAL (F-EQUV A (THREEFIX B)) (F-EQUV A B)) (AND (EQUAL (F-EQUV3 (THREEFIX A) B C) (F-EQUV3 A B C)) (AND (EQUAL (F-EQUV3 A (THREEFIX B) C) (F-EQUV3 A B C)) (AND (EQUAL (F-EQUV3 A (THREEFIX B) C) (F-EQUV3 A B C)) (AND (EQUAL (F-AND (THREEFIX A) B) (F-AND A B)) (AND (EQUAL (F-AND A (THREEFIX B)) (F-AND A B)) (AND (EQUAL (F-AND3 (THREEFIX A) B C) (F-AND3 A B C)) (AND (EQUAL (F-AND3 A (THREEFIX B) C) (F-AND3 A B C)) (AND (EQUAL (F-AND3 A (THREEFIX B) C) (F-AND3 A B C)) (AND (EQUAL (F-AND4 (THREEFIX A) B C D) (F-AND4 A B C D)) (AND (EQUAL (F-AND4 A (THREEFIX B) C D) (F-AND4 A B C D)) (AND (EQUAL (F-AND4 A B (THREEFIX C) D) (F-AND4 A B C D)) (AND (EQUAL (F-AND4 A B C (THREEFIX D)) (F-AND4 A B C D)) (AND (EQUAL (F-NOR (THREEFIX A) B) (F-NOR A B)) (AND (EQUAL (F-NOR A (THREEFIX B)) (F-NOR A B)) (AND (EQUAL (F-NOR3 (THREEFIX A) B C) (F-NOR3 A B C)) (AND (EQUAL (F-NOR3 A (THREEFIX B) C) (F-NOR3 A B C)) (AND (EQUAL (F-NOR3 A (THREEFIX B) C) (F-NOR3 A B C)) (AND (EQUAL (F-NOR4 (THREEFIX A) B C D) (F-NOR4 A B C D)) (AND (EQUAL (F-NOR4 A (THREEFIX B) C D) (F-NOR4 A B C D)) (AND (EQUAL (F-NOR4 A B (THREEFIX C) D) (F-NOR4 A B C D)) (AND (EQUAL (F-NOR4 A B C (THREEFIX D)) (F-NOR4 A B C D)) (AND (EQUAL (F-NOR5 (THREEFIX A) B C D E) (F-NOR5 A B C D E)) (AND (EQUAL (F-NOR5 A (THREEFIX B) C D E) (F-NOR5 A B C D E)) (AND (EQUAL (F-NOR5 A B (THREEFIX C) D E) (F-NOR5 A B C D E)) (AND (EQUAL (F-NOR5 A B C (THREEFIX D) E) (F-NOR5 A B C D E)) (AND (EQUAL (F-NOR5 A B C D (THREEFIX E)) (F-NOR5 A B C D E)) (AND (EQUAL (F-NOR6 (THREEFIX A) B C D E G) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR6 A (THREEFIX B) C D E G) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR6 A B (THREEFIX C) D E G) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR6 A B C (THREEFIX D) E G) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR6 A B C D (THREEFIX E) G) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR6 A B C D E (THREEFIX G)) (F-NOR6 A B C D E G)) (AND (EQUAL (F-NOR8 (THREEFIX A) B C D E G H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A (THREEFIX B) C D E G H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B (THREEFIX C) D E G H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B C (THREEFIX D) E G H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B C D (THREEFIX E) G H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B C D E (THREEFIX G) H I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B C D E G (THREEFIX H) I) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-NOR8 A B C D E G H (THREEFIX I)) (F-NOR8 A B C D E G H I)) (AND (EQUAL (F-IF (THREEFIX C) A B) (F-IF C A B)) (AND (EQUAL (F-IF C (THREEFIX A) B) (F-IF C A B)) (EQUAL (F-IF C A (THREEFIX B)) (F-IF C A B)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((ENABLE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (DISABLE F-BUF F-NOT F-OR F-AND F-XOR F-EQUV F-IF THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOT . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-BUF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-EQUV3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-EQUV3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-EQUV3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-XOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-XOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-XOR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND8 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND6 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND5 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND4 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND3 . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NAND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-NOT . F-GATE-THREEFIX-CONGRUENCE-LEMMAS) (LEMMAS F-BUF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS))))) (PUT1-LST (QUOTE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF) (DISABLED-LEMMAS NIL F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF . T))))) (PUT1-LST (QUOTE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP-OFF) EVENT (PROVE-LEMMA F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP (REWRITE) (AND (EQUAL (F-BUF (THREEFIX A)) (F-BUF A)) (AND (EQUAL (F-NOT (THREEFIX A)) (F-NOT A)) (AND (EQUAL (F-OR (THREEFIX A) B) (F-OR A B)) (AND (EQUAL (F-OR A (THREEFIX B)) (F-OR A B)) (AND (EQUAL (F-XOR (THREEFIX A) B) (F-XOR A B)) (AND (EQUAL (F-XOR A (THREEFIX B)) (F-XOR A B)) (AND (EQUAL (F-EQUV (THREEFIX A) B) (F-EQUV A B)) (AND (EQUAL (F-EQUV A (THREEFIX B)) (F-EQUV A B)) (AND (EQUAL (F-AND (THREEFIX A) B) (F-AND A B)) (AND (EQUAL (F-AND A (THREEFIX B)) (F-AND A B)) (AND (EQUAL (F-IF (THREEFIX C) A B) (F-IF C A B)) (AND (EQUAL (F-IF C (THREEFIX A) B) (F-IF C A B)) (EQUAL (F-IF C A (THREEFIX B)) (F-IF C A B))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-LEMMA . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-IF-REWRITE . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-AND-REWRITE . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-OR-REWRITE . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 BOOLP . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 THREEFIX-IDEMPOTENT . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-NOT . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (IMMEDIATE-DEPENDENTS0 F-BUF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-IF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-AND . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-EQUV . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-XOR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-OR . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-NOT . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) (LEMMAS F-BUF . F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP))))) (PUT1-LST (QUOTE F-BUF-DELETE-LEMMAS-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE F-BUF-DELETE-LEMMAS-OFF F-BUF-DELETE-LEMMAS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-BUF-DELETE-LEMMAS . F-BUF-DELETE-LEMMAS-OFF) (DISABLED-LEMMAS NIL F-BUF-DELETE-LEMMAS F-BUF-DELETE-LEMMAS-OFF . T))))) (PUT1-LST (QUOTE F-BUF-DELETE-LEMMAS) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (CHIP$STATE CHIP-MODULE$STATE F-BUF-DELETE-LEMMAS-OFF) EVENT (PROVE-LEMMA F-BUF-DELETE-LEMMAS (REWRITE) (AND (EQUAL (F-BUF (F-BUF A)) (F-BUF A)) (AND (EQUAL (F-BUF (F-NOT A)) (F-NOT A)) (AND (EQUAL (F-BUF (F-NAND A B)) (F-NAND A B)) (AND (EQUAL (F-BUF (F-NAND3 A B C)) (F-NAND3 A B C)) (AND (EQUAL (F-BUF (F-NAND4 A B C D)) (F-NAND4 A B C D)) (AND (EQUAL (F-BUF (F-NAND5 A B C D E)) (F-NAND5 A B C D E)) (AND (EQUAL (F-BUF (F-NAND6 A B C D E G)) (F-NAND6 A B C D E G)) (AND (EQUAL (F-BUF (F-NAND8 A B C D E G H I)) (F-NAND8 A B C D E G H I)) (AND (EQUAL (F-BUF (F-OR A B)) (F-OR A B)) (AND (EQUAL (F-BUF (F-OR3 A B C)) (F-OR3 A B C)) (AND (EQUAL (F-BUF (F-OR4 A B C D)) (F-OR4 A B C D)) (AND (EQUAL (F-BUF (F-XOR A B)) (F-XOR A B)) (AND (EQUAL (F-BUF (F-XOR3 A B C)) (F-XOR3 A B C)) (AND (EQUAL (F-BUF (F-EQUV A B)) (F-EQUV A B)) (AND (EQUAL (F-BUF (F-EQUV3 A B C)) (F-EQUV3 A B C)) (AND (EQUAL (F-BUF (F-AND A B)) (F-AND A B)) (AND (EQUAL (F-BUF (F-AND3 A B C)) (F-AND3 A B C)) (AND (EQUAL (F-BUF (F-AND4 A B C D)) (F-AND4 A B C D)) (AND (EQUAL (F-BUF (F-NOR A B)) (F-NOR A B)) (AND (EQUAL (F-BUF (F-NOR3 A B C)) (F-NOR3 A B C)) (AND (EQUAL (F-BUF (F-NOR4 A B C D)) (F-NOR4 A B C D)) (AND (EQUAL (F-BUF (F-NOR5 A B C D E)) (F-NOR5 A B C D E)) (AND (EQUAL (F-BUF (F-NOR6 A B C D E G)) (F-NOR6 A B C D E G)) (AND (EQUAL (F-BUF (F-NOR8 A B C D E G H I)) (F-NOR8 A B C D E G H I)) (EQUAL (F-BUF (F-IF C A B)) (F-IF C A B)))))))))))))))))))))))))) ((ENABLE THREEFIX-HELP-LEMMA))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 THREEFIX-HELP-LEMMA . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 THREEFIX-IDEMPOTENT . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-IF . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR8 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR6 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR5 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR4 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOR . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND4 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-AND . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-XOR . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR4 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-OR . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND8 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND6 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND5 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND4 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND3 . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NAND . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-NOT . F-BUF-DELETE-LEMMAS) (IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS) (LEMMAS F-BUF . F-BUF-DELETE-LEMMAS))))) (PUT1-LST (QUOTE F-NOT-F-NOT=F-BUF-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE F-NOT-F-NOT=F-BUF-OFF F-NOT-F-NOT=F-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT-F-NOT=F-BUF . F-NOT-F-NOT=F-BUF-OFF) (DISABLED-LEMMAS NIL F-NOT-F-NOT=F-BUF F-NOT-F-NOT=F-BUF-OFF . T))))) (PUT1-LST (QUOTE F-NOT-F-NOT=F-BUF) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CARRY-IN-HELP$VALUE F-NOT-F-NOT=F-BUF-OFF) EVENT (PROVE-LEMMA F-NOT-F-NOT=F-BUF (REWRITE) (EQUAL (F-NOT (F-NOT X)) (F-BUF X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . F-NOT-F-NOT=F-BUF) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F-NOT-F-NOT=F-BUF) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-NOT-F-NOT=F-BUF) (IMMEDIATE-DEPENDENTS0 F-BUF . F-NOT-F-NOT=F-BUF) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-F-NOT=F-BUF) (LEMMAS F-NOT . F-NOT-F-NOT=F-BUF))))) (PUT1-LST (QUOTE THREEFIX-HELP-LEMMA-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE THREEFIX-HELP-LEMMA-OFF THREEFIX-HELP-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX-HELP-LEMMA . THREEFIX-HELP-LEMMA-OFF) (DISABLED-LEMMAS NIL THREEFIX-HELP-LEMMA THREEFIX-HELP-LEMMA-OFF . T))))) (PUT1-LST (QUOTE THREEFIX-HELP-LEMMA) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA-OFF) EVENT (PROVE-LEMMA THREEFIX-HELP-LEMMA (REWRITE) (AND (EQUAL (THREEFIX (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (AND (EQUAL (THREEFIX (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (AND (EQUAL (THREEFIX (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) (AND (EQUAL (THREEFIX (F-BUF X)) (THREEFIX X)) (AND (EQUAL (THREEFIX (F-NOT X)) (F-NOT X)) (AND (EQUAL (THREEFIX (F-AND X Y)) (F-AND X Y)) (AND (EQUAL (THREEFIX (F-OR X Y)) (F-OR X Y)) (AND (EQUAL (THREEFIX (F-XOR X Y)) (F-XOR X Y)) (EQUAL (THREEFIX (F-EQUV X Y)) (F-EQUV X Y))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 THREEFIX-IDEMPOTENT . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-EQUV . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-XOR . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-OR . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-AND . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-NOT . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 F-BUF . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 X . THREEFIX-HELP-LEMMA) (IMMEDIATE-DEPENDENTS0 THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA) (LEMMAS THREEFIX . THREEFIX-HELP-LEMMA))))) (PUT1-LST (QUOTE F-PULLUP-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA F-PULLUP-REWRITE (REWRITE) (AND (EQUAL (F-PULLUP (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (AND (EQUAL (F-PULLUP (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (AND (EQUAL (F-PULLUP (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) (EQUAL (F-PULLUP (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z . F-PULLUP-REWRITE) (IMMEDIATE-DEPENDENTS0 X . F-PULLUP-REWRITE) (IMMEDIATE-DEPENDENTS0 F-PULLUP . F-PULLUP-REWRITE) (LEMMAS F-PULLUP . F-PULLUP-REWRITE) (LEMMAS F-PULLUP . F-PULLUP-REWRITE) (LEMMAS F-PULLUP . F-PULLUP-REWRITE) (LEMMAS F-PULLUP . F-PULLUP-REWRITE))))) (PUT1-LST (QUOTE FT-WIRE-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (FT-WIRE-MONOTONE TTL-BIDIRECT-PADS-BODY$VALUE V-WIRE-MAKE-LIST-X V-WIRE-MAKE-LIST-Z) EVENT (PROVE-LEMMA FT-WIRE-REWRITE (REWRITE) (AND (EQUAL (FT-WIRE (QUOTE (*1*QUOTE X)) X) (QUOTE (*1*QUOTE X))) (AND (EQUAL (FT-WIRE X (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) (AND (EQUAL (FT-WIRE X (QUOTE (*1*QUOTE Z))) (FOURFIX X)) (EQUAL (FT-WIRE (QUOTE (*1*QUOTE Z)) X) (FOURFIX X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . FT-WIRE-REWRITE) (IMMEDIATE-DEPENDENTS0 FOURFIX . FT-WIRE-REWRITE) (IMMEDIATE-DEPENDENTS0 Z . FT-WIRE-REWRITE) (IMMEDIATE-DEPENDENTS0 X . FT-WIRE-REWRITE) (IMMEDIATE-DEPENDENTS0 FT-WIRE . FT-WIRE-REWRITE) (LEMMAS FT-WIRE . FT-WIRE-REWRITE) (LEMMAS FT-WIRE . FT-WIRE-REWRITE) (LEMMAS FT-WIRE . FT-WIRE-REWRITE) (LEMMAS FT-WIRE . FT-WIRE-REWRITE))))) (PUT1-LST (QUOTE F-IF-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (F-IF-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS REGFILE$STATE F$SELECT-OP-CODE-SELECTS WE-REG-BODY$STATE REG-BODY$STATE FV-IF-V-THREEFIX FV-IF-WHEN-BOOLP-C F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) EVENT (PROVE-LEMMA F-IF-REWRITE (REWRITE) (AND (EQUAL (F-IF (QUOTE *1*TRUE) A B) (F-BUF A)) (EQUAL (F-IF (QUOTE *1*FALSE) A B) (F-BUF B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 F-BUF . F-IF-REWRITE) (IMMEDIATE-DEPENDENTS0 F-IF . F-IF-REWRITE) (LEMMAS F-IF . F-IF-REWRITE) (LEMMAS F-IF . F-IF-REWRITE))))) (PUT1-LST (QUOTE FT-BUF-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (FT-BUF-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE VFT-BUF-LEMMAS) EVENT (PROVE-LEMMA FT-BUF-REWRITE (REWRITE) (AND (EQUAL (FT-BUF (QUOTE *1*TRUE) X) (THREEFIX X)) (AND (EQUAL (FT-BUF (QUOTE *1*FALSE) X) (QUOTE (*1*QUOTE Z))) (AND (EQUAL (FT-BUF C (THREEFIX X)) (FT-BUF C X)) (EQUAL (FT-BUF (QUOTE (*1*QUOTE X)) X) (QUOTE (*1*QUOTE X))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . FT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 Z . FT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 THREEFIX . FT-BUF-REWRITE) (IMMEDIATE-DEPENDENTS0 FT-BUF . FT-BUF-REWRITE) (LEMMAS FT-BUF . FT-BUF-REWRITE) (LEMMAS FT-BUF . FT-BUF-REWRITE) (LEMMAS FT-BUF . FT-BUF-REWRITE) (LEMMAS FT-BUF . FT-BUF-REWRITE))))) (PUT1-LST (QUOTE F-NOT-REWRITE) (QUOTE (IDATE 1000402193959 EVENT (PROVE-LEMMA F-NOT-REWRITE (REWRITE) (AND (EQUAL (F-NOT (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (EQUAL (F-NOT (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-NOT . F-NOT-REWRITE) (LEMMAS F-NOT . F-NOT-REWRITE) (LEMMAS F-NOT . F-NOT-REWRITE))))) (PUT1-LST (QUOTE F-OR-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (F-OR-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE1$STEP WRITE0$STEP READB1$STEP READB0$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 B-OR4$VALUE-AS-F$SET-SOME-FLAGS SHIFT-OR-BUF-CNTL$VALUE-ZERO OVERFLOW-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE-ZERO DECODE-GEN$VALUE-ZERO T-CARRY$VALUE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) EVENT (PROVE-LEMMA F-OR-REWRITE (REWRITE) (AND (EQUAL (F-OR (QUOTE *1*FALSE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (AND (IMPLIES (AND X (BOOLP X)) (EQUAL (F-OR X Y) (QUOTE *1*TRUE))) (IMPLIES (AND X (BOOLP X)) (EQUAL (F-OR Y X) (QUOTE *1*TRUE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F-OR-REWRITE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-OR-REWRITE) (IMMEDIATE-DEPENDENTS0 F-OR . F-OR-REWRITE) (LEMMAS F-OR . F-OR-REWRITE) (LEMMAS F-OR . F-OR-REWRITE) (LEMMAS F-OR . F-OR-REWRITE))))) (PUT1-LST (QUOTE F-AND-REWRITE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (F-AND-MONOTONE TTL-INPUT-PADS-BODY$VALUE PROPERP-LENGTH-F$WRITE-REGS PROPERP-LENGTH-F$READ-REGS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS V-IF-F-4$RESET-VALUE F$SELECT-OP-CODE-SELECTS OVERFLOW-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE-ZERO G-CELL$VALUE-ZERO P-CELL$VALUE-ZERO F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) EVENT (PROVE-LEMMA F-AND-REWRITE (REWRITE) (AND (NOT (F-AND (QUOTE *1*FALSE) X)) (AND (NOT (F-AND X (QUOTE *1*FALSE))) (AND (EQUAL (F-AND X (QUOTE *1*TRUE)) (F-BUF X)) (AND (EQUAL (F-AND (QUOTE *1*TRUE) X) (F-BUF X)) (IMPLIES (AND X (AND Y (AND (BOOLP X) (BOOLP Y)))) (EQUAL (F-AND X Y) (QUOTE *1*TRUE)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . F-AND-REWRITE) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-AND-REWRITE) (IMMEDIATE-DEPENDENTS0 BOOLP . F-AND-REWRITE) (IMMEDIATE-DEPENDENTS0 F-BUF . F-AND-REWRITE) (IMMEDIATE-DEPENDENTS0 F-AND . F-AND-REWRITE) (LEMMAS F-AND . F-AND-REWRITE) (LEMMAS F-AND . F-AND-REWRITE) (LEMMAS F-AND . F-AND-REWRITE) (LEMMAS F-AND . F-AND-REWRITE) (LEMMAS F-AND . F-AND-REWRITE))))) (PUT1-LST (QUOTE F-BUF-LEMMA) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (CHIP$STATE CHIP-MODULE$STATE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP) EVENT (PROVE-LEMMA F-BUF-LEMMA (REWRITE) (IMPLIES (BOOLP X) (EQUAL (F-BUF X) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF-LEMMA) (IMMEDIATE-DEPENDENTS0 F-BUF . F-BUF-LEMMA) (IMMEDIATE-DEPENDENTS0 BOOLP . F-BUF-LEMMA) (LEMMAS F-BUF . F-BUF-LEMMA))))) (PUT1-LST (QUOTE EXPAND-F-FUNCTIONS-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE EXPAND-F-FUNCTIONS-OFF EXPAND-F-FUNCTIONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXPAND-F-FUNCTIONS . EXPAND-F-FUNCTIONS-OFF) (DISABLED-LEMMAS NIL EXPAND-F-FUNCTIONS EXPAND-F-FUNCTIONS-OFF . T))))) (PUT1-LST (QUOTE EXPAND-F-FUNCTIONS) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (TR-OR-NOR=BTR-OR-NOR EXPAND-F-FUNCTIONS-OFF) EVENT (PROVE-LEMMA EXPAND-F-FUNCTIONS (REWRITE) (AND (EQUAL (F-BUF A) (THREEFIX A)) (AND (EQUAL (F-AND A B) (IF (OR (EQUAL A (QUOTE *1*FALSE)) (EQUAL B (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (IF (AND (EQUAL A (QUOTE *1*TRUE)) (EQUAL B (QUOTE *1*TRUE))) (QUOTE *1*TRUE) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (F-AND3 A B C) (F-AND A (F-AND B C))) (AND (EQUAL (F-AND4 A B C D) (F-AND A (F-AND B (F-AND C D)))) (AND (EQUAL (F-NOT A) (IF (BOOLP A) (NOT A) (QUOTE (*1*QUOTE X)))) (AND (EQUAL (F-NAND A B) (F-NOT (F-AND A B))) (AND (EQUAL (F-NAND3 A B C) (F-NOT (F-AND A (F-AND B C)))) (AND (EQUAL (F-NAND4 A B C D) (F-NOT (F-AND A (F-AND B (F-AND C D))))) (AND (EQUAL (F-OR A B) (IF (OR (EQUAL A (QUOTE *1*TRUE)) (EQUAL B (QUOTE *1*TRUE))) (QUOTE *1*TRUE) (IF (AND (EQUAL A (QUOTE *1*FALSE)) (EQUAL B (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (F-NAND5 A B C D E) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D E)))))) (AND (EQUAL (F-NAND6 A B C D E G) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E G))))))) (AND (EQUAL (F-NAND8 A B C D E G H I) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E (F-AND G (F-AND H I))))))))) (AND (EQUAL (F-OR3 A B C) (F-OR A (F-OR B C))) (AND (EQUAL (F-OR4 A B C D) (F-OR A (F-OR B (F-OR C D)))) (AND (EQUAL (F-NOR A B) (F-NOT (F-OR A B))) (AND (EQUAL (F-NOR3 A B C) (F-NOT (F-OR A (F-OR B C)))) (AND (EQUAL (F-NOR4 A B C D) (F-NOT (F-OR A (F-OR B (F-OR C D))))) (AND (EQUAL (F-NOR5 A B C D E) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D E)))))) (AND (EQUAL (F-NOR6 A B C D E G) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E G))))))) (AND (EQUAL (F-NOR8 A B C D E G H I) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E (F-OR G (F-OR H I))))))))) (AND (EQUAL (F-XOR A B) (IF (EQUAL A (QUOTE *1*TRUE)) (F-NOT B) (IF (EQUAL A (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (F-XOR3 A B C) (F-XOR A (F-XOR B C))) (AND (EQUAL (F-EQUV A B) (IF (EQUAL A (QUOTE *1*TRUE)) (THREEFIX B) (IF (EQUAL A (QUOTE *1*FALSE)) (F-NOT B) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (F-EQUV3 A B C) (F-EQUV A (F-XOR B C))) (AND (EQUAL (F-IF C A B) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (FT-BUF C A) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (QUOTE (*1*QUOTE Z)) (QUOTE (*1*QUOTE X))))) (AND (EQUAL (FT-WIRE A B) (IF (EQUAL A B) (FOURFIX A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (FOURFIX B) (IF (EQUAL B (QUOTE (*1*QUOTE Z))) (FOURFIX A) (QUOTE (*1*QUOTE X)))))) (EQUAL (F-PULLUP A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE) (THREEFIX A))))))))))))))))))))))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-PULLUP . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 FOURFIX . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 FT-WIRE . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 Z . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 FT-BUF . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-IF . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-EQUV3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-EQUV . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-XOR3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-XOR . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR8 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR6 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR5 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR4 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOR . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-OR4 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-OR3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND8 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND6 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND5 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-OR . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND4 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NAND . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 BOOLP . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-NOT . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-AND4 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-AND3 . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 X . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-AND . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 THREEFIX . EXPAND-F-FUNCTIONS) (IMMEDIATE-DEPENDENTS0 F-BUF . EXPAND-F-FUNCTIONS) (LEMMAS F-PULLUP . EXPAND-F-FUNCTIONS) (LEMMAS FT-WIRE . EXPAND-F-FUNCTIONS) (LEMMAS FT-BUF . EXPAND-F-FUNCTIONS) (LEMMAS F-IF . EXPAND-F-FUNCTIONS) (LEMMAS F-EQUV3 . EXPAND-F-FUNCTIONS) (LEMMAS F-EQUV . EXPAND-F-FUNCTIONS) (LEMMAS F-XOR3 . EXPAND-F-FUNCTIONS) (LEMMAS F-XOR . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR8 . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR6 . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR5 . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR4 . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR3 . EXPAND-F-FUNCTIONS) (LEMMAS F-NOR . EXPAND-F-FUNCTIONS) (LEMMAS F-OR4 . EXPAND-F-FUNCTIONS) (LEMMAS F-OR3 . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND8 . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND6 . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND5 . EXPAND-F-FUNCTIONS) (LEMMAS F-OR . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND4 . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND3 . EXPAND-F-FUNCTIONS) (LEMMAS F-NAND . EXPAND-F-FUNCTIONS) (LEMMAS F-NOT . EXPAND-F-FUNCTIONS) (LEMMAS F-AND4 . EXPAND-F-FUNCTIONS) (LEMMAS F-AND3 . EXPAND-F-FUNCTIONS) (LEMMAS F-AND . EXPAND-F-FUNCTIONS) (LEMMAS F-BUF . EXPAND-F-FUNCTIONS))))) (PUT1-LST (QUOTE *1*F$AO2) (QUOTE (MAIN-EVENT F$AO2))) (PUT1-LST (QUOTE F$AO2) (QUOTE (TYPE-PRESCRIPTION-LST ((F$AO2 131 NIL NIL NIL NIL)) TOTALP-LST ((F$AO2 . T)) SDEFN (LAMBDA (A B C D) (F-NOR (F-AND A B) (F-AND C D))) LISP-CODE *1*F$AO2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F$AO2) IMMEDIATE-DEPENDENTS0 (F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX$VALUE F$STORE-RESULTP-MUX) EVENT (DEFN F$AO2 (A B C D) (F-NOR (F-AND A B) (F-AND C D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F$AO2) (IMMEDIATE-DEPENDENTS0 F-NOR . F$AO2) (DCELL . *1*F$AO2))))) (PUT1-LST (QUOTE *1*F-PULLUP) (QUOTE (MAIN-EVENT F-PULLUP))) (PUT1-LST (QUOTE F-PULLUP) (QUOTE (TYPE-PRESCRIPTION-LST ((F-PULLUP 130 T)) LEMMAS ((REWRITE-RULE F-PULLUP-REWRITE NIL (EQUAL (F-PULLUP (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE F-PULLUP-REWRITE NIL (EQUAL (F-PULLUP (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) NIL) (REWRITE-RULE F-PULLUP-REWRITE NIL (EQUAL (F-PULLUP (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE F-PULLUP-REWRITE NIL (EQUAL (F-PULLUP (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-PULLUP A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE) (THREEFIX A))) NIL)) TOTALP-LST ((F-PULLUP . T)) SDEFN (LAMBDA (A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE) (THREEFIX A))) LISP-CODE *1*F-PULLUP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-PULLUP) IMMEDIATE-DEPENDENTS0 (F-PULLUP-OFF1 F-PULLUP-ON DUAL-EVAL-PULLUP-VALUE F-PULLUP-OFF F-PULLUP-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP FM9001-NEXT-STATE PULLUP$VALUE V-PULLUP-MAKE-LIST-Z V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP V-PULLUP F-GATES F-PULLUP-REWRITE EXPAND-F-FUNCTIONS) EVENT (DEFN F-PULLUP (A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE) (THREEFIX A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-PULLUP) (IMMEDIATE-DEPENDENTS0 Z . F-PULLUP) (DCELL . *1*F-PULLUP))))) (PUT1-LST (QUOTE *1*FT-WIRE) (QUOTE (MAIN-EVENT FT-WIRE))) (PUT1-LST (QUOTE FT-WIRE) (QUOTE (TYPE-PRESCRIPTION-LST ((FT-WIRE 128 T T)) LEMMAS ((REWRITE-RULE FT-WIRE-REWRITE NIL (EQUAL (FT-WIRE (QUOTE (*1*QUOTE Z)) X) (FOURFIX X)) NIL) (REWRITE-RULE FT-WIRE-REWRITE NIL (EQUAL (FT-WIRE X (QUOTE (*1*QUOTE Z))) (FOURFIX X)) NIL) (REWRITE-RULE FT-WIRE-REWRITE NIL (EQUAL (FT-WIRE X (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) NIL) (REWRITE-RULE FT-WIRE-REWRITE NIL (EQUAL (FT-WIRE (QUOTE (*1*QUOTE X)) X) (QUOTE (*1*QUOTE X))) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (FT-WIRE A B) (IF (EQUAL A B) (FOURFIX A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (FOURFIX B) (IF (EQUAL B (QUOTE (*1*QUOTE Z))) (FOURFIX A) (QUOTE (*1*QUOTE X)))))) NIL)) TOTALP-LST ((FT-WIRE . T)) SDEFN (LAMBDA (A B) (IF (EQUAL A B) (FOURFIX A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (FOURFIX B) (IF (EQUAL B (QUOTE (*1*QUOTE Z))) (FOURFIX A) (QUOTE (*1*QUOTE X)))))) LISP-CODE *1*FT-WIRE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*FT-WIRE) IMMEDIATE-DEPENDENTS0 (FT-WIRE-OFF1 FT-WIRE-ON DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-T-WIRE-VALUE FT-WIRE-OFF FT-WIRE-MONOTONE M2$STATE M2$VALUE TTL-BIDIRECT$VALUE T-WIRE$VALUE PROPERP-LENGTH-V-WIRE V-WIRE-X-X=X V-WIRE F-GATES FT-WIRE-REWRITE EXPAND-F-FUNCTIONS) EVENT (DEFN FT-WIRE (A B) (IF (EQUAL A B) (FOURFIX A) (IF (EQUAL A (QUOTE (*1*QUOTE Z))) (FOURFIX B) (IF (EQUAL B (QUOTE (*1*QUOTE Z))) (FOURFIX A) (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . FT-WIRE) (IMMEDIATE-DEPENDENTS0 Z . FT-WIRE) (IMMEDIATE-DEPENDENTS0 FOURFIX . FT-WIRE) (DCELL . *1*FT-WIRE))))) (PUT1-LST (QUOTE *1*FT-BUF) (QUOTE (MAIN-EVENT FT-BUF))) (PUT1-LST (QUOTE FT-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((FT-BUF 384 NIL T)) LEMMAS ((REWRITE-RULE FT-BUF-REWRITE NIL (EQUAL (FT-BUF (QUOTE (*1*QUOTE X)) X) (QUOTE (*1*QUOTE X))) NIL) (REWRITE-RULE FT-BUF-REWRITE NIL (EQUAL (FT-BUF C (THREEFIX X)) (FT-BUF C X)) NIL) (REWRITE-RULE FT-BUF-REWRITE NIL (EQUAL (FT-BUF (QUOTE *1*FALSE) X) (QUOTE (*1*QUOTE Z))) NIL) (REWRITE-RULE FT-BUF-REWRITE NIL (EQUAL (FT-BUF (QUOTE *1*TRUE) X) (THREEFIX X)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (FT-BUF C A) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (QUOTE (*1*QUOTE Z)) (QUOTE (*1*QUOTE X))))) NIL)) TOTALP-LST ((FT-BUF . T)) SDEFN (LAMBDA (C A) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (QUOTE (*1*QUOTE Z)) (QUOTE (*1*QUOTE X))))) LISP-CODE *1*FT-BUF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*FT-BUF) IMMEDIATE-DEPENDENTS0 (FT-BUF-OFF1 FT-BUF-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-T-BUF-VALUE FT-BUF-OFF FT-BUF-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE FM9001-NEXT-STATE M2$STATE M2$VALUE M1$STATE M1$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-BIDIRECT$VALUE T-BUF$VALUE VFT-BUF-REWRITE PROPERP-LENGTH-VFT-BUF VFT-BUF F-GATES FT-BUF-REWRITE EXPAND-F-FUNCTIONS) EVENT (DEFN FT-BUF (C A) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (QUOTE (*1*QUOTE Z)) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . FT-BUF) (IMMEDIATE-DEPENDENTS0 Z . FT-BUF) (IMMEDIATE-DEPENDENTS0 THREEFIX . FT-BUF) (DCELL . *1*FT-BUF))))) (PUT1-LST (QUOTE *1*F-IF) (QUOTE (MAIN-EVENT F-IF))) (PUT1-LST (QUOTE F-IF) (QUOTE (TYPE-PRESCRIPTION-LST ((F-IF 128 NIL T T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP C) (BOOLP A) (BOOLP B)) (EQUAL (F-IF C A B) (B-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-IF C A (THREEFIX B)) (F-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-IF C (THREEFIX A) B) (F-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-IF (THREEFIX C) A B) (F-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-IF C A (THREEFIX B)) (F-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-IF C (THREEFIX A) B) (F-IF C A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-IF (THREEFIX C) A B) (F-IF C A B)) NIL) (REWRITE-RULE F-IF-REWRITE NIL (EQUAL (F-IF (QUOTE *1*FALSE) A B) (F-BUF B)) NIL) (REWRITE-RULE F-IF-REWRITE NIL (EQUAL (F-IF (QUOTE *1*TRUE) A B) (F-BUF A)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-IF C A B) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) NIL)) TOTALP-LST ((F-IF . T)) SDEFN (LAMBDA (C A B) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) LISP-CODE *1*F-IF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-IF) IMMEDIATE-DEPENDENTS0 (F-IF-OFF1 F-IF-ON F-IF-PRESERVES-GOOD-S DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1S-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-B-IF-VALUE FOURP-F-IF F-IF-OFF F-IF-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE FLAGS$STATE-HELP PROPERP-LENGTH-F$UPDATE-FLAGS F$UPDATE-FLAGS F$V-IF-F-4=FV-IF F$SELECT-OP-CODE F$OVERFLOW-HELP WE-REG-BODY$STATE TV-IF$VALUE M2$STATE M1$STATE M1$VALUE FD1SLP$STATE FD1SP$STATE FD1S$STATE PROCMON$VALUE B-IF$VALUE FV-IF-V-THREEFIX FV-IF-REWRITE V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF FV-IF F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS F-IF-REWRITE EXPAND-F-FUNCTIONS) EVENT (DEFN F-IF (C A B) (IF (EQUAL C (QUOTE *1*TRUE)) (THREEFIX A) (IF (EQUAL C (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-IF) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-IF) (DCELL . *1*F-IF))))) (PUT1-LST (QUOTE *1*F-EQUV3) (QUOTE (MAIN-EVENT F-EQUV3))) (PUT1-LST (QUOTE F-EQUV3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-EQUV3 131 NIL NIL T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-EQUV3 A B C) (B-EQUV3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-EQUV3 A (THREEFIX B) C) (F-EQUV3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-EQUV3 A (THREEFIX B) C) (F-EQUV3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-EQUV3 (THREEFIX A) B C) (F-EQUV3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-EQUV3 A B C) (F-EQUV A (F-XOR B C))) NIL)) TOTALP-LST ((F-EQUV3 . T)) SDEFN (LAMBDA (A B C) (F-EQUV A (F-XOR B C))) LISP-CODE *1*F-EQUV3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-EQUV3) IMMEDIATE-DEPENDENTS0 (F-EQUV3-OFF1 F-EQUV3-ON DUAL-EVAL-B-EQUV3-VALUE F-EQUV3-OFF F-EQUV3-MONOTONE TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH ALU-CELL$VALUE-ZERO F$ALU-CELL B-EQUV3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-EQUV3 (A B C) (F-EQUV A (F-XOR B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F-EQUV3) (IMMEDIATE-DEPENDENTS0 F-EQUV . F-EQUV3) (DCELL . *1*F-EQUV3))))) (PUT1-LST (QUOTE *1*F-EQUV) (QUOTE (MAIN-EVENT F-EQUV))) (PUT1-LST (QUOTE F-EQUV) (QUOTE (TYPE-PRESCRIPTION-LST ((F-EQUV 131 NIL T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-EQUV A B) (B-EQUV A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-EQUV A (THREEFIX B)) (F-EQUV A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-EQUV (THREEFIX A) B) (F-EQUV A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-EQUV A (THREEFIX B)) (F-EQUV A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-EQUV (THREEFIX A) B) (F-EQUV A B)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-EQUV A B) (IF (EQUAL A (QUOTE *1*TRUE)) (THREEFIX B) (IF (EQUAL A (QUOTE *1*FALSE)) (F-NOT B) (QUOTE (*1*QUOTE X))))) NIL)) TOTALP-LST ((F-EQUV . T)) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE *1*TRUE)) (THREEFIX B) (IF (EQUAL A (QUOTE *1*FALSE)) (F-NOT B) (QUOTE (*1*QUOTE X))))) LISP-CODE *1*F-EQUV SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-EQUV) IMMEDIATE-DEPENDENTS0 (F-EQUV-OFF1 F-EQUV-ON DUAL-EVAL-B-EQUV-VALUE F-EQUV-OFF F-EQUV-MONOTONE F$DECODE-PROP DEC-PASS-CELL$VALUE F$TV-DEC-PASS-NG F$V-INC4$V F$V-INC4 B-EQUV$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA EXPAND-F-FUNCTIONS F-EQUV3) EVENT (DEFN F-EQUV (A B) (IF (EQUAL A (QUOTE *1*TRUE)) (THREEFIX B) (IF (EQUAL A (QUOTE *1*FALSE)) (F-NOT B) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-EQUV) (IMMEDIATE-DEPENDENTS0 F-NOT . F-EQUV) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-EQUV) (DCELL . *1*F-EQUV))))) (PUT1-LST (QUOTE *1*F-XOR3) (QUOTE (MAIN-EVENT F-XOR3))) (PUT1-LST (QUOTE F-XOR3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-XOR3 131 NIL NIL T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-XOR3 A B C) (B-XOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-XOR3 A (THREEFIX B) C) (F-XOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-XOR3 A (THREEFIX B) C) (F-XOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-XOR3 (THREEFIX A) B C) (F-XOR3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-XOR3 A B C) (F-XOR A (F-XOR B C))) NIL)) TOTALP-LST ((F-XOR3 . T)) SDEFN (LAMBDA (A B C) (F-XOR A (F-XOR B C))) LISP-CODE *1*F-XOR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-XOR3) IMMEDIATE-DEPENDENTS0 (F-XOR3-OFF1 F-XOR3-ON DUAL-EVAL-B-XOR3-VALUE F-XOR3-OFF F-XOR3-MONOTONE B-XOR3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-XOR3 (A B C) (F-XOR A (F-XOR B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-XOR . F-XOR3) (DCELL . *1*F-XOR3))))) (PUT1-LST (QUOTE *1*F-XOR) (QUOTE (MAIN-EVENT F-XOR))) (PUT1-LST (QUOTE F-XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((F-XOR 131 NIL T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-XOR A B) (B-XOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-XOR A (THREEFIX B)) (F-XOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-XOR (THREEFIX A) B) (F-XOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-XOR A (THREEFIX B)) (F-XOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-XOR (THREEFIX A) B) (F-XOR A B)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-XOR A B) (IF (EQUAL A (QUOTE *1*TRUE)) (F-NOT B) (IF (EQUAL A (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) NIL)) TOTALP-LST ((F-XOR . T)) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE *1*TRUE)) (F-NOT B) (IF (EQUAL A (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) LISP-CODE *1*F-XOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-XOR) IMMEDIATE-DEPENDENTS0 (F-XOR-OFF1 F-XOR-ON DUAL-EVAL-B-XOR-VALUE F-XOR-OFF F-XOR-MONOTONE F$B-STORE-RESULTP F$OVERFLOW-HELP F$DECODE-GEN F$V-INC4$V F$V-INC4 BV-ADDER-BODY$VALUE FULL-ADDER$VALUE F$FULL-ADDER HALF-ADDER$VALUE B-XOR3$VALUE B-XOR$VALUE B-EQUV3$VALUE PROPERP-LENGTH-FV-XOR FV-XOR F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA EXPAND-F-FUNCTIONS F-EQUV3 F-XOR3) EVENT (DEFN F-XOR (A B) (IF (EQUAL A (QUOTE *1*TRUE)) (F-NOT B) (IF (EQUAL A (QUOTE *1*FALSE)) (THREEFIX B) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-XOR) (IMMEDIATE-DEPENDENTS0 THREEFIX . F-XOR) (IMMEDIATE-DEPENDENTS0 F-NOT . F-XOR) (DCELL . *1*F-XOR))))) (PUT1-LST (QUOTE *1*F-NOR8) (QUOTE (MAIN-EVENT F-NOR8))) (PUT1-LST (QUOTE F-NOR8) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR8 131 NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E) (BOOLP G) (BOOLP H) (BOOLP I)) (EQUAL (F-NOR8 A B C D E G H I) (B-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B C D E G H (THREEFIX I)) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B C D E G (THREEFIX H) I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B C D E (THREEFIX G) H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B C D (THREEFIX E) G H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B C (THREEFIX D) E G H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A B (THREEFIX C) D E G H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 A (THREEFIX B) C D E G H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR8 (THREEFIX A) B C D E G H I) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR8 A B C D E G H I) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E (F-OR G (F-OR H I))))))))) NIL)) TOTALP-LST ((F-NOR8 . T)) SDEFN (LAMBDA (A B C D E G H I) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E (F-OR G (F-OR H I))))))))) LISP-CODE *1*F-NOR8 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR8) IMMEDIATE-DEPENDENTS0 (F-NOR8-OFF1 F-NOR8-ON DUAL-EVAL-B-NOR8-VALUE F-NOR8-OFF F-NOR8-MONOTONE F$CV B-NOR8$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NOR8 (A B C D E G H I) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E (F-OR G (F-OR H I))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR8) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR8) (DCELL . *1*F-NOR8))))) (PUT1-LST (QUOTE *1*F-NOR6) (QUOTE (MAIN-EVENT F-NOR6))) (PUT1-LST (QUOTE F-NOR6) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR6 131 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E) (BOOLP G)) (EQUAL (F-NOR6 A B C D E G) (B-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 A B C D E (THREEFIX G)) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 A B C D (THREEFIX E) G) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 A B C (THREEFIX D) E G) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 A B (THREEFIX C) D E G) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 A (THREEFIX B) C D E G) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR6 (THREEFIX A) B C D E G) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR6 A B C D E G) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E G))))))) NIL)) TOTALP-LST ((F-NOR6 . T)) SDEFN (LAMBDA (A B C D E G) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E G))))))) LISP-CODE *1*F-NOR6 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR6) IMMEDIATE-DEPENDENTS0 (F-NOR6-OFF1 F-NOR6-ON DUAL-EVAL-B-NOR6-VALUE F-NOR6-OFF F-NOR6-MONOTONE F$CV B-NOR6$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NOR6 (A B C D E G) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D (F-OR E G))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR6) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR6) (DCELL . *1*F-NOR6))))) (PUT1-LST (QUOTE *1*F-NOR5) (QUOTE (MAIN-EVENT F-NOR5))) (PUT1-LST (QUOTE F-NOR5) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR5 131 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E)) (EQUAL (F-NOR5 A B C D E) (B-NOR5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR5 A B C D (THREEFIX E)) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR5 A B C (THREEFIX D) E) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR5 A B (THREEFIX C) D E) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR5 A (THREEFIX B) C D E) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR5 (THREEFIX A) B C D E) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR5 A B C D E) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D E)))))) NIL)) TOTALP-LST ((F-NOR5 . T)) SDEFN (LAMBDA (A B C D E) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D E)))))) LISP-CODE *1*F-NOR5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR5) IMMEDIATE-DEPENDENTS0 (F-NOR5-OFF1 F-NOR5-ON DUAL-EVAL-B-NOR5-VALUE F-NOR5-OFF F-NOR5-MONOTONE F$CV B-NOR5$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NOR5 (A B C D E) (F-NOT (F-OR A (F-OR B (F-OR C (F-OR D E)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR5) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR5) (DCELL . *1*F-NOR5))))) (PUT1-LST (QUOTE *1*F-NOR4) (QUOTE (MAIN-EVENT F-NOR4))) (PUT1-LST (QUOTE F-NOR4) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR4 131 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D)) (EQUAL (F-NOR4 A B C D) (B-NOR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR4 A B C (THREEFIX D)) (F-NOR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR4 A B (THREEFIX C) D) (F-NOR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR4 A (THREEFIX B) C D) (F-NOR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR4 (THREEFIX A) B C D) (F-NOR4 A B C D)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR4 A B C D) (F-NOT (F-OR A (F-OR B (F-OR C D))))) NIL)) TOTALP-LST ((F-NOR4 . T)) SDEFN (LAMBDA (A B C D) (F-NOT (F-OR A (F-OR B (F-OR C D))))) LISP-CODE *1*F-NOR4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR4) IMMEDIATE-DEPENDENTS0 (F-NOR4-OFF1 F-NOR4-ON DUAL-EVAL-B-NOR4-VALUE F-NOR4-OFF F-NOR4-MONOTONE F$CV F$ENCODE-32 B-NOR4$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NOR4 (A B C D) (F-NOT (F-OR A (F-OR B (F-OR C D))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR4) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR4) (DCELL . *1*F-NOR4))))) (PUT1-LST (QUOTE *1*F-NOR3) (QUOTE (MAIN-EVENT F-NOR3))) (PUT1-LST (QUOTE F-NOR3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR3 131 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-NOR3 A B C) (B-NOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR3 A (THREEFIX B) C) (F-NOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR3 A (THREEFIX B) C) (F-NOR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR3 (THREEFIX A) B C) (F-NOR3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR3 A B C) (F-NOT (F-OR A (F-OR B C)))) NIL)) TOTALP-LST ((F-NOR3 . T)) SDEFN (LAMBDA (A B C) (F-NOT (F-OR A (F-OR B C)))) LISP-CODE *1*F-NOR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR3) IMMEDIATE-DEPENDENTS0 (F-NOR3-OFF1 F-NOR3-ON DUAL-EVAL-B-NOR3-VALUE F-NOR3-OFF F-NOR3-MONOTONE F$CV F$ENCODE-32 DECODE-MODE$VALUE-ZERO F$DECODE-MODE F$V-INC4$V F$V-INC4 F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO B-NOR3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NOR3 (A B C) (F-NOT (F-OR A (F-OR B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR3) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR3) (DCELL . *1*F-NOR3))))) (PUT1-LST (QUOTE *1*F-NOR) (QUOTE (MAIN-EVENT F-NOR))) (PUT1-LST (QUOTE F-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOR 131 NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-NOR A B) (B-NOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR A (THREEFIX B)) (F-NOR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOR (THREEFIX A) B) (F-NOR A B)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOR A B) (F-NOT (F-OR A B))) NIL)) TOTALP-LST ((F-NOR . T)) SDEFN (LAMBDA (A B) (F-NOT (F-OR A B))) LISP-CODE *1*F-NOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOR) IMMEDIATE-DEPENDENTS0 (F-NOR-OFF1 F-NOR-ON DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO2-VALUE F-NOR-OFF F-NOR-MONOTONE F$CV F$ENCODE-32 F$DECODE-5 F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE F$DECODE-REG-MODE OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP DECODE-GEN$VALUE-ZERO F$DECODE-GEN F$DECODE-PROP DECODE-MODE$VALUE-ZERO F$DECODE-MODE F$V-INC4$V F$V-INC4 F$FAST-ZERO=TR-OR-NOR TR-OR-NOR T-CARRY$VALUE B-NOR$VALUE AO6$VALUE AO2$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS F$AO2) EVENT (DEFN F-NOR (A B) (F-NOT (F-OR A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-NOR) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NOR) (DCELL . *1*F-NOR))))) (PUT1-LST (QUOTE *1*F-OR4) (QUOTE (MAIN-EVENT F-OR4))) (PUT1-LST (QUOTE F-OR4) (QUOTE (TYPE-PRESCRIPTION-LST ((F-OR4 131 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D)) (EQUAL (F-OR4 A B C D) (B-OR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR4 A B C (THREEFIX D)) (F-OR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR4 A B (THREEFIX C) D) (F-OR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR4 A (THREEFIX B) C D) (F-OR4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR4 (THREEFIX A) B C D) (F-OR4 A B C D)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-OR4 A B C D) (F-OR A (F-OR B (F-OR C D)))) NIL)) TOTALP-LST ((F-OR4 . T)) SDEFN (LAMBDA (A B C D) (F-OR A (F-OR B (F-OR C D)))) LISP-CODE *1*F-OR4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-OR4) IMMEDIATE-DEPENDENTS0 (F-OR4-OFF1 F-OR4-ON DUAL-EVAL-B-OR4-VALUE F-OR4-OFF F-OR4-MONOTONE F$CV B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS B-OR4$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-OR4 (A B C D) (F-OR A (F-OR B (F-OR C D)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-OR4) (DCELL . *1*F-OR4))))) (PUT1-LST (QUOTE *1*F-OR3) (QUOTE (MAIN-EVENT F-OR3))) (PUT1-LST (QUOTE F-OR3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-OR3 131 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-OR3 A B C) (B-OR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR3 A (THREEFIX B) C) (F-OR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR3 A (THREEFIX B) C) (F-OR3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR3 (THREEFIX A) B C) (F-OR3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-OR3 A B C) (F-OR A (F-OR B C))) NIL)) TOTALP-LST ((F-OR3 . T)) SDEFN (LAMBDA (A B C) (F-OR A (F-OR B C))) LISP-CODE *1*F-OR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-OR3) IMMEDIATE-DEPENDENTS0 (F-OR3-OFF1 F-OR3-ON DUAL-EVAL-B-OR3-VALUE F-OR3-OFF F-OR3-MONOTONE F$CV SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL F$OVERFLOW-HELP B-OR3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-OR3 (A B C) (F-OR A (F-OR B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-OR . F-OR3) (DCELL . *1*F-OR3))))) (PUT1-LST (QUOTE *1*F-OR) (QUOTE (MAIN-EVENT F-OR))) (PUT1-LST (QUOTE F-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((F-OR 131 NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-OR A B) (B-OR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR A (THREEFIX B)) (F-OR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-OR (THREEFIX A) B) (F-OR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-OR A (THREEFIX B)) (F-OR A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-OR (THREEFIX A) B) (F-OR A B)) NIL) (REWRITE-RULE F-OR-REWRITE (X (BOOLP X)) (EQUAL (F-OR Y X) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE F-OR-REWRITE (X (BOOLP X)) (EQUAL (F-OR X Y) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE F-OR-REWRITE NIL (EQUAL (F-OR (QUOTE *1*FALSE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-OR A B) (IF (EQUAL A (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL B (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL A (QUOTE *1*FALSE)) (IF (EQUAL B (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X)))))) NIL)) TOTALP-LST ((F-OR . T)) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL B (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL A (QUOTE *1*FALSE)) (IF (EQUAL B (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X)))))) LISP-CODE *1*F-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-OR) IMMEDIATE-DEPENDENTS0 (F-OR-OFF1 F-OR-ON DUAL-EVAL-B-OR-VALUE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO4-VALUE F-OR-OFF F-OR-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE F$CV F$NEXT-STATE F$CONTROL-LET B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE F$B-STORE-RESULTP F$SHIFT-OR-BUF-CNTL F$CARRY-IN-HELP TV-DEC-PASS-NG-INDUCTION F$TV-DEC-PASS-NG TR-OR-NOR T-CARRY$VALUE F$T-CARRY BV-ADDER-BODY$VALUE F$FULL-ADDER B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE AO7$VALUE AO4$VALUE PROPERP-LENGTH-FV-OR FV-OR F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA F-OR-REWRITE EXPAND-F-FUNCTIONS F-NOR8 F-NOR6 F-NOR5 F-NOR4 F-NOR3 F-NOR F-OR4 F-OR3) EVENT (DEFN F-OR (A B) (IF (OR (EQUAL A (QUOTE *1*TRUE)) (EQUAL B (QUOTE *1*TRUE))) (QUOTE *1*TRUE) (IF (AND (EQUAL A (QUOTE *1*FALSE)) (EQUAL B (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-OR) (DCELL . *1*F-OR))))) (PUT1-LST (QUOTE *1*F-NAND8) (QUOTE (MAIN-EVENT F-NAND8))) (PUT1-LST (QUOTE F-NAND8) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND8 131 NIL NIL NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E) (BOOLP G) (BOOLP H) (BOOLP I)) (EQUAL (F-NAND8 A B C D E G H I) (B-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B C D E G H (THREEFIX I)) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B C D E G (THREEFIX H) I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B C D E (THREEFIX G) H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B C D (THREEFIX E) G H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B C (THREEFIX D) E G H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A B (THREEFIX C) D E G H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 A (THREEFIX B) C D E G H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND8 (THREEFIX A) B C D E G H I) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND8 A B C D E G H I) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E (F-AND G (F-AND H I))))))))) NIL)) TOTALP-LST ((F-NAND8 . T)) SDEFN (LAMBDA (A B C D E G H I) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E (F-AND G (F-AND H I))))))))) LISP-CODE *1*F-NAND8 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND8) IMMEDIATE-DEPENDENTS0 (F-NAND8-OFF1 F-NAND8-ON DUAL-EVAL-B-NAND8-VALUE F-NAND8-OFF F-NAND8-MONOTONE B-NAND8$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND8 (A B C D E G H I) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E (F-AND G (F-AND H I))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND8) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND8) (DCELL . *1*F-NAND8))))) (PUT1-LST (QUOTE *1*F-NAND6) (QUOTE (MAIN-EVENT F-NAND6))) (PUT1-LST (QUOTE F-NAND6) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND6 131 NIL NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E) (BOOLP G)) (EQUAL (F-NAND6 A B C D E G) (B-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 A B C D E (THREEFIX G)) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 A B C D (THREEFIX E) G) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 A B C (THREEFIX D) E G) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 A B (THREEFIX C) D E G) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 A (THREEFIX B) C D E G) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND6 (THREEFIX A) B C D E G) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND6 A B C D E G) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E G))))))) NIL)) TOTALP-LST ((F-NAND6 . T)) SDEFN (LAMBDA (A B C D E G) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E G))))))) LISP-CODE *1*F-NAND6 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND6) IMMEDIATE-DEPENDENTS0 (F-NAND6-OFF1 F-NAND6-ON DUAL-EVAL-B-NAND6-VALUE F-NAND6-OFF F-NAND6-MONOTONE F$NEXT-STATE B-NAND6$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND6 (A B C D E G) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D (F-AND E G))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND6) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND6) (DCELL . *1*F-NAND6))))) (PUT1-LST (QUOTE *1*F-NAND5) (QUOTE (MAIN-EVENT F-NAND5))) (PUT1-LST (QUOTE F-NAND5) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND5 131 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D) (BOOLP E)) (EQUAL (F-NAND5 A B C D E) (B-NAND5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND5 A B C D (THREEFIX E)) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND5 A B C (THREEFIX D) E) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND5 A B (THREEFIX C) D E) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND5 A (THREEFIX B) C D E) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND5 (THREEFIX A) B C D E) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND5 A B C D E) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D E)))))) NIL)) TOTALP-LST ((F-NAND5 . T)) SDEFN (LAMBDA (A B C D E) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D E)))))) LISP-CODE *1*F-NAND5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND5) IMMEDIATE-DEPENDENTS0 (F-NAND5-OFF1 F-NAND5-ON DUAL-EVAL-B-NAND5-VALUE F-NAND5-OFF F-NAND5-MONOTONE F$CV F$NEXT-STATE B-NAND5$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND5 (A B C D E) (F-NOT (F-AND A (F-AND B (F-AND C (F-AND D E)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND5) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND5) (DCELL . *1*F-NAND5))))) (PUT1-LST (QUOTE *1*F-NAND4) (QUOTE (MAIN-EVENT F-NAND4))) (PUT1-LST (QUOTE F-NAND4) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND4 131 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D)) (EQUAL (F-NAND4 A B C D) (B-NAND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND4 A B C (THREEFIX D)) (F-NAND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND4 A B (THREEFIX C) D) (F-NAND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND4 A (THREEFIX B) C D) (F-NAND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND4 (THREEFIX A) B C D) (F-NAND4 A B C D)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND4 A B C D) (F-NOT (F-AND A (F-AND B (F-AND C D))))) NIL)) TOTALP-LST ((F-NAND4 . T)) SDEFN (LAMBDA (A B C D) (F-NOT (F-AND A (F-AND B (F-AND C D))))) LISP-CODE *1*F-NAND4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND4) IMMEDIATE-DEPENDENTS0 (F-NAND4-OFF1 F-NAND4-ON DUAL-EVAL-B-NAND4-VALUE F-NAND4-OFF F-NAND4-MONOTONE F$NEXT-STATE F$ENCODE-32 F$UNARY-OP-CODE-P F$CARRY-OUT-HELP F$DECODE-GEN F$DECODE-PROP B-NAND4$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND4 (A B C D) (F-NOT (F-AND A (F-AND B (F-AND C D))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND4) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND4) (DCELL . *1*F-NAND4))))) (PUT1-LST (QUOTE *1*F-NAND3) (QUOTE (MAIN-EVENT F-NAND3))) (PUT1-LST (QUOTE F-NAND3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND3 131 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-NAND3 A B C) (B-NAND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND3 A (THREEFIX B) C) (F-NAND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND3 A (THREEFIX B) C) (F-NAND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND3 (THREEFIX A) B C) (F-NAND3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND3 A B C) (F-NOT (F-AND A (F-AND B C)))) NIL)) TOTALP-LST ((F-NAND3 . T)) SDEFN (LAMBDA (A B C) (F-NOT (F-AND A (F-AND B C)))) LISP-CODE *1*F-NAND3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND3) IMMEDIATE-DEPENDENTS0 (F-NAND3-OFF1 F-NAND3-ON DUAL-EVAL-B-NAND3-VALUE F-NAND3-OFF F-NAND3-MONOTONE F$CV F$NEXT-STATE F$DECODE-5 F$UNARY-OP-CODE-P F$OVERFLOW-HELP F$CARRY-OUT-HELP P-CELL$VALUE-ZERO F$P-CELL F$CARRY-IN-HELP F$DECODE-GEN F$DECODE-PROP B-NAND3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND3 (A B C) (F-NOT (F-AND A (F-AND B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND3) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND3) (DCELL . *1*F-NAND3))))) (PUT1-LST (QUOTE *1*F-NAND) (QUOTE (MAIN-EVENT F-NAND))) (PUT1-LST (QUOTE F-NAND) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NAND 131 NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-NAND A B) (B-NAND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND A (THREEFIX B)) (F-NAND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NAND (THREEFIX A) B) (F-NAND A B)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NAND A B) (F-NOT (F-AND A B))) NIL)) TOTALP-LST ((F-NAND . T)) SDEFN (LAMBDA (A B) (F-NOT (F-AND A B))) LISP-CODE *1*F-NAND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NAND) IMMEDIATE-DEPENDENTS0 (F-NAND-OFF1 F-NAND-ON DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO4-VALUE F-NAND-OFF F-NAND-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$STATE CHIP-MODULE$STATE FM9001-NEXT-STATE TTL-INPUT-PADS-BODY$VALUE PROPERP-LENGTH-F$WRITE-REGS F$WRITE-REGS PROPERP-LENGTH-F$READ-REGS F$READ-REGS F$CV F$NEXT-STATE F$DECODE-5 F$SELECT-OP-CODE F$UNARY-OP-CODE-P F$STORE-RESULTP-MUX F$SHIFT-OR-BUF-CNTL OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP F$CARRY-OUT-HELP TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH ALU-CELL$VALUE-ZERO F$ALU-CELL G-CELL$VALUE-ZERO F$G-CELL P-CELL$VALUE-ZERO F$P-CELL F$CARRY-IN-HELP F$DECODE-GEN F$DECODE-PROP TR-OR-NOR TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE RAM-ENABLE-CIRCUIT$VALUE B-NAND$VALUE AO7$VALUE AO4$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-NAND (A B) (F-NOT (F-AND A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-NAND) (IMMEDIATE-DEPENDENTS0 F-NOT . F-NAND) (DCELL . *1*F-NAND))))) (PUT1-LST (QUOTE *1*F-NOT) (QUOTE (MAIN-EVENT F-NOT))) (PUT1-LST (QUOTE F-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((F-NOT 131 NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A)) (EQUAL (F-NOT A) (B-NOT A)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-NOT (THREEFIX A)) (F-NOT A)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-NOT (THREEFIX A)) (F-NOT A)) NIL) (REWRITE-RULE F-NOT-F-NOT=F-BUF NIL (EQUAL (F-NOT (F-NOT X)) (F-BUF X)) NIL) (REWRITE-RULE F-NOT-REWRITE NIL (EQUAL (F-NOT (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE F-NOT-REWRITE NIL (EQUAL (F-NOT (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-NOT A) (IF (BOOLP A) (IF A (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE (*1*QUOTE X)))) NIL)) TOTALP-LST ((F-NOT . T)) SDEFN (LAMBDA (A) (IF (BOOLP A) (IF A (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE (*1*QUOTE X)))) LISP-CODE *1*F-NOT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-NOT) IMMEDIATE-DEPENDENTS0 (F-NOT-OFF1 F-NOT-ON DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-VALUE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NBUF-VALUE F-NOT-OFF F-EQUV-MONOTONE F-XOR-MONOTONE F-NOT-MONOTONE REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$VALUE PROPERP-LENGTH-F$WRITE-REGS NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE F$CV F$NEXT-STATE F$CONTROL-LET F$ENCODE-32 F$DECODE-5 V-IF-F-4$RESET-VALUE F$V-IF-F-4 F$SELECT-OP-CODE F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE F$DECODE-REG-MODE F$UNARY-OP-CODE-P F$STORE-RESULTP-MUX F$SHIFT-OR-BUF-CNTL F$OVERFLOW-HELP F$CARRY-OUT-HELP TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$ALU-CELL G-CELL$VALUE-ZERO P-CELL$VALUE-ZERO F$CARRY-IN-HELP F$DECODE-GEN F$DECODE-PROP PROPERP-LENGTH-F$DEC-PASS F$DEC-PASS F$V-INC4$V F$V-INC4 F$TV-ZEROP TR-OR-NOR T-CARRY$VALUE BV-ADDER-BODY$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE B-BUF-PWR$VALUE B-BUF$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-BIDIRECT$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE B-XOR3$VALUE B-XOR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NBUF$VALUE B-EQUV3$VALUE B-EQUV$VALUE PROPERP-LENGTH-FV-XOR F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA F-NOT-REWRITE EXPAND-F-FUNCTIONS F-EQUV F-XOR F-NOR8 F-NOR6 F-NOR5 F-NOR4 F-NOR3 F-NOR F-NAND8 F-NAND6 F-NAND5 F-NAND4 F-NAND3 F-NAND) EVENT (DEFN F-NOT (A) (IF (BOOLP A) (NOT A) (QUOTE (*1*QUOTE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-NOT) (IMMEDIATE-DEPENDENTS0 BOOLP . F-NOT) (DCELL . *1*F-NOT))))) (PUT1-LST (QUOTE *1*F-AND4) (QUOTE (MAIN-EVENT F-AND4))) (PUT1-LST (QUOTE F-AND4) (QUOTE (TYPE-PRESCRIPTION-LST ((F-AND4 131 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C) (BOOLP D)) (EQUAL (F-AND4 A B C D) (B-AND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND4 A B C (THREEFIX D)) (F-AND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND4 A B (THREEFIX C) D) (F-AND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND4 A (THREEFIX B) C D) (F-AND4 A B C D)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND4 (THREEFIX A) B C D) (F-AND4 A B C D)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-AND4 A B C D) (F-AND A (F-AND B (F-AND C D)))) NIL)) TOTALP-LST ((F-AND4 . T)) SDEFN (LAMBDA (A B C D) (F-AND A (F-AND B (F-AND C D)))) LISP-CODE *1*F-AND4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-AND4) IMMEDIATE-DEPENDENTS0 (F-AND4-OFF1 F-AND4-ON DUAL-EVAL-B-AND4-VALUE F-AND4-OFF F-AND4-MONOTONE F$NEXT-STATE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS B-AND4$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-AND4 (A B C D) (F-AND A (F-AND B (F-AND C D)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-AND4) (DCELL . *1*F-AND4))))) (PUT1-LST (QUOTE *1*F-AND3) (QUOTE (MAIN-EVENT F-AND3))) (PUT1-LST (QUOTE F-AND3) (QUOTE (TYPE-PRESCRIPTION-LST ((F-AND3 131 NIL NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B) (BOOLP C)) (EQUAL (F-AND3 A B C) (B-AND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND3 A (THREEFIX B) C) (F-AND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND3 A (THREEFIX B) C) (F-AND3 A B C)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND3 (THREEFIX A) B C) (F-AND3 A B C)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-AND3 A B C) (F-AND A (F-AND B C))) NIL)) TOTALP-LST ((F-AND3 . T)) SDEFN (LAMBDA (A B C) (F-AND A (F-AND B C))) LISP-CODE *1*F-AND3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-AND3) IMMEDIATE-DEPENDENTS0 (F-AND3-OFF1 F-AND3-ON DUAL-EVAL-B-AND3-VALUE F-AND3-OFF F-AND3-MONOTONE PROPERP-LENGTH-F$READ-REGS F$READ-REGS F$NEXT-STATE G-CELL$VALUE-ZERO F$G-CELL B-AND3$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-BUF-DELETE-LEMMAS EXPAND-F-FUNCTIONS) EVENT (DEFN F-AND3 (A B C) (F-AND A (F-AND B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 F-AND . F-AND3) (DCELL . *1*F-AND3))))) (PUT1-LST (QUOTE *1*F-AND) (QUOTE (MAIN-EVENT F-AND))) (PUT1-LST (QUOTE F-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((F-AND 131 NIL NIL)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A) (BOOLP B)) (EQUAL (F-AND A B) (B-AND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND A (THREEFIX B)) (F-AND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-AND (THREEFIX A) B) (F-AND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-AND A (THREEFIX B)) (F-AND A B)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-AND (THREEFIX A) B) (F-AND A B)) NIL) (REWRITE-RULE F-AND-REWRITE (X Y (BOOLP X) (BOOLP Y)) (EQUAL (F-AND X Y) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE F-AND-REWRITE NIL (EQUAL (F-AND (QUOTE *1*TRUE) X) (F-BUF X)) NIL) (REWRITE-RULE F-AND-REWRITE NIL (EQUAL (F-AND X (QUOTE *1*TRUE)) (F-BUF X)) NIL) (REWRITE-RULE F-AND-REWRITE NIL (NOT (F-AND X (QUOTE *1*FALSE))) NIL) (REWRITE-RULE F-AND-REWRITE NIL (NOT (F-AND (QUOTE *1*FALSE) X)) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-AND A B) (IF (EQUAL A (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (IF (EQUAL A (QUOTE *1*TRUE)) (IF (EQUAL B (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X)))))) NIL)) TOTALP-LST ((F-AND . T)) SDEFN (LAMBDA (A B) (IF (EQUAL A (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE *1*FALSE)) (QUOTE *1*FALSE) (IF (EQUAL A (QUOTE *1*TRUE)) (IF (EQUAL B (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X)))))) LISP-CODE *1*F-AND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-AND) IMMEDIATE-DEPENDENTS0 (F-AND-OFF1 F-AND-ON DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO2-VALUE F-AND-OFF F-AND-MONOTONE TTL-INPUT-PADS-BODY$VALUE F$CV F$NEXT-STATE F$CONTROL-LET B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$V-IF-F-4=FV-IF F$V-IF-F-4 F$SELECT-OP-CODE F$SHIFT-OR-BUF-CNTL F$CARRY-OUT-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP F$DECODE-PROP T-CARRY$VALUE F$T-CARRY BV-ADDER-BODY$VALUE FULL-ADDER$VALUE F$FULL-ADDER HALF-ADDER$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE RAM-ENABLE-CIRCUIT$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO6$VALUE AO2$VALUE F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA F-AND-REWRITE EXPAND-F-FUNCTIONS F$AO2 F-NAND8 F-NAND6 F-NAND5 F-NAND4 F-NAND3 F-NAND F-AND4 F-AND3) EVENT (DEFN F-AND (A B) (IF (OR (EQUAL A (QUOTE *1*FALSE)) (EQUAL B (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (IF (AND (EQUAL A (QUOTE *1*TRUE)) (EQUAL B (QUOTE *1*TRUE))) (QUOTE *1*TRUE) (QUOTE (*1*QUOTE X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . F-AND) (DCELL . *1*F-AND))))) (PUT1-LST (QUOTE *1*F-BUF) (QUOTE (MAIN-EVENT F-BUF))) (PUT1-LST (QUOTE F-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((F-BUF-TYPE-SET 131 NIL) (F-BUF 128 T)) LEMMAS ((REWRITE-RULE F-GATES=B-GATES ((BOOLP A)) (EQUAL (F-BUF A) (B-BUF A)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS NIL (EQUAL (F-BUF (THREEFIX A)) (F-BUF A)) NIL) (REWRITE-RULE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP NIL (EQUAL (F-BUF (THREEFIX A)) (F-BUF A)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-IF C A B)) (F-IF C A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR8 A B C D E G H I)) (F-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR6 A B C D E G)) (F-NOR6 A B C D E G)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR5 A B C D E)) (F-NOR5 A B C D E)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR4 A B C D)) (F-NOR4 A B C D)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR3 A B C)) (F-NOR3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOR A B)) (F-NOR A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-AND4 A B C D)) (F-AND4 A B C D)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-AND3 A B C)) (F-AND3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-AND A B)) (F-AND A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-EQUV3 A B C)) (F-EQUV3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-EQUV A B)) (F-EQUV A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-XOR3 A B C)) (F-XOR3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-XOR A B)) (F-XOR A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-OR4 A B C D)) (F-OR4 A B C D)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-OR3 A B C)) (F-OR3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-OR A B)) (F-OR A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND8 A B C D E G H I)) (F-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND6 A B C D E G)) (F-NAND6 A B C D E G)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND5 A B C D E)) (F-NAND5 A B C D E)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND4 A B C D)) (F-NAND4 A B C D)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND3 A B C)) (F-NAND3 A B C)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NAND A B)) (F-NAND A B)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-NOT A)) (F-NOT A)) NIL) (REWRITE-RULE F-BUF-DELETE-LEMMAS NIL (EQUAL (F-BUF (F-BUF A)) (F-BUF A)) NIL) (REWRITE-RULE F-BUF-LEMMA ((BOOLP X)) (EQUAL (F-BUF X) X) NIL) (REWRITE-RULE EXPAND-F-FUNCTIONS NIL (EQUAL (F-BUF A) (THREEFIX A)) NIL)) TOTALP-LST ((F-BUF . T)) SDEFN (LAMBDA (A) (THREEFIX A)) LISP-CODE *1*F-BUF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193959 SATELLITES (*1*F-BUF) IMMEDIATE-DEPENDENTS0 (F-BUF-OFF1 F-BUF-ON F-BUF-PRESERVES-GOOD-S DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-NBUF-VALUE FOURP-F-BUF F-BUF-TYPE-SET F-BUF-OFF F-BUF-MONOTONE MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE PROPERP-LENGTH-F$WRITE-REGS F$WRITE-REGS PROPERP-LENGTH-F$READ-REGS F$READ-REGS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE TR-OR-NOR TV-IF$VALUE M1$STATE M1$VALUE V-BUF$BODY-VALUE B-BUF-PWR$VALUE B-BUF$VALUE FD1$STATE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-NBUF$VALUE FV-IF-V-THREEFIX FV-IF-WHEN-BOOLP-C F-GATES=B-GATES F-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA F-IF-REWRITE F-AND-REWRITE F-BUF-LEMMA EXPAND-F-FUNCTIONS) EVENT (DEFN F-BUF (A) (THREEFIX A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . F-BUF) (DCELL . *1*F-BUF))))) (PUT1-LST (QUOTE TREE-NUMBER-OFF) (QUOTE (IDATE 1000402193959 EVENT (TOGGLE TREE-NUMBER-OFF TREE-NUMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-NUMBER . TREE-NUMBER-OFF) (DISABLED-LEMMAS NIL TREE-NUMBER TREE-NUMBER-OFF . T))))) (PUT1-LST (QUOTE *1*TREE-NUMBER) (QUOTE (MAIN-EVENT TREE-NUMBER))) (PUT1-LST (QUOTE TREE-NUMBER) (QUOTE (TYPE-PRESCRIPTION-LST ((TREE-NUMBER 4 NIL)) TOTALP-LST ((TREE-NUMBER . T)) SDEFN (LAMBDA (TREE) (QUOTIENT (ADD1 (V-TO-NAT (COLLECT-BREADTH-TREE (BREADTH-TREE TREE (QUOTE NIL) (QUOTE 0)) (QUOTE 1)))) (QUOTE 2))) LISP-CODE *1*TREE-NUMBER SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402193959 SATELLITES (*1*TREE-NUMBER) IMMEDIATE-DEPENDENTS0 (CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* CHECK-REGFILE$NETLIST REGFILE*$DESTRUCTURE REGFILE* CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV* CORE-ALU$VALUE CORE-ALU& CORE-ALU*$DESTRUCTURE CORE-ALU* TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-INDUCTION TV-ALU-HELP& TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP* TV-ALU-HELP-BODY DEC-PASS*$DESTRUCTURE DEC-PASS* TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG-BODY TV-DEC-PASS-NAME V-EQUAL*$DESTRUCTURE V-EQUAL* FAST-ZERO*$DESTRUCTURE FAST-ZERO* TV-ZEROP$VALUE TV-ZEROP& TV-ZEROP*$DESTRUCTURE TV-ZEROP* T-OR-NOR$VALUE T-OR-NOR-INDUCTION T-OR-NOR& T-OR-NOR*$DESTRUCTURE T-OR-NOR* T-OR-NOR-BODY TV-IF$VALUE TV-IF-LEMMA-CROCK TV-IF-INDUCTION TV-IF& TV-IF*$DESTRUCTURE TV-IF* TV-IF-BODY TREE-NUMBER-OFF) EVENT (DEFN TREE-NUMBER (TREE) (QUOTIENT (ADD1 (V-TO-NAT (COLLECT-BREADTH-TREE (BREADTH-TREE TREE (QUOTE NIL) (QUOTE 0)) (QUOTE 1)))) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BREADTH-TREE . TREE-NUMBER) (IMMEDIATE-DEPENDENTS0 COLLECT-BREADTH-TREE . TREE-NUMBER) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . TREE-NUMBER) (DCELL . *1*TREE-NUMBER))))) (PUT1-LST (QUOTE *1*COLLECT-BREADTH-TREE) (QUOTE (MAIN-EVENT COLLECT-BREADTH-TREE))) (PUT1-LST (QUOTE COLLECT-BREADTH-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-BREADTH-TREE 24 NIL NIL)) TOTALP-LST ((COLLECT-BREADTH-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STACK N) (IF (LISTP STACK) (IF (EQUAL (CAR STACK) (MAKE-LIST N (QUOTE *1*TRUE))) (CONS (QUOTE *1*TRUE) (COLLECT-BREADTH-TREE (CDR STACK) (TIMES (QUOTE 2) N))) (CONS (QUOTE *1*FALSE) (APPEND (CAR STACK) (COLLECT-BREADTH-TREE (CDR STACK) (TIMES (QUOTE 2) N))))) (QUOTE NIL))) LISP-CODE *1*COLLECT-BREADTH-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP STACK)) NIL) (TESTS-AND-CASES ((NOT (NLISTP STACK)) (EQUAL (CAR STACK) (MAKE-LIST N (QUOTE *1*TRUE)))) (((CDR STACK) (TIMES (QUOTE 2) N)))) (TESTS-AND-CASES ((NOT (NLISTP STACK)) (NOT (EQUAL (CAR STACK) (MAKE-LIST N (QUOTE *1*TRUE))))) (((CDR STACK) (TIMES (QUOTE 2) N))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (STACK) (COUNT STACK) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193959 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-BREADTH-TREE) IMMEDIATE-DEPENDENTS0 (TREE-NUMBER) EVENT (DEFN COLLECT-BREADTH-TREE (STACK N) (IF (NLISTP STACK) (QUOTE NIL) (IF (EQUAL (CAR STACK) (MAKE-LIST N (QUOTE *1*TRUE))) (CONS (QUOTE *1*TRUE) (COLLECT-BREADTH-TREE (CDR STACK) (TIMES (QUOTE 2) N))) (CONS (QUOTE *1*FALSE) (APPEND (CAR STACK) (COLLECT-BREADTH-TREE (CDR STACK) (TIMES (QUOTE 2) N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . COLLECT-BREADTH-TREE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-BREADTH-TREE) (DCELL . *1*COLLECT-BREADTH-TREE))))) (PUT1-LST (QUOTE *1*BREADTH-TREE) (QUOTE (MAIN-EVENT BREADTH-TREE))) (PUT1-LST (QUOTE BREADTH-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((BREADTH-TREE 16 NIL NIL NIL)) TOTALP-LST ((BREADTH-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (TREE STACK N) (IF (LISTP TREE) (IF (LISTP STACK) (CONS (CONS (QUOTE *1*TRUE) (CAR STACK)) (BREADTH-TREE (CDR TREE) (BREADTH-TREE (CAR TREE) (CDR STACK) (TIMES (QUOTE 2) N)) (ADD1 (TIMES (QUOTE 2) N)))) (CONS (CONS (QUOTE *1*TRUE) (MAKE-LIST N (QUOTE *1*FALSE))) (BREADTH-TREE (CDR TREE) (BREADTH-TREE (CAR TREE) (CDR STACK) (TIMES (QUOTE 2) N)) (ADD1 (TIMES (QUOTE 2) N))))) (IF (LISTP STACK) (CONS (CONS (QUOTE *1*TRUE) (CAR STACK)) (FIX-BREADTH-TREE-STACK (CDR STACK) (QUOTE 2))) (CONS (CONS (QUOTE *1*TRUE) (MAKE-LIST N (QUOTE *1*FALSE))) (FIX-BREADTH-TREE-STACK (CDR STACK) (QUOTE 2)))))) LISP-CODE *1*BREADTH-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE) (BREADTH-TREE (CAR TREE) (CDR STACK) (TIMES (QUOTE 2) N)) (ADD1 (TIMES (QUOTE 2) N))) ((CAR TREE) (CDR STACK) (TIMES (QUOTE 2) N))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193959 CONTROLLER-POCKETS (1) SATELLITES (*1*BREADTH-TREE) IMMEDIATE-DEPENDENTS0 (TREE-NUMBER) EVENT (DEFN BREADTH-TREE (TREE STACK N) (IF (NLISTP TREE) (CONS (CONS (QUOTE *1*TRUE) (IF (NLISTP STACK) (MAKE-LIST N (QUOTE *1*FALSE)) (CAR STACK))) (FIX-BREADTH-TREE-STACK (CDR STACK) (QUOTE 2))) (CONS (CONS (QUOTE *1*TRUE) (IF (NLISTP STACK) (MAKE-LIST N (QUOTE *1*FALSE)) (CAR STACK))) (BREADTH-TREE (CDR TREE) (BREADTH-TREE (CAR TREE) (CDR STACK) (TIMES (QUOTE 2) N)) (ADD1 (TIMES (QUOTE 2) N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BREADTH-TREE-STACK . BREADTH-TREE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . BREADTH-TREE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BREADTH-TREE) (DCELL . *1*BREADTH-TREE))))) (PUT1-LST (QUOTE *1*FIX-BREADTH-TREE-STACK) (QUOTE (MAIN-EVENT FIX-BREADTH-TREE-STACK))) (PUT1-LST (QUOTE FIX-BREADTH-TREE-STACK) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-BREADTH-TREE-STACK 24 NIL NIL)) TOTALP-LST ((FIX-BREADTH-TREE-STACK . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (STACK N) (IF (LISTP STACK) (CONS (APPEND (MAKE-LIST N (QUOTE *1*FALSE)) (CAR STACK)) (FIX-BREADTH-TREE-STACK (CDR STACK) (TIMES (QUOTE 2) N))) (QUOTE NIL))) LISP-CODE *1*FIX-BREADTH-TREE-STACK SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP STACK)) NIL) (TESTS-AND-CASES ((NOT (NLISTP STACK))) (((CDR STACK) (TIMES (QUOTE 2) N))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (STACK) (COUNT STACK) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193959 CONTROLLER-POCKETS (1) SATELLITES (*1*FIX-BREADTH-TREE-STACK) IMMEDIATE-DEPENDENTS0 (BREADTH-TREE) EVENT (DEFN FIX-BREADTH-TREE-STACK (STACK N) (IF (NLISTP STACK) (QUOTE NIL) (CONS (APPEND (MAKE-LIST N (QUOTE *1*FALSE)) (CAR STACK)) (FIX-BREADTH-TREE-STACK (CDR STACK) (TIMES (QUOTE 2) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . FIX-BREADTH-TREE-STACK) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . FIX-BREADTH-TREE-STACK) (DCELL . *1*FIX-BREADTH-TREE-STACK))))) (PUT1-LST (QUOTE PROPERP-LENGTH-NEXT-MEMORY-STATE) (QUOTE (IDATE 1000402193959 IMMEDIATE-DEPENDENTS0 (FM9001-STATE-STRUCTURE$STEP) EVENT (PROVE-LEMMA PROPERP-LENGTH-NEXT-MEMORY-STATE (REWRITE) (AND (PROPERP (NEXT-MEMORY-STATE STATE STROBE- RW- ADDRESS DATA)) (EQUAL (LENGTH (NEXT-MEMORY-STATE STATE STROBE- RW- ADDRESS DATA)) (QUOTE 8))) ((INDUCT (NEXT-MEMORY-STATE$INDUCTION STATE STROBE- RW- ADDRESS DATA)) (ENABLE NEXT-MEMORY-STATE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX-BVP . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE$INDUCTION . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . PROPERP-LENGTH-NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-NEXT-MEMORY-STATE) (LEMMAS LENGTH . PROPERP-LENGTH-NEXT-MEMORY-STATE) (LEMMAS PROPERP . PROPERP-LENGTH-NEXT-MEMORY-STATE))))) (PUT1-LST (QUOTE *1*NEXT-MEMORY-STATE$INDUCTION) (QUOTE (MAIN-EVENT NEXT-MEMORY-STATE$INDUCTION))) (PUT1-LST (QUOTE NEXT-MEMORY-STATE$INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-MEMORY-STATE$INDUCTION 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((NEXT-MEMORY-STATE$INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (STATE STROBE- RW- ADDRESS DATA) (IF (BOOLP STROBE-) (IF (BOOLP RW-) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL)))))))))) (IF RW- (IF (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (IF (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF RW- (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF STROBE- (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF RW- (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))))) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF RW- (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP RW-) (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) LISP-CODE *1*NEXT-MEMORY-STATE$INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) STROBE-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (NOT STROBE-) RW- (AND (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (NOT STROBE-) RW- (AND (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (NOT (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (NOT STROBE-) RW- (NOT (AND (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (NOT STROBE-) (NOT RW-) (AND (NOT (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (NOT STROBE-) (NOT RW-) (NOT (AND (NOT (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (EQUAL (CAR (CDR STATE)) (QUOTE 1)) STROBE- RW-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (EQUAL (CAR (CDR STATE)) (QUOTE 1)) STROBE- (NOT RW-)) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (NOT STROBE-) RW- (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (NOT STROBE-) RW- (NOT (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (NOT STROBE-) (NOT RW-)) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) STROBE- RW-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) STROBE- (NOT RW-) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (ZEROP (CAR (CDR (CDR (CDR STATE)))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) STROBE- (NOT RW-) (NOT (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (ZEROP (CAR (CDR (CDR (CDR STATE))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (NOT STROBE-) RW-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (NOT STROBE-) (NOT RW-) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (NOT STROBE-) (NOT RW-) (NOT (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))))) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 2))) STROBE- RW-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 2))) STROBE- (NOT RW-)) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 2))) (NOT STROBE-) RW-) NIL) (TESTS-AND-CASES ((AND (BOOLP STROBE-) (BOOLP RW-)) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 0))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 1))) (NOT (EQUAL (CAR (CDR STATE)) (QUOTE 2))) (NOT STROBE-) (NOT RW-)) NIL) (TESTS-AND-CASES ((NOT (AND (BOOLP STROBE-) (BOOLP RW-))) (NOT (AND (BOOLP STROBE-) (BOOLP RW-)))) NIL) (TESTS-AND-CASES ((NOT (AND (BOOLP STROBE-) (BOOLP RW-))) (AND (BOOLP STROBE-) (BOOLP RW-))) (((SUB1 STATE) STROBE- RW- ADDRESS DATA)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (STATE) (COUNT STATE) LESSP NIL)) IDATE 1000402193945 CONTROLLER-POCKETS (1) SATELLITES (*1*NEXT-MEMORY-STATE$INDUCTION) IMMEDIATE-DEPENDENTS0 (PROPERP-LENGTH-NEXT-MEMORY-STATE) EVENT (DEFN NEXT-MEMORY-STATE$INDUCTION (STATE STROBE- RW- ADDRESS DATA) (IF (AND (BOOLP STROBE-) (BOOLP RW-)) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF STROBE- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF RW- (IF (AND (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF (AND (NOT (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF RW- (IF (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF STROBE- (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (ZEROP (CAR (CDR (CDR (CDR STATE))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))))) (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF RW- (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))))) (IF (NOT (AND (BOOLP STROBE-) (BOOLP RW-))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (NEXT-MEMORY-STATE$INDUCTION (SUB1 STATE) STROBE- RW- ADDRESS DATA))) ((LESSP (COUNT STATE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 X . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 THREEFIX . NEXT-MEMORY-STATE$INDUCTION) (IMMEDIATE-DEPENDENTS0 BOOLP . NEXT-MEMORY-STATE$INDUCTION) (DCELL . *1*NEXT-MEMORY-STATE$INDUCTION))))) (PUT1-LST (QUOTE EQUAL-MEMORY-VALUE) (QUOTE (IDATE 1000402193945 IMMEDIATE-DEPENDENTS0 (EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE) EVENT (PROVE-LEMMA EQUAL-MEMORY-VALUE (REWRITE) (IMPLIES (EQUAL (LENGTH DATA1) (LENGTH DATA2)) (EQUAL (EQUAL (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA1) (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA2)) (QUOTE *1*TRUE))) ((ENABLE MEMORY-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF*-C-X-X . EQUAL-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . EQUAL-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF*-CONS . EQUAL-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF* . EQUAL-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . EQUAL-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-MEMORY-VALUE) (LEMMAS EQUAL . EQUAL-MEMORY-VALUE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-MEMORY-VALUE) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP) EVENT (PROVE-LEMMA PROPERP-LENGTH-MEMORY-VALUE (REWRITE) (IMPLIES (AND (MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (CAR STATE)) (AND (EQUAL (LENGTH ADDRESS) (QUOTE 32)) (EQUAL (LENGTH DATA) (QUOTE 32)))) (AND (PROPERP (CDR (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA))) (EQUAL (LENGTH (CDR (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA))) (QUOTE 32)))) ((ENABLE MEMORY-VALUE) (DISABLE *1*MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-IF* . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-READ-MEM-32 . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-IF* . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF*-C-X-X . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF*-CONS . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF* . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . PROPERP-LENGTH-MEMORY-VALUE) (LEMMAS LENGTH . PROPERP-LENGTH-MEMORY-VALUE) (LEMMAS PROPERP . PROPERP-LENGTH-MEMORY-VALUE))))) (PUT1-LST (QUOTE MEM-STATE-OFF) (QUOTE (IDATE 1000402193944 EVENT (TOGGLE MEM-STATE-OFF MEM-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-STATE . MEM-STATE-OFF) (DISABLED-LEMMAS NIL MEM-STATE MEM-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*MEM-STATE) (QUOTE (MAIN-EVENT MEM-STATE))) (PUT1-LST (QUOTE MEM-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-STATE 16 NIL NIL)) TOTALP-LST ((MEM-STATE . T)) SDEFN (LAMBDA (ARGS STATE) (NEXT-MEMORY-STATE STATE (CAR (CDR ARGS)) (CAR ARGS) (SUBRANGE ARGS (QUOTE 2) (QUOTE 33)) (SUBRANGE ARGS (QUOTE 34) (QUOTE 65)))) LISP-CODE *1*MEM-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193944 SATELLITES (*1*MEM-STATE) IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STATE MEM-STATE-OFF) EVENT (DEFN MEM-STATE (ARGS STATE) (NEXT-MEMORY-STATE STATE (CAR (CDR ARGS)) (CAR ARGS) (SUBRANGE ARGS (QUOTE 2) (QUOTE 33)) (SUBRANGE ARGS (QUOTE 34) (QUOTE 65)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . MEM-STATE) (IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . MEM-STATE) (DCELL . *1*MEM-STATE))))) (PUT1-LST (QUOTE MEM-VALUE-OFF) (QUOTE (IDATE 1000402193944 EVENT (TOGGLE MEM-VALUE-OFF MEM-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-VALUE . MEM-VALUE-OFF) (DISABLED-LEMMAS NIL MEM-VALUE MEM-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*MEM-VALUE) (QUOTE (MAIN-EVENT MEM-VALUE))) (PUT1-LST (QUOTE MEM-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-VALUE 16 NIL NIL)) TOTALP-LST ((MEM-VALUE . T)) SDEFN (LAMBDA (ARGS STATE) (MEMORY-VALUE STATE (CAR (CDR ARGS)) (CAR ARGS) (SUBRANGE ARGS (QUOTE 2) (QUOTE 33)) (SUBRANGE ARGS (QUOTE 34) (QUOTE 65)))) LISP-CODE *1*MEM-VALUE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193944 SATELLITES (*1*MEM-VALUE) IMMEDIATE-DEPENDENTS0 (MEM-32X32$STRUCTURED-VALUE-1 MEM-32X32$VALUE MEM-VALUE-OFF) EVENT (DEFN MEM-VALUE (ARGS STATE) (MEMORY-VALUE STATE (CAR (CDR ARGS)) (CAR ARGS) (SUBRANGE ARGS (QUOTE 2) (QUOTE 33)) (SUBRANGE ARGS (QUOTE 34) (QUOTE 65)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . MEM-VALUE) (IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . MEM-VALUE) (DCELL . *1*MEM-VALUE))))) (PUT1-LST (QUOTE MEMORY-VALUE-OFF) (QUOTE (IDATE 1000402193944 EVENT (TOGGLE MEMORY-VALUE-OFF MEMORY-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-VALUE . MEMORY-VALUE-OFF) (DISABLED-LEMMAS NIL MEMORY-VALUE MEMORY-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*MEMORY-VALUE) (QUOTE (MAIN-EVENT MEMORY-VALUE))) (PUT1-LST (QUOTE MEMORY-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-VALUE 16 NIL NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE NIL (EQUAL (MEMORY-VALUE STATE STROBE RW- ADDRESS (COLLECT-VALUE ARGS ALIST)) (MEMORY-VALUE STATE STROBE RW- ADDRESS (MAKE-LIST (LENGTH ARGS) (QUOTE (*1*QUOTE X))))) NIL)) TOTALP-LST ((MEMORY-VALUE . T)) SDEFN (LAMBDA (STATE STROBE- RW- ADDRESS DATA) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (IF* (QUOTE *1*TRUE) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF* RW- (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (IF* (QUOTE *1*FALSE) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF* RW- (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (IF* (QUOTE *1*TRUE) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF* RW- (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (AND* (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (AND* (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (IF* (CAR (CDR (CDR (CDR (CDR STATE))))) (READ-MEM ADDRESS (CAR STATE)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (AND* (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (AND* (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (IF* (CAR (CDR (CDR (CDR (CDR STATE))))) (READ-MEM ADDRESS (CAR STATE)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))))) (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (AND* (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (AND* (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (IF* (CAR (CDR (CDR (CDR (CDR STATE))))) (READ-MEM ADDRESS (CAR STATE)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))))))))) LISP-CODE *1*MEMORY-VALUE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193944 SATELLITES (*1*MEMORY-VALUE) IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE FM9001-NEXT-STATE MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1 EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE MEM-VALUE MEMORY-VALUE-OFF) EVENT (DEFN MEMORY-VALUE (STATE STROBE- RW- ADDRESS DATA) (IF* (AND* (BOOLP STROBE-) (BOOLP RW-)) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (IF* (ZEROP (CAR (CAR (CDR (CDR STATE))))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF* RW- (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (AND* (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (AND* (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (IF* (CAR (CDR (CDR (CDR (CDR STATE))))) (READ-MEM ADDRESS (CAR STATE)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))))) (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))) (IF* STROBE- (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (IF* RW- (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))))) (IF* (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))) (CONS (QUOTE *1*TRUE) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE Z)))))))))) (CONS (QUOTE (*1*QUOTE X)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 BVP . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 Z . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 X . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 BOOLP . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 AND* . MEMORY-VALUE) (IMMEDIATE-DEPENDENTS0 IF* . MEMORY-VALUE) (DCELL . *1*MEMORY-VALUE))))) (PUT1-LST (QUOTE NEXT-MEMORY-STATE-OFF) (QUOTE (IDATE 1000402193944 EVENT (TOGGLE NEXT-MEMORY-STATE-OFF NEXT-MEMORY-STATE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEXT-MEMORY-STATE . NEXT-MEMORY-STATE-OFF) (DISABLED-LEMMAS NIL NEXT-MEMORY-STATE NEXT-MEMORY-STATE-OFF . T))))) (PUT1-LST (QUOTE *1*NEXT-MEMORY-STATE) (QUOTE (MAIN-EVENT NEXT-MEMORY-STATE))) (PUT1-LST (QUOTE NEXT-MEMORY-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((NEXT-MEMORY-STATE 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((NEXT-MEMORY-STATE . T)) SDEFN (LAMBDA (STATE STROBE- RW- ADDRESS DATA) (IF (BOOLP STROBE-) (IF (BOOLP RW-) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL)))))))))) (IF RW- (IF (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (IF (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF RW- (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF STROBE- (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF RW- (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (BVP ADDRESS) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (BVP DATA) (IF (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))))) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))) (IF RW- (IF (EQUAL (CAR (CDR (CDR (CDR STATE)))) (QUOTE 0)) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (IF (NUMBERP (CAR (CDR (CDR (CDR STATE))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CAR (CDR (CDR STATE)))) (QUOTE 0)) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (NUMBERP (CAR (CAR (CDR (CDR STATE))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*FALSE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP (QUOTE *1*FALSE)) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (IF (BOOLP RW-) (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX (QUOTE *1*FALSE)) (CONS (V-THREEFIX ADDRESS) (CONS (V-THREEFIX DATA) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))) LISP-CODE *1*NEXT-MEMORY-STATE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193944 SATELLITES (*1*NEXT-MEMORY-STATE) IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-HELP FM9001-NEXT-STATE MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1 PROPERP-LENGTH-NEXT-MEMORY-STATE MEM-STATE NEXT-MEMORY-STATE-OFF) EVENT (DEFN NEXT-MEMORY-STATE (STATE STROBE- RW- ADDRESS DATA) (IF (AND (BOOLP STROBE-) (BOOLP RW-)) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 0)) (IF STROBE- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF RW- (IF (AND (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))) (BOOLP (CAR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (IF (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF (AND (NOT (CAR (CDR (CDR (CDR (CDR (CDR STATE))))))) (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 1)) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF RW- (IF (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (CONS (CAR STATE) (CONS (QUOTE 1) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))))) (IF (EQUAL (CAR (CDR STATE)) (QUOTE 2)) (IF STROBE- (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))))) (ZEROP (CAR (CDR (CDR (CDR STATE))))))) (CONS (WRITE-MEM ADDRESS (CAR STATE) DATA) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))))) (IF RW- (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (IF (AND (AND (BVP ADDRESS) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))) (EQUAL ADDRESS (CAR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))) (AND (BVP DATA) (AND (BVP (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (EQUAL DATA (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE)))))))))))) (CONS (CAR STATE) (CONS (QUOTE 2) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))) (IF STROBE- (IF RW- (CONS (CAR STATE) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))) (IF RW- (CONS (CAR STATE) (CONS (QUOTE 3) (CONS (CAR (CDR (CDR STATE))) (CONS (SUB1 (CAR (CDR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CDR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (CDR (CAR (CDR (CDR STATE)))) (CONS (SUB1 (CAR (CAR (CDR (CDR STATE))))) (CONS (ZEROP (CAR (CAR (CDR (CDR STATE))))) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL)))))))))))))) (CONS (CONSTANT-RAM (CAR STATE) (MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (CAR (CDR (CDR STATE))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (THREEFIX RW-) (CONS (V-THREEFIX ADDRESS) (CONS (IF (BOOLP RW-) (IF RW- (V-THREEFIX (CAR (CDR (CDR (CDR (CDR (CDR (CDR (CDR STATE))))))))) (V-THREEFIX DATA)) (MAKE-LIST (LENGTH DATA) (QUOTE (*1*QUOTE X)))) (QUOTE NIL))))))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 BVP . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 X . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 LENGTH . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 THREEFIX . NEXT-MEMORY-STATE) (IMMEDIATE-DEPENDENTS0 BOOLP . NEXT-MEMORY-STATE) (DCELL . *1*NEXT-MEMORY-STATE))))) (PUT1-LST (QUOTE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (REGFILE$VALUE) EVENT (PROVE-LEMMA PROPERP-LENGTH-DUAL-PORT-RAM-VALUE (REWRITE) (AND (PROPERP (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE)) (EQUAL (LENGTH (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE)) (FIX BITS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 PLUS-0 . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP-MAKE-LIST . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 TIMES-1 . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 DUAL-PORT-RAM-VALUE . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (LEMMAS LENGTH . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) (LEMMAS PROPERP . PROPERP-LENGTH-DUAL-PORT-RAM-VALUE))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-STATE) (QUOTE (MAIN-EVENT DUAL-PORT-RAM-STATE))) (PUT1-LST (QUOTE DUAL-PORT-RAM-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-PORT-RAM-STATE 3088 NIL NIL NIL T)) LEMMAS ((REWRITE-RULE DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY NIL (EQUAL (DUAL-PORT-RAM-STATE BITS ADDRESS-LINES ARGS STATE) (DUAL-PORT-RAM-STATE-BODY BITS (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (SUBRANGE ARGS (ADD1 (TIMES (QUOTE 2) ADDRESS-LINES)) (PLUS (TIMES (QUOTE 2) ADDRESS-LINES) BITS)) STATE)) NIL)) TOTALP-LST ((DUAL-PORT-RAM-STATE . T)) SDEFN (LAMBDA (BITS ADDRESS-LINES ARGS STATE) (IF (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*TRUE)) STATE (IF (BVP (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES)))) (IF (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*FALSE)) (WRITE-MEM (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) STATE (SUBRANGE ARGS (ADD1 (TIMES (QUOTE 2) ADDRESS-LINES)) (PLUS (TIMES (QUOTE 2) ADDRESS-LINES) BITS))) (WRITE-MEM (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (CONSTANT-RAM STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))))) LISP-CODE *1*DUAL-PORT-RAM-STATE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193944 SATELLITES (*1*DUAL-PORT-RAM-STATE) IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-PORT-RAM-STATE-MONOTONE-REWRITE DUAL-PORT-RAM-STATE-MONOTONE ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK F$WRITE-REGS=WRITE-REGS F$WRITE-REGS DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STATE) EVENT (DEFN DUAL-PORT-RAM-STATE (BITS ADDRESS-LINES ARGS STATE) (IF (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*TRUE)) STATE (IF (NOT (BVP (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))))) (CONSTANT-RAM STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (IF (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*FALSE)) (WRITE-MEM (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) STATE (SUBRANGE ARGS (ADD1 (TIMES (QUOTE 2) ADDRESS-LINES)) (PLUS (TIMES (QUOTE 2) ADDRESS-LINES) BITS))) (WRITE-MEM (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) STATE (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 X . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 BVP . DUAL-PORT-RAM-STATE) (IMMEDIATE-DEPENDENTS0 NTH . DUAL-PORT-RAM-STATE) (DCELL . *1*DUAL-PORT-RAM-STATE))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-VALUE) (QUOTE (MAIN-EVENT DUAL-PORT-RAM-VALUE))) (PUT1-LST (QUOTE DUAL-PORT-RAM-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((DUAL-PORT-RAM-VALUE -1 NIL NIL NIL NIL)) LEMMAS ((REWRITE-RULE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY NIL (EQUAL (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE) (DUAL-PORT-RAM-VALUE-BODY BITS (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))) (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) STATE)) NIL)) TOTALP-LST ((DUAL-PORT-RAM-VALUE . T)) SDEFN (LAMBDA (BITS ADDRESS-LINES ARGS STATE) (IF (BVP (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES))) (IF (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*TRUE)) (IF (PROPERP (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) (IF (EQUAL (LENGTH (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) BITS) (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (IF (BVP (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES)))) (IF (EQUAL (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) (IF (PROPERP (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) (IF (EQUAL (LENGTH (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) BITS) (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))))) LISP-CODE *1*DUAL-PORT-RAM-VALUE SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193944 SATELLITES (*1*DUAL-PORT-RAM-VALUE) IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-VALUE-DP-RAM-16X32 DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-3 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 DUAL-PORT-RAM-VALUE-MONOTONE F$READ-REGS=READ-REGS F$READ-REGS DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32$VALUE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) EVENT (DEFN DUAL-PORT-RAM-VALUE (BITS ADDRESS-LINES ARGS STATE) (IF (OR (NOT (BVP (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)))) (AND (NOT (EQUAL (NTH (TIMES (QUOTE 2) ADDRESS-LINES) ARGS) (QUOTE *1*TRUE))) (OR (NOT (BVP (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))))) (EQUAL (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) (SUBRANGE ARGS ADDRESS-LINES (SUB1 (TIMES (QUOTE 2) ADDRESS-LINES))))))) (MAKE-LIST BITS (QUOTE (*1*QUOTE X))) (IF (AND (PROPERP (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) (EQUAL (LENGTH (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE)) BITS)) (READ-MEM (SUBRANGE ARGS (QUOTE 0) (SUB1 ADDRESS-LINES)) STATE) (MAKE-LIST BITS (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 READ-MEM . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 X . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 NTH . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . DUAL-PORT-RAM-VALUE) (IMMEDIATE-DEPENDENTS0 BVP . DUAL-PORT-RAM-VALUE) (DCELL . *1*DUAL-PORT-RAM-VALUE))))) (PUT1-LST (QUOTE MEMORY-OKP==>MEMORY-PROPERP) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP F$READ-REGS=READ-REGS) EVENT (PROVE-LEMMA MEMORY-OKP==>MEMORY-PROPERP (REWRITE) (IMPLIES (MEMORY-OKP N M MEM) (MEMORY-PROPERP N M MEM)) ((ENABLE MEMORY-OKP MEMORY-PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IS-PROPERP . MEMORY-OKP==>MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-OKP==>MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-OKP==>MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MEMORY-OKP==>MEMORY-PROPERP) (LEMMAS MEMORY-PROPERP . MEMORY-OKP==>MEMORY-PROPERP))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-CONSTANT-RAM) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK) EVENT (PROVE-LEMMA ALL-RAMP-MEM-CONSTANT-RAM (REWRITE) (EQUAL (ALL-RAMP-MEM N (CONSTANT-RAM MEM VALUE)) (ALL-RAMP-MEM N MEM)) ((ENABLE ALL-RAMP-MEM CONSTANT-RAM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . ALL-RAMP-MEM-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . ALL-RAMP-MEM-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-CONSTANT-RAM) (LEMMAS ALL-RAMP-MEM . ALL-RAMP-MEM-CONSTANT-RAM))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-AFTER-WRITE-MEM) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK ALL-RAMP-MEM-AFTER-WRITE-REGS) EVENT (PROVE-LEMMA ALL-RAMP-MEM-AFTER-WRITE-MEM (REWRITE) (IMPLIES (AND (ALL-RAMP-MEM N MEM) (EQUAL N (LENGTH V-ADDR))) (ALL-RAMP-MEM N (WRITE-MEM V-ADDR MEM VALUE))) ((USE (ALL-RAMP-MEM-AFTER-WRITE-MEM1 (V-ADDR (REVERSE V-ADDR)))) (ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . ALL-RAMP-MEM-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM-AFTER-WRITE-MEM1 . ALL-RAMP-MEM-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . ALL-RAMP-MEM-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-AFTER-WRITE-MEM) (LEMMAS ALL-RAMP-MEM . ALL-RAMP-MEM-AFTER-WRITE-MEM))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-AFTER-WRITE-MEM1) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-AFTER-WRITE-MEM) EVENT (PROVE-LEMMA ALL-RAMP-MEM-AFTER-WRITE-MEM1 NIL (IMPLIES (AND (ALL-RAMP-MEM N MEM) (EQUAL N (LENGTH V-ADDR))) (ALL-RAMP-MEM N (WRITE-MEM1 V-ADDR MEM VALUE))) ((ENABLE ALL-RAMP-MEM WRITE-MEM1 LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . ALL-RAMP-MEM-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . ALL-RAMP-MEM-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-RAMP-MEM-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . ALL-RAMP-MEM-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-AFTER-WRITE-MEM1))))) (PUT1-LST (QUOTE ALL-RAMP-MEM->RAMP-MEM) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (READ-REGS=READ-MEM-WRITE-MEM READ-REGS-WRITE-REGS-F) EVENT (PROVE-LEMMA ALL-RAMP-MEM->RAMP-MEM (REWRITE) (IMPLIES (ALL-RAMP-MEM (LENGTH V-ADDR) MEM) (RAMP-MEM V-ADDR MEM)) ((ENABLE ALL-RAMP-MEM RAMP-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . ALL-RAMP-MEM->RAMP-MEM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM->RAMP-MEM1 . ALL-RAMP-MEM->RAMP-MEM) (IMMEDIATE-DEPENDENTS0 RAMP-MEM . ALL-RAMP-MEM->RAMP-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM->RAMP-MEM) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM->RAMP-MEM) (LEMMAS RAMP-MEM . ALL-RAMP-MEM->RAMP-MEM))))) (PUT1-LST (QUOTE ALL-RAMP-MEM->RAMP-MEM1) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM->RAMP-MEM) EVENT (PROVE-LEMMA ALL-RAMP-MEM->RAMP-MEM1 (REWRITE) (IMPLIES (ALL-RAMP-MEM (LENGTH V-ADDR) MEM) (RAMP-MEM1 V-ADDR MEM)) ((ENABLE ALL-RAMP-MEM RAMP-MEM1 LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . ALL-RAMP-MEM->RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-RAMP-MEM->RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 RAMP-MEM1 . ALL-RAMP-MEM->RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . ALL-RAMP-MEM->RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM->RAMP-MEM1) (LEMMAS RAMP-MEM1 . ALL-RAMP-MEM->RAMP-MEM1))))) (PUT1-LST (QUOTE BVP-READ-MEM-32) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP FETCH1->DECODE$SIM READB3$STEP0 READA3$STEP0 FETCH3$STEP0 F$READ-REGS=READ-REGS BVP-LENGTH-READ-REGS-32) EVENT (PROVE-LEMMA BVP-READ-MEM-32 (REWRITE) (IMPLIES (MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) MEM) (AND (BVP (READ-MEM V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) (QUOTE 32)))) ((USE (BVP-READ-MEM (V-ADDR V-ADDR) (SIZE (QUOTE 32)) (MEM MEM))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . BVP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 BVP-READ-MEM . BVP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 READ-MEM . BVP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 BVP . BVP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . BVP-READ-MEM-32) (LEMMAS LENGTH . BVP-READ-MEM-32) (LEMMAS BVP . BVP-READ-MEM-32))))) (PUT1-LST (QUOTE BVP-READ-MEM) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (BVP-READ-MEM-32) EVENT (PROVE-LEMMA BVP-READ-MEM NIL (IMPLIES (MEMORY-OKP (LENGTH (REVERSE V-ADDR)) SIZE MEM) (AND (BVP (READ-MEM V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) SIZE))) ((ENABLE READ-MEM) (DISABLE LENGTH-REVERSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-READ-MEM1 . BVP-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . BVP-READ-MEM) (IMMEDIATE-DEPENDENTS0 BVP . BVP-READ-MEM) (IMMEDIATE-DEPENDENTS0 REVERSE . BVP-READ-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-READ-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . BVP-READ-MEM))))) (PUT1-LST (QUOTE BVP-READ-MEM1) (QUOTE (IDATE 1000402193944 IMMEDIATE-DEPENDENTS0 (BVP-READ-MEM) EVENT (PROVE-LEMMA BVP-READ-MEM1 (REWRITE) (IMPLIES (MEMORY-OKP (LENGTH V-ADDR) SIZE MEM) (AND (BVP (READ-MEM1 V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM1 V-ADDR MEM)) SIZE))) ((ENABLE MEMORY-OKP LENGTH READ-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-IF . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 BVP . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . BVP-READ-MEM1) (LEMMAS LENGTH . BVP-READ-MEM1) (LEMMAS BVP . BVP-READ-MEM1))))) (PUT1-LST (QUOTE PROPERP-READ-MEM-32) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP F$READ-REGS=READ-REGS PROPERP-LENGTH-MEMORY-VALUE) EVENT (PROVE-LEMMA PROPERP-READ-MEM-32 (REWRITE) (IMPLIES (MEMORY-PROPERP (LENGTH V-ADDR) (QUOTE 32) MEM) (AND (PROPERP (READ-MEM V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) (QUOTE 32)))) ((USE (PROPERP-READ-MEM (V-ADDR V-ADDR) (SIZE (QUOTE 32)) (MEM MEM))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . PROPERP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 PROPERP-READ-MEM . PROPERP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 READ-MEM . PROPERP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-READ-MEM-32) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . PROPERP-READ-MEM-32) (LEMMAS LENGTH . PROPERP-READ-MEM-32) (LEMMAS PROPERP . PROPERP-READ-MEM-32))))) (PUT1-LST (QUOTE PROPERP-READ-MEM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (PROPERP-READ-MEM-32) EVENT (PROVE-LEMMA PROPERP-READ-MEM NIL (IMPLIES (MEMORY-PROPERP (LENGTH (REVERSE V-ADDR)) SIZE MEM) (AND (PROPERP (READ-MEM V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) SIZE))) ((ENABLE READ-MEM) (DISABLE LENGTH-REVERSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-READ-MEM1 . PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 REVERSE . PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-READ-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . PROPERP-READ-MEM))))) (PUT1-LST (QUOTE PROPERP-READ-MEM1) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (PROPERP-READ-MEM) EVENT (PROVE-LEMMA PROPERP-READ-MEM1 (REWRITE) (IMPLIES (MEMORY-PROPERP (LENGTH V-ADDR) SIZE MEM) (AND (PROPERP (READ-MEM1 V-ADDR MEM)) (EQUAL (LENGTH (READ-MEM1 V-ADDR MEM)) SIZE))) ((ENABLE MEMORY-PROPERP LENGTH READ-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-IF . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-READ-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . PROPERP-READ-MEM1) (LEMMAS LENGTH . PROPERP-READ-MEM1) (LEMMAS PROPERP . PROPERP-READ-MEM1))))) (PUT1-LST (QUOTE READ-MEM-WRITE-MEM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (READ-REGS=READ-MEM-WRITE-MEM READ-REGS-WRITE-REGS-F) EVENT (PROVE-LEMMA READ-MEM-WRITE-MEM NIL (IMPLIES (EQUAL (LENGTH V-ADDR1) (LENGTH V-ADDR2)) (EQUAL (READ-MEM V-ADDR1 (WRITE-MEM V-ADDR2 MEM VALUE)) (IF (AND (V-IFF V-ADDR1 V-ADDR2) (RAMP-MEM V-ADDR2 MEM)) VALUE (READ-MEM V-ADDR1 MEM)))) ((ENABLE READ-MEM WRITE-MEM RAMP-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 V-IFF-REVERSE . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 RAMP-MEM . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 V-IFF . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . READ-MEM-WRITE-MEM))))) (PUT1-LST (QUOTE NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (READ-MEM-WRITE-MEM) EVENT (PROVE-LEMMA NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 (REWRITE) (IMPLIES (NOT (V-IFF V-ADDR1 V-ADDR2)) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) (READ-MEM1 V-ADDR1 MEM))) ((ENABLE V-IFF MEMORY-OKP READ-MEM1 WRITE-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 V-IFF . NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (LEMMAS READ-MEM1 . NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1))))) (PUT1-LST (QUOTE V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (READ-MEM-WRITE-MEM) EVENT (PROVE-LEMMA V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM (REWRITE) (IMPLIES (AND (NOT (RAMP-MEM1 V-ADDR2 MEM)) (EQUAL (LENGTH V-ADDR1) (LENGTH V-ADDR2))) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) (READ-MEM1 V-ADDR1 MEM))) ((ENABLE V-IFF MEMORY-OKP READ-MEM1 WRITE-MEM1 RAMP-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (IMMEDIATE-DEPENDENTS0 RAMP-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM) (LEMMAS READ-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM))))) (PUT1-LST (QUOTE V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (READ-MEM-WRITE-MEM) EVENT (PROVE-LEMMA V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 (REWRITE) (IMPLIES (AND (V-IFF V-ADDR1 V-ADDR2) (AND (RAMP-MEM1 V-ADDR2 MEM) (EQUAL (LENGTH V-ADDR1) (LENGTH V-ADDR2)))) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) VALUE)) ((ENABLE V-IFF MEMORY-OKP READ-MEM1 WRITE-MEM1 RAMP-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 RAMP-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1) (LEMMAS READ-MEM1 . V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1))))) (PUT1-LST (QUOTE MEMORY-OKP-AFTER-WRITE-MEM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP) EVENT (PROVE-LEMMA MEMORY-OKP-AFTER-WRITE-MEM (REWRITE) (IMPLIES (AND (MEMORY-OKP N WIDTH MEM) (AND (BVP VALUE) (AND (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))))) (MEMORY-OKP N WIDTH (WRITE-MEM V-ADDR MEM VALUE))) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . MEMORY-OKP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-AFTER-WRITE-MEM1 . MEMORY-OKP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . MEMORY-OKP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-OKP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BVP . MEMORY-OKP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MEMORY-OKP-AFTER-WRITE-MEM) (LEMMAS MEMORY-OKP . MEMORY-OKP-AFTER-WRITE-MEM))))) (PUT1-LST (QUOTE MEMORY-OKP-AFTER-WRITE-MEM1) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MEMORY-OKP-AFTER-WRITE-MEM) EVENT (PROVE-LEMMA MEMORY-OKP-AFTER-WRITE-MEM1 (REWRITE) (IMPLIES (AND (MEMORY-OKP N WIDTH MEM) (AND (BVP VALUE) (AND (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))))) (MEMORY-OKP N WIDTH (WRITE-MEM1 V-ADDR MEM VALUE))) ((ENABLE MEMORY-OKP LENGTH WRITE-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP-IF . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 BVP . MEMORY-OKP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MEMORY-OKP-AFTER-WRITE-MEM1) (LEMMAS MEMORY-OKP . MEMORY-OKP-AFTER-WRITE-MEM1))))) (PUT1-LST (QUOTE MEMORY-PROPERP-AFTER-WRITE-MEM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) EVENT (PROVE-LEMMA MEMORY-PROPERP-AFTER-WRITE-MEM (REWRITE) (IMPLIES (AND (MEMORY-PROPERP N WIDTH MEM) (AND (PROPERP VALUE) (AND (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))))) (MEMORY-PROPERP N WIDTH (WRITE-MEM V-ADDR MEM VALUE))) ((ENABLE WRITE-MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-REVERSE . MEMORY-PROPERP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-AFTER-WRITE-MEM1 . MEMORY-PROPERP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . MEMORY-PROPERP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-PROPERP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM) (LEMMAS MEMORY-PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM))))) (PUT1-LST (QUOTE MEMORY-PROPERP-AFTER-WRITE-MEM1) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MEMORY-PROPERP-AFTER-WRITE-MEM) EVENT (PROVE-LEMMA MEMORY-PROPERP-AFTER-WRITE-MEM1 (REWRITE) (IMPLIES (AND (MEMORY-PROPERP N WIDTH MEM) (AND (PROPERP VALUE) (AND (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))))) (MEMORY-PROPERP N WIDTH (WRITE-MEM1 V-ADDR MEM VALUE))) ((ENABLE MEMORY-PROPERP LENGTH WRITE-MEM1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP-IF . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM1) (LEMMAS MEMORY-PROPERP . MEMORY-PROPERP-AFTER-WRITE-MEM1))))) (PUT1-LST (QUOTE MEMORY-PROPERP-CONSTANT-RAM) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT) EVENT (PROVE-LEMMA MEMORY-PROPERP-CONSTANT-RAM (REWRITE) (IMPLIES (AND (MEMORY-PROPERP N WIDTH MEM) (AND (PROPERP VALUE) (EQUAL WIDTH (LENGTH VALUE)))) (MEMORY-PROPERP N WIDTH (CONSTANT-RAM MEM VALUE))) ((ENABLE MEMORY-PROPERP CONSTANT-RAM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . MEMORY-PROPERP-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-PROPERP-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . MEMORY-PROPERP-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-PROPERP-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-PROPERP-CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-CONSTANT-RAM) (LEMMAS MEMORY-PROPERP . MEMORY-PROPERP-CONSTANT-RAM))))) (PUT1-LST (QUOTE MEMORY-OKP-IF) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MEMORY-OKP-AFTER-WRITE-MEM1) EVENT (PROVE-LEMMA MEMORY-OKP-IF (REWRITE) (IMPLIES (AND (MEMORY-OKP N WIDTH A) (MEMORY-OKP N WIDTH B)) (MEMORY-OKP N WIDTH (IF C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MEMORY-OKP-IF) (LEMMAS MEMORY-OKP . MEMORY-OKP-IF))))) (PUT1-LST (QUOTE MEMORY-PROPERP-IF) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-AFTER-WRITE-MEM1) EVENT (PROVE-LEMMA MEMORY-PROPERP-IF (REWRITE) (IMPLIES (AND (MEMORY-PROPERP N WIDTH A) (MEMORY-PROPERP N WIDTH B)) (MEMORY-PROPERP N WIDTH (IF C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-IF) (LEMMAS MEMORY-PROPERP . MEMORY-PROPERP-IF))))) (PUT1-LST (QUOTE CONSTANT-RAM-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE CONSTANT-RAM-OFF CONSTANT-RAM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONSTANT-RAM . CONSTANT-RAM-OFF) (DISABLED-LEMMAS NIL CONSTANT-RAM CONSTANT-RAM-OFF . T))))) (PUT1-LST (QUOTE *1*CONSTANT-RAM) (QUOTE (MAIN-EVENT CONSTANT-RAM))) (PUT1-LST (QUOTE CONSTANT-RAM) (QUOTE (TYPE-PRESCRIPTION-LST ((CONSTANT-RAM 1040 T NIL)) TOTALP-LST ((CONSTANT-RAM . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (MEM VALUE) (IF (RAMP MEM) (RAM VALUE) (IF (LISTP MEM) (CONS (CONSTANT-RAM (CAR MEM) VALUE) (CONSTANT-RAM (CDR MEM) VALUE)) MEM))) LISP-CODE *1*CONSTANT-RAM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (RAMP MEM)) (NLISTP MEM)) NIL) (TESTS-AND-CASES ((NOT (RAMP MEM)) (NOT (NLISTP MEM))) (((CDR MEM) VALUE) ((CAR MEM) VALUE)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193943 CONTROLLER-POCKETS (1) SATELLITES (*1*CONSTANT-RAM) IMMEDIATE-DEPENDENTS0 (GOOD-S-CONSTANT-RAM DUAL-PORT-RAM-STATE-BODY S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID NEXT-MEMORY-STATE$INDUCTION NEXT-MEMORY-STATE DUAL-PORT-RAM-STATE ALL-RAMP-MEM-CONSTANT-RAM MEMORY-PROPERP-CONSTANT-RAM CONSTANT-RAM-OFF) EVENT (DEFN CONSTANT-RAM (MEM VALUE) (IF (RAMP MEM) (RAM VALUE) (IF (NLISTP MEM) MEM (CONS (CONSTANT-RAM (CAR MEM) VALUE) (CONSTANT-RAM (CDR MEM) VALUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . CONSTANT-RAM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . CONSTANT-RAM) (DCELL . *1*CONSTANT-RAM))))) (PUT1-LST (QUOTE ALL-RAMP-MEM-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE ALL-RAMP-MEM-OFF ALL-RAMP-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALL-RAMP-MEM . ALL-RAMP-MEM-OFF) (DISABLED-LEMMAS NIL ALL-RAMP-MEM ALL-RAMP-MEM-OFF . T))))) (PUT1-LST (QUOTE *1*ALL-RAMP-MEM) (QUOTE (MAIN-EVENT ALL-RAMP-MEM))) (PUT1-LST (QUOTE ALL-RAMP-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((ALL-RAMP-MEM 3 NIL NIL)) LEMMAS ((REWRITE-RULE ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK ((ALL-RAMP-MEM (QUOTE 4) REGS) (EQUAL (LENGTH A-ADDRESS) (QUOTE 4)) (EQUAL (LENGTH B-ADDRESS) (QUOTE 4)) (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32))) (ALL-RAMP-MEM (QUOTE 4) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A-ADDRESS (APPEND B-ADDRESS (CONS WE DATA))) REGS)) NIL) (REWRITE-RULE ALL-RAMP-MEM-AFTER-WRITE-REGS ((ALL-RAMP-MEM N (CAR REGS)) (EQUAL (LENGTH (CAR (CDR (CDR (CDR REGS))))) N)) (ALL-RAMP-MEM N (CAR (WRITE-REGS WE ADDRESS REGS DATA))) NIL) (REWRITE-RULE ALL-RAMP-MEM-CONSTANT-RAM NIL (EQUAL (ALL-RAMP-MEM N (CONSTANT-RAM MEM VALUE)) (ALL-RAMP-MEM N MEM)) NIL) (REWRITE-RULE ALL-RAMP-MEM-AFTER-WRITE-MEM ((ALL-RAMP-MEM N MEM) (EQUAL N (LENGTH V-ADDR))) (ALL-RAMP-MEM N (WRITE-MEM V-ADDR MEM VALUE)) NIL)) TOTALP-LST ((ALL-RAMP-MEM . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N MEM) (IF (STUBP MEM) (QUOTE *1*FALSE) (IF (EQUAL N (QUOTE 0)) (RAMP MEM) (IF (NUMBERP N) (IF (LISTP MEM) (IF (ALL-RAMP-MEM (SUB1 N) (CAR MEM)) (IF (ALL-RAMP-MEM (SUB1 N) (CDR MEM)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (RAMP MEM))))) LISP-CODE *1*ALL-RAMP-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (ZEROP N)) (NLISTP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (ZEROP N)) (NOT (NLISTP MEM))) (((SUB1 N) (CDR MEM)) ((SUB1 N) (CAR MEM))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP NLISTP COUNT-NUMBERP LESSP-SUB1-X-X)) (JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP ZEROP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193943 CONTROLLER-POCKETS (1 2) SATELLITES (*1*ALL-RAMP-MEM) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA NEW-MACHINE-STATE-INVARIANT CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE FM9001-MACHINE-STATEP MACROCYCLE-INVARIANT REGFILE-OKP ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MACHINE-STATE-INVARIANT READ-REGS=READ-MEM-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-REGS READ-REGS-WRITE-REGS-F ALL-RAMP-MEM-CONSTANT-RAM ALL-RAMP-MEM-AFTER-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM ALL-RAMP-MEM->RAMP-MEM1 ALL-RAMP-MEM-OFF) EVENT (DEFN ALL-RAMP-MEM (N MEM) (IF (STUBP MEM) (QUOTE *1*FALSE) (IF (ZEROP N) (RAMP MEM) (IF (NLISTP MEM) (QUOTE *1*FALSE) (AND (ALL-RAMP-MEM (SUB1 N) (CAR MEM)) (ALL-RAMP-MEM (SUB1 N) (CDR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . ALL-RAMP-MEM) (IMMEDIATE-DEPENDENTS0 STUB . ALL-RAMP-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . ALL-RAMP-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . ALL-RAMP-MEM) (DCELL . *1*ALL-RAMP-MEM))))) (PUT1-LST (QUOTE RAMP-MEM-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE RAMP-MEM-OFF RAMP-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAMP-MEM . RAMP-MEM-OFF) (DISABLED-LEMMAS NIL RAMP-MEM RAMP-MEM-OFF . T))))) (PUT1-LST (QUOTE *1*RAMP-MEM) (QUOTE (MAIN-EVENT RAMP-MEM))) (PUT1-LST (QUOTE RAMP-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((RAMP-MEM 3 NIL NIL)) LEMMAS ((REWRITE-RULE ALL-RAMP-MEM->RAMP-MEM ((ALL-RAMP-MEM (LENGTH V-ADDR) MEM)) (RAMP-MEM V-ADDR MEM) NIL)) TOTALP-LST ((RAMP-MEM . T)) SDEFN (LAMBDA (V-ADDR MEM) (RAMP-MEM1 (REVERSE V-ADDR) MEM)) LISP-CODE *1*RAMP-MEM SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193943 SATELLITES (*1*RAMP-MEM) IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM->RAMP-MEM READ-MEM-WRITE-MEM RAMP-MEM-OFF) EVENT (DEFN RAMP-MEM (V-ADDR MEM) (RAMP-MEM1 (REVERSE V-ADDR) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REVERSE . RAMP-MEM) (IMMEDIATE-DEPENDENTS0 RAMP-MEM1 . RAMP-MEM) (DCELL . *1*RAMP-MEM))))) (PUT1-LST (QUOTE RAMP-MEM1-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE RAMP-MEM1-OFF RAMP-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAMP-MEM1 . RAMP-MEM1-OFF) (DISABLED-LEMMAS NIL RAMP-MEM1 RAMP-MEM1-OFF . T))))) (PUT1-LST (QUOTE *1*RAMP-MEM1) (QUOTE (MAIN-EVENT RAMP-MEM1))) (PUT1-LST (QUOTE RAMP-MEM1) (QUOTE (TYPE-PRESCRIPTION-LST ((RAMP-MEM1 3 NIL NIL)) LEMMAS ((REWRITE-RULE ALL-RAMP-MEM->RAMP-MEM1 ((ALL-RAMP-MEM (LENGTH V-ADDR) MEM)) (RAMP-MEM1 V-ADDR MEM) NIL)) TOTALP-LST ((RAMP-MEM1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V-ADDR MEM) (IF (STUBP MEM) (QUOTE *1*FALSE) (IF (LISTP V-ADDR) (IF (LISTP MEM) (IF (CAR V-ADDR) (RAMP-MEM1 (CDR V-ADDR) (CDR MEM)) (RAMP-MEM1 (CDR V-ADDR) (CAR MEM))) (QUOTE *1*FALSE)) (RAMP MEM)))) LISP-CODE *1*RAMP-MEM1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NLISTP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM)))) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193943 CONTROLLER-POCKETS (1 2) SATELLITES (*1*RAMP-MEM1) IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM->RAMP-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 RAMP-MEM RAMP-MEM1-OFF) EVENT (DEFN RAMP-MEM1 (V-ADDR MEM) (IF (STUBP MEM) (QUOTE *1*FALSE) (IF (NLISTP V-ADDR) (RAMP MEM) (IF (NLISTP MEM) (QUOTE *1*FALSE) (IF (CAR V-ADDR) (RAMP-MEM1 (CDR V-ADDR) (CDR MEM)) (RAMP-MEM1 (CDR V-ADDR) (CAR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 STUB . RAMP-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . RAMP-MEM1) (DCELL . *1*RAMP-MEM1))))) (PUT1-LST (QUOTE WRITE-MEM-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE WRITE-MEM-OFF WRITE-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITE-MEM-OFF) (DISABLED-LEMMAS NIL WRITE-MEM WRITE-MEM-OFF . T))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (MAIN-EVENT WRITE-MEM))) (PUT1-LST (QUOTE WRITE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM 3088 NIL T NIL)) TOTALP-LST ((WRITE-MEM . T)) SDEFN (LAMBDA (V-ADDR MEM VALUE) (WRITE-MEM1 (REVERSE V-ADDR) MEM VALUE)) LISP-CODE *1*WRITE-MEM SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193943 SATELLITES (*1*WRITE-MEM) IMMEDIATE-DEPENDENTS0 (GOOD-S-WRITE-MEM DUAL-PORT-RAM-STATE-BODY S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-WRITE-MEM-ID WRITE-MEM-MONOTONE FETCH0->FETCH0$SIM2 FETCH0$STEP2 READ-REGS=READ-MEM-WRITE-MEM WRITE-REGS-OK WRITE-REGS FM9001-FETCH FM9001-OPERAND-A FM9001-OPERAND-B FM9001-ALU-OPERATION NEXT-MEMORY-STATE$INDUCTION NEXT-MEMORY-STATE DUAL-PORT-RAM-STATE ALL-RAMP-MEM-AFTER-WRITE-MEM READ-MEM-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM WRITE-MEM-OFF) EVENT (DEFN WRITE-MEM (V-ADDR MEM VALUE) (WRITE-MEM1 (REVERSE V-ADDR) MEM VALUE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REVERSE . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . WRITE-MEM) (DCELL . *1*WRITE-MEM))))) (PUT1-LST (QUOTE WRITE-MEM1-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE WRITE-MEM1-OFF WRITE-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM1 . WRITE-MEM1-OFF) (DISABLED-LEMMAS NIL WRITE-MEM1 WRITE-MEM1-OFF . T))))) (PUT1-LST (QUOTE *1*WRITE-MEM1) (QUOTE (MAIN-EVENT WRITE-MEM1))) (PUT1-LST (QUOTE WRITE-MEM1) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM1 3088 NIL T NIL)) LEMMAS ((REWRITE-RULE WRITE-MEM1-OPENER ((LISTP MEM) (LISTP V-ADDR) (NOT (CAR V-ADDR))) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (CONS (WRITE-MEM1 (CDR V-ADDR) (CAR MEM) VALUE) (CDR MEM))) NIL) (REWRITE-RULE WRITE-MEM1-OPENER ((LISTP MEM) (LISTP V-ADDR) (CAR V-ADDR)) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (CONS (CAR MEM) (WRITE-MEM1 (CDR V-ADDR) (CDR MEM) VALUE))) NIL) (REWRITE-RULE WRITE-MEM1-OPENER ((LISTP V-ADDR) (NOT (LISTP MEM))) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) MEM) NIL) (REWRITE-RULE WRITE-MEM1-OPENER ((NOT (LISTP V-ADDR))) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) (IF (RAMP MEM) (RAM VALUE) MEM)) NIL) (REWRITE-RULE WRITE-MEM1-OPENER ((STUBP MEM)) (EQUAL (WRITE-MEM1 V-ADDR MEM VALUE) MEM) NIL)) TOTALP-LST ((WRITE-MEM1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (V-ADDR MEM VALUE) (IF (STUBP MEM) MEM (IF (LISTP V-ADDR) (IF (LISTP MEM) (IF (CAR V-ADDR) (CONS (CAR MEM) (WRITE-MEM1 (CDR V-ADDR) (CDR MEM) VALUE)) (CONS (WRITE-MEM1 (CDR V-ADDR) (CAR MEM) VALUE) (CDR MEM))) MEM) (IF (RAMP MEM) (RAM VALUE) MEM)))) LISP-CODE *1*WRITE-MEM1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR) (NOT (RAMP MEM))) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NLISTP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM) VALUE))) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM) VALUE)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193943 CONTROLLER-POCKETS (1 2) SATELLITES (*1*WRITE-MEM1) IMMEDIATE-DEPENDENTS0 (GOOD-S-WRITE-MEM-1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-WRITE-MEM1-ID WRITE-MEM1-MONOTONE WRITE-MEM1-OPENER ALL-RAMP-MEM-AFTER-WRITE-MEM1 NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM1 WRITE-MEM WRITE-MEM1-OFF) EVENT (DEFN WRITE-MEM1 (V-ADDR MEM VALUE) (IF (STUBP MEM) MEM (IF (NLISTP V-ADDR) (IF (RAMP MEM) (RAM VALUE) MEM) (IF (NLISTP MEM) MEM (IF (CAR V-ADDR) (CONS (CAR MEM) (WRITE-MEM1 (CDR V-ADDR) (CDR MEM) VALUE)) (CONS (WRITE-MEM1 (CDR V-ADDR) (CAR MEM) VALUE) (CDR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RAM . WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 STUB . WRITE-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . WRITE-MEM1) (DCELL . *1*WRITE-MEM1))))) (PUT1-LST (QUOTE READ-MEM-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE READ-MEM-OFF READ-MEM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM . READ-MEM-OFF) (DISABLED-LEMMAS NIL READ-MEM READ-MEM-OFF . T))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (MAIN-EVENT READ-MEM))) (PUT1-LST (QUOTE READ-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM -1 NIL NIL)) TOTALP-LST ((READ-MEM . T)) SDEFN (LAMBDA (V-ADDR MEM) (READ-MEM1 (REVERSE V-ADDR) MEM)) LISP-CODE *1*READ-MEM SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193943 SATELLITES (*1*READ-MEM) IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-VALUE-BODY S-APPROX-IMPLIES-PROPERP-READ-MEM EQUAL-LENGTH-READ-MEM READ-MEM-MONOTONE P-MAP-DOWN MICROCYCLES READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM READB3$STEP0 READA3$STEP0 FETCH3$STEP0 READ-REGS=READ-MEM-WRITE-MEM READ-REGS=READ-MEM READ-REGS FM9001-FETCH FM9001-OPERAND-A FM9001-OPERAND-B MEMORY-VALUE DUAL-PORT-RAM-VALUE BVP-READ-MEM-32 BVP-READ-MEM PROPERP-READ-MEM-32 PROPERP-READ-MEM READ-MEM-WRITE-MEM READ-MEM-OFF) EVENT (DEFN READ-MEM (V-ADDR MEM) (READ-MEM1 (REVERSE V-ADDR) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REVERSE . READ-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM1 . READ-MEM) (DCELL . *1*READ-MEM))))) (PUT1-LST (QUOTE READ-MEM1-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE READ-MEM1-OFF READ-MEM1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-MEM1 . READ-MEM1-OFF) (DISABLED-LEMMAS NIL READ-MEM1 READ-MEM1-OFF . T))))) (PUT1-LST (QUOTE *1*READ-MEM1) (QUOTE (MAIN-EVENT READ-MEM1))) (PUT1-LST (QUOTE READ-MEM1) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM1 -1 NIL NIL)) LEMMAS ((REWRITE-RULE NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 ((NOT (V-IFF V-ADDR1 V-ADDR2))) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) (READ-MEM1 V-ADDR1 MEM)) NIL) (REWRITE-RULE V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM ((NOT (RAMP-MEM1 V-ADDR2 MEM)) (EQUAL (LENGTH V-ADDR1) (LENGTH V-ADDR2))) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) (READ-MEM1 V-ADDR1 MEM)) NIL) (REWRITE-RULE V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 ((V-IFF V-ADDR1 V-ADDR2) (RAMP-MEM1 V-ADDR2 MEM) (EQUAL (LENGTH V-ADDR1) (LENGTH V-ADDR2))) (EQUAL (READ-MEM1 V-ADDR1 (WRITE-MEM1 V-ADDR2 MEM VALUE)) VALUE) NIL)) TOTALP-LST ((READ-MEM1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V-ADDR MEM) (IF (STUBP MEM) (STUB-GUTS MEM) (IF (LISTP V-ADDR) (IF (LISTP MEM) (IF (CAR V-ADDR) (READ-MEM1 (CDR V-ADDR) (CDR MEM)) (READ-MEM1 (CDR V-ADDR) (CAR MEM))) (QUOTE 0)) (IF (RAMP MEM) (RAM-GUTS MEM) (IF (ROMP MEM) (ROM-GUTS MEM) (QUOTE 0)))))) LISP-CODE *1*READ-MEM1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR) (NOT (RAMP MEM)) (ROMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NLISTP V-ADDR) (NOT (RAMP MEM)) (NOT (ROMP MEM))) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NLISTP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (CAR V-ADDR)) (((CDR V-ADDR) (CDR MEM)))) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (NLISTP V-ADDR)) (NOT (NLISTP MEM)) (NOT (CAR V-ADDR))) (((CDR V-ADDR) (CAR MEM))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V-ADDR) (COUNT V-ADDR) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (MEM) (COUNT MEM) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193943 CONTROLLER-POCKETS (1 2) SATELLITES (*1*READ-MEM1) IMMEDIATE-DEPENDENTS0 (S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM1 READ-MEM1-MONOTONE BVP-READ-MEM1 PROPERP-READ-MEM1 NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 READ-MEM READ-MEM1-OFF) EVENT (DEFN READ-MEM1 (V-ADDR MEM) (IF (STUBP MEM) (STUB-GUTS MEM) (IF (NLISTP V-ADDR) (IF (RAMP MEM) (RAM-GUTS MEM) (IF (ROMP MEM) (ROM-GUTS MEM) (QUOTE 0))) (IF (NLISTP MEM) (QUOTE 0) (IF (CAR V-ADDR) (READ-MEM1 (CDR V-ADDR) (CDR MEM)) (READ-MEM1 (CDR V-ADDR) (CAR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM . READ-MEM1) (IMMEDIATE-DEPENDENTS0 RAM . READ-MEM1) (IMMEDIATE-DEPENDENTS0 STUB . READ-MEM1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . READ-MEM1) (DCELL . *1*READ-MEM1))))) (PUT1-LST (QUOTE MEMORY-OKP-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE MEMORY-OKP-OFF MEMORY-OKP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-OKP . MEMORY-OKP-OFF) (DISABLED-LEMMAS NIL MEMORY-OKP MEMORY-OKP-OFF . T))))) (PUT1-LST (QUOTE *1*MEMORY-OKP) (QUOTE (MAIN-EVENT MEMORY-OKP))) (PUT1-LST (QUOTE MEMORY-OKP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-OKP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (MEMORY-OKP N M (CAR (WRITE-REGS WE ADDRESS REGS DATA))) (IF (CAR (CDR REGS)) (MEMORY-OKP N M (WRITE-MEM (CAR (CDR (CDR (CDR REGS)))) (CAR REGS) (CAR (CDR (CDR REGS))))) (MEMORY-OKP N M (CAR REGS)))) NIL) (REWRITE-RULE MEMORY-OKP-AFTER-WRITE-MEM ((MEMORY-OKP N WIDTH MEM) (BVP VALUE) (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))) (MEMORY-OKP N WIDTH (WRITE-MEM V-ADDR MEM VALUE)) NIL) (REWRITE-RULE MEMORY-OKP-AFTER-WRITE-MEM1 ((MEMORY-OKP N WIDTH MEM) (BVP VALUE) (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))) (MEMORY-OKP N WIDTH (WRITE-MEM1 V-ADDR MEM VALUE)) NIL) (REWRITE-RULE MEMORY-OKP-IF ((MEMORY-OKP N WIDTH A) (MEMORY-OKP N WIDTH B)) (MEMORY-OKP N WIDTH (IF C A B)) NIL)) TOTALP-LST ((MEMORY-OKP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N WIDTH MEM) (IF (STUBP MEM) (IF (BVP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (EQUAL N (QUOTE 0)) (IF (RAMP MEM) (IF (BVP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (BVP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (NUMBERP N) (IF (LISTP MEM) (IF (MEMORY-OKP (SUB1 N) WIDTH (CAR MEM)) (IF (MEMORY-OKP (SUB1 N) WIDTH (CDR MEM)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (RAMP MEM) (IF (BVP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (BVP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))) LISP-CODE *1*MEMORY-OKP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (ROMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (NOT (ROMP MEM))) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (ZEROP N))) (((SUB1 N) WIDTH (CDR MEM)) ((SUB1 N) WIDTH (CAR MEM))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193943 CONTROLLER-POCKETS (1) SATELLITES (*1*MEMORY-OKP) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE FM9001-STATEP FM9001-MACHINE-STATEP MACROCYCLE-INVARIANT SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REGFILE-OKP F$READ-REGS=READ-REGS BVP-LENGTH-READ-REGS-32 WRITE-REGS-OK MEMORY-OKP==>MEMORY-PROPERP BVP-READ-MEM-32 BVP-READ-MEM BVP-READ-MEM1 MEMORY-OKP-AFTER-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-OKP-IF MEMORY-OKP-OFF) EVENT (DEFN MEMORY-OKP (N WIDTH MEM) (IF (STUBP MEM) (AND (BVP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH)) (IF (ZEROP N) (IF (RAMP MEM) (AND (BVP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH)) (IF (ROMP MEM) (AND (BVP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH)) (QUOTE *1*FALSE))) (AND (LISTP MEM) (AND (MEMORY-OKP (SUB1 N) WIDTH (CAR MEM)) (MEMORY-OKP (SUB1 N) WIDTH (CDR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM . MEMORY-OKP) (IMMEDIATE-DEPENDENTS0 RAM . MEMORY-OKP) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-OKP) (IMMEDIATE-DEPENDENTS0 STUB . MEMORY-OKP) (IMMEDIATE-DEPENDENTS0 BVP . MEMORY-OKP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-OKP) (DCELL . *1*MEMORY-OKP))))) (PUT1-LST (QUOTE MEMORY-PROPERP-OFF) (QUOTE (IDATE 1000402193943 EVENT (TOGGLE MEMORY-PROPERP-OFF MEMORY-PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-PROPERP . MEMORY-PROPERP-OFF) (DISABLED-LEMMAS NIL MEMORY-PROPERP MEMORY-PROPERP-OFF . T))))) (PUT1-LST (QUOTE *1*MEMORY-PROPERP) (QUOTE (MAIN-EVENT MEMORY-PROPERP))) (PUT1-LST (QUOTE MEMORY-PROPERP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-PROPERP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP ((MEMORY-V-FOURP N WIDTH MEM)) (MEMORY-PROPERP N WIDTH MEM) NIL) (REWRITE-RULE MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK ((MEMORY-PROPERP (QUOTE 4) (QUOTE 32) REGS) (EQUAL (LENGTH A-ADDRESS) (QUOTE 4)) (EQUAL (LENGTH B-ADDRESS) (QUOTE 4)) (PROPERP DATA) (EQUAL (LENGTH DATA) (QUOTE 32))) (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) (DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (APPEND A-ADDRESS (APPEND B-ADDRESS (CONS WE DATA))) REGS)) NIL) (REWRITE-RULE MEMORY-OKP==>MEMORY-PROPERP ((MEMORY-OKP N M MEM)) (MEMORY-PROPERP N M MEM) NIL) (REWRITE-RULE MEMORY-PROPERP-AFTER-WRITE-MEM ((MEMORY-PROPERP N WIDTH MEM) (PROPERP VALUE) (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))) (MEMORY-PROPERP N WIDTH (WRITE-MEM V-ADDR MEM VALUE)) NIL) (REWRITE-RULE MEMORY-PROPERP-AFTER-WRITE-MEM1 ((MEMORY-PROPERP N WIDTH MEM) (PROPERP VALUE) (EQUAL WIDTH (LENGTH VALUE)) (EQUAL N (LENGTH V-ADDR))) (MEMORY-PROPERP N WIDTH (WRITE-MEM1 V-ADDR MEM VALUE)) NIL) (REWRITE-RULE MEMORY-PROPERP-CONSTANT-RAM ((MEMORY-PROPERP N WIDTH MEM) (PROPERP VALUE) (EQUAL WIDTH (LENGTH VALUE))) (MEMORY-PROPERP N WIDTH (CONSTANT-RAM MEM VALUE)) NIL) (REWRITE-RULE MEMORY-PROPERP-IF ((MEMORY-PROPERP N WIDTH A) (MEMORY-PROPERP N WIDTH B)) (MEMORY-PROPERP N WIDTH (IF C A B)) NIL)) TOTALP-LST ((MEMORY-PROPERP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (N WIDTH MEM) (IF (STUBP MEM) (IF (PROPERP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (EQUAL N (QUOTE 0)) (IF (RAMP MEM) (IF (PROPERP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (PROPERP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (NUMBERP N) (IF (LISTP MEM) (IF (MEMORY-PROPERP (SUB1 N) WIDTH (CAR MEM)) (IF (MEMORY-PROPERP (SUB1 N) WIDTH (CDR MEM)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (RAMP MEM) (IF (PROPERP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (IF (ROMP MEM) (IF (PROPERP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))))))) LISP-CODE *1*MEMORY-PROPERP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((STUBP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (RAMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (ROMP MEM)) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (ZEROP N) (NOT (RAMP MEM)) (NOT (ROMP MEM))) NIL) (TESTS-AND-CASES ((NOT (STUBP MEM)) (NOT (ZEROP N))) (((SUB1 N) WIDTH (CDR MEM)) ((SUB1 N) WIDTH (CAR MEM))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193943 CONTROLLER-POCKETS (1) SATELLITES (*1*MEMORY-PROPERP) IMMEDIATE-DEPENDENTS0 (MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK MEMORY-STATE-INVARIANT MACHINE-STATE-INVARIANT REGFILE$VALUE PROPERP-LENGTH-MEMORY-VALUE MEMORY-OKP==>MEMORY-PROPERP PROPERP-READ-MEM-32 PROPERP-READ-MEM PROPERP-READ-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM MEMORY-PROPERP-IF MEMORY-PROPERP-OFF) EVENT (DEFN MEMORY-PROPERP (N WIDTH MEM) (IF (STUBP MEM) (AND (PROPERP (STUB-GUTS MEM)) (EQUAL (LENGTH (STUB-GUTS MEM)) WIDTH)) (IF (ZEROP N) (IF (RAMP MEM) (AND (PROPERP (RAM-GUTS MEM)) (EQUAL (LENGTH (RAM-GUTS MEM)) WIDTH)) (IF (ROMP MEM) (AND (PROPERP (ROM-GUTS MEM)) (EQUAL (LENGTH (ROM-GUTS MEM)) WIDTH)) (QUOTE *1*FALSE))) (AND (LISTP MEM) (AND (MEMORY-PROPERP (SUB1 N) WIDTH (CAR MEM)) (MEMORY-PROPERP (SUB1 N) WIDTH (CDR MEM))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROM . MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 RAM . MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 LENGTH . MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 STUB . MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 PROPERP . MEMORY-PROPERP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMORY-PROPERP) (DCELL . *1*MEMORY-PROPERP))))) (PUT1-LST (QUOTE COUNT-STUB) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS-ELIM) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-STUB-GUTS) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-EQUAL) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS-LESSEQP) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS-LESSP) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS-NSTUBP) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS-STUB) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE *1*STUB) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE *1*STUB-GUTS) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((STUB -1 NIL)) LEMMAS ((REWRITE-RULE STUB-GUTS-NSTUBP ((NOT (STUBP X))) (EQUAL (STUB-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE STUB-GUTS-STUB NIL (EQUAL (STUB-GUTS (STUB STUB-GUTS)) STUB-GUTS) NIL)) TOTALP-LST ((STUB . T)) LISP-CODE *1*STUB-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE STUB-GUTS-ELIM ((STUBP X)) (EQUAL (STUB (STUB-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((STUB-GUTS X)) MAIN-EVENT STUB))) (PUT1-LST (QUOTE *1*STUBP) (QUOTE (MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUBP) (QUOTE (TYPE-PRESCRIPTION-LST ((STUB 3 NIL)) TOTALP-LST ((STUB . T)) LISP-CODE *1*STUBP SUBRP *1*TRUE MAIN-EVENT STUB))) (PUT1-LST (QUOTE STUB) (QUOTE (TYPE-PRESCRIPTION-LST ((STUB 2048 NIL)) LEMMAS ((REWRITE-RULE STUB-STUB-GUTS NIL (EQUAL (STUB (STUB-GUTS X)) (IF (STUBP X) X (QUOTE (*1*QUOTE STUB 0)))) NIL)) TOTALP-LST ((STUB . T)) LISP-CODE *1*STUB SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) IDATE 1000402193943 SATELLITES (COUNT-STUB STUB-GUTS-ELIM STUB-STUB-GUTS STUB-EQUAL STUB-GUTS-LESSEQP STUB-GUTS-LESSP STUB-GUTS-NSTUBP STUB-GUTS-STUB *1*STUB *1*STUB-GUTS STUB-GUTS *1*STUBP STUBP) IMMEDIATE-DEPENDENTS0 (GOOD-S-OPENER STUBP-IMPLIES-NOT-FOURP MEMORY-V-FOURP INITIALIZED-MEMORY-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-MEMORY-STATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH GOOD-S-ALIST-PAIRLIST S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION WRITE-MEM1-OPENER S-APPROX-OPENER S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM1 READ-MEM1-MONOTONE READ-MEM1-MONOTONE-INDUCTION S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP GOOD-S S-APPROX-X-X S-APPROX MEM-TO-LIST STUB-RIGHT STATE-OKP-0 LITERAL-STATE-TYPE-OK STATE-SIMPLE-OKP ALL-RAMP-MEM RAMP-MEM1 WRITE-MEM1 READ-MEM1 MEMORY-OKP MEMORY-PROPERP) EVENT (ADD-SHELL STUB NIL STUBP ((STUB-GUTS (NONE-OF) ZERO))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-STUB) (LEMMAS EQUAL . STUB-EQUAL) (LINEAR-LEMMAS COUNT . STUB-GUTS-LESSEQP) (LINEAR-LEMMAS COUNT . STUB-GUTS-LESSP) (RECOGNIZER-ALIST NIL STUBP . 2048) (SHELL-POCKETS NIL STUB STUB-GUTS) (SHELL-ALIST NIL STUB . 11) (DCELL . *1*STUB) (DCELL . *1*STUB-GUTS) (DCELL . *1*STUBP))))) (PUT1-LST (QUOTE COUNT-RAM) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS-ELIM) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-RAM-GUTS) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-EQUAL) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS-LESSEQP) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS-LESSP) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS-NRAMP) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS-RAM) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE *1*RAM) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE *1*RAM-GUTS) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM -1 NIL)) LEMMAS ((REWRITE-RULE RAM-GUTS-NRAMP ((NOT (RAMP X))) (EQUAL (RAM-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE RAM-GUTS-RAM NIL (EQUAL (RAM-GUTS (RAM RAM-GUTS)) RAM-GUTS) NIL)) TOTALP-LST ((RAM . T)) LISP-CODE *1*RAM-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE RAM-GUTS-ELIM ((RAMP X)) (EQUAL (RAM (RAM-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((RAM-GUTS X)) MAIN-EVENT RAM))) (PUT1-LST (QUOTE *1*RAMP) (QUOTE (MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAMP) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM 3 NIL)) TOTALP-LST ((RAM . T)) LISP-CODE *1*RAMP SUBRP *1*TRUE MAIN-EVENT RAM))) (PUT1-LST (QUOTE RAM) (QUOTE (TYPE-PRESCRIPTION-LST ((RAM 1024 NIL)) LEMMAS ((REWRITE-RULE RAM-RAM-GUTS NIL (EQUAL (RAM (RAM-GUTS X)) (IF (RAMP X) X (QUOTE (*1*QUOTE RAM 0)))) NIL)) TOTALP-LST ((RAM . T)) LISP-CODE *1*RAM SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) IDATE 1000402193943 SATELLITES (COUNT-RAM RAM-GUTS-ELIM RAM-RAM-GUTS RAM-EQUAL RAM-GUTS-LESSEQP RAM-GUTS-LESSP RAM-GUTS-NRAMP RAM-GUTS-RAM *1*RAM *1*RAM-GUTS RAM-GUTS *1*RAMP RAMP) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA RAMP-IMPLIES-NOT-FOURP MEMORY-V-FOURP INITIALIZED-REGFILE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-REGFILE S-APPROX-CADR-NTH V-APPROX-CAR-NTH GOOD-S-WRITE-MEM-1 GOOD-S-CONSTANT-RAM GOOD-S-ALIST-PAIRLIST S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM1-ID WRITE-MEM1-MONOTONE WRITE-MEM1-OPENER S-APPROX-OPENER S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM1 READ-MEM1-MONOTONE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP GOOD-S S-APPROX-X-X S-APPROX MEM-TO-LIST ADD-RAM-MARKER STATE-OKP-0 LITERAL-STATE-TYPE-OK STATE-SIMPLE-OKP MAKE-RAM-STATE V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM CONSTANT-RAM ALL-RAMP-MEM RAMP-MEM1 WRITE-MEM1 READ-MEM1 MEMORY-OKP MEMORY-PROPERP) EVENT (ADD-SHELL RAM NIL RAMP ((RAM-GUTS (NONE-OF) ZERO))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-RAM) (LEMMAS EQUAL . RAM-EQUAL) (LINEAR-LEMMAS COUNT . RAM-GUTS-LESSEQP) (LINEAR-LEMMAS COUNT . RAM-GUTS-LESSP) (RECOGNIZER-ALIST NIL RAMP . 1024) (SHELL-POCKETS NIL RAM RAM-GUTS) (SHELL-ALIST NIL RAM . 10) (DCELL . *1*RAM) (DCELL . *1*RAM-GUTS) (DCELL . *1*RAMP))))) (PUT1-LST (QUOTE COUNT-ROM) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS-ELIM) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-ROM-GUTS) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-EQUAL) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS-LESSEQP) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS-LESSP) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS-NROMP) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS-ROM) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE *1*ROM) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE *1*ROM-GUTS) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((ROM -1 NIL)) LEMMAS ((REWRITE-RULE ROM-GUTS-NROMP ((NOT (ROMP X))) (EQUAL (ROM-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE ROM-GUTS-ROM NIL (EQUAL (ROM-GUTS (ROM ROM-GUTS)) ROM-GUTS) NIL)) TOTALP-LST ((ROM . T)) LISP-CODE *1*ROM-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE ROM-GUTS-ELIM ((ROMP X)) (EQUAL (ROM (ROM-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((ROM-GUTS X)) MAIN-EVENT ROM))) (PUT1-LST (QUOTE *1*ROMP) (QUOTE (MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROMP) (QUOTE (TYPE-PRESCRIPTION-LST ((ROM 3 NIL)) TOTALP-LST ((ROM . T)) LISP-CODE *1*ROMP SUBRP *1*TRUE MAIN-EVENT ROM))) (PUT1-LST (QUOTE ROM) (QUOTE (TYPE-PRESCRIPTION-LST ((ROM 512 NIL)) LEMMAS ((REWRITE-RULE ROM-ROM-GUTS NIL (EQUAL (ROM (ROM-GUTS X)) (IF (ROMP X) X (QUOTE (*1*QUOTE ROM 0)))) NIL)) TOTALP-LST ((ROM . T)) LISP-CODE *1*ROM SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) IDATE 1000402193943 SATELLITES (COUNT-ROM ROM-GUTS-ELIM ROM-ROM-GUTS ROM-EQUAL ROM-GUTS-LESSEQP ROM-GUTS-LESSP ROM-GUTS-NROMP ROM-GUTS-ROM *1*ROM *1*ROM-GUTS ROM-GUTS *1*ROMP ROMP) IMMEDIATE-DEPENDENTS0 (GOOD-S-OPENER ROMP-IMPLIES-NOT-FOURP MEMORY-V-FOURP S-APPROX-CADR-NTH V-APPROX-CAR-NTH GOOD-S-ALIST-PAIRLIST S-APPROX-CONSTANT-RAM-X-ID S-APPROX-OPENER S-APPROX-IMPLIES-PROPERP-READ-MEM1 EQUAL-LENGTH-READ-MEM1 READ-MEM1-MONOTONE S-KNOWNP-IMPLIES-S-APPROX-IS-EQUAL S-KNOWNP GOOD-S S-APPROX-X-X S-APPROX MEM-TO-LIST STATE-OKP-0 LITERAL-STATE-TYPE-OK STATE-SIMPLE-OKP READ-MEM1 MEMORY-OKP MEMORY-PROPERP) EVENT (ADD-SHELL ROM NIL ROMP ((ROM-GUTS (NONE-OF) ZERO))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-ROM) (LEMMAS EQUAL . ROM-EQUAL) (LINEAR-LEMMAS COUNT . ROM-GUTS-LESSEQP) (LINEAR-LEMMAS COUNT . ROM-GUTS-LESSP) (RECOGNIZER-ALIST NIL ROMP . 512) (SHELL-POCKETS NIL ROM ROM-GUTS) (SHELL-ALIST NIL ROM . 9) (DCELL . *1*ROM) (DCELL . *1*ROM-GUTS) (DCELL . *1*ROMP))))) (PUT1-LST (QUOTE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (QUOTE (IDATE 1000402193943 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE CONTROL-LET$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS (REWRITE) (IMPLIES (AND (NOT (DUPLICATES? ARGS)) (AND (EQUAL (LENGTH ARGS) (LENGTH LIST)) (AND (PROPERP LIST) (LESSP N (LENGTH ARGS))))) (EQUAL (COLLECT-VALUE (SUBRANGE ARGS M N) (PAIRLIST ARGS LIST)) (SUBRANGE LIST M N))) ((ENABLE COLLECT-VALUE PAIRLIST SUBRANGE) (INDUCT (CDR-CDR-SUB1-SUB1-INDUCTION ARGS M N LIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 DUPLICATES?-CONS . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 SINGLETON-COLLECT-VALUE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 CDR-CDR-SUB1-SUB1-INDUCTION . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 SUBRANGE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS))))) (PUT1-LST (QUOTE *1*CDR-CDR-SUB1-SUB1-INDUCTION) (QUOTE (MAIN-EVENT CDR-CDR-SUB1-SUB1-INDUCTION))) (PUT1-LST (QUOTE CDR-CDR-SUB1-SUB1-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((CDR-CDR-SUB1-SUB1-INDUCTION 2 NIL NIL NIL NIL)) TOTALP-LST ((CDR-CDR-SUB1-SUB1-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (L1 N M L2) (IF (LESSP M N) (QUOTE *1*TRUE) (IF (EQUAL N (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (CDR-CDR-SUB1-SUB1-INDUCTION (CDR L1) (QUOTE 0) (SUB1 M) (CDR L2)) (QUOTE *1*TRUE))) (IF (NUMBERP N) (CDR-CDR-SUB1-SUB1-INDUCTION (CDR L1) (SUB1 N) (SUB1 M) (CDR L2)) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (CDR-CDR-SUB1-SUB1-INDUCTION (CDR L1) (QUOTE 0) (SUB1 M) (CDR L2)) (QUOTE *1*TRUE))))))) LISP-CODE *1*CDR-CDR-SUB1-SUB1-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP M N)) NIL) (TESTS-AND-CASES ((NOT (LESSP M N)) (ZEROP N) (ZEROP M)) NIL) (TESTS-AND-CASES ((NOT (LESSP M N)) (ZEROP N) (NOT (ZEROP M))) (((CDR L1) (QUOTE 0) (SUB1 M) (CDR L2)))) (TESTS-AND-CASES ((NOT (LESSP M N)) (NOT (ZEROP N))) (((CDR L1) (SUB1 N) (SUB1 M) (CDR L2))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (M) (COUNT M) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193941 CONTROLLER-POCKETS (4) SATELLITES (*1*CDR-CDR-SUB1-SUB1-INDUCTION) IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) EVENT (DEFN CDR-CDR-SUB1-SUB1-INDUCTION (L1 N M L2) (IF (LESSP M N) (QUOTE *1*TRUE) (IF (ZEROP N) (IF (ZEROP M) (QUOTE *1*TRUE) (CDR-CDR-SUB1-SUB1-INDUCTION (CDR L1) (QUOTE 0) (SUB1 M) (CDR L2))) (CDR-CDR-SUB1-SUB1-INDUCTION (CDR L1) (SUB1 N) (SUB1 M) (CDR L2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CDR-CDR-SUB1-SUB1-INDUCTION) (DCELL . *1*CDR-CDR-SUB1-SUB1-INDUCTION))))) (PUT1-LST (QUOTE COLLECT-VALUE-MAKE-LIST) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (EXTEND-IMMEDIATE$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-MAKE-LIST (REWRITE) (EQUAL (COLLECT-VALUE (MAKE-LIST N NAME) ALIST) (MAKE-LIST N (VALUE NAME ALIST))) ((ENABLE COLLECT-VALUE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . COLLECT-VALUE-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . COLLECT-VALUE-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-VALUE-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . COLLECT-VALUE-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-MAKE-LIST) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-MAKE-LIST))))) (PUT1-LST (QUOTE COLLECT-VALUE-SPLITTING-CROCK) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-LEMMA-CROCK TV-DEC-PASS-NG-LEMMA-CROCK TV-IF-LEMMA-CROCK) EVENT (PROVE-LEMMA COLLECT-VALUE-SPLITTING-CROCK NIL (EQUAL (COLLECT-VALUE L ALIST) (APPEND (COLLECT-VALUE (FIRSTN N L) ALIST) (COLLECT-VALUE (RESTN N L) ALIST))) ((USE (COLLECT-VALUE-SPLITTING-CROCK-HELPER)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-FIRSTN-RESTN . COLLECT-VALUE-SPLITTING-CROCK) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-SPLITTING-CROCK-HELPER . COLLECT-VALUE-SPLITTING-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . COLLECT-VALUE-SPLITTING-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . COLLECT-VALUE-SPLITTING-CROCK) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-SPLITTING-CROCK))))) (PUT1-LST (QUOTE COLLECT-VALUE-SPLITTING-CROCK-HELPER) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-SPLITTING-CROCK) EVENT (PROVE-LEMMA COLLECT-VALUE-SPLITTING-CROCK-HELPER NIL (EQUAL (COLLECT-VALUE (APPEND (FIRSTN N L) (RESTN N L)) ALIST) (APPEND (COLLECT-VALUE (FIRSTN N L) ALIST) (COLLECT-VALUE (RESTN N L) ALIST))) ((DISABLE APPEND-FIRSTN-RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND . COLLECT-VALUE-SPLITTING-CROCK-HELPER) (IMMEDIATE-DEPENDENTS0 RESTN . COLLECT-VALUE-SPLITTING-CROCK-HELPER) (IMMEDIATE-DEPENDENTS0 FIRSTN . COLLECT-VALUE-SPLITTING-CROCK-HELPER) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-SPLITTING-CROCK-HELPER))))) (PUT1-LST (QUOTE COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-ARGS-PAIRLIST-ARGS (REWRITE) (IMPLIES (AND (NOT (DUPLICATES? ARGS)) (AND (EQUAL (LENGTH ARGS) (LENGTH LIST)) (PROPERP LIST))) (EQUAL (COLLECT-VALUE ARGS (PAIRLIST ARGS LIST)) LIST)) ((ENABLE COLLECT-VALUE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-CONS . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 DUPLICATES?-CONS . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 PROPERP . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 LENGTH . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . COLLECT-VALUE-ARGS-PAIRLIST-ARGS) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-ARGS-PAIRLIST-ARGS))))) (PUT1-LST (QUOTE PROPERP-COLLECT-VALUE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE REGFILE$STATE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE PROPERP-DUAL-EVAL-2 PROPERP-DUAL-EVAL-0) EVENT (PROVE-LEMMA PROPERP-COLLECT-VALUE (REWRITE) (PROPERP (COLLECT-VALUE ARGS ALIST)) ((ENABLE COLLECT-VALUE PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . PROPERP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . PROPERP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-COLLECT-VALUE) (LEMMAS PROPERP . PROPERP-COLLECT-VALUE))))) (PUT1-LST (QUOTE SINGLETON-COLLECT-VALUE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE COLLECT-VALUE-V-SHIFT-RIGHT OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE B-BUF-PWR$VALUE B-BUF$VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS) EVENT (PROVE-LEMMA SINGLETON-COLLECT-VALUE (REWRITE) (IMPLIES (EQUAL (LENGTH A) (QUOTE 1)) (EQUAL (COLLECT-VALUE A ALIST) (CONS (VALUE (CAR A) ALIST) (QUOTE NIL)))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . SINGLETON-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . SINGLETON-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 VALUE . SINGLETON-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . SINGLETON-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . SINGLETON-COLLECT-VALUE) (LEMMAS COLLECT-VALUE . SINGLETON-COLLECT-VALUE))))) (PUT1-LST (QUOTE COLLECT-VALUE-CONS) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG-BODY$STATE WE-REG-BODY$VALUE REG-BODY$STATE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE FAST-ZERO$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-MAKE-LIST COLLECT-VALUE-ARGS-PAIRLIST-ARGS) EVENT (PROVE-LEMMA COLLECT-VALUE-CONS (REWRITE) (EQUAL (COLLECT-VALUE (CONS A B) ALIST) (CONS (VALUE A ALIST) (COLLECT-VALUE B ALIST))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-VALUE-CONS) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-CONS) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-CONS))))) (PUT1-LST (QUOTE COLLECT-VALUE-RESTN) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-RESTN (REWRITE) (IMPLIES (NOT (DUPLICATES? ARGS)) (EQUAL (COLLECT-VALUE (RESTN N ARGS) (PAIRLIST ARGS ANSWER)) (COLLECT-VALUE (RESTN N ARGS) (PAIRLIST (RESTN N ARGS) (RESTN N ANSWER))))) ((ENABLE DUPLICATES? COLLECT-VALUE RESTN PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 EQUAL-COLLECT-VALUE-PROMOTE-ALISTS . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-RESTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . COLLECT-VALUE-RESTN) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-RESTN))))) (PUT1-LST (QUOTE COLLECT-VALUE-FIRSTN) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE FAST-ZERO$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-FIRSTN (REWRITE) (IMPLIES (NOT (DUPLICATES? ARGS)) (EQUAL (COLLECT-VALUE (FIRSTN N ARGS) (PAIRLIST ARGS ANSWER)) (COLLECT-VALUE (FIRSTN N ARGS) (PAIRLIST (FIRSTN N ARGS) (FIRSTN N ANSWER))))) ((ENABLE DUPLICATES? COLLECT-VALUE FIRSTN PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 EQUAL-COLLECT-VALUE-PROMOTE-ALISTS . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-FIRSTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . COLLECT-VALUE-FIRSTN) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-FIRSTN))))) (PUT1-LST (QUOTE EQUAL-COLLECT-VALUE-PROMOTE-ALISTS) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN) EVENT (PROVE-LEMMA EQUAL-COLLECT-VALUE-PROMOTE-ALISTS (REWRITE) (IMPLIES (EQUAL ALIST1 ALIST2) (EQUAL (EQUAL (COLLECT-VALUE ARGS ALIST1) (COLLECT-VALUE ARGS ALIST2)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . EQUAL-COLLECT-VALUE-PROMOTE-ALISTS) (LEMMAS EQUAL . EQUAL-COLLECT-VALUE-PROMOTE-ALISTS))))) (PUT1-LST (QUOTE COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE REG$STATE DEC-PASS$VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-LITATOM-INDICES-SPEEDUP (REWRITE) (IMPLIES (LITATOM A) (EQUAL (COLLECT-VALUE (INDICES NAME FROM TO) (CONS (CONS A B) C)) (COLLECT-VALUE (INDICES NAME FROM TO) C))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-DISJOINT-PAIRLIST . COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) (IMMEDIATE-DEPENDENTS0 INDICES . COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-LITATOM-INDICES-SPEEDUP))))) (PUT1-LST (QUOTE COLLECT-VALUE-DISJOINT-PAIRLIST) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE WE-REG-BODY$STATE REG$STATE REG-BODY$STATE REG$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN COLLECT-VALUE-LITATOM-INDICES-SPEEDUP) EVENT (PROVE-LEMMA COLLECT-VALUE-DISJOINT-PAIRLIST (REWRITE) (IMPLIES (NOT (MEMBER A ARGS)) (EQUAL (COLLECT-VALUE ARGS (CONS (CONS A B) C)) (COLLECT-VALUE ARGS C))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . COLLECT-VALUE-DISJOINT-PAIRLIST) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-DISJOINT-PAIRLIST) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-DISJOINT-PAIRLIST) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-DISJOINT-PAIRLIST))))) (PUT1-LST (QUOTE COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-XOR$VALUE V-OR$VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1) EVENT (PROVE-LEMMA COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT (REWRITE) (IMPLIES (DISJOINT ARGS1 ARGS2) (EQUAL (COLLECT-VALUE ARGS1 (APPEND (PAIRLIST ARGS2 A) B)) (COLLECT-VALUE ARGS1 B))) ((ENABLE DISJOINT COLLECT-VALUE APPEND PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (IMMEDIATE-DEPENDENTS0 DISJOINT . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT))))) (PUT1-LST (QUOTE COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-XOR$VALUE V-OR$VALUE COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT) EVENT (PROVE-LEMMA COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET (REWRITE) (IMPLIES (SUBSET ARGS1 ARGS2) (EQUAL (COLLECT-VALUE ARGS1 (APPEND (PAIRLIST ARGS2 ANSWER) X)) (COLLECT-VALUE ARGS1 (PAIRLIST ARGS2 ANSWER)))) ((ENABLE SUBSET COLLECT-VALUE APPEND PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-APPEND-PAIRLIST . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (IMMEDIATE-DEPENDENTS0 SUBSET . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET))))) (PUT1-LST (QUOTE LENGTH-COLLECT-VALUE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE REGFILE$STATE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE WE-REG$STATE WE-REG-BODY$STATE LENGTH-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0) EVENT (PROVE-LEMMA LENGTH-COLLECT-VALUE (REWRITE) (EQUAL (LENGTH (COLLECT-VALUE ARGS ALIST)) (LENGTH ARGS)) ((ENABLE LENGTH COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . LENGTH-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . LENGTH-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-COLLECT-VALUE) (LEMMAS LENGTH . LENGTH-COLLECT-VALUE))))) (PUT1-LST (QUOTE COLLECT-VALUE-APPEND) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE COLLECT-VALUE-V-SHIFT-RIGHT TV-ALU-HELP$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE COLLECT-VALUE-SPLITTING-CROCK-HELPER) EVENT (PROVE-LEMMA COLLECT-VALUE-APPEND (REWRITE) (EQUAL (COLLECT-VALUE (APPEND A B) ALIST) (APPEND (COLLECT-VALUE A ALIST) (COLLECT-VALUE B ALIST))) ((ENABLE COLLECT-VALUE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . COLLECT-VALUE-APPEND) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . COLLECT-VALUE-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . COLLECT-VALUE-APPEND) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-APPEND) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-APPEND))))) (PUT1-LST (QUOTE LISTP-COLLECT-VALUE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-V-SHIFT-RIGHT) EVENT (PROVE-LEMMA LISTP-COLLECT-VALUE (REWRITE) (EQUAL (LISTP (COLLECT-VALUE ARGS ALIST)) (LISTP ARGS)) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE-NLISTP . LISTP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LISTP-COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . LISTP-COLLECT-VALUE) (LEMMAS LISTP . LISTP-COLLECT-VALUE))))) (PUT1-LST (QUOTE COLLECT-VALUE-NLISTP) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED GOOD-S-COLLECT-VALUE DUAL-EVAL-MONOTONE DUAL-EVAL-MONOTONE-NO-RAM S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE CHIP$VALUE CHIP$STATE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE COLLECT-VALUE-V-SHIFT-RIGHT WE-REG$STATE WE-REG-BODY$STATE WE-REG-BODY$VALUE REG-BODY$STATE REG-BODY$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-MAKE-LIST COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE SINGLETON-COLLECT-VALUE COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN COLLECT-VALUE-DISJOINT-PAIRLIST COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET LENGTH-COLLECT-VALUE COLLECT-VALUE-APPEND LISTP-COLLECT-VALUE) EVENT (PROVE-LEMMA COLLECT-VALUE-NLISTP (REWRITE) (IMPLIES (NLISTP ARGS) (EQUAL (COLLECT-VALUE ARGS ALIST) (QUOTE NIL))) ((ENABLE COLLECT-VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-NLISTP) (LEMMAS COLLECT-VALUE . COLLECT-VALUE-NLISTP))))) (PUT1-LST (QUOTE VALUE-INDICES-HACK) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE REGFILE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE FAST-ZERO$VALUE) EVENT (PROVE-LEMMA VALUE-INDICES-HACK (REWRITE) (IMPLIES (AND (MEMBER THE-NAME (INDICES NAME N M)) (IF (LESSP (LENGTH VALUES) M) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (VALUE THE-NAME (PAIRLIST (INDICES NAME N M) VALUES)) (NTH (DIFFERENCE (I-NUM THE-NAME) N) VALUES))) ((ENABLE VALUE-PAIRLIST NTH-RESTN) (DISABLE OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LNFIX . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 POSITION-NAME-INDICES . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 VALUE-PAIRLIST . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 NTH-RESTN . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 INDEX . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 NTH . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 VALUE . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 LENGTH . VALUE-INDICES-HACK) (IMMEDIATE-DEPENDENTS0 INDICES . VALUE-INDICES-HACK) (LEMMAS VALUE . VALUE-INDICES-HACK))))) (PUT1-LST (QUOTE VALUE-PAIRLIST-OFF) (QUOTE (IDATE 1000402193941 EVENT (TOGGLE VALUE-PAIRLIST-OFF VALUE-PAIRLIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-PAIRLIST . VALUE-PAIRLIST-OFF) (DISABLED-LEMMAS NIL VALUE-PAIRLIST VALUE-PAIRLIST-OFF . T))))) (PUT1-LST (QUOTE VALUE-PAIRLIST) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (VALUE-INDICES-HACK VALUE-PAIRLIST-OFF) EVENT (PROVE-LEMMA VALUE-PAIRLIST (REWRITE) (IMPLIES (MEMBER NAME NAMES) (EQUAL (VALUE NAME (PAIRLIST NAMES VALUES)) (CAR (RESTN (POSITION NAME NAMES) VALUES)))) ((ENABLE VALUE PAIRLIST RESTN POSITION))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER==>POSITION . VALUE-PAIRLIST) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . VALUE-PAIRLIST) (IMMEDIATE-DEPENDENTS0 POSITION . VALUE-PAIRLIST) (IMMEDIATE-DEPENDENTS0 RESTN . VALUE-PAIRLIST) (IMMEDIATE-DEPENDENTS0 VALUE . VALUE-PAIRLIST) (LEMMAS VALUE . VALUE-PAIRLIST))))) (PUT1-LST (QUOTE VALUE-APPEND-PAIRLIST) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE TV-IF$VALUE UNBOUND-IN-BODY-DUAL-EVAL-1 COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET) EVENT (PROVE-LEMMA VALUE-APPEND-PAIRLIST (REWRITE) (EQUAL (VALUE A (APPEND (PAIRLIST B C) D)) (IF (MEMBER A B) (VALUE A (PAIRLIST B C)) (VALUE A D))) ((ENABLE VALUE APPEND PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . VALUE-APPEND-PAIRLIST) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . VALUE-APPEND-PAIRLIST) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . VALUE-APPEND-PAIRLIST) (IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . VALUE-APPEND-PAIRLIST) (IMMEDIATE-DEPENDENTS0 VALUE . VALUE-APPEND-PAIRLIST) (LEMMAS VALUE . VALUE-APPEND-PAIRLIST))))) (PUT1-LST (QUOTE REWRITE-VALUE-4X) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE TV-IF$VALUE T-CARRY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE) EVENT (PROVE-LEMMA REWRITE-VALUE-4X (REWRITE) (EQUAL (VALUE A (CONS (CONS B C) (CONS (CONS D E) (CONS (CONS G H) (CONS (CONS I J) K))))) (IF (EQUAL A B) C (IF (EQUAL A D) E (IF (EQUAL A G) H (IF (EQUAL A I) J (VALUE A K)))))) ((ENABLE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REWRITE-VALUE . REWRITE-VALUE-4X) (IMMEDIATE-DEPENDENTS0 VALUE . REWRITE-VALUE-4X) (LEMMAS VALUE . REWRITE-VALUE-4X))))) (PUT1-LST (QUOTE REWRITE-VALUE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE G-CELL$VALUE P-CELL$VALUE CARRY-IN-HELP$VALUE MPG$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE B-BUF-PWR$VALUE B-BUF$VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-FIRSTN COLLECT-VALUE-DISJOINT-PAIRLIST VALUE-PAIRLIST VALUE-APPEND-PAIRLIST REWRITE-VALUE-4X) EVENT (PROVE-LEMMA REWRITE-VALUE (REWRITE) (EQUAL (VALUE A (CONS (CONS B C) D)) (IF (EQUAL A B) C (VALUE A D))) ((ENABLE VALUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . REWRITE-VALUE) (LEMMAS VALUE . REWRITE-VALUE))))) (PUT1-LST (QUOTE COLLECT-VALUE-OFF) (QUOTE (IDATE 1000402193941 EVENT (TOGGLE COLLECT-VALUE-OFF COLLECT-VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COLLECT-VALUE . COLLECT-VALUE-OFF) (DISABLED-LEMMAS NIL COLLECT-VALUE COLLECT-VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE) (QUOTE (MAIN-EVENT COLLECT-VALUE))) (PUT1-LST (QUOTE COLLECT-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((COLLECT-VALUE 24 NIL NIL)) LEMMAS ((REWRITE-RULE TTL-BIDIRECT-PADS-BODY$VALUE ((TTL-BIDIRECT& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*FALSE)) (V-THREEFIX (V-WIRE (COLLECT-VALUE (INDICES (QUOTE DATA) M N) BINDINGS) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)))) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*TRUE)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE DATA) M N) BINDINGS)) (MAKE-LIST N (QUOTE (*1*QUOTE X)))))) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS-BODY$VALUE ((TTL-BIDIRECT& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE DATA) M N) (DUAL-EVAL (QUOTE 1) (TTL-BIDIRECT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*FALSE)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS)) (IF (EQUAL (VALUE (QUOTE BUF-ENABLE) BINDINGS) (QUOTE *1*TRUE)) (MAKE-LIST N (QUOTE (*1*QUOTE Z))) (MAKE-LIST N (QUOTE (*1*QUOTE X)))))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS-BODY$VALUE ((TTL-TRI-OUTPUT& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-TRI-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (VFT-BUF (F-NOT (VALUE (QUOTE ENABLE-BUF) BINDINGS)) (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS))) NIL) (REWRITE-RULE TTL-OUTPUT-PADS-BODY$VALUE ((TTL-OUTPUT& NETLIST) (B-BUF& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-OUTPUT-PADS-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS))) NIL) (REWRITE-RULE TTL-INPUT-PADS-BODY$VALUE ((TTL-INPUT& NETLIST) (B-BUF& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE B-OUT) M N) (DUAL-EVAL (QUOTE 1) (TTL-INPUT-PADS-BODY M N PI) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE IN) M N) BINDINGS))) NIL) (REWRITE-RULE TV-ALU-HELP-LEMMA-CROCK ((TV-ALU-HELP& (DELETE-MODULE (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) NETLIST) (CAR TREE))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) BINDINGS))) NIL) (REWRITE-RULE WE-REG-BODY$STATE ((FD1SLP& NETLIST) (NOT (VALUE (QUOTE TE-BUF) BINDINGS))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE G) M N) (DUAL-EVAL (QUOTE 3) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST)) (FV-IF (VALUE (QUOTE WE-BUF) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE D) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE G) M N) STATE-BINDINGS))) NIL) (REWRITE-RULE WE-REG-BODY$VALUE ((FD1SLP& NETLIST)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Q) M N) (DUAL-EVAL (QUOTE 1) (WE-REG-BODY M N TI) BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE G) M N) STATE-BINDINGS))) NIL) (REWRITE-RULE TV-DEC-PASS-NG-LEMMA-CROCK ((TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) MAKE-G)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Z) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS))) NIL) (REWRITE-RULE TV-DEC-PASS-NG-LEMMA-CROCK ((TV-DEC-PASS-NG& (DELETE-MODULE (INDEX (QUOTE TV-DEC-PASS-G) (TREE-NUMBER TREE)) NETLIST) (CAR TREE) MAKE-G)) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Z) (QUOTE 0) N) BINDINGS) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE Z) (QUOTE 0) N)) BINDINGS))) NIL) (REWRITE-RULE TV-IF-LEMMA-CROCK ((TV-IF& (DELETE-MODULE (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) NETLIST) (CAR TREE))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE OUT) (QUOTE 0) N) ALIST) (APPEND (COLLECT-VALUE (FIRSTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) ALIST) (COLLECT-VALUE (RESTN (TREE-SIZE (CAR TREE)) (INDICES (QUOTE OUT) (QUOTE 0) N)) ALIST))) NIL) (REWRITE-RULE BV-ADDER-BODY-SPECIAL-CASE$VALUE ((FULL-ADDER& NETLIST) (BOOLP (VALUE (QUOTE (*1*QUOTE INDEX CARRY 0)) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE A) (QUOTE 0) N) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE B) (QUOTE 0) N) BINDINGS))) (EQUAL (COLLECT-VALUE (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL))) (DUAL-EVAL (QUOTE 1) (BV-ADDER-BODY (QUOTE 0) N) BINDINGS STATE-BINDINGS NETLIST)) (BV-ADDER (VALUE (QUOTE (*1*QUOTE INDEX CARRY 0)) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE A) (QUOTE 0) N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) (QUOTE 0) N) BINDINGS))) NIL) (REWRITE-RULE BV-ADDER-BODY$VALUE ((FULL-ADDER& NETLIST) (BOOLP (VALUE (INDEX (QUOTE CARRY) M) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS)) (BVP (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))) (EQUAL (COLLECT-VALUE (APPEND (INDICES (QUOTE SUM) M N) (CONS (INDEX (QUOTE CARRY) (PLUS N M)) (QUOTE NIL))) (DUAL-EVAL (QUOTE 1) (BV-ADDER-BODY M N) BINDINGS STATE-BINDINGS NETLIST)) (BV-ADDER (VALUE (INDEX (QUOTE CARRY) M) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))) NIL) (REWRITE-RULE V-WIRE$BODY-VALUE ((T-WIRE& NETLIST) (EQUAL BODY (V-WIRE$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-WIRE (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))) NIL) (REWRITE-RULE V-PULLUP$BODY-VALUE ((PULLUP& NETLIST) (EQUAL BODY (V-PULLUP$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-PULLUP (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS))) NIL) (REWRITE-RULE V-XOR$BODY-VALUE ((B-XOR& NETLIST) (EQUAL BODY (V-XOR$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (FV-XOR (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))) NIL) (REWRITE-RULE V-OR$BODY-VALUE ((B-OR& NETLIST) (EQUAL BODY (V-OR$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (FV-OR (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS) (COLLECT-VALUE (INDICES (QUOTE B) M N) BINDINGS))) NIL) (REWRITE-RULE V-BUF$BODY-VALUE ((B-BUF& NETLIST) (EQUAL BODY (V-BUF$BODY M N))) (EQUAL (COLLECT-VALUE (INDICES (QUOTE Y) M N) (DUAL-EVAL (QUOTE 1) BODY BINDINGS STATE-BINDINGS NETLIST)) (V-THREEFIX (COLLECT-VALUE (INDICES (QUOTE A) M N) BINDINGS))) NIL) (REWRITE-RULE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 ((EQUAL FLAG (QUOTE 1)) (ALL-UNBOUND-IN-BODY NAMES BODY)) (EQUAL (COLLECT-VALUE NAMES (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (COLLECT-VALUE NAMES BINDINGS)) NIL) (REWRITE-RULE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS ((NOT (DUPLICATES? ARGS)) (EQUAL (LENGTH ARGS) (LENGTH LIST)) (PROPERP LIST) (LESSP N (LENGTH ARGS))) (EQUAL (COLLECT-VALUE (SUBRANGE ARGS M N) (PAIRLIST ARGS LIST)) (SUBRANGE LIST M N)) NIL) (REWRITE-RULE COLLECT-VALUE-MAKE-LIST NIL (EQUAL (COLLECT-VALUE (MAKE-LIST N NAME) ALIST) (MAKE-LIST N (VALUE NAME ALIST))) NIL) (REWRITE-RULE COLLECT-VALUE-ARGS-PAIRLIST-ARGS ((NOT (DUPLICATES? ARGS)) (EQUAL (LENGTH ARGS) (LENGTH LIST)) (PROPERP LIST)) (EQUAL (COLLECT-VALUE ARGS (PAIRLIST ARGS LIST)) LIST) NIL) (REWRITE-RULE SINGLETON-COLLECT-VALUE ((EQUAL (LENGTH A) (QUOTE 1))) (EQUAL (COLLECT-VALUE A ALIST) (CONS (VALUE (CAR A) ALIST) (QUOTE NIL))) NIL) (REWRITE-RULE COLLECT-VALUE-CONS NIL (EQUAL (COLLECT-VALUE (CONS A B) ALIST) (CONS (VALUE A ALIST) (COLLECT-VALUE B ALIST))) NIL) (REWRITE-RULE COLLECT-VALUE-RESTN ((NOT (DUPLICATES? ARGS))) (EQUAL (COLLECT-VALUE (RESTN N ARGS) (PAIRLIST ARGS ANSWER)) (COLLECT-VALUE (RESTN N ARGS) (PAIRLIST (RESTN N ARGS) (RESTN N ANSWER)))) NIL) (REWRITE-RULE COLLECT-VALUE-FIRSTN ((NOT (DUPLICATES? ARGS))) (EQUAL (COLLECT-VALUE (FIRSTN N ARGS) (PAIRLIST ARGS ANSWER)) (COLLECT-VALUE (FIRSTN N ARGS) (PAIRLIST (FIRSTN N ARGS) (FIRSTN N ANSWER)))) NIL) (REWRITE-RULE COLLECT-VALUE-LITATOM-INDICES-SPEEDUP ((LITATOM A)) (EQUAL (COLLECT-VALUE (INDICES NAME FROM TO) (CONS (CONS A B) C)) (COLLECT-VALUE (INDICES NAME FROM TO) C)) NIL) (REWRITE-RULE COLLECT-VALUE-DISJOINT-PAIRLIST ((NOT (MEMBER A ARGS))) (EQUAL (COLLECT-VALUE ARGS (CONS (CONS A B) C)) (COLLECT-VALUE ARGS C)) NIL) (REWRITE-RULE COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT ((DISJOINT ARGS1 ARGS2)) (EQUAL (COLLECT-VALUE ARGS1 (APPEND (PAIRLIST ARGS2 A) B)) (COLLECT-VALUE ARGS1 B)) NIL) (REWRITE-RULE COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET ((SUBSET ARGS1 ARGS2)) (EQUAL (COLLECT-VALUE ARGS1 (APPEND (PAIRLIST ARGS2 ANSWER) X)) (COLLECT-VALUE ARGS1 (PAIRLIST ARGS2 ANSWER))) NIL) (REWRITE-RULE COLLECT-VALUE-APPEND NIL (EQUAL (COLLECT-VALUE (APPEND A B) ALIST) (APPEND (COLLECT-VALUE A ALIST) (COLLECT-VALUE B ALIST))) NIL) (REWRITE-RULE COLLECT-VALUE-NLISTP ((NOT (LISTP ARGS))) (EQUAL (COLLECT-VALUE ARGS ALIST) (QUOTE NIL)) NIL)) TOTALP-LST ((COLLECT-VALUE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (ARGS ALIST) (IF (LISTP ARGS) (CONS (VALUE (CAR ARGS) ALIST) (COLLECT-VALUE (CDR ARGS) ALIST)) (QUOTE NIL))) LISP-CODE *1*COLLECT-VALUE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP ARGS)) NIL) (TESTS-AND-CASES ((NOT (NLISTP ARGS))) (((CDR ARGS) ALIST)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (ARGS) (COUNT ARGS) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193941 CONTROLLER-POCKETS (1) SATELLITES (*1*COLLECT-VALUE) IMMEDIATE-DEPENDENTS0 (GOOD-S-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE DUAL-EVAL-MONOTONE-INDUCTION EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE NEXT-STATE$VALUE COLLECT-VALUE-V-SHIFT-RIGHT TV-ALU-HELP-LEMMA-CROCK MPG$VALUE-ZERO DECODE-GEN$VALUE-ZERO DECODE-PROP$VALUE-ZERO DECODE-MODE$VALUE-ZERO WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE TV-DEC-PASS-NG-LEMMA-CROCK TV-IF-LEMMA-CROCK BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER-BODY$INDUCTION V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE ALL-UNBOUND-IN-BODY-DUAL-EVAL-1 COLLECT-OUT-DEPENDS ADD-OUT-DEPENDS ADD-OUT-TYPE OUT-DEPENDS-SIMPLE LIST-COLLECT-VALUE OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS DUAL-EVAL COLLECT-STATES COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-MAKE-LIST COLLECT-VALUE-SPLITTING-CROCK COLLECT-VALUE-SPLITTING-CROCK-HELPER COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE SINGLETON-COLLECT-VALUE COLLECT-VALUE-CONS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN EQUAL-COLLECT-VALUE-PROMOTE-ALISTS COLLECT-VALUE-LITATOM-INDICES-SPEEDUP COLLECT-VALUE-DISJOINT-PAIRLIST COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET LENGTH-COLLECT-VALUE COLLECT-VALUE-APPEND LISTP-COLLECT-VALUE COLLECT-VALUE-NLISTP COLLECT-VALUE-OFF) EVENT (DEFN COLLECT-VALUE (ARGS ALIST) (IF (NLISTP ARGS) (QUOTE NIL) (CONS (VALUE (CAR ARGS) ALIST) (COLLECT-VALUE (CDR ARGS) ALIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . COLLECT-VALUE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . COLLECT-VALUE) (DCELL . *1*COLLECT-VALUE))))) (PUT1-LST (QUOTE VALUE-OFF) (QUOTE (IDATE 1000402193941 EVENT (TOGGLE VALUE-OFF VALUE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE . VALUE-OFF) (DISABLED-LEMMAS NIL VALUE VALUE-OFF . T))))) (PUT1-LST (QUOTE *1*VALUE) (QUOTE (MAIN-EVENT VALUE))) (PUT1-LST (QUOTE VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((VALUE -1 NIL NIL)) LEMMAS ((REWRITE-RULE UNBOUND-IN-BODY-DUAL-EVAL-1 ((EQUAL FLAG (QUOTE 1)) (UNBOUND-IN-BODY NAME BODY)) (EQUAL (VALUE NAME (DUAL-EVAL FLAG BODY BINDINGS STATE-BINDINGS NETLIST)) (VALUE NAME BINDINGS)) NIL) (REWRITE-RULE VALUE-INDICES-HACK ((MEMBER THE-NAME (INDICES NAME N M)) (NOT (LESSP (LENGTH VALUES) M))) (EQUAL (VALUE THE-NAME (PAIRLIST (INDICES NAME N M) VALUES)) (NTH (DIFFERENCE (I-NUM THE-NAME) N) VALUES)) NIL) (REWRITE-RULE VALUE-PAIRLIST ((MEMBER NAME NAMES)) (EQUAL (VALUE NAME (PAIRLIST NAMES VALUES)) (CAR (RESTN (POSITION NAME NAMES) VALUES))) NIL) (REWRITE-RULE VALUE-APPEND-PAIRLIST NIL (EQUAL (VALUE A (APPEND (PAIRLIST B C) D)) (IF (MEMBER A B) (VALUE A (PAIRLIST B C)) (VALUE A D))) NIL) (REWRITE-RULE REWRITE-VALUE-4X NIL (EQUAL (VALUE A (CONS (CONS B C) (CONS (CONS D E) (CONS (CONS G H) (CONS (CONS I J) K))))) (IF (EQUAL A B) C (IF (EQUAL A D) E (IF (EQUAL A G) H (IF (EQUAL A I) J (VALUE A K)))))) NIL) (REWRITE-RULE REWRITE-VALUE NIL (EQUAL (VALUE A (CONS (CONS B C) D)) (IF (EQUAL A B) C (VALUE A D))) NIL)) TOTALP-LST ((VALUE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (NAME ALIST) (IF (LISTP ALIST) (IF (LISTP (CAR ALIST)) (IF (EQUAL (CAR (CAR ALIST)) NAME) (CDR (CAR ALIST)) (VALUE NAME (CDR ALIST))) (VALUE NAME (CDR ALIST))) (QUOTE 0))) LISP-CODE *1*VALUE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP ALIST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP ALIST)) (LISTP (CAR ALIST)) (EQUAL (CAR (CAR ALIST)) NAME)) NIL) (TESTS-AND-CASES ((NOT (NLISTP ALIST)) (LISTP (CAR ALIST)) (NOT (EQUAL (CAR (CAR ALIST)) NAME))) ((NAME (CDR ALIST)))) (TESTS-AND-CASES ((NOT (NLISTP ALIST)) (NOT (LISTP (CAR ALIST)))) ((NAME (CDR ALIST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (ALIST) (COUNT ALIST) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193941 CONTROLLER-POCKETS (2) SATELLITES (*1*VALUE) IMMEDIATE-DEPENDENTS0 (GOOD-S-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-VALUE V-APPROX-ALIST-IMPLIES-B-APPROX-VALUE DUAL-EVAL-MONOTONE-INDUCTION CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE COLLECT-VALUE-V-SHIFT-RIGHT OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG-BODY$STATE REG$STATE REG-BODY$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER-BODY$INDUCTION M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE UNBOUND-IN-BODY-DUAL-EVAL-1 B-BUF-PWR$VALUE B-BUF$VALUE LOADINGS-AND-DRIVES FIX-DEPENDENT-DRS STATE-TYPE-REQUIREMENT ARG-TYPES-OKP IO-TYPES IO-TYPES-COLLECTOR OUT-DEPENDS PRIMITIVE-COUNT PARENT-PROPS-ALIST OK-STATES PNEW-STATES-OK PRESULTS-OK PSTATE-TYPES-OK POUT-DEPENDS-OK PLSI-NAME-OK PLOADINGS-OK PDRIVES-OK PDELAYS-OK POUT-TYPES-OK POUT-TYPE-OK PIN-TYPES-OK COLLECT-MODULE-DATA ADD-COMPOSED-DATA COMPOSED-IO-TYPES COLLECT-OCCURRENCE-DATA FUNCTION-PROPERTIES UPDATE-OPROP-BINDING COLLECT-TRI-STATE-DATA COMPOSE-TRI-STATE-DATA UPDATE-TRI-STATE-DATA ADD-SYNONYMS FUNCTION-SYNONYMS FUNCTION-T-WIRE-INS UPDATE-STATE-TYPES UPDATE-OUT-DEPENDS OR-DELAY-ARGS INPUT-DELAY0 LOADED-DELAYS UPDATE-DELAYS COLLECT-MIN-ARGS COLLECT-LOADINGS ADD-NET-DRIVE TRANSFER-LOADINGS UPDATE-DRIVES UPDATE-LOADINGS ADD-LOADING UPDATE-OUT-TYPES UPDATE-IN-TYPES ADD-IN-TYPE TYPE-VALUE0 PARENT-SYNONYM0 VALUE2 VALUE-OR-UNKNOWN LSI-MODULE-SYNTAX-CHECK LSI-OCC-BODY-SYNTAX-CHECK UPDATE-LSI-OCC-SYNTAX-DATA LSI-OCC-OUTPUTS-OK LSI-OCC-NAME-OK MAX-OCC-HIERARCHICAL-NAME COMPOSITE-OCC-BODY-SYNTAX-ERRORS UPDATE-OCC-SYNTAX-DATA COLLECT-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE NET-DRIVES FIX-LOADINGS FIX-DEPENDENT-LDS FIX-DEPENDENT-TYPES UNION-VALUES OPEN-DUAL-EVAL-BODY-BINDINGS DUAL-EVAL-BODY-BINDINGS OPEN-DUAL-EVAL-WITH-FLAG-3 OPEN-DUAL-EVAL-WITH-FLAG-1 DUAL-EVAL COLLECT-STATES COLLECT-VALUE-MAKE-LIST SINGLETON-COLLECT-VALUE COLLECT-VALUE-CONS VALUE-INDICES-HACK VALUE-PAIRLIST VALUE-APPEND-PAIRLIST REWRITE-VALUE-4X REWRITE-VALUE COLLECT-VALUE VALUE-OFF) EVENT (DEFN VALUE (NAME ALIST) (IF (NLISTP ALIST) (QUOTE 0) (IF (LISTP (CAR ALIST)) (IF (EQUAL (CAR (CAR ALIST)) NAME) (CDR (CAR ALIST)) (VALUE NAME (CDR ALIST))) (VALUE NAME (CDR ALIST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . VALUE) (DCELL . *1*VALUE))))) (PUT1-LST (QUOTE BOOLP-IF*) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP BVP-CV-VECTORS) EVENT (PROVE-LEMMA BOOLP-IF* (REWRITE) (IMPLIES (AND (BOOLP A) (BOOLP B)) (BOOLP (IF* C A B))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . BOOLP-IF*) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-IF*) (LEMMAS BOOLP . BOOLP-IF*))))) (PUT1-LST (QUOTE BVP-SUBRANGE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_V11111$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH1$DESTRUCTURE BVP-A-IMMEDIATE BVP-IR-ACCESSORS) EVENT (PROVE-LEMMA BVP-SUBRANGE (REWRITE) (IMPLIES (AND (BVP V) (LESSP N (LENGTH V))) (BVP (SUBRANGE V M N))) ((ENABLE SUBRANGE BVP LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 BVP . BVP-SUBRANGE) (LEMMAS BVP . BVP-SUBRANGE))))) (PUT1-LST (QUOTE V-IFF=EQUAL) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (F$READ-REGS=READ-REGS) EVENT (PROVE-LEMMA V-IFF=EQUAL (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-IFF A B) (EQUAL A B))) ((ENABLE V-IFF BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 BVP . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 BOOLP . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 V-IFF-X-X . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF=EQUAL) (IMMEDIATE-DEPENDENTS0 BV2P . V-IFF=EQUAL) (LEMMAS V-IFF . V-IFF=EQUAL))))) (PUT1-LST (QUOTE V-IFF-REVERSE) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (READ-MEM-WRITE-MEM) EVENT (PROVE-LEMMA V-IFF-REVERSE (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (V-IFF (REVERSE A) (REVERSE B)) (V-IFF A B))) ((ENABLE REVERSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IFF-REV1 . V-IFF-REVERSE) (IMMEDIATE-DEPENDENTS0 REVERSE . V-IFF-REVERSE) (IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF-REVERSE) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IFF-REVERSE) (LEMMAS V-IFF . V-IFF-REVERSE))))) (PUT1-LST (QUOTE V-IFF-REV1) (QUOTE (IDATE 1000402193941 IMMEDIATE-DEPENDENTS0 (V-IFF-REVERSE) EVENT (PROVE-LEMMA V-IFF-REV1 (REWRITE) (IMPLIES (AND (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (LENGTH X) (LENGTH Y))) (EQUAL (V-IFF (REV1 A X) (REV1 B Y)) (AND (V-IFF A B) (V-IFF X Y)))) ((ENABLE V-IFF REV1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 REV1 . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF-REV1) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IFF-REV1) (LEMMAS V-IFF . V-IFF-REV1))))) (PUT1-LST (QUOTE V-IFF-X-X) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (V-IFF=EQUAL) EVENT (PROVE-LEMMA V-IFF-X-X (REWRITE) (V-IFF X X) ((ENABLE V-IFF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF-X-X) (IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF-X-X) (LEMMAS V-IFF . V-IFF-X-X))))) (PUT1-LST (QUOTE V-IFF-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-IFF-OFF V-IFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IFF . V-IFF-OFF) (DISABLED-LEMMAS NIL V-IFF V-IFF-OFF . T))))) (PUT1-LST (QUOTE *1*V-IFF) (QUOTE (MAIN-EVENT V-IFF))) (PUT1-LST (QUOTE V-IFF) (QUOTE (TYPE-PRESCRIPTION-LST ((V-IFF 3 NIL NIL)) LEMMAS ((REWRITE-RULE V-IFF=EQUAL ((BV2P A B)) (EQUAL (V-IFF A B) (EQUAL A B)) NIL) (REWRITE-RULE V-IFF-REVERSE ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (V-IFF (REVERSE A) (REVERSE B)) (V-IFF A B)) NIL) (REWRITE-RULE V-IFF-REV1 ((EQUAL (LENGTH A) (LENGTH B)) (EQUAL (LENGTH X) (LENGTH Y))) (EQUAL (V-IFF (REV1 A X) (REV1 B Y)) (IF (V-IFF A B) (V-IFF X Y) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE V-IFF-X-X NIL (V-IFF X X) NIL)) TOTALP-LST ((V-IFF . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (A B) (IF (LISTP A) (IF (CAR A) (IF (CAR B) (IF (V-IFF (CDR A) (CDR B)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (CAR B) (QUOTE *1*FALSE) (IF (V-IFF (CDR A) (CDR B)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) (QUOTE *1*TRUE))) LISP-CODE *1*V-IFF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193940 CONTROLLER-POCKETS (1) SATELLITES (*1*V-IFF) IMMEDIATE-DEPENDENTS0 (V-TO-NAT-EQUAL READ-REGS READ-MEM-WRITE-MEM NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF=EQUAL V-IFF-REVERSE V-IFF-REV1 V-IFF-X-X V-IFF-OFF) EVENT (DEFN V-IFF (A B) (IF (NLISTP A) (QUOTE *1*TRUE) (AND (IFF (CAR A) (CAR B)) (V-IFF (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IFF) (DCELL . *1*V-IFF))))) (PUT1-LST (QUOTE V-THREEFIX-V-FOURFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (READB3$STEP1 READB2$STEP READA3$STEP1 READA2$STEP FETCH3$STEP1 FETCH2$STEP TTL-BIDIRECT-PADS$VALUE) EVENT (PROVE-LEMMA V-THREEFIX-V-FOURFIX (REWRITE) (EQUAL (V-THREEFIX (V-FOURFIX V)) (V-THREEFIX V)) ((ENABLE V-THREEFIX V-FOURFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 BOOLP . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 FOURP . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 FOURFIX . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 V-FOURFIX . V-THREEFIX-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-V-FOURFIX) (LEMMAS V-THREEFIX . V-THREEFIX-V-FOURFIX))))) (PUT1-LST (QUOTE V-FOURFIX-MAKE-LIST) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE0$STEP READB1$STEP READB0$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH1$STEP FETCH0$STEP1 FETCH0$STEP0) EVENT (PROVE-LEMMA V-FOURFIX-MAKE-LIST (REWRITE) (IMPLIES (OR (EQUAL X (QUOTE *1*TRUE)) (OR (EQUAL X (QUOTE *1*FALSE)) (OR (EQUAL X (QUOTE (*1*QUOTE X))) (EQUAL X (QUOTE (*1*QUOTE Z)))))) (EQUAL (V-FOURFIX (MAKE-LIST N X)) (MAKE-LIST N X))) ((ENABLE V-FOURFIX MAKE-LIST FOURFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 FOURFIX . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 BOOLP . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 BVP-V-FOURFIX . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 V-FOURFIX . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 Z . V-FOURFIX-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 X . V-FOURFIX-MAKE-LIST) (LEMMAS V-FOURFIX . V-FOURFIX-MAKE-LIST))))) (PUT1-LST (QUOTE BVP-V-FOURFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP READB3$STEP0 READA3$STEP0 FETCH3$STEP0 FETCH0$STEP2 V-FOURFIX-MAKE-LIST) EVENT (PROVE-LEMMA BVP-V-FOURFIX (REWRITE) (IMPLIES (BVP V) (EQUAL (V-FOURFIX V) V)) ((ENABLE V-FOURFIX BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURP . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 FOURFIX . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 V-FOURFIX . BVP-V-FOURFIX) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-FOURFIX) (LEMMAS V-FOURFIX . BVP-V-FOURFIX))))) (PUT1-LST (QUOTE V-FOURFIX-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-FOURFIX-OFF V-FOURFIX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-FOURFIX . V-FOURFIX-OFF) (DISABLED-LEMMAS NIL V-FOURFIX V-FOURFIX-OFF . T))))) (PUT1-LST (QUOTE *1*V-FOURFIX) (QUOTE (MAIN-EVENT V-FOURFIX))) (PUT1-LST (QUOTE V-FOURFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((V-FOURFIX 24 NIL)) LEMMAS ((REWRITE-RULE V-FOURFIX-MAKE-LIST ((OR (EQUAL X (QUOTE *1*TRUE)) (OR (EQUAL X (QUOTE *1*FALSE)) (OR (EQUAL X (QUOTE (*1*QUOTE X))) (EQUAL X (QUOTE (*1*QUOTE Z))))))) (EQUAL (V-FOURFIX (MAKE-LIST N X)) (MAKE-LIST N X)) NIL) (REWRITE-RULE BVP-V-FOURFIX ((BVP V)) (EQUAL (V-FOURFIX V) V) NIL)) TOTALP-LST ((V-FOURFIX . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (V) (IF (LISTP V) (CONS (FOURFIX (CAR V)) (V-FOURFIX (CDR V))) (QUOTE NIL))) LISP-CODE *1*V-FOURFIX SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP V)) NIL) (TESTS-AND-CASES ((NOT (NLISTP V))) (((CDR V))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V) (COUNT V) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193940 CONTROLLER-POCKETS (1) SATELLITES (*1*V-FOURFIX) IMMEDIATE-DEPENDENTS0 (V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X V-THREEFIX-V-FOURFIX V-FOURFIX-MAKE-LIST BVP-V-FOURFIX V-FOURFIX-OFF) EVENT (DEFN V-FOURFIX (V) (IF (NLISTP V) (QUOTE NIL) (CONS (FOURFIX (CAR V)) (V-FOURFIX (CDR V))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FOURFIX . V-FOURFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-FOURFIX) (DCELL . *1*V-FOURFIX))))) (PUT1-LST (QUOTE V-THREEFIX-MAKE-LIST-X) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS$VALUE) EVENT (PROVE-LEMMA V-THREEFIX-MAKE-LIST-X (REWRITE) (EQUAL (V-THREEFIX (MAKE-LIST N (QUOTE (*1*QUOTE X)))) (MAKE-LIST N (QUOTE (*1*QUOTE X)))) ((ENABLE V-THREEFIX MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-THREEFIX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-THREEFIX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 X . V-THREEFIX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-THREEFIX-MAKE-LIST-X) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-MAKE-LIST-X) (LEMMAS V-THREEFIX . V-THREEFIX-MAKE-LIST-X))))) (PUT1-LST (QUOTE BVP-V-THREEFIX) (QUOTE (IDATE 1000402193940 EVENT (PROVE-LEMMA BVP-V-THREEFIX (REWRITE) (IMPLIES (PROPERP V) (EQUAL (BVP (V-THREEFIX V)) (BVP V))) ((ENABLE PROPERP BVP V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 THREEFIX . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 PROPERP . BVP-V-THREEFIX) (LEMMAS BVP . BVP-V-THREEFIX))))) (PUT1-LST (QUOTE V-THREEFIX-IDEMPOTENCE) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM READB0->READB3$SIM READA0->READA3$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP CHIP$VALUE CHIP$STATE V-THREEFIX-FV-SHIFT-RIGHT) EVENT (PROVE-LEMMA V-THREEFIX-IDEMPOTENCE (REWRITE) (EQUAL (V-THREEFIX (V-THREEFIX X)) (V-THREEFIX X)) ((ENABLE V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-THREEFIX-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-THREEFIX-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-IDEMPOTENCE) (LEMMAS V-THREEFIX . V-THREEFIX-IDEMPOTENCE))))) (PUT1-LST (QUOTE V-THREEFIX-APPEND-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-THREEFIX-APPEND-OFF V-THREEFIX-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX-APPEND . V-THREEFIX-APPEND-OFF) (DISABLED-LEMMAS NIL V-THREEFIX-APPEND V-THREEFIX-APPEND-OFF . T))))) (PUT1-LST (QUOTE V-THREEFIX-APPEND) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (V-THREEFIX-FV-SHIFT-RIGHT V-THREEFIX-APPEND-OFF) EVENT (PROVE-LEMMA V-THREEFIX-APPEND (REWRITE) (EQUAL (V-THREEFIX (APPEND A B)) (APPEND (V-THREEFIX A) (V-THREEFIX B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-V-THREEFIX . V-THREEFIX-APPEND) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-APPEND) (LEMMAS V-THREEFIX . V-THREEFIX-APPEND))))) (PUT1-LST (QUOTE APPEND-V-THREEFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (TV-IF$VALUE V-THREEFIX-APPEND) EVENT (PROVE-LEMMA APPEND-V-THREEFIX (REWRITE) (EQUAL (APPEND (V-THREEFIX A) (V-THREEFIX B)) (V-THREEFIX (APPEND A B))) ((ENABLE APPEND V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . APPEND-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . APPEND-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . APPEND-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . APPEND-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . APPEND-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . APPEND-V-THREEFIX) (LEMMAS APPEND . APPEND-V-THREEFIX))))) (PUT1-LST (QUOTE LENGTH-V-THREEFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE REGFILE$STATE REGFILE$VALUE TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-IF$VALUE PROPERP-LENGTH-FV-SHIFT-RIGHT) EVENT (PROVE-LEMMA LENGTH-V-THREEFIX (REWRITE) (EQUAL (LENGTH (V-THREEFIX X)) (LENGTH X)) ((ENABLE LENGTH V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . LENGTH-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-THREEFIX) (LEMMAS LENGTH . LENGTH-V-THREEFIX))))) (PUT1-LST (QUOTE PROPERP-V-THREEFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (MACROCYCLE-INVARIANT-IS-INVARIANT$HELP FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE REGFILE$STATE REGFILE$VALUE TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA PROPERP-V-THREEFIX (REWRITE) (PROPERP (V-THREEFIX X)) ((ENABLE PROPERP V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . PROPERP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . PROPERP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . PROPERP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . PROPERP-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-V-THREEFIX) (LEMMAS PROPERP . PROPERP-V-THREEFIX))))) (PUT1-LST (QUOTE V-THREEFIX-BVP) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS TV-SHIFT-OR-BUF$VALUE-ZERO V-THREEFIX-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-IF-WHEN-BVP PROPERP-LENGTH-NEXT-MEMORY-STATE) EVENT (PROVE-LEMMA V-THREEFIX-BVP (REWRITE) (IMPLIES (BVP V) (EQUAL (V-THREEFIX V) V)) ((ENABLE BVP V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX-BVP) (IMMEDIATE-DEPENDENTS0 OPEN-V-THREEFIX . V-THREEFIX-BVP) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-THREEFIX-BVP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-THREEFIX-BVP) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-BVP) (IMMEDIATE-DEPENDENTS0 BVP . V-THREEFIX-BVP) (LEMMAS V-THREEFIX . V-THREEFIX-BVP))))) (PUT1-LST (QUOTE OPEN-V-THREEFIX) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-STATE-STRUCTURE$STEP TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$VALUE COLLECT-VALUE-V-SHIFT-RIGHT F$ALU-CELL-V-THREEFIX-MPG WE-REG$VALUE WE-REG-BODY$VALUE REG-BODY$STATE REG-BODY$VALUE TV-IF$VALUE V-BUF$BODY-VALUE VFT-BUF-LEMMAS FV-IF-V-THREEFIX FV-IF-REWRITE FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF V-THREEFIX-V-FOURFIX V-THREEFIX-MAKE-LIST-X BVP-V-THREEFIX V-THREEFIX-IDEMPOTENCE APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP) EVENT (PROVE-LEMMA OPEN-V-THREEFIX (REWRITE) (AND (IMPLIES (NLISTP V) (EQUAL (V-THREEFIX V) (QUOTE NIL))) (IMPLIES (LISTP V) (EQUAL (V-THREEFIX V) (CONS (THREEFIX (CAR V)) (V-THREEFIX (CDR V)))))) ((ENABLE V-THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . OPEN-V-THREEFIX) (IMMEDIATE-DEPENDENTS0 V-THREEFIX . OPEN-V-THREEFIX) (LEMMAS V-THREEFIX . OPEN-V-THREEFIX) (LEMMAS V-THREEFIX . OPEN-V-THREEFIX))))) (PUT1-LST (QUOTE V-THREEFIX-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-THREEFIX-OFF V-THREEFIX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-THREEFIX . V-THREEFIX-OFF) (DISABLED-LEMMAS NIL V-THREEFIX V-THREEFIX-OFF . T))))) (PUT1-LST (QUOTE *1*V-THREEFIX) (QUOTE (MAIN-EVENT V-THREEFIX))) (PUT1-LST (QUOTE V-THREEFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((V-THREEFIX 24 NIL)) LEMMAS ((REWRITE-RULE COLLECT-VALUE-V-SHIFT-RIGHT NIL (EQUAL (V-THREEFIX (COLLECT-VALUE (V-SHIFT-RIGHT-NAMES A SI) ALIST)) (FV-SHIFT-RIGHT (COLLECT-VALUE A ALIST) (VALUE SI ALIST))) NIL) (REWRITE-RULE V-THREEFIX-FV-SHIFT-RIGHT NIL (EQUAL (V-THREEFIX (FV-SHIFT-RIGHT A SI)) (FV-SHIFT-RIGHT A SI)) NIL) (REWRITE-RULE V-THREEFIX-FV-IF NIL (EQUAL (V-THREEFIX (FV-IF C A B)) (FV-IF C A B)) NIL) (REWRITE-RULE V-THREEFIX-V-FOURFIX NIL (EQUAL (V-THREEFIX (V-FOURFIX V)) (V-THREEFIX V)) NIL) (REWRITE-RULE V-THREEFIX-MAKE-LIST-X NIL (EQUAL (V-THREEFIX (MAKE-LIST N (QUOTE (*1*QUOTE X)))) (MAKE-LIST N (QUOTE (*1*QUOTE X)))) NIL) (REWRITE-RULE V-THREEFIX-IDEMPOTENCE NIL (EQUAL (V-THREEFIX (V-THREEFIX X)) (V-THREEFIX X)) NIL) (REWRITE-RULE V-THREEFIX-APPEND NIL (EQUAL (V-THREEFIX (APPEND A B)) (APPEND (V-THREEFIX A) (V-THREEFIX B))) NIL) (REWRITE-RULE V-THREEFIX-BVP ((BVP V)) (EQUAL (V-THREEFIX V) V) NIL) (REWRITE-RULE OPEN-V-THREEFIX ((LISTP V)) (EQUAL (V-THREEFIX V) (CONS (THREEFIX (CAR V)) (V-THREEFIX (CDR V)))) NIL) (REWRITE-RULE OPEN-V-THREEFIX ((NOT (LISTP V))) (EQUAL (V-THREEFIX V) (QUOTE NIL)) NIL)) TOTALP-LST ((V-THREEFIX . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (V) (IF (LISTP V) (CONS (THREEFIX (CAR V)) (V-THREEFIX (CDR V))) (QUOTE NIL))) LISP-CODE *1*V-THREEFIX SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP V)) NIL) (TESTS-AND-CASES ((NOT (NLISTP V))) (((CDR V))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (V) (COUNT V) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193940 CONTROLLER-POCKETS (1) SATELLITES (*1*V-THREEFIX) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$INDUCTION READB3$PROGRESS READB3$PROGRESS-HELP READB3$INDUCTION READA3$PROGRESS READA3$PROGRESS-HELP READA3$INDUCTION FETCH3$PROGRESS FETCH3$PROGRESS-HELP FETCH3$INDUCTION SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$VALUE F$WRITE-REGS F$READ-REGS COLLECT-VALUE-V-SHIFT-RIGHT F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP-INDUCTION F$ALU-CELL-V-THREEFIX-MPG WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE V-BUF$VALUE V-BUF$BODY-VALUE VFT-BUF-REWRITE VFT-BUF-LEMMAS V-THREEFIX-FV-SHIFT-RIGHT FV-SHIFT-RIGHT FV-IF-V-THREEFIX FV-IF-REWRITE FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF NEXT-MEMORY-STATE$INDUCTION NEXT-MEMORY-STATE V-THREEFIX-V-FOURFIX V-THREEFIX-MAKE-LIST-X BVP-V-THREEFIX V-THREEFIX-IDEMPOTENCE V-THREEFIX-APPEND APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP OPEN-V-THREEFIX V-THREEFIX-OFF) EVENT (DEFN V-THREEFIX (V) (IF (NLISTP V) (QUOTE NIL) (CONS (THREEFIX (CAR V)) (V-THREEFIX (CDR V))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . V-THREEFIX) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-THREEFIX) (DCELL . *1*V-THREEFIX))))) (PUT1-LST (QUOTE V-ADDER-WORKS) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT) EVENT (PROVE-LEMMA V-ADDER-WORKS (REWRITE) (IMPLIES (BV2P X Y) (EQUAL (V-TO-NAT (V-ADDER C X Y)) (PLUS (IF C (QUOTE 1) (QUOTE 0)) (PLUS (V-TO-NAT X) (V-TO-NAT Y))))) ((ENABLE BOOLFIX BVP LENGTH V-TO-NAT V-ADDER PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-XOR3 . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-AND . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-OR . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 B-XOR . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 PLUS-0 . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-ADDER-WORKS) (IMMEDIATE-DEPENDENTS0 BV2P . V-ADDER-WORKS) (LEMMAS V-TO-NAT . V-ADDER-WORKS))))) (PUT1-LST (QUOTE V-IF-WORKS) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV F$SELECT-OP-CODE-SELECTS SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF) EVENT (PROVE-LEMMA V-IF-WORKS (REWRITE) (IMPLIES (BV2P X Y) (EQUAL (V-IF C X Y) (IF C X Y))) ((ENABLE BVP V-IF LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 BOOLP . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 V-IF . V-IF-WORKS) (IMMEDIATE-DEPENDENTS0 BV2P . V-IF-WORKS) (LEMMAS V-IF . V-IF-WORKS))))) (PUT1-LST (QUOTE V-BUF-WORKS) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-MOVE V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-INT-BUF CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR TV-ALU-HELP-V-BUF-WORKS BVP-BV-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU F$DEC-PASS=DEC-OR-PASS TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 TV-DEC-PASS-WORKS FV-SHIFT-RIGHT=V-SHIFT-RIGHT) EVENT (PROVE-LEMMA V-BUF-WORKS (REWRITE) (IMPLIES (BVP X) (EQUAL (V-BUF X) X)) ((ENABLE BVP V-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF-X=X . V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 V-BUF . V-BUF-WORKS) (IMMEDIATE-DEPENDENTS0 BVP . V-BUF-WORKS) (LEMMAS V-BUF . V-BUF-WORKS))))) (PUT1-LST (QUOTE BVP-LENGTH-V-INC-V-DEC) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM WRITE0$STEP READB0$STEP READA0$STEP FETCH2$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$CV=CV BVP-CV-VECTORS CV_RESET2$DESTRUCTURE) EVENT (PROVE-LEMMA BVP-LENGTH-V-INC-V-DEC (REWRITE) (AND (BVP (V-INC X)) (AND (BVP (V-DEC X)) (AND (EQUAL (LENGTH (V-INC X)) (LENGTH X)) (EQUAL (LENGTH (V-DEC X)) (LENGTH X))))) ((ENABLE V-INC V-DEC))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-OF-V-ADDER . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 B-NOT . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH-NAT-TO-V . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 BVP-V-ADDER . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 BVP-FIRSTN . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 V-DEC . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 V-INC . BVP-LENGTH-V-INC-V-DEC) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-V-INC-V-DEC) (LEMMAS LENGTH . BVP-LENGTH-V-INC-V-DEC) (LEMMAS LENGTH . BVP-LENGTH-V-INC-V-DEC) (LEMMAS BVP . BVP-LENGTH-V-INC-V-DEC) (LEMMAS BVP . BVP-LENGTH-V-INC-V-DEC))))) (PUT1-LST (QUOTE LENGTH-OF-V-SUBTRACTER-OUTPUT) (QUOTE (IDATE 1000402193940 EVENT (PROVE-LEMMA LENGTH-OF-V-SUBTRACTER-OUTPUT (REWRITE) (EQUAL (LENGTH (V-SUBTRACTER-OUTPUT C A B)) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . LENGTH-OF-V-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-OF-V-ADDER-OUTPUT . LENGTH-OF-V-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . LENGTH-OF-V-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-OF-V-SUBTRACTER-OUTPUT) (LEMMAS LENGTH . LENGTH-OF-V-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE LENGTH-OF-V-ADDER-OUTPUT) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (LENGTH-OF-V-SUBTRACTER-OUTPUT) EVENT (PROVE-LEMMA LENGTH-OF-V-ADDER-OUTPUT (REWRITE) (EQUAL (LENGTH (V-ADDER-OUTPUT C A B)) (LENGTH A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-OF-V-ADDER . LENGTH-OF-V-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN1 . LENGTH-OF-V-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . LENGTH-OF-V-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-OF-V-ADDER-OUTPUT) (LEMMAS LENGTH . LENGTH-OF-V-ADDER-OUTPUT))))) (PUT1-LST (QUOTE BVP-V-ADDER) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT BVP-LENGTH-V-INC-V-DEC) EVENT (PROVE-LEMMA BVP-V-ADDER (REWRITE) (BVP (V-ADDER C A B)) ((ENABLE BVP V-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 BOOLFIX . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER . BVP-V-ADDER) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-ADDER) (LEMMAS BVP . BVP-V-ADDER))))) (PUT1-LST (QUOTE LENGTH-OF-V-ADDER) (QUOTE (IDATE 1000402193940 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-ADDER-OUTPUT) EVENT (PROVE-LEMMA LENGTH-OF-V-ADDER (REWRITE) (EQUAL (LENGTH (V-ADDER C A B)) (ADD1 (LENGTH A))) ((ENABLE LENGTH V-ADDER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 BOOLFIX . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 V-ADDER . LENGTH-OF-V-ADDER) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-OF-V-ADDER) (LEMMAS LENGTH . LENGTH-OF-V-ADDER))))) (PUT1-LST (QUOTE V-DEC-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-DEC-OFF V-DEC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-DEC . V-DEC-OFF) (DISABLED-LEMMAS NIL V-DEC V-DEC-OFF . T))))) (PUT1-LST (QUOTE *1*V-DEC) (QUOTE (MAIN-EVENT V-DEC))) (PUT1-LST (QUOTE V-DEC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-DEC 24 NIL)) TOTALP-LST ((V-DEC . T)) SDEFN (LAMBDA (X) (V-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH X)) X)) LISP-CODE *1*V-DEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193940 SATELLITES (*1*V-DEC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM WRITE0$STEP READB0$STEP READA0$STEP FM9001-OPERAND-A FM9001-OPERAND-B CORE-ALU-WORKS-AS-DEC-B BV-V-ALU-ALU-INC-ALU-DEC F$DEC-PASS=DEC-OR-PASS TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 TV-DEC-PASS-WORKS BVP-LENGTH-V-INC-V-DEC V-DEC-OFF) EVENT (DEFN V-DEC (X) (V-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) (NAT-TO-V (QUOTE 0) (LENGTH X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-DEC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-DEC) (IMMEDIATE-DEPENDENTS0 V-SUBTRACTER-OUTPUT . V-DEC) (DCELL . *1*V-DEC))))) (PUT1-LST (QUOTE V-INC-OFF) (QUOTE (IDATE 1000402193940 EVENT (TOGGLE V-INC-OFF V-INC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-INC . V-INC-OFF) (DISABLED-LEMMAS NIL V-INC V-INC-OFF . T))))) (PUT1-LST (QUOTE *1*V-INC) (QUOTE (MAIN-EVENT V-INC))) (PUT1-LST (QUOTE V-INC) (QUOTE (TYPE-PRESCRIPTION-LST ((V-INC 24 NIL)) TOTALP-LST ((V-INC . T)) SDEFN (LAMBDA (X) (V-ADDER-OUTPUT (QUOTE *1*TRUE) X (NAT-TO-V (QUOTE 0) (LENGTH X)))) LISP-CODE *1*V-INC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193940 SATELLITES (*1*V-INC) IMMEDIATE-DEPENDENTS0 (BV-V-ALU FETCH1->DECODE$SIM FETCH2$STEP NEXT-CNTL-STATE$RESET2 CV CV_RESET2$DESTRUCTURE CV_RESET2 BV-TO-INT FM9001-FETCH FM9001-OPERAND-A FM9001-OPERAND-B CORE-ALU-WORKS-AS-INC-B BV-V-ALU-ALU-INC-ALU-DEC F$V-INC4$V=V-INC BVP-LENGTH-V-INC-V-DEC V-INC-OFF) EVENT (DEFN V-INC (X) (V-ADDER-OUTPUT (QUOTE *1*TRUE) X (NAT-TO-V (QUOTE 0) (LENGTH X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-INC) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . V-INC) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-INC) (DCELL . *1*V-INC))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-OVERFLOWP) (QUOTE (MAIN-EVENT V-SUBTRACTER-OVERFLOWP))) (PUT1-LST (QUOTE V-SUBTRACTER-OVERFLOWP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SUBTRACTER-OVERFLOWP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-SUBTRACTER-OVERFLOWP C A B) (V-ALU-INT-SUBTRACTER-OVERFLOWP C A B)) NIL)) TOTALP-LST ((V-SUBTRACTER-OVERFLOWP . T)) SDEFN (LAMBDA (C A B) (V-ADDER-OVERFLOWP (B-NOT C) (V-NOT A) B)) LISP-CODE *1*V-SUBTRACTER-OVERFLOWP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-SUBTRACTER-OVERFLOWP) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-NAT-SUBTRACTER CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-SUBTRACTER) EVENT (DEFN V-SUBTRACTER-OVERFLOWP (C A B) (V-ADDER-OVERFLOWP (B-NOT C) (V-NOT A) B)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . V-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-NOT . V-SUBTRACTER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 V-ADDER-OVERFLOWP . V-SUBTRACTER-OVERFLOWP) (DCELL . *1*V-SUBTRACTER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-CARRY-OUT) (QUOTE (MAIN-EVENT V-SUBTRACTER-CARRY-OUT))) (PUT1-LST (QUOTE V-SUBTRACTER-CARRY-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SUBTRACTER-CARRY-OUT 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT ((BV2P A B)) (EQUAL (V-SUBTRACTER-CARRY-OUT C A B) (V-ALU-NAT-SUBTRACTER-CARRY-OUT C A B)) NIL)) TOTALP-LST ((V-SUBTRACTER-CARRY-OUT . T)) SDEFN (LAMBDA (C A B) (B-NOT (V-ADDER-CARRY-OUT (B-NOT C) (V-NOT A) B))) LISP-CODE *1*V-SUBTRACTER-CARRY-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-SUBTRACTER-CARRY-OUT) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-INT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-SUBTRACTER) EVENT (DEFN V-SUBTRACTER-CARRY-OUT (C A B) (B-NOT (V-ADDER-CARRY-OUT (B-NOT C) (V-NOT A) B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . V-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-CARRY-OUT . V-SUBTRACTER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 B-NOT . V-SUBTRACTER-CARRY-OUT) (DCELL . *1*V-SUBTRACTER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-OUTPUT) (QUOTE (MAIN-EVENT V-SUBTRACTER-OUTPUT))) (PUT1-LST (QUOTE V-SUBTRACTER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SUBTRACTER-OUTPUT 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-SUBTRACTER-OUTPUT C A B) (V-ALU-INT-SUBTRACTER-OUTPUT C A B)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT ((BV2P A B)) (EQUAL (V-SUBTRACTER-OUTPUT C A B) (V-ALU-NAT-SUBTRACTER-OUTPUT C A B)) NIL)) TOTALP-LST ((V-SUBTRACTER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (V-ADDER-OUTPUT (B-NOT C) (V-NOT A) B)) LISP-CODE *1*V-SUBTRACTER-OUTPUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-SUBTRACTER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU V-NEG CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B ZB-V-ALU V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT INT-TO-BV CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-SUBTRACTER TV-DEC-PASS-WORKS BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-SUBTRACTER-OUTPUT V-DEC) EVENT (DEFN V-SUBTRACTER-OUTPUT (C A B) (V-ADDER-OUTPUT (B-NOT C) (V-NOT A) B)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . V-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 B-NOT . V-SUBTRACTER-OUTPUT) (IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-SUBTRACTER-OUTPUT) (DCELL . *1*V-SUBTRACTER-OUTPUT))))) (PUT1-LST (QUOTE *1*V-ADDER-OVERFLOWP) (QUOTE (MAIN-EVENT V-ADDER-OVERFLOWP))) (PUT1-LST (QUOTE V-ADDER-OVERFLOWP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ADDER-OVERFLOWP 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-ADDER-OVERFLOWP ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ADDER-OVERFLOWP C A B) (V-ALU-INT-ADDER-OVERFLOWP C A B)) NIL)) TOTALP-LST ((V-ADDER-OVERFLOWP . T)) SDEFN (LAMBDA (C A B) (B-AND (B-EQUV (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH B)) B)) (B-XOR (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) (V-ADDER-OUTPUT C A B))))) LISP-CODE *1*V-ADDER-OVERFLOWP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-ADDER-OVERFLOWP) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-NAT-ADDER CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-ADDER V-SUBTRACTER-OVERFLOWP) EVENT (DEFN V-ADDER-OVERFLOWP (C A B) (B-AND (B-EQUV (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH B)) B)) (B-XOR (NTH (SUB1 (LENGTH A)) A) (NTH (SUB1 (LENGTH A)) (V-ADDER-OUTPUT C A B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER-OUTPUT . V-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-XOR . V-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 NTH . V-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-EQUV . V-ADDER-OVERFLOWP) (IMMEDIATE-DEPENDENTS0 B-AND . V-ADDER-OVERFLOWP) (DCELL . *1*V-ADDER-OVERFLOWP))))) (PUT1-LST (QUOTE *1*V-ADDER-CARRY-OUT) (QUOTE (MAIN-EVENT V-ADDER-CARRY-OUT))) (PUT1-LST (QUOTE V-ADDER-CARRY-OUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ADDER-CARRY-OUT -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-ADDER-CARRY-OUT ((BV2P A B)) (EQUAL (V-ADDER-CARRY-OUT C A B) (V-ALU-NAT-ADDER-CARRY-OUT C A B)) NIL) (REWRITE-RULE V-ADDER-CARRY-OUT=V-CARRY NIL (EQUAL (V-ADDER-CARRY-OUT C A B) (V-CARRY C A B)) NIL)) TOTALP-LST ((V-ADDER-CARRY-OUT . T)) SDEFN (LAMBDA (C A B) (NTH (LENGTH A) (V-ADDER C A B))) LISP-CODE *1*V-ADDER-CARRY-OUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-ADDER-CARRY-OUT) IMMEDIATE-DEPENDENTS0 (V-ALU-INT-ADDER V-ALU-CORRECT-NAT-ADDER-CARRY-OUT CVZBV-V-ADDER V-ADDER-CARRY-OUT=V-CARRY V-SUBTRACTER-CARRY-OUT) EVENT (DEFN V-ADDER-CARRY-OUT (C A B) (NTH (LENGTH A) (V-ADDER C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-CARRY-OUT) (IMMEDIATE-DEPENDENTS0 NTH . V-ADDER-CARRY-OUT) (DCELL . *1*V-ADDER-CARRY-OUT))))) (PUT1-LST (QUOTE *1*V-ADDER-OUTPUT) (QUOTE (MAIN-EVENT V-ADDER-OUTPUT))) (PUT1-LST (QUOTE V-ADDER-OUTPUT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ADDER-OUTPUT 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-ADDER-OUTPUT ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ADDER-OUTPUT C A B) (V-ALU-INT-ADDER-OUTPUT C A B)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-ADDER-OUTPUT ((BV2P A B)) (EQUAL (V-ADDER-OUTPUT C A B) (V-ALU-NAT-ADDER-OUTPUT C A B)) NIL) (REWRITE-RULE V-ADDER-OUTPUT=V-SUM NIL (EQUAL (V-ADDER-OUTPUT C A B) (V-SUM C A B)) NIL)) TOTALP-LST ((V-ADDER-OUTPUT . T)) SDEFN (LAMBDA (C A B) (FIRSTN (LENGTH A) (V-ADDER C A B))) LISP-CODE *1*V-ADDER-OUTPUT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-ADDER-OUTPUT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT CVZBV-V-ADDER V-ADDER-OUTPUT=V-SUM BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-ADDER-OUTPUT V-INC V-SUBTRACTER-OUTPUT V-ADDER-OVERFLOWP) EVENT (DEFN V-ADDER-OUTPUT (C A B) (FIRSTN (LENGTH A) (V-ADDER C A B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 LENGTH . V-ADDER-OUTPUT) (IMMEDIATE-DEPENDENTS0 FIRSTN . V-ADDER-OUTPUT) (DCELL . *1*V-ADDER-OUTPUT))))) (PUT1-LST (QUOTE V-ADDER-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-ADDER-OFF V-ADDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-ADDER . V-ADDER-OFF) (DISABLED-LEMMAS NIL V-ADDER V-ADDER-OFF . T))))) (PUT1-LST (QUOTE *1*V-ADDER) (QUOTE (MAIN-EVENT V-ADDER))) (PUT1-LST (QUOTE V-ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ADDER 16 NIL NIL NIL)) TOTALP-LST ((V-ADDER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (CONS (B-XOR3 C (CAR A) (CAR B)) (V-ADDER (B-OR (B-AND (CAR A) (CAR B)) (B-OR (B-AND (CAR A) C) (B-AND (CAR B) C))) (CDR A) (CDR B))) (CONS (BOOLFIX C) (QUOTE NIL)))) LISP-CODE *1*V-ADDER SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) (((B-OR (B-AND (CAR A) (CAR B)) (B-OR (B-AND (CAR A) C) (B-AND (CAR B) C))) (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193939 CONTROLLER-POCKETS (2) SATELLITES (*1*V-ADDER) IMMEDIATE-DEPENDENTS0 (V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM V-ADDER-WORKS BVP-V-ADDER LENGTH-OF-V-ADDER V-ADDER-CARRY-OUT V-ADDER-OUTPUT V-ADDER-OFF) EVENT (DEFN V-ADDER (C A B) (IF (NLISTP A) (CONS (BOOLFIX C) (QUOTE NIL)) (CONS (B-XOR3 C (CAR A) (CAR B)) (V-ADDER (B-OR (B-AND (CAR A) (CAR B)) (B-OR (B-AND (CAR A) C) (B-AND (CAR B) C))) (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . V-ADDER) (IMMEDIATE-DEPENDENTS0 B-OR . V-ADDER) (IMMEDIATE-DEPENDENTS0 B-XOR3 . V-ADDER) (IMMEDIATE-DEPENDENTS0 BOOLFIX . V-ADDER) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-ADDER) (DCELL . *1*V-ADDER))))) (PUT1-LST (QUOTE SIGN-EXTEND-AS-APPEND-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE SIGN-EXTEND-AS-APPEND-OFF SIGN-EXTEND-AS-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIGN-EXTEND-AS-APPEND . SIGN-EXTEND-AS-APPEND-OFF) (DISABLED-LEMMAS NIL SIGN-EXTEND-AS-APPEND SIGN-EXTEND-AS-APPEND-OFF . T))))) (PUT1-LST (QUOTE SIGN-EXTEND-AS-APPEND) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE SIGN-EXTEND-AS-APPEND-OFF) EVENT (PROVE-LEMMA SIGN-EXTEND-AS-APPEND (REWRITE) (IMPLIES (AND (BVP V) (AND (IF (LESSP N (LENGTH V)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (EQUAL (LENGTH V) (QUOTE 0))))) (EQUAL (SIGN-EXTEND V N) (APPEND V (MAKE-LIST (DIFFERENCE N (LENGTH V)) (NTH (SUB1 (LENGTH V)) V))))) ((INDUCT (SIGN-EXTEND V N)) (ENABLE APPEND SIGN-EXTEND MAKE-LIST NTH DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BOOLP . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-CONS . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BOOLFIX . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 NTH . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . SIGN-EXTEND-AS-APPEND) (IMMEDIATE-DEPENDENTS0 BVP . SIGN-EXTEND-AS-APPEND) (LEMMAS SIGN-EXTEND . SIGN-EXTEND-AS-APPEND))))) (PUT1-LST (QUOTE BVP-SIGN-EXTEND) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP READB0->READB3$SIM READB1$STEP REGA$STEP) EVENT (PROVE-LEMMA BVP-SIGN-EXTEND (REWRITE) (BVP (SIGN-EXTEND V N)) ((ENABLE BVP SIGN-EXTEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 BVP-MAKE-LIST . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . BVP-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 BVP . BVP-SIGN-EXTEND) (LEMMAS BVP . BVP-SIGN-EXTEND))))) (PUT1-LST (QUOTE LENGTH-SIGN-EXTEND) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP READB0->READB3$SIM READB1$STEP REGA$STEP) EVENT (PROVE-LEMMA LENGTH-SIGN-EXTEND (REWRITE) (EQUAL (LENGTH (SIGN-EXTEND V N)) (FIX N)) ((ENABLE SIGN-EXTEND LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . LENGTH-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LENGTH-MAKE-LIST . LENGTH-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . LENGTH-SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-SIGN-EXTEND) (LEMMAS LENGTH . LENGTH-SIGN-EXTEND))))) (PUT1-LST (QUOTE SIGN-EXTEND-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE SIGN-EXTEND-OFF SIGN-EXTEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SIGN-EXTEND . SIGN-EXTEND-OFF) (DISABLED-LEMMAS NIL SIGN-EXTEND SIGN-EXTEND-OFF . T))))) (PUT1-LST (QUOTE *1*SIGN-EXTEND) (QUOTE (MAIN-EVENT SIGN-EXTEND))) (PUT1-LST (QUOTE SIGN-EXTEND) (QUOTE (TYPE-PRESCRIPTION-LST ((SIGN-EXTEND 24 NIL NIL)) LEMMAS ((REWRITE-RULE SIGN-EXTEND-AS-APPEND ((BVP V) (NOT (LESSP N (LENGTH V))) (NOT (EQUAL (LENGTH V) (QUOTE 0)))) (EQUAL (SIGN-EXTEND V N) (APPEND V (MAKE-LIST (DIFFERENCE N (LENGTH V)) (NTH (SUB1 (LENGTH V)) V)))) NIL)) TOTALP-LST ((SIGN-EXTEND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (V N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (IF (LISTP V) (IF (LISTP (CDR V)) (CONS (BOOLFIX (CAR V)) (SIGN-EXTEND (CDR V) (SUB1 N))) (CONS (BOOLFIX (CAR V)) (MAKE-LIST (SUB1 N) (BOOLFIX (CAR V))))) (MAKE-LIST N (QUOTE *1*FALSE))) (QUOTE NIL)))) LISP-CODE *1*SIGN-EXTEND SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NLISTP V)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (NLISTP V)) (NLISTP (CDR V))) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (NLISTP V)) (NOT (NLISTP (CDR V)))) (((CDR V) (SUB1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (V) (COUNT V) LESSP (CDR-LESSP ZEROP NLISTP LESSP-X-X ZERO CDR-LESSEQP)) (JUSTIFICATION (N) (COUNT N) LESSP (ZEROP NLISTP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193939 CONTROLLER-POCKETS (1 2) SATELLITES (*1*SIGN-EXTEND) IMMEDIATE-DEPENDENTS0 (READB0->READB3$SIM REGA->REGA$SIM READB1$STEP REGA$STEP F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE FM9001-OPERAND-A SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND LENGTH-SIGN-EXTEND SIGN-EXTEND-OFF) EVENT (DEFN SIGN-EXTEND (V N) (IF (ZEROP N) (QUOTE NIL) (IF (NLISTP V) (MAKE-LIST N (QUOTE *1*FALSE)) (IF (NLISTP (CDR V)) (CONS (BOOLFIX (CAR V)) (MAKE-LIST (SUB1 N) (BOOLFIX (CAR V)))) (CONS (BOOLFIX (CAR V)) (SIGN-EXTEND (CDR V) (SUB1 N))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SIGN-EXTEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SIGN-EXTEND) (DCELL . *1*SIGN-EXTEND))))) (PUT1-LST (QUOTE V-NEGP-AS-NTH-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-NEGP-AS-NTH-OFF V-NEGP-AS-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP-AS-NTH . V-NEGP-AS-NTH-OFF) (DISABLED-LEMMAS NIL V-NEGP-AS-NTH V-NEGP-AS-NTH-OFF . T))))) (PUT1-LST (QUOTE V-NEGP-AS-NTH) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP V-NEGP-AS-NTH-OFF) EVENT (PROVE-LEMMA V-NEGP-AS-NTH (REWRITE) (IMPLIES (NOT (EQUAL (LENGTH BV) (QUOTE 0))) (EQUAL (V-NEGP BV) (NTH (SUB1 (LENGTH BV)) BV))) ((ENABLE V-NEGP NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 NTH . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP-AS-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . V-NEGP-AS-NTH) (LEMMAS V-NEGP . V-NEGP-AS-NTH))))) (PUT1-LST (QUOTE BOOLP-V-NEGP) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS$COMMUTED V-NEGP-AS-BOUNDS V-NEGP-V-SHIFT-RIGHT UNIVERSAL-FLAGS-INTERPRETATIONS F$UPDATE-FLAGS=UPDATE-FLAGS BOOLP-N) EVENT (PROVE-LEMMA BOOLP-V-NEGP (REWRITE) (IMPLIES (BVP V) (BOOLP (V-NEGP V))) ((ENABLE BOOLP BVP V-NEGP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BOOLP-V-NEGP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BOOLP-V-NEGP) (IMMEDIATE-DEPENDENTS0 V-NEGP . BOOLP-V-NEGP) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-V-NEGP) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-V-NEGP) (LEMMAS BOOLP . BOOLP-V-NEGP))))) (PUT1-LST (QUOTE V-NEGP-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-NEGP-OFF V-NEGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NEGP . V-NEGP-OFF) (DISABLED-LEMMAS NIL V-NEGP V-NEGP-OFF . T))))) (PUT1-LST (QUOTE *1*V-NEGP) (QUOTE (MAIN-EVENT V-NEGP))) (PUT1-LST (QUOTE V-NEGP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-NEGP -1 NIL)) LEMMAS ((REWRITE-RULE INT-NEG-RANGE-IMPLICATIONS ((NOT (NEGATIVEP (V-TO-INT A))) (NOT (INTEGER-IN-RANGEP (MINUS (V-TO-INT A)) (LENGTH A)))) (NOT (V-NEGP (INT-TO-V (MINUS (V-TO-INT A)) (LENGTH A)))) NIL) (REWRITE-RULE INT-NEG-RANGE-IMPLICATIONS ((NEGATIVEP (V-TO-INT A)) (NOT (INTEGER-IN-RANGEP (NEGATIVE-GUTS (V-TO-INT A)) (LENGTH A)))) (V-NEGP (INT-TO-V (NEGATIVE-GUTS (V-TO-INT A)) (LENGTH A))) NIL) (REWRITE-RULE NOT-V-NEGP-NAT-TO-V-0 ((ZEROP A)) (NOT (V-NEGP (NAT-TO-V A L))) NIL) (REWRITE-RULE INTEGER-IN-RANGEP-THE-OBVIOUS-WAY ((NUMBERP L) (NOT (EQUAL L (QUOTE 0))) (INTEGERP I) (INTEGER-IN-RANGEP I L)) (EQUAL (V-NEGP (INT-TO-V I L)) (NEGATIVEP I)) NIL) (REWRITE-RULE V-NEGP->NEGATIVEP-V-TO-INT ((BVP A)) (EQUAL (V-NEGP A) (NEGATIVEP (V-TO-INT A))) NIL) (REWRITE-RULE V-NEGP-AS-BOUNDS ((BVP X)) (EQUAL (V-NEGP X) (IF (LESSP (V-TO-NAT X) (EXP (QUOTE 2) (SUB1 (LENGTH X)))) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-NEGP-V-SHIFT-RIGHT ((NOT (EQUAL (LENGTH A) (QUOTE 0))) (BOOLP C)) (EQUAL (V-NEGP (V-SHIFT-RIGHT A C)) C) NIL) (REWRITE-RULE V-NEGP-AS-NTH ((NOT (EQUAL (LENGTH BV) (QUOTE 0)))) (EQUAL (V-NEGP BV) (NTH (SUB1 (LENGTH BV)) BV)) NIL)) TOTALP-LST ((V-NEGP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (V-NEGP (CDR X)) (CAR X)) (QUOTE *1*FALSE))) LISP-CODE *1*V-NEGP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X)))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193939 CONTROLLER-POCKETS (1) SATELLITES (*1*V-NEGP) IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS NOT-V-NEGP-NAT-TO-V-0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY V-NEGP->NEGATIVEP-V-TO-INT V-NEGP-AS-BOUNDS V-NEGP-V-SHIFT-RIGHT UNIVERSAL-FLAGS-INTERPRETATIONS N-V-ALU V-NEGP->V-NZEROP N V-NEGP-AS-NTH BOOLP-V-NEGP V-NEGP-OFF) EVENT (DEFN V-NEGP (X) (IF (NLISTP X) (QUOTE *1*FALSE) (IF (NLISTP (CDR X)) (CAR X) (V-NEGP (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NEGP) (DCELL . *1*V-NEGP))))) (PUT1-LST (QUOTE NOT-V-NZEROP-ALL-F) (QUOTE (IDATE 1000402193939 EVENT (PROVE-LEMMA NOT-V-NZEROP-ALL-F (REWRITE) (NOT (V-NZEROP (MAKE-LIST N (QUOTE *1*FALSE)))) ((ENABLE V-NZEROP MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NOT-V-NZEROP-ALL-F) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . NOT-V-NZEROP-ALL-F) (IMMEDIATE-DEPENDENTS0 V-NZEROP . NOT-V-NZEROP-ALL-F) (LEMMAS V-NZEROP . NOT-V-NZEROP-ALL-F))))) (PUT1-LST (QUOTE V-ZEROP-MAKE-LIST-F) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ZERO-CASE) EVENT (PROVE-LEMMA V-ZEROP-MAKE-LIST-F (REWRITE) (EQUAL (V-ZEROP (MAKE-LIST N (QUOTE *1*FALSE))) (QUOTE *1*TRUE)) ((ENABLE V-ZEROP V-NZEROP MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP . V-ZEROP-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-ZEROP-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-ZEROP-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 V-ZEROP . V-ZEROP-MAKE-LIST-F) (LEMMAS V-ZEROP . V-ZEROP-MAKE-LIST-F))))) (PUT1-LST (QUOTE V-XOR-NZEROP=NOT-EQUAL) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-XOR CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES F$V-EQUAL=EQUAL*) EVENT (PROVE-LEMMA V-XOR-NZEROP=NOT-EQUAL (REWRITE) (IMPLIES (BV2P A B) (EQUAL (V-NZEROP (V-XOR A B)) (NOT (EQUAL A B)))) ((ENABLE V-NZEROP V-XOR LENGTH BVP BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 BVP . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 BOOLP . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 LENGTH . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 NOT-V-NZEROP-V-XOR-X-X . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 V-XOR . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-XOR-NZEROP=NOT-EQUAL) (IMMEDIATE-DEPENDENTS0 BV2P . V-XOR-NZEROP=NOT-EQUAL) (LEMMAS V-NZEROP . V-XOR-NZEROP=NOT-EQUAL))))) (PUT1-LST (QUOTE NOT-V-NZEROP-V-XOR-X-X) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (V-XOR-NZEROP=NOT-EQUAL) EVENT (PROVE-LEMMA NOT-V-NZEROP-V-XOR-X-X (REWRITE) (NOT (V-NZEROP (V-XOR X X))) ((ENABLE V-XOR V-NZEROP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . NOT-V-NZEROP-V-XOR-X-X) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NOT-V-NZEROP-V-XOR-X-X) (IMMEDIATE-DEPENDENTS0 V-XOR . NOT-V-NZEROP-V-XOR-X-X) (IMMEDIATE-DEPENDENTS0 V-NZEROP . NOT-V-NZEROP-V-XOR-X-X) (LEMMAS V-NZEROP . NOT-V-NZEROP-V-XOR-X-X))))) (PUT1-LST (QUOTE NOT-V-NZEROP-AS-AND-CROCK) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (BTR-OR-IS-V-NZEROP) EVENT (PROVE-LEMMA NOT-V-NZEROP-AS-AND-CROCK (REWRITE) (IMPLIES (AND (NOT (V-NZEROP (FIRSTN N A))) (NOT (V-NZEROP (RESTN N A)))) (NOT (V-NZEROP A))) ((ENABLE V-NZEROP FIRSTN RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NOT-V-NZEROP-AS-AND-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . NOT-V-NZEROP-AS-AND-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . NOT-V-NZEROP-AS-AND-CROCK) (IMMEDIATE-DEPENDENTS0 V-NZEROP . NOT-V-NZEROP-AS-AND-CROCK) (LEMMAS V-NZEROP . NOT-V-NZEROP-AS-AND-CROCK))))) (PUT1-LST (QUOTE V-NZEROP-AS-OR-CROCK) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (BTR-OR-IS-V-NZEROP) EVENT (PROVE-LEMMA V-NZEROP-AS-OR-CROCK (REWRITE) (AND (IMPLIES (V-NZEROP (FIRSTN N A)) (V-NZEROP A)) (IMPLIES (V-NZEROP (RESTN N A)) (V-NZEROP A))) ((ENABLE V-NZEROP FIRSTN RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-NZEROP-AS-OR-CROCK) (IMMEDIATE-DEPENDENTS0 RESTN . V-NZEROP-AS-OR-CROCK) (IMMEDIATE-DEPENDENTS0 FIRSTN . V-NZEROP-AS-OR-CROCK) (IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-AS-OR-CROCK) (LEMMAS V-NZEROP . V-NZEROP-AS-OR-CROCK) (LEMMAS V-NZEROP . V-NZEROP-AS-OR-CROCK))))) (PUT1-LST (QUOTE *1*V-ZEROP) (QUOTE (MAIN-EVENT V-ZEROP))) (PUT1-LST (QUOTE V-ZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ZEROP 3 NIL)) LEMMAS ((REWRITE-RULE V-ZEROP-MAKE-LIST-F NIL (EQUAL (V-ZEROP (MAKE-LIST N (QUOTE *1*FALSE))) (QUOTE *1*TRUE)) NIL)) TOTALP-LST ((V-ZEROP . T)) SDEFN (LAMBDA (X) (IF (V-NZEROP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*V-ZEROP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193939 SATELLITES (*1*V-ZEROP) IMMEDIATE-DEPENDENTS0 (ZB-CVZBV V-CVZBV C-CVZBV BV-CVZBV FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 REWRITE-EQUAL-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS ZB-V-ALU REWRITE-EQUAL-V-TO-NAT-0 V-ZEROP-IMPLIES-V-TO-NAT-0 V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-INT-BUF CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU CORE-ALU BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BOOLP-BVP-CVZBV CVZBV F$V-EQUAL=EQUAL* F$FAST-ZERO=V-ZEROP F$TV-ZEROP=V-ZEROP BTR-OR-IS-V-NZEROP V-ZEROP-MAKE-LIST-F) EVENT (DEFN V-ZEROP (X) (NOT (V-NZEROP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP . V-ZEROP) (DCELL . *1*V-ZEROP))))) (PUT1-LST (QUOTE V-NZEROP-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-NZEROP-OFF V-NZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NZEROP . V-NZEROP-OFF) (DISABLED-LEMMAS NIL V-NZEROP V-NZEROP-OFF . T))))) (PUT1-LST (QUOTE *1*V-NZEROP) (QUOTE (MAIN-EVENT V-NZEROP))) (PUT1-LST (QUOTE V-NZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((V-NZEROP 3 NIL)) LEMMAS ((REWRITE-RULE INT-DEC-RANGEP-LEMMAS ((NOT (EQUAL (LENGTH A) (QUOTE 1))) (NOT (INTEGER-IN-RANGEP (MINUS (ADD1 (NEGATIVE-GUTS (V-TO-INT A)))) (LENGTH A)))) (V-NZEROP (INT-TO-V (MINUS (ADD1 (NEGATIVE-GUTS (V-TO-INT A)))) (LENGTH A))) NIL) (REWRITE-RULE INT-DEC-RANGEP-LEMMAS ((NOT (INTEGER-IN-RANGEP (SUB1 (V-TO-INT A)) (LENGTH A)))) (V-NZEROP (INT-TO-V (SUB1 (V-TO-INT A)) (LENGTH A))) NIL) (REWRITE-RULE INT-NEG-RANGE-IMPLICATIONS ((NOT (NEGATIVEP (V-TO-INT A))) (NOT (INTEGER-IN-RANGEP (MINUS (V-TO-INT A)) (LENGTH A)))) (V-NZEROP (INT-TO-V (MINUS (V-TO-INT A)) (LENGTH A))) NIL) (REWRITE-RULE V-NZEROP-INT-TO-V-0 ((IZEROP Z)) (NOT (V-NZEROP (INT-TO-V Z L))) NIL) (REWRITE-RULE IZEROP-INC-V-NZEROP ((INTEGER-IN-RANGEP A L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (EQUAL (V-NZEROP (INT-TO-V (IPLUS (QUOTE 1) A) L)) (IF (IZEROP (IPLUS (QUOTE 1) A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-NZEROP-INT-TO-V ((INTEGER-IN-RANGEP N L) (NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (EQUAL (V-NZEROP (INT-TO-V N L)) (IF (IZEROP N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-NZEROP-NAT-TO-V ((LESSP N (EXP (QUOTE 2) L))) (EQUAL (V-NZEROP (NAT-TO-V N L)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N))) NIL) (REWRITE-RULE IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B ((BV2P A B)) (EQUAL (V-NZEROP (V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) A B)) (IF (EQUAL A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-SUM-ON-NOT-A-A ((BV2P A B)) (EQUAL (V-NZEROP (V-SUM (QUOTE *1*TRUE) A B)) (IF (EQUAL (V-NOT A) B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE V-NZEROP-NAT-TO-V-ZERO ((ZEROP Z)) (NOT (V-NZEROP (NAT-TO-V Z L))) NIL) (REWRITE-RULE V-NEGP->V-NZEROP ((V-NEGP V)) (V-NZEROP V) NIL) (REWRITE-RULE NOT-V-NZEROP-ALL-F NIL (NOT (V-NZEROP (MAKE-LIST N (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE V-XOR-NZEROP=NOT-EQUAL ((BV2P A B)) (EQUAL (V-NZEROP (V-XOR A B)) (IF (EQUAL A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE NOT-V-NZEROP-V-XOR-X-X NIL (NOT (V-NZEROP (V-XOR X X))) NIL) (REWRITE-RULE NOT-V-NZEROP-AS-AND-CROCK ((NOT (V-NZEROP (FIRSTN N A))) (NOT (V-NZEROP (RESTN N A)))) (NOT (V-NZEROP A)) NIL) (REWRITE-RULE V-NZEROP-AS-OR-CROCK ((V-NZEROP (RESTN N A))) (V-NZEROP A) NIL) (REWRITE-RULE V-NZEROP-AS-OR-CROCK ((V-NZEROP (FIRSTN N A))) (V-NZEROP A) NIL)) TOTALP-LST ((V-NZEROP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (CAR X) (QUOTE *1*TRUE) (IF (V-NZEROP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*V-NZEROP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193939 CONTROLLER-POCKETS (1) SATELLITES (*1*V-NZEROP) IMMEDIATE-DEPENDENTS0 (INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V V-NZEROP-NAT-TO-V ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS REWRITE-EQUAL-V-TO-NAT-0 V-NZEROP-NAT-TO-V-ZERO V-ZEROP-IMPLIES-V-TO-NAT-0 V-NEGP->V-NZEROP V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-NAT-LSR BTR-OR-IS-V-NZEROP NOT-V-NZEROP-ALL-F V-ZEROP-MAKE-LIST-F V-XOR-NZEROP=NOT-EQUAL NOT-V-NZEROP-V-XOR-X-X NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK V-ZEROP V-NZEROP-OFF) EVENT (DEFN V-NZEROP (X) (IF (NLISTP X) (QUOTE *1*FALSE) (OR (CAR X) (V-NZEROP (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NZEROP) (DCELL . *1*V-NZEROP))))) (PUT1-LST (QUOTE UPDATE-V-NTH-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE UPDATE-V-NTH-OFF UPDATE-V-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-V-NTH . UPDATE-V-NTH-OFF) (DISABLED-LEMMAS NIL UPDATE-V-NTH UPDATE-V-NTH-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-V-NTH) (QUOTE (MAIN-EVENT UPDATE-V-NTH))) (PUT1-LST (QUOTE UPDATE-V-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-V-NTH 16 NIL T NIL)) TOTALP-LST ((UPDATE-V-NTH . T)) SDEFN (LAMBDA (V-N LST VALUE) (UPDATE-NTH (V-TO-NAT V-N) LST VALUE)) LISP-CODE *1*UPDATE-V-NTH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193939 SATELLITES (*1*UPDATE-V-NTH) IMMEDIATE-DEPENDENTS0 (UPDATE-V-NTH-OFF) EVENT (DEFN UPDATE-V-NTH (V-N LST VALUE) (UPDATE-NTH (V-TO-NAT V-N) LST VALUE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . UPDATE-V-NTH) (IMMEDIATE-DEPENDENTS0 UPDATE-NTH . UPDATE-V-NTH) (DCELL . *1*UPDATE-V-NTH))))) (PUT1-LST (QUOTE V-NTH-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-NTH-OFF V-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NTH . V-NTH-OFF) (DISABLED-LEMMAS NIL V-NTH V-NTH-OFF . T))))) (PUT1-LST (QUOTE *1*V-NTH) (QUOTE (MAIN-EVENT V-NTH))) (PUT1-LST (QUOTE V-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((V-NTH -1 NIL NIL)) TOTALP-LST ((V-NTH . T)) SDEFN (LAMBDA (V-N LST) (NTH (V-TO-NAT V-N) LST)) LISP-CODE *1*V-NTH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193939 SATELLITES (*1*V-NTH) IMMEDIATE-DEPENDENTS0 (V-NTH-OFF) EVENT (DEFN V-NTH (V-N LST) (NTH (V-TO-NAT V-N) LST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-NTH) (IMMEDIATE-DEPENDENTS0 NTH . V-NTH) (DCELL . *1*V-NTH))))) (PUT1-LST (QUOTE ANY-OF-NAT-TO-V-0-IS-F) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU) EVENT (PROVE-LEMMA ANY-OF-NAT-TO-V-0-IS-F (REWRITE) (IMPLIES (LESSP N M) (NOT (NTH N (NAT-TO-V (QUOTE 0) M)))) ((ENABLE NTH NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . ANY-OF-NAT-TO-V-0-IS-F) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . ANY-OF-NAT-TO-V-0-IS-F) (IMMEDIATE-DEPENDENTS0 NTH . ANY-OF-NAT-TO-V-0-IS-F) (LEMMAS NTH . ANY-OF-NAT-TO-V-0-IS-F))))) (PUT1-LST (QUOTE CAR-NAT-TO-V-0-IS-F) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS) EVENT (PROVE-LEMMA CAR-NAT-TO-V-0-IS-F (REWRITE) (IMPLIES (NOT (ZEROP N)) (NOT (CAR (NAT-TO-V (QUOTE 0) N)))) ((ENABLE NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CAR-NAT-TO-V-0-IS-F) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . CAR-NAT-TO-V-0-IS-F) (LEMMAS CAR . CAR-NAT-TO-V-0-IS-F))))) (PUT1-LST (QUOTE BVP-NAT-TO-V) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY BVP-INT-TO-V FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-INC EQUAL-NAT-TO-V-INVERTER) EVENT (PROVE-LEMMA BVP-NAT-TO-V (REWRITE) (BVP (NAT-TO-V N LENGTH)) ((ENABLE BVP NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BVP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . BVP-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 BVP . BVP-NAT-TO-V) (LEMMAS BVP . BVP-NAT-TO-V))))) (PUT1-LST (QUOTE LENGTH-NAT-TO-V) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS LENGTH-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY V-TO-INT-NAT-TO-V-0 INT-TO-V-V-TO-INT-0 FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-TO-INT-V-NOT V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-INC EQUAL-NAT-TO-V-INVERTER CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-WORKS BVP-LENGTH-V-INC-V-DEC) EVENT (PROVE-LEMMA LENGTH-NAT-TO-V (REWRITE) (EQUAL (LENGTH (NAT-TO-V N LENGTH)) (FIX LENGTH)) ((ENABLE LENGTH NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LENGTH-IF . LENGTH-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . LENGTH-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-NAT-TO-V) (LEMMAS LENGTH . LENGTH-NAT-TO-V))))) (PUT1-LST (QUOTE RESTN-NAT-TO-V-0-HACK) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-DEC-PASS-CROCK-1) EVENT (PROVE-LEMMA RESTN-NAT-TO-V-0-HACK (REWRITE) (IMPLIES (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (RESTN N (NAT-TO-V (QUOTE 0) M)) (NAT-TO-V (QUOTE 0) (DIFFERENCE M N)))) ((ENABLE RESTN NAT-TO-V DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . RESTN-NAT-TO-V-0-HACK) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . RESTN-NAT-TO-V-0-HACK) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . RESTN-NAT-TO-V-0-HACK) (IMMEDIATE-DEPENDENTS0 RESTN . RESTN-NAT-TO-V-0-HACK) (LEMMAS RESTN . RESTN-NAT-TO-V-0-HACK))))) (PUT1-LST (QUOTE FIRSTN-NAT-TO-V) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-DEC-PASS-CROCK-1) EVENT (PROVE-LEMMA FIRSTN-NAT-TO-V (REWRITE) (IMPLIES (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (FIRSTN N (NAT-TO-V NAT M)) (NAT-TO-V NAT N))) ((ENABLE FIRSTN NAT-TO-V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . FIRSTN-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FIRSTN-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-V . FIRSTN-NAT-TO-V) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-NAT-TO-V) (LEMMAS FIRSTN . FIRSTN-NAT-TO-V))))) (PUT1-LST (QUOTE NAT-TO-V-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE NAT-TO-V-OFF NAT-TO-V T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-V . NAT-TO-V-OFF) (DISABLED-LEMMAS NIL NAT-TO-V NAT-TO-V-OFF . T))))) (PUT1-LST (QUOTE *1*NAT-TO-V) (QUOTE (MAIN-EVENT NAT-TO-V))) (PUT1-LST (QUOTE NAT-TO-V) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-V 24 NIL NIL)) LEMMAS ((REWRITE-RULE NAT-TO-V-OF-V-TO-NAT* ((BVP V) (EQUAL L (LENGTH V))) (EQUAL (NAT-TO-V (V-TO-NAT V) L) V) NIL) (REWRITE-RULE NAT-TO-V-AS-REMAINDER NIL (EQUAL (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) L)) L) (NAT-TO-V N L)) NIL) (REWRITE-RULE NAT-TO-V-REMAINDER NIL (EQUAL (NAT-TO-V (REMAINDER N (EXP (QUOTE 2) LEN)) LEN) (NAT-TO-V N LEN)) NIL) (REWRITE-RULE NAT-TO-V-ZEROP ((ZEROP LEN)) (EQUAL (NAT-TO-V N LEN) (QUOTE NIL)) NIL) (REWRITE-RULE NAT-TO-V-OF-V-TO-NAT ((BVP V)) (EQUAL (NAT-TO-V (V-TO-NAT V) (LENGTH V)) V) NIL) (REWRITE-RULE NAT-TO-V-OF-V-TO-NAT-GENERAL ((BVP V) (NOT (LESSP (LENGTH V) N))) (EQUAL (NAT-TO-V (V-TO-NAT V) N) (FIRSTN N V)) NIL) (REWRITE-RULE NAT-TO-V-PLUS-X-X NIL (EQUAL (NAT-TO-V (PLUS X X) (ADD1 N)) (CONS (QUOTE *1*FALSE) (NAT-TO-V X N))) NIL)) TOTALP-LST ((NAT-TO-V . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (IF (EQUAL (REMAINDER X (QUOTE 2)) (QUOTE 0)) (CONS (QUOTE *1*FALSE) (NAT-TO-V (QUOTIENT X (QUOTE 2)) (SUB1 N))) (CONS (QUOTE *1*TRUE) (NAT-TO-V (QUOTIENT X (QUOTE 2)) (SUB1 N)))) (QUOTE NIL)))) LISP-CODE *1*NAT-TO-V SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((QUOTIENT X (QUOTE 2)) (SUB1 N))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193939 CONTROLLER-POCKETS (2) SATELLITES (*1*NAT-TO-V) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT* NAT-TO-V-AS-REMAINDER V-NEG INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS NOT-V-NEGP-NAT-TO-V-0 V-TO-INT-NAT-TO-V-0 FLAGS-INTERPRETATION-NAT-DEC V-NZEROP-NAT-TO-V FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU V-NZEROP-NAT-TO-V-ZERO INT-TO-V V-ALU-NAT-NOT-OUTPUT V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-INC V-ALU-NAT-ADDER-OUTPUT EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 NAT-TO-V-REMAINDER EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 NAT-TO-V-ZEROP NAT-TO-V-OF-V-TO-NAT NAT-TO-V-OF-V-TO-NAT-GENERAL NAT-TO-V-PLUS-X-X V-TO-NAT-OF-NAT-TO-V FM9001=FM9001-INTERPRETER EXECUTE-FM9001 INT-TO-BV FM9001 TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU CVZBV-DEC CVZBV-NEG CVZBV-INC TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC A-1+1=A V-DEC V-INC ANY-OF-NAT-TO-V-0-IS-F CAR-NAT-TO-V-0-IS-F BVP-NAT-TO-V LENGTH-NAT-TO-V RESTN-NAT-TO-V-0-HACK FIRSTN-NAT-TO-V NAT-TO-V-OFF) EVENT (DEFN NAT-TO-V (X N) (IF (ZEROP N) (QUOTE NIL) (CONS (NOT (ZEROP (REMAINDER X (QUOTE 2)))) (NAT-TO-V (QUOTIENT X (QUOTE 2)) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NAT-TO-V) (DCELL . *1*NAT-TO-V))))) (PUT1-LST (QUOTE V-TO-NAT-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE V-TO-NAT-OFF V-TO-NAT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-TO-NAT . V-TO-NAT-OFF) (DISABLED-LEMMAS NIL V-TO-NAT V-TO-NAT-OFF . T))))) (PUT1-LST (QUOTE *1*V-TO-NAT) (QUOTE (MAIN-EVENT V-TO-NAT))) (PUT1-LST (QUOTE V-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-TO-NAT 4 NIL)) LEMMAS ((REWRITE-RULE V-ZEROP-IMPLIES-V-TO-NAT-0 ((V-ZEROP A)) (EQUAL (V-TO-NAT A) (QUOTE 0)) NIL) (REWRITE-RULE V-TO-NAT-APPEND ((BVP A) (BVP B)) (EQUAL (V-TO-NAT (APPEND A B)) (PLUS (V-TO-NAT A) (TIMES (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT B)))) NIL) (REWRITE-RULE V-TO-NAT-V-NOT ((BVP A)) (EQUAL (V-TO-NAT (V-NOT A)) (SUB1 (DIFFERENCE (EXP (QUOTE 2) (LENGTH A)) (V-TO-NAT A)))) NIL) (REWRITE-RULE V-TO-NAT-OF-NAT-TO-V NIL (EQUAL (V-TO-NAT (NAT-TO-V N LEN)) (REMAINDER N (EXP (QUOTE 2) LEN))) NIL) (REWRITE-RULE V-TO-NAT-FIRSTN NIL (EQUAL (V-TO-NAT (FIRSTN N V)) (REMAINDER (V-TO-NAT V) (EXP (QUOTE 2) N))) NIL) (REWRITE-RULE V-ADDER-WORKS ((BV2P X Y)) (EQUAL (V-TO-NAT (V-ADDER C X Y)) (IF C (PLUS (QUOTE 1) (PLUS (V-TO-NAT X) (V-TO-NAT Y))) (PLUS (QUOTE 0) (PLUS (V-TO-NAT X) (V-TO-NAT Y))))) NIL)) TOTALP-LST ((V-TO-NAT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED ((BVP A) (EQUAL (LENGTH A) (LENGTH B)) (NOT (EQUAL (LENGTH B) (QUOTE 0)))) (LESSP (V-TO-NAT A) (PLUS (EXP (QUOTE 2) (SUB1 (LENGTH B))) (EXP (QUOTE 2) (SUB1 (LENGTH B))))) (V-TO-NAT A))) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (V) (IF (LISTP V) (IF (CAR V) (PLUS (QUOTE 1) (TIMES (QUOTE 2) (V-TO-NAT (CDR V)))) (PLUS (QUOTE 0) (TIMES (QUOTE 2) (V-TO-NAT (CDR V))))) (QUOTE 0))) LISP-CODE *1*V-TO-NAT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP V)) NIL) (TESTS-AND-CASES ((NOT (NLISTP V))) (((CDR V))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (V) (COUNT V) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193939 CONTROLLER-POCKETS (1) SATELLITES (*1*V-TO-NAT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT* IMOD-V-TO-INT-2 V-NEGP-AS-BOUNDS V-TO-NAT-LESSP-EXP-2-LENGTH FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR LESSP-V-TO-NAT-EXP-2-LENGTH-A FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE REWRITE-EQUAL-V-TO-NAT-0 V-TO-NAT-EQUAL V-ZEROP-IMPLIES-V-TO-NAT-0 V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED V-TO-INT V-ALU-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-CARRY-OUT V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-SUBTRACTER-CARRY-OUT V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 NAT-TO-V-OF-V-TO-NAT NAT-TO-V-OF-V-TO-NAT-GENERAL V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN NTH-LENGTH-V N_V11111 N_RESET2 N_RESET1 N_RESET0 N_V11011 N_V11010 N_HOLD1 N_HOLD0 N_SEFB1 N_SEFB0 N_SEFA1 N_SEFA0 N_WRITE3 N_WRITE2 N_WRITE1 N_WRITE0 N_READB3 N_READB2 N_READB1 N_READB0 N_READA3 N_READA2 N_READA1 N_READA0 N_UPDATE N_REGB N_REGA N_DECODE N_FETCH3 N_FETCH2 N_FETCH1 N_FETCH0 V-TO-0S-THROUGH-FS V-TO-NAT-ALL BV-TO-INT TREE-NUMBER V-ADDER-WORKS UPDATE-V-NTH V-NTH V-TO-NAT-OFF) EVENT (DEFN V-TO-NAT (V) (IF (NLISTP V) (QUOTE 0) (PLUS (IF (CAR V) (QUOTE 1) (QUOTE 0)) (TIMES (QUOTE 2) (V-TO-NAT (CDR V)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-TO-NAT) (DCELL . *1*V-TO-NAT))))) (PUT1-LST (QUOTE V-OR-MAKE-LIST-F) (QUOTE (IDATE 1000402193939 EVENT (PROVE-LEMMA V-OR-MAKE-LIST-F (REWRITE) (IMPLIES (AND (BVP A) (EQUAL (LENGTH A) N)) (EQUAL (V-OR (MAKE-LIST N (QUOTE *1*FALSE)) A) A)) ((ENABLE LENGTH MAKE-LIST V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 BOOLP . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 B-OR . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 V-OR . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 LENGTH . V-OR-MAKE-LIST-F) (IMMEDIATE-DEPENDENTS0 BVP . V-OR-MAKE-LIST-F) (LEMMAS V-OR . V-OR-MAKE-LIST-F))))) (PUT1-LST (QUOTE V-NOT-INVERTS-ALL) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU) EVENT (PROVE-LEMMA V-NOT-INVERTS-ALL (REWRITE) (IMPLIES (LESSP N (LENGTH BVP)) (EQUAL (NTH N (V-NOT BVP)) (B-NOT (NTH N BVP)))) ((ENABLE NTH V-NOT LENGTH BOOLFIX SHOW-THAT-NTH=T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 BVP-CONS . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 SHOW-THAT-NTH=T . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 BOOLP-NTH . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 LENGTH-V-NOT . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 BVP-V-NOT . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 NTH . V-NOT-INVERTS-ALL) (IMMEDIATE-DEPENDENTS0 LENGTH . V-NOT-INVERTS-ALL) (LEMMAS NTH . V-NOT-INVERTS-ALL))))) (PUT1-LST (QUOTE RESTN-V-NOT-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE RESTN-V-NOT-OFF RESTN-V-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESTN-V-NOT . RESTN-V-NOT-OFF) (DISABLED-LEMMAS NIL RESTN-V-NOT RESTN-V-NOT-OFF . T))))) (PUT1-LST (QUOTE RESTN-V-NOT) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-DEC-PASS-CROCK-1 RESTN-V-NOT-OFF) EVENT (PROVE-LEMMA RESTN-V-NOT (REWRITE) (EQUAL (RESTN N (V-NOT L)) (V-NOT (RESTN N L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT-RESTN . RESTN-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . RESTN-V-NOT) (IMMEDIATE-DEPENDENTS0 RESTN . RESTN-V-NOT) (LEMMAS RESTN . RESTN-V-NOT))))) (PUT1-LST (QUOTE FIRSTN-V-NOT-OFF) (QUOTE (IDATE 1000402193939 EVENT (TOGGLE FIRSTN-V-NOT-OFF FIRSTN-V-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN-V-NOT . FIRSTN-V-NOT-OFF) (DISABLED-LEMMAS NIL FIRSTN-V-NOT FIRSTN-V-NOT-OFF . T))))) (PUT1-LST (QUOTE FIRSTN-V-NOT) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-DEC-PASS-CROCK-1 FIRSTN-V-NOT-OFF) EVENT (PROVE-LEMMA FIRSTN-V-NOT (REWRITE) (EQUAL (FIRSTN N (V-NOT L)) (V-NOT (FIRSTN N L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT-FIRSTN . FIRSTN-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . FIRSTN-V-NOT) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-V-NOT) (LEMMAS FIRSTN . FIRSTN-V-NOT))))) (PUT1-LST (QUOTE V-NOT-RESTN) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-NOT-WORKS RESTN-V-NOT) EVENT (PROVE-LEMMA V-NOT-RESTN (REWRITE) (EQUAL (V-NOT (RESTN N L)) (RESTN N (V-NOT L))) ((ENABLE FIRSTN RESTN V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 PROPERP . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 TOO-MANY-RESTNS . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . V-NOT-RESTN) (IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-RESTN) (LEMMAS V-NOT . V-NOT-RESTN))))) (PUT1-LST (QUOTE V-NOT-FIRSTN) (QUOTE (IDATE 1000402193939 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-NOT-WORKS FIRSTN-V-NOT) EVENT (PROVE-LEMMA V-NOT-FIRSTN (REWRITE) (EQUAL (V-NOT (FIRSTN N L)) (FIRSTN N (V-NOT L))) ((ENABLE FIRSTN RESTN V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . V-NOT-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . V-NOT-FIRSTN) (IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-FIRSTN) (LEMMAS V-NOT . V-NOT-FIRSTN))))) (PUT1-LST (QUOTE V-IF-C-CONGRUENCE) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA V-IF-C-CONGRUENCE (REWRITE) (IMPLIES C (EQUAL (EQUAL (V-IF C A B) (V-IF (QUOTE *1*TRUE) A B)) (QUOTE *1*TRUE))) ((ENABLE V-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IF-C-CONGRUENCE) (IMMEDIATE-DEPENDENTS0 V-IF . V-IF-C-CONGRUENCE) (LEMMAS EQUAL . V-IF-C-CONGRUENCE))))) (PUT1-LST (QUOTE V-IF-APPEND-HELP) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA V-IF-APPEND-HELP (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (APPEND (V-IF C A B) (V-IF C D E)) (V-IF C (APPEND A D) (APPEND B E)))) ((ENABLE APPEND LENGTH V-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-IF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-IF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-IF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-IF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-IF . V-IF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-IF-APPEND-HELP) (LEMMAS APPEND . V-IF-APPEND-HELP))))) (PUT1-LST (QUOTE V-BUF-APPEND-HELP) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA V-BUF-APPEND-HELP (REWRITE) (EQUAL (APPEND (V-BUF A) (V-BUF B)) (V-BUF (APPEND A B))) ((ENABLE APPEND LENGTH V-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF . V-BUF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-BUF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-BUF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-BUF-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-BUF . V-BUF-APPEND-HELP) (LEMMAS APPEND . V-BUF-APPEND-HELP))))) (PUT1-LST (QUOTE V-NOT-APPEND-HELP) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA V-NOT-APPEND-HELP (REWRITE) (EQUAL (APPEND (V-NOT A) (V-NOT B)) (V-NOT (APPEND A B))) ((ENABLE APPEND LENGTH V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-NOT-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-NOT-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NOT-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-APPEND-HELP) (LEMMAS APPEND . V-NOT-APPEND-HELP))))) (PUT1-LST (QUOTE V-XOR-APPEND-HELP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-V-XOR-WORKS) EVENT (PROVE-LEMMA V-XOR-APPEND-HELP (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (APPEND (V-XOR A B) (V-XOR D E)) (V-XOR (APPEND A D) (APPEND B E)))) ((ENABLE APPEND LENGTH V-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-XOR . V-XOR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-XOR-APPEND-HELP) (LEMMAS APPEND . V-XOR-APPEND-HELP))))) (PUT1-LST (QUOTE V-OR-APPEND-HELP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-V-OR-WORKS) EVENT (PROVE-LEMMA V-OR-APPEND-HELP (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (APPEND (V-OR A B) (V-OR D E)) (V-OR (APPEND A D) (APPEND B E)))) ((ENABLE APPEND LENGTH V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 B-OR . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-OR . V-OR-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-OR-APPEND-HELP) (LEMMAS APPEND . V-OR-APPEND-HELP))))) (PUT1-LST (QUOTE V-AND-APPEND-HELP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-V-AND-WORKS) EVENT (PROVE-LEMMA V-AND-APPEND-HELP (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (APPEND (V-AND A B) (V-AND D E)) (V-AND (APPEND A D) (APPEND B E)))) ((ENABLE APPEND LENGTH V-AND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 B-AND . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 V-AND . V-AND-APPEND-HELP) (IMMEDIATE-DEPENDENTS0 LENGTH . V-AND-APPEND-HELP) (LEMMAS APPEND . V-AND-APPEND-HELP))))) (PUT1-LST (QUOTE LENGTH-V-IF) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-CV LENGTH-SHIFT-OR-BUF) EVENT (PROVE-LEMMA LENGTH-V-IF (REWRITE) (EQUAL (LENGTH (V-IF C A B)) (LENGTH A)) ((ENABLE LENGTH V-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-IF) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-IF) (IMMEDIATE-DEPENDENTS0 V-IF . LENGTH-V-IF) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-IF) (LEMMAS LENGTH . LENGTH-V-IF))))) (PUT1-LST (QUOTE LENGTH-V-ROR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA LENGTH-V-ROR (REWRITE) (EQUAL (LENGTH (V-ROR A B)) (LENGTH A)) ((ENABLE LENGTH V-ROR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . LENGTH-V-ROR) (IMMEDIATE-DEPENDENTS0 V-ROR . LENGTH-V-ROR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-ROR) (LEMMAS LENGTH . LENGTH-V-ROR))))) (PUT1-LST (QUOTE LENGTH-V-ASR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA LENGTH-V-ASR (REWRITE) (EQUAL (LENGTH (V-ASR A)) (LENGTH A)) ((ENABLE LENGTH V-ASR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . LENGTH-V-ASR) (IMMEDIATE-DEPENDENTS0 V-ASR . LENGTH-V-ASR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-ASR) (LEMMAS LENGTH . LENGTH-V-ASR))))) (PUT1-LST (QUOTE LENGTH-V-LSR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA LENGTH-V-LSR (REWRITE) (EQUAL (LENGTH (V-LSR A)) (LENGTH A)) ((ENABLE LENGTH V-LSR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-SHIFT-RIGHT . LENGTH-V-LSR) (IMMEDIATE-DEPENDENTS0 V-LSR . LENGTH-V-LSR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-LSR) (LEMMAS LENGTH . LENGTH-V-LSR))))) (PUT1-LST (QUOTE LENGTH-V-SHIFT-RIGHT) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF LENGTH-V-ALU LENGTH-V-ROR LENGTH-V-ASR LENGTH-V-LSR) EVENT (PROVE-LEMMA LENGTH-V-SHIFT-RIGHT (REWRITE) (EQUAL (LENGTH (V-SHIFT-RIGHT A B)) (LENGTH A)) ((ENABLE LENGTH V-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-V-BUF . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-APPEND . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BOOLFIX . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . LENGTH-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-SHIFT-RIGHT) (LEMMAS LENGTH . LENGTH-V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE LENGTH-V-XOR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (LENGTH-V-ALU F$V-EQUAL=EQUAL*) EVENT (PROVE-LEMMA LENGTH-V-XOR (REWRITE) (EQUAL (LENGTH (V-XOR A B)) (LENGTH A)) ((ENABLE LENGTH V-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . LENGTH-V-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-XOR) (IMMEDIATE-DEPENDENTS0 V-XOR . LENGTH-V-XOR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-XOR) (LEMMAS LENGTH . LENGTH-V-XOR))))) (PUT1-LST (QUOTE LENGTH-V-OR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE LENGTH-V-ALU) EVENT (PROVE-LEMMA LENGTH-V-OR (REWRITE) (EQUAL (LENGTH (V-OR A B)) (LENGTH A)) ((ENABLE LENGTH V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . LENGTH-V-OR) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-OR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-OR) (IMMEDIATE-DEPENDENTS0 V-OR . LENGTH-V-OR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-OR) (LEMMAS LENGTH . LENGTH-V-OR))))) (PUT1-LST (QUOTE LENGTH-V-AND) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (LENGTH-V-ALU) EVENT (PROVE-LEMMA LENGTH-V-AND (REWRITE) (EQUAL (LENGTH (V-AND A B)) (LENGTH A)) ((ENABLE LENGTH V-AND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . LENGTH-V-AND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-AND) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-AND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-AND) (IMMEDIATE-DEPENDENTS0 V-AND . LENGTH-V-AND) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-AND) (LEMMAS LENGTH . LENGTH-V-AND))))) (PUT1-LST (QUOTE LENGTH-V-NOT) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A ZB-V-ALU V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-WORKS BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-SUBTRACTER-OUTPUT V-NOT-INVERTS-ALL) EVENT (PROVE-LEMMA LENGTH-V-NOT (REWRITE) (EQUAL (LENGTH (V-NOT A)) (LENGTH A)) ((ENABLE LENGTH V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . LENGTH-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . LENGTH-V-NOT) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-NOT) (LEMMAS LENGTH . LENGTH-V-NOT))))) (PUT1-LST (QUOTE LENGTH-V-BUF) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (LENGTH-V-ALU LENGTH-V-SHIFT-RIGHT) EVENT (PROVE-LEMMA LENGTH-V-BUF (REWRITE) (EQUAL (LENGTH (V-BUF A)) (LENGTH A)) ((ENABLE LENGTH V-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF . LENGTH-V-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-V-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-V-BUF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-V-BUF) (IMMEDIATE-DEPENDENTS0 V-BUF . LENGTH-V-BUF) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-V-BUF) (LEMMAS LENGTH . LENGTH-V-BUF))))) (PUT1-LST (QUOTE BVP-V-IF) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (BVP-LENGTH-CV BVP-SHIFT-OR-BUF) EVENT (PROVE-LEMMA BVP-V-IF (REWRITE) (BVP (V-IF C A B)) ((ENABLE V-IF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-V-IF) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-IF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-IF) (IMMEDIATE-DEPENDENTS0 V-IF . BVP-V-IF) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-IF) (LEMMAS BVP . BVP-V-IF))))) (PUT1-LST (QUOTE BVP-V-ROR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BVP-V-ROR (REWRITE) (BVP (V-ROR A C)) ((ENABLE V-ROR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . BVP-V-ROR) (IMMEDIATE-DEPENDENTS0 V-ROR . BVP-V-ROR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-ROR) (LEMMAS BVP . BVP-V-ROR))))) (PUT1-LST (QUOTE BVP-V-ASR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BVP-V-ASR (REWRITE) (BVP (V-ASR A)) ((ENABLE V-ASR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . BVP-V-ASR) (IMMEDIATE-DEPENDENTS0 V-ASR . BVP-V-ASR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-ASR) (LEMMAS BVP . BVP-V-ASR))))) (PUT1-LST (QUOTE BVP-V-LSR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BVP-V-LSR (REWRITE) (BVP (V-LSR A)) ((ENABLE V-LSR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-V-SHIFT-RIGHT . BVP-V-LSR) (IMMEDIATE-DEPENDENTS0 V-LSR . BVP-V-LSR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-LSR) (LEMMAS BVP . BVP-V-LSR))))) (PUT1-LST (QUOTE BVP-V-SHIFT-RIGHT) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-BV-V-ALU BVP-V-ROR BVP-V-ASR BVP-V-LSR) EVENT (PROVE-LEMMA BVP-V-SHIFT-RIGHT (REWRITE) (BVP (V-SHIFT-RIGHT A SI)) ((ENABLE V-SHIFT-RIGHT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-APPEND . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-V-BUF . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . BVP-V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-SHIFT-RIGHT) (LEMMAS BVP . BVP-V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE BVP-V-XOR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BVP-BV-V-ALU F$V-EQUAL=EQUAL*) EVENT (PROVE-LEMMA BVP-V-XOR (REWRITE) (BVP (V-XOR A B)) ((ENABLE V-XOR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . BVP-V-XOR) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-XOR) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-XOR) (IMMEDIATE-DEPENDENTS0 V-XOR . BVP-V-XOR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-XOR) (LEMMAS BVP . BVP-V-XOR))))) (PUT1-LST (QUOTE BVP-V-OR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$NEXT-CNTL-STATE=NEXT-CNTL-STATE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BVP-BV-V-ALU) EVENT (PROVE-LEMMA BVP-V-OR (REWRITE) (BVP (V-OR A B)) ((ENABLE V-OR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BVP-V-OR) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-OR) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-OR) (IMMEDIATE-DEPENDENTS0 V-OR . BVP-V-OR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-OR) (LEMMAS BVP . BVP-V-OR))))) (PUT1-LST (QUOTE BVP-V-AND) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BVP-BV-V-ALU) EVENT (PROVE-LEMMA BVP-V-AND (REWRITE) (BVP (V-AND A B)) ((ENABLE V-AND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . BVP-V-AND) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-AND) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-AND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-AND) (IMMEDIATE-DEPENDENTS0 V-AND . BVP-V-AND) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-AND) (LEMMAS BVP . BVP-V-AND))))) (PUT1-LST (QUOTE BVP-V-NOT) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A ZB-V-ALU V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BVP-BV-V-ALU V-NOT-INVERTS-ALL) EVENT (PROVE-LEMMA BVP-V-NOT (REWRITE) (BVP (V-NOT A)) ((ENABLE V-NOT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BVP-V-NOT) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-NOT) (IMMEDIATE-DEPENDENTS0 V-NOT . BVP-V-NOT) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-NOT) (LEMMAS BVP . BVP-V-NOT))))) (PUT1-LST (QUOTE BVP-V-BUF) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT BVP-V-SHIFT-RIGHT) EVENT (PROVE-LEMMA BVP-V-BUF (REWRITE) (BVP (V-BUF A)) ((ENABLE V-BUF))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF . BVP-V-BUF) (IMMEDIATE-DEPENDENTS0 PROVE-BOOLP . BVP-V-BUF) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-V-BUF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-V-BUF) (IMMEDIATE-DEPENDENTS0 V-BUF . BVP-V-BUF) (IMMEDIATE-DEPENDENTS0 BVP . BVP-V-BUF) (LEMMAS BVP . BVP-V-BUF))))) (PUT1-LST (QUOTE V-IF-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-IF-OFF V-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-IF . V-IF-OFF) (DISABLED-LEMMAS NIL V-IF V-IF-OFF . T))))) (PUT1-LST (QUOTE *1*V-IF) (QUOTE (MAIN-EVENT V-IF))) (PUT1-LST (QUOTE V-IF) (QUOTE (TYPE-PRESCRIPTION-LST ((V-IF 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-IF-WORKS ((BV2P X Y)) (EQUAL (V-IF C X Y) (IF C X Y)) NIL)) TOTALP-LST ((V-IF . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (C A B) (IF (LISTP A) (IF C (IF (CAR A) (CONS (QUOTE *1*TRUE) (V-IF C (CDR A) (CDR B))) (CONS (QUOTE *1*FALSE) (V-IF C (CDR A) (CDR B)))) (IF (CAR B) (CONS (QUOTE *1*TRUE) (V-IF (QUOTE *1*FALSE) (CDR A) (CDR B))) (CONS (QUOTE *1*FALSE) (V-IF (QUOTE *1*FALSE) (CDR A) (CDR B))))) (QUOTE NIL))) LISP-CODE *1*V-IF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP A)) NIL) (TESTS-AND-CASES ((NOT (NLISTP A))) ((C (CDR A) (CDR B))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (2) SATELLITES (*1*V-IF) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE CV F$SELECT-OP-CODE-SELECTS SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF V-IF-WORKS V-IF-C-CONGRUENCE V-IF-APPEND-HELP LENGTH-V-IF BVP-V-IF V-IF-OFF) EVENT (DEFN V-IF (C A B) (IF (NLISTP A) (QUOTE NIL) (CONS (IF (IF C (CAR A) (CAR B)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (V-IF C (CDR A) (CDR B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-IF) (DCELL . *1*V-IF))))) (PUT1-LST (QUOTE *1*V-ASR) (QUOTE (MAIN-EVENT V-ASR))) (PUT1-LST (QUOTE V-ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ASR 24 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-INT-ASR-OUTPUT ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-ASR A) (V-ALU-INT-ASR-OUTPUT A)) NIL)) TOTALP-LST ((V-ASR . T)) SDEFN (LAMBDA (A) (V-SHIFT-RIGHT A (NTH (SUB1 (LENGTH A)) A))) LISP-CODE *1*V-ASR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*V-ASR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU FLAGS-INTERPRETATION-INT-ASR-OVERFLOW ZB-V-ALU V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES SHIFT-OR-BUF-IS-ASR UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-ASR LENGTH-V-ASR BVP-V-ASR) EVENT (DEFN V-ASR (A) (V-SHIFT-RIGHT A (NTH (SUB1 (LENGTH A)) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . V-ASR) (IMMEDIATE-DEPENDENTS0 NTH . V-ASR) (IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-ASR) (DCELL . *1*V-ASR))))) (PUT1-LST (QUOTE *1*V-ROR) (QUOTE (MAIN-EVENT V-ROR))) (PUT1-LST (QUOTE V-ROR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-ROR 24 NIL NIL)) TOTALP-LST ((V-ROR . T)) SDEFN (LAMBDA (A SI) (V-SHIFT-RIGHT A SI)) LISP-CODE *1*V-ROR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*V-ROR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU FLAGS-INTERPRETATION-ROR ZB-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES SHIFT-OR-BUF-IS-ROR UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-ROR LENGTH-V-ROR BVP-V-ROR) EVENT (DEFN V-ROR (A SI) (V-SHIFT-RIGHT A SI)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-ROR) (DCELL . *1*V-ROR))))) (PUT1-LST (QUOTE *1*V-LSR) (QUOTE (MAIN-EVENT V-LSR))) (PUT1-LST (QUOTE V-LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-LSR 24 NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-LSR-OUTPUT ((BVP A)) (EQUAL (V-LSR A) (V-ALU-NAT-LSR-OUTPUT A)) NIL)) TOTALP-LST ((V-LSR . T)) SDEFN (LAMBDA (A) (V-SHIFT-RIGHT A (QUOTE *1*FALSE))) LISP-CODE *1*V-LSR SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*V-LSR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU ZB-V-ALU V-ALU-CORRECT-NAT-LSR-OUTPUT CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES SHIFT-OR-BUF-IS-LSR UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-V-LSR LENGTH-V-LSR BVP-V-LSR) EVENT (DEFN V-LSR (A) (V-SHIFT-RIGHT A (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-LSR) (DCELL . *1*V-LSR))))) (PUT1-LST (QUOTE V-SHIFT-RIGHT-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-SHIFT-RIGHT-OFF V-SHIFT-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-SHIFT-RIGHT . V-SHIFT-RIGHT-OFF) (DISABLED-LEMMAS NIL V-SHIFT-RIGHT V-SHIFT-RIGHT-OFF . T))))) (PUT1-LST (QUOTE *1*V-SHIFT-RIGHT) (QUOTE (MAIN-EVENT V-SHIFT-RIGHT))) (PUT1-LST (QUOTE V-SHIFT-RIGHT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-SHIFT-RIGHT 24 NIL NIL)) TOTALP-LST ((V-SHIFT-RIGHT . T)) SDEFN (LAMBDA (A SI) (IF (LISTP A) (APPEND (V-BUF (CDR A)) (CONS (BOOLFIX SI) (QUOTE NIL))) (QUOTE NIL))) LISP-CODE *1*V-SHIFT-RIGHT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*V-SHIFT-RIGHT) IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF BVP-BV-V-ALU FV-SHIFT-RIGHT=V-SHIFT-RIGHT LENGTH-V-SHIFT-RIGHT BVP-V-SHIFT-RIGHT V-ASR V-ROR V-LSR V-SHIFT-RIGHT-OFF) EVENT (DEFN V-SHIFT-RIGHT (A SI) (IF (NLISTP A) (QUOTE NIL) (APPEND (V-BUF (CDR A)) (CONS (BOOLFIX SI) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLFIX . V-SHIFT-RIGHT) (IMMEDIATE-DEPENDENTS0 V-BUF . V-SHIFT-RIGHT) (DCELL . *1*V-SHIFT-RIGHT))))) (PUT1-LST (QUOTE V-XOR-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-XOR-OFF V-XOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-XOR . V-XOR-OFF) (DISABLED-LEMMAS NIL V-XOR V-XOR-OFF . T))))) (PUT1-LST (QUOTE *1*V-XOR) (QUOTE (MAIN-EVENT V-XOR))) (PUT1-LST (QUOTE V-XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-XOR 24 NIL NIL)) TOTALP-LST ((V-XOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (B-XOR (CAR X) (CAR Y)) (V-XOR (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*V-XOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*V-XOR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU TV-ALU-HELP-V-XOR-WORKS V-ALU FV-XOR=V-XOR V-XOR-NZEROP=NOT-EQUAL NOT-V-NZEROP-V-XOR-X-X V-XOR-APPEND-HELP LENGTH-V-XOR BVP-V-XOR V-XOR-OFF) EVENT (DEFN V-XOR (X Y) (IF (NLISTP X) (QUOTE NIL) (CONS (B-XOR (CAR X) (CAR Y)) (V-XOR (CDR X) (CDR Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . V-XOR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-XOR) (DCELL . *1*V-XOR))))) (PUT1-LST (QUOTE V-OR-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-OR-OFF V-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-OR . V-OR-OFF) (DISABLED-LEMMAS NIL V-OR V-OR-OFF . T))))) (PUT1-LST (QUOTE *1*V-OR) (QUOTE (MAIN-EVENT V-OR))) (PUT1-LST (QUOTE V-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((V-OR 24 NIL NIL)) LEMMAS ((REWRITE-RULE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE ((EQUAL (LENGTH STATE) (QUOTE 5)) (BVP STATE)) (EQUAL (V-OR (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)) STATE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) NIL) (REWRITE-RULE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE ((EQUAL (LENGTH STATE) (QUOTE 5)) (BVP STATE)) (EQUAL (V-OR (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)) STATE) STATE) NIL) (REWRITE-RULE V-OR-MAKE-LIST-F ((BVP A) (EQUAL (LENGTH A) N)) (EQUAL (V-OR (MAKE-LIST N (QUOTE *1*FALSE)) A) A) NIL)) TOTALP-LST ((V-OR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (B-OR (CAR X) (CAR Y)) (V-OR (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*V-OR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*V-OR) IMMEDIATE-DEPENDENTS0 (BV-V-ALU V-OR-CROCK-FOR-F$NEXT-CNTL-STATE TV-ALU-HELP-V-OR-WORKS V-ALU FV-OR=V-OR V-OR-MAKE-LIST-F V-OR-APPEND-HELP LENGTH-V-OR BVP-V-OR V-OR-OFF) EVENT (DEFN V-OR (X Y) (IF (NLISTP X) (QUOTE NIL) (CONS (B-OR (CAR X) (CAR Y)) (V-OR (CDR X) (CDR Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . V-OR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-OR) (DCELL . *1*V-OR))))) (PUT1-LST (QUOTE V-AND-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-AND-OFF V-AND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-AND . V-AND-OFF) (DISABLED-LEMMAS NIL V-AND V-AND-OFF . T))))) (PUT1-LST (QUOTE *1*V-AND) (QUOTE (MAIN-EVENT V-AND))) (PUT1-LST (QUOTE V-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((V-AND 24 NIL NIL)) TOTALP-LST ((V-AND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (B-AND (CAR X) (CAR Y)) (V-AND (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*V-AND SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*V-AND) IMMEDIATE-DEPENDENTS0 (BV-V-ALU TV-ALU-HELP-V-AND-WORKS V-ALU V-AND-APPEND-HELP LENGTH-V-AND BVP-V-AND V-AND-OFF) EVENT (DEFN V-AND (X Y) (IF (NLISTP X) (QUOTE NIL) (CONS (B-AND (CAR X) (CAR Y)) (V-AND (CDR X) (CDR Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . V-AND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-AND) (DCELL . *1*V-AND))))) (PUT1-LST (QUOTE V-NOT-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-NOT-OFF V-NOT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-NOT . V-NOT-OFF) (DISABLED-LEMMAS NIL V-NOT V-NOT-OFF . T))))) (PUT1-LST (QUOTE *1*V-NOT) (QUOTE (MAIN-EVENT V-NOT))) (PUT1-LST (QUOTE V-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((V-NOT 24 NIL)) LEMMAS ((REWRITE-RULE V-NOT-V-NOT ((BVP A)) (EQUAL (V-NOT (V-NOT A)) A) NIL) (REWRITE-RULE V-ALU-CORRECT-INT-NOT-OUTPUT ((BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (V-NOT A) (V-ALU-INT-NOT-OUTPUT A)) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-NOT-OUTPUT ((BVP A)) (EQUAL (V-NOT A) (V-ALU-NAT-NOT-OUTPUT A)) NIL) (REWRITE-RULE V-NOT-RESTN NIL (EQUAL (V-NOT (RESTN N L)) (RESTN N (V-NOT L))) NIL) (REWRITE-RULE V-NOT-FIRSTN NIL (EQUAL (V-NOT (FIRSTN N L)) (FIRSTN N (V-NOT L))) NIL)) TOTALP-LST ((V-NOT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (CONS (B-NOT (CAR X)) (V-NOT (CDR X))) (QUOTE NIL))) LISP-CODE *1*V-NOT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*V-NOT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC V-SUM-ON-NOT-A-A ZB-V-ALU V-NOT-V-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA BV-TO-INT TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-NOT-WORKS BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 CVZBV-V-NOT TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 A-1+1=A V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OUTPUT V-NOT-INVERTS-ALL RESTN-V-NOT FIRSTN-V-NOT V-NOT-RESTN V-NOT-FIRSTN V-NOT-APPEND-HELP LENGTH-V-NOT BVP-V-NOT V-NOT-OFF) EVENT (DEFN V-NOT (X) (IF (NLISTP X) (QUOTE NIL) (CONS (B-NOT (CAR X)) (V-NOT (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . V-NOT) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-NOT) (DCELL . *1*V-NOT))))) (PUT1-LST (QUOTE V-BUF-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE V-BUF-OFF V-BUF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 V-BUF . V-BUF-OFF) (DISABLED-LEMMAS NIL V-BUF V-BUF-OFF . T))))) (PUT1-LST (QUOTE *1*V-BUF) (QUOTE (MAIN-EVENT V-BUF))) (PUT1-LST (QUOTE V-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((V-BUF 24 NIL)) LEMMAS ((REWRITE-RULE V-BUF-WORKS ((BVP X)) (EQUAL (V-BUF X) X) NIL)) TOTALP-LST ((V-BUF . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (CONS (B-BUF (CAR X)) (V-BUF (CDR X))) (QUOTE NIL))) LISP-CODE *1*V-BUF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*V-BUF) IMMEDIATE-DEPENDENTS0 (BV-V-ALU V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-NAT-INT-BUF TV-ALU-HELP-V-BUF-WORKS V-ALU TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 TV-DEC-PASS-WORKS V-BUF-WORKS V-BUF-APPEND-HELP LENGTH-V-BUF BVP-V-BUF V-SHIFT-RIGHT V-BUF-OFF) EVENT (DEFN V-BUF (X) (IF (NLISTP X) (QUOTE NIL) (CONS (B-BUF (CAR X)) (V-BUF (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF . V-BUF) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . V-BUF) (DCELL . *1*V-BUF))))) (PUT1-LST (QUOTE *1*VDD) (QUOTE (MAIN-EVENT VDD))) (PUT1-LST (QUOTE VDD) (QUOTE (TYPE-PRESCRIPTION-LST ((VDD 2)) TOTALP-LST ((VDD . T)) SDEFN (LAMBDA NIL (QUOTE *1*TRUE)) LISP-CODE *1*VDD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*VDD) EVENT (DEFN VDD NIL (QUOTE *1*TRUE)) LOCAL-UNDO-TUPLES ((DCELL . *1*VDD))))) (PUT1-LST (QUOTE *1*VSS) (QUOTE (MAIN-EVENT VSS))) (PUT1-LST (QUOTE VSS) (QUOTE (TYPE-PRESCRIPTION-LST ((VSS 1)) TOTALP-LST ((VSS . T)) SDEFN (LAMBDA NIL (QUOTE *1*FALSE)) LISP-CODE *1*VSS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*VSS) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE F$NEXT-STATE NEXT-STATE) EVENT (DEFN VSS NIL (QUOTE *1*FALSE)) LOCAL-UNDO-TUPLES ((DCELL . *1*VSS))))) (PUT1-LST (QUOTE *1*AO7) (QUOTE (MAIN-EVENT AO7))) (PUT1-LST (QUOTE AO7) (QUOTE (TYPE-PRESCRIPTION-LST ((AO7 3 NIL NIL NIL)) TOTALP-LST ((AO7 . T)) SDEFN (LAMBDA (A B C) (B-NAND (B-OR A B) C)) LISP-CODE *1*AO7 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*AO7) EVENT (DEFN AO7 (A B C) (B-NAND (B-OR A B) C)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . AO7) (IMMEDIATE-DEPENDENTS0 B-NAND . AO7) (DCELL . *1*AO7))))) (PUT1-LST (QUOTE *1*AO6) (QUOTE (MAIN-EVENT AO6))) (PUT1-LST (QUOTE AO6) (QUOTE (TYPE-PRESCRIPTION-LST ((AO6 3 NIL NIL NIL)) TOTALP-LST ((AO6 . T)) SDEFN (LAMBDA (A B C) (B-NOR (B-AND A B) C)) LISP-CODE *1*AO6 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*AO6) IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-CROCK-1 T-CARRY-P-G-CARRY GENERATE-APPEND T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY T-CARRY) EVENT (DEFN AO6 (A B C) (B-NOR (B-AND A B) C)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . AO6) (IMMEDIATE-DEPENDENTS0 B-NOR . AO6) (DCELL . *1*AO6))))) (PUT1-LST (QUOTE *1*AO4) (QUOTE (MAIN-EVENT AO4))) (PUT1-LST (QUOTE AO4) (QUOTE (TYPE-PRESCRIPTION-LST ((AO4 3 NIL NIL NIL NIL)) TOTALP-LST ((AO4 . T)) SDEFN (LAMBDA (A B C D) (B-NAND (B-OR A B) (B-OR C D))) LISP-CODE *1*AO4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*AO4) EVENT (DEFN AO4 (A B C D) (B-NAND (B-OR A B) (B-OR C D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . AO4) (IMMEDIATE-DEPENDENTS0 B-NAND . AO4) (DCELL . *1*AO4))))) (PUT1-LST (QUOTE *1*AO2) (QUOTE (MAIN-EVENT AO2))) (PUT1-LST (QUOTE AO2) (QUOTE (TYPE-PRESCRIPTION-LST ((AO2 3 NIL NIL NIL NIL)) TOTALP-LST ((AO2 . T)) SDEFN (LAMBDA (A B C D) (B-NOR (B-AND A B) (B-AND C D))) LISP-CODE *1*AO2 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*AO2) IMMEDIATE-DEPENDENTS0 (F$STORE-RESULTP-MUX=STORE-RESULTP-MUX STORE-RESULTP-MUX) EVENT (DEFN AO2 (A B C D) (B-NOR (B-AND A B) (B-AND C D))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . AO2) (IMMEDIATE-DEPENDENTS0 B-NOR . AO2) (DCELL . *1*AO2))))) (PUT1-LST (QUOTE *1*ID) (QUOTE (MAIN-EVENT ID))) (PUT1-LST (QUOTE ID) (QUOTE (TYPE-PRESCRIPTION-LST ((ID 0 T)) TOTALP-LST ((ID . T)) SDEFN (LAMBDA (X) X) LISP-CODE *1*ID SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*ID) IMMEDIATE-DEPENDENTS0 (F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE F$CONTROL-LET F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE F$DECODE-REG-MODE) EVENT (DEFN ID (X) X) LOCAL-UNDO-TUPLES ((DCELL . *1*ID))))) (PUT1-LST (QUOTE BOOLP-B-GATES-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE BOOLP-B-GATES-OFF BOOLP-B-GATES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-B-GATES . BOOLP-B-GATES-OFF) (DISABLED-LEMMAS NIL BOOLP-B-GATES BOOLP-B-GATES-OFF . T))))) (PUT1-LST (QUOTE BOOLP-B-GATES) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$CV=CV F$NEXT-STATE=NEXT-STATE F$ENCODE-32=ENCODE-32 F$DECODE-5=DECODE-5 BVP-LENGTH-DECODE-5 F$STORE-RESULTP-MUX=STORE-RESULTP-MUX F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL F$OVERFLOW-HELP=OVERFLOW-HELP F$CARRY-OUT-HELP=CARRY-OUT-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$ALU-CELL=ALU-CELL F$G-CELL=G-CELL F$P-CELL=P-CELL F$CARRY-IN-HELP=CARRY-IN-HELP F$DECODE-GEN=DECODE-GEN F$DECODE-PROP=DECODE-PROP F$DECODE-MODE=DECODE-MODE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$V-INC4=V-INC4 BOOLP-B-GATES-OFF) EVENT (PROVE-LEMMA BOOLP-B-GATES (REWRITE) (AND (BOOLP (B-BUF X)) (AND (BOOLP (B-NOT X)) (AND (BOOLP (B-NAND A B)) (AND (BOOLP (B-NAND3 A B C)) (AND (BOOLP (B-NAND4 A B C D)) (AND (BOOLP (B-NAND5 A B C D E)) (AND (BOOLP (B-NAND6 A B C D E G)) (AND (BOOLP (B-NAND8 A B C D E G H I)) (AND (BOOLP (B-OR A B)) (AND (BOOLP (B-OR3 A B C)) (AND (BOOLP (B-OR4 A B C D)) (AND (BOOLP (B-XOR X Y)) (AND (BOOLP (B-XOR3 A B C)) (AND (BOOLP (B-EQUV X Y)) (AND (BOOLP (B-EQUV3 A B C)) (AND (BOOLP (B-AND A B)) (AND (BOOLP (B-AND3 A B C)) (AND (BOOLP (B-AND4 A B C D)) (AND (BOOLP (B-NOR A B)) (AND (BOOLP (B-NOR3 A B C)) (AND (BOOLP (B-NOR4 A B C D)) (AND (BOOLP (B-NOR5 A B C D E)) (AND (BOOLP (B-NOR6 A B C D E G)) (AND (BOOLP (B-NOR8 A B C D E G H I)) (BOOLP (B-IF C A B)))))))))))))))))))))))))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-IF . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR8 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR6 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR5 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR4 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND4 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR4 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND8 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND6 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND5 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND4 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND3 . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOT . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 B-BUF . BOOLP-B-GATES) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES) (LEMMAS BOOLP . BOOLP-B-GATES))))) (PUT1-LST (QUOTE B-GATES) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE F$CV=CV F$NEXT-STATE=NEXT-STATE F$ENCODE-32=ENCODE-32 F$DECODE-5=DECODE-5 DECODE-5$VALUE BVP-LENGTH-DECODE-5 F$STORE-RESULTP-MUX=STORE-RESULTP-MUX TV-SHIFT-OR-BUF$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO F$CARRY-OUT-HELP=CARRY-OUT-HELP F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$ALU-CELL=ALU-CELL F$G-CELL=G-CELL F$P-CELL=P-CELL F$CARRY-IN-HELP=CARRY-IN-HELP F$DECODE-GEN=DECODE-GEN F$DECODE-PROP=DECODE-PROP F$DECODE-MODE=DECODE-MODE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$V-INC4=V-INC4) EVENT (DEFTHEORY B-GATES (B-BUF B-NOT B-NAND B-NAND3 B-NAND4 B-NAND5 B-NAND6 B-NAND8 B-OR B-OR3 B-OR4 B-XOR B-XOR3 B-EQUV B-EQUV3 B-AND B-AND3 B-AND4 B-NOR B-NOR3 B-NOR4 B-NOR5 B-NOR6 B-NOR8 B-IF OPEN-B-XOR OPEN-B-XOR3 OPEN-B-EQUV OPEN-B-EQUV3 B-AND-REWRITE B-BUF-X=X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-BUF . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOT . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND4 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND5 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND6 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NAND8 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR . B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-OR4 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR . B-GATES) (IMMEDIATE-DEPENDENTS0 B-XOR3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV . B-GATES) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND . B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND4 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR4 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR5 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR6 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-NOR8 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-IF . B-GATES) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . B-GATES) (IMMEDIATE-DEPENDENTS0 OPEN-B-XOR3 . B-GATES) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV . B-GATES) (IMMEDIATE-DEPENDENTS0 OPEN-B-EQUV3 . B-GATES) (IMMEDIATE-DEPENDENTS0 B-AND-REWRITE . B-GATES) (IMMEDIATE-DEPENDENTS0 B-BUF-X=X . B-GATES))))) (PUT1-LST (QUOTE B-BUF-X=X) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F-IF-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS F$SELECT-OP-CODE-SELECTS REG$STATE REG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-IF$VALUE V-BUF$BODY-VALUE FV-IF-V-THREEFIX V-BUF-WORKS B-GATES) EVENT (PROVE-LEMMA B-BUF-X=X (REWRITE) (IMPLIES (BOOLP X) (EQUAL (B-BUF X) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . B-BUF-X=X) (IMMEDIATE-DEPENDENTS0 B-BUF . B-BUF-X=X) (IMMEDIATE-DEPENDENTS0 BOOLP . B-BUF-X=X) (LEMMAS B-BUF . B-BUF-X=X))))) (PUT1-LST (QUOTE B-AND-REWRITE) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (ZB-V-ALU MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS CORE-ALU-WORKS-FOR-ZERO-CASE SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM T-CARRY-P-G-CARRY APPEND-SUM GENERATE-APPEND A-1+1=A V-SUM-CONGRUENCE BV-ADDER-BODY$VALUE V-ADDER-WORKS B-GATES) EVENT (PROVE-LEMMA B-AND-REWRITE (REWRITE) (AND (NOT (B-AND (QUOTE *1*FALSE) X)) (AND (NOT (B-AND X (QUOTE *1*FALSE))) (IMPLIES (AND X Y) (B-AND X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-AND . B-AND-REWRITE) (LEMMAS B-AND . B-AND-REWRITE) (LEMMAS B-AND . B-AND-REWRITE) (LEMMAS B-AND . B-AND-REWRITE))))) (PUT1-LST (QUOTE OPEN-B-EQUV3) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH B-GATES) EVENT (PROVE-LEMMA OPEN-B-EQUV3 (REWRITE) (EQUAL (B-EQUV3 A B C) (B-EQUV A (B-XOR B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . OPEN-B-EQUV3) (IMMEDIATE-DEPENDENTS0 B-EQUV . OPEN-B-EQUV3) (IMMEDIATE-DEPENDENTS0 B-EQUV3 . OPEN-B-EQUV3) (LEMMAS B-EQUV3 . OPEN-B-EQUV3))))) (PUT1-LST (QUOTE OPEN-B-EQUV) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-ADDER-OVERFLOWP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-CROCK-1 BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS CDR-TV-DEC-PASS-LENGTH F$V-INC4$V=V-INC B-GATES) EVENT (PROVE-LEMMA OPEN-B-EQUV (REWRITE) (EQUAL (B-EQUV A B) (IF A (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-EQUV . OPEN-B-EQUV) (LEMMAS B-EQUV . OPEN-B-EQUV))))) (PUT1-LST (QUOTE OPEN-B-XOR3) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER V-ADDER-WORKS BVP-V-ADDER LENGTH-OF-V-ADDER B-GATES) EVENT (PROVE-LEMMA OPEN-B-XOR3 (REWRITE) (EQUAL (B-XOR3 A B C) (B-XOR A (B-XOR B C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-B-XOR . OPEN-B-XOR3) (IMMEDIATE-DEPENDENTS0 B-XOR . OPEN-B-XOR3) (IMMEDIATE-DEPENDENTS0 B-XOR3 . OPEN-B-XOR3) (LEMMAS B-XOR3 . OPEN-B-XOR3))))) (PUT1-LST (QUOTE OPEN-B-XOR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB V-SUM-ON-NOT-A-A ZB-V-ALU V-ALU-CORRECT-INT-ADDER-OVERFLOWP F$B-STORE-RESULTP=B-STORE-RESULTP CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM APPEND-SUM A-1+1=A V-SUM-CONGRUENCE LENGTH-SUM BVP-SUM BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER FV-XOR=V-XOR V-ADDER-WORKS BVP-V-ADDER LENGTH-OF-V-ADDER NOT-V-NZEROP-V-XOR-X-X V-XOR-APPEND-HELP LENGTH-V-XOR BVP-V-XOR B-GATES OPEN-B-XOR3) EVENT (PROVE-LEMMA OPEN-B-XOR (REWRITE) (EQUAL (B-XOR A B) (IF A (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . OPEN-B-XOR) (LEMMAS B-XOR . OPEN-B-XOR))))) (PUT1-LST (QUOTE *1*B-IF) (QUOTE (MAIN-EVENT B-IF))) (PUT1-LST (QUOTE B-IF) (QUOTE (TYPE-PRESCRIPTION-LST ((B-IF 3 NIL NIL NIL)) TOTALP-LST ((B-IF . T)) SDEFN (LAMBDA (C A B) (IF C (IF A (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*B-IF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-IF) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS BOOLP-FLAG-EXTRACTERS FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$SELECT-OP-CODE-SELECTS BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS UPDATE-FLAGS CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP FV-IF-V-THREEFIX F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-IF (C A B) (IF C (IF A (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-IF))))) (PUT1-LST (QUOTE *1*B-NOR8) (QUOTE (MAIN-EVENT B-NOR8))) (PUT1-LST (QUOTE B-NOR8) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR8 3 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NOR8 . T)) SDEFN (LAMBDA (A B C D E G H I) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (IF C (QUOTE *1*FALSE) (IF D (QUOTE *1*FALSE) (IF E (QUOTE *1*FALSE) (IF G (QUOTE *1*FALSE) (IF H (QUOTE *1*FALSE) (IF I (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))))) LISP-CODE *1*B-NOR8 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR8) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR8 (A B C D E G H I) (NOT (OR A (OR B (OR C (OR D (OR E (OR G (OR H I))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR8))))) (PUT1-LST (QUOTE *1*B-NOR6) (QUOTE (MAIN-EVENT B-NOR6))) (PUT1-LST (QUOTE B-NOR6) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR6 3 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NOR6 . T)) SDEFN (LAMBDA (A B C D E G) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (IF C (QUOTE *1*FALSE) (IF D (QUOTE *1*FALSE) (IF E (QUOTE *1*FALSE) (IF G (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))))) LISP-CODE *1*B-NOR6 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR6) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR6 (A B C D E G) (NOT (OR A (OR B (OR C (OR D (OR E G))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR6))))) (PUT1-LST (QUOTE *1*B-NOR5) (QUOTE (MAIN-EVENT B-NOR5))) (PUT1-LST (QUOTE B-NOR5) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR5 3 NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NOR5 . T)) SDEFN (LAMBDA (A B C D E) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (IF C (QUOTE *1*FALSE) (IF D (QUOTE *1*FALSE) (IF E (QUOTE *1*FALSE) (QUOTE *1*TRUE))))))) LISP-CODE *1*B-NOR5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR5) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR5 (A B C D E) (NOT (OR A (OR B (OR C (OR D E)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR5))))) (PUT1-LST (QUOTE *1*B-NOR4) (QUOTE (MAIN-EVENT B-NOR4))) (PUT1-LST (QUOTE B-NOR4) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR4 3 NIL NIL NIL NIL)) TOTALP-LST ((B-NOR4 . T)) SDEFN (LAMBDA (A B C D) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (IF C (QUOTE *1*FALSE) (IF D (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) LISP-CODE *1*B-NOR4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR4) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV BVP-LENGTH-ENCODE-32 ENCODE-32 F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR4 (A B C D) (NOT (OR A (OR B (OR C D))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR4))))) (PUT1-LST (QUOTE *1*B-NOR3) (QUOTE (MAIN-EVENT B-NOR3))) (PUT1-LST (QUOTE B-NOR3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR3 3 NIL NIL NIL)) TOTALP-LST ((B-NOR3 . T)) SDEFN (LAMBDA (A B C) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (IF C (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*B-NOR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR3) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV BVP-LENGTH-ENCODE-32 ENCODE-32 PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-MODE F$V-INC4$V=V-INC V-INC4 F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR3 (A B C) (NOT (OR A (OR B C)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR3))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (MAIN-EVENT B-NOR))) (PUT1-LST (QUOTE B-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR 3 NIL NIL)) TOTALP-LST ((B-NOR . T)) SDEFN (LAMBDA (A B) (IF A (QUOTE *1*FALSE) (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*B-NOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOR) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV BVP-LENGTH-ENCODE-32 ENCODE-32 DECODE-5 CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU OVERFLOW-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN DECODE-PROP$VALUE-ZERO DECODE-PROP DECODE-MODE TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC V-INC4 BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR T-CARRY-P-G-CARRY GENERATE-APPEND T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY F-GATES=B-GATES AO6 AO2 BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOR (A B) (NOT (OR A B))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOR))))) (PUT1-LST (QUOTE *1*B-AND4) (QUOTE (MAIN-EVENT B-AND4))) (PUT1-LST (QUOTE B-AND4) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND4 3 NIL NIL NIL NIL)) TOTALP-LST ((B-AND4 . T)) SDEFN (LAMBDA (A B C D) (IF A (IF B (IF C (IF D (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*B-AND4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-AND4) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-NEXT-STATE NEXT-STATE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-AND4 (A B C D) (AND A (AND B (AND C D)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND4))))) (PUT1-LST (QUOTE *1*B-AND3) (QUOTE (MAIN-EVENT B-AND3))) (PUT1-LST (QUOTE B-AND3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND3 3 NIL NIL NIL)) TOTALP-LST ((B-AND3 . T)) SDEFN (LAMBDA (A B C) (IF A (IF B (IF C (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*B-AND3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-AND3) IMMEDIATE-DEPENDENTS0 (F$READ-REGS=READ-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-NEXT-STATE NEXT-STATE TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH G-CELL F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-AND3 (A B C) (AND A (AND B C))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND3))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (MAIN-EVENT B-AND))) (PUT1-LST (QUOTE B-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND 3 NIL NIL)) LEMMAS ((REWRITE-RULE V-PROPAGATE-APPEND ((EQUAL (LENGTH A) (LENGTH C))) (EQUAL (B-AND (V-PROPAGATE A C) (V-PROPAGATE B D)) (V-PROPAGATE (APPEND A B) (APPEND C D))) NIL) (REWRITE-RULE B-AND-REWRITE (X Y) (B-AND X Y) NIL) (REWRITE-RULE B-AND-REWRITE NIL (NOT (B-AND X (QUOTE *1*FALSE))) NIL) (REWRITE-RULE B-AND-REWRITE NIL (NOT (B-AND (QUOTE *1*FALSE) X)) NIL)) TOTALP-LST ((B-AND . T)) SDEFN (LAMBDA (A B) (IF A (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*B-AND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-AND) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB V-SUM-ON-NOT-A-A ZB-V-ALU V-ALU-CORRECT-INT-ADDER-OVERFLOWP F-AND-MONOTONE MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_REGB T_UPDATE NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE F$CONTROL-LET=CONTROL-LET F$SELECT-OP-CODE-SELECTS CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-CNTL CARRY-OUT-HELP-CONGRUENCE CARRY-OUT-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-PROP$VALUE-ZERO DECODE-PROP BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BOOLP-V-V-ALU BOOLP-C-V-ALU TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC CDDR-TV-ADDER-AS-SUM TV-ADDER V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM T-CARRY-P-G-CARRY APPEND-SUM GENERATE-APPEND V-PROPAGATE-APPEND T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY A-1+1=A V-SUM-CONGRUENCE V-SUM BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER FULL-ADDER F-GATES=B-GATES V-ADDER-WORKS V-ADDER-OVERFLOWP V-ADDER V-AND-APPEND-HELP LENGTH-V-AND BVP-V-AND V-AND AO6 AO2 BOOLP-B-GATES B-GATES B-AND-REWRITE) EVENT (DEFN B-AND (A B) (AND A B)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-AND))))) (PUT1-LST (QUOTE *1*B-EQUV3) (QUOTE (MAIN-EVENT B-EQUV3))) (PUT1-LST (QUOTE B-EQUV3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV3 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-B-EQUV3 NIL (EQUAL (B-EQUV3 A B C) (B-EQUV A (B-XOR B C))) NIL)) TOTALP-LST ((B-EQUV3 . T)) SDEFN (LAMBDA (A B C) (B-EQUV A (B-XOR B C))) LISP-CODE *1*B-EQUV3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-EQUV3) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-ZERO ALU-CELL F-GATES=B-GATES BOOLP-B-GATES B-GATES OPEN-B-EQUV3) EVENT (DEFN B-EQUV3 (A B C) (B-EQUV A (B-XOR B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . B-EQUV3) (IMMEDIATE-DEPENDENTS0 B-EQUV . B-EQUV3) (DCELL . *1*B-EQUV3))))) (PUT1-LST (QUOTE *1*B-EQUV) (QUOTE (MAIN-EVENT B-EQUV))) (PUT1-LST (QUOTE B-EQUV) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUV 3 NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-B-EQUV NIL (EQUAL (B-EQUV A B) (IF A (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((B-EQUV . T)) SDEFN (LAMBDA (X Y) (IF X (IF Y (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Y (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*B-EQUV SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-EQUV) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU F-EQUV-MONOTONE CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B DECODE-PROP$VALUE-ZERO DECODE-PROP TV-DEC-PASS-NG TV-DEC-PASS V-INC4 F-GATES=B-GATES V-ADDER-OVERFLOWP BOOLP-B-GATES B-GATES OPEN-B-EQUV3 OPEN-B-EQUV B-EQUV3) EVENT (DEFN B-EQUV (X Y) (IF X (IF Y (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Y (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-EQUV))))) (PUT1-LST (QUOTE *1*B-XOR3) (QUOTE (MAIN-EVENT B-XOR3))) (PUT1-LST (QUOTE B-XOR3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR3 3 NIL NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-B-XOR3 NIL (EQUAL (B-XOR3 A B C) (B-XOR A (B-XOR B C))) NIL)) TOTALP-LST ((B-XOR3 . T)) SDEFN (LAMBDA (A B C) (B-XOR (B-XOR A B) C)) LISP-CODE *1*B-XOR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-XOR3) IMMEDIATE-DEPENDENTS0 (FULL-ADDER F-GATES=B-GATES V-ADDER-WORKS V-ADDER BOOLP-B-GATES B-GATES OPEN-B-XOR3) EVENT (DEFN B-XOR3 (A B C) (B-XOR (B-XOR A B) C)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-XOR . B-XOR3) (DCELL . *1*B-XOR3))))) (PUT1-LST (QUOTE *1*B-XOR) (QUOTE (MAIN-EVENT B-XOR))) (PUT1-LST (QUOTE B-XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-XOR 3 NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-B-XOR NIL (EQUAL (B-XOR A B) (IF A (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) NIL)) TOTALP-LST ((B-XOR . T)) SDEFN (LAMBDA (X Y) (IF X (IF Y (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF Y (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*B-XOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-XOR) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZB-V-ALU F-XOR-MONOTONE B-STORE-RESULTP CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B OVERFLOW-HELP TV-ALU-HELP-V-XOR-WORKS DECODE-GEN$VALUE-ZERO DECODE-GEN V-INC4 CDDR-TV-ADDER-AS-SUM TV-ADDER APPEND-SUM V-SUM-CONGRUENCE V-SUM F-GATES=B-GATES V-ADDER-WORKS V-ADDER-OVERFLOWP V-XOR-NZEROP=NOT-EQUAL V-XOR BOOLP-B-GATES B-GATES OPEN-B-EQUV3 OPEN-B-XOR3 OPEN-B-XOR B-EQUV3 B-XOR3) EVENT (DEFN B-XOR (X Y) (IF X (IF Y (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF Y (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-XOR))))) (PUT1-LST (QUOTE *1*B-OR4) (QUOTE (MAIN-EVENT B-OR4))) (PUT1-LST (QUOTE B-OR4) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR4 3 NIL NIL NIL NIL)) TOTALP-LST ((B-OR4 . T)) SDEFN (LAMBDA (A B C D) (IF A (QUOTE *1*TRUE) (IF B (QUOTE *1*TRUE) (IF C (QUOTE *1*TRUE) (IF D (QUOTE *1*TRUE) (QUOTE *1*FALSE)))))) LISP-CODE *1*B-OR4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-OR4) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV F$SET-SOME-FLAGS=SET-SOME=FLAGS F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-OR4 (A B C D) (OR A (OR B (OR C D)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR4))))) (PUT1-LST (QUOTE *1*B-OR3) (QUOTE (MAIN-EVENT B-OR3))) (PUT1-LST (QUOTE B-OR3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR3 3 NIL NIL NIL)) TOTALP-LST ((B-OR3 . T)) SDEFN (LAMBDA (A B C) (IF A (QUOTE *1*TRUE) (IF B (QUOTE *1*TRUE) (IF C (QUOTE *1*TRUE) (QUOTE *1*FALSE))))) LISP-CODE *1*B-OR3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-OR3) IMMEDIATE-DEPENDENTS0 (V-SUM-ON-NOT-A-A NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-CV CV CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-CNTL OVERFLOW-HELP F$V-INC4$V=V-INC CDDR-TV-ADDER-AS-SUM V-ADDER-OUTPUT=V-SUM APPEND-SUM A-1+1=A V-SUM-CONGRUENCE V-SUM F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-OR3 (A B C) (OR A (OR B C))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR3))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (MAIN-EVENT B-OR))) (PUT1-LST (QUOTE B-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR 3 NIL NIL)) TOTALP-LST ((B-OR . T)) SDEFN (LAMBDA (A B) (IF A (QUOTE *1*TRUE) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*B-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-OR) IMMEDIATE-DEPENDENTS0 (F-OR-MONOTONE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READA3$STEP1 READA3$STEP0 READA2$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 V-OR-CROCK-FOR-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE F$CONTROL-LET=CONTROL-LET F$DECODE-REG-MODE-AS-REG-MODE F$B-STORE-RESULTP=B-STORE-RESULTP B-STORE-RESULTP CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-CNTL TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-OR-WORKS CARRY-IN-HELP-ZERO CARRY-IN-HELP BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM F$T-CARRY=T-CARRY BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER FULL-ADDER FV-OR=V-OR F-GATES=B-GATES V-ADDER-WORKS V-ADDER V-OR-MAKE-LIST-F V-OR-APPEND-HELP LENGTH-V-OR BVP-V-OR V-OR AO7 AO4 BOOLP-B-GATES B-GATES) EVENT (DEFN B-OR (A B) (OR A B)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-OR))))) (PUT1-LST (QUOTE *1*B-NAND8) (QUOTE (MAIN-EVENT B-NAND8))) (PUT1-LST (QUOTE B-NAND8) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND8 3 NIL NIL NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NAND8 . T)) SDEFN (LAMBDA (A B C D E G H I) (IF A (IF B (IF C (IF D (IF E (IF G (IF H (IF I (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND8 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND8) IMMEDIATE-DEPENDENTS0 (F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND8 (A B C D E G H I) (NOT (AND A (AND B (AND C (AND D (AND E (AND G (AND H I))))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND8))))) (PUT1-LST (QUOTE *1*B-NAND6) (QUOTE (MAIN-EVENT B-NAND6))) (PUT1-LST (QUOTE B-NAND6) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND6 3 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NAND6 . T)) SDEFN (LAMBDA (A B C D E G) (IF A (IF B (IF C (IF D (IF E (IF G (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND6 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND6) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-NEXT-STATE NEXT-STATE F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND6 (A B C D E G) (NOT (AND A (AND B (AND C (AND D (AND E G))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND6))))) (PUT1-LST (QUOTE *1*B-NAND5) (QUOTE (MAIN-EVENT B-NAND5))) (PUT1-LST (QUOTE B-NAND5) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND5 3 NIL NIL NIL NIL NIL)) TOTALP-LST ((B-NAND5 . T)) SDEFN (LAMBDA (A B C D E) (IF A (IF B (IF C (IF D (IF E (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND5 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND5) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND5 (A B C D E) (NOT (AND A (AND B (AND C (AND D E)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND5))))) (PUT1-LST (QUOTE *1*B-NAND4) (QUOTE (MAIN-EVENT B-NAND4))) (PUT1-LST (QUOTE B-NAND4) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND4 3 NIL NIL NIL NIL)) TOTALP-LST ((B-NAND4 . T)) SDEFN (LAMBDA (A B C D) (IF A (IF B (IF C (IF D (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND4 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND4) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-NEXT-STATE NEXT-STATE BVP-LENGTH-ENCODE-32 ENCODE-32 F$UNARY-OP-CODE-P=UNARY-OP-CODE-P CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU CARRY-OUT-HELP-CONGRUENCE CARRY-OUT-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-GEN DECODE-PROP$VALUE-ZERO DECODE-PROP F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND4 (A B C D) (NOT (AND A (AND B (AND C D))))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND4))))) (PUT1-LST (QUOTE *1*B-NAND3) (QUOTE (MAIN-EVENT B-NAND3))) (PUT1-LST (QUOTE B-NAND3) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND3 3 NIL NIL NIL)) TOTALP-LST ((B-NAND3 . T)) SDEFN (LAMBDA (A B C) (IF A (IF B (IF C (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND3 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND3) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE DECODE-5 F$UNARY-OP-CODE-P=UNARY-OP-CODE-P CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU OVERFLOW-HELP CARRY-OUT-HELP-CONGRUENCE CARRY-OUT-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH P-CELL CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP-ZERO CARRY-IN-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN DECODE-PROP$VALUE-ZERO DECODE-PROP F-GATES=B-GATES BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND3 (A B C) (NOT (AND A (AND B C)))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND3))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (MAIN-EVENT B-NAND))) (PUT1-LST (QUOTE B-NAND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND 3 NIL NIL)) TOTALP-LST ((B-NAND . T)) SDEFN (LAMBDA (A B) (IF A (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*B-NAND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NAND) IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 TTL-INPUT-PADS-BODY$VALUE F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE DECODE-5 F$SELECT-OP-CODE-SELECTS F$UNARY-OP-CODE-P=UNARY-OP-CODE-P STORE-RESULTP-MUX CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-CNTL OVERFLOW-HELP CARRY-OUT-HELP-CONGRUENCE CARRY-OUT-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH ALU-CELL G-CELL P-CELL CARRY-IN-HELP-ZERO CARRY-IN-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN DECODE-PROP$VALUE-ZERO DECODE-PROP BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR F-GATES=B-GATES AO7 AO4 BOOLP-B-GATES B-GATES) EVENT (DEFN B-NAND (A B) (NOT (AND A B))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NAND))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (MAIN-EVENT B-NOT))) (PUT1-LST (QUOTE B-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT 3 NIL)) TOTALP-LST ((B-NOT . T)) SDEFN (LAMBDA (X) (IF X (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*B-NOT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-NOT) IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A ZB-V-ALU V-NOT-V-NOT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-TO-NAT-V-NOT-LEMMA F-NOT-MONOTONE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV CV BVP-LENGTH-NEXT-STATE NEXT-STATE F$CONTROL-LET=CONTROL-LET BVP-LENGTH-ENCODE-32 ENCODE-32 DECODE-5 F$V-IF-F-4=FV-IF F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P STORE-RESULTP-MUX CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF LENGTH-SHIFT-OR-BUF SHIFT-OR-BUF-CNTL OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP-CONGRUENCE CARRY-OUT-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH ALU-CELL CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP-ZERO CARRY-IN-HELP PROPERP-MPG BVP-MPG LENGTH-MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN DECODE-PROP$VALUE-ZERO DECODE-PROP BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU F$DEC-PASS=DEC-OR-PASS TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC V-INC4 F$TV-ZEROP=V-ZEROP BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR T-CARRY-P-G-CARRY GENERATE-APPEND T-CARRY-CONGRUENCE F$T-CARRY=T-CARRY T-CARRY A-1+1=A F-GATES=B-GATES BVP-LENGTH-V-INC-V-DEC V-SUBTRACTER-OVERFLOWP V-SUBTRACTER-CARRY-OUT V-SUBTRACTER-OUTPUT V-NOT-INVERTS-ALL V-NOT-RESTN V-NOT-FIRSTN V-NOT-APPEND-HELP LENGTH-V-NOT BVP-V-NOT V-NOT BOOLP-B-GATES B-GATES) EVENT (DEFN B-NOT (X) (NOT X)) LOCAL-UNDO-TUPLES ((DCELL . *1*B-NOT))))) (PUT1-LST (QUOTE *1*B-BUF) (QUOTE (MAIN-EVENT B-BUF))) (PUT1-LST (QUOTE B-BUF) (QUOTE (TYPE-PRESCRIPTION-LST ((B-BUF 3 NIL)) LEMMAS ((REWRITE-RULE B-BUF-X=X ((BOOLP X)) (EQUAL (B-BUF X) X) NIL)) TOTALP-LST ((B-BUF . T)) SDEFN (LAMBDA (X) (IF X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) LISP-CODE *1*B-BUF SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*B-BUF) IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$UPDATE-FLAGS=UPDATE-FLAGS F$SELECT-OP-CODE-SELECTS CARRY-IN-HELP$VALUE-ZERO WE-REG$STATE TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR F-GATES=B-GATES V-BUF-APPEND-HELP LENGTH-V-BUF BVP-V-BUF V-BUF BOOLP-B-GATES B-GATES B-BUF-X=X) EVENT (DEFN B-BUF (X) (IF X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*B-BUF))))) (PUT1-LST (QUOTE *1*XOR) (QUOTE (MAIN-EVENT XOR))) (PUT1-LST (QUOTE XOR) (QUOTE (TYPE-PRESCRIPTION-LST ((XOR 3 NIL NIL)) TOTALP-LST ((XOR . T)) SDEFN (LAMBDA (A B) (IF A (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*XOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*XOR) IMMEDIATE-DEPENDENTS0 (BV-ADDER-BODY$VALUE BV-ADDER) EVENT (DEFN XOR (A B) (IF A (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*XOR))))) (PUT1-LST (QUOTE ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FLAGS$PARTIAL-STATE-HELP NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$DECODE) EVENT (PROVE-LEMMA ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH (REWRITE) (IMPLIES (AND (BVP V) (LESSP N (LENGTH V))) (EQUAL (EQUAL (IF (NTH N V) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (NTH N V)) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-NTH . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 NTH . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BVP . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) (LEMMAS EQUAL . ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH))))) (PUT1-LST (QUOTE BOOLP-NTH) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-LSR-CARRY F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE F$CV=CV BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE F$CONTROL-LET=CONTROL-LET BOOLP-C-FLAG BOOLP-C-FLAG-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P F$CORE-ALU=CORE-ALU BOOLP-C-V-ALU V-NOT-INVERTS-ALL ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH) EVENT (PROVE-LEMMA BOOLP-NTH (REWRITE) (IMPLIES (BVP A) (EQUAL (BOOLP (NTH N A)) (LESSP N (LENGTH A)))) ((INDUCT (NTH N A)) (ENABLE NTH BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 NTH . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-NTH) (IMMEDIATE-DEPENDENTS0 BVP . BOOLP-NTH) (LEMMAS BOOLP . BOOLP-NTH))))) (PUT1-LST (QUOTE SHOW-THAT-NTH=T-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE SHOW-THAT-NTH=T-OFF SHOW-THAT-NTH=T T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SHOW-THAT-NTH=T . SHOW-THAT-NTH=T-OFF) (DISABLED-LEMMAS NIL SHOW-THAT-NTH=T SHOW-THAT-NTH=T-OFF . T))))) (PUT1-LST (QUOTE SHOW-THAT-NTH=T) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-NOT-INVERTS-ALL SHOW-THAT-NTH=T-OFF) EVENT (PROVE-LEMMA SHOW-THAT-NTH=T (REWRITE) (IMPLIES (AND (NTH N A) (AND (BVP A) (LESSP N (LENGTH A)))) (EQUAL (NTH N A) (QUOTE *1*TRUE))) ((INDUCT (NTH N A)) (ENABLE BVP NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 BVP-CONS . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 LENGTH . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 BVP . SHOW-THAT-NTH=T) (IMMEDIATE-DEPENDENTS0 NTH . SHOW-THAT-NTH=T) (LEMMAS NTH . SHOW-THAT-NTH=T))))) (PUT1-LST (QUOTE BVP-LENGTH-RESTN) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BVP-LENGTH-RESTN (REWRITE) (IMPLIES (BVP BVP) (EQUAL (BVP-LENGTH (RESTN N BVP) M) (IF (LESSP (DIFFERENCE (LENGTH BVP) N) M) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) ((ENABLE BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-RESTN . BVP-LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 BVP-RESTN . BVP-LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . BVP-LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-RESTN) (LEMMAS BVP-LENGTH . BVP-LENGTH-RESTN))))) (PUT1-LST (QUOTE BOOLP-CAR-X) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$SELECT-OP-CODE-SELECTS F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$B-STORE-RESULTP=B-STORE-RESULTP F$CORE-ALU=CORE-ALU F$TV-ALU-HELP=TV-ALU-HELP F$ALU-CELL=ALU-CELL F$MPG=MPG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA BOOLP-CAR-X (REWRITE) (IMPLIES (BVP-LENGTH X (QUOTE 1)) (BOOLP (CAR X))) ((ENABLE BOOLP BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLP-CAR-X) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BOOLP-CAR-X) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . BOOLP-CAR-X) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-CAR-X) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BOOLP-CAR-X) (LEMMAS BOOLP . BOOLP-CAR-X))))) (PUT1-LST (QUOTE BOOLFIX-CAR-X=X) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BOOLFIX-CAR-X=X (REWRITE) (IMPLIES (BVP-LENGTH X (QUOTE 1)) (EQUAL (BOOLFIX (CAR X)) (CAR X))) ((ENABLE BOOLFIX BVP-LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BOOLFIX-CAR-X=X) (IMMEDIATE-DEPENDENTS0 BOOLP-LEMMAS . BOOLFIX-CAR-X=X) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . BOOLFIX-CAR-X=X) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . BOOLFIX-CAR-X=X) (IMMEDIATE-DEPENDENTS0 BOOLFIX . BOOLFIX-CAR-X=X) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BOOLFIX-CAR-X=X) (LEMMAS BOOLFIX . BOOLFIX-CAR-X=X))))) (PUT1-LST (QUOTE BVP-LENGTH-CDR) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$B-STORE-RESULTP=B-STORE-RESULTP F$CORE-ALU=CORE-ALU F$ALU-CELL=ALU-CELL F$MPG=MPG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG) EVENT (PROVE-LEMMA BVP-LENGTH-CDR (REWRITE) (IMPLIES (BVP-LENGTH X (ADD1 N)) (BVP-LENGTH (CDR X) N)) ((INDUCT (FIRSTN N X)) (ENABLE BVP-LENGTH BVP LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . BVP-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 FIRSTN . BVP-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-CDR) (LEMMAS BVP-LENGTH . BVP-LENGTH-CDR))))) (PUT1-LST (QUOTE BVP-LENGTH-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE BVP-LENGTH-OFF BVP-LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-LENGTH . BVP-LENGTH-OFF) (DISABLED-LEMMAS NIL BVP-LENGTH BVP-LENGTH-OFF . T))))) (PUT1-LST (QUOTE *1*BVP-LENGTH) (QUOTE (MAIN-EVENT BVP-LENGTH))) (PUT1-LST (QUOTE BVP-LENGTH) (QUOTE (TYPE-PRESCRIPTION-LST ((BVP-LENGTH 3 NIL NIL)) LEMMAS ((REWRITE-RULE BVP-LENGTH-TV-ALU-HELP NIL (EQUAL (BVP-LENGTH (TV-ALU-HELP C A B MPG TREE) N) (IF (LESSP (ADD1 (ADD1 (TREE-SIZE TREE))) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE BVP-LENGTH-TV-DEC-PASS-NG NIL (EQUAL (BVP-LENGTH (TV-DEC-PASS-NG C A TREE MAKE-G) N) (IF MAKE-G (IF (LESSP (ADD1 (TREE-SIZE TREE)) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP N (ADD1 (TREE-SIZE TREE))))) NIL) (REWRITE-RULE BVP-LENGTH-TV-DEC-PASS NIL (EQUAL (BVP-LENGTH (TV-DEC-PASS C A TREE) N) (IF (LESSP (ADD1 (TREE-SIZE TREE)) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE BVP-LENGTH-RESTN ((BVP BVP)) (EQUAL (BVP-LENGTH (RESTN N BVP) M) (IF (LESSP (DIFFERENCE (LENGTH BVP) N) M) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE BVP-LENGTH-CDR ((BVP-LENGTH X (ADD1 N))) (BVP-LENGTH (CDR X) N) NIL)) TOTALP-LST ((BVP-LENGTH . T)) SDEFN (LAMBDA (BVP N) (IF (BVP BVP) (IF (LESSP (LENGTH BVP) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*BVP-LENGTH SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*BVP-LENGTH) IMMEDIATE-DEPENDENTS0 (F$SELECT-OP-CODE-SELECTS F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$B-STORE-RESULTP=B-STORE-RESULTP F$CORE-ALU=CORE-ALU F$TV-ALU-HELP=TV-ALU-HELP BVP-LENGTH-TV-ALU-HELP F$ALU-CELL=ALU-CELL F$MPG=MPG BVP-LENGTH-TV-DEC-PASS-NG BVP-LENGTH-TV-DEC-PASS BVP-LENGTH-RESTN BOOLP-CAR-X BOOLFIX-CAR-X=X BVP-LENGTH-CDR BVP-LENGTH-OFF) EVENT (DEFN BVP-LENGTH (BVP N) (AND (BVP BVP) (IF (LESSP (LENGTH BVP) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . BVP-LENGTH) (IMMEDIATE-DEPENDENTS0 BVP . BVP-LENGTH) (DCELL . *1*BVP-LENGTH))))) (PUT1-LST (QUOTE *1*BV2P) (QUOTE (MAIN-EVENT BV2P))) (PUT1-LST (QUOTE BV2P) (QUOTE (TYPE-PRESCRIPTION-LST ((BV2P 3 NIL NIL)) TOTALP-LST ((BV2P . T)) SDEFN (LAMBDA (X Y) (IF (BVP X) (IF (BVP Y) (EQUAL (LENGTH X) (LENGTH Y)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*BV2P SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193938 SATELLITES (*1*BV2P) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER BV-V-ALU-AS-NATURAL V-ALU-CORRECT-INT-REWRITE V-ALU-CORRECT-NAT-REWRITE FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-SUB ZERO-FLAG-INTERPRETATION-FOR-SUB IF-V-SUBTRACTER-OUTPUT=0-THEN-A=B V-SUM-ON-NOT-A-A ZB-V-ALU V-TO-NAT-EQUAL V-ALU-CORRECT-INT V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-SUBTRACTER V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-INC V-ALU-CORRECT-NAT-ADDER V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP SEFB0$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP F$READ-REGS=READ-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV F$SELECT-OP-CODE-SELECTS CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS F$V-EQUAL=EQUAL* V-IFF=EQUAL V-ADDER-WORKS V-IF-WORKS V-XOR-NZEROP=NOT-EQUAL) EVENT (DEFN BV2P (X Y) (AND (BVP X) (AND (BVP Y) (EQUAL (LENGTH X) (LENGTH Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . BV2P) (IMMEDIATE-DEPENDENTS0 BVP . BV2P) (DCELL . *1*BV2P))))) (PUT1-LST (QUOTE BVP-IF*) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP0 READA1$STEP READA0$STEP UPDATE$STEP REGA$STEP DECODE$STEP FETCH1$STEP BVP-CV-VECTORS CV_SEFB1$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READA1$DESTRUCTURE) EVENT (PROVE-LEMMA BVP-IF* (REWRITE) (IMPLIES (AND (BVP A) (BVP B)) (BVP (IF* C A B))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-IF . BVP-IF*) (IMMEDIATE-DEPENDENTS0 IF* . BVP-IF*) (IMMEDIATE-DEPENDENTS0 BVP . BVP-IF*) (LEMMAS BVP . BVP-IF*))))) (PUT1-LST (QUOTE BVP-IF) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS BVP-INT-TO-V V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-INT-ADDER-OUTPUT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP BVP-LENGTH-READ-REGS-32 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE F$CV=CV F$SELECT-OP-CODE-SELECTS BVP-READ-MEM1 BVP-SUBRANGE BVP-NAT-TO-V BVP-V-SHIFT-RIGHT BVP-IF*) EVENT (PROVE-LEMMA BVP-IF (REWRITE) (IMPLIES (AND (BVP A) (BVP B)) (BVP (IF C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-IF) (LEMMAS BVP . BVP-IF))))) (PUT1-LST (QUOTE BVP-NTHCDR) (QUOTE (IDATE 1000402193938 EVENT (PROVE-LEMMA BVP-NTHCDR (REWRITE) (IMPLIES (AND (BVP L) (IF (LESSP (LENGTH L) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (BVP (NTHCDR N L))) ((ENABLE BVP NTHCDR LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-NTHCDR) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . BVP-NTHCDR) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-NTHCDR) (IMMEDIATE-DEPENDENTS0 NTHCDR . BVP-NTHCDR) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-NTHCDR) (IMMEDIATE-DEPENDENTS0 BVP . BVP-NTHCDR) (LEMMAS BVP . BVP-NTHCDR))))) (PUT1-LST (QUOTE BVP-MAKE-LIST) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE CORE-ALU-WORKS-FOR-ZERO-CASE V-FOURFIX-MAKE-LIST BVP-SIGN-EXTEND) EVENT (PROVE-LEMMA BVP-MAKE-LIST (REWRITE) (EQUAL (BVP (MAKE-LIST N V)) (OR (ZEROP N) (BOOLP V))) ((ENABLE BVP MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . BVP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 BOOLP . BVP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . BVP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 BVP . BVP-MAKE-LIST) (LEMMAS BVP . BVP-MAKE-LIST))))) (PUT1-LST (QUOTE BVP-IS-PROPERP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-OF-V-TO-NAT S-APPROX-IMPLIES-PROPERP-READ-MEM1 MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT==>CHIP-SYSTEM-INVARIANT$HELP OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE TV-SHIFT-OR-BUF$VALUE-ZERO PROPERP-MPG F$FAST-ZERO=V-ZEROP BV-ADDER$VALUE MEMORY-OKP==>MEMORY-PROPERP) EVENT (PROVE-LEMMA BVP-IS-PROPERP (REWRITE) (IMPLIES (BVP V) (PROPERP V)) ((ENABLE BVP PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-IS-PROPERP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-IS-PROPERP) (IMMEDIATE-DEPENDENTS0 PROPERP . BVP-IS-PROPERP) (IMMEDIATE-DEPENDENTS0 BVP . BVP-IS-PROPERP) (LEMMAS PROPERP . BVP-IS-PROPERP))))) (PUT1-LST (QUOTE BVP-APPEND) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE BVP-LENGTH-CV BVP-CV-VECTORS SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG BVP-CDR-TV-DEC-PASS BVP-V-SHIFT-RIGHT) EVENT (PROVE-LEMMA BVP-APPEND (REWRITE) (IMPLIES (BVP A) (EQUAL (BVP (APPEND A B)) (BVP B))) ((ENABLE BVP APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-APPEND) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . BVP-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-APPEND) (IMMEDIATE-DEPENDENTS0 BVP . BVP-APPEND) (LEMMAS BVP . BVP-APPEND))))) (PUT1-LST (QUOTE BVP-RESTN) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 TR-OR-NOR=BTR-OR-NOR BVP-LENGTH-RESTN) EVENT (PROVE-LEMMA BVP-RESTN (REWRITE) (IMPLIES (BVP X) (BVP (RESTN N X))) ((ENABLE BVP RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 LENGTH . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 PROPERP . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 TOO-MANY-RESTNS . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . BVP-RESTN) (IMMEDIATE-DEPENDENTS0 BVP . BVP-RESTN) (LEMMAS BVP . BVP-RESTN))))) (PUT1-LST (QUOTE BVP-FIRSTN) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OUTPUT F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 TR-OR-NOR=BTR-OR-NOR BVP-LENGTH-V-INC-V-DEC) EVENT (PROVE-LEMMA BVP-FIRSTN (REWRITE) (IMPLIES (BVP X) (BVP (FIRSTN N X))) ((ENABLE BVP FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP-CONS . BVP-FIRSTN) (IMMEDIATE-DEPENDENTS0 BVP-NLISTP . BVP-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . BVP-FIRSTN) (IMMEDIATE-DEPENDENTS0 BVP . BVP-FIRSTN) (LEMMAS BVP . BVP-FIRSTN))))) (PUT1-LST (QUOTE BVP-CONS) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-TO-NAT-APPEND V-TO-NAT-V-NOT-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V BVP-CDR V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL READ-MEM1-MONOTONE V-APPROX-BVP BVP-REV1 FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS V-OR-CROCK-FOR-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV BVP-LENGTH-NEXT-STATE BVP-CV-VECTORS BVP-LENGTH-STATE-VECTORS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS BVP-LENGTH-ENCODE-32 F$DECODE-5=DECODE-5 BVP-LENGTH-DECODE-5 F$SELECT-OP-CODE-SELECTS F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP=STORE-RESULTP BOOLP-STORE-RESULT-P BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK BOOLP-BVP-CORE-ALU SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP F$CARRY-IN-HELP=CARRY-IN-HELP PROPERP-MPG BVP-MPG BVP-LENGTH-ALU-DEC-OP BVP-LENGTH-ALU-INC-OP BVP-LENGTH-BV BVP-CVZBV BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BVP-CDR-TV-DEC-PASS F$V-INC4$V=V-INC TR-OR-NOR=BTR-OR-NOR A-1+1=A BVP-SUM BV-ADDER-BODY$VALUE V-THREEFIX-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT BVP-SUBRANGE V-IFF=EQUAL V-FOURFIX-MAKE-LIST BVP-V-THREEFIX BVP-V-ADDER SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND BVP-NAT-TO-V V-OR-MAKE-LIST-F V-NOT-INVERTS-ALL BVP-V-IF BVP-V-SHIFT-RIGHT BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF BOOLP-NTH SHOW-THAT-NTH=T BOOLP-CAR-X BOOLFIX-CAR-X=X BVP-MAKE-LIST BVP-APPEND BVP-FIRSTN) EVENT (PROVE-LEMMA BVP-CONS (REWRITE) (EQUAL (BVP (CONS X Y)) (AND (BOOLP X) (BVP Y))) ((ENABLE BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP-CONS) (IMMEDIATE-DEPENDENTS0 BVP . BVP-CONS) (LEMMAS BVP . BVP-CONS))))) (PUT1-LST (QUOTE BVP-NLISTP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-GT-0 V-NEGP-AS-BOUNDS CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB V-SUM-ON-NOT-A-A V-NOT-V-NOT V-TO-NAT-EQUAL V-ALU-CORRECT-INT-ASR LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE V-APPROX-BVP BVP-REV1 FLAGS$PARTIAL-STATE F$UPDATE-FLAGS=UPDATE-FLAGS V-OR-CROCK-FOR-F$NEXT-CNTL-STATE F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$DECODE-5=DECODE-5 F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP=STORE-RESULTP BOOLP-STORE-RESULT-P CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS F$CARRY-IN-HELP=CARRY-IN-HELP BVP-LENGTH-BV BVP-BV-V-ALU F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 F$V-INC4$V=V-INC TR-OR-NOR=BTR-OR-NOR A-1+1=A V-PULLUP-BVP FV-XOR=V-XOR FV-OR=V-OR BVP-SUBRANGE V-IFF=EQUAL BVP-V-FOURFIX V-THREEFIX-BVP V-ADDER-WORKS V-IF-WORKS V-BUF-WORKS SIGN-EXTEND-AS-APPEND BOOLP-V-NEGP V-XOR-NZEROP=NOT-EQUAL V-OR-MAKE-LIST-F BOOLP-NTH BVP-LENGTH-CDR BVP-NTHCDR BVP-IS-PROPERP BVP-APPEND BVP-RESTN BVP-FIRSTN) EVENT (PROVE-LEMMA BVP-NLISTP (REWRITE) (IMPLIES (NLISTP X) (EQUAL (BVP X) (EQUAL X (QUOTE NIL)))) ((ENABLE BVP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-NLISTP) (LEMMAS BVP . BVP-NLISTP))))) (PUT1-LST (QUOTE BVP-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE BVP-OFF BVP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BVP . BVP-OFF) (DISABLED-LEMMAS NIL BVP BVP-OFF . T))))) (PUT1-LST (QUOTE *1*BVP) (QUOTE (MAIN-EVENT BVP))) (PUT1-LST (QUOTE BVP) (QUOTE (TYPE-PRESCRIPTION-LST ((BVP 3 NIL)) LEMMAS ((REWRITE-RULE BVP-INT-TO-V NIL (BVP (INT-TO-V I L)) NIL) (REWRITE-RULE BVP-CDR ((BVP X) (LISTP X)) (BVP (CDR X)) NIL) (REWRITE-RULE V-APPROX-BVP-SUBRANGE ((V-APPROX A1 A2) (BVP (SUBRANGE A1 I J))) (BVP (SUBRANGE A2 I J)) NIL) (REWRITE-RULE BVP-REVERSE ((BVP X)) (BVP (REVERSE X)) NIL) (REWRITE-RULE BVP-REV1 ((BVP X) (BVP ACC)) (BVP (REV1 X ACC)) NIL) (REWRITE-RULE BVP-READ-FN ((BVP REG0) (BVP REG1)) (BVP (READ-FN REG0 REG1 N)) NIL) (REWRITE-RULE BVP-LENGTH-READ-REGS-32 ((MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) (CAR REGS)) (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32))) (BVP (READ-REGS V-ADDR REGS)) NIL) (REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (BVP (CAR (CDR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))))) (IF WE (BVP ADDRESS) (BVP (CAR (CDR (CDR (CDR REGS))))))) NIL) (REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (BVP (CAR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA))))) (IF WE (BVP DATA) (BVP (CAR (CDR (CDR REGS)))))) NIL) (REWRITE-RULE BVP-LENGTH-NEXT-CNTL-STATE NIL (BVP (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) NIL) (REWRITE-RULE BVP-LENGTH-CV ((BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (BVP (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) NIL) (REWRITE-RULE BVP-LENGTH-NEXT-STATE ((BVP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (BVP (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_V11111 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_RESET2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_RESET1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_RESET0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_V11011 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_V11010 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_HOLD1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_HOLD0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_SEFB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_SEFB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_SEFA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_SEFA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_WRITE3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_WRITE2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_WRITE1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_WRITE0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READB3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READB2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READB1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READB0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READA3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READA2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READA1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_READA0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_UPDATE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_REGB RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_REGA RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_DECODE RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_FETCH3 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_FETCH2 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-CV-VECTORS ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (BVP (CV_FETCH0 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_V11111)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_RESET2)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_RESET1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_RESET0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_V11011)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_V11010)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_HOLD1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_HOLD0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_SEFB1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_SEFB0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_SEFA1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_SEFA0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_WRITE3)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_WRITE2)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_WRITE1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_WRITE0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READB3)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READB2)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READB1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READB0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READA3)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READA2)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READA1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_READA0)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_UPDATE)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_REGB)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_REGA)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_DECODE)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_FETCH3)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_FETCH2)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_FETCH1)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (BVP (V_FETCH0)) NIL) (REWRITE-RULE BVP-LENGTH-ENCODE-32 NIL (BVP (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) NIL) (REWRITE-RULE BVP-LENGTH-DECODE-5 NIL (BVP (DECODE-5 S)) NIL) (REWRITE-RULE BVP-A-IMMEDIATE ((BVP IR) (LESSP (QUOTE 8) (LENGTH IR))) (BVP (A-IMMEDIATE IR)) NIL) (REWRITE-RULE BVP-LENGTH-UPDATE-FLAGS NIL (BVP (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (OP-CODE I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (STORE-CC I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (SET-FLAGS I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (MODE-B I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (RN-B I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (MODE-A I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (RN-A I-REG)) NIL) (REWRITE-RULE BVP-IR-ACCESSORS ((BVP I-REG) (EQUAL (LENGTH I-REG) (QUOTE 32))) (BVP (A-IMMEDIATE I-REG)) NIL) (REWRITE-RULE BOOLP-BVP-CORE-ALU NIL (BVP (CORE-ALU C A B ZERO MPG OP TREE)) NIL) (REWRITE-RULE BOOLP-BVP-CORE-ALU NIL (BVP (BV (CORE-ALU C A B ZERO MPG OP TREE))) NIL) (REWRITE-RULE BVP-SHIFT-OR-BUF NIL (BVP (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)) NIL) (REWRITE-RULE BVP-F$TV-ALU-HELP ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (BVP (F$TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE BVP-CDDR-F$TV-ALU-HELP ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (BVP (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) NIL) (REWRITE-RULE BVP-TV-ALU-HELP NIL (BVP (TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE BVP-CDDR-TV-ALU-HELP NIL (BVP (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) NIL) (REWRITE-RULE BVP-MPG NIL (BVP (MPG ZSOP)) NIL) (REWRITE-RULE BVP-LENGTH-ALU-DEC-OP NIL (BVP (ALU-DEC-OP)) NIL) (REWRITE-RULE BVP-LENGTH-ALU-INC-OP NIL (BVP (ALU-INC-OP)) NIL) (REWRITE-RULE BVP-V-ALU-1 ((BVP A) (BOOLP C) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (BVP (V-ALU-1 C A OP)) NIL) (REWRITE-RULE BVP-LENGTH-BV ((BVP X) (NOT (LESSP (LENGTH X) (QUOTE 3)))) (BVP (BV X)) NIL) (REWRITE-RULE BVP-V-ALU ((BVP A) (BOOLP C) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (BVP (V-ALU C A B OP)) NIL) (REWRITE-RULE BVP-BV-V-ALU ((BVP A)) (BVP (BV (V-ALU C A B OP))) NIL) (REWRITE-RULE BOOLP-BVP-CVZBV NIL (EQUAL (BVP (BV (CVZBV C V BV))) (BVP BV)) NIL) (REWRITE-RULE BVP-CDR-TV-DEC-PASS-NG (MAKE-G) (BVP (CDR (TV-DEC-PASS-NG C A TREE MAKE-G))) NIL) (REWRITE-RULE BVP-TV-DEC-PASS-NG NIL (BVP (TV-DEC-PASS-NG C A TREE MAKE-G)) NIL) (REWRITE-RULE BVP-TV-DEC-PASS NIL (BVP (TV-DEC-PASS C A TREE)) NIL) (REWRITE-RULE BVP-CDR-TV-DEC-PASS NIL (BVP (CDR (TV-DEC-PASS C A TREE))) NIL) (REWRITE-RULE BVP-SUM NIL (BVP (V-SUM C A B)) NIL) (REWRITE-RULE BVP-READ-MEM-32 ((MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) MEM)) (BVP (READ-MEM V-ADDR MEM)) NIL) (REWRITE-RULE BVP-READ-MEM1 ((MEMORY-OKP (LENGTH V-ADDR) SIZE MEM)) (BVP (READ-MEM1 V-ADDR MEM)) NIL) (REWRITE-RULE BVP-SUBRANGE ((BVP V) (LESSP N (LENGTH V))) (BVP (SUBRANGE V M N)) NIL) (REWRITE-RULE BVP-V-THREEFIX ((PROPERP V)) (EQUAL (BVP (V-THREEFIX V)) (BVP V)) NIL) (REWRITE-RULE BVP-LENGTH-V-INC-V-DEC NIL (BVP (V-DEC X)) NIL) (REWRITE-RULE BVP-LENGTH-V-INC-V-DEC NIL (BVP (V-INC X)) NIL) (REWRITE-RULE BVP-V-ADDER NIL (BVP (V-ADDER C A B)) NIL) (REWRITE-RULE BVP-SIGN-EXTEND NIL (BVP (SIGN-EXTEND V N)) NIL) (REWRITE-RULE BVP-NAT-TO-V NIL (BVP (NAT-TO-V N LENGTH)) NIL) (REWRITE-RULE BVP-V-IF NIL (BVP (V-IF C A B)) NIL) (REWRITE-RULE BVP-V-ROR NIL (BVP (V-ROR A C)) NIL) (REWRITE-RULE BVP-V-ASR NIL (BVP (V-ASR A)) NIL) (REWRITE-RULE BVP-V-LSR NIL (BVP (V-LSR A)) NIL) (REWRITE-RULE BVP-V-SHIFT-RIGHT NIL (BVP (V-SHIFT-RIGHT A SI)) NIL) (REWRITE-RULE BVP-V-XOR NIL (BVP (V-XOR A B)) NIL) (REWRITE-RULE BVP-V-OR NIL (BVP (V-OR A B)) NIL) (REWRITE-RULE BVP-V-AND NIL (BVP (V-AND A B)) NIL) (REWRITE-RULE BVP-V-NOT NIL (BVP (V-NOT A)) NIL) (REWRITE-RULE BVP-V-BUF NIL (BVP (V-BUF A)) NIL) (REWRITE-RULE BVP-IF* ((BVP A) (BVP B)) (BVP (IF* C A B)) NIL) (REWRITE-RULE BVP-IF ((BVP A) (BVP B)) (BVP (IF C A B)) NIL) (REWRITE-RULE BVP-NTHCDR ((BVP L) (NOT (LESSP (LENGTH L) N))) (BVP (NTHCDR N L)) NIL) (REWRITE-RULE BVP-MAKE-LIST NIL (EQUAL (BVP (MAKE-LIST N V)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (BOOLP V) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE BVP-APPEND ((BVP A)) (EQUAL (BVP (APPEND A B)) (BVP B)) NIL) (REWRITE-RULE BVP-RESTN ((BVP X)) (BVP (RESTN N X)) NIL) (REWRITE-RULE BVP-FIRSTN ((BVP X)) (BVP (FIRSTN N X)) NIL) (REWRITE-RULE BVP-CONS NIL (EQUAL (BVP (CONS X Y)) (IF (BOOLP X) (BVP Y) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE BVP-NLISTP ((NOT (LISTP X))) (EQUAL (BVP X) (EQUAL X (QUOTE NIL))) NIL)) TOTALP-LST ((BVP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (BOOLP (CAR X)) (IF (BVP (CDR X)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (EQUAL X (QUOTE NIL)))) LISP-CODE *1*BVP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193938 CONTROLLER-POCKETS (1) SATELLITES (*1*BVP) IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT* FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE BVP-INT-TO-V V-NEGP->NEGATIVEP-V-TO-INT V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT ZERO-FLAG-INTERPRETATION-FOR-SUB V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS ZB-V-ALU V-NOT-V-NOT V-TO-NAT-EQUAL BVP-ON1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-INC V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED V-ALU-CORRECT-NAT-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-DEC V-ALU-CORRECT-NAT-INC V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA NAT-TO-V-OF-V-TO-NAT NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V V-ALU-CORRECT-NAT-INT-BUF BVP-CDR BVP-OFF2 CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET BVP-ON DUAL-PORT-RAM-STATE-BODY BVP-OFF1 DUAL-PORT-RAM-VALUE-BODY S-APPROX-IMPLIES-PROPERP-READ-MEM1 READ-MEM-MONOTONE V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE V-APPROX-BVP BVP-REVERSE BVP-REV1 FM9001-MACHINE-STATEP MACROCYCLE-INVARIANT OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP BVP-READ-FN SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS REGFILE-OKP F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS BVP-LENGTH-READ-REGS-32 READ-REGS-WRITE-REGS-F WRITE-REGS-OK NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE F$CONTROL-LET=CONTROL-LET BVP-CV-VECTORS BVP-LENGTH-STATE-VECTORS CV-HYPS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS FLAGS-HYPS BVP-LENGTH-ENCODE-32 F$DECODE-5=DECODE-5 BVP-LENGTH-DECODE-5 F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP=STORE-RESULTP F$B-STORE-RESULTP=B-STORE-RESULTP BOOLP-STORE-RESULT-P BVP-A-IMMEDIATE BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P BVP-IR-ACCESSORS CORE-ALU-IS-V-ALU CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK BOOLP-BVP-CORE-ALU F$CORE-ALU=CORE-ALU TV-SHIFT-OR-BUF$VALUE-ZERO SHIFT-OR-BUF-IS-LSR SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR SHIFT-OR-BUF-IS-BUF F$SHIFT-OR-BUF=SHIFT-OR-BUF BVP-SHIFT-OR-BUF F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP F$ALU-CELL=ALU-CELL F$CARRY-IN-HELP=CARRY-IN-HELP PROPERP-MPG BVP-MPG F$MPG=MPG BVP-LENGTH-ALU-DEC-OP BVP-LENGTH-ALU-INC-OP BVP-V-ALU-1 BVP-LENGTH-BV BVP-V-ALU BVP-BV-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV BOOLP-N F$DEC-PASS=DEC-OR-PASS F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS F$V-INC4$V=V-INC F$V-EQUAL=EQUAL* F$FAST-ZERO=V-ZEROP F$TV-ZEROP=V-ZEROP TR-OR-NOR=BTR-OR-NOR A-1+1=A BVP-SUM BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE V-THREEFIX-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT V-PULLUP-BVP FV-IF-WHEN-BVP FV-XOR=V-XOR FV-OR=V-OR NEXT-MEMORY-STATE$INDUCTION MEMORY-VALUE NEXT-MEMORY-STATE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE BVP-READ-MEM-32 BVP-READ-MEM BVP-READ-MEM1 MEMORY-OKP-AFTER-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-OKP BVP-SUBRANGE V-IFF=EQUAL BVP-V-FOURFIX BVP-V-THREEFIX V-THREEFIX-BVP V-ADDER-WORKS V-IF-WORKS V-BUF-WORKS BVP-LENGTH-V-INC-V-DEC BVP-V-ADDER SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND BOOLP-V-NEGP V-XOR-NZEROP=NOT-EQUAL BVP-NAT-TO-V V-OR-MAKE-LIST-F BVP-V-IF BVP-V-ROR BVP-V-ASR BVP-V-LSR BVP-V-SHIFT-RIGHT BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH BOOLP-NTH SHOW-THAT-NTH=T BVP-LENGTH-RESTN BVP-LENGTH-CDR BVP-LENGTH BV2P BVP-IF* BVP-IF BVP-NTHCDR BVP-MAKE-LIST BVP-IS-PROPERP BVP-APPEND BVP-RESTN BVP-FIRSTN BVP-CONS BVP-NLISTP BVP-OFF) EVENT (DEFN BVP (X) (IF (NLISTP X) (EQUAL X (QUOTE NIL)) (AND (BOOLP (CAR X)) (BVP (CDR X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BVP) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . BVP) (DCELL . *1*BVP))))) (PUT1-LST (QUOTE *1*FOURFIX) (QUOTE (MAIN-EVENT FOURFIX))) (PUT1-LST (QUOTE FOURFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((FOURFIX 128 T)) TOTALP-LST ((FOURFIX . T)) SDEFN (LAMBDA (X) (IF (FOURP X) X (QUOTE (*1*QUOTE X)))) LISP-CODE *1*FOURFIX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*FOURFIX) IMMEDIATE-DEPENDENTS0 (FT-WIRE-MONOTONE TTL-BIDIRECT-PADS-BODY$VALUE T-WIRE$VALUE PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X FT-WIRE-REWRITE EXPAND-F-FUNCTIONS FT-WIRE V-THREEFIX-V-FOURFIX V-FOURFIX-MAKE-LIST BVP-V-FOURFIX V-FOURFIX) EVENT (DEFN FOURFIX (X) (IF (FOURP X) X (QUOTE (*1*QUOTE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . FOURFIX) (IMMEDIATE-DEPENDENTS0 FOURP . FOURFIX) (DCELL . *1*FOURFIX))))) (PUT1-LST (QUOTE *1*FOURP) (QUOTE (MAIN-EVENT FOURP))) (PUT1-LST (QUOTE FOURP) (QUOTE (TYPE-PRESCRIPTION-LST ((FOURP 3 NIL)) LEMMAS ((REWRITE-RULE STUBP-IMPLIES-NOT-FOURP ((STUBP X)) (NOT (FOURP X)) NIL) (REWRITE-RULE ROMP-IMPLIES-NOT-FOURP ((ROMP X)) (NOT (FOURP X)) NIL) (REWRITE-RULE RAMP-IMPLIES-NOT-FOURP ((RAMP X)) (NOT (FOURP X)) NIL) (REWRITE-RULE LISTP-IMPLIES-NOT-FOURP ((LISTP X)) (NOT (FOURP X)) NIL) (REWRITE-RULE FOURP-F-IF NIL (FOURP (F-IF X Y Z)) NIL) (REWRITE-RULE FOURP-F-BUF NIL (FOURP (F-BUF X)) NIL)) TOTALP-LST ((FOURP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL (QUOTE *1*FALSE) X) (QUOTE *1*TRUE) (IF (EQUAL X (QUOTE (*1*QUOTE X))) (QUOTE *1*TRUE) (EQUAL X (QUOTE (*1*QUOTE Z))))))) LISP-CODE *1*FOURP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*FOURP) IMMEDIATE-DEPENDENTS0 (V-FOURP-IS-GOOD-S GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA STUBP-IMPLIES-NOT-FOURP ROMP-IMPLIES-NOT-FOURP RAMP-IMPLIES-NOT-FOURP LISTP-IMPLIES-NOT-FOURP V-FOURP-IMPLIES-PROPERP S-APPROX-MAKE-LIST NEW-MACHINE-STATE-INVARIANT V-FOURP FOURP-IMPLIES-S-APPROX-IS-B-APPROX FOURP-F-IF FOURP-F-BUF FT-WIRE-MONOTONE TTL-BIDIRECT-PADS-BODY$VALUE T-WIRE$VALUE PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z V-WIRE-X-X=X FT-WIRE-REWRITE EXPAND-F-FUNCTIONS V-THREEFIX-V-FOURFIX BVP-V-FOURFIX FOURFIX) EVENT (DEFN FOURP (X) (OR (EQUAL X (QUOTE *1*TRUE)) (OR (EQUAL (QUOTE *1*FALSE) X) (OR (EQUAL X (QUOTE (*1*QUOTE X))) (EQUAL X (QUOTE (*1*QUOTE Z))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z . FOURP) (IMMEDIATE-DEPENDENTS0 X . FOURP) (DCELL . *1*FOURP))))) (PUT1-LST (QUOTE THREEFIX=X-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE THREEFIX=X-OFF THREEFIX=X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX=X . THREEFIX=X-OFF) (DISABLED-LEMMAS NIL THREEFIX=X THREEFIX=X-OFF . T))))) (PUT1-LST (QUOTE THREEFIX=X) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE THREEFIX=X-OFF) EVENT (PROVE-LEMMA THREEFIX=X (REWRITE) (EQUAL (EQUAL (QUOTE (*1*QUOTE X)) (THREEFIX X)) (NOT (BOOLP X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . THREEFIX=X) (IMMEDIATE-DEPENDENTS0 THREEFIX . THREEFIX=X) (IMMEDIATE-DEPENDENTS0 X . THREEFIX=X) (LEMMAS EQUAL . THREEFIX=X))))) (PUT1-LST (QUOTE THREEFIX-IDEMPOTENT) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (PROPERP-LENGTH-F$WRITE-REGS WE-REG-BODY$STATE F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS THREEFIX-HELP-LEMMA) EVENT (PROVE-LEMMA THREEFIX-IDEMPOTENT (REWRITE) (EQUAL (THREEFIX (THREEFIX X)) (THREEFIX X)) ((ENABLE THREEFIX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 THREEFIX . THREEFIX-IDEMPOTENT) (LEMMAS THREEFIX . THREEFIX-IDEMPOTENT))))) (PUT1-LST (QUOTE *1*THREEFIX) (QUOTE (MAIN-EVENT THREEFIX))) (PUT1-LST (QUOTE THREEFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((THREEFIX 128 T)) LEMMAS ((REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-EQUV X Y)) (F-EQUV X Y)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-XOR X Y)) (F-XOR X Y)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-OR X Y)) (F-OR X Y)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-AND X Y)) (F-AND X Y)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-NOT X)) (F-NOT X)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (F-BUF X)) (THREEFIX X)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (QUOTE (*1*QUOTE X))) (QUOTE (*1*QUOTE X))) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE THREEFIX-HELP-LEMMA NIL (EQUAL (THREEFIX (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE THREEFIX-IDEMPOTENT NIL (EQUAL (THREEFIX (THREEFIX X)) (THREEFIX X)) NIL)) TOTALP-LST ((THREEFIX . T)) SDEFN (LAMBDA (X) (IF (BOOLP X) X (QUOTE (*1*QUOTE X)))) LISP-CODE *1*THREEFIX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*THREEFIX) IMMEDIATE-DEPENDENTS0 (F-IF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S FOURP-F-IF F-BUF-TYPE-SET F-PULLUP-MONOTONE FT-BUF-MONOTONE F-IF-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-BUF-MONOTONE SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT FM9001-STATE-STRUCTURE$STEP TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$STATE-HELP PROPERP-LENGTH-F$UPDATE-FLAGS FLAGS$VALUE F$WRITE-REGS=WRITE-REGS F$WRITE-REGS PROPERP-LENGTH-F$READ-REGS NEXT-CNTL-STATE$VALUE CV$VALUE PROPERP-LENGTH-F$CV F$CV=CV F$CV B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE F$V-IF-F-4=FV-IF COLLECT-VALUE-V-SHIFT-RIGHT WE-REG$VALUE REG$STATE REG$VALUE TR-OR-NOR=BTR-OR-NOR TV-IF$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-BUF$BODY-VALUE B-BUF-PWR$VALUE B-BUF$VALUE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE PULLUP$VALUE T-BUF$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-NBUF$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF V-THREEFIX-FV-SHIFT-RIGHT PROPERP-LENGTH-FV-SHIFT-RIGHT FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-SHIFT-RIGHT V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP FV-IF-V-THREEFIX FV-IF-REWRITE FV-IF-WHEN-BOOLP-C V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF PROPERP-LENGTH-FV-XOR F-GATES=B-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-BUF-DELETE-LEMMAS F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA F-IF-REWRITE FT-BUF-REWRITE F-AND-REWRITE F-BUF-LEMMA EXPAND-F-FUNCTIONS F-PULLUP FT-BUF F-IF F-EQUV F-XOR F-BUF PROPERP-LENGTH-NEXT-MEMORY-STATE NEXT-MEMORY-STATE$INDUCTION NEXT-MEMORY-STATE V-THREEFIX-V-FOURFIX V-THREEFIX-MAKE-LIST-X BVP-V-THREEFIX V-THREEFIX-IDEMPOTENCE APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP OPEN-V-THREEFIX V-THREEFIX THREEFIX=X THREEFIX-IDEMPOTENT) EVENT (DEFN THREEFIX (X) (IF (BOOLP X) X (QUOTE (*1*QUOTE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . THREEFIX) (IMMEDIATE-DEPENDENTS0 BOOLP . THREEFIX) (DCELL . *1*THREEFIX))))) (PUT1-LST (QUOTE *1*THREEP) (QUOTE (MAIN-EVENT THREEP))) (PUT1-LST (QUOTE THREEP) (QUOTE (TYPE-PRESCRIPTION-LST ((THREEP 3 NIL)) TOTALP-LST ((THREEP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (IF (EQUAL X (QUOTE *1*FALSE)) (QUOTE *1*TRUE) (EQUAL X (QUOTE (*1*QUOTE X)))))) LISP-CODE *1*THREEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*THREEP) EVENT (DEFN THREEP (X) (OR (EQUAL X (QUOTE *1*TRUE)) (OR (EQUAL X (QUOTE *1*FALSE)) (EQUAL X (QUOTE (*1*QUOTE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 X . THREEP) (DCELL . *1*THREEP))))) (PUT1-LST (QUOTE *1*BOOLFIX) (QUOTE (MAIN-EVENT BOOLFIX))) (PUT1-LST (QUOTE BOOLFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((BOOLFIX 3 NIL)) LEMMAS ((REWRITE-RULE BOOLFIX-CAR-X=X ((BVP-LENGTH X (QUOTE 1))) (EQUAL (BOOLFIX (CAR X)) (CAR X)) NIL)) TOTALP-LST ((BOOLFIX . T)) SDEFN (LAMBDA (X) (IF X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) LISP-CODE *1*BOOLFIX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*BOOLFIX) IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM T-CARRY-P-G-CARRY APPEND-SUM V-CARRY FV-SHIFT-RIGHT=V-SHIFT-RIGHT V-ADDER-WORKS BVP-V-ADDER LENGTH-OF-V-ADDER V-ADDER SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND LENGTH-SIGN-EXTEND SIGN-EXTEND LENGTH-V-SHIFT-RIGHT BVP-V-SHIFT-RIGHT V-SHIFT-RIGHT BOOLFIX-CAR-X=X) EVENT (DEFN BOOLFIX (X) (IF X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*BOOLFIX))))) (PUT1-LST (QUOTE BOOLP-IMPLIES-NOT-EQUAL-Z-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE BOOLP-IMPLIES-NOT-EQUAL-Z-OFF BOOLP-IMPLIES-NOT-EQUAL-Z T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP-IMPLIES-NOT-EQUAL-Z . BOOLP-IMPLIES-NOT-EQUAL-Z-OFF) (DISABLED-LEMMAS NIL BOOLP-IMPLIES-NOT-EQUAL-Z BOOLP-IMPLIES-NOT-EQUAL-Z-OFF . T))))) (PUT1-LST (QUOTE BOOLP-IMPLIES-NOT-EQUAL-Z) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (BOOLP-IMPLIES-NOT-EQUAL-Z-OFF) EVENT (PROVE-LEMMA BOOLP-IMPLIES-NOT-EQUAL-Z (REWRITE) (IMPLIES (BOOLP X) (NOT (EQUAL X (QUOTE (*1*QUOTE Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 Z . BOOLP-IMPLIES-NOT-EQUAL-Z) (IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-IMPLIES-NOT-EQUAL-Z) (LEMMAS EQUAL . BOOLP-IMPLIES-NOT-EQUAL-Z))))) (PUT1-LST (QUOTE BOOLP-LEMMAS) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-LSR-CARRY-OUT NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V V-APPROX-BVP FOURP-F-IF FT-WIRE-MONOTONE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$PARTIAL-STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$V-IF-F-4=FV-IF F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK TV-ALU-HELP-V-BUF-WORKS TR-OR-NOR=BTR-OR-NOR TV-IF$VALUE A-1+1=A BV-ADDER-BODY$VALUE B-BUF-PWR$VALUE FV-SHIFT-RIGHT=V-SHIFT-RIGHT FV-IF-V-THREEFIX F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-NOT-F-NOT=F-BUF F-OR-REWRITE F-AND-REWRITE V-THREEFIX-V-FOURFIX BVP-V-FOURFIX V-IF-WORKS SIGN-EXTEND-AS-APPEND V-OR-MAKE-LIST-F V-NOT-INVERTS-ALL B-BUF-X=X ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH SHOW-THAT-NTH=T BOOLFIX-CAR-X=X) EVENT (PROVE-LEMMA BOOLP-LEMMAS (REWRITE) (AND (BOOLP (QUOTE *1*TRUE)) (AND (BOOLP (QUOTE *1*FALSE)) (AND (IMPLIES (BOOLP B) (EQUAL (EQUAL B (QUOTE *1*TRUE)) B)) (IMPLIES (BOOLP B) (EQUAL (EQUAL B (QUOTE *1*FALSE)) (NOT B)))))) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-LEMMAS) (LEMMAS EQUAL . BOOLP-LEMMAS) (LEMMAS EQUAL . BOOLP-LEMMAS) (LEMMAS BOOLP . BOOLP-LEMMAS) (LEMMAS BOOLP . BOOLP-LEMMAS))))) (PUT1-LST (QUOTE PROVE-BOOLP) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-MOVE IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG NOT-INTEGERP-MINUS-ZERO INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS LESSP-A-PLUS-A-A LESSP-1-PLUS-X-X V-NEGP->NEGATIVEP-V-TO-INT NEGATIVEP-IDIFFERENCE-ON-NUMBERPS V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC LESSP-SUB1-PLUS-A-B-B V-NZEROP-NAT-TO-V FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS V-NOT-V-NOT BOOLP-FLAG-EXTRACTERS V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT F-PULLUP-MONOTONE WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$READ-REGS=READ-REGS F$NEXT-CNTL-STATE=NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE BVP-LENGTH-CV BVP-LENGTH-NEXT-STATE F$CONTROL-LET=CONTROL-LET BVP-CV-VECTORS BVP-LENGTH-ENCODE-32 F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$B-STORE-RESULTP=B-STORE-RESULTP BOOLP-STORE-RESULT-P BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS BOOLP-BVP-CORE-ALU F$CORE-ALU=CORE-ALU F$SHIFT-OR-BUF=SHIFT-OR-BUF F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP PROPERP-MPG BVP-MPG BOOLP-V-V-ALU BOOLP-C-V-ALU BOOLP-BVP-CVZBV F$DEC-PASS=DEC-OR-PASS BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS F$V-INC4$V=V-INC F$TV-ZEROP=V-ZEROP TR-OR-NOR=BTR-OR-NOR F$T-CARRY=T-CARRY BVP-SUM F$FULL-ADDER=FULL-ADDER BVP-V-ADDER BVP-SIGN-EXTEND V-NOT-INVERTS-ALL BVP-V-SHIFT-RIGHT BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF) EVENT (PROVE-LEMMA PROVE-BOOLP (REWRITE) (IMPLIES (OR (TRUEP X) (FALSEP X)) (BOOLP X)) ((ENABLE BOOLP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . PROVE-BOOLP) (LEMMAS BOOLP . PROVE-BOOLP))))) (PUT1-LST (QUOTE BOOLP-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE BOOLP-OFF BOOLP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLP . BOOLP-OFF) (DISABLED-LEMMAS NIL BOOLP BOOLP-OFF . T))))) (PUT1-LST (QUOTE *1*BOOLP) (QUOTE (MAIN-EVENT BOOLP))) (PUT1-LST (QUOTE BOOLP) (QUOTE (TYPE-PRESCRIPTION-LST ((BOOLP 3 NIL)) LEMMAS ((REWRITE-RULE BOOLP-FLAG-EXTRACTERS NIL (BOOLP (Z-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) NIL) (REWRITE-RULE BOOLP-FLAG-EXTRACTERS NIL (BOOLP (N-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) NIL) (REWRITE-RULE BOOLP-FLAG-EXTRACTERS NIL (BOOLP (V-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) NIL) (REWRITE-RULE BOOLP-FLAG-EXTRACTERS NIL (BOOLP (C-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) NIL) (REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (BOOLP (CAR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))) (BOOLP WE)) NIL) (REWRITE-RULE BOOLP-C-FLAG ((FLAGS-HYPS FLAGS)) (BOOLP (C-FLAG FLAGS)) NIL) (REWRITE-RULE BOOLP-STORE-RESULT-P ((BVP FLAGS) (EQUAL (LENGTH FLAGS) (QUOTE 4))) (BOOLP (STORE-RESULTP STORE-CC FLAGS)) NIL) (REWRITE-RULE BOOLP-C-FLAG-UPDATE-FLAGS NIL (BOOLP (C-FLAG (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV))) NIL) (REWRITE-RULE BOOLP-A-IMMEDIATE-P ((BVP IR) (EQUAL (LENGTH IR) (QUOTE 32))) (BOOLP (A-IMMEDIATE-P IR)) NIL) (REWRITE-RULE BOOLP-BVP-CORE-ALU NIL (BOOLP (ZB (CORE-ALU C A B ZERO MPG OP TREE))) NIL) (REWRITE-RULE BOOLP-BVP-CORE-ALU NIL (BOOLP (V (CORE-ALU C A B ZERO MPG OP TREE))) NIL) (REWRITE-RULE BOOLP-BVP-CORE-ALU NIL (BOOLP (C (CORE-ALU C A B ZERO MPG OP TREE))) NIL) (REWRITE-RULE BOOLP-CAR-F$TV-ALU-HELP ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (BOOLP (CAR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) NIL) (REWRITE-RULE BOOLP-CAR-F$TV-ALU-HELP ((BOOLP C) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP B) (EQUAL (LENGTH B) (TREE-SIZE TREE)) (BVP MPG) (EQUAL (LENGTH MPG) (QUOTE 7))) (BOOLP (CAR (F$TV-ALU-HELP C A B MPG TREE))) NIL) (REWRITE-RULE BOOLP-ZB-V-ALU NIL (BOOLP (ZB (V-ALU C A B OP))) NIL) (REWRITE-RULE BOOLP-V-V-ALU ((BOOLP C) (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (BOOLP (V (V-ALU C A B OP))) NIL) (REWRITE-RULE BOOLP-C-V-ALU ((BOOLP C) (BVP A) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (BOOLP (C (V-ALU C A B OP))) NIL) (REWRITE-RULE BOOLP-BVP-CVZBV NIL (BOOLP (ZB (CVZBV C V BV))) NIL) (REWRITE-RULE BOOLP-BVP-CVZBV NIL (EQUAL (BOOLP (V (CVZBV C V BV))) (BOOLP V)) NIL) (REWRITE-RULE BOOLP-BVP-CVZBV NIL (EQUAL (BOOLP (C (CVZBV C V BV))) (BOOLP C)) NIL) (REWRITE-RULE BOOLP-N ((BVP (BV V))) (BOOLP (N V)) NIL) (REWRITE-RULE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK ((EQUAL (F$TV-DEC-PASS-NG C A TREE MAKE-G) (TV-DEC-PASS-NG C A TREE MAKE-G))) (BOOLP (CAR (F$TV-DEC-PASS-NG C A TREE MAKE-G))) NIL) (REWRITE-RULE BOOLP-CAR-TV-DEC-PASS-NG NIL (BOOLP (CAR (TV-DEC-PASS-NG C A TREE MAKE-G))) NIL) (REWRITE-RULE BOOLP-IF* ((BOOLP A) (BOOLP B)) (BOOLP (IF* C A B)) NIL) (REWRITE-RULE BOOLP-V-NEGP ((BVP V)) (BOOLP (V-NEGP V)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-IF C A B)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR8 A B C D E G H I)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR6 A B C D E G)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR5 A B C D E)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR4 A B C D)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOR A B)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-AND4 A B C D)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-AND3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-AND A B)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-EQUV3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-EQUV X Y)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-XOR3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-XOR X Y)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-OR4 A B C D)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-OR3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-OR A B)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND8 A B C D E G H I)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND6 A B C D E G)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND5 A B C D E)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND4 A B C D)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND3 A B C)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NAND A B)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-NOT X)) NIL) (REWRITE-RULE BOOLP-B-GATES NIL (BOOLP (B-BUF X)) NIL) (REWRITE-RULE BOOLP-NTH ((BVP A)) (EQUAL (BOOLP (NTH N A)) (LESSP N (LENGTH A))) NIL) (REWRITE-RULE BOOLP-CAR-X ((BVP-LENGTH X (QUOTE 1))) (BOOLP (CAR X)) NIL) (REWRITE-RULE BOOLP-LEMMAS NIL (BOOLP (QUOTE *1*FALSE)) NIL) (REWRITE-RULE BOOLP-LEMMAS NIL (BOOLP (QUOTE *1*TRUE)) NIL) (REWRITE-RULE PROVE-BOOLP ((OR (TRUEP X) (FALSEP X))) (BOOLP X) NIL)) TOTALP-LST ((BOOLP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE *1*TRUE)) (QUOTE *1*TRUE) (EQUAL X (QUOTE *1*FALSE)))) LISP-CODE *1*BOOLP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193938 SATELLITES (*1*BOOLP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT FLAGS-INTERPRETATION-SUB V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS V-NOT-V-NOT V-TO-NAT-EQUAL BOOLP-FLAG-EXTRACTERS V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-TO-NAT-APPEND EQUAL-IFF V-TO-NAT-V-NOT-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET F-IF-PRESERVES-GOOD-S F-BUF-PRESERVES-GOOD-S V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE V-APPROX-BVP F-BUF-TYPE-SET FT-WIRE-MONOTONE F-EQUV-MONOTONE F-XOR-MONOTONE F-OR-MONOTONE F-NOT-MONOTONE F-AND-MONOTONE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS REGFILE-OKP NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP$STATE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE F$UPDATE-FLAGS=UPDATE-FLAGS F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS WRITE-REGS-OK NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE BVP-CV-VECTORS BVP-LENGTH-STATE-VECTORS CV-HYPS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS BOOLP-C-FLAG NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$ENCODE-32=ENCODE-32 F$V-IF-F-4=FV-IF F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP=STORE-RESULTP$HELP F$STORE-RESULTP-MUX=STORE-RESULTP-MUX BOOLP-STORE-RESULT-P BOOLP-C-FLAG-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES BOOLP-BVP-CORE-ALU F$CORE-ALU=CORE-ALU SHIFT-OR-BUF-IS-ROR F$SHIFT-OR-BUF=SHIFT-OR-BUF SHIFT-OR-BUF-CNTL$VALUE-ZERO F$SHIFT-OR-BUF-CNTL=SHIFT-OR-BUF-CNTL OVERFLOW-HELP$VALUE-ZERO F$OVERFLOW-HELP=OVERFLOW-HELP CARRY-OUT-HELP$VALUE-ZERO F$CARRY-OUT-HELP=CARRY-OUT-HELP F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS F$ALU-CELL=ALU-CELL F$G-CELL=G-CELL F$P-CELL=P-CELL CARRY-IN-HELP$VALUE-ZERO DECODE-GEN$VALUE-ZERO F$DECODE-GEN=DECODE-GEN DECODE-PROP$VALUE-ZERO F$DECODE-PROP=DECODE-PROP F$DECODE-MODE=DECODE-MODE BVP-LENGTH-ALU-DEC-OP BVP-LENGTH-ALU-INC-OP BVP-V-ALU-1 BVP-V-ALU BOOLP-ZB-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU BVP-CVZBV BOOLP-BVP-CVZBV BOOLP-N WE-REG$STATE DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS CHECK-TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG F$V-INC4=V-INC4 TR-OR-NOR=BTR-OR-NOR TV-IF$VALUE T-CARRY$VALUE F$T-CARRY=T-CARRY A-1+1=A BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE F$FULL-ADDER=FULL-ADDER B-BUF-PWR$VALUE B-BUF$VALUE STATE-OKP-0 STATE-SIMPLE-OKP FV-SHIFT-RIGHT=V-SHIFT-RIGHT V-PULLUP-BVP FV-IF-V-THREEFIX FV-IF-REWRITE FV-IF-WHEN-BVP F-GATES=B-GATES F-GATE-THREEFIX-CONGRUENCE-LEMMAS$HELP F-NOT-F-NOT=F-BUF THREEFIX-HELP-LEMMA F-OR-REWRITE F-AND-REWRITE F-BUF-LEMMA EXPAND-F-FUNCTIONS F-NOT PROPERP-LENGTH-NEXT-MEMORY-STATE NEXT-MEMORY-STATE$INDUCTION MEMORY-VALUE NEXT-MEMORY-STATE BOOLP-IF* V-IFF=EQUAL V-THREEFIX-V-FOURFIX V-FOURFIX-MAKE-LIST BVP-V-THREEFIX V-ADDER-WORKS V-IF-WORKS SIGN-EXTEND-AS-APPEND BVP-SIGN-EXTEND BOOLP-V-NEGP V-XOR-NZEROP=NOT-EQUAL BVP-NAT-TO-V V-OR-MAKE-LIST-F BVP-V-IF BOOLP-B-GATES B-BUF-X=X BOOLP-NTH BOOLP-CAR-X BVP-MAKE-LIST BVP-CONS BVP THREEFIX=X THREEFIX BOOLP-IMPLIES-NOT-EQUAL-Z BOOLP-LEMMAS PROVE-BOOLP BOOLP-OFF) EVENT (DEFN BOOLP (X) (OR (EQUAL X (QUOTE *1*TRUE)) (EQUAL X (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*BOOLP))))) (PUT1-LST (QUOTE *1*Z) (QUOTE (MAIN-EVENT Z))) (PUT1-LST (QUOTE *1*ZP) (QUOTE (MAIN-EVENT Z))) (PUT1-LST (QUOTE ZP) (QUOTE (TYPE-PRESCRIPTION-LST ((Z 3 NIL)) TOTALP-LST ((Z . T)) LISP-CODE *1*ZP SUBRP *1*TRUE MAIN-EVENT Z))) (PUT1-LST (QUOTE Z) (QUOTE (TYPE-PRESCRIPTION-LST ((Z 256)) TOTALP-LST ((Z . T)) LISP-CODE *1*Z SUBRP *1*TRUE IDATE 1000402193938 SATELLITES (*1*Z *1*ZP ZP) IMMEDIATE-DEPENDENTS0 (B-KNOWNP-COMPOUND-RECOGNIZER B-KNOWNP TTL-BIDIRECT-PADS-BODY$VALUE VFT-BUF-REWRITE VFT-BUF-LEMMAS V-PULLUP-MAKE-LIST-Z V-WIRE-MAKE-LIST-Z F-PULLUP-REWRITE FT-WIRE-REWRITE FT-BUF-REWRITE EXPAND-F-FUNCTIONS F-PULLUP FT-WIRE FT-BUF MEMORY-VALUE V-FOURFIX-MAKE-LIST FOURP BOOLP-IMPLIES-NOT-EQUAL-Z) EVENT (ADD-SHELL Z NIL ZP NIL) LOCAL-UNDO-TUPLES ((RECOGNIZER-ALIST NIL ZP . 256) (SINGLETON-TYPE-SETS NIL . 256) (SHELL-POCKETS NIL Z) (SHELL-ALIST NIL Z . 8) (DCELL . *1*Z) (DCELL . *1*ZP))))) (PUT1-LST (QUOTE *1*X) (QUOTE (MAIN-EVENT X))) (PUT1-LST (QUOTE *1*XP) (QUOTE (MAIN-EVENT X))) (PUT1-LST (QUOTE XP) (QUOTE (TYPE-PRESCRIPTION-LST ((X 3 NIL)) TOTALP-LST ((X . T)) LISP-CODE *1*XP SUBRP *1*TRUE MAIN-EVENT X))) (PUT1-LST (QUOTE X) (QUOTE (TYPE-PRESCRIPTION-LST ((X 128)) TOTALP-LST ((X . T)) LISP-CODE *1*X SUBRP *1*TRUE IDATE 1000402193938 SATELLITES (*1*X *1*XP XP) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET MAP-DOWN-INVERTS-MAP-UP B-APPROX-X ALL-XS-MAKE-LIST ALL-XS RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-1 RESET-VECTOR-CHIP INITIALIZED-MEMORY-STATE RUN-VECTOR RESET-VECTOR UNKNOWN-MEMORY-STATE UNKNOWN-MACHINE-STATE UNKNOWN-REGFILE GOOD-S-CONSTANT-RAM DUAL-PORT-RAM-STATE-BODY S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID DUAL-PORT-RAM-VALUE-BODY V-APPROX-MAKE-LIST-X F-BUF-TYPE-SET MEM-MAP-DOWN REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS-BODY$VALUE F$EXTEND-IMMEDIATE TV-IF-INDUCTION VFT-BUF-REWRITE V-WIRE-MAKE-LIST-X FV-IF-REWRITE THREEFIX-HELP-LEMMA F-PULLUP-REWRITE FT-WIRE-REWRITE FT-BUF-REWRITE EXPAND-F-FUNCTIONS FT-WIRE FT-BUF F-IF F-EQUV F-XOR F-OR F-NOT F-AND NEXT-MEMORY-STATE$INDUCTION MEMORY-VALUE NEXT-MEMORY-STATE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE V-FOURFIX-MAKE-LIST V-THREEFIX-MAKE-LIST-X FOURFIX FOURP THREEFIX=X THREEFIX THREEP) EVENT (ADD-SHELL X NIL XP NIL) LOCAL-UNDO-TUPLES ((RECOGNIZER-ALIST NIL XP . 128) (SINGLETON-TYPE-SETS NIL . 128) (SHELL-POCKETS NIL X) (SHELL-ALIST NIL X . 7) (DCELL . *1*X) (DCELL . *1*XP))))) (PUT1-LST (QUOTE NTH-INDICES-OFF) (QUOTE (IDATE 1000402193938 EVENT (TOGGLE NTH-INDICES-OFF NTH-INDICES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH-INDICES . NTH-INDICES-OFF) (DISABLED-LEMMAS NIL NTH-INDICES NTH-INDICES-OFF . T))))) (PUT1-LST (QUOTE NTH-INDICES) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (CONTROL-LET$VALUE NTH-INDICES-OFF) EVENT (PROVE-LEMMA NTH-INDICES (REWRITE) (IMPLIES (LESSP N M) (EQUAL (NTH N (INDICES NAME FROM M)) (INDEX NAME (PLUS N FROM)))) ((ENABLE NTH INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-0 . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 INDEX . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . NTH-INDICES) (IMMEDIATE-DEPENDENTS0 NTH . NTH-INDICES) (LEMMAS NTH . NTH-INDICES))))) (PUT1-LST (QUOTE POSITION-NAME-INDICES) (QUOTE (IDATE 1000402193938 IMMEDIATE-DEPENDENTS0 (VALUE-INDICES-HACK) EVENT (PROVE-LEMMA POSITION-NAME-INDICES (REWRITE) (IMPLIES (MEMBER INDEX (INDICES NAME FROM N)) (EQUAL (POSITION INDEX (INDICES NAME FROM N)) (DIFFERENCE (I-NUM INDEX) FROM))) ((INDUCT (INDICES NAME FROM N)) (ENABLE POSITION INDICES) (DISABLE OPEN-INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 LNFIX . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-0 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 POSITION . POSITION-NAME-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . POSITION-NAME-INDICES) (LEMMAS POSITION . POSITION-NAME-INDICES))))) (PUT1-LST (QUOTE NO-DUPLICATES-IN-INDICES) (QUOTE (IDATE 1000402193937 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE) EVENT (PROVE-LEMMA NO-DUPLICATES-IN-INDICES (REWRITE) (NOT (DUPLICATES? (INDICES NAME FROM N))) ((ENABLE DUPLICATES? INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 INDEX . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 LNFIX . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 DUPLICATES?-CONS . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . NO-DUPLICATES-IN-INDICES) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . NO-DUPLICATES-IN-INDICES) (LEMMAS DUPLICATES? . NO-DUPLICATES-IN-INDICES))))) (PUT1-LST (QUOTE DISJOINT-INDICES-DIFFERENT-NAMES) (QUOTE (IDATE 1000402193937 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-XOR$VALUE V-OR$VALUE) EVENT (PROVE-LEMMA DISJOINT-INDICES-DIFFERENT-NAMES (REWRITE) (IMPLIES (NOT (EQUAL (LNFIX NAME1) (LNFIX NAME2))) (DISJOINT (INDICES NAME1 FROM1 N1) (INDICES NAME2 FROM2 N2))) ((ENABLE DISJOINT INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 INDEX . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 MEMBER-INDICES . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 LISTP-INDICES . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 INDICES . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-INDICES-DIFFERENT-NAMES) (IMMEDIATE-DEPENDENTS0 LNFIX . DISJOINT-INDICES-DIFFERENT-NAMES) (LEMMAS DISJOINT . DISJOINT-INDICES-DIFFERENT-NAMES))))) (PUT1-LST (QUOTE MEMBER-INDICES) (QUOTE (IDATE 1000402193937 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG-BODY$STATE WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$STATE REG-BODY$ALL-UNBOUND-IN-BODY TV-DEC-PASS-NG$VALUE FAST-ZERO$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE COLLECT-VALUE-LITATOM-INDICES-SPEEDUP VALUE-INDICES-HACK POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES) EVENT (PROVE-LEMMA MEMBER-INDICES (REWRITE) (EQUAL (MEMBER X (INDICES NAME FROM N)) (AND (NOT (ZEROP N)) (AND (INDEXP X) (AND (EQUAL (I-NAME X) (LNFIX NAME)) (AND (IF (LESSP (I-NUM X) FROM) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP (I-NUM X) (PLUS FROM N))))))) ((ENABLE MEMBER INDICES LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 PLUS-0 . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 LNFIX . MEMBER-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . MEMBER-INDICES) (LEMMAS MEMBER . MEMBER-INDICES))))) (PUT1-LST (QUOTE PROPERP-INDICES) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE) EVENT (PROVE-LEMMA PROPERP-INDICES (REWRITE) (PROPERP (INDICES NAME FROM N)) ((ENABLE PROPERP INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . PROPERP-INDICES) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . PROPERP-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . PROPERP-INDICES) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-INDICES) (LEMMAS PROPERP . PROPERP-INDICES))))) (PUT1-LST (QUOTE LISTP-INDICES) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE NEXT-CNTL-STATE$VALUE NEXT-STATE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$ALL-UNBOUND-IN-BODY REG$STATE REG$VALUE REG-BODY$ALL-UNBOUND-IN-BODY DISJOINT-INDICES-DIFFERENT-NAMES) EVENT (PROVE-LEMMA LISTP-INDICES (REWRITE) (EQUAL (LISTP (INDICES NAME FROM N)) (NOT (ZEROP N))) ((ENABLE INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . LISTP-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . LISTP-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . LISTP-INDICES) (LEMMAS LISTP . LISTP-INDICES))))) (PUT1-LST (QUOTE LENGTH-INDICES) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE) EVENT (PROVE-LEMMA LENGTH-INDICES (REWRITE) (EQUAL (LENGTH (INDICES NAME FROM N)) (FIX N)) ((ENABLE LENGTH INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-INDICES . LENGTH-INDICES) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . LENGTH-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . LENGTH-INDICES) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-INDICES) (LEMMAS LENGTH . LENGTH-INDICES))))) (PUT1-LST (QUOTE INDICES-AS-APPEND-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE INDICES-AS-APPEND-OFF INDICES-AS-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDICES-AS-APPEND . INDICES-AS-APPEND-OFF) (DISABLED-LEMMAS NIL INDICES-AS-APPEND INDICES-AS-APPEND-OFF . T))))) (PUT1-LST (QUOTE INDICES-AS-APPEND) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (INDICES-AS-APPEND-OFF) EVENT (PROVE-LEMMA INDICES-AS-APPEND (REWRITE) (IMPLIES (NOT (ZEROP N)) (EQUAL (INDICES NAME FROM N) (APPEND (INDICES NAME FROM (SUB1 N)) (CONS (INDEX NAME (PLUS (SUB1 N) FROM)) (QUOTE NIL))))) ((ENABLE INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 INDICES-ZEROP . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-0 . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 INDEX . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 OPEN-INDICES . INDICES-AS-APPEND) (IMMEDIATE-DEPENDENTS0 INDICES . INDICES-AS-APPEND) (LEMMAS INDICES . INDICES-AS-APPEND))))) (PUT1-LST (QUOTE OPEN-INDICES) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE CORE-ALU*$DESTRUCTURE TV-SHIFT-OR-BUF*$DESTRUCTURE TV-ALU-HELP*$DESTRUCTURE WE-REG-BODY$STATE WE-REG-BODY$VALUE REG-BODY$STATE REG-BODY$VALUE TV-DEC-PASS-NG*$DESTRUCTURE TV-ZEROP*$DESTRUCTURE T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE TV-IF*$DESTRUCTURE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE NTH-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LISTP-INDICES LENGTH-INDICES INDICES-AS-APPEND) EVENT (PROVE-LEMMA OPEN-INDICES (REWRITE) (IMPLIES (NOT (ZEROP N)) (EQUAL (INDICES NAME FROM N) (CONS (INDEX NAME FROM) (INDICES NAME (ADD1 FROM) (SUB1 N))))) ((ENABLE INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . OPEN-INDICES) (IMMEDIATE-DEPENDENTS0 INDICES . OPEN-INDICES) (LEMMAS INDICES . OPEN-INDICES))))) (PUT1-LST (QUOTE INDICES-ZEROP) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP TV-ALU-HELP$VALUE-BASE-CASE WE-REG-BODY$STATE WE-REG-BODY$VALUE REG-BODY$STATE REG-BODY$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LISTP-INDICES LENGTH-INDICES INDICES-AS-APPEND) EVENT (PROVE-LEMMA INDICES-ZEROP (REWRITE) (IMPLIES (ZEROP N) (EQUAL (INDICES NAME FROM N) (QUOTE NIL))) ((ENABLE INDICES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDICES . INDICES-ZEROP) (LEMMAS INDICES . INDICES-ZEROP))))) (PUT1-LST (QUOTE INDICES-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE INDICES-OFF INDICES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDICES . INDICES-OFF) (DISABLED-LEMMAS NIL INDICES INDICES-OFF . T))))) (PUT1-LST (QUOTE *1*INDICES) (QUOTE (MAIN-EVENT INDICES))) (PUT1-LST (QUOTE INDICES) (QUOTE (TYPE-PRESCRIPTION-LST ((INDICES 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE INDICES-AS-APPEND ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (INDICES NAME FROM N) (APPEND (INDICES NAME FROM (SUB1 N)) (CONS (INDEX NAME (PLUS (SUB1 N) FROM)) (QUOTE NIL)))) NIL) (REWRITE-RULE OPEN-INDICES ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (INDICES NAME FROM N) (CONS (INDEX NAME FROM) (INDICES NAME (ADD1 FROM) (SUB1 N)))) NIL) (REWRITE-RULE INDICES-ZEROP ((ZEROP N)) (EQUAL (INDICES NAME FROM N) (QUOTE NIL)) NIL)) TOTALP-LST ((INDICES . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (NAME FROM N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (INDEX NAME FROM) (INDICES NAME (ADD1 FROM) (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*INDICES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((NAME (ADD1 FROM) (SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193936 CONTROLLER-POCKETS (4) SATELLITES (*1*INDICES) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM*$DESTRUCTURE CHIP-SYSTEM* CHIP*$DESTRUCTURE CHIP* CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS* TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS* TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS* TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS* CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP CHECK-FLAGS$NETLIST FLAGS*$DESTRUCTURE FLAGS* CHECK-REGFILE$NETLIST REGFILE*$DESTRUCTURE REGFILE* CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* CHECK-CV$NETLIST CV* NEXT-STATE* CONTROL-LET* CORE-ALU*$DESTRUCTURE CORE-ALU* TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP* TV-ALU-HELP-BODY WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG*$DESTRUCTURE WE-REG* REG-BODY$STATE REG-BODY$VALUE REG-BODY$ALL-UNBOUND-IN-BODY REG*$DESTRUCTURE REG* DEC-PASS*$DESTRUCTURE DEC-PASS* TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG* TV-DEC-PASS-NG-BODY V-EQUAL*$DESTRUCTURE V-EQUAL* FAST-ZERO*$DESTRUCTURE FAST-ZERO* TV-ZEROP*$DESTRUCTURE TV-ZEROP* T-OR-NOR*$DESTRUCTURE T-OR-NOR* T-OR-NOR-BODY TV-IF$VALUE TV-IF-LEMMA-CROCK TV-IF*$DESTRUCTURE TV-IF* TV-IF-BODY BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER*$DESTRUCTURE BV-ADDER* V-WIRE$BODY-VALUE V-WIRE*$DESTRUCTURE V-WIRE* V-PULLUP$BODY-VALUE V-PULLUP*$DESTRUCTURE V-PULLUP* V-XOR$BODY-VALUE V-XOR*$DESTRUCTURE V-XOR* V-OR$BODY-VALUE V-OR*$DESTRUCTURE V-OR* V-BUF$BODY-VALUE V-BUF*$DESTRUCTURE V-BUF* COLLECT-VALUE-LITATOM-INDICES-SPEEDUP VALUE-INDICES-HACK NTH-INDICES POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LISTP-INDICES LENGTH-INDICES INDICES-AS-APPEND OPEN-INDICES INDICES-ZEROP INDICES-OFF) EVENT (DEFN INDICES (NAME FROM N) (IF (ZEROP N) (QUOTE NIL) (CONS (INDEX NAME FROM) (INDICES NAME (ADD1 FROM) (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INDEX . INDICES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . INDICES) (DCELL . *1*INDICES))))) (PUT1-LST (QUOTE *1*LNFIX) (QUOTE (MAIN-EVENT LNFIX))) (PUT1-LST (QUOTE LNFIX) (QUOTE (TYPE-PRESCRIPTION-LST ((LNFIX 12 NIL)) TOTALP-LST ((LNFIX . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (IF (LITATOM X) X (QUOTE 0)))) LISP-CODE *1*LNFIX SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193936 SATELLITES (*1*LNFIX) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE WE-REG-BODY$STATE WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$STATE REG-BODY$ALL-UNBOUND-IN-BODY TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-IF$VALUE BV-ADDER$VALUE BV-ADDER-BODY$VALUE V-WIRE$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$VALUE V-XOR$BODY-VALUE V-OR$VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE VALUE-INDICES-HACK POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES) EVENT (DEFN LNFIX (X) (IF (OR (NUMBERP X) (LITATOM X)) X (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*LNFIX))))) (PUT1-LST (QUOTE COUNT-INDEX) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-I-NUM-ELIM) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE INDEX-I-NAME-I-NUM) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE INDEX-EQUAL) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM-LESSEQP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM-LESSP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM-NINDEXP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM-INDEX) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-LESSEQP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-LESSP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-NINDEXP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME-INDEX) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE *1*INDEX) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE *1*I-NUM) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NUM) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX 4 NIL)) LEMMAS ((REWRITE-RULE I-NUM-NINDEXP ((NOT (INDEXP X))) (EQUAL (I-NUM X) (QUOTE 0)) NIL) (REWRITE-RULE I-NUM-INDEX NIL (EQUAL (I-NUM (INDEX I-NAME I-NUM)) (IF (NUMBERP I-NUM) I-NUM (QUOTE 0))) NIL)) TOTALP-LST ((INDEX . T)) LISP-CODE *1*I-NUM SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE I-NAME-I-NUM-ELIM ((INDEXP X)) (EQUAL (INDEX (I-NAME X) (I-NUM X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((I-NUM X) (I-NAME X)) MAIN-EVENT INDEX))) (PUT1-LST (QUOTE *1*I-NAME) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE I-NAME) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX 12 NIL)) LEMMAS ((REWRITE-RULE I-NAME-NINDEXP ((NOT (INDEXP X))) (EQUAL (I-NAME X) (QUOTE 0)) NIL) (REWRITE-RULE I-NAME-INDEX NIL (EQUAL (I-NAME (INDEX I-NAME I-NUM)) (IF (NUMBERP I-NAME) I-NAME (IF (LITATOM I-NAME) I-NAME (QUOTE 0)))) NIL)) TOTALP-LST ((INDEX . T)) LISP-CODE *1*I-NAME SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE I-NAME-I-NUM-ELIM ((INDEXP X)) (EQUAL (INDEX (I-NAME X) (I-NUM X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((I-NAME X) (I-NUM X)) MAIN-EVENT INDEX))) (PUT1-LST (QUOTE *1*INDEXP) (QUOTE (MAIN-EVENT INDEX))) (PUT1-LST (QUOTE INDEXP) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX 3 NIL)) TOTALP-LST ((INDEX . T)) LISP-CODE *1*INDEXP SUBRP *1*TRUE MAIN-EVENT INDEX))) (PUT1-LST (QUOTE INDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX 64 NIL NIL)) LEMMAS ((REWRITE-RULE INDEX-I-NAME-I-NUM NIL (EQUAL (INDEX (I-NAME X) (I-NUM X)) (IF (INDEXP X) X (QUOTE (*1*QUOTE INDEX 0 0)))) NIL) (REWRITE-RULE I-NUM-TYPE-RESTRICTION ((NOT (NUMBERP I-NUM))) (EQUAL (INDEX I-NAME I-NUM) (INDEX I-NAME (QUOTE 0))) NIL) (REWRITE-RULE I-NAME-TYPE-RESTRICTION ((NOT (NUMBERP I-NAME)) (NOT (LITATOM I-NAME))) (EQUAL (INDEX I-NAME I-NUM) (INDEX (QUOTE 0) I-NUM)) NIL)) TOTALP-LST ((INDEX . T)) LISP-CODE *1*INDEX SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (OR (NUMBERP X) (LITATOM X)) 12 (QUOTE 0)) (TYPE-RESTRICTION (NUMBERP X) 4 (QUOTE 0))) IDATE 1000402193936 SATELLITES (COUNT-INDEX I-NAME-I-NUM-ELIM INDEX-I-NAME-I-NUM INDEX-EQUAL I-NUM-LESSEQP I-NUM-LESSP I-NUM-TYPE-RESTRICTION I-NUM-NINDEXP I-NUM-INDEX I-NAME-LESSEQP I-NAME-LESSP I-NAME-TYPE-RESTRICTION I-NAME-NINDEXP I-NAME-INDEX *1*INDEX *1*I-NUM I-NUM *1*I-NAME I-NAME *1*INDEXP INDEXP) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP-SYSTEM*$DESTRUCTURE CHIP-SYSTEM* CHIP$VALUE CHIP$STATE CHIP*$DESTRUCTURE CHIP* CHIP-MODULE$VALUE CHIP-MODULE$STATE REG-40$VALUE-AS-CNTL-STATE CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS& TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-BIDIRECT-PADS* TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS& TTL-TRI-OUTPUT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS* TTL-TRI-OUTPUT-PADS-BODY TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS& TTL-OUTPUT-PADS*$DESTRUCTURE TTL-OUTPUT-PADS* TTL-OUTPUT-PADS-BODY TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS& TTL-INPUT-PADS*$DESTRUCTURE TTL-INPUT-PADS* TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY EXTEND-IMMEDIATE$VALUE CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS*$DESTRUCTURE FLAGS* REGFILE$STATE REGFILE$VALUE CHECK-REGFILE$NETLIST REGFILE*$DESTRUCTURE REGFILE* NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* CV$VALUE CHECK-CV$NETLIST CV* NEXT-STATE$VALUE NEXT-STATE* CONTROL-LET$VALUE CORE-ALU$VALUE CORE-ALU& CORE-ALU*$DESTRUCTURE CORE-ALU* TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF& TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP-INDUCTION TV-ALU-HELP& TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP* TV-ALU-HELP-BODY WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY-INDUCTION WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY WE-REG& WE-REG*$DESTRUCTURE WE-REG* WE-REG-BODY REG$STATE REG-BODY$STATE REG$VALUE REG-BODY-INDUCTION REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY REG& REG*$DESTRUCTURE REG* REG-BODY DEC-PASS$VALUE DEC-PASS& DEC-PASS*$DESTRUCTURE DEC-PASS* TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG-BODY TV-DEC-PASS-NAME V-EQUAL$VALUE V-EQUAL& V-EQUAL*$DESTRUCTURE V-EQUAL* FAST-ZERO$VALUE FAST-ZERO& FAST-ZERO*$DESTRUCTURE FAST-ZERO* TV-ZEROP$VALUE TV-ZEROP& TV-ZEROP*$DESTRUCTURE TV-ZEROP* T-OR-NOR$VALUE T-OR-NOR-INDUCTION T-OR-NOR& T-OR-NOR*$DESTRUCTURE T-OR-NOR* T-OR-NOR-BODY TV-IF$VALUE TV-IF-LEMMA-CROCK TV-IF-INDUCTION TV-IF& TV-IF*$DESTRUCTURE TV-IF* TV-IF-BODY BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER-BODY$INDUCTION BV-ADDER& BV-ADDER*$DESTRUCTURE BV-ADDER* BV-ADDER-BODY LISP-NETLIST V-WIRE$VALUE V-WIRE$BODY-VALUE V-WIRE$UNBOUND-IN-BODY V-WIRE& V-WIRE*$DESTRUCTURE V-WIRE* V-WIRE$BODY V-PULLUP$VALUE V-PULLUP$BODY-VALUE V-PULLUP$UNBOUND-IN-BODY V-PULLUP& V-PULLUP*$DESTRUCTURE V-PULLUP* V-PULLUP$BODY V-XOR$VALUE V-XOR$BODY-VALUE V-XOR$UNBOUND-IN-BODY V-XOR& V-XOR*$DESTRUCTURE V-XOR* V-XOR$BODY V-OR$VALUE V-OR$BODY-VALUE V-OR$UNBOUND-IN-BODY V-OR& V-OR*$DESTRUCTURE V-OR* V-OR$BODY V-BUF$VALUE V-BUF$BODY-VALUE V-BUF$UNBOUND-IN-BODY V-BUF& V-BUF*$DESTRUCTURE V-BUF* V-BUF$BODY PNEW-STATES-OK PDRIVE-OK PDELAY-OK SIGNAL-NAMEP NAME-OKP COLLECT-DRIVES-SIMPLE EXTERNAL-LOADING FIX-DRIVES FIX-LOADINGS EXTRACT-NAMES-SIMPLE PARENT-SYNONYM-SIMPLE FIX-DEPENDENT-LDS NAME-SIMPLE-OKP TOKEN-LESSP VALUE-INDICES-HACK NTH-INDICES POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES INDICES-AS-APPEND OPEN-INDICES INDICES) EVENT (ADD-SHELL INDEX NIL INDEXP ((I-NAME (ONE-OF NUMBERP LITATOM) ZERO) (I-NUM (ONE-OF NUMBERP) ZERO))) LOCAL-UNDO-TUPLES ((LEMMAS COUNT . COUNT-INDEX) (LEMMAS EQUAL . INDEX-EQUAL) (LINEAR-LEMMAS COUNT . I-NUM-LESSEQP) (LINEAR-LEMMAS COUNT . I-NUM-LESSP) (LINEAR-LEMMAS COUNT . I-NAME-LESSEQP) (LINEAR-LEMMAS COUNT . I-NAME-LESSP) (RECOGNIZER-ALIST NIL INDEXP . 64) (SHELL-POCKETS NIL INDEX I-NAME I-NUM) (SHELL-ALIST NIL INDEX . 6) (DCELL . *1*INDEX) (DCELL . *1*I-NUM) (DCELL . *1*I-NAME) (DCELL . *1*INDEXP))))) (PUT1-LST (QUOTE EQUAL-LENGTH-32-AS-COLLECTED-NTH) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (DUAL-EVAL-ON-COLLECTED-NTH-32 LIST-32-NTH-COLLAPSE MEM-32X32-ARGS-CROCK DP-RAM-16X32-ARGS-CROCK) EVENT (PROVE-LEMMA EQUAL-LENGTH-32-AS-COLLECTED-NTH NIL (IMPLIES (AND (EQUAL (LENGTH L) (QUOTE 32)) (PROPERP L)) (EQUAL L (LIST-AS-COLLECTED-NTH L (QUOTE 32) (QUOTE 0)))) ((ENABLE OPEN-NTH PROPERP-AS-NULL-NTHCDR OUR-CAR-CDR-ELIM) (DISABLE CAR-CDR-ELIM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 PROPERP-AS-NULL-NTHCDR . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OUR-CAR-CDR-ELIM . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 PROPERP . EQUAL-LENGTH-32-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-32-AS-COLLECTED-NTH))))) (PUT1-LST (QUOTE EQUAL-LENGTH-4-AS-COLLECTED-NTH) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-ARGS-CROCK) EVENT (PROVE-LEMMA EQUAL-LENGTH-4-AS-COLLECTED-NTH NIL (IMPLIES (AND (EQUAL (LENGTH L) (QUOTE 4)) (PROPERP L)) (EQUAL L (LIST-AS-COLLECTED-NTH L (QUOTE 4) (QUOTE 0)))) ((ENABLE OPEN-NTH PROPERP-AS-NULL-NTHCDR OUR-CAR-CDR-ELIM) (DISABLE CAR-CDR-ELIM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 PROPERP-AS-NULL-NTHCDR . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-NTH . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OPEN-LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 OUR-CAR-CDR-ELIM . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 PROPERP . EQUAL-LENGTH-4-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-4-AS-COLLECTED-NTH))))) (PUT1-LST (QUOTE OPEN-LIST-AS-COLLECTED-NTH) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE DUAL-EVAL-ON-COLLECTED-NTH-32 MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH) EVENT (PROVE-LEMMA OPEN-LIST-AS-COLLECTED-NTH (REWRITE) (AND (IMPLIES (ZEROP LENGTH) (EQUAL (LIST-AS-COLLECTED-NTH L LENGTH N) (QUOTE NIL))) (IMPLIES (NOT (ZEROP LENGTH)) (EQUAL (LIST-AS-COLLECTED-NTH L LENGTH N) (CONS (NTH N L) (LIST-AS-COLLECTED-NTH L (SUB1 LENGTH) (ADD1 N)))))) ((ENABLE LIST-AS-COLLECTED-NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . OPEN-LIST-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . OPEN-LIST-AS-COLLECTED-NTH) (LEMMAS LIST-AS-COLLECTED-NTH . OPEN-LIST-AS-COLLECTED-NTH) (LEMMAS LIST-AS-COLLECTED-NTH . OPEN-LIST-AS-COLLECTED-NTH))))) (PUT1-LST (QUOTE LIST-AS-COLLECTED-NTH-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE LIST-AS-COLLECTED-NTH-OFF LIST-AS-COLLECTED-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-AS-COLLECTED-NTH . LIST-AS-COLLECTED-NTH-OFF) (DISABLED-LEMMAS NIL LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH-OFF . T))))) (PUT1-LST (QUOTE *1*LIST-AS-COLLECTED-NTH) (QUOTE (MAIN-EVENT LIST-AS-COLLECTED-NTH))) (PUT1-LST (QUOTE LIST-AS-COLLECTED-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((LIST-AS-COLLECTED-NTH 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE OPEN-LIST-AS-COLLECTED-NTH ((NUMBERP LENGTH) (NOT (EQUAL LENGTH (QUOTE 0)))) (EQUAL (LIST-AS-COLLECTED-NTH L LENGTH N) (CONS (NTH N L) (LIST-AS-COLLECTED-NTH L (SUB1 LENGTH) (ADD1 N)))) NIL) (REWRITE-RULE OPEN-LIST-AS-COLLECTED-NTH ((ZEROP LENGTH)) (EQUAL (LIST-AS-COLLECTED-NTH L LENGTH N) (QUOTE NIL)) NIL)) TOTALP-LST ((LIST-AS-COLLECTED-NTH . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (L LENGTH N) (IF (EQUAL LENGTH (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP LENGTH) (CONS (NTH N L) (LIST-AS-COLLECTED-NTH L (SUB1 LENGTH) (ADD1 N))) (QUOTE NIL)))) LISP-CODE *1*LIST-AS-COLLECTED-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP LENGTH)) NIL) (TESTS-AND-CASES ((NOT (ZEROP LENGTH))) ((L (SUB1 LENGTH) (ADD1 N))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (LENGTH) (COUNT LENGTH) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193936 CONTROLLER-POCKETS (2) SATELLITES (*1*LIST-AS-COLLECTED-NTH) IMMEDIATE-DEPENDENTS0 (EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE MEM-32X32-ARGS-CROCK DP-RAM-16X32-ARGS-CROCK EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH OPEN-LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH-OFF) EVENT (DEFN LIST-AS-COLLECTED-NTH (L LENGTH N) (IF (ZEROP LENGTH) (QUOTE NIL) (CONS (NTH N L) (LIST-AS-COLLECTED-NTH L (SUB1 LENGTH) (ADD1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . LIST-AS-COLLECTED-NTH) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LIST-AS-COLLECTED-NTH) (DCELL . *1*LIST-AS-COLLECTED-NTH))))) (PUT1-LST (QUOTE LIST-ELIM-4-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE LIST-ELIM-4-OFF LIST-ELIM-4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-ELIM-4 . LIST-ELIM-4-OFF) (DISABLED-LEMMAS NIL LIST-ELIM-4 LIST-ELIM-4-OFF . T))))) (PUT1-LST (QUOTE LIST-ELIM-4) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (LIST-ELIM-4-OFF) EVENT (PROVE-LEMMA LIST-ELIM-4 (REWRITE) (EQUAL (EQUAL L (CONS A (CONS B (CONS C (CONS D (QUOTE NIL)))))) (AND (EQUAL (CAR L) A) (AND (EQUAL (CAR (CDR L)) B) (AND (EQUAL (CAR (CDR (CDR L))) C) (AND (EQUAL (CAR (CDR (CDR (CDR L)))) D) (EQUAL (CDR (CDR (CDR (CDR L)))) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . LIST-ELIM-4))))) (PUT1-LST (QUOTE LIST-REWRITE-4-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE LIST-REWRITE-4-OFF LIST-REWRITE-4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LIST-REWRITE-4 . LIST-REWRITE-4-OFF) (DISABLED-LEMMAS NIL LIST-REWRITE-4 LIST-REWRITE-4-OFF . T))))) (PUT1-LST (QUOTE LIST-REWRITE-4) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (LIST-REWRITE-4-OFF) EVENT (PROVE-LEMMA LIST-REWRITE-4 (REWRITE) (IMPLIES (AND (PROPERP A) (EQUAL (LENGTH A) (QUOTE 4))) (EQUAL (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (QUOTE NIL))))) A)) ((ENABLE EQUAL-LENGTH-ADD1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . LIST-REWRITE-4) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . LIST-REWRITE-4) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LIST-REWRITE-4) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . LIST-REWRITE-4) (IMMEDIATE-DEPENDENTS0 LENGTH . LIST-REWRITE-4) (IMMEDIATE-DEPENDENTS0 PROPERP . LIST-REWRITE-4) (LEMMAS CONS . LIST-REWRITE-4))))) (PUT1-LST (QUOTE LISTP-MAKE-TREE) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=TR-OR-NOR) EVENT (PROVE-LEMMA LISTP-MAKE-TREE (REWRITE) (EQUAL (LISTP (MAKE-TREE N)) (IF (LESSP N (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((DISABLE DIFFERENCE-0) (ENABLE MAKE-TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . LISTP-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . LISTP-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . LISTP-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . LISTP-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . LISTP-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . LISTP-MAKE-TREE) (LEMMAS LISTP . LISTP-MAKE-TREE))))) (PUT1-LST (QUOTE TREE-SIZE-MAKE-TREE) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE CV$VALUE DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS F$V-EQUAL=EQUAL* V-EQUAL$VALUE FAST-ZERO$VALUE F$FAST-ZERO=V-ZEROP F$FAST-ZERO=TR-OR-NOR) EVENT (PROVE-LEMMA TREE-SIZE-MAKE-TREE (REWRITE) (IMPLIES (NOT (ZEROP N)) (EQUAL (TREE-SIZE (MAKE-TREE N)) N)) ((ENABLE TREE-SIZE MAKE-TREE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 MAKE-TREE . TREE-SIZE-MAKE-TREE) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TREE-SIZE-MAKE-TREE) (LEMMAS TREE-SIZE . TREE-SIZE-MAKE-TREE))))) (PUT1-LST (QUOTE MAKE-TREE-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE MAKE-TREE-OFF MAKE-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-TREE . MAKE-TREE-OFF) (DISABLED-LEMMAS NIL MAKE-TREE MAKE-TREE-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-TREE) (QUOTE (MAIN-EVENT MAKE-TREE))) (PUT1-LST (QUOTE MAKE-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-TREE 20 NIL)) TOTALP-LST ((MAKE-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (IF (EQUAL N (QUOTE 1)) (QUOTE 0) (CONS (MAKE-TREE (QUOTIENT N (QUOTE 2))) (MAKE-TREE (DIFFERENCE N (QUOTIENT N (QUOTE 2)))))) (QUOTE 0)))) LISP-CODE *1*MAKE-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (EQUAL N (QUOTE 1))) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (EQUAL N (QUOTE 1)))) (((DIFFERENCE N (QUOTIENT N (QUOTE 2)))) ((QUOTIENT N (QUOTE 2)))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (QUOTIENT-LESSP LESSP ZEROP-QUOTIENT NUMBERP EQUAL ZERO LEQ-LESSP-DIFFERENCE ZEROP COUNT-NUMBERP))) IDATE 1000402193936 CONTROLLER-POCKETS (1) SATELLITES (*1*MAKE-TREE) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP READB2$STEP READA1$STEP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE CHIP-MODULE$NETLIST CHIP-MODULE& CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* FM9001-NEXT-STATE CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE& EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* CHECK-REGFILE$NETLIST REGFILE$NETLIST REGFILE& REGFILE*$DESTRUCTURE REGFILE* CHECK-NEXT-CNTL-STATE$NETLIST CHECK-CV$NETLIST CV$NETLIST CV& CV* DEC-PASS$NETLIST F$DEC-PASS DEC-PASS& DEC-PASS*$DESTRUCTURE DEC-PASS* F$V-EQUAL V-EQUAL$NETLIST V-EQUAL& V-EQUAL*$DESTRUCTURE V-EQUAL* FAST-ZERO$NETLIST FAST-ZERO& FAST-ZERO*$DESTRUCTURE FAST-ZERO* F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE-OFF) EVENT (DEFN MAKE-TREE (N) (IF (ZEROP N) (QUOTE 0) (IF (EQUAL N (QUOTE 1)) (QUOTE 0) (CONS (MAKE-TREE (QUOTIENT N (QUOTE 2))) (MAKE-TREE (DIFFERENCE N (QUOTIENT N (QUOTE 2)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . MAKE-TREE) (IMMEDIATE-DEPENDENTS0 ZEROP-QUOTIENT . MAKE-TREE) (IMMEDIATE-DEPENDENTS0 LEQ-LESSP-DIFFERENCE . MAKE-TREE) (DCELL . *1*MAKE-TREE))))) (PUT1-LST (QUOTE TREE-HEIGHT-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE TREE-HEIGHT-OFF TREE-HEIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-HEIGHT . TREE-HEIGHT-OFF) (DISABLED-LEMMAS NIL TREE-HEIGHT TREE-HEIGHT-OFF . T))))) (PUT1-LST (QUOTE *1*TREE-HEIGHT) (QUOTE (MAIN-EVENT TREE-HEIGHT))) (PUT1-LST (QUOTE TREE-HEIGHT) (QUOTE (TYPE-PRESCRIPTION-LST ((TREE-HEIGHT 4 NIL)) TOTALP-LST ((TREE-HEIGHT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (ADD1 (MAX (TREE-HEIGHT (CAR TREE)) (TREE-HEIGHT (CDR TREE)))) (QUOTE 1))) LISP-CODE *1*TREE-HEIGHT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE)) ((CAR TREE))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193936 CONTROLLER-POCKETS (1) SATELLITES (*1*TREE-HEIGHT) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-INDUCTION TV-ALU-HELP-BODY F$TV-ZEROP TV-ZEROP$NETLIST TV-ZEROP& TV-ZEROP*$DESTRUCTURE TV-ZEROP* TV-IF-BODY TREE-HEIGHT-OFF) EVENT (DEFN TREE-HEIGHT (TREE) (IF (NLISTP TREE) (QUOTE 1) (ADD1 (MAX (TREE-HEIGHT (CAR TREE)) (TREE-HEIGHT (CDR TREE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . TREE-HEIGHT) (DCELL . *1*TREE-HEIGHT))))) (PUT1-LST (QUOTE *1*TRESTN) (QUOTE (MAIN-EVENT TRESTN))) (PUT1-LST (QUOTE TRESTN) (QUOTE (TYPE-PRESCRIPTION-LST ((TRESTN -1 T NIL)) TOTALP-LST ((TRESTN . T)) SDEFN (LAMBDA (LIST TREE) (RESTN (TREE-SIZE (CAR TREE)) LIST)) LISP-CODE *1*TRESTN SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193936 SATELLITES (*1*TRESTN) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP-INDUCTION TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP-BODY F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-ALU-HELP TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG-BODY F$TV-DEC-PASS-NG=TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH F$TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 TV-DEC-PASS F$FAST-ZERO=TR-OR-NOR BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR T-OR-NOR$VALUE TR-OR-NOR T-OR-NOR-INDUCTION T-OR-NOR*$DESTRUCTURE T-OR-NOR-BODY TV-IF$VALUE TV-IF-INDUCTION TV-IF*$DESTRUCTURE TV-IF-BODY CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER) EVENT (DEFN TRESTN (LIST TREE) (RESTN (TREE-SIZE (CAR TREE)) LIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . TRESTN) (IMMEDIATE-DEPENDENTS0 RESTN . TRESTN) (DCELL . *1*TRESTN))))) (PUT1-LST (QUOTE *1*TFIRSTN) (QUOTE (MAIN-EVENT TFIRSTN))) (PUT1-LST (QUOTE TFIRSTN) (QUOTE (TYPE-PRESCRIPTION-LST ((TFIRSTN 24 NIL NIL)) TOTALP-LST ((TFIRSTN . T)) SDEFN (LAMBDA (LIST TREE) (FIRSTN (TREE-SIZE (CAR TREE)) LIST)) LISP-CODE *1*TFIRSTN SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193936 SATELLITES (*1*TFIRSTN) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP-INDUCTION TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP-BODY F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-ALU-HELP TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG-BODY F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 TV-DEC-PASS F$FAST-ZERO=TR-OR-NOR BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR T-OR-NOR$VALUE TR-OR-NOR T-OR-NOR-INDUCTION T-OR-NOR*$DESTRUCTURE T-OR-NOR-BODY TV-IF$VALUE TV-IF-INDUCTION TV-IF*$DESTRUCTURE TV-IF-BODY CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TV-ADDER) EVENT (DEFN TFIRSTN (LIST TREE) (FIRSTN (TREE-SIZE (CAR TREE)) LIST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . TFIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . TFIRSTN) (DCELL . *1*TFIRSTN))))) (PUT1-LST (QUOTE MAKE-LIST-APPEND-TREE-CROCK-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE MAKE-LIST-APPEND-TREE-CROCK-OFF MAKE-LIST-APPEND-TREE-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST-APPEND-TREE-CROCK . MAKE-LIST-APPEND-TREE-CROCK-OFF) (DISABLED-LEMMAS NIL MAKE-LIST-APPEND-TREE-CROCK MAKE-LIST-APPEND-TREE-CROCK-OFF . T))))) (PUT1-LST (QUOTE MAKE-LIST-APPEND-TREE-CROCK) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-ZERO MAKE-LIST-APPEND-TREE-CROCK-OFF) EVENT (PROVE-LEMMA MAKE-LIST-APPEND-TREE-CROCK (REWRITE) (IMPLIES (LISTP TREE) (EQUAL (MAKE-LIST (PLUS (TREE-SIZE (CAR TREE)) (TREE-SIZE (CDR TREE))) VALUE) (MAKE-LIST (TREE-SIZE TREE) VALUE))) ((ENABLE TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . MAKE-LIST-APPEND-TREE-CROCK) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAKE-LIST-APPEND-TREE-CROCK) (LEMMAS MAKE-LIST . MAKE-LIST-APPEND-TREE-CROCK))))) (PUT1-LST (QUOTE TREE-SIZE-LEMMAS) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P) EVENT (PROVE-LEMMA TREE-SIZE-LEMMAS (REWRITE) (AND (IMPLIES (AND (LISTP TREE) (EQUAL SIZE (TREE-SIZE TREE))) (EQUAL (DIFFERENCE SIZE (TREE-SIZE (CAR TREE))) (TREE-SIZE (CDR TREE)))) (IMPLIES (AND (LISTP TREE) (EQUAL SIZE (TREE-SIZE TREE))) (EQUAL (DIFFERENCE SIZE (TREE-SIZE (CDR TREE))) (TREE-SIZE (CAR TREE))))) ((EXPAND (TREE-SIZE TREE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . TREE-SIZE-LEMMAS) (LEMMAS DIFFERENCE . TREE-SIZE-LEMMAS) (LEMMAS DIFFERENCE . TREE-SIZE-LEMMAS))))) (PUT1-LST (QUOTE A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P) EVENT (PROVE-LEMMA A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS (REWRITE) (IMPLIES (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LESSP (LENGTH A) (TREE-SIZE (CAR TREE))) (QUOTE *1*FALSE))) ((ENABLE TREE-SIZE LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-1 . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (IMMEDIATE-DEPENDENTS0 LENGTH . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) (LEMMAS LESSP . A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS))))) (PUT1-LST (QUOTE TREE-SIZE-1-CROCK) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE) EVENT (PROVE-LEMMA TREE-SIZE-1-CROCK (REWRITE) (NOT (EQUAL (QUOTE 1) (TREE-SIZE (CONS A B)))) ((ENABLE TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . TREE-SIZE-1-CROCK) (IMMEDIATE-DEPENDENTS0 PLUS-0 . TREE-SIZE-1-CROCK) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TREE-SIZE-1-CROCK) (IMMEDIATE-DEPENDENTS0 NOT-EQUAL-TREE-SIZE-TREE-0 . TREE-SIZE-1-CROCK) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . TREE-SIZE-1-CROCK) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . TREE-SIZE-1-CROCK) (LEMMAS EQUAL . TREE-SIZE-1-CROCK))))) (PUT1-LST (QUOTE NOT-EQUAL-TREE-SIZE-TREE-0) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE CORE-ALU*$DESTRUCTURE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK TV-SHIFT-OR-BUF*$DESTRUCTURE TV-ALU-HELP*$DESTRUCTURE TV-DEC-PASS-NG*$DESTRUCTURE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG TV-ZEROP*$DESTRUCTURE TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE TV-IF*$DESTRUCTURE TREE-SIZE-1-CROCK) EVENT (PROVE-LEMMA NOT-EQUAL-TREE-SIZE-TREE-0 (REWRITE) (NOT (EQUAL (TREE-SIZE TREE) (QUOTE 0))) ((ENABLE TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . NOT-EQUAL-TREE-SIZE-TREE-0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE-NLISTP . NOT-EQUAL-TREE-SIZE-TREE-0) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NOT-EQUAL-TREE-SIZE-TREE-0) (IMMEDIATE-DEPENDENTS0 TREE-SIZE . NOT-EQUAL-TREE-SIZE-TREE-0) (LEMMAS EQUAL . NOT-EQUAL-TREE-SIZE-TREE-0))))) (PUT1-LST (QUOTE TREE-SIZE-NLISTP) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-CROCK-1 CDR-TV-DEC-PASS-LENGTH BTR-OR-IS-V-NZEROP T-OR-NOR*$DESTRUCTURE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS TREE-SIZE-1-CROCK NOT-EQUAL-TREE-SIZE-TREE-0) EVENT (PROVE-LEMMA TREE-SIZE-NLISTP (REWRITE) (IMPLIES (NLISTP TREE) (EQUAL (TREE-SIZE TREE) (QUOTE 1))) ((ENABLE TREE-SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . TREE-SIZE-NLISTP) (LEMMAS TREE-SIZE . TREE-SIZE-NLISTP))))) (PUT1-LST (QUOTE TREE-SIZE-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE TREE-SIZE-OFF TREE-SIZE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TREE-SIZE . TREE-SIZE-OFF) (DISABLED-LEMMAS NIL TREE-SIZE TREE-SIZE-OFF . T))))) (PUT1-LST (QUOTE *1*TREE-SIZE) (QUOTE (MAIN-EVENT TREE-SIZE))) (PUT1-LST (QUOTE TREE-SIZE) (QUOTE (TYPE-PRESCRIPTION-LST ((TREE-SIZE 4 NIL)) LEMMAS ((REWRITE-RULE TREE-SIZE-MAKE-TREE ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (TREE-SIZE (MAKE-TREE N)) N) NIL) (REWRITE-RULE TREE-SIZE-NLISTP ((NOT (LISTP TREE))) (EQUAL (TREE-SIZE TREE) (QUOTE 1)) NIL)) TOTALP-LST ((TREE-SIZE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (TREE) (IF (LISTP TREE) (PLUS (TREE-SIZE (CAR TREE)) (TREE-SIZE (CDR TREE))) (QUOTE 1))) LISP-CODE *1*TREE-SIZE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP TREE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP TREE))) (((CDR TREE)) ((CAR TREE))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (TREE) (COUNT TREE) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193936 CONTROLLER-POCKETS (1) SATELLITES (*1*TREE-SIZE) IMMEDIATE-DEPENDENTS0 (CORE-ALU$VALUE CORE-ALU$NETLIST CORE-ALU& CORE-ALU*$DESTRUCTURE CORE-ALU* CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU PROPERP-LENGTH-F$CORE-ALU TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF*$DESTRUCTURE TV-SHIFT-OR-BUF* TV-ALU-HELP$VALUE TV-ALU-HELP-LEMMA-CROCK TV-ALU-HELP*$DESTRUCTURE TV-ALU-HELP* TV-ALU-HELP-BODY F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO BVP-LENGTH-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-DEC-PASS-NG$VALUE TV-DEC-PASS-NG-LEMMA-CROCK TV-DEC-PASS-NG*$DESTRUCTURE TV-DEC-PASS-NG* TV-DEC-PASS-NG-BODY F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 BVP-LENGTH-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 BVP-LENGTH-TV-DEC-PASS TV-DEC-PASS-LENGTH CDR-TV-DEC-PASS-LENGTH F$FAST-ZERO=V-ZEROP F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE TV-ZEROP*$DESTRUCTURE TV-ZEROP* BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE T-OR-NOR* T-OR-NOR-BODY TV-IF$VALUE TV-IF-LEMMA-CROCK TV-IF*$DESTRUCTURE TV-IF* TV-IF-BODY TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P TREE-SIZE-MAKE-TREE TRESTN TFIRSTN MAKE-LIST-APPEND-TREE-CROCK TREE-SIZE-LEMMAS A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS TREE-SIZE-1-CROCK NOT-EQUAL-TREE-SIZE-TREE-0 TREE-SIZE-NLISTP TREE-SIZE-OFF) EVENT (DEFN TREE-SIZE (TREE) (IF (NLISTP TREE) (QUOTE 1) (PLUS (TREE-SIZE (CAR TREE)) (TREE-SIZE (CDR TREE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . TREE-SIZE) (DCELL . *1*TREE-SIZE))))) (PUT1-LST (QUOTE FIRSTN-MAKE-LIST) (QUOTE (IDATE 1000402193936 EVENT (PROVE-LEMMA FIRSTN-MAKE-LIST (REWRITE) (IMPLIES (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (FIRSTN N (MAKE-LIST M V)) (MAKE-LIST N V))) ((ENABLE FIRSTN MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-1 . FIRSTN-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . FIRSTN-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-MAKE-LIST) (LEMMAS FIRSTN . FIRSTN-MAKE-LIST))))) (PUT1-LST (QUOTE PROPERP-MAKE-LIST) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT EXTEND-IMMEDIATE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE TV-SHIFT-OR-BUF$VALUE TV-IF$VALUE PROPERP-LENGTH-MEMORY-VALUE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE) EVENT (PROVE-LEMMA PROPERP-MAKE-LIST (REWRITE) (PROPERP (MAKE-LIST N VALUE)) ((ENABLE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . PROPERP-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-MAKE-LIST) (LEMMAS PROPERP . PROPERP-MAKE-LIST))))) (PUT1-LST (QUOTE MAKE-LIST-APPEND) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (LENGTH-RESET-SEQUENCE-CHIP-1 TTL-BIDIRECT-PADS$VALUE TV-ALU-HELP-ZERO TV-IF$VALUE) EVENT (PROVE-LEMMA MAKE-LIST-APPEND (REWRITE) (EQUAL (APPEND (MAKE-LIST N VALUE) (MAKE-LIST M VALUE)) (MAKE-LIST (PLUS N M) VALUE)) ((ENABLE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . MAKE-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . MAKE-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . MAKE-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-0 . MAKE-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MAKE-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAKE-LIST-APPEND) (LEMMAS APPEND . MAKE-LIST-APPEND))))) (PUT1-LST (QUOTE LENGTH-MAKE-LIST) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S DUAL-PORT-RAM-STATE-MONOTONE S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE F$READ-REGS=READ-REGS NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV TV-SHIFT-OR-BUF$VALUE TV-IF$VALUE PROPERP-LENGTH-MEMORY-VALUE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE LENGTH-SIGN-EXTEND) EVENT (PROVE-LEMMA LENGTH-MAKE-LIST (REWRITE) (EQUAL (LENGTH (MAKE-LIST N VALUE)) (FIX N)) ((ENABLE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 MAKE-LIST . LENGTH-MAKE-LIST) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-MAKE-LIST) (LEMMAS LENGTH . LENGTH-MAKE-LIST))))) (PUT1-LST (QUOTE OPEN-MAKE-LIST-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE OPEN-MAKE-LIST-OFF OPEN-MAKE-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-MAKE-LIST . OPEN-MAKE-LIST-OFF) (DISABLED-LEMMAS NIL OPEN-MAKE-LIST OPEN-MAKE-LIST-OFF . T))))) (PUT1-LST (QUOTE OPEN-MAKE-LIST) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE OPEN-MAKE-LIST-OFF) EVENT (PROVE-LEMMA OPEN-MAKE-LIST (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (MAKE-LIST N X) (QUOTE NIL))) (IMPLIES (NOT (ZEROP N)) (EQUAL (MAKE-LIST N X) (CONS X (MAKE-LIST (SUB1 N) X))))) ((ENABLE MAKE-LIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . OPEN-MAKE-LIST) (LEMMAS MAKE-LIST . OPEN-MAKE-LIST) (LEMMAS MAKE-LIST . OPEN-MAKE-LIST))))) (PUT1-LST (QUOTE MAKE-LIST-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE MAKE-LIST-OFF MAKE-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-LIST . MAKE-LIST-OFF) (DISABLED-LEMMAS NIL MAKE-LIST MAKE-LIST-OFF . T))))) (PUT1-LST (QUOTE *1*MAKE-LIST) (QUOTE (MAIN-EVENT MAKE-LIST))) (PUT1-LST (QUOTE MAKE-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-LIST 24 NIL NIL)) LEMMAS ((REWRITE-RULE MAKE-LIST-CROCK-FOR-F$CV=CV ((BOOLP V)) (EQUAL (MAKE-LIST (QUOTE 4) V) (IF V (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) NIL) (REWRITE-RULE MAKE-LIST-APPEND-TREE-CROCK ((LISTP TREE)) (EQUAL (MAKE-LIST (PLUS (TREE-SIZE (CAR TREE)) (TREE-SIZE (CDR TREE))) VALUE) (MAKE-LIST (TREE-SIZE TREE) VALUE)) NIL) (REWRITE-RULE OPEN-MAKE-LIST ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (MAKE-LIST N X) (CONS X (MAKE-LIST (SUB1 N) X))) NIL) (REWRITE-RULE OPEN-MAKE-LIST ((ZEROP N)) (EQUAL (MAKE-LIST N X) (QUOTE NIL)) NIL)) TOTALP-LST ((MAKE-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (N VALUE) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS VALUE (MAKE-LIST (SUB1 N) VALUE)) (QUOTE NIL)))) LISP-CODE *1*MAKE-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) VALUE)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193936 CONTROLLER-POCKETS (1) SATELLITES (*1*MAKE-LIST) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET LENGTH-RESET-SEQUENCE-CHIP-1 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET MAP-DOWN-INVERTS-MAP-UP FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE ALL-XS-MAKE-LIST RESET-SEQUENCE-CHIP-2 RESET-SEQUENCE-CHIP-1 RUN-VECTOR-CHIP-2 RUN-VECTOR-CHIP-1 RESET-VECTOR-CHIP FINAL-STATE-OKP INITIALIZED-MEMORY-STATE INITIALIZED-MACHINE-STATE INITIALIZED-REGFILE CHIP-SYSTEM-OPERATING-INPUTS-P-RESET-SEQUENCE RESET-SEQUENCE RUN-VECTOR RESET-VECTOR CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE UNKNOWN-MEMORY-STATE UNKNOWN-MACHINE-STATE UNKNOWN-REGFILE GOOD-S-CONSTANT-RAM DUAL-PORT-RAM-STATE-BODY S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-CONSTANT-RAM-X S-APPROX-CONSTANT-RAM-X-ID S-APPROX-WRITE-MEM-ID S-APPROX-WRITE-MEM1-ID DUAL-PORT-RAM-VALUE-BODY V-APPROX-MAKE-LIST-X FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 MEM-MAP-DOWN P-MAP-DOWN FM9001=FM9001-INTERPRETER REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE FM9001-NEXT-STATE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE PROPERP-LENGTH-F$EXTEND-IMMEDIATE F$EXTEND-IMMEDIATE CHECK-EXTEND-IMMEDIATE$NETLIST EXTEND-IMMEDIATE*$DESTRUCTURE EXTEND-IMMEDIATE* FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$NEXT-CNTL-STATE BVP-LENGTH-CV F$CV=CV MAKE-LIST-CROCK-FOR-F$CV=CV F$CV CV F$CONTROL-LET=CONTROL-LET PROPERP-LENGTH-CV_FETCH1 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_V11111 CV_RESET2$DESTRUCTURE CV_RESET2 CV_RESET1$DESTRUCTURE CV_RESET1 CV_RESET0$DESTRUCTURE CV_RESET0 CV_V11011$DESTRUCTURE CV_V11011 CV_V11010$DESTRUCTURE CV_V11010 CV_HOLD1$DESTRUCTURE CV_HOLD1 CV_HOLD0$DESTRUCTURE CV_HOLD0 CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFB0$DESTRUCTURE CV_SEFB0 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_SEFA0$DESTRUCTURE CV_SEFA0 CV_WRITE3$DESTRUCTURE CV_WRITE3 CV_WRITE2$DESTRUCTURE CV_WRITE2 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB3$DESTRUCTURE CV_READB3 CV_READB2$DESTRUCTURE CV_READB2 CV_READB1$DESTRUCTURE CV_READB1 CV_READB0$DESTRUCTURE CV_READB0 CV_READA3$DESTRUCTURE CV_READA3 CV_READA2$DESTRUCTURE CV_READA2 CV_READA1$DESTRUCTURE CV_READA1 CV_READA0$DESTRUCTURE CV_READA0 CV_REGB$DESTRUCTURE CV_REGB CV_REGA$DESTRUCTURE CV_REGA CV_DECODE$DESTRUCTURE CV_DECODE CV_FETCH3$DESTRUCTURE CV_FETCH3 CV_FETCH2$DESTRUCTURE CV_FETCH2 CV_FETCH1$DESTRUCTURE CV_FETCH1 CV_FETCH0$DESTRUCTURE CV_FETCH0 F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-MAKE-LIST-4-F FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE F$V-IF-F-4=FV-IF ASM-AND-FM9001 EXECUTE-FM9001 LIST-TO-TREE-MEM LIST-TO-MEM1 CORE-ALU-WORKS-FOR-ZERO-CASE TV-ALU-HELP-ZERO WE-REG$STATE TV-IF$VALUE DP-RAM-16X32$STATE DP-RAM-16X32$VALUE MAKE-RAM-STATE VFT-BUF-REWRITE VFT-BUF-LEMMAS V-PULLUP-MAKE-LIST-Z V-WIRE-MAKE-LIST-X V-WIRE-MAKE-LIST-Z FV-IF-REWRITE COLLECT-BREADTH-TREE BREADTH-TREE FIX-BREADTH-TREE-STACK PROPERP-LENGTH-NEXT-MEMORY-STATE NEXT-MEMORY-STATE$INDUCTION MEMORY-VALUE NEXT-MEMORY-STATE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE COLLECT-VALUE-MAKE-LIST V-FOURFIX-MAKE-LIST V-THREEFIX-MAKE-LIST-X SIGN-EXTEND-AS-APPEND SIGN-EXTEND NOT-V-NZEROP-ALL-F V-ZEROP-MAKE-LIST-F V-OR-MAKE-LIST-F BVP-MAKE-LIST MAKE-LIST-APPEND-TREE-CROCK FIRSTN-MAKE-LIST PROPERP-MAKE-LIST MAKE-LIST-APPEND LENGTH-MAKE-LIST OPEN-MAKE-LIST MAKE-LIST-OFF) EVENT (DEFN MAKE-LIST (N VALUE) (IF (ZEROP N) (QUOTE NIL) (CONS VALUE (MAKE-LIST (SUB1 N) VALUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . MAKE-LIST) (DCELL . *1*MAKE-LIST))))) (PUT1-LST (QUOTE UPDATE-NTH-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE UPDATE-NTH-OFF UPDATE-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-NTH . UPDATE-NTH-OFF) (DISABLED-LEMMAS NIL UPDATE-NTH UPDATE-NTH-OFF . T))))) (PUT1-LST (QUOTE *1*UPDATE-NTH) (QUOTE (MAIN-EVENT UPDATE-NTH))) (PUT1-LST (QUOTE UPDATE-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-NTH 16 NIL T NIL)) TOTALP-LST ((UPDATE-NTH . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (N LST VALUE) (IF (LISTP LST) (IF (EQUAL N (QUOTE 0)) (CONS VALUE (CDR LST)) (IF (NUMBERP N) (CONS (CAR LST) (UPDATE-NTH (SUB1 N) (CDR LST) VALUE)) (CONS VALUE (CDR LST)))) LST)) LISP-CODE *1*UPDATE-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST) (ZEROP N)) NIL) (TESTS-AND-CASES ((LISTP LST) (NOT (ZEROP N))) (((SUB1 N) (CDR LST) VALUE))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X)) (JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402193936 CONTROLLER-POCKETS (1 2) SATELLITES (*1*UPDATE-NTH) IMMEDIATE-DEPENDENTS0 (UPDATE-V-NTH UPDATE-NTH-OFF) EVENT (DEFN UPDATE-NTH (N LST VALUE) (IF (LISTP LST) (IF (ZEROP N) (CONS VALUE (CDR LST)) (CONS (CAR LST) (UPDATE-NTH (SUB1 N) (CDR LST) VALUE))) LST)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . UPDATE-NTH) (DCELL . *1*UPDATE-NTH))))) (PUT1-LST (QUOTE OPEN-SUBRANGE-OFF) (QUOTE (IDATE 1000402193936 EVENT (TOGGLE OPEN-SUBRANGE-OFF OPEN-SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-SUBRANGE . OPEN-SUBRANGE-OFF) (DISABLED-LEMMAS NIL OPEN-SUBRANGE OPEN-SUBRANGE-OFF . T))))) (PUT1-LST (QUOTE OPEN-SUBRANGE) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32 CHIP-SYSTEM=RUN-FM9001 LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 OPEN-SUBRANGE-OFF) EVENT (PROVE-LEMMA OPEN-SUBRANGE (REWRITE) (AND (IMPLIES (LESSP M N) (EQUAL (SUBRANGE L N M) (QUOTE NIL))) (AND (IMPLIES (AND (NOT (LESSP M N)) (AND (ZEROP N) (ZEROP M))) (EQUAL (SUBRANGE L N M) (CONS (CAR L) (QUOTE NIL)))) (AND (IMPLIES (AND (NOT (LESSP M N)) (AND (ZEROP N) (NOT (ZEROP M)))) (EQUAL (SUBRANGE L N M) (CONS (CAR L) (SUBRANGE (CDR L) (QUOTE 0) (SUB1 M))))) (IMPLIES (AND (NOT (LESSP M N)) (NOT (ZEROP N))) (EQUAL (SUBRANGE L N M) (SUBRANGE (CDR L) (SUB1 N) (SUB1 M))))))) ((ENABLE SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . OPEN-SUBRANGE) (LEMMAS SUBRANGE . OPEN-SUBRANGE) (LEMMAS SUBRANGE . OPEN-SUBRANGE) (LEMMAS SUBRANGE . OPEN-SUBRANGE) (LEMMAS SUBRANGE . OPEN-SUBRANGE))))) (PUT1-LST (QUOTE DISJOINT-SUBRANGE) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE) EVENT (PROVE-LEMMA DISJOINT-SUBRANGE (REWRITE) (IMPLIES (AND (DISJOINT X Y) (LESSP M (LENGTH Y))) (AND (DISJOINT X (SUBRANGE Y N M)) (DISJOINT (SUBRANGE Y N M) X))) ((ENABLE DISJOINT SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 NOT-MEMBER-SUBRANGE . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LISTP-SUBRANGE . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . DISJOINT-SUBRANGE) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-SUBRANGE) (LEMMAS DISJOINT . DISJOINT-SUBRANGE) (LEMMAS DISJOINT . DISJOINT-SUBRANGE))))) (PUT1-LST (QUOTE NOT-MEMBER-SUBRANGE) (QUOTE (IDATE 1000402193936 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE CONTROL-LET$VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS DISJOINT-SUBRANGE) EVENT (PROVE-LEMMA NOT-MEMBER-SUBRANGE (REWRITE) (IMPLIES (AND (LESSP N (LENGTH V)) (NOT (MEMBER X V))) (NOT (MEMBER X (SUBRANGE V M N)))) ((ENABLE LENGTH MEMBER SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-SUBRANGE . NOT-MEMBER-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . NOT-MEMBER-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . NOT-MEMBER-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . NOT-MEMBER-SUBRANGE) (LEMMAS MEMBER . NOT-MEMBER-SUBRANGE))))) (PUT1-LST (QUOTE SUBSET-SUBRANGE) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE CONTROL-LET$VALUE) EVENT (PROVE-LEMMA SUBSET-SUBRANGE (REWRITE) (IMPLIES (LESSP N (LENGTH V)) (SUBSET (SUBRANGE V M N) V)) ((ENABLE LENGTH SUBSET SUBRANGE) (EXPAND (SUBRANGE V M (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-SUBRANGE . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBSET-X-CONS-Y-Z . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBSET-CONS . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . SUBSET-SUBRANGE) (LEMMAS SUBSET . SUBSET-SUBRANGE))))) (PUT1-LST (QUOTE LISTP-SUBRANGE) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (V-APPROX-SUBRANGE DISJOINT-SUBRANGE NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE) EVENT (PROVE-LEMMA LISTP-SUBRANGE (REWRITE) (EQUAL (LISTP (SUBRANGE L N M)) (NOT (LESSP M N))) ((ENABLE SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LISTP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . LISTP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . LISTP-SUBRANGE) (LEMMAS LISTP . LISTP-SUBRANGE))))) (PUT1-LST (QUOTE SUBRANGE-0) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE BV-AS-SUBRANGE F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA SUBRANGE-0 (REWRITE) (IMPLIES (AND (EQUAL M (SUB1 (LENGTH A))) (AND (PROPERP A) (NOT (ZEROP (LENGTH A))))) (EQUAL (SUBRANGE A (QUOTE 0) M) A)) ((ENABLE SUBRANGE PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 CAR-CDR-IF-CONS . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 PROPERP . SUBRANGE-0) (IMMEDIATE-DEPENDENTS0 LENGTH . SUBRANGE-0) (LEMMAS SUBRANGE . SUBRANGE-0))))) (PUT1-LST (QUOTE SUBRANGE-APPEND-LEFT) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA SUBRANGE-APPEND-LEFT (REWRITE) (IMPLIES (AND (NOT (LESSP M N)) (AND (LESSP N (LENGTH A)) (LESSP M (LENGTH A)))) (EQUAL (SUBRANGE (APPEND A B) N M) (SUBRANGE A N M))) ((INDUCT (SUBRANGE A N M)) (ENABLE SUBRANGE APPEND LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE-APPEND-RIGHT . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBRANGE-APPEND-LEFT) (IMMEDIATE-DEPENDENTS0 LENGTH . SUBRANGE-APPEND-LEFT) (LEMMAS SUBRANGE . SUBRANGE-APPEND-LEFT))))) (PUT1-LST (QUOTE SUBRANGE-APPEND-RIGHT) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE SUBRANGE-APPEND-LEFT) EVENT (PROVE-LEMMA SUBRANGE-APPEND-RIGHT (REWRITE) (IMPLIES (AND (NOT (LESSP M N)) (IF (LESSP N (LENGTH A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (SUBRANGE (APPEND A B) N M) (SUBRANGE B (DIFFERENCE N (LENGTH A)) (DIFFERENCE M (LENGTH A))))) ((INDUCT (SUBRANGE A N M)) (ENABLE SUBRANGE APPEND LENGTH) (EXPAND (DIFFERENCE N (LENGTH A)) (DIFFERENCE M (LENGTH A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBRANGE-APPEND-RIGHT) (IMMEDIATE-DEPENDENTS0 LENGTH . SUBRANGE-APPEND-RIGHT) (LEMMAS SUBRANGE . SUBRANGE-APPEND-RIGHT))))) (PUT1-LST (QUOTE LENGTH-SUBRANGE) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S DUAL-PORT-RAM-STATE-MONOTONE FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK CHIP$VALUE CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE CV_V11111$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH1$DESTRUCTURE PROPERP-LENGTH-IR-ACCESSORS) EVENT (PROVE-LEMMA LENGTH-SUBRANGE (REWRITE) (EQUAL (LENGTH (SUBRANGE L N M)) (IF (LESSP M N) (QUOTE 0) (ADD1 (DIFFERENCE M N)))) ((ENABLE SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-X-1 . LENGTH-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-SUBRANGE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LENGTH-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . LENGTH-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-SUBRANGE) (LEMMAS LENGTH . LENGTH-SUBRANGE))))) (PUT1-LST (QUOTE SUBRANGE-CONS-OFF) (QUOTE (IDATE 1000402193935 EVENT (TOGGLE SUBRANGE-CONS-OFF SUBRANGE-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE-CONS . SUBRANGE-CONS-OFF) (DISABLED-LEMMAS NIL SUBRANGE-CONS SUBRANGE-CONS-OFF . T))))) (PUT1-LST (QUOTE SUBRANGE-CONS) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE F$WRITE-REGS=WRITE-REGS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE SUBRANGE-CONS-OFF) EVENT (PROVE-LEMMA SUBRANGE-CONS (REWRITE) (EQUAL (SUBRANGE (CONS CAR CDR) N M) (IF (LESSP M N) (QUOTE NIL) (IF (ZEROP N) (IF (ZEROP M) (CONS CAR (QUOTE NIL)) (CONS CAR (SUBRANGE CDR (QUOTE 0) (SUB1 M)))) (SUBRANGE CDR (SUB1 N) (SUB1 M))))) ((ENABLE SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBRANGE-CONS) (LEMMAS SUBRANGE . SUBRANGE-CONS))))) (PUT1-LST (QUOTE PROPERP-SUBRANGE) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (DP-RAM-16X32-PRESERVES-GOOD-S DUAL-PORT-RAM-STATE-MONOTONE MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK CHIP$VALUE CHIP-MODULE$VALUE CHIP-MODULE$STATE NEXT-CNTL-STATE$VALUE CONTROL-LET$VALUE PROPERP-LENGTH-IR-ACCESSORS) EVENT (PROVE-LEMMA PROPERP-SUBRANGE (REWRITE) (PROPERP (SUBRANGE V N M)) ((ENABLE SUBRANGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 SUBRANGE . PROPERP-SUBRANGE) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-SUBRANGE) (LEMMAS PROPERP . PROPERP-SUBRANGE))))) (PUT1-LST (QUOTE SUBRANGE-OFF) (QUOTE (IDATE 1000402193935 EVENT (TOGGLE SUBRANGE-OFF SUBRANGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBRANGE . SUBRANGE-OFF) (DISABLED-LEMMAS NIL SUBRANGE SUBRANGE-OFF . T))))) (PUT1-LST (QUOTE *1*SUBRANGE) (QUOTE (MAIN-EVENT SUBRANGE))) (PUT1-LST (QUOTE SUBRANGE) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBRANGE 24 NIL NIL NIL)) LEMMAS ((REWRITE-RULE V-APPROX-IMPLIES-SUBRANGES-EQUAL ((V-APPROX X Y) (BVP (SUBRANGE X I J))) (EQUAL (SUBRANGE X I J) (SUBRANGE Y I J)) NIL) (REWRITE-RULE OPEN-SUBRANGE ((NOT (LESSP M N)) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (SUBRANGE L N M) (SUBRANGE (CDR L) (SUB1 N) (SUB1 M))) NIL) (REWRITE-RULE OPEN-SUBRANGE ((NOT (LESSP M N)) (ZEROP N) (NUMBERP M) (NOT (EQUAL M (QUOTE 0)))) (EQUAL (SUBRANGE L N M) (CONS (CAR L) (SUBRANGE (CDR L) (QUOTE 0) (SUB1 M)))) NIL) (REWRITE-RULE OPEN-SUBRANGE ((NOT (LESSP M N)) (ZEROP N) (ZEROP M)) (EQUAL (SUBRANGE L N M) (CONS (CAR L) (QUOTE NIL))) NIL) (REWRITE-RULE OPEN-SUBRANGE ((LESSP M N)) (EQUAL (SUBRANGE L N M) (QUOTE NIL)) NIL) (REWRITE-RULE SUBRANGE-0 ((EQUAL M (SUB1 (LENGTH A))) (PROPERP A) (NUMBERP (LENGTH A)) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (SUBRANGE A (QUOTE 0) M) A) NIL) (REWRITE-RULE SUBRANGE-APPEND-LEFT ((NOT (LESSP M N)) (LESSP N (LENGTH A)) (LESSP M (LENGTH A))) (EQUAL (SUBRANGE (APPEND A B) N M) (SUBRANGE A N M)) NIL) (REWRITE-RULE SUBRANGE-APPEND-RIGHT ((NOT (LESSP M N)) (NOT (LESSP N (LENGTH A)))) (EQUAL (SUBRANGE (APPEND A B) N M) (SUBRANGE B (DIFFERENCE N (LENGTH A)) (DIFFERENCE M (LENGTH A)))) NIL) (REWRITE-RULE SUBRANGE-CONS NIL (EQUAL (SUBRANGE (CONS CAR CDR) N M) (IF (LESSP M N) (QUOTE NIL) (IF (EQUAL N (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (CONS CAR (QUOTE NIL)) (IF (NUMBERP M) (CONS CAR (SUBRANGE CDR (QUOTE 0) (SUB1 M))) (CONS CAR (QUOTE NIL)))) (IF (NUMBERP N) (SUBRANGE CDR (SUB1 N) (SUB1 M)) (IF (EQUAL M (QUOTE 0)) (CONS CAR (QUOTE NIL)) (IF (NUMBERP M) (CONS CAR (SUBRANGE CDR (QUOTE 0) (SUB1 M))) (CONS CAR (QUOTE NIL)))))))) NIL)) TOTALP-LST ((SUBRANGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (L N M) (IF (LESSP M N) (QUOTE NIL) (IF (EQUAL N (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (CONS (CAR L) (QUOTE NIL)) (IF (NUMBERP M) (CONS (CAR L) (SUBRANGE (CDR L) (QUOTE 0) (SUB1 M))) (CONS (CAR L) (QUOTE NIL)))) (IF (NUMBERP N) (SUBRANGE (CDR L) (SUB1 N) (SUB1 M)) (IF (EQUAL M (QUOTE 0)) (CONS (CAR L) (QUOTE NIL)) (IF (NUMBERP M) (CONS (CAR L) (SUBRANGE (CDR L) (QUOTE 0) (SUB1 M))) (CONS (CAR L) (QUOTE NIL)))))))) LISP-CODE *1*SUBRANGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP M N)) NIL) (TESTS-AND-CASES ((NOT (LESSP M N)) (ZEROP N) (ZEROP M)) NIL) (TESTS-AND-CASES ((NOT (LESSP M N)) (ZEROP N) (NOT (ZEROP M))) (((CDR L) (QUOTE 0) (SUB1 M)))) (TESTS-AND-CASES ((NOT (LESSP M N)) (NOT (ZEROP N))) (((CDR L) (SUB1 N) (SUB1 M))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (M) (COUNT M) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193935 CONTROLLER-POCKETS (4) SATELLITES (*1*SUBRANGE) IMMEDIATE-DEPENDENTS0 (DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY V-APPROX-SUBRANGE DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY V-APPROX-BVP-SUBRANGE V-APPROX-IMPLIES-SUBRANGES-EQUAL FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 CHIP$VALUE CHIP-MODULE$VALUE BV-AS-SUBRANGE EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE CHIP-MODULE*$DESTRUCTURE CHIP-MODULE* PC-REG-INPUT ALU-MPG ALU-OP REGS-ADDRESS WE-FLAGS STATE OP-CODE STORE-CC SET-FLAGS MODE-B RN-B MODE-A RN-A A-IMMEDIATE MEM-STATE MEM-VALUE DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS BVP-SUBRANGE OPEN-SUBRANGE DISJOINT-SUBRANGE NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE LISTP-SUBRANGE SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE SUBRANGE-CONS PROPERP-SUBRANGE SUBRANGE-OFF) EVENT (DEFN SUBRANGE (L N M) (IF (LESSP M N) (QUOTE NIL) (IF (ZEROP N) (IF (ZEROP M) (CONS (CAR L) (QUOTE NIL)) (CONS (CAR L) (SUBRANGE (CDR L) (QUOTE 0) (SUB1 M)))) (SUBRANGE (CDR L) (SUB1 N) (SUB1 M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SUBRANGE) (DCELL . *1*SUBRANGE))))) (PUT1-LST (QUOTE LISTP-NTHCDR) (QUOTE (IDATE 1000402193935 EVENT (PROVE-LEMMA LISTP-NTHCDR (REWRITE) (EQUAL (LISTP (NTHCDR N L)) (LESSP N (LENGTH L))) ((ENABLE NTHCDR LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . LISTP-NTHCDR) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LISTP-NTHCDR) (IMMEDIATE-DEPENDENTS0 LENGTH . LISTP-NTHCDR) (IMMEDIATE-DEPENDENTS0 NTHCDR . LISTP-NTHCDR) (LEMMAS LISTP . LISTP-NTHCDR))))) (PUT1-LST (QUOTE CDR-NTHCDR-OFF) (QUOTE (IDATE 1000402193935 EVENT (TOGGLE CDR-NTHCDR-OFF CDR-NTHCDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDR-NTHCDR . CDR-NTHCDR-OFF) (DISABLED-LEMMAS NIL CDR-NTHCDR CDR-NTHCDR-OFF . T))))) (PUT1-LST (QUOTE CDR-NTHCDR) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (CDR-NTHCDR-OFF) EVENT (PROVE-LEMMA CDR-NTHCDR (REWRITE) (EQUAL (CDR (NTHCDR N L)) (NTHCDR (ADD1 N) L)) ((ENABLE NTHCDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . CDR-NTHCDR) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . CDR-NTHCDR) (IMMEDIATE-DEPENDENTS0 NTHCDR . CDR-NTHCDR) (LEMMAS CDR . CDR-NTHCDR))))) (PUT1-LST (QUOTE PROPERP-AS-NULL-NTHCDR-OFF) (QUOTE (IDATE 1000402193935 EVENT (TOGGLE PROPERP-AS-NULL-NTHCDR-OFF PROPERP-AS-NULL-NTHCDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-AS-NULL-NTHCDR . PROPERP-AS-NULL-NTHCDR-OFF) (DISABLED-LEMMAS NIL PROPERP-AS-NULL-NTHCDR PROPERP-AS-NULL-NTHCDR-OFF . T))))) (PUT1-LST (QUOTE PROPERP-AS-NULL-NTHCDR) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH PROPERP-AS-NULL-NTHCDR-OFF) EVENT (PROVE-LEMMA PROPERP-AS-NULL-NTHCDR (REWRITE) (EQUAL (PROPERP L) (EQUAL (NTHCDR (LENGTH L) L) (QUOTE NIL))) ((ENABLE PROPERP LENGTH NTHCDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . PROPERP-AS-NULL-NTHCDR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PROPERP-AS-NULL-NTHCDR) (IMMEDIATE-DEPENDENTS0 OPEN-NTHCDR . PROPERP-AS-NULL-NTHCDR) (IMMEDIATE-DEPENDENTS0 LENGTH . PROPERP-AS-NULL-NTHCDR) (IMMEDIATE-DEPENDENTS0 NTHCDR . PROPERP-AS-NULL-NTHCDR) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-AS-NULL-NTHCDR) (LEMMAS PROPERP . PROPERP-AS-NULL-NTHCDR))))) (PUT1-LST (QUOTE OPEN-NTHCDR) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP OPERATING-INPUTS-P-PLUS WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM RUN-INPUTS-P-PLUS EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE RUN-FM9001-PLUS BVP-NTHCDR EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH LISTP-NTHCDR CDR-NTHCDR PROPERP-AS-NULL-NTHCDR) EVENT (PROVE-LEMMA OPEN-NTHCDR (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (NTHCDR N L) L)) (IMPLIES (NOT (ZEROP N)) (EQUAL (NTHCDR N L) (NTHCDR (SUB1 N) (CDR L))))) ((ENABLE NTHCDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTHCDR . OPEN-NTHCDR) (LEMMAS NTHCDR . OPEN-NTHCDR) (LEMMAS NTHCDR . OPEN-NTHCDR))))) (PUT1-LST (QUOTE NTHCDR-OFF) (QUOTE (IDATE 1000402193935 EVENT (TOGGLE NTHCDR-OFF NTHCDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTHCDR . NTHCDR-OFF) (DISABLED-LEMMAS NIL NTHCDR NTHCDR-OFF . T))))) (PUT1-LST (QUOTE *1*NTHCDR) (QUOTE (MAIN-EVENT NTHCDR))) (PUT1-LST (QUOTE NTHCDR) (QUOTE (TYPE-PRESCRIPTION-LST ((NTHCDR -1 NIL T)) LEMMAS ((REWRITE-RULE OPEN-NTHCDR ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NTHCDR N L) (NTHCDR (SUB1 N) (CDR L))) NIL) (REWRITE-RULE OPEN-NTHCDR ((ZEROP N)) (EQUAL (NTHCDR N L) L) NIL)) TOTALP-LST ((NTHCDR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N L) (IF (EQUAL N (QUOTE 0)) L (IF (NUMBERP N) (NTHCDR (SUB1 N) (CDR L)) L))) LISP-CODE *1*NTHCDR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193935 CONTROLLER-POCKETS (1) SATELLITES (*1*NTHCDR) IMMEDIATE-DEPENDENTS0 (OPEN-TOTAL-MICROCYCLES TOTAL-MICROCYCLES OPERATING-INPUTS-P-PLUS RUN-INPUTS-P-PLUS RUN-FM9001-PLUS BVP-NTHCDR LISTP-NTHCDR CDR-NTHCDR PROPERP-AS-NULL-NTHCDR OPEN-NTHCDR NTHCDR-OFF) EVENT (DEFN NTHCDR (N L) (IF (ZEROP N) L (NTHCDR (SUB1 N) (CDR L)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NTHCDR) (DCELL . *1*NTHCDR))))) (PUT1-LST (QUOTE NTH-APPEND-TOO) (QUOTE (IDATE 1000402193935 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS) EVENT (PROVE-LEMMA NTH-APPEND-TOO (REWRITE) (IMPLIES (IF (LESSP N (LENGTH A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (NTH N (APPEND A B)) (NTH (DIFFERENCE N (LENGTH A)) B))) ((INDUCT (NTH N A)) (ENABLE NTH APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 NTH-APPEND . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 NTH . NTH-APPEND-TOO) (IMMEDIATE-DEPENDENTS0 LENGTH . NTH-APPEND-TOO) (LEMMAS NTH . NTH-APPEND-TOO))))) (PUT1-LST (QUOTE NTH-APPEND) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (NTH-APPEND-TOO) EVENT (PROVE-LEMMA NTH-APPEND (REWRITE) (IMPLIES (LESSP N (LENGTH A)) (EQUAL (NTH N (APPEND A B)) (NTH N A))) ((INDUCT (NTH N A)) (ENABLE NTH APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 NTH . NTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . NTH-APPEND) (LEMMAS NTH . NTH-APPEND))))) (PUT1-LST (QUOTE NTH-RESTN-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE NTH-RESTN-OFF NTH-RESTN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH-RESTN . NTH-RESTN-OFF) (DISABLED-LEMMAS NIL NTH-RESTN NTH-RESTN-OFF . T))))) (PUT1-LST (QUOTE NTH-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=TR-OR-NOR VALUE-INDICES-HACK NTH-RESTN-OFF) EVENT (PROVE-LEMMA NTH-RESTN (REWRITE) (EQUAL (NTH N V) (CAR (RESTN N V))) ((ENABLE LENGTH NTH RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NTH-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . NTH-RESTN) (IMMEDIATE-DEPENDENTS0 NTH . NTH-RESTN) (LEMMAS NTH . NTH-RESTN))))) (PUT1-LST (QUOTE NTH-IF-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE NTH-IF-OFF NTH-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH-IF . NTH-IF-OFF) (DISABLED-LEMMAS NIL NTH-IF NTH-IF-OFF . T))))) (PUT1-LST (QUOTE NTH-IF) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (NTH-IF-OFF) EVENT (PROVE-LEMMA NTH-IF (REWRITE) (EQUAL (NTH N (IF A B C)) (IF A (NTH N B) (NTH N C)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . NTH-IF) (LEMMAS NTH . NTH-IF))))) (PUT1-LST (QUOTE OPEN-NTH-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE OPEN-NTH-OFF OPEN-NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPEN-NTH . OPEN-NTH-OFF) (DISABLED-LEMMAS NIL OPEN-NTH OPEN-NTH-OFF . T))))) (PUT1-LST (QUOTE OPEN-NTH) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-SUB CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-SUBB-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-NAT-MOVE FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZERO-FLAG-INTERPRETATION-FOR-SUB UNIVERSAL-FLAGS-INTERPRETATIONS ZB-V-ALU BOOLP-FLAG-EXTRACTERS OPEN-NTH-ON1 OPEN-NTH-OFF1 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH OPEN-NTH-ON DUAL-APPLY-STATE-DP-RAM-16X32 DUAL-APPLY-VALUE-DP-RAM-16X32 MAP-DOWN-RELATION-LEMMA MIDDLE=HIGH MACROCYCLE-INVARIANT==>PC-REG MIDDLE=HIGH$HELP REWRITE-FM9001-NEXT-STATE-FOR-STEP-LEMMAS FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT CHIP-SYSTEM$STATE EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE FLAGS$VALUE REGFILE$STATE F$WRITE-REGS=WRITE-REGS REGFILE$VALUE F$READ-REGS=READ-REGS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS BOOLP-STORE-RESULT-P CORE-ALU$VALUE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH OPEN-NTH-OFF) EVENT (PROVE-LEMMA OPEN-NTH (REWRITE) (AND (IMPLIES (ZEROP N) (EQUAL (NTH N LIST) (CAR LIST))) (IMPLIES (NOT (ZEROP N)) (EQUAL (NTH N LIST) (NTH (SUB1 N) (CDR LIST))))) ((ENABLE NTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . OPEN-NTH) (LEMMAS NTH . OPEN-NTH) (LEMMAS NTH . OPEN-NTH))))) (PUT1-LST (QUOTE NTH-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE NTH-OFF NTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NTH . NTH-OFF) (DISABLED-LEMMAS NIL NTH NTH-OFF . T))))) (PUT1-LST (QUOTE *1*NTH) (QUOTE (MAIN-EVENT NTH))) (PUT1-LST (QUOTE NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((NTH -1 NIL NIL)) LEMMAS ((REWRITE-RULE V-ALU-CORRECT-NAT-LSR-CARRY-OUT ((BVP A) (LISTP A)) (EQUAL (NTH (QUOTE 0) A) (V-ALU-NAT-LSR-CARRY-OUT A)) NIL) (REWRITE-RULE NTH-LENGTH-V ((BVP BV) (EQUAL (LENGTH BV) (ADD1 N))) (EQUAL (NTH N BV) (IF (LESSP (V-TO-NAT BV) (EXP (QUOTE 2) N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE FM9001=CHIP-SYSTEM-LEMMA1 NIL (EQUAL (NTH (QUOTE 10) (CAR (MAP-DOWN STATE))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) NIL) (REWRITE-RULE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK ((BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (NTH (QUOTE 0) A)) (EQUAL (NTH (QUOTE 0) A) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE ANY-OF-NAT-TO-V-0-IS-F ((LESSP N M)) (NOT (NTH N (NAT-TO-V (QUOTE 0) M))) NIL) (REWRITE-RULE V-NOT-INVERTS-ALL ((LESSP N (LENGTH BVP))) (EQUAL (NTH N (V-NOT BVP)) (B-NOT (NTH N BVP))) NIL) (REWRITE-RULE SHOW-THAT-NTH=T ((NTH N A) (BVP A) (LESSP N (LENGTH A))) (EQUAL (NTH N A) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE NTH-INDICES ((LESSP N M)) (EQUAL (NTH N (INDICES NAME FROM M)) (INDEX NAME (PLUS N FROM))) NIL) (REWRITE-RULE NTH-APPEND-TOO ((NOT (LESSP N (LENGTH A)))) (EQUAL (NTH N (APPEND A B)) (NTH (DIFFERENCE N (LENGTH A)) B)) NIL) (REWRITE-RULE NTH-APPEND ((LESSP N (LENGTH A))) (EQUAL (NTH N (APPEND A B)) (NTH N A)) NIL) (REWRITE-RULE NTH-RESTN NIL (EQUAL (NTH N V) (CAR (RESTN N V))) NIL) (REWRITE-RULE NTH-IF NIL (EQUAL (NTH N (IF A B C)) (IF A (NTH N B) (NTH N C))) NIL) (REWRITE-RULE OPEN-NTH ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (NTH N LIST) (NTH (SUB1 N) (CDR LIST))) NIL) (REWRITE-RULE OPEN-NTH ((ZEROP N)) (EQUAL (NTH N LIST) (CAR LIST)) NIL)) TOTALP-LST ((NTH . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N LIST) (IF (EQUAL N (QUOTE 0)) (CAR LIST) (IF (NUMBERP N) (NTH (SUB1 N) (CDR LIST)) (CAR LIST)))) LISP-CODE *1*NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR LIST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X))) IDATE 1000402193934 CONTROLLER-POCKETS (1) SATELLITES (*1*NTH) IMMEDIATE-DEPENDENTS0 (C-V-ALU FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR ZB-V-ALU V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-NAT-LSR-CARRY-OUT NTH-LENGTH-V SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH DUAL-PORT-RAM-STATE-IS-DUAL-PORT-RAM-STATE-BODY V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T DUAL-PORT-RAM-VALUE-IS-DUAL-PORT-RAM-VALUE-BODY V-APPROX-MAKE-LIST-X V-APPROX-IMPLIES-B-APPROX-NTH FM9001=CHIP-SYSTEM-LEMMA1 FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 MAP-UP-INVERTS-MAP-DOWN CHIP$VALUE CHIP-MODULE$VALUE HOLD--INPUT RESET--INPUT CNTL-STATE PC-REG HOLD- DTACK- RESET- ADDR-OUT DATA-OUT I-REG B-REG A-REG F$EXTEND-IMMEDIATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 F$CV CV F$NEXT-STATE NEXT-STATE ALU-ZERO ALU-C SELECT-IMMEDIATE DEC-ADDR-OUT DATA-IN-SELECT WE-PC-REG WE-HOLD- WE-ADDR-OUT WE-DATA-OUT WE-I-REG WE-B-REG WE-A-REG WE-REGS HDACK- STROBE- RW- ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 BV-TO-INT FLAGS REGS C-FLAG V-FLAG N-FLAG Z-FLAG C-SET V-SET N-SET Z-SET A-IMMEDIATE-P CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK CORE-ALU F$CORE-ALU SHIFT-OR-BUF-IS-ASR BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU BVP-BV-V-ALU CVZBV-V-LSR CVZBV-V-ASR CVZBV-V-ROR F$FAST-ZERO V-ADDER-CARRY-OUT=V-CARRY NUMBER-TO-DIGIT MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE V-WIRE-MAKE-LIST-Z DUAL-PORT-RAM-STATE DUAL-PORT-RAM-VALUE VALUE-INDICES-HACK V-ADDER-OVERFLOWP V-ADDER-CARRY-OUT SIGN-EXTEND-AS-APPEND V-NEGP-AS-NTH V-NTH ANY-OF-NAT-TO-V-0-IS-F V-NOT-INVERTS-ALL V-ASR ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH BOOLP-NTH SHOW-THAT-NTH=T NTH-INDICES OPEN-LIST-AS-COLLECTED-NTH LIST-AS-COLLECTED-NTH NTH-APPEND-TOO NTH-APPEND NTH-RESTN NTH-IF OPEN-NTH NTH-OFF) EVENT (DEFN NTH (N LIST) (IF (ZEROP N) (CAR LIST) (NTH (SUB1 N) (CDR LIST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . NTH) (DCELL . *1*NTH))))) (PUT1-LST (QUOTE PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN) EVENT (PROVE-LEMMA PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP (REWRITE) (IMPLIES (AND (NLISTP L1) (NLISTP L2)) (EQUAL (EQUAL (PAIRLIST A L1) (PAIRLIST A L2)) (QUOTE *1*TRUE))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP) (LEMMAS EQUAL . PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP))))) (PUT1-LST (QUOTE PROPERP-PAIRLIST) (QUOTE (IDATE 1000402193934 EVENT (PROVE-LEMMA PROPERP-PAIRLIST (REWRITE) (PROPERP (PAIRLIST X Y)) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . PROPERP-PAIRLIST) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-PAIRLIST) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-PAIRLIST) (LEMMAS PROPERP . PROPERP-PAIRLIST))))) (PUT1-LST (QUOTE PAIRLIST-APPEND) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-XOR$VALUE V-OR$VALUE) EVENT (PROVE-LEMMA PAIRLIST-APPEND (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH C)) (EQUAL (PAIRLIST (APPEND A B) (APPEND C D)) (APPEND (PAIRLIST A C) (PAIRLIST B D)))) ((ENABLE PAIRLIST APPEND LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 PAIRLIST-NLISTP . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 PAIRLIST-CONS . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-CDR . PAIRLIST-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . PAIRLIST-APPEND) (LEMMAS PAIRLIST . PAIRLIST-APPEND))))) (PUT1-LST (QUOTE PAIRLIST-CONS) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (EVAL$-APPEND-2 EVAL$-PAIRLIST-CONS EVAL$-APPEND DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-FIRSTN PAIRLIST-APPEND) EVENT (PROVE-LEMMA PAIRLIST-CONS (REWRITE) (EQUAL (PAIRLIST (CONS X Y) Z) (CONS (CONS X (CAR Z)) (PAIRLIST Y (CDR Z)))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((LEMMAS PAIRLIST . PAIRLIST-CONS))))) (PUT1-LST (QUOTE PAIRLIST-NLISTP) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (GOOD-S-PRESERVED DUAL-EVAL-MONOTONE GOOD-S-ALIST-PAIRLIST DUAL-EVAL-MONOTONE-NO-RAM V-APPROX-IMPLIES-V-APPROX-ALIST S-APPROX-LIST-IMPLIES-S-APPROX-ALIST ALISTP-PAIRLIST EVAL$-APPEND-2 DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE CHIP$VALUE CHIP$STATE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE-HELP FLAGS$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE-ZERO MPG$VALUE DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE-ZERO DECODE-PROP$VALUE DECODE-MODE$VALUE-ZERO DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE T-CARRY$VALUE BV-ADDER$VALUE M2$STATE M2$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE B-BUF-PWR$VALUE B-BUF$VALUE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 PROPERP-DUAL-EVAL-0 EXPAND-TOP-LEVEL-DUAL-EVAL-2-CALLS EXPAND-TOP-LEVEL-DUAL-EVAL-0-CALLS COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN VALUE-APPEND-PAIRLIST PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP PROPERP-PAIRLIST PAIRLIST-APPEND) EVENT (PROVE-LEMMA PAIRLIST-NLISTP (REWRITE) (IMPLIES (NLISTP A) (EQUAL (PAIRLIST A B) (QUOTE NIL))) ((ENABLE PAIRLIST))) LOCAL-UNDO-TUPLES ((LEMMAS PAIRLIST . PAIRLIST-NLISTP))))) (PUT1-LST (QUOTE PAIRLIST-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE PAIRLIST-OFF PAIRLIST T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL PAIRLIST PAIRLIST-OFF . T))))) (PUT1-LST (QUOTE APPEND-FIRSTN-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P COLLECT-VALUE-SPLITTING-CROCK) EVENT (PROVE-LEMMA APPEND-FIRSTN-RESTN (REWRITE) (EQUAL (APPEND (FIRSTN N L) (RESTN N L)) L) ((ENABLE APPEND FIRSTN RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-CONS . APPEND-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . APPEND-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . APPEND-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . APPEND-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . APPEND-FIRSTN-RESTN) (LEMMAS APPEND . APPEND-FIRSTN-RESTN))))) (PUT1-LST (QUOTE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA NO-DUPLICATES-DISJOINT-FIRSTN-RESTN (REWRITE) (AND (IMPLIES (NOT (DUPLICATES? X)) (DISJOINT (FIRSTN N X) (RESTN N X))) (IMPLIES (NOT (DUPLICATES? X)) (DISJOINT (RESTN N X) (FIRSTN N X)))) ((ENABLE DUPLICATES? DISJOINT RESTN FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 DISJOINT . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (LEMMAS DISJOINT . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN) (LEMMAS DISJOINT . NO-DUPLICATES-DISJOINT-FIRSTN-RESTN))))) (PUT1-LST (QUOTE DISJOINT-FIRSTN-RESTN-LEMMAS) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-DEC-PASS-NG$VALUE) EVENT (PROVE-LEMMA DISJOINT-FIRSTN-RESTN-LEMMAS (REWRITE) (AND (IMPLIES (DISJOINT X Y) (DISJOINT (FIRSTN N X) (FIRSTN M Y))) (AND (IMPLIES (DISJOINT X Y) (DISJOINT (FIRSTN N X) (RESTN M Y))) (AND (IMPLIES (DISJOINT X Y) (DISJOINT (RESTN N X) (FIRSTN M Y))) (IMPLIES (DISJOINT X Y) (DISJOINT (RESTN N X) (RESTN M Y)))))) ((ENABLE DISJOINT FIRSTN RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-RESTN . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 DISJOINT-RESTN1 . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 DISJOINT-FIRSTN1 . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 RESTN . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 FIRSTN . DISJOINT-FIRSTN-RESTN-LEMMAS) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-FIRSTN-RESTN-LEMMAS) (LEMMAS DISJOINT . DISJOINT-FIRSTN-RESTN-LEMMAS) (LEMMAS DISJOINT . DISJOINT-FIRSTN-RESTN-LEMMAS) (LEMMAS DISJOINT . DISJOINT-FIRSTN-RESTN-LEMMAS) (LEMMAS DISJOINT . DISJOINT-FIRSTN-RESTN-LEMMAS))))) (PUT1-LST (QUOTE CDR-RESTN-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE CDR-RESTN-OFF CDR-RESTN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CDR-RESTN . CDR-RESTN-OFF) (DISABLED-LEMMAS NIL CDR-RESTN CDR-RESTN-OFF . T))))) (PUT1-LST (QUOTE CDR-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (F$FAST-ZERO=TR-OR-NOR CDR-RESTN-OFF) EVENT (PROVE-LEMMA CDR-RESTN (REWRITE) (IMPLIES (LESSP N (LENGTH V)) (EQUAL (CDR (RESTN N V)) (RESTN (ADD1 N) V))) ((ENABLE RESTN LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . CDR-RESTN) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . CDR-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . CDR-RESTN) (IMMEDIATE-DEPENDENTS0 LENGTH . CDR-RESTN) (LEMMAS CDR . CDR-RESTN))))) (PUT1-LST (QUOTE TOO-MANY-RESTNS) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (T-OR-NOR$VALUE V-NOT-RESTN BVP-RESTN) EVENT (PROVE-LEMMA TOO-MANY-RESTNS (REWRITE) (IMPLIES (AND (PROPERP L) (IF (LESSP N (LENGTH L)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (RESTN N L) (QUOTE NIL))) ((INDUCT (RESTN N L)) (ENABLE RESTN PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . TOO-MANY-RESTNS) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . TOO-MANY-RESTNS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . TOO-MANY-RESTNS) (IMMEDIATE-DEPENDENTS0 RESTN . TOO-MANY-RESTNS) (IMMEDIATE-DEPENDENTS0 LENGTH . TOO-MANY-RESTNS) (IMMEDIATE-DEPENDENTS0 PROPERP . TOO-MANY-RESTNS) (LEMMAS RESTN . TOO-MANY-RESTNS))))) (PUT1-LST (QUOTE RESTN-APPEND) (QUOTE (IDATE 1000402193934 EVENT (PROVE-LEMMA RESTN-APPEND (REWRITE) (EQUAL (RESTN N (APPEND A B)) (APPEND (RESTN N A) (RESTN (DIFFERENCE N (LENGTH A)) B))) ((INDUCT (RESTN N A)) (ENABLE RESTN APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . RESTN-APPEND) (IMMEDIATE-DEPENDENTS0 RESTN . RESTN-APPEND) (LEMMAS RESTN . RESTN-APPEND))))) (PUT1-LST (QUOTE PROPERP-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA PROPERP-RESTN (REWRITE) (EQUAL (PROPERP (RESTN N L)) (PROPERP L)) ((ENABLE PROPERP RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . PROPERP-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . PROPERP-RESTN) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-RESTN) (LEMMAS PROPERP . PROPERP-RESTN))))) (PUT1-LST (QUOTE DISJOINT-RESTN1) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (DISJOINT-FIRSTN-RESTN-LEMMAS) EVENT (PROVE-LEMMA DISJOINT-RESTN1 (REWRITE) (IMPLIES (DISJOINT Y X) (DISJOINT Y (RESTN N X))) ((ENABLE DISJOINT RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-MEMBER-RESTN . DISJOINT-RESTN1) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-RESTN1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-RESTN1) (IMMEDIATE-DEPENDENTS0 RESTN . DISJOINT-RESTN1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-RESTN1) (LEMMAS DISJOINT . DISJOINT-RESTN1))))) (PUT1-LST (QUOTE DISJOINT-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-IF$VALUE DISJOINT-FIRSTN-RESTN-LEMMAS) EVENT (PROVE-LEMMA DISJOINT-RESTN (REWRITE) (IMPLIES (DISJOINT X Y) (DISJOINT (RESTN N X) Y)) ((ENABLE DISJOINT RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . DISJOINT-RESTN) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-RESTN) (LEMMAS DISJOINT . DISJOINT-RESTN))))) (PUT1-LST (QUOTE SUBSET-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA SUBSET-RESTN (REWRITE) (SUBSET (RESTN N L) L) ((ENABLE SUBSET RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET-X-CONS-Y-Z . SUBSET-RESTN) (IMMEDIATE-DEPENDENTS0 SUBSET-X-X . SUBSET-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SUBSET-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . SUBSET-RESTN) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-RESTN) (LEMMAS SUBSET . SUBSET-RESTN))))) (PUT1-LST (QUOTE NOT-MEMBER-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE TV-IF$VALUE COLLECT-VALUE-RESTN NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-RESTN1) EVENT (PROVE-LEMMA NOT-MEMBER-RESTN (REWRITE) (IMPLIES (NOT (MEMBER X Y)) (NOT (MEMBER X (RESTN N Y)))) ((ENABLE RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESTN . NOT-MEMBER-RESTN) (LEMMAS MEMBER . NOT-MEMBER-RESTN))))) (PUT1-LST (QUOTE NOT-DUPLICATES?-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA NOT-DUPLICATES?-RESTN (REWRITE) (IMPLIES (NOT (DUPLICATES? X)) (NOT (DUPLICATES? (RESTN N X)))) ((ENABLE DUPLICATES? RESTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . NOT-DUPLICATES?-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . NOT-DUPLICATES?-RESTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . NOT-DUPLICATES?-RESTN) (LEMMAS DUPLICATES? . NOT-DUPLICATES?-RESTN))))) (PUT1-LST (QUOTE LENGTH-RESTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P BVP-LENGTH-RESTN) EVENT (PROVE-LEMMA LENGTH-RESTN (REWRITE) (EQUAL (LENGTH (RESTN N L)) (DIFFERENCE (LENGTH L) N)) ((ENABLE RESTN LENGTH DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 RESTN . LENGTH-RESTN) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-RESTN) (LEMMAS LENGTH . LENGTH-RESTN))))) (PUT1-LST (QUOTE RESTN-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE RESTN-OFF RESTN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESTN . RESTN-OFF) (DISABLED-LEMMAS NIL RESTN RESTN-OFF . T))))) (PUT1-LST (QUOTE *1*RESTN) (QUOTE (MAIN-EVENT RESTN))) (PUT1-LST (QUOTE RESTN) (QUOTE (TYPE-PRESCRIPTION-LST ((RESTN -1 NIL T)) LEMMAS ((REWRITE-RULE RESTN-NAT-TO-V-0-HACK ((NOT (LESSP M N))) (EQUAL (RESTN N (NAT-TO-V (QUOTE 0) M)) (NAT-TO-V (QUOTE 0) (DIFFERENCE M N))) NIL) (REWRITE-RULE RESTN-V-NOT NIL (EQUAL (RESTN N (V-NOT L)) (V-NOT (RESTN N L))) NIL) (REWRITE-RULE TOO-MANY-RESTNS ((PROPERP L) (NOT (LESSP N (LENGTH L)))) (EQUAL (RESTN N L) (QUOTE NIL)) NIL) (REWRITE-RULE RESTN-APPEND NIL (EQUAL (RESTN N (APPEND A B)) (APPEND (RESTN N A) (RESTN (DIFFERENCE N (LENGTH A)) B))) NIL)) TOTALP-LST ((RESTN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N L) (IF (LISTP L) (IF (EQUAL N (QUOTE 0)) L (IF (NUMBERP N) (RESTN (SUB1 N) (CDR L)) L)) L)) LISP-CODE *1*RESTN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L) (ZEROP N)) NIL) (TESTS-AND-CASES ((LISTP L) (NOT (ZEROP N))) (((SUB1 N) (CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X)) (JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193934 CONTROLLER-POCKETS (1 2) SATELLITES (*1*RESTN) IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP-LEMMA-CROCK TV-DEC-PASS-NG-LEMMA-CROCK TV-IF-LEMMA-CROCK COLLECT-VALUE-SPLITTING-CROCK COLLECT-VALUE-SPLITTING-CROCK-HELPER COLLECT-VALUE-RESTN VALUE-PAIRLIST NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK RESTN-NAT-TO-V-0-HACK RESTN-V-NOT V-NOT-RESTN BVP-LENGTH-RESTN BVP-RESTN TRESTN NTH-RESTN APPEND-FIRSTN-RESTN NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN-RESTN-LEMMAS CDR-RESTN TOO-MANY-RESTNS RESTN-APPEND PROPERP-RESTN DISJOINT-RESTN1 DISJOINT-RESTN SUBSET-RESTN NOT-MEMBER-RESTN NOT-DUPLICATES?-RESTN LENGTH-RESTN RESTN-OFF) EVENT (DEFN RESTN (N L) (IF (LISTP L) (IF (ZEROP N) L (RESTN (SUB1 N) (CDR L))) L)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . RESTN) (DCELL . *1*RESTN))))) (PUT1-LST (QUOTE FIRSTN-APPEND) (QUOTE (IDATE 1000402193934 EVENT (PROVE-LEMMA FIRSTN-APPEND (REWRITE) (EQUAL (FIRSTN N (APPEND A B)) (APPEND (FIRSTN N A) (FIRSTN (DIFFERENCE N (LENGTH A)) B))) ((INDUCT (FIRSTN N A)) (ENABLE FIRSTN APPEND LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ADD1 . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . FIRSTN-APPEND) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-APPEND) (LEMMAS FIRSTN . FIRSTN-APPEND))))) (PUT1-LST (QUOTE PROPERP-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE FAST-ZERO$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA PROPERP-FIRSTN (REWRITE) (PROPERP (FIRSTN N L)) ((ENABLE PROPERP FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . PROPERP-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . PROPERP-FIRSTN) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-FIRSTN) (LEMMAS PROPERP . PROPERP-FIRSTN))))) (PUT1-LST (QUOTE DISJOINT-FIRSTN1) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-IF$VALUE DISJOINT-FIRSTN-RESTN-LEMMAS) EVENT (PROVE-LEMMA DISJOINT-FIRSTN1 (REWRITE) (IMPLIES (DISJOINT Y X) (DISJOINT Y (FIRSTN N X))) ((ENABLE DISJOINT FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . DISJOINT-FIRSTN1) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-FIRSTN1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-FIRSTN1) (IMMEDIATE-DEPENDENTS0 FIRSTN . DISJOINT-FIRSTN1) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-FIRSTN1) (LEMMAS DISJOINT . DISJOINT-FIRSTN1))))) (PUT1-LST (QUOTE DISJOINT-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-IF$VALUE DISJOINT-FIRSTN-RESTN-LEMMAS) EVENT (PROVE-LEMMA DISJOINT-FIRSTN (REWRITE) (IMPLIES (DISJOINT X Y) (DISJOINT (FIRSTN N X) Y)) ((ENABLE DISJOINT FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . DISJOINT-FIRSTN) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . DISJOINT-FIRSTN) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-FIRSTN) (LEMMAS DISJOINT . DISJOINT-FIRSTN))))) (PUT1-LST (QUOTE FIRSTN-BOTTOM) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (FIRSTN-NLISTP FIRSTN-ZEROP) EVENT (PROVE-LEMMA FIRSTN-BOTTOM (REWRITE) (EQUAL (EQUAL (FIRSTN N L) (QUOTE NIL)) (OR (NLISTP L) (ZEROP N))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FIRSTN-BOTTOM) (IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-BOTTOM) (LEMMAS EQUAL . FIRSTN-BOTTOM))))) (PUT1-LST (QUOTE SUBSET-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA SUBSET-FIRSTN (REWRITE) (SUBSET (FIRSTN N L) L) ((ENABLE SUBSET FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET-X-CONS-Y-Z . SUBSET-FIRSTN) (IMMEDIATE-DEPENDENTS0 SUBSET-CONS . SUBSET-FIRSTN) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . SUBSET-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . SUBSET-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . SUBSET-FIRSTN) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-FIRSTN) (LEMMAS SUBSET . SUBSET-FIRSTN))))) (PUT1-LST (QUOTE NOT-DUPLICATES?-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE FAST-ZERO$VALUE T-OR-NOR$VALUE TV-IF$VALUE) EVENT (PROVE-LEMMA NOT-DUPLICATES?-FIRSTN (REWRITE) (IMPLIES (NOT (DUPLICATES? X)) (NOT (DUPLICATES? (FIRSTN N X)))) ((ENABLE DUPLICATES? FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-MEMBER-FIRSTN . NOT-DUPLICATES?-FIRSTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES?-CONS . NOT-DUPLICATES?-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . NOT-DUPLICATES?-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . NOT-DUPLICATES?-FIRSTN) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . NOT-DUPLICATES?-FIRSTN) (LEMMAS DUPLICATES? . NOT-DUPLICATES?-FIRSTN))))) (PUT1-LST (QUOTE NOT-MEMBER-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (TV-ALU-HELP$VALUE TV-DEC-PASS-NG$VALUE TV-IF$VALUE COLLECT-VALUE-FIRSTN DISJOINT-FIRSTN1 NOT-DUPLICATES?-FIRSTN) EVENT (PROVE-LEMMA NOT-MEMBER-FIRSTN (REWRITE) (IMPLIES (NOT (MEMBER X Y)) (NOT (MEMBER X (FIRSTN N Y)))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . NOT-MEMBER-FIRSTN) (LEMMAS MEMBER . NOT-MEMBER-FIRSTN))))) (PUT1-LST (QUOTE CAR-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE) EVENT (PROVE-LEMMA CAR-FIRSTN (REWRITE) (EQUAL (CAR (FIRSTN N A)) (IF (AND (LISTP A) (NOT (ZEROP N))) (CAR A) (QUOTE 0))) ((ENABLE FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . CAR-FIRSTN) (LEMMAS CAR . CAR-FIRSTN))))) (PUT1-LST (QUOTE LENGTH-FIRSTN2) (QUOTE (IDATE 1000402193934 EVENT (PROVE-LEMMA LENGTH-FIRSTN2 (REWRITE) (IMPLIES (NOT (IF (LESSP (LENGTH L) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (LENGTH (FIRSTN N L)) (LENGTH L))) ((ENABLE LENGTH-FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN . LENGTH-FIRSTN2) (IMMEDIATE-DEPENDENTS0 FIRSTN . LENGTH-FIRSTN2) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-FIRSTN2) (LEMMAS LENGTH . LENGTH-FIRSTN2))))) (PUT1-LST (QUOTE LENGTH-FIRSTN1) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-NAT-ADDER-OUTPUT TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 FAST-ZERO$VALUE BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-ADDER-OUTPUT) EVENT (PROVE-LEMMA LENGTH-FIRSTN1 (REWRITE) (IMPLIES (IF (LESSP (LENGTH L) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (LENGTH (FIRSTN N L)) (FIX N))) ((ENABLE LENGTH-FIRSTN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-FIRSTN . LENGTH-FIRSTN1) (IMMEDIATE-DEPENDENTS0 FIRSTN . LENGTH-FIRSTN1) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-FIRSTN1) (LEMMAS LENGTH . LENGTH-FIRSTN1))))) (PUT1-LST (QUOTE LENGTH-FIRSTN) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (LENGTH-FIRSTN2 LENGTH-FIRSTN1) EVENT (PROVE-LEMMA LENGTH-FIRSTN (REWRITE) (EQUAL (LENGTH (FIRSTN N L)) (IF (IF (LESSP (LENGTH L) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (FIX N) (LENGTH L))) ((ENABLE FIRSTN LENGTH LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-FIRSTN) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-FIRSTN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-FIRSTN) (IMMEDIATE-DEPENDENTS0 FIRSTN . LENGTH-FIRSTN) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-FIRSTN) (LEMMAS LENGTH . LENGTH-FIRSTN))))) (PUT1-LST (QUOTE FIRSTN-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE FIRSTN-OFF FIRSTN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIRSTN . FIRSTN-OFF) (DISABLED-LEMMAS NIL FIRSTN FIRSTN-OFF . T))))) (PUT1-LST (QUOTE *1*FIRSTN) (QUOTE (MAIN-EVENT FIRSTN))) (PUT1-LST (QUOTE FIRSTN) (QUOTE (TYPE-PRESCRIPTION-LST ((FIRSTN 24 NIL NIL)) LEMMAS ((REWRITE-RULE FIRSTN-LENGTH ((PROPERP X)) (EQUAL (FIRSTN (LENGTH X) X) X) NIL) (REWRITE-RULE FIRSTN-NLISTP ((NOT (LISTP X))) (EQUAL (FIRSTN N X) (QUOTE NIL)) NIL) (REWRITE-RULE FIRSTN-ZEROP ((ZEROP N)) (EQUAL (FIRSTN N X) (QUOTE NIL)) NIL) (REWRITE-RULE FIRSTN-ADD1-CONS NIL (EQUAL (FIRSTN (ADD1 N) (CONS A X)) (CONS A (FIRSTN N X))) NIL) (REWRITE-RULE FIRSTN-NAT-TO-V ((NOT (LESSP M N))) (EQUAL (FIRSTN N (NAT-TO-V NAT M)) (NAT-TO-V NAT N)) NIL) (REWRITE-RULE FIRSTN-V-NOT NIL (EQUAL (FIRSTN N (V-NOT L)) (V-NOT (FIRSTN N L))) NIL) (REWRITE-RULE FIRSTN-MAKE-LIST ((NOT (LESSP M N))) (EQUAL (FIRSTN N (MAKE-LIST M V)) (MAKE-LIST N V)) NIL) (REWRITE-RULE FIRSTN-APPEND NIL (EQUAL (FIRSTN N (APPEND A B)) (APPEND (FIRSTN N A) (FIRSTN (DIFFERENCE N (LENGTH A)) B))) NIL)) TOTALP-LST ((FIRSTN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N L) (IF (LISTP L) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (CAR L) (FIRSTN (SUB1 N) (CDR L))) (QUOTE NIL))) (QUOTE NIL))) LISP-CODE *1*FIRSTN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L) (ZEROP N)) NIL) (TESTS-AND-CASES ((LISTP L) (NOT (ZEROP N))) (((SUB1 N) (CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1-X-X)) (JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193934 CONTROLLER-POCKETS (1 2) SATELLITES (*1*FIRSTN) IMMEDIATE-DEPENDENTS0 (FIRSTN-LENGTH NAT-TO-V-OF-V-TO-NAT-GENERAL FIRSTN-NLISTP FIRSTN-ZEROP FIRSTN-ADD1-CONS V-TO-NAT-FIRSTN V-TO-0S-THROUGH-FS TV-ALU-HELP-LEMMA-CROCK TV-DEC-PASS-NG-LEMMA-CROCK FAST-ZERO*$DESTRUCTURE FAST-ZERO* F$FAST-ZERO TV-IF-LEMMA-CROCK V-ADDER-OUTPUT=V-SUM COLLECT-VALUE-SPLITTING-CROCK COLLECT-VALUE-SPLITTING-CROCK-HELPER COLLECT-VALUE-FIRSTN V-ADDER-OUTPUT NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK FIRSTN-NAT-TO-V FIRSTN-V-NOT V-NOT-FIRSTN BVP-LENGTH-CDR BVP-FIRSTN TFIRSTN FIRSTN-MAKE-LIST APPEND-FIRSTN-RESTN NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN-RESTN-LEMMAS FIRSTN-APPEND PROPERP-FIRSTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN FIRSTN-BOTTOM SUBSET-FIRSTN NOT-DUPLICATES?-FIRSTN NOT-MEMBER-FIRSTN CAR-FIRSTN LENGTH-FIRSTN2 LENGTH-FIRSTN1 LENGTH-FIRSTN FIRSTN-OFF) EVENT (DEFN FIRSTN (N L) (IF (LISTP L) (IF (ZEROP N) (QUOTE NIL) (CONS (CAR L) (FIRSTN (SUB1 N) (CDR L)))) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . FIRSTN) (DCELL . *1*FIRSTN))))) (PUT1-LST (QUOTE DUPLICATES-APPEND) (QUOTE (IDATE 1000402193934 EVENT (PROVE-LEMMA DUPLICATES-APPEND (REWRITE) (EQUAL (DUPLICATES? (APPEND A B)) (OR (DUPLICATES? A) (OR (DUPLICATES? B) (NOT (DISJOINT A B))))) ((ENABLE DUPLICATES? DISJOINT APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . DUPLICATES-APPEND) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DUPLICATES-APPEND) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . DUPLICATES-APPEND) (IMMEDIATE-DEPENDENTS0 DUPLICATES?-CONS . DUPLICATES-APPEND) (IMMEDIATE-DEPENDENTS0 DISJOINT . DUPLICATES-APPEND) (IMMEDIATE-DEPENDENTS0 DUPLICATES? . DUPLICATES-APPEND) (LEMMAS DUPLICATES? . DUPLICATES-APPEND))))) (PUT1-LST (QUOTE DUPLICATES?-CONS) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS NO-DUPLICATES-IN-INDICES NOT-DUPLICATES?-FIRSTN DUPLICATES-APPEND) EVENT (PROVE-LEMMA DUPLICATES?-CONS (REWRITE) (EQUAL (DUPLICATES? (CONS X Y)) (OR (MEMBER X Y) (DUPLICATES? Y))) ((ENABLE DUPLICATES?))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUPLICATES? . DUPLICATES?-CONS) (LEMMAS DUPLICATES? . DUPLICATES?-CONS))))) (PUT1-LST (QUOTE DUPLICATES?-OFF) (QUOTE (IDATE 1000402193934 EVENT (TOGGLE DUPLICATES?-OFF DUPLICATES? T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DUPLICATES? . DUPLICATES?-OFF) (DISABLED-LEMMAS NIL DUPLICATES? DUPLICATES?-OFF . T))))) (PUT1-LST (QUOTE *1*DUPLICATES?) (QUOTE (MAIN-EVENT DUPLICATES?))) (PUT1-LST (QUOTE DUPLICATES?) (QUOTE (TYPE-PRESCRIPTION-LST ((DUPLICATES? 3 NIL)) LEMMAS ((REWRITE-RULE NO-DUPLICATES-IN-INDICES NIL (NOT (DUPLICATES? (INDICES NAME FROM N))) NIL) (REWRITE-RULE NOT-DUPLICATES?-RESTN ((NOT (DUPLICATES? X))) (NOT (DUPLICATES? (RESTN N X))) NIL) (REWRITE-RULE NOT-DUPLICATES?-FIRSTN ((NOT (DUPLICATES? X))) (NOT (DUPLICATES? (FIRSTN N X))) NIL) (REWRITE-RULE DUPLICATES-APPEND NIL (EQUAL (DUPLICATES? (APPEND A B)) (IF (DUPLICATES? A) (QUOTE *1*TRUE) (IF (DUPLICATES? B) (QUOTE *1*TRUE) (IF (DISJOINT A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) NIL) (REWRITE-RULE DUPLICATES?-CONS NIL (EQUAL (DUPLICATES? (CONS X Y)) (IF (MEMBER X Y) (QUOTE *1*TRUE) (DUPLICATES? Y))) NIL)) TOTALP-LST ((DUPLICATES? . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (MEMBER (CAR L) (CDR L)) (QUOTE *1*TRUE) (IF (DUPLICATES? (CDR L)) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*DUPLICATES? SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193934 CONTROLLER-POCKETS (1) SATELLITES (*1*DUPLICATES?) IMMEDIATE-DEPENDENTS0 (OCC-BODY-SYNTAX-SIMPLE-OKP COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN NO-DUPLICATES-IN-INDICES NO-DUPLICATES-DISJOINT-FIRSTN-RESTN NOT-DUPLICATES?-RESTN NOT-DUPLICATES?-FIRSTN DUPLICATES-APPEND DUPLICATES?-CONS DUPLICATES?-OFF) EVENT (DEFN DUPLICATES? (L) (IF (NLISTP L) (QUOTE *1*FALSE) (OR (MEMBER (CAR L) (CDR L)) (DUPLICATES? (CDR L))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DUPLICATES?) (DCELL . *1*DUPLICATES?))))) (PUT1-LST (QUOTE DISJOINT-APPEND) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-IF$VALUE ALL-UNBOUND-IN-BODY-APPEND) EVENT (PROVE-LEMMA DISJOINT-APPEND (REWRITE) (AND (EQUAL (DISJOINT X (APPEND Y Z)) (AND (DISJOINT X Y) (DISJOINT X Z))) (EQUAL (DISJOINT (APPEND Y Z) X) (AND (DISJOINT Y X) (DISJOINT Z X)))) ((ENABLE DISJOINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-CONS . DISJOINT-APPEND) (IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . DISJOINT-APPEND) (IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-APPEND) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-APPEND) (LEMMAS DISJOINT . DISJOINT-APPEND) (LEMMAS DISJOINT . DISJOINT-APPEND))))) (PUT1-LST (QUOTE DISJOINT-CONS) (QUOTE (IDATE 1000402193934 IMMEDIATE-DEPENDENTS0 (CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE NEXT-CNTL-STATE$VALUE WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-CONS DISJOINT-INDICES-DIFFERENT-NAMES DISJOINT-SUBRANGE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN DISJOINT-APPEND) EVENT (PROVE-LEMMA DISJOINT-CONS (REWRITE) (AND (EQUAL (DISJOINT (CONS X Y) Z) (AND (NOT (MEMBER X Z)) (DISJOINT Y Z))) (EQUAL (DISJOINT Z (CONS X Y)) (AND (NOT (MEMBER X Z)) (DISJOINT Z Y)))) ((ENABLE DISJOINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT-NLISTP . DISJOINT-CONS) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-CONS) (LEMMAS DISJOINT . DISJOINT-CONS) (LEMMAS DISJOINT . DISJOINT-CONS))))) (PUT1-LST (QUOTE DISJOINT-NLISTP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP$VALUE CHIP$STATE NEXT-CNTL-STATE$VALUE NEXT-STATE$VALUE WE-REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$ALL-UNBOUND-IN-BODY ALL-UNBOUND-IN-BODY-NLISTP-NAMES COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT DISJOINT-INDICES-DIFFERENT-NAMES DISJOINT-SUBRANGE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-RESTN1 DISJOINT-RESTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN DUPLICATES-APPEND DISJOINT-APPEND DISJOINT-CONS) EVENT (PROVE-LEMMA DISJOINT-NLISTP (REWRITE) (IMPLIES (OR (NLISTP X) (NLISTP Y)) (DISJOINT X Y)) ((ENABLE DISJOINT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT-NLISTP) (IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-NLISTP) (LEMMAS DISJOINT . DISJOINT-NLISTP))))) (PUT1-LST (QUOTE DISJOINT-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE DISJOINT-OFF DISJOINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOINT . DISJOINT-OFF) (DISABLED-LEMMAS NIL DISJOINT DISJOINT-OFF . T))))) (PUT1-LST (QUOTE *1*DISJOINT) (QUOTE (MAIN-EVENT DISJOINT))) (PUT1-LST (QUOTE DISJOINT) (QUOTE (TYPE-PRESCRIPTION-LST ((DISJOINT 3 NIL NIL)) LEMMAS ((REWRITE-RULE DISJOINT-INDICES-DIFFERENT-NAMES ((NOT (EQUAL (LNFIX NAME1) (LNFIX NAME2)))) (DISJOINT (INDICES NAME1 FROM1 N1) (INDICES NAME2 FROM2 N2)) NIL) (REWRITE-RULE DISJOINT-SUBRANGE ((DISJOINT X Y) (LESSP M (LENGTH Y))) (DISJOINT (SUBRANGE Y N M) X) NIL) (REWRITE-RULE DISJOINT-SUBRANGE ((DISJOINT X Y) (LESSP M (LENGTH Y))) (DISJOINT X (SUBRANGE Y N M)) NIL) (REWRITE-RULE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN ((NOT (DUPLICATES? X))) (DISJOINT (RESTN N X) (FIRSTN N X)) NIL) (REWRITE-RULE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN ((NOT (DUPLICATES? X))) (DISJOINT (FIRSTN N X) (RESTN N X)) NIL) (REWRITE-RULE DISJOINT-FIRSTN-RESTN-LEMMAS ((DISJOINT X Y)) (DISJOINT (RESTN N X) (RESTN M Y)) NIL) (REWRITE-RULE DISJOINT-FIRSTN-RESTN-LEMMAS ((DISJOINT X Y)) (DISJOINT (RESTN N X) (FIRSTN M Y)) NIL) (REWRITE-RULE DISJOINT-FIRSTN-RESTN-LEMMAS ((DISJOINT X Y)) (DISJOINT (FIRSTN N X) (RESTN M Y)) NIL) (REWRITE-RULE DISJOINT-FIRSTN-RESTN-LEMMAS ((DISJOINT X Y)) (DISJOINT (FIRSTN N X) (FIRSTN M Y)) NIL) (REWRITE-RULE DISJOINT-RESTN1 ((DISJOINT Y X)) (DISJOINT Y (RESTN N X)) NIL) (REWRITE-RULE DISJOINT-RESTN ((DISJOINT X Y)) (DISJOINT (RESTN N X) Y) NIL) (REWRITE-RULE DISJOINT-FIRSTN1 ((DISJOINT Y X)) (DISJOINT Y (FIRSTN N X)) NIL) (REWRITE-RULE DISJOINT-FIRSTN ((DISJOINT X Y)) (DISJOINT (FIRSTN N X) Y) NIL) (REWRITE-RULE DISJOINT-APPEND NIL (EQUAL (DISJOINT (APPEND Y Z) X) (IF (DISJOINT Y X) (DISJOINT Z X) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE DISJOINT-APPEND NIL (EQUAL (DISJOINT X (APPEND Y Z)) (IF (DISJOINT X Y) (DISJOINT X Z) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE DISJOINT-CONS NIL (EQUAL (DISJOINT Z (CONS X Y)) (IF (MEMBER X Z) (QUOTE *1*FALSE) (DISJOINT Z Y))) NIL) (REWRITE-RULE DISJOINT-CONS NIL (EQUAL (DISJOINT (CONS X Y) Z) (IF (MEMBER X Z) (QUOTE *1*FALSE) (DISJOINT Y Z))) NIL) (REWRITE-RULE DISJOINT-NLISTP ((OR (NLISTP X) (NLISTP Y))) (DISJOINT X Y) NIL)) TOTALP-LST ((DISJOINT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (L1 L2) (IF (LISTP L1) (IF (MEMBER (CAR L1) L2) (QUOTE *1*FALSE) (IF (DISJOINT (CDR L1) L2) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*TRUE))) LISP-CODE *1*DISJOINT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L1)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L1))) (((CDR L1) L2)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L1) (COUNT L1) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193933 CONTROLLER-POCKETS (1) SATELLITES (*1*DISJOINT) IMMEDIATE-DEPENDENTS0 (ALL-UNBOUND-IN-BODY-LISTP ALL-UNBOUND-IN-BODY MARK-IO-OUTS MODULE-SYNTAX-SIMPLE-OKP COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT DISJOINT-INDICES-DIFFERENT-NAMES DISJOINT-SUBRANGE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-FIRSTN-RESTN-LEMMAS DISJOINT-RESTN1 DISJOINT-RESTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN DUPLICATES-APPEND DISJOINT-APPEND DISJOINT-CONS DISJOINT-NLISTP DISJOINT-OFF) EVENT (DEFN DISJOINT (L1 L2) (IF (NLISTP L1) (QUOTE *1*TRUE) (AND (NOT (MEMBER (CAR L1) L2)) (DISJOINT (CDR L1) L2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DISJOINT) (DCELL . *1*DISJOINT))))) (PUT1-LST (QUOTE SUBSET-X-X) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE TTL-BIDIRECT-PADS$VALUE EXTEND-IMMEDIATE$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE V-EQUAL$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE$VALUE V-XOR$VALUE V-OR$VALUE SUBSET-RESTN) EVENT (PROVE-LEMMA SUBSET-X-X (REWRITE) (SUBSET X X) ((ENABLE SUBSET))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET-X-CONS-Y-Z . SUBSET-X-X) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . SUBSET-X-X) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUBSET-X-X) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-X-X) (LEMMAS SUBSET . SUBSET-X-X))))) (PUT1-LST (QUOTE SUBSET-APPEND) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP$STATE) EVENT (PROVE-LEMMA SUBSET-APPEND (REWRITE) (IMPLIES (OR (SUBSET A B) (SUBSET A C)) (SUBSET A (APPEND B C))) ((ENABLE SUBSET APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-MEMBER-APPEND . SUBSET-APPEND) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . SUBSET-APPEND) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUBSET-APPEND) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-APPEND) (LEMMAS SUBSET . SUBSET-APPEND))))) (PUT1-LST (QUOTE SUBSET-X-CONS-Y-Z) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (SUBSET-SUBRANGE SUBSET-RESTN SUBSET-FIRSTN SUBSET-X-X) EVENT (PROVE-LEMMA SUBSET-X-CONS-Y-Z (REWRITE) (EQUAL (SUBSET X (CONS Y Z)) (OR (SUBSET X Z) (AND (MEMBER Y X) (SUBSET (DELETE* Y X) Z)))) ((ENABLE SUBSET DELETE*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET-CONS . SUBSET-X-CONS-Y-Z) (IMMEDIATE-DEPENDENTS0 SUBSET-NLISTP . SUBSET-X-CONS-Y-Z) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUBSET-X-CONS-Y-Z) (IMMEDIATE-DEPENDENTS0 DELETE* . SUBSET-X-CONS-Y-Z) (IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-X-CONS-Y-Z) (LEMMAS SUBSET . SUBSET-X-CONS-Y-Z))))) (PUT1-LST (QUOTE SUBSET-CONS) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (SUBSET-SUBRANGE SUBSET-FIRSTN SUBSET-X-CONS-Y-Z) EVENT (PROVE-LEMMA SUBSET-CONS (REWRITE) (EQUAL (SUBSET (CONS X Y) Z) (AND (MEMBER X Z) (SUBSET Y Z))) ((ENABLE SUBSET))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-CONS) (LEMMAS SUBSET . SUBSET-CONS))))) (PUT1-LST (QUOTE SUBSET-NLISTP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET SUBSET-SUBRANGE SUBSET-FIRSTN SUBSET-X-X SUBSET-APPEND SUBSET-X-CONS-Y-Z) EVENT (PROVE-LEMMA SUBSET-NLISTP (REWRITE) (IMPLIES (NLISTP X) (SUBSET X Y)) ((ENABLE SUBSET))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-NLISTP) (LEMMAS SUBSET . SUBSET-NLISTP))))) (PUT1-LST (QUOTE SUBSET-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE SUBSET-OFF SUBSET T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSET . SUBSET-OFF) (DISABLED-LEMMAS NIL SUBSET SUBSET-OFF . T))))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (MAIN-EVENT SUBSET))) (PUT1-LST (QUOTE SUBSET) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBSET 3 NIL NIL)) LEMMAS ((REWRITE-RULE SUBSET-SUBRANGE ((LESSP N (LENGTH V))) (SUBSET (SUBRANGE V M N) V) NIL) (REWRITE-RULE SUBSET-RESTN NIL (SUBSET (RESTN N L) L) NIL) (REWRITE-RULE SUBSET-FIRSTN NIL (SUBSET (FIRSTN N L) L) NIL) (REWRITE-RULE SUBSET-X-X NIL (SUBSET X X) NIL) (REWRITE-RULE SUBSET-APPEND ((OR (SUBSET A B) (SUBSET A C))) (SUBSET A (APPEND B C)) NIL) (REWRITE-RULE SUBSET-X-CONS-Y-Z NIL (EQUAL (SUBSET X (CONS Y Z)) (IF (SUBSET X Z) (QUOTE *1*TRUE) (IF (MEMBER Y X) (SUBSET (DELETE* Y X) Z) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE SUBSET-CONS NIL (EQUAL (SUBSET (CONS X Y) Z) (IF (MEMBER X Z) (SUBSET Y Z) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE SUBSET-NLISTP ((NOT (LISTP X))) (SUBSET X Y) NIL)) TOTALP-LST ((SUBSET . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (L1 L2) (IF (LISTP L1) (IF (MEMBER (CAR L1) L2) (IF (SUBSET (CDR L1) L2) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBSET SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L1)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L1))) (((CDR L1) L2)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L1) (COUNT L1) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193933 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBSET) IMMEDIATE-DEPENDENTS0 (OK-OUT-DEPENDS PRIMITIVE-PROP-ERRORS ARG-TYPES-SIMPLE-OKP TYPES-ACCEPTABLEP OUT-DEPENDS-SIMPLE OCC-BODY-SYNTAX-SIMPLE-OKP SET-EQUAL COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET SUBSET-SUBRANGE SUBSET-RESTN SUBSET-FIRSTN SUBSET-X-X SUBSET-APPEND SUBSET-X-CONS-Y-Z SUBSET-CONS SUBSET-NLISTP SUBSET-OFF) EVENT (DEFN SUBSET (L1 L2) (IF (NLISTP L1) (QUOTE *1*TRUE) (AND (MEMBER (CAR L1) L2) (SUBSET (CDR L1) L2)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . SUBSET) (DCELL . *1*SUBSET))))) (PUT1-LST (QUOTE DELETE*-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE DELETE*-OFF DELETE* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE* . DELETE*-OFF) (DISABLED-LEMMAS NIL DELETE* DELETE*-OFF . T))))) (PUT1-LST (QUOTE *1*DELETE*) (QUOTE (MAIN-EVENT DELETE*))) (PUT1-LST (QUOTE DELETE*) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE* -1 NIL T)) TOTALP-LST ((DELETE* . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (DELETE* X (CDR L)) (CONS (CAR L) (DELETE* X (CDR L)))) L)) LISP-CODE *1*DELETE* SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (EQUAL X (CAR L))) ((X (CDR L)))) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR L)))) ((X (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193933 CONTROLLER-POCKETS (2) SATELLITES (*1*DELETE*) IMMEDIATE-DEPENDENTS0 (PRIMITIVE-PROP-ERRORS BOOLP-LIST-OK ALL-OUTPUT-TYPES LIST-SORT DELETE*-LEMMA DELETE*-COUNT SUBSET-X-CONS-Y-Z DELETE*-OFF) EVENT (DEFN DELETE* (X L) (IF (NLISTP L) L (IF (EQUAL X (CAR L)) (DELETE* X (CDR L)) (CONS (CAR L) (DELETE* X (CDR L)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . DELETE*) (DCELL . *1*DELETE*))))) (PUT1-LST (QUOTE LENGTH-REVERSE) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (ALL-RAMP-MEM-AFTER-WRITE-MEM ALL-RAMP-MEM->RAMP-MEM BVP-READ-MEM-32 PROPERP-READ-MEM-32 READ-MEM-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM) EVENT (PROVE-LEMMA LENGTH-REVERSE (REWRITE) (EQUAL (LENGTH (REVERSE X)) (LENGTH X)) ((ENABLE REVERSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . LENGTH-REVERSE) (IMMEDIATE-DEPENDENTS0 LENGTH-REV1 . LENGTH-REVERSE) (IMMEDIATE-DEPENDENTS0 REVERSE . LENGTH-REVERSE) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-REVERSE) (LEMMAS LENGTH . LENGTH-REVERSE))))) (PUT1-LST (QUOTE LENGTH-REV1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LENGTH-REVERSE) EVENT (PROVE-LEMMA LENGTH-REV1 (REWRITE) (EQUAL (LENGTH (REV1 X SPONGE)) (PLUS (LENGTH X) (LENGTH SPONGE))) ((ENABLE REV1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 LESSP-X-X . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 REV1 . LENGTH-REV1) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-REV1) (LEMMAS LENGTH . LENGTH-REV1))))) (PUT1-LST (QUOTE REVERSE-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE REVERSE-OFF REVERSE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REVERSE . REVERSE-OFF) (DISABLED-LEMMAS NIL REVERSE REVERSE-OFF . T))))) (PUT1-LST (QUOTE *1*REVERSE) (QUOTE (MAIN-EVENT REVERSE))) (PUT1-LST (QUOTE REVERSE) (QUOTE (TYPE-PRESCRIPTION-LST ((REVERSE 24 NIL)) TOTALP-LST ((REVERSE . T)) SDEFN (LAMBDA (X) (REV1 X (QUOTE NIL))) LISP-CODE *1*REVERSE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193933 SATELLITES (*1*REVERSE) IMMEDIATE-DEPENDENTS0 (BVP-REVERSE UNBIND-NETLIST-PROPS BVP-READ-MEM PROPERP-READ-MEM RAMP-MEM WRITE-MEM READ-MEM V-IFF-REVERSE LENGTH-REVERSE REVERSE-OFF) EVENT (DEFN REVERSE (X) (REV1 X (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REV1 . REVERSE) (DCELL . *1*REVERSE))))) (PUT1-LST (QUOTE REV1-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE REV1-OFF REV1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REV1 . REV1-OFF) (DISABLED-LEMMAS NIL REV1 REV1-OFF . T))))) (PUT1-LST (QUOTE *1*REV1) (QUOTE (MAIN-EVENT REV1))) (PUT1-LST (QUOTE REV1) (QUOTE (TYPE-PRESCRIPTION-LST ((REV1 16 NIL T)) TOTALP-LST ((REV1 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X SPONGE) (IF (LISTP X) (REV1 (CDR X) (CONS (CAR X) SPONGE)) SPONGE)) LISP-CODE *1*REV1 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X))) (((CDR X) (CONS (CAR X) SPONGE))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193933 CONTROLLER-POCKETS (1) SATELLITES (*1*REV1) IMMEDIATE-DEPENDENTS0 (BVP-REV1 REV-0 V-IFF-REV1 LENGTH-REV1 REVERSE REV1-OFF) EVENT (DEFN REV1 (X SPONGE) (IF (NLISTP X) SPONGE (REV1 (CDR X) (CONS (CAR X) SPONGE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . REV1) (DCELL . *1*REV1))))) (PUT1-LST (QUOTE LENGTH-IF*) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM SEFB1$STEP SEFA1$STEP WRITE1$STEP WRITE0$STEP READB2$STEP READB1$STEP READB0$STEP READA1$STEP READA0$STEP REGA$STEP CV_SEFB1$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READA1$DESTRUCTURE PROPERP-LENGTH-MEMORY-VALUE) EVENT (PROVE-LEMMA LENGTH-IF* (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (LENGTH (IF* C A B)) (LENGTH A))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-IF . LENGTH-IF*) (IMMEDIATE-DEPENDENTS0 IF* . LENGTH-IF*) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-IF*) (LEMMAS LENGTH . LENGTH-IF*))))) (PUT1-LST (QUOTE LENGTH-IF) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (INT-NEG-RANGE-IMPLICATIONS LENGTH-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY V-ALU-CORRECT-INT-ADDER-OUTPUT MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP PROPERP-LENGTH-F$EXTEND-IMMEDIATE BVP-LENGTH-READ-REGS-32 PROPERP-LENGTH-WRITE-REGS NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA0 BVP-LENGTH-CV F$CV=CV F$SELECT-OP-CODE-SELECTS TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE LENGTH-V-ALU PROPERP-LENGTH-NEXT-MEMORY-STATE BVP-READ-MEM1 PROPERP-READ-MEM1 LENGTH-NAT-TO-V LENGTH-IF*) EVENT (PROVE-LEMMA LENGTH-IF (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (LENGTH (IF C A B)) (LENGTH A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-IF) (LEMMAS LENGTH . LENGTH-IF))))) (PUT1-LST (QUOTE EQUAL-LENGTH-CDR) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-SUM-ON-NOT-A-A V-TO-NAT-EQUAL S-APPROX-MAKE-LIST ALL-XS-APPROXIMATES APPEND-SUM GENERATE-APPEND V-APPEND-PROPAGATE FV-IF-REWRITE FV-IF-WHEN-BOOLP-C FV-XOR=V-XOR FV-OR=V-OR V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS V-IFF=EQUAL V-IFF-REV1 V-XOR-NZEROP=NOT-EQUAL V-IF-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP PAIRLIST-APPEND) EVENT (PROVE-LEMMA EQUAL-LENGTH-CDR (REWRITE) (IMPLIES (EQUAL (LENGTH A) (LENGTH B)) (EQUAL (EQUAL (LENGTH (CDR A)) (LENGTH (CDR B))) (QUOTE *1*TRUE))) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . EQUAL-LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-CDR) (LEMMAS EQUAL . EQUAL-LENGTH-CDR))))) (PUT1-LST (QUOTE LENGTH-CDR) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 V-APPROX-MAKE-LIST-X) EVENT (PROVE-LEMMA LENGTH-CDR (REWRITE) (EQUAL (EQUAL (LENGTH (CDR V)) (SUB1 (LENGTH V))) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-CDR) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CDR) (LEMMAS EQUAL . LENGTH-CDR))))) (PUT1-LST (QUOTE EQUAL-LENGTH-ADD1-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE EQUAL-LENGTH-ADD1-OFF EQUAL-LENGTH-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LENGTH-ADD1 . EQUAL-LENGTH-ADD1-OFF) (DISABLED-LEMMAS NIL EQUAL-LENGTH-ADD1 EQUAL-LENGTH-ADD1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-LENGTH-ADD1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (FM9001-STATE-AS-A-LIST FLAGS$VALUE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$DECODE-5=DECODE-5 DECODE-5$VALUE SELECT-OP-CODE$VALUE F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP$VALUE B-STORE-RESULTP=STORE-RESULTP CASES-ON-A-4-BIT-BVP F$ALU-CELL-V-THREEFIX-MPG F$CARRY-IN-HELP=CARRY-IN-HELP F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC LIST-REWRITE-4 EQUAL-LENGTH-ADD1-OFF) EVENT (PROVE-LEMMA EQUAL-LENGTH-ADD1 (REWRITE) (EQUAL (EQUAL (LENGTH X) (ADD1 Y)) (AND (LISTP X) (EQUAL (LENGTH (CDR X)) (FIX Y)))) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . EQUAL-LENGTH-ADD1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . EQUAL-LENGTH-ADD1) (IMMEDIATE-DEPENDENTS0 LENGTH . EQUAL-LENGTH-ADD1) (LEMMAS EQUAL . EQUAL-LENGTH-ADD1))))) (PUT1-LST (QUOTE LENGTH-CDR-LEMMAS) (QUOTE (IDATE 1000402193933 EVENT (PROVE-LEMMA LENGTH-CDR-LEMMAS (REWRITE) (AND (EQUAL (EQUAL (LENGTH (CDR X)) (LENGTH X)) (NLISTP X)) (EQUAL (LESSP (LENGTH (CDR X)) (LENGTH X)) (LISTP X))) ((ENABLE LESSP LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-X . LENGTH-CDR-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LENGTH-CDR-LEMMAS) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CDR-LEMMAS) (LEMMAS LESSP . LENGTH-CDR-LEMMAS) (LEMMAS EQUAL . LENGTH-CDR-LEMMAS))))) (PUT1-LST (QUOTE LENGTH-APPEND) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE PROPERP-LENGTH-F$CV BVP-LENGTH-CV PROPERP-LENGTH-CV_FETCH1 SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR LENGTH-V-SHIFT-RIGHT-NAMES F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH CDR-TV-DEC-PASS-LENGTH PROPERP-LENGTH-FV-SHIFT-RIGHT LENGTH-V-SHIFT-RIGHT) EVENT (PROVE-LEMMA LENGTH-APPEND (REWRITE) (EQUAL (LENGTH (APPEND A B)) (PLUS (LENGTH A) (LENGTH B))) ((ENABLE LENGTH PLUS APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . LENGTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-0 . LENGTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH-CONS . LENGTH-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LENGTH-APPEND) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-APPEND) (LEMMAS LENGTH . LENGTH-APPEND))))) (PUT1-LST (QUOTE LENGTH-CONS) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-NAT-LSR-CARRY V-SUM-ON-NOT-A-A V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-TO-NAT-APPEND V-TO-NAT-V-NOT-LEMMA FIRSTN-LENGTH NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET LENGTH-RESET-SEQUENCE-CHIP-1 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA ALL-XS-APPROXIMATES FM9001-STATE-STRUCTURE-UNKNOWN-STATE LENGTH-SIMULATE DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH EQUAL-LENGTH-READ-MEM1 FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP CHIP-SYSTEM=RUN-FM9001 BV-AS-SUBRANGE FM9001-STATE-STRUCTURE$INDUCTION FM9001-STATE-STRUCTURE$STEP TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS PROPERP-LENGTH-F$UPDATE-FLAGS PROPERP-LENGTH-F$WRITE-REGS PROPERP-LENGTH-WRITE-REGS BVP-LENGTH-NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV BVP-LENGTH-CV F$CV=CV PROPERP-LENGTH-F$NEXT-STATE BVP-LENGTH-NEXT-STATE PROPERP-LENGTH-CV_FETCH1 BVP-LENGTH-STATE-VECTORS PROPERP-LENGTH-F$ENCODE-32 BVP-LENGTH-ENCODE-32 PROPERP-LENGTH-F$DECODE-5 BVP-LENGTH-DECODE-5 PROPERP-LENGTH-F$V-IF-F-4 PROPERP-LENGTH-F$SELECT-OP-CODE BOOLP-STORE-RESULT-P BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK LENGTH-CORE-ALU PROPERP-LENGTH-F$CORE-ALU SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR COLLECT-VALUE-V-SHIFT-RIGHT LENGTH-V-SHIFT-RIGHT-NAMES BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH LENGTH-MPG PROPERP-LENGTH-F$MPG BVP-LENGTH-ALU-DEC-OP BVP-LENGTH-ALU-INC-OP BVP-LENGTH-BV LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER REG-BODY$STATE REG-BODY$VALUE F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-CROCK-1 CDR-TV-DEC-PASS-LENGTH F$V-INC4$V=V-INC PROPERP-LENGTH-F$V-INC4$V FAST-ZERO$VALUE BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P LENGTH-SUM BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE PROPERP-LENGTH-VFT-BUF PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-V-PULLUP PROPERP-LENGTH-V-WIRE LENGTH-FV-IF PROPERP-LENGTH-FV-XOR PROPERP-LENGTH-FV-OR PROPERP-LENGTH-NEXT-MEMORY-STATE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS LENGTH-COLLECT-VALUE V-IFF=EQUAL V-IFF-REV1 LENGTH-V-THREEFIX LENGTH-OF-V-ADDER SIGN-EXTEND-AS-APPEND LENGTH-SIGN-EXTEND V-NEGP-AS-NTH LENGTH-NAT-TO-V V-NOT-INVERTS-ALL LENGTH-V-IF LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF BOOLP-NTH SHOW-THAT-NTH=T LENGTH-INDICES LENGTH-MAKE-LIST SUBRANGE-0 LENGTH-SUBRANGE NTH-APPEND-TOO NTH-APPEND CDR-RESTN TOO-MANY-RESTNS RESTN-APPEND LENGTH-FIRSTN LENGTH-REV1 LENGTH-CDR LENGTH-APPEND) EVENT (PROVE-LEMMA LENGTH-CONS (REWRITE) (EQUAL (LENGTH (CONS X Y)) (ADD1 (LENGTH Y))) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-CONS) (LEMMAS LENGTH . LENGTH-CONS))))) (PUT1-LST (QUOTE LENGTH-1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE NTH-LENGTH-V NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S FLAGS$STATE-HELP COLLECT-VALUE-V-SHIFT-RIGHT TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-CROCK-1 BTR-OR-IS-V-NZEROP TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P SINGLETON-COLLECT-VALUE A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS) EVENT (PROVE-LEMMA LENGTH-1 (REWRITE) (EQUAL (EQUAL (LENGTH A) (QUOTE 1)) (AND (LISTP A) (NLISTP (CDR A)))) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-BOTTOM . LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-1) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-1) (LEMMAS EQUAL . LENGTH-1))))) (PUT1-LST (QUOTE LENGTH-BOTTOM) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-REWRITE FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT ZERO-FLAG-INTERPRETATION-FOR-SUB V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS ZB-V-ALU V-TO-NAT-EQUAL V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-INC V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED EQUAL-NAT-TO-V-INVERTER FIRSTN-LENGTH SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 S-APPROX-MAKE-LIST ALL-XS-APPROXIMATES DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH V-APPROX-MAKE-LIST-X MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA BV-AS-SUBRANGE FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$INDUCTION FLAGS$STATE FLAGS$STATE-HELP FLAGS$VALUE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS NOT-SET-SOME-FLAGS-UPDATE-FLAGS F$DECODE-5=DECODE-5 DECODE-5$VALUE SELECT-OP-CODE$VALUE F$SELECT-OP-CODE-SELECTS F$DECODE-REG-MODE-AS-REG-MODE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP$VALUE B-STORE-RESULTP=STORE-RESULTP CORE-ALU$VALUE CORE-ALU-WORKS-FOR-ZERO-CASE CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS F$ALU-CELL-V-THREEFIX-MPG F$CARRY-IN-HELP=CARRY-IN-HELP BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 BVP-V-ALU-1 LENGTH-V-ALU LENGTH-CVZBV-SUBTRACTER BVP-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS TV-DEC-PASS-NG$VALUE F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC F$V-EQUAL=EQUAL* V-EQUAL$VALUE FAST-ZERO$VALUE BTR-OR-IS-V-NZEROP T-OR-NOR$VALUE TV-IF$VALUE BV-ADDER$VALUE V-WIRE-MAKE-LIST-Z FV-XOR=V-XOR FV-OR=V-OR V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS BVP-SUBRANGE V-IFF=EQUAL V-IFF-REV1 V-ADDER-WORKS V-IF-WORKS SIGN-EXTEND-AS-APPEND V-NEGP-AS-NTH BOOLP-NTH SHOW-THAT-NTH=T BOOLP-CAR-X BOOLFIX-CAR-X=X LIST-REWRITE-4 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT NTH-APPEND-TOO NTH-APPEND TOO-MANY-RESTNS EQUAL-LENGTH-CDR EQUAL-LENGTH-ADD1 LENGTH-CDR-LEMMAS LENGTH-1) EVENT (PROVE-LEMMA LENGTH-BOTTOM (REWRITE) (EQUAL (EQUAL (LENGTH X) (QUOTE 0)) (NLISTP X)) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH-NLISTP . LENGTH-BOTTOM) (IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-BOTTOM) (LEMMAS EQUAL . LENGTH-BOTTOM))))) (PUT1-LST (QUOTE LENGTH-NLISTP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB ZB-V-ALU V-ALU-CORRECT-INT-ASR SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 S-APPROX-MAKE-LIST ALL-XS-APPROXIMATES LENGTH-SIMULATE DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH V-APPROX-PRESERVES-LENGTH V-APPROX-LENGTH EQUAL-LENGTH-READ-MEM1 BV-AS-SUBRANGE EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE FM9001-STATE-STRUCTURE$INDUCTION F$SELECT-OP-CODE-SELECTS CORE-ALU$VALUE CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES LENGTH-V-SHIFT-RIGHT-NAMES BOOLP-CAR-F$TV-ALU-HELP TV-ALU-HELP-ZERO BV-V-ALU-ALU-INC-ALU-DEC UNARY-OP-CODE-P->V-ALU=V-ALU-1 BVP-LENGTH-BV LENGTH-V-ALU LENGTH-CVZBV-SUBTRACTER BVP-BV-V-ALU BOOLP-ZB-V-ALU WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE BTR-OR-IS-V-NZEROP T-OR-NOR$VALUE TV-IF$VALUE CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM APPEND-SUM GENERATE-APPEND V-APPEND-PROPAGATE LENGTH-SUM VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-V-PULLUP V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z FV-IF-REWRITE FV-IF-WHEN-BOOLP-C LENGTH-FV-IF PROPERP-LENGTH-FV-XOR PROPERP-LENGTH-FV-OR ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM1 BVP-READ-MEM1 PROPERP-READ-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM1 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS LENGTH-COLLECT-VALUE V-IFF-REV1 LENGTH-V-THREEFIX LENGTH-OF-V-ADDER V-NEGP-AS-NTH V-NOT-INVERTS-ALL V-IF-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP LENGTH-V-IF LENGTH-V-SHIFT-RIGHT LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT PROPERP-AS-NULL-NTHCDR NTH-APPEND-TOO NTH-APPEND PAIRLIST-APPEND CDR-RESTN RESTN-APPEND LENGTH-RESTN FIRSTN-APPEND LENGTH-FIRSTN LENGTH-REV1 LENGTH-CDR EQUAL-LENGTH-ADD1 LENGTH-APPEND LENGTH-1 LENGTH-BOTTOM) EVENT (PROVE-LEMMA LENGTH-NLISTP (REWRITE) (IMPLIES (NLISTP L) (EQUAL (LENGTH L) (QUOTE 0))) ((ENABLE LENGTH))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-NLISTP) (LEMMAS LENGTH . LENGTH-NLISTP))))) (PUT1-LST (QUOTE LENGTH-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE LENGTH-OFF LENGTH T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LENGTH . LENGTH-OFF) (DISABLED-LEMMAS NIL LENGTH LENGTH-OFF . T))))) (PUT1-LST (QUOTE *1*LENGTH) (QUOTE (MAIN-EVENT LENGTH))) (PUT1-LST (QUOTE LENGTH) (QUOTE (TYPE-PRESCRIPTION-LST ((LENGTH 4 NIL)) LEMMAS ((REWRITE-RULE LENGTH-INT-TO-V NIL (EQUAL (LENGTH (INT-TO-V I L)) (IF (NUMBERP L) L (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-RESET-SEQUENCE-CHIP-1 NIL (EQUAL (LENGTH (RESET-SEQUENCE-CHIP-1)) (QUOTE 20)) NIL) (REWRITE-RULE LENGTH-SIMULATE NIL (EQUAL (LENGTH (SIMULATE FN INPUTS STATE NETLIST)) (LENGTH INPUTS)) NIL) (REWRITE-RULE V-APPROX-PRESERVES-LENGTH ((V-APPROX A1 A2)) (EQUAL (LENGTH A1) (LENGTH A2)) NIL) (REWRITE-RULE LENGTH-READ-FN ((EQUAL (LENGTH REG0) (QUOTE 32)) (EQUAL (LENGTH REG1) (QUOTE 32))) (EQUAL (LENGTH (READ-FN REG0 REG1 N)) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$EXTEND-IMMEDIATE ((EQUAL (LENGTH IMMEDIATE) (QUOTE 9))) (EQUAL (LENGTH (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-BUS)) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$UPDATE-FLAGS NIL (EQUAL (LENGTH (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$WRITE-REGS NIL (EQUAL (LENGTH (F$WRITE-REGS WE ADDRESS REGS DATA)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$READ-REGS ((EQUAL (LENGTH (CAR (CDR (CDR MEM)))) (QUOTE 32))) (EQUAL (LENGTH (F$READ-REGS ADDRESS MEM)) (QUOTE 32)) NIL) (REWRITE-RULE BVP-LENGTH-READ-REGS-32 ((MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) (CAR REGS)) (BVP (CAR (CDR (CDR REGS)))) (EQUAL (LENGTH (CAR (CDR (CDR REGS)))) (QUOTE 32))) (EQUAL (LENGTH (READ-REGS V-ADDR REGS)) (QUOTE 32)) NIL) (REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (LENGTH (CAR (CDR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA)))))) (IF WE (LENGTH ADDRESS) (LENGTH (CAR (CDR (CDR (CDR REGS))))))) NIL) (REWRITE-RULE WRITE-REGS-OK NIL (EQUAL (LENGTH (CAR (CDR (CDR (WRITE-REGS WE ADDRESS REGS DATA))))) (IF WE (LENGTH DATA) (LENGTH (CAR (CDR (CDR REGS)))))) NIL) (REWRITE-RULE PROPERP-LENGTH-WRITE-REGS NIL (EQUAL (LENGTH (WRITE-REGS WE ADDRESS REGS DATA)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$NEXT-CNTL-STATE NIL (EQUAL (LENGTH (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) (QUOTE 40)) NIL) (REWRITE-RULE BVP-LENGTH-NEXT-CNTL-STATE NIL (EQUAL (LENGTH (NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) (QUOTE 40)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$CV ((EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (EQUAL (LENGTH RN-A) (QUOTE 4)) (EQUAL (LENGTH RN-B) (QUOTE 4)) (EQUAL (LENGTH OP-CODE) (QUOTE 4))) (EQUAL (LENGTH (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) (QUOTE 40)) NIL) (REWRITE-RULE BVP-LENGTH-CV ((EQUAL (LENGTH SET-FLAGS) (QUOTE 4)) (EQUAL (LENGTH RN-A) (QUOTE 4)) (EQUAL (LENGTH RN-B) (QUOTE 4)) (EQUAL (LENGTH OP-CODE) (QUOTE 4))) (EQUAL (LENGTH (CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) (QUOTE 40)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$NEXT-STATE NIL (EQUAL (LENGTH (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) (QUOTE 32)) NIL) (REWRITE-RULE BVP-LENGTH-NEXT-STATE NIL (EQUAL (LENGTH (NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-LENGTH-CV_FETCH1 ((CV-HYPS RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (EQUAL (LENGTH (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) (QUOTE 40)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_V11111)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_RESET2)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_RESET1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_RESET0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_V11011)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_V11010)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_HOLD1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_HOLD0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_SEFB1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_SEFB0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_SEFA1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_SEFA0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_WRITE3)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_WRITE2)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_WRITE1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_WRITE0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READB3)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READB2)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READB1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READB0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READA3)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READA2)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READA1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_READA0)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_UPDATE)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_REGB)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_REGA)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_DECODE)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_FETCH3)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_FETCH2)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_FETCH1)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-STATE-VECTORS NIL (EQUAL (LENGTH (V_FETCH0)) (QUOTE 5)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$ENCODE-32 NIL (EQUAL (LENGTH (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (QUOTE 5)) NIL) (REWRITE-RULE BVP-LENGTH-ENCODE-32 NIL (EQUAL (LENGTH (ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) (QUOTE 5)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$DECODE-5 NIL (EQUAL (LENGTH (F$DECODE-5 S)) (QUOTE 32)) NIL) (REWRITE-RULE BVP-LENGTH-DECODE-5 NIL (EQUAL (LENGTH (DECODE-5 S)) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$V-IF-F-4 NIL (EQUAL (LENGTH (F$V-IF-F-4 C A)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$SELECT-OP-CODE NIL (EQUAL (LENGTH (F$SELECT-OP-CODE SELECT DEC OP)) (QUOTE 4)) NIL) (REWRITE-RULE BVP-LENGTH-UPDATE-FLAGS NIL (EQUAL (LENGTH (UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (OP-CODE I-REG)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (STORE-CC I-REG)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (SET-FLAGS I-REG)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (MODE-B I-REG)) (QUOTE 2)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (RN-B I-REG)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (MODE-A I-REG)) (QUOTE 2)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (RN-A I-REG)) (QUOTE 4)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (EQUAL (LENGTH (A-IMMEDIATE I-REG)) (QUOTE 9)) NIL) (REWRITE-RULE LENGTH-CORE-ALU NIL (EQUAL (LENGTH (CORE-ALU C A B ZERO MPG OP TREE)) (ADD1 (ADD1 (ADD1 (TREE-SIZE TREE))))) NIL) (REWRITE-RULE PROPERP-LENGTH-F$CORE-ALU NIL (EQUAL (LENGTH (F$CORE-ALU C A B ZERO MPG OP TREE)) (ADD1 (ADD1 (ADD1 (TREE-SIZE TREE))))) NIL) (REWRITE-RULE LENGTH-SHIFT-OR-BUF NIL (EQUAL (LENGTH (SHIFT-OR-BUF C A AN ZERO OP1 OP2 OP3 OP4)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$SHIFT-OR-BUF NIL (EQUAL (LENGTH (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-SHIFT-RIGHT-NAMES NIL (EQUAL (LENGTH (V-SHIFT-RIGHT-NAMES A SI)) (LENGTH A)) NIL) (REWRITE-RULE F$TV-ALU-HELP-LENGTH NIL (EQUAL (LENGTH (F$TV-ALU-HELP C A B MPG TREE)) (ADD1 (ADD1 (TREE-SIZE TREE)))) NIL) (REWRITE-RULE CDDR-F$TV-ALU-HELP-LENGTH NIL (EQUAL (LENGTH (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) (TREE-SIZE TREE)) NIL) (REWRITE-RULE TV-ALU-HELP-LENGTH NIL (EQUAL (LENGTH (TV-ALU-HELP C A B MPG TREE)) (ADD1 (ADD1 (TREE-SIZE TREE)))) NIL) (REWRITE-RULE CDDR-TV-ALU-HELP-LENGTH NIL (EQUAL (LENGTH (CDR (CDR (TV-ALU-HELP C A B MPG TREE)))) (TREE-SIZE TREE)) NIL) (REWRITE-RULE LENGTH-MPG NIL (EQUAL (LENGTH (MPG ZSOP)) (QUOTE 7)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$MPG NIL (EQUAL (LENGTH (F$MPG ZSOP)) (QUOTE 7)) NIL) (REWRITE-RULE BVP-LENGTH-ALU-DEC-OP NIL (EQUAL (LENGTH (ALU-DEC-OP)) (QUOTE 4)) NIL) (REWRITE-RULE BVP-LENGTH-ALU-INC-OP NIL (EQUAL (LENGTH (ALU-INC-OP)) (QUOTE 4)) NIL) (REWRITE-RULE LENGTH-V-ALU-1 NIL (EQUAL (LENGTH (V-ALU-1 C A OP)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) NIL) (REWRITE-RULE BVP-LENGTH-BV NIL (EQUAL (LENGTH (BV X)) (DIFFERENCE (LENGTH X) (QUOTE 3))) NIL) (REWRITE-RULE LENGTH-V-ALU NIL (EQUAL (LENGTH (V-ALU C A B OP)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) NIL) (REWRITE-RULE LENGTH-CVZBV-ADDER NIL (EQUAL (LENGTH (CVZBV-V-ADDER C A B)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) NIL) (REWRITE-RULE LENGTH-CVZBV-SUBTRACTER NIL (EQUAL (LENGTH (CVZBV-V-SUBTRACTER C A B)) (ADD1 (ADD1 (ADD1 (LENGTH A))))) NIL) (REWRITE-RULE PROPERP-LENGTH-F$DEC-PASS ((NOT (EQUAL (LENGTH V) (QUOTE 0)))) (EQUAL (LENGTH (F$DEC-PASS C V)) (LENGTH V)) NIL) (REWRITE-RULE F$TV-DEC-PASS-NG-LENGTH-1 (MAKE-G) (EQUAL (LENGTH (CDR (F$TV-DEC-PASS-NG C A TREE MAKE-G))) (TREE-SIZE TREE)) NIL) (REWRITE-RULE F$TV-DEC-PASS-NG-LENGTH NIL (EQUAL (LENGTH (F$TV-DEC-PASS-NG C A TREE MAKE-G)) (IF MAKE-G (ADD1 (TREE-SIZE TREE)) (TREE-SIZE TREE))) NIL) (REWRITE-RULE TV-DEC-PASS-NG-LENGTH-1 (MAKE-G) (EQUAL (LENGTH (CDR (TV-DEC-PASS-NG C A TREE MAKE-G))) (TREE-SIZE TREE)) NIL) (REWRITE-RULE TV-DEC-PASS-NG-LENGTH NIL (EQUAL (LENGTH (TV-DEC-PASS-NG C A TREE MAKE-G)) (IF MAKE-G (ADD1 (TREE-SIZE TREE)) (TREE-SIZE TREE))) NIL) (REWRITE-RULE TV-DEC-PASS-LENGTH NIL (EQUAL (LENGTH (TV-DEC-PASS C A TREE)) (ADD1 (TREE-SIZE TREE))) NIL) (REWRITE-RULE CDR-TV-DEC-PASS-LENGTH NIL (EQUAL (LENGTH (CDR (TV-DEC-PASS C A TREE))) (TREE-SIZE TREE)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$V-INC4$V NIL (EQUAL (LENGTH (F$V-INC4$V A)) (QUOTE 4)) NIL) (REWRITE-RULE LENGTH-SUM NIL (EQUAL (LENGTH (V-SUM C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-DUAL-EVAL-2 ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST)) (PROPERP (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)))) (EQUAL (LENGTH (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)) (LENGTH (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)))) NIL) (REWRITE-RULE LENGTH-DUAL-EVAL-0 ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (EQUAL (LENGTH (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)) (LENGTH (MODULE-OUTPUTS (LOOKUP-MODULE FN NETLIST)))) NIL) (REWRITE-RULE PROPERP-LENGTH-VFT-BUF NIL (EQUAL (LENGTH (VFT-BUF C A)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-SHIFT-RIGHT NIL (EQUAL (LENGTH (FV-SHIFT-RIGHT A SI)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-V-PULLUP NIL (EQUAL (LENGTH (V-PULLUP V)) (LENGTH V)) NIL) (REWRITE-RULE PROPERP-LENGTH-V-WIRE NIL (EQUAL (LENGTH (V-WIRE A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-FV-IF NIL (EQUAL (LENGTH (FV-IF C A B)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-XOR NIL (EQUAL (LENGTH (FV-XOR A B)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-OR NIL (EQUAL (LENGTH (FV-OR A B)) (LENGTH A)) NIL) (REWRITE-RULE PROPERP-LENGTH-NEXT-MEMORY-STATE NIL (EQUAL (LENGTH (NEXT-MEMORY-STATE STATE STROBE- RW- ADDRESS DATA)) (QUOTE 8)) NIL) (REWRITE-RULE PROPERP-LENGTH-MEMORY-VALUE ((MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (CAR STATE)) (EQUAL (LENGTH ADDRESS) (QUOTE 32)) (EQUAL (LENGTH DATA) (QUOTE 32))) (EQUAL (LENGTH (CDR (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA))) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE NIL (EQUAL (LENGTH (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE)) (IF (NUMBERP BITS) BITS (QUOTE 0))) NIL) (REWRITE-RULE BVP-READ-MEM-32 ((MEMORY-OKP (LENGTH V-ADDR) (QUOTE 32) MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) (QUOTE 32)) NIL) (REWRITE-RULE BVP-READ-MEM1 ((MEMORY-OKP (LENGTH V-ADDR) SIZE MEM)) (EQUAL (LENGTH (READ-MEM1 V-ADDR MEM)) SIZE) NIL) (REWRITE-RULE PROPERP-READ-MEM-32 ((MEMORY-PROPERP (LENGTH V-ADDR) (QUOTE 32) MEM)) (EQUAL (LENGTH (READ-MEM V-ADDR MEM)) (QUOTE 32)) NIL) (REWRITE-RULE PROPERP-READ-MEM1 ((MEMORY-PROPERP (LENGTH V-ADDR) SIZE MEM)) (EQUAL (LENGTH (READ-MEM1 V-ADDR MEM)) SIZE) NIL) (REWRITE-RULE LENGTH-COLLECT-VALUE NIL (EQUAL (LENGTH (COLLECT-VALUE ARGS ALIST)) (LENGTH ARGS)) NIL) (REWRITE-RULE LENGTH-V-THREEFIX NIL (EQUAL (LENGTH (V-THREEFIX X)) (LENGTH X)) NIL) (REWRITE-RULE BVP-LENGTH-V-INC-V-DEC NIL (EQUAL (LENGTH (V-DEC X)) (LENGTH X)) NIL) (REWRITE-RULE BVP-LENGTH-V-INC-V-DEC NIL (EQUAL (LENGTH (V-INC X)) (LENGTH X)) NIL) (REWRITE-RULE LENGTH-OF-V-SUBTRACTER-OUTPUT NIL (EQUAL (LENGTH (V-SUBTRACTER-OUTPUT C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-OF-V-ADDER-OUTPUT NIL (EQUAL (LENGTH (V-ADDER-OUTPUT C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-OF-V-ADDER NIL (EQUAL (LENGTH (V-ADDER C A B)) (ADD1 (LENGTH A))) NIL) (REWRITE-RULE LENGTH-SIGN-EXTEND NIL (EQUAL (LENGTH (SIGN-EXTEND V N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-NAT-TO-V NIL (EQUAL (LENGTH (NAT-TO-V N LENGTH)) (IF (NUMBERP LENGTH) LENGTH (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-V-IF NIL (EQUAL (LENGTH (V-IF C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-ROR NIL (EQUAL (LENGTH (V-ROR A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-ASR NIL (EQUAL (LENGTH (V-ASR A)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-LSR NIL (EQUAL (LENGTH (V-LSR A)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-SHIFT-RIGHT NIL (EQUAL (LENGTH (V-SHIFT-RIGHT A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-XOR NIL (EQUAL (LENGTH (V-XOR A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-OR NIL (EQUAL (LENGTH (V-OR A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-AND NIL (EQUAL (LENGTH (V-AND A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-NOT NIL (EQUAL (LENGTH (V-NOT A)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-V-BUF NIL (EQUAL (LENGTH (V-BUF A)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-INDICES NIL (EQUAL (LENGTH (INDICES NAME FROM N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-MAKE-LIST NIL (EQUAL (LENGTH (MAKE-LIST N VALUE)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-SUBRANGE NIL (EQUAL (LENGTH (SUBRANGE L N M)) (IF (LESSP M N) (QUOTE 0) (ADD1 (DIFFERENCE M N)))) NIL) (REWRITE-RULE LENGTH-RESTN NIL (EQUAL (LENGTH (RESTN N L)) (DIFFERENCE (LENGTH L) N)) NIL) (REWRITE-RULE LENGTH-FIRSTN2 ((NOT (IF (LESSP (LENGTH L) N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (EQUAL (LENGTH (FIRSTN N L)) (LENGTH L)) NIL) (REWRITE-RULE LENGTH-FIRSTN1 ((NOT (LESSP (LENGTH L) N))) (EQUAL (LENGTH (FIRSTN N L)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LENGTH-FIRSTN NIL (EQUAL (LENGTH (FIRSTN N L)) (IF (LESSP (LENGTH L) N) (LENGTH L) (IF (NUMBERP N) N (QUOTE 0)))) NIL) (REWRITE-RULE LENGTH-REVERSE NIL (EQUAL (LENGTH (REVERSE X)) (LENGTH X)) NIL) (REWRITE-RULE LENGTH-REV1 NIL (EQUAL (LENGTH (REV1 X SPONGE)) (PLUS (LENGTH X) (LENGTH SPONGE))) NIL) (REWRITE-RULE LENGTH-IF* ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (LENGTH (IF* C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-IF ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (LENGTH (IF C A B)) (LENGTH A)) NIL) (REWRITE-RULE LENGTH-APPEND NIL (EQUAL (LENGTH (APPEND A B)) (PLUS (LENGTH A) (LENGTH B))) NIL) (REWRITE-RULE LENGTH-CONS NIL (EQUAL (LENGTH (CONS X Y)) (ADD1 (LENGTH Y))) NIL) (REWRITE-RULE LENGTH-NLISTP ((NOT (LISTP L))) (EQUAL (LENGTH L) (QUOTE 0)) NIL)) TOTALP-LST ((LENGTH . T)) LINEAR-LEMMAS ((LINEAR-LEMMA V-APPROX-LENGTH ((V-APPROX V1 V2)) (NOT (LESSP (LENGTH V1) (LENGTH V2))) (LENGTH V1)) (LINEAR-LEMMA V-APPROX-LENGTH ((V-APPROX V1 V2)) (NOT (LESSP (LENGTH V1) (LENGTH V2))) (LENGTH V2))) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (ADD1 (LENGTH (CDR L))) (QUOTE 0))) LISP-CODE *1*LENGTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L)) (((CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193933 CONTROLLER-POCKETS (1) SATELLITES (*1*LENGTH) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INT-TO-V-OF-V-TO-INT BV-V-ALU-AS-NATURAL NAT-TO-V-OF-V-TO-NAT* V-ALU-CORRECT-INT-REWRITE V-NEG FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE LENGTH-INT-TO-V INTEGER-IN-RANGEP-V-TO-INT V-NEGP-AS-BOUNDS V-TO-NAT-LESSP-EXP-2-LENGTH FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-LSR-CARRY FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR LESSP-V-TO-NAT-EXP-2-LENGTH-A FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC FLAGS-INTERPRETATION-XOR FLAGS-INTERPRETATION-LSR FLAGS-INTERPRETATION-ROR V-NEGP-V-SHIFT-RIGHT V-SUM-ON-NOT-A-A UNIVERSAL-FLAGS-INTERPRETATIONS ZB-V-ALU V-TO-NAT-EQUAL V-ALU-CORRECT-INT V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-INT-NEG V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-ASR-OUTPUT V-ALU-CORRECT-INT-DEC V-ALU-INT-DEC V-ALU-CORRECT-INT-SUBTRACTER V-ALU-CORRECT-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-INC V-ALU-INT-INC V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED V-TO-INT V-ALU-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-NAT-LSR-OUTPUT V-ALU-NAT-DEC V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-INC V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 NAT-TO-V-OF-V-TO-NAT FIRSTN-LENGTH NAT-TO-V-OF-V-TO-NAT-GENERAL NTH-LENGTH-V CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET RESET-CHIP-FROM-ANY-STATE RESET-CHIP LENGTH-RESET-SEQUENCE-CHIP-1 SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA S-APPROX-MAKE-LIST NEW-MACHINE-STATE-INVARIANT MEMORY-V-FOURP ALL-XS-APPROXIMATES XS-SUFFICE-FOR-RESET-CHIP-LEMMA-INSTANCE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP SIMULATE-RESET-CHIP-FINAL-STATE RESET-WORKS FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE XS-SUFFICE-FOR-RESET-LEMMA XS-SUFFICE-FOR-RESET-LEMMA-VERBOSE LENGTH-SIMULATE DOUBLET-N-SIMULATE S-APPROX-CADR-NTH V-APPROX-CAR-NTH GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 V-APPROX-PRESERVES-LENGTH V-APPROX-LENGTH WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE DUAL-PORT-RAM-VALUE-BODY EQUAL-LENGTH-READ-MEM EQUAL-LENGTH-READ-MEM1 V-APPROX-MAKE-LIST-X GOOD-S FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN FM9001-STATEP FM9001-MACHINE-STATEP MAP-DOWN-RELATION-LEMMA HIGH-LEVEL-STATE-STRUCTURE MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP MACROCYCLE-INVARIANT OPEN-OPERATING-INPUTS-P OPERATING-INPUTS-P SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM FETCH0->FETCH0$SIM2 FETCH0->FETCH0$SIM1 FETCH0->FETCH0$SIM0 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP LENGTH-READ-FN SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 REGFILE-OKP OPEN-RUN-INPUTS-P-ADD1 OPEN-RUN-INPUTS-P RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001 REWRITE-CHIP-SYSTEM-INPUT-INVARIANT CHIP-SYSTEM-INPUT-INVARIANT FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP EQUAL-MEMORY-VALUE-FOR-CHIP-SYSTEM$STATE MEMORY-STATE-INVARIANT CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE MACHINE-STATE-INVARIANT BV-AS-SUBRANGE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE FM9001-STATE-STRUCTURE$STEP FM9001-STATE-STRUCTURE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE PROPERP-LENGTH-F$EXTEND-IMMEDIATE FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP F$UPDATE-FLAGS=UPDATE-FLAGS PROPERP-LENGTH-F$UPDATE-FLAGS FLAGS$VALUE REGFILE$STATE F$WRITE-REGS=WRITE-REGS PROPERP-LENGTH-F$WRITE-REGS REGFILE$VALUE F$READ-REGS=READ-REGS PROPERP-LENGTH-F$READ-REGS BVP-LENGTH-READ-REGS-32 READ-REGS=READ-MEM-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-REGS READ-REGS-WRITE-REGS-F WRITE-REGS-OK PROPERP-LENGTH-WRITE-REGS NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE F$NEXT-CNTL-STATE=NEXT-CNTL-STATE V-OR-CROCK-FOR-F$NEXT-CNTL-STATE PROPERP-LENGTH-F$NEXT-CNTL-STATE BVP-LENGTH-NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV BVP-LENGTH-CV F$CV=CV NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE BVP-LENGTH-NEXT-STATE F$NEXT-STATE=NEXT-STATE F$CONTROL-LET=CONTROL-LET CONTROL-LET$VALUE PROPERP-LENGTH-CV_FETCH1 BVP-LENGTH-STATE-VECTORS CV-HYPS B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS F$ALL-T-REGS-ADDRESS=SET-SOME=FLAGS B-OR4$VALUE-AS-F$SET-SOME-FLAGS F$SET-SOME-FLAGS=SET-SOME=FLAGS FLAGS-HYPS ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 PROPERP-LENGTH-F$ENCODE-32 BVP-LENGTH-ENCODE-32 ENCODE-32$VALUE F$DECODE-5=DECODE-5 DECODE-5$VALUE PROPERP-LENGTH-F$DECODE-5 BVP-LENGTH-DECODE-5 FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE PROPERP-LENGTH-F$V-IF-F-4 SELECT-OP-CODE$VALUE F$SELECT-OP-CODE-SELECTS PROPERP-LENGTH-F$SELECT-OP-CODE F$DECODE-REG-MODE-AS-REG-MODE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE F$UNARY-OP-CODE-P=UNARY-OP-CODE-P B-STORE-RESULTP$VALUE B-STORE-RESULTP=STORE-RESULTP F$B-STORE-RESULTP=B-STORE-RESULTP STORE-RESULTP-MUX$VALUE LIST-TO-MEM LIST-TO-MEM1 BV-TO-INT BOOLP-STORE-RESULT-P BVP-A-IMMEDIATE BOOLP-C-FLAG-UPDATE-FLAGS BVP-LENGTH-UPDATE-FLAGS BOOLP-A-IMMEDIATE-P BVP-IR-ACCESSORS PROPERP-LENGTH-IR-ACCESSORS CORE-ALU$VALUE CORE-ALU-WORKS-AS-DEC-B CORE-ALU-WORKS-AS-INC-B CORE-ALU-WORKS-FOR-ZERO-CASE CORE-ALU-IS-V-ALU CASES-ON-A-4-BIT-BVP CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES$CROCK LENGTH-CORE-ALU F$CORE-ALU=CORE-ALU PROPERP-LENGTH-F$CORE-ALU CORE-ALU F$CORE-ALU TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR LENGTH-SHIFT-OR-BUF PROPERP-LENGTH-F$SHIFT-OR-BUF SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE COLLECT-VALUE-V-SHIFT-RIGHT LENGTH-V-SHIFT-RIGHT-NAMES OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE F$TV-ALU-HELP-V-THREEFIX-MPG TV-ALU-HELP$VALUE-BASE-CASE F$TV-ALU-HELP=TV-ALU-HELP BVP-F$TV-ALU-HELP BVP-CDDR-F$TV-ALU-HELP BOOLP-CAR-F$TV-ALU-HELP F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-ALU-HELP-V-BUF-WORKS TV-ALU-HELP-V-NOT-WORKS TV-ALU-HELP-V-XOR-WORKS TV-ALU-HELP-V-OR-WORKS TV-ALU-HELP-V-AND-WORKS TV-ALU-HELP-ZERO TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH F$ALU-CELL-V-THREEFIX-MPG ALU-CELL$VALUE-ZERO ALU-CELL$VALUE F$ALU-CELL=ALU-CELL G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE F$CARRY-IN-HELP=CARRY-IN-HELP MPG$VALUE LENGTH-MPG PROPERP-LENGTH-F$MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE BV-V-ALU-ALU-INC-ALU-DEC BVP-LENGTH-ALU-DEC-OP BVP-LENGTH-ALU-INC-OP UNARY-OP-CODE-P->V-ALU=V-ALU-1 LENGTH-V-ALU-1 BVP-V-ALU-1 BVP-LENGTH-BV LENGTH-V-ALU LENGTH-CVZBV-ADDER LENGTH-CVZBV-SUBTRACTER BVP-V-ALU BOOLP-V-V-ALU BOOLP-C-V-ALU CVZBV-DEC CVZBV-NEG CVZBV-INC WE-REG$STATE WE-REG-BODY$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG-BODY$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE F$DEC-PASS=DEC-OR-PASS PROPERP-LENGTH-F$DEC-PASS F$DEC-PASS TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG-WORKS-2 TV-DEC-PASS-NG-WORKS-1 TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-WORKS TV-DEC-PASS-CROCK-2 TV-DEC-PASS-CROCK-1 TV-DEC-PASS-LENGTH CDR-TV-DEC-PASS-LENGTH F$V-INC4$V=V-INC V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V V-INC4$VALUE F$V-EQUAL=EQUAL* V-EQUAL$VALUE F$V-EQUAL FAST-ZERO$VALUE F$FAST-ZERO=V-ZEROP F$FAST-ZERO=TR-OR-NOR F$FAST-ZERO F$TV-ZEROP=V-ZEROP TV-ZEROP$VALUE BTR-OR-IS-V-NZEROP TR-OR-NOR=BTR-OR-NOR T-OR-NOR$VALUE TV-IF$VALUE TV-ADDER-AS-P-G-SUM CDDR-TV-ADDER-AS-SUM CADR-TV-ADDER-AS-G CAR-TV-ADDER-AS-P V-ADDER-CARRY-OUT=V-CARRY V-ADDER-OUTPUT=V-SUM APPEND-SUM GENERATE-APPEND V-PROPAGATE-APPEND V-APPEND-PROPAGATE T-CARRY$VALUE A-1+1=A LENGTH-SUM BV-ADDER$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$VALUE V-WIRE$BODY-VALUE V-PULLUP$VALUE V-PULLUP$BODY-VALUE V-XOR$VALUE V-XOR$BODY-VALUE V-OR$VALUE V-OR$BODY-VALUE V-BUF$VALUE V-BUF$BODY-VALUE MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE MEM-32X32-ARGS-CROCK DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32-ARGS-CROCK B-BUF-PWR$VALUE B-BUF$VALUE OUTPUT-DEPENDENCIES OK-OUTPUT-TYPES PRESULTS-ERRORS PSTATE-TYPES-ERRORS POUT-DEPENDS-ERRORS PLOADINGS-ERRORS PDRIVES-ERRORS PDELAYS-ERRORS PDELAY-OK PHALF-DELAY-OK POUT-TYPE-ERRORS POUT-TYPE-OK PIN-TYPE-ERRORS FUNCTION-CALL-OK PS-PFP PFP MAP LSI-MODULE-SYNTAX-CHECK LSI-OCC-SYNTAX-OK NAME-LENGTH LSI-NAME-OK MODULE-SYNTAX-ERRORS OCC-SYNTAX-ERRORS OCC-ARG-LENGTH-ERROR OUTPUT-DEPENDENCIES-SIMPLE MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 LENGTH-DUAL-EVAL-0 VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-V-PULLUP V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-MAKE-LIST-Z FV-IF-REWRITE FV-IF-WHEN-BVP FV-IF-WHEN-BOOLP-C LENGTH-FV-IF FV-XOR=V-XOR PROPERP-LENGTH-FV-XOR FV-OR=V-OR PROPERP-LENGTH-FV-OR PROPERP-LENGTH-NEXT-MEMORY-STATE NEXT-MEMORY-STATE$INDUCTION EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE MEMORY-VALUE NEXT-MEMORY-STATE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE DUAL-PORT-RAM-VALUE ALL-RAMP-MEM-AFTER-WRITE-MEM ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM ALL-RAMP-MEM->RAMP-MEM1 BVP-READ-MEM-32 BVP-READ-MEM BVP-READ-MEM1 PROPERP-READ-MEM-32 PROPERP-READ-MEM PROPERP-READ-MEM1 READ-MEM-WRITE-MEM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 MEMORY-OKP-AFTER-WRITE-MEM MEMORY-OKP-AFTER-WRITE-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM MEMORY-OKP MEMORY-PROPERP COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS SINGLETON-COLLECT-VALUE LENGTH-COLLECT-VALUE VALUE-INDICES-HACK BVP-SUBRANGE V-IFF=EQUAL V-IFF-REVERSE V-IFF-REV1 LENGTH-V-THREEFIX V-ADDER-WORKS V-IF-WORKS BVP-LENGTH-V-INC-V-DEC LENGTH-OF-V-SUBTRACTER-OUTPUT LENGTH-OF-V-ADDER-OUTPUT LENGTH-OF-V-ADDER V-DEC V-INC V-ADDER-OVERFLOWP V-ADDER-CARRY-OUT V-ADDER-OUTPUT SIGN-EXTEND-AS-APPEND LENGTH-SIGN-EXTEND V-NEGP-AS-NTH V-XOR-NZEROP=NOT-EQUAL LENGTH-NAT-TO-V V-OR-MAKE-LIST-F V-NOT-INVERTS-ALL V-NOT-RESTN V-IF-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP LENGTH-V-IF LENGTH-V-ROR LENGTH-V-ASR LENGTH-V-LSR LENGTH-V-SHIFT-RIGHT LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF V-ASR ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH BOOLP-NTH SHOW-THAT-NTH=T BVP-LENGTH-RESTN BVP-LENGTH-CDR BVP-LENGTH BV2P BVP-NTHCDR BVP-RESTN LENGTH-INDICES EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH LIST-REWRITE-4 A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS LENGTH-MAKE-LIST DISJOINT-SUBRANGE NOT-MEMBER-SUBRANGE SUBSET-SUBRANGE SUBRANGE-0 SUBRANGE-APPEND-LEFT SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE LISTP-NTHCDR PROPERP-AS-NULL-NTHCDR NTH-APPEND-TOO NTH-APPEND PAIRLIST-APPEND CDR-RESTN TOO-MANY-RESTNS RESTN-APPEND LENGTH-RESTN FIRSTN-APPEND LENGTH-FIRSTN2 LENGTH-FIRSTN1 LENGTH-FIRSTN LENGTH-REVERSE LENGTH-REV1 LENGTH-IF* LENGTH-IF EQUAL-LENGTH-CDR LENGTH-CDR EQUAL-LENGTH-ADD1 LENGTH-CDR-LEMMAS LENGTH-APPEND LENGTH-CONS LENGTH-1 LENGTH-BOTTOM LENGTH-NLISTP LENGTH-OFF) EVENT (DEFN LENGTH (L) (IF (LISTP L) (ADD1 (LENGTH (CDR L))) (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*LENGTH))))) (PUT1-LST (QUOTE MEMBER==>POSITION) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (VALUE-PAIRLIST) EVENT (PROVE-LEMMA MEMBER==>POSITION (REWRITE) (IMPLIES (MEMBER X L) (POSITION X L)) ((ENABLE MEMBER POSITION))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . MEMBER==>POSITION) (IMMEDIATE-DEPENDENTS0 POSITION . MEMBER==>POSITION) (LEMMAS POSITION . MEMBER==>POSITION))))) (PUT1-LST (QUOTE POSITION-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE POSITION-OFF POSITION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 POSITION . POSITION-OFF) (DISABLED-LEMMAS NIL POSITION POSITION-OFF . T))))) (PUT1-LST (QUOTE *1*POSITION) (QUOTE (MAIN-EVENT POSITION))) (PUT1-LST (QUOTE POSITION) (QUOTE (TYPE-PRESCRIPTION-LST ((POSITION 5 NIL NIL)) LEMMAS ((REWRITE-RULE POSITION-NAME-INDICES ((MEMBER INDEX (INDICES NAME FROM N))) (EQUAL (POSITION INDEX (INDICES NAME FROM N)) (DIFFERENCE (I-NUM INDEX) FROM)) NIL) (REWRITE-RULE MEMBER==>POSITION ((MEMBER X L)) (POSITION X L) NIL)) TOTALP-LST ((POSITION . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (QUOTE 0) (IF (POSITION X (CDR L)) (ADD1 (POSITION X (CDR L))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*POSITION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (EQUAL X (CAR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR L))) (POSITION X (CDR L))) ((X (CDR L)))) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR L))) (NOT (POSITION X (CDR L)))) ((X (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP LESSP-X-X ZERO CDR-LESSEQP))) IDATE 1000402193933 CONTROLLER-POCKETS (2) SATELLITES (*1*POSITION) IMMEDIATE-DEPENDENTS0 (VALUE-PAIRLIST POSITION-NAME-INDICES MEMBER==>POSITION POSITION-OFF) EVENT (DEFN POSITION (X L) (IF (NLISTP L) (QUOTE *1*FALSE) (IF (EQUAL X (CAR L)) (QUOTE 0) (IF (POSITION X (CDR L)) (ADD1 (POSITION X (CDR L))) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-X-X . POSITION) (DCELL . *1*POSITION))))) (PUT1-LST (QUOTE PROPERP-IF*) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (PROPERP-LENGTH-MEMORY-VALUE) EVENT (PROVE-LEMMA PROPERP-IF* (REWRITE) (IMPLIES (AND (PROPERP A) (PROPERP B)) (PROPERP (IF* C A B))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-IF . PROPERP-IF*) (IMMEDIATE-DEPENDENTS0 IF* . PROPERP-IF*) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-IF*) (LEMMAS PROPERP . PROPERP-IF*))))) (PUT1-LST (QUOTE PROPERP-APPEND-NIL) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE) EVENT (PROVE-LEMMA PROPERP-APPEND-NIL (REWRITE) (IMPLIES (PROPERP A) (EQUAL (APPEND A (QUOTE NIL)) A)) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP-NLISTP . PROPERP-APPEND-NIL) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-APPEND-NIL) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-APPEND-NIL) (LEMMAS APPEND . PROPERP-APPEND-NIL))))) (PUT1-LST (QUOTE PROPERP-APPEND) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (EXTEND-IMMEDIATE$VALUE PROPERP-LENGTH-F$CV PROPERP-LENGTH-CV_FETCH1 PROPERP-SHIFT-RIGHT-NAMES PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG PROPERP-LENGTH-FV-SHIFT-RIGHT) EVENT (PROVE-LEMMA PROPERP-APPEND (REWRITE) (EQUAL (PROPERP (APPEND A B)) (PROPERP B)) ((ENABLE PROPERP APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . PROPERP-APPEND) (IMMEDIATE-DEPENDENTS0 PROPERP-CONS . PROPERP-APPEND) (IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-APPEND) (LEMMAS PROPERP . PROPERP-APPEND))))) (PUT1-LST (QUOTE PROPERP-CONS) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (FIRSTN-LENGTH CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S V-FOURP-IMPLIES-PROPERP ALL-XS-APPROXIMATES FM9001-STATE-STRUCTURE-UNKNOWN-STATE S-APPROX-IMPLIES-PROPERP-READ-MEM1 V-APPROX-MAKE-LIST-X FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA CHIP-SYSTEM=RUN-FM9001 BV-AS-SUBRANGE FM9001-STATE-STRUCTURE$INDUCTION FM9001-STATE-STRUCTURE$STEP FLAGS$STATE FLAGS$STATE-HELP PROPERP-LENGTH-F$UPDATE-FLAGS PROPERP-LENGTH-F$WRITE-REGS PROPERP-LENGTH-WRITE-REGS CV$VALUE PROPERP-LENGTH-F$CV PROPERP-LENGTH-F$NEXT-STATE PROPERP-LENGTH-CV_FETCH1 B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS PROPERP-LENGTH-F$ENCODE-32 PROPERP-LENGTH-F$DECODE-5 PROPERP-LENGTH-F$V-IF-F-4 PROPERP-LENGTH-F$SELECT-OP-CODE B-STORE-RESULTP$VALUE PROPERP-LENGTH-F$CORE-ALU PROPERP-SHIFT-RIGHT-NAMES PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP PROPERP-LENGTH-F$MPG PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V T-OR-NOR$VALUE TV-IF$VALUE PROPERP-LENGTH-VFT-BUF PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-V-PULLUP PROPERP-LENGTH-V-WIRE PROPERP-FV-IF PROPERP-LENGTH-FV-XOR PROPERP-LENGTH-FV-OR PROPERP-LENGTH-NEXT-MEMORY-STATE COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE PROPERP-V-THREEFIX PROPERP-INDICES LIST-REWRITE-4 PROPERP-MAKE-LIST PROPERP-SUBRANGE PROPERP-PAIRLIST PROPERP-FIRSTN PROPERP-APPEND-NIL PROPERP-APPEND) EVENT (PROVE-LEMMA PROPERP-CONS (REWRITE) (EQUAL (PROPERP (CONS X Y)) (PROPERP Y)) ((ENABLE PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-CONS) (LEMMAS PROPERP . PROPERP-CONS))))) (PUT1-LST (QUOTE PROPERP-NLISTP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (FIRSTN-LENGTH NEW-MACHINE-STATE-INVARIANT-IMPLIES-GOOD-S ALL-XS-APPROXIMATES V-APPROX-PRESERVES-PROPERP S-APPROX-IMPLIES-PROPERP-READ-MEM1 V-APPROX-MAKE-LIST-X MAP-UP-INVERTS-MAP-DOWN MAP-DOWN-RELATION-LEMMA BV-AS-SUBRANGE FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$INDUCTION FLAGS$STATE FLAGS$STATE-HELP B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS B-STORE-RESULTP$VALUE WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE V-INC4$VALUE-AS-V-INC T-OR-NOR$VALUE TV-IF$VALUE LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS BVP-V-THREEFIX LIST-REWRITE-4 SUBRANGE-0 PROPERP-AS-NULL-NTHCDR TOO-MANY-RESTNS PROPERP-RESTN PROPERP-APPEND-NIL) EVENT (PROVE-LEMMA PROPERP-NLISTP (REWRITE) (IMPLIES (NLISTP L) (EQUAL (PROPERP L) (EQUAL L (QUOTE NIL)))) ((ENABLE PROPERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-NLISTP) (LEMMAS PROPERP . PROPERP-NLISTP))))) (PUT1-LST (QUOTE PROPERP-IF) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (PROPERP-LENGTH-F$EXTEND-IMMEDIATE PROPERP-LENGTH-WRITE-REGS TV-SHIFT-OR-BUF$VALUE PROPERP-SHIFT-RIGHT-NAMES TV-ALU-HELP$VALUE PROPERP-F$TV-ALU-HELP PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-NEXT-MEMORY-STATE PROPERP-READ-MEM1 PROPERP-IF*) EVENT (PROVE-LEMMA PROPERP-IF (REWRITE) (IMPLIES (AND (PROPERP A) (PROPERP B)) (PROPERP (IF C A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-IF) (LEMMAS PROPERP . PROPERP-IF))))) (PUT1-LST (QUOTE PROPERP-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE PROPERP-OFF PROPERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PROPERP . PROPERP-OFF) (DISABLED-LEMMAS NIL PROPERP PROPERP-OFF . T))))) (PUT1-LST (QUOTE *1*PROPERP) (QUOTE (MAIN-EVENT PROPERP))) (PUT1-LST (QUOTE PROPERP) (QUOTE (TYPE-PRESCRIPTION-LST ((PROPERP 3 NIL)) LEMMAS ((REWRITE-RULE V-FOURP-IMPLIES-PROPERP ((V-FOURP X)) (PROPERP X) NIL) (REWRITE-RULE S-APPROX-IMPLIES-PROPERP-READ-MEM ((S-APPROX S1 S2) (PROPERP (READ-MEM A S1))) (PROPERP (READ-MEM A S2)) NIL) (REWRITE-RULE S-APPROX-IMPLIES-PROPERP-READ-MEM1 ((S-APPROX S1 S2) (PROPERP (READ-MEM1 A S1))) (PROPERP (READ-MEM1 A S2)) NIL) (REWRITE-RULE PROPERP-READ-FN ((PROPERP REG0) (PROPERP REG1)) (PROPERP (READ-FN REG0 REG1 N)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$EXTEND-IMMEDIATE NIL (PROPERP (F$EXTEND-IMMEDIATE SELECT-IMMEDIATE IMMEDIATE REG-BUS)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$UPDATE-FLAGS NIL (PROPERP (F$UPDATE-FLAGS FLAGS SET-FLAGS CVZBV)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$WRITE-REGS NIL (PROPERP (F$WRITE-REGS WE ADDRESS REGS DATA)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$READ-REGS NIL (PROPERP (F$READ-REGS ADDRESS MEM)) NIL) (REWRITE-RULE PROPERP-LENGTH-WRITE-REGS NIL (PROPERP (WRITE-REGS WE ADDRESS REGS DATA)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$NEXT-CNTL-STATE NIL (PROPERP (F$NEXT-CNTL-STATE RESET- DTACK- HOLD- RW- STATE I-REG FLAGS PC-REG REGS-ADDRESS)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$CV ((PROPERP DECODED-STATE) (EQUAL (LENGTH DECODED-STATE) (QUOTE 32))) (PROPERP (F$CV DECODED-STATE RN-A RN-B OP-CODE PC-REG REGS-ADDRESS SET-FLAGS STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$NEXT-STATE NIL (PROPERP (F$NEXT-STATE DECODED-STATE STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-)) NIL) (REWRITE-RULE PROPERP-LENGTH-CV_FETCH1 NIL (PROPERP (CV_FETCH1 RW- REGS-ADDRESS I-REG FLAGS PC-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$ENCODE-32 NIL (PROPERP (F$ENCODE-32 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$DECODE-5 NIL (PROPERP (F$DECODE-5 S)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$V-IF-F-4 NIL (PROPERP (F$V-IF-F-4 C A)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$SELECT-OP-CODE NIL (PROPERP (F$SELECT-OP-CODE SELECT DEC OP)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (OP-CODE I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (STORE-CC I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (SET-FLAGS I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (MODE-B I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (RN-B I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (MODE-A I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (RN-A I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-IR-ACCESSORS NIL (PROPERP (A-IMMEDIATE I-REG)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$CORE-ALU NIL (PROPERP (F$CORE-ALU C A B ZERO MPG OP TREE)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$SHIFT-OR-BUF NIL (PROPERP (F$SHIFT-OR-BUF C A AN ZERO OP0 OP1 OP2 OP3)) NIL) (REWRITE-RULE PROPERP-SHIFT-RIGHT-NAMES NIL (PROPERP (V-SHIFT-RIGHT-NAMES A SI)) NIL) (REWRITE-RULE PROPERP-F$TV-ALU-HELP NIL (PROPERP (F$TV-ALU-HELP C A B MPG TREE)) NIL) (REWRITE-RULE PROPERP-CDDR-F$TV-ALU-HELP NIL (PROPERP (CDR (CDR (F$TV-ALU-HELP C A B MPG TREE)))) NIL) (REWRITE-RULE PROPERP-MPG NIL (PROPERP (MPG ZSOP)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$MPG NIL (PROPERP (F$MPG ZSOP)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$DEC-PASS NIL (PROPERP (F$DEC-PASS C V)) NIL) (REWRITE-RULE PROPERP-CDR-F$TV-DEC-PASS-NG (MAKE-G) (PROPERP (CDR (F$TV-DEC-PASS-NG C A TREE MAKE-G))) NIL) (REWRITE-RULE PROPERP-F$TV-DEC-PASS-NG NIL (PROPERP (F$TV-DEC-PASS-NG C A TREE MAKE-G)) NIL) (REWRITE-RULE PROPERP-LENGTH-F$V-INC4$V NIL (PROPERP (F$V-INC4$V A)) NIL) (REWRITE-RULE PROPERP-DUAL-EVAL-2 ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST)) (PROPERP (MODULE-STATENAMES (LOOKUP-MODULE FN NETLIST)))) (PROPERP (DUAL-EVAL (QUOTE 2) FN ARGS STATE NETLIST)) NIL) (REWRITE-RULE PROPERP-DUAL-EVAL-0 ((NOT (PRIMP FN)) (LISTP (LOOKUP-MODULE FN NETLIST))) (PROPERP (DUAL-EVAL (QUOTE 0) FN ARGS STATE NETLIST)) NIL) (REWRITE-RULE PROPERP-LENGTH-VFT-BUF NIL (PROPERP (VFT-BUF C A)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-SHIFT-RIGHT NIL (PROPERP (FV-SHIFT-RIGHT A SI)) NIL) (REWRITE-RULE PROPERP-LENGTH-V-PULLUP NIL (PROPERP (V-PULLUP V)) NIL) (REWRITE-RULE PROPERP-LENGTH-V-WIRE NIL (PROPERP (V-WIRE A B)) NIL) (REWRITE-RULE PROPERP-FV-IF NIL (PROPERP (FV-IF C A B)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-XOR NIL (PROPERP (FV-XOR A B)) NIL) (REWRITE-RULE PROPERP-LENGTH-FV-OR NIL (PROPERP (FV-OR A B)) NIL) (REWRITE-RULE PROPERP-LENGTH-NEXT-MEMORY-STATE NIL (PROPERP (NEXT-MEMORY-STATE STATE STROBE- RW- ADDRESS DATA)) NIL) (REWRITE-RULE PROPERP-LENGTH-MEMORY-VALUE ((MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (CAR STATE)) (EQUAL (LENGTH ADDRESS) (QUOTE 32)) (EQUAL (LENGTH DATA) (QUOTE 32))) (PROPERP (CDR (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA))) NIL) (REWRITE-RULE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE NIL (PROPERP (DUAL-PORT-RAM-VALUE BITS ADDRESS-LINES ARGS STATE)) NIL) (REWRITE-RULE PROPERP-READ-MEM-32 ((MEMORY-PROPERP (LENGTH V-ADDR) (QUOTE 32) MEM)) (PROPERP (READ-MEM V-ADDR MEM)) NIL) (REWRITE-RULE PROPERP-READ-MEM1 ((MEMORY-PROPERP (LENGTH V-ADDR) SIZE MEM)) (PROPERP (READ-MEM1 V-ADDR MEM)) NIL) (REWRITE-RULE PROPERP-COLLECT-VALUE NIL (PROPERP (COLLECT-VALUE ARGS ALIST)) NIL) (REWRITE-RULE PROPERP-V-THREEFIX NIL (PROPERP (V-THREEFIX X)) NIL) (REWRITE-RULE BVP-IS-PROPERP ((BVP V)) (PROPERP V) NIL) (REWRITE-RULE PROPERP-INDICES NIL (PROPERP (INDICES NAME FROM N)) NIL) (REWRITE-RULE PROPERP-MAKE-LIST NIL (PROPERP (MAKE-LIST N VALUE)) NIL) (REWRITE-RULE PROPERP-SUBRANGE NIL (PROPERP (SUBRANGE V N M)) NIL) (REWRITE-RULE PROPERP-AS-NULL-NTHCDR NIL (EQUAL (PROPERP L) (EQUAL (NTHCDR (LENGTH L) L) (QUOTE NIL))) NIL) (REWRITE-RULE PROPERP-PAIRLIST NIL (PROPERP (PAIRLIST X Y)) NIL) (REWRITE-RULE PROPERP-RESTN NIL (EQUAL (PROPERP (RESTN N L)) (PROPERP L)) NIL) (REWRITE-RULE PROPERP-FIRSTN NIL (PROPERP (FIRSTN N L)) NIL) (REWRITE-RULE PROPERP-IF* ((PROPERP A) (PROPERP B)) (PROPERP (IF* C A B)) NIL) (REWRITE-RULE PROPERP-APPEND NIL (EQUAL (PROPERP (APPEND A B)) (PROPERP B)) NIL) (REWRITE-RULE PROPERP-CONS NIL (EQUAL (PROPERP (CONS X Y)) (PROPERP Y)) NIL) (REWRITE-RULE PROPERP-NLISTP ((NOT (LISTP L))) (EQUAL (PROPERP L) (EQUAL L (QUOTE NIL))) NIL) (REWRITE-RULE PROPERP-IF ((PROPERP A) (PROPERP B)) (PROPERP (IF C A B)) NIL)) TOTALP-LST ((PROPERP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (PROPERP (CDR L)) (EQUAL L (QUOTE NIL)))) LISP-CODE *1*PROPERP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L)) (((CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193933 CONTROLLER-POCKETS (1) SATELLITES (*1*PROPERP) IMMEDIATE-DEPENDENTS0 (FIRSTN-LENGTH CHIP-SYSTEM=FM9001-INTERPRETER$AFTER-RESET FM9001=CHIP-SYSTEM-TRUE-AFTER-RESET-LEMMA FM9001-STATEP-IMPLIES-MEMORY-OK-P-INSTANCE GOOD-S-OPENER MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-3 MACHINE-STATE-INVARIANT-IMPLIES-S-APPROX-LEMMA-2 V-FOURP-IMPLIES-PROPERP NEW-MACHINE-STATE-INVARIANT ALL-XS-APPROXIMATES FM9001-STATE-STRUCTURE-UNKNOWN-STATE CHIP-SYSTEM-INVARIANT-UNKNOWN-STATE GOOD-S-WRITE-MEM GOOD-S-WRITE-MEM-1 V-APPROX-PRESERVES-PROPERP S-APPROX-CONSTANT-RAM-X-WRITE-MEM S-APPROX-CONSTANT-RAM-X-WRITE-MEM1 S-APPROX-CONSTANT-RAM-X-WRITE-MEM1-CASE-3 WRITE-MEM-MONOTONE WRITE-MEM1-MONOTONE DUAL-PORT-RAM-VALUE-BODY S-APPROX-IMPLIES-PROPERP-READ-MEM S-APPROX-IMPLIES-PROPERP-READ-MEM1 V-APPROX-MAKE-LIST-X GOOD-S FM9001-STATEP-IMPLIES-FM9001-STATE-STRUCTURE FM9001-STATEP FM9001-MACHINE-STATEP MAP-DOWN-RELATION-LEMMA HIGH-LEVEL-STATE-STRUCTURE MACROCYCLE-INVARIANT PROPERP-READ-FN OPEN-RUN-INPUTS-P-ADD1 OPEN-RUN-INPUTS-P RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001 REWRITE-CHIP-SYSTEM-INPUT-INVARIANT CHIP-SYSTEM-INPUT-INVARIANT FM9001-PRESERVES-CHIP-SYSTEM-INVARIANT ALL-RAMP-MEM-DUAL-PORT-RAM-STATE-CROCK MEMORY-PROPERP-DUAL-PORT-RAM-STATE-CROCK NEXT-MEMORY-STATE-PRESERVES-MEMORY-INVARIANT CHIP-SYSTEM$STATE CHIP-SYSTEM$STATE-HELP MEMORY-STATE-INVARIANT CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE MACHINE-STATE-INVARIANT BV-AS-SUBRANGE REG-40$VALUE-AS-CNTL-STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE FM9001-STATE-AS-A-LIST FM9001-STATE-STRUCTURE$STEP FM9001-STATE-STRUCTURE TTL-BIDIRECT-PADS$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-OUTPUT-PADS$VALUE TTL-INPUT-PADS$VALUE EXTEND-IMMEDIATE$VALUE PROPERP-LENGTH-F$EXTEND-IMMEDIATE FLAGS$PARTIAL-STATE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP PROPERP-LENGTH-F$UPDATE-FLAGS FLAGS$VALUE REGFILE$STATE PROPERP-LENGTH-F$WRITE-REGS REGFILE$VALUE PROPERP-LENGTH-F$READ-REGS PROPERP-LENGTH-WRITE-REGS NEXT-CNTL-STATE$VALUE PROPERP-LENGTH-F$NEXT-CNTL-STATE CV$VALUE PROPERP-LENGTH-F$CV NEXT-STATE$VALUE PROPERP-LENGTH-F$NEXT-STATE CONTROL-LET$VALUE PROPERP-LENGTH-CV_FETCH1 B-AND4$VALUE-AS-F$ALL-T-REGS-ADDRESS B-OR4$VALUE-AS-F$SET-SOME-FLAGS ENCODE-32$VALUE-ON-A-VECTOR DUAL-EVAL-ON-COLLECTED-NTH-32 PROPERP-LENGTH-F$ENCODE-32 PROPERP-LENGTH-F$DECODE-5 PROPERP-LENGTH-F$V-IF-F-4 SELECT-OP-CODE$VALUE PROPERP-LENGTH-F$SELECT-OP-CODE B-STORE-RESULTP$VALUE PROPERP-LENGTH-IR-ACCESSORS CORE-ALU$VALUE PROPERP-LENGTH-F$CORE-ALU TV-SHIFT-OR-BUF$VALUE PROPERP-LENGTH-F$SHIFT-OR-BUF PROPERP-SHIFT-RIGHT-NAMES TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE PROPERP-F$TV-ALU-HELP PROPERP-CDDR-F$TV-ALU-HELP MPG$VALUE PROPERP-MPG PROPERP-LENGTH-F$MPG WE-REG$STATE WE-REG$VALUE REG$STATE REG$VALUE DEC-PASS$VALUE PROPERP-LENGTH-F$DEC-PASS TV-DEC-PASS-NG$VALUE PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG V-INC4$VALUE-AS-V-INC PROPERP-LENGTH-F$V-INC4$V V-EQUAL$VALUE FAST-ZERO$VALUE F$FAST-ZERO=TR-OR-NOR TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE V-WIRE$VALUE V-PULLUP$VALUE V-XOR$VALUE V-OR$VALUE V-BUF$VALUE MEM-32X32$STRUCTURED-STATE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE MEM-32X32$STRUCTURED-VALUE-1 LIST-32-NTH-COLLAPSE MEM-32X32-ARGS-CROCK DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE DP-RAM-16X32-ARGS-CROCK OK-OUTPUT-TYPES POUT-TYPE-OK FUNCTION-CALL-OK PS-PFP MODULE-SYNTAX-SIMPLE-OKP OCC-SYNTAX-SIMPLE-OKP LENGTH-DUAL-EVAL-2 PROPERP-DUAL-EVAL-2 PROPERP-DUAL-EVAL-0 PROPERP-LENGTH-VFT-BUF PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-V-PULLUP PROPERP-LENGTH-V-WIRE PROPERP-FV-IF PROPERP-LENGTH-FV-XOR PROPERP-LENGTH-FV-OR PROPERP-LENGTH-NEXT-MEMORY-STATE PROPERP-LENGTH-MEMORY-VALUE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE DUAL-PORT-RAM-VALUE PROPERP-READ-MEM-32 PROPERP-READ-MEM PROPERP-READ-MEM1 MEMORY-PROPERP-AFTER-WRITE-MEM MEMORY-PROPERP-AFTER-WRITE-MEM1 MEMORY-PROPERP-CONSTANT-RAM MEMORY-PROPERP COLLECT-VALUE-SUBRANGE-ARGS-PAIRLIST-ARGS COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE BVP-V-THREEFIX PROPERP-V-THREEFIX V-NOT-RESTN BVP-IS-PROPERP BVP-RESTN PROPERP-INDICES EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH LIST-REWRITE-4 PROPERP-MAKE-LIST SUBRANGE-0 PROPERP-SUBRANGE PROPERP-AS-NULL-NTHCDR PROPERP-PAIRLIST TOO-MANY-RESTNS PROPERP-RESTN PROPERP-FIRSTN PROPERP-IF* PROPERP-APPEND-NIL PROPERP-APPEND PROPERP-CONS PROPERP-NLISTP PROPERP-IF PROPERP-OFF) EVENT (DEFN PROPERP (L) (IF (LISTP L) (PROPERP (CDR L)) (EQUAL L (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PROPERP))))) (PUT1-LST (QUOTE EQUAL-APPEND-X-X) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM*$DESTRUCTURE CHIP*$DESTRUCTURE CHIP-MODULE*$DESTRUCTURE EXTEND-IMMEDIATE*$DESTRUCTURE FLAGS*$DESTRUCTURE REGFILE*$DESTRUCTURE CV_FETCH1$RW-DOAN-MATTA TV-ALU-HELP$VALUE F$TV-ALU-HELP=TV-ALU-HELP TV-ALU-HELP-TV-NEG-WORKS TV-ALU-HELP-TV-DEC-B-WORKS TV-ALU-HELP-TV-DEC-A-WORKS TV-ALU-HELP-TV-INC-B-WORKS TV-ALU-HELP-TV-INC-A-WORKS TV-ALU-HELP-TV-SUBTRACTER-WORKS TV-ALU-HELP-TV-ADDER-WORKS TV-DEC-PASS-NG$VALUE F$TV-DEC-PASS-NG=TV-DEC-PASS-NG TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS TV-DEC-PASS-CROCK-1 FV-SHIFT-RIGHT=V-SHIFT-RIGHT) EVENT (PROVE-LEMMA EQUAL-APPEND-X-X (REWRITE) (EQUAL (EQUAL (APPEND A B) (APPEND A C)) (EQUAL B C)) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . EQUAL-APPEND-X-X) (LEMMAS EQUAL . EQUAL-APPEND-X-X))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-APPEND) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE EXTEND-IMMEDIATE*$DESTRUCTURE) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-APPEND (REWRITE) (EQUAL (APPEND (APPEND A B) C) (APPEND A (APPEND B C))) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . ASSOCIATIVITY-OF-APPEND) (IMMEDIATE-DEPENDENTS0 APPEND-CONS . ASSOCIATIVITY-OF-APPEND) (LEMMAS APPEND . ASSOCIATIVITY-OF-APPEND))))) (PUT1-LST (QUOTE OUR-MEMBER-APPEND) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$VALUE CV$VALUE CONTROL-LET$VALUE CORE-ALU$VALUE TV-ALU-HELP$VALUE TV-IF$VALUE DUPLICATES-APPEND DISJOINT-APPEND SUBSET-APPEND) EVENT (PROVE-LEMMA OUR-MEMBER-APPEND (REWRITE) (EQUAL (MEMBER A (APPEND B C)) (OR (MEMBER A B) (MEMBER A C))) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APPEND-NLISTP . OUR-MEMBER-APPEND) (LEMMAS MEMBER . OUR-MEMBER-APPEND))))) (PUT1-LST (QUOTE APPEND-CONS) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT V-TO-NAT-APPEND V-APPROX-ALIST-APPEND ALISTP-APPEND EVAL$-APPEND-2 EVAL$-APPEND DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST CV$VALUE CHECK-CV$NETLIST NEXT-STATE$VALUE CONTROL-LET$VALUE PROPERP-LENGTH-CV_FETCH1 BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE CORE-ALU*$DESTRUCTURE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE TV-SHIFT-OR-BUF*$DESTRUCTURE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE COLLECT-VALUE-V-SHIFT-RIGHT OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP*$DESTRUCTURE ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE PROPERP-MPG BVP-MPG LENGTH-MPG PROPERP-LENGTH-F$MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE TV-IF*$DESTRUCTURE APPEND-SUM T-CARRY$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE COLLECT-VALUE-APPEND VALUE-APPEND-PAIRLIST APPEND-V-THREEFIX SIGN-EXTEND-AS-APPEND V-IF-APPEND-HELP V-BUF-APPEND-HELP V-NOT-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP INDICES-AS-APPEND MAKE-LIST-APPEND SUBRANGE-APPEND-LEFT NTH-APPEND PAIRLIST-APPEND APPEND-FIRSTN-RESTN FIRSTN-APPEND ASSOCIATIVITY-OF-APPEND) EVENT (PROVE-LEMMA APPEND-CONS (REWRITE) (EQUAL (APPEND (CONS A B) C) (CONS A (APPEND B C))) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((LEMMAS APPEND . APPEND-CONS))))) (PUT1-LST (QUOTE APPEND-NLISTP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-NEGP-V-SHIFT-RIGHT V-TO-NAT-APPEND V-APPROX-ALIST-APPEND ALISTP-APPEND EVAL$-APPEND-2 DUAL-EVAL-VSS-STATE DUAL-EVAL-VSS-VALUE DUAL-EVAL-VDD-PARAMETRIC-STATE DUAL-EVAL-VDD-PARAMETRIC-VALUE DUAL-EVAL-VDD-STATE DUAL-EVAL-VDD-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-STATE DUAL-EVAL-TTL-TRI-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-TRI-OUTPUT-STATE DUAL-EVAL-TTL-TRI-OUTPUT-VALUE DUAL-EVAL-TTL-OUTPUT-FAST-STATE DUAL-EVAL-TTL-OUTPUT-FAST-VALUE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-STATE DUAL-EVAL-TTL-OUTPUT-PARAMETRIC-VALUE DUAL-EVAL-TTL-OUTPUT-STATE DUAL-EVAL-TTL-OUTPUT-VALUE DUAL-EVAL-TTL-INPUT-STATE DUAL-EVAL-TTL-INPUT-VALUE DUAL-EVAL-TTL-CLK-INPUT-STATE DUAL-EVAL-TTL-CLK-INPUT-VALUE DUAL-EVAL-TTL-BIDIRECT-STATE DUAL-EVAL-TTL-BIDIRECT-VALUE DUAL-EVAL-PULLUP-STATE DUAL-EVAL-PULLUP-VALUE DUAL-EVAL-T-WIRE-STATE DUAL-EVAL-T-WIRE-VALUE DUAL-EVAL-T-BUF-STATE DUAL-EVAL-T-BUF-VALUE DUAL-EVAL-RAM-ENABLE-CIRCUIT-STATE DUAL-EVAL-RAM-ENABLE-CIRCUIT-VALUE DUAL-EVAL-ID-STATE DUAL-EVAL-ID-VALUE DUAL-EVAL-FD1SLP-STATE DUAL-EVAL-FD1SLP-VALUE DUAL-EVAL-FD1SP-STATE DUAL-EVAL-FD1SP-VALUE DUAL-EVAL-FD1S-STATE DUAL-EVAL-FD1S-VALUE DUAL-EVAL-FD1-STATE DUAL-EVAL-FD1-VALUE DUAL-EVAL-PROCMON-STATE DUAL-EVAL-PROCMON-VALUE DUAL-EVAL-DEL10-STATE DUAL-EVAL-DEL10-VALUE DUAL-EVAL-DEL4-STATE DUAL-EVAL-DEL4-VALUE DUAL-EVAL-DEL2-STATE DUAL-EVAL-DEL2-VALUE DUAL-EVAL-B-XOR3-STATE DUAL-EVAL-B-XOR3-VALUE DUAL-EVAL-B-XOR-STATE DUAL-EVAL-B-XOR-VALUE DUAL-EVAL-B-OR4-STATE DUAL-EVAL-B-OR4-VALUE DUAL-EVAL-B-OR3-STATE DUAL-EVAL-B-OR3-VALUE DUAL-EVAL-B-OR-STATE DUAL-EVAL-B-OR-VALUE DUAL-EVAL-B-NOT-IVAP-STATE DUAL-EVAL-B-NOT-IVAP-VALUE DUAL-EVAL-B-NOT-B4IP-STATE DUAL-EVAL-B-NOT-B4IP-VALUE DUAL-EVAL-B-NOT-STATE DUAL-EVAL-B-NOT-VALUE DUAL-EVAL-B-NOR8-STATE DUAL-EVAL-B-NOR8-VALUE DUAL-EVAL-B-NOR6-STATE DUAL-EVAL-B-NOR6-VALUE DUAL-EVAL-B-NOR5-STATE DUAL-EVAL-B-NOR5-VALUE DUAL-EVAL-B-NOR4-STATE DUAL-EVAL-B-NOR4-VALUE DUAL-EVAL-B-NOR3-STATE DUAL-EVAL-B-NOR3-VALUE DUAL-EVAL-B-NOR-STATE DUAL-EVAL-B-NOR-VALUE DUAL-EVAL-B-NBUF-STATE DUAL-EVAL-B-NBUF-VALUE DUAL-EVAL-B-NAND8-STATE DUAL-EVAL-B-NAND8-VALUE DUAL-EVAL-B-NAND6-STATE DUAL-EVAL-B-NAND6-VALUE DUAL-EVAL-B-NAND5-STATE DUAL-EVAL-B-NAND5-VALUE DUAL-EVAL-B-NAND4-STATE DUAL-EVAL-B-NAND4-VALUE DUAL-EVAL-B-NAND3-STATE DUAL-EVAL-B-NAND3-VALUE DUAL-EVAL-B-NAND-STATE DUAL-EVAL-B-NAND-VALUE DUAL-EVAL-B-IF-STATE DUAL-EVAL-B-IF-VALUE DUAL-EVAL-B-EQUV3-STATE DUAL-EVAL-B-EQUV3-VALUE DUAL-EVAL-B-EQUV-STATE DUAL-EVAL-B-EQUV-VALUE DUAL-EVAL-B-AND4-STATE DUAL-EVAL-B-AND4-VALUE DUAL-EVAL-B-AND3-STATE DUAL-EVAL-B-AND3-VALUE DUAL-EVAL-B-AND-STATE DUAL-EVAL-B-AND-VALUE DUAL-EVAL-AO7-STATE DUAL-EVAL-AO7-VALUE DUAL-EVAL-AO6-STATE DUAL-EVAL-AO6-VALUE DUAL-EVAL-AO4-STATE DUAL-EVAL-AO4-VALUE DUAL-EVAL-AO2-STATE DUAL-EVAL-AO2-VALUE CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE CHIP-MODULE$STATE LIST-AS-CNTL-STATE-CROCK EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE TTL-BIDIRECT-PADS$VALUE TTL-BIDIRECT-PADS-BODY$VALUE TTL-TRI-OUTPUT-PADS$VALUE TTL-TRI-OUTPUT-PADS-BODY$VALUE TTL-OUTPUT-PADS-BODY$VALUE TTL-INPUT-PADS-BODY$VALUE EXTEND-IMMEDIATE$VALUE FLAGS$PARTIAL-STATE-HELP FLAGS$STATE FLAGS$STATE-HELP FLAGS$VALUE REGFILE$STATE REGFILE$VALUE NEXT-CNTL-STATE$V11111 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$RESET1 NEXT-CNTL-STATE$RESET0 NEXT-CNTL-STATE$V11011 NEXT-CNTL-STATE$V11010 NEXT-CNTL-STATE$HOLD1 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB1 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE2 NEXT-CNTL-STATE$WRITE1 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB2 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READB0 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA2 NEXT-CNTL-STATE$READA1 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGB NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH2 NEXT-CNTL-STATE$FETCH1 NEXT-CNTL-STATE$FETCH0 NEXT-CNTL-STATE$VALUE CV$VALUE NEXT-STATE$VALUE CONTROL-LET$VALUE BVP-CV-VECTORS CV_V11111$DESTRUCTURE CV_RESET2$DESTRUCTURE CV_RESET1$DESTRUCTURE CV_RESET0$DESTRUCTURE CV_V11011$DESTRUCTURE CV_V11010$DESTRUCTURE CV_HOLD1$DESTRUCTURE CV_HOLD0$DESTRUCTURE CV_SEFB1$DESTRUCTURE CV_SEFB0$DESTRUCTURE CV_SEFA1$DESTRUCTURE CV_SEFA0$DESTRUCTURE CV_WRITE3$DESTRUCTURE CV_WRITE2$DESTRUCTURE CV_WRITE1$DESTRUCTURE CV_WRITE0$DESTRUCTURE CV_READB3$DESTRUCTURE CV_READB2$DESTRUCTURE CV_READB1$DESTRUCTURE CV_READB0$DESTRUCTURE CV_READA3$DESTRUCTURE CV_READA2$DESTRUCTURE CV_READA1$DESTRUCTURE CV_READA0$DESTRUCTURE CV_UPDATE$DESTRUCTURE CV_REGB$DESTRUCTURE CV_REGA$DESTRUCTURE CV_DECODE$DESTRUCTURE CV_FETCH3$DESTRUCTURE CV_FETCH2$DESTRUCTURE CV_FETCH1$DESTRUCTURE CV_FETCH0$DESTRUCTURE ENCODE-32$VALUE DECODE-5$VALUE FANOUT-32$VALUE FANOUT-5$VALUE FANOUT-4$VALUE V-IF-F-4$RESET-VALUE V-IF-F-4$VALUE SELECT-OP-CODE$VALUE DECODE-REG-MODE$VALUE UNARY-OP-CODE-P$VALUE B-STORE-RESULTP$VALUE STORE-RESULTP-MUX$VALUE CORE-ALU$VALUE TV-SHIFT-OR-BUF$VALUE-ZERO TV-SHIFT-OR-BUF$VALUE SHIFT-OR-BUF-CNTL$VALUE-ZERO SHIFT-OR-BUF-CNTL$VALUE COLLECT-VALUE-V-SHIFT-RIGHT OVERFLOW-HELP$VALUE-ZERO OVERFLOW-HELP$VALUE CARRY-OUT-HELP$VALUE-ZERO CARRY-OUT-HELP$VALUE TV-ALU-HELP$VALUE TV-ALU-HELP$VALUE-BASE-CASE TV-ALU-HELP*$DESTRUCTURE BVP-TV-ALU-HELP ALU-CELL$VALUE-ZERO ALU-CELL$VALUE G-CELL$VALUE-ZERO G-CELL$VALUE P-CELL$VALUE-ZERO P-CELL$VALUE CARRY-IN-HELP$VALUE-ZERO CARRY-IN-HELP$VALUE MPG$VALUE PROPERP-MPG BVP-MPG LENGTH-MPG PROPERP-LENGTH-F$MPG F$MPG=MPG DECODE-GEN$VALUE-ZERO DECODE-GEN$VALUE DECODE-PROP$VALUE DECODE-MODE$VALUE WE-REG$STATE WE-REG$VALUE WE-REG-BODY$VALUE REG$STATE REG$VALUE REG-BODY$VALUE DEC-PASS$VALUE TV-DEC-PASS-NG$VALUE DEC-PASS-CELL$VALUE V-INC4$VALUE V-EQUAL$VALUE FAST-ZERO$VALUE TV-ZEROP$VALUE T-OR-NOR$VALUE TV-IF$VALUE TV-IF*$DESTRUCTURE APPEND-SUM GENERATE-APPEND V-APPEND-PROPAGATE T-CARRY$VALUE BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE M2$STATE M2$VALUE M1$STATE M1$VALUE FULL-ADDER$VALUE HALF-ADDER$VALUE V-WIRE$BODY-VALUE V-PULLUP$BODY-VALUE V-XOR$BODY-VALUE V-OR$BODY-VALUE V-BUF$BODY-VALUE MEM-32X32$STRUCTURED-STATE-1 MEM-32X32$STRUCTURED-VALUE-1 DP-RAM-16X32$STRUCTURED-STATE DP-RAM-16X32$STRUCTURED-VALUE B-BUF-PWR$VALUE B-BUF$VALUE MEM-32X32$STATE FD1SLP$STATE FD1SP$STATE FD1S$STATE FD1$STATE DP-RAM-16X32$STATE VSS$VALUE VDD-PARAMETRIC$VALUE VDD$VALUE TTL-TRI-OUTPUT-FAST$VALUE TTL-TRI-OUTPUT$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE TTL-INPUT$VALUE TTL-CLK-INPUT$VALUE TTL-BIDIRECT$VALUE PULLUP$VALUE T-WIRE$VALUE T-BUF$VALUE RAM-ENABLE-CIRCUIT$VALUE MEM-32X32$VALUE ID$VALUE FD1SLP$VALUE FD1SP$VALUE FD1S$VALUE FD1$VALUE DP-RAM-16X32$VALUE PROCMON$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE B-XOR3$VALUE B-XOR$VALUE B-OR4$VALUE B-OR3$VALUE B-OR$VALUE B-NOT-IVAP$VALUE B-NOT-B4IP$VALUE B-NOT$VALUE B-NOR8$VALUE B-NOR6$VALUE B-NOR5$VALUE B-NOR4$VALUE B-NOR3$VALUE B-NOR$VALUE B-NBUF$VALUE B-NAND8$VALUE B-NAND6$VALUE B-NAND5$VALUE B-NAND4$VALUE B-NAND3$VALUE B-NAND$VALUE B-IF$VALUE B-EQUV3$VALUE B-EQUV$VALUE B-AND4$VALUE B-AND3$VALUE B-AND$VALUE AO7$VALUE AO6$VALUE AO4$VALUE AO2$VALUE COLLECT-VALUE-APPEND VALUE-APPEND-PAIRLIST APPEND-V-THREEFIX SIGN-EXTEND-AS-APPEND V-IF-APPEND-HELP V-BUF-APPEND-HELP V-NOT-APPEND-HELP V-XOR-APPEND-HELP V-OR-APPEND-HELP V-AND-APPEND-HELP BVP-APPEND INDICES-AS-APPEND MAKE-LIST-APPEND SUBRANGE-APPEND-RIGHT NTH-APPEND-TOO NTH-APPEND PAIRLIST-APPEND APPEND-FIRSTN-RESTN RESTN-APPEND FIRSTN-APPEND DUPLICATES-APPEND LENGTH-APPEND PROPERP-APPEND EQUAL-APPEND-X-X ASSOCIATIVITY-OF-APPEND OUR-MEMBER-APPEND) EVENT (PROVE-LEMMA APPEND-NLISTP (REWRITE) (IMPLIES (NLISTP A) (EQUAL (APPEND A B) B)) ((ENABLE APPEND))) LOCAL-UNDO-TUPLES ((LEMMAS APPEND . APPEND-NLISTP))))) (PUT1-LST (QUOTE *1*APPEND8) (QUOTE (MAIN-EVENT APPEND8))) (PUT1-LST (QUOTE APPEND8) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND8 16 NIL NIL NIL NIL NIL NIL NIL T)) TOTALP-LST ((APPEND8 . T)) SDEFN (LAMBDA (A B C D E G H I) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E (APPEND G (APPEND H I)))))))) LISP-CODE *1*APPEND8 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193933 SATELLITES (*1*APPEND8) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* CV$VALUE CHECK-CV$NETLIST CV*) EVENT (DEFN APPEND8 (A B C D E G H I) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E (APPEND G (APPEND H I)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*APPEND8))))) (PUT1-LST (QUOTE *1*APPEND7) (QUOTE (MAIN-EVENT APPEND7))) (PUT1-LST (QUOTE APPEND7) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND7 16 NIL NIL NIL NIL NIL NIL T)) TOTALP-LST ((APPEND7 . T)) SDEFN (LAMBDA (A B C D E G H) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E (APPEND G H))))))) LISP-CODE *1*APPEND7 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193933 SATELLITES (*1*APPEND7) EVENT (DEFN APPEND7 (A B C D E G H) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E (APPEND G H))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*APPEND7))))) (PUT1-LST (QUOTE *1*APPEND6) (QUOTE (MAIN-EVENT APPEND6))) (PUT1-LST (QUOTE APPEND6) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND6 16 NIL NIL NIL NIL NIL T)) TOTALP-LST ((APPEND6 . T)) SDEFN (LAMBDA (A B C D E G) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E G)))))) LISP-CODE *1*APPEND6 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193933 SATELLITES (*1*APPEND6) IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$VALUE CHECK-NEXT-CNTL-STATE$NETLIST NEXT-CNTL-STATE* CV$VALUE CHECK-CV$NETLIST CV*) EVENT (DEFN APPEND6 (A B C D E G) (APPEND A (APPEND B (APPEND C (APPEND D (APPEND E G)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*APPEND6))))) (PUT1-LST (QUOTE *1*APPEND5) (QUOTE (MAIN-EVENT APPEND5))) (PUT1-LST (QUOTE APPEND5) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND5 16 NIL NIL NIL NIL T)) TOTALP-LST ((APPEND5 . T)) SDEFN (LAMBDA (A B C D E) (APPEND A (APPEND B (APPEND C (APPEND D E))))) LISP-CODE *1*APPEND5 SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193933 SATELLITES (*1*APPEND5) IMMEDIATE-DEPENDENTS0 (CHIP-SYSTEM$STATE-HELP CHIP$VALUE CHIP$STATE CHIP-MODULE$VALUE) EVENT (DEFN APPEND5 (A B C D E) (APPEND A (APPEND B (APPEND C (APPEND D E))))) LOCAL-UNDO-TUPLES ((DCELL . *1*APPEND5))))) (PUT1-LST (QUOTE APPEND-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE APPEND-OFF APPEND T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL APPEND APPEND-OFF . T))))) (PUT1-LST (QUOTE LEQ-LESSP-DIFFERENCE) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY DOUBLE-DIFFERENCE-INDUCTION LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE) EVENT (PROVE-LEMMA LEQ-LESSP-DIFFERENCE (REWRITE) (IMPLIES (AND (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (AND (NOT (ZEROP Z)) (NOT (ZEROP Y)))) (EQUAL (LESSP (DIFFERENCE X Z) Y) (QUOTE *1*TRUE))) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . LEQ-LESSP-DIFFERENCE) (LEMMAS LESSP . LEQ-LESSP-DIFFERENCE))))) (PUT1-LST (QUOTE LESSP-X-1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP--1 NOT-V-NEGP-NAT-TO-V-0 IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS EXP-LINEAR-BOUNDS V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-LSR-ZERO FLAGS-INTERPRETATION-NAT-DEC V-NZEROP-NAT-TO-V QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP FLAGS-INTERPRETATION-NAT-INC V-NZEROP-NAT-TO-V-ZERO LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 V-TO-NAT-OF-NAT-TO-V NTH-LENGTH-V SIMULATE-CONTAINS-SIMULATE-DUAL-EVAL-2 DUAL-PORT-RAM-STATE-MONOTONE BV-AS-SUBRANGE F$SELECT-OP-CODE-SELECTS F$UNARY-OP-CODE-P=UNARY-OP-CODE-P F$CORE-ALU=CORE-ALU F$TV-ALU-HELP=TV-ALU-HELP F$TV-DEC-PASS-NG=TV-DEC-PASS-NG$SUPER-CROCK BOOLP-CAR-TV-DEC-PASS-NG F$FAST-ZERO=TR-OR-NOR SIGN-EXTEND-AS-APPEND ANY-OF-NAT-TO-V-0-IS-F RESTN-NAT-TO-V-0-HACK FIRSTN-NAT-TO-V BOOLP-CAR-X BOOLFIX-CAR-X=X BVP-LENGTH-CDR NTH-INDICES POSITION-NAME-INDICES MEMBER-INDICES LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS FIRSTN-MAKE-LIST LISTP-SUBRANGE SUBRANGE-APPEND-LEFT LENGTH-SUBRANGE) EVENT (PROVE-LEMMA LESSP-X-1 (REWRITE) (EQUAL (LESSP X (QUOTE 1)) (ZEROP X)) ((ENABLE LESSP))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-X-1))))) (PUT1-LST (QUOTE LESSP-SUB1-X-X) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST INTEGER-IN-RANGEP-IDIV NOT-V-NEGP-NAT-TO-V-0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY FLAGS-INTERPRETATION-NAT-DEC LESSP-SUB1-PLUS-A-B-B V-NZEROP-NAT-TO-V-ZERO V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT NAT-TO-V-REMAINDER NAT-TO-V-PLUS-X-X V-TO-NAT-FIRSTN MEMORY-V-FOURP-IMPLIES-MEMORY-PROPERP MEMORY-V-FOURP-IMPLIES-GOOD-S MEMORY-V-FOURP ALL-XS-MAKE-LIST DOUBLET-N-SIMULATE-INDUCTION NAT-LST-LST-INDUCTION V-APPROX-IMPLIES-NTH-DOES-NOT-GO-FROM-F-TO-T V-APPROX-IMPLIES-B-APPROX-NTH FM9001=FM9001-INTERPRETER TOTAL-MICROCYCLES OPERATING-INPUTS-P-IMPLIES-RUN-INPUTS-P OPERATING-INPUTS-P WRITE3$INDUCTION READB3$INDUCTION READA3$INDUCTION FETCH3$INDUCTION BVP-READ-FN PROPERP-READ-FN LENGTH-READ-FN READ-FN RUN-INPUTS-P CHIP-SYSTEM=RUN-FM9001$INDUCTION CHIP-SYSTEM-OPERATING-INPUTS-P FM9001-STATE-STRUCTURE$INDUCTION RUN-FM9001 TTL-BIDIRECT-PADS-BODY$VALUE TTL-BIDIRECT-PADS-BODY$UNBOUND-IN-BODY TTL-BIDIRECT-PADS-BODY$INDUCTION TTL-BIDIRECT-PADS-BODY TTL-TRI-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-TRI-OUTPUT-PADS-BODY$INDUCTION TTL-TRI-OUTPUT-PADS-BODY TTL-OUTPUT-PADS-BODY$UNBOUND-IN-BODY TTL-OUTPUT-PADS-BODY$INDUCTION TTL-OUTPUT-PADS-BODY TTL-INPUT-PADS-BODY$UNBOUND-IN-BODY TTL-INPUT-PADS-BODY$INDUCTION TTL-INPUT-PADS-BODY STUB-RIGHT LIST-TO-MEM3 EXP2 FM9001-INTERPRETER FM9001 CORE-ALU$VALUE WE-REG-BODY$STATE WE-REG-BODY-INDUCTION WE-REG-BODY$ALL-UNBOUND-IN-BODY WE-REG-BODY$UNBOUND-IN-BODY WE-REG-BODY REG-BODY$STATE REG-BODY-INDUCTION REG-BODY$ALL-UNBOUND-IN-BODY REG-BODY$UNBOUND-IN-BODY REG-BODY BV-ADDER$UNBOUND-IN-BODY-CARRY BV-ADDER$UNBOUND-IN-BODY-SUM BV-ADDER-BODY$INDUCTION BV-ADDER-BODY V-WIRE$UNBOUND-IN-BODY V-WIRE$BODY V-PULLUP$UNBOUND-IN-BODY V-PULLUP$BODY V-XOR$UNBOUND-IN-BODY V-XOR$BODY V-OR$UNBOUND-IN-BODY V-OR$BODY V-BUF$UNBOUND-IN-BODY V-BUF$BODY VECTOR-MODULE-INDUCTION ADDRESSED-STATE SIMULATE-DUAL-EVAL-2 DUAL-EVAL-BODY-BINDINGS V-PULLUP-MAKE-LIST-Z MEMORY-OKP==>MEMORY-PROPERP ALL-RAMP-MEM-CONSTANT-RAM MEMORY-PROPERP-CONSTANT-RAM ALL-RAMP-MEM MEMORY-OKP MEMORY-PROPERP CDR-CDR-SUB1-SUB1-INDUCTION COLLECT-VALUE-MAKE-LIST V-FOURFIX-MAKE-LIST V-THREEFIX-MAKE-LIST-X SIGN-EXTEND-AS-APPEND SIGN-EXTEND NOT-V-NZEROP-ALL-F V-ZEROP-MAKE-LIST-F NOT-V-NZEROP-AS-AND-CROCK V-NZEROP-AS-OR-CROCK CAR-NAT-TO-V-0-IS-F BVP-NAT-TO-V LENGTH-NAT-TO-V NAT-TO-V V-NOT-RESTN V-NOT-FIRSTN BOOLP-NTH BVP-MAKE-LIST POSITION-NAME-INDICES NO-DUPLICATES-IN-INDICES DISJOINT-INDICES-DIFFERENT-NAMES MEMBER-INDICES PROPERP-INDICES LENGTH-INDICES INDICES-AS-APPEND INDICES LIST-AS-COLLECTED-NTH PROPERP-MAKE-LIST MAKE-LIST-APPEND LENGTH-MAKE-LIST MAKE-LIST UPDATE-NTH LISTP-SUBRANGE SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE PROPERP-SUBRANGE SUBRANGE LISTP-NTHCDR CDR-NTHCDR NTHCDR NTH-RESTN NTH APPEND-FIRSTN-RESTN PROPERP-RESTN SUBSET-RESTN LENGTH-RESTN RESTN PROPERP-FIRSTN FIRSTN-BOTTOM SUBSET-FIRSTN LENGTH-FIRSTN FIRSTN LENGTH-CDR-LEMMAS) EVENT (PROVE-LEMMA LESSP-SUB1-X-X (REWRITE) (EQUAL (LESSP (SUB1 X) X) (NOT (ZEROP X))) ((ENABLE LESSP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1-X-Y-CROCK . LESSP-SUB1-X-X) (LEMMAS LESSP . LESSP-SUB1-X-X))))) (PUT1-LST (QUOTE LESSP-SUB1-X-Y-CROCK) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (INTEGER-IN-RANGEP-IPLUS-INEG-CARRY IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA LESSP-SUB1-X-X) EVENT (PROVE-LEMMA LESSP-SUB1-X-Y-CROCK (REWRITE) (IMPLIES (EQUAL X Y) (EQUAL (LESSP (SUB1 X) Y) (NOT (ZEROP X)))) ((ENABLE LESSP))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-SUB1-X-Y-CROCK))))) (PUT1-LST (QUOTE LESSP-X-X) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV INTEGER-IN-RANGEP-IPLUS-INEG-CARRY V-NEGP-AS-BOUNDS IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-SUB FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP V-SUM-ON-NOT-A-A REWRITE-EQUAL-V-TO-NAT-0 V-NOT-V-NOT V-ZEROP-IMPLIES-V-TO-NAT-0 V-NEGP->V-NZEROP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA DIVIDES-PLUS-PLUS V-FOURP-IMPLIES-PROPERP ALL-XS-APPROXIMATES ALL-XS V-FOURP LENGTH-SIMULATE NAT-LST-LST-INDUCTION GOOD-S-COLLECT-VALUE OK-NETLISTP-REDUCTION S-APPROX-ALIST-IMPLIES-S-APPROX-COLLECT-VALUE S-APPROX-ALIST-IMPLIES-S-APPROX-LIST-COLLECT-VALUE DOUBLE-CDR-INDUCTION V-APPROX-ALIST-IMPLIES-V-APPROX-COLLECT-VALUE DUAL-EVAL-MONOTONE-INDUCTION OK-NETLISTP WRITE-MEM1-DOUBLE-INDUCTION WRITE-MEM1-MONOTONE-INDUCTION BVP-IMPLIES-V-KNOWNP READ-MEM1-MONOTONE-INDUCTION BVP-REV1 WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP MAP-UP-INPUTS ADD-RAM-MARKER V-TO-HEX-ALL V-TO-NAT-ALL ASM-TO-1-AND-0 T-AND-F-TO-1-AND-0 ASM-LIST UPDATE-LIST RESOLVE-NAMES C10-TF FM9001-INTR COLLECT-VALUE-V-SHIFT-RIGHT TV-ALU-HELP-INDUCTION TV-ALU-HELP$NETLIST TV-ALU-HELP& F$TV-ALU-HELP-LENGTH CDDR-F$TV-ALU-HELP-LENGTH F$TV-ALU-HELP BVP-TV-ALU-HELP BVP-CDDR-TV-ALU-HELP TV-ALU-HELP-LENGTH CDDR-TV-ALU-HELP-LENGTH TV-ALU-HELP TV-DEC-PASS-NG$NETLIST TV-DEC-PASS-NG-INDUCTION TV-DEC-PASS-NG& PROPERP-CDR-F$TV-DEC-PASS-NG PROPERP-F$TV-DEC-PASS-NG F$TV-DEC-PASS-NG-LENGTH-1 F$TV-DEC-PASS-NG-LENGTH F$TV-DEC-PASS-NG TV-DEC-PASS-NG-IS-CDR-TV-DEC-PASS BVP-CDR-TV-DEC-PASS-NG BVP-TV-DEC-PASS-NG TV-DEC-PASS-NG-LENGTH-1 TV-DEC-PASS-NG-LENGTH TV-DEC-PASS-NG BVP-TV-DEC-PASS BVP-CDR-TV-DEC-PASS CDR-TV-DEC-PASS-LENGTH TV-DEC-PASS TR-OR-NOR=BTR-OR-NOR BTR-OR-NOR TR-OR-NOR T-OR-NOR-INDUCTION T-OR-NOR$NETLIST T-OR-NOR& TV-IF-INDUCTION TV-IF$NETLIST TV-IF& TV-ADDER T-CARRY-P-G-CARRY V-GENERATE V-PROPAGATE V-CARRY V-SUM-CONGRUENCE LENGTH-SUM BVP-SUM V-SUM BV-ADDER COUNT-PRIMITIVES COLLECT-PRIMITIVES LISP-NETLIST ALL-UNBOUND-IN-BODY-NLISTP-NAMES ALL-UNBOUND-IN-BODY-CONS ALL-UNBOUND-IN-BODY-APPEND ALL-UNBOUND-IN-BODY UNBOUND-IN-BODY STATE-OKP-0 ARG-TYPES-MATCHP SUBNET0 PRIMP-DATABASE-ERRORS UNKNOWN-ARGS OR-DELAY-ARGS INPUT-DELAY0 LOADED-DELAY LOCAL-DELAY DRIVE-MIN COLLECT-MIN-ARGS NET-MIN-ARGS TRANSFER-LOADING LOCAL-DRIVE EXTRACT-NAMES LSI-OCC-BODY-SYNTAX-CHECK OCC-BODY-SYNTAX-ERRORS NETLIST-LOADINGS-AND-DRIVES-SIMPLE LOADINGS-AND-DRIVES-SIMPLE COLLECT-DRIVES-SIMPLE COLLECT-LOADINGS-SIMPLE EXTERNAL-LOADING NET-DRIVES FIX-DRIVES FIX-LOADINGS SUM-LOADINGS EXTRACT-NAMES-SIMPLE SUM-NUMBERS ADD-LOADING-SIMPLES FIX-DEPENDENT-LDS NETLIST-STATE-TYPES-SIMPLE STATE-TYPE-REQUIREMENT-SIMPLE MAKE-RAM-STATE ARG-TYPES-MATCH-SIMPLEP NETLIST-TYPES-ACCEPTABLE-LIST TYPES-ACCEPTABLEP NETLIST-TYPE-TABLE-SIMPLE IO-TYPES-SIMPLE FIX-DEPENDENT-TYPES UPDATE-KNOWN-TYPES COLLECT-TYPES SIMPLE-DEPENDENCY-TABLE OUT-DEPENDS-SIMPLE NETLIST-SYNTAX-SIMPLE-OKP OCC-BODY-SYNTAX-SIMPLE-OKP NAME-LIST-SIMPLE-OKP LIST-COLLECT-VALUE DELETE*-LEMMA DELETE*-COUNT LOOKUP-MODULE-IN-DELETE-MODULE IS-HEAD SIMULATE DUAL-EVAL DELETE-MODULE-LOOKUP-MODULE-COUNT DELETE-MODULE LOOKUP-MODULE VFT-BUF-REWRITE VFT-BUF-LEMMAS PROPERP-LENGTH-VFT-BUF VFT-BUF V-PULLUP-BVP PROPERP-LENGTH-V-PULLUP V-PULLUP V-WIRE-MAKE-LIST-X PROPERP-LENGTH-V-WIRE V-WIRE-X-X=X V-WIRE FV-IF-V-THREEFIX V-THREEFIX-FV-IF PROPERP-FV-IF LENGTH-FV-IF FV-IF FV-XOR=V-XOR PROPERP-LENGTH-FV-XOR FV-XOR FV-OR=V-OR PROPERP-LENGTH-FV-OR FV-OR COLLECT-BREADTH-TREE BREADTH-TREE FIX-BREADTH-TREE-STACK ALL-RAMP-MEM-AFTER-WRITE-MEM1 ALL-RAMP-MEM->RAMP-MEM1 NOT-V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1-NOT-RAM V-IFF-V-ADDR1-V-ADDR2-READ-MEM1-WRITE-MEM1 CONSTANT-RAM ALL-RAMP-MEM RAMP-MEM1 WRITE-MEM1 READ-MEM1 COLLECT-VALUE-ARGS-PAIRLIST-ARGS PROPERP-COLLECT-VALUE COLLECT-VALUE-RESTN COLLECT-VALUE-FIRSTN COLLECT-VALUE-APPEND-PAIRLIST-WHEN-DISJOINT COLLECT-VALUE-APPEND-PAIRLIST-WHEN-SUBSET LENGTH-COLLECT-VALUE LISTP-COLLECT-VALUE COLLECT-VALUE VALUE BVP-SUBRANGE V-IFF=EQUAL V-IFF-REV1 V-IFF-X-X V-IFF V-THREEFIX-V-FOURFIX BVP-V-FOURFIX V-FOURFIX V-THREEFIX-IDEMPOTENCE APPEND-V-THREEFIX LENGTH-V-THREEFIX PROPERP-V-THREEFIX V-THREEFIX-BVP V-THREEFIX V-ADDER-WORKS V-IF-WORKS V-BUF-WORKS BVP-V-ADDER LENGTH-OF-V-ADDER V-ADDER BVP-SIGN-EXTEND LENGTH-SIGN-EXTEND SIGN-EXTEND V-NEGP-AS-NTH BOOLP-V-NEGP V-NEGP V-XOR-NZEROP=NOT-EQUAL NOT-V-NZEROP-V-XOR-X-X V-NZEROP V-TO-NAT V-IF-C-CONGRUENCE V-BUF-APPEND-HELP V-NOT-APPEND-HELP LENGTH-V-IF LENGTH-V-XOR LENGTH-V-OR LENGTH-V-AND LENGTH-V-NOT LENGTH-V-BUF BVP-V-IF BVP-V-XOR BVP-V-OR BVP-V-AND BVP-V-NOT BVP-V-BUF V-IF V-XOR V-OR V-AND V-NOT V-BUF BVP-NTHCDR BVP-IS-PROPERP BVP-APPEND BVP-RESTN BVP-FIRSTN BVP POSITION-NAME-INDICES MEMBER-INDICES TREE-HEIGHT TREE-SIZE-1-CROCK NOT-EQUAL-TREE-SIZE-TREE-0 TREE-SIZE DISJOINT-SUBRANGE NO-DUPLICATES-DISJOINT-FIRSTN-RESTN DISJOINT-RESTN1 DISJOINT-RESTN NOT-DUPLICATES?-RESTN DISJOINT-FIRSTN1 DISJOINT-FIRSTN NOT-DUPLICATES?-FIRSTN DUPLICATES? DISJOINT-APPEND DISJOINT-NLISTP DISJOINT SUBSET-X-X SUBSET-APPEND SUBSET-X-CONS-Y-Z SUBSET DELETE* LENGTH-REV1 REV1 MEMBER==>POSITION POSITION) EVENT (PROVE-LEMMA LESSP-X-X (REWRITE) (EQUAL (LESSP X X) (QUOTE *1*FALSE)) ((ENABLE LESSP))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-X-X))))) (PUT1-LST (QUOTE ZEROP-QUOTIENT) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 NOT-V-NEGP-NAT-TO-V-0 FLAGS-INTERPRETATION-NAT-LSR-ZERO V-NZEROP-NAT-TO-V QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP V-NZEROP-NAT-TO-V-ZERO IPLUS-DIV-HACK1 IDIV-ILESSP-0 LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE) EVENT (PROVE-LEMMA ZEROP-QUOTIENT (REWRITE) (EQUAL (EQUAL (QUOTIENT N M) (QUOTE 0)) (OR (ZEROP N) (OR (ZEROP M) (LESSP N M))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . ZEROP-QUOTIENT) (LEMMAS EQUAL . ZEROP-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-LESSP) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST QUOTIENT-STUFF NUMBER-TO-LIST1 LISTP-MAKE-TREE TREE-SIZE-MAKE-TREE MAKE-TREE) EVENT (PROVE-LEMMA QUOTIENT-LESSP (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) BASE) (NOT (ZEROP N))) (LESSP (QUOTIENT N BASE) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE=0 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . QUOTIENT-LESSP) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-LESSP))))) (PUT1-LST (QUOTE TIMES-COMMUTES) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-TO-NAT-APPEND V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN DIVIDES-PLUS-PLUS) EVENT (PROVE-LEMMA TIMES-COMMUTES (REWRITE) (EQUAL (TIMES A B) (TIMES B A)) ((ENABLE PLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1-AGAIN . TIMES-COMMUTES) (IMMEDIATE-DEPENDENTS0 TIMES-BOTTOM . TIMES-COMMUTES) (LEMMAS TIMES . TIMES-COMMUTES))))) (PUT1-LST (QUOTE TIMES-ADD1-AGAIN) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (TIMES-COMMUTES) EVENT (PROVE-LEMMA TIMES-ADD1-AGAIN (REWRITE) (EQUAL (TIMES A (ADD1 B)) (PLUS A (TIMES A B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TIMES-ADD1-AGAIN) (IMMEDIATE-DEPENDENTS0 PLUS-0 . TIMES-ADD1-AGAIN) (LEMMAS TIMES . TIMES-ADD1-AGAIN))))) (PUT1-LST (QUOTE TIMES-1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY EXP-2-L-1<=EXP-2-L SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS EXP-LINEAR-BOUNDS INTEGER-IN-RANGEP-1 V-NEGP-AS-BOUNDS LESSP-V-TO-NAT-EXP-2-LENGTH-A V-NZEROP-NAT-TO-V REWRITE-EQUAL-V-TO-NAT-0 V-TO-NAT-EQUAL V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA NAT-TO-V-REMAINDER NAT-TO-V-OF-V-TO-NAT-GENERAL V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN NTH-LENGTH-V DUAL-PORT-RAM-VALUE-MONOTONE PROPERP-LENGTH-DUAL-PORT-RAM-VALUE V-ADDER-WORKS) EVENT (PROVE-LEMMA TIMES-1 (REWRITE) (AND (EQUAL (TIMES A (QUOTE 1)) (FIX A)) (EQUAL (TIMES (QUOTE 1) A) (FIX A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-SUB1 . TIMES-1) (IMMEDIATE-DEPENDENTS0 PLUS-0 . TIMES-1) (IMMEDIATE-DEPENDENTS0 TIMES-BOTTOM . TIMES-1) (LEMMAS TIMES . TIMES-1) (LEMMAS TIMES . TIMES-1))))) (PUT1-LST (QUOTE TIMES-BOTTOM) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL TIMES-COMMUTES TIMES-1) EVENT (PROVE-LEMMA TIMES-BOTTOM (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (OR (ZEROP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-BOTTOM . TIMES-BOTTOM) (IMMEDIATE-DEPENDENTS0 PLUS-0 . TIMES-BOTTOM) (LEMMAS EQUAL . TIMES-BOTTOM))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE=0) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-THE-OBVIOUS-WAY IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-SUBB-HIGHER DIFFERENCE-LINEAR REMAINDER-THEOREM-FOR-SUBB FLAGS-INTERPRETATION-NAT-DEC QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP V-ALU-CORRECT-INT-ADDER-OUTPUT IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE DIVIDES-PLUS-PLUS WRITE3$PROGRESS WRITE3$PROGRESS-HELP READB3$PROGRESS READB3$PROGRESS-HELP READA3$PROGRESS READA3$PROGRESS-HELP FETCH3$PROGRESS FETCH3$PROGRESS-HELP POSITION-NAME-INDICES SUBRANGE-APPEND-RIGHT NTH-APPEND-TOO RESTN-APPEND LENGTH-RESTN FIRSTN-APPEND LEQ-LESSP-DIFFERENCE QUOTIENT-LESSP) EVENT (PROVE-LEMMA LESSP-DIFFERENCE=0 (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (DIFFERENCE X Y) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . LESSP-DIFFERENCE=0) (LEMMAS DIFFERENCE . LESSP-DIFFERENCE=0))))) (PUT1-LST (QUOTE NOT-LESSP-DIFFERENCE) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT EXP-LINEAR-BOUNDS V-TO-INT-V-NOT) EVENT (PROVE-LEMMA NOT-LESSP-DIFFERENCE (REWRITE) (EQUAL (LESSP X (DIFFERENCE X Y)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-EQUAL-DIFFERENCE-0 . NOT-LESSP-DIFFERENCE) (LEMMAS LESSP . NOT-LESSP-DIFFERENCE))))) (PUT1-LST (QUOTE DIFFERENCE-ADD1-ADD1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y FLAGS-INTERPRETATION-NAT-DEC V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 DUAL-PORT-RAM-STATE-MONOTONE BVP-LENGTH-BV SUBRANGE-APPEND-RIGHT NTH-APPEND-TOO RESTN-APPEND FIRSTN-APPEND) EVENT (PROVE-LEMMA DIFFERENCE-ADD1-ADD1 (REWRITE) (EQUAL (DIFFERENCE (ADD1 X) (ADD1 Y)) (DIFFERENCE X Y)) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-ADD1-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-1 . DIFFERENCE-ADD1-ADD1) (LEMMAS DIFFERENCE . DIFFERENCE-ADD1-ADD1))))) (PUT1-LST (QUOTE DIFFERENCE-0) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-TEST QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS EXP-LINEAR-BOUNDS FLAGS-INTERPRETATION-NAT-DEC IPLUS-DIV-HACK1 IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 CORE-ALU$VALUE BVP-LENGTH-BV FAST-ZERO$VALUE RESTN-NAT-TO-V-0-HACK POSITION-NAME-INDICES TREE-SIZE-MAKE-TREE SUBRANGE-APPEND-RIGHT LENGTH-SUBRANGE NTH-APPEND-TOO RESTN-APPEND LENGTH-RESTN FIRSTN-APPEND DIFFERENCE-ADD1-ADD1) EVENT (PROVE-LEMMA DIFFERENCE-0 (REWRITE) (IMPLIES (ZEROP Z) (EQUAL (DIFFERENCE X Z) (FIX X))) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-0))))) (PUT1-LST (QUOTE OUR-EQUAL-DIFFERENCE-0) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT NOT-EQUAL-IPLUS-MINUS-0 INTEGERP-V-TO-INT IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-SUBB-HIGHER FLAGS-INTERPRETATION-NAT-DEC QUOTIENT-LESSP-DOUBLE-REMAINDER$HELP IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT DIVIDES-PLUS-PLUS POSITION-NAME-INDICES LISTP-MAKE-TREE ZEROP-QUOTIENT QUOTIENT-LESSP LESSP-DIFFERENCE=0 NOT-LESSP-DIFFERENCE) EVENT (PROVE-LEMMA OUR-EQUAL-DIFFERENCE-0 (REWRITE) (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 0)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . OUR-EQUAL-DIFFERENCE-0))))) (PUT1-LST (QUOTE OUR-DIFFERENCE-X-X) (QUOTE (IDATE 1000402193933 EVENT (PROVE-LEMMA OUR-DIFFERENCE-X-X (REWRITE) (EQUAL (DIFFERENCE X X) (QUOTE 0)) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . OUR-DIFFERENCE-X-X))))) (PUT1-LST (QUOTE DIFFERENCE-X-1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL LESSP-QUOTIENT-TEST QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY FLAGS-INTERPRETATION-NAT-DEC V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT DUAL-PORT-RAM-STATE-MONOTONE WRITE3$PROGRESS-HELP READB3$PROGRESS-HELP READA3$PROGRESS-HELP FETCH3$PROGRESS-HELP SIGN-EXTEND-AS-APPEND DIFFERENCE-ADD1-ADD1) EVENT (PROVE-LEMMA DIFFERENCE-X-1 (REWRITE) (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X)) ((ENABLE DIFFERENCE))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-X-1))))) (PUT1-LST (QUOTE DIFFERENCE-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE DIFFERENCE-OFF DIFFERENCE T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL DIFFERENCE DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE PLUS-ADD1-SUB1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT F$FAST-ZERO=V-ZEROP NTH-INDICES POSITION-NAME-INDICES MEMBER-INDICES TIMES-1) EVENT (PROVE-LEMMA PLUS-ADD1-SUB1 (REWRITE) (AND (IMPLIES (NOT (ZEROP N)) (EQUAL (PLUS (SUB1 N) (ADD1 M)) (PLUS N M))) (IMPLIES (NOT (ZEROP N)) (EQUAL (PLUS (ADD1 M) (SUB1 N)) (PLUS M N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . PLUS-ADD1-SUB1) (LEMMAS PLUS . PLUS-ADD1-SUB1) (LEMMAS PLUS . PLUS-ADD1-SUB1))))) (PUT1-LST (QUOTE PLUS-BOTTOM) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-1 NOT-EQUAL-IPLUS-MINUS-0 V-NEGP-AS-BOUNDS IDIFFERENCE-0 FLAGS-INTERPRETATION-NAT-DEC V-NZEROP-NAT-TO-V V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT V-TO-NAT-OF-NAT-TO-V DIVIDES-PLUS-PLUS NTH-LENGTH-V TYPE-COUNT-LESSP1 DELETE*-COUNT MEMBER-INDICES NOT-EQUAL-TREE-SIZE-TREE-0 TIMES-BOTTOM) EVENT (PROVE-LEMMA PLUS-BOTTOM (REWRITE) (EQUAL (EQUAL (PLUS A B) (QUOTE 0)) (AND (ZEROP A) (ZEROP B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-0 . PLUS-BOTTOM) (LEMMAS EQUAL . PLUS-BOTTOM))))) (PUT1-LST (QUOTE PLUS-ADD1) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-CARRY V-NEGP-AS-BOUNDS FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A FLAGS-INTERPRETATION-NAT-INC REWRITE-EQUAL-V-TO-NAT-0 V-TO-NAT-EQUAL V-ALU-CORRECT-INT-ASR-OUTPUT LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN REMAINDER-ADD1-PLUS-MULTIPLE NTH-LENGTH-V LENGTH-RESET-SEQUENCE-CHIP-1 DUAL-PORT-RAM-STATE-MONOTONE PLUS-ADD1-ON PLUS-ADD1-OFF PROPERP-LENGTH-CV_FETCH1 SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR LENGTH-V-SHIFT-RIGHT-NAMES BTR-OR-IS-V-NZEROP BV-ADDER-BODY$VALUE TYPE-COUNT-LESSP1 DELETE*-COUNT DELETE-MODULE-LOOKUP-MODULE-COUNT PROPERP-LENGTH-FV-SHIFT-RIGHT V-ADDER-WORKS LENGTH-V-SHIFT-RIGHT POSITION-NAME-INDICES MEMBER-INDICES INDICES-AS-APPEND TREE-SIZE-1-CROCK MAKE-LIST-APPEND LENGTH-REV1 LENGTH-APPEND TIMES-ADD1-AGAIN PLUS-ADD1-SUB1) EVENT (PROVE-LEMMA PLUS-ADD1 (REWRITE) (AND (EQUAL (PLUS (ADD1 X) Y) (ADD1 (PLUS X Y))) (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y))))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1) (LEMMAS PLUS . PLUS-ADD1))))) (PUT1-LST (QUOTE PLUS-0) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL LESSP-QUOTIENT-TEST IMOD-V-TO-INT-2 QUOTIENT-ADD1-PLUS-X-X-2 QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y EQUAL-SUB1-PLUS-X-X FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS IZEROP-INC-V-NZEROP INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS LESSP-A-PLUS-A-A LESSP-1-PLUS-X-X NOT-EQUAL-IPLUS-MINUS-0 V-NEGP-AS-BOUNDS CARRY-FLAG-NAT-INTERPRETATION-FOR-SUB FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A LESSP-SUB1-PLUS-A-B-B FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-INC ZERO-FLAG-INTERPRETATION-FOR-SUB REWRITE-EQUAL-V-TO-NAT-0 V-TO-NAT-EQUAL V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 PLUS-QUOTIENT-2-LEMMA IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE V-ALU-CORRECT-NAT-LSR-OUTPUT V-ALU-CORRECT-NAT-LSR-CARRY-OUT V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA NAT-TO-V-OF-V-TO-NAT-GENERAL QUOTIENT-PLUS-X-X-2 REMAINDER-PLUS-X-X-2 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN REMAINDER-ADD1-PLUS-MULTIPLE DIVIDES-PLUS-PLUS NTH-LENGTH-V DUAL-PORT-RAM-STATE-MONOTONE OPERATING-INPUTS-P-PLUS WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM RUN-INPUTS-P-PLUS RUN-FM9001-PLUS CORE-ALU$VALUE SHIFT-OR-BUF-IS-ROR SHIFT-OR-BUF-IS-ASR LENGTH-V-SHIFT-RIGHT-NAMES FAST-ZERO$VALUE F$FAST-ZERO=V-ZEROP BTR-OR-IS-V-NZEROP BV-ADDER-BODY-SPECIAL-CASE$VALUE BV-ADDER-BODY$VALUE TYPE-COUNT-LESSP2 TYPE-COUNT-LESSP1 DELETE*-COUNT PROPERP-LENGTH-FV-SHIFT-RIGHT PROPERP-LENGTH-DUAL-PORT-RAM-VALUE V-ADDER-WORKS LENGTH-V-SHIFT-RIGHT NTH-INDICES POSITION-NAME-INDICES MEMBER-INDICES INDICES-AS-APPEND TREE-SIZE-1-CROCK MAKE-LIST-APPEND LENGTH-REVERSE LENGTH-REV1 LENGTH-APPEND TIMES-ADD1-AGAIN TIMES-1 TIMES-BOTTOM PLUS-BOTTOM) EVENT (PROVE-LEMMA PLUS-0 (REWRITE) (AND (IMPLIES (ZEROP ZERO) (EQUAL (PLUS X ZERO) (FIX X))) (IMPLIES (ZEROP ZERO) (EQUAL (PLUS ZERO X) (FIX X)))) ((ENABLE PLUS))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-0) (LEMMAS PLUS . PLUS-0))))) (PUT1-LST (QUOTE PLUS-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE PLUS-OFF PLUS T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL PLUS PLUS-OFF . T))))) (PUT1-LST (QUOTE OUR-CAR-CDR-ELIM-OFF) (QUOTE (IDATE 1000402193933 EVENT (TOGGLE OUR-CAR-CDR-ELIM-OFF OUR-CAR-CDR-ELIM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OUR-CAR-CDR-ELIM . OUR-CAR-CDR-ELIM-OFF) (DISABLED-LEMMAS NIL OUR-CAR-CDR-ELIM OUR-CAR-CDR-ELIM-OFF . T))))) (PUT1-LST (QUOTE OUR-CAR-CDR-ELIM) (QUOTE (IDATE 1000402193933 IMMEDIATE-DEPENDENTS0 (EQUAL-LENGTH-40-AS-COLLECTED-NTH+SUBRANGE EQUAL-LENGTH-32-AS-COLLECTED-NTH EQUAL-LENGTH-4-AS-COLLECTED-NTH OUR-CAR-CDR-ELIM-OFF) EVENT (PROVE-LEMMA OUR-CAR-CDR-ELIM (REWRITE) (EQUAL (EQUAL L (CONS (CAR L) X)) (AND (LISTP L) (EQUAL X (CDR L))))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . OUR-CAR-CDR-ELIM))))) (PUT1-LST (QUOTE CAR-CDR-IF-CONS) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW V-NZEROP-NAT-TO-V V-ALU-CORRECT-NAT-LSR V-TO-NAT-OF-NAT-TO-V MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP TTL-BIDIRECT-PADS*$DESTRUCTURE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE READ-REGS-WRITE-REGS-F WRITE-REGS-F-WRITE-REGS-F F$CONTROL-LET=CONTROL-LET CORE-ALU-WORKS-FOR-ALL-NORMAL-CASES WE-REG*$DESTRUCTURE REG*$DESTRUCTURE TV-DEC-PASS-NG*$DESTRUCTURE TV-ZEROP*$DESTRUCTURE T-OR-NOR$VALUE T-OR-NOR*$DESTRUCTURE TV-IF$VALUE BV-ADDER-BODY$VALUE TTL-OUTPUT-FAST$VALUE TTL-OUTPUT-PARAMETRIC$VALUE TTL-OUTPUT$VALUE DEL10$VALUE DEL4$VALUE DEL2$VALUE ALL-RAMP-MEM-AFTER-WRITE-MEM1 V-IF-WORKS FIRSTN-NAT-TO-V SUBRANGE-0) EVENT (PROVE-LEMMA CAR-CDR-IF-CONS (REWRITE) (AND (EQUAL (CAR (IF X (CONS A B) (CONS C D))) (IF X A C)) (EQUAL (CDR (IF X (CONS A B) (CONS C D))) (IF X B D)))) LOCAL-UNDO-TUPLES ((LEMMAS CDR . CAR-CDR-IF-CONS) (LEMMAS CAR . CAR-CDR-IF-CONS))))) (PUT1-LST (QUOTE EXPAND-*-CONNECTIVES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXPAND-*-CONNECTIVES-OFF EXPAND-*-CONNECTIVES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXPAND-*-CONNECTIVES . EXPAND-*-CONNECTIVES-OFF) (DISABLED-LEMMAS NIL EXPAND-*-CONNECTIVES EXPAND-*-CONNECTIVES-OFF . T))))) (PUT1-LST (QUOTE EXPAND-*-CONNECTIVES) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP F$CONTROL-LET=CONTROL-LET EXPAND-*-CONNECTIVES-OFF) EVENT (PROVE-LEMMA EXPAND-*-CONNECTIVES (REWRITE) (AND (EQUAL (IF* C A B) (IF C A B)) (AND (EQUAL (OR* A B) (IF A (QUOTE *1*TRUE) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) (AND (EQUAL (AND* A B) (IF A (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (EQUAL (NOT* A) (NOT A))))) ((ENABLE IF* AND* OR* NOT*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT* . EXPAND-*-CONNECTIVES) (IMMEDIATE-DEPENDENTS0 AND* . EXPAND-*-CONNECTIVES) (IMMEDIATE-DEPENDENTS0 OR* . EXPAND-*-CONNECTIVES) (IMMEDIATE-DEPENDENTS0 IF* . EXPAND-*-CONNECTIVES) (LEMMAS NOT* . EXPAND-*-CONNECTIVES) (LEMMAS AND* . EXPAND-*-CONNECTIVES) (LEMMAS OR* . EXPAND-*-CONNECTIVES) (LEMMAS IF* . EXPAND-*-CONNECTIVES))))) (PUT1-LST (QUOTE REWRITE-OR*) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE) EVENT (PROVE-LEMMA REWRITE-OR* (REWRITE) (AND (EQUAL (OR* (QUOTE *1*FALSE) X) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (AND (EQUAL (OR* X (QUOTE *1*FALSE)) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IMPLIES Y (AND (EQUAL (OR* Y X) (QUOTE *1*TRUE)) (EQUAL (OR* X Y) (QUOTE *1*TRUE)))))) ((ENABLE IF* OR*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF*-C-X-X . REWRITE-OR*) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . REWRITE-OR*) (IMMEDIATE-DEPENDENTS0 IF* . REWRITE-OR*) (IMMEDIATE-DEPENDENTS0 OR* . REWRITE-OR*) (LEMMAS OR* . REWRITE-OR*) (LEMMAS OR* . REWRITE-OR*) (LEMMAS OR* . REWRITE-OR*) (LEMMAS OR* . REWRITE-OR*))))) (PUT1-LST (QUOTE REWRITE-AND*) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (WRITE0$STEP READB0$STEP UPDATE$STEP DECODE$STEP FETCH0$STEP1 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$UPDATE) EVENT (PROVE-LEMMA REWRITE-AND* (REWRITE) (AND (EQUAL (AND* (QUOTE *1*FALSE) X) (QUOTE *1*FALSE)) (AND (EQUAL (AND* X (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IMPLIES Y (AND (EQUAL (AND* Y X) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (EQUAL (AND* X Y) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))))))) ((ENABLE IF* AND*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF*-C-X-X . REWRITE-AND*) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . REWRITE-AND*) (IMMEDIATE-DEPENDENTS0 IF* . REWRITE-AND*) (IMMEDIATE-DEPENDENTS0 AND* . REWRITE-AND*) (LEMMAS AND* . REWRITE-AND*) (LEMMAS AND* . REWRITE-AND*) (LEMMAS AND* . REWRITE-AND*) (LEMMAS AND* . REWRITE-AND*))))) (PUT1-LST (QUOTE REWRITE-NOT*) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (NEXT-CNTL-STATE$READB1) EVENT (PROVE-LEMMA REWRITE-NOT* (REWRITE) (AND (IMPLIES X (EQUAL (NOT* X) (QUOTE *1*FALSE))) (IMPLIES (NOT X) (EQUAL (NOT* X) (QUOTE *1*TRUE)))) ((ENABLE IF* NOT*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . REWRITE-NOT*) (IMMEDIATE-DEPENDENTS0 SIMPLIFY-IF* . REWRITE-NOT*) (IMMEDIATE-DEPENDENTS0 NOT* . REWRITE-NOT*) (LEMMAS NOT* . REWRITE-NOT*) (LEMMAS NOT* . REWRITE-NOT*))))) (PUT1-LST (QUOTE IF*-CONS) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH1 EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE) EVENT (PROVE-LEMMA IF*-CONS (REWRITE) (EQUAL (IF* A (CONS B C) (CONS D E)) (CONS (IF* A B D) (IF* A C E))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . IF*-CONS) (LEMMAS IF* . IF*-CONS))))) (PUT1-LST (QUOTE IF*-C-X-X) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP UPDATE$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH0$STEP2 FETCH0$STEP1 NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH1 EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE REWRITE-OR* REWRITE-AND*) EVENT (PROVE-LEMMA IF*-C-X-X (REWRITE) (EQUAL (IF* C X X) X) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . IF*-C-X-X) (LEMMAS IF* . IF*-C-X-X))))) (PUT1-LST (QUOTE SIMPLIFY-IF*) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (FETCH1->DECODE$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$WRITE-REGS=WRITE-REGS F$READ-REGS=READ-REGS F$SHIFT-OR-BUF=SHIFT-OR-BUF F$DEC-PASS=DEC-OR-PASS FV-IF-WHEN-BVP EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE REWRITE-OR* REWRITE-AND* REWRITE-NOT*) EVENT (PROVE-LEMMA SIMPLIFY-IF* (REWRITE) (AND (IMPLIES C (EQUAL (IF* C A B) A)) (IMPLIES (NOT C) (EQUAL (IF* C A B) B))) ((ENABLE IF*))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . SIMPLIFY-IF*) (LEMMAS IF* . SIMPLIFY-IF*) (LEMMAS IF* . SIMPLIFY-IF*))))) (PUT1-LST (QUOTE PROP*-THEORY) (QUOTE (IDATE 1000402193932 EVENT (DEFTHEORY PROP*-THEORY (OR* AND* NOT*)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR* . PROP*-THEORY) (IMMEDIATE-DEPENDENTS0 AND* . PROP*-THEORY) (IMMEDIATE-DEPENDENTS0 NOT* . PROP*-THEORY))))) (PUT1-LST (QUOTE NOT*-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE NOT*-OFF NOT* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT* . NOT*-OFF) (DISABLED-LEMMAS NIL NOT* NOT*-OFF . T))))) (PUT1-LST (QUOTE *1*NOT*) (QUOTE (MAIN-EVENT NOT*))) (PUT1-LST (QUOTE NOT*) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT* 3 NIL)) LEMMAS ((REWRITE-RULE EXPAND-*-CONNECTIVES NIL (EQUAL (NOT* A) (IF A (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE REWRITE-NOT* ((NOT X)) (EQUAL (NOT* X) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE REWRITE-NOT* (X) (EQUAL (NOT* X) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((NOT* . T)) SDEFN (LAMBDA (A) (IF* A (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NOT* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193932 SATELLITES (*1*NOT*) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 READB0->READB3$SIM READA0->READA3$SIM FETCH1->DECODE$SIM READB2$STEP READA1$STEP DECODE$STEP NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 EXPAND-*-CONNECTIVES REWRITE-NOT* PROP*-THEORY NOT*-OFF) EVENT (DEFN NOT* (A) (IF* A (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . NOT*) (DCELL . *1*NOT*))))) (PUT1-LST (QUOTE AND*-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE AND*-OFF AND* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND* . AND*-OFF) (DISABLED-LEMMAS NIL AND* AND*-OFF . T))))) (PUT1-LST (QUOTE *1*AND*) (QUOTE (MAIN-EVENT AND*))) (PUT1-LST (QUOTE AND*) (QUOTE (TYPE-PRESCRIPTION-LST ((AND* 3 NIL NIL)) LEMMAS ((REWRITE-RULE EXPAND-*-CONNECTIVES NIL (EQUAL (AND* A B) (IF A (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE REWRITE-AND* (Y) (EQUAL (AND* X Y) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE REWRITE-AND* (Y) (EQUAL (AND* Y X) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE REWRITE-AND* NIL (EQUAL (AND* X (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE REWRITE-AND* NIL (EQUAL (AND* (QUOTE *1*FALSE) X) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((AND* . T)) SDEFN (LAMBDA (A B) (IF* A (IF* B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*AND* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193932 SATELLITES (*1*AND*) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 MEMORY-VALUE EXPAND-*-CONNECTIVES REWRITE-AND* PROP*-THEORY AND*-OFF) EVENT (DEFN AND* (A B) (IF* A (IF* B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . AND*) (DCELL . *1*AND*))))) (PUT1-LST (QUOTE OR*-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OR*-OFF OR* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR* . OR*-OFF) (DISABLED-LEMMAS NIL OR* OR*-OFF . T))))) (PUT1-LST (QUOTE *1*OR*) (QUOTE (MAIN-EVENT OR*))) (PUT1-LST (QUOTE OR*) (QUOTE (TYPE-PRESCRIPTION-LST ((OR* 3 NIL NIL)) LEMMAS ((REWRITE-RULE EXPAND-*-CONNECTIVES NIL (EQUAL (OR* A B) (IF A (QUOTE *1*TRUE) (IF B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE REWRITE-OR* (Y) (EQUAL (OR* X Y) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE REWRITE-OR* (Y) (EQUAL (OR* Y X) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE REWRITE-OR* NIL (EQUAL (OR* X (QUOTE *1*FALSE)) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE REWRITE-OR* NIL (EQUAL (OR* (QUOTE *1*FALSE) X) (IF* X (QUOTE *1*TRUE) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((OR* . T)) SDEFN (LAMBDA (A B) (IF* A (QUOTE *1*TRUE) (IF* B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*OR* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193932 SATELLITES (*1*OR*) IMMEDIATE-DEPENDENTS0 (MIDDLE=HIGH$HELP MACROCYCLE-INVARIANT-IS-INVARIANT$HELP T_FETCH1 T_REGB T_UPDATE T_SEFA0 SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM FETCH1->DECODE$SIM SEFA1$STEP WRITE1$STEP READB2$STEP READB1$STEP READA1$STEP UPDATE$STEP DECODE$STEP NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE F$CONTROL-LET=CONTROL-LET CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB2$DESTRUCTURE CV_READB2 CV_READB1$DESTRUCTURE CV_READB1 CV_READA1$DESTRUCTURE CV_READA1 EXPAND-*-CONNECTIVES REWRITE-OR* PROP*-THEORY OR*-OFF) EVENT (DEFN OR* (A B) (IF* A (QUOTE *1*TRUE) (IF* B (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . OR*) (DCELL . *1*OR*))))) (PUT1-LST (QUOTE IF*-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IF*-OFF IF* T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IF* . IF*-OFF) (DISABLED-LEMMAS NIL IF* IF*-OFF . T))))) (PUT1-LST (QUOTE *1*IF*) (QUOTE (MAIN-EVENT IF*))) (PUT1-LST (QUOTE IF*) (QUOTE (TYPE-PRESCRIPTION-LST ((IF* 0 NIL T T)) LEMMAS ((REWRITE-RULE EXPAND-*-CONNECTIVES NIL (EQUAL (IF* C A B) (IF C A B)) NIL) (REWRITE-RULE IF*-CONS NIL (EQUAL (IF* A (CONS B C) (CONS D E)) (CONS (IF* A B D) (IF* A C E))) NIL) (REWRITE-RULE IF*-C-X-X NIL (EQUAL (IF* C X X) X) NIL) (REWRITE-RULE SIMPLIFY-IF* ((NOT C)) (EQUAL (IF* C A B) B) NIL) (REWRITE-RULE SIMPLIFY-IF* (C) (EQUAL (IF* C A B) A) NIL)) TOTALP-LST ((IF* . T)) SDEFN (LAMBDA (A B C) (IF A B C)) LISP-CODE *1*IF* SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193932 SATELLITES (*1*IF*) IMMEDIATE-DEPENDENTS0 (SEFB1->SEFB1$SIM SEFB0->SEFB1$SIM SEFA0->SEFA1$SIM WRITE0->WRITE3$SIM READB0->READB3$SIM READA0->READA3$SIM UPDATE->UPDATE$SIM REGB->UPDATE$SIM REGA->REGA$SIM FETCH1->DECODE$SIM SEFB1$STEP SEFB0$STEP SEFA1$STEP SEFA0$STEP WRITE3$STEP1 WRITE3$STEP0 WRITE2$STEP WRITE1$STEP WRITE0$STEP READB3$STEP1 READB3$STEP0 READB2$STEP READB1$STEP READB0$STEP READA3$STEP1 READA3$STEP0 READA2$STEP READA1$STEP READA0$STEP UPDATE$STEP REGB$STEP REGA$STEP DECODE$STEP FETCH3$STEP1 FETCH3$STEP0 FETCH2$STEP FETCH1$STEP FETCH0$STEP2 FETCH0$STEP1 FETCH0$STEP0 F$EXTEND-IMMEDIATE=EXTEND-IMMEDIATE NEXT-CNTL-STATE$RESET2 NEXT-CNTL-STATE$HOLD0 NEXT-CNTL-STATE$SEFB0 NEXT-CNTL-STATE$SEFA1 NEXT-CNTL-STATE$SEFA0 NEXT-CNTL-STATE$WRITE3 NEXT-CNTL-STATE$WRITE0 NEXT-CNTL-STATE$READB3 NEXT-CNTL-STATE$READB1 NEXT-CNTL-STATE$READA3 NEXT-CNTL-STATE$READA0 NEXT-CNTL-STATE$UPDATE NEXT-CNTL-STATE$REGA NEXT-CNTL-STATE$DECODE NEXT-CNTL-STATE$FETCH3 NEXT-CNTL-STATE$FETCH1 F$CV=CV CV_SEFB1$DESTRUCTURE CV_SEFB1 CV_SEFA1$DESTRUCTURE CV_SEFA1 CV_WRITE1$DESTRUCTURE CV_WRITE1 CV_READB2$DESTRUCTURE CV_READB2 CV_READA1$DESTRUCTURE CV_READA1 F$DEC-PASS=DEC-OR-PASS FV-IF-WHEN-BVP EQUAL-MEMORY-VALUE PROPERP-LENGTH-MEMORY-VALUE MEMORY-VALUE BOOLP-IF* BVP-IF* LENGTH-IF* PROPERP-IF* EXPAND-*-CONNECTIVES REWRITE-OR* REWRITE-AND* REWRITE-NOT* IF*-CONS IF*-C-X-X SIMPLIFY-IF* NOT* AND* OR* IF*-OFF) EVENT (DEFN IF* (A B C) (IF A B C)) LOCAL-UNDO-TUPLES ((DCELL . *1*IF*))))) (PUT1-LST (QUOTE G*1*DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*DELETE-OFF *1*DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . G*1*DELETE-OFF) (DISABLED-LEMMAS NIL *1*DELETE G*1*DELETE-OFF . T))))) (PUT1-LST (QUOTE DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DELETE-OFF DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-OFF) (DISABLED-LEMMAS NIL DELETE DELETE-OFF . T))))) (PUT1-LST (QUOTE G*1*BAGDIFF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*BAGDIFF-OFF *1*BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . G*1*BAGDIFF-OFF) (DISABLED-LEMMAS NIL *1*BAGDIFF G*1*BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE BAGDIFF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE BAGDIFF-OFF BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . BAGDIFF-OFF) (DISABLED-LEMMAS NIL BAGDIFF BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE G*1*BAGINT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*BAGINT-OFF *1*BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . G*1*BAGINT-OFF) (DISABLED-LEMMAS NIL *1*BAGINT G*1*BAGINT-OFF . T))))) (PUT1-LST (QUOTE BAGINT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE BAGINT-OFF BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . BAGINT-OFF) (DISABLED-LEMMAS NIL BAGINT BAGINT-OFF . T))))) (PUT1-LST (QUOTE G*1*OCCURRENCES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*OCCURRENCES-OFF *1*OCCURRENCES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . G*1*OCCURRENCES-OFF) (DISABLED-LEMMAS NIL *1*OCCURRENCES G*1*OCCURRENCES-OFF . T))))) (PUT1-LST (QUOTE OCCURRENCES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OCCURRENCES-OFF OCCURRENCES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-OFF) (DISABLED-LEMMAS NIL OCCURRENCES OCCURRENCES-OFF . T))))) (PUT1-LST (QUOTE G*1*SUBBAGP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*SUBBAGP-OFF *1*SUBBAGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . G*1*SUBBAGP-OFF) (DISABLED-LEMMAS NIL *1*SUBBAGP G*1*SUBBAGP-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-OFF SUBBAGP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-OFF) (DISABLED-LEMMAS NIL SUBBAGP SUBBAGP-OFF . T))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DELETE-NON-MEMBER-OFF DELETE-NON-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-NON-MEMBER-OFF) (DISABLED-LEMMAS NIL DELETE-NON-MEMBER DELETE-NON-MEMBER-OFF . T))))) (PUT1-LST (QUOTE DELETE-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DELETE-DELETE-OFF DELETE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-DELETE . DELETE-DELETE-OFF) (DISABLED-LEMMAS NIL DELETE-DELETE DELETE-DELETE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-OCCURRENCES-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-OCCURRENCES-ZERO-OFF EQUAL-OCCURRENCES-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . EQUAL-OCCURRENCES-ZERO-OFF) (DISABLED-LEMMAS NIL EQUAL-OCCURRENCES-ZERO EQUAL-OCCURRENCES-ZERO-OFF . T))))) (PUT1-LST (QUOTE MEMBER-NON-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-NON-LIST-OFF MEMBER-NON-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-NON-LIST-OFF) (DISABLED-LEMMAS NIL MEMBER-NON-LIST MEMBER-NON-LIST-OFF . T))))) (PUT1-LST (QUOTE MEMBER-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-DELETE-OFF MEMBER-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . MEMBER-DELETE-OFF) (DISABLED-LEMMAS NIL MEMBER-DELETE MEMBER-DELETE-OFF . T))))) (PUT1-LST (QUOTE MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF MEMBER-DELETE-IMPLIES-MEMBERSHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE-IMPLIES-MEMBERSHIP . MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF) (DISABLED-LEMMAS NIL MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF . T))))) (PUT1-LST (QUOTE OCCURRENCES-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OCCURRENCES-DELETE-OFF OCCURRENCES-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . OCCURRENCES-DELETE-OFF) (DISABLED-LEMMAS NIL OCCURRENCES-DELETE OCCURRENCES-DELETE-OFF . T))))) (PUT1-LST (QUOTE MEMBER-BAGDIFF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-BAGDIFF-OFF MEMBER-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . MEMBER-BAGDIFF-OFF) (DISABLED-LEMMAS NIL MEMBER-BAGDIFF MEMBER-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE BAGDIFF-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE BAGDIFF-DELETE-OFF BAGDIFF-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . BAGDIFF-DELETE-OFF) (DISABLED-LEMMAS NIL BAGDIFF-DELETE BAGDIFF-DELETE-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-DELETE-OFF SUBBAGP-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-DELETE-OFF) (DISABLED-LEMMAS NIL SUBBAGP-DELETE SUBBAGP-DELETE-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-CDR1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-CDR1-OFF SUBBAGP-CDR1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR1-OFF) (DISABLED-LEMMAS NIL SUBBAGP-CDR1 SUBBAGP-CDR1-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-CDR2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-CDR2-OFF SUBBAGP-CDR2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-CDR2-OFF) (DISABLED-LEMMAS NIL SUBBAGP-CDR2 SUBBAGP-CDR2-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-BAGINT1-OFF SUBBAGP-BAGINT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . SUBBAGP-BAGINT1-OFF) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT1 SUBBAGP-BAGINT1-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBBAGP-BAGINT2-OFF SUBBAGP-BAGINT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . SUBBAGP-BAGINT2-OFF) (DISABLED-LEMMAS NIL SUBBAGP-BAGINT2 SUBBAGP-BAGINT2-OFF . T))))) (PUT1-LST (QUOTE OCCURRENCES-BAGINT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OCCURRENCES-BAGINT-OFF OCCURRENCES-BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGINT . OCCURRENCES-BAGINT-OFF) (DISABLED-LEMMAS NIL OCCURRENCES-BAGINT OCCURRENCES-BAGINT-OFF . T))))) (PUT1-LST (QUOTE OCCURRENCES-BAGDIFF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OCCURRENCES-BAGDIFF-OFF OCCURRENCES-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGDIFF . OCCURRENCES-BAGDIFF-OFF) (DISABLED-LEMMAS NIL OCCURRENCES-BAGDIFF OCCURRENCES-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE MEMBER-BAGINT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-BAGINT-OFF MEMBER-BAGINT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . MEMBER-BAGINT-OFF) (DISABLED-LEMMAS NIL MEMBER-BAGINT MEMBER-BAGINT-OFF . T))))) (PUT1-LST (QUOTE EQUAL-PLUS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-PLUS-0-OFF EQUAL-PLUS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . EQUAL-PLUS-0-OFF) (DISABLED-LEMMAS NIL EQUAL-PLUS-0 EQUAL-PLUS-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-DIFFERENCE-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-DIFFERENCE-0-OFF EQUAL-DIFFERENCE-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . EQUAL-DIFFERENCE-0-OFF) (DISABLED-LEMMAS NIL EQUAL-DIFFERENCE-0 EQUAL-DIFFERENCE-0-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY-OF-PLUS-OFF COMMUTATIVITY-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . COMMUTATIVITY-OF-PLUS-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-PLUS-OFF COMMUTATIVITY2-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . COMMUTATIVITY2-OF-PLUS-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-PLUS COMMUTATIVITY2-OF-PLUS-OFF . T))))) (PUT1-LST (QUOTE PLUS-ZERO-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-ZERO-ARG2-OFF PLUS-ZERO-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-ZERO-ARG2-OFF) (DISABLED-LEMMAS NIL PLUS-ZERO-ARG2 PLUS-ZERO-ARG2-OFF . T))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-ADD1-ARG1-OFF PLUS-ADD1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . PLUS-ADD1-ARG1-OFF) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG1 PLUS-ADD1-ARG1-OFF . T))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-ADD1-ARG2-OFF PLUS-ADD1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . PLUS-ADD1-ARG2-OFF) (DISABLED-LEMMAS NIL PLUS-ADD1-ARG2 PLUS-ADD1-ARG2-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-PLUS-OFF ASSOCIATIVITY-OF-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . ASSOCIATIVITY-OF-PLUS-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-PLUS ASSOCIATIVITY-OF-PLUS-OFF . T))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-DIFFERENCE-ARG1-OFF PLUS-DIFFERENCE-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . PLUS-DIFFERENCE-ARG1-OFF) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG1-OFF . T))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-DIFFERENCE-ARG2-OFF PLUS-DIFFERENCE-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . PLUS-DIFFERENCE-ARG2-OFF) (DISABLED-LEMMAS NIL PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG2-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF DIFFERENCE-PLUS-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF . T))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFF-DIFF-ARG1-OFF DIFF-DIFF-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . DIFF-DIFF-ARG1-OFF) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG1 DIFF-DIFF-ARG1-OFF . T))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFF-DIFF-ARG2-OFF DIFF-DIFF-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . DIFF-DIFF-ARG2-OFF) (DISABLED-LEMMAS NIL DIFF-DIFF-ARG2 DIFF-DIFF-ARG2-OFF . T))))) (PUT1-LST (QUOTE G*1*PLUS-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*PLUS-FRINGE-OFF *1*PLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . G*1*PLUS-FRINGE-OFF) (DISABLED-LEMMAS NIL *1*PLUS-FRINGE G*1*PLUS-FRINGE-OFF . T))))) (PUT1-LST (QUOTE PLUS-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-FRINGE-OFF PLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-FRINGE-OFF) (DISABLED-LEMMAS NIL PLUS-FRINGE PLUS-FRINGE-OFF . T))))) (PUT1-LST (QUOTE G*1*PLUS-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*PLUS-TREE-OFF *1*PLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . G*1*PLUS-TREE-OFF) (DISABLED-LEMMAS NIL *1*PLUS-TREE G*1*PLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE PLUS-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-TREE-OFF PLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-OFF) (DISABLED-LEMMAS NIL PLUS-TREE PLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-QUOTE-OFF1) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-QUOTE-OFF1 EVAL$-QUOTE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-QUOTE-OFF1) (DISABLED-LEMMAS NIL EVAL$-QUOTE EVAL$-QUOTE-OFF1 . T))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-EQUAL-PLUS-OFF *1*CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . G*1*CANCEL-EQUAL-PLUS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-PLUS G*1*CANCEL-EQUAL-PLUS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-EQUAL-PLUS-OFF CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CANCEL-EQUAL-PLUS-OFF) (DISABLED-LEMMAS NIL CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF CORRECTNESS-OF-CANCEL-EQUAL-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-DIFFERENCE-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-DIFFERENCE-PLUS-OFF *1*CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . G*1*CANCEL-DIFFERENCE-PLUS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-DIFFERENCE-PLUS G*1*CANCEL-DIFFERENCE-PLUS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-DIFFERENCE-PLUS-OFF CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CANCEL-DIFFERENCE-PLUS-OFF) (DISABLED-LEMMAS NIL CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-ELIM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-ELIM-OFF DIFFERENCE-ELIM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . DIFFERENCE-ELIM-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-ELIM DIFFERENCE-ELIM-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-LEQ-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-LEQ-ARG1-OFF DIFFERENCE-LEQ-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . DIFFERENCE-LEQ-ARG1-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-LEQ-ARG1 DIFFERENCE-LEQ-ARG1-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-ADD1-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-ADD1-ARG2-OFF DIFFERENCE-ADD1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . DIFFERENCE-ADD1-ARG2-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-ADD1-ARG2 DIFFERENCE-ADD1-ARG2-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-SUB1-ARG2-OFF DIFFERENCE-SUB1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . DIFFERENCE-SUB1-ARG2-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-SUB1-ARG2 DIFFERENCE-SUB1-ARG2-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG1-OFF DIFFERENCE-DIFFERENCE-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . DIFFERENCE-DIFFERENCE-ARG1-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG1-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-DIFFERENCE-ARG2-OFF DIFFERENCE-DIFFERENCE-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . DIFFERENCE-DIFFERENCE-ARG2-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG2-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-X-X-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-X-X-OFF DIFFERENCE-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIFFERENCE-X-X-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-X-X DIFFERENCE-X-X-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-LESSP-PLUS-OFF *1*CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . G*1*CANCEL-LESSP-PLUS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-PLUS G*1*CANCEL-LESSP-PLUS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-LESSP-PLUS-OFF CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CANCEL-LESSP-PLUS-OFF) (DISABLED-LEMMAS NIL CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF CORRECTNESS-OF-CANCEL-LESSP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-TIMES-0-OFF EQUAL-TIMES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-TIMES-0-OFF) (DISABLED-LEMMAS NIL EQUAL-TIMES-0 EQUAL-TIMES-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-TIMES-1-OFF EQUAL-TIMES-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . EQUAL-TIMES-1-OFF) (DISABLED-LEMMAS NIL EQUAL-TIMES-1 EQUAL-TIMES-1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-SUB1-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-SUB1-0-OFF EQUAL-SUB1-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . EQUAL-SUB1-0-OFF) (DISABLED-LEMMAS NIL EQUAL-SUB1-0 EQUAL-SUB1-0-OFF . T))))) (PUT1-LST (QUOTE TIMES-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-ZERO-OFF TIMES-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ZERO-OFF) (DISABLED-LEMMAS NIL TIMES-ZERO TIMES-ZERO-OFF . T))))) (PUT1-LST (QUOTE TIMES-ADD1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-ADD1-OFF TIMES-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-ADD1-OFF) (DISABLED-LEMMAS NIL TIMES-ADD1 TIMES-ADD1-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY-OF-TIMES-OFF COMMUTATIVITY-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY-OF-TIMES-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF TIMES-DISTRIBUTES-OVER-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS-PROOF . TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-PLUS-OFF TIMES-DISTRIBUTES-OVER-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . TIMES-DISTRIBUTES-OVER-PLUS-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-TIMES-OFF COMMUTATIVITY2-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . COMMUTATIVITY2-OF-TIMES-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-TIMES COMMUTATIVITY2-OF-TIMES-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-TIMES-OFF ASSOCIATIVITY-OF-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . ASSOCIATIVITY-OF-TIMES-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-TIMES ASSOCIATIVITY-OF-TIMES-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF TIMES-DISTRIBUTES-OVER-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-QUOTIENT-PROOF-OFF TIMES-QUOTIENT-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT-PROOF . TIMES-QUOTIENT-PROOF-OFF) (DISABLED-LEMMAS NIL TIMES-QUOTIENT-PROOF TIMES-QUOTIENT-PROOF-OFF . T))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-QUOTIENT-OFF TIMES-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . TIMES-QUOTIENT-OFF) (DISABLED-LEMMAS NIL TIMES-QUOTIENT TIMES-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE TIMES-1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-1-ARG1-OFF TIMES-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . TIMES-1-ARG1-OFF) (DISABLED-LEMMAS NIL TIMES-1-ARG1 TIMES-1-ARG1-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES1-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES1-PROOF-OFF LESSP-TIMES1-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1-PROOF . LESSP-TIMES1-PROOF-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES1-PROOF LESSP-TIMES1-PROOF-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES1-OFF LESSP-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . LESSP-TIMES1-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES1 LESSP-TIMES1-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES2-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES2-PROOF-OFF LESSP-TIMES2-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2-PROOF . LESSP-TIMES2-PROOF-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES2-PROOF LESSP-TIMES2-PROOF-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES2-OFF LESSP-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . LESSP-TIMES2-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES2 LESSP-TIMES2-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES3-PROOF1-OFF LESSP-TIMES3-PROOF1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF1 . LESSP-TIMES3-PROOF1-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF1 LESSP-TIMES3-PROOF1-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES3-PROOF2-OFF LESSP-TIMES3-PROOF2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF2 . LESSP-TIMES3-PROOF2-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF2-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES3-OFF LESSP-TIMES3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES3 . LESSP-TIMES3-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES3 LESSP-TIMES3-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES-CANCELLATION-PROOF-OFF LESSP-TIMES-CANCELLATION-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION-PROOF . LESSP-TIMES-CANCELLATION-PROOF-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES-CANCELLATION-PROOF-OFF . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-PLUS-TIMES-PROOF-OFF LESSP-PLUS-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . LESSP-PLUS-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES-PROOF LESSP-PLUS-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-PLUS-TIMES1-OFF LESSP-PLUS-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . LESSP-PLUS-TIMES1-OFF) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES1-OFF . T))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-PLUS-TIMES2-OFF LESSP-PLUS-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . LESSP-PLUS-TIMES2-OFF) (DISABLED-LEMMAS NIL LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES2-OFF . T))))) (PUT1-LST (QUOTE LESSP-1-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-1-TIMES-OFF LESSP-1-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES . LESSP-1-TIMES-OFF) (DISABLED-LEMMAS NIL LESSP-1-TIMES LESSP-1-TIMES-OFF . T))))) (PUT1-LST (QUOTE G*1*TIMES-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*TIMES-TREE-OFF *1*TIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . G*1*TIMES-TREE-OFF) (DISABLED-LEMMAS NIL *1*TIMES-TREE G*1*TIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE TIMES-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-TREE-OFF TIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-OFF) (DISABLED-LEMMAS NIL TIMES-TREE TIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE G*1*TIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*TIMES-FRINGE-OFF *1*TIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . G*1*TIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL *1*TIMES-FRINGE G*1*TIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE TIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TIMES-FRINGE-OFF TIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL TIMES-FRINGE TIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE G*1*OR-ZEROP-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*OR-ZEROP-TREE-OFF *1*OR-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . G*1*OR-ZEROP-TREE-OFF) (DISABLED-LEMMAS NIL *1*OR-ZEROP-TREE G*1*OR-ZEROP-TREE-OFF . T))))) (PUT1-LST (QUOTE OR-ZEROP-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE OR-ZEROP-TREE-OFF OR-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . OR-ZEROP-TREE-OFF) (DISABLED-LEMMAS NIL OR-ZEROP-TREE OR-ZEROP-TREE-OFF . T))))) (PUT1-LST (QUOTE G*1*AND-NOT-ZEROP-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*AND-NOT-ZEROP-TREE-OFF *1*AND-NOT-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . G*1*AND-NOT-ZEROP-TREE-OFF) (DISABLED-LEMMAS NIL *1*AND-NOT-ZEROP-TREE G*1*AND-NOT-ZEROP-TREE-OFF . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE AND-NOT-ZEROP-TREE-OFF AND-NOT-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-OFF) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-EQUAL-OFF1) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-EQUAL-OFF1 EVAL$-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . EVAL$-EQUAL-OFF1) (DISABLED-LEMMAS NIL EVAL$-EQUAL EVAL$-EQUAL-OFF1 . T))))) (PUT1-LST (QUOTE LESSP-TIMES-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-TIMES-ARG1-OFF LESSP-TIMES-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-ARG1 . LESSP-TIMES-ARG1-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES-ARG1 LESSP-TIMES-ARG1-OFF . T))))) (PUT1-LST (QUOTE INFER-EQUALITY-FROM-NOT-LESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INFER-EQUALITY-FROM-NOT-LESSP-OFF INFER-EQUALITY-FROM-NOT-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INFER-EQUALITY-FROM-NOT-LESSP . INFER-EQUALITY-FROM-NOT-LESSP-OFF) (DISABLED-LEMMAS NIL INFER-EQUALITY-FROM-NOT-LESSP INFER-EQUALITY-FROM-NOT-LESSP-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-LESSP-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-LESSP-TIMES-OFF *1*CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . G*1*CANCEL-LESSP-TIMES-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-LESSP-TIMES G*1*CANCEL-LESSP-TIMES-OFF . T))))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-LESSP-TIMES-OFF CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CANCEL-LESSP-TIMES-OFF) (DISABLED-LEMMAS NIL CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-EQUAL-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-EQUAL-TIMES-OFF *1*CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . G*1*CANCEL-EQUAL-TIMES-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-EQUAL-TIMES G*1*CANCEL-EQUAL-TIMES-OFF . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-EQUAL-TIMES-OFF CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CANCEL-EQUAL-TIMES-OFF) (DISABLED-LEMMAS NIL CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF CORRECTNESS-OF-CANCEL-EQUAL-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF . T))))) (PUT1-LST (QUOTE LESSP-REMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-REMAINDER-OFF LESSP-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LESSP-REMAINDER-OFF) (DISABLED-LEMMAS NIL LESSP-REMAINDER LESSP-REMAINDER-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-NOOP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-NOOP-OFF REMAINDER-NOOP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-NOOP-OFF) (DISABLED-LEMMAS NIL REMAINDER-NOOP REMAINDER-NOOP-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-OF-NON-NUMBER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-OF-NON-NUMBER-OFF REMAINDER-OF-NON-NUMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-OF-NON-NUMBER-OFF) (DISABLED-LEMMAS NIL REMAINDER-OF-NON-NUMBER REMAINDER-OF-NON-NUMBER-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-ZERO-OFF REMAINDER-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-ZERO-OFF) (DISABLED-LEMMAS NIL REMAINDER-ZERO REMAINDER-ZERO-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-QUOTIENT-ELIM-OFF REMAINDER-QUOTIENT-ELIM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-QUOTIENT-ELIM-OFF) (DISABLED-LEMMAS NIL REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT-ELIM-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-ADD1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-ADD1-OFF REMAINDER-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-ADD1-OFF) (DISABLED-LEMMAS NIL REMAINDER-ADD1 REMAINDER-ADD1-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-PROOF-OFF REMAINDER-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PROOF . REMAINDER-PLUS-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-PROOF REMAINDER-PLUS-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-OFF REMAINDER-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-PLUS-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS REMAINDER-PLUS-OFF . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-PROOF-OFF EQUAL-REMAINDER-PLUS-0-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0-PROOF . EQUAL-REMAINDER-PLUS-0-PROOF-OFF) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0-PROOF EQUAL-REMAINDER-PLUS-0-PROOF-OFF . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-0-OFF EQUAL-REMAINDER-PLUS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . EQUAL-REMAINDER-PLUS-0-OFF) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES1-PROOF-OFF REMAINDER-TIMES1-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-PROOF . REMAINDER-TIMES1-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-PROOF REMAINDER-TIMES1-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES1-OFF REMAINDER-TIMES1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . REMAINDER-TIMES1-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES1 REMAINDER-TIMES1-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-PROOF-OFF REMAINDER-TIMES1-INSTANCE-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE-PROOF . REMAINDER-TIMES1-INSTANCE-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1-INSTANCE-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES1-INSTANCE-OFF REMAINDER-TIMES1-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-TIMES1-INSTANCE-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES-TIMES-PROOF-OFF REMAINDER-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES-PROOF . REMAINDER-TIMES-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES2-PROOF-OFF REMAINDER-TIMES2-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-PROOF . REMAINDER-TIMES2-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-PROOF REMAINDER-TIMES2-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES2-OFF REMAINDER-TIMES2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . REMAINDER-TIMES2-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES2 REMAINDER-TIMES2-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-TIMES2-INSTANCE-OFF REMAINDER-TIMES2-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDER-TIMES2-INSTANCE-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-DIFFERENCE1-OFF REMAINDER-DIFFERENCE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . REMAINDER-DIFFERENCE1-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE1-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-REMAINDER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*DOUBLE-REMAINDER-INDUCTION-OFF *1*DOUBLE-REMAINDER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . G*1*DOUBLE-REMAINDER-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DOUBLE-REMAINDER-INDUCTION G*1*DOUBLE-REMAINDER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLE-REMAINDER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DOUBLE-REMAINDER-INDUCTION-OFF DOUBLE-REMAINDER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . DOUBLE-REMAINDER-INDUCTION-OFF) (DISABLED-LEMMAS NIL DOUBLE-REMAINDER-INDUCTION DOUBLE-REMAINDER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-DIFFERENCE2-OFF REMAINDER-DIFFERENCE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . REMAINDER-DIFFERENCE2-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE2-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-FACT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-FACT-OFF REMAINDER-PLUS-FACT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-FACT . REMAINDER-PLUS-FACT-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-FACT REMAINDER-PLUS-FACT-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF REMAINDER-PLUS-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-PROOF . REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-OFF REMAINDER-PLUS-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . REMAINDER-PLUS-TIMES-TIMES-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF REMAINDER-PLUS-TIMES-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF) (DISABLED-LEMMAS NIL REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-REMAINDER-OFF REMAINDER-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . REMAINDER-REMAINDER-OFF) (DISABLED-LEMMAS NIL REMAINDER-REMAINDER REMAINDER-REMAINDER-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-1-ARG1-OFF REMAINDER-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . REMAINDER-1-ARG1-OFF) (DISABLED-LEMMAS NIL REMAINDER-1-ARG1 REMAINDER-1-ARG1-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-1-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-1-ARG2-OFF REMAINDER-1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . REMAINDER-1-ARG2-OFF) (DISABLED-LEMMAS NIL REMAINDER-1-ARG2 REMAINDER-1-ARG2-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-X-X-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-X-X-OFF REMAINDER-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-X-X-OFF) (DISABLED-LEMMAS NIL REMAINDER-X-X REMAINDER-X-X-OFF . T))))) (PUT1-LST (QUOTE TRANSITIVITY-OF-DIVIDES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE TRANSITIVITY-OF-DIVIDES-OFF TRANSITIVITY-OF-DIVIDES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . TRANSITIVITY-OF-DIVIDES-OFF) (DISABLED-LEMMAS NIL TRANSITIVITY-OF-DIVIDES TRANSITIVITY-OF-DIVIDES-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-NOOP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-NOOP-OFF QUOTIENT-NOOP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . QUOTIENT-NOOP-OFF) (DISABLED-LEMMAS NIL QUOTIENT-NOOP QUOTIENT-NOOP-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-OF-NON-NUMBER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-OF-NON-NUMBER-OFF QUOTIENT-OF-NON-NUMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . QUOTIENT-OF-NON-NUMBER-OFF) (DISABLED-LEMMAS NIL QUOTIENT-OF-NON-NUMBER QUOTIENT-OF-NON-NUMBER-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-ZERO-OFF QUOTIENT-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-ZERO-OFF) (DISABLED-LEMMAS NIL QUOTIENT-ZERO QUOTIENT-ZERO-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-ADD1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-ADD1-OFF QUOTIENT-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENT-ADD1-OFF) (DISABLED-LEMMAS NIL QUOTIENT-ADD1 QUOTIENT-ADD1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-QUOTIENT-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-QUOTIENT-0-OFF EQUAL-QUOTIENT-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . EQUAL-QUOTIENT-0-OFF) (DISABLED-LEMMAS NIL EQUAL-QUOTIENT-0 EQUAL-QUOTIENT-0-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-SUB1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-SUB1-OFF QUOTIENT-SUB1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . QUOTIENT-SUB1-OFF) (DISABLED-LEMMAS NIL QUOTIENT-SUB1 QUOTIENT-SUB1-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-PROOF-OFF QUOTIENT-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PROOF . QUOTIENT-PLUS-PROOF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-PROOF QUOTIENT-PLUS-PROOF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-OFF QUOTIENT-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-PLUS-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS QUOTIENT-PLUS-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-TIMES-PROOF-OFF QUOTIENT-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-PROOF . QUOTIENT-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-TIMES-OFF QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES QUOTIENT-TIMES-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-OFF QUOTIENT-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-TIMES-INSTANCE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-TIMES-TIMES-PROOF-OFF QUOTIENT-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES-PROOF . QUOTIENT-TIMES-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-DIFFERENCE1-OFF QUOTIENT-DIFFERENCE1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE1 . QUOTIENT-DIFFERENCE1-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE1 QUOTIENT-DIFFERENCE1-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-LESSP-ARG1-OFF QUOTIENT-LESSP-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-LESSP-ARG1-OFF) (DISABLED-LEMMAS NIL QUOTIENT-LESSP-ARG1 QUOTIENT-LESSP-ARG1-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-DIFFERENCE2-OFF QUOTIENT-DIFFERENCE2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . QUOTIENT-DIFFERENCE2-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE2-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-DIFFERENCE3-OFF QUOTIENT-DIFFERENCE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . QUOTIENT-DIFFERENCE3-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE3-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-REMAINDER-TIMES-OFF QUOTIENT-REMAINDER-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-TIMES . QUOTIENT-REMAINDER-TIMES-OFF) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER-TIMES-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-REMAINDER-OFF QUOTIENT-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . QUOTIENT-REMAINDER-OFF) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER QUOTIENT-REMAINDER-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-REMAINDER-INSTANCE-OFF QUOTIENT-REMAINDER-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-INSTANCE . QUOTIENT-REMAINDER-INSTANCE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-FACT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-FACT-OFF QUOTIENT-PLUS-FACT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-FACT . QUOTIENT-PLUS-FACT-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-FACT QUOTIENT-PLUS-FACT-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF QUOTIENT-PLUS-TIMES-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-PROOF . QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-OFF QUOTIENT-PLUS-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENT-PLUS-TIMES-TIMES-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF QUOTIENT-PLUS-TIMES-TIMES-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-QUOTIENT-OFF QUOTIENT-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . QUOTIENT-QUOTIENT-OFF) (DISABLED-LEMMAS NIL QUOTIENT-QUOTIENT QUOTIENT-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE LEQ-QUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LEQ-QUOTIENT-OFF LEQ-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-QUOTIENT . LEQ-QUOTIENT-OFF) (DISABLED-LEMMAS NIL LEQ-QUOTIENT LEQ-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-1-ARG2-OFF QUOTIENT-1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . QUOTIENT-1-ARG2-OFF) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG2 QUOTIENT-1-ARG2-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-CASESPLIT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-1-ARG1-CASESPLIT-OFF QUOTIENT-1-ARG1-CASESPLIT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1-CASESPLIT . QUOTIENT-1-ARG1-CASESPLIT-OFF) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG1-CASESPLIT-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-1-ARG1-OFF QUOTIENT-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1 . QUOTIENT-1-ARG1-OFF) (DISABLED-LEMMAS NIL QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-X-X-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-X-X-OFF QUOTIENT-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-X-X-OFF) (DISABLED-LEMMAS NIL QUOTIENT-X-X QUOTIENT-X-X-OFF . T))))) (PUT1-LST (QUOTE LESSP-QUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-QUOTIENT-OFF LESSP-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . LESSP-QUOTIENT-OFF) (DISABLED-LEMMAS NIL LESSP-QUOTIENT LESSP-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-QUOTIENT-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-QUOTIENT-TIMES-OFF *1*CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . G*1*CANCEL-QUOTIENT-TIMES-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-QUOTIENT-TIMES G*1*CANCEL-QUOTIENT-TIMES-OFF . T))))) (PUT1-LST (QUOTE CANCEL-QUOTIENT-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-QUOTIENT-TIMES-OFF CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . CANCEL-QUOTIENT-TIMES-OFF) (DISABLED-LEMMAS NIL CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF . T))))) (PUT1-LST (QUOTE G*1*EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*EXP-OFF *1*EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . G*1*EXP-OFF) (DISABLED-LEMMAS NIL *1*EXP G*1*EXP-OFF . T))))) (PUT1-LST (QUOTE EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-OFF EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-OFF) (DISABLED-LEMMAS NIL EXP EXP-OFF . T))))) (PUT1-LST (QUOTE G*1*LOG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*LOG-OFF *1*LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . G*1*LOG-OFF) (DISABLED-LEMMAS NIL *1*LOG G*1*LOG-OFF . T))))) (PUT1-LST (QUOTE LOG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-OFF LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OFF) (DISABLED-LEMMAS NIL LOG LOG-OFF . T))))) (PUT1-LST (QUOTE G*1*GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*GCD-OFF *1*GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . G*1*GCD-OFF) (DISABLED-LEMMAS NIL *1*GCD G*1*GCD-OFF . T))))) (PUT1-LST (QUOTE GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-OFF GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . GCD-OFF) (DISABLED-LEMMAS NIL GCD GCD-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-EXP-OFF REMAINDER-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . REMAINDER-EXP-OFF) (DISABLED-LEMMAS NIL REMAINDER-EXP REMAINDER-EXP-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-NUMBER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*DOUBLE-NUMBER-INDUCTION-OFF *1*DOUBLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . G*1*DOUBLE-NUMBER-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DOUBLE-NUMBER-INDUCTION G*1*DOUBLE-NUMBER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLE-NUMBER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DOUBLE-NUMBER-INDUCTION-OFF DOUBLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . DOUBLE-NUMBER-INDUCTION-OFF) (DISABLED-LEMMAS NIL DOUBLE-NUMBER-INDUCTION DOUBLE-NUMBER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-EXP-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-EXP-EXP-OFF REMAINDER-EXP-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXP-EXP . REMAINDER-EXP-EXP-OFF) (DISABLED-LEMMAS NIL REMAINDER-EXP-EXP REMAINDER-EXP-EXP-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-EXP-OFF QUOTIENT-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . QUOTIENT-EXP-OFF) (DISABLED-LEMMAS NIL QUOTIENT-EXP QUOTIENT-EXP-OFF . T))))) (PUT1-LST (QUOTE EXP-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-ZERO-OFF EXP-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXP-ZERO-OFF) (DISABLED-LEMMAS NIL EXP-ZERO EXP-ZERO-OFF . T))))) (PUT1-LST (QUOTE EXP-ADD1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-ADD1-OFF EXP-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-ADD1 . EXP-ADD1-OFF) (DISABLED-LEMMAS NIL EXP-ADD1 EXP-ADD1-OFF . T))))) (PUT1-LST (QUOTE EXP-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-PLUS-OFF EXP-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-PLUS-OFF) (DISABLED-LEMMAS NIL EXP-PLUS EXP-PLUS-OFF . T))))) (PUT1-LST (QUOTE EXP-0-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-0-ARG1-OFF EXP-0-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG1 . EXP-0-ARG1-OFF) (DISABLED-LEMMAS NIL EXP-0-ARG1 EXP-0-ARG1-OFF . T))))) (PUT1-LST (QUOTE EXP-1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-1-ARG1-OFF EXP-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . EXP-1-ARG1-OFF) (DISABLED-LEMMAS NIL EXP-1-ARG1 EXP-1-ARG1-OFF . T))))) (PUT1-LST (QUOTE EXP-0-ARG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-0-ARG2-OFF EXP-0-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-0-ARG2 . EXP-0-ARG2-OFF) (DISABLED-LEMMAS NIL EXP-0-ARG2 EXP-0-ARG2-OFF . T))))) (PUT1-LST (QUOTE EXP-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-TIMES-OFF EXP-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-TIMES-OFF) (DISABLED-LEMMAS NIL EXP-TIMES EXP-TIMES-OFF . T))))) (PUT1-LST (QUOTE EXP-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-EXP-OFF EXP-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-EXP . EXP-EXP-OFF) (DISABLED-LEMMAS NIL EXP-EXP EXP-EXP-OFF . T))))) (PUT1-LST (QUOTE EQUAL-EXP-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-EXP-0-OFF EQUAL-EXP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . EQUAL-EXP-0-OFF) (DISABLED-LEMMAS NIL EQUAL-EXP-0 EQUAL-EXP-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-EXP-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-EXP-1-OFF EQUAL-EXP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . EQUAL-EXP-1-OFF) (DISABLED-LEMMAS NIL EQUAL-EXP-1 EQUAL-EXP-1-OFF . T))))) (PUT1-LST (QUOTE EXP-DIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EXP-DIFFERENCE-OFF EXP-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-DIFFERENCE . EXP-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL EXP-DIFFERENCE EXP-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-LOG-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-LOG-0-OFF EQUAL-LOG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-LOG-0 . EQUAL-LOG-0-OFF) (DISABLED-LEMMAS NIL EQUAL-LOG-0 EQUAL-LOG-0-OFF . T))))) (PUT1-LST (QUOTE LOG-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-0-OFF LOG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-0 . LOG-0-OFF) (DISABLED-LEMMAS NIL LOG-0 LOG-0-OFF . T))))) (PUT1-LST (QUOTE LOG-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-1-OFF LOG-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-1 . LOG-1-OFF) (DISABLED-LEMMAS NIL LOG-1 LOG-1-OFF . T))))) (PUT1-LST (QUOTE G*1*DOUBLE-LOG-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*DOUBLE-LOG-INDUCTION-OFF *1*DOUBLE-LOG-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . G*1*DOUBLE-LOG-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*DOUBLE-LOG-INDUCTION G*1*DOUBLE-LOG-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE DOUBLE-LOG-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DOUBLE-LOG-INDUCTION-OFF DOUBLE-LOG-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . DOUBLE-LOG-INDUCTION-OFF) (DISABLED-LEMMAS NIL DOUBLE-LOG-INDUCTION DOUBLE-LOG-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE LEQ-LOG-LOG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LEQ-LOG-LOG-OFF LEQ-LOG-LOG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-LOG-LOG . LEQ-LOG-LOG-OFF) (DISABLED-LEMMAS NIL LEQ-LOG-LOG LEQ-LOG-LOG-OFF . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-QUOTIENT-OFF LOG-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT . LOG-QUOTIENT-OFF) (DISABLED-LEMMAS NIL LOG-QUOTIENT LOG-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-QUOTIENT-TIMES-PROOF-OFF LOG-QUOTIENT-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES-PROOF . LOG-QUOTIENT-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-QUOTIENT-TIMES-OFF LOG-QUOTIENT-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . LOG-QUOTIENT-TIMES-OFF) (DISABLED-LEMMAS NIL LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-OFF . T))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-QUOTIENT-EXP-OFF LOG-QUOTIENT-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-EXP . LOG-QUOTIENT-EXP-OFF) (DISABLED-LEMMAS NIL LOG-QUOTIENT-EXP LOG-QUOTIENT-EXP-OFF . T))))) (PUT1-LST (QUOTE LOG-TIMES-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-TIMES-PROOF-OFF LOG-TIMES-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-PROOF . LOG-TIMES-PROOF-OFF) (DISABLED-LEMMAS NIL LOG-TIMES-PROOF LOG-TIMES-PROOF-OFF . T))))) (PUT1-LST (QUOTE LOG-TIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-TIMES-OFF LOG-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES . LOG-TIMES-OFF) (DISABLED-LEMMAS NIL LOG-TIMES LOG-TIMES-OFF . T))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-TIMES-EXP-PROOF-OFF LOG-TIMES-EXP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP-PROOF . LOG-TIMES-EXP-PROOF-OFF) (DISABLED-LEMMAS NIL LOG-TIMES-EXP-PROOF LOG-TIMES-EXP-PROOF-OFF . T))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-TIMES-EXP-OFF LOG-TIMES-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP . LOG-TIMES-EXP-OFF) (DISABLED-LEMMAS NIL LOG-TIMES-EXP LOG-TIMES-EXP-OFF . T))))) (PUT1-LST (QUOTE LOG-EXP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LOG-EXP-OFF LOG-EXP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-EXP . LOG-EXP-OFF) (DISABLED-LEMMAS NIL LOG-EXP LOG-EXP-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY-OF-GCD-OFF COMMUTATIVITY-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . COMMUTATIVITY-OF-GCD-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-GCD COMMUTATIVITY-OF-GCD-OFF . T))))) (PUT1-LST (QUOTE G*1*SINGLE-NUMBER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*SINGLE-NUMBER-INDUCTION-OFF *1*SINGLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . G*1*SINGLE-NUMBER-INDUCTION-OFF) (DISABLED-LEMMAS NIL *1*SINGLE-NUMBER-INDUCTION G*1*SINGLE-NUMBER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE SINGLE-NUMBER-INDUCTION-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SINGLE-NUMBER-INDUCTION-OFF SINGLE-NUMBER-INDUCTION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . SINGLE-NUMBER-INDUCTION-OFF) (DISABLED-LEMMAS NIL SINGLE-NUMBER-INDUCTION SINGLE-NUMBER-INDUCTION-OFF . T))))) (PUT1-LST (QUOTE GCD-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-0-OFF GCD-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-0 . GCD-0-OFF) (DISABLED-LEMMAS NIL GCD-0 GCD-0-OFF . T))))) (PUT1-LST (QUOTE GCD-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-1-OFF GCD-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-1 . GCD-1-OFF) (DISABLED-LEMMAS NIL GCD-1 GCD-1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-GCD-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-GCD-0-OFF EQUAL-GCD-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . EQUAL-GCD-0-OFF) (DISABLED-LEMMAS NIL EQUAL-GCD-0 EQUAL-GCD-0-OFF . T))))) (PUT1-LST (QUOTE LESSP-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE LESSP-GCD-OFF LESSP-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-GCD . LESSP-GCD-OFF) (DISABLED-LEMMAS NIL LESSP-GCD LESSP-GCD-OFF . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-PROOF-OFF GCD-PLUS-INSTANCE-TEMP-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP-PROOF . GCD-PLUS-INSTANCE-TEMP-PROOF-OFF) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF-OFF . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-PLUS-INSTANCE-TEMP-OFF GCD-PLUS-INSTANCE-TEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . GCD-PLUS-INSTANCE-TEMP-OFF) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-OFF . T))))) (PUT1-LST (QUOTE GCD-PLUS-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-PLUS-PROOF-OFF GCD-PLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-PROOF . GCD-PLUS-PROOF-OFF) (DISABLED-LEMMAS NIL GCD-PLUS-PROOF GCD-PLUS-PROOF-OFF . T))))) (PUT1-LST (QUOTE GCD-PLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-PLUS-OFF GCD-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS . GCD-PLUS-OFF) (DISABLED-LEMMAS NIL GCD-PLUS GCD-PLUS-OFF . T))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-PLUS-INSTANCE-OFF GCD-PLUS-INSTANCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE . GCD-PLUS-INSTANCE-OFF) (DISABLED-LEMMAS NIL GCD-PLUS-INSTANCE GCD-PLUS-INSTANCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE REMAINDER-GCD-OFF REMAINDER-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . REMAINDER-GCD-OFF) (DISABLED-LEMMAS NIL REMAINDER-GCD REMAINDER-GCD-OFF . T))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF . T))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF DISTRIBUTIVITY-OF-TIMES-OVER-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF) (DISABLED-LEMMAS NIL DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF . T))))) (PUT1-LST (QUOTE GCD-IS-THE-GREATEST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-IS-THE-GREATEST-OFF GCD-IS-THE-GREATEST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . GCD-IS-THE-GREATEST-OFF) (DISABLED-LEMMAS NIL GCD-IS-THE-GREATEST GCD-IS-THE-GREATEST-OFF . T))))) (PUT1-LST (QUOTE COMMON-DIVISOR-DIVIDES-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMON-DIVISOR-DIVIDES-GCD-OFF COMMON-DIVISOR-DIVIDES-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . COMMON-DIVISOR-DIVIDES-GCD-OFF) (DISABLED-LEMMAS NIL COMMON-DIVISOR-DIVIDES-GCD COMMON-DIVISOR-DIVIDES-GCD-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF ASSOCIATIVITY-OF-GCD-ZERO-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD-ZERO-CASE . ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-GCD-OFF ASSOCIATIVITY-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD . ASSOCIATIVITY-OF-GCD-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF COMMUTATIVITY2-OF-GCD-ZERO-CASE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD-ZERO-CASE . COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-GCD-OFF COMMUTATIVITY2-OF-GCD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD . COMMUTATIVITY2-OF-GCD-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-OFF . T))))) (PUT1-LST (QUOTE GCD-X-X-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-X-X-OFF GCD-X-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-X-X . GCD-X-X-OFF) (DISABLED-LEMMAS NIL GCD-X-X GCD-X-X-OFF . T))))) (PUT1-LST (QUOTE GCD-IDEMPOTENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE GCD-IDEMPOTENCE-OFF GCD-IDEMPOTENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-IDEMPOTENCE . GCD-IDEMPOTENCE-OFF) (DISABLED-LEMMAS NIL GCD-IDEMPOTENCE GCD-IDEMPOTENCE-OFF . T))))) (PUT1-LST (QUOTE G*1*INTEGERP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*INTEGERP-OFF *1*INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . G*1*INTEGERP-OFF) (DISABLED-LEMMAS NIL *1*INTEGERP G*1*INTEGERP-OFF . T))))) (PUT1-LST (QUOTE G*1*FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*FIX-INT-OFF *1*FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . G*1*FIX-INT-OFF) (DISABLED-LEMMAS NIL *1*FIX-INT G*1*FIX-INT-OFF . T))))) (PUT1-LST (QUOTE G*1*IZEROP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IZEROP-OFF *1*IZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . G*1*IZEROP-OFF) (DISABLED-LEMMAS NIL *1*IZEROP G*1*IZEROP-OFF . T))))) (PUT1-LST (QUOTE IZEROP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IZEROP-OFF IZEROP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP . IZEROP-OFF) (DISABLED-LEMMAS NIL IZEROP IZEROP-OFF . T))))) (PUT1-LST (QUOTE G*1*ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ILESSP-OFF *1*ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . G*1*ILESSP-OFF) (DISABLED-LEMMAS NIL *1*ILESSP G*1*ILESSP-OFF . T))))) (PUT1-LST (QUOTE G*1*ILEQ-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ILEQ-OFF *1*ILEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . G*1*ILEQ-OFF) (DISABLED-LEMMAS NIL *1*ILEQ G*1*ILEQ-OFF . T))))) (PUT1-LST (QUOTE ILEQ-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILEQ-OFF ILEQ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . ILEQ-OFF) (DISABLED-LEMMAS NIL ILEQ ILEQ-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-OFF *1*IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . G*1*IPLUS-OFF) (DISABLED-LEMMAS NIL *1*IPLUS G*1*IPLUS-OFF . T))))) (PUT1-LST (QUOTE G*1*INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*INEG-OFF *1*INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . G*1*INEG-OFF) (DISABLED-LEMMAS NIL *1*INEG G*1*INEG-OFF . T))))) (PUT1-LST (QUOTE G*1*IDIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IDIFFERENCE-OFF *1*IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . G*1*IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL *1*IDIFFERENCE G*1*IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE IDIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIFFERENCE-OFF IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL IDIFFERENCE IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE G*1*IABS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IABS-OFF *1*IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IABS . G*1*IABS-OFF) (DISABLED-LEMMAS NIL *1*IABS G*1*IABS-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-OFF *1*ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . G*1*ITIMES-OFF) (DISABLED-LEMMAS NIL *1*ITIMES G*1*ITIMES-OFF . T))))) (PUT1-LST (QUOTE G*1*IQUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IQUOTIENT-OFF *1*IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . G*1*IQUOTIENT-OFF) (DISABLED-LEMMAS NIL *1*IQUOTIENT G*1*IQUOTIENT-OFF . T))))) (PUT1-LST (QUOTE G*1*IREMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IREMAINDER-OFF *1*IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . G*1*IREMAINDER-OFF) (DISABLED-LEMMAS NIL *1*IREMAINDER G*1*IREMAINDER-OFF . T))))) (PUT1-LST (QUOTE G*1*IDIV-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IDIV-OFF *1*IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV . G*1*IDIV-OFF) (DISABLED-LEMMAS NIL *1*IDIV G*1*IDIV-OFF . T))))) (PUT1-LST (QUOTE G*1*IMOD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IMOD-OFF *1*IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD . G*1*IMOD-OFF) (DISABLED-LEMMAS NIL *1*IMOD G*1*IMOD-OFF . T))))) (PUT1-LST (QUOTE G*1*IQUO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IQUO-OFF *1*IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO . G*1*IQUO-OFF) (DISABLED-LEMMAS NIL *1*IQUO G*1*IQUO-OFF . T))))) (PUT1-LST (QUOTE G*1*IREM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IREM-OFF *1*IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM . G*1*IREM-OFF) (DISABLED-LEMMAS NIL *1*IREM G*1*IREM-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-FIX-INT-OFF INTEGERP-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INTEGERP-FIX-INT-OFF) (DISABLED-LEMMAS NIL INTEGERP-FIX-INT INTEGERP-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IPLUS-OFF INTEGERP-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-IPLUS-OFF) (DISABLED-LEMMAS NIL INTEGERP-IPLUS INTEGERP-IPLUS-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IDIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IDIFFERENCE-OFF INTEGERP-IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL INTEGERP-IDIFFERENCE INTEGERP-IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-INEG-OFF INTEGERP-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . INTEGERP-INEG-OFF) (DISABLED-LEMMAS NIL INTEGERP-INEG INTEGERP-INEG-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IABS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IABS-OFF INTEGERP-IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IABS . INTEGERP-IABS-OFF) (DISABLED-LEMMAS NIL INTEGERP-IABS INTEGERP-IABS-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-ITIMES-OFF INTEGERP-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERP-ITIMES-OFF) (DISABLED-LEMMAS NIL INTEGERP-ITIMES INTEGERP-ITIMES-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-REMOVER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-REMOVER-OFF FIX-INT-REMOVER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . FIX-INT-REMOVER-OFF) (DISABLED-LEMMAS NIL FIX-INT-REMOVER FIX-INT-REMOVER-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-FIX-INT-OFF FIX-INT-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . FIX-INT-FIX-INT-OFF) (DISABLED-LEMMAS NIL FIX-INT-FIX-INT FIX-INT-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IPLUS-OFF FIX-INT-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . FIX-INT-IPLUS-OFF) (DISABLED-LEMMAS NIL FIX-INT-IPLUS FIX-INT-IPLUS-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IDIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IDIFFERENCE-OFF FIX-INT-IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL FIX-INT-IDIFFERENCE FIX-INT-IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-INEG-OFF FIX-INT-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . FIX-INT-INEG-OFF) (DISABLED-LEMMAS NIL FIX-INT-INEG FIX-INT-INEG-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IABS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IABS-OFF FIX-INT-IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IABS . FIX-INT-IABS-OFF) (DISABLED-LEMMAS NIL FIX-INT-IABS FIX-INT-IABS-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-ITIMES-OFF FIX-INT-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . FIX-INT-ITIMES-OFF) (DISABLED-LEMMAS NIL FIX-INT-ITIMES FIX-INT-ITIMES-OFF . T))))) (PUT1-LST (QUOTE INEG-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INEG-IPLUS-OFF INEG-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-IPLUS . INEG-IPLUS-OFF) (DISABLED-LEMMAS NIL INEG-IPLUS INEG-IPLUS-OFF . T))))) (PUT1-LST (QUOTE INEG-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INEG-INEG-OFF INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-INEG . INEG-INEG-OFF) (DISABLED-LEMMAS NIL INEG-INEG INEG-INEG-OFF . T))))) (PUT1-LST (QUOTE INEG-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INEG-FIX-INT-OFF INEG-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . INEG-FIX-INT-OFF) (DISABLED-LEMMAS NIL INEG-FIX-INT INEG-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE INEG-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INEG-0-OFF INEG-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-0 . INEG-0-OFF) (DISABLED-LEMMAS NIL INEG-0 INEG-0-OFF . T))))) (PUT1-LST (QUOTE IPLUS-0-LEFT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-0-LEFT-OFF IPLUS-0-LEFT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-0-LEFT-OFF) (DISABLED-LEMMAS NIL IPLUS-0-LEFT IPLUS-0-LEFT-OFF . T))))) (PUT1-LST (QUOTE IPLUS-0-RIGHT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-0-RIGHT-OFF IPLUS-0-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . IPLUS-0-RIGHT-OFF) (DISABLED-LEMMAS NIL IPLUS-0-RIGHT IPLUS-0-RIGHT-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-IPLUS-OFF COMMUTATIVITY2-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . COMMUTATIVITY2-OF-IPLUS-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY2-OF-IPLUS-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY-OF-IPLUS-OFF COMMUTATIVITY-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . COMMUTATIVITY-OF-IPLUS-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-IPLUS-OFF ASSOCIATIVITY-OF-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . ASSOCIATIVITY-OF-IPLUS-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS-OFF . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-CANCELLATION-1-OFF IPLUS-CANCELLATION-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . IPLUS-CANCELLATION-1-OFF) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-1-OFF . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-CANCELLATION-2-OFF IPLUS-CANCELLATION-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . IPLUS-CANCELLATION-2-OFF) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-2-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-INEG1-OFF IPLUS-INEG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . IPLUS-INEG1-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG1 IPLUS-INEG1-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-INEG2-OFF IPLUS-INEG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . IPLUS-INEG2-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG2 IPLUS-INEG2-OFF . T))))) (PUT1-LST (QUOTE IPLUS-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-FIX-INT1-OFF IPLUS-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IPLUS-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IPLUS-FIX-INT1 IPLUS-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IPLUS-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-FIX-INT2-OFF IPLUS-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . IPLUS-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IPLUS-FIX-INT2 IPLUS-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIFFERENCE-FIX-INT1-OFF IDIFFERENCE-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . IDIFFERENCE-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIFFERENCE-FIX-INT2-OFF IDIFFERENCE-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT2 . IDIFFERENCE-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-AUX-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-AUX-OFF *1*CANCEL-INEG-AUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . G*1*CANCEL-INEG-AUX-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-AUX G*1*CANCEL-INEG-AUX-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-AUX-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-AUX-OFF CANCEL-INEG-AUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CANCEL-INEG-AUX-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-AUX CANCEL-INEG-AUX-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-OFF *1*CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . G*1*CANCEL-INEG-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG G*1*CANCEL-INEG-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-OFF CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG . CANCEL-INEG-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG CANCEL-INEG-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-CONS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LIST-CONS-OFF EVAL$-LIST-CONS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-LIST-CONS-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-CONS EVAL$-LIST-CONS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-NLISTP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LIST-NLISTP-OFF EVAL$-LIST-NLISTP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-LIST-NLISTP-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-NLISTP EVAL$-LIST-NLISTP-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LITATOM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LITATOM-OFF EVAL$-LITATOM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LITATOM . EVAL$-LITATOM-OFF) (DISABLED-LEMMAS NIL EVAL$-LITATOM EVAL$-LITATOM-OFF . T))))) (PUT1-LST (QUOTE EVAL$-OTHER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-OTHER-OFF EVAL$-OTHER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . EVAL$-OTHER-OFF) (DISABLED-LEMMAS NIL EVAL$-OTHER EVAL$-OTHER-OFF . T))))) (PUT1-LST (QUOTE G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF *1*EVAL$-CANCEL-INEG-AUX-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF) (DISABLED-LEMMAS NIL *1*EVAL$-CANCEL-INEG-AUX-FN G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-FN-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . EVAL$-CANCEL-INEG-AUX-FN-OFF) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-FN EVAL$-CANCEL-INEG-AUX-FN-OFF . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF EVAL$-CANCEL-INEG-AUX-IS-ITS-FN T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF) (DISABLED-LEMMAS NIL EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-INEG3-OFF IPLUS-INEG3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . IPLUS-INEG3-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG3 IPLUS-INEG3-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG4-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-INEG4-OFF IPLUS-INEG4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . IPLUS-INEG4-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG4 IPLUS-INEG4-OFF . T))))) (PUT1-LST (QUOTE IPLUS-X-Y-INEG-X-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-X-Y-INEG-X-OFF IPLUS-X-Y-INEG-X T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . IPLUS-X-Y-INEG-X-OFF) (DISABLED-LEMMAS NIL IPLUS-X-Y-INEG-X IPLUS-X-Y-INEG-X-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-OFF CORRECTNESS-OF-CANCEL-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . CORRECTNESS-OF-CANCEL-INEG-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-FRINGE-OFF *1*IPLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . G*1*IPLUS-FRINGE-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-FRINGE G*1*IPLUS-FRINGE-OFF . T))))) (PUT1-LST (QUOTE IPLUS-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-FRINGE-OFF IPLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . IPLUS-FRINGE-OFF) (DISABLED-LEMMAS NIL IPLUS-FRINGE IPLUS-FRINGE-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-REC-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-TREE-REC-OFF *1*IPLUS-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . G*1*IPLUS-TREE-REC-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-REC G*1*IPLUS-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE IPLUS-TREE-REC-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-TREE-REC-OFF IPLUS-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . IPLUS-TREE-REC-OFF) (DISABLED-LEMMAS NIL IPLUS-TREE-REC IPLUS-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-TREE-OFF *1*IPLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . G*1*IPLUS-TREE-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-TREE G*1*IPLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-LIST-OFF *1*IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . G*1*IPLUS-LIST-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-LIST G*1*IPLUS-LIST-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-LIST-OFF IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-OFF) (DISABLED-LEMMAS NIL IPLUS-LIST IPLUS-LIST-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IPLUS-LIST-OFF INTEGERP-IPLUS-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . INTEGERP-IPLUS-LIST-OFF) (DISABLED-LEMMAS NIL INTEGERP-IPLUS-LIST INTEGERP-IPLUS-LIST-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-APPEND-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LIST-APPEND-OFF EVAL$-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . EVAL$-LIST-APPEND-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-APPEND EVAL$-LIST-APPEND-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-IPLUS-OFF *1*CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . G*1*CANCEL-IPLUS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS G*1*CANCEL-IPLUS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-DELETE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-IPLUS-LIST-DELETE-OFF EVAL$-IPLUS-LIST-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . EVAL$-IPLUS-LIST-DELETE-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-DELETE-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-APPEND-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-LIST-APPEND-OFF IPLUS-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . IPLUS-LIST-APPEND-OFF) (DISABLED-LEMMAS NIL IPLUS-LIST-APPEND IPLUS-LIST-APPEND-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG7-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-INEG7-OFF IPLUS-INEG7 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . IPLUS-INEG7-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG7 IPLUS-INEG7-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-OFF CORRECTNESS-OF-CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-IPLUS-OFF . T))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-FIX-INT-1-OFF ILESSP-FIX-INT-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . ILESSP-FIX-INT-1-OFF) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-1 ILESSP-FIX-INT-1-OFF . T))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-FIX-INT-2-OFF ILESSP-FIX-INT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . ILESSP-FIX-INT-2-OFF) (DISABLED-LEMMAS NIL ILESSP-FIX-INT-2 ILESSP-FIX-INT-2-OFF . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-1-OFF *1*CANCEL-IPLUS-ILESSP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . G*1*CANCEL-IPLUS-ILESSP-1-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP-1 G*1*CANCEL-IPLUS-ILESSP-1-OFF . T))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-1-OFF CANCEL-IPLUS-ILESSP-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . CANCEL-IPLUS-ILESSP-1-OFF) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP-1 CANCEL-IPLUS-ILESSP-1-OFF . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-FOR-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-CANCELLATION-1-FOR-ILESSP-OFF IPLUS-CANCELLATION-1-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . IPLUS-CANCELLATION-1-FOR-ILESSP-OFF) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP-OFF . T))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-FOR-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-CANCELLATION-2-FOR-ILESSP-OFF IPLUS-CANCELLATION-2-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP-OFF) (DISABLED-LEMMAS NIL IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-TREE-NO-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-TREE-NO-FIX-INT-OFF *1*IPLUS-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . G*1*IPLUS-TREE-NO-FIX-INT-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-TREE-NO-FIX-INT G*1*IPLUS-TREE-NO-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-IPLUS-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-IPLUS-ILESSP-OFF *1*CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . G*1*CANCEL-IPLUS-ILESSP-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-IPLUS-ILESSP G*1*CANCEL-IPLUS-ILESSP-OFF . T))))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-IPLUS-ILESSP-OFF CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . CANCEL-IPLUS-ILESSP-OFF) (DISABLED-LEMMAS NIL CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF . T))))) (PUT1-LST (QUOTE ITIMES-0-LEFT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-0-LEFT-OFF ITIMES-0-LEFT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-0-LEFT-OFF) (DISABLED-LEMMAS NIL ITIMES-0-LEFT ITIMES-0-LEFT-OFF . T))))) (PUT1-LST (QUOTE ITIMES-0-RIGHT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-0-RIGHT-OFF ITIMES-0-RIGHT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-RIGHT . ITIMES-0-RIGHT-OFF) (DISABLED-LEMMAS NIL ITIMES-0-RIGHT ITIMES-0-RIGHT-OFF . T))))) (PUT1-LST (QUOTE ITIMES-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-FIX-INT1-OFF ITIMES-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . ITIMES-FIX-INT1-OFF) (DISABLED-LEMMAS NIL ITIMES-FIX-INT1 ITIMES-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-FIX-INT2-OFF ITIMES-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . ITIMES-FIX-INT2-OFF) (DISABLED-LEMMAS NIL ITIMES-FIX-INT2 ITIMES-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY-OF-ITIMES-OFF COMMUTATIVITY-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . COMMUTATIVITY-OF-ITIMES-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY-OF-ITIMES COMMUTATIVITY-OF-ITIMES-OFF . T))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF . T))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-DISTRIBUTES-OVER-IPLUS-OFF ITIMES-DISTRIBUTES-OVER-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . ITIMES-DISTRIBUTES-OVER-IPLUS-OFF) (DISABLED-LEMMAS NIL ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-OFF . T))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE COMMUTATIVITY2-OF-ITIMES-OFF COMMUTATIVITY2-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . COMMUTATIVITY2-OF-ITIMES-OFF) (DISABLED-LEMMAS NIL COMMUTATIVITY2-OF-ITIMES COMMUTATIVITY2-OF-ITIMES-OFF . T))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ASSOCIATIVITY-OF-ITIMES-OFF ASSOCIATIVITY-OF-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . ASSOCIATIVITY-OF-ITIMES-OFF) (DISABLED-LEMMAS NIL ASSOCIATIVITY-OF-ITIMES ASSOCIATIVITY-OF-ITIMES-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-ITIMES-0-OFF EQUAL-ITIMES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . EQUAL-ITIMES-0-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-0 EQUAL-ITIMES-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-ITIMES-1-OFF EQUAL-ITIMES-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-1 . EQUAL-ITIMES-1-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-1 EQUAL-ITIMES-1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-MINUS-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-ITIMES-MINUS-1-OFF EQUAL-ITIMES-MINUS-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-MINUS-1 . EQUAL-ITIMES-MINUS-1-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-MINUS-1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-1-ARG1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-1-ARG1-OFF ITIMES-1-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-1-ARG1-OFF) (DISABLED-LEMMAS NIL ITIMES-1-ARG1 ITIMES-1-ARG1-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-UNIQUENESS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE QUOTIENT-REMAINDER-UNIQUENESS-OFF QUOTIENT-REMAINDER-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-UNIQUENESS . QUOTIENT-REMAINDER-UNIQUENESS-OFF) (DISABLED-LEMMAS NIL QUOTIENT-REMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-PART1-OFF DIVISION-THEOREM-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART1 . DIVISION-THEOREM-PART1-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART1 DIVISION-THEOREM-PART1-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-PART2-OFF DIVISION-THEOREM-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART2 . DIVISION-THEOREM-PART2-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART2-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-PART3-OFF DIVISION-THEOREM-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART3 . DIVISION-THEOREM-PART3-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART3-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-OFF DIVISION-THEOREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM . DIVISION-THEOREM-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM DIVISION-THEOREM-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-IREMAINDER-UNIQUENESS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUOTIENT-IREMAINDER-UNIQUENESS-OFF IQUOTIENT-IREMAINDER-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-IREMAINDER-UNIQUENESS . IQUOTIENT-IREMAINDER-UNIQUENESS-OFF) (DISABLED-LEMMAS NIL IQUOTIENT-IREMAINDER-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF . T))))) (PUT1-LST (QUOTE IDIV-IMOD-UNIQUENESS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIV-IMOD-UNIQUENESS-OFF IDIV-IMOD-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-IMOD-UNIQUENESS . IDIV-IMOD-UNIQUENESS-OFF) (DISABLED-LEMMAS NIL IDIV-IMOD-UNIQUENESS IDIV-IMOD-UNIQUENESS-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF . T))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF) (DISABLED-LEMMAS NIL DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF . T))))) (PUT1-LST (QUOTE IQUO-IREM-UNIQUENESS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUO-IREM-UNIQUENESS-OFF IQUO-IREM-UNIQUENESS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-IREM-UNIQUENESS . IQUO-IREM-UNIQUENESS-OFF) (DISABLED-LEMMAS NIL IQUO-IREM-UNIQUENESS IQUO-IREM-UNIQUENESS-OFF . T))))) (PUT1-LST (QUOTE ITIMES-INEG-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-INEG-1-OFF ITIMES-INEG-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-1 . ITIMES-INEG-1-OFF) (DISABLED-LEMMAS NIL ITIMES-INEG-1 ITIMES-INEG-1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-INEG-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-INEG-2-OFF ITIMES-INEG-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-INEG-2 . ITIMES-INEG-2-OFF) (DISABLED-LEMMAS NIL ITIMES-INEG-2 ITIMES-INEG-2-OFF . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-CANCELLATION-1-OFF ITIMES-CANCELLATION-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . ITIMES-CANCELLATION-1-OFF) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-CANCELLATION-2-OFF ITIMES-CANCELLATION-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-2 . ITIMES-CANCELLATION-2-OFF) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-2-OFF . T))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-3-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-CANCELLATION-3-OFF ITIMES-CANCELLATION-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . ITIMES-CANCELLATION-3-OFF) (DISABLED-LEMMAS NIL ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-3-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IQUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IQUOTIENT-OFF INTEGERP-IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUOTIENT . INTEGERP-IQUOTIENT-OFF) (DISABLED-LEMMAS NIL INTEGERP-IQUOTIENT INTEGERP-IQUOTIENT-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IREMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IREMAINDER-OFF INTEGERP-IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREMAINDER . INTEGERP-IREMAINDER-OFF) (DISABLED-LEMMAS NIL INTEGERP-IREMAINDER INTEGERP-IREMAINDER-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IDIV-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IDIV-OFF INTEGERP-IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . INTEGERP-IDIV-OFF) (DISABLED-LEMMAS NIL INTEGERP-IDIV INTEGERP-IDIV-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IMOD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IMOD-OFF INTEGERP-IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IMOD . INTEGERP-IMOD-OFF) (DISABLED-LEMMAS NIL INTEGERP-IMOD INTEGERP-IMOD-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IQUO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IQUO-OFF INTEGERP-IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IQUO . INTEGERP-IQUO-OFF) (DISABLED-LEMMAS NIL INTEGERP-IQUO INTEGERP-IQUO-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-IREM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-IREM-OFF INTEGERP-IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IREM . INTEGERP-IREM-OFF) (DISABLED-LEMMAS NIL INTEGERP-IREM INTEGERP-IREM-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUOTIENT-FIX-INT1-OFF IQUOTIENT-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . IQUOTIENT-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUOTIENT-FIX-INT2-OFF IQUOTIENT-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . IQUOTIENT-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IREMAINDER-FIX-INT1-OFF IREMAINDER-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT1 . IREMAINDER-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IREMAINDER-FIX-INT2-OFF IREMAINDER-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT2 . IREMAINDER-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IDIV-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIV-FIX-INT1-OFF IDIV-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . IDIV-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IDIV-FIX-INT1 IDIV-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IDIV-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IDIV-FIX-INT2-OFF IDIV-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . IDIV-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IDIV-FIX-INT2 IDIV-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IMOD-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IMOD-FIX-INT1-OFF IMOD-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT1 . IMOD-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IMOD-FIX-INT1 IMOD-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IMOD-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IMOD-FIX-INT2-OFF IMOD-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT2 . IMOD-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IMOD-FIX-INT2 IMOD-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IQUO-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUO-FIX-INT1-OFF IQUO-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . IQUO-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IQUO-FIX-INT1 IQUO-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IQUO-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IQUO-FIX-INT2-OFF IQUO-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . IQUO-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IQUO-FIX-INT2 IQUO-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE IREM-FIX-INT1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IREM-FIX-INT1-OFF IREM-FIX-INT1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT1 . IREM-FIX-INT1-OFF) (DISABLED-LEMMAS NIL IREM-FIX-INT1 IREM-FIX-INT1-OFF . T))))) (PUT1-LST (QUOTE IREM-FIX-INT2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IREM-FIX-INT2-OFF IREM-FIX-INT2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM-FIX-INT2 . IREM-FIX-INT2-OFF) (DISABLED-LEMMAS NIL IREM-FIX-INT2 IREM-FIX-INT2-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IQUOTIENT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IQUOTIENT-OFF FIX-INT-IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUOTIENT . FIX-INT-IQUOTIENT-OFF) (DISABLED-LEMMAS NIL FIX-INT-IQUOTIENT FIX-INT-IQUOTIENT-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IREMAINDER-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IREMAINDER-OFF FIX-INT-IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREMAINDER . FIX-INT-IREMAINDER-OFF) (DISABLED-LEMMAS NIL FIX-INT-IREMAINDER FIX-INT-IREMAINDER-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IDIV-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IDIV-OFF FIX-INT-IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIV . FIX-INT-IDIV-OFF) (DISABLED-LEMMAS NIL FIX-INT-IDIV FIX-INT-IDIV-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IMOD-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IMOD-OFF FIX-INT-IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IMOD . FIX-INT-IMOD-OFF) (DISABLED-LEMMAS NIL FIX-INT-IMOD FIX-INT-IMOD-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IQUO-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IQUO-OFF FIX-INT-IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IQUO . FIX-INT-IQUO-OFF) (DISABLED-LEMMAS NIL FIX-INT-IQUO FIX-INT-IQUO-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IREM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-IREM-OFF FIX-INT-IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IREM . FIX-INT-IREM-OFF) (DISABLED-LEMMAS NIL FIX-INT-IREM FIX-INT-IREM-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-FRINGE-OFF *1*ITIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . G*1*ITIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-FRINGE G*1*ITIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE ITIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-FRINGE-OFF ITIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . ITIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL ITIMES-FRINGE ITIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-REC-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-TREE-REC-OFF *1*ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . G*1*ITIMES-TREE-REC-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-REC G*1*ITIMES-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE ITIMES-TREE-REC-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-TREE-REC-OFF ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE-REC-OFF) (DISABLED-LEMMAS NIL ITIMES-TREE-REC ITIMES-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-TREE-OFF *1*ITIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE . G*1*ITIMES-TREE-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-TREE G*1*ITIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-LIST-OFF *1*ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . G*1*ITIMES-LIST-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-LIST G*1*ITIMES-LIST-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-LIST-OFF ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST ITIMES-LIST-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INTEGERP-ITIMES-LIST-OFF INTEGERP-ITIMES-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . INTEGERP-ITIMES-LIST-OFF) (DISABLED-LEMMAS NIL INTEGERP-ITIMES-LIST INTEGERP-ITIMES-LIST-OFF . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF *1*MAKE-CANCEL-ITIMES-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-EQUALITY G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-ITIMES-OFF *1*CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . G*1*CANCEL-ITIMES-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES G*1*CANCEL-ITIMES-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-ITIMES-OFF CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . CANCEL-ITIMES-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES CANCEL-ITIMES-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-APPEND-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-LIST-APPEND-OFF ITIMES-LIST-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . ITIMES-LIST-APPEND-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-APPEND ITIMES-LIST-APPEND-OFF . T))))) (PUT1-LST (QUOTE MEMBER-APPEND-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-APPEND-OFF MEMBER-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MEMBER-APPEND-OFF) (DISABLED-LEMMAS NIL MEMBER-APPEND MEMBER-APPEND-OFF . T))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-FIX-INT-OFF EQUAL-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . EQUAL-FIX-INT-OFF) (DISABLED-LEMMAS NIL EQUAL-FIX-INT EQUAL-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE G*1*SUBSETP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*SUBSETP-OFF *1*SUBSETP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . G*1*SUBSETP-OFF) (DISABLED-LEMMAS NIL *1*SUBSETP G*1*SUBSETP-OFF . T))))) (PUT1-LST (QUOTE SUBSETP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SUBSETP-OFF SUBSETP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP . SUBSETP-OFF) (DISABLED-LEMMAS NIL SUBSETP SUBSETP-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-NO-FIX-INT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-TREE-NO-FIX-INT-OFF *1*ITIMES-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . G*1*ITIMES-TREE-NO-FIX-INT-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-NO-FIX-INT G*1*ITIMES-TREE-NO-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF *1*MAKE-CANCEL-ITIMES-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-ITIMES-INEQUALITY G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-OFF *1*CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . G*1*CANCEL-ITIMES-ILESSP-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP G*1*CANCEL-ITIMES-ILESSP-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-OFF CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . CANCEL-ITIMES-ILESSP-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP CANCEL-ITIMES-ILESSP-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-POSITIVE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-POSITIVE-OFF ILESSP-ITIMES-RIGHT-POSITIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-POSITIVE . ILESSP-ITIMES-RIGHT-POSITIVE-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-POSITIVE ILESSP-ITIMES-RIGHT-POSITIVE-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF ILESSP-ITIMES-RIGHT-NEGATIVE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-NEGATIVE . ILESSP-ITIMES-RIGHT-NEGATIVE-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-NEGATIVE-OFF . T))))) (PUT1-LST (QUOTE ILESSP-STRICT-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-STRICT-OFF ILESSP-STRICT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-STRICT-OFF) (DISABLED-LEMMAS NIL ILESSP-STRICT ILESSP-STRICT-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-TREE-INEG-OFF *1*ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . G*1*ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-TREE-INEG G*1*ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE G*1*ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*ITIMES-FACTORS-OFF *1*ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . G*1*ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL *1*ITIMES-FACTORS G*1*ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-FACTORS-OFF ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL ITIMES-FACTORS ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE ITIMES--1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES--1-OFF ITIMES--1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES--1 . ITIMES--1-OFF) (DISABLED-LEMMAS NIL ITIMES--1 ITIMES--1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-INEG-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-INEG-INEG-OFF EQUAL-INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . EQUAL-INEG-INEG-OFF) (DISABLED-LEMMAS NIL EQUAL-INEG-INEG EQUAL-INEG-INEG-OFF . T))))) (PUT1-LST (QUOTE ILESSP-INEG-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-INEG-INEG-OFF ILESSP-INEG-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-INEG-INEG . ILESSP-INEG-INEG-OFF) (DISABLED-LEMMAS NIL ILESSP-INEG-INEG ILESSP-INEG-INEG-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-EVAL$-ITIMES-TREE-REC-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE FIX-INT-EVAL$-ITIMES-TREE-REC-OFF FIX-INT-EVAL$-ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . FIX-INT-EVAL$-ITIMES-TREE-REC-OFF) (DISABLED-LEMMAS NIL FIX-INT-EVAL$-ITIMES-TREE-REC FIX-INT-EVAL$-ITIMES-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-ITIMES-TREE-INEG-OFF EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . EVAL$-ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE INEG-EVAL$-ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE INEG-EVAL$-ITIMES-TREE-INEG-OFF INEG-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-EVAL$-ITIMES-TREE-INEG . INEG-EVAL$-ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL INEG-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE IPLUS-EVAL$-ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-EVAL$-ITIMES-TREE-INEG-OFF IPLUS-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . IPLUS-EVAL$-ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL IPLUS-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE ITIMES-EVAL$-ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ITIMES-EVAL$-ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-EVAL$-ITIMES-TREE-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-ITIMES-TERM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-OR-ITIMES-TERM-OFF *1*IPLUS-OR-ITIMES-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . G*1*IPLUS-OR-ITIMES-TERM-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-OR-ITIMES-TERM G*1*IPLUS-OR-ITIMES-TERM-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-OFF *1*CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . G*1*CANCEL-ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS G*1*CANCEL-ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-OFF CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF *1*CANCEL-ITIMES-FACTORS-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-FACTORS-EXPANDED G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF) (DISABLED-LEMMAS NIL MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF . T))))) (PUT1-LST (QUOTE MEMBER-0-EVAL$-LIST-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-0-EVAL$-LIST-OFF MEMBER-0-EVAL$-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . MEMBER-0-EVAL$-LIST-OFF) (DISABLED-LEMMAS NIL MEMBER-0-EVAL$-LIST MEMBER-0-EVAL$-LIST-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF *1*CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-ITIMES-ILESSP-FACTORS G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-ITIMES-ILESSP-FACTORS-OFF CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . CANCEL-ITIMES-ILESSP-FACTORS-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES-ILESSP-FACTORS CANCEL-ITIMES-ILESSP-FACTORS-OFF . T))))) (PUT1-LST (QUOTE BAGINT-SINGLETON-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE BAGINT-SINGLETON-OFF BAGINT-SINGLETON T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . BAGINT-SINGLETON-OFF) (DISABLED-LEMMAS NIL BAGINT-SINGLETON BAGINT-SINGLETON-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF ZERO-ILESSP-IMPLIES-NOT-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZERO-ILESSP-IMPLIES-NOT-EQUAL . ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF) (DISABLED-LEMMAS NIL ZERO-ILESSP-IMPLIES-NOT-EQUAL ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF ILESSP-ZERO-IMPLIES-NOT-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ZERO-IMPLIES-NOT-EQUAL . ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF) (DISABLED-LEMMAS NIL ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF . T))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF) (DISABLED-LEMMAS NIL MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF EVAL$-LIST-BAGINT-0-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-FOR-ILESSP . EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF . T))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-TO-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EQUAL-FIX-INT-TO-ILESSP-OFF EQUAL-FIX-INT-TO-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT-TO-ILESSP . EQUAL-FIX-INT-TO-ILESSP-OFF) (DISABLED-LEMMAS NIL EQUAL-FIX-INT-TO-ILESSP EQUAL-FIX-INT-TO-ILESSP-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF . T))))) (PUT1-LST (QUOTE G*1*DISJOIN-EQUALITIES-WITH-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*DISJOIN-EQUALITIES-WITH-0-OFF *1*DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . G*1*DISJOIN-EQUALITIES-WITH-0-OFF) (DISABLED-LEMMAS NIL *1*DISJOIN-EQUALITIES-WITH-0 G*1*DISJOIN-EQUALITIES-WITH-0-OFF . T))))) (PUT1-LST (QUOTE DISJOIN-EQUALITIES-WITH-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DISJOIN-EQUALITIES-WITH-0-OFF DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . DISJOIN-EQUALITIES-WITH-0-OFF) (DISABLED-LEMMAS NIL DISJOIN-EQUALITIES-WITH-0 DISJOIN-EQUALITIES-WITH-0-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-FACTORS-0-OFF *1*CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . G*1*CANCEL-FACTORS-0-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-0 G*1*CANCEL-FACTORS-0-OFF . T))))) (PUT1-LST (QUOTE CANCEL-FACTORS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-FACTORS-0-OFF CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . CANCEL-FACTORS-0-OFF) (DISABLED-LEMMAS NIL CANCEL-FACTORS-0 CANCEL-FACTORS-0-OFF . T))))) (PUT1-LST (QUOTE G*1*SOME-EVAL$S-TO-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*SOME-EVAL$S-TO-0-OFF *1*SOME-EVAL$S-TO-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . G*1*SOME-EVAL$S-TO-0-OFF) (DISABLED-LEMMAS NIL *1*SOME-EVAL$S-TO-0 G*1*SOME-EVAL$S-TO-0-OFF . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SOME-EVAL$S-TO-0-OFF SOME-EVAL$S-TO-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-OFF) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0 SOME-EVAL$S-TO-0-OFF . T))))) (PUT1-LST (QUOTE EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF EVAL$-DISJOIN-EQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF) (DISABLED-LEMMAS NIL EVAL$-DISJOIN-EQUALITIES-WITH-0 EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-APPEND-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SOME-EVAL$S-TO-0-APPEND-OFF SOME-EVAL$S-TO-0-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-APPEND . SOME-EVAL$S-TO-0-APPEND-OFF) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-APPEND-OFF . T))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-ELIMINATOR-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SOME-EVAL$S-TO-0-ELIMINATOR-OFF SOME-EVAL$S-TO-0-ELIMINATOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . SOME-EVAL$S-TO-0-ELIMINATOR-OFF) (DISABLED-LEMMAS NIL SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-0-OFF CORRECTNESS-OF-CANCEL-FACTORS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . CORRECTNESS-OF-CANCEL-FACTORS-0-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-FACTORS-0-OFF . T))))) (PUT1-LST (QUOTE G*1*CONJOIN-INEQUALITIES-WITH-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CONJOIN-INEQUALITIES-WITH-0-OFF *1*CONJOIN-INEQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . G*1*CONJOIN-INEQUALITIES-WITH-0-OFF) (DISABLED-LEMMAS NIL *1*CONJOIN-INEQUALITIES-WITH-0 G*1*CONJOIN-INEQUALITIES-WITH-0-OFF . T))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-OFF CONJOIN-INEQUALITIES-WITH-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . CONJOIN-INEQUALITIES-WITH-0-OFF) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0 CONJOIN-INEQUALITIES-WITH-0-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-FACTORS-ILESSP-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-FACTORS-ILESSP-0-OFF *1*CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . G*1*CANCEL-FACTORS-ILESSP-0-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-FACTORS-ILESSP-0 G*1*CANCEL-FACTORS-ILESSP-0-OFF . T))))) (PUT1-LST (QUOTE CANCEL-FACTORS-ILESSP-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-FACTORS-ILESSP-0-OFF CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . CANCEL-FACTORS-ILESSP-0-OFF) (DISABLED-LEMMAS NIL CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0-OFF . T))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF) (DISABLED-LEMMAS NIL CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF . T))))) (PUT1-LST (QUOTE G*1*SPLIT-OUT-INEG-TERMS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*SPLIT-OUT-INEG-TERMS-OFF *1*SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . G*1*SPLIT-OUT-INEG-TERMS-OFF) (DISABLED-LEMMAS NIL *1*SPLIT-OUT-INEG-TERMS G*1*SPLIT-OUT-INEG-TERMS-OFF . T))))) (PUT1-LST (QUOTE SPLIT-OUT-INEG-TERMS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE SPLIT-OUT-INEG-TERMS-OFF SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . SPLIT-OUT-INEG-TERMS-OFF) (DISABLED-LEMMAS NIL SPLIT-OUT-INEG-TERMS SPLIT-OUT-INEG-TERMS-OFF . T))))) (PUT1-LST (QUOTE G*1*REMOVE-INEGS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*REMOVE-INEGS-OFF *1*REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . G*1*REMOVE-INEGS-OFF) (DISABLED-LEMMAS NIL *1*REMOVE-INEGS G*1*REMOVE-INEGS-OFF . T))))) (PUT1-LST (QUOTE G*1*IPLUS-OR-INEG-TERM-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*IPLUS-OR-INEG-TERM-OFF *1*IPLUS-OR-INEG-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . G*1*IPLUS-OR-INEG-TERM-OFF) (DISABLED-LEMMAS NIL *1*IPLUS-OR-INEG-TERM G*1*IPLUS-OR-INEG-TERM-OFF . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF *1*MAKE-CANCEL-INEG-TERMS-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-EQUALITY G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF MAKE-CANCEL-INEG-TERMS-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF *1*CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-OFF CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF) (DISABLED-LEMMAS NIL IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF) (DISABLED-LEMMAS NIL *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF MAKE-CANCEL-INEG-TERMS-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-INEG-TERMS-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF *1*CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE IPLUS-CONSTANTS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE IPLUS-CONSTANTS-OFF IPLUS-CONSTANTS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-CONSTANTS . IPLUS-CONSTANTS-OFF) (DISABLED-LEMMAS NIL IPLUS-CONSTANTS IPLUS-CONSTANTS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-LEMMA-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-LEMMA-OFF CANCEL-CONSTANTS-EQUAL-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL-LEMMA . CANCEL-CONSTANTS-EQUAL-LEMMA-OFF) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-CONSTANTS-EQUAL-OFF CANCEL-CONSTANTS-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL . CANCEL-CONSTANTS-EQUAL-OFF) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ADD1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ADD1-OFF ILESSP-ADD1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . ILESSP-ADD1-OFF) (DISABLED-LEMMAS NIL ILESSP-ADD1 ILESSP-ADD1-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ADD1-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE ILESSP-ADD1-IPLUS-OFF ILESSP-ADD1-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . ILESSP-ADD1-IPLUS-OFF) (DISABLED-LEMMAS NIL ILESSP-ADD1-IPLUS ILESSP-ADD1-IPLUS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-1 . CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-2 . CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE CANCEL-CONSTANTS-ILESSP-OFF CANCEL-CONSTANTS-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP . CANCEL-CONSTANTS-ILESSP-OFF) (DISABLED-LEMMAS NIL CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-OFF . T))))) (PUT1-LST (QUOTE MATH-THEORY) (QUOTE (IDATE 1000402193932 EVENT (DEFTHEORY MATH-THEORY (CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS ILESSP-ADD1 CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-LEMMA IPLUS-CONSTANTS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY *1*CANCEL-INEG-TERMS-FROM-INEQUALITY MAKE-CANCEL-INEG-TERMS-INEQUALITY *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY *1*CANCEL-INEG-TERMS-FROM-EQUALITY MAKE-CANCEL-INEG-TERMS-EQUALITY *1*MAKE-CANCEL-INEG-TERMS-EQUALITY *1*IPLUS-OR-INEG-TERM *1*REMOVE-INEGS SPLIT-OUT-INEG-TERMS *1*SPLIT-OUT-INEG-TERMS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CANCEL-FACTORS-ILESSP-0 *1*CANCEL-FACTORS-ILESSP-0 CONJOIN-INEQUALITIES-WITH-0 *1*CONJOIN-INEQUALITIES-WITH-0 CORRECTNESS-OF-CANCEL-FACTORS-0 SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-APPEND EVAL$-DISJOIN-EQUALITIES-WITH-0 SOME-EVAL$S-TO-0 *1*SOME-EVAL$S-TO-0 CANCEL-FACTORS-0 *1*CANCEL-FACTORS-0 DISJOIN-EQUALITIES-WITH-0 *1*DISJOIN-EQUALITIES-WITH-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ZERO-ILESSP-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF BAGINT-SINGLETON CANCEL-ITIMES-ILESSP-FACTORS *1*CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS MEMBER-0-EVAL$-LIST MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS *1*CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS *1*CANCEL-ITIMES-FACTORS *1*IPLUS-OR-ITIMES-TERM ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC ILESSP-INEG-INEG EQUAL-INEG-INEG ITIMES--1 ITIMES-FACTORS *1*ITIMES-FACTORS *1*ITIMES-TREE-INEG ILESSP-STRICT ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-POSITIVE CANCEL-ITIMES-ILESSP *1*CANCEL-ITIMES-ILESSP *1*MAKE-CANCEL-ITIMES-INEQUALITY *1*ITIMES-TREE-NO-FIX-INT SUBSETP *1*SUBSETP EQUAL-FIX-INT MEMBER-APPEND ITIMES-LIST-APPEND CANCEL-ITIMES *1*CANCEL-ITIMES *1*MAKE-CANCEL-ITIMES-EQUALITY INTEGERP-ITIMES-LIST ITIMES-LIST *1*ITIMES-LIST *1*ITIMES-TREE ITIMES-TREE-REC *1*ITIMES-TREE-REC ITIMES-FRINGE *1*ITIMES-FRINGE FIX-INT-IREM FIX-INT-IQUO FIX-INT-IMOD FIX-INT-IDIV FIX-INT-IREMAINDER FIX-INT-IQUOTIENT IREM-FIX-INT2 IREM-FIX-INT1 IQUO-FIX-INT2 IQUO-FIX-INT1 IMOD-FIX-INT2 IMOD-FIX-INT1 IDIV-FIX-INT2 IDIV-FIX-INT1 IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT1 IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IREM INTEGERP-IQUO INTEGERP-IMOD INTEGERP-IDIV INTEGERP-IREMAINDER INTEGERP-IQUOTIENT ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 QUOTIENT-REMAINDER-UNIQUENESS ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-0-RIGHT ITIMES-0-LEFT CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP *1*CANCEL-IPLUS-ILESSP *1*IPLUS-TREE-NO-FIX-INT IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP CANCEL-IPLUS-ILESSP-1 *1*CANCEL-IPLUS-ILESSP-1 *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-DELETE *1*CANCEL-IPLUS EVAL$-LIST-APPEND INTEGERP-IPLUS-LIST IPLUS-LIST *1*IPLUS-LIST *1*IPLUS-TREE IPLUS-TREE-REC *1*IPLUS-TREE-REC IPLUS-FRINGE *1*IPLUS-FRINGE CORRECTNESS-OF-CANCEL-INEG IPLUS-X-Y-INEG-X IPLUS-INEG4 IPLUS-INEG3 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-CANCEL-INEG-AUX-FN *1*EVAL$-CANCEL-INEG-AUX-FN EVAL$-OTHER EVAL$-LITATOM EVAL$-LIST-NLISTP EVAL$-LIST-CONS CANCEL-INEG *1*CANCEL-INEG CANCEL-INEG-AUX *1*CANCEL-INEG-AUX IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT1 IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-INEG2 IPLUS-INEG1 IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS COMMUTATIVITY2-OF-IPLUS IPLUS-0-RIGHT IPLUS-0-LEFT INEG-0 INEG-FIX-INT INEG-INEG INEG-IPLUS FIX-INT-ITIMES FIX-INT-IABS FIX-INT-INEG FIX-INT-IDIFFERENCE FIX-INT-IPLUS FIX-INT-FIX-INT FIX-INT-REMOVER INTEGERP-ITIMES INTEGERP-IABS INTEGERP-INEG INTEGERP-IDIFFERENCE INTEGERP-IPLUS INTEGERP-FIX-INT *1*IREM *1*IQUO *1*IMOD *1*IDIV *1*IREMAINDER *1*IQUOTIENT *1*ITIMES *1*IABS IDIFFERENCE *1*IDIFFERENCE *1*INEG *1*IPLUS ILEQ *1*ILEQ *1*ILESSP IZEROP *1*IZEROP *1*FIX-INT *1*INTEGERP GCD-IDEMPOTENCE GCD-X-X COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ZERO-CASE COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-INSTANCE GCD-PLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD EQUAL-GCD-0 GCD-1 GCD-0 SINGLE-NUMBER-INDUCTION *1*SINGLE-NUMBER-INDUCTION COMMUTATIVITY-OF-GCD LOG-EXP LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-TIMES LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT LEQ-LOG-LOG DOUBLE-LOG-INDUCTION *1*DOUBLE-LOG-INDUCTION LOG-1 LOG-0 EQUAL-LOG-0 EXP-DIFFERENCE EQUAL-EXP-1 EQUAL-EXP-0 EXP-EXP EXP-TIMES EXP-0-ARG2 EXP-1-ARG1 EXP-0-ARG1 EXP-PLUS EXP-ADD1 EXP-ZERO QUOTIENT-EXP REMAINDER-EXP-EXP DOUBLE-NUMBER-INDUCTION *1*DOUBLE-NUMBER-INDUCTION REMAINDER-EXP GCD *1*GCD LOG *1*LOG EXP *1*EXP CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES CANCEL-QUOTIENT-TIMES *1*CANCEL-QUOTIENT-TIMES LESSP-QUOTIENT QUOTIENT-X-X QUOTIENT-1-ARG1 QUOTIENT-1-ARG1-CASESPLIT QUOTIENT-1-ARG2 LEQ-QUOTIENT QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-LESSP-ARG1 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF QUOTIENT-PLUS QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 EQUAL-QUOTIENT-0 QUOTIENT-ADD1 QUOTIENT-ZERO QUOTIENT-OF-NON-NUMBER QUOTIENT-NOOP TRANSITIVITY-OF-DIVIDES REMAINDER-X-X REMAINDER-1-ARG2 REMAINDER-1-ARG1 REMAINDER-REMAINDER REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-PROOF REMAINDER-PLUS-FACT REMAINDER-DIFFERENCE2 DOUBLE-REMAINDER-INDUCTION *1*DOUBLE-REMAINDER-INDUCTION REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1 REMAINDER-TIMES1-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF EQUAL-REMAINDER-PLUS-0 EQUAL-REMAINDER-PLUS-0-PROOF REMAINDER-PLUS REMAINDER-PLUS-PROOF REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-ZERO REMAINDER-OF-NON-NUMBER REMAINDER-NOOP LESSP-REMAINDER CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES *1*CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES *1*CANCEL-LESSP-TIMES INFER-EQUALITY-FROM-NOT-LESSP LESSP-TIMES-ARG1 EVAL$-EQUAL AND-NOT-ZEROP-TREE *1*AND-NOT-ZEROP-TREE OR-ZEROP-TREE *1*OR-ZEROP-TREE TIMES-FRINGE *1*TIMES-FRINGE TIMES-TREE *1*TIMES-TREE LESSP-1-TIMES LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES3 LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF1 LESSP-TIMES2 LESSP-TIMES2-PROOF LESSP-TIMES1 LESSP-TIMES1-PROOF TIMES-1-ARG1 TIMES-QUOTIENT TIMES-QUOTIENT-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ASSOCIATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-PROOF COMMUTATIVITY-OF-TIMES TIMES-ADD1 TIMES-ZERO EQUAL-SUB1-0 EQUAL-TIMES-1 EQUAL-TIMES-0 CORRECTNESS-OF-CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS *1*CANCEL-LESSP-PLUS DIFFERENCE-X-X DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-SUB1-ARG2 DIFFERENCE-ADD1-ARG2 DIFFERENCE-LEQ-ARG1 DIFFERENCE-ELIM CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS *1*CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS *1*CANCEL-EQUAL-PLUS EVAL$-QUOTE PLUS-TREE *1*PLUS-TREE PLUS-FRINGE *1*PLUS-FRINGE DIFF-DIFF-ARG2 DIFF-DIFF-ARG1 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF DIFFERENCE-PLUS-CANCELLATION-PROOF PLUS-DIFFERENCE-ARG2 PLUS-DIFFERENCE-ARG1 ASSOCIATIVITY-OF-PLUS PLUS-ADD1-ARG2 PLUS-ADD1-ARG1 PLUS-ZERO-ARG2 COMMUTATIVITY2-OF-PLUS COMMUTATIVITY-OF-PLUS EQUAL-DIFFERENCE-0 EQUAL-PLUS-0 MEMBER-BAGINT OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE BAGDIFF-DELETE MEMBER-BAGDIFF OCCURRENCES-DELETE MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE MEMBER-NON-LIST EQUAL-OCCURRENCES-ZERO DELETE-DELETE DELETE-NON-MEMBER SUBBAGP *1*SUBBAGP OCCURRENCES *1*OCCURRENCES BAGINT *1*BAGINT BAGDIFF *1*BAGDIFF DELETE *1*DELETE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL-LEMMA . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-CONSTANTS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-APPEND . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT-TO-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-FOR-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ZERO-IMPLIES-NOT-EQUAL . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ZERO-ILESSP-IMPLIES-NOT-EQUAL . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-EVAL$-ITIMES-TREE-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG-EVAL$-ITIMES-TREE-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-INEG-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES--1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-NEGATIVE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-POSITIVE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBSETP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IREM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IQUO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IMOD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IDIV . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IREMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IQUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREM-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREM-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IREM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IQUO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IMOD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IREMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IQUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-INEG-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-INEG-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUO-IREM-UNIQUENESS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIV-IMOD-UNIQUENESS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-IREMAINDER-UNIQUENESS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-UNIQUENESS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-MINUS-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-0-RIGHT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LITATOM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IABS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IABS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IMOD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIV . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IREMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ITIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IABS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INEG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IPLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILEQ . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ILESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 IZEROP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 FIX-INT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INTEGERP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-IDEMPOTENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-X-X . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD-ZERO-CASE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD-ZERO-CASE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LEQ-LOG-LOG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-LOG-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-DIFFERENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-0-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-0-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-ADD1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 GCD . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LOG . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EXP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1-CASESPLIT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LEQ-QUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-FACT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-FACT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 INFER-EQUALITY-FROM-NOT-LESSP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION-PROOF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGDIFF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGINT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-DELETE-IMPLIES-MEMBERSHIP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DELETE-DELETE . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 SUBBAGP . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 OCCURRENCES . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 BAGINT . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 BAGDIFF . MATH-THEORY) (IMMEDIATE-DEPENDENTS0 DELETE . MATH-THEORY))))) (PUT1-LST (QUOTE EVAL$-ON) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE EVAL$-ON EVAL$ NIL) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL EVAL$ EVAL$-ON))))) (PUT1-LST (QUOTE INTEGERS) (QUOTE (IDATE 1000402193932 EVENT (DEFTHEORY INTEGERS (ILEQ IDIFFERENCE INTEGERP-FIX-INT INTEGERP-IPLUS INTEGERP-IDIFFERENCE INTEGERP-INEG INTEGERP-IABS INTEGERP-ITIMES FIX-INT-REMOVER FIX-INT-FIX-INT FIX-INT-IPLUS FIX-INT-IDIFFERENCE FIX-INT-INEG FIX-INT-IABS FIX-INT-ITIMES INEG-IPLUS INEG-INEG INEG-FIX-INT INEG-OF-NON-INTEGERP INEG-0 IPLUS-LEFT-ID IPLUS-RIGHT-ID IPLUS-0-LEFT IPLUS-0-RIGHT COMMUTATIVITY2-OF-IPLUS COMMUTATIVITY-OF-IPLUS ASSOCIATIVITY-OF-IPLUS IPLUS-CANCELLATION-1 IPLUS-CANCELLATION-2 IPLUS-INEG1 IPLUS-INEG2 IPLUS-FIX-INT1 IPLUS-FIX-INT2 IDIFFERENCE-FIX-INT1 IDIFFERENCE-FIX-INT2 IPLUS-LIST EVAL$-LIST-APPEND IPLUS-LIST-APPEND IPLUS-INEG3 IPLUS-INEG4 CORRECTNESS-OF-CANCEL-IPLUS ILESSP-FIX-INT-1 ILESSP-FIX-INT-2 IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-2-FOR-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP ITIMES-0-LEFT ITIMES-0-RIGHT ITIMES-FIX-INT1 ITIMES-FIX-INT2 COMMUTATIVITY-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF ITIMES-DISTRIBUTES-OVER-IPLUS COMMUTATIVITY2-OF-ITIMES ASSOCIATIVITY-OF-ITIMES EQUAL-ITIMES-0 EQUAL-ITIMES-1 EQUAL-ITIMES-MINUS-1 ITIMES-1-ARG1 QUOTIENT-REMAINDER-UNIQUENESS DIVISION-THEOREM ITIMES-INEG-1 ITIMES-INEG-2 ITIMES-CANCELLATION-1 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-3 INTEGERP-IQUOTIENT INTEGERP-IREMAINDER INTEGERP-IDIV INTEGERP-IMOD INTEGERP-IQUO INTEGERP-IREM IQUOTIENT-FIX-INT1 IQUOTIENT-FIX-INT2 IREMAINDER-FIX-INT1 IREMAINDER-FIX-INT2 IDIV-FIX-INT1 IDIV-FIX-INT2 IMOD-FIX-INT1 IMOD-FIX-INT2 IQUO-FIX-INT1 IQUO-FIX-INT2 IREM-FIX-INT1 IREM-FIX-INT2 FIX-INT-IQUOTIENT FIX-INT-IREMAINDER FIX-INT-IDIV FIX-INT-IMOD FIX-INT-IQUO FIX-INT-IREM ITIMES-LIST ITIMES-LIST-APPEND MEMBER-APPEND EQUAL-FIX-INT SUBSETP CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-ILESSP ILESSP-STRICT EVAL$-LIST-CONS EVAL$-LIST-NLISTP EVAL$-LITATOM EVAL$-QUOTE EVAL$-OTHER IPLUS-X-Y-INEG-X CORRECTNESS-OF-CANCEL-INEG INTEGERP-IPLUS-LIST EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-LIST-BAGDIFF ITIMES-TREE-INEG ITIMES-FACTORS ITIMES--1 EQUAL-INEG-INEG ILESSP-INEG-INEG FIX-INT-EVAL$-ITIMES-TREE-REC EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-OR-ITIMES-TERM CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 MEMBER-0-EVAL$-LIST CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-ILESSP-FACTORS BAGINT-SINGLETON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS DISJOIN-EQUALITIES-WITH-0 CANCEL-FACTORS-0 SOME-EVAL$S-TO-0 EVAL$-DISJOIN-EQUALITIES-WITH-0 SOME-EVAL$S-TO-0-APPEND SOME-EVAL$S-TO-0-ELIMINATOR CORRECTNESS-OF-CANCEL-FACTORS-0 CONJOIN-INEQUALITIES-WITH-0 CANCEL-FACTORS-ILESSP-0 SPLIT-OUT-INEG-TERMS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY IPLUS-CONSTANTS CANCEL-CONSTANTS-EQUAL ILESSP-ADD1 ILESSP-ADD1-IPLUS CANCEL-CONSTANTS-ILESSP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILEQ . INTEGERS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IABS . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IABS . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-OF-NON-INTEGERP . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-LEFT-ID . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-RIGHT-ID . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-RIGHT . INTEGERS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-0-RIGHT . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-MINUS-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-UNIQUENESS . INTEGERS) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-INEG-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-INEG-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IQUOTIENT . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IREMAINDER . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IDIV . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IMOD . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IQUO . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IREM . INTEGERS) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IREMAINDER-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IMOD-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IREM-FIX-INT1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 IREM-FIX-INT2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IQUOTIENT . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IREMAINDER . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IDIV . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IMOD . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IQUO . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IREM . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . INTEGERS) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . INTEGERS) (IMMEDIATE-DEPENDENTS0 SUBSETP . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-LITATOM . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-BAGDIFF . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES--1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-INEG-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 INEG-EVAL$-ITIMES-TREE-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 ITIMES-EVAL$-ITIMES-TREE-INEG . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS . INTEGERS) (IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-APPEND . INTEGERS) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-FACTORS-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . INTEGERS) (IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . INTEGERS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . INTEGERS) (IMMEDIATE-DEPENDENTS0 IPLUS-CONSTANTS . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . INTEGERS) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . INTEGERS) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP . INTEGERS))))) (PUT1-LST (QUOTE DIFFERENCE-IDIFFERENCE-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE DIFFERENCE-IDIFFERENCE-OFF DIFFERENCE-IDIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-IDIFFERENCE . DIFFERENCE-IDIFFERENCE-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-IDIFFERENCE DIFFERENCE-IDIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-IS-INTEGERP-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE NUMBERP-IS-INTEGERP-OFF NUMBERP-IS-INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-IS-INTEGERP . NUMBERP-IS-INTEGERP-OFF) (DISABLED-LEMMAS NIL NUMBERP-IS-INTEGERP NUMBERP-IS-INTEGERP-OFF . T))))) (PUT1-LST (QUOTE PLUS-IPLUS-OFF) (QUOTE (IDATE 1000402193932 EVENT (TOGGLE PLUS-IPLUS-OFF PLUS-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-IPLUS . PLUS-IPLUS-OFF) (DISABLED-LEMMAS NIL PLUS-IPLUS PLUS-IPLUS-OFF . T))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (CANCEL-CONSTANTS-ILESSP-OFF1 CANCEL-CONSTANTS-ILESSP-ON CANCEL-CONSTANTS-ILESSP-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA CANCEL-CONSTANTS-ILESSP (REWRITE) (EQUAL (ILESSP (IPLUS (ADD1 I) X) (IPLUS (ADD1 J) Y)) (IF (LESSP I J) (NOT (ILESSP (IPLUS (SUB1 (DIFFERENCE J I)) Y) X)) (ILESSP (IPLUS (DIFFERENCE I J) X) Y))) ((USE (CANCEL-CONSTANTS-ILESSP-LEMMA-2 (M (ADD1 I)) (N (ADD1 J)))) (EXPAND (DIFFERENCE (ADD1 I) (ADD1 J)) (DIFFERENCE (ADD1 J) (ADD1 I)) (LESSP (ADD1 I) (ADD1 J))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-2 . CANCEL-CONSTANTS-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS . CANCEL-CONSTANTS-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . CANCEL-CONSTANTS-ILESSP) (LEMMAS ILESSP . CANCEL-CONSTANTS-ILESSP))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-2) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-2-ON CANCEL-CONSTANTS-ILESSP-LEMMA-2-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP) EVENT (PROVE-LEMMA CANCEL-CONSTANTS-ILESSP-LEMMA-2 NIL (IMPLIES (AND (NUMBERP M) (NUMBERP N)) (EQUAL (ILESSP (IPLUS M X) (IPLUS N Y)) (IF (LESSP M N) (NOT (ILESSP (IPLUS (SUB1 (DIFFERENCE N M)) Y) X)) (ILESSP (IPLUS (DIFFERENCE M N) X) Y)))) ((USE (CANCEL-CONSTANTS-ILESSP-LEMMA-1) (ILESSP-ADD1-IPLUS (Y (SUB1 (DIFFERENCE N M))) (Z Y) (X X))) (DISABLE ILESSP-ADD1-IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-IDIFFERENCE . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-ILESSP-LEMMA-1 . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ILESSP . CANCEL-CONSTANTS-ILESSP-LEMMA-2))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-ILESSP-LEMMA-1) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF1 CANCEL-CONSTANTS-ILESSP-LEMMA-1-ON CANCEL-CONSTANTS-ILESSP-LEMMA-1-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP-LEMMA-2) EVENT (PROVE-LEMMA CANCEL-CONSTANTS-ILESSP-LEMMA-1 NIL (IMPLIES (AND (NUMBERP M) (NUMBERP N)) (EQUAL (ILESSP (IPLUS M X) (IPLUS N Y)) (IF (LESSP M N) (ILESSP X (IPLUS (DIFFERENCE N M) Y)) (ILESSP (IPLUS (DIFFERENCE M N) X) Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-IDIFFERENCE . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 IPLUS . CANCEL-CONSTANTS-ILESSP-LEMMA-1) (IMMEDIATE-DEPENDENTS0 ILESSP . CANCEL-CONSTANTS-ILESSP-LEMMA-1))))) (PUT1-LST (QUOTE ILESSP-ADD1-IPLUS) (QUOTE (IDATE 1000402193932 IMMEDIATE-DEPENDENTS0 (ILESSP-ADD1-IPLUS-OFF1 ILESSP-ADD1-IPLUS-ON ILESSP-ADD1-IPLUS-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2) EVENT (PROVE-LEMMA ILESSP-ADD1-IPLUS (REWRITE) (IMPLIES (NUMBERP Y) (EQUAL (ILESSP X (IPLUS (ADD1 Y) Z)) (NOT (ILESSP (IPLUS Y Z) X)))) ((ENABLE-THEORY INTEGER-DEFNS) (DISABLE PLUS-IPLUS DIFFERENCE-IDIFFERENCE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 ILESSP-ADD1 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . ILESSP-ADD1-IPLUS) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ADD1-IPLUS) (LEMMAS ILESSP . ILESSP-ADD1-IPLUS))))) (PUT1-LST (QUOTE ILESSP-ADD1) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (ILESSP-ADD1-OFF1 ILESSP-ADD1-ON ILESSP-ADD1-OFF MATH-THEORY INTEGERS ILESSP-ADD1-IPLUS) EVENT (PROVE-LEMMA ILESSP-ADD1 (REWRITE) (IMPLIES (NUMBERP Y) (EQUAL (ILESSP X (ADD1 Y)) (NOT (ILESSP Y X)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-ADD1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ADD1) (LEMMAS ILESSP . ILESSP-ADD1))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (CANCEL-CONSTANTS-EQUAL-OFF1 CANCEL-CONSTANTS-EQUAL-ON CANCEL-CONSTANTS-EQUAL-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA CANCEL-CONSTANTS-EQUAL (REWRITE) (EQUAL (EQUAL (IPLUS (ADD1 I) X) (IPLUS (ADD1 J) Y)) (IF (LESSP I J) (EQUAL (FIX-INT X) (IPLUS (DIFFERENCE J I) Y)) (EQUAL (IPLUS (DIFFERENCE I J) X) (FIX-INT Y)))) ((USE (CANCEL-CONSTANTS-EQUAL-LEMMA (M (ADD1 I)) (N (ADD1 J)))) (EXPAND (DIFFERENCE (ADD1 I) (ADD1 J)) (DIFFERENCE (ADD1 J) (ADD1 I)) (LESSP (ADD1 I) (ADD1 J))) (DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-CONSTANTS-EQUAL-LEMMA . CANCEL-CONSTANTS-EQUAL) (IMMEDIATE-DEPENDENTS0 FIX-INT . CANCEL-CONSTANTS-EQUAL) (IMMEDIATE-DEPENDENTS0 IPLUS . CANCEL-CONSTANTS-EQUAL) (LEMMAS EQUAL . CANCEL-CONSTANTS-EQUAL))))) (PUT1-LST (QUOTE CANCEL-CONSTANTS-EQUAL-LEMMA) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (CANCEL-CONSTANTS-EQUAL-LEMMA-OFF1 CANCEL-CONSTANTS-EQUAL-LEMMA-ON CANCEL-CONSTANTS-EQUAL-LEMMA-OFF MATH-THEORY CANCEL-CONSTANTS-EQUAL) EVENT (PROVE-LEMMA CANCEL-CONSTANTS-EQUAL-LEMMA NIL (IMPLIES (AND (NUMBERP M) (NUMBERP N)) (EQUAL (EQUAL (IPLUS M X) (IPLUS N Y)) (IF (LESSP M N) (EQUAL (FIX-INT X) (IPLUS (DIFFERENCE N M) Y)) (EQUAL (IPLUS (DIFFERENCE M N) X) (FIX-INT Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-IDIFFERENCE . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT . CANCEL-CONSTANTS-EQUAL-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS . CANCEL-CONSTANTS-EQUAL-LEMMA))))) (PUT1-LST (QUOTE DIFFERENCE-IDIFFERENCE) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-IDIFFERENCE-OFF CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-EQUAL-LEMMA) EVENT (PROVE-LEMMA DIFFERENCE-IDIFFERENCE (REWRITE) (IMPLIES (AND (NUMBERP X) (AND (NUMBERP Y) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (EQUAL (DIFFERENCE Y X) (IDIFFERENCE Y X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-IPLUS . DIFFERENCE-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . DIFFERENCE-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY . DIFFERENCE-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 NUMBERP-IS-INTEGERP . DIFFERENCE-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIFFERENCE-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIFFERENCE-IDIFFERENCE) (LEMMAS DIFFERENCE . DIFFERENCE-IDIFFERENCE))))) (PUT1-LST (QUOTE NUMBERP-IS-INTEGERP) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (NUMBERP-IS-INTEGERP-OFF DIFFERENCE-IDIFFERENCE) EVENT (PROVE-LEMMA NUMBERP-IS-INTEGERP (REWRITE) (IMPLIES (NUMBERP W) (INTEGERP W)) ((ENABLE INTEGERP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . NUMBERP-IS-INTEGERP) (LEMMAS INTEGERP . NUMBERP-IS-INTEGERP))))) (PUT1-LST (QUOTE IPLUS-CONSTANTS) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (IPLUS-CONSTANTS-OFF1 IPLUS-CONSTANTS-ON IPLUS-CONSTANTS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IPLUS-CONSTANTS (REWRITE) (EQUAL (IPLUS (ADD1 I) (IPLUS (ADD1 J) X)) (IPLUS (PLUS (ADD1 I) (ADD1 J)) X)) ((ENABLE FIX-INT INTEGERP) (DISABLE PLUS-ADD1-ARG1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-CONSTANTS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . IPLUS-CONSTANTS) (IMMEDIATE-DEPENDENTS0 PLUS-IPLUS . IPLUS-CONSTANTS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . IPLUS-CONSTANTS) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-CONSTANTS) (LEMMAS IPLUS . IPLUS-CONSTANTS))))) (PUT1-LST (QUOTE PLUS-IPLUS) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (PLUS-IPLUS-OFF DIFFERENCE-IDIFFERENCE IPLUS-CONSTANTS) EVENT (PROVE-LEMMA PLUS-IPLUS (REWRITE) (IMPLIES (AND (NUMBERP I) (NUMBERP J)) (EQUAL (PLUS I J) (IPLUS I J))) ((ENABLE IPLUS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . PLUS-IPLUS) (LEMMAS PLUS . PLUS-IPLUS))))) (PUT1-LST (QUOTE INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF) (QUOTE (IDATE 1000402193931 EVENT (TOGGLE INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF INTEGERP-EVAL$-IPLUS-OR-INEG-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-IPLUS-OR-INEG-TERM . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF) (DISABLED-LEMMAS NIL INTEGERP-EVAL$-IPLUS-OR-INEG-TERM INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF . T))))) (PUT1-LST (QUOTE MINUS-INEG-OFF) (QUOTE (IDATE 1000402193931 EVENT (TOGGLE MINUS-INEG-OFF MINUS-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MINUS-INEG . MINUS-INEG-OFF) (DISABLED-LEMMAS NIL MINUS-INEG MINUS-INEG-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (QUOTE (IDATE 1000402193931 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY ((META ILESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED X) A)) ((ENABLE EVAL$-IPLUS-TREE IPLUS-LIST-EVAL$-FRINGE EVAL$-QUOTE) (DISABLE IPLUS-FRINGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-IPLUS-OR-INEG-TERM . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY) EVENT (PROVE-LEMMA CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED (REWRITE) (EQUAL (CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED X) (CANCEL-INEG-TERMS-FROM-INEQUALITY X)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE MAKE-CANCEL-INEG-TERMS-INEQUALITY IPLUS-OR-INEG-TERM CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (LEMMAS CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (QUOTE (MAIN-EVENT CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED 16 T)) LEMMAS ((REWRITE-RULE CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED NIL (EQUAL (CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED X) (CANCEL-INEG-TERMS-FROM-INEQUALITY X)) NIL)) TOTALP-LST ((CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X)) X))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X)) X)) X) X)) LISP-CODE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) EVENT (DEFN CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X)) X))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X)) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (DCELL . *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY) (QUOTE (MAIN-EVENT CANCEL-INEG-TERMS-FROM-INEQUALITY))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-INEQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG-TERMS-FROM-INEQUALITY 16 T)) TOTALP-LST ((CANCEL-INEG-TERMS-FROM-INEQUALITY . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (IPLUS-OR-INEG-TERM (CAR (CDR X))) (MAKE-CANCEL-INEG-TERMS-INEQUALITY X) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (MAKE-CANCEL-INEG-TERMS-INEQUALITY X) X)) X) X)) LISP-CODE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*CANCEL-INEG-TERMS-FROM-INEQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-ON CANCEL-INEG-TERMS-FROM-INEQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF CANCEL-INEG-TERMS-FROM-INEQUALITY-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) EVENT (DEFN CANCEL-INEG-TERMS-FROM-INEQUALITY (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE ILESSP))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR X))) (MAKE-CANCEL-INEG-TERMS-INEQUALITY X) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (MAKE-CANCEL-INEG-TERMS-INEQUALITY X) X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-INEQUALITY . CANCEL-INEG-TERMS-FROM-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . CANCEL-INEG-TERMS-FROM-INEQUALITY) (DCELL . *1*CANCEL-INEG-TERMS-FROM-INEQUALITY))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY) (QUOTE (MAIN-EVENT MAKE-CANCEL-INEG-TERMS-INEQUALITY))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-INEQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-CANCEL-INEG-TERMS-INEQUALITY 16 T)) TOTALP-LST ((MAKE-CANCEL-INEG-TERMS-INEQUALITY . T)) SDEFN (LAMBDA (X) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X)) LISP-CODE *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON MAKE-CANCEL-INEG-TERMS-INEQUALITY-ON G*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF MAKE-CANCEL-INEG-TERMS-INEQUALITY-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY) EVENT (DEFN MAKE-CANCEL-INEG-TERMS-INEQUALITY (X) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . MAKE-CANCEL-INEG-TERMS-INEQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . MAKE-CANCEL-INEG-TERMS-INEQUALITY) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . MAKE-CANCEL-INEG-TERMS-INEQUALITY) (DCELL . *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-ON CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-EQUAL-LEMMA DIFFERENCE-IDIFFERENCE) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED X) A)) ((ENABLE EVAL$-IPLUS-TREE IPLUS-LIST-EVAL$-FRINGE EVAL$-QUOTE) (DISABLE IPLUS-FRINGE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-IPLUS-OR-INEG-TERM . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY))))) (PUT1-LST (QUOTE REMOVE-INEGS-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE REMOVE-INEGS-OFF REMOVE-INEGS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . REMOVE-INEGS-OFF) (DISABLED-LEMMAS NIL REMOVE-INEGS REMOVE-INEGS-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF1 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-ON IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (PROVE-LEMMA IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS (REWRITE) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS X)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS X)) A)))) ((INDUCT (SPLIT-OUT-INEG-TERMS X)) (ENABLE EVAL$-QUOTE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 MINUS-INEG . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) (LEMMAS IPLUS-LIST . IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS))))) (PUT1-LST (QUOTE MINUS-INEG) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (MINUS-INEG-OFF IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) EVENT (PROVE-LEMMA MINUS-INEG (REWRITE) (IMPLIES (AND (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (MINUS X) (INEG X))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . MINUS-INEG) (IMMEDIATE-DEPENDENTS0 INEG . MINUS-INEG) (LEMMAS MINUS . MINUS-INEG))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (PROVE-LEMMA EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS (REWRITE) (IMPLIES (REMOVE-INEGS X Y) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (REMOVE-INEGS X Y)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS Y)) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS X)) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS) (LEMMAS IPLUS-LIST . EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF1 EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-ON EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (PROVE-LEMMA EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS (REWRITE) (IMPLIES (REMOVE-INEGS X Y) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (REMOVE-INEGS X Y)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS X)) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS Y)) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS) (LEMMAS IPLUS-LIST . EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS))))) (PUT1-LST (QUOTE IPLUS-OR-INEG-TERM-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE IPLUS-OR-INEG-TERM-OFF IPLUS-OR-INEG-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . IPLUS-OR-INEG-TERM-OFF) (DISABLED-LEMMAS NIL IPLUS-OR-INEG-TERM IPLUS-OR-INEG-TERM-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-EVAL$-IPLUS-OR-INEG-TERM) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (INTEGERP-EVAL$-IPLUS-OR-INEG-TERM-OFF CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (PROVE-LEMMA INTEGERP-EVAL$-IPLUS-OR-INEG-TERM (REWRITE) (IMPLIES (IPLUS-OR-INEG-TERM X) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM) (IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM) (LEMMAS INTEGERP . INTEGERP-EVAL$-IPLUS-OR-INEG-TERM))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF) (DISABLED-LEMMAS NIL CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (PROVE-LEMMA CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED (REWRITE) (EQUAL (CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED X) (CANCEL-INEG-TERMS-FROM-EQUALITY X)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE MAKE-CANCEL-INEG-TERMS-EQUALITY IPLUS-OR-INEG-TERM CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (LEMMAS CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (QUOTE (MAIN-EVENT CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED 16 T)) LEMMAS ((REWRITE-RULE CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED NIL (EQUAL (CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED X) (CANCEL-INEG-TERMS-FROM-EQUALITY X)) NIL)) TOTALP-LST ((CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X)) X) X) X)) LISP-CODE *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) EVENT (DEFN CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X)) X) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (DCELL . *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-EQUALITY) (QUOTE (MAIN-EVENT CANCEL-INEG-TERMS-FROM-EQUALITY))) (PUT1-LST (QUOTE CANCEL-INEG-TERMS-FROM-EQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG-TERMS-FROM-EQUALITY 16 T)) TOTALP-LST ((CANCEL-INEG-TERMS-FROM-EQUALITY . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (MAKE-CANCEL-INEG-TERMS-EQUALITY X) X) X)) LISP-CODE *1*CANCEL-INEG-TERMS-FROM-EQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*CANCEL-INEG-TERMS-FROM-EQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 CANCEL-INEG-TERMS-FROM-EQUALITY-OFF1 G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-ON CANCEL-INEG-TERMS-FROM-EQUALITY-ON G*1*CANCEL-INEG-TERMS-FROM-EQUALITY-OFF CANCEL-INEG-TERMS-FROM-EQUALITY-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) EVENT (DEFN CANCEL-INEG-TERMS-FROM-EQUALITY (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (MAKE-CANCEL-INEG-TERMS-EQUALITY X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-INEG-TERMS-EQUALITY . CANCEL-INEG-TERMS-FROM-EQUALITY) (DCELL . *1*CANCEL-INEG-TERMS-FROM-EQUALITY))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-INEG-TERMS-EQUALITY) (QUOTE (MAIN-EVENT MAKE-CANCEL-INEG-TERMS-EQUALITY))) (PUT1-LST (QUOTE MAKE-CANCEL-INEG-TERMS-EQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-CANCEL-INEG-TERMS-EQUALITY 16 T)) TOTALP-LST ((MAKE-CANCEL-INEG-TERMS-EQUALITY . T)) SDEFN (LAMBDA (X) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR X))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X)) LISP-CODE *1*MAKE-CANCEL-INEG-TERMS-EQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193930 SATELLITES (*1*MAKE-CANCEL-INEG-TERMS-EQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF1 G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-ON MAKE-CANCEL-INEG-TERMS-EQUALITY-ON G*1*MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF MAKE-CANCEL-INEG-TERMS-EQUALITY-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-EQUALITY) EVENT (DEFN MAKE-CANCEL-INEG-TERMS-EQUALITY (X) (IF (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR X))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (IF (IPLUS-OR-INEG-TERM (CAR (CDR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (CAR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (CDR (REMOVE-INEGS (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . MAKE-CANCEL-INEG-TERMS-EQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-INEG-TERM . MAKE-CANCEL-INEG-TERMS-EQUALITY) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . MAKE-CANCEL-INEG-TERMS-EQUALITY) (IMMEDIATE-DEPENDENTS0 REMOVE-INEGS . MAKE-CANCEL-INEG-TERMS-EQUALITY) (DCELL . *1*MAKE-CANCEL-INEG-TERMS-EQUALITY))))) (PUT1-LST (QUOTE *1*IPLUS-OR-INEG-TERM) (QUOTE (MAIN-EVENT IPLUS-OR-INEG-TERM))) (PUT1-LST (QUOTE IPLUS-OR-INEG-TERM) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-OR-INEG-TERM 3 NIL)) TOTALP-LST ((IPLUS-OR-INEG-TERM . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE INEG)) (QUOTE *1*TRUE) (EQUAL (CAR X) (QUOTE IPLUS))) (QUOTE *1*FALSE))) LISP-CODE *1*IPLUS-OR-INEG-TERM SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193930 SATELLITES (*1*IPLUS-OR-INEG-TERM) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-OR-INEG-TERM-OFF1 G*1*IPLUS-OR-INEG-TERM-ON G*1*IPLUS-OR-INEG-TERM-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-OR-INEG-TERM-OFF INTEGERP-EVAL$-IPLUS-OR-INEG-TERM CANCEL-INEG-TERMS-FROM-EQUALITY-CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-EQUALITY) EVENT (DEFN IPLUS-OR-INEG-TERM (X) (AND (LISTP X) (OR (EQUAL (CAR X) (QUOTE INEG)) (EQUAL (CAR X) (QUOTE IPLUS))))) LOCAL-UNDO-TUPLES ((DCELL . *1*IPLUS-OR-INEG-TERM))))) (PUT1-LST (QUOTE *1*REMOVE-INEGS) (QUOTE (MAIN-EVENT REMOVE-INEGS))) (PUT1-LST (QUOTE REMOVE-INEGS) (QUOTE (TYPE-PRESCRIPTION-LST ((REMOVE-INEGS 17 NIL NIL)) TOTALP-LST ((REMOVE-INEGS . T)) SDEFN (LAMBDA (X Y) (IF (LISTP (CDR (SPLIT-OUT-INEG-TERMS X))) (CONS (APPEND (CDR (SPLIT-OUT-INEG-TERMS Y)) (CAR (SPLIT-OUT-INEG-TERMS X))) (APPEND (CDR (SPLIT-OUT-INEG-TERMS X)) (CAR (SPLIT-OUT-INEG-TERMS Y)))) (IF (LISTP (CDR (SPLIT-OUT-INEG-TERMS Y))) (CONS (APPEND (CDR (SPLIT-OUT-INEG-TERMS Y)) (CAR (SPLIT-OUT-INEG-TERMS X))) (APPEND (CDR (SPLIT-OUT-INEG-TERMS X)) (CAR (SPLIT-OUT-INEG-TERMS Y)))) (QUOTE *1*FALSE)))) LISP-CODE *1*REMOVE-INEGS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193930 SATELLITES (*1*REMOVE-INEGS) IMMEDIATE-DEPENDENTS0 (G*1*REMOVE-INEGS-OFF1 G*1*REMOVE-INEGS-ON G*1*REMOVE-INEGS-OFF MATH-THEORY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY REMOVE-INEGS-OFF EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-EQUALITY) EVENT (DEFN REMOVE-INEGS (X Y) (IF (OR (LISTP (CDR (SPLIT-OUT-INEG-TERMS X))) (LISTP (CDR (SPLIT-OUT-INEG-TERMS Y)))) (CONS (APPEND (CDR (SPLIT-OUT-INEG-TERMS Y)) (CAR (SPLIT-OUT-INEG-TERMS X))) (APPEND (CDR (SPLIT-OUT-INEG-TERMS X)) (CAR (SPLIT-OUT-INEG-TERMS Y)))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SPLIT-OUT-INEG-TERMS . REMOVE-INEGS) (DCELL . *1*REMOVE-INEGS))))) (PUT1-LST (QUOTE *1*SPLIT-OUT-INEG-TERMS) (QUOTE (MAIN-EVENT SPLIT-OUT-INEG-TERMS))) (PUT1-LST (QUOTE SPLIT-OUT-INEG-TERMS) (QUOTE (TYPE-PRESCRIPTION-LST ((SPLIT-OUT-INEG-TERMS 16 NIL)) TOTALP-LST ((SPLIT-OUT-INEG-TERMS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CAR X)) (IF (EQUAL (CAR (CAR X)) (QUOTE INEG)) (CONS (CAR (SPLIT-OUT-INEG-TERMS (CDR X))) (CONS (CAR (CDR (CAR X))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (IF (EQUAL (CAR (CAR X)) (QUOTE QUOTE)) (IF (NEGATIVEP (CAR (CDR (CAR X)))) (IF (EQUAL (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE 0)) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CONS (CAR (SPLIT-OUT-INEG-TERMS (CDR X))) (CONS (CONS (QUOTE QUOTE) (CONS (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE NIL))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X)))))) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X)))))) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (QUOTE (NIL)))) LISP-CODE *1*SPLIT-OUT-INEG-TERMS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (LISTP (CAR X)) (EQUAL (CAR (CAR X)) (QUOTE INEG))) (((CDR X)))) (TESTS-AND-CASES ((LISTP X) (LISTP (CAR X)) (NOT (EQUAL (CAR (CAR X)) (QUOTE INEG))) (AND (EQUAL (CAR (CAR X)) (QUOTE QUOTE)) (AND (NEGATIVEP (CAR (CDR (CAR X)))) (NOT (EQUAL (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE 0)))))) (((CDR X)))) (TESTS-AND-CASES ((LISTP X) (LISTP (CAR X)) (NOT (EQUAL (CAR (CAR X)) (QUOTE INEG))) (NOT (AND (EQUAL (CAR (CAR X)) (QUOTE QUOTE)) (AND (NEGATIVEP (CAR (CDR (CAR X)))) (NOT (EQUAL (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE 0))))))) (((CDR X)))) (TESTS-AND-CASES ((LISTP X) (NOT (LISTP (CAR X)))) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193930 CONTROLLER-POCKETS (1) SATELLITES (*1*SPLIT-OUT-INEG-TERMS) IMMEDIATE-DEPENDENTS0 (G*1*SPLIT-OUT-INEG-TERMS-OFF1 SPLIT-OUT-INEG-TERMS-OFF1 G*1*SPLIT-OUT-INEG-TERMS-ON SPLIT-OUT-INEG-TERMS-ON G*1*SPLIT-OUT-INEG-TERMS-OFF SPLIT-OUT-INEG-TERMS-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS REMOVE-INEGS) EVENT (DEFN SPLIT-OUT-INEG-TERMS (X) (IF (LISTP X) (IF (LISTP (CAR X)) (IF (EQUAL (CAR (CAR X)) (QUOTE INEG)) (CONS (CAR (SPLIT-OUT-INEG-TERMS (CDR X))) (CONS (CAR (CDR (CAR X))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (IF (AND (EQUAL (CAR (CAR X)) (QUOTE QUOTE)) (AND (NEGATIVEP (CAR (CDR (CAR X)))) (NOT (EQUAL (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE 0))))) (CONS (CAR (SPLIT-OUT-INEG-TERMS (CDR X))) (CONS (CONS (QUOTE QUOTE) (CONS (NEGATIVE-GUTS (CAR (CDR (CAR X)))) (QUOTE NIL))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X)))))) (CONS (CONS (CAR X) (CAR (SPLIT-OUT-INEG-TERMS (CDR X)))) (CDR (SPLIT-OUT-INEG-TERMS (CDR X))))) (QUOTE (NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*SPLIT-OUT-INEG-TERMS))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-SUBSETP-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE SUBBAGP-SUBSETP-OFF SUBBAGP-SUBSETP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . SUBBAGP-SUBSETP-OFF) (DISABLED-LEMMAS NIL SUBBAGP-SUBSETP SUBBAGP-SUBSETP-OFF . T))))) (PUT1-LST (QUOTE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES . NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF) (DISABLED-LEMMAS NIL NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF . T))))) (PUT1-LST (QUOTE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS . NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF) (DISABLED-LEMMAS NIL NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-OFF CORRECTNESS-OF-CANCEL-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-OFF . T))))) (PUT1-LST (QUOTE LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF LISTP-CDR-FACTORS-IMPLIES-INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP . LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF) (DISABLED-LEMMAS NIL LISTP-CDR-FACTORS-IMPLIES-INTEGERP LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-0-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-0-OFF ILESSP-ITIMES-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-0 . ILESSP-ITIMES-0-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-0 ILESSP-ITIMES-0-OFF . T))))) (PUT1-LST (QUOTE ILESSP-0-ITIMES-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-0-ITIMES-OFF ILESSP-0-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-0-ITIMES . ILESSP-0-ITIMES-OFF) (DISABLED-LEMMAS NIL ILESSP-0-ITIMES ILESSP-0-ITIMES-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF . T))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF) (DISABLED-LEMMAS NIL ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF . T))))) (PUT1-LST (QUOTE IZEROP-ILESSP-0-RELATIONSHIP-OFF1) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE IZEROP-ILESSP-0-RELATIONSHIP-OFF1 IZEROP-ILESSP-0-RELATIONSHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP-ILESSP-0-RELATIONSHIP . IZEROP-ILESSP-0-RELATIONSHIP-OFF1) (DISABLED-LEMMAS NIL IZEROP-ILESSP-0-RELATIONSHIP IZEROP-ILESSP-0-RELATIONSHIP-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EVAL$-LIST-BAGINT-0-OFF EVAL$-LIST-BAGINT-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0 . EVAL$-LIST-BAGINT-0-OFF) (DISABLED-LEMMAS NIL EVAL$-LIST-BAGINT-0 EVAL$-LIST-BAGINT-0-OFF . T))))) (PUT1-LST (QUOTE IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF) (DISABLED-LEMMAS NIL IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ITIMES-LIST-EVAL$-FACTORS-OFF ITIMES-LIST-EVAL$-FACTORS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . ITIMES-LIST-EVAL$-FACTORS-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF ITIMES-LIST-EVAL$-FACTORS-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS-LEMMA . ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-FACTORS-LEMMA ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (DISABLED-LEMMAS NIL ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF) (QUOTE (IDATE 1000402193930 EVENT (TOGGLE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-ON CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0-OFF MATH-THEORY) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 ((META ILESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-FACTORS-ILESSP-0 X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-ILESSP-0 . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0))))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (QUOTE (IDATE 1000402193930 IMMEDIATE-DEPENDENTS0 (CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF1 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-ON CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) EVENT (PROVE-LEMMA CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR (REWRITE) (IMPLIES (LISTP X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONJOIN-INEQUALITIES-WITH-0 X PARITY) A) (IF PARITY (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-0 . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ILESSP-0-ITIMES . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ILESSP . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) (LEMMAS EVAL$ . CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR))))) (PUT1-LST (QUOTE *1*CANCEL-FACTORS-ILESSP-0) (QUOTE (MAIN-EVENT CANCEL-FACTORS-ILESSP-0))) (PUT1-LST (QUOTE CANCEL-FACTORS-ILESSP-0) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-FACTORS-ILESSP-0 16 T)) TOTALP-LST ((CANCEL-FACTORS-ILESSP-0 . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (EQUAL (CAR (CDR X)) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONJOIN-INEQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR (CDR X)))) (QUOTE *1*TRUE)) X) (IF (EQUAL (CAR (CDR (CDR X))) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR X))))) (CONJOIN-INEQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR X))) (QUOTE *1*FALSE)) X) X)) X) X)) LISP-CODE *1*CANCEL-FACTORS-ILESSP-0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193929 SATELLITES (*1*CANCEL-FACTORS-ILESSP-0) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-FACTORS-ILESSP-0-OFF1 CANCEL-FACTORS-ILESSP-0-OFF1 G*1*CANCEL-FACTORS-ILESSP-0-ON CANCEL-FACTORS-ILESSP-0-ON G*1*CANCEL-FACTORS-ILESSP-0-OFF CANCEL-FACTORS-ILESSP-0-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0) EVENT (DEFN CANCEL-FACTORS-ILESSP-0 (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (EQUAL (CAR (CDR X)) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONJOIN-INEQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR (CDR X)))) (QUOTE *1*TRUE)) X) (IF (EQUAL (CAR (CDR (CDR X))) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR X))))) (CONJOIN-INEQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR X))) (QUOTE *1*FALSE)) X) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONJOIN-INEQUALITIES-WITH-0 . CANCEL-FACTORS-ILESSP-0) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CANCEL-FACTORS-ILESSP-0) (DCELL . *1*CANCEL-FACTORS-ILESSP-0))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR-OFF2) (QUOTE (IDATE 1000402193929 EVENT (TOGGLE LESSP-COUNT-LISTP-CDR-OFF2 LESSP-COUNT-LISTP-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . LESSP-COUNT-LISTP-CDR-OFF2) (DISABLED-LEMMAS NIL LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF2 . T))))) (PUT1-LST (QUOTE *1*CONJOIN-INEQUALITIES-WITH-0) (QUOTE (MAIN-EVENT CONJOIN-INEQUALITIES-WITH-0))) (PUT1-LST (QUOTE CONJOIN-INEQUALITIES-WITH-0) (QUOTE (TYPE-PRESCRIPTION-LST ((CONJOIN-INEQUALITIES-WITH-0 16 NIL NIL)) TOTALP-LST ((CONJOIN-INEQUALITIES-WITH-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (FACTORS PARITY) (IF (LISTP (CDR FACTORS)) (IF PARITY (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0))))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL)))) (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0))))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL))))) (IF PARITY (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0)))))))) LISP-CODE *1*CONJOIN-INEQUALITIES-WITH-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP (CDR FACTORS)) PARITY) (((CDR FACTORS) (QUOTE *1*FALSE)) ((CDR FACTORS) (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((LISTP (CDR FACTORS)) (NOT PARITY)) (((CDR FACTORS) (QUOTE *1*FALSE)) ((CDR FACTORS) (QUOTE *1*TRUE)))) (TESTS-AND-CASES ((NOT (LISTP (CDR FACTORS))) PARITY) NIL) (TESTS-AND-CASES ((NOT (LISTP (CDR FACTORS))) (NOT PARITY)) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (FACTORS) (COUNT FACTORS) LESSP (ZERO LESSP-COUNT-LISTP-CDR))) IDATE 1000402193929 CONTROLLER-POCKETS (1) SATELLITES (*1*CONJOIN-INEQUALITIES-WITH-0) IMMEDIATE-DEPENDENTS0 (G*1*CONJOIN-INEQUALITIES-WITH-0-OFF1 CONJOIN-INEQUALITIES-WITH-0-OFF1 G*1*CONJOIN-INEQUALITIES-WITH-0-ON CONJOIN-INEQUALITIES-WITH-0-ON G*1*CONJOIN-INEQUALITIES-WITH-0-OFF CONJOIN-INEQUALITIES-WITH-0-OFF MATH-THEORY INTEGERS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CANCEL-FACTORS-ILESSP-0) EVENT (DEFN CONJOIN-INEQUALITIES-WITH-0 (FACTORS PARITY) (IF (LISTP (CDR FACTORS)) (IF PARITY (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0))))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL)))) (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0))))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (CONJOIN-INEQUALITIES-WITH-0 (CDR FACTORS) (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL))))) (IF PARITY (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (CAR FACTORS) (QUOTE NIL)))) (CONS (QUOTE ILESSP) (CONS (CAR FACTORS) (QUOTE ((QUOTE 0)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . CONJOIN-INEQUALITIES-WITH-0) (DCELL . *1*CONJOIN-INEQUALITIES-WITH-0))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR-ON1) (QUOTE (IDATE 1000402193929 EVENT (TOGGLE LESSP-COUNT-LISTP-CDR-ON1 LESSP-COUNT-LISTP-CDR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . LESSP-COUNT-LISTP-CDR-ON1) (DISABLED-LEMMAS NIL LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-ON1))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-FACTORS-0) (QUOTE (IDATE 1000402193929 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-FACTORS-0-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-FACTORS-0-ON CORRECTNESS-OF-CANCEL-FACTORS-0-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-FACTORS-0 ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-FACTORS-0 X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0-ELIMINATOR . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 EVAL$-DISJOIN-EQUALITIES-WITH-0 . CORRECTNESS-OF-CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 CANCEL-FACTORS-0 . CORRECTNESS-OF-CANCEL-FACTORS-0) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-FACTORS-0))))) (PUT1-LST (QUOTE LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (QUOTE (IDATE 1000402193929 IMMEDIATE-DEPENDENTS0 (LISTP-CDR-FACTORS-IMPLIES-INTEGERP-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-0) EVENT (PROVE-LEMMA LISTP-CDR-FACTORS-IMPLIES-INTEGERP (REWRITE) (IMPLIES (LISTP (CDR (ITIMES-FACTORS V))) (INTEGERP (EVAL$ (QUOTE *1*TRUE) V A))) ((EXPAND (ITIMES-FACTORS V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-FIX-INT . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 BAGINT . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 IPLUS . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 ITIMES . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . LISTP-CDR-FACTORS-IMPLIES-INTEGERP) (LEMMAS INTEGERP . LISTP-CDR-FACTORS-IMPLIES-INTEGERP))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-ELIMINATOR) (QUOTE (IDATE 1000402193928 IMMEDIATE-DEPENDENTS0 (SOME-EVAL$S-TO-0-ELIMINATOR-OFF1 SOME-EVAL$S-TO-0-ELIMINATOR-ON SOME-EVAL$S-TO-0-ELIMINATOR-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-FACTORS-0) EVENT (PROVE-LEMMA SOME-EVAL$S-TO-0-ELIMINATOR (REWRITE) (EQUAL (SOME-EVAL$S-TO-0 X A) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . SOME-EVAL$S-TO-0-ELIMINATOR) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-ELIMINATOR) (LEMMAS SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-ELIMINATOR))))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0-APPEND) (QUOTE (IDATE 1000402193928 IMMEDIATE-DEPENDENTS0 (SOME-EVAL$S-TO-0-APPEND-OFF1 SOME-EVAL$S-TO-0-APPEND-ON SOME-EVAL$S-TO-0-APPEND-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA SOME-EVAL$S-TO-0-APPEND (REWRITE) (EQUAL (SOME-EVAL$S-TO-0 (APPEND X Y) A) (OR (SOME-EVAL$S-TO-0 X A) (SOME-EVAL$S-TO-0 Y A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-APPEND) (LEMMAS SOME-EVAL$S-TO-0 . SOME-EVAL$S-TO-0-APPEND))))) (PUT1-LST (QUOTE EVAL$-DISJOIN-EQUALITIES-WITH-0) (QUOTE (IDATE 1000402193928 IMMEDIATE-DEPENDENTS0 (EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF1 EVAL$-DISJOIN-EQUALITIES-WITH-0-ON EVAL$-DISJOIN-EQUALITIES-WITH-0-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-FACTORS-0) EVENT (PROVE-LEMMA EVAL$-DISJOIN-EQUALITIES-WITH-0 (REWRITE) (IMPLIES (LISTP LST) (EQUAL (EVAL$ (QUOTE *1*TRUE) (DISJOIN-EQUALITIES-WITH-0 LST) A) (SOME-EVAL$S-TO-0 LST A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-DISJOIN-EQUALITIES-WITH-0) (IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . EVAL$-DISJOIN-EQUALITIES-WITH-0) (IMMEDIATE-DEPENDENTS0 SOME-EVAL$S-TO-0 . EVAL$-DISJOIN-EQUALITIES-WITH-0) (IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . EVAL$-DISJOIN-EQUALITIES-WITH-0) (LEMMAS EVAL$ . EVAL$-DISJOIN-EQUALITIES-WITH-0))))) (PUT1-LST (QUOTE *1*SOME-EVAL$S-TO-0) (QUOTE (MAIN-EVENT SOME-EVAL$S-TO-0))) (PUT1-LST (QUOTE SOME-EVAL$S-TO-0) (QUOTE (TYPE-PRESCRIPTION-LST ((SOME-EVAL$S-TO-0 3 NIL NIL)) LEMMAS ((REWRITE-RULE SOME-EVAL$S-TO-0-ELIMINATOR NIL (EQUAL (SOME-EVAL$S-TO-0 X A) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0))) NIL) (REWRITE-RULE SOME-EVAL$S-TO-0-APPEND NIL (EQUAL (SOME-EVAL$S-TO-0 (APPEND X Y) A) (IF (SOME-EVAL$S-TO-0 X A) (QUOTE *1*TRUE) (SOME-EVAL$S-TO-0 Y A))) NIL)) TOTALP-LST ((SOME-EVAL$S-TO-0)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X A) (IF (LISTP X) (IF (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (QUOTE 0)) (QUOTE *1*TRUE) (IF (SOME-EVAL$S-TO-0 (CDR X) A) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) LISP-CODE *1*SOME-EVAL$S-TO-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) A))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193928 CONTROLLER-POCKETS (1) SATELLITES (*1*SOME-EVAL$S-TO-0) IMMEDIATE-DEPENDENTS0 (G*1*SOME-EVAL$S-TO-0-OFF1 SOME-EVAL$S-TO-0-OFF1 G*1*SOME-EVAL$S-TO-0-ON SOME-EVAL$S-TO-0-ON G*1*SOME-EVAL$S-TO-0-OFF SOME-EVAL$S-TO-0-OFF MATH-THEORY INTEGERS SOME-EVAL$S-TO-0-ELIMINATOR SOME-EVAL$S-TO-0-APPEND EVAL$-DISJOIN-EQUALITIES-WITH-0) EVENT (DEFN SOME-EVAL$S-TO-0 (X A) (IF (LISTP X) (OR (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (QUOTE 0)) (SOME-EVAL$S-TO-0 (CDR X) A)) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . SOME-EVAL$S-TO-0) (DCELL . *1*SOME-EVAL$S-TO-0))))) (PUT1-LST (QUOTE *1*CANCEL-FACTORS-0) (QUOTE (MAIN-EVENT CANCEL-FACTORS-0))) (PUT1-LST (QUOTE CANCEL-FACTORS-0) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-FACTORS-0 16 T)) TOTALP-LST ((CANCEL-FACTORS-0 . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (EQUAL (CAR (CDR X)) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (DISJOIN-EQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR (CDR X))))) X) (IF (EQUAL (CAR (CDR (CDR X))) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR X))))) (DISJOIN-EQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR X)))) X) X)) X) X)) LISP-CODE *1*CANCEL-FACTORS-0 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193928 SATELLITES (*1*CANCEL-FACTORS-0) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-FACTORS-0-OFF1 CANCEL-FACTORS-0-OFF1 G*1*CANCEL-FACTORS-0-ON CANCEL-FACTORS-0-ON G*1*CANCEL-FACTORS-0-OFF CANCEL-FACTORS-0-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-FACTORS-0) EVENT (DEFN CANCEL-FACTORS-0 (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (EQUAL (CAR (CDR X)) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (DISJOIN-EQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR (CDR X))))) X) (IF (EQUAL (CAR (CDR (CDR X))) (QUOTE (QUOTE 0))) (IF (LISTP (CDR (ITIMES-FACTORS (CAR (CDR X))))) (DISJOIN-EQUALITIES-WITH-0 (ITIMES-FACTORS (CAR (CDR X)))) X) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISJOIN-EQUALITIES-WITH-0 . CANCEL-FACTORS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CANCEL-FACTORS-0) (DCELL . *1*CANCEL-FACTORS-0))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR-OFF1) (QUOTE (IDATE 1000402193928 EVENT (TOGGLE LESSP-COUNT-LISTP-CDR-OFF1 LESSP-COUNT-LISTP-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . LESSP-COUNT-LISTP-CDR-OFF1) (DISABLED-LEMMAS NIL LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF1 . T))))) (PUT1-LST (QUOTE *1*DISJOIN-EQUALITIES-WITH-0) (QUOTE (MAIN-EVENT DISJOIN-EQUALITIES-WITH-0))) (PUT1-LST (QUOTE DISJOIN-EQUALITIES-WITH-0) (QUOTE (TYPE-PRESCRIPTION-LST ((DISJOIN-EQUALITIES-WITH-0 16 NIL)) TOTALP-LST ((DISJOIN-EQUALITIES-WITH-0 . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (FACTORS) (IF (LISTP (CDR FACTORS)) (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (CAR FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0))))) (CONS (DISJOIN-EQUALITIES-WITH-0 (CDR FACTORS)) (QUOTE NIL)))) (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (CAR FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0))))))) LISP-CODE *1*DISJOIN-EQUALITIES-WITH-0 SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP (CDR FACTORS))) (((CDR FACTORS)))) (TESTS-AND-CASES ((NOT (LISTP (CDR FACTORS)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (FACTORS) (COUNT FACTORS) LESSP (ZERO LESSP-COUNT-LISTP-CDR))) IDATE 1000402193928 CONTROLLER-POCKETS (1) SATELLITES (*1*DISJOIN-EQUALITIES-WITH-0) IMMEDIATE-DEPENDENTS0 (G*1*DISJOIN-EQUALITIES-WITH-0-OFF1 DISJOIN-EQUALITIES-WITH-0-OFF1 G*1*DISJOIN-EQUALITIES-WITH-0-ON DISJOIN-EQUALITIES-WITH-0-ON G*1*DISJOIN-EQUALITIES-WITH-0-OFF DISJOIN-EQUALITIES-WITH-0-OFF MATH-THEORY INTEGERS EVAL$-DISJOIN-EQUALITIES-WITH-0 CANCEL-FACTORS-0) EVENT (DEFN DISJOIN-EQUALITIES-WITH-0 (FACTORS) (IF (LISTP (CDR FACTORS)) (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (CAR FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0))))) (CONS (DISJOIN-EQUALITIES-WITH-0 (CDR FACTORS)) (QUOTE NIL)))) (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (CAR FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . DISJOIN-EQUALITIES-WITH-0) (DCELL . *1*DISJOIN-EQUALITIES-WITH-0))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR-ON) (QUOTE (IDATE 1000402193928 EVENT (TOGGLE LESSP-COUNT-LISTP-CDR-ON LESSP-COUNT-LISTP-CDR NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . LESSP-COUNT-LISTP-CDR-ON) (DISABLED-LEMMAS NIL LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (QUOTE (IDATE 1000402193928 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-ON CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS ((META ILESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-ITIMES-ILESSP-FACTORS X) A)) ((DO-NOT-INDUCT T) (ENABLE EVAL$-ITIMES-TREE-NO-FIX-INT-1 EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS))))) (PUT1-LST (QUOTE ILESSP-TRICHOTOMY-OFF1) (QUOTE (IDATE 1000402193927 EVENT (TOGGLE ILESSP-TRICHOTOMY-OFF1 ILESSP-TRICHOTOMY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . ILESSP-TRICHOTOMY-OFF1) (DISABLED-LEMMAS NIL ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-OFF1 . T))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) EVENT (PROVE-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP (REWRITE) (IMPLIES (AND (NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A))))) (AND (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) V A) (EVAL$ (QUOTE *1*TRUE) W A))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) V A))))) ((USE (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (EQUAL-FIX-INT-TO-ILESSP (X (EVAL$ (QUOTE *1*TRUE) V A)) (Y (EVAL$ (QUOTE *1*TRUE) W A))) (EQUAL-FIX-INT-TO-ILESSP (X (EVAL$ (QUOTE *1*TRUE) W A)) (Y (EVAL$ (QUOTE *1*TRUE) V A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT-TO-ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (LEMMAS ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) (LEMMAS ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP))))) (PUT1-LST (QUOTE EQUAL-FIX-INT-TO-ILESSP) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (EQUAL-FIX-INT-TO-ILESSP-OFF1 EQUAL-FIX-INT-TO-ILESSP-ON EQUAL-FIX-INT-TO-ILESSP-OFF MATH-THEORY EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) EVENT (PROVE-LEMMA EQUAL-FIX-INT-TO-ILESSP NIL (IMPLIES (EQUAL (FIX-INT X) (FIX-INT Y)) (NOT (ILESSP X Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . EQUAL-FIX-INT-TO-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-FIX-INT-TO-ILESSP))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-ON EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA-OFF MATH-THEORY EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP) EVENT (PROVE-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA NIL (IMPLIES (AND (NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A))))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) V A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) W A)))) ((USE (EVAL$-LIST-BAGINT-0-FOR-ILESSP (X (ITIMES-FACTORS V)) (Y (ITIMES-FACTORS W)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-FOR-ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-FOR-ILESSP) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF1 EVAL$-LIST-BAGINT-0-FOR-ILESSP-ON EVAL$-LIST-BAGINT-0-FOR-ILESSP-OFF MATH-THEORY EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA) EVENT (PROVE-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP NIL (IMPLIES (AND (NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A))))) (AND (EQUAL (FIX-INT (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) (QUOTE 0)) (EQUAL (FIX-INT (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (QUOTE 0)))) ((USE (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y X)) (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-LIST-BAGINT-0-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-LIST-BAGINT-0-FOR-ILESSP))))) (PUT1-LST (QUOTE IZEROP-ILESSP-0-RELATIONSHIP-OFF) (QUOTE (IDATE 1000402193927 EVENT (TOGGLE IZEROP-ILESSP-0-RELATIONSHIP-OFF IZEROP-ILESSP-0-RELATIONSHIP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP-ILESSP-0-RELATIONSHIP . IZEROP-ILESSP-0-RELATIONSHIP-OFF) (DISABLED-LEMMAS NIL IZEROP-ILESSP-0-RELATIONSHIP IZEROP-ILESSP-0-RELATIONSHIP-OFF . T))))) (PUT1-LST (QUOTE ILESSP-TRICHOTOMY-ON) (QUOTE (IDATE 1000402193927 EVENT (TOGGLE ILESSP-TRICHOTOMY-ON ILESSP-TRICHOTOMY NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . ILESSP-TRICHOTOMY-ON) (DISABLED-LEMMAS NIL ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-ON))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 (REWRITE) (IMPLIES (ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) W A)) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W)))) ((USE (MEMBER-0-ITIMES-FACTORS-YIELDS-0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2) (IMMEDIATE-DEPENDENTS0 ILESSP . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2) (LEMMAS MEMBER . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) EVENT (PROVE-LEMMA MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 (REWRITE) (IMPLIES (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W)))) ((USE (MEMBER-0-ITIMES-FACTORS-YIELDS-0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-0-ITIMES-FACTORS-YIELDS-0 . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1) (IMMEDIATE-DEPENDENTS0 ILESSP . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1) (LEMMAS MEMBER . MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1))))) (PUT1-LST (QUOTE MEMBER-0-ITIMES-FACTORS-YIELDS-0) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF1 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ON MEMBER-0-ITIMES-FACTORS-YIELDS-0-OFF MATH-THEORY INTEGERS MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1) EVENT (PROVE-LEMMA MEMBER-0-ITIMES-FACTORS-YIELDS-0 (REWRITE) (IMPLIES (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0))) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 BAGINT-SINGLETON . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 BAGINT . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 IPLUS . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 ITIMES . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . MEMBER-0-ITIMES-FACTORS-YIELDS-0) (LEMMAS MEMBER . MEMBER-0-ITIMES-FACTORS-YIELDS-0))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 (REWRITE) (IMPLIES (AND (SUBBAGP IN-BOTH BAG1) (AND (SUBBAGP IN-BOTH BAG2) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A))))) ((USE (ILESSP-ZERO-IMPLIES-NOT-EQUAL (X (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 ILESSP-ZERO-IMPLIES-NOT-EQUAL . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2))))) (PUT1-LST (QUOTE ILESSP-ZERO-IMPLIES-NOT-EQUAL) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF1 ILESSP-ZERO-IMPLIES-NOT-EQUAL-ON ILESSP-ZERO-IMPLIES-NOT-EQUAL-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2) EVENT (PROVE-LEMMA ILESSP-ZERO-IMPLIES-NOT-EQUAL NIL (IMPLIES (ILESSP X (QUOTE 0)) (NOT (EQUAL (QUOTE 0) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ZERO-IMPLIES-NOT-EQUAL))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 (REWRITE) (IMPLIES (AND (SUBBAGP IN-BOTH BAG1) (AND (SUBBAGP IN-BOTH BAG2) (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A))))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A))))) ((USE (ZERO-ILESSP-IMPLIES-NOT-EQUAL (X (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (IMMEDIATE-DEPENDENTS0 ZERO-ILESSP-IMPLIES-NOT-EQUAL . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1))))) (PUT1-LST (QUOTE ZERO-ILESSP-IMPLIES-NOT-EQUAL) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF1 ZERO-ILESSP-IMPLIES-NOT-EQUAL-ON ZERO-ILESSP-IMPLIES-NOT-EQUAL-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) EVENT (PROVE-LEMMA ZERO-ILESSP-IMPLIES-NOT-EQUAL NIL (IMPLIES (ILESSP (QUOTE 0) X) (NOT (EQUAL (QUOTE 0) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ZERO-ILESSP-IMPLIES-NOT-EQUAL))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (QUOTE (IDATE 1000402193927 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF MATH-THEORY INTEGERS ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP IN-BOTH BAG1) (AND (SUBBAGP IN-BOTH BAG2) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0))))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (IF (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)))))) ((ENABLE ILESSP-TRICHOTOMY) (DISABLE IZEROP-ILESSP-0-RELATIONSHIP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ILESSP-0-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF))))) (PUT1-LST (QUOTE ILESSP-ITIMES-0) (QUOTE (IDATE 1000402193920 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-0-OFF CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR) EVENT (PROVE-LEMMA ILESSP-ITIMES-0 (REWRITE) (EQUAL (ILESSP (ITIMES X Y) (QUOTE 0)) (OR (AND (ILESSP (QUOTE 0) X) (ILESSP Y (QUOTE 0))) (AND (ILESSP X (QUOTE 0)) (ILESSP (QUOTE 0) Y)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-0) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-0) (LEMMAS ILESSP . ILESSP-ITIMES-0))))) (PUT1-LST (QUOTE ILESSP-0-ITIMES) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-0-ITIMES-OFF CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) EVENT (PROVE-LEMMA ILESSP-0-ITIMES (REWRITE) (EQUAL (ILESSP (QUOTE 0) (ITIMES X Y)) (OR (AND (ILESSP (QUOTE 0) X) (ILESSP (QUOTE 0) Y)) (AND (ILESSP X (QUOTE 0)) (ILESSP Y (QUOTE 0))))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-0-ITIMES) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-0-ITIMES) (LEMMAS ILESSP . ILESSP-0-ITIMES))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME (REWRITE) (IMPLIES (AND (MEMBER Z Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)) X) (IF (ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) Z A)) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A))) (IF (ILESSP (EVAL$ (QUOTE *1*TRUE) Z A) (QUOTE 0)) (ILESSP (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (QUOTE *1*FALSE))))) ((ENABLE ITIMES-LIST-EVAL$-DELETE) (DISABLE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP-ILESSP-0-RELATIONSHIP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 (REWRITE) (IMPLIES (ILESSP W (QUOTE 0)) (EQUAL (ILESSP (ITIMES X W) (ITIMES W U)) (ILESSP U X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 (REWRITE) (IMPLIES (ILESSP (QUOTE 0) W) (EQUAL (ILESSP (ITIMES W U) (ITIMES X W)) (ILESSP U X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE (REWRITE) (IMPLIES (AND (MEMBER Z Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0)))) (EQUAL (ILESSP X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A))) (IF (ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) Z A)) (ILESSP (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (IF (ILESSP (EVAL$ (QUOTE *1*TRUE) Z A) (QUOTE 0)) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A))) (QUOTE *1*FALSE))))) ((ENABLE ITIMES-LIST-EVAL$-DELETE) (DISABLE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP-ILESSP-0-RELATIONSHIP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 (REWRITE) (IMPLIES (ILESSP W (QUOTE 0)) (EQUAL (ILESSP (ITIMES W U) (ITIMES X W)) (ILESSP X U)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2))))) (PUT1-LST (QUOTE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) EVENT (PROVE-LEMMA ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 (REWRITE) (IMPLIES (ILESSP (QUOTE 0) W) (EQUAL (ILESSP (ITIMES X W) (ITIMES W U)) (ILESSP X U)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) (LEMMAS ILESSP . ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1))))) (PUT1-LST (QUOTE IZEROP-ILESSP-0-RELATIONSHIP) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (IZEROP-ILESSP-0-RELATIONSHIP-OFF1 IZEROP-ILESSP-0-RELATIONSHIP-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE) EVENT (PROVE-LEMMA IZEROP-ILESSP-0-RELATIONSHIP (REWRITE) (EQUAL (EQUAL (FIX-INT X) (QUOTE 0)) (AND (NOT (ILESSP X (QUOTE 0))) (NOT (ILESSP (QUOTE 0) X)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IZEROP-ILESSP-0-RELATIONSHIP) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IZEROP-ILESSP-0-RELATIONSHIP) (IMMEDIATE-DEPENDENTS0 ILESSP . IZEROP-ILESSP-0-RELATIONSHIP) (IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP-ILESSP-0-RELATIONSHIP) (LEMMAS EQUAL . IZEROP-ILESSP-0-RELATIONSHIP))))) (PUT1-LST (QUOTE BAGINT-SINGLETON) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (BAGINT-SINGLETON-OFF1 BAGINT-SINGLETON-ON BAGINT-SINGLETON-OFF MATH-THEORY INTEGERS LISTP-CDR-FACTORS-IMPLIES-INTEGERP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS MEMBER-0-ITIMES-FACTORS-YIELDS-0) EVENT (PROVE-LEMMA BAGINT-SINGLETON (REWRITE) (EQUAL (BAGINT X (CONS Y (QUOTE NIL))) (IF (MEMBER Y X) (CONS Y (QUOTE NIL)) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . BAGINT-SINGLETON) (IMMEDIATE-DEPENDENTS0 DELETE . BAGINT-SINGLETON) (IMMEDIATE-DEPENDENTS0 BAGINT . BAGINT-SINGLETON) (LEMMAS BAGINT . BAGINT-SINGLETON))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-ILESSP-FACTORS) (QUOTE (MAIN-EVENT CANCEL-ITIMES-ILESSP-FACTORS))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP-FACTORS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ITIMES-ILESSP-FACTORS 16 T)) TOTALP-LST ((CANCEL-ITIMES-ILESSP-FACTORS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-INEQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) X) X) X)) LISP-CODE *1*CANCEL-ITIMES-ILESSP-FACTORS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193919 SATELLITES (*1*CANCEL-ITIMES-ILESSP-FACTORS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF1 CANCEL-ITIMES-ILESSP-FACTORS-OFF1 G*1*CANCEL-ITIMES-ILESSP-FACTORS-ON CANCEL-ITIMES-ILESSP-FACTORS-ON G*1*CANCEL-ITIMES-ILESSP-FACTORS-OFF CANCEL-ITIMES-ILESSP-FACTORS-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS) EVENT (DEFN CANCEL-ITIMES-ILESSP-FACTORS (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-INEQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) X) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CANCEL-ITIMES-ILESSP-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-ITIMES-ILESSP-FACTORS) (DCELL . *1*CANCEL-ITIMES-ILESSP-FACTORS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-ON CORRECTNESS-OF-CANCEL-ITIMES-FACTORS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-FACTORS ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-ITIMES-FACTORS-EXPANDED X) A)) ((DO-NOT-INDUCT T) (ENABLE EVAL$-ITIMES-TREE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-FACTORS))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) EVENT (PROVE-LEMMA EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL (REWRITE) (IMPLIES (AND (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0)) (AND (INTEGERP (EVAL$ (QUOTE *1*TRUE) V A)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) W A)))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) V A) (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE *1*TRUE))) ((USE (EVAL$-LIST-BAGINT-0 (X (ITIMES-FACTORS V)) (Y (ITIMES-FACTORS W)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-BAGINT-0 . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 INTEGERP . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) (LEMMAS EQUAL . EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL))))) (PUT1-LST (QUOTE EVAL$-LIST-BAGINT-0) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-OFF EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) EVENT (PROVE-LEMMA EVAL$-LIST-BAGINT-0 NIL (IMPLIES (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0)) (AND (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)))) ((USE (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y X)) (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . EVAL$-LIST-BAGINT-0) (IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . EVAL$-LIST-BAGINT-0) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . EVAL$-LIST-BAGINT-0) (IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . EVAL$-LIST-BAGINT-0) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-LIST-BAGINT-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-LIST-BAGINT-0))))) (PUT1-LST (QUOTE IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (QUOTE (IDATE 1000402193919 IMMEDIATE-DEPENDENTS0 (IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) EVENT (PROVE-LEMMA IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ (REWRITE) (IMPLIES (IPLUS-OR-ITIMES-TERM X) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE IPLUS-OR-ITIMES-TERM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-INEG . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) (LEMMAS INTEGERP . IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS-OFF CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-FACTORS (REWRITE) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (ITIMES-FACTORS X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (ITIMES-FACTORS X)) (ENABLE INTEGERP-EVAL$-ITIMES ITIMES-LIST-BAGDIFF LISTP-BAGINT-WITH-SINGLETON-MEMBER))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 INEG . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES--1 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-MEMBER . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 MEMBER-0-EVAL$-LIST . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-EVAL$-ITIMES-TREE-INEG . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS-LEMMA . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . ITIMES-LIST-EVAL$-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-FACTORS) (LEMMAS ITIMES-LIST . ITIMES-LIST-EVAL$-FACTORS))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME-OFF ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME (REWRITE) (EQUAL (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT BAG1 BAG2) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 (BAGINT BAG1 BAG2)) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A))) ((USE (ITIMES-LIST-BAGDIFF (X (BAGINT BAG1 BAG2)) (Y BAG1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 BAGINT . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME) (LEMMAS ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FACTORS-LEMMA) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS-LEMMA-OFF ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-FACTORS-LEMMA (REWRITE) (EQUAL (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT BAG1 BAG2) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 (BAGINT BAG1 BAG2)) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A))) ((USE (ITIMES-LIST-BAGDIFF (X (BAGINT BAG1 BAG2)) (Y BAG2))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 BAGINT . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA) (LEMMAS ITIMES . ITIMES-LIST-EVAL$-FACTORS-LEMMA))))) (PUT1-LST (QUOTE MEMBER-0-EVAL$-LIST) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (MEMBER-0-EVAL$-LIST-OFF1 MEMBER-0-EVAL$-LIST-ON MEMBER-0-EVAL$-LIST-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA MEMBER-0-EVAL$-LIST (REWRITE) (IMPLIES (MEMBER (QUOTE 0) X) (MEMBER (QUOTE 0) (EVAL$ (QUOTE LIST) X A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . MEMBER-0-EVAL$-LIST) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . MEMBER-0-EVAL$-LIST) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-0-EVAL$-LIST) (LEMMAS MEMBER . MEMBER-0-EVAL$-LIST))))) (PUT1-LST (QUOTE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF1 MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-ON MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 (REWRITE) (IMPLIES (MEMBER (QUOTE 0) X) (EQUAL (ITIMES-LIST X) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0) (LEMMAS ITIMES-LIST . MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (QUOTE (IDATE 1000402193918 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF-OFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) EVENT (PROVE-LEMMA EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP IN-BOTH BAG1) (AND (SUBBAGP IN-BOTH BAG2) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0))))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) (LEMMAS EQUAL . EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF))))) (PUT1-LST (QUOTE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (QUOTE (IDATE 1000402193917 IMMEDIATE-DEPENDENTS0 (ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE-OFF ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) EVENT (PROVE-LEMMA ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE (REWRITE) (IMPLIES (MEMBER X BAG) (EQUAL (ITIMES (EVAL$ (QUOTE *1*TRUE) X A) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE X BAG) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE) (LEMMAS ITIMES . ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (QUOTE (IDATE 1000402193917 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF) EVENT (PROVE-LEMMA EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 (REWRITE) (IMPLIES (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) ELT A)) (QUOTE 0))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE ELT BAG) A)) X) (IF (MEMBER ELT BAG) (AND (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) ELT A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))) (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) (LEMMAS EQUAL . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (QUOTE (IDATE 1000402193917 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2) EVENT (PROVE-LEMMA EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 (REWRITE) (IMPLIES (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) ELT A)) (QUOTE 0))) (EQUAL (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE ELT BAG) A))) (IF (MEMBER ELT BAG) (AND (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) ELT A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))) (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))))) ((ENABLE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1) (LEMMAS EQUAL . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1))))) (PUT1-LST (QUOTE IPLUS-OR-ITIMES-TERM-OFF) (QUOTE (IDATE 1000402193917 EVENT (TOGGLE IPLUS-OR-ITIMES-TERM-OFF IPLUS-OR-ITIMES-TERM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . IPLUS-OR-ITIMES-TERM-OFF) (DISABLED-LEMMAS NIL IPLUS-OR-ITIMES-TERM IPLUS-OR-ITIMES-TERM-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED-OFF) (QUOTE (IDATE 1000402193917 EVENT (TOGGLE CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . CANCEL-ITIMES-FACTORS-EXPANDED-OFF) (DISABLED-LEMMAS NIL CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS-EXPANDED-OFF . T))))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) (QUOTE (IDATE 1000402193917 IMMEDIATE-DEPENDENTS0 (CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS) EVENT (PROVE-LEMMA CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS (REWRITE) (EQUAL (CANCEL-ITIMES-FACTORS-EXPANDED X) (CANCEL-ITIMES-FACTORS X)) ((DISABLE-THEORY T) (ENABLE-THEORY GROUND-ZERO) (ENABLE IPLUS-OR-ITIMES-TERM CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-FACTORS-EXPANDED . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) (LEMMAS CANCEL-ITIMES-FACTORS-EXPANDED . CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-FACTORS-EXPANDED) (QUOTE (MAIN-EVENT CANCEL-ITIMES-FACTORS-EXPANDED))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS-EXPANDED) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ITIMES-FACTORS-EXPANDED 16 T)) LEMMAS ((REWRITE-RULE CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS NIL (EQUAL (CANCEL-ITIMES-FACTORS-EXPANDED X) (CANCEL-ITIMES-FACTORS X)) NIL)) TOTALP-LST ((CANCEL-ITIMES-FACTORS-EXPANDED . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR X))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR X))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) X) X)) LISP-CODE *1*CANCEL-ITIMES-FACTORS-EXPANDED SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193916 SATELLITES (*1*CANCEL-ITIMES-FACTORS-EXPANDED) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF1 G*1*CANCEL-ITIMES-FACTORS-EXPANDED-ON G*1*CANCEL-ITIMES-FACTORS-EXPANDED-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) EVENT (DEFN CANCEL-ITIMES-FACTORS-EXPANDED (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR X))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR X))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE INEG)) (IF (LISTP (CAR (CDR (CAR (CDR (CDR X)))))) (IF (EQUAL (CAR (CAR (CDR (CAR (CDR (CDR X)))))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X) X))) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . CANCEL-ITIMES-FACTORS-EXPANDED) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CANCEL-ITIMES-FACTORS-EXPANDED) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-ITIMES-FACTORS-EXPANDED) (DCELL . *1*CANCEL-ITIMES-FACTORS-EXPANDED))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-FACTORS) (QUOTE (MAIN-EVENT CANCEL-ITIMES-FACTORS))) (PUT1-LST (QUOTE CANCEL-ITIMES-FACTORS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ITIMES-FACTORS 16 T)) TOTALP-LST ((CANCEL-ITIMES-FACTORS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR X))) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR (CDR X)))) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR (CDR X)))) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X)) X) X)) LISP-CODE *1*CANCEL-ITIMES-FACTORS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402193916 SATELLITES (*1*CANCEL-ITIMES-FACTORS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-ITIMES-FACTORS-OFF1 CANCEL-ITIMES-FACTORS-OFF1 G*1*CANCEL-ITIMES-FACTORS-ON CANCEL-ITIMES-FACTORS-ON G*1*CANCEL-ITIMES-FACTORS-OFF CANCEL-ITIMES-FACTORS-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS) EVENT (DEFN CANCEL-ITIMES-FACTORS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR X))) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR (CDR X)))) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE))))))) X) (IF (IPLUS-OR-ITIMES-TERM (CAR (CDR (CDR X)))) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE *1*FALSE)))))) X) X)) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-FACTORS . CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 IPLUS-OR-ITIMES-TERM . CANCEL-ITIMES-FACTORS) (DCELL . *1*CANCEL-ITIMES-FACTORS))))) (PUT1-LST (QUOTE *1*IPLUS-OR-ITIMES-TERM) (QUOTE (MAIN-EVENT IPLUS-OR-ITIMES-TERM))) (PUT1-LST (QUOTE IPLUS-OR-ITIMES-TERM) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-OR-ITIMES-TERM 3 NIL)) TOTALP-LST ((IPLUS-OR-ITIMES-TERM . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (QUOTE INEG)) (IF (LISTP (CAR (CDR X))) (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE))) LISP-CODE *1*IPLUS-OR-ITIMES-TERM SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193916 SATELLITES (*1*IPLUS-OR-ITIMES-TERM) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-OR-ITIMES-TERM-OFF1 G*1*IPLUS-OR-ITIMES-TERM-ON G*1*IPLUS-OR-ITIMES-TERM-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ IPLUS-OR-ITIMES-TERM-OFF CANCEL-ITIMES-FACTORS-EXPANDED-CANCEL-ITIMES-FACTORS CANCEL-ITIMES-FACTORS) EVENT (DEFN IPLUS-OR-ITIMES-TERM (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (QUOTE INEG)) (IF (LISTP (CAR (CDR X))) (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) (QUOTE *1*FALSE))) LOCAL-UNDO-TUPLES ((DCELL . *1*IPLUS-OR-ITIMES-TERM))))) (PUT1-LST (QUOTE ITIMES-TREE-INEG-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE ITIMES-TREE-INEG-OFF ITIMES-TREE-INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . ITIMES-TREE-INEG-OFF) (DISABLED-LEMMAS NIL ITIMES-TREE-INEG ITIMES-TREE-INEG-OFF . T))))) (PUT1-LST (QUOTE ITIMES-EVAL$-ITIMES-TREE-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (ITIMES-EVAL$-ITIMES-TREE-INEG-OFF1 ITIMES-EVAL$-ITIMES-TREE-INEG-ON ITIMES-EVAL$-ITIMES-TREE-INEG-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ITIMES-EVAL$-ITIMES-TREE-INEG (REWRITE) (AND (EQUAL (ITIMES (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A) Y) (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) Y)) (EQUAL (ITIMES Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (ITIMES Y (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))))) ((USE (EVAL$-ITIMES-TREE-INEG)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES--1 . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT-EVAL$-ITIMES-TREE-REC . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . ITIMES-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-EVAL$-ITIMES-TREE-INEG) (LEMMAS ITIMES . ITIMES-EVAL$-ITIMES-TREE-INEG) (LEMMAS ITIMES . ITIMES-EVAL$-ITIMES-TREE-INEG))))) (PUT1-LST (QUOTE IPLUS-EVAL$-ITIMES-TREE-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (IPLUS-EVAL$-ITIMES-TREE-INEG-OFF1 IPLUS-EVAL$-ITIMES-TREE-INEG-ON IPLUS-EVAL$-ITIMES-TREE-INEG-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA IPLUS-EVAL$-ITIMES-TREE-INEG (REWRITE) (AND (EQUAL (IPLUS (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A) Y) (IPLUS (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) Y)) (EQUAL (IPLUS Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (IPLUS Y (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))))) ((USE (EVAL$-ITIMES-TREE-INEG)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2 . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . IPLUS-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-EVAL$-ITIMES-TREE-INEG) (LEMMAS IPLUS . IPLUS-EVAL$-ITIMES-TREE-INEG) (LEMMAS IPLUS . IPLUS-EVAL$-ITIMES-TREE-INEG))))) (PUT1-LST (QUOTE INEG-EVAL$-ITIMES-TREE-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (INEG-EVAL$-ITIMES-TREE-INEG-OFF1 INEG-EVAL$-ITIMES-TREE-INEG-ON INEG-EVAL$-ITIMES-TREE-INEG-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INEG-EVAL$-ITIMES-TREE-INEG (REWRITE) (EQUAL (INEG (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (INEG (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) ((USE (EVAL$-ITIMES-TREE-INEG)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EQUAL-FIX-INT . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EQUAL-INEG-INEG . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-INEG . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . INEG-EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 INEG . INEG-EVAL$-ITIMES-TREE-INEG) (LEMMAS INEG . INEG-EVAL$-ITIMES-TREE-INEG))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (EVAL$-ITIMES-TREE-INEG-OFF1 EVAL$-ITIMES-TREE-INEG-ON EVAL$-ITIMES-TREE-INEG-OFF MATH-THEORY INTEGERS ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA EVAL$-ITIMES-TREE-INEG (REWRITE) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) ((ENABLE EVAL$-ITIMES-TREE-REC))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES--1 . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . EVAL$-ITIMES-TREE-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-ITIMES-TREE-INEG) (LEMMAS FIX-INT . EVAL$-ITIMES-TREE-INEG))))) (PUT1-LST (QUOTE FIX-INT-EVAL$-ITIMES-TREE-REC) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (FIX-INT-EVAL$-ITIMES-TREE-REC-OFF1 FIX-INT-EVAL$-ITIMES-TREE-REC-ON FIX-INT-EVAL$-ITIMES-TREE-REC-OFF MATH-THEORY INTEGERS ITIMES-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA FIX-INT-EVAL$-ITIMES-TREE-REC (REWRITE) (IMPLIES (LISTP X) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-REC X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) ((ENABLE EVAL$-ITIMES-TREE-REC))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . FIX-INT-EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-EVAL$-ITIMES-TREE-REC) (LEMMAS FIX-INT . FIX-INT-EVAL$-ITIMES-TREE-REC))))) (PUT1-LST (QUOTE ILESSP-INEG-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (ILESSP-INEG-INEG-OFF1 ILESSP-INEG-INEG-ON ILESSP-INEG-INEG-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ILESSP-INEG-INEG (REWRITE) (EQUAL (ILESSP (INEG X) (INEG Y)) (ILESSP Y X)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-STRICT . ILESSP-INEG-INEG) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-INEG-INEG) (IMMEDIATE-DEPENDENTS0 INEG . ILESSP-INEG-INEG) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-INEG-INEG) (LEMMAS ILESSP . ILESSP-INEG-INEG))))) (PUT1-LST (QUOTE EQUAL-INEG-INEG) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (EQUAL-INEG-INEG-OFF1 EQUAL-INEG-INEG-ON EQUAL-INEG-INEG-OFF MATH-THEORY INTEGERS ITIMES-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA EQUAL-INEG-INEG (REWRITE) (EQUAL (EQUAL (INEG X) (INEG Y)) (EQUAL (FIX-INT X) (FIX-INT Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-INEG-INEG) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . EQUAL-INEG-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-INEG-INEG) (IMMEDIATE-DEPENDENTS0 INEG . EQUAL-INEG-INEG) (LEMMAS EQUAL . EQUAL-INEG-INEG))))) (PUT1-LST (QUOTE ITIMES--1) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (ITIMES--1-OFF1 ITIMES--1-ON ITIMES--1-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA ITIMES--1 (REWRITE) (EQUAL (ITIMES (QUOTE -1) X) (INEG X)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES--1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES--1) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . ITIMES--1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ITIMES--1) (IMMEDIATE-DEPENDENTS0 INEG . ITIMES--1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES--1) (LEMMAS ITIMES . ITIMES--1))))) (PUT1-LST (QUOTE *1*ITIMES-FACTORS) (QUOTE (MAIN-EVENT ITIMES-FACTORS))) (PUT1-LST (QUOTE ITIMES-FACTORS) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-FACTORS 16 NIL)) TOTALP-LST ((ITIMES-FACTORS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (APPEND (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE IPLUS) (CONS (ITIMES-TREE-INEG (BAGDIFF (ITIMES-FACTORS (CAR (CDR X))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))))) (CONS (ITIMES-TREE-INEG (BAGDIFF (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS X (QUOTE NIL))) (IF (EQUAL (CAR X) (QUOTE INEG)) (CONS (QUOTE (QUOTE -1)) (ITIMES-FACTORS (CAR (CDR X)))) (CONS X (QUOTE NIL))))) (CONS X (QUOTE NIL)))) LISP-CODE *1*ITIMES-FACTORS SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE ITIMES))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE ITIMES))) (EQUAL (CAR X) (QUOTE IPLUS)) (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE ITIMES))) (EQUAL (CAR X) (QUOTE IPLUS)) (NOT (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE ITIMES))) (NOT (EQUAL (CAR X) (QUOTE IPLUS))) (EQUAL (CAR X) (QUOTE INEG))) (((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE ITIMES))) (NOT (EQUAL (CAR X) (QUOTE IPLUS))) (NOT (EQUAL (CAR X) (QUOTE INEG)))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193916 CONTROLLER-POCKETS (1) SATELLITES (*1*ITIMES-FACTORS) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-FACTORS-OFF1 ITIMES-FACTORS-OFF1 G*1*ITIMES-FACTORS-ON ITIMES-FACTORS-ON G*1*ITIMES-FACTORS-OFF ITIMES-FACTORS-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CANCEL-FACTORS-ILESSP-0 LISTP-CDR-FACTORS-IMPLIES-INTEGERP CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 MEMBER-0-ITIMES-FACTORS-YIELDS-0 CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL ITIMES-LIST-EVAL$-FACTORS CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS) EVENT (DEFN ITIMES-FACTORS (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (APPEND (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (IF (LISTP (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE IPLUS) (CONS (ITIMES-TREE-INEG (BAGDIFF (ITIMES-FACTORS (CAR (CDR X))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))))) (CONS (ITIMES-TREE-INEG (BAGDIFF (ITIMES-FACTORS (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (BAGINT (ITIMES-FACTORS (CAR (CDR X))) (ITIMES-FACTORS (CAR (CDR (CDR X)))))) (CONS X (QUOTE NIL))) (IF (EQUAL (CAR X) (QUOTE INEG)) (CONS (QUOTE (QUOTE -1)) (ITIMES-FACTORS (CAR (CDR X)))) (CONS X (QUOTE NIL))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-INEG . ITIMES-FACTORS) (IMMEDIATE-DEPENDENTS0 BAGINT . ITIMES-FACTORS) (DCELL . *1*ITIMES-FACTORS))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-INEG) (QUOTE (MAIN-EVENT ITIMES-TREE-INEG))) (PUT1-LST (QUOTE ITIMES-TREE-INEG) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-TREE-INEG -1 NIL)) TOTALP-LST ((ITIMES-TREE-INEG . T)) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (EQUAL (CAR L) (QUOTE (QUOTE -1))) (IF (LISTP (CDR L)) (CONS (QUOTE INEG) (CONS (ITIMES-TREE-REC (CDR L)) (QUOTE NIL))) (CAR L)) (ITIMES-TREE-REC L)) (QUOTE (QUOTE 1)))) LISP-CODE *1*ITIMES-TREE-INEG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193916 SATELLITES (*1*ITIMES-TREE-INEG) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-TREE-INEG-OFF1 G*1*ITIMES-TREE-INEG-ON G*1*ITIMES-TREE-INEG-OFF MATH-THEORY INTEGERS ITIMES-TREE-INEG-OFF ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG ITIMES-FACTORS) EVENT (DEFN ITIMES-TREE-INEG (L) (IF (LISTP L) (IF (EQUAL (CAR L) (QUOTE (QUOTE -1))) (IF (LISTP (CDR L)) (CONS (QUOTE INEG) (CONS (ITIMES-TREE-REC (CDR L)) (QUOTE NIL))) (CAR L)) (ITIMES-TREE-REC L)) (QUOTE (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE-INEG) (DCELL . *1*ITIMES-TREE-INEG))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF . T))))) (PUT1-LST (QUOTE LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF LISTP-BAGINT-WITH-SINGLETON-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-MEMBER . LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF) (DISABLED-LEMMAS NIL LISTP-BAGINT-WITH-SINGLETON-MEMBER LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-LIST-0-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE ITIMES-LIST-EVAL$-LIST-0-OFF ITIMES-LIST-EVAL$-LIST-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-LIST-0 . ITIMES-LIST-EVAL$-LIST-0-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-LIST-0 ITIMES-LIST-EVAL$-LIST-0-OFF . T))))) (PUT1-LST (QUOTE LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER . LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF) (DISABLED-LEMMAS NIL LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (DISABLED-LEMMAS NIL EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-2 . EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-1 . EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-NO-FIX-INT-1 EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF . T))))) (PUT1-LST (QUOTE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF) (DISABLED-LEMMAS NIL EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF . T))))) (PUT1-LST (QUOTE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF) (DISABLED-LEMMAS NIL EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF . T))))) (PUT1-LST (QUOTE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF) (DISABLED-LEMMAS NIL SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF . T))))) (PUT1-LST (QUOTE IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF) (DISABLED-LEMMAS NIL IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF . T))))) (PUT1-LST (QUOTE EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF) (DISABLED-LEMMAS NIL EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF) (DISABLED-LEMMAS NIL EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF) (DISABLED-LEMMAS NIL EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF) (DISABLED-LEMMAS NIL EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF . T))))) (PUT1-LST (QUOTE MEMBER-IZEROP-ITIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE MEMBER-IZEROP-ITIMES-FRINGE-OFF MEMBER-IZEROP-ITIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-IZEROP-ITIMES-FRINGE . MEMBER-IZEROP-ITIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL MEMBER-IZEROP-ITIMES-FRINGE MEMBER-IZEROP-ITIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF) (DISABLED-LEMMAS NIL EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-BAGDIFF-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE ITIMES-LIST-BAGDIFF-OFF ITIMES-LIST-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . ITIMES-LIST-BAGDIFF-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-BAGDIFF ITIMES-LIST-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-EVAL$-ITIMES-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE INTEGERP-EVAL$-ITIMES-OFF INTEGERP-EVAL$-ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . INTEGERP-EVAL$-ITIMES-OFF) (DISABLED-LEMMAS NIL INTEGERP-EVAL$-ITIMES INTEGERP-EVAL$-ITIMES-OFF . T))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FRINGE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE ITIMES-LIST-EVAL$-FRINGE-OFF ITIMES-LIST-EVAL$-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . ITIMES-LIST-EVAL$-FRINGE-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-EVAL$-FRINGE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-ITIMES-TREE-OFF EVAL$-ITIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-ITIMES-TREE-OFF) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-REC-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-ITIMES-TREE-REC-OFF EVAL$-ITIMES-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . EVAL$-ITIMES-TREE-REC-OFF) (DISABLED-LEMMAS NIL EVAL$-ITIMES-TREE-REC EVAL$-ITIMES-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF QUOTIENT-DIFFERENCE-LESSP-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-LESSP-ARG2 . QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE-LESSP-ARG2 QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF . T))))) (PUT1-LST (QUOTE MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF) (DISABLED-LEMMAS NIL EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF . T))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED . LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF) (DISABLED-LEMMAS NIL LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF . T))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-PLUS-ARG1-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE LESSP-DIFFERENCE-PLUS-ARG1-OFF LESSP-DIFFERENCE-PLUS-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-PLUS-ARG1 . LESSP-DIFFERENCE-PLUS-ARG1-OFF) (DISABLED-LEMMAS NIL LESSP-DIFFERENCE-PLUS-ARG1 LESSP-DIFFERENCE-PLUS-ARG1-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-BAGDIFF-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-IPLUS-LIST-BAGDIFF-OFF EVAL$-IPLUS-LIST-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-BAGDIFF . EVAL$-IPLUS-LIST-BAGDIFF-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-FRINGE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE IPLUS-LIST-EVAL$-FRINGE-OFF IPLUS-LIST-EVAL$-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . IPLUS-LIST-EVAL$-FRINGE-OFF) (DISABLED-LEMMAS NIL IPLUS-LIST-EVAL$-FRINGE IPLUS-LIST-EVAL$-FRINGE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-TREE-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-IPLUS-TREE-OFF EVAL$-IPLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . EVAL$-IPLUS-TREE-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-TREE-REC-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-IPLUS-TREE-REC-OFF EVAL$-IPLUS-TREE-REC T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE-REC . EVAL$-IPLUS-TREE-REC-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS-TREE-REC EVAL$-IPLUS-TREE-REC-OFF . T))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE LESSP-COUNT-LISTP-CDR-OFF LESSP-COUNT-LISTP-CDR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . LESSP-COUNT-LISTP-CDR-OFF) (DISABLED-LEMMAS NIL LESSP-COUNT-LISTP-CDR LESSP-COUNT-LISTP-CDR-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IPLUS-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-IPLUS-OFF EVAL$-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS . EVAL$-IPLUS-OFF) (DISABLED-LEMMAS NIL EVAL$-IPLUS EVAL$-IPLUS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-IPLUS-OFF) (QUOTE (IDATE 1000402193916 EVENT (TOGGLE EVAL$-CANCEL-IPLUS-OFF EVAL$-CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-IPLUS . EVAL$-CANCEL-IPLUS-OFF) (DISABLED-LEMMAS NIL EVAL$-CANCEL-IPLUS EVAL$-CANCEL-IPLUS-OFF . T))))) (PUT1-LST (QUOTE ILESSP-STRICT) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (ILESSP-STRICT-OFF1 ILESSP-STRICT-ON ILESSP-STRICT-OFF MATH-THEORY INTEGERS ILESSP-ADD1-IPLUS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ILESSP-INEG-INEG) EVENT (PROVE-LEMMA ILESSP-STRICT (REWRITE) (IMPLIES (ILESSP X Y) (NOT (ILESSP Y X))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-STRICT) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-STRICT) (LEMMAS ILESSP . ILESSP-STRICT))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (QUOTE (IDATE 1000402193916 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF1 INTEGER-METAS INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-OFF EQUAL-FIX-INT-TO-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP ((META ILESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-ITIMES-ILESSP X) A)) ((DO-NOT-INDUCT T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-MEMBER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-LIST-0 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 BAGINT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES-ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP))))) (PUT1-LST (QUOTE SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF) (QUOTE (IDATE 1000402193912 EVENT (TOGGLE SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF SAME-FIX-INT-IMPLIES-NOT-ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SAME-FIX-INT-IMPLIES-NOT-ILESSP . SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF) (DISABLED-LEMMAS NIL SAME-FIX-INT-IMPLIES-NOT-ILESSP SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF . T))))) (PUT1-LST (QUOTE ILESSP-TRICHOTOMY-OFF) (QUOTE (IDATE 1000402193912 EVENT (TOGGLE ILESSP-TRICHOTOMY-OFF ILESSP-TRICHOTOMY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . ILESSP-TRICHOTOMY-OFF) (DISABLED-LEMMAS NIL ILESSP-TRICHOTOMY ILESSP-TRICHOTOMY-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (QUOTE (IDATE 1000402193912 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 (REWRITE) (IMPLIES (AND (SUBBAGP BAG X) (AND (SUBBAGP BAG Y) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)) (QUOTE 0)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))))) ((USE (ILESSP-ITIMES-RIGHT-NEGATIVE (X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (Y (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A))) (Z (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A)))) (ITIMES-LIST-BAGDIFF (Y X) (X BAG) (A A)) (ITIMES-LIST-BAGDIFF (Y Y) (X BAG) (A A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-NEGATIVE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (IMMEDIATE-DEPENDENTS0 SUBBAGP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-NEGATIVE) (QUOTE (IDATE 1000402193909 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-RIGHT-NEGATIVE-OFF1 ILESSP-ITIMES-RIGHT-NEGATIVE-ON ILESSP-ITIMES-RIGHT-NEGATIVE-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4) EVENT (PROVE-LEMMA ILESSP-ITIMES-RIGHT-NEGATIVE NIL (IMPLIES (ILESSP X (QUOTE 0)) (EQUAL (ILESSP Y Z) (ILESSP (ITIMES Z X) (ITIMES Y X)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-RIGHT-NEGATIVE) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-RIGHT-NEGATIVE))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (QUOTE (IDATE 1000402193908 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 (REWRITE) (IMPLIES (AND (NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)) (QUOTE 0))) (AND (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))) (AND (SUBBAGP BAG (ITIMES-FRINGE W)) (SUBBAGP BAG (ITIMES-FRINGE V))))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) V A)))) ((USE (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 (X W) (BAG BAG)) (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 (X V) (BAG BAG))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 SAME-FIX-INT-IMPLIES-NOT-ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 SUBBAGP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3))))) (PUT1-LST (QUOTE SAME-FIX-INT-IMPLIES-NOT-ILESSP) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (SAME-FIX-INT-IMPLIES-NOT-ILESSP-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) EVENT (PROVE-LEMMA SAME-FIX-INT-IMPLIES-NOT-ILESSP (REWRITE) (IMPLIES (EQUAL (FIX-INT X) (FIX-INT Y)) (NOT (ILESSP X Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP-TRICHOTOMY . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (IMMEDIATE-DEPENDENTS0 FIX-INT . SAME-FIX-INT-IMPLIES-NOT-ILESSP) (LEMMAS ILESSP . SAME-FIX-INT-IMPLIES-NOT-ILESSP))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 NIL (IMPLIES (AND (EQUAL (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (SUBSETP BAG (ITIMES-FRINGE X))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A)) (QUOTE 0))) ((USE (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 (Z (ITIMES-FRINGE X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (IMMEDIATE-DEPENDENTS0 SUBSETP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 NIL (IMPLIES (AND (EQUAL (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (SUBSETP BAG Z)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Z A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1) (IMMEDIATE-DEPENDENTS0 SUBSETP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1))))) (PUT1-LST (QUOTE ILESSP-TRICHOTOMY) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (ILESSP-TRICHOTOMY-OFF1 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP ILESSP-TRICHOTOMY-ON ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-TRICHOTOMY-OFF ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP) EVENT (PROVE-LEMMA ILESSP-TRICHOTOMY (REWRITE) (IMPLIES (NOT (ILESSP X Y)) (EQUAL (ILESSP Y X) (NOT (EQUAL (FIX-INT X) (FIX-INT Y))))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-TRICHOTOMY) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-TRICHOTOMY) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-TRICHOTOMY) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-TRICHOTOMY) (LEMMAS ILESSP . ILESSP-TRICHOTOMY))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF) (QUOTE (IDATE 1000402193907 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 (REWRITE) (IMPLIES (MEMBER (QUOTE 0) (ITIMES-FRINGE W)) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA (REWRITE) (IMPLIES (MEMBER (QUOTE 0) (ITIMES-FRINGE W)) (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0))) ((EXPAND (ITIMES-FRINGE W)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-LIST-0 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) (LEMMAS EVAL$ . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA))))) (PUT1-LST (QUOTE LISTP-BAGINT-WITH-SINGLETON-MEMBER) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS LISTP-BAGINT-WITH-SINGLETON-MEMBER-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA LISTP-BAGINT-WITH-SINGLETON-MEMBER (REWRITE) (EQUAL (LISTP (BAGINT Y (CONS Z (QUOTE NIL)))) (MEMBER Z Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . LISTP-BAGINT-WITH-SINGLETON-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . LISTP-BAGINT-WITH-SINGLETON-MEMBER) (IMMEDIATE-DEPENDENTS0 LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER . LISTP-BAGINT-WITH-SINGLETON-MEMBER) (IMMEDIATE-DEPENDENTS0 BAGINT . LISTP-BAGINT-WITH-SINGLETON-MEMBER) (LEMMAS LISTP . LISTP-BAGINT-WITH-SINGLETON-MEMBER))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (QUOTE (IDATE 1000402193907 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 (REWRITE) (IMPLIES (AND (SUBBAGP BAG X) (AND (SUBBAGP BAG Y) (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))))) ((USE (ILESSP-ITIMES-RIGHT-POSITIVE (X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (Y (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A))) (Z (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A)))) (ITIMES-LIST-BAGDIFF (Y X) (X BAG) (A A)) (ITIMES-LIST-BAGDIFF (Y Y) (X BAG) (A A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 ILESSP-ITIMES-RIGHT-POSITIVE . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1))))) (PUT1-LST (QUOTE ILESSP-ITIMES-RIGHT-POSITIVE) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-RIGHT-POSITIVE-OFF1 ILESSP-ITIMES-RIGHT-POSITIVE-ON ILESSP-ITIMES-RIGHT-POSITIVE-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1) EVENT (PROVE-LEMMA ILESSP-ITIMES-RIGHT-POSITIVE NIL (IMPLIES (ILESSP (QUOTE 0) X) (EQUAL (ILESSP Y Z) (ILESSP (ITIMES Y X) (ITIMES Z X)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 ITIMES . ILESSP-ITIMES-RIGHT-POSITIVE) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-ITIMES-RIGHT-POSITIVE))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-LIST-0) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-LIST-0-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-LIST-0 (REWRITE) (IMPLIES (MEMBER (QUOTE 0) X) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-LIST-EVAL$-LIST-0) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . ITIMES-LIST-EVAL$-LIST-0) (IMMEDIATE-DEPENDENTS0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 . ITIMES-LIST-EVAL$-LIST-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-LIST-0) (LEMMAS ITIMES-LIST . ITIMES-LIST-EVAL$-LIST-0))))) (PUT1-LST (QUOTE LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP LISTP-BAGINT-WITH-SINGLETON-MEMBER) EVENT (PROVE-LEMMA LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER (REWRITE) (IMPLIES (LISTP (BAGINT Y (CONS Z (QUOTE NIL)))) (MEMBER Z Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER) (IMMEDIATE-DEPENDENTS0 BAGINT . LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER) (LEMMAS MEMBER . LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER))))) (PUT1-LST (QUOTE MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (QUOTE (IDATE 1000402193906 EVENT (TOGGLE MAKE-CANCEL-ITIMES-INEQUALITY-OFF MAKE-CANCEL-ITIMES-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . MAKE-CANCEL-ITIMES-INEQUALITY-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-ITIMES-INEQUALITY MAKE-CANCEL-ITIMES-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (PROVE-LEMMA EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-INEQUALITY X Y IN-BOTH) A) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE ((QUOTE 0))))) A) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) A) (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) A)) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE NIL)))) A) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) A) (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) A)) (QUOTE *1*FALSE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-1 . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-NO-FIX-INT-2 . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) (LEMMAS EVAL$ . EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-ILESSP) (QUOTE (MAIN-EVENT CANCEL-ITIMES-ILESSP))) (PUT1-LST (QUOTE CANCEL-ITIMES-ILESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ITIMES-ILESSP 16 T)) TOTALP-LST ((CANCEL-ITIMES-ILESSP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-INEQUALITY (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) X) X) X)) LISP-CODE *1*CANCEL-ITIMES-ILESSP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193906 SATELLITES (*1*CANCEL-ITIMES-ILESSP) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-ITIMES-ILESSP-OFF1 CANCEL-ITIMES-ILESSP-OFF1 G*1*CANCEL-ITIMES-ILESSP-ON CANCEL-ITIMES-ILESSP-ON G*1*CANCEL-ITIMES-ILESSP-OFF CANCEL-ITIMES-ILESSP-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP) EVENT (DEFN CANCEL-ITIMES-ILESSP (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-INEQUALITY (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) X) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-INEQUALITY . CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CANCEL-ITIMES-ILESSP) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-ITIMES-ILESSP) (DCELL . *1*CANCEL-ITIMES-ILESSP))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-ITIMES-INEQUALITY) (QUOTE (MAIN-EVENT MAKE-CANCEL-ITIMES-INEQUALITY))) (PUT1-LST (QUOTE MAKE-CANCEL-ITIMES-INEQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-CANCEL-ITIMES-INEQUALITY 16 NIL NIL NIL)) TOTALP-LST ((MAKE-CANCEL-ITIMES-INEQUALITY . T)) SDEFN (LAMBDA (X Y IN-BOTH) (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) (QUOTE NIL)))) (CONS (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE NIL)))) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) (QUOTE NIL)))) (QUOTE ((FALSE)))))) (QUOTE NIL)))))) LISP-CODE *1*MAKE-CANCEL-ITIMES-INEQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193906 SATELLITES (*1*MAKE-CANCEL-ITIMES-INEQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF1 G*1*MAKE-CANCEL-ITIMES-INEQUALITY-ON G*1*MAKE-CANCEL-ITIMES-INEQUALITY-OFF MATH-THEORY CANCEL-ITIMES-ILESSP-FACTORS MAKE-CANCEL-ITIMES-INEQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY CANCEL-ITIMES-ILESSP) EVENT (DEFN MAKE-CANCEL-ITIMES-INEQUALITY (X Y IN-BOTH) (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) (QUOTE NIL)))) (CONS (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE NIL)))) (CONS (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) (CONS (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) (QUOTE NIL)))) (QUOTE ((FALSE)))))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . MAKE-CANCEL-ITIMES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . MAKE-CANCEL-ITIMES-INEQUALITY) (DCELL . *1*MAKE-CANCEL-ITIMES-INEQUALITY))))) (PUT1-LST (QUOTE ITIMES-TREE-NO-FIX-INT-OFF) (QUOTE (IDATE 1000402193906 EVENT (TOGGLE ITIMES-TREE-NO-FIX-INT-OFF ITIMES-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . ITIMES-TREE-NO-FIX-INT-OFF) (DISABLED-LEMMAS NIL ITIMES-TREE-NO-FIX-INT ITIMES-TREE-NO-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-NO-FIX-INT-2) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-ITIMES-TREE-NO-FIX-INT-2-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) EVENT (PROVE-LEMMA EVAL$-ITIMES-TREE-NO-FIX-INT-2 (REWRITE) (EQUAL (ILESSP Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT X) A)) (ILESSP Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-ITIMES-TREE-NO-FIX-INT-2) (LEMMAS ILESSP . EVAL$-ITIMES-TREE-NO-FIX-INT-2))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-NO-FIX-INT-1) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-ITIMES-TREE-NO-FIX-INT-1-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY) EVENT (PROVE-LEMMA EVAL$-ITIMES-TREE-NO-FIX-INT-1 (REWRITE) (EQUAL (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT X) A) Y) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-NO-FIX-INT . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-ITIMES-TREE-NO-FIX-INT-1) (LEMMAS ILESSP . EVAL$-ITIMES-TREE-NO-FIX-INT-1))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-NO-FIX-INT) (QUOTE (MAIN-EVENT ITIMES-TREE-NO-FIX-INT))) (PUT1-LST (QUOTE ITIMES-TREE-NO-FIX-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-TREE-NO-FIX-INT -1 NIL)) TOTALP-LST ((ITIMES-TREE-NO-FIX-INT . T)) SDEFN (LAMBDA (L) (IF (LISTP L) (ITIMES-TREE-REC L) (QUOTE (QUOTE 1)))) LISP-CODE *1*ITIMES-TREE-NO-FIX-INT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193906 SATELLITES (*1*ITIMES-TREE-NO-FIX-INT) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-TREE-NO-FIX-INT-OFF1 G*1*ITIMES-TREE-NO-FIX-INT-ON G*1*ITIMES-TREE-NO-FIX-INT-OFF MATH-THEORY EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY MAKE-CANCEL-ITIMES-INEQUALITY ITIMES-TREE-NO-FIX-INT-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1) EVENT (DEFN ITIMES-TREE-NO-FIX-INT (L) (IF (LISTP L) (ITIMES-TREE-REC L) (QUOTE (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE-NO-FIX-INT) (DCELL . *1*ITIMES-TREE-NO-FIX-INT))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES) (QUOTE (IDATE 1000402193906 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-OFF1 INTEGER-METAS INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-OFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-ITIMES X) A)) ((DO-NOT-INDUCT T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-ITIMES))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF) (QUOTE (IDATE 1000402193902 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 (REWRITE) (IMPLIES (AND (LISTP U) (AND (EQUAL (CAR U) (QUOTE ITIMES)) (AND (LISTP V) (AND (EQUAL (CAR V) (QUOTE ITIMES)) (AND (EQUAL (EVAL$ (QUOTE *1*TRUE) U A) (EVAL$ (QUOTE *1*TRUE) V A)) (NOT (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (QUOTE ((QUOTE 0))))) A))))))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE U) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE V) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A))) (QUOTE *1*TRUE))) ((USE (ITIMES-LIST-BAGDIFF (Y (ITIMES-FRINGE U)) (X (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (A A)) (ITIMES-LIST-BAGDIFF (Y (ITIMES-FRINGE V)) (X (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (A A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 BAGINT . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-3) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA (REWRITE) (IMPLIES (AND (EQUAL U (ITIMES A B)) (NOT (EQUAL (FIX-INT A) (QUOTE 0)))) (EQUAL (EQUAL U (ITIMES A C)) (EQUAL (FIX-INT B) (FIX-INT C))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA) (IMMEDIATE-DEPENDENTS0 ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-HACK-2-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 (REWRITE) (IMPLIES (AND (LISTP U) (AND (EQUAL (CAR U) (QUOTE ITIMES)) (AND (LISTP V) (AND (EQUAL (CAR V) (QUOTE ITIMES)) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) U A) (EVAL$ (QUOTE *1*TRUE) V A))))))) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE U) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE V) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A))))) ((USE (ITIMES-LIST-BAGDIFF (Y (ITIMES-FRINGE U)) (X (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (A A)) (ITIMES-LIST-BAGDIFF (Y (ITIMES-FRINGE V)) (X (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (A A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 BAGINT . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-ITIMES-HACK-2))))) (PUT1-LST (QUOTE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 (REWRITE) (IMPLIES (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0))) ((USE (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y Y))) (DISABLE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (IMMEDIATE-DEPENDENTS0 BAGINT . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2) (LEMMAS ITIMES-LIST . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2))))) (PUT1-LST (QUOTE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 (REWRITE) (IMPLIES (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0))) ((USE (SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (X (BAGINT X Y)) (Y X))) (DISABLE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (IMMEDIATE-DEPENDENTS0 SUBBAGP-SUBSETP . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (IMMEDIATE-DEPENDENTS0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (IMMEDIATE-DEPENDENTS0 BAGINT . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) (LEMMAS ITIMES-LIST . EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1))))) (PUT1-LST (QUOTE SUBBAGP-SUBSETP) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (SUBBAGP-SUBSETP-OFF EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) EVENT (PROVE-LEMMA SUBBAGP-SUBSETP (REWRITE) (IMPLIES (SUBBAGP X Y) (SUBSETP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-SUBSETP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-SUBSETP) (IMMEDIATE-DEPENDENTS0 SUBSETP . SUBBAGP-SUBSETP) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-SUBSETP) (LEMMAS SUBSETP . SUBBAGP-SUBSETP))))) (PUT1-LST (QUOTE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-BAGINT-0-FOR-ILESSP EVAL$-LIST-BAGINT-0 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1) EVENT (PROVE-LEMMA SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 (REWRITE) (IMPLIES (AND (SUBSETP X Y) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (IMMEDIATE-DEPENDENTS0 SUBSETP . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) (LEMMAS ITIMES-LIST . SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0))))) (PUT1-LST (QUOTE *1*SUBSETP) (QUOTE (MAIN-EVENT SUBSETP))) (PUT1-LST (QUOTE SUBSETP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBSETP 3 NIL NIL)) LEMMAS ((REWRITE-RULE SUBBAGP-SUBSETP ((SUBBAGP X Y)) (SUBSETP X Y) NIL)) TOTALP-LST ((SUBSETP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBSETP (CDR X) Y) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBSETP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (MEMBER (CAR X) Y))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193902 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBSETP) IMMEDIATE-DEPENDENTS0 (G*1*SUBSETP-OFF1 SUBSETP-OFF1 G*1*SUBSETP-ON SUBSETP-ON G*1*SUBSETP-OFF SUBSETP-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 SUBBAGP-SUBSETP SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) EVENT (DEFN SUBSETP (X Y) (IF (NLISTP X) (QUOTE *1*TRUE) (IF (MEMBER (CAR X) Y) (SUBSETP (CDR X) Y) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*SUBSETP))))) (PUT1-LST (QUOTE IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (QUOTE (IDATE 1000402193902 IMMEDIATE-DEPENDENTS0 (IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0-OFF ITIMES-LIST-EVAL$-LIST-0 CORRECTNESS-OF-CANCEL-ITIMES SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0) EVENT (PROVE-LEMMA IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 (REWRITE) (IMPLIES (AND (MEMBER Z Y) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0) (LEMMAS ITIMES-LIST . IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0))))) (PUT1-LST (QUOTE EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (ITIMES-FRINGE X)) (QUOTE ((QUOTE 0))))) A) (EQUAL (CAR X) (QUOTE ITIMES))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-FRINGE . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) (LEMMAS EVAL$ . EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY X (CONS Y (QUOTE NIL)) (CONS Y (QUOTE NIL))) A) (IF (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Y A)) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (QUOTE 1) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Y X) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 INTEGERP . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) (LEMMAS EVAL$ . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2))))) (PUT1-LST (QUOTE EQUAL-FIX-INT) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EQUAL-FIX-INT-OFF1 FIX-INT-NUMBERP EQUAL-FIX-INT-ON EQUAL-FIX-INT-OFF MATH-THEORY INTEGERS IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA EQUAL-FIX-INT (REWRITE) (EQUAL (EQUAL (FIX-INT X) X) (INTEGERP X)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . EQUAL-FIX-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-FIX-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-FIX-INT) (LEMMAS EQUAL . EQUAL-FIX-INT))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY (CONS X (QUOTE NIL)) Y (CONS X (QUOTE NIL))) A) (IF (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A)) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (QUOTE 1) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE X Y) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) (LEMMAS EVAL$ . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1))))) (PUT1-LST (QUOTE MAKE-CANCEL-ITIMES-EQUALITY-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE MAKE-CANCEL-ITIMES-EQUALITY-OFF MAKE-CANCEL-ITIMES-EQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . MAKE-CANCEL-ITIMES-EQUALITY-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-ITIMES-EQUALITY MAKE-CANCEL-ITIMES-EQUALITY-OFF . T))))) (PUT1-LST (QUOTE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-OFF CORRECTNESS-OF-CANCEL-ITIMES EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1) EVENT (PROVE-LEMMA EVAL$-MAKE-CANCEL-ITIMES-EQUALITY (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY X Y IN-BOTH) A) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE IN-BOTH) (QUOTE ((QUOTE 0))))) A) (QUOTE *1*TRUE) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y IN-BOTH) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) (LEMMAS EVAL$ . EVAL$-MAKE-CANCEL-ITIMES-EQUALITY))))) (PUT1-LST (QUOTE EVAL$-EQUAL-ON) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE EVAL$-EQUAL-ON EVAL$-EQUAL NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . EVAL$-EQUAL-ON) (DISABLED-LEMMAS NIL EVAL$-EQUAL EVAL$-EQUAL-ON))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-HACK-1-OFF) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 (REWRITE) (IMPLIES (AND (MEMBER W (ITIMES-FRINGE (CONS (QUOTE ITIMES) X1))) (AND (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE 0)) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR X1) A)) (QUOTE 0))))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X1)) A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) (IMMEDIATE-DEPENDENTS0 MEMBER-IZEROP-ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) (LEMMAS FIX-INT . CORRECTNESS-OF-CANCEL-ITIMES-HACK-1))))) (PUT1-LST (QUOTE MEMBER-IZEROP-ITIMES-FRINGE) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (MEMBER-IZEROP-ITIMES-FRINGE-OFF CORRECTNESS-OF-CANCEL-ITIMES-HACK-1) EVENT (PROVE-LEMMA MEMBER-IZEROP-ITIMES-FRINGE (REWRITE) (IMPLIES (AND (MEMBER Z (ITIMES-FRINGE X)) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A)) (QUOTE 0))) ((INDUCT (ITIMES-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 EQUAL-ITIMES-0 . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 MEMBER-APPEND . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 INTEGERP-EVAL$-ITIMES . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT . MEMBER-IZEROP-ITIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . MEMBER-IZEROP-ITIMES-FRINGE) (LEMMAS FIX-INT . MEMBER-IZEROP-ITIMES-FRINGE))))) (PUT1-LST (QUOTE MEMBER-APPEND) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (MEMBER-APPEND-OFF1 MEMBER-APPEND-ON MEMBER-APPEND-OFF MATH-THEORY INTEGERS MEMBER-0-ITIMES-FACTORS-YIELDS-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 MEMBER-IZEROP-ITIMES-FRINGE) EVENT (PROVE-LEMMA MEMBER-APPEND (REWRITE) (EQUAL (MEMBER A (APPEND X Y)) (OR (MEMBER A X) (MEMBER A Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-APPEND) (LEMMAS MEMBER . MEMBER-APPEND))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-DELETE-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE ITIMES-LIST-EVAL$-DELETE-OFF ITIMES-LIST-EVAL$-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-DELETE . ITIMES-LIST-EVAL$-DELETE-OFF) (DISABLED-LEMMAS NIL ITIMES-LIST-EVAL$-DELETE ITIMES-LIST-EVAL$-DELETE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-OFF CORRECTNESS-OF-CANCEL-ITIMES EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2) EVENT (PROVE-LEMMA EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE (REWRITE) (IMPLIES (AND (MEMBER C Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) C A)) (QUOTE 0)))) (EQUAL (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE C Y) A))) (AND (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) C A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-3 . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) (LEMMAS EQUAL . EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE))))) (PUT1-LST (QUOTE ITIMES-LIST-BAGDIFF) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA ITIMES-LIST-BAGDIFF-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2) EVENT (PROVE-LEMMA ITIMES-LIST-BAGDIFF (REWRITE) (IMPLIES (SUBBAGP X Y) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))))) ((INDUCT (BAGDIFF Y X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-EVAL$-DELETE . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ITIMES-LIST-BAGDIFF) (LEMMAS ITIMES-LIST . ITIMES-LIST-BAGDIFF))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-DELETE) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-EVAL$-DELETE-OFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-DELETE (REWRITE) (IMPLIES (MEMBER Z Y) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES (EVAL$ (QUOTE *1*TRUE) Z A) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . ITIMES-LIST-EVAL$-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-LIST-EVAL$-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . ITIMES-LIST-EVAL$-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . ITIMES-LIST-EVAL$-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-EVAL$-DELETE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-DELETE) (LEMMAS ITIMES-LIST . ITIMES-LIST-EVAL$-DELETE))))) (PUT1-LST (QUOTE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES-OFF CORRECTNESS-OF-CANCEL-ITIMES) EVENT (PROVE-LEMMA NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES (REWRITE) (IMPLIES (NOT (INTEGERP A)) (EQUAL (EQUAL A (ITIMES B C)) (QUOTE *1*FALSE))) ((USE (INTEGERP-ITIMES (X B) (Y C))) (ENABLE INTEGERP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES) (LEMMAS EQUAL . NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES))))) (PUT1-LST (QUOTE INTEGERP-EVAL$-ITIMES) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FACTORS INTEGERP-EVAL$-ITIMES-OFF CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 MEMBER-IZEROP-ITIMES-FRINGE) EVENT (PROVE-LEMMA INTEGERP-EVAL$-ITIMES (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE ITIMES)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERP-EVAL$-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-EVAL$-ITIMES) (LEMMAS INTEGERP . INTEGERP-EVAL$-ITIMES))))) (PUT1-LST (QUOTE ITIMES-LIST-EVAL$-FRINGE) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-EVAL$-FRINGE-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0) EVENT (PROVE-LEMMA ITIMES-LIST-EVAL$-FRINGE (REWRITE) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (ITIMES-FRINGE X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (ITIMES-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST-APPEND . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . ITIMES-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-EVAL$-FRINGE) (LEMMAS ITIMES-LIST . ITIMES-LIST-EVAL$-FRINGE))))) (PUT1-LST (QUOTE ITIMES-LIST-APPEND) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (ITIMES-LIST-APPEND-OFF1 ITIMES-LIST-APPEND-ON ITIMES-LIST-APPEND-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA ITIMES-LIST-EVAL$-FRINGE) EVENT (PROVE-LEMMA ITIMES-LIST-APPEND (REWRITE) (EQUAL (ITIMES-LIST (APPEND X Y)) (ITIMES (ITIMES-LIST X) (ITIMES-LIST Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-ITIMES . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . ITIMES-LIST-APPEND) (LEMMAS ITIMES-LIST . ITIMES-LIST-APPEND))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES) (QUOTE (MAIN-EVENT CANCEL-ITIMES))) (PUT1-LST (QUOTE CANCEL-ITIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-ITIMES 16 T)) TOTALP-LST ((CANCEL-ITIMES . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) X) (IF (MEMBER (CAR (CDR (CDR X))) (ITIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (ITIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (MEMBER (CAR (CDR X)) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (CONS (CAR (CDR X)) (QUOTE NIL)) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (MEMBER (CAR (CDR X)) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (CONS (CAR (CDR X)) (QUOTE NIL)) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-ITIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193901 SATELLITES (*1*CANCEL-ITIMES) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-ITIMES-OFF1 CANCEL-ITIMES-OFF1 G*1*CANCEL-ITIMES-ON CANCEL-ITIMES-ON G*1*CANCEL-ITIMES-OFF CANCEL-ITIMES-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES) EVENT (DEFN CANCEL-ITIMES (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE ITIMES)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (LISTP (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X)))))) X) (IF (MEMBER (CAR (CDR (CDR X))) (ITIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (ITIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (ITIMES-FRINGE (CAR (CDR X))) (CONS (CAR (CDR (CDR X))) (QUOTE NIL)) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (MEMBER (CAR (CDR X)) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (CONS (CAR (CDR X)) (QUOTE NIL)) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE ITIMES)) (IF (MEMBER (CAR (CDR X)) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (MAKE-CANCEL-ITIMES-EQUALITY (CONS (CAR (CDR X)) (QUOTE NIL)) (ITIMES-FRINGE (CAR (CDR (CDR X)))) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-ITIMES-EQUALITY . CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES-FRINGE . CANCEL-ITIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-ITIMES) (DCELL . *1*CANCEL-ITIMES))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-ITIMES-EQUALITY) (QUOTE (MAIN-EVENT MAKE-CANCEL-ITIMES-EQUALITY))) (PUT1-LST (QUOTE MAKE-CANCEL-ITIMES-EQUALITY) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-CANCEL-ITIMES-EQUALITY 16 NIL NIL NIL)) TOTALP-LST ((MAKE-CANCEL-ITIMES-EQUALITY . T)) SDEFN (LAMBDA (X Y IN-BOTH) (CONS (QUOTE IF) (CONS (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE IN-BOTH) (QUOTE ((QUOTE 0))))) (CONS (QUOTE (QUOTE *1*TRUE)) (CONS (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (BAGDIFF X IN-BOTH)) (CONS (ITIMES-TREE (BAGDIFF Y IN-BOTH)) (QUOTE NIL)))) (QUOTE NIL)))))) LISP-CODE *1*MAKE-CANCEL-ITIMES-EQUALITY SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193901 SATELLITES (*1*MAKE-CANCEL-ITIMES-EQUALITY) IMMEDIATE-DEPENDENTS0 (G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF1 G*1*MAKE-CANCEL-ITIMES-EQUALITY-ON G*1*MAKE-CANCEL-ITIMES-EQUALITY-OFF MATH-THEORY CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 MAKE-CANCEL-ITIMES-EQUALITY-OFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY CANCEL-ITIMES) EVENT (DEFN MAKE-CANCEL-ITIMES-EQUALITY (X Y IN-BOTH) (CONS (QUOTE IF) (CONS (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE IN-BOTH) (QUOTE ((QUOTE 0))))) (CONS (QUOTE (QUOTE *1*TRUE)) (CONS (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (BAGDIFF X IN-BOTH)) (CONS (ITIMES-TREE (BAGDIFF Y IN-BOTH)) (QUOTE NIL)))) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . MAKE-CANCEL-ITIMES-EQUALITY) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . MAKE-CANCEL-ITIMES-EQUALITY) (DCELL . *1*MAKE-CANCEL-ITIMES-EQUALITY))))) (PUT1-LST (QUOTE ITIMES-TREE-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE ITIMES-TREE-OFF ITIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE . ITIMES-TREE-OFF) (DISABLED-LEMMAS NIL ITIMES-TREE ITIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-ITIMES-TREE-OFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY) EVENT (PROVE-LEMMA EVAL$-ITIMES-TREE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-ITIMES-TREE-REC . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-ITIMES-TREE) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE . EVAL$-ITIMES-TREE) (LEMMAS EVAL$ . EVAL$-ITIMES-TREE))))) (PUT1-LST (QUOTE EVAL$-ITIMES-TREE-REC) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC EVAL$-ITIMES-TREE-REC-OFF EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 EVAL$-ITIMES-TREE) EVENT (PROVE-LEMMA EVAL$-ITIMES-TREE-REC (REWRITE) (IMPLIES (LISTP X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-REC X) A) (IF (LISTP (CDR X)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-ITIMES . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-1-ARG1 . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT2 . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES-LIST . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . EVAL$-ITIMES-TREE-REC) (IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . EVAL$-ITIMES-TREE-REC) (LEMMAS EVAL$ . EVAL$-ITIMES-TREE-REC))))) (PUT1-LST (QUOTE INTEGERP-ITIMES-LIST) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (INTEGERP-ITIMES-LIST-OFF1 INTEGERP-ITIMES-LIST-ON INTEGERP-ITIMES-LIST-OFF MATH-THEORY SOME-EVAL$S-TO-0-ELIMINATOR EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-APPEND EVAL$-ITIMES-TREE-REC) EVENT (PROVE-LEMMA INTEGERP-ITIMES-LIST (REWRITE) (INTEGERP (ITIMES-LIST X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-ITIMES . INTEGERP-ITIMES-LIST) (IMMEDIATE-DEPENDENTS0 ITIMES-LIST . INTEGERP-ITIMES-LIST) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-ITIMES-LIST) (LEMMAS INTEGERP . INTEGERP-ITIMES-LIST))))) (PUT1-LST (QUOTE *1*ITIMES-LIST) (QUOTE (MAIN-EVENT ITIMES-LIST))) (PUT1-LST (QUOTE ITIMES-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-LIST 36 NIL)) LEMMAS ((REWRITE-RULE ITIMES-LIST-EVAL$-FACTORS NIL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (ITIMES-FACTORS X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) NIL) (REWRITE-RULE MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 ((MEMBER (QUOTE 0) X)) (EQUAL (ITIMES-LIST X) (QUOTE 0)) NIL) (REWRITE-RULE ITIMES-LIST-EVAL$-LIST-0 ((MEMBER (QUOTE 0) X)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)) NIL) (REWRITE-RULE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 ((EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)) NIL) (REWRITE-RULE EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 ((EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT X Y) A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)) NIL) (REWRITE-RULE SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 ((SUBSETP X Y) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)) NIL) (REWRITE-RULE IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 ((MEMBER Z Y) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (QUOTE 0)) NIL) (REWRITE-RULE ITIMES-LIST-BAGDIFF ((SUBBAGP X Y)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE ITIMES-LIST-EVAL$-DELETE ((MEMBER Z Y)) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES (EVAL$ (QUOTE *1*TRUE) Z A) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)))) NIL) (REWRITE-RULE ITIMES-LIST-EVAL$-FRINGE NIL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (ITIMES-FRINGE X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) NIL) (REWRITE-RULE ITIMES-LIST-APPEND NIL (EQUAL (ITIMES-LIST (APPEND X Y)) (ITIMES (ITIMES-LIST X) (ITIMES-LIST Y))) NIL)) TOTALP-LST ((ITIMES-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (ITIMES (CAR X) (ITIMES-LIST (CDR X))) (QUOTE 1))) LISP-CODE *1*ITIMES-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193901 CONTROLLER-POCKETS (1) SATELLITES (*1*ITIMES-LIST) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-LIST-OFF1 ITIMES-LIST-OFF1 G*1*ITIMES-LIST-ON ITIMES-LIST-ON G*1*ITIMES-LIST-OFF ITIMES-LIST-OFF MATH-THEORY INTEGERS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0 ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG IPLUS-EVAL$-ITIMES-TREE-INEG INEG-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-1 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ITIMES-LIST-EVAL$-LIST-0 EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-DELETE ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC INTEGERP-ITIMES-LIST) EVENT (DEFN ITIMES-LIST (X) (IF (LISTP X) (ITIMES (CAR X) (ITIMES-LIST (CDR X))) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-LIST) (DCELL . *1*ITIMES-LIST))))) (PUT1-LST (QUOTE *1*ITIMES-TREE) (QUOTE (MAIN-EVENT ITIMES-TREE))) (PUT1-LST (QUOTE ITIMES-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-TREE -1 NIL)) TOTALP-LST ((ITIMES-TREE . T)) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (LISTP (CDR L)) (ITIMES-TREE-REC L) (CONS (QUOTE FIX-INT) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 1)))) LISP-CODE *1*ITIMES-TREE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193901 SATELLITES (*1*ITIMES-TREE) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-TREE-OFF1 G*1*ITIMES-TREE-ON G*1*ITIMES-TREE-OFF MATH-THEORY EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY MAKE-CANCEL-ITIMES-EQUALITY ITIMES-TREE-OFF EVAL$-ITIMES-TREE) EVENT (DEFN ITIMES-TREE (L) (IF (LISTP L) (IF (LISTP (CDR L)) (ITIMES-TREE-REC L) (CONS (QUOTE FIX-INT) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-TREE-REC . ITIMES-TREE) (DCELL . *1*ITIMES-TREE))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-REC) (QUOTE (MAIN-EVENT ITIMES-TREE-REC))) (PUT1-LST (QUOTE ITIMES-TREE-REC) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-TREE-REC -1 NIL)) TOTALP-LST ((ITIMES-TREE-REC . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP (CDR L)) (CONS (QUOTE ITIMES) (CONS (CAR L) (CONS (ITIMES-TREE-REC (CDR L)) (QUOTE NIL)))) (CAR L))) LISP-CODE *1*ITIMES-TREE-REC SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP (CDR L)))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (LESSP-COUNT-LISTP-CDR NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193901 CONTROLLER-POCKETS (1) SATELLITES (*1*ITIMES-TREE-REC) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-TREE-REC-OFF1 ITIMES-TREE-REC-OFF1 G*1*ITIMES-TREE-REC-ON ITIMES-TREE-REC-ON G*1*ITIMES-TREE-REC-OFF ITIMES-TREE-REC-OFF MATH-THEORY FIX-INT-EVAL$-ITIMES-TREE-REC ITIMES-TREE-INEG ITIMES-TREE-NO-FIX-INT EVAL$-ITIMES-TREE-REC ITIMES-TREE) EVENT (DEFN ITIMES-TREE-REC (L) (IF (NLISTP (CDR L)) (CAR L) (CONS (QUOTE ITIMES) (CONS (CAR L) (CONS (ITIMES-TREE-REC (CDR L)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . ITIMES-TREE-REC) (DCELL . *1*ITIMES-TREE-REC))))) (PUT1-LST (QUOTE *1*ITIMES-FRINGE) (QUOTE (MAIN-EVENT ITIMES-FRINGE))) (PUT1-LST (QUOTE ITIMES-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES-FRINGE 16 NIL)) TOTALP-LST ((ITIMES-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (APPEND (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*ITIMES-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE ITIMES))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE ITIMES)))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193901 CONTROLLER-POCKETS (1) SATELLITES (*1*ITIMES-FRINGE) IMMEDIATE-DEPENDENTS0 (G*1*ITIMES-FRINGE-OFF1 ITIMES-FRINGE-OFF1 G*1*ITIMES-FRINGE-ON ITIMES-FRINGE-ON G*1*ITIMES-FRINGE-OFF ITIMES-FRINGE-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 MEMBER-IZEROP-ITIMES-FRINGE ITIMES-LIST-EVAL$-FRINGE CANCEL-ITIMES) EVENT (DEFN ITIMES-FRINGE (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ITIMES)) (APPEND (ITIMES-FRINGE (CAR (CDR X))) (ITIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ITIMES-FRINGE))))) (PUT1-LST (QUOTE IREM-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IREM-OFF IREM T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREM . IREM-OFF) (DISABLED-LEMMAS NIL IREM IREM-OFF . T))))) (PUT1-LST (QUOTE IQUO-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IQUO-OFF IQUO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO . IQUO-OFF) (DISABLED-LEMMAS NIL IQUO IQUO-OFF . T))))) (PUT1-LST (QUOTE IMOD-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IMOD-OFF IMOD T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMOD . IMOD-OFF) (DISABLED-LEMMAS NIL IMOD IMOD-OFF . T))))) (PUT1-LST (QUOTE IDIV-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IDIV-OFF IDIV T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV . IDIV-OFF) (DISABLED-LEMMAS NIL IDIV IDIV-OFF . T))))) (PUT1-LST (QUOTE IREMAINDER-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IREMAINDER-OFF IREMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-OFF) (DISABLED-LEMMAS NIL IREMAINDER IREMAINDER-OFF . T))))) (PUT1-LST (QUOTE IQUOTIENT-OFF) (QUOTE (IDATE 1000402193901 EVENT (TOGGLE IQUOTIENT-OFF IQUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-OFF) (DISABLED-LEMMAS NIL IQUOTIENT IQUOTIENT-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-IREM) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IREM-OFF1 FIX-INT-IREM-ON FIX-INT-IREM-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IREM (REWRITE) (EQUAL (FIX-INT (IREM I J)) (IREM I J)) ((ENABLE IREM FIX-INT-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IREM) (IMMEDIATE-DEPENDENTS0 IREM . FIX-INT-IREM) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IREM) (LEMMAS FIX-INT . FIX-INT-IREM))))) (PUT1-LST (QUOTE FIX-INT-IQUO) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IQUO-OFF1 FIX-INT-IQUO-ON FIX-INT-IQUO-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IQUO (REWRITE) (EQUAL (FIX-INT (IQUO I J)) (IQUO I J)) ((ENABLE INTEGERP IQUO FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-IQUO) (IMMEDIATE-DEPENDENTS0 IQUO . FIX-INT-IQUO) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IQUO) (LEMMAS FIX-INT . FIX-INT-IQUO))))) (PUT1-LST (QUOTE FIX-INT-IMOD) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IMOD-OFF1 FIX-INT-IMOD-ON FIX-INT-IMOD-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IMOD (REWRITE) (EQUAL (FIX-INT (IMOD I J)) (IMOD I J)) ((ENABLE IMOD FIX-INT-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IMOD) (IMMEDIATE-DEPENDENTS0 IMOD . FIX-INT-IMOD) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IMOD) (LEMMAS FIX-INT . FIX-INT-IMOD))))) (PUT1-LST (QUOTE FIX-INT-IDIV) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IDIV-OFF1 FIX-INT-IDIV-ON FIX-INT-IDIV-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IDIV (REWRITE) (EQUAL (FIX-INT (IDIV I J)) (IDIV I J)) ((ENABLE INTEGERP IDIV FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-IDIV) (IMMEDIATE-DEPENDENTS0 IDIV . FIX-INT-IDIV) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IDIV) (LEMMAS FIX-INT . FIX-INT-IDIV))))) (PUT1-LST (QUOTE FIX-INT-IREMAINDER) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IREMAINDER-OFF1 FIX-INT-IREMAINDER-ON FIX-INT-IREMAINDER-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IREMAINDER (REWRITE) (EQUAL (FIX-INT (IREMAINDER I J)) (IREMAINDER I J)) ((ENABLE IREMAINDER FIX-INT-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IDIFFERENCE . FIX-INT-IREMAINDER) (IMMEDIATE-DEPENDENTS0 IREMAINDER . FIX-INT-IREMAINDER) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IREMAINDER) (LEMMAS FIX-INT . FIX-INT-IREMAINDER))))) (PUT1-LST (QUOTE FIX-INT-IQUOTIENT) (QUOTE (IDATE 1000402193901 IMMEDIATE-DEPENDENTS0 (FIX-INT-IQUOTIENT-OFF1 FIX-INT-IQUOTIENT-ON FIX-INT-IQUOTIENT-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IQUOTIENT (REWRITE) (EQUAL (FIX-INT (IQUOTIENT I J)) (IQUOTIENT I J)) ((ENABLE INTEGERP IQUOTIENT FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-IQUOTIENT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . FIX-INT-IQUOTIENT) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IQUOTIENT) (LEMMAS FIX-INT . FIX-INT-IQUOTIENT))))) (PUT1-LST (QUOTE IREM-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IREM-FIX-INT2-OFF1 IREM-FIX-INT2-ON IREM-FIX-INT2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IREM-FIX-INT2 (REWRITE) (EQUAL (IREM I (FIX-INT J)) (IREM I J)) ((ENABLE IREM ITIMES-FIX-INT1 IQUO-FIX-INT2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . IREM-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT2 . IREM-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREM-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IREM . IREM-FIX-INT2) (LEMMAS IREM . IREM-FIX-INT2))))) (PUT1-LST (QUOTE IREM-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IREM-FIX-INT1-OFF1 IREM-FIX-INT1-ON IREM-FIX-INT1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IREM-FIX-INT1 (REWRITE) (EQUAL (IREM (FIX-INT I) J) (IREM I J)) ((ENABLE IREM FIX-INT-FIX-INT IQUO-FIX-INT1) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO-FIX-INT1 . IREM-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . IREM-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREM-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IREM . IREM-FIX-INT1) (LEMMAS IREM . IREM-FIX-INT1))))) (PUT1-LST (QUOTE IQUO-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IQUO-FIX-INT2-OFF1 IQUO-FIX-INT2-ON IQUO-FIX-INT2-OFF MATH-THEORY INTEGERS IREM-FIX-INT2) EVENT (PROVE-LEMMA IQUO-FIX-INT2 (REWRITE) (EQUAL (IQUO I (FIX-INT J)) (IQUO I J)) ((ENABLE INTEGERP IQUO FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IQUO-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUO-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IQUO . IQUO-FIX-INT2) (LEMMAS IQUO . IQUO-FIX-INT2))))) (PUT1-LST (QUOTE IQUO-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IQUO-FIX-INT1-OFF1 IQUO-FIX-INT1-ON IQUO-FIX-INT1-OFF MATH-THEORY INTEGERS IREM-FIX-INT1) EVENT (PROVE-LEMMA IQUO-FIX-INT1 (REWRITE) (EQUAL (IQUO (FIX-INT I) J) (IQUO I J)) ((ENABLE INTEGERP IQUO FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IQUO-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUO-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IQUO . IQUO-FIX-INT1) (LEMMAS IQUO . IQUO-FIX-INT1))))) (PUT1-LST (QUOTE IMOD-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IMOD-FIX-INT2-OFF1 IMOD-FIX-INT2-ON IMOD-FIX-INT2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IMOD-FIX-INT2 (REWRITE) (EQUAL (IMOD I (FIX-INT J)) (IMOD I J)) ((ENABLE IMOD ITIMES-FIX-INT1 IDIV-FIX-INT2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . IMOD-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT2 . IMOD-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IMOD-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IMOD . IMOD-FIX-INT2) (LEMMAS IMOD . IMOD-FIX-INT2))))) (PUT1-LST (QUOTE IMOD-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IMOD-FIX-INT1-OFF1 IMOD-FIX-INT1-ON IMOD-FIX-INT1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IMOD-FIX-INT1 (REWRITE) (EQUAL (IMOD (FIX-INT I) J) (IMOD I J)) ((ENABLE IMOD FIX-INT-FIX-INT IDIV-FIX-INT1) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV-FIX-INT1 . IMOD-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . IMOD-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IMOD-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IMOD . IMOD-FIX-INT1) (LEMMAS IMOD . IMOD-FIX-INT1))))) (PUT1-LST (QUOTE IDIV-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IDIV-FIX-INT2-OFF1 IDIV-FIX-INT2-ON IDIV-FIX-INT2-OFF MATH-THEORY INTEGERS IMOD-FIX-INT2) EVENT (PROVE-LEMMA IDIV-FIX-INT2 (REWRITE) (EQUAL (IDIV I (FIX-INT J)) (IDIV I J)) ((ENABLE INTEGERP IDIV FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IDIV-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIV-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IDIV . IDIV-FIX-INT2) (LEMMAS IDIV . IDIV-FIX-INT2))))) (PUT1-LST (QUOTE IDIV-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IDIV-FIX-INT1-OFF1 IDIV-FIX-INT1-ON IDIV-FIX-INT1-OFF MATH-THEORY INTEGERS IMOD-FIX-INT1) EVENT (PROVE-LEMMA IDIV-FIX-INT1 (REWRITE) (EQUAL (IDIV (FIX-INT I) J) (IDIV I J)) ((ENABLE INTEGERP IDIV FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IDIV-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIV-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IDIV . IDIV-FIX-INT1) (LEMMAS IDIV . IDIV-FIX-INT1))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IREMAINDER-FIX-INT2-OFF1 IREMAINDER-FIX-INT2-ON IREMAINDER-FIX-INT2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IREMAINDER-FIX-INT2 (REWRITE) (EQUAL (IREMAINDER I (FIX-INT J)) (IREMAINDER I J)) ((ENABLE IREMAINDER ITIMES-FIX-INT1 IQUOTIENT-FIX-INT2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-FIX-INT1 . IREMAINDER-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT2 . IREMAINDER-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-FIX-INT2) (LEMMAS IREMAINDER . IREMAINDER-FIX-INT2))))) (PUT1-LST (QUOTE IREMAINDER-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IREMAINDER-FIX-INT1-OFF1 IREMAINDER-FIX-INT1-ON IREMAINDER-FIX-INT1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IREMAINDER-FIX-INT1 (REWRITE) (EQUAL (IREMAINDER (FIX-INT I) J) (IREMAINDER I J)) ((ENABLE IREMAINDER IDIFFERENCE-FIX-INT1 IQUOTIENT-FIX-INT1) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . IREMAINDER-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IQUOTIENT-FIX-INT1 . IREMAINDER-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREMAINDER-FIX-INT1) (LEMMAS IREMAINDER . IREMAINDER-FIX-INT1))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IQUOTIENT-FIX-INT2-OFF1 IQUOTIENT-FIX-INT2-ON IQUOTIENT-FIX-INT2-OFF MATH-THEORY INTEGERS IREMAINDER-FIX-INT2) EVENT (PROVE-LEMMA IQUOTIENT-FIX-INT2 (REWRITE) (EQUAL (IQUOTIENT I (FIX-INT J)) (IQUOTIENT I J)) ((ENABLE INTEGERP IQUOTIENT FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-FIX-INT2) (LEMMAS IQUOTIENT . IQUOTIENT-FIX-INT2))))) (PUT1-LST (QUOTE IQUOTIENT-FIX-INT1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (IQUOTIENT-FIX-INT1-OFF1 IQUOTIENT-FIX-INT1-ON IQUOTIENT-FIX-INT1-OFF MATH-THEORY INTEGERS IREMAINDER-FIX-INT1) EVENT (PROVE-LEMMA IQUOTIENT-FIX-INT1 (REWRITE) (EQUAL (IQUOTIENT (FIX-INT I) J) (IQUOTIENT I J)) ((ENABLE INTEGERP IQUOTIENT FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-FIX-INT1) (LEMMAS IQUOTIENT . IQUOTIENT-FIX-INT1))))) (PUT1-LST (QUOTE INTEGERP-IREM) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (INTEGERP-IREM-OFF1 INTEGERP-IREM-ON INTEGERP-IREM-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IREM (REWRITE) (INTEGERP (IREM I J)) ((ENABLE IREM INTEGERP-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IREM) (IMMEDIATE-DEPENDENTS0 IREM . INTEGERP-IREM) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IREM) (LEMMAS INTEGERP . INTEGERP-IREM))))) (PUT1-LST (QUOTE INTEGERP-IQUO) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (INTEGERP-IQUO-OFF1 INTEGERP-IQUO-ON INTEGERP-IQUO-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IQUO (REWRITE) (INTEGERP (IQUO I J)) ((ENABLE INTEGERP IQUO FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-IQUO) (IMMEDIATE-DEPENDENTS0 IQUO . INTEGERP-IQUO) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IQUO) (LEMMAS INTEGERP . INTEGERP-IQUO))))) (PUT1-LST (QUOTE INTEGERP-IMOD) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (INTEGERP-IMOD-OFF1 INTEGERP-IMOD-ON INTEGERP-IMOD-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IMOD (REWRITE) (INTEGERP (IMOD I J)) ((ENABLE IMOD INTEGERP-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IMOD) (IMMEDIATE-DEPENDENTS0 IMOD . INTEGERP-IMOD) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IMOD) (LEMMAS INTEGERP . INTEGERP-IMOD))))) (PUT1-LST (QUOTE INTEGERP-IDIV) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGERP-IDIV-OFF1 INTEGERP-IDIV-ON INTEGERP-IDIV-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IDIV (REWRITE) (INTEGERP (IDIV I J)) ((ENABLE INTEGERP IDIV FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-IDIV) (IMMEDIATE-DEPENDENTS0 IDIV . INTEGERP-IDIV) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IDIV) (LEMMAS INTEGERP . INTEGERP-IDIV))))) (PUT1-LST (QUOTE INTEGERP-IREMAINDER) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (INTEGERP-IREMAINDER-OFF1 INTEGERP-IREMAINDER-ON INTEGERP-IREMAINDER-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IREMAINDER (REWRITE) (INTEGERP (IREMAINDER I J)) ((ENABLE IREMAINDER INTEGERP-IDIFFERENCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IDIFFERENCE . INTEGERP-IREMAINDER) (IMMEDIATE-DEPENDENTS0 IREMAINDER . INTEGERP-IREMAINDER) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IREMAINDER) (LEMMAS INTEGERP . INTEGERP-IREMAINDER))))) (PUT1-LST (QUOTE INTEGERP-IQUOTIENT) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (INTEGERP-IQUOTIENT-OFF1 INTEGERP-IQUOTIENT-ON INTEGERP-IQUOTIENT-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IQUOTIENT (REWRITE) (INTEGERP (IQUOTIENT I J)) ((ENABLE INTEGERP IQUOTIENT FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-IQUOTIENT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . INTEGERP-IQUOTIENT) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IQUOTIENT) (LEMMAS INTEGERP . INTEGERP-IQUOTIENT))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-3) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (ITIMES-CANCELLATION-3-OFF1 ITIMES-CANCELLATION-3-ON ITIMES-CANCELLATION-3-OFF MATH-THEORY INTEGERS EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE) EVENT (PROVE-LEMMA ITIMES-CANCELLATION-3 (REWRITE) (EQUAL (EQUAL (ITIMES A B) (ITIMES C A)) (OR (EQUAL (FIX-INT A) (QUOTE 0)) (EQUAL (FIX-INT B) (FIX-INT C)))) ((USE (ITIMES-CANCELLATION-1)) (ENABLE COMMUTATIVITY-OF-ITIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-CANCELLATION-3) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . ITIMES-CANCELLATION-3) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-CANCELLATION-3) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-CANCELLATION-3) (LEMMAS EQUAL . ITIMES-CANCELLATION-3))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-2) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (ITIMES-CANCELLATION-2-OFF1 ITIMES-CANCELLATION-2-ON ITIMES-CANCELLATION-2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ITIMES-CANCELLATION-2 (REWRITE) (EQUAL (EQUAL (ITIMES B A) (ITIMES C A)) (OR (EQUAL (FIX-INT A) (QUOTE 0)) (EQUAL (FIX-INT B) (FIX-INT C)))) ((USE (ITIMES-CANCELLATION-1)) (ENABLE COMMUTATIVITY-OF-ITIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 ITIMES-CANCELLATION-1 . ITIMES-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-CANCELLATION-2) (LEMMAS EQUAL . ITIMES-CANCELLATION-2))))) (PUT1-LST (QUOTE ITIMES-CANCELLATION-1) (QUOTE (IDATE 1000402193900 IMMEDIATE-DEPENDENTS0 (ITIMES-CANCELLATION-1-OFF1 ITIMES-CANCELLATION-1-ON ITIMES-CANCELLATION-1-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA EVAL$-ITIMES-TREE-REC ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2) EVENT (PROVE-LEMMA ITIMES-CANCELLATION-1 (REWRITE) (EQUAL (EQUAL (ITIMES A B) (ITIMES A C)) (OR (EQUAL (FIX-INT A) (QUOTE 0)) (EQUAL (FIX-INT B) (FIX-INT C)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-CANCELLATION-1) (LEMMAS EQUAL . ITIMES-CANCELLATION-1))))) (PUT1-LST (QUOTE ITIMES-INEG-2) (QUOTE (IDATE 1000402193859 IMMEDIATE-DEPENDENTS0 (ITIMES-INEG-2-OFF1 ITIMES-INEG-2-ON ITIMES-INEG-2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ITIMES-INEG-2 (REWRITE) (EQUAL (ITIMES X (INEG Y)) (INEG (ITIMES X Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 INEG . ITIMES-INEG-2) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-INEG-2) (LEMMAS ITIMES . ITIMES-INEG-2))))) (PUT1-LST (QUOTE ITIMES-INEG-1) (QUOTE (IDATE 1000402193859 IMMEDIATE-DEPENDENTS0 (ITIMES-INEG-1-OFF1 ITIMES-INEG-1-ON ITIMES-INEG-1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ITIMES-INEG-1 (REWRITE) (EQUAL (ITIMES (INEG X) Y) (INEG (ITIMES X Y))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 INEG . ITIMES-INEG-1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-INEG-1) (LEMMAS ITIMES . ITIMES-INEG-1))))) (PUT1-LST (QUOTE IQUO-IREM-UNIQUENESS) (QUOTE (IDATE 1000402193859 IMMEDIATE-DEPENDENTS0 (IQUO-IREM-UNIQUENESS-OFF1 IQUO-IREM-UNIQUENESS-ON IQUO-IREM-UNIQUENESS-OFF MATH-THEORY) EVENT (PROVE-LEMMA IQUO-IREM-UNIQUENESS NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (AND (INTEGERP R) (AND (INTEGERP Q) (AND (NOT (EQUAL J (QUOTE 0))) (AND (EQUAL I (IPLUS R (ITIMES J Q))) (IF (NOT (ILESSP I (QUOTE 0))) (AND (NOT (ILESSP R (QUOTE 0))) (ILESSP R (IABS J))) (AND (NOT (ILESSP (QUOTE 0) R)) (ILESSP (INEG (IABS J)) R))))))))) (AND (EQUAL R (IREM I J)) (EQUAL Q (IQUO I J)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-LESSP-ARG2 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IQUO . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IREM . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INEG . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IABS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ILESSP . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ITIMES . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IPLUS . IQUO-IREM-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUO-IREM-UNIQUENESS))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (QUOTE (IDATE 1000402193857 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-OFF MATH-THEORY) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (NOT (EQUAL J (QUOTE 0))))) (AND (EQUAL (IPLUS (IREM I J) (ITIMES J (IQUO I J))) I) (IF (NOT (ILESSP I (QUOTE 0))) (AND (NOT (ILESSP (IREM I J) (QUOTE 0))) (ILESSP (IREM I J) (IABS J))) (AND (NOT (ILESSP (QUOTE 0) (IREM I J))) (ILESSP (INEG (IABS J)) (IREM I J)))))) ((USE (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 (I I) (J J)) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 (I I) (J J)) (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 (I I) (J J))) (ENABLE INTEGERP ILESSP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 IABS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 IQUO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 IREM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (QUOTE (IDATE 1000402193857 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (AND (NOT (EQUAL J (QUOTE 0))) (ILESSP I (QUOTE 0))))) (AND (NOT (ILESSP (QUOTE 0) (IREM I J))) (ILESSP (INEG (IABS J)) (IREM I J)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IQUO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT-ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IABS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 IREM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (QUOTE (IDATE 1000402193855 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (AND (NOT (EQUAL J (QUOTE 0))) (NOT (ILESSP I (QUOTE 0)))))) (AND (NOT (ILESSP (IREM I J) (QUOTE 0))) (ILESSP (IREM I J) (IABS J)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IQUO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IABS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 IREM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (QUOTE (IDATE 1000402193854 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 NIL (IMPLIES (INTEGERP I) (EQUAL (IPLUS (IREM I J) (ITIMES J (IQUO I J))) I)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 IQUO . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 IREM . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1))))) (PUT1-LST (QUOTE IDIV-IMOD-UNIQUENESS) (QUOTE (IDATE 1000402193854 IMMEDIATE-DEPENDENTS0 (IDIV-IMOD-UNIQUENESS-OFF1 IDIV-IMOD-UNIQUENESS-ON IDIV-IMOD-UNIQUENESS-OFF MATH-THEORY) EVENT (PROVE-LEMMA IDIV-IMOD-UNIQUENESS NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (AND (INTEGERP R) (AND (INTEGERP Q) (AND (NOT (EQUAL J (QUOTE 0))) (AND (EQUAL I (IPLUS R (ITIMES J Q))) (IF (ILESSP (QUOTE 0) J) (AND (NOT (ILESSP R (QUOTE 0))) (ILESSP R J)) (AND (NOT (ILESSP (QUOTE 0) R)) (ILESSP J R))))))))) (AND (EQUAL R (IMOD I J)) (EQUAL Q (IDIV I J)))) ((ENABLE IMOD IABS IDIFFERENCE IPLUS INEG FIX-INT ITIMES IDIV ILESSP INTEGERP QUOTIENT-DIFFERENCE-LESSP-ARG2) (ENABLE-THEORY NATURALS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-LESSP-ARG2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INEG . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 NATURALS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IDIV . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IMOD . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ILESSP . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ITIMES . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIV-IMOD-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INTEGERP . IDIV-IMOD-UNIQUENESS))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (QUOTE (IDATE 1000402193853 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-OFF MATH-THEORY) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (NOT (EQUAL J (QUOTE 0))))) (AND (EQUAL (IPLUS (IMOD I J) (ITIMES J (IDIV I J))) I) (IF (ILESSP (QUOTE 0) J) (AND (NOT (ILESSP (IMOD I J) (QUOTE 0))) (ILESSP (IMOD I J) J)) (AND (NOT (ILESSP (QUOTE 0) (IMOD I J))) (ILESSP J (IMOD I J)))))) ((USE (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 (I I) (J J)) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 (I I) (J J)) (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 (I I) (J J))) (ENABLE INTEGERP ILESSP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 IDIV . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 IMOD . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (QUOTE (IDATE 1000402193853 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 NIL (IMPLIES (AND (INTEGERP J) (ILESSP J (QUOTE 0))) (AND (NOT (ILESSP (QUOTE 0) (IMOD I J))) (ILESSP J (IMOD I J)))) ((ENABLE IMOD ILESSP IDIFFERENCE IPLUS INEG ITIMES IDIV INTEGERP FIX-INT) (ENABLE-THEORY NATURALS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 IDIV . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 NATURALS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 IMOD . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (QUOTE (IDATE 1000402193851 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 NIL (IMPLIES (ILESSP (QUOTE 0) J) (AND (NOT (ILESSP (IMOD I J) (QUOTE 0))) (ILESSP (IMOD I J) J))) ((ENABLE IMOD ILESSP IDIFFERENCE IPLUS INEG ITIMES IDIV INTEGERP FIX-INT) (ENABLE-THEORY NATURALS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 IDIV . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 NATURALS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 IMOD . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2))))) (PUT1-LST (QUOTE DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (QUOTE (IDATE 1000402193849 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-ON DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF) EVENT (PROVE-LEMMA DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 NIL (IMPLIES (INTEGERP I) (EQUAL (IPLUS (IMOD I J) (ITIMES J (IDIV I J))) I)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 IDIV . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 IMOD . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1))))) (PUT1-LST (QUOTE IQUOTIENT-IREMAINDER-UNIQUENESS) (QUOTE (IDATE 1000402193849 IMMEDIATE-DEPENDENTS0 (IQUOTIENT-IREMAINDER-UNIQUENESS-OFF1 IQUOTIENT-IREMAINDER-UNIQUENESS-ON IQUOTIENT-IREMAINDER-UNIQUENESS-OFF MATH-THEORY) EVENT (PROVE-LEMMA IQUOTIENT-IREMAINDER-UNIQUENESS NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (AND (INTEGERP R) (AND (INTEGERP Q) (AND (NOT (EQUAL J (QUOTE 0))) (AND (EQUAL I (IPLUS R (ITIMES J Q))) (AND (NOT (ILESSP R (QUOTE 0))) (ILESSP R (IABS J))))))))) (AND (EQUAL R (IREMAINDER I J)) (EQUAL Q (IQUOTIENT I J)))) ((ENABLE IREMAINDER IABS IDIFFERENCE IPLUS INEG FIX-INT ITIMES IQUOTIENT ILESSP INTEGERP QUOTIENT-DIFFERENCE-LESSP-ARG2) (ENABLE-THEORY NATURALS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-LESSP-ARG2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INEG . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 NATURALS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IABS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ILESSP . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 ITIMES . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 IPLUS . IQUOTIENT-IREMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 INTEGERP . IQUOTIENT-IREMAINDER-UNIQUENESS))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-LESSP-ARG2) (QUOTE (IDATE 1000402193848 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE-LESSP-ARG2-OFF IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-LESSP-ARG2 (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER A C) (QUOTE 0)) (LESSP B C)) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (ZEROP B) (QUOTIENT A C) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (ADD1 (QUOTIENT B C))) (QUOTE 0))))) ((ENABLE-THEORY NATURALS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . QUOTIENT-DIFFERENCE-LESSP-ARG2) (IMMEDIATE-DEPENDENTS0 NATURALS . QUOTIENT-DIFFERENCE-LESSP-ARG2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-LESSP-ARG2))))) (PUT1-LST (QUOTE DIVISION-THEOREM) (QUOTE (IDATE 1000402193848 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-OFF1 DIVISION-THEOREM-ON DIVISION-THEOREM-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA DIVISION-THEOREM NIL (IMPLIES (AND (INTEGERP I) (AND (INTEGERP J) (NOT (EQUAL J (QUOTE 0))))) (AND (EQUAL (IPLUS (IREMAINDER I J) (ITIMES J (IQUOTIENT I J))) I) (AND (NOT (ILESSP (IREMAINDER I J) (QUOTE 0))) (ILESSP (IREMAINDER I J) (IABS J))))) ((USE (DIVISION-THEOREM-PART1 (I I) (J J)) (DIVISION-THEOREM-PART2 (I I) (J J)) (DIVISION-THEOREM-PART3 (I I) (J J))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART1 . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART2 . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 DIVISION-THEOREM-PART3 . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 IABS . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 IREMAINDER . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART3) (QUOTE (IDATE 1000402193848 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-PART3-OFF1 DIVISION-THEOREM-PART3-ON DIVISION-THEOREM-PART3-OFF MATH-THEORY DIVISION-THEOREM) EVENT (PROVE-LEMMA DIVISION-THEOREM-PART3 NIL (IMPLIES (AND (INTEGERP J) (NOT (EQUAL J (QUOTE 0)))) (ILESSP (IREMAINDER I J) (IABS J))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IABS . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 IREMAINDER . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-PART3) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-PART3))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART2) (QUOTE (IDATE 1000402193846 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-PART2-OFF1 DIVISION-THEOREM-PART2-ON DIVISION-THEOREM-PART2-OFF MATH-THEORY DIVISION-THEOREM) EVENT (PROVE-LEMMA DIVISION-THEOREM-PART2 NIL (IMPLIES (AND (INTEGERP J) (NOT (EQUAL J (QUOTE 0)))) (NOT (ILESSP (IREMAINDER I J) (QUOTE 0)))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 ITIMES-0-LEFT . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 INEG . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 FIX-INT . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 IREMAINDER . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 ILESSP . DIVISION-THEOREM-PART2) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-PART2))))) (PUT1-LST (QUOTE DIVISION-THEOREM-PART1) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (DIVISION-THEOREM-PART1-OFF1 DIVISION-THEOREM-PART1-ON DIVISION-THEOREM-PART1-OFF MATH-THEORY DIVISION-THEOREM) EVENT (PROVE-LEMMA DIVISION-THEOREM-PART1 NIL (IMPLIES (INTEGERP I) (EQUAL (IPLUS (IREMAINDER I J) (ITIMES J (IQUOTIENT I J))) I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIFFERENCE . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 ITIMES . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 IREMAINDER . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 IPLUS . DIVISION-THEOREM-PART1) (IMMEDIATE-DEPENDENTS0 INTEGERP . DIVISION-THEOREM-PART1))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-UNIQUENESS) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (QUOTIENT-REMAINDER-UNIQUENESS-OFF1 QUOTIENT-REMAINDER-UNIQUENESS-ON QUOTIENT-REMAINDER-UNIQUENESS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA QUOTIENT-REMAINDER-UNIQUENESS NIL (IMPLIES (AND (EQUAL A (PLUS R (TIMES B Q))) (LESSP R B)) (AND (EQUAL (FIX R) (REMAINDER A B)) (EQUAL (FIX Q) (QUOTIENT A B)))) ((ENABLE-THEORY NATURALS GROUND-ZERO) (ENABLE REMAINDER QUOTIENT) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-REMAINDER-UNIQUENESS) (IMMEDIATE-DEPENDENTS0 NATURALS . QUOTIENT-REMAINDER-UNIQUENESS))))) (PUT1-LST (QUOTE ITIMES-1-ARG1) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (ITIMES-1-ARG1-OFF1 ITIMES-1-ARG1-ON ITIMES-1-ARG1-OFF MATH-THEORY INTEGERS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR ITIMES-LIST-EVAL$-FACTORS EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC) EVENT (PROVE-LEMMA ITIMES-1-ARG1 (REWRITE) (EQUAL (ITIMES (QUOTE 1) X) (FIX-INT X)) ((ENABLE INTEGERP FIX-INT ITIMES) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-1-ARG1) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . ITIMES-1-ARG1) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . ITIMES-1-ARG1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-1-ARG1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-1-ARG1) (LEMMAS ITIMES . ITIMES-1-ARG1))))) (PUT1-LST (QUOTE EQUAL-ITIMES-MINUS-1) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-MINUS-1-OFF1 EQUAL-ITIMES-MINUS-1-ON EQUAL-ITIMES-MINUS-1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA EQUAL-ITIMES-MINUS-1 (REWRITE) (EQUAL (EQUAL (ITIMES A B) (QUOTE -1)) (OR (AND (EQUAL A (QUOTE -1)) (EQUAL B (QUOTE 1))) (AND (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE -1))))) ((ENABLE ITIMES INTEGERP FIX-INT) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . EQUAL-ITIMES-MINUS-1) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-MINUS-1) (LEMMAS EQUAL . EQUAL-ITIMES-MINUS-1))))) (PUT1-LST (QUOTE EQUAL-ITIMES-1) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-1-OFF1 EQUAL-ITIMES-1-ON EQUAL-ITIMES-1-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA EQUAL-ITIMES-1 (REWRITE) (EQUAL (EQUAL (ITIMES A B) (QUOTE 1)) (OR (AND (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE 1))) (AND (EQUAL A (QUOTE -1)) (EQUAL B (QUOTE -1))))) ((ENABLE ITIMES INTEGERP FIX-INT) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . EQUAL-ITIMES-1) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-1) (LEMMAS EQUAL . EQUAL-ITIMES-1))))) (PUT1-LST (QUOTE EQUAL-ITIMES-0) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (EQUAL-ITIMES-0-OFF1 EQUAL-ITIMES-0-ON EQUAL-ITIMES-0-OFF MATH-THEORY INTEGERS SOME-EVAL$S-TO-0-ELIMINATOR ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 MEMBER-IZEROP-ITIMES-FRINGE) EVENT (PROVE-LEMMA EQUAL-ITIMES-0 (REWRITE) (EQUAL (EQUAL (ITIMES X Y) (QUOTE 0)) (OR (EQUAL (FIX-INT X) (QUOTE 0)) (EQUAL (FIX-INT Y) (QUOTE 0)))) ((ENABLE ITIMES INTEGERP FIX-INT) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 INTEGERP . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 FIX-INT . EQUAL-ITIMES-0) (IMMEDIATE-DEPENDENTS0 ITIMES . EQUAL-ITIMES-0) (LEMMAS EQUAL . EQUAL-ITIMES-0))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-ITIMES) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-ITIMES-OFF1 ASSOCIATIVITY-OF-ITIMES-ON ASSOCIATIVITY-OF-ITIMES-OFF MATH-THEORY INTEGERS ITIMES-LIST-BAGDIFF ITIMES-LIST-APPEND) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-ITIMES (REWRITE) (EQUAL (ITIMES (ITIMES X Y) Z) (ITIMES X (ITIMES Y Z))) ((ENABLE ITIMES INTEGERP FIX-INT) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . ASSOCIATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . ASSOCIATIVITY-OF-ITIMES) (LEMMAS ITIMES . ASSOCIATIVITY-OF-ITIMES))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-ITIMES) (QUOTE (IDATE 1000402193845 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-ITIMES-OFF1 COMMUTATIVITY2-OF-ITIMES-ON COMMUTATIVITY2-OF-ITIMES-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-DELETE EVAL$-ITIMES-TREE-REC) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-ITIMES (REWRITE) (EQUAL (ITIMES X (ITIMES Y Z)) (ITIMES Y (ITIMES X Z))) ((ENABLE ITIMES INTEGERP FIX-INT) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . COMMUTATIVITY2-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . COMMUTATIVITY2-OF-ITIMES) (LEMMAS ITIMES . COMMUTATIVITY2-OF-ITIMES))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS) (QUOTE (IDATE 1000402193844 IMMEDIATE-DEPENDENTS0 (ITIMES-DISTRIBUTES-OVER-IPLUS-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-ON ITIMES-DISTRIBUTES-OVER-IPLUS-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS) EVENT (PROVE-LEMMA ITIMES-DISTRIBUTES-OVER-IPLUS (REWRITE) (AND (EQUAL (ITIMES X (IPLUS Y Z)) (IPLUS (ITIMES X Y) (ITIMES X Z))) (EQUAL (ITIMES (IPLUS X Y) Z) (IPLUS (ITIMES X Z) (ITIMES Y Z)))) ((USE (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF (X X) (Y Y) (Z Z)) (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF (X Z) (Y X) (Z Y))) (ENABLE COMMUTATIVITY-OF-ITIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-ITIMES . ITIMES-DISTRIBUTES-OVER-IPLUS) (IMMEDIATE-DEPENDENTS0 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF . ITIMES-DISTRIBUTES-OVER-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . ITIMES-DISTRIBUTES-OVER-IPLUS) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-DISTRIBUTES-OVER-IPLUS) (LEMMAS ITIMES . ITIMES-DISTRIBUTES-OVER-IPLUS) (LEMMAS ITIMES . ITIMES-DISTRIBUTES-OVER-IPLUS))))) (PUT1-LST (QUOTE ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (QUOTE (IDATE 1000402193844 IMMEDIATE-DEPENDENTS0 (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF1 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-ON ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF-OFF MATH-THEORY INTEGERS ITIMES-DISTRIBUTES-OVER-IPLUS) EVENT (PROVE-LEMMA ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF NIL (EQUAL (ITIMES X (IPLUS Y Z)) (IPLUS (ITIMES X Y) (ITIMES X Z))) ((ENABLE ITIMES IPLUS INTEGERP FIX-INT COMMUTATIVITY2-OF-IPLUS ASSOCIATIVITY-OF-IPLUS) (ENABLE-THEORY MULTIPLICATION ADDITION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 IPLUS . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-ITIMES) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY-OF-ITIMES-OFF1 COMMUTATIVITY-OF-ITIMES-ON COMMUTATIVITY-OF-ITIMES-OFF MATH-THEORY INTEGERS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR LISTP-CDR-FACTORS-IMPLIES-INTEGERP SOME-EVAL$S-TO-0-ELIMINATOR MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ILESSP-ITIMES-RIGHT-POSITIVE EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 MEMBER-IZEROP-ITIMES-FRINGE ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 ITIMES-DISTRIBUTES-OVER-IPLUS) EVENT (PROVE-LEMMA COMMUTATIVITY-OF-ITIMES (REWRITE) (EQUAL (ITIMES X Y) (ITIMES Y X)) ((ENABLE ITIMES FIX-INT INTEGERP) (ENABLE-THEORY MULTIPLICATION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . COMMUTATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . COMMUTATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . COMMUTATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . COMMUTATIVITY-OF-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . COMMUTATIVITY-OF-ITIMES) (LEMMAS ITIMES . COMMUTATIVITY-OF-ITIMES))))) (PUT1-LST (QUOTE ITIMES-FIX-INT2) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-FIX-INT2-OFF1 ITIMES-FIX-INT2-ON ITIMES-FIX-INT2-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA ITIMES-LIST-EVAL$-FRINGE EVAL$-ITIMES-TREE-REC) EVENT (PROVE-LEMMA ITIMES-FIX-INT2 (REWRITE) (EQUAL (ITIMES A (FIX-INT B)) (ITIMES A B)) ((ENABLE ITIMES FIX-INT INTEGERP TIMES-ZERO) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-FIX-INT2) (IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-FIX-INT2) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-FIX-INT2) (LEMMAS ITIMES . ITIMES-FIX-INT2))))) (PUT1-LST (QUOTE ITIMES-FIX-INT1) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-FIX-INT1-OFF1 ITIMES-FIX-INT1-ON ITIMES-FIX-INT1-OFF MATH-THEORY INTEGERS IREM-FIX-INT2 IMOD-FIX-INT2 IREMAINDER-FIX-INT2) EVENT (PROVE-LEMMA ITIMES-FIX-INT1 (REWRITE) (EQUAL (ITIMES (FIX-INT A) B) (ITIMES A B)) ((ENABLE ITIMES FIX-INT INTEGERP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-FIX-INT1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-FIX-INT1) (LEMMAS ITIMES . ITIMES-FIX-INT1))))) (PUT1-LST (QUOTE ITIMES-ZERO2-OFF) (QUOTE (IDATE 1000402193843 EVENT (TOGGLE ITIMES-ZERO2-OFF ITIMES-ZERO2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-ZERO2 . ITIMES-ZERO2-OFF) (DISABLED-LEMMAS NIL ITIMES-ZERO2 ITIMES-ZERO2-OFF . T))))) (PUT1-LST (QUOTE ITIMES-0-RIGHT) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-0-RIGHT-OFF1 ITIMES-0-RIGHT-ON ITIMES-0-RIGHT-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA ITIMES-0-RIGHT (REWRITE) (EQUAL (ITIMES X (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-0-RIGHT) (IMMEDIATE-DEPENDENTS0 ITIMES-ZERO2 . ITIMES-0-RIGHT) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-0-RIGHT) (LEMMAS ITIMES . ITIMES-0-RIGHT))))) (PUT1-LST (QUOTE ITIMES-ZERO2) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-ZERO2-OFF ITIMES-0-RIGHT) EVENT (PROVE-LEMMA ITIMES-ZERO2 (REWRITE) (IMPLIES (EQUAL (FIX-INT Y) (QUOTE 0)) (EQUAL (ITIMES X Y) (QUOTE 0))) ((ENABLE ITIMES FIX-INT INTEGERP TIMES-ZERO) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-ZERO2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ITIMES-ZERO2) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-ZERO2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-ZERO2) (LEMMAS ITIMES . ITIMES-ZERO2))))) (PUT1-LST (QUOTE ITIMES-ZERO1-OFF) (QUOTE (IDATE 1000402193843 EVENT (TOGGLE ITIMES-ZERO1-OFF ITIMES-ZERO1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES-ZERO1 . ITIMES-ZERO1-OFF) (DISABLED-LEMMAS NIL ITIMES-ZERO1 ITIMES-ZERO1-OFF . T))))) (PUT1-LST (QUOTE ITIMES-0-LEFT) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-0-LEFT-OFF1 ITIMES-0-LEFT-ON ITIMES-0-LEFT-OFF MATH-THEORY INTEGERS LISTP-CDR-FACTORS-IMPLIES-INTEGERP SOME-EVAL$S-TO-0-ELIMINATOR MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-LIST-EVAL$-FACTORS MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 MEMBER-IZEROP-ITIMES-FRINGE ITIMES-LIST-EVAL$-FRINGE ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2) EVENT (PROVE-LEMMA ITIMES-0-LEFT (REWRITE) (EQUAL (ITIMES (QUOTE 0) Y) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-0-LEFT) (IMMEDIATE-DEPENDENTS0 ITIMES-ZERO1 . ITIMES-0-LEFT) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-0-LEFT) (LEMMAS ITIMES . ITIMES-0-LEFT))))) (PUT1-LST (QUOTE ITIMES-ZERO1) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (ITIMES-ZERO1-OFF ITIMES-0-LEFT) EVENT (PROVE-LEMMA ITIMES-ZERO1 (REWRITE) (IMPLIES (EQUAL (FIX-INT X) (QUOTE 0)) (EQUAL (ITIMES X Y) (QUOTE 0))) ((ENABLE ITIMES TIMES FIX-INT INTEGERP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ITIMES-ZERO1) (IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-ZERO1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES-ZERO1) (LEMMAS ITIMES . ITIMES-ZERO1))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-ON CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY SAME-FIX-INT-IMPLIES-NOT-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-IPLUS-ILESSP ((META ILESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-IPLUS-ILESSP X) A)) ((USE (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) (LEMMAS ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP))))) (PUT1-LST (QUOTE MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF) (QUOTE (IDATE 1000402193843 EVENT (TOGGLE MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF MAKE-CANCEL-IPLUS-INEQUALITY-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF) (DISABLED-LEMMAS NIL MAKE-CANCEL-IPLUS-INEQUALITY-1 MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF . T))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS-ILESSP) (QUOTE (MAIN-EVENT CANCEL-IPLUS-ILESSP))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-IPLUS-ILESSP 16 T)) TOTALP-LST ((CANCEL-IPLUS-ILESSP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X) X)) LISP-CODE *1*CANCEL-IPLUS-ILESSP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193843 SATELLITES (*1*CANCEL-IPLUS-ILESSP) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-IPLUS-ILESSP-OFF1 CANCEL-IPLUS-ILESSP-OFF1 G*1*CANCEL-IPLUS-ILESSP-ON CANCEL-IPLUS-ILESSP-ON G*1*CANCEL-IPLUS-ILESSP-OFF CANCEL-IPLUS-ILESSP-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) EVENT (DEFN CANCEL-IPLUS-ILESSP (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CANCEL-IPLUS-ILESSP) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-IPLUS-ILESSP) (DCELL . *1*CANCEL-IPLUS-ILESSP))))) (PUT1-LST (QUOTE MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) EVENT (PROVE-LEMMA MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-IPLUS-INEQUALITY-1 X Y) A) (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF X (BAGINT X Y))) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF Y (BAGINT X Y))) (QUOTE NIL)))) A)) ((ENABLE MAKE-CANCEL-IPLUS-INEQUALITY-1 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (DISABLE EVAL$) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (IMMEDIATE-DEPENDENTS0 BAGINT . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (IMMEDIATE-DEPENDENTS0 BAGDIFF . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) (LEMMAS EVAL$ . MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER))))) (PUT1-LST (QUOTE IPLUS-TREE-NO-FIX-INT-OFF) (QUOTE (IDATE 1000402193843 EVENT (TOGGLE IPLUS-TREE-NO-FIX-INT-OFF IPLUS-TREE-NO-FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . IPLUS-TREE-NO-FIX-INT-OFF) (DISABLED-LEMMAS NIL IPLUS-TREE-NO-FIX-INT IPLUS-TREE-NO-FIX-INT-OFF . T))))) (PUT1-LST (QUOTE EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER) EVENT (PROVE-LEMMA EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT (REWRITE) (EQUAL (ILESSP (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-NO-FIX-INT X) A) (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-NO-FIX-INT Y) A)) (ILESSP (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-2 . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 ILESSP-FIX-INT-1 . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE-REC . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-NO-FIX-INT . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (IMMEDIATE-DEPENDENTS0 ILESSP . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) (LEMMAS ILESSP . EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT))))) (PUT1-LST (QUOTE *1*IPLUS-TREE-NO-FIX-INT) (QUOTE (MAIN-EVENT IPLUS-TREE-NO-FIX-INT))) (PUT1-LST (QUOTE IPLUS-TREE-NO-FIX-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-TREE-NO-FIX-INT -1 NIL)) TOTALP-LST ((IPLUS-TREE-NO-FIX-INT . T)) SDEFN (LAMBDA (L) (IF (LISTP L) (IPLUS-TREE-REC L) (QUOTE (QUOTE 0)))) LISP-CODE *1*IPLUS-TREE-NO-FIX-INT SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193843 SATELLITES (*1*IPLUS-TREE-NO-FIX-INT) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-TREE-NO-FIX-INT-OFF1 G*1*IPLUS-TREE-NO-FIX-INT-ON G*1*IPLUS-TREE-NO-FIX-INT-OFF MATH-THEORY CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER IPLUS-TREE-NO-FIX-INT-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) EVENT (DEFN IPLUS-TREE-NO-FIX-INT (L) (IF (LISTP L) (IPLUS-TREE-REC L) (QUOTE (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . IPLUS-TREE-NO-FIX-INT) (DCELL . *1*IPLUS-TREE-NO-FIX-INT))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-IPLUS-ILESSP-1 X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE-FIX-INT1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-2-FOR-ILESSP . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS-ILESSP-1 . CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2-FOR-ILESSP) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (IPLUS-CANCELLATION-2-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-2-FOR-ILESSP-ON IPLUS-CANCELLATION-2-FOR-ILESSP-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) EVENT (PROVE-LEMMA IPLUS-CANCELLATION-2-FOR-ILESSP (REWRITE) (EQUAL (ILESSP (IPLUS B A) (IPLUS C A)) (ILESSP B C))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-CANCELLATION-2-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1-FOR-ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-CANCELLATION-2-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP) (LEMMAS ILESSP . IPLUS-CANCELLATION-2-FOR-ILESSP))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1-FOR-ILESSP) (QUOTE (IDATE 1000402193843 IMMEDIATE-DEPENDENTS0 (IPLUS-CANCELLATION-1-FOR-ILESSP-OFF1 IPLUS-CANCELLATION-1-FOR-ILESSP-ON IPLUS-CANCELLATION-1-FOR-ILESSP-OFF MATH-THEORY INTEGERS IPLUS-CANCELLATION-2-FOR-ILESSP) EVENT (PROVE-LEMMA IPLUS-CANCELLATION-1-FOR-ILESSP (REWRITE) (EQUAL (ILESSP (IPLUS A B) (IPLUS A C)) (ILESSP B C)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-PLUS-ARG1 . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-CANCELLATION-1-FOR-ILESSP) (IMMEDIATE-DEPENDENTS0 ILESSP . IPLUS-CANCELLATION-1-FOR-ILESSP) (LEMMAS ILESSP . IPLUS-CANCELLATION-1-FOR-ILESSP))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED) (QUOTE (IDATE 1000402193842 IMMEDIATE-DEPENDENTS0 (LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED-OFF IPLUS-CANCELLATION-1-FOR-ILESSP) EVENT (PROVE-LEMMA LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED (REWRITE) (EQUAL (LESSP W (DIFFERENCE (PLUS Y W) X)) (LESSP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-PLUS-ARG1 . LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED) (LEMMAS LESSP . LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-PLUS-ARG1) (QUOTE (IDATE 1000402193842 IMMEDIATE-DEPENDENTS0 (LESSP-DIFFERENCE-PLUS-ARG1-OFF IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED) EVENT (PROVE-LEMMA LESSP-DIFFERENCE-PLUS-ARG1 (REWRITE) (EQUAL (LESSP W (DIFFERENCE (PLUS W Y) X)) (LESSP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . LESSP-DIFFERENCE-PLUS-ARG1) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . LESSP-DIFFERENCE-PLUS-ARG1) (LEMMAS LESSP . LESSP-DIFFERENCE-PLUS-ARG1))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS-ILESSP-1) (QUOTE (MAIN-EVENT CANCEL-IPLUS-ILESSP-1))) (PUT1-LST (QUOTE CANCEL-IPLUS-ILESSP-1) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-IPLUS-ILESSP-1 16 T)) TOTALP-LST ((CANCEL-IPLUS-ILESSP-1 . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (MAKE-CANCEL-IPLUS-INEQUALITY-1 (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) X) X)) LISP-CODE *1*CANCEL-IPLUS-ILESSP-1 SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193842 SATELLITES (*1*CANCEL-IPLUS-ILESSP-1) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-IPLUS-ILESSP-1-OFF1 CANCEL-IPLUS-ILESSP-1-OFF1 G*1*CANCEL-IPLUS-ILESSP-1-ON CANCEL-IPLUS-ILESSP-1-ON G*1*CANCEL-IPLUS-ILESSP-1-OFF CANCEL-IPLUS-ILESSP-1-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) EVENT (DEFN CANCEL-IPLUS-ILESSP-1 (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE ILESSP)) (MAKE-CANCEL-IPLUS-INEQUALITY-1 (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CANCEL-IPLUS-ILESSP-1) (IMMEDIATE-DEPENDENTS0 MAKE-CANCEL-IPLUS-INEQUALITY-1 . CANCEL-IPLUS-ILESSP-1) (DCELL . *1*CANCEL-IPLUS-ILESSP-1))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-IPLUS-INEQUALITY-1) (QUOTE (MAIN-EVENT MAKE-CANCEL-IPLUS-INEQUALITY-1))) (PUT1-LST (QUOTE MAKE-CANCEL-IPLUS-INEQUALITY-1) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-CANCEL-IPLUS-INEQUALITY-1 16 NIL NIL)) TOTALP-LST ((MAKE-CANCEL-IPLUS-INEQUALITY-1 . T)) SDEFN (LAMBDA (X Y) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (BAGDIFF X (BAGINT X Y))) (CONS (IPLUS-TREE (BAGDIFF Y (BAGINT X Y))) (QUOTE NIL))))) LISP-CODE *1*MAKE-CANCEL-IPLUS-INEQUALITY-1 SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193842 SATELLITES (*1*MAKE-CANCEL-IPLUS-INEQUALITY-1) IMMEDIATE-DEPENDENTS0 (G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF1 G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-ON G*1*MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF MATH-THEORY MAKE-CANCEL-IPLUS-INEQUALITY-1-OFF MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CANCEL-IPLUS-ILESSP-1) EVENT (DEFN MAKE-CANCEL-IPLUS-INEQUALITY-1 (X Y) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE (BAGDIFF X (BAGINT X Y))) (CONS (IPLUS-TREE (BAGDIFF Y (BAGINT X Y))) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGINT . MAKE-CANCEL-IPLUS-INEQUALITY-1) (IMMEDIATE-DEPENDENTS0 BAGDIFF . MAKE-CANCEL-IPLUS-INEQUALITY-1) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE . MAKE-CANCEL-IPLUS-INEQUALITY-1) (DCELL . *1*MAKE-CANCEL-IPLUS-INEQUALITY-1))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-2) (QUOTE (IDATE 1000402193842 IMMEDIATE-DEPENDENTS0 (ILESSP-FIX-INT-2-OFF1 ILESSP-FIX-INT-2-ON ILESSP-FIX-INT-2-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) EVENT (PROVE-LEMMA ILESSP-FIX-INT-2 (REWRITE) (EQUAL (ILESSP X (FIX-INT Y)) (ILESSP X Y)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-FIX-INT-2) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-FIX-INT-2) (LEMMAS ILESSP . ILESSP-FIX-INT-2))))) (PUT1-LST (QUOTE ILESSP-FIX-INT-1) (QUOTE (IDATE 1000402193842 IMMEDIATE-DEPENDENTS0 (ILESSP-FIX-INT-1-OFF1 ILESSP-FIX-INT-1-ON ILESSP-FIX-INT-1-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-ITIMES-TREE-NO-FIX-INT-1 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT) EVENT (PROVE-LEMMA ILESSP-FIX-INT-1 (REWRITE) (EQUAL (ILESSP (FIX-INT X) Y) (ILESSP X Y)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ILESSP-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . ILESSP-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . ILESSP-FIX-INT-1) (IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-FIX-INT-1) (LEMMAS ILESSP . ILESSP-FIX-INT-1))))) (PUT1-LST (QUOTE IPLUS-INEG6-OFF) (QUOTE (IDATE 1000402193842 EVENT (TOGGLE IPLUS-INEG6-OFF IPLUS-INEG6 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG6 . IPLUS-INEG6-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG6 IPLUS-INEG6-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG5-OFF) (QUOTE (IDATE 1000402193842 EVENT (TOGGLE IPLUS-INEG5-OFF IPLUS-INEG5 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG5 . IPLUS-INEG5-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG5 IPLUS-INEG5-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-IPLUS) (QUOTE (IDATE 1000402193842 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-IPLUS-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-IPLUS-ON CORRECTNESS-OF-CANCEL-IPLUS-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-IPLUS ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-IPLUS X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG7 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 INEG . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-EVAL$-FRINGE . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-BAGDIFF . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG6 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG5 . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . CORRECTNESS-OF-CANCEL-IPLUS) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-IPLUS))))) (PUT1-LST (QUOTE IPLUS-INEG7) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG7-OFF1 IPLUS-INEG7-ON IPLUS-INEG7-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA IPLUS-INEG7 (REWRITE) (EQUAL (EQUAL (QUOTE 0) (IPLUS X (INEG Y))) (EQUAL (FIX-INT Y) (FIX-INT X))) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG7) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG7) (LEMMAS EQUAL . IPLUS-INEG7))))) (PUT1-LST (QUOTE EVAL$-IPLUS) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (EVAL$-IPLUS-OFF CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA EVAL$-IPLUS (REWRITE) (IMPLIES (AND (LISTP X) (EQUAL (CAR X) (QUOTE IPLUS))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . EVAL$-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . EVAL$-IPLUS) (LEMMAS EVAL$ . EVAL$-IPLUS))))) (PUT1-LST (QUOTE IPLUS-INEG6) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG6-OFF CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA IPLUS-INEG6 (REWRITE) (IMPLIES (INTEGERP X) (EQUAL (EQUAL X (IPLUS Y (IPLUS W (INEG Z)))) (EQUAL (IPLUS X Z) (IPLUS Y W)))) ((USE (IPLUS-INEG5) (COMMUTATIVITY-OF-IPLUS (X W) (Y (INEG Z)))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG5 . IPLUS-INEG6) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG6) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG6) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG6) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG6) (LEMMAS EQUAL . IPLUS-INEG6))))) (PUT1-LST (QUOTE IPLUS-INEG5-LEMMA-2-OFF) (QUOTE (IDATE 1000402193841 EVENT (TOGGLE IPLUS-INEG5-LEMMA-2-OFF IPLUS-INEG5-LEMMA-2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG5-LEMMA-2 . IPLUS-INEG5-LEMMA-2-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-2-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG5-LEMMA-1-OFF) (QUOTE (IDATE 1000402193841 EVENT (TOGGLE IPLUS-INEG5-LEMMA-1-OFF IPLUS-INEG5-LEMMA-1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG5-LEMMA-1 . IPLUS-INEG5-LEMMA-1-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG5-LEMMA-1 IPLUS-INEG5-LEMMA-1-OFF . T))))) (PUT1-LST (QUOTE IPLUS-INEG5) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG5-OFF CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG6) EVENT (PROVE-LEMMA IPLUS-INEG5 (REWRITE) (IMPLIES (INTEGERP X) (EQUAL (EQUAL X (IPLUS Y (IPLUS (INEG Z) W))) (EQUAL (IPLUS X Z) (IPLUS Y W)))) ((ENABLE IPLUS-INEG5-LEMMA-1 IPLUS-INEG5-LEMMA-2 INTEGERP-IPLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . IPLUS-INEG5) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG5-LEMMA-2 . IPLUS-INEG5) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG5-LEMMA-1 . IPLUS-INEG5) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG5) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG5) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG5) (LEMMAS EQUAL . IPLUS-INEG5))))) (PUT1-LST (QUOTE IPLUS-INEG5-LEMMA-2) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG5-LEMMA-2-OFF IPLUS-INEG5) EVENT (PROVE-LEMMA IPLUS-INEG5-LEMMA-2 (REWRITE) (IMPLIES (AND (INTEGERP X) (INTEGERP V)) (EQUAL (EQUAL X (IPLUS (INEG Z) V)) (EQUAL (IPLUS X Z) V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG5-LEMMA-2) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG5-LEMMA-2) (LEMMAS EQUAL . IPLUS-INEG5-LEMMA-2))))) (PUT1-LST (QUOTE IPLUS-INEG5-LEMMA-1) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG5-LEMMA-1-OFF IPLUS-INEG5) EVENT (PROVE-LEMMA IPLUS-INEG5-LEMMA-1 (REWRITE) (IMPLIES (INTEGERP X) (EQUAL (EQUAL X (IPLUS Y (IPLUS (INEG Z) W))) (EQUAL X (IPLUS (INEG Z) (IPLUS Y W)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG5-LEMMA-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . IPLUS-INEG5-LEMMA-1) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG5-LEMMA-1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG5-LEMMA-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG5-LEMMA-1) (LEMMAS EQUAL . IPLUS-INEG5-LEMMA-1))))) (PUT1-LST (QUOTE IPLUS-LIST-EVAL$-FRINGE) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-FRINGE-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA IPLUS-LIST-EVAL$-FRINGE (REWRITE) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (IPLUS-FRINGE X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (IPLUS-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-APPEND . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST-APPEND . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . IPLUS-LIST-EVAL$-FRINGE) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-EVAL$-FRINGE) (LEMMAS IPLUS-LIST . IPLUS-LIST-EVAL$-FRINGE))))) (PUT1-LST (QUOTE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS-OFF IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-PART2 CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS (REWRITE) (IMPLIES (NOT (INTEGERP A)) (EQUAL (EQUAL A (IPLUS B C)) (QUOTE *1*FALSE))) ((USE (INTEGERP-IPLUS (X B) (Y C))) (ENABLE INTEGERP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS) (LEMMAS EQUAL . NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS))))) (PUT1-LST (QUOTE IPLUS-TREE-OFF) (QUOTE (IDATE 1000402193841 EVENT (TOGGLE IPLUS-TREE-OFF IPLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE . IPLUS-TREE-OFF) (DISABLED-LEMMAS NIL IPLUS-TREE IPLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LIST-APPEND) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (IPLUS-LIST-APPEND-OFF1 IPLUS-LIST-APPEND-ON IPLUS-LIST-APPEND-OFF MATH-THEORY INTEGERS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS IPLUS-LIST-EVAL$-FRINGE) EVENT (PROVE-LEMMA IPLUS-LIST-APPEND (REWRITE) (EQUAL (IPLUS-LIST (APPEND X Y)) (IPLUS (IPLUS-LIST X) (IPLUS-LIST Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . IPLUS-LIST-APPEND) (LEMMAS IPLUS-LIST . IPLUS-LIST-APPEND))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-BAGDIFF) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (INTEGERS EVAL$-IPLUS-LIST-BAGDIFF-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA EVAL$-IPLUS-LIST-BAGDIFF (REWRITE) (IMPLIES (SUBBAGP X Y) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y X) A)) (IDIFFERENCE (IPLUS-LIST (EVAL$ (QUOTE LIST) Y A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INEG . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 INEG-IPLUS . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-LIST-DELETE . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-LIST-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-IPLUS-LIST-BAGDIFF) (LEMMAS IPLUS-LIST . EVAL$-IPLUS-LIST-BAGDIFF))))) (PUT1-LST (QUOTE EVAL$-IPLUS-LIST-DELETE) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (EVAL$-IPLUS-LIST-DELETE-OFF1 EVAL$-IPLUS-LIST-DELETE-ON EVAL$-IPLUS-LIST-DELETE-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-IPLUS EVAL$-IPLUS-LIST-BAGDIFF) EVENT (PROVE-LEMMA EVAL$-IPLUS-LIST-DELETE (REWRITE) (IMPLIES (MEMBER Z Y) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)) (IDIFFERENCE (IPLUS-LIST (EVAL$ (QUOTE LIST) Y A)) (EVAL$ (QUOTE *1*TRUE) Z A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-IPLUS-LIST-DELETE) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-LIST-DELETE) (LEMMAS IPLUS-LIST . EVAL$-IPLUS-LIST-DELETE))))) (PUT1-LST (QUOTE CANCEL-IPLUS-OFF) (QUOTE (IDATE 1000402193841 EVENT (TOGGLE CANCEL-IPLUS-OFF CANCEL-IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . CANCEL-IPLUS-OFF) (DISABLED-LEMMAS NIL CANCEL-IPLUS CANCEL-IPLUS-OFF . T))))) (PUT1-LST (QUOTE EVAL$-CANCEL-IPLUS) (QUOTE (IDATE 1000402193841 IMMEDIATE-DEPENDENTS0 (EVAL$-CANCEL-IPLUS-OFF CORRECTNESS-OF-CANCEL-IPLUS) EVENT (PROVE-LEMMA EVAL$-CANCEL-IPLUS (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CANCEL-IPLUS X) A) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS))))) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) A))) (EVAL$ (QUOTE *1*TRUE) X A)) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) A)) (QUOTE 0)) (QUOTE *1*FALSE)) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (EQUAL (QUOTE 0) (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) A))) (QUOTE *1*FALSE)) (EVAL$ (QUOTE *1*TRUE) X A)))) (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE EVAL$-IPLUS-TREE CANCEL-IPLUS EVAL$-LIST-CONS EVAL$-LITATOM EVAL$-QUOTE) (DISABLE EVAL$) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . EVAL$-CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-IPLUS . EVAL$-CANCEL-IPLUS) (LEMMAS EVAL$ . EVAL$-CANCEL-IPLUS))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS) (QUOTE (MAIN-EVENT CANCEL-IPLUS))) (PUT1-LST (QUOTE CANCEL-IPLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-IPLUS 16 T)) TOTALP-LST ((CANCEL-IPLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (IPLUS-TREE (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (IPLUS-TREE (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-IPLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193841 SATELLITES (*1*CANCEL-IPLUS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-IPLUS-OFF1 G*1*CANCEL-IPLUS-ON G*1*CANCEL-IPLUS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-IPLUS CANCEL-IPLUS-OFF EVAL$-CANCEL-IPLUS) EVENT (DEFN CANCEL-IPLUS (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (IPLUS-TREE (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) X) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (IPLUS-TREE (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (IPLUS-TREE (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (IPLUS-TREE (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE . CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS-FRINGE . CANCEL-IPLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-IPLUS) (DCELL . *1*CANCEL-IPLUS))))) (PUT1-LST (QUOTE EVAL$-LIST-APPEND) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-APPEND-OFF1 EVAL$-LIST-APPEND-ON EVAL$-LIST-APPEND-OFF MATH-THEORY INTEGERS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS ITIMES-LIST-EVAL$-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA ITIMES-LIST-EVAL$-FRINGE IPLUS-LIST-EVAL$-FRINGE) EVENT (PROVE-LEMMA EVAL$-LIST-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE LIST) (APPEND X Y) A) (APPEND (EVAL$ (QUOTE LIST) X A) (EVAL$ (QUOTE LIST) Y A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-LIST-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-LIST-APPEND) (LEMMAS EVAL$ . EVAL$-LIST-APPEND))))) (PUT1-LST (QUOTE EVAL$-IPLUS-TREE) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY EVAL$-IPLUS-TREE-OFF CORRECTNESS-OF-CANCEL-IPLUS-ILESSP EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA EVAL$-CANCEL-IPLUS) EVENT (PROVE-LEMMA EVAL$-IPLUS-TREE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE X) A) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-IPLUS-TREE-REC . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-TREE) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE . EVAL$-IPLUS-TREE) (LEMMAS EVAL$ . EVAL$-IPLUS-TREE))))) (PUT1-LST (QUOTE EVAL$-IPLUS-TREE-REC) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (EVAL$-IPLUS-TREE-REC-OFF EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT EVAL$-IPLUS-TREE) EVENT (PROVE-LEMMA EVAL$-IPLUS-TREE-REC (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-REC X) A) (IF (LISTP X) (IF (LISTP (CDR X)) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-NLISTP . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-LIST-CONS . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS-LIST . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . EVAL$-IPLUS-TREE-REC) (IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . EVAL$-IPLUS-TREE-REC) (LEMMAS EVAL$ . EVAL$-IPLUS-TREE-REC))))) (PUT1-LST (QUOTE INTEGERP-IPLUS-LIST) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (INTEGERP-IPLUS-LIST-OFF1 INTEGERP-IPLUS-LIST-ON INTEGERP-IPLUS-LIST-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-TREE-REC) EVENT (PROVE-LEMMA INTEGERP-IPLUS-LIST (REWRITE) (INTEGERP (IPLUS-LIST X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-IPLUS-LIST) (IMMEDIATE-DEPENDENTS0 IPLUS-LIST . INTEGERP-IPLUS-LIST) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IPLUS-LIST) (LEMMAS INTEGERP . INTEGERP-IPLUS-LIST))))) (PUT1-LST (QUOTE *1*IPLUS-LIST) (QUOTE (MAIN-EVENT IPLUS-LIST))) (PUT1-LST (QUOTE IPLUS-LIST) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-LIST 36 NIL)) LEMMAS ((REWRITE-RULE IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS NIL (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS X)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS X)) A)))) NIL) (REWRITE-RULE EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS ((REMOVE-INEGS X Y)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (REMOVE-INEGS X Y)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS Y)) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS X)) A)))) NIL) (REWRITE-RULE EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS ((REMOVE-INEGS X Y)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (REMOVE-INEGS X Y)) A)) (IPLUS (IPLUS-LIST (EVAL$ (QUOTE LIST) (CAR (SPLIT-OUT-INEG-TERMS X)) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (CDR (SPLIT-OUT-INEG-TERMS Y)) A)))) NIL) (REWRITE-RULE IPLUS-LIST-EVAL$-FRINGE NIL (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (IPLUS-FRINGE X) A)) (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A))) NIL) (REWRITE-RULE IPLUS-LIST-APPEND NIL (EQUAL (IPLUS-LIST (APPEND X Y)) (IPLUS (IPLUS-LIST X) (IPLUS-LIST Y))) NIL) (REWRITE-RULE EVAL$-IPLUS-LIST-BAGDIFF ((SUBBAGP X Y)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y X) A)) (IDIFFERENCE (IPLUS-LIST (EVAL$ (QUOTE LIST) Y A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE EVAL$-IPLUS-LIST-DELETE ((MEMBER Z Y)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)) (IDIFFERENCE (IPLUS-LIST (EVAL$ (QUOTE LIST) Y A)) (EVAL$ (QUOTE *1*TRUE) Z A))) NIL)) TOTALP-LST ((IPLUS-LIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IPLUS (CAR X) (IPLUS-LIST (CDR X))) (QUOTE 0))) LISP-CODE *1*IPLUS-LIST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193840 CONTROLLER-POCKETS (1) SATELLITES (*1*IPLUS-LIST) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-LIST-OFF1 IPLUS-LIST-OFF1 G*1*IPLUS-LIST-ON IPLUS-LIST-ON G*1*IPLUS-LIST-OFF IPLUS-LIST-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT IPLUS-LIST-EVAL$-FRINGE IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-CANCEL-IPLUS EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC INTEGERP-IPLUS-LIST) EVENT (DEFN IPLUS-LIST (X) (IF (LISTP X) (IPLUS (CAR X) (IPLUS-LIST (CDR X))) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-LIST) (DCELL . *1*IPLUS-LIST))))) (PUT1-LST (QUOTE *1*IPLUS-TREE) (QUOTE (MAIN-EVENT IPLUS-TREE))) (PUT1-LST (QUOTE IPLUS-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-TREE -1 NIL)) TOTALP-LST ((IPLUS-TREE . T)) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (LISTP (CDR L)) (IPLUS-TREE-REC L) (CONS (QUOTE FIX-INT) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 0)))) LISP-CODE *1*IPLUS-TREE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193840 SATELLITES (*1*IPLUS-TREE) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-TREE-OFF1 G*1*IPLUS-TREE-ON G*1*IPLUS-TREE-OFF MATH-THEORY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-INEQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-EQUALITY EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT MAKE-CANCEL-IPLUS-INEQUALITY-1 IPLUS-TREE-OFF CANCEL-IPLUS EVAL$-IPLUS-TREE) EVENT (DEFN IPLUS-TREE (L) (IF (LISTP L) (IF (LISTP (CDR L)) (IPLUS-TREE-REC L) (CONS (QUOTE FIX-INT) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-TREE-REC . IPLUS-TREE) (DCELL . *1*IPLUS-TREE))))) (PUT1-LST (QUOTE *1*IPLUS-TREE-REC) (QUOTE (MAIN-EVENT IPLUS-TREE-REC))) (PUT1-LST (QUOTE IPLUS-TREE-REC) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-TREE-REC -1 NIL)) TOTALP-LST ((IPLUS-TREE-REC . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP (CDR L)) (CONS (QUOTE IPLUS) (CONS (CAR L) (CONS (IPLUS-TREE-REC (CDR L)) (QUOTE NIL)))) (CAR L))) LISP-CODE *1*IPLUS-TREE-REC SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP (CDR L)))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (LESSP-COUNT-LISTP-CDR NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193840 CONTROLLER-POCKETS (1) SATELLITES (*1*IPLUS-TREE-REC) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-TREE-REC-OFF1 IPLUS-TREE-REC-OFF1 G*1*IPLUS-TREE-REC-ON IPLUS-TREE-REC-ON G*1*IPLUS-TREE-REC-OFF IPLUS-TREE-REC-OFF MATH-THEORY IPLUS-TREE-NO-FIX-INT EVAL$-IPLUS-TREE-REC IPLUS-TREE) EVENT (DEFN IPLUS-TREE-REC (L) (IF (NLISTP (CDR L)) (CAR L) (CONS (QUOTE IPLUS) (CONS (CAR L) (CONS (IPLUS-TREE-REC (CDR L)) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-COUNT-LISTP-CDR . IPLUS-TREE-REC) (DCELL . *1*IPLUS-TREE-REC))))) (PUT1-LST (QUOTE LESSP-COUNT-LISTP-CDR) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR LESSP-COUNT-LISTP-CDR-OFF2 CONJOIN-INEQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON1 EVAL$-DISJOIN-EQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-OFF1 DISJOIN-EQUALITIES-WITH-0 LESSP-COUNT-LISTP-CDR-ON LESSP-COUNT-LISTP-CDR-OFF EVAL$-ITIMES-TREE-REC ITIMES-TREE-REC EVAL$-IPLUS-TREE-REC IPLUS-TREE-REC) EVENT (PROVE-LEMMA LESSP-COUNT-LISTP-CDR (REWRITE) (IMPLIES (LISTP (CDR X)) (LESSP (COUNT (CDR X)) (COUNT X)))) LOCAL-UNDO-TUPLES ((LINEAR-LEMMAS COUNT . LESSP-COUNT-LISTP-CDR))))) (PUT1-LST (QUOTE *1*IPLUS-FRINGE) (QUOTE (MAIN-EVENT IPLUS-FRINGE))) (PUT1-LST (QUOTE IPLUS-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS-FRINGE 16 NIL)) TOTALP-LST ((IPLUS-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (APPEND (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*IPLUS-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE IPLUS))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE IPLUS)))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193840 CONTROLLER-POCKETS (1) SATELLITES (*1*IPLUS-FRINGE) IMMEDIATE-DEPENDENTS0 (G*1*IPLUS-FRINGE-OFF1 IPLUS-FRINGE-OFF1 G*1*IPLUS-FRINGE-ON IPLUS-FRINGE-ON G*1*IPLUS-FRINGE-OFF IPLUS-FRINGE-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED MAKE-CANCEL-INEG-TERMS-EQUALITY CANCEL-IPLUS-ILESSP CANCEL-IPLUS-ILESSP-1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-LIST-EVAL$-FRINGE EVAL$-CANCEL-IPLUS CANCEL-IPLUS) EVENT (DEFN IPLUS-FRINGE (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (APPEND (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*IPLUS-FRINGE))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-AUX-OFF) (QUOTE (IDATE 1000402193840 EVENT (TOGGLE CORRECTNESS-OF-CANCEL-INEG-AUX-OFF CORRECTNESS-OF-CANCEL-INEG-AUX T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-AUX . CORRECTNESS-OF-CANCEL-INEG-AUX-OFF) (DISABLED-LEMMAS NIL CORRECTNESS-OF-CANCEL-INEG-AUX CORRECTNESS-OF-CANCEL-INEG-AUX-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-INEG-OFF1 INTEGER-METAS CORRECTNESS-OF-CANCEL-INEG-ON CORRECTNESS-OF-CANCEL-INEG-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG5-LEMMA-2 EVAL$-IPLUS-LIST-DELETE) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-INEG ((META IPLUS)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-INEG X) A)) ((DISABLE CANCEL-INEG-AUX))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-INEG-AUX . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN . CORRECTNESS-OF-CANCEL-INEG) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG . CORRECTNESS-OF-CANCEL-INEG) (LEMMAS IPLUS . CORRECTNESS-OF-CANCEL-INEG))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-INEG-AUX) (QUOTE (IDATE 1000402193840 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-INEG-AUX-OFF CORRECTNESS-OF-CANCEL-INEG) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-INEG-AUX (REWRITE) (IMPLIES (NOT (EQUAL (CANCEL-INEG-AUX X Y) (QUOTE *1*FALSE))) (EQUAL (EVAL$-CANCEL-INEG-AUX-FN X Y A) (IPLUS (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) Y A)))) ((INDUCT (CANCEL-INEG-AUX X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-INEG . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT2 . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-X-Y-INEG-X . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG2 . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 FIX-INT-FIX-INT . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 FIX-INT . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG1 . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 EVAL$-OTHER . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 INEG . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 IPLUS . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . CORRECTNESS-OF-CANCEL-INEG-AUX) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CORRECTNESS-OF-CANCEL-INEG-AUX) (LEMMAS EVAL$-CANCEL-INEG-AUX-FN . CORRECTNESS-OF-CANCEL-INEG-AUX))))) (PUT1-LST (QUOTE IPLUS-INEG-PROMOTE-OFF) (QUOTE (IDATE 1000402193839 EVENT (TOGGLE IPLUS-INEG-PROMOTE-OFF IPLUS-INEG-PROMOTE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG-PROMOTE . IPLUS-INEG-PROMOTE-OFF) (DISABLED-LEMMAS NIL IPLUS-INEG-PROMOTE IPLUS-INEG-PROMOTE-OFF . T))))) (PUT1-LST (QUOTE IPLUS-X-Y-INEG-X) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (IPLUS-X-Y-INEG-X-OFF1 IPLUS-X-Y-INEG-X-ON IPLUS-X-Y-INEG-X-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA IPLUS-X-Y-INEG-X (REWRITE) (EQUAL (IPLUS X (IPLUS Y (INEG X))) (FIX-INT Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-INEG4 . IPLUS-X-Y-INEG-X) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG-PROMOTE . IPLUS-X-Y-INEG-X) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-X-Y-INEG-X) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-X-Y-INEG-X) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-X-Y-INEG-X) (LEMMAS IPLUS . IPLUS-X-Y-INEG-X))))) (PUT1-LST (QUOTE IPLUS-INEG-PROMOTE) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG-PROMOTE-OFF IPLUS-X-Y-INEG-X) EVENT (PROVE-LEMMA IPLUS-INEG-PROMOTE (REWRITE) (EQUAL (IPLUS Y (INEG X)) (IPLUS (INEG X) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG-PROMOTE) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG-PROMOTE) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG-PROMOTE) (LEMMAS IPLUS . IPLUS-INEG-PROMOTE))))) (PUT1-LST (QUOTE IPLUS-INEG4) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG4-OFF1 IPLUS-INEG4-ON IPLUS-INEG4-OFF MATH-THEORY INTEGERS IPLUS-X-Y-INEG-X) EVENT (PROVE-LEMMA IPLUS-INEG4 (REWRITE) (EQUAL (IPLUS X (IPLUS (INEG X) Y)) (FIX-INT Y)) ((USE (IPLUS-INEG3 (X (INEG X)) (Y Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IPLUS-INEG4) (IMMEDIATE-DEPENDENTS0 INEG-INEG . IPLUS-INEG4) (IMMEDIATE-DEPENDENTS0 IPLUS-INEG3 . IPLUS-INEG4) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-INEG4) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG4) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG4) (LEMMAS IPLUS . IPLUS-INEG4))))) (PUT1-LST (QUOTE IPLUS-INEG3) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG3-OFF1 IPLUS-INEG3-ON IPLUS-INEG3-OFF MATH-THEORY INTEGERS IPLUS-INEG4) EVENT (PROVE-LEMMA IPLUS-INEG3 (REWRITE) (EQUAL (IPLUS (INEG X) (IPLUS X Y)) (FIX-INT Y)) ((ENABLE-THEORY INTEGER-DEFNS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 FIX-INT-REMOVER . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 IPLUS-0-LEFT . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 INTEGER-DEFNS . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG3) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG3) (LEMMAS IPLUS . IPLUS-INEG3))))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF1 EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-ON EVAL$-CANCEL-INEG-AUX-IS-ITS-FN-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG) EVENT (PROVE-LEMMA EVAL$-CANCEL-INEG-AUX-IS-ITS-FN (REWRITE) (IMPLIES (NOT (EQUAL (CANCEL-INEG-AUX X Y) (QUOTE *1*FALSE))) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CANCEL-INEG-AUX X Y) A) (EVAL$-CANCEL-INEG-AUX-FN X Y A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN) (IMMEDIATE-DEPENDENTS0 EVAL$-CANCEL-INEG-AUX-FN . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN) (IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN) (LEMMAS EVAL$ . EVAL$-CANCEL-INEG-AUX-IS-ITS-FN))))) (PUT1-LST (QUOTE *1*EVAL$-CANCEL-INEG-AUX-FN) (QUOTE (MAIN-EVENT EVAL$-CANCEL-INEG-AUX-FN))) (PUT1-LST (QUOTE EVAL$-CANCEL-INEG-AUX-FN) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$-CANCEL-INEG-AUX-FN -1 NIL NIL NIL)) LEMMAS ((REWRITE-RULE CORRECTNESS-OF-CANCEL-INEG-AUX ((NOT (EQUAL (CANCEL-INEG-AUX X Y) (QUOTE *1*FALSE)))) (EQUAL (EVAL$-CANCEL-INEG-AUX-FN X Y A) (IPLUS (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) Y A))) NIL)) TOTALP-LST ((EVAL$-CANCEL-INEG-AUX-FN)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y A) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE INEG)) (IF (EQUAL Y (CAR (CDR X))) (QUOTE 0) (IF (EQUAL (CAR (CDR Y)) (CAR (CDR X))) (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0)))) (IF (EQUAL (CAR Y) (QUOTE INEG)) (QUOTE 0) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0))) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0))) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0))))) (IF (EQUAL (CAR Y) (QUOTE INEG)) (QUOTE 0) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0))) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0))) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0)))))) LISP-CODE *1*EVAL$-CANCEL-INEG-AUX-FN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG))) (EQUAL Y (CAR (CDR X)))) NIL) (TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG))) (NOT (EQUAL Y (CAR (CDR X)))) (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) NIL) (TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG))) (NOT (EQUAL Y (CAR (CDR X)))) (NOT (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) (LISTP Y)) ((X (CAR (CDR (CDR Y))) A))) (TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG))) (NOT (EQUAL Y (CAR (CDR X)))) (NOT (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG)))) (EQUAL (CAR Y) (QUOTE INEG))) NIL) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG)))) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (AND (LISTP (CAR (CDR Y))) (AND (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y)))))))) NIL) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG)))) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (NOT (AND (LISTP (CAR (CDR Y))) (AND (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y)))))))) (LISTP Y)) ((X (CAR (CDR (CDR Y))) A))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG)))) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (NOT (AND (LISTP (CAR (CDR Y))) (AND (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y)))))))) (NOT (LISTP Y))) NIL)) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193839 CONTROLLER-POCKETS (2) SATELLITES (*1*EVAL$-CANCEL-INEG-AUX-FN) IMMEDIATE-DEPENDENTS0 (G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF1 EVAL$-CANCEL-INEG-AUX-FN-OFF1 G*1*EVAL$-CANCEL-INEG-AUX-FN-ON EVAL$-CANCEL-INEG-AUX-FN-ON G*1*EVAL$-CANCEL-INEG-AUX-FN-OFF EVAL$-CANCEL-INEG-AUX-FN-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-AUX EVAL$-CANCEL-INEG-AUX-IS-ITS-FN) EVENT (DEFN EVAL$-CANCEL-INEG-AUX-FN (X Y A) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE INEG))) (IF (EQUAL Y (CAR (CDR X))) (QUOTE 0) (IF (EQUAL (CAR (CDR Y)) (CAR (CDR X))) (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0)))) (IF (EQUAL (CAR Y) (QUOTE INEG)) (QUOTE 0) (IF (AND (LISTP (CAR (CDR Y))) (AND (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y))))))) (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)) (IF (LISTP Y) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$-CANCEL-INEG-AUX-FN X (CAR (CDR (CDR Y))) A)) (QUOTE 0)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . EVAL$-CANCEL-INEG-AUX-FN) (IMMEDIATE-DEPENDENTS0 FIX-INT . EVAL$-CANCEL-INEG-AUX-FN) (DCELL . *1*EVAL$-CANCEL-INEG-AUX-FN))))) (PUT1-LST (QUOTE EVAL$-OFF) (QUOTE (IDATE 1000402193839 EVENT (TOGGLE EVAL$-OFF EVAL$ T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL EVAL$ EVAL$-OFF . T))))) (PUT1-LST (QUOTE EVAL$-OTHER) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (EVAL$-OTHER-OFF1 EVAL$-OTHER-ON EVAL$-OTHER-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS LISTP-CDR-FACTORS-IMPLIES-INTEGERP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS MEMBER-0-ITIMES-FACTORS-YIELDS-0 ITIMES-LIST-EVAL$-FACTORS MEMBER-0-EVAL$-LIST CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA ITIMES-LIST-EVAL$-LIST-0 MEMBER-IZEROP-ITIMES-FRINGE ITIMES-LIST-EVAL$-FRINGE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS EVAL$-IPLUS IPLUS-LIST-EVAL$-FRINGE EVAL$-IPLUS-TREE-REC CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA EVAL$-OTHER (REWRITE) (IMPLIES (AND (NOT (LITATOM X)) (NLISTP X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) X))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-OTHER))))) (PUT1-LST (QUOTE EVAL$-QUOTE-ON) (QUOTE (IDATE 1000402193839 EVENT (TOGGLE EVAL$-QUOTE-ON EVAL$-QUOTE NIL) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-QUOTE-ON) (DISABLED-LEMMAS NIL EVAL$-QUOTE EVAL$-QUOTE-ON))))) (PUT1-LST (QUOTE EVAL$-LITATOM) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (EVAL$-LITATOM-OFF1 EVAL$-LITATOM-ON EVAL$-LITATOM-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA EVAL$-LITATOM (REWRITE) (IMPLIES (LITATOM X) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (CDR (ASSOC X A))))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-LITATOM))))) (PUT1-LST (QUOTE EVAL$-LIST-NLISTP) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-NLISTP-OFF1 EVAL$-LIST-NLISTP-ON EVAL$-LIST-NLISTP-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-LIST-EVAL$-FACTORS EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-FRINGE EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT IPLUS-LIST-EVAL$-FRINGE EVAL$-IPLUS-LIST-BAGDIFF EVAL$-LIST-APPEND EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC) EVENT (PROVE-LEMMA EVAL$-LIST-NLISTP (REWRITE) (IMPLIES (NLISTP X) (EQUAL (EVAL$ (QUOTE LIST) X A) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-LIST-NLISTP))))) (PUT1-LST (QUOTE EVAL$-LIST-CONS) (QUOTE (IDATE 1000402193839 IMMEDIATE-DEPENDENTS0 (EVAL$-LIST-CONS-OFF1 EVAL$-LIST-CONS-ON EVAL$-LIST-CONS-OFF MATH-THEORY INTEGERS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR SOME-EVAL$S-TO-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-LIST-EVAL$-FACTORS MEMBER-0-EVAL$-LIST EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC CORRECTNESS-OF-CANCEL-ITIMES-ILESSP EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-DELETE ITIMES-LIST-EVAL$-FRINGE EVAL$-ITIMES-TREE EVAL$-ITIMES-TREE-REC EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT IPLUS-LIST-EVAL$-FRINGE EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-LIST-APPEND EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC) EVENT (PROVE-LEMMA EVAL$-LIST-CONS (REWRITE) (EQUAL (EVAL$ (QUOTE LIST) (CONS X Y) A) (CONS (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE LIST) Y A)))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-LIST-CONS))))) (PUT1-LST (QUOTE *1*CANCEL-INEG) (QUOTE (MAIN-EVENT CANCEL-INEG))) (PUT1-LST (QUOTE CANCEL-INEG) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG 16 T)) TOTALP-LST ((CANCEL-INEG . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (IF (CANCEL-INEG-AUX (CAR (CDR X)) (CAR (CDR (CDR X)))) (CANCEL-INEG-AUX (CAR (CDR X)) (CAR (CDR (CDR X)))) X) X) X)) LISP-CODE *1*CANCEL-INEG SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193839 SATELLITES (*1*CANCEL-INEG) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-OFF1 CANCEL-INEG-OFF1 G*1*CANCEL-INEG-ON CANCEL-INEG-ON G*1*CANCEL-INEG-OFF CANCEL-INEG-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG) EVENT (DEFN CANCEL-INEG (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE IPLUS)) (IF (CANCEL-INEG-AUX (CAR (CDR X)) (CAR (CDR (CDR X)))) (CANCEL-INEG-AUX (CAR (CDR X)) (CAR (CDR (CDR X)))) X) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-INEG-AUX . CANCEL-INEG) (DCELL . *1*CANCEL-INEG))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-AUX) (QUOTE (MAIN-EVENT CANCEL-INEG-AUX))) (PUT1-LST (QUOTE CANCEL-INEG-AUX) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-INEG-AUX 17 NIL NIL)) TOTALP-LST ((CANCEL-INEG-AUX . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE INEG)) (IF (EQUAL Y (CAR (CDR X))) (QUOTE (QUOTE 0)) (IF (LISTP Y) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (EQUAL (CAR (CDR Y)) (CAR (CDR X))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (LISTP Y) (IF (EQUAL (CAR Y) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR Y))) (QUOTE (QUOTE 0)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) (IF (LISTP Y) (IF (EQUAL (CAR Y) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR Y))) (QUOTE (QUOTE 0)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) LISP-CODE *1*CANCEL-INEG-AUX SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (EQUAL Y (CAR (CDR X)))) NIL) (TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (NOT (EQUAL Y (CAR (CDR X)))) (LISTP Y) (EQUAL (CAR Y) (QUOTE IPLUS)) (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) NIL) (TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (NOT (EQUAL Y (CAR (CDR X)))) (LISTP Y) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (NOT (EQUAL Y (CAR (CDR X)))) (LISTP Y) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (EQUAL (CAR (CDR Y)) (CAR (CDR X)))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (NOT (EQUAL Y (CAR (CDR X)))) (LISTP Y) (NOT (EQUAL (CAR Y) (QUOTE IPLUS)))) NIL) (TESTS-AND-CASES ((LISTP X) (EQUAL (CAR X) (QUOTE INEG)) (NOT (EQUAL Y (CAR (CDR X)))) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NLISTP Y)) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (EQUAL (CAR Y) (QUOTE INEG)) (EQUAL X (CAR (CDR Y)))) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (EQUAL (CAR Y) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR Y))))) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y)))))) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR (CAR (CDR Y)))))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR (CAR (CDR Y)))))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (NOT (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (NOT (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (LISTP (CAR (CDR Y)))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (LISTP (CAR (CDR Y)))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((LISTP X) (NOT (EQUAL (CAR X) (QUOTE INEG))) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (NOT (EQUAL (CAR Y) (QUOTE IPLUS)))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (NLISTP Y)) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (EQUAL (CAR Y) (QUOTE INEG)) (EQUAL X (CAR (CDR Y)))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (EQUAL (CAR Y) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR Y))))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (EQUAL X (CAR (CDR (CAR (CDR Y)))))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR (CAR (CDR Y)))))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (NOT (EQUAL X (CAR (CDR (CAR (CDR Y)))))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (NOT (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (LISTP (CAR (CDR Y))) (NOT (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (LISTP (CAR (CDR Y)))) (CANCEL-INEG-AUX X (CAR (CDR (CDR Y))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (EQUAL (CAR Y) (QUOTE IPLUS)) (NOT (LISTP (CAR (CDR Y)))) (NOT (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))))) ((X (CAR (CDR (CDR Y)))))) (TESTS-AND-CASES ((NOT (LISTP X)) (NOT (NLISTP Y)) (NOT (EQUAL (CAR Y) (QUOTE INEG))) (NOT (EQUAL (CAR Y) (QUOTE IPLUS)))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (NLISTP EQUAL ZERO CDR-LESSP CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193838 CONTROLLER-POCKETS (2) SATELLITES (*1*CANCEL-INEG-AUX) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-INEG-AUX-OFF1 CANCEL-INEG-AUX-OFF1 G*1*CANCEL-INEG-AUX-ON CANCEL-INEG-AUX-ON G*1*CANCEL-INEG-AUX-OFF CANCEL-INEG-AUX-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX EVAL$-CANCEL-INEG-AUX-IS-ITS-FN CANCEL-INEG) EVENT (DEFN CANCEL-INEG-AUX (X Y) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE INEG)) (IF (EQUAL Y (CAR (CDR X))) (QUOTE (QUOTE 0)) (IF (LISTP Y) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (EQUAL (CAR (CDR Y)) (CAR (CDR X))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (IF (NLISTP Y) (QUOTE *1*FALSE) (IF (EQUAL (CAR Y) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR Y))) (QUOTE (QUOTE 0)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))))) (IF (NLISTP Y) (QUOTE *1*FALSE) (IF (EQUAL (CAR Y) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR Y))) (QUOTE (QUOTE 0)) (QUOTE *1*FALSE)) (IF (EQUAL (CAR Y) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR Y))) (IF (EQUAL (CAR (CAR (CDR Y))) (QUOTE INEG)) (IF (EQUAL X (CAR (CDR (CAR (CDR Y))))) (CONS (QUOTE FIX-INT) (CONS (CAR (CDR (CDR Y))) (QUOTE NIL))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (IF (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (CONS (QUOTE IPLUS) (CONS (CAR (CDR Y)) (CONS (CANCEL-INEG-AUX X (CAR (CDR (CDR Y)))) (QUOTE NIL)))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*CANCEL-INEG-AUX))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT2) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-FIX-INT2-OFF1 IDIFFERENCE-FIX-INT2-ON IDIFFERENCE-FIX-INT2-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IDIFFERENCE-FIX-INT2 (REWRITE) (EQUAL (IDIFFERENCE A (FIX-INT B)) (IDIFFERENCE A B)) ((ENABLE IDIFFERENCE IPLUS-FIX-INT2 INEG-FIX-INT) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-FIX-INT . IDIFFERENCE-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-FIX-INT2) (LEMMAS IDIFFERENCE . IDIFFERENCE-FIX-INT2))))) (PUT1-LST (QUOTE IDIFFERENCE-FIX-INT1) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IDIFFERENCE-FIX-INT1-OFF1 IDIFFERENCE-FIX-INT1-ON IDIFFERENCE-FIX-INT1-OFF MATH-THEORY INTEGERS IREMAINDER-FIX-INT1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA) EVENT (PROVE-LEMMA IDIFFERENCE-FIX-INT1 (REWRITE) (EQUAL (IDIFFERENCE (FIX-INT A) B) (IDIFFERENCE A B)) ((ENABLE IDIFFERENCE IPLUS-FIX-INT1) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-FIX-INT1 . IDIFFERENCE-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IDIFFERENCE-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IDIFFERENCE-FIX-INT1) (LEMMAS IDIFFERENCE . IDIFFERENCE-FIX-INT1))))) (PUT1-LST (QUOTE IPLUS-FIX-INT2) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-FIX-INT2-OFF1 IPLUS-FIX-INT2-ON IPLUS-FIX-INT2-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-EQUAL-LEMMA ITIMES-LIST-EVAL$-FACTORS CORRECTNESS-OF-CANCEL-IPLUS IPLUS-LIST-EVAL$-FRINGE EVAL$-IPLUS-TREE-REC CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA IPLUS-FIX-INT2 (REWRITE) (EQUAL (IPLUS A (FIX-INT B)) (IPLUS A B)) ((ENABLE IPLUS FIX-INT INTEGERP PLUS-ZERO-ARG2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IPLUS-FIX-INT2) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-FIX-INT2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-FIX-INT2) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-FIX-INT2) (LEMMAS IPLUS . IPLUS-FIX-INT2))))) (PUT1-LST (QUOTE IPLUS-FIX-INT1) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-FIX-INT1-OFF1 IPLUS-FIX-INT1-ON IPLUS-FIX-INT1-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY ITIMES-LIST-EVAL$-FACTORS IPLUS-LIST-EVAL$-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-INEG4 IDIFFERENCE-FIX-INT1) EVENT (PROVE-LEMMA IPLUS-FIX-INT1 (REWRITE) (EQUAL (IPLUS (FIX-INT A) B) (IPLUS A B)) ((ENABLE IPLUS FIX-INT INTEGERP PLUS-ZERO-ARG2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-FIX-INT1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-FIX-INT1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-FIX-INT1) (LEMMAS IPLUS . IPLUS-FIX-INT1))))) (PUT1-LST (QUOTE IPLUS-INEG2) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG2-OFF1 IPLUS-INEG2-ON IPLUS-INEG2-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA IPLUS-INEG2 (REWRITE) (EQUAL (IPLUS A (INEG A)) (QUOTE 0)) ((ENABLE IPLUS INEG INTEGERP FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG2) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG2) (LEMMAS IPLUS . IPLUS-INEG2))))) (PUT1-LST (QUOTE IPLUS-INEG1) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-INEG1-OFF1 IPLUS-INEG1-ON IPLUS-INEG1-OFF MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA IPLUS-INEG1 (REWRITE) (EQUAL (IPLUS (INEG A) A) (QUOTE 0)) ((ENABLE IPLUS INEG INTEGERP FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . IPLUS-INEG1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-INEG1) (LEMMAS IPLUS . IPLUS-INEG1))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-2) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-CANCELLATION-2-OFF1 IPLUS-CANCELLATION-2-ON IPLUS-CANCELLATION-2-OFF MATH-THEORY INTEGERS IPLUS-EVAL$-ITIMES-TREE-INEG) EVENT (PROVE-LEMMA IPLUS-CANCELLATION-2 (REWRITE) (EQUAL (EQUAL (IPLUS B A) (IPLUS C A)) (EQUAL (FIX-INT B) (FIX-INT C))) ((USE (IPLUS-CANCELLATION-1)) (ENABLE COMMUTATIVITY-OF-IPLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-IPLUS . IPLUS-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 IPLUS-CANCELLATION-1 . IPLUS-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-CANCELLATION-2) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-CANCELLATION-2) (LEMMAS EQUAL . IPLUS-CANCELLATION-2))))) (PUT1-LST (QUOTE IPLUS-CANCELLATION-1) (QUOTE (IDATE 1000402193838 IMMEDIATE-DEPENDENTS0 (IPLUS-CANCELLATION-1-OFF1 IPLUS-CANCELLATION-1-ON IPLUS-CANCELLATION-1-OFF MATH-THEORY INTEGERS IPLUS-EVAL$-ITIMES-TREE-INEG EVAL$-IPLUS-TREE-REC IPLUS-CANCELLATION-2) EVENT (PROVE-LEMMA IPLUS-CANCELLATION-1 (REWRITE) (EQUAL (EQUAL (IPLUS A B) (IPLUS A C)) (EQUAL (FIX-INT B) (FIX-INT C))) ((ENABLE IPLUS FIX-INT INTEGERP) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 ADDITION . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-CANCELLATION-1) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-CANCELLATION-1) (LEMMAS EQUAL . IPLUS-CANCELLATION-1))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-IPLUS) (QUOTE (IDATE 1000402193837 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-IPLUS-OFF1 V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA ASSOCIATIVITY-OF-IPLUS-ON ASSOCIATIVITY-OF-IPLUS-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-EQUAL-LEMMA IPLUS-CONSTANTS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG5-LEMMA-2 IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-IPLUS (REWRITE) (EQUAL (IPLUS (IPLUS X Y) Z) (IPLUS X (IPLUS Y Z))) ((ENABLE IPLUS) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 ADDITION . ASSOCIATIVITY-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . ASSOCIATIVITY-OF-IPLUS) (LEMMAS IPLUS . ASSOCIATIVITY-OF-IPLUS))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-IPLUS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INT-TO-V-OF-V-TO-INT IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS NEGATIVEP-IDIFFERENCE-ON-NUMBERPS IDIFFERENCE-0 COMMUTATIVITY-OF-IPLUS-ON1 COMMUTATIVITY-OF-IPLUS-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP IPLUS-DIV-HACK1 IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT COMMUTATIVITY-OF-IPLUS-ON COMMUTATIVITY-OF-IPLUS-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS CANCEL-CONSTANTS-EQUAL-LEMMA IPLUS-CONSTANTS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS LISTP-CDR-FACTORS-IMPLIES-INTEGERP ITIMES-LIST-EVAL$-FACTORS IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT IPLUS-CANCELLATION-2-FOR-ILESSP CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 EVAL$-IPLUS IPLUS-INEG6 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 IPLUS-LIST-EVAL$-FRINGE IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-INEG-PROMOTE IPLUS-INEG3 IPLUS-CANCELLATION-2) EVENT (PROVE-LEMMA COMMUTATIVITY-OF-IPLUS (REWRITE) (EQUAL (IPLUS X Y) (IPLUS Y X)) ((ENABLE IPLUS COMMUTATIVITY2-OF-IPLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . COMMUTATIVITY-OF-IPLUS) (LEMMAS IPLUS . COMMUTATIVITY-OF-IPLUS))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-IPLUS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-IPLUS-OFF1 V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA IPLUS3-PLUS-DIFFERENCE COMMUTATIVITY2-OF-IPLUS-ON COMMUTATIVITY2-OF-IPLUS-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-EQUAL-LEMMA IPLUS-CONSTANTS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG5-LEMMA-1 EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-TREE-REC CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-IPLUS (REWRITE) (EQUAL (IPLUS X (IPLUS Y Z)) (IPLUS Y (IPLUS X Z))) ((ENABLE IPLUS COMMUTATIVITY2-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . COMMUTATIVITY2-OF-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . COMMUTATIVITY2-OF-IPLUS) (LEMMAS IPLUS . COMMUTATIVITY2-OF-IPLUS))))) (PUT1-LST (QUOTE IPLUS-0-RIGHT) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS IDIFFERENCE-0 IPLUS-0-RIGHT-ON1 IPLUS-0-RIGHT-OFF1 IPLUS-0-RIGHT-ON IPLUS-0-RIGHT-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA IPLUS-0-RIGHT (REWRITE) (EQUAL (IPLUS X (QUOTE 0)) (FIX-INT X)) ((ENABLE IPLUS FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-0-RIGHT) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-0-RIGHT) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-0-RIGHT) (LEMMAS IPLUS . IPLUS-0-RIGHT))))) (PUT1-LST (QUOTE IPLUS-0-LEFT) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS NEGATIVEP-IDIFFERENCE-ON-NUMBERPS IDIFFERENCE-0 IPLUS-0-LEFT-ON1 IPLUS-0-LEFT-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA IPLUS-0-LEFT-ON IPLUS-0-LEFT-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS LISTP-CDR-FACTORS-IMPLIES-INTEGERP ITIMES-LIST-EVAL$-FACTORS IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 EVAL$-IPLUS IPLUS-INEG5-LEMMA-2 IPLUS-LIST-EVAL$-FRINGE IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-TREE EVAL$-IPLUS-TREE-REC CORRECTNESS-OF-CANCEL-INEG CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-INEG3) EVENT (PROVE-LEMMA IPLUS-0-LEFT (REWRITE) (EQUAL (IPLUS (QUOTE 0) X) (FIX-INT X)) ((ENABLE IPLUS FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-0-LEFT) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-0-LEFT) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-0-LEFT) (LEMMAS IPLUS . IPLUS-0-LEFT))))) (PUT1-LST (QUOTE IPLUS-RIGHT-ID-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE IPLUS-RIGHT-ID-OFF IPLUS-RIGHT-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-RIGHT-ID . IPLUS-RIGHT-ID-OFF) (DISABLED-LEMMAS NIL IPLUS-RIGHT-ID IPLUS-RIGHT-ID-OFF . T))))) (PUT1-LST (QUOTE IPLUS-RIGHT-ID) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERS IPLUS-RIGHT-ID-OFF) EVENT (PROVE-LEMMA IPLUS-RIGHT-ID (REWRITE) (IMPLIES (NOT (INTEGERP Y)) (EQUAL (IPLUS X Y) (FIX-INT X))) ((ENABLE INTEGERP IPLUS FIX-INT PLUS-ZERO-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . IPLUS-RIGHT-ID) (IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-RIGHT-ID) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-RIGHT-ID) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-RIGHT-ID) (LEMMAS IPLUS . IPLUS-RIGHT-ID))))) (PUT1-LST (QUOTE IPLUS-LEFT-ID-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE IPLUS-LEFT-ID-OFF IPLUS-LEFT-ID T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS-LEFT-ID . IPLUS-LEFT-ID-OFF) (DISABLED-LEMMAS NIL IPLUS-LEFT-ID IPLUS-LEFT-ID-OFF . T))))) (PUT1-LST (QUOTE IPLUS-LEFT-ID) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERS IPLUS-LEFT-ID-OFF) EVENT (PROVE-LEMMA IPLUS-LEFT-ID (REWRITE) (IMPLIES (NOT (INTEGERP X)) (EQUAL (IPLUS X Y) (FIX-INT Y))) ((ENABLE INTEGERP IPLUS FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IPLUS-LEFT-ID) (IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-LEFT-ID) (IMMEDIATE-DEPENDENTS0 INTEGERP . IPLUS-LEFT-ID) (LEMMAS IPLUS . IPLUS-LEFT-ID))))) (PUT1-LST (QUOTE INEG-0) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INEG-0-OFF1 INEG-0-ON INEG-0-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INEG-0 (REWRITE) (EQUAL (INEG (QUOTE 0)) (QUOTE 0)) ((ENABLE INEG) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . INEG-0) (LEMMAS INEG . INEG-0))))) (PUT1-LST (QUOTE INEG-OF-NON-INTEGERP-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE INEG-OF-NON-INTEGERP-OFF INEG-OF-NON-INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG-OF-NON-INTEGERP . INEG-OF-NON-INTEGERP-OFF) (DISABLED-LEMMAS NIL INEG-OF-NON-INTEGERP INEG-OF-NON-INTEGERP-OFF . T))))) (PUT1-LST (QUOTE INEG-OF-NON-INTEGERP) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERS INEG-OF-NON-INTEGERP-OFF) EVENT (PROVE-LEMMA INEG-OF-NON-INTEGERP (REWRITE) (IMPLIES (NOT (INTEGERP X)) (EQUAL (INEG X) (QUOTE 0))) ((ENABLE INEG INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . INEG-OF-NON-INTEGERP) (IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-OF-NON-INTEGERP) (LEMMAS INEG . INEG-OF-NON-INTEGERP))))) (PUT1-LST (QUOTE INEG-FIX-INT) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INEG-FIX-INT-OFF1 INEG-FIX-INT-ON INEG-FIX-INT-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS EVAL$-ITIMES-TREE-INEG IDIFFERENCE-FIX-INT2) EVENT (PROVE-LEMMA INEG-FIX-INT (REWRITE) (EQUAL (INEG (FIX-INT X)) (INEG X)) ((ENABLE INEG FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-FIX-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . INEG-FIX-INT) (IMMEDIATE-DEPENDENTS0 INEG . INEG-FIX-INT) (LEMMAS INEG . INEG-FIX-INT))))) (PUT1-LST (QUOTE INEG-INEG) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INEG-INEG-OFF1 INEG-INEG-ON INEG-INEG-OFF MATH-THEORY INTEGERS IPLUS-INEG4) EVENT (PROVE-LEMMA INEG-INEG (REWRITE) (EQUAL (INEG (INEG X)) (FIX-INT X)) ((ENABLE INEG FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INEG-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . INEG-INEG) (IMMEDIATE-DEPENDENTS0 INEG . INEG-INEG) (LEMMAS INEG . INEG-INEG))))) (PUT1-LST (QUOTE INEG-IPLUS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INEG-IPLUS-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA INEG-IPLUS-ON INEG-IPLUS-OFF MATH-THEORY INTEGERS EVAL$-IPLUS-LIST-BAGDIFF) EVENT (PROVE-LEMMA INEG-IPLUS (REWRITE) (EQUAL (INEG (IPLUS A B)) (IPLUS (INEG A) (INEG B))) ((ENABLE IPLUS INEG PLUS-ZERO-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . INEG-IPLUS) (IMMEDIATE-DEPENDENTS0 INEG . INEG-IPLUS) (LEMMAS INEG . INEG-IPLUS))))) (PUT1-LST (QUOTE FIX-INT-ITIMES) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-ITIMES-OFF1 FIX-INT-ITIMES-ON FIX-INT-ITIMES-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FRINGE DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3) EVENT (PROVE-LEMMA FIX-INT-ITIMES (REWRITE) (EQUAL (FIX-INT (ITIMES X Y)) (ITIMES X Y)) ((ENABLE INTEGERP ITIMES FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . FIX-INT-ITIMES) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-ITIMES) (LEMMAS FIX-INT . FIX-INT-ITIMES))))) (PUT1-LST (QUOTE FIX-INT-IABS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-IABS-OFF1 FIX-INT-IABS-ON FIX-INT-IABS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA FIX-INT-IABS (REWRITE) (EQUAL (FIX-INT (IABS X)) (IABS X)) ((ENABLE INTEGERP FIX-INT IABS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-IABS) (IMMEDIATE-DEPENDENTS0 IABS . FIX-INT-IABS) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IABS) (LEMMAS FIX-INT . FIX-INT-IABS))))) (PUT1-LST (QUOTE FIX-INT-INEG) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-INEG-OFF1 V-ALU-CORRECT-INT-ADDER-OUTPUT FIX-INT-INEG-ON FIX-INT-INEG-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA FIX-INT-INEG (REWRITE) (EQUAL (FIX-INT (INEG X)) (INEG X)) ((ENABLE FIX-INT INTEGERP INEG) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-INEG) (IMMEDIATE-DEPENDENTS0 INEG . FIX-INT-INEG) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-INEG) (LEMMAS FIX-INT . FIX-INT-INEG))))) (PUT1-LST (QUOTE FIX-INT-IDIFFERENCE) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-IDIFFERENCE-OFF1 FIX-INT-IDIFFERENCE-ON FIX-INT-IDIFFERENCE-OFF MATH-THEORY INTEGERS FIX-INT-IREM FIX-INT-IMOD FIX-INT-IREMAINDER) EVENT (PROVE-LEMMA FIX-INT-IDIFFERENCE (REWRITE) (EQUAL (FIX-INT (IDIFFERENCE A B)) (IDIFFERENCE A B)) ((ENABLE FIX-INT-IPLUS IDIFFERENCE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT-IPLUS . FIX-INT-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . FIX-INT-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IDIFFERENCE) (LEMMAS FIX-INT . FIX-INT-IDIFFERENCE))))) (PUT1-LST (QUOTE FIX-INT-IPLUS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FIX-INT-IPLUS-OFF1 V-ALU-CORRECT-INT-NOT FIX-INT-IPLUS-ON FIX-INT-IPLUS-OFF MATH-THEORY INTEGERS ITIMES-LIST-EVAL$-FACTORS CORRECTNESS-OF-CANCEL-IPLUS IPLUS-LIST-EVAL$-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX FIX-INT-IDIFFERENCE) EVENT (PROVE-LEMMA FIX-INT-IPLUS (REWRITE) (EQUAL (FIX-INT (IPLUS A B)) (IPLUS A B)) ((ENABLE FIX-INT INTEGERP IPLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-IPLUS) (IMMEDIATE-DEPENDENTS0 IPLUS . FIX-INT-IPLUS) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-IPLUS) (LEMMAS FIX-INT . FIX-INT-IPLUS))))) (PUT1-LST (QUOTE FIX-INT-FIX-INT) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-FIX-INT-OFF1 FIX-INT-FIX-INT-ON FIX-INT-FIX-INT-OFF MATH-THEORY INTEGERS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA IREM-FIX-INT1 IMOD-FIX-INT1 IPLUS-LIST-EVAL$-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX) EVENT (PROVE-LEMMA FIX-INT-FIX-INT (REWRITE) (EQUAL (FIX-INT (FIX-INT X)) (FIX-INT X)) ((ENABLE FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-FIX-INT) (IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-FIX-INT) (LEMMAS FIX-INT . FIX-INT-FIX-INT))))) (PUT1-LST (QUOTE FIX-INT-REMOVER) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FIX-INT-REMOVER-OFF1 IPLUS-DIV-HACK1 IDIV-ILESSP-0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA FIX-INT-REMOVER-ON FIX-INT-REMOVER-OFF MATH-THEORY INTEGERS DIFFERENCE-IDIFFERENCE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CORRECTNESS-OF-CANCEL-FACTORS-0 SOME-EVAL$S-TO-0-ELIMINATOR EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL ITIMES-LIST-EVAL$-FACTORS EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 SUBSETP-IMPLIES-ITIMES-LIST-EVAL$-EQUALS-0 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 MEMBER-IZEROP-ITIMES-FRINGE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-APPEND EVAL$-ITIMES-TREE-REC IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 IPLUS-INEG5-LEMMA-2 IPLUS-LIST-APPEND EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE EVAL$-IPLUS-TREE-REC IPLUS-INEG3) EVENT (PROVE-LEMMA FIX-INT-REMOVER (REWRITE) (IMPLIES (INTEGERP X) (EQUAL (FIX-INT X) X)) ((ENABLE FIX-INT INTEGERP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-REMOVER) (IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT-REMOVER) (LEMMAS FIX-INT . FIX-INT-REMOVER))))) (PUT1-LST (QUOTE INTEGERP-ITIMES) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERP-ITIMES-OFF1 INTEGERP-ITIMES-ON INTEGERP-ITIMES-OFF MATH-THEORY INTEGERS LISTP-CDR-FACTORS-IMPLIES-INTEGERP IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES INTEGERP-EVAL$-ITIMES INTEGERP-ITIMES-LIST) EVENT (PROVE-LEMMA INTEGERP-ITIMES (REWRITE) (INTEGERP (ITIMES X Y)) ((ENABLE INTEGERP ITIMES FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-ITIMES) (IMMEDIATE-DEPENDENTS0 ITIMES . INTEGERP-ITIMES) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-ITIMES) (LEMMAS INTEGERP . INTEGERP-ITIMES))))) (PUT1-LST (QUOTE INTEGERP-IABS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERP-IABS-OFF1 INTEGERP-IABS-ON INTEGERP-IABS-OFF MATH-THEORY INTEGERS) EVENT (PROVE-LEMMA INTEGERP-IABS (REWRITE) (INTEGERP (IABS X)) ((ENABLE INTEGERP IABS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IABS . INTEGERP-IABS) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IABS) (LEMMAS INTEGERP . INTEGERP-IABS))))) (PUT1-LST (QUOTE INTEGERP-INEG) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERP-INEG-OFF1 INTEGERP-INEG-ON INTEGERP-INEG-OFF MATH-THEORY INTEGERS INTEGERP-EVAL$-IPLUS-OR-INEG-TERM LISTP-CDR-FACTORS-IMPLIES-INTEGERP IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$) EVENT (PROVE-LEMMA INTEGERP-INEG (REWRITE) (INTEGERP (INEG X)) ((ENABLE INTEGERP INEG) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . INTEGERP-INEG) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-INEG) (LEMMAS INTEGERP . INTEGERP-INEG))))) (PUT1-LST (QUOTE INTEGERP-IDIFFERENCE) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERP-IDIFFERENCE-OFF1 INTEGERP-IDIFFERENCE-ON INTEGERP-IDIFFERENCE-OFF MATH-THEORY INTEGERS INTEGERP-IREM INTEGERP-IMOD INTEGERP-IREMAINDER) EVENT (PROVE-LEMMA INTEGERP-IDIFFERENCE (REWRITE) (INTEGERP (IDIFFERENCE X Y)) ((ENABLE INTEGERP-IPLUS IDIFFERENCE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP-IPLUS . INTEGERP-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . INTEGERP-IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IDIFFERENCE) (LEMMAS INTEGERP . INTEGERP-IDIFFERENCE))))) (PUT1-LST (QUOTE INTEGERP-IPLUS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-ZERO INTEGERP-IPLUS-OFF1 INTEGERP-IPLUS-ON INTEGERP-IPLUS-OFF MATH-THEORY INTEGERS INTEGERP-EVAL$-IPLUS-OR-INEG-TERM LISTP-CDR-FACTORS-IMPLIES-INTEGERP IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ IQUO-IREM-UNIQUENESS CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS INTEGERP-IPLUS-LIST INTEGERP-IDIFFERENCE) EVENT (PROVE-LEMMA INTEGERP-IPLUS (REWRITE) (INTEGERP (IPLUS X Y)) ((ENABLE INTEGERP IPLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . INTEGERP-IPLUS) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-IPLUS) (LEMMAS INTEGERP . INTEGERP-IPLUS))))) (PUT1-LST (QUOTE INTEGERP-FIX-INT) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INTEGERP-FIX-INT-OFF1 INTEGERP-FIX-INT-ON INTEGERP-FIX-INT-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-EQUAL-LEMMA LISTP-CDR-FACTORS-IMPLIES-INTEGERP) EVENT (PROVE-LEMMA INTEGERP-FIX-INT (REWRITE) (INTEGERP (FIX-INT X)) ((ENABLE INTEGERP FIX-INT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGERP-FIX-INT) (IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-FIX-INT) (LEMMAS INTEGERP . INTEGERP-FIX-INT))))) (PUT1-LST (QUOTE ITIMES-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE ITIMES-OFF ITIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ITIMES . ITIMES-OFF) (DISABLED-LEMMAS NIL ITIMES ITIMES-OFF . T))))) (PUT1-LST (QUOTE IABS-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE IABS-OFF IABS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IABS . IABS-OFF) (DISABLED-LEMMAS NIL IABS IABS-OFF . T))))) (PUT1-LST (QUOTE INEG-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE INEG-OFF INEG T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . INEG-OFF) (DISABLED-LEMMAS NIL INEG INEG-OFF . T))))) (PUT1-LST (QUOTE IPLUS-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE IPLUS-OFF IPLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IPLUS . IPLUS-OFF) (DISABLED-LEMMAS NIL IPLUS IPLUS-OFF . T))))) (PUT1-LST (QUOTE ILESSP-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE ILESSP-OFF ILESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILESSP-OFF) (DISABLED-LEMMAS NIL ILESSP ILESSP-OFF . T))))) (PUT1-LST (QUOTE FIX-INT-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE FIX-INT-OFF FIX-INT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . FIX-INT-OFF) (DISABLED-LEMMAS NIL FIX-INT FIX-INT-OFF . T))))) (PUT1-LST (QUOTE INTEGERP-OFF) (QUOTE (IDATE 1000402193836 EVENT (TOGGLE INTEGERP-OFF INTEGERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGERP-OFF) (DISABLED-LEMMAS NIL INTEGERP INTEGERP-OFF . T))))) (PUT1-LST (QUOTE ALL-INTEGER-DEFNS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (INEG-AS-IDIFFERENCE INT-TO-V-OF-V-TO-INT IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY INTEGER-IN-RANGEP-V-TO-INT NOT-EQUAL-IPLUS-MINUS-0) EVENT (DEFTHEORY ALL-INTEGER-DEFNS (INTEGERP FIX-INT IZEROP ILESSP ILEQ IPLUS INEG IDIFFERENCE IABS ITIMES IQUOTIENT IREMAINDER IDIV IMOD IQUO IREM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 FIX-INT . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IZEROP . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 ILESSP . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 ILEQ . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IPLUS . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 INEG . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IABS . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 ITIMES . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IREMAINDER . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IDIV . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IMOD . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IQUO . ALL-INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IREM . ALL-INTEGER-DEFNS))))) (PUT1-LST (QUOTE INTEGER-DEFNS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-NOT-OUTPUT IPLUS-DIV-HACK1 IDIV-ILESSP-0 IDIV-QUOTIENT IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE FIX-INT-NUMBERP ILESSP-ADD1-IPLUS ILESSP-ADD1 MINUS-INEG EQUAL-FIX-INT-TO-ILESSP ILESSP-ITIMES-0 ILESSP-0-ITIMES IZEROP-ILESSP-0-RELATIONSHIP ILESSP-INEG-INEG EQUAL-INEG-INEG ITIMES--1 ILESSP-STRICT ILESSP-ITIMES-RIGHT-NEGATIVE SAME-FIX-INT-IMPLIES-NOT-ILESSP ILESSP-TRICHOTOMY ILESSP-ITIMES-RIGHT-POSITIVE EQUAL-FIX-INT ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 IPLUS-CANCELLATION-1-FOR-ILESSP ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 IPLUS-INEG7 IPLUS-INEG3) EVENT (DEFTHEORY INTEGER-DEFNS (INTEGERP FIX-INT ILESSP IPLUS INEG IABS ITIMES IQUOTIENT IREMAINDER IDIV IMOD IQUO IREM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 FIX-INT . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 ILESSP . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IPLUS . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 INEG . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IABS . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 ITIMES . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IREMAINDER . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IDIV . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IMOD . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IQUO . INTEGER-DEFNS) (IMMEDIATE-DEPENDENTS0 IREM . INTEGER-DEFNS))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (MAIN-EVENT IREM))) (PUT1-LST (QUOTE IREM) (QUOTE (TYPE-PRESCRIPTION-LST ((IREM 36 NIL NIL)) LEMMAS ((REWRITE-RULE IREM-FIX-INT2 NIL (EQUAL (IREM I (FIX-INT J)) (IREM I J)) NIL) (REWRITE-RULE IREM-FIX-INT1 NIL (EQUAL (IREM (FIX-INT I) J) (IREM I J)) NIL)) TOTALP-LST ((IREM . T)) SDEFN (LAMBDA (I J) (IDIFFERENCE (FIX-INT I) (ITIMES J (IQUO I J)))) LISP-CODE *1*IREM SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IREM) IMMEDIATE-DEPENDENTS0 (G*1*IREM-OFF1 G*1*IREM-ON G*1*IREM-OFF MATH-THEORY IREM-OFF FIX-INT-IREM IREM-FIX-INT2 IREM-FIX-INT1 INTEGERP-IREM IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS) EVENT (DEFN IREM (I J) (IDIFFERENCE (FIX-INT I) (ITIMES J (IQUO I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUO . IREM) (IMMEDIATE-DEPENDENTS0 ITIMES . IREM) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREM) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IREM) (DCELL . *1*IREM))))) (PUT1-LST (QUOTE *1*IQUO) (QUOTE (MAIN-EVENT IQUO))) (PUT1-LST (QUOTE IQUO) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUO 36 NIL NIL)) LEMMAS ((REWRITE-RULE IQUO-FIX-INT2 NIL (EQUAL (IQUO I (FIX-INT J)) (IQUO I J)) NIL) (REWRITE-RULE IQUO-FIX-INT1 NIL (EQUAL (IQUO (FIX-INT I) J) (IQUO I J)) NIL)) TOTALP-LST ((IQUO . T)) SDEFN (LAMBDA (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J)))) (IF (NEGATIVEP J) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (QUOTIENT I J))))) LISP-CODE *1*IQUO SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IQUO) IMMEDIATE-DEPENDENTS0 (G*1*IQUO-OFF1 G*1*IQUO-ON G*1*IQUO-OFF MATH-THEORY IQUO-OFF FIX-INT-IQUO IQUO-FIX-INT2 IQUO-FIX-INT1 INTEGERP-IQUO IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS IREM) EVENT (DEFN IQUO (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J)))) (IF (NEGATIVEP J) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUO) (DCELL . *1*IQUO))))) (PUT1-LST (QUOTE *1*IMOD) (QUOTE (MAIN-EVENT IMOD))) (PUT1-LST (QUOTE IMOD) (QUOTE (TYPE-PRESCRIPTION-LST ((IMOD 36 NIL NIL)) LEMMAS ((REWRITE-RULE IMOD-V-TO-INT-2 ((LISTP A)) (EQUAL (IMOD (V-TO-INT A) (QUOTE 2)) (B-TO-NAT (CAR A))) NIL) (REWRITE-RULE IMOD-FIX-INT2 NIL (EQUAL (IMOD I (FIX-INT J)) (IMOD I J)) NIL) (REWRITE-RULE IMOD-FIX-INT1 NIL (EQUAL (IMOD (FIX-INT I) J) (IMOD I J)) NIL)) TOTALP-LST ((IMOD . T)) SDEFN (LAMBDA (I J) (IDIFFERENCE (FIX-INT I) (ITIMES J (IDIV I J)))) LISP-CODE *1*IMOD SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IMOD) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 G*1*IMOD-OFF1 G*1*IMOD-ON G*1*IMOD-OFF MATH-THEORY IMOD-OFF FIX-INT-IMOD IMOD-FIX-INT2 IMOD-FIX-INT1 INTEGERP-IMOD IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS) EVENT (DEFN IMOD (I J) (IDIFFERENCE (FIX-INT I) (ITIMES J (IDIV I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDIV . IMOD) (IMMEDIATE-DEPENDENTS0 ITIMES . IMOD) (IMMEDIATE-DEPENDENTS0 FIX-INT . IMOD) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IMOD) (DCELL . *1*IMOD))))) (PUT1-LST (QUOTE *1*IDIV) (QUOTE (MAIN-EVENT IDIV))) (PUT1-LST (QUOTE IDIV) (QUOTE (TYPE-PRESCRIPTION-LST ((IDIV 36 NIL NIL)) LEMMAS ((REWRITE-RULE IDIV-QUOTIENT ((NUMBERP X) (NUMBERP Y)) (EQUAL (IDIV X Y) (QUOTIENT X Y)) NIL) (REWRITE-RULE IDIV-FIX-INT2 NIL (EQUAL (IDIV I (FIX-INT J)) (IDIV I J)) NIL) (REWRITE-RULE IDIV-FIX-INT1 NIL (EQUAL (IDIV (FIX-INT I) J) (IDIV I J)) NIL)) TOTALP-LST ((IDIV . T)) SDEFN (LAMBDA (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) J) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J))) (FIX-INT (MINUS (ADD1 (QUOTIENT (NEGATIVE-GUTS I) J)))))) (IF (NEGATIVEP J) (IF (EQUAL (REMAINDER I (NEGATIVE-GUTS J)) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (FIX-INT (MINUS (ADD1 (QUOTIENT I (NEGATIVE-GUTS J)))))) (QUOTIENT I J))))) LISP-CODE *1*IDIV SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IDIV) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-NEGATIVE IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 G*1*IDIV-OFF1 V-ALU-CORRECT-INT-ASR V-ALU-INT-ASR-OUTPUT IPLUS-DIV-HACK1 IDIV-ILESSP-0 IDIV-QUOTIENT G*1*IDIV-ON G*1*IDIV-OFF MATH-THEORY IDIV-OFF FIX-INT-IDIV IDIV-FIX-INT2 IDIV-FIX-INT1 INTEGERP-IDIV IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS IMOD) EVENT (DEFN IDIV (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) J) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J))) (FIX-INT (MINUS (ADD1 (QUOTIENT (NEGATIVE-GUTS I) J)))))) (IF (NEGATIVEP J) (IF (EQUAL (REMAINDER I (NEGATIVE-GUTS J)) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (FIX-INT (MINUS (ADD1 (QUOTIENT I (NEGATIVE-GUTS J)))))) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IDIV) (DCELL . *1*IDIV))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (MAIN-EVENT IREMAINDER))) (PUT1-LST (QUOTE IREMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((IREMAINDER 36 NIL NIL)) LEMMAS ((REWRITE-RULE IREMAINDER-FIX-INT2 NIL (EQUAL (IREMAINDER I (FIX-INT J)) (IREMAINDER I J)) NIL) (REWRITE-RULE IREMAINDER-FIX-INT1 NIL (EQUAL (IREMAINDER (FIX-INT I) J) (IREMAINDER I J)) NIL)) TOTALP-LST ((IREMAINDER . T)) SDEFN (LAMBDA (I J) (IDIFFERENCE I (ITIMES J (IQUOTIENT I J)))) LISP-CODE *1*IREMAINDER SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IREMAINDER) IMMEDIATE-DEPENDENTS0 (G*1*IREMAINDER-OFF1 G*1*IREMAINDER-ON G*1*IREMAINDER-OFF MATH-THEORY IREMAINDER-OFF FIX-INT-IREMAINDER IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT1 INTEGERP-IREMAINDER IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS) EVENT (DEFN IREMAINDER (I J) (IDIFFERENCE I (ITIMES J (IQUOTIENT I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOTIENT . IREMAINDER) (IMMEDIATE-DEPENDENTS0 ITIMES . IREMAINDER) (IMMEDIATE-DEPENDENTS0 IDIFFERENCE . IREMAINDER) (DCELL . *1*IREMAINDER))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (MAIN-EVENT IQUOTIENT))) (PUT1-LST (QUOTE IQUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUOTIENT 36 NIL NIL)) LEMMAS ((REWRITE-RULE IQUOTIENT-FIX-INT2 NIL (EQUAL (IQUOTIENT I (FIX-INT J)) (IQUOTIENT I J)) NIL) (REWRITE-RULE IQUOTIENT-FIX-INT1 NIL (EQUAL (IQUOTIENT (FIX-INT I) J) (IQUOTIENT I J)) NIL)) TOTALP-LST ((IQUOTIENT . T)) SDEFN (LAMBDA (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (QUOTE 0)) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (ADD1 (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)))) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) J) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J))) (FIX-INT (MINUS (ADD1 (QUOTIENT (NEGATIVE-GUTS I) J)))))) (IF (NEGATIVEP J) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (QUOTIENT I J))))) LISP-CODE *1*IQUOTIENT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*IQUOTIENT) IMMEDIATE-DEPENDENTS0 (G*1*IQUOTIENT-OFF1 G*1*IQUOTIENT-ON G*1*IQUOTIENT-OFF MATH-THEORY IQUOTIENT-OFF FIX-INT-IQUOTIENT IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IQUOTIENT IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 ALL-INTEGER-DEFNS INTEGER-DEFNS IREMAINDER) EVENT (DEFN IQUOTIENT (I J) (IF (EQUAL (FIX-INT J) (QUOTE 0)) (QUOTE 0) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (QUOTE 0)) (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (ADD1 (QUOTIENT (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)))) (IF (EQUAL (REMAINDER (NEGATIVE-GUTS I) J) (QUOTE 0)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS I) J))) (FIX-INT (MINUS (ADD1 (QUOTIENT (NEGATIVE-GUTS I) J)))))) (IF (NEGATIVEP J) (FIX-INT (MINUS (QUOTIENT I (NEGATIVE-GUTS J)))) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT) (DCELL . *1*IQUOTIENT))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (MAIN-EVENT ITIMES))) (PUT1-LST (QUOTE ITIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES 36 NIL NIL)) LEMMAS ((REWRITE-RULE ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME NIL (EQUAL (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT BAG1 BAG2) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 (BAGINT BAG1 BAG2)) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A))) NIL) (REWRITE-RULE ITIMES-LIST-EVAL$-FACTORS-LEMMA NIL (EQUAL (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT BAG1 BAG2) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 (BAGINT BAG1 BAG2)) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A))) NIL) (REWRITE-RULE ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE ((MEMBER X BAG)) (EQUAL (ITIMES (EVAL$ (QUOTE *1*TRUE) X A) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE X BAG) A))) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) NIL) (REWRITE-RULE ITIMES-EVAL$-ITIMES-TREE-INEG NIL (EQUAL (ITIMES Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (ITIMES Y (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE ITIMES-EVAL$-ITIMES-TREE-INEG NIL (EQUAL (ITIMES (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A) Y) (ITIMES (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) Y)) NIL) (REWRITE-RULE ITIMES--1 NIL (EQUAL (ITIMES (QUOTE -1) X) (INEG X)) NIL) (REWRITE-RULE ITIMES-INEG-2 NIL (EQUAL (ITIMES X (INEG Y)) (INEG (ITIMES X Y))) NIL) (REWRITE-RULE ITIMES-INEG-1 NIL (EQUAL (ITIMES (INEG X) Y) (INEG (ITIMES X Y))) NIL) (REWRITE-RULE ITIMES-1-ARG1 NIL (EQUAL (ITIMES (QUOTE 1) X) (FIX-INT X)) NIL) (REWRITE-RULE ASSOCIATIVITY-OF-ITIMES NIL (EQUAL (ITIMES (ITIMES X Y) Z) (ITIMES X (ITIMES Y Z))) NIL) (REWRITE-RULE COMMUTATIVITY2-OF-ITIMES NIL (EQUAL (ITIMES X (ITIMES Y Z)) (ITIMES Y (ITIMES X Z))) ((X . Y))) (REWRITE-RULE ITIMES-DISTRIBUTES-OVER-IPLUS NIL (EQUAL (ITIMES (IPLUS X Y) Z) (IPLUS (ITIMES X Z) (ITIMES Y Z))) NIL) (REWRITE-RULE ITIMES-DISTRIBUTES-OVER-IPLUS NIL (EQUAL (ITIMES X (IPLUS Y Z)) (IPLUS (ITIMES X Y) (ITIMES X Z))) NIL) (REWRITE-RULE COMMUTATIVITY-OF-ITIMES NIL (EQUAL (ITIMES X Y) (ITIMES Y X)) ((X . Y))) (REWRITE-RULE ITIMES-FIX-INT2 NIL (EQUAL (ITIMES A (FIX-INT B)) (ITIMES A B)) NIL) (REWRITE-RULE ITIMES-FIX-INT1 NIL (EQUAL (ITIMES (FIX-INT A) B) (ITIMES A B)) NIL) (REWRITE-RULE ITIMES-0-RIGHT NIL (EQUAL (ITIMES X (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE ITIMES-ZERO2 ((EQUAL (FIX-INT Y) (QUOTE 0))) (EQUAL (ITIMES X Y) (QUOTE 0)) NIL) (REWRITE-RULE ITIMES-0-LEFT NIL (EQUAL (ITIMES (QUOTE 0) Y) (QUOTE 0)) NIL) (REWRITE-RULE ITIMES-ZERO1 ((EQUAL (FIX-INT X) (QUOTE 0))) (EQUAL (ITIMES X Y) (QUOTE 0)) NIL)) TOTALP-LST ((ITIMES . T)) SDEFN (LAMBDA (I J) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (TIMES (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS I) J)))) (IF (NEGATIVEP J) (FIX-INT (MINUS (TIMES I (NEGATIVE-GUTS J)))) (TIMES I J)))) LISP-CODE *1*ITIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193836 SATELLITES (*1*ITIMES) IMMEDIATE-DEPENDENTS0 (IMOD-V-TO-INT-2 G*1*ITIMES-OFF1 G*1*ITIMES-ON G*1*ITIMES-OFF MATH-THEORY LISTP-CDR-FACTORS-IMPLIES-INTEGERP MEMBER-0-ITIMES-FACTORS-YIELDS-0 ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG ITIMES--1 ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-POSITIVE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA MEMBER-IZEROP-ITIMES-FRINGE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-BAGDIFF ITIMES-LIST-EVAL$-DELETE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES ITIMES-LIST-EVAL$-FRINGE ITIMES-LIST-APPEND ITIMES-LIST ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-0-RIGHT ITIMES-ZERO2 ITIMES-0-LEFT ITIMES-ZERO1 FIX-INT-ITIMES INTEGERP-ITIMES ITIMES-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS IREM IMOD IREMAINDER) EVENT (DEFN ITIMES (I J) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (TIMES (NEGATIVE-GUTS I) (NEGATIVE-GUTS J)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS I) J)))) (IF (NEGATIVEP J) (FIX-INT (MINUS (TIMES I (NEGATIVE-GUTS J)))) (TIMES I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES) (DCELL . *1*ITIMES))))) (PUT1-LST (QUOTE *1*IABS) (QUOTE (MAIN-EVENT IABS))) (PUT1-LST (QUOTE IABS) (QUOTE (TYPE-PRESCRIPTION-LST ((IABS 4 NIL)) TOTALP-LST ((IABS . T)) SDEFN (LAMBDA (I) (IF (NEGATIVEP I) (NEGATIVE-GUTS I) (IF (NUMBERP I) I (QUOTE 0)))) LISP-CODE *1*IABS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*IABS) IMMEDIATE-DEPENDENTS0 (G*1*IABS-OFF1 G*1*IABS-ON G*1*IABS-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 FIX-INT-IABS INTEGERP-IABS IABS-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS) EVENT (DEFN IABS (I) (IF (NEGATIVEP I) (NEGATIVE-GUTS I) (FIX I))) LOCAL-UNDO-TUPLES ((DCELL . *1*IABS))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (MAIN-EVENT IDIFFERENCE))) (PUT1-LST (QUOTE IDIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((IDIFFERENCE 36 NIL NIL)) LEMMAS ((REWRITE-RULE INEG-AS-IDIFFERENCE NIL (EQUAL (IDIFFERENCE (QUOTE 0) I) (INEG I)) NIL) (REWRITE-RULE IDIFFERENCE-FIX-INT2 NIL (EQUAL (IDIFFERENCE A (FIX-INT B)) (IDIFFERENCE A B)) NIL) (REWRITE-RULE IDIFFERENCE-FIX-INT1 NIL (EQUAL (IDIFFERENCE (FIX-INT A) B) (IDIFFERENCE A B)) NIL)) TOTALP-LST ((IDIFFERENCE . T)) SDEFN (LAMBDA (X Y) (IPLUS X (INEG Y))) LISP-CODE *1*IDIFFERENCE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193836 SATELLITES (*1*IDIFFERENCE) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS INTEGER-IN-RANGEP-V-TO-INT NEGATIVEP-IDIFFERENCE-ON-NUMBERPS INTEGERP-V-TO-INT IDIFFERENCE-0 G*1*IDIFFERENCE-OFF1 IDIFFERENCE-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT V-TO-INT G*1*IDIFFERENCE-ON IDIFFERENCE-ON G*1*IDIFFERENCE-OFF IDIFFERENCE-OFF MATH-THEORY INTEGERS CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 CANCEL-CONSTANTS-EQUAL-LEMMA DIFFERENCE-IDIFFERENCE IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS EVAL$-IPLUS-LIST-BAGDIFF EVAL$-IPLUS-LIST-DELETE IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT1 FIX-INT-IDIFFERENCE INTEGERP-IDIFFERENCE ALL-INTEGER-DEFNS IREM IMOD IREMAINDER) EVENT (DEFN IDIFFERENCE (X Y) (IPLUS X (INEG Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE) (DCELL . *1*IDIFFERENCE))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (MAIN-EVENT INEG))) (PUT1-LST (QUOTE INEG) (QUOTE (TYPE-PRESCRIPTION-LST ((INEG 36 NIL)) LEMMAS ((REWRITE-RULE INEG-EVAL$-ITIMES-TREE-INEG NIL (EQUAL (INEG (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (INEG (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE INEG-0 NIL (EQUAL (INEG (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE INEG-OF-NON-INTEGERP ((NOT (INTEGERP X))) (EQUAL (INEG X) (QUOTE 0)) NIL) (REWRITE-RULE INEG-FIX-INT NIL (EQUAL (INEG (FIX-INT X)) (INEG X)) NIL) (REWRITE-RULE INEG-INEG NIL (EQUAL (INEG (INEG X)) (FIX-INT X)) NIL) (REWRITE-RULE INEG-IPLUS NIL (EQUAL (INEG (IPLUS A B)) (IPLUS (INEG A) (INEG B))) NIL)) TOTALP-LST ((INEG . T)) SDEFN (LAMBDA (X) (IF (NEGATIVEP X) (NEGATIVE-GUTS X) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (MINUS X) (QUOTE 0))))) LISP-CODE *1*INEG SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*INEG) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE INT-TO-V-OF-V-TO-INT IMOD-V-TO-INT-2 INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT INTEGER-IN-RANGEP-1 INTEGER-IN-RANGEP-MINUS-0 NEGATIVEP-IDIFFERENCE-ON-NUMBERPS IDIFFERENCE-0 G*1*INEG-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT IPLUS-DIV-HACK1 IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE INTEGER-IN-RANGEP G*1*INEG-ON G*1*INEG-OFF MATH-THEORY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS MINUS-INEG MEMBER-0-ITIMES-FACTORS-YIELDS-0 ITIMES-LIST-EVAL$-FACTORS INEG-EVAL$-ITIMES-TREE-INEG ILESSP-INEG-INEG EQUAL-INEG-INEG ITIMES--1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 IPLUS-INEG6 IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 EVAL$-IPLUS-LIST-BAGDIFF CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-X-Y-INEG-X IPLUS-INEG-PROMOTE IPLUS-INEG4 IPLUS-INEG3 IPLUS-INEG2 IPLUS-INEG1 INEG-0 INEG-OF-NON-INTEGERP INEG-FIX-INT INEG-INEG INEG-IPLUS FIX-INT-INEG INTEGERP-INEG INEG-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS IDIFFERENCE) EVENT (DEFN INEG (X) (IF (NEGATIVEP X) (NEGATIVE-GUTS X) (IF (ZEROP X) (QUOTE 0) (MINUS X)))) LOCAL-UNDO-TUPLES ((DCELL . *1*INEG))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (MAIN-EVENT IPLUS))) (PUT1-LST (QUOTE IPLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS 36 NIL NIL)) LEMMAS ((REWRITE-RULE INT-DEC-RANGEP-LEMMAS ((NUMBERP (LENGTH A)) (NOT (EQUAL (LENGTH A) (QUOTE 0))) (NOT (NEGATIVEP (IPLUS (QUOTE -1) (V-TO-INT A)))) (NOT (V-NZEROP (INT-TO-V (IPLUS (QUOTE -1) (V-TO-INT A)) (LENGTH A))))) (EQUAL (IPLUS (QUOTE -1) (V-TO-INT A)) (QUOTE 0)) NIL) (REWRITE-RULE IPLUS-DIV-HACK1 ((NUMBERP A0) (NUMBERP EXP)) (EQUAL (IPLUS (IDIV (IPLUS A0 (INEG EXP)) (QUOTE 2)) EXP) (QUOTIENT (PLUS A0 EXP) (QUOTE 2))) NIL) (REWRITE-RULE IDIFFERENCE-DIFFERENCE ((NUMBERP X) (NUMBERP Y) (NOT (LESSP X Y))) (EQUAL (IPLUS (INEG Y) X) (DIFFERENCE X Y)) NIL) (REWRITE-RULE IDIFFERENCE-DIFFERENCE ((NUMBERP X) (NUMBERP Y) (NOT (LESSP X Y))) (EQUAL (IPLUS X (INEG Y)) (DIFFERENCE X Y)) NIL) (REWRITE-RULE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA ((BV2P A B) (NOT (EQUAL (LENGTH A) (QUOTE 0)))) (EQUAL (IPLUS (B-TO-NAT (B-NOT C)) (IPLUS (V-TO-INT (V-NOT A)) (V-TO-INT B))) (IDIFFERENCE (V-TO-INT B) (IPLUS (V-TO-INT A) (B-TO-NAT C)))) NIL) (REWRITE-RULE IPLUS3-PLUS-DIFFERENCE ((NUMBERP C0) (NUMBERP A0) (NUMBERP B0) (NUMBERP D) (NOT (LESSP (PLUS C0 (PLUS A0 B0)) D))) (EQUAL (IPLUS C0 (IPLUS A0 (IPLUS B0 (INEG D)))) (DIFFERENCE (PLUS C0 (PLUS A0 B0)) D)) NIL) (REWRITE-RULE IPLUS-PLUS ((NUMBERP X) (NUMBERP Y)) (EQUAL (IPLUS X Y) (PLUS X Y)) NIL) (REWRITE-RULE IPLUS-CONSTANTS NIL (EQUAL (IPLUS (ADD1 I) (IPLUS (ADD1 J) X)) (IPLUS (PLUS (ADD1 I) (ADD1 J)) X)) NIL) (REWRITE-RULE IPLUS-EVAL$-ITIMES-TREE-INEG NIL (EQUAL (IPLUS Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (IPLUS Y (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE IPLUS-EVAL$-ITIMES-TREE-INEG NIL (EQUAL (IPLUS (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A) Y) (IPLUS (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) Y)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-INEG NIL *1*CANCEL-INEG NIL) (REWRITE-RULE IPLUS-X-Y-INEG-X NIL (EQUAL (IPLUS X (IPLUS Y (INEG X))) (FIX-INT Y)) NIL) (REWRITE-RULE IPLUS-INEG-PROMOTE NIL (EQUAL (IPLUS Y (INEG X)) (IPLUS (INEG X) Y)) NIL) (REWRITE-RULE IPLUS-INEG4 NIL (EQUAL (IPLUS X (IPLUS (INEG X) Y)) (FIX-INT Y)) NIL) (REWRITE-RULE IPLUS-INEG3 NIL (EQUAL (IPLUS (INEG X) (IPLUS X Y)) (FIX-INT Y)) NIL) (REWRITE-RULE IPLUS-FIX-INT2 NIL (EQUAL (IPLUS A (FIX-INT B)) (IPLUS A B)) NIL) (REWRITE-RULE IPLUS-FIX-INT1 NIL (EQUAL (IPLUS (FIX-INT A) B) (IPLUS A B)) NIL) (REWRITE-RULE IPLUS-INEG2 NIL (EQUAL (IPLUS A (INEG A)) (QUOTE 0)) NIL) (REWRITE-RULE IPLUS-INEG1 NIL (EQUAL (IPLUS (INEG A) A) (QUOTE 0)) NIL) (REWRITE-RULE ASSOCIATIVITY-OF-IPLUS NIL (EQUAL (IPLUS (IPLUS X Y) Z) (IPLUS X (IPLUS Y Z))) NIL) (REWRITE-RULE COMMUTATIVITY-OF-IPLUS NIL (EQUAL (IPLUS X Y) (IPLUS Y X)) ((X . Y))) (REWRITE-RULE COMMUTATIVITY2-OF-IPLUS NIL (EQUAL (IPLUS X (IPLUS Y Z)) (IPLUS Y (IPLUS X Z))) ((X . Y))) (REWRITE-RULE IPLUS-0-RIGHT NIL (EQUAL (IPLUS X (QUOTE 0)) (FIX-INT X)) NIL) (REWRITE-RULE IPLUS-0-LEFT NIL (EQUAL (IPLUS (QUOTE 0) X) (FIX-INT X)) NIL) (REWRITE-RULE IPLUS-RIGHT-ID ((NOT (INTEGERP Y))) (EQUAL (IPLUS X Y) (FIX-INT X)) NIL) (REWRITE-RULE IPLUS-LEFT-ID ((NOT (INTEGERP X))) (EQUAL (IPLUS X Y) (FIX-INT Y)) NIL)) TOTALP-LST ((IPLUS . T)) SDEFN (LAMBDA (X Y) (IF (NEGATIVEP X) (IF (NEGATIVEP Y) (IF (EQUAL (NEGATIVE-GUTS X) (QUOTE 0)) (IF (EQUAL (NEGATIVE-GUTS Y) (QUOTE 0)) (QUOTE 0) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)))) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGATIVEP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LISP-CODE *1*IPLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402193836 SATELLITES (*1*IPLUS) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INT-TO-V-OF-V-TO-INT FIX-INT-INT-TO-V IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-SUBB-OVERFLOW FLAGS-INTERPRETATION-INT-DEC-ZERO INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG$COMMUTED INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY$COMMUTED INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS$COMMUTED INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT NOT-EQUAL-IPLUS-MINUS-0 NEGATIVEP-IDIFFERENCE-ON-NUMBERPS INTEGERP-V-TO-INT IDIFFERENCE-0 G*1*IPLUS-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-INT-SUBTRACTER-OVERFLOWP V-ALU-INT-SUBTRACTER-OUTPUT V-ALU-INT-ADDER-OVERFLOWP V-ALU-INT-ADDER-OUTPUT IPLUS-DIV-HACK1 IDIFFERENCE-DIFFERENCE V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE IPLUS-PLUS INT-TO-V G*1*IPLUS-ON G*1*IPLUS-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-LEMMA IPLUS-CONSTANTS PLUS-IPLUS IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS EVAL$-IPLUS-LIST-CDR-REMOVE-INEGS EVAL$-IPLUS-LIST-CAR-REMOVE-INEGS LISTP-CDR-FACTORS-IMPLIES-INTEGERP MEMBER-0-ITIMES-FACTORS-YIELDS-0 ITIMES-LIST-EVAL$-FACTORS IPLUS-EVAL$-ITIMES-TREE-INEG IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 ITIMES-DISTRIBUTES-OVER-IPLUS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 EVAL$-IPLUS IPLUS-INEG6 IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 IPLUS-LIST-EVAL$-FRINGE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS IPLUS-LIST-APPEND IPLUS-LIST CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-X-Y-INEG-X IPLUS-INEG-PROMOTE IPLUS-INEG4 IPLUS-INEG3 EVAL$-CANCEL-INEG-AUX-FN IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-INEG2 IPLUS-INEG1 IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS COMMUTATIVITY-OF-IPLUS COMMUTATIVITY2-OF-IPLUS IPLUS-0-RIGHT IPLUS-0-LEFT IPLUS-RIGHT-ID IPLUS-LEFT-ID INEG-IPLUS FIX-INT-IPLUS INTEGERP-IPLUS IPLUS-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS IDIFFERENCE) EVENT (DEFN IPLUS (X Y) (IF (NEGATIVEP X) (IF (NEGATIVEP Y) (IF (AND (ZEROP (NEGATIVE-GUTS X)) (ZEROP (NEGATIVE-GUTS Y))) (QUOTE 0) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGATIVEP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LOCAL-UNDO-TUPLES ((DCELL . *1*IPLUS))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (MAIN-EVENT ILEQ))) (PUT1-LST (QUOTE ILEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((ILEQ 3 NIL NIL)) TOTALP-LST ((ILEQ . T)) SDEFN (LAMBDA (I J) (IF (ILESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*ILEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*ILEQ) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-GT-0 INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT INTEGER-IN-RANGEP-1 INTEGER-IN-RANGEP-MINUS-0 G*1*ILEQ-OFF1 ILEQ-OFF1 V-ALU-CORRECT-INT-ADDER-OVERFLOWP INTEGER-IN-RANGEP G*1*ILEQ-ON ILEQ-ON G*1*ILEQ-OFF ILEQ-OFF MATH-THEORY INTEGERS ALL-INTEGER-DEFNS) EVENT (DEFN ILEQ (I J) (NOT (ILESSP J I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILEQ) (DCELL . *1*ILEQ))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (MAIN-EVENT ILESSP))) (PUT1-LST (QUOTE ILESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ILESSP 3 NIL NIL)) LEMMAS ((REWRITE-RULE IDIV-ILESSP-0 ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (ILESSP (IDIV X Y) (QUOTE 0)) (ILESSP X (QUOTE 0))) NIL) (REWRITE-RULE ILESSP-LESSP ((NUMBERP X) (NUMBERP Y)) (EQUAL (ILESSP X Y) (LESSP X Y)) NIL) (REWRITE-RULE CANCEL-CONSTANTS-ILESSP NIL (EQUAL (ILESSP (IPLUS (ADD1 I) X) (IPLUS (ADD1 J) Y)) (IF (LESSP I J) (IF (ILESSP (IPLUS (SUB1 (DIFFERENCE J I)) Y) X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (ILESSP (IPLUS (DIFFERENCE I J) X) Y))) NIL) (REWRITE-RULE ILESSP-ADD1-IPLUS ((NUMBERP Y)) (EQUAL (ILESSP X (IPLUS (ADD1 Y) Z)) (IF (ILESSP (IPLUS Y Z) X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE ILESSP-ADD1 ((NUMBERP Y)) (EQUAL (ILESSP X (ADD1 Y)) (IF (ILESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-INEQUALITY NIL *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 NIL *1*CANCEL-FACTORS-ILESSP-0 NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS NIL *1*CANCEL-ITIMES-ILESSP-FACTORS NIL) (REWRITE-RULE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP ((NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A))))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) V A))) NIL) (REWRITE-RULE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP ((NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A))))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) V A) (EVAL$ (QUOTE *1*TRUE) W A))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ((SUBBAGP IN-BOTH BAG1) (SUBBAGP IN-BOTH BAG2) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ((SUBBAGP IN-BOTH BAG1) (SUBBAGP IN-BOTH BAG2) (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ((SUBBAGP IN-BOTH BAG1) (SUBBAGP IN-BOTH BAG2) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (IF (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A))))) NIL) (REWRITE-RULE ILESSP-ITIMES-0 NIL (EQUAL (ILESSP (ITIMES X Y) (QUOTE 0)) (IF (ILESSP (QUOTE 0) X) (IF (ILESSP Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (ILESSP X (QUOTE 0)) (ILESSP (QUOTE 0) Y) (QUOTE *1*FALSE))) (IF (ILESSP X (QUOTE 0)) (ILESSP (QUOTE 0) Y) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE ILESSP-0-ITIMES NIL (EQUAL (ILESSP (QUOTE 0) (ITIMES X Y)) (IF (ILESSP (QUOTE 0) X) (IF (ILESSP (QUOTE 0) Y) (QUOTE *1*TRUE) (IF (ILESSP X (QUOTE 0)) (ILESSP Y (QUOTE 0)) (QUOTE *1*FALSE))) (IF (ILESSP X (QUOTE 0)) (ILESSP Y (QUOTE 0)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ((MEMBER Z Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A)) X) (IF (ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) Z A)) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A))) (IF (ILESSP (EVAL$ (QUOTE *1*TRUE) Z A) (QUOTE 0)) (ILESSP (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ((ILESSP W (QUOTE 0))) (EQUAL (ILESSP (ITIMES X W) (ITIMES W U)) (ILESSP U X)) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ((ILESSP (QUOTE 0) W)) (EQUAL (ILESSP (ITIMES W U) (ITIMES X W)) (ILESSP U X)) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ((MEMBER Z Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0)))) (EQUAL (ILESSP X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Z Y) A))) (IF (ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) Z A)) (ILESSP (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (IF (ILESSP (EVAL$ (QUOTE *1*TRUE) Z A) (QUOTE 0)) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES X (EVAL$ (QUOTE *1*TRUE) Z A))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ((ILESSP W (QUOTE 0))) (EQUAL (ILESSP (ITIMES W U) (ITIMES X W)) (ILESSP X U)) NIL) (REWRITE-RULE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 ((ILESSP (QUOTE 0) W)) (EQUAL (ILESSP (ITIMES X W) (ITIMES W U)) (ILESSP X U)) NIL) (REWRITE-RULE ILESSP-INEG-INEG NIL (EQUAL (ILESSP (INEG X) (INEG Y)) (ILESSP Y X)) NIL) (REWRITE-RULE ILESSP-STRICT ((ILESSP X Y)) (NOT (ILESSP Y X)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP NIL *1*CANCEL-ITIMES-ILESSP NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 ((SUBBAGP BAG X) (SUBBAGP BAG Y) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)) (QUOTE 0))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 ((NOT (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)) (QUOTE 0))) (NOT (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))) (SUBBAGP BAG (ITIMES-FRINGE W)) (SUBBAGP BAG (ITIMES-FRINGE V))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) V A))) NIL) (REWRITE-RULE SAME-FIX-INT-IMPLIES-NOT-ILESSP ((EQUAL (FIX-INT X) (FIX-INT Y))) (NOT (ILESSP X Y)) NIL) (REWRITE-RULE ILESSP-TRICHOTOMY ((NOT (ILESSP X Y))) (EQUAL (ILESSP Y X) (IF (EQUAL (FIX-INT X) (FIX-INT Y)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 ((MEMBER (QUOTE 0) (ITIMES-FRINGE W))) (NOT (ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ((SUBBAGP BAG X) (SUBBAGP BAG Y) (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A)))) (EQUAL (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X BAG) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y BAG) A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A)))) NIL) (REWRITE-RULE EVAL$-ITIMES-TREE-NO-FIX-INT-2 NIL (EQUAL (ILESSP Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT X) A)) (ILESSP Y (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A))) NIL) (REWRITE-RULE EVAL$-ITIMES-TREE-NO-FIX-INT-1 NIL (EQUAL (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT X) A) Y) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A) Y)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-IPLUS-ILESSP NIL *1*CANCEL-IPLUS-ILESSP NIL) (REWRITE-RULE EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT NIL (EQUAL (ILESSP (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-NO-FIX-INT X) A) (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-NO-FIX-INT Y) A)) (ILESSP (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE Y) A))) NIL) (REWRITE-RULE IPLUS-CANCELLATION-2-FOR-ILESSP NIL (EQUAL (ILESSP (IPLUS B A) (IPLUS C A)) (ILESSP B C)) NIL) (REWRITE-RULE IPLUS-CANCELLATION-1-FOR-ILESSP NIL (EQUAL (ILESSP (IPLUS A B) (IPLUS A C)) (ILESSP B C)) NIL) (REWRITE-RULE ILESSP-FIX-INT-2 NIL (EQUAL (ILESSP X (FIX-INT Y)) (ILESSP X Y)) NIL) (REWRITE-RULE ILESSP-FIX-INT-1 NIL (EQUAL (ILESSP (FIX-INT X) Y) (ILESSP X Y)) NIL)) TOTALP-LST ((ILESSP . T)) SDEFN (LAMBDA (I J) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (IF (EQUAL I (QUOTE (*1*QUOTE MINUS 0))) (LESSP (QUOTE 0) J) (QUOTE *1*TRUE))) (IF (NEGATIVEP J) (QUOTE *1*FALSE) (LESSP I J)))) LISP-CODE *1*ILESSP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*ILESSP) IMMEDIATE-DEPENDENTS0 (INT-TO-V-OF-V-TO-INT FLAGS-INTERPRETATION-INT-ASR-GT-0 INTEGER-IN-RANGEP-IDIV FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 INT-DEC-RANGEP-LEMMAS FLAGS-INTERPRETATION-INT-NEG-GT-0 INT-NEG-RANGE-IMPLICATIONS FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP--1 INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS INTEGER-IN-RANGEP-V-TO-INT INTEGER-IN-RANGEP-1 INTEGER-IN-RANGEP-MINUS-0 INT-TO-V-V-TO-INT-0 G*1*ILESSP-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-NEG V-ALU-CORRECT-INT-DEC V-ALU-CORRECT-INT-INC IDIV-ILESSP-0 ILESSP-LESSP INTEGER-IN-RANGEP INT-TO-V G*1*ILESSP-ON G*1*ILESSP-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP CANCEL-CONSTANTS-ILESSP-LEMMA-2 CANCEL-CONSTANTS-ILESSP-LEMMA-1 ILESSP-ADD1-IPLUS ILESSP-ADD1 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ZERO-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ZERO-ILESSP-IMPLIES-NOT-EQUAL ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME-HELPER-1 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-2 ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-HELPER-1 IZEROP-ILESSP-0-RELATIONSHIP ILESSP-INEG-INEG ILESSP-STRICT CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP ILESSP-TRICHOTOMY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 ILESSP-ITIMES-RIGHT-POSITIVE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA IPLUS-CANCELLATION-2-FOR-ILESSP IPLUS-CANCELLATION-1-FOR-ILESSP ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 ILESSP-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS ILEQ) EVENT (DEFN ILESSP (I J) (IF (NEGATIVEP I) (IF (NEGATIVEP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (IF (EQUAL I (QUOTE (*1*QUOTE MINUS 0))) (LESSP (QUOTE 0) J) (QUOTE *1*TRUE))) (IF (NEGATIVEP J) (QUOTE *1*FALSE) (LESSP I J)))) LOCAL-UNDO-TUPLES ((DCELL . *1*ILESSP))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (MAIN-EVENT IZEROP))) (PUT1-LST (QUOTE IZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((IZEROP 3 NIL)) TOTALP-LST ((IZEROP . T)) SDEFN (LAMBDA (I) (EQUAL (FIX-INT I) (QUOTE 0))) LISP-CODE *1*IZEROP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*IZEROP) IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-CARRY FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V G*1*IZEROP-OFF1 IZEROP-OFF1 G*1*IZEROP-ON IZEROP-ON G*1*IZEROP-OFF IZEROP-OFF MATH-THEORY ALL-INTEGER-DEFNS) EVENT (DEFN IZEROP (I) (EQUAL (FIX-INT I) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP) (DCELL . *1*IZEROP))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (MAIN-EVENT FIX-INT))) (PUT1-LST (QUOTE FIX-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-INT 4 T)) LEMMAS ((REWRITE-RULE FIX-INT-INT-TO-V NIL (EQUAL (FIX-INT (V-TO-INT V)) (V-TO-INT V)) NIL) (REWRITE-RULE FIX-INT-NUMBERP ((NUMBERP X)) (EQUAL (FIX-INT X) X) NIL) (REWRITE-RULE EVAL$-ITIMES-TREE-INEG NIL (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-INEG X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) NIL) (REWRITE-RULE FIX-INT-EVAL$-ITIMES-TREE-REC ((LISTP X)) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-REC X) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 ((MEMBER W (ITIMES-FRINGE (CONS (QUOTE ITIMES) X1))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE 0)) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR X1) A)) (QUOTE 0)))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X1)) A)) (QUOTE 0)) NIL) (REWRITE-RULE MEMBER-IZEROP-ITIMES-FRINGE ((MEMBER Z (ITIMES-FRINGE X)) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Z A)) (QUOTE 0))) (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A)) (QUOTE 0)) NIL) (REWRITE-RULE FIX-INT-IREM NIL (EQUAL (FIX-INT (IREM I J)) (IREM I J)) NIL) (REWRITE-RULE FIX-INT-IQUO NIL (EQUAL (FIX-INT (IQUO I J)) (IQUO I J)) NIL) (REWRITE-RULE FIX-INT-IMOD NIL (EQUAL (FIX-INT (IMOD I J)) (IMOD I J)) NIL) (REWRITE-RULE FIX-INT-IDIV NIL (EQUAL (FIX-INT (IDIV I J)) (IDIV I J)) NIL) (REWRITE-RULE FIX-INT-IREMAINDER NIL (EQUAL (FIX-INT (IREMAINDER I J)) (IREMAINDER I J)) NIL) (REWRITE-RULE FIX-INT-IQUOTIENT NIL (EQUAL (FIX-INT (IQUOTIENT I J)) (IQUOTIENT I J)) NIL) (REWRITE-RULE FIX-INT-ITIMES NIL (EQUAL (FIX-INT (ITIMES X Y)) (ITIMES X Y)) NIL) (REWRITE-RULE FIX-INT-IABS NIL (EQUAL (FIX-INT (IABS X)) (IABS X)) NIL) (REWRITE-RULE FIX-INT-INEG NIL (EQUAL (FIX-INT (INEG X)) (INEG X)) NIL) (REWRITE-RULE FIX-INT-IDIFFERENCE NIL (EQUAL (FIX-INT (IDIFFERENCE A B)) (IDIFFERENCE A B)) NIL) (REWRITE-RULE FIX-INT-IPLUS NIL (EQUAL (FIX-INT (IPLUS A B)) (IPLUS A B)) NIL) (REWRITE-RULE FIX-INT-FIX-INT NIL (EQUAL (FIX-INT (FIX-INT X)) (FIX-INT X)) NIL) (REWRITE-RULE FIX-INT-REMOVER ((INTEGERP X)) (EQUAL (FIX-INT X) X) NIL)) TOTALP-LST ((FIX-INT . T)) SDEFN (LAMBDA (X) (IF (INTEGERP X) X (QUOTE 0))) LISP-CODE *1*FIX-INT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*FIX-INT) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-INTEGER INEG-AS-IDIFFERENCE FIX-INT-INT-TO-V FLAGS-INTERPRETATION-INT-ASR-OVERFLOW FLAGS-INTERPRETATION-INT-ASR-GT-0 FLAGS-INTERPRETATION-INT-ASR-CARRY IMOD-V-TO-INT-2 FLAGS-INTERPRETATION-INT-ASR-ZERO INTEGER-IN-RANGEP-IDIV EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-SUB-GT-0 FLAGS-INTERPRETATION-INT-SUB-NEGATIVE FLAGS-INTERPRETATION-INT-SUB-OVERFLOW FLAGS-INTERPRETATION-INT-SUBB-GT-0 FLAGS-INTERPRETATION-INT-SUBB-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE FLAGS-INTERPRETATION-INT-NEG-OVERFLOW FLAGS-INTERPRETATION-INT-ADD-GT-0 FLAGS-INTERPRETATION-INT-ADD-NEGATIVE FLAGS-INTERPRETATION-INT-ADD-OVERFLOW FLAGS-INTERPRETATION-INT-ADDC-GT-0 FLAGS-INTERPRETATION-INT-ADDC-NEGATIVE FLAGS-INTERPRETATION-INT-ADDC-OVERFLOW FLAGS-INTERPRETATION-INT-INC-GT-0 FLAGS-INTERPRETATION-INT-INC-NEGATIVE FLAGS-INTERPRETATION-INT-INC-ZERO FLAGS-INTERPRETATION-INT-INC-OVERFLOW FLAGS-INTERPRETATION-INT-MOVE INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS IDIFFERENCE-0 G*1*FIX-INT-OFF1 IPLUS-DIV-HACK1 IDIV-ILESSP-0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA FIX-INT-NUMBERP G*1*FIX-INT-ON G*1*FIX-INT-OFF MATH-THEORY CANCEL-CONSTANTS-EQUAL CANCEL-CONSTANTS-EQUAL-LEMMA SOME-EVAL$S-TO-0 EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EQUAL-FIX-INT-TO-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE IZEROP-ILESSP-0-RELATIONSHIP ITIMES-LIST-EVAL$-FACTORS EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG FIX-INT-EVAL$-ITIMES-TREE-REC EQUAL-INEG-INEG ITIMES--1 ILESSP-ITIMES-RIGHT-NEGATIVE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 SAME-FIX-INT-IMPLIES-NOT-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3-LEMMA-2 ILESSP-TRICHOTOMY ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-LIST-EVAL$-LIST-0 CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EQUAL-FIX-INT EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 CORRECTNESS-OF-CANCEL-ITIMES-HACK-1 MEMBER-IZEROP-ITIMES-FRINGE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-EVAL$-FRINGE FIX-INT-IREM FIX-INT-IQUO FIX-INT-IMOD FIX-INT-IDIV FIX-INT-IREMAINDER FIX-INT-IQUOTIENT IREM-FIX-INT2 IREM-FIX-INT1 IQUO-FIX-INT2 IQUO-FIX-INT1 IMOD-FIX-INT2 IMOD-FIX-INT1 IDIV-FIX-INT2 IDIV-FIX-INT1 IREMAINDER-FIX-INT2 IREMAINDER-FIX-INT1 IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IQUO INTEGERP-IDIV INTEGERP-IQUOTIENT ITIMES-CANCELLATION-3 ITIMES-CANCELLATION-2 ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-0-RIGHT ITIMES-ZERO2 ITIMES-0-LEFT ITIMES-ZERO1 ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 IPLUS-INEG7 IPLUS-LIST-EVAL$-FRINGE CORRECTNESS-OF-CANCEL-INEG-AUX IPLUS-X-Y-INEG-X IPLUS-INEG4 IPLUS-INEG3 EVAL$-CANCEL-INEG-AUX-FN IDIFFERENCE-FIX-INT2 IDIFFERENCE-FIX-INT1 IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-CANCELLATION-2 IPLUS-CANCELLATION-1 IPLUS-0-RIGHT IPLUS-0-LEFT IPLUS-RIGHT-ID IPLUS-LEFT-ID INEG-FIX-INT INEG-INEG FIX-INT-ITIMES FIX-INT-IABS FIX-INT-INEG FIX-INT-IDIFFERENCE FIX-INT-IPLUS FIX-INT-FIX-INT FIX-INT-REMOVER INTEGERP-ITIMES INTEGERP-FIX-INT FIX-INT-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS IREM IQUO IMOD IDIV IQUOTIENT ITIMES IZEROP) EVENT (DEFN FIX-INT (X) (IF (INTEGERP X) X (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT) (DCELL . *1*FIX-INT))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (MAIN-EVENT INTEGERP))) (PUT1-LST (QUOTE INTEGERP) (QUOTE (TYPE-PRESCRIPTION-LST ((INTEGERP 3 NIL)) LEMMAS ((REWRITE-RULE NOT-INTEGERP-MINUS-ZERO NIL (EQUAL (INTEGERP (MINUS X)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE INTEGERP-V-TO-INT NIL (INTEGERP (V-TO-INT A)) NIL) (REWRITE-RULE NUMBERP-IS-INTEGERP ((NUMBERP W)) (INTEGERP W) NIL) (REWRITE-RULE INTEGERP-EVAL$-IPLUS-OR-INEG-TERM ((IPLUS-OR-INEG-TERM X)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE LISTP-CDR-FACTORS-IMPLIES-INTEGERP ((LISTP (CDR (ITIMES-FACTORS V)))) (INTEGERP (EVAL$ (QUOTE *1*TRUE) V A)) NIL) (REWRITE-RULE IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ ((IPLUS-OR-ITIMES-TERM X)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE INTEGERP-EVAL$-ITIMES ((EQUAL (CAR X) (QUOTE ITIMES))) (INTEGERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE INTEGERP-ITIMES-LIST NIL (INTEGERP (ITIMES-LIST X)) NIL) (REWRITE-RULE INTEGERP-IREM NIL (INTEGERP (IREM I J)) NIL) (REWRITE-RULE INTEGERP-IQUO NIL (INTEGERP (IQUO I J)) NIL) (REWRITE-RULE INTEGERP-IMOD NIL (INTEGERP (IMOD I J)) NIL) (REWRITE-RULE INTEGERP-IDIV NIL (INTEGERP (IDIV I J)) NIL) (REWRITE-RULE INTEGERP-IREMAINDER NIL (INTEGERP (IREMAINDER I J)) NIL) (REWRITE-RULE INTEGERP-IQUOTIENT NIL (INTEGERP (IQUOTIENT I J)) NIL) (REWRITE-RULE INTEGERP-IPLUS-LIST NIL (INTEGERP (IPLUS-LIST X)) NIL) (REWRITE-RULE INTEGERP-ITIMES NIL (INTEGERP (ITIMES X Y)) NIL) (REWRITE-RULE INTEGERP-IABS NIL (INTEGERP (IABS X)) NIL) (REWRITE-RULE INTEGERP-INEG NIL (INTEGERP (INEG X)) NIL) (REWRITE-RULE INTEGERP-IDIFFERENCE NIL (INTEGERP (IDIFFERENCE X Y)) NIL) (REWRITE-RULE INTEGERP-IPLUS NIL (INTEGERP (IPLUS X Y)) NIL) (REWRITE-RULE INTEGERP-FIX-INT NIL (INTEGERP (FIX-INT X)) NIL)) TOTALP-LST ((INTEGERP . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) (QUOTE *1*TRUE) (IF (NEGATIVEP X) (IF (EQUAL (NEGATIVE-GUTS X) (QUOTE 0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) LISP-CODE *1*INTEGERP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402193836 SATELLITES (*1*INTEGERP) IMMEDIATE-DEPENDENTS0 (INEG-AS-IDIFFERENCE FIX-INT-INT-TO-V IMOD-V-TO-INT-2 EQUAL-IDIV-2-0 FLAGS-INTERPRETATION-INT-DEC-GT-0 FLAGS-INTERPRETATION-INT-DEC-ZERO FLAGS-INTERPRETATION-INT-DEC-NEGATIVE FLAGS-INTERPRETATION-INT-DEC-OVERFLOW FLAGS-INTERPRETATION-INT-NEG-GT-0 FLAGS-INTERPRETATION-INT-NEG-ZERO FLAGS-INTERPRETATION-INT-NEG-NEGATIVE INTEGER-IN-RANGEP-0 V-NZEROP-INT-TO-V-0 IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V NOT-INTEGERP-MINUS-ZERO INTEGER-IN-RANGEP-THE-OBVIOUS-WAY REWRITE-EQUAL-V-TO-INT-0 INTEGERP-V-TO-INT IDIFFERENCE-0 G*1*INTEGERP-OFF1 IPLUS-DIV-HACK1 IDIV-ILESSP-0 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA FIX-INT-NUMBERP G*1*INTEGERP-ON G*1*INTEGERP-OFF MATH-THEORY NUMBERP-IS-INTEGERP INTEGERP-EVAL$-IPLUS-OR-INEG-TERM LISTP-CDR-FACTORS-IMPLIES-INTEGERP EQUAL-FIX-INT-TO-ILESSP ILESSP-ITIMES-0 ILESSP-0-ITIMES IZEROP-ILESSP-0-RELATIONSHIP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL IPLUS-OR-ITIMES-TERM-INTEGERP-EVAL$ EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 EQUAL-INEG-INEG ITIMES--1 ILESSP-ITIMES-RIGHT-NEGATIVE SAME-FIX-INT-IMPLIES-NOT-ILESSP ILESSP-TRICHOTOMY ILESSP-ITIMES-RIGHT-POSITIVE CORRECTNESS-OF-CANCEL-ITIMES EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EQUAL-FIX-INT EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES INTEGERP-EVAL$-ITIMES INTEGERP-ITIMES-LIST FIX-INT-IQUO FIX-INT-IDIV FIX-INT-IQUOTIENT IQUO-FIX-INT2 IQUO-FIX-INT1 IDIV-FIX-INT2 IDIV-FIX-INT1 IQUOTIENT-FIX-INT2 IQUOTIENT-FIX-INT1 INTEGERP-IREM INTEGERP-IQUO INTEGERP-IMOD INTEGERP-IDIV INTEGERP-IREMAINDER INTEGERP-IQUOTIENT ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 DIVISION-THEOREM-PART1 ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES ITIMES-FIX-INT2 ITIMES-FIX-INT1 ITIMES-ZERO2 ITIMES-ZERO1 ILESSP-FIX-INT-2 ILESSP-FIX-INT-1 CORRECTNESS-OF-CANCEL-IPLUS IPLUS-INEG7 IPLUS-INEG6 IPLUS-INEG5 IPLUS-INEG5-LEMMA-2 IPLUS-INEG5-LEMMA-1 NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS EVAL$-CANCEL-IPLUS INTEGERP-IPLUS-LIST IPLUS-INEG3 IPLUS-FIX-INT2 IPLUS-FIX-INT1 IPLUS-CANCELLATION-1 IPLUS-0-RIGHT IPLUS-0-LEFT IPLUS-RIGHT-ID IPLUS-LEFT-ID INEG-OF-NON-INTEGERP INEG-FIX-INT INEG-INEG FIX-INT-ITIMES FIX-INT-IABS FIX-INT-INEG FIX-INT-IPLUS FIX-INT-FIX-INT FIX-INT-REMOVER INTEGERP-ITIMES INTEGERP-IABS INTEGERP-INEG INTEGERP-IDIFFERENCE INTEGERP-IPLUS INTEGERP-FIX-INT INTEGERP-OFF ALL-INTEGER-DEFNS INTEGER-DEFNS FIX-INT) EVENT (DEFN INTEGERP (X) (IF (NUMBERP X) (QUOTE *1*TRUE) (IF (NEGATIVEP X) (NOT (ZEROP (NEGATIVE-GUTS X))) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*INTEGERP))))) (PUT1-LST (QUOTE NATURALS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-NOT-OUTPUT V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK1 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 QUOTIENT-REMAINDER-UNIQUENESS) EVENT (DEFTHEORY NATURALS (ADDITION MULTIPLICATION REMAINDERS QUOTIENTS EXPONENTIATION LOGS GCDS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDITION . NATURALS) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . NATURALS) (IMMEDIATE-DEPENDENTS0 REMAINDERS . NATURALS) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . NATURALS) (IMMEDIATE-DEPENDENTS0 EXPONENTIATION . NATURALS) (IMMEDIATE-DEPENDENTS0 LOGS . NATURALS) (IMMEDIATE-DEPENDENTS0 GCDS . NATURALS))))) (PUT1-LST (QUOTE GCDS) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (NATURALS) EVENT (DEFTHEORY GCDS (COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD COMMON-DIVISOR-DIVIDES-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD LESSP-GCD EQUAL-GCD-0 GCD-0 GCD-IDEMPOTENCE GCD-X-X REMAINDER-GCD GCD-PLUS GCD-PLUS-INSTANCE GCD-1 COMMUTATIVITY-OF-GCD)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 LESSP-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-0 . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-IDEMPOTENCE . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-X-X . GCDS) (IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-PLUS . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE . GCDS) (IMMEDIATE-DEPENDENTS0 GCD-1 . GCDS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCDS))))) (PUT1-LST (QUOTE GCD-IDEMPOTENCE) (QUOTE (IDATE 1000402193836 IMMEDIATE-DEPENDENTS0 (GCD-IDEMPOTENCE-OFF1 GCD-IDEMPOTENCE-ON GCD-IDEMPOTENCE-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA GCD-IDEMPOTENCE (REWRITE) (AND (EQUAL (GCD X (GCD X Y)) (GCD X Y)) (EQUAL (GCD Y (GCD X Y)) (GCD X Y))) ((ENABLE GCD GCD-X-X GCD-PLUS REMAINDER-GCD GCD-1 COMMUTATIVITY-OF-GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (GCD X Y)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 GCD-PLUS . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 GCD-X-X . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-IDEMPOTENCE) (IMMEDIATE-DEPENDENTS0 GCD . GCD-IDEMPOTENCE) (LEMMAS GCD . GCD-IDEMPOTENCE) (LEMMAS GCD . GCD-IDEMPOTENCE))))) (PUT1-LST (QUOTE GCD-X-X) (QUOTE (IDATE 1000402193835 IMMEDIATE-DEPENDENTS0 (GCD-X-X-OFF1 GCD-X-X-ON GCD-X-X-OFF MATH-THEORY GCDS GCD-IDEMPOTENCE) EVENT (PROVE-LEMMA GCD-X-X (REWRITE) (EQUAL (GCD X X) (FIX X)) ((ENABLE GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (SINGLE-NUMBER-INDUCTION X)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . GCD-X-X) (IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . GCD-X-X) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-X-X) (IMMEDIATE-DEPENDENTS0 GCD . GCD-X-X) (LEMMAS GCD . GCD-X-X))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD) (QUOTE (IDATE 1000402193835 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-GCD-OFF1 COMMUTATIVITY2-OF-GCD-ON COMMUTATIVITY2-OF-GCD-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-GCD (REWRITE) (EQUAL (GCD B (GCD A C)) (GCD A (GCD B C))) ((ENABLE EQUAL-GCD-0 REMAINDER-GCD) (USE (GCD-IS-THE-GREATEST (X A) (Y (GCD B C)) (Z (GCD B (GCD A C)))) (GCD-IS-THE-GREATEST (X B) (Y (GCD A C)) (Z (GCD A (GCD B C)))) (COMMUTATIVITY2-OF-GCD-ZERO-CASE (A A) (B B) (C C)) (TRANSITIVITY-OF-DIVIDES (A A) (B (GCD A C)) (C (GCD B (GCD A C)))) (TRANSITIVITY-OF-DIVIDES (A C) (B (GCD A C)) (C (GCD B (GCD A C)))) (TRANSITIVITY-OF-DIVIDES (A B) (B (GCD B C)) (C (GCD A (GCD B C)))) (TRANSITIVITY-OF-DIVIDES (A C) (B (GCD B C)) (C (GCD A (GCD B C)))) (COMMON-DIVISOR-DIVIDES-GCD (X B) (Y C) (Z (GCD B (GCD A C)))) (COMMON-DIVISOR-DIVIDES-GCD (X A) (Y C) (Z (GCD A (GCD B C))))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-GCD-ZERO-CASE . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . COMMUTATIVITY2-OF-GCD) (IMMEDIATE-DEPENDENTS0 GCD . COMMUTATIVITY2-OF-GCD) (LEMMAS GCD . COMMUTATIVITY2-OF-GCD))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-GCD-ZERO-CASE) (QUOTE (IDATE 1000402193835 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF1 COMMUTATIVITY2-OF-GCD-ZERO-CASE-ON COMMUTATIVITY2-OF-GCD-ZERO-CASE-OFF MATH-THEORY COMMUTATIVITY2-OF-GCD) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-GCD-ZERO-CASE NIL (IMPLIES (OR (ZEROP A) (OR (ZEROP B) (ZEROP C))) (EQUAL (GCD B (GCD A C)) (GCD A (GCD B C)))) ((ENABLE GCD GCD-0 COMMUTATIVITY-OF-GCD) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . COMMUTATIVITY2-OF-GCD-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 GCD-0 . COMMUTATIVITY2-OF-GCD-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 GCD . COMMUTATIVITY2-OF-GCD-ZERO-CASE))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD) (QUOTE (IDATE 1000402193835 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-GCD-OFF1 ASSOCIATIVITY-OF-GCD-ON ASSOCIATIVITY-OF-GCD-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-GCD (REWRITE) (EQUAL (GCD (GCD A B) C) (GCD A (GCD B C))) ((ENABLE EQUAL-GCD-0 REMAINDER-GCD) (USE (GCD-IS-THE-GREATEST (X A) (Y (GCD B C)) (Z (GCD (GCD A B) C))) (GCD-IS-THE-GREATEST (X (GCD A B)) (Y C) (Z (GCD A (GCD B C)))) (ASSOCIATIVITY-OF-GCD-ZERO-CASE (A A) (B B) (C C)) (TRANSITIVITY-OF-DIVIDES (A A) (B (GCD A B)) (C (GCD (GCD A B) C))) (TRANSITIVITY-OF-DIVIDES (A B) (B (GCD A B)) (C (GCD (GCD A B) C))) (TRANSITIVITY-OF-DIVIDES (A B) (B (GCD B C)) (C (GCD A (GCD B C)))) (TRANSITIVITY-OF-DIVIDES (A C) (B (GCD B C)) (C (GCD A (GCD B C)))) (COMMON-DIVISOR-DIVIDES-GCD (X B) (Y C) (Z (GCD (GCD A B) C))) (COMMON-DIVISOR-DIVIDES-GCD (X A) (Y B) (Z (GCD A (GCD B C))))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-GCD . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 GCD-IS-THE-GREATEST . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-GCD-ZERO-CASE . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 TRANSITIVITY-OF-DIVIDES . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 COMMON-DIVISOR-DIVIDES-GCD . ASSOCIATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 GCD . ASSOCIATIVITY-OF-GCD) (LEMMAS GCD . ASSOCIATIVITY-OF-GCD))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-GCD-ZERO-CASE) (QUOTE (IDATE 1000402193834 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF1 ASSOCIATIVITY-OF-GCD-ZERO-CASE-ON ASSOCIATIVITY-OF-GCD-ZERO-CASE-OFF MATH-THEORY ASSOCIATIVITY-OF-GCD) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-GCD-ZERO-CASE NIL (IMPLIES (OR (ZEROP A) (OR (ZEROP B) (ZEROP C))) (EQUAL (GCD (GCD A B) C) (GCD A (GCD B C)))) ((ENABLE GCD GCD-0) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-0 . ASSOCIATIVITY-OF-GCD-ZERO-CASE) (IMMEDIATE-DEPENDENTS0 GCD . ASSOCIATIVITY-OF-GCD-ZERO-CASE))))) (PUT1-LST (QUOTE COMMON-DIVISOR-DIVIDES-GCD) (QUOTE (IDATE 1000402193834 IMMEDIATE-DEPENDENTS0 (COMMON-DIVISOR-DIVIDES-GCD-OFF1 COMMON-DIVISOR-DIVIDES-GCD-ON COMMON-DIVISOR-DIVIDES-GCD-OFF MATH-THEORY GCDS COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD) EVENT (PROVE-LEMMA COMMON-DIVISOR-DIVIDES-GCD (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER X Z) (QUOTE 0)) (EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (REMAINDER (GCD X Y) Z) (QUOTE 0))) ((ENABLE GCD COMMUTATIVITY-OF-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD EQUAL-GCD-0) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 ADDITION . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDERS . COMMON-DIVISOR-DIVIDES-GCD) (IMMEDIATE-DEPENDENTS0 GCD . COMMON-DIVISOR-DIVIDES-GCD) (LEMMAS REMAINDER . COMMON-DIVISOR-DIVIDES-GCD))))) (PUT1-LST (QUOTE GCD-IS-THE-GREATEST) (QUOTE (IDATE 1000402193834 IMMEDIATE-DEPENDENTS0 (GCD-IS-THE-GREATEST-OFF1 GCD-IS-THE-GREATEST-ON GCD-IS-THE-GREATEST-OFF MATH-THEORY COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD) EVENT (PROVE-LEMMA GCD-IS-THE-GREATEST NIL (IMPLIES (AND (NOT (ZEROP X)) (AND (NOT (ZEROP Y)) (AND (EQUAL (REMAINDER X Z) (QUOTE 0)) (EQUAL (REMAINDER Y Z) (QUOTE 0))))) (IF (LESSP (GCD X Y) Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((ENABLE GCD COMMUTATIVITY-OF-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD EQUAL-GCD-0) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 EQUAL-GCD-0 . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 REMAINDERS . GCD-IS-THE-GREATEST) (IMMEDIATE-DEPENDENTS0 GCD . GCD-IS-THE-GREATEST))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (QUOTE (IDATE 1000402193834 IMMEDIATE-DEPENDENTS0 (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-OFF MATH-THEORY GCDS COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST) EVENT (PROVE-LEMMA DISTRIBUTIVITY-OF-TIMES-OVER-GCD (REWRITE) (AND (EQUAL (GCD (TIMES X Z) (TIMES Y Z)) (TIMES Z (GCD X Y))) (AND (EQUAL (GCD (TIMES Z X) (TIMES Y Z)) (TIMES Z (GCD X Y))) (AND (EQUAL (GCD (TIMES X Z) (TIMES Z Y)) (TIMES Z (GCD X Y))) (EQUAL (GCD (TIMES Z X) (TIMES Z Y)) (TIMES Z (GCD X Y)))))) ((USE (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF (X X) (Y Y) (Z Z))) (ENABLE COMMUTATIVITY-OF-TIMES) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (IMMEDIATE-DEPENDENTS0 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (IMMEDIATE-DEPENDENTS0 GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (LEMMAS GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (LEMMAS GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (LEMMAS GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD) (LEMMAS GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD))))) (PUT1-LST (QUOTE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (QUOTE (IDATE 1000402193834 IMMEDIATE-DEPENDENTS0 (DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-ON DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF-OFF MATH-THEORY DISTRIBUTIVITY-OF-TIMES-OVER-GCD) EVENT (PROVE-LEMMA DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF NIL (EQUAL (GCD (TIMES X Z) (TIMES Y Z)) (TIMES Z (GCD X Y))) ((ENABLE GCD COMMUTATIVITY-OF-GCD GCD-0 GCD-PLUS) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 GCD-PLUS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 GCD-0 . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDERS . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) (IMMEDIATE-DEPENDENTS0 GCD . DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF))))) (PUT1-LST (QUOTE REMAINDER-GCD) (QUOTE (IDATE 1000402193833 IMMEDIATE-DEPENDENTS0 (REMAINDER-GCD-OFF1 REMAINDER-GCD-ON REMAINDER-GCD-OFF MATH-THEORY GCDS GCD-IDEMPOTENCE COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD) EVENT (PROVE-LEMMA REMAINDER-GCD (REWRITE) (AND (EQUAL (REMAINDER A (GCD A B)) (QUOTE 0)) (EQUAL (REMAINDER B (GCD A B)) (QUOTE 0))) ((ENABLE GCD) (ENABLE-THEORY ADDITION REMAINDERS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 REMAINDERS . REMAINDER-GCD) (IMMEDIATE-DEPENDENTS0 GCD . REMAINDER-GCD) (LEMMAS REMAINDER . REMAINDER-GCD) (LEMMAS REMAINDER . REMAINDER-GCD))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE) (QUOTE (IDATE 1000402193833 IMMEDIATE-DEPENDENTS0 (GCD-PLUS-INSTANCE-OFF1 GCD-PLUS-INSTANCE-ON GCD-PLUS-INSTANCE-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA GCD-PLUS-INSTANCE (REWRITE) (AND (EQUAL (GCD A (PLUS A B)) (GCD A B)) (EQUAL (GCD A (PLUS B A)) (GCD A B))) ((ENABLE GCD-PLUS-INSTANCE-TEMP) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . GCD-PLUS-INSTANCE) (IMMEDIATE-DEPENDENTS0 GCD . GCD-PLUS-INSTANCE) (LEMMAS GCD . GCD-PLUS-INSTANCE) (LEMMAS GCD . GCD-PLUS-INSTANCE))))) (PUT1-LST (QUOTE GCD-PLUS) (QUOTE (IDATE 1000402193833 IMMEDIATE-DEPENDENTS0 (GCD-PLUS-OFF1 GCD-PLUS-ON GCD-PLUS-OFF MATH-THEORY GCDS GCD-IDEMPOTENCE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) EVENT (PROVE-LEMMA GCD-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER B A) (QUOTE 0)) (AND (EQUAL (GCD A (PLUS B C)) (GCD A C)) (AND (EQUAL (GCD A (PLUS C B)) (GCD A C)) (AND (EQUAL (GCD (PLUS B C) A) (GCD A C)) (EQUAL (GCD (PLUS C B) A) (GCD A C)))))) ((ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-GCD) (USE (GCD-PLUS-PROOF (A A) (B B) (C C))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . GCD-PLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCD-PLUS) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-PROOF . GCD-PLUS) (IMMEDIATE-DEPENDENTS0 GCD . GCD-PLUS) (LEMMAS GCD . GCD-PLUS) (LEMMAS GCD . GCD-PLUS) (LEMMAS GCD . GCD-PLUS) (LEMMAS GCD . GCD-PLUS))))) (PUT1-LST (QUOTE GCD-PLUS-PROOF) (QUOTE (IDATE 1000402193833 IMMEDIATE-DEPENDENTS0 (GCD-PLUS-PROOF-OFF1 GCD-PLUS-PROOF-ON GCD-PLUS-PROOF-OFF MATH-THEORY GCD-PLUS) EVENT (PROVE-LEMMA GCD-PLUS-PROOF NIL (IMPLIES (EQUAL (REMAINDER B A) (QUOTE 0)) (EQUAL (GCD A (PLUS B C)) (GCD A C))) ((ENABLE GCD COMMUTATIVITY-OF-GCD GCD-1 GCD-PLUS-INSTANCE-TEMP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER B A)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 GCD . GCD-PLUS-PROOF))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (GCD-PLUS-INSTANCE-TEMP-OFF1 GCD-PLUS-INSTANCE-TEMP-ON GCD-PLUS-INSTANCE-TEMP-OFF MATH-THEORY GCD-PLUS-INSTANCE GCD-PLUS-PROOF) EVENT (PROVE-LEMMA GCD-PLUS-INSTANCE-TEMP (REWRITE) (AND (EQUAL (GCD A (PLUS A B)) (GCD A B)) (EQUAL (GCD A (PLUS B A)) (GCD A B))) ((ENABLE COMMUTATIVITY-OF-PLUS) (USE (GCD-PLUS-INSTANCE-TEMP-PROOF (A A) (B B))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . GCD-PLUS-INSTANCE-TEMP) (IMMEDIATE-DEPENDENTS0 GCD-PLUS-INSTANCE-TEMP-PROOF . GCD-PLUS-INSTANCE-TEMP) (IMMEDIATE-DEPENDENTS0 GCD . GCD-PLUS-INSTANCE-TEMP) (LEMMAS GCD . GCD-PLUS-INSTANCE-TEMP) (LEMMAS GCD . GCD-PLUS-INSTANCE-TEMP))))) (PUT1-LST (QUOTE GCD-PLUS-INSTANCE-TEMP-PROOF) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (GCD-PLUS-INSTANCE-TEMP-PROOF-OFF1 GCD-PLUS-INSTANCE-TEMP-PROOF-ON GCD-PLUS-INSTANCE-TEMP-PROOF-OFF MATH-THEORY GCD-PLUS-INSTANCE-TEMP) EVENT (PROVE-LEMMA GCD-PLUS-INSTANCE-TEMP-PROOF NIL (EQUAL (GCD A (PLUS A B)) (GCD A B)) ((ENABLE GCD COMMUTATIVITY-OF-GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (GCD A B)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-PLUS-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 GCD . GCD-PLUS-INSTANCE-TEMP-PROOF))))) (PUT1-LST (QUOTE LESSP-GCD) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (LESSP-GCD-OFF1 LESSP-GCD-ON LESSP-GCD-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA LESSP-GCD (REWRITE) (IMPLIES (NOT (ZEROP B)) (AND (EQUAL (LESSP B (GCD A B)) (QUOTE *1*FALSE)) (EQUAL (LESSP B (GCD B A)) (QUOTE *1*FALSE)))) ((ENABLE GCD COMMUTATIVITY-OF-GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-GCD . LESSP-GCD) (IMMEDIATE-DEPENDENTS0 ADDITION . LESSP-GCD) (IMMEDIATE-DEPENDENTS0 GCD . LESSP-GCD) (LEMMAS LESSP . LESSP-GCD) (LEMMAS LESSP . LESSP-GCD))))) (PUT1-LST (QUOTE EQUAL-GCD-0) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (EQUAL-GCD-0-OFF1 EQUAL-GCD-0-ON EQUAL-GCD-0-OFF MATH-THEORY GCDS COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD GCD-IS-THE-GREATEST) EVENT (PROVE-LEMMA EQUAL-GCD-0 (REWRITE) (EQUAL (EQUAL (GCD A B) (QUOTE 0)) (AND (ZEROP A) (ZEROP B))) ((ENABLE GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (GCD A B)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . EQUAL-GCD-0) (IMMEDIATE-DEPENDENTS0 ADDITION . EQUAL-GCD-0) (IMMEDIATE-DEPENDENTS0 GCD . EQUAL-GCD-0) (LEMMAS EQUAL . EQUAL-GCD-0))))) (PUT1-LST (QUOTE GCD-1) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (GCD-1-OFF1 GCD-1-ON GCD-1-OFF MATH-THEORY GCDS) EVENT (PROVE-LEMMA GCD-1 (REWRITE) (AND (EQUAL (GCD (QUOTE 1) X) (QUOTE 1)) (EQUAL (GCD X (QUOTE 1)) (QUOTE 1))) ((ENABLE GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (SINGLE-NUMBER-INDUCTION X)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . GCD-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . GCD-1) (IMMEDIATE-DEPENDENTS0 SINGLE-NUMBER-INDUCTION . GCD-1) (IMMEDIATE-DEPENDENTS0 ADDITION . GCD-1) (IMMEDIATE-DEPENDENTS0 GCD . GCD-1) (LEMMAS GCD . GCD-1) (LEMMAS GCD . GCD-1))))) (PUT1-LST (QUOTE GCD-0) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (GCD-0-OFF1 GCD-0-ON GCD-0-OFF MATH-THEORY GCDS COMMUTATIVITY2-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD-ZERO-CASE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF) EVENT (PROVE-LEMMA GCD-0 (REWRITE) (AND (EQUAL (GCD (QUOTE 0) X) (FIX X)) (EQUAL (GCD X (QUOTE 0)) (FIX X))) ((ENABLE GCD) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GCD . GCD-0) (LEMMAS GCD . GCD-0) (LEMMAS GCD . GCD-0))))) (PUT1-LST (QUOTE *1*SINGLE-NUMBER-INDUCTION) (QUOTE (MAIN-EVENT SINGLE-NUMBER-INDUCTION))) (PUT1-LST (QUOTE SINGLE-NUMBER-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((SINGLE-NUMBER-INDUCTION 4 NIL)) TOTALP-LST ((SINGLE-NUMBER-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (SINGLE-NUMBER-INDUCTION (SUB1 N)) (QUOTE 0)))) LISP-CODE *1*SINGLE-NUMBER-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZERO ZEROP COUNT-NUMBERP))) IDATE 1000402193832 CONTROLLER-POCKETS (1) SATELLITES (*1*SINGLE-NUMBER-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*SINGLE-NUMBER-INDUCTION-OFF1 SINGLE-NUMBER-INDUCTION-OFF1 G*1*SINGLE-NUMBER-INDUCTION-ON SINGLE-NUMBER-INDUCTION-ON G*1*SINGLE-NUMBER-INDUCTION-OFF SINGLE-NUMBER-INDUCTION-OFF MATH-THEORY GCD-X-X GCD-1) EVENT (DEFN SINGLE-NUMBER-INDUCTION (N) (IF (ZEROP N) (QUOTE 0) (SINGLE-NUMBER-INDUCTION (SUB1 N)))) LOCAL-UNDO-TUPLES ((DCELL . *1*SINGLE-NUMBER-INDUCTION))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-GCD) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY-OF-GCD-OFF1 COMMUTATIVITY-OF-GCD-ON COMMUTATIVITY-OF-GCD-OFF MATH-THEORY GCDS GCD-IDEMPOTENCE COMMUTATIVITY2-OF-GCD-ZERO-CASE COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF GCD-PLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD) EVENT (PROVE-LEMMA COMMUTATIVITY-OF-GCD (REWRITE) (EQUAL (GCD B A) (GCD A B)) ((ENABLE GCD) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDITION . COMMUTATIVITY-OF-GCD) (IMMEDIATE-DEPENDENTS0 GCD . COMMUTATIVITY-OF-GCD) (LEMMAS GCD . COMMUTATIVITY-OF-GCD))))) (PUT1-LST (QUOTE LOGS) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (NATURALS) EVENT (DEFTHEORY LOGS (LOG-EXP LOG-TIMES-EXP LOG-TIMES LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES LOG-QUOTIENT LOG-1 LOG-0 EQUAL-LOG-0 EXP-EXP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-EXP . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-TIMES . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-EXP . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-1 . LOGS) (IMMEDIATE-DEPENDENTS0 LOG-0 . LOGS) (IMMEDIATE-DEPENDENTS0 EQUAL-LOG-0 . LOGS) (IMMEDIATE-DEPENDENTS0 EXP-EXP . LOGS))))) (PUT1-LST (QUOTE LOG-EXP) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (LOG-EXP-OFF1 LOG-EXP-ON LOG-EXP-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) C) (EQUAL (LOG C (EXP C N)) (ADD1 N))) ((ENABLE LOG EXP LOG-1) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . LOG-EXP) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG-1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 ADDITION . LOG-EXP) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . LOG-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDERS . LOG-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . LOG-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-EXP) (LEMMAS LOG . LOG-EXP))))) (PUT1-LST (QUOTE LOG-TIMES-EXP) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP-OFF1 LOG-TIMES-EXP-ON LOG-TIMES-EXP-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-TIMES-EXP (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) C) (NOT (ZEROP N))) (AND (EQUAL (LOG C (TIMES N (EXP C M))) (PLUS (LOG C N) M)) (EQUAL (LOG C (TIMES (EXP C M) N)) (PLUS (LOG C N) M)))) ((USE (LOG-TIMES-EXP-PROOF (C C) (N N) (M M))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-EXP-PROOF . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-PROOF) (QUOTE (IDATE 1000402193832 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP-PROOF-OFF1 LOG-TIMES-EXP-PROOF-ON LOG-TIMES-EXP-PROOF-OFF MATH-THEORY LOG-TIMES-EXP) EVENT (PROVE-LEMMA LOG-TIMES-EXP-PROOF NIL (IMPLIES (AND (LESSP (QUOTE 1) C) (NOT (ZEROP N))) (EQUAL (LOG C (TIMES N (EXP C M))) (PLUS (LOG C N) M))) ((ENABLE LOG EXP) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDERS . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 EXP . LOG-TIMES-EXP-PROOF) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP-PROOF))))) (PUT1-LST (QUOTE LOG-TIMES) (QUOTE (IDATE 1000402193831 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-OFF1 LOG-TIMES-ON LOG-TIMES-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-TIMES (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) C) (NOT (ZEROP N))) (AND (EQUAL (LOG C (TIMES C N)) (ADD1 (LOG C N))) (EQUAL (LOG C (TIMES N C)) (ADD1 (LOG C N))))) ((USE (LOG-TIMES-PROOF (C C) (N N))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LOG-TIMES) (IMMEDIATE-DEPENDENTS0 LOG-TIMES-PROOF . LOG-TIMES) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES) (LEMMAS LOG . LOG-TIMES) (LEMMAS LOG . LOG-TIMES))))) (PUT1-LST (QUOTE LOG-TIMES-PROOF) (QUOTE (IDATE 1000402193831 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-PROOF-OFF1 LOG-TIMES-PROOF-ON LOG-TIMES-PROOF-OFF MATH-THEORY LOG-TIMES) EVENT (PROVE-LEMMA LOG-TIMES-PROOF NIL (IMPLIES (AND (LESSP (QUOTE 1) C) (NOT (ZEROP N))) (EQUAL (LOG C (TIMES C N)) (ADD1 (LOG C N)))) ((ENABLE LOG) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDERS . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . LOG-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-PROOF))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP) (QUOTE (IDATE 1000402193831 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP-OFF1 LOG-QUOTIENT-EXP-ON LOG-QUOTIENT-EXP-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-QUOTIENT-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) C) (EQUAL (LOG C (QUOTIENT N (EXP C M))) (DIFFERENCE (LOG C N) M))) ((ENABLE EXP LOG LOG-QUOTIENT-TIMES) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 ADDITION . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDERS . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT-EXP) (LEMMAS LOG . LOG-QUOTIENT-EXP))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES) (QUOTE (IDATE 1000402193831 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-TIMES-OFF1 LOG-QUOTIENT-TIMES-ON LOG-QUOTIENT-TIMES-OFF MATH-THEORY LOGS LOG-QUOTIENT-EXP) EVENT (PROVE-LEMMA LOG-QUOTIENT-TIMES (REWRITE) (IMPLIES (LESSP (QUOTE 1) C) (AND (EQUAL (LOG C (QUOTIENT N (TIMES C M))) (SUB1 (LOG C (QUOTIENT N M)))) (EQUAL (LOG C (QUOTIENT N (TIMES M C))) (SUB1 (LOG C (QUOTIENT N M)))))) ((USE (LOG-QUOTIENT-TIMES-PROOF (C C) (N N) (M M))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LOG-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 LOG-QUOTIENT-TIMES-PROOF . LOG-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT-TIMES) (LEMMAS LOG . LOG-QUOTIENT-TIMES) (LEMMAS LOG . LOG-QUOTIENT-TIMES))))) (PUT1-LST (QUOTE LOG-QUOTIENT-TIMES-PROOF) (QUOTE (IDATE 1000402193831 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-TIMES-PROOF-OFF1 LOG-QUOTIENT-TIMES-PROOF-ON LOG-QUOTIENT-TIMES-PROOF-OFF MATH-THEORY LOG-QUOTIENT-TIMES) EVENT (PROVE-LEMMA LOG-QUOTIENT-TIMES-PROOF NIL (IMPLIES (LESSP (QUOTE 1) C) (EQUAL (LOG C (QUOTIENT N (TIMES C M))) (SUB1 (LOG C (QUOTIENT N M))))) ((ENABLE LOG) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDERS . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . LOG-QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT-TIMES-PROOF))))) (PUT1-LST (QUOTE LOG-QUOTIENT) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-OFF1 LOG-QUOTIENT-ON LOG-QUOTIENT-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-QUOTIENT (REWRITE) (IMPLIES (LESSP (QUOTE 1) C) (EQUAL (LOG C (QUOTIENT N C)) (SUB1 (LOG C N)))) ((ENABLE LOG) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT) (LEMMAS LOG . LOG-QUOTIENT))))) (PUT1-LST (QUOTE LEQ-LOG-LOG) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (LEQ-LOG-LOG-OFF1 LEQ-LOG-LOG-ON LEQ-LOG-LOG-OFF MATH-THEORY) EVENT (PROVE-LEMMA LEQ-LOG-LOG NIL (IMPLIES (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (LOG C M) (LOG C N)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((ENABLE LOG) (INDUCT (DOUBLE-LOG-INDUCTION C N M)) (USE (LEQ-QUOTIENT (A N) (B M) (C C))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEQ-QUOTIENT . LEQ-LOG-LOG) (IMMEDIATE-DEPENDENTS0 DOUBLE-LOG-INDUCTION . LEQ-LOG-LOG) (IMMEDIATE-DEPENDENTS0 LOG . LEQ-LOG-LOG))))) (PUT1-LST (QUOTE *1*DOUBLE-LOG-INDUCTION) (QUOTE (MAIN-EVENT DOUBLE-LOG-INDUCTION))) (PUT1-LST (QUOTE DOUBLE-LOG-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLE-LOG-INDUCTION 4 NIL NIL NIL)) TOTALP-LST ((DOUBLE-LOG-INDUCTION . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (BASE A B) (IF (LESSP BASE (QUOTE 2)) (QUOTE 0) (IF (EQUAL A (QUOTE 0)) (QUOTE 0) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (DOUBLE-LOG-INDUCTION BASE (QUOTIENT A BASE) (QUOTIENT B BASE)) (QUOTE 0))) (QUOTE 0))))) LISP-CODE *1*DOUBLE-LOG-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP BASE (QUOTE 2))) NIL) (TESTS-AND-CASES ((NOT (LESSP BASE (QUOTE 2))) (ZEROP A)) NIL) (TESTS-AND-CASES ((NOT (LESSP BASE (QUOTE 2))) (NOT (ZEROP A)) (ZEROP B)) NIL) (TESTS-AND-CASES ((NOT (LESSP BASE (QUOTE 2))) (NOT (ZEROP A)) (NOT (ZEROP B))) ((BASE (QUOTIENT A BASE) (QUOTIENT B BASE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (ZERO ZEROP COUNT-NUMBERP LESSP-QUOTIENT)) (JUSTIFICATION (B) (COUNT B) LESSP (ZERO ZEROP COUNT-NUMBERP LESSP-QUOTIENT))) IDATE 1000402193829 CONTROLLER-POCKETS (2 4) SATELLITES (*1*DOUBLE-LOG-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DOUBLE-LOG-INDUCTION-OFF1 DOUBLE-LOG-INDUCTION-OFF1 G*1*DOUBLE-LOG-INDUCTION-ON DOUBLE-LOG-INDUCTION-ON G*1*DOUBLE-LOG-INDUCTION-OFF DOUBLE-LOG-INDUCTION-OFF MATH-THEORY LEQ-LOG-LOG) EVENT (DEFN DOUBLE-LOG-INDUCTION (BASE A B) (IF (LESSP BASE (QUOTE 2)) (QUOTE 0) (IF (ZEROP A) (QUOTE 0) (IF (ZEROP B) (QUOTE 0) (DOUBLE-LOG-INDUCTION BASE (QUOTIENT A BASE) (QUOTIENT B BASE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . DOUBLE-LOG-INDUCTION) (DCELL . *1*DOUBLE-LOG-INDUCTION))))) (PUT1-LST (QUOTE LOG-1) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (LOG-1-OFF1 LOG-1-ON LOG-1-OFF MATH-THEORY LOGS LOG-EXP) EVENT (PROVE-LEMMA LOG-1 (REWRITE) (IMPLIES (LESSP (QUOTE 1) BASE) (EQUAL (LOG BASE (QUOTE 1)) (QUOTE 1))) ((ENABLE LOG) (INDUCT (LOG BASE N)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-1) (LEMMAS LOG . LOG-1))))) (PUT1-LST (QUOTE LOG-0) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (LOG-0-OFF1 LOG-0-ON LOG-0-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA LOG-0 (REWRITE) (IMPLIES (ZEROP N) (EQUAL (LOG BASE N) (QUOTE 0))) ((ENABLE LOG) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-0) (LEMMAS LOG . LOG-0))))) (PUT1-LST (QUOTE EQUAL-LOG-0) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (EQUAL-LOG-0-OFF1 EQUAL-LOG-0-ON EQUAL-LOG-0-OFF MATH-THEORY LOGS) EVENT (PROVE-LEMMA EQUAL-LOG-0 (REWRITE) (EQUAL (EQUAL (LOG BASE N) (QUOTE 0)) (OR (LESSP BASE (QUOTE 2)) (ZEROP N))) ((ENABLE LOG) (INDUCT (LOG BASE N)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . EQUAL-LOG-0) (LEMMAS EQUAL . EQUAL-LOG-0))))) (PUT1-LST (QUOTE EXPONENTIATION) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (NATURALS) EVENT (DEFTHEORY EXPONENTIATION (EQUAL-EXP-0 EQUAL-EXP-1 EXP-EXP EXP-ADD1 EXP-TIMES EXP-1-ARG1 EXP-ZERO EXP-0-ARG2 EXP-0-ARG1 EXP-DIFFERENCE EXP-PLUS QUOTIENT-EXP REMAINDER-EXP-EXP REMAINDER-EXP)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-EXP-0 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EQUAL-EXP-1 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-EXP . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-ADD1 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-0-ARG2 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-0-ARG1 . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-DIFFERENCE . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXP . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP-EXP . EXPONENTIATION) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXP . EXPONENTIATION))))) (PUT1-LST (QUOTE EXP-DIFFERENCE) (QUOTE (IDATE 1000402193829 IMMEDIATE-DEPENDENTS0 (EXP-DIFFERENCE-OFF1 EXP-DIFFERENCE-ON EXP-DIFFERENCE-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EXP-DIFFERENCE (REWRITE) (IMPLIES (AND (IF (LESSP B C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP A))) (EQUAL (EXP A (DIFFERENCE B C)) (QUOTIENT (EXP A B) (EXP A C)))) ((ENABLE EXP) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS QUOTIENTS GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 ADDITION . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDERS . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENTS . EXP-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 EXP . EXP-DIFFERENCE) (LEMMAS EXP . EXP-DIFFERENCE))))) (PUT1-LST (QUOTE EQUAL-EXP-1) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC EQUAL-EXP-1-OFF1 EQUAL-EXP-1-ON EQUAL-EXP-1-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EQUAL-EXP-1 (REWRITE) (EQUAL (EQUAL (EXP N K) (QUOTE 1)) (IF (ZEROP K) (QUOTE *1*TRUE) (EQUAL N (QUOTE 1)))) ((ENABLE EXP TIMES-ZERO TIMES-ADD1) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EQUAL-EXP-1) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . EQUAL-EXP-1) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-EXP-1) (LEMMAS EQUAL . EQUAL-EXP-1))))) (PUT1-LST (QUOTE EQUAL-EXP-0) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EQUAL-EXP-0-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-TO-INT-V-NOT V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK NTH-LENGTH-V EQUAL-EXP-0-ON EQUAL-EXP-0-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EQUAL-EXP-0 (REWRITE) (EQUAL (EQUAL (EXP N K) (QUOTE 0)) (AND (ZEROP N) (NOT (ZEROP K)))) ((ENABLE EXP EQUAL-TIMES-0) (INDUCT (EXP N K)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-EXP-0) (IMMEDIATE-DEPENDENTS0 EXP . EQUAL-EXP-0) (LEMMAS EQUAL . EQUAL-EXP-0))))) (PUT1-LST (QUOTE EXP-EXP) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-EXP-OFF1 EXP-EXP-ON EXP-EXP-OFF MATH-THEORY LOGS EXPONENTIATION) EVENT (PROVE-LEMMA EXP-EXP (REWRITE) (EQUAL (EXP (EXP I J) K) (EXP I (TIMES J K))) ((ENABLE EXP EXP-ZERO EXP-1-ARG1 EXP-PLUS EXP-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-1-ARG1 . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP . EXP-EXP) (LEMMAS EXP . EXP-EXP))))) (PUT1-LST (QUOTE EXP-TIMES) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-TIMES-OFF1 EXP-TIMES-ON EXP-TIMES-OFF MATH-THEORY EXPONENTIATION EXP-EXP) EVENT (PROVE-LEMMA EXP-TIMES (REWRITE) (EQUAL (EXP (TIMES I J) K) (TIMES (EXP I K) (EXP J K))) ((ENABLE EXP ASSOCIATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES EXP-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 EXP-ZERO . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 EXP . EXP-TIMES) (LEMMAS EXP . EXP-TIMES))))) (PUT1-LST (QUOTE EXP-0-ARG2) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-0-ARG2-OFF1 EXP-0-ARG2-ON EXP-0-ARG2-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EXP-0-ARG2 (REWRITE) (EQUAL (EXP N (QUOTE 0)) (QUOTE 1)) ((ENABLE EXP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-0-ARG2) (LEMMAS EXP . EXP-0-ARG2))))) (PUT1-LST (QUOTE EXP-1-ARG1) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-1-ARG1-OFF1 EXP-1-ARG1-ON EXP-1-ARG1-OFF MATH-THEORY EXPONENTIATION EXP-EXP) EVENT (PROVE-LEMMA EXP-1-ARG1 (REWRITE) (EQUAL (EXP (QUOTE 1) K) (QUOTE 1)) ((ENABLE EXP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-1-ARG1) (LEMMAS EXP . EXP-1-ARG1))))) (PUT1-LST (QUOTE EXP-0-ARG1) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-0-ARG1-OFF1 EXP-0-ARG1-ON EXP-0-ARG1-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EXP-0-ARG1 (REWRITE) (EQUAL (EXP (QUOTE 0) K) (IF (ZEROP K) (QUOTE 1) (QUOTE 0))) ((ENABLE EXP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-0-ARG1) (LEMMAS EXP . EXP-0-ARG1))))) (PUT1-LST (QUOTE EXP-PLUS) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-PLUS-OFF1 EXP-PLUS-ON EXP-PLUS-OFF MATH-THEORY EXPONENTIATION EXP-EXP) EVENT (PROVE-LEMMA EXP-PLUS (REWRITE) (EQUAL (EXP I (PLUS J K)) (TIMES (EXP I J) (EXP I K))) ((ENABLE EXP ASSOCIATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 EXP . EXP-PLUS) (LEMMAS EXP . EXP-PLUS))))) (PUT1-LST (QUOTE EXP-ADD1) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-ADD1-OFF1 V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT-LEMMA EXP-ADD1-ON EXP-ADD1-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA EXP-ADD1 (REWRITE) (EQUAL (EXP N (ADD1 K)) (TIMES N (EXP N K))) ((ENABLE EXP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-ADD1) (LEMMAS EXP . EXP-ADD1))))) (PUT1-LST (QUOTE EXP-ZERO) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (EXP-ZERO-OFF1 EQUAL-NAT-TO-V-INVERTER NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN NTH-LENGTH-V EXP-ZERO-ON EXP-ZERO-OFF MATH-THEORY EXPONENTIATION EXP-EXP EXP-TIMES) EVENT (PROVE-LEMMA EXP-ZERO (REWRITE) (IMPLIES (ZEROP K) (EQUAL (EXP N K) (QUOTE 1))) ((ENABLE EXP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXP-ZERO) (LEMMAS EXP . EXP-ZERO))))) (PUT1-LST (QUOTE QUOTIENT-EXP) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-AS-REMAINDER V-NZEROP-NAT-TO-V$HELP QUOTIENT-EXP-OFF1 QUOTIENT-EXP-ON QUOTIENT-EXP-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA QUOTIENT-EXP (REWRITE) (IMPLIES (NOT (ZEROP K)) (EQUAL (QUOTIENT (EXP N K) N) (IF (ZEROP N) (QUOTE 0) (EXP N (SUB1 K))))) ((ENABLE EXP QUOTIENT-TIMES-INSTANCE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-EXP) (LEMMAS QUOTIENT . QUOTIENT-EXP))))) (PUT1-LST (QUOTE REMAINDER-EXP-EXP) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (REMAINDER-EXP-EXP-OFF1 REMAINDER-EXP-EXP-ON REMAINDER-EXP-EXP-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA REMAINDER-EXP-EXP (REWRITE) (IMPLIES (IF (LESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER (EXP A J) (EXP A I)) (QUOTE 0))) ((ENABLE EXP REMAINDER-1-ARG2 REMAINDER-TIMES2-INSTANCE) (ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (INDUCT (DOUBLE-NUMBER-INDUCTION I J)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 DOUBLE-NUMBER-INDUCTION . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-EXP-EXP) (LEMMAS REMAINDER . REMAINDER-EXP-EXP))))) (PUT1-LST (QUOTE *1*DOUBLE-NUMBER-INDUCTION) (QUOTE (MAIN-EVENT DOUBLE-NUMBER-INDUCTION))) (PUT1-LST (QUOTE DOUBLE-NUMBER-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLE-NUMBER-INDUCTION 4 NIL NIL)) TOTALP-LST ((DOUBLE-NUMBER-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) (QUOTE 0) (IF (NUMBERP J) (DOUBLE-NUMBER-INDUCTION (SUB1 I) (SUB1 J)) (QUOTE 0))) (QUOTE 0)))) LISP-CODE *1*DOUBLE-NUMBER-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (NOT (ZEROP J))) (((SUB1 I) (SUB1 J))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP)) (JUSTIFICATION (J) (COUNT J) LESSP (ZERO ZEROP COUNT-NUMBERP))) IDATE 1000402193828 CONTROLLER-POCKETS (1 2) SATELLITES (*1*DOUBLE-NUMBER-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DOUBLE-NUMBER-INDUCTION-OFF1 DOUBLE-NUMBER-INDUCTION-OFF1 G*1*DOUBLE-NUMBER-INDUCTION-ON DOUBLE-NUMBER-INDUCTION-ON G*1*DOUBLE-NUMBER-INDUCTION-OFF DOUBLE-NUMBER-INDUCTION-OFF MATH-THEORY REMAINDER-EXP-EXP) EVENT (DEFN DOUBLE-NUMBER-INDUCTION (I J) (IF (ZEROP I) (QUOTE 0) (IF (ZEROP J) (QUOTE 0) (DOUBLE-NUMBER-INDUCTION (SUB1 I) (SUB1 J))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DOUBLE-NUMBER-INDUCTION))))) (PUT1-LST (QUOTE REMAINDER-EXP) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-AS-REMAINDER V-NZEROP-NAT-TO-V$HELP REMAINDER-EXP-OFF1 REMAINDER-EXP-ON REMAINDER-EXP-OFF MATH-THEORY EXPONENTIATION) EVENT (PROVE-LEMMA REMAINDER-EXP (REWRITE) (IMPLIES (NOT (ZEROP K)) (EQUAL (REMAINDER (EXP N K) N) (QUOTE 0))) ((ENABLE EXP REMAINDER-TIMES1-INSTANCE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-EXP) (LEMMAS REMAINDER . REMAINDER-EXP))))) (PUT1-LST (QUOTE *1*GCD) (QUOTE (MAIN-EVENT GCD))) (PUT1-LST (QUOTE GCD) (QUOTE (TYPE-PRESCRIPTION-LST ((GCD 4 NIL NIL)) LEMMAS ((REWRITE-RULE GCD-IDEMPOTENCE NIL (EQUAL (GCD Y (GCD X Y)) (GCD X Y)) NIL) (REWRITE-RULE GCD-IDEMPOTENCE NIL (EQUAL (GCD X (GCD X Y)) (GCD X Y)) NIL) (REWRITE-RULE GCD-X-X NIL (EQUAL (GCD X X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE COMMUTATIVITY2-OF-GCD NIL (EQUAL (GCD B (GCD A C)) (GCD A (GCD B C))) ((B . A))) (REWRITE-RULE ASSOCIATIVITY-OF-GCD NIL (EQUAL (GCD (GCD A B) C) (GCD A (GCD B C))) NIL) (REWRITE-RULE DISTRIBUTIVITY-OF-TIMES-OVER-GCD NIL (EQUAL (GCD (TIMES Z X) (TIMES Z Y)) (TIMES Z (GCD X Y))) NIL) (REWRITE-RULE DISTRIBUTIVITY-OF-TIMES-OVER-GCD NIL (EQUAL (GCD (TIMES X Z) (TIMES Z Y)) (TIMES Z (GCD X Y))) NIL) (REWRITE-RULE DISTRIBUTIVITY-OF-TIMES-OVER-GCD NIL (EQUAL (GCD (TIMES Z X) (TIMES Y Z)) (TIMES Z (GCD X Y))) NIL) (REWRITE-RULE DISTRIBUTIVITY-OF-TIMES-OVER-GCD NIL (EQUAL (GCD (TIMES X Z) (TIMES Y Z)) (TIMES Z (GCD X Y))) NIL) (REWRITE-RULE GCD-PLUS-INSTANCE NIL (EQUAL (GCD A (PLUS B A)) (GCD A B)) NIL) (REWRITE-RULE GCD-PLUS-INSTANCE NIL (EQUAL (GCD A (PLUS A B)) (GCD A B)) NIL) (REWRITE-RULE GCD-PLUS ((EQUAL (REMAINDER B A) (QUOTE 0))) (EQUAL (GCD (PLUS C B) A) (GCD A C)) NIL) (REWRITE-RULE GCD-PLUS ((EQUAL (REMAINDER B A) (QUOTE 0))) (EQUAL (GCD (PLUS B C) A) (GCD A C)) NIL) (REWRITE-RULE GCD-PLUS ((EQUAL (REMAINDER B A) (QUOTE 0))) (EQUAL (GCD A (PLUS C B)) (GCD A C)) NIL) (REWRITE-RULE GCD-PLUS ((EQUAL (REMAINDER B A) (QUOTE 0))) (EQUAL (GCD A (PLUS B C)) (GCD A C)) NIL) (REWRITE-RULE GCD-PLUS-INSTANCE-TEMP NIL (EQUAL (GCD A (PLUS B A)) (GCD A B)) NIL) (REWRITE-RULE GCD-PLUS-INSTANCE-TEMP NIL (EQUAL (GCD A (PLUS A B)) (GCD A B)) NIL) (REWRITE-RULE GCD-1 NIL (EQUAL (GCD X (QUOTE 1)) (QUOTE 1)) NIL) (REWRITE-RULE GCD-1 NIL (EQUAL (GCD (QUOTE 1) X) (QUOTE 1)) NIL) (REWRITE-RULE GCD-0 NIL (EQUAL (GCD X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE GCD-0 NIL (EQUAL (GCD (QUOTE 0) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE COMMUTATIVITY-OF-GCD NIL (EQUAL (GCD B A) (GCD A B)) ((B . A)))) TOTALP-LST ((GCD . T)) QUICK-BLOCK-INFO (QUESTIONABLE QUESTIONABLE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) X (IF (NUMBERP Y) (IF (LESSP X Y) (GCD X (DIFFERENCE Y X)) (GCD (DIFFERENCE X Y) Y)) X)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*GCD SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (NOT (ZEROP Y)) (LESSP X Y)) ((X (DIFFERENCE Y X)))) (TESTS-AND-CASES ((NOT (ZEROP X)) (NOT (ZEROP Y)) (NOT (LESSP X Y))) (((DIFFERENCE X Y) Y)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (Y X) (CONS (ADD1 X) (FIX Y)) ORD-LESSP (ADD1-EQUAL ZERO ZEROP ORD-LESSP LESSP SUB1-ADD1 FIX CDR-CONS CAR-CONS ORDINALP))) IDATE 1000402193828 CONTROLLER-POCKETS (3) SATELLITES (*1*GCD) IMMEDIATE-DEPENDENTS0 (G*1*GCD-OFF1 GCD-OFF1 G*1*GCD-ON GCD-ON G*1*GCD-OFF GCD-OFF MATH-THEORY GCD-IDEMPOTENCE GCD-X-X COMMUTATIVITY2-OF-GCD COMMUTATIVITY2-OF-GCD-ZERO-CASE ASSOCIATIVITY-OF-GCD ASSOCIATIVITY-OF-GCD-ZERO-CASE COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-INSTANCE GCD-PLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD EQUAL-GCD-0 GCD-1 GCD-0 COMMUTATIVITY-OF-GCD) EVENT (DEFN GCD (X Y) (IF (ZEROP X) (FIX Y) (IF (ZEROP Y) X (IF (LESSP X Y) (GCD X (DIFFERENCE Y X)) (GCD (DIFFERENCE X Y) Y)))) ((ORD-LESSP (CONS (ADD1 X) (FIX Y))))) LOCAL-UNDO-TUPLES ((DCELL . *1*GCD))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (MAIN-EVENT LOG))) (PUT1-LST (QUOTE LOG) (QUOTE (TYPE-PRESCRIPTION-LST ((LOG 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOG-EXP ((LESSP (QUOTE 1) C)) (EQUAL (LOG C (EXP C N)) (ADD1 N)) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LOG C (TIMES (EXP C M) N)) (PLUS (LOG C N) M)) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LOG C (TIMES N (EXP C M))) (PLUS (LOG C N) M)) NIL) (REWRITE-RULE LOG-TIMES ((LESSP (QUOTE 1) C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LOG C (TIMES N C)) (ADD1 (LOG C N))) NIL) (REWRITE-RULE LOG-TIMES ((LESSP (QUOTE 1) C) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (LOG C (TIMES C N)) (ADD1 (LOG C N))) NIL) (REWRITE-RULE LOG-QUOTIENT-EXP ((LESSP (QUOTE 1) C)) (EQUAL (LOG C (QUOTIENT N (EXP C M))) (DIFFERENCE (LOG C N) M)) NIL) (REWRITE-RULE LOG-QUOTIENT-TIMES ((LESSP (QUOTE 1) C)) (EQUAL (LOG C (QUOTIENT N (TIMES M C))) (SUB1 (LOG C (QUOTIENT N M)))) NIL) (REWRITE-RULE LOG-QUOTIENT-TIMES ((LESSP (QUOTE 1) C)) (EQUAL (LOG C (QUOTIENT N (TIMES C M))) (SUB1 (LOG C (QUOTIENT N M)))) NIL) (REWRITE-RULE LOG-QUOTIENT ((LESSP (QUOTE 1) C)) (EQUAL (LOG C (QUOTIENT N C)) (SUB1 (LOG C N))) NIL) (REWRITE-RULE LOG-1 ((LESSP (QUOTE 1) BASE)) (EQUAL (LOG BASE (QUOTE 1)) (QUOTE 1)) NIL) (REWRITE-RULE LOG-0 ((ZEROP N)) (EQUAL (LOG BASE N) (QUOTE 0)) NIL)) TOTALP-LST ((LOG . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (BASE N) (IF (LESSP BASE (QUOTE 2)) (QUOTE 0) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (ADD1 (LOG BASE (QUOTIENT N BASE))) (QUOTE 0))))) LISP-CODE *1*LOG SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LESSP BASE (QUOTE 2))) NIL) (TESTS-AND-CASES ((NOT (LESSP BASE (QUOTE 2))) (ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (LESSP BASE (QUOTE 2))) (NOT (ZEROP N))) ((BASE (QUOTIENT N BASE))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZERO ZEROP COUNT-NUMBERP LESSP-QUOTIENT))) IDATE 1000402193828 CONTROLLER-POCKETS (2) SATELLITES (*1*LOG) IMMEDIATE-DEPENDENTS0 (G*1*LOG-OFF1 LOG-OFF1 G*1*LOG-ON LOG-ON G*1*LOG-OFF LOG-OFF MATH-THEORY LOG-EXP LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-TIMES LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-PROOF LOG-QUOTIENT LEQ-LOG-LOG LOG-1 LOG-0 EQUAL-LOG-0) EVENT (DEFN LOG (BASE N) (IF (LESSP BASE (QUOTE 2)) (QUOTE 0) (IF (ZEROP N) (QUOTE 0) (ADD1 (LOG BASE (QUOTIENT N BASE)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . LOG) (DCELL . *1*LOG))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (MAIN-EVENT EXP))) (PUT1-LST (QUOTE EXP) (QUOTE (TYPE-PRESCRIPTION-LST ((EXP 4 NIL NIL)) LEMMAS ((REWRITE-RULE EXP-DIFFERENCE ((NOT (LESSP B C)) (NUMBERP A) (NOT (EQUAL A (QUOTE 0)))) (EQUAL (EXP A (DIFFERENCE B C)) (QUOTIENT (EXP A B) (EXP A C))) NIL) (REWRITE-RULE EXP-EXP NIL (EQUAL (EXP (EXP I J) K) (EXP I (TIMES J K))) NIL) (REWRITE-RULE EXP-TIMES NIL (EQUAL (EXP (TIMES I J) K) (TIMES (EXP I K) (EXP J K))) NIL) (REWRITE-RULE EXP-0-ARG2 NIL (EQUAL (EXP N (QUOTE 0)) (QUOTE 1)) NIL) (REWRITE-RULE EXP-1-ARG1 NIL (EQUAL (EXP (QUOTE 1) K) (QUOTE 1)) NIL) (REWRITE-RULE EXP-0-ARG1 NIL (EQUAL (EXP (QUOTE 0) K) (IF (EQUAL K (QUOTE 0)) (QUOTE 1) (IF (NUMBERP K) (QUOTE 0) (QUOTE 1)))) NIL) (REWRITE-RULE EXP-PLUS NIL (EQUAL (EXP I (PLUS J K)) (TIMES (EXP I J) (EXP I K))) NIL) (REWRITE-RULE EXP-ADD1 NIL (EQUAL (EXP N (ADD1 K)) (TIMES N (EXP N K))) NIL) (REWRITE-RULE EXP-ZERO ((ZEROP K)) (EQUAL (EXP N K) (QUOTE 1)) NIL)) TOTALP-LST ((EXP . T)) LINEAR-LEMMAS ((LINEAR-LEMMA LESSP-1-EXP-2 ((NUMBERP L) (NOT (EQUAL L (QUOTE 0)))) (LESSP (QUOTE 1) (EXP (QUOTE 2) L)) (EXP (QUOTE 2) L)) (LINEAR-LEMMA EXP-LINEAR-BOUNDS ((NOT (LESSP V (EXP (QUOTE 2) (SUB1 N)))) (LESSP V (EXP (QUOTE 2) N))) (NOT (LESSP (EXP (QUOTE 2) (SUB1 N)) (DIFFERENCE (EXP (QUOTE 2) N) V))) (EXP (QUOTE 2) (SUB1 N))) (LINEAR-LEMMA V-TO-NAT-LESSP-EXP-2-LENGTH NIL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A))) (EXP (QUOTE 2) (LENGTH A))) (LINEAR-LEMMA LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR NIL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A))) (EXP (QUOTE 2) (LENGTH A))) (LINEAR-LEMMA V-NZEROP-NAT-TO-V$HELP ((NUMBERP L) (NOT (EQUAL L (QUOTE 0))) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (EQUAL (REMAINDER N (QUOTE 2)) (QUOTE 0)) (LESSP N (EXP (QUOTE 2) L))) (LESSP (QUOTIENT N (QUOTE 2)) (EXP (QUOTE 2) (SUB1 L))) (EXP (QUOTE 2) (SUB1 L))) (LINEAR-LEMMA LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED ((BVP A) (EQUAL (LENGTH A) (LENGTH B)) (NOT (EQUAL (LENGTH B) (QUOTE 0)))) (LESSP (V-TO-NAT A) (PLUS (EXP (QUOTE 2) (SUB1 (LENGTH B))) (EXP (QUOTE 2) (SUB1 (LENGTH B))))) (EXP (QUOTE 2) (SUB1 (LENGTH B)))) (LINEAR-LEMMA LESSP-V-TO-NAT-EXP ((BVP A)) (LESSP (V-TO-NAT A) (EXP (QUOTE 2) (LENGTH A))) (EXP (QUOTE 2) (LENGTH A)))) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (QUOTE 1) (IF (NUMBERP J) (TIMES I (EXP I (SUB1 J))) (QUOTE 1)))) LISP-CODE *1*EXP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J))) ((I (SUB1 J))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (J) (COUNT J) LESSP (ZERO ZEROP COUNT-NUMBERP))) IDATE 1000402193828 CONTROLLER-POCKETS (2) SATELLITES (*1*EXP) IMMEDIATE-DEPENDENTS0 (BV-V-ALU-AS-NATURAL NAT-TO-V-AS-REMAINDER IMOD-V-TO-INT-2 INT-DEC-RANGEP-LEMMAS INT-NEG-RANGE-IMPLICATIONS IZEROP-INC-V-NZEROP V-NZEROP-INT-TO-V LESSP-1-EXP-2 INTEGER-IN-RANGEP-IPLUS-INEG-CARRY INTEGER-IN-RANGEP-IPLUS-INEG INTEGER-IN-RANGEP-IPLUS-CARRY INTEGER-IN-RANGEP-IPLUS INTEGER-IN-RANGEP-THE-OBVIOUS-WAY EXP-2-L-1<=EXP-2-L SUBTRACTION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS ADDITION-CASES-FOR-INTEGER-IN-RANGEP-LEMMAS EXP-LINEAR-BOUNDS INTEGER-IN-RANGEP-1 V-NEGP-AS-BOUNDS V-TO-NAT-LESSP-EXP-2-LENGTH FLAGS-INTERPRETATION-NAT-DEC LESSP-V-TO-NAT-EXP-2-LENGTH-A$LINEAR LESSP-V-TO-NAT-EXP-2-LENGTH-A V-NZEROP-NAT-TO-V V-NZEROP-NAT-TO-V$HELP WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL FLAGS-INTERPRETATION-NAT-ADD FLAGS-INTERPRETATION-NAT-ADDC FLAGS-INTERPRETATION-NAT-INC G*1*EXP-OFF1 EXP-OFF1 V-ALU-CORRECT-INT-ASR V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP V-TO-INT-V-NOT LESSP-V-TO-NAT-EXP-WITH-EXP-OPENED INTEGER-IN-RANGEP V-TO-INT INT-TO-V V-ALU-NAT-NOT-OUTPUT V-ALU-NAT-SUBTRACTER-OUTPUT V-ALU-NAT-ADDER-CARRY-OUT V-ALU-NAT-ADDER-OUTPUT V-TO-NAT-APPEND LESSP-V-TO-NAT-EXP-REWRITE LESSP-V-TO-NAT-EXP V-TO-NAT-V-NOT V-TO-NAT-V-NOT-LEMMA EQUAL-NAT-TO-V-INVERTER EQUAL-NAT-TO-V-INVERTER-HACK2 NAT-TO-V-REMAINDER EQUAL-NAT-TO-V-INVERTER-HACK2-LEMMA EQUAL-NAT-TO-V-INVERTER-HACK1 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN NTH-LENGTH-V G*1*EXP-ON EXP-ON G*1*EXP-OFF EXP-OFF MATH-THEORY LOG-EXP LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-QUOTIENT-EXP EXP-DIFFERENCE EQUAL-EXP-1 EQUAL-EXP-0 EXP-EXP EXP-TIMES EXP-0-ARG2 EXP-1-ARG1 EXP-0-ARG1 EXP-PLUS EXP-ADD1 EXP-ZERO QUOTIENT-EXP REMAINDER-EXP-EXP REMAINDER-EXP) EVENT (DEFN EXP (I J) (IF (ZEROP J) (QUOTE 1) (TIMES I (EXP I (SUB1 J))))) LOCAL-UNDO-TUPLES ((DCELL . *1*EXP))))) (PUT1-LST (QUOTE QUOTIENTS) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (NATURALS LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF EXP-DIFFERENCE) EVENT (DEFTHEORY QUOTIENTS (QUOTIENT-NOOP QUOTIENT-OF-NON-NUMBER QUOTIENT-ZERO QUOTIENT-ADD1 EQUAL-QUOTIENT-0 QUOTIENT-SUB1 QUOTIENT-PLUS QUOTIENT-TIMES QUOTIENT-TIMES-INSTANCE QUOTIENT-DIFFERENCE1 QUOTIENT-LESSP-ARG1 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE3 QUOTIENT-REMAINDER-TIMES QUOTIENT-REMAINDER QUOTIENT-REMAINDER-INSTANCE QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-QUOTIENT QUOTIENT-1-ARG2 QUOTIENT-1-ARG1 QUOTIENT-X-X LESSP-QUOTIENT CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-OF-NON-NUMBER . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-SUB1 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE1 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE2 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE3 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-TIMES . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER-INSTANCE . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG2 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1 . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 LESSP-QUOTIENT . QUOTIENTS) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES . QUOTIENTS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (QUOTE (IDATE 1000402193828 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-ON CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES-OFF MATH-THEORY EXP-DIFFERENCE QUOTIENTS) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ((META QUOTIENT)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-QUOTIENT-TIMES X) A)) ((ENABLE CANCEL-QUOTIENT-TIMES EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF EVAL$-QUOTIENT EVAL$-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-TREE-OF-TIMES-FRINGE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTIENT . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-QUOTIENT-TIMES . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) (LEMMAS QUOTIENT . CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES))))) (PUT1-LST (QUOTE EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF) (QUOTE (IDATE 1000402193827 EVENT (TOGGLE EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF) (DISABLED-LEMMAS NIL EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402193827 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF-OFF) EVENT (PROVE-LEMMA EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP X Y) (AND (SUBBAGP X Z) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A))) (EQUAL (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A)))) ((ENABLE AND-NOT-ZEROP-TREE BAGDIFF EQUAL-QUOTIENT-0 EVAL$-TIMES-MEMBER NUMBERP-EVAL$-TIMES-TREE QUOTIENT-TIMES-TIMES SUBBAGP SUBBAGP-CDR1 SUBBAGP-CDR2 TIMES-TREE ZEROP-MAKES-TIMES-TREE-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES-TREE . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF) (LEMMAS QUOTIENT . EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF) (QUOTE (IDATE 1000402193826 EVENT (TOGGLE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF) (DISABLED-LEMMAS NIL ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (QUOTE (IDATE 1000402193826 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE-OFF) EVENT (PROVE-LEMMA ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE (REWRITE) (IMPLIES (AND (EQUAL (CAR X) (QUOTE TIMES)) (AND (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A)))) (EQUAL (QUOTIENT (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE 0))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE X))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE Y)))) (ENABLE AND-NOT-ZEROP-TREE BAGINT DELETE EQUAL-QUOTIENT-0 EQUAL-TIMES-0 EVAL$-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-FRINGE TIMES-TREE TIMES-TREE-APPEND TIMES-TREE-OF-TIMES-FRINGE ZEROP-MAKES-LESSP-FALSE-BRIDGE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 DELETE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-LESSP-FALSE-BRIDGE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE) (LEMMAS QUOTIENT . ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE))))) (PUT1-LST (QUOTE *1*CANCEL-QUOTIENT-TIMES) (QUOTE (MAIN-EVENT CANCEL-QUOTIENT-TIMES))) (PUT1-LST (QUOTE CANCEL-QUOTIENT-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-QUOTIENT-TIMES 16 T)) TOTALP-LST ((CANCEL-QUOTIENT-TIMES . T)) SDEFN (LAMBDA (X) (IF (EQUAL (CAR X) (QUOTE QUOTIENT)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE QUOTIENT) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((ZERO)))))) X) X) X) X)) LISP-CODE *1*CANCEL-QUOTIENT-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193825 SATELLITES (*1*CANCEL-QUOTIENT-TIMES) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-QUOTIENT-TIMES-OFF1 CANCEL-QUOTIENT-TIMES-OFF1 G*1*CANCEL-QUOTIENT-TIMES-ON CANCEL-QUOTIENT-TIMES-ON G*1*CANCEL-QUOTIENT-TIMES-OFF CANCEL-QUOTIENT-TIMES-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES) EVENT (DEFN CANCEL-QUOTIENT-TIMES (X) (IF (AND (EQUAL (CAR X) (QUOTE QUOTIENT)) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE QUOTIENT) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((ZERO)))))) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-QUOTIENT-TIMES) (DCELL . *1*CANCEL-QUOTIENT-TIMES))))) (PUT1-LST (QUOTE LESSP-QUOTIENT) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (LESSP-QUOTIENT-OFF1 LESSP-QUOTIENT-ON LESSP-QUOTIENT-OFF MATH-THEORY DOUBLE-LOG-INDUCTION LOG QUOTIENTS) EVENT (PROVE-LEMMA LESSP-QUOTIENT (REWRITE) (EQUAL (LESSP (QUOTIENT I J) I) (AND (NOT (ZEROP I)) (NOT (EQUAL J (QUOTE 1))))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-X-X) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (QUOTIENT-X-X-OFF1 QUOTIENT-X-X-ON QUOTIENT-X-X-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-X-X (REWRITE) (IMPLIES (NOT (ZEROP X)) (EQUAL (QUOTIENT X X) (QUOTE 1))) ((ENABLE DIFFERENCE-X-X) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-X-X) (LEMMAS QUOTIENT . QUOTIENT-X-X))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (QUOTIENT-1-ARG1-OFF1 QUOTIENT-1-ARG1-ON QUOTIENT-1-ARG1-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-1-ARG1 (REWRITE) (EQUAL (QUOTIENT (QUOTE 1) N) (IF (EQUAL N (QUOTE 1)) (QUOTE 1) (QUOTE 0))) ((ENABLE QUOTIENT-LESSP-ARG1) (USE (QUOTIENT-1-ARG1-CASESPLIT)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-1-ARG1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1-ARG1-CASESPLIT . QUOTIENT-1-ARG1) (LEMMAS QUOTIENT . QUOTIENT-1-ARG1))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG1-CASESPLIT) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (QUOTIENT-1-ARG1-CASESPLIT-OFF1 QUOTIENT-1-ARG1-CASESPLIT-ON QUOTIENT-1-ARG1-CASESPLIT-OFF MATH-THEORY QUOTIENT-1-ARG1) EVENT (PROVE-LEMMA QUOTIENT-1-ARG1-CASESPLIT NIL (OR (ZEROP N) (OR (EQUAL N (QUOTE 1)) (LESSP (QUOTE 1) N))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE QUOTIENT-1-ARG2) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (QUOTIENT-1-ARG2-OFF1 QUOTIENT-1-ARG2-ON QUOTIENT-1-ARG2-OFF MATH-THEORY LOG-QUOTIENT-EXP EXP-DIFFERENCE QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-1-ARG2 (REWRITE) (EQUAL (QUOTIENT N (QUOTE 1)) (FIX N)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-1-ARG2))))) (PUT1-LST (QUOTE LEQ-QUOTIENT) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (LEQ-QUOTIENT-OFF1 LEQ-QUOTIENT-ON LEQ-QUOTIENT-OFF MATH-THEORY LEQ-LOG-LOG) EVENT (PROVE-LEMMA LEQ-QUOTIENT NIL (IMPLIES (LESSP A B) (IF (LESSP (QUOTIENT B C) (QUOTIENT A C)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) ((INDUCT (DOUBLE-REMAINDER-INDUCTION A B C)) (ENABLE QUOTIENT-LESSP-ARG1 QUOTIENT-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . LEQ-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . LEQ-QUOTIENT) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . LEQ-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT) (QUOTE (IDATE 1000402193825 IMMEDIATE-DEPENDENTS0 (QUOTIENT-QUOTIENT-OFF1 QUOTIENT-QUOTIENT-ON QUOTIENT-QUOTIENT-OFF MATH-THEORY LOG-QUOTIENT-TIMES-PROOF QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-QUOTIENT (REWRITE) (EQUAL (QUOTIENT (QUOTIENT B A) C) (QUOTIENT B (TIMES A C))) ((ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (DISABLE TIMES-DISTRIBUTES-OVER-PLUS) (ENABLE QUOTIENT-LESSP-ARG1 QUOTIENT-PLUS QUOTIENT-PLUS-TIMES-TIMES QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-TIMES QUOTIENT-NOOP QUOTIENT-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-QUOTIENT) (LEMMAS QUOTIENT . QUOTIENT-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF1 QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-ON QUOTIENT-PLUS-TIMES-TIMES-INSTANCE-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES-TIMES-INSTANCE (REWRITE) (IMPLIES (LESSP A B) (AND (EQUAL (QUOTIENT (PLUS A (PLUS (TIMES B C) (TIMES B D))) (TIMES B E)) (IF (ZEROP B) (QUOTE 0) (QUOTIENT (PLUS C D) E))) (EQUAL (QUOTIENT (PLUS A (PLUS (TIMES C B) (TIMES D B))) (TIMES E B)) (IF (ZEROP B) (QUOTE 0) (QUOTIENT (PLUS D C) E))))) ((ENABLE COMMUTATIVITY-OF-TIMES COMMUTATIVITY-OF-PLUS QUOTIENT-TIMES-TIMES QUOTIENT-PLUS-TIMES-TIMES) (USE (TIMES-DISTRIBUTES-OVER-PLUS (X B) (Y C) (Z D))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-TIMES-INSTANCE))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES-TIMES-OFF1 QUOTIENT-PLUS-TIMES-TIMES-ON QUOTIENT-PLUS-TIMES-TIMES-OFF MATH-THEORY QUOTIENTS QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES-TIMES (REWRITE) (IMPLIES (LESSP A B) (AND (EQUAL (QUOTIENT (PLUS A (TIMES B C)) (TIMES B D)) (QUOTIENT (TIMES B C) (TIMES B D))) (EQUAL (QUOTIENT (PLUS A (TIMES B C)) (TIMES B D)) (QUOTIENT (TIMES B C) (TIMES B D))))) ((USE (QUOTIENT-PLUS-TIMES-TIMES-PROOF (A A) (B B) (C C) (D D))) (ENABLE COMMUTATIVITY-OF-TIMES) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES-TIMES-PROOF . QUOTIENT-PLUS-TIMES-TIMES) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-TIMES) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES-TIMES))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES-TIMES-PROOF) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF1 QUOTIENT-PLUS-TIMES-TIMES-PROOF-ON QUOTIENT-PLUS-TIMES-TIMES-PROOF-OFF MATH-THEORY QUOTIENT-PLUS-TIMES-TIMES) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES-TIMES-PROOF NIL (IMPLIES (LESSP A B) (EQUAL (QUOTIENT (PLUS A (TIMES B C)) (TIMES B D)) (QUOTIENT (TIMES B C) (TIMES B D)))) ((USE (QUOTIENT-PLUS-FACT (A A) (X B) (B (TIMES B C)) (C (TIMES B D)))) (ENABLE REMAINDER-TIMES1-INSTANCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-PLUS-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-FACT . QUOTIENT-PLUS-TIMES-TIMES-PROOF))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-FACT) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-FACT-OFF1 QUOTIENT-PLUS-FACT-ON QUOTIENT-PLUS-FACT-OFF MATH-THEORY QUOTIENT-PLUS-TIMES-TIMES-PROOF) EVENT (PROVE-LEMMA QUOTIENT-PLUS-FACT NIL (IMPLIES (AND (EQUAL (REMAINDER B X) (QUOTE 0)) (AND (EQUAL (REMAINDER C X) (QUOTE 0)) (LESSP A X))) (EQUAL (QUOTIENT (PLUS A B) C) (QUOTIENT B C))) ((ENABLE QUOTIENT-LESSP-ARG1 LESSP-PLUS-FACT) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (INDUCT (QUOTIENT B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-FACT . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-PLUS-FACT))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-INSTANCE) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (QUOTIENT-REMAINDER-INSTANCE-OFF1 QUOTIENT-REMAINDER-INSTANCE-ON QUOTIENT-REMAINDER-INSTANCE-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-REMAINDER-INSTANCE (REWRITE) (EQUAL (QUOTIENT (REMAINDER X (TIMES A B)) A) (REMAINDER (QUOTIENT X A) B)) ((ENABLE QUOTIENT-REMAINDER QUOTIENT-TIMES-INSTANCE REMAINDER-TIMES1-INSTANCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-REMAINDER-INSTANCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-REMAINDER-INSTANCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-REMAINDER . QUOTIENT-REMAINDER-INSTANCE) (LEMMAS QUOTIENT . QUOTIENT-REMAINDER-INSTANCE))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER) (QUOTE (IDATE 1000402193824 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-AS-REMAINDER QUOTIENT-REMAINDER-OFF1 NAT-TO-V-REMAINDER QUOTIENT-REMAINDER-ON QUOTIENT-REMAINDER-OFF MATH-THEORY QUOTIENTS QUOTIENT-REMAINDER-INSTANCE) EVENT (PROVE-LEMMA QUOTIENT-REMAINDER (REWRITE) (IMPLIES (EQUAL (REMAINDER C A) (QUOTE 0)) (EQUAL (QUOTIENT (REMAINDER B C) A) (REMAINDER (QUOTIENT B A) (QUOTIENT C A)))) ((ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (ENABLE QUOTIENT-NOOP QUOTIENT-PLUS QUOTIENT-REMAINDER-TIMES QUOTIENT-TIMES-INSTANCE QUOTIENT-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-REMAINDER) (LEMMAS QUOTIENT . QUOTIENT-REMAINDER))))) (PUT1-LST (QUOTE QUOTIENT-REMAINDER-TIMES) (QUOTE (IDATE 1000402193821 IMMEDIATE-DEPENDENTS0 (QUOTIENT-REMAINDER-TIMES-OFF1 QUOTIENT-REMAINDER-TIMES-ON QUOTIENT-REMAINDER-TIMES-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-REMAINDER-TIMES (REWRITE) (EQUAL (QUOTIENT (REMAINDER X (TIMES A B)) A) (REMAINDER (QUOTIENT X A) B)) ((ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (ENABLE REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-NOOP QUOTIENT-PLUS QUOTIENT-TIMES-INSTANCE QUOTIENT-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-REMAINDER-TIMES) (LEMMAS QUOTIENT . QUOTIENT-REMAINDER-TIMES))))) (PUT1-LST (QUOTE REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF) (QUOTE (IDATE 1000402193821 EVENT (TOGGLE REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF REMAINDER-EQUALS-ITS-FIRST-ARGUMENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EQUALS-ITS-FIRST-ARGUMENT . REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF) (DISABLED-LEMMAS NIL REMAINDER-EQUALS-ITS-FIRST-ARGUMENT REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-EQUALS-ITS-FIRST-ARGUMENT) (QUOTE (IDATE 1000402193821 IMMEDIATE-DEPENDENTS0 (REMAINDER-EQUALS-ITS-FIRST-ARGUMENT-OFF) EVENT (PROVE-LEMMA REMAINDER-EQUALS-ITS-FIRST-ARGUMENT (REWRITE) (EQUAL (EQUAL A (REMAINDER A B)) (AND (NUMBERP A) (OR (ZEROP B) (LESSP A B)))) ((INDUCT (REMAINDER A B)) (ENABLE LESSP-REMAINDER REMAINDER-NOOP REMAINDER-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . REMAINDER-EQUALS-ITS-FIRST-ARGUMENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-EQUALS-ITS-FIRST-ARGUMENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-EQUALS-ITS-FIRST-ARGUMENT) (LEMMAS EQUAL . REMAINDER-EQUALS-ITS-FIRST-ARGUMENT))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE3) (QUOTE (IDATE 1000402193821 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE3-OFF1 QUOTIENT-DIFFERENCE3-ON QUOTIENT-DIFFERENCE3-OFF MATH-THEORY IQUO-IREM-UNIQUENESS QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE3 (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER B C) (QUOTE 0)) (NOT (EQUAL (REMAINDER A C) (QUOTE 0)))) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (QUOTIENT B C)) (QUOTE 0)))) ((ENABLE EQUAL-QUOTIENT-0 EQUAL-REMAINDER-PLUS-0 QUOTIENT-LESSP-ARG1 QUOTIENT-TIMES-INSTANCE QUOTIENT-ZERO) (DISABLE TIMES-DISTRIBUTES-OVER-PLUS EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (INDUCT (DOUBLE-REMAINDER-INDUCTION A B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-ARG1 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-DIFFERENCE3) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE3))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE2) (QUOTE (IDATE 1000402193818 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE2-OFF1 QUOTIENT-DIFFERENCE2-ON QUOTIENT-DIFFERENCE2-OFF MATH-THEORY QUOTIENT-DIFFERENCE-LESSP-ARG2 QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE2 (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER A C) (QUOTE 0)) (NOT (EQUAL (REMAINDER B C) (QUOTE 0)))) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (ADD1 (QUOTIENT B C))) (QUOTE 0)))) ((ENABLE EQUAL-QUOTIENT-0 EQUAL-REMAINDER-PLUS-0 QUOTIENT-TIMES-INSTANCE QUOTIENT-ZERO) (DISABLE TIMES-DISTRIBUTES-OVER-PLUS EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3) (ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (INDUCT (DOUBLE-REMAINDER-INDUCTION A B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ZERO . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-DIFFERENCE2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE2))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-ARG1) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-LESSP-ARG1-OFF1 LESSP-QUOTIENT-2 NAT-TO-V-PLUS-X-X V-TO-NAT-OF-NAT-TO-V QUOTIENT-LESSP-ARG1-ON QUOTIENT-LESSP-ARG1-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 QUOTIENT-REMAINDER-UNIQUENESS LOG-QUOTIENT-TIMES-PROOF QUOTIENTS QUOTIENT-1-ARG1 LEQ-QUOTIENT QUOTIENT-QUOTIENT QUOTIENT-PLUS-FACT QUOTIENT-DIFFERENCE3) EVENT (PROVE-LEMMA QUOTIENT-LESSP-ARG1 (REWRITE) (IMPLIES (LESSP A B) (EQUAL (QUOTIENT A B) (QUOTE 0))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-LESSP-ARG1))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE1) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE1-OFF1 QUOTIENT-DIFFERENCE1-ON QUOTIENT-DIFFERENCE1-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE1 (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (REMAINDER B C)) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (DIFFERENCE (QUOTIENT A C) (QUOTIENT B C)))) ((ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (ENABLE QUOTIENT-PLUS QUOTIENT-TIMES-INSTANCE EQUAL-REMAINDER-PLUS-REMAINDER) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-DIFFERENCE1) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE1))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES-OFF) (QUOTE (IDATE 1000402193815 EVENT (TOGGLE QUOTIENT-TIMES-TIMES-OFF QUOTIENT-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES . QUOTIENT-TIMES-TIMES-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-TIMES QUOTIENT-TIMES-TIMES-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-TIMES-TIMES-OFF) EVENT (PROVE-LEMMA QUOTIENT-TIMES-TIMES (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (ZEROP X) (QUOTE 0) (QUOTIENT Y Z))) (EQUAL (QUOTIENT (TIMES X Z) (TIMES Y Z)) (IF (ZEROP Z) (QUOTE 0) (QUOTIENT X Y)))) ((USE (QUOTIENT-TIMES-TIMES-PROOF (X X) (Y Y) (Z Z)) (QUOTIENT-TIMES-TIMES-PROOF (X Z) (Y X) (Z Y))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-TIMES-PROOF . QUOTIENT-TIMES-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES-TIMES))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-TIMES-PROOF) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-TIMES-PROOF-OFF1 QUOTIENT-TIMES-TIMES-PROOF-ON QUOTIENT-TIMES-TIMES-PROOF-OFF MATH-THEORY QUOTIENT-TIMES-TIMES) EVENT (PROVE-LEMMA QUOTIENT-TIMES-TIMES-PROOF NIL (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (ZEROP X) (QUOTE 0) (QUOTIENT Y Z))) ((ENABLE-THEORY ADDITION GROUND-ZERO) (ENABLE LESSP-TIMES-CANCELLATION1 EQUAL-TIMES-0 TIMES-ZERO COMMUTATIVITY-OF-TIMES TIMES-DISTRIBUTES-OVER-DIFFERENCE) (INDUCT (QUOTIENT Y Z)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION1 . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-TIMES-TIMES-PROOF))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-INSTANCE-OFF1 QUOTIENT-TIMES-INSTANCE-ON QUOTIENT-TIMES-INSTANCE-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF QUOTIENT-EXP QUOTIENTS QUOTIENT-QUOTIENT QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1) EVENT (PROVE-LEMMA QUOTIENT-TIMES-INSTANCE (REWRITE) (AND (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X))) (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X)))) ((ENABLE QUOTIENT-TIMES-INSTANCE-TEMP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP . QUOTIENT-TIMES-INSTANCE) (LEMMAS QUOTIENT . QUOTIENT-TIMES-INSTANCE) (LEMMAS QUOTIENT . QUOTIENT-TIMES-INSTANCE))))) (PUT1-LST (QUOTE QUOTIENT-TIMES) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-OFF1 QUOTIENT-TIMES-ON QUOTIENT-TIMES-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-TIMES (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (AND (EQUAL (QUOTIENT (TIMES A B) C) (TIMES B (QUOTIENT A C))) (EQUAL (QUOTIENT (TIMES B A) C) (TIMES B (QUOTIENT A C))))) ((ENABLE COMMUTATIVITY-OF-TIMES) (USE (QUOTIENT-TIMES-PROOF (A A) (B B) (C C))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-PROOF . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-PROOF) (QUOTE (IDATE 1000402193815 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-PROOF-OFF1 QUOTIENT-TIMES-PROOF-ON QUOTIENT-TIMES-PROOF-OFF MATH-THEORY QUOTIENT-TIMES) EVENT (PROVE-LEMMA QUOTIENT-TIMES-PROOF NIL (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (EQUAL (QUOTIENT (TIMES A B) C) (TIMES B (QUOTIENT A C)))) ((ENABLE-THEORY ADDITION MULTIPLICATION REMAINDERS GROUND-ZERO) (ENABLE QUOTIENT-PLUS QUOTIENT-NOOP EQUAL-QUOTIENT-0 QUOTIENT-TIMES-INSTANCE-TEMP) (INDUCT (REMAINDER A C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . QUOTIENT-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDERS . QUOTIENT-TIMES-PROOF))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP-OFF) (QUOTE (IDATE 1000402193814 EVENT (TOGGLE QUOTIENT-TIMES-INSTANCE-TEMP-OFF QUOTIENT-TIMES-INSTANCE-TEMP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP . QUOTIENT-TIMES-INSTANCE-TEMP-OFF) (DISABLED-LEMMAS NIL QUOTIENT-TIMES-INSTANCE-TEMP QUOTIENT-TIMES-INSTANCE-TEMP-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP) (QUOTE (IDATE 1000402193814 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-INSTANCE QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-OFF) EVENT (PROVE-LEMMA QUOTIENT-TIMES-INSTANCE-TEMP (REWRITE) (AND (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X))) (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X)))) ((USE (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF (X X) (Y Y)) (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF (X Y) (Y X))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES-INSTANCE-TEMP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF . QUOTIENT-TIMES-INSTANCE-TEMP) (LEMMAS QUOTIENT . QUOTIENT-TIMES-INSTANCE-TEMP) (LEMMAS QUOTIENT . QUOTIENT-TIMES-INSTANCE-TEMP))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-INSTANCE-TEMP-PROOF) (QUOTE (IDATE 1000402193814 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF1 QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-ON QUOTIENT-TIMES-INSTANCE-TEMP-PROOF-OFF MATH-THEORY QUOTIENT-TIMES-INSTANCE-TEMP) EVENT (PROVE-LEMMA QUOTIENT-TIMES-INSTANCE-TEMP-PROOF NIL (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X))) ((ENABLE TIMES-ZERO COMMUTATIVITY-OF-TIMES DIFFERENCE-PLUS-CANCELLATION) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . QUOTIENT-TIMES-INSTANCE-TEMP-PROOF))))) (PUT1-LST (QUOTE QUOTIENT-PLUS) (QUOTE (IDATE 1000402193814 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-OFF1 V-ALU-CORRECT-INT-ASR-OUTPUT PLUS-QUOTIENT-2-LEMMA QUOTIENT-PLUS-ON QUOTIENT-PLUS-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS QUOTIENTS QUOTIENT-QUOTIENT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF) EVENT (PROVE-LEMMA QUOTIENT-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (AND (EQUAL (QUOTIENT (PLUS A B) C) (PLUS (QUOTIENT A C) (QUOTIENT B C))) (AND (EQUAL (QUOTIENT (PLUS B A) C) (PLUS (QUOTIENT A C) (QUOTIENT B C))) (EQUAL (QUOTIENT (PLUS X (PLUS Y A)) C) (PLUS (QUOTIENT (PLUS X Y) C) (QUOTIENT A C)))))) ((USE (QUOTIENT-PLUS-PROOF (A B) (B A) (C C)) (QUOTIENT-PLUS-PROOF (A A) (B B) (C C)) (QUOTIENT-PLUS-PROOF (A (PLUS X Y)) (B A) (C C))) (ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS ASSOCIATIVITY-OF-PLUS) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . QUOTIENT-PLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . QUOTIENT-PLUS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . QUOTIENT-PLUS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PROOF . QUOTIENT-PLUS) (LEMMAS QUOTIENT . QUOTIENT-PLUS) (LEMMAS QUOTIENT . QUOTIENT-PLUS) (LEMMAS QUOTIENT . QUOTIENT-PLUS))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PROOF) (QUOTE (IDATE 1000402193814 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-PROOF-OFF1 QUOTIENT-PLUS-PROOF-ON QUOTIENT-PLUS-PROOF-OFF MATH-THEORY QUOTIENT-PLUS) EVENT (PROVE-LEMMA QUOTIENT-PLUS-PROOF NIL (IMPLIES (EQUAL (REMAINDER B C) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS A B) C) (PLUS (QUOTIENT A C) (QUOTIENT B C)))) ((ENABLE REMAINDER-NOOP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-PLUS-PROOF))))) (PUT1-LST (QUOTE QUOTIENT-SUB1) (QUOTE (IDATE 1000402193814 IMMEDIATE-DEPENDENTS0 (QUOTIENT-SUB1-OFF1 QUOTIENT-SUB1-ON QUOTIENT-SUB1-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-SUB1 (REWRITE) (IMPLIES (AND (NOT (ZEROP A)) (NOT (ZEROP B))) (EQUAL (QUOTIENT (SUB1 A) B) (IF (EQUAL (REMAINDER A B) (QUOTE 0)) (SUB1 (QUOTIENT A B)) (QUOTIENT A B)))) ((ENABLE QUOTIENT-NOOP EQUAL-QUOTIENT-0) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER A B)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 EQUAL-QUOTIENT-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-SUB1) (LEMMAS QUOTIENT . QUOTIENT-SUB1))))) (PUT1-LST (QUOTE EQUAL-QUOTIENT-0) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (EQUAL-QUOTIENT-0-OFF1 EQUAL-QUOTIENT-0-ON EQUAL-QUOTIENT-0-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART1 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART1 QUOTIENT-DIFFERENCE-LESSP-ARG2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 LOG-QUOTIENT-TIMES-PROOF QUOTIENTS EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-SUB1) EVENT (PROVE-LEMMA EQUAL-QUOTIENT-0 (REWRITE) (EQUAL (EQUAL (QUOTIENT A B) (QUOTE 0)) (OR (ZEROP B) (LESSP A B))) ((INDUCT (QUOTIENT A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . EQUAL-QUOTIENT-0))))) (PUT1-LST (QUOTE QUOTIENT-ADD1) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (QUOTIENT-ADD1-OFF1 V-ALU-CORRECT-INT-ASR-OUTPUT IPLUS-DIV-HACK1 V-ALU-CORRECT-NAT-LSR-OUTPUT NAT-TO-V-OF-V-TO-NAT-GENERAL QUOTIENT-ADD1-ON QUOTIENT-ADD1-OFF MATH-THEORY QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER A B) (QUOTE 0)) (EQUAL (QUOTIENT (ADD1 A) B) (IF (EQUAL B (QUOTE 1)) (ADD1 (QUOTIENT A B)) (QUOTIENT A B)))) ((ENABLE QUOTIENT-NOOP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER A B)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-NOOP . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 ADDITION . QUOTIENT-ADD1) (LEMMAS QUOTIENT . QUOTIENT-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-ZERO) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (QUOTIENT-ZERO-OFF1 IDIV-QUOTIENT NOT-LESSP-QUOTIENT QUOTIENT-ZERO-ON QUOTIENT-ZERO-OFF MATH-THEORY LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF QUOTIENTS LEQ-QUOTIENT QUOTIENT-QUOTIENT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2) EVENT (PROVE-LEMMA QUOTIENT-ZERO (REWRITE) (IMPLIES (ZEROP X) (EQUAL (QUOTIENT Y X) (QUOTE 0))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-ZERO))))) (PUT1-LST (QUOTE QUOTIENT-OF-NON-NUMBER) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (QUOTIENT-OF-NON-NUMBER-OFF1 NOT-LESSP-QUOTIENT QUOTIENT-OF-NON-NUMBER-ON QUOTIENT-OF-NON-NUMBER-OFF MATH-THEORY LOG-QUOTIENT-EXP QUOTIENTS) EVENT (PROVE-LEMMA QUOTIENT-OF-NON-NUMBER (REWRITE) (IMPLIES (NOT (NUMBERP A)) (EQUAL (QUOTIENT A N) (QUOTIENT (QUOTE 0) N))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-OF-NON-NUMBER))))) (PUT1-LST (QUOTE QUOTIENT-NOOP) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (QUOTIENT-NOOP-OFF1 QUOTIENT-NOOP-ON QUOTIENT-NOOP-OFF MATH-THEORY QUOTIENTS QUOTIENT-ADD1) EVENT (PROVE-LEMMA QUOTIENT-NOOP (REWRITE) (IMPLIES (EQUAL B (QUOTE 1)) (EQUAL (QUOTIENT A B) (FIX A))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-NOOP))))) (PUT1-LST (QUOTE REMAINDERS) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (NATURALS COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF EXP-DIFFERENCE QUOTIENT-QUOTIENT QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF) EVENT (DEFTHEORY REMAINDERS (LESSP-REMAINDER REMAINDER-NOOP REMAINDER-OF-NON-NUMBER REMAINDER-ZERO REMAINDER-QUOTIENT-ELIM REMAINDER-ADD1 REMAINDER-PLUS EQUAL-REMAINDER-PLUS-0 REMAINDER-TIMES1 REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES2 REMAINDER-TIMES2-INSTANCE REMAINDER-DIFFERENCE1 REMAINDER-DIFFERENCE2 REMAINDER-PLUS-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-REMAINDER REMAINDER-1-ARG1 REMAINDER-1-ARG2 REMAINDER-X-X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDERS) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE2 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-INSTANCE . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG1 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-1-ARG2 . REMAINDERS) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDERS))))) (PUT1-LST (QUOTE TRANSITIVITY-OF-DIVIDES) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (TRANSITIVITY-OF-DIVIDES-OFF1 TRANSITIVITY-OF-DIVIDES-ON TRANSITIVITY-OF-DIVIDES-OFF MATH-THEORY COMMUTATIVITY2-OF-GCD ASSOCIATIVITY-OF-GCD) EVENT (PROVE-LEMMA TRANSITIVITY-OF-DIVIDES NIL (IMPLIES (AND (EQUAL (REMAINDER A B) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0))) (EQUAL (REMAINDER A C) (QUOTE 0))) ((ENABLE REMAINDER REMAINDER-NOOP REMAINDER-PLUS) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . TRANSITIVITY-OF-DIVIDES) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . TRANSITIVITY-OF-DIVIDES) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . TRANSITIVITY-OF-DIVIDES) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . TRANSITIVITY-OF-DIVIDES) (IMMEDIATE-DEPENDENTS0 ADDITION . TRANSITIVITY-OF-DIVIDES))))) (PUT1-LST (QUOTE REMAINDER-X-X) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (REMAINDER-X-X-OFF1 DIVIDES-PLUS-PLUS REMAINDER-X-X-ON REMAINDER-X-X-OFF MATH-THEORY DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-X-X (REWRITE) (EQUAL (REMAINDER X X) (QUOTE 0)) ((ENABLE EQUAL-DIFFERENCE-0) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . REMAINDER-X-X) (LEMMAS REMAINDER . REMAINDER-X-X))))) (PUT1-LST (QUOTE REMAINDER-1-ARG2) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (REMAINDER-1-ARG2-OFF1 EQUAL-NAT-TO-V-INVERTER NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN REMAINDER-1-ARG2-ON REMAINDER-1-ARG2-OFF MATH-THEORY REMAINDER-EXP-EXP REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-1-ARG2 (REWRITE) (EQUAL (REMAINDER Y (QUOTE 1)) (QUOTE 0)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-1-ARG2))))) (PUT1-LST (QUOTE REMAINDER-1-ARG1) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (REMAINDER-1-ARG1-OFF1 REMAINDER-ADD1-PLUS-MULTIPLE REMAINDER-1-ARG1-ON REMAINDER-1-ARG1-OFF MATH-THEORY REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-1-ARG1 (REWRITE) (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) ((ENABLE DIFFERENCE-LEQ-ARG1) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-1-ARG1) (LEMMAS REMAINDER . REMAINDER-1-ARG1))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER) (QUOTE (IDATE 1000402193813 IMMEDIATE-DEPENDENTS0 (NAT-TO-V-AS-REMAINDER REMAINDER-REMAINDER-OFF1 NAT-TO-V-REMAINDER REMAINDER-REMAINDER-ON REMAINDER-REMAINDER-OFF MATH-THEORY REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-REMAINDER (REWRITE) (IMPLIES (EQUAL (REMAINDER B A) (QUOTE 0)) (EQUAL (REMAINDER (REMAINDER N B) A) (REMAINDER N A))) ((INDUCT (REMAINDER N B)) (ENABLE REMAINDER-PLUS REMAINDER-QUOTIENT-ELIM REMAINDER-ZERO) (ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-REMAINDER) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-REMAINDER) (LEMMAS REMAINDER . REMAINDER-REMAINDER))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (QUOTE (IDATE 1000402193812 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF1 REMAINDER-PLUS-TIMES-TIMES-INSTANCE-ON REMAINDER-PLUS-TIMES-TIMES-INSTANCE-OFF MATH-THEORY QUOTIENT-REMAINDER REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES-TIMES-INSTANCE (REWRITE) (IMPLIES (LESSP A B) (AND (EQUAL (REMAINDER (PLUS A (PLUS (TIMES B C) (TIMES B D))) (TIMES B E)) (PLUS A (TIMES B (REMAINDER (PLUS C D) E)))) (EQUAL (REMAINDER (PLUS A (PLUS (TIMES C B) (TIMES D B))) (TIMES E B)) (PLUS A (TIMES B (REMAINDER (PLUS C D) E)))))) ((ENABLE COMMUTATIVITY-OF-TIMES REMAINDER-TIMES-TIMES REMAINDER-PLUS-TIMES-TIMES) (USE (TIMES-DISTRIBUTES-OVER-PLUS (X B) (Y C) (Z D))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES . REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES . REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-TIMES-INSTANCE) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-TIMES-INSTANCE))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES) (QUOTE (IDATE 1000402193812 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-TIMES-OFF1 REMAINDER-PLUS-TIMES-TIMES-ON REMAINDER-PLUS-TIMES-TIMES-OFF MATH-THEORY REMAINDERS REMAINDER-PLUS-TIMES-TIMES-INSTANCE) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES-TIMES (REWRITE) (IMPLIES (LESSP A B) (AND (EQUAL (REMAINDER (PLUS A (TIMES B C)) (TIMES B D)) (PLUS A (REMAINDER (TIMES B C) (TIMES B D)))) (EQUAL (REMAINDER (PLUS A (TIMES C B)) (TIMES D B)) (PLUS A (REMAINDER (TIMES C B) (TIMES D B)))))) ((USE (REMAINDER-PLUS-TIMES-TIMES-PROOF (A A) (B B) (C C) (D D))) (ENABLE COMMUTATIVITY-OF-TIMES) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-PLUS-TIMES-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES-TIMES-PROOF . REMAINDER-PLUS-TIMES-TIMES) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-TIMES) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES-TIMES))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES-TIMES-PROOF) (QUOTE (IDATE 1000402193812 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF1 REMAINDER-PLUS-TIMES-TIMES-PROOF-ON REMAINDER-PLUS-TIMES-TIMES-PROOF-OFF MATH-THEORY REMAINDER-PLUS-TIMES-TIMES) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES-TIMES-PROOF NIL (IMPLIES (LESSP A B) (EQUAL (REMAINDER (PLUS A (TIMES B C)) (TIMES B D)) (PLUS A (REMAINDER (TIMES B C) (TIMES B D))))) ((USE (REMAINDER-PLUS-FACT (A A) (X B) (B (TIMES B C)) (C (TIMES B D)))) (ENABLE REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES2-INSTANCE) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-INSTANCE . REMAINDER-PLUS-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-PLUS-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-FACT . REMAINDER-PLUS-TIMES-TIMES-PROOF))))) (PUT1-LST (QUOTE REMAINDER-PLUS-FACT) (QUOTE (IDATE 1000402193812 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-FACT-OFF1 REMAINDER-PLUS-FACT-ON REMAINDER-PLUS-FACT-OFF MATH-THEORY REMAINDER-PLUS-TIMES-TIMES-PROOF) EVENT (PROVE-LEMMA REMAINDER-PLUS-FACT NIL (IMPLIES (AND (EQUAL (REMAINDER B X) (QUOTE 0)) (AND (EQUAL (REMAINDER C X) (QUOTE 0)) (LESSP A X))) (EQUAL (REMAINDER (PLUS A B) C) (PLUS A (REMAINDER B C)))) ((ENABLE LESSP-PLUS-FACT REMAINDER-NOOP REMAINDER-DIFFERENCE1) (ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (INDUCT (REMAINDER B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-FACT . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-PLUS-FACT))))) (PUT1-LST (QUOTE LESSP-PLUS-FACT-OFF) (QUOTE (IDATE 1000402193811 EVENT (TOGGLE LESSP-PLUS-FACT-OFF LESSP-PLUS-FACT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-PLUS-FACT . LESSP-PLUS-FACT-OFF) (DISABLED-LEMMAS NIL LESSP-PLUS-FACT LESSP-PLUS-FACT-OFF . T))))) (PUT1-LST (QUOTE LESSP-PLUS-FACT) (QUOTE (IDATE 1000402193811 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-FACT REMAINDER-PLUS-FACT LESSP-PLUS-FACT-OFF) EVENT (PROVE-LEMMA LESSP-PLUS-FACT (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER B X) (QUOTE 0)) (AND (EQUAL (REMAINDER C X) (QUOTE 0)) (AND (LESSP B C) (LESSP A X)))) (EQUAL (LESSP (PLUS A B) C) (QUOTE *1*TRUE))) ((ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (DOUBLE-REMAINDER-INDUCTION B C X)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . LESSP-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . LESSP-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . LESSP-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . LESSP-PLUS-FACT) (IMMEDIATE-DEPENDENTS0 ADDITION . LESSP-PLUS-FACT) (LEMMAS LESSP . LESSP-PLUS-FACT))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-DIFFERENCE-0-OFF) (QUOTE (IDATE 1000402193811 EVENT (TOGGLE EQUAL-REMAINDER-DIFFERENCE-0-OFF EQUAL-REMAINDER-DIFFERENCE-0 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-DIFFERENCE-0 . EQUAL-REMAINDER-DIFFERENCE-0-OFF) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-DIFFERENCE-0 EQUAL-REMAINDER-DIFFERENCE-0-OFF . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-DIFFERENCE-0) (QUOTE (IDATE 1000402193811 IMMEDIATE-DEPENDENTS0 (EQUAL-REMAINDER-DIFFERENCE-0-OFF) EVENT (PROVE-LEMMA EQUAL-REMAINDER-DIFFERENCE-0 (REWRITE) (EQUAL (EQUAL (REMAINDER (DIFFERENCE A B) C) (QUOTE 0)) (IF (IF (LESSP A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER A C) (REMAINDER B C)) (QUOTE *1*TRUE))) ((ENABLE LESSP-REMAINDER REMAINDER-DIFFERENCE1 REMAINDER-OF-NON-NUMBER REMAINDER-PLUS REMAINDER-QUOTIENT-ELIM REMAINDER-TIMES1-INSTANCE REMAINDER-ZERO) (ENABLE-THEORY ADDITION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE1 . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . EQUAL-REMAINDER-DIFFERENCE-0) (IMMEDIATE-DEPENDENTS0 ADDITION . EQUAL-REMAINDER-DIFFERENCE-0) (LEMMAS EQUAL . EQUAL-REMAINDER-DIFFERENCE-0))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE3-OFF) (QUOTE (IDATE 1000402193811 EVENT (TOGGLE REMAINDER-DIFFERENCE3-OFF REMAINDER-DIFFERENCE3 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE3 . REMAINDER-DIFFERENCE3-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE3-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE3) (QUOTE (IDATE 1000402193811 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE3-OFF) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE3 (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER B C) (QUOTE 0)) (NOT (EQUAL (REMAINDER A C) (QUOTE 0)))) (EQUAL (REMAINDER (DIFFERENCE A B) C) (IF (LESSP B A) (REMAINDER A C) (QUOTE 0)))) ((ENABLE REMAINDER-NOOP REMAINDER-OF-NON-NUMBER REMAINDER-ZERO) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (DOUBLE-REMAINDER-INDUCTION A B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . REMAINDER-DIFFERENCE3) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-DIFFERENCE3) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE3))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE2) (QUOTE (IDATE 1000402193810 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE2-OFF1 REMAINDER-DIFFERENCE2-ON REMAINDER-DIFFERENCE2-OFF MATH-THEORY IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE2 (REWRITE) (IMPLIES (AND (EQUAL (REMAINDER A C) (QUOTE 0)) (NOT (EQUAL (REMAINDER B C) (QUOTE 0)))) (EQUAL (REMAINDER (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE C (REMAINDER B C)) (QUOTE 0)))) ((ENABLE EQUAL-REMAINDER-PLUS-0 LESSP-REMAINDER REMAINDER-NOOP REMAINDER-OF-NON-NUMBER REMAINDER-QUOTIENT-ELIM REMAINDER-TIMES1-INSTANCE REMAINDER-ZERO) (DISABLE TIMES-DISTRIBUTES-OVER-PLUS) (ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (INDUCT (DOUBLE-REMAINDER-INDUCTION A B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-OF-NON-NUMBER . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DOUBLE-REMAINDER-INDUCTION . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-DIFFERENCE2) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE2))))) (PUT1-LST (QUOTE *1*DOUBLE-REMAINDER-INDUCTION) (QUOTE (MAIN-EVENT DOUBLE-REMAINDER-INDUCTION))) (PUT1-LST (QUOTE DOUBLE-REMAINDER-INDUCTION) (QUOTE (TYPE-PRESCRIPTION-LST ((DOUBLE-REMAINDER-INDUCTION 4 NIL NIL NIL)) TOTALP-LST ((DOUBLE-REMAINDER-INDUCTION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (A B C) (IF (EQUAL C (QUOTE 0)) (QUOTE 0) (IF (NUMBERP C) (IF (LESSP A C) (QUOTE 0) (IF (LESSP B C) (QUOTE 0) (DOUBLE-REMAINDER-INDUCTION (DIFFERENCE A C) (DIFFERENCE B C) C))) (QUOTE 0)))) LISP-CODE *1*DOUBLE-REMAINDER-INDUCTION SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP C)) NIL) (TESTS-AND-CASES ((NOT (ZEROP C)) (LESSP A C)) NIL) (TESTS-AND-CASES ((NOT (ZEROP C)) (NOT (LESSP A C)) (LESSP B C)) NIL) (TESTS-AND-CASES ((NOT (ZEROP C)) (NOT (LESSP A C)) (NOT (LESSP B C))) (((DIFFERENCE A C) (DIFFERENCE B C) C)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (A) (COUNT A) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP)) (JUSTIFICATION (B) (COUNT B) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) IDATE 1000402193809 CONTROLLER-POCKETS (1 2) SATELLITES (*1*DOUBLE-REMAINDER-INDUCTION) IMMEDIATE-DEPENDENTS0 (G*1*DOUBLE-REMAINDER-INDUCTION-OFF1 DOUBLE-REMAINDER-INDUCTION-OFF1 G*1*DOUBLE-REMAINDER-INDUCTION-ON DOUBLE-REMAINDER-INDUCTION-ON G*1*DOUBLE-REMAINDER-INDUCTION-OFF DOUBLE-REMAINDER-INDUCTION-OFF MATH-THEORY LEQ-QUOTIENT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 LESSP-PLUS-FACT REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2) EVENT (DEFN DOUBLE-REMAINDER-INDUCTION (A B C) (IF (ZEROP C) (QUOTE 0) (IF (LESSP A C) (QUOTE 0) (IF (LESSP B C) (QUOTE 0) (DOUBLE-REMAINDER-INDUCTION (DIFFERENCE A C) (DIFFERENCE B C) C))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DOUBLE-REMAINDER-INDUCTION))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE1) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE1-OFF1 REMAINDER-DIFFERENCE1-ON REMAINDER-DIFFERENCE1-OFF MATH-THEORY QUOTIENT-PLUS-FACT REMAINDERS REMAINDER-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE1 (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (REMAINDER B C)) (EQUAL (REMAINDER (DIFFERENCE A B) C) (DIFFERENCE (REMAINDER A C) (REMAINDER B C)))) ((ENABLE LESSP-REMAINDER EQUAL-REMAINDER-PLUS-REMAINDER REMAINDER-PLUS REMAINDER-QUOTIENT-ELIM REMAINDER-TIMES1-INSTANCE) (ENABLE-THEORY ADDITION GROUND-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-DIFFERENCE1) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE1))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-INSTANCE) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES2-INSTANCE-OFF1 REMAINDER-TIMES2-INSTANCE-ON REMAINDER-TIMES2-INSTANCE-OFF MATH-THEORY REMAINDER-EXP-EXP REMAINDERS REMAINDER-PLUS-TIMES-TIMES-PROOF) EVENT (PROVE-LEMMA REMAINDER-TIMES2-INSTANCE (REWRITE) (AND (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) (EQUAL (REMAINDER (TIMES X Z) (TIMES Y Z)) (TIMES (REMAINDER X Y) Z))) ((ENABLE REMAINDER-TIMES-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES . REMAINDER-TIMES2-INSTANCE) (LEMMAS REMAINDER . REMAINDER-TIMES2-INSTANCE) (LEMMAS REMAINDER . REMAINDER-TIMES2-INSTANCE))))) (PUT1-LST (QUOTE REMAINDER-TIMES2) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES2-OFF1 REMAINDER-TIMES2-ON REMAINDER-TIMES2-OFF MATH-THEORY QUOTIENT-REMAINDER-TIMES REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-TIMES2 (REWRITE) (IMPLIES (EQUAL (REMAINDER A Z) (QUOTE 0)) (AND (EQUAL (REMAINDER A (TIMES Y Z)) (TIMES Z (REMAINDER (QUOTIENT A Z) Y))) (EQUAL (REMAINDER A (TIMES Z Y)) (TIMES Z (REMAINDER (QUOTIENT A Z) Y))))) ((USE (REMAINDER-TIMES2-PROOF (A A) (Y Y) (Z Z))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES2-PROOF . REMAINDER-TIMES2) (LEMMAS REMAINDER . REMAINDER-TIMES2) (LEMMAS REMAINDER . REMAINDER-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-TIMES2-PROOF) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES2-PROOF-OFF1 REMAINDER-TIMES2-PROOF-ON REMAINDER-TIMES2-PROOF-OFF MATH-THEORY REMAINDER-TIMES2) EVENT (PROVE-LEMMA REMAINDER-TIMES2-PROOF NIL (IMPLIES (EQUAL (REMAINDER A Z) (QUOTE 0)) (EQUAL (REMAINDER A (TIMES Z Y)) (TIMES Z (REMAINDER (QUOTIENT A Z) Y)))) ((ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (ENABLE LESSP-REMAINDER REMAINDER-NOOP REMAINDER-PLUS REMAINDER-QUOTIENT-ELIM REMAINDER-TIMES-TIMES REMAINDER-TIMES1-INSTANCE REMAINDER-ZERO) (DO-NOT-INDUCT T) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-REMAINDER . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-TIMES2-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-TIMES2-PROOF))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES-OFF) (QUOTE (IDATE 1000402193809 EVENT (TOGGLE REMAINDER-TIMES-TIMES-OFF REMAINDER-TIMES-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES . REMAINDER-TIMES-TIMES-OFF) (DISABLED-LEMMAS NIL REMAINDER-TIMES-TIMES REMAINDER-TIMES-TIMES-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-TIMES2-INSTANCE REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-OFF) EVENT (PROVE-LEMMA REMAINDER-TIMES-TIMES (REWRITE) (AND (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) (EQUAL (REMAINDER (TIMES X Z) (TIMES Y Z)) (TIMES (REMAINDER X Y) Z))) ((USE (REMAINDER-TIMES-TIMES-PROOF (X X) (Y Y) (Z Z)) (REMAINDER-TIMES-TIMES-PROOF (X Z) (Y X) (Z Y))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-TIMES-PROOF . REMAINDER-TIMES-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES-TIMES))))) (PUT1-LST (QUOTE REMAINDER-TIMES-TIMES-PROOF) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES-TIMES-PROOF-OFF1 REMAINDER-TIMES-TIMES-PROOF-ON REMAINDER-TIMES-TIMES-PROOF-OFF MATH-THEORY REMAINDER-TIMES-TIMES) EVENT (PROVE-LEMMA REMAINDER-TIMES-TIMES-PROOF NIL (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) ((ENABLE-THEORY ADDITION MULTIPLICATION GROUND-ZERO) (ENABLE REMAINDER-ZERO) (INDUCT (REMAINDER Y Z)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-TIMES-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-TIMES-TIMES-PROOF))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES1-INSTANCE-OFF1 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK1 REMAINDER-TIMES1-INSTANCE-ON REMAINDER-TIMES1-INSTANCE-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS COMMON-DIVISOR-DIVIDES-GCD REMAINDER-EXP QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-PROOF QUOTIENT-REMAINDER-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF REMAINDERS REMAINDER-PLUS-TIMES-TIMES-PROOF EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-PROOF) EVENT (PROVE-LEMMA REMAINDER-TIMES1-INSTANCE (REWRITE) (AND (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) (EQUAL (REMAINDER (TIMES X Y) X) (QUOTE 0))) ((USE (REMAINDER-TIMES1-INSTANCE-PROOF (X X) (Y Y)) (REMAINDER-TIMES1-INSTANCE-PROOF (X Y) (Y X))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES1-INSTANCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-INSTANCE-PROOF . REMAINDER-TIMES1-INSTANCE) (LEMMAS REMAINDER . REMAINDER-TIMES1-INSTANCE) (LEMMAS REMAINDER . REMAINDER-TIMES1-INSTANCE))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-INSTANCE-PROOF) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES1-INSTANCE-PROOF-OFF1 REMAINDER-TIMES1-INSTANCE-PROOF-ON REMAINDER-TIMES1-INSTANCE-PROOF-OFF MATH-THEORY REMAINDER-TIMES1-INSTANCE) EVENT (PROVE-LEMMA REMAINDER-TIMES1-INSTANCE-PROOF NIL (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) ((ENABLE COMMUTATIVITY-OF-TIMES DIFFERENCE-PLUS-CANCELLATION REMAINDER-ZERO) (INDUCT (TIMES X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ZERO . REMAINDER-TIMES1-INSTANCE-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES1-INSTANCE-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION . REMAINDER-TIMES1-INSTANCE-PROOF))))) (PUT1-LST (QUOTE REMAINDER-TIMES1) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES1-OFF1 REMAINDER-TIMES1-ON REMAINDER-TIMES1-OFF MATH-THEORY QUOTIENT-TIMES-PROOF REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-TIMES1 (REWRITE) (IMPLIES (EQUAL (REMAINDER B C) (QUOTE 0)) (AND (EQUAL (REMAINDER (TIMES A B) C) (QUOTE 0)) (EQUAL (REMAINDER (TIMES B A) C) (QUOTE 0)))) ((USE (REMAINDER-TIMES1-PROOF (A A) (B B) (C C)) (REMAINDER-TIMES1-PROOF (A B) (B A) (C C))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . REMAINDER-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES1-PROOF . REMAINDER-TIMES1) (LEMMAS REMAINDER . REMAINDER-TIMES1) (LEMMAS REMAINDER . REMAINDER-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-TIMES1-PROOF) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES1-PROOF-OFF1 REMAINDER-TIMES1-PROOF-ON REMAINDER-TIMES1-PROOF-OFF MATH-THEORY REMAINDER-TIMES1) EVENT (PROVE-LEMMA REMAINDER-TIMES1-PROOF NIL (IMPLIES (EQUAL (REMAINDER B C) (QUOTE 0)) (EQUAL (REMAINDER (TIMES A B) C) (QUOTE 0))) ((ENABLE-THEORY MULTIPLICATION ADDITION GROUND-ZERO) (ENABLE REMAINDER-PLUS REMAINDER-NOOP REMAINDER-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . REMAINDER-TIMES1-PROOF) (IMMEDIATE-DEPENDENTS0 MULTIPLICATION . REMAINDER-TIMES1-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-TIMES1-PROOF))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER-OFF) (QUOTE (IDATE 1000402193809 EVENT (TOGGLE EQUAL-REMAINDER-PLUS-REMAINDER-OFF EQUAL-REMAINDER-PLUS-REMAINDER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER . EQUAL-REMAINDER-PLUS-REMAINDER-OFF) (DISABLED-LEMMAS NIL EQUAL-REMAINDER-PLUS-REMAINDER EQUAL-REMAINDER-PLUS-REMAINDER-OFF . T))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE1 REMAINDER-DIFFERENCE1 EQUAL-REMAINDER-PLUS-REMAINDER-OFF) EVENT (PROVE-LEMMA EQUAL-REMAINDER-PLUS-REMAINDER (REWRITE) (IMPLIES (LESSP A C) (AND (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER B C)) (ZEROP A)) (EQUAL (EQUAL (REMAINDER (PLUS B A) C) (REMAINDER B C)) (ZEROP A)))) ((USE (EQUAL-REMAINDER-PLUS-REMAINDER-PROOF (A A) (B B) (C C))) (ENABLE COMMUTATIVITY-OF-PLUS) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . EQUAL-REMAINDER-PLUS-REMAINDER) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF . EQUAL-REMAINDER-PLUS-REMAINDER) (LEMMAS EQUAL . EQUAL-REMAINDER-PLUS-REMAINDER) (LEMMAS EQUAL . EQUAL-REMAINDER-PLUS-REMAINDER))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (QUOTE (IDATE 1000402193809 IMMEDIATE-DEPENDENTS0 (EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-ON EQUAL-REMAINDER-PLUS-REMAINDER-PROOF-OFF MATH-THEORY EQUAL-REMAINDER-PLUS-REMAINDER) EVENT (PROVE-LEMMA EQUAL-REMAINDER-PLUS-REMAINDER-PROOF NIL (IMPLIES (LESSP A C) (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER B C)) (ZEROP A))) ((ENABLE REMAINDER-NOOP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . EQUAL-REMAINDER-PLUS-REMAINDER-PROOF))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (EQUAL-REMAINDER-PLUS-0-OFF1 EQUAL-REMAINDER-PLUS-0-ON EQUAL-REMAINDER-PLUS-0-OFF MATH-THEORY REMAINDERS REMAINDER-DIFFERENCE2) EVENT (PROVE-LEMMA EQUAL-REMAINDER-PLUS-0 (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (AND (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0))) (AND (EQUAL (EQUAL (REMAINDER (PLUS B A) C) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0))) (EQUAL (EQUAL (REMAINDER (PLUS X (PLUS Y A)) C) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X Y) C) (QUOTE 0)))))) ((USE (EQUAL-REMAINDER-PLUS-0-PROOF (A A) (B B) (C C)) (EQUAL-REMAINDER-PLUS-0-PROOF (A B) (B A) (C C)) (EQUAL-REMAINDER-PLUS-0-PROOF (A A) (B (PLUS X Y)) (C C))) (ENABLE ASSOCIATIVITY-OF-PLUS COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . EQUAL-REMAINDER-PLUS-0) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . EQUAL-REMAINDER-PLUS-0) (IMMEDIATE-DEPENDENTS0 EQUAL-REMAINDER-PLUS-0-PROOF . EQUAL-REMAINDER-PLUS-0) (LEMMAS EQUAL . EQUAL-REMAINDER-PLUS-0) (LEMMAS EQUAL . EQUAL-REMAINDER-PLUS-0) (LEMMAS EQUAL . EQUAL-REMAINDER-PLUS-0))))) (PUT1-LST (QUOTE EQUAL-REMAINDER-PLUS-0-PROOF) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (EQUAL-REMAINDER-PLUS-0-PROOF-OFF1 EQUAL-REMAINDER-PLUS-0-PROOF-ON EQUAL-REMAINDER-PLUS-0-PROOF-OFF MATH-THEORY EQUAL-REMAINDER-PLUS-0) EVENT (PROVE-LEMMA EQUAL-REMAINDER-PLUS-0-PROOF NIL (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0)))) ((ENABLE REMAINDER-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS . EQUAL-REMAINDER-PLUS-0-PROOF))))) (PUT1-LST (QUOTE REMAINDER-PLUS) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-OFF1 IPLUS-DIV-HACK1 V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN-HACK1 REMAINDER-PLUS-MULTIPLE REMAINDER-PLUS-ON REMAINDER-PLUS-OFF MATH-THEORY QUOTIENT-REMAINDER-UNIQUENESS REMAINDER-GCD QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 REMAINDERS TRANSITIVITY-OF-DIVIDES REMAINDER-REMAINDER EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-PROOF REMAINDER-TIMES1-PROOF EQUAL-REMAINDER-PLUS-0-PROOF) EVENT (PROVE-LEMMA REMAINDER-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER A C) (QUOTE 0)) (AND (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER B C)) (AND (EQUAL (REMAINDER (PLUS B A) C) (REMAINDER B C)) (EQUAL (REMAINDER (PLUS X (PLUS Y A)) C) (REMAINDER (PLUS X Y) C))))) ((USE (REMAINDER-PLUS-PROOF (A B) (B A) (C C)) (REMAINDER-PLUS-PROOF (A A) (B B) (C C)) (REMAINDER-PLUS-PROOF (B A) (A (PLUS X Y)) (C C))) (ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS ASSOCIATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . REMAINDER-PLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . REMAINDER-PLUS) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . REMAINDER-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PROOF . REMAINDER-PLUS) (LEMMAS REMAINDER . REMAINDER-PLUS) (LEMMAS REMAINDER . REMAINDER-PLUS) (LEMMAS REMAINDER . REMAINDER-PLUS))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PROOF) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-PROOF-OFF1 REMAINDER-PLUS-PROOF-ON REMAINDER-PLUS-PROOF-OFF MATH-THEORY REMAINDER-PLUS) EVENT (PROVE-LEMMA REMAINDER-PLUS-PROOF NIL (IMPLIES (EQUAL (REMAINDER B C) (QUOTE 0)) (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER A C))) ((ENABLE REMAINDER-NOOP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . REMAINDER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-PLUS-PROOF))))) (PUT1-LST (QUOTE REMAINDER-ADD1) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-ADD1-OFF1 V-ALU-CORRECT-NAT-LSR-CARRY-OUT NAT-TO-V-OF-V-TO-NAT-GENERAL REMAINDER-ADD1-PLUS-MULTIPLE REMAINDER-ADD1-ON REMAINDER-ADD1-OFF MATH-THEORY REMAINDERS) EVENT (PROVE-LEMMA REMAINDER-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER A B) (QUOTE 0)) (EQUAL (REMAINDER (ADD1 A) B) (REMAINDER (QUOTE 1) B))) ((ENABLE REMAINDER-NOOP) (ENABLE-THEORY ADDITION GROUND-ZERO) (INDUCT (REMAINDER A B)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-NOOP . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 ADDITION . REMAINDER-ADD1) (LEMMAS REMAINDER . REMAINDER-ADD1))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-QUOTIENT-ELIM-OFF1 LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 PLUS-QUOTIENT-2 NOT-LESSP-QUOTIENT NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN DIVIDES-PLUS-PLUS REMAINDER-QUOTIENT-ELIM-ON REMAINDER-QUOTIENT-ELIM-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF QUOTIENT-QUOTIENT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF REMAINDERS REMAINDER-REMAINDER EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-PROOF) EVENT (PROVE-LEMMA REMAINDER-QUOTIENT-ELIM (ELIM) (IMPLIES (AND (NOT (ZEROP Y)) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X)) ((ENABLE PLUS-REMAINDER-TIMES-QUOTIENT) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-REMAINDER-TIMES-QUOTIENT . REMAINDER-QUOTIENT-ELIM) (ELIMINATE-DESTRUCTORS-DESTS . REMAINDER) (ELIMINATE-DESTRUCTORS-SEQ . REMAINDER) (ELIMINATE-DESTRUCTORS-DESTS . QUOTIENT) (ELIMINATE-DESTRUCTORS-SEQ . QUOTIENT))))) (PUT1-LST (QUOTE PLUS-REMAINDER-TIMES-QUOTIENT-OFF) (QUOTE (IDATE 1000402193808 EVENT (TOGGLE PLUS-REMAINDER-TIMES-QUOTIENT-OFF PLUS-REMAINDER-TIMES-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-REMAINDER-TIMES-QUOTIENT . PLUS-REMAINDER-TIMES-QUOTIENT-OFF) (DISABLED-LEMMAS NIL PLUS-REMAINDER-TIMES-QUOTIENT PLUS-REMAINDER-TIMES-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE PLUS-REMAINDER-TIMES-QUOTIENT) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-QUOTIENT-ELIM PLUS-REMAINDER-TIMES-QUOTIENT-OFF) EVENT (PROVE-LEMMA PLUS-REMAINDER-TIMES-QUOTIENT (REWRITE) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) (FIX X)) ((ENABLE COMMUTATIVITY2-OF-PLUS COMMUTATIVITY-OF-PLUS TIMES-ZERO TIMES-ADD1 COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . PLUS-REMAINDER-TIMES-QUOTIENT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . PLUS-REMAINDER-TIMES-QUOTIENT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . PLUS-REMAINDER-TIMES-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . PLUS-REMAINDER-TIMES-QUOTIENT) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . PLUS-REMAINDER-TIMES-QUOTIENT) (LEMMAS PLUS . PLUS-REMAINDER-TIMES-QUOTIENT))))) (PUT1-LST (QUOTE REMAINDER-ZERO) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-ZERO-OFF1 V-TO-NAT-FIRSTN DIVIDES-PLUS-PLUS REMAINDER-ZERO-ON REMAINDER-ZERO-OFF MATH-THEORY QUOTIENT-DIFFERENCE-LESSP-ARG2 COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST REMAINDER-GCD QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF REMAINDERS REMAINDER-REMAINDER EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-INSTANCE-PROOF) EVENT (PROVE-LEMMA REMAINDER-ZERO (REWRITE) (IMPLIES (ZEROP X) (EQUAL (REMAINDER Y X) (FIX Y))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-ZERO))))) (PUT1-LST (QUOTE REMAINDER-OF-NON-NUMBER) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-OF-NON-NUMBER-OFF1 NAT-TO-V-REMAINDER NAT-TO-V-PLUS-X-X V-TO-NAT-OF-NAT-TO-V REMAINDER-ADD1-PLUS-MULTIPLE DIVIDES-PLUS-PLUS REMAINDER-OF-NON-NUMBER-ON REMAINDER-OF-NON-NUMBER-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 QUOTIENT-DIFFERENCE-LESSP-ARG2 COMMON-DIVISOR-DIVIDES-GCD REMAINDER-GCD QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 REMAINDERS EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2) EVENT (PROVE-LEMMA REMAINDER-OF-NON-NUMBER (REWRITE) (IMPLIES (NOT (NUMBERP A)) (EQUAL (REMAINDER A N) (REMAINDER (QUOTE 0) N))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-OF-NON-NUMBER))))) (PUT1-LST (QUOTE REMAINDER-NOOP) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (REMAINDER-NOOP-OFF1 V-ALU-CORRECT-INT-NOT V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP IDIV-ILESSP-0 V-TO-INT-V-NOT V-ALU-CORRECT-NAT-NOT-OUTPUT V-ALU-CORRECT-NAT-LSR-OUTPUT NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V REMAINDER-ADD1-PLUS-MULTIPLE V-TO-NAT-FIRSTN-HACK1 DIVIDES-PLUS-PLUS REMAINDER-PLUS-MULTIPLE REMAINDER-NOOP-ON REMAINDER-NOOP-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 QUOTIENT-REMAINDER-UNIQUENESS COMMON-DIVISOR-DIVIDES-GCD REMAINDER-GCD QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF QUOTIENT-PLUS-PROOF REMAINDERS TRANSITIVITY-OF-DIVIDES REMAINDER-PLUS-FACT REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 REMAINDER-TIMES2-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF REMAINDER-ADD1) EVENT (PROVE-LEMMA REMAINDER-NOOP (REWRITE) (IMPLIES (LESSP A B) (EQUAL (REMAINDER A B) (FIX A))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-NOOP))))) (PUT1-LST (QUOTE LESSP-REMAINDER) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (LESSP-REMAINDER-OFF1 LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 PLUS-QUOTIENT-2 NOT-LESSP-QUOTIENT NAT-TO-V-REMAINDER V-TO-NAT-OF-NAT-TO-V V-TO-NAT-FIRSTN DIVIDES-PLUS-PLUS LESSP-REMAINDER-ON LESSP-REMAINDER-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF QUOTIENT-QUOTIENT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES REMAINDER-EQUALS-ITS-FIRST-ARGUMENT QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF REMAINDERS EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-PROOF) EVENT (PROVE-LEMMA LESSP-REMAINDER (REWRITE GENERALIZE) (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((GENERALIZE-LEMMAS NIL . LESSP-REMAINDER) (LEMMAS LESSP . LESSP-REMAINDER))))) (PUT1-LST (QUOTE MULTIPLICATION) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (ITIMES-1-ARG1 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES NATURALS COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF EXP-DIFFERENCE REMAINDER-EXP-EXP QUOTIENT-QUOTIENT QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF REMAINDER-REMAINDER REMAINDER-PLUS-FACT REMAINDER-DIFFERENCE2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-PROOF) EVENT (DEFTHEORY MULTIPLICATION (EQUAL-TIMES-0 EQUAL-TIMES-1 EQUAL-SUB1-0 TIMES-ZERO TIMES-ADD1 COMMUTATIVITY-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS COMMUTATIVITY2-OF-TIMES ASSOCIATIVITY-OF-TIMES TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-QUOTIENT TIMES-1-ARG1 LESSP-TIMES1 LESSP-TIMES2 LESSP-TIMES3 LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES2 LESSP-1-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES CORRECTNESS-OF-CANCEL-EQUAL-TIMES)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-1 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 EQUAL-SUB1-0 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-TIMES . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES1 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES2 . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . MULTIPLICATION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . MULTIPLICATION))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (QUOTE (IDATE 1000402193808 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-EQUAL-TIMES-ON CORRECTNESS-OF-CANCEL-EQUAL-TIMES-OFF MATH-THEORY ITIMES-CANCELLATION-1 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-TIMES-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-TIMES ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-TIMES X) A)) ((ENABLE CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE EVAL$-EQUAL EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-TREE-OF-TIMES-FRINGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF) (QUOTE (IDATE 1000402193806 EVENT (TOGGLE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF) (DISABLED-LEMMAS NIL CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (QUOTE (IDATE 1000402193806 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE-OFF) EVENT (PROVE-LEMMA CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE (REWRITE) (IMPLIES (AND (EQUAL (CAR X) (QUOTE TIMES)) (AND (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A)))))) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF (TIMES-FRINGE X) (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y)))) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF (TIMES-FRINGE Y) (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y)))) A)))) ((ENABLE BAGDIFF BAGINT COMMUTATIVITY-OF-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-FRINGE TIMES-TREE TIMES-TREE-APPEND TIMES-TREE-OF-TIMES-FRINGE TIMES-ZERO) (USE (CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY (Z (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (X (TIMES-FRINGE X)) (Y (TIMES-FRINGE Y)))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE) (LEMMAS EQUAL . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF) (QUOTE (IDATE 1000402193804 EVENT (TOGGLE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF) (DISABLED-LEMMAS NIL CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF . T))))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (QUOTE (IDATE 1000402193804 IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-OFF) EVENT (PROVE-LEMMA CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY (REWRITE) (IMPLIES (AND (SUBBAGP Z X) (AND (SUBBAGP Z Y) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A))))) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF X Z)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y Z)) A)))) ((ENABLE BAGDIFF EVAL$-TIMES-MEMBER SUBBAGP SUBBAGP-CDR2 TIMES-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (IMMEDIATE-DEPENDENTS0 SUBBAGP . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY) (LEMMAS EQUAL . CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY))))) (PUT1-LST (QUOTE EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF) (QUOTE (IDATE 1000402193803 EVENT (TOGGLE EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-TIMES-TREE-BAGDIFF . EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF) (DISABLED-LEMMAS NIL EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402193803 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES EVAL$-EQUAL-TIMES-TREE-BAGDIFF-OFF) EVENT (PROVE-LEMMA EVAL$-EQUAL-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP X Y) (AND (SUBBAGP X Z) (NOT (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A)))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A)))) ((ENABLE AND-NOT-ZEROP-TREE BAGDIFF EQUAL-TIMES-ARG1 EVAL$-TIMES-MEMBER NUMBERP-EVAL$-TIMES-TREE OR-ZEROP-TREE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE SUBBAGP SUBBAGP-CDR1 SUBBAGP-CDR2 TIMES-TREE ZEROP-MAKES-TIMES-TREE-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-ARG1 . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (LEMMAS EQUAL . EVAL$-EQUAL-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF) (QUOTE (IDATE 1000402193801 EVENT (TOGGLE ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF) (DISABLED-LEMMAS NIL ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (QUOTE (IDATE 1000402193801 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE-OFF) EVENT (PROVE-LEMMA ZEROP-MAKES-EQUAL-TRUE-BRIDGE (REWRITE) (IMPLIES (AND (EQUAL (CAR X) (QUOTE TIMES)) (AND (EQUAL (CAR Y) (QUOTE TIMES)) (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A))) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE *1*TRUE))) ((ENABLE BAGINT COMMUTATIVITY-OF-TIMES DELETE EQUAL-TIMES-0 EVAL$-TIMES OR-ZEROP-TREE SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-FRINGE TIMES-TREE TIMES-TREE-APPEND TIMES-TREE-OF-TIMES-FRINGE TIMES-ZERO) (USE (ZEROP-MAKES-TIMES-TREE-ZERO2 (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE X))) (ZEROP-MAKES-TIMES-TREE-ZERO2 (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE Y)))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 DELETE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO2 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (LEMMAS EQUAL . ZEROP-MAKES-EQUAL-TRUE-BRIDGE))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (MAIN-EVENT CANCEL-EQUAL-TIMES))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-TIMES 16 T)) TOTALP-LST ((CANCEL-EQUAL-TIMES . T)) SDEFN (LAMBDA (X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE OR) (CONS (OR-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X) X)) LISP-CODE *1*CANCEL-EQUAL-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193757 SATELLITES (*1*CANCEL-EQUAL-TIMES) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-EQUAL-TIMES-OFF1 CANCEL-EQUAL-TIMES-OFF1 G*1*CANCEL-EQUAL-TIMES-ON CANCEL-EQUAL-TIMES-ON G*1*CANCEL-EQUAL-TIMES-OFF CANCEL-EQUAL-TIMES-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (DEFN CANCEL-EQUAL-TIMES (X) (IF (AND (EQUAL (CAR X) (QUOTE EQUAL)) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE OR) (CONS (OR-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-TIMES) (DCELL . *1*CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES) (QUOTE (IDATE 1000402193757 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-LESSP-TIMES-ON CORRECTNESS-OF-CANCEL-LESSP-TIMES-OFF MATH-THEORY ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-POSITIVE IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF QUOTIENT-DIFFERENCE1 REMAINDER-TIMES-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-TIMES ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-TIMES X) A)) ((ENABLE CANCEL-LESSP-TIMES EVAL$-LESSP-TIMES-TREE-BAGDIFF EVAL$-LESSP EVAL$-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-TREE-OF-TIMES-FRINGE ZEROP-MAKES-LESSP-FALSE-BRIDGE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-LESSP-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-LESSP-FALSE-BRIDGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-LESSP . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF) (QUOTE (IDATE 1000402193757 EVENT (TOGGLE ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF ZEROP-MAKES-LESSP-FALSE-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-LESSP-FALSE-BRIDGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF) (DISABLED-LEMMAS NIL ZEROP-MAKES-LESSP-FALSE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE ZEROP-MAKES-LESSP-FALSE-BRIDGE) (QUOTE (IDATE 1000402193757 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE-OFF) EVENT (PROVE-LEMMA ZEROP-MAKES-LESSP-FALSE-BRIDGE (REWRITE) (IMPLIES (AND (EQUAL (CAR X) (QUOTE TIMES)) (AND (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A)))) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE *1*FALSE))) ((ENABLE AND-NOT-ZEROP-TREE BAGINT COMMUTATIVITY-OF-TIMES DELETE EQUAL-TIMES-0 EVAL$-TIMES SUBBAGP-BAGINT1 SUBBAGP-BAGINT2 TIMES-FRINGE TIMES-TREE TIMES-TREE-APPEND TIMES-TREE-OF-TIMES-FRINGE TIMES-ZERO) (USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE X))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) (Y (TIMES-FRINGE Y)))) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 DELETE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (LEMMAS LESSP . ZEROP-MAKES-LESSP-FALSE-BRIDGE))))) (PUT1-LST (QUOTE EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF) (QUOTE (IDATE 1000402193752 EVENT (TOGGLE EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF EVAL$-LESSP-TIMES-TREE-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LESSP-TIMES-TREE-BAGDIFF . EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF) (DISABLED-LEMMAS NIL EVAL$-LESSP-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LESSP-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402193752 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES EVAL$-LESSP-TIMES-TREE-BAGDIFF-OFF) EVENT (PROVE-LEMMA EVAL$-LESSP-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (SUBBAGP X Y) (AND (SUBBAGP X Z) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A)))) ((ENABLE AND-NOT-ZEROP-TREE BAGDIFF EVAL$-TIMES-MEMBER LESSP-TIMES-CANCELLATION1 SUBBAGP SUBBAGP-CDR1 SUBBAGP-CDR2 TIMES-TREE ZEROP-MAKES-TIMES-TREE-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION1 . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (LEMMAS LESSP . EVAL$-LESSP-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (MAIN-EVENT CANCEL-LESSP-TIMES))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-TIMES 16 T)) TOTALP-LST ((CANCEL-LESSP-TIMES . T)) SDEFN (LAMBDA (X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X) X)) LISP-CODE *1*CANCEL-LESSP-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193751 SATELLITES (*1*CANCEL-LESSP-TIMES) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-LESSP-TIMES-OFF1 CANCEL-LESSP-TIMES-OFF1 G*1*CANCEL-LESSP-TIMES-ON CANCEL-LESSP-TIMES-ON G*1*CANCEL-LESSP-TIMES-OFF CANCEL-LESSP-TIMES-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (DEFN CANCEL-LESSP-TIMES (X) (IF (AND (EQUAL (CAR X) (QUOTE LESSP)) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-TIMES) (DCELL . *1*CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE TIMES-TREE-OF-TIMES-FRINGE-OFF) (QUOTE (IDATE 1000402193751 EVENT (TOGGLE TIMES-TREE-OF-TIMES-FRINGE-OFF TIMES-TREE-OF-TIMES-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE-OF-TIMES-FRINGE . TIMES-TREE-OF-TIMES-FRINGE-OFF) (DISABLED-LEMMAS NIL TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-OF-TIMES-FRINGE-OFF . T))))) (PUT1-LST (QUOTE TIMES-TREE-OF-TIMES-FRINGE) (QUOTE (IDATE 1000402193751 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-OF-TIMES-FRINGE-OFF) EVENT (PROVE-LEMMA TIMES-TREE-OF-TIMES-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE COMMUTATIVITY-OF-TIMES EVAL$-TIMES TIMES-FRINGE TIMES-TREE TIMES-TREE-APPEND TIMES-ZERO) (INDUCT (TIMES-FRINGE X)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . TIMES-TREE-OF-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-TREE-OF-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . TIMES-TREE-OF-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-TREE-OF-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-TREE-OF-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-OF-TIMES-FRINGE) (LEMMAS EVAL$ . TIMES-TREE-OF-TIMES-FRINGE))))) (PUT1-LST (QUOTE TIMES-TREE-APPEND-OFF) (QUOTE (IDATE 1000402193750 EVENT (TOGGLE TIMES-TREE-APPEND-OFF TIMES-TREE-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE-APPEND . TIMES-TREE-APPEND-OFF) (DISABLED-LEMMAS NIL TIMES-TREE-APPEND TIMES-TREE-APPEND-OFF . T))))) (PUT1-LST (QUOTE TIMES-TREE-APPEND) (QUOTE (IDATE 1000402193750 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND-OFF) EVENT (PROVE-LEMMA TIMES-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A))) ((ENABLE APPEND ASSOCIATIVITY-OF-TIMES COMMUTATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES EQUAL-TIMES-0 EQUAL-TIMES-ARG1 EQUAL-TIMES-BRIDGE NUMBERP-EVAL$-TIMES-TREE TIMES-1-ARG1 TIMES-TREE TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES-TREE . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-APPEND) (LEMMAS EVAL$ . TIMES-TREE-APPEND))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO2-OFF) (QUOTE (IDATE 1000402193746 EVENT (TOGGLE ZEROP-MAKES-TIMES-TREE-ZERO2-OFF ZEROP-MAKES-TIMES-TREE-ZERO2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO2 . ZEROP-MAKES-TIMES-TREE-ZERO2-OFF) (DISABLED-LEMMAS NIL ZEROP-MAKES-TIMES-TREE-ZERO2 ZEROP-MAKES-TIMES-TREE-ZERO2-OFF . T))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO2) (QUOTE (IDATE 1000402193746 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-TIMES-TREE-ZERO2-OFF) EVENT (PROVE-LEMMA ZEROP-MAKES-TIMES-TREE-ZERO2 (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO) (OR-ZEROP-TREE-IS-NOT-ZEROP-TREE)) (ENABLE OR-ZEROP-TREE SUBBAGP TIMES-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-TIMES-TREE-ZERO2) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE . ZEROP-MAKES-TIMES-TREE-ZERO2) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-TIMES-TREE-ZERO2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ZEROP-MAKES-TIMES-TREE-ZERO2) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . ZEROP-MAKES-TIMES-TREE-ZERO2) (LEMMAS EVAL$ . ZEROP-MAKES-TIMES-TREE-ZERO2))))) (PUT1-LST (QUOTE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF) (QUOTE (IDATE 1000402193746 EVENT (TOGGLE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF OR-ZEROP-TREE-IS-NOT-ZEROP-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE . OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF) (DISABLED-LEMMAS NIL OR-ZEROP-TREE-IS-NOT-ZEROP-TREE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF . T))))) (PUT1-LST (QUOTE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE) (QUOTE (IDATE 1000402193746 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO2 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE-OFF) EVENT (PROVE-LEMMA OR-ZEROP-TREE-IS-NOT-ZEROP-TREE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A) (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A))) ((ENABLE AND-NOT-ZEROP-TREE OR-ZEROP-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . OR-ZEROP-TREE-IS-NOT-ZEROP-TREE) (IMMEDIATE-DEPENDENTS0 OR-ZEROP-TREE . OR-ZEROP-TREE-IS-NOT-ZEROP-TREE) (LEMMAS EVAL$ . OR-ZEROP-TREE-IS-NOT-ZEROP-TREE))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO-OFF) (QUOTE (IDATE 1000402193745 EVENT (TOGGLE ZEROP-MAKES-TIMES-TREE-ZERO-OFF ZEROP-MAKES-TIMES-TREE-ZERO T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-TIMES-TREE-ZERO-OFF) (DISABLED-LEMMAS NIL ZEROP-MAKES-TIMES-TREE-ZERO ZEROP-MAKES-TIMES-TREE-ZERO-OFF . T))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO) (QUOTE (IDATE 1000402193745 IMMEDIATE-DEPENDENTS0 (EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO2 ZEROP-MAKES-TIMES-TREE-ZERO-OFF) EVENT (PROVE-LEMMA ZEROP-MAKES-TIMES-TREE-ZERO (REWRITE) (IMPLIES (AND (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0))) ((ENABLE AND-NOT-ZEROP-TREE COMMUTATIVITY-OF-TIMES EVAL$-TIMES-MEMBER SUBBAGP TIMES-TREE TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (LEMMAS EVAL$ . ZEROP-MAKES-TIMES-TREE-ZERO))))) (PUT1-LST (QUOTE EVAL$-TIMES-MEMBER-OFF) (QUOTE (IDATE 1000402193745 EVENT (TOGGLE EVAL$-TIMES-MEMBER-OFF EVAL$-TIMES-MEMBER T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-TIMES-MEMBER-OFF) (DISABLED-LEMMAS NIL EVAL$-TIMES-MEMBER EVAL$-TIMES-MEMBER-OFF . T))))) (PUT1-LST (QUOTE EVAL$-TIMES-MEMBER) (QUOTE (IDATE 1000402193745 IMMEDIATE-DEPENDENTS0 (EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER-OFF) EVENT (PROVE-LEMMA EVAL$-TIMES-MEMBER (REWRITE) (IMPLIES (MEMBER E X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A)))) ((ENABLE DELETE TIMES-TREE COMMUTATIVITY-OF-TIMES DELETE-NON-MEMBER EQUAL-TIMES-0 EQUAL-TIMES-BRIDGE LISTP-DELETE MEMBER-NON-LIST TIMES-1-ARG1 TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-BRIDGE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 LISTP-DELETE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-MEMBER) (LEMMAS EVAL$ . EVAL$-TIMES-MEMBER))))) (PUT1-LST (QUOTE EQUAL-TIMES-BRIDGE-OFF) (QUOTE (IDATE 1000402193742 EVENT (TOGGLE EQUAL-TIMES-BRIDGE-OFF EQUAL-TIMES-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-BRIDGE . EQUAL-TIMES-BRIDGE-OFF) (DISABLED-LEMMAS NIL EQUAL-TIMES-BRIDGE EQUAL-TIMES-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-BRIDGE) (QUOTE (IDATE 1000402193742 IMMEDIATE-DEPENDENTS0 (EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE-OFF) EVENT (PROVE-LEMMA EQUAL-TIMES-BRIDGE (REWRITE) (EQUAL (EQUAL (TIMES A B) (TIMES C (TIMES A D))) (OR (ZEROP A) (EQUAL (FIX B) (TIMES C D)))) ((ENABLE COMMUTATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES EQUAL-TIMES-0 EQUAL-TIMES-ARG1 TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-ARG1 . EQUAL-TIMES-BRIDGE) (IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-0 . EQUAL-TIMES-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EQUAL-TIMES-BRIDGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . EQUAL-TIMES-BRIDGE) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . EQUAL-TIMES-BRIDGE) (LEMMAS EQUAL . EQUAL-TIMES-BRIDGE))))) (PUT1-LST (QUOTE EQUAL-TIMES-ARG1-OFF) (QUOTE (IDATE 1000402193742 EVENT (TOGGLE EQUAL-TIMES-ARG1-OFF EQUAL-TIMES-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-TIMES-ARG1 . EQUAL-TIMES-ARG1-OFF) (DISABLED-LEMMAS NIL EQUAL-TIMES-ARG1 EQUAL-TIMES-ARG1-OFF . T))))) (PUT1-LST (QUOTE EQUAL-TIMES-ARG1) (QUOTE (IDATE 1000402193742 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EQUAL-TIMES-BRIDGE EQUAL-TIMES-ARG1-OFF) EVENT (PROVE-LEMMA EQUAL-TIMES-ARG1 (REWRITE) (IMPLIES (NOT (ZEROP A)) (EQUAL (EQUAL (TIMES A X) (TIMES A Y)) (EQUAL (FIX X) (FIX Y)))) ((USE (LESSP-TIMES-ARG1 (A A) (X X) (Y Y)) (LESSP-TIMES-ARG1 (A A) (X Y) (Y X)) (INFER-EQUALITY-FROM-NOT-LESSP (A (TIMES A X)) (B (TIMES A Y)))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-ARG1 . EQUAL-TIMES-ARG1) (IMMEDIATE-DEPENDENTS0 INFER-EQUALITY-FROM-NOT-LESSP . EQUAL-TIMES-ARG1) (LEMMAS EQUAL . EQUAL-TIMES-ARG1))))) (PUT1-LST (QUOTE INFER-EQUALITY-FROM-NOT-LESSP) (QUOTE (IDATE 1000402193742 IMMEDIATE-DEPENDENTS0 (INFER-EQUALITY-FROM-NOT-LESSP-OFF1 INFER-EQUALITY-FROM-NOT-LESSP-ON INFER-EQUALITY-FROM-NOT-LESSP-OFF MATH-THEORY EQUAL-TIMES-ARG1) EVENT (PROVE-LEMMA INFER-EQUALITY-FROM-NOT-LESSP NIL (IMPLIES (AND (NUMBERP A) (NUMBERP B)) (EQUAL (AND (NOT (LESSP A B)) (NOT (LESSP B A))) (EQUAL A B))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE LESSP-TIMES-ARG1) (QUOTE (IDATE 1000402193742 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES-ARG1-OFF1 LESSP-TIMES-ARG1-ON LESSP-TIMES-ARG1-OFF MATH-THEORY EQUAL-TIMES-ARG1) EVENT (PROVE-LEMMA LESSP-TIMES-ARG1 NIL (IMPLIES (NOT (ZEROP A)) (EQUAL (NOT (LESSP (TIMES A X) (TIMES A Y))) (NOT (LESSP X Y)))) ((INDUCT (PLUS A X)) (ENABLE TIMES CORRECTNESS-OF-CANCEL-LESSP-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . LESSP-TIMES-ARG1))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES-TREE-OFF) (QUOTE (IDATE 1000402193742 EVENT (TOGGLE NUMBERP-EVAL$-TIMES-TREE-OFF NUMBERP-EVAL$-TIMES-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES-TREE . NUMBERP-EVAL$-TIMES-TREE-OFF) (DISABLED-LEMMAS NIL NUMBERP-EVAL$-TIMES-TREE NUMBERP-EVAL$-TIMES-TREE-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES-TREE) (QUOTE (IDATE 1000402193742 IMMEDIATE-DEPENDENTS0 (EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF TIMES-TREE-APPEND NUMBERP-EVAL$-TIMES-TREE-OFF) EVENT (PROVE-LEMMA NUMBERP-EVAL$-TIMES-TREE (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) ((ENABLE TIMES-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-TREE . NUMBERP-EVAL$-TIMES-TREE) (LEMMAS NUMBERP . NUMBERP-EVAL$-TIMES-TREE))))) (PUT1-LST (QUOTE EVAL$-IF-OFF) (QUOTE (IDATE 1000402193741 EVENT (TOGGLE EVAL$-IF-OFF EVAL$-IF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-IF . EVAL$-IF-OFF) (DISABLED-LEMMAS NIL EVAL$-IF EVAL$-IF-OFF . T))))) (PUT1-LST (QUOTE EVAL$-IF) (QUOTE (IDATE 1000402193741 IMMEDIATE-DEPENDENTS0 (EVAL$-IF-OFF) EVENT (PROVE-LEMMA EVAL$-IF (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE IF)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (IF (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-IF))))) (PUT1-LST (QUOTE EVAL$-QUOTIENT-OFF) (QUOTE (IDATE 1000402193741 EVENT (TOGGLE EVAL$-QUOTIENT-OFF EVAL$-QUOTIENT T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTIENT . EVAL$-QUOTIENT-OFF) (DISABLED-LEMMAS NIL EVAL$-QUOTIENT EVAL$-QUOTIENT-OFF . T))))) (PUT1-LST (QUOTE EVAL$-QUOTIENT) (QUOTE (IDATE 1000402193741 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES EVAL$-QUOTIENT-OFF) EVENT (PROVE-LEMMA EVAL$-QUOTIENT (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE QUOTIENT)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-QUOTIENT))))) (PUT1-LST (QUOTE EVAL$-LESSP-OFF) (QUOTE (IDATE 1000402193741 EVENT (TOGGLE EVAL$-LESSP-OFF EVAL$-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-LESSP . EVAL$-LESSP-OFF) (DISABLED-LEMMAS NIL EVAL$-LESSP EVAL$-LESSP-OFF . T))))) (PUT1-LST (QUOTE EVAL$-LESSP) (QUOTE (IDATE 1000402193741 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES EVAL$-LESSP-OFF) EVENT (PROVE-LEMMA EVAL$-LESSP (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (LESSP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-LESSP))))) (PUT1-LST (QUOTE EVAL$-EQUAL-OFF) (QUOTE (IDATE 1000402193741 EVENT (TOGGLE EVAL$-EQUAL-OFF EVAL$-EQUAL T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL . EVAL$-EQUAL-OFF) (DISABLED-LEMMAS NIL EVAL$-EQUAL EVAL$-EQUAL-OFF . T))))) (PUT1-LST (QUOTE EVAL$-EQUAL) (QUOTE (IDATE 1000402193741 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-OFF2 EVAL$-EQUAL-ON1 EVAL$-EQUAL-OFF1 MATH-THEORY CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY CORRECTNESS-OF-CANCEL-FACTORS-0 CORRECTNESS-OF-CANCEL-ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES EVAL$-EQUAL-ON CORRECTNESS-OF-CANCEL-EQUAL-TIMES EVAL$-EQUAL-OFF) EVENT (PROVE-LEMMA EVAL$-EQUAL (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-EQUAL))))) (PUT1-LST (QUOTE EVAL$-OR-OFF) (QUOTE (IDATE 1000402193741 EVENT (TOGGLE EVAL$-OR-OFF EVAL$-OR T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-OR . EVAL$-OR-OFF) (DISABLED-LEMMAS NIL EVAL$-OR EVAL$-OR-OFF . T))))) (PUT1-LST (QUOTE EVAL$-OR) (QUOTE (IDATE 1000402193741 IMMEDIATE-DEPENDENTS0 (EVAL$-OR-OFF) EVENT (PROVE-LEMMA EVAL$-OR (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE OR)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (OR (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-OR))))) (PUT1-LST (QUOTE EVAL$-TIMES-OFF) (QUOTE (IDATE 1000402193740 EVENT (TOGGLE EVAL$-TIMES-OFF EVAL$-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES . EVAL$-TIMES-OFF) (DISABLED-LEMMAS NIL EVAL$-TIMES EVAL$-TIMES-OFF . T))))) (PUT1-LST (QUOTE EVAL$-TIMES) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-OF-TIMES-FRINGE EVAL$-TIMES-OFF) EVENT (PROVE-LEMMA EVAL$-TIMES (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE TIMES)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-TIMES))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES-OFF) (QUOTE (IDATE 1000402193740 EVENT (TOGGLE NUMBERP-EVAL$-TIMES-OFF NUMBERP-EVAL$-TIMES T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . NUMBERP-EVAL$-TIMES-OFF) (DISABLED-LEMMAS NIL NUMBERP-EVAL$-TIMES NUMBERP-EVAL$-TIMES-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (NUMBERP-EVAL$-TIMES-OFF) EVENT (PROVE-LEMMA NUMBERP-EVAL$-TIMES (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE TIMES)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-TIMES))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (MAIN-EVENT AND-NOT-ZEROP-TREE))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-NOT-ZEROP-TREE 16 NIL)) TOTALP-LST ((AND-NOT-ZEROP-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE (TRUE)))) LISP-CODE *1*AND-NOT-ZEROP-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X)))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193740 CONTROLLER-POCKETS (1) SATELLITES (*1*AND-NOT-ZEROP-TREE) IMMEDIATE-DEPENDENTS0 (G*1*AND-NOT-ZEROP-TREE-OFF1 AND-NOT-ZEROP-TREE-OFF1 G*1*AND-NOT-ZEROP-TREE-ON AND-NOT-ZEROP-TREE-ON G*1*AND-NOT-ZEROP-TREE-OFF AND-NOT-ZEROP-TREE-OFF MATH-THEORY EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-QUOTIENT-TIMES EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES OR-ZEROP-TREE-IS-NOT-ZEROP-TREE ZEROP-MAKES-TIMES-TREE-ZERO) EVENT (DEFN AND-NOT-ZEROP-TREE (X) (IF (NLISTP X) (QUOTE (TRUE)) (IF (NLISTP (CDR X)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*AND-NOT-ZEROP-TREE))))) (PUT1-LST (QUOTE *1*OR-ZEROP-TREE) (QUOTE (MAIN-EVENT OR-ZEROP-TREE))) (PUT1-LST (QUOTE OR-ZEROP-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-ZEROP-TREE 16 NIL)) TOTALP-LST ((OR-ZEROP-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (IF (LISTP (CDR (CDR X))) (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (CONS (OR-ZEROP-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL))))) (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL)))) (QUOTE (FALSE)))) LISP-CODE *1*OR-ZEROP-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NLISTP (CDR (CDR X)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NOT (NLISTP (CDR (CDR X))))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193740 CONTROLLER-POCKETS (1) SATELLITES (*1*OR-ZEROP-TREE) IMMEDIATE-DEPENDENTS0 (G*1*OR-ZEROP-TREE-OFF1 OR-ZEROP-TREE-OFF1 G*1*OR-ZEROP-TREE-ON OR-ZEROP-TREE-ON G*1*OR-ZEROP-TREE-OFF OR-ZEROP-TREE-OFF MATH-THEORY EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-EQUAL-TIMES ZEROP-MAKES-TIMES-TREE-ZERO2 OR-ZEROP-TREE-IS-NOT-ZEROP-TREE) EVENT (DEFN OR-ZEROP-TREE (X) (IF (NLISTP X) (QUOTE (FALSE)) (IF (NLISTP (CDR X)) (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (IF (NLISTP (CDR (CDR X))) (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL)))) (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (CONS (OR-ZEROP-TREE (CDR X)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*OR-ZEROP-TREE))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (MAIN-EVENT TIMES-FRINGE))) (PUT1-LST (QUOTE TIMES-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-FRINGE 16 NIL)) TOTALP-LST ((TIMES-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE TIMES)) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*TIMES-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193740 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-FRINGE) IMMEDIATE-DEPENDENTS0 (G*1*TIMES-FRINGE-OFF1 TIMES-FRINGE-OFF1 G*1*TIMES-FRINGE-ON TIMES-FRINGE-ON G*1*TIMES-FRINGE-OFF TIMES-FRINGE-OFF MATH-THEORY ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-QUOTIENT-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-EQUAL-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CANCEL-LESSP-TIMES TIMES-TREE-OF-TIMES-FRINGE) EVENT (DEFN TIMES-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-FRINGE))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (MAIN-EVENT TIMES-TREE))) (PUT1-LST (QUOTE TIMES-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-TREE 16 NIL)) TOTALP-LST ((TIMES-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (IF (LISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL)))) (QUOTE (QUOTE 1)))) LISP-CODE *1*TIMES-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NLISTP (CDR (CDR X)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NOT (NLISTP (CDR (CDR X))))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193740 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-TREE) IMMEDIATE-DEPENDENTS0 (G*1*TIMES-TREE-OFF1 TIMES-TREE-OFF1 G*1*TIMES-TREE-ON TIMES-TREE-ON G*1*TIMES-TREE-OFF TIMES-TREE-OFF MATH-THEORY EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-QUOTIENT-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-EQUAL-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO2 ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER NUMBERP-EVAL$-TIMES-TREE) EVENT (DEFN TIMES-TREE (X) (IF (NLISTP X) (QUOTE (QUOTE 1)) (IF (NLISTP (CDR X)) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL))) (IF (NLISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-TREE))))) (PUT1-LST (QUOTE LESSP-1-TIMES) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-OFF1 LESSP-1-TIMES-ON LESSP-1-TIMES-OFF MATH-THEORY MULTIPLICATION) EVENT (PROVE-LEMMA LESSP-1-TIMES (REWRITE) (EQUAL (LESSP (QUOTE 1) (TIMES A B)) (NOT (OR (ZEROP A) (OR (ZEROP B) (AND (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE 1))))))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-1-TIMES))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES2) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES2-OFF1 LESSP-PLUS-TIMES2-ON LESSP-PLUS-TIMES2-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 QUOTIENT-REMAINDER-TIMES MULTIPLICATION) EVENT (PROVE-LEMMA LESSP-PLUS-TIMES2 (REWRITE) (IMPLIES (AND (NOT (ZEROP A)) (LESSP X A)) (AND (EQUAL (LESSP (PLUS X (TIMES A B)) (TIMES A C)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS X (TIMES B A)) (TIMES A C)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS X (TIMES A B)) (TIMES C A)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS X (TIMES B A)) (TIMES C A)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS (TIMES A B) X) (TIMES A C)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS (TIMES B A) X) (TIMES A C)) (LESSP B C)) (AND (EQUAL (LESSP (PLUS (TIMES A B) X) (TIMES C A)) (LESSP B C)) (EQUAL (LESSP (PLUS (TIMES B A) X) (TIMES C A)) (LESSP B C)))))))))) ((ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-TIMES) (USE (LESSP-PLUS-TIMES-PROOF (A A) (B B) (C C) (X X))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . LESSP-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2) (LEMMAS LESSP . LESSP-PLUS-TIMES2))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES1) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES1-OFF1 NOT-LESSP-QUOTIENT LESSP-PLUS-TIMES1-ON LESSP-PLUS-TIMES1-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 QUOTIENT-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA LESSP-PLUS-TIMES1 (REWRITE) (AND (EQUAL (LESSP (PLUS A (TIMES B C)) B) (AND (LESSP A B) (ZEROP C))) (AND (EQUAL (LESSP (PLUS A (TIMES C B)) B) (AND (LESSP A B) (ZEROP C))) (AND (EQUAL (LESSP (PLUS (TIMES C B) A) B) (AND (LESSP A B) (ZEROP C))) (EQUAL (LESSP (PLUS (TIMES B C) A) B) (AND (LESSP A B) (ZEROP C)))))) ((USE (LESSP-PLUS-TIMES-PROOF (A B) (B C) (C (QUOTE 1)) (X A))) (ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY-OF-TIMES TIMES-1-ARG1) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1-ARG1 . LESSP-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . LESSP-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-PROOF . LESSP-PLUS-TIMES1) (LEMMAS LESSP . LESSP-PLUS-TIMES1) (LEMMAS LESSP . LESSP-PLUS-TIMES1) (LEMMAS LESSP . LESSP-PLUS-TIMES1) (LEMMAS LESSP . LESSP-PLUS-TIMES1))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-PROOF-OFF1 LESSP-PLUS-TIMES-PROOF-ON LESSP-PLUS-TIMES-PROOF-OFF MATH-THEORY LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1) EVENT (PROVE-LEMMA LESSP-PLUS-TIMES-PROOF NIL (IMPLIES (LESSP X A) (EQUAL (LESSP (PLUS X (TIMES A B)) (TIMES A C)) (LESSP B C))) ((ENABLE-THEORY ADDITION GROUND-ZERO) (ENABLE COMMUTATIVITY-OF-TIMES LESSP-TIMES-CANCELLATION1 LESSP-TIMES1 LESSP-TIMES2 LESSP-TIMES3 TIMES-ADD1 TIMES-ZERO) (INDUCT (LESSP B C)) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1 . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LESSP-PLUS-TIMES-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . LESSP-PLUS-TIMES-PROOF))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION1-OFF) (QUOTE (IDATE 1000402193740 EVENT (TOGGLE LESSP-TIMES-CANCELLATION1-OFF LESSP-TIMES-CANCELLATION1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION1 . LESSP-TIMES-CANCELLATION1-OFF) (DISABLED-LEMMAS NIL LESSP-TIMES-CANCELLATION1 LESSP-TIMES-CANCELLATION1-OFF . T))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION1) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-TIMES-PROOF EVAL$-LESSP-TIMES-TREE-BAGDIFF LESSP-TIMES-CANCELLATION1-OFF) EVENT (PROVE-LEMMA LESSP-TIMES-CANCELLATION1 (REWRITE) (AND (EQUAL (LESSP (TIMES X Z) (TIMES Y Z)) (AND (NOT (ZEROP Z)) (LESSP X Y))) (AND (EQUAL (LESSP (TIMES Z X) (TIMES Y Z)) (AND (NOT (ZEROP Z)) (LESSP X Y))) (AND (EQUAL (LESSP (TIMES X Z) (TIMES Z Y)) (AND (NOT (ZEROP Z)) (LESSP X Y))) (EQUAL (LESSP (TIMES Z X) (TIMES Z Y)) (AND (NOT (ZEROP Z)) (LESSP X Y)))))) ((USE (LESSP-TIMES-CANCELLATION-PROOF (X X) (Y Y) (Z Z))) (ENABLE COMMUTATIVITY-OF-TIMES) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-TIMES-CANCELLATION1) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES-CANCELLATION-PROOF . LESSP-TIMES-CANCELLATION1) (LEMMAS LESSP . LESSP-TIMES-CANCELLATION1) (LEMMAS LESSP . LESSP-TIMES-CANCELLATION1) (LEMMAS LESSP . LESSP-TIMES-CANCELLATION1) (LEMMAS LESSP . LESSP-TIMES-CANCELLATION1))))) (PUT1-LST (QUOTE LESSP-TIMES-CANCELLATION-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES-CANCELLATION-PROOF-OFF1 LESSP-TIMES-CANCELLATION-PROOF-ON LESSP-TIMES-CANCELLATION-PROOF-OFF MATH-THEORY LESSP-TIMES-CANCELLATION1) EVENT (PROVE-LEMMA LESSP-TIMES-CANCELLATION-PROOF NIL (EQUAL (LESSP (TIMES X Z) (TIMES Y Z)) (AND (NOT (ZEROP Z)) (LESSP X Y))) ((ENABLE COMMUTATIVITY-OF-TIMES CORRECTNESS-OF-CANCEL-LESSP-PLUS TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . LESSP-TIMES-CANCELLATION-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-TIMES-CANCELLATION-PROOF) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LESSP-TIMES-CANCELLATION-PROOF))))) (PUT1-LST (QUOTE LESSP-TIMES3) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES3-OFF1 LESSP-TIMES3-ON LESSP-TIMES3-OFF MATH-THEORY MULTIPLICATION) EVENT (PROVE-LEMMA LESSP-TIMES3 (REWRITE) (AND (EQUAL (LESSP A (TIMES A B)) (AND (NOT (ZEROP A)) (LESSP (QUOTE 1) B))) (EQUAL (LESSP A (TIMES B A)) (AND (NOT (ZEROP A)) (LESSP (QUOTE 1) B)))) ((ENABLE COMMUTATIVITY-OF-TIMES) (USE (LESSP-TIMES3-PROOF1 (A A) (B B)) (LESSP-TIMES3-PROOF2 (A A) (B B))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-TIMES3) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF1 . LESSP-TIMES3) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES3-PROOF2 . LESSP-TIMES3) (LEMMAS LESSP . LESSP-TIMES3) (LEMMAS LESSP . LESSP-TIMES3))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF2) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES3-PROOF2-OFF1 LESSP-TIMES3-PROOF2-ON LESSP-TIMES3-PROOF2-OFF MATH-THEORY LESSP-TIMES3) EVENT (PROVE-LEMMA LESSP-TIMES3-PROOF2 NIL (IMPLIES (LESSP A (TIMES A B)) (AND (NOT (ZEROP A)) (LESSP (QUOTE 1) B))) ((ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDITION . LESSP-TIMES3-PROOF2))))) (PUT1-LST (QUOTE LESSP-TIMES3-PROOF1) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES3-PROOF1-OFF1 LESSP-TIMES3-PROOF1-ON LESSP-TIMES3-PROOF1-OFF MATH-THEORY LESSP-TIMES3) EVENT (PROVE-LEMMA LESSP-TIMES3-PROOF1 NIL (IMPLIES (AND (NOT (ZEROP A)) (LESSP (QUOTE 1) B)) (LESSP A (TIMES A B))) ((ENABLE-THEORY ADDITION GROUND-ZERO) (ENABLE TIMES-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . LESSP-TIMES3-PROOF1) (IMMEDIATE-DEPENDENTS0 ADDITION . LESSP-TIMES3-PROOF1))))) (PUT1-LST (QUOTE LESSP-TIMES2) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES2-OFF1 LESSP-TIMES2-ON LESSP-TIMES2-OFF MATH-THEORY ILESSP-ITIMES-RIGHT-POSITIVE IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS GCD-IS-THE-GREATEST QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 MULTIPLICATION) EVENT (PROVE-LEMMA LESSP-TIMES2 (REWRITE) (IMPLIES (AND (IF (LESSP B A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP C))) (AND (EQUAL (LESSP (TIMES B C) A) (QUOTE *1*FALSE)) (EQUAL (LESSP (TIMES C B) A) (QUOTE *1*FALSE)))) ((ENABLE COMMUTATIVITY-OF-TIMES) (USE (LESSP-TIMES2-PROOF (A A) (B B) (C C))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-TIMES2) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES2-PROOF . LESSP-TIMES2) (LEMMAS LESSP . LESSP-TIMES2) (LEMMAS LESSP . LESSP-TIMES2))))) (PUT1-LST (QUOTE LESSP-TIMES2-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES2-PROOF-OFF1 LESSP-TIMES2-PROOF-ON LESSP-TIMES2-PROOF-OFF MATH-THEORY LESSP-TIMES2) EVENT (PROVE-LEMMA LESSP-TIMES2-PROOF NIL (IMPLIES (AND (IF (LESSP B A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (ZEROP C))) (EQUAL (LESSP (TIMES B C) A) (QUOTE *1*FALSE))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE LESSP-TIMES1) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES1-OFF1 LESSP-TIMES1-ON LESSP-TIMES1-OFF MATH-THEORY ILESSP-0-ITIMES ILESSP-ITIMES-RIGHT-POSITIVE IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF LOG-QUOTIENT-TIMES-PROOF MULTIPLICATION LESSP-PLUS-TIMES-PROOF) EVENT (PROVE-LEMMA LESSP-TIMES1 (REWRITE) (IMPLIES (AND (LESSP A B) (NOT (ZEROP C))) (AND (EQUAL (LESSP A (TIMES B C)) (QUOTE *1*TRUE)) (EQUAL (LESSP A (TIMES C B)) (QUOTE *1*TRUE)))) ((ENABLE COMMUTATIVITY-OF-TIMES) (USE (LESSP-TIMES1-PROOF (A A) (B B) (C C))) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . LESSP-TIMES1) (IMMEDIATE-DEPENDENTS0 LESSP-TIMES1-PROOF . LESSP-TIMES1) (LEMMAS LESSP . LESSP-TIMES1) (LEMMAS LESSP . LESSP-TIMES1))))) (PUT1-LST (QUOTE LESSP-TIMES1-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (LESSP-TIMES1-PROOF-OFF1 LESSP-TIMES1-PROOF-ON LESSP-TIMES1-PROOF-OFF MATH-THEORY LESSP-TIMES1) EVENT (PROVE-LEMMA LESSP-TIMES1-PROOF NIL (IMPLIES (AND (LESSP A B) (NOT (ZEROP C))) (EQUAL (LESSP A (TIMES B C)) (QUOTE *1*TRUE))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE TIMES-1-ARG1) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (TIMES-1-ARG1-OFF1 TIMES-1-ARG1-ON TIMES-1-ARG1-OFF MATH-THEORY ITIMES--1 IQUO-IREM-UNIQUENESS ITIMES-1-ARG1 LOG-TIMES-EXP-PROOF LOG-QUOTIENT-TIMES-PROOF MULTIPLICATION TIMES-TREE-APPEND EVAL$-TIMES-MEMBER LESSP-PLUS-TIMES1) EVENT (PROVE-LEMMA TIMES-1-ARG1 (REWRITE) (EQUAL (TIMES (QUOTE 1) X) (FIX X)) ((ENABLE TIMES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-1-ARG1) (LEMMAS TIMES . TIMES-1-ARG1))))) (PUT1-LST (QUOTE TIMES-QUOTIENT) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (TIMES-QUOTIENT-OFF1 TIMES-QUOTIENT-ON TIMES-QUOTIENT-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 MULTIPLICATION) EVENT (PROVE-LEMMA TIMES-QUOTIENT (REWRITE) (IMPLIES (AND (NOT (ZEROP Y)) (EQUAL (REMAINDER X Y) (QUOTE 0))) (AND (EQUAL (TIMES (QUOTIENT X Y) Y) (FIX X)) (EQUAL (TIMES Y (QUOTIENT X Y)) (FIX X)))) ((USE (TIMES-QUOTIENT-PROOF (X Y) (Y X))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-QUOTIENT-PROOF . TIMES-QUOTIENT) (LEMMAS TIMES . TIMES-QUOTIENT) (LEMMAS TIMES . TIMES-QUOTIENT))))) (PUT1-LST (QUOTE TIMES-QUOTIENT-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (TIMES-QUOTIENT-PROOF-OFF1 TIMES-QUOTIENT-PROOF-ON TIMES-QUOTIENT-PROOF-OFF MATH-THEORY TIMES-QUOTIENT) EVENT (PROVE-LEMMA TIMES-QUOTIENT-PROOF NIL (IMPLIES (AND (NOT (ZEROP X)) (EQUAL (REMAINDER Y X) (QUOTE 0))) (EQUAL (TIMES (QUOTIENT Y X) X) (FIX Y))) ((ENABLE TIMES-ZERO TIMES-ADD1) (INDUCT (REMAINDER Y X)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-OFF MATH-THEORY ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-PROOF REMAINDER-TIMES-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-OVER-DIFFERENCE (REWRITE) (AND (EQUAL (TIMES (DIFFERENCE A B) C) (DIFFERENCE (TIMES A C) (TIMES B C))) (EQUAL (TIMES A (DIFFERENCE B C)) (DIFFERENCE (TIMES A B) (TIMES A C)))) ((USE (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF (A A) (B B) (C C)) (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF (A B) (B C) (C A))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-DISTRIBUTES-OVER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF . TIMES-DISTRIBUTES-OVER-DIFFERENCE) (LEMMAS TIMES . TIMES-DISTRIBUTES-OVER-DIFFERENCE) (LEMMAS TIMES . TIMES-DISTRIBUTES-OVER-DIFFERENCE))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (QUOTE (IDATE 1000402193740 IMMEDIATE-DEPENDENTS0 (TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-ON TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF-OFF MATH-THEORY TIMES-DISTRIBUTES-OVER-DIFFERENCE) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF NIL (EQUAL (TIMES (DIFFERENCE A B) C) (DIFFERENCE (TIMES A C) (TIMES B C))) ((ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY ADDITION GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) (IMMEDIATE-DEPENDENTS0 ADDITION . TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-TIMES) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-TIMES-OFF1 ASSOCIATIVITY-OF-TIMES-ON ASSOCIATIVITY-OF-TIMES-OFF MATH-THEORY ASSOCIATIVITY-OF-ITIMES LOG-QUOTIENT-TIMES-PROOF EXP-TIMES EXP-PLUS QUOTIENT-REMAINDER-TIMES QUOTIENT-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-TIMES (REWRITE) (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) ((ENABLE COMMUTATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . ASSOCIATIVITY-OF-TIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-TIMES . ASSOCIATIVITY-OF-TIMES) (LEMMAS TIMES . ASSOCIATIVITY-OF-TIMES))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-TIMES) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-TIMES-OFF1 COMMUTATIVITY2-OF-TIMES-ON COMMUTATIVITY2-OF-TIMES-OFF MATH-THEORY ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES LOG-TIMES-EXP-PROOF EXP-TIMES QUOTIENT-TIMES-PROOF REMAINDER-TIMES2-PROOF MULTIPLICATION TIMES-TREE-APPEND EQUAL-TIMES-BRIDGE ASSOCIATIVITY-OF-TIMES) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-TIMES (REWRITE) (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z))) ((ENABLE COMMUTATIVITY-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS . COMMUTATIVITY2-OF-TIMES) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . COMMUTATIVITY2-OF-TIMES) (LEMMAS TIMES . COMMUTATIVITY2-OF-TIMES))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (TIMES-DISTRIBUTES-OVER-PLUS-OFF1 V-TO-NAT-APPEND V-TO-NAT-OF-NAT-TO-V TIMES-DISTRIBUTES-OVER-PLUS-ON TIMES-DISTRIBUTES-OVER-PLUS-OFF MATH-THEORY ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-REMAINDER QUOTIENT-TIMES-PROOF REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-TIMES2-PROOF MULTIPLICATION COMMUTATIVITY2-OF-TIMES) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-OVER-PLUS (REWRITE) (AND (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) (EQUAL (TIMES (PLUS X Y) Z) (PLUS (TIMES X Z) (TIMES Y Z)))) ((USE (TIMES-DISTRIBUTES-OVER-PLUS-PROOF (X X) (Y Y) (Z Z)) (TIMES-DISTRIBUTES-OVER-PLUS-PROOF (X Z) (Y X) (Z Y))) (ENABLE COMMUTATIVITY-OF-TIMES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-TIMES . TIMES-DISTRIBUTES-OVER-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-OVER-PLUS-PROOF . TIMES-DISTRIBUTES-OVER-PLUS) (LEMMAS TIMES . TIMES-DISTRIBUTES-OVER-PLUS) (LEMMAS TIMES . TIMES-DISTRIBUTES-OVER-PLUS))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-OVER-PLUS-PROOF) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF1 TIMES-DISTRIBUTES-OVER-PLUS-PROOF-ON TIMES-DISTRIBUTES-OVER-PLUS-PROOF-OFF MATH-THEORY TIMES-DISTRIBUTES-OVER-PLUS) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-OVER-PLUS-PROOF NIL (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) ((ENABLE COMMUTATIVITY2-OF-PLUS ASSOCIATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . TIMES-DISTRIBUTES-OVER-PLUS-PROOF) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . TIMES-DISTRIBUTES-OVER-PLUS-PROOF))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-TIMES) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY-OF-TIMES-OFF1 COMMUTATIVITY-OF-TIMES-ON COMMUTATIVITY-OF-TIMES-OFF MATH-THEORY ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF LOG-TIMES-EXP LOG-TIMES-EXP-PROOF LOG-TIMES LOG-QUOTIENT-TIMES LOG-QUOTIENT-TIMES-PROOF EXP-PLUS REMAINDER-EXP-EXP QUOTIENT-QUOTIENT QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-TIMES-TIMES QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES QUOTIENT-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP QUOTIENT-TIMES-INSTANCE-TEMP-PROOF REMAINDER-PLUS-TIMES-TIMES-INSTANCE REMAINDER-PLUS-TIMES-TIMES REMAINDER-TIMES2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-INSTANCE REMAINDER-TIMES1-INSTANCE-PROOF REMAINDER-TIMES1 PLUS-REMAINDER-TIMES-QUOTIENT MULTIPLICATION CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION1 LESSP-TIMES-CANCELLATION-PROOF LESSP-TIMES3 LESSP-TIMES2 LESSP-TIMES1 TIMES-QUOTIENT TIMES-DISTRIBUTES-OVER-DIFFERENCE TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ASSOCIATIVITY-OF-TIMES COMMUTATIVITY2-OF-TIMES TIMES-DISTRIBUTES-OVER-PLUS) EVENT (PROVE-LEMMA COMMUTATIVITY-OF-TIMES (REWRITE) (EQUAL (TIMES Y X) (TIMES X Y)) ((ENABLE TIMES-ZERO TIMES-ADD1) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . COMMUTATIVITY-OF-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . COMMUTATIVITY-OF-TIMES) (LEMMAS TIMES . COMMUTATIVITY-OF-TIMES))))) (PUT1-LST (QUOTE TIMES-ADD1) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (TIMES-ADD1-OFF1 TIMES-ADD1-ON TIMES-ADD1-OFF MATH-THEORY DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 EQUAL-EXP-1 QUOTIENT-TIMES-PROOF PLUS-REMAINDER-TIMES-QUOTIENT MULTIPLICATION LESSP-PLUS-TIMES-PROOF COMMUTATIVITY-OF-TIMES) EVENT (PROVE-LEMMA TIMES-ADD1 (REWRITE) (EQUAL (TIMES X (ADD1 Y)) (IF (NUMBERP Y) (PLUS X (TIMES X Y)) (FIX X))) ((ENABLE PLUS-ZERO-ARG2 COMMUTATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . TIMES-ADD1) (LEMMAS TIMES . TIMES-ADD1))))) (PUT1-LST (QUOTE TIMES-ZERO) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (TIMES-ZERO-OFF1 TIMES-ZERO-ON TIMES-ZERO-OFF MATH-THEORY ILESSP-0-ITIMES ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-CANCELLATION-1 ITIMES-INEG-2 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-FIX-INT2 ITIMES-ZERO2 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF LOG-QUOTIENT-TIMES-PROOF EQUAL-EXP-1 QUOTIENT-QUOTIENT QUOTIENT-REMAINDER-TIMES QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-INSTANCE-TEMP-PROOF REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF PLUS-REMAINDER-TIMES-QUOTIENT MULTIPLICATION CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-OF-TIMES-FRINGE TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION-PROOF TIMES-1-ARG1 COMMUTATIVITY-OF-TIMES) EVENT (PROVE-LEMMA TIMES-ZERO (REWRITE) (IMPLIES (ZEROP Y) (EQUAL (TIMES X Y) (QUOTE 0))) ((ENABLE PLUS-ZERO-ARG2 COMMUTATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . TIMES-ZERO) (LEMMAS TIMES . TIMES-ZERO))))) (PUT1-LST (QUOTE EQUAL-SUB1-0) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (FLAGS-INTERPRETATION-NAT-DEC EQUAL-SUB1-0-OFF1 LESSP-QUOTIENT-2 IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-NAT-OF-NAT-TO-V REMAINDER-ADD1-PLUS-MULTIPLE EQUAL-SUB1-0-ON EQUAL-SUB1-0-OFF MATH-THEORY IQUO-IREM-UNIQUENESS LESSP-DIFFERENCE-PLUS-ARG1 LOG-TIMES-EXP-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF MULTIPLICATION) EVENT (PROVE-LEMMA EQUAL-SUB1-0 (REWRITE) (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (OR (ZEROP X) (EQUAL X (QUOTE 1)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . EQUAL-SUB1-0))))) (PUT1-LST (QUOTE EQUAL-TIMES-1) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (EQUAL-TIMES-1-OFF1 EQUAL-TIMES-1-ON EQUAL-TIMES-1-OFF MATH-THEORY EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 MULTIPLICATION) EVENT (PROVE-LEMMA EQUAL-TIMES-1 (REWRITE) (EQUAL (EQUAL (TIMES A B) (QUOTE 1)) (AND (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE 1)))) ((ENABLE EQUAL-PLUS-0) (INDUCT (TIMES A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . EQUAL-TIMES-1))))) (PUT1-LST (QUOTE EQUAL-TIMES-0) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (EQUAL-TIMES-0-OFF1 EQUAL-TIMES-0-ON EQUAL-TIMES-0-OFF MATH-THEORY ILESSP-ITIMES-0 ILESSP-0-ITIMES ILESSP-ITIMES-RIGHT-NEGATIVE ILESSP-ITIMES-RIGHT-POSITIVE ITIMES-CANCELLATION-1 ITIMES-INEG-2 ITIMES-INEG-1 IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 EQUAL-ITIMES-MINUS-1 EQUAL-ITIMES-1 EQUAL-ITIMES-0 ASSOCIATIVITY-OF-ITIMES COMMUTATIVITY2-OF-ITIMES ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF COMMUTATIVITY-OF-ITIMES GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF LOG-QUOTIENT-TIMES-PROOF EQUAL-EXP-0 ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE QUOTIENT-QUOTIENT QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE2 QUOTIENT-TIMES-TIMES-PROOF REMAINDER-REMAINDER REMAINDER-DIFFERENCE2 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF MULTIPLICATION ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-APPEND EVAL$-TIMES-MEMBER EQUAL-TIMES-BRIDGE) EVENT (PROVE-LEMMA EQUAL-TIMES-0 (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (OR (ZEROP X) (ZEROP Y))) ((ENABLE EQUAL-PLUS-0) (INDUCT (TIMES X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . EQUAL-TIMES-0) (LEMMAS EQUAL . EQUAL-TIMES-0))))) (PUT1-LST (QUOTE ADDITION) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS NATURALS GCD-IDEMPOTENCE GCD-X-X COMMON-DIVISOR-DIVIDES-GCD GCD-IS-THE-GREATEST DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF LESSP-GCD EQUAL-GCD-0 GCD-1 COMMUTATIVITY-OF-GCD LOG-EXP LOG-TIMES-EXP-PROOF LOG-TIMES-PROOF LOG-QUOTIENT-EXP LOG-QUOTIENT-TIMES-PROOF EXP-DIFFERENCE REMAINDER-EXP-EXP QUOTIENT-QUOTIENT QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-TIMES-PROOF QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 QUOTIENT-ADD1 TRANSITIVITY-OF-DIVIDES REMAINDER-REMAINDER REMAINDER-PLUS-FACT LESSP-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 REMAINDER-TIMES2-PROOF REMAINDER-TIMES-TIMES-PROOF REMAINDER-TIMES1-PROOF EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF REMAINDER-ADD1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES3-PROOF2 LESSP-TIMES3-PROOF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF) EVENT (DEFTHEORY ADDITION (EQUAL-PLUS-0 EQUAL-DIFFERENCE-0 COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS PLUS-ZERO-ARG2 PLUS-ADD1-ARG2 PLUS-ADD1-ARG1 ASSOCIATIVITY-OF-PLUS PLUS-DIFFERENCE-ARG1 PLUS-DIFFERENCE-ARG2 DIFF-DIFF-ARG1 DIFF-DIFF-ARG2 CORRECTNESS-OF-CANCEL-EQUAL-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS DIFFERENCE-ELIM DIFFERENCE-LEQ-ARG1 DIFFERENCE-ADD1-ARG2 DIFFERENCE-SUB1-ARG2 DIFFERENCE-DIFFERENCE-ARG1 DIFFERENCE-DIFFERENCE-ARG2 DIFFERENCE-X-X CORRECTNESS-OF-CANCEL-LESSP-PLUS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . ADDITION) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . ADDITION) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . ADDITION) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . ADDITION) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-ARG1 . ADDITION) (IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . ADDITION) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG1 . ADDITION) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . ADDITION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ELIM . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-ADD1-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG1 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE-ARG2 . ADDITION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . ADDITION) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . ADDITION))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-LESSP-PLUS-ON CORRECTNESS-OF-CANCEL-LESSP-PLUS-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART2 IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1 IPLUS-INEG3 IPLUS-CANCELLATION-1 GCD-IDEMPOTENCE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-INSTANCE-TEMP-PROOF EXP-DIFFERENCE QUOTIENT-PLUS-FACT QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 QUOTIENT-ADD1 TRANSITIVITY-OF-DIVIDES REMAINDER-REMAINDER REMAINDER-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF REMAINDER-ADD1 LESSP-TIMES-ARG1 LESSP-PLUS-TIMES-PROOF LESSP-TIMES-CANCELLATION-PROOF ADDITION) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-PLUS ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-PLUS X) A)) ((ENABLE CANCEL-LESSP-PLUS BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP EQUAL-DIFFERENCE-0 EVAL$-QUOTE LESSP-DIFFERENCE-CANCELLATION MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS PLUS-TREE-BAGDIFF PLUS-TREE-DELETE PLUS-TREE-PLUS-FRINGE SUBBAGP-BAGINT1 SUBBAGP-BAGINT2) (DISABLE EVAL$) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-CANCELLATION . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (MAIN-EVENT CANCEL-LESSP-PLUS))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-PLUS 16 T)) TOTALP-LST ((CANCEL-LESSP-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-LESSP-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193739 SATELLITES (*1*CANCEL-LESSP-PLUS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-LESSP-PLUS-OFF1 CANCEL-LESSP-PLUS-OFF1 G*1*CANCEL-LESSP-PLUS-ON CANCEL-LESSP-PLUS-ON G*1*CANCEL-LESSP-PLUS-OFF CANCEL-LESSP-PLUS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-LESSP-PLUS) EVENT (DEFN CANCEL-LESSP-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE LESSP))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (QUOTE (QUOTE *1*FALSE)) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-LESSP-PLUS) (DCELL . *1*CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-CANCELLATION-OFF) (QUOTE (IDATE 1000402193739 EVENT (TOGGLE LESSP-DIFFERENCE-CANCELLATION-OFF LESSP-DIFFERENCE-CANCELLATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-DIFFERENCE-CANCELLATION . LESSP-DIFFERENCE-CANCELLATION-OFF) (DISABLED-LEMMAS NIL LESSP-DIFFERENCE-CANCELLATION LESSP-DIFFERENCE-CANCELLATION-OFF . T))))) (PUT1-LST (QUOTE LESSP-DIFFERENCE-CANCELLATION) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS LESSP-DIFFERENCE-CANCELLATION-OFF) EVENT (PROVE-LEMMA LESSP-DIFFERENCE-CANCELLATION (REWRITE) (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (IF (LESSP A C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP A B) (LESSP C B))) ((ENABLE EQUAL-DIFFERENCE-0) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . LESSP-DIFFERENCE-CANCELLATION) (LEMMAS LESSP . LESSP-DIFFERENCE-CANCELLATION))))) (PUT1-LST (QUOTE DIFFERENCE-X-X) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-X-X-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT DIFFERENCE-X-X-ON DIFFERENCE-X-X-OFF MATH-THEORY ILESSP-ADD1-IPLUS IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 IPLUS-INEG7 IPLUS-INEG3 ASSOCIATIVITY-OF-IPLUS GCD-X-X GCD-PLUS-INSTANCE-TEMP-PROOF LOG-QUOTIENT-EXP QUOTIENT-X-X QUOTIENT-PLUS-FACT QUOTIENT-PLUS-PROOF REMAINDER-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-X-X (REWRITE) (EQUAL (DIFFERENCE X X) (QUOTE 0)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-X-X))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG2) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-DIFFERENCE-ARG2-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE DIFFERENCE-DIFFERENCE-ARG2-ON DIFFERENCE-DIFFERENCE-ARG2-OFF MATH-THEORY IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS IPLUS-INEG3 ASSOCIATIVITY-OF-IPLUS ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE-ARG2 (REWRITE) (EQUAL (DIFFERENCE A (DIFFERENCE B C)) (IF (LESSP B C) (FIX A) (DIFFERENCE (PLUS A C) B))) ((ENABLE DIFF-DIFF-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . DIFFERENCE-DIFFERENCE-ARG2) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE-ARG2))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE-ARG1) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-DIFFERENCE-ARG1-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT IPLUS3-PLUS-DIFFERENCE DIVIDES-PLUS-PLUS DIFFERENCE-DIFFERENCE-ARG1-ON DIFFERENCE-DIFFERENCE-ARG1-OFF MATH-THEORY IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS IPLUS-INEG3 ASSOCIATIVITY-OF-IPLUS QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE-ARG1 (REWRITE) (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) ((ENABLE DIFF-DIFF-ARG1) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . DIFFERENCE-DIFFERENCE-ARG1) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE-ARG1))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-ARG2) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-SUB1-ARG2-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT DIFFERENCE-SUB1-ARG2-ON DIFFERENCE-SUB1-ARG2-OFF MATH-THEORY ILESSP-ADD1-IPLUS LESSP-DIFFERENCE-PLUS-ARG1 LOG-QUOTIENT-EXP QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-ADD1 REMAINDER-ADD1 ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-SUB1-ARG2 (REWRITE) (EQUAL (DIFFERENCE A (SUB1 B)) (IF (ZEROP B) (FIX A) (IF (LESSP A B) (QUOTE 0) (ADD1 (DIFFERENCE A B))))) ((ENABLE DIFF-SUB1-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-SUB1-ARG2 . DIFFERENCE-SUB1-ARG2) (LEMMAS DIFFERENCE . DIFFERENCE-SUB1-ARG2))))) (PUT1-LST (QUOTE DIFFERENCE-ADD1-ARG2) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-ADD1-ARG2-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT IPLUS-DIV-HACK1 V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT DIFFERENCE-ADD1-ARG2-ON DIFFERENCE-ADD1-ARG2-OFF MATH-THEORY ILESSP-ADD1-IPLUS IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 GCD-1 QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-ADD1 REMAINDER-ADD1 ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-ADD1-ARG2 (REWRITE) (EQUAL (DIFFERENCE A (ADD1 B)) (IF (LESSP B A) (SUB1 (DIFFERENCE A B)) (QUOTE 0))) ((ENABLE DIFFERENCE-LEQ-ARG1) (INDUCT (DIFFERENCE A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LEQ-ARG1 . DIFFERENCE-ADD1-ARG2) (LEMMAS DIFFERENCE . DIFFERENCE-ADD1-ARG2))))) (PUT1-LST (QUOTE DIFFERENCE-LEQ-ARG1) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LEQ-ARG1-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT DIFFERENCE-LEQ-ARG1-ON DIFFERENCE-LEQ-ARG1-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP-LEMMA-2 IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-DIFFERENCE-LESSP-ARG2 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1 IPLUS-INEG3 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF GCD-1 LOG-QUOTIENT-EXP EXP-DIFFERENCE QUOTIENT-PLUS-FACT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-TIMES-PROOF QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 QUOTIENT-ADD1 REMAINDER-1-ARG1 REMAINDER-PLUS-FACT LESSP-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF REMAINDER-ADD1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ADDITION DIFFERENCE-ADD1-ARG2) EVENT (PROVE-LEMMA DIFFERENCE-LEQ-ARG1 (REWRITE) (IMPLIES (IF (LESSP B A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (DIFFERENCE A B) (QUOTE 0))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-LEQ-ARG1))))) (PUT1-LST (QUOTE DIFFERENCE-ELIM) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-ELIM-OFF1 IPLUS-DIV-HACK1 PLUS-QUOTIENT-2 DIFFERENCE-ELIM-ON DIFFERENCE-ELIM-OFF MATH-THEORY DIFFERENCE-IDIFFERENCE IQUO-IREM-UNIQUENESS IPLUS-CANCELLATION-1-FOR-ILESSP IPLUS-CANCELLATION-1 GCD-IDEMPOTENCE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD EXP-DIFFERENCE QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF QUOTIENT-SUB1 QUOTIENT-ADD1 TRANSITIVITY-OF-DIVIDES REMAINDER-REMAINDER EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE2 REMAINDER-DIFFERENCE1 REMAINDER-ADD1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ADDITION) EVENT (PROVE-LEMMA DIFFERENCE-ELIM (ELIM) (IMPLIES (AND (NUMBERP Y) (NOT (LESSP Y X))) (EQUAL (PLUS X (DIFFERENCE Y X)) Y)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((ELIMINATE-DESTRUCTORS-DESTS . DIFFERENCE) (ELIMINATE-DESTRUCTORS-SEQ . DIFFERENCE))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ADDER-OVERFLOWP CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-ON CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 IPLUS-INEG3 IPLUS-CANCELLATION-1 DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF QUOTIENT-PLUS-FACT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-TIMES-PROOF QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 QUOTIENT-ADD1 REMAINDER-PLUS-FACT REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF REMAINDER-ADD1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ADDITION) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS ((META DIFFERENCE)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-DIFFERENCE-PLUS X) A)) ((ENABLE CANCEL-DIFFERENCE-PLUS ASSOCIATIVITY-OF-PLUS BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP COMMUTATIVITY-OF-PLUS DIFF-DIFF-DIFF DIFFERENCE-LESSP-ARG1 DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK EQUAL-DIFFERENCE-0 EVAL$-QUOTE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS PLUS-TREE-BAGDIFF PLUS-TREE-DELETE PLUS-TREE-PLUS-FRINGE SUBBAGP-BAGINT1 SUBBAGP-BAGINT2) (DISABLE EVAL$) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASSOCIATIVITY-OF-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-DIFF . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (LEMMAS DIFFERENCE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (MAIN-EVENT CANCEL-DIFFERENCE-PLUS))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-DIFFERENCE-PLUS 16 T)) TOTALP-LST ((CANCEL-DIFFERENCE-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE DIFFERENCE)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) X) X)) LISP-CODE *1*CANCEL-DIFFERENCE-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193739 SATELLITES (*1*CANCEL-DIFFERENCE-PLUS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-DIFFERENCE-PLUS-OFF1 CANCEL-DIFFERENCE-PLUS-OFF1 G*1*CANCEL-DIFFERENCE-PLUS-ON CANCEL-DIFFERENCE-PLUS-ON G*1*CANCEL-DIFFERENCE-PLUS-OFF CANCEL-DIFFERENCE-PLUS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (DEFN CANCEL-DIFFERENCE-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE DIFFERENCE))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE (QUOTE 0)) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-DIFFERENCE-PLUS) (DCELL . *1*CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (QUOTE (IDATE 1000402193739 IMMEDIATE-DEPENDENTS0 (V-ALU-CORRECT-INT-ASR-OUTPUT CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF1 NATURALS-METAS CORRECTNESS-OF-CANCEL-EQUAL-PLUS-ON CORRECTNESS-OF-CANCEL-EQUAL-PLUS-OFF MATH-THEORY IPLUS-CANCELLATION-1 QUOTIENT-TIMES-PROOF REMAINDER-REMAINDER REMAINDER-PLUS-FACT ADDITION) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-PLUS ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-PLUS X) A)) ((ENABLE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP CANCEL-EQUAL-PLUS DIFFERENCE-CANCELLATION EQUAL-DIFFERENCE-0 EVAL$-QUOTE MEMBER-IMPLIES-NUMBERP MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS PLUS-TREE-BAGDIFF PLUS-TREE-DELETE PLUS-TREE-PLUS-FRINGE SUBBAGP-BAGINT1 SUBBAGP-BAGINT2) (DISABLE EVAL$) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-CANCELLATION . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-NUMBERP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (MAIN-EVENT CANCEL-EQUAL-PLUS))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-PLUS 16 T)) TOTALP-LST ((CANCEL-EQUAL-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-EQUAL-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402193738 SATELLITES (*1*CANCEL-EQUAL-PLUS) IMMEDIATE-DEPENDENTS0 (G*1*CANCEL-EQUAL-PLUS-OFF1 CANCEL-EQUAL-PLUS-OFF1 G*1*CANCEL-EQUAL-PLUS-ON CANCEL-EQUAL-PLUS-ON G*1*CANCEL-EQUAL-PLUS-OFF CANCEL-EQUAL-PLUS-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (DEFN CANCEL-EQUAL-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-EQUAL-PLUS) (DCELL . *1*CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE LISTP-EVAL$-OFF) (QUOTE (IDATE 1000402193738 EVENT (TOGGLE LISTP-EVAL$-OFF LISTP-EVAL$ T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-EVAL$ . LISTP-EVAL$-OFF) (DISABLED-LEMMAS NIL LISTP-EVAL$ LISTP-EVAL$-OFF . T))))) (PUT1-LST (QUOTE LISTP-EVAL$) (QUOTE (IDATE 1000402193738 IMMEDIATE-DEPENDENTS0 (LISTP-EVAL$-OFF) EVENT (PROVE-LEMMA LISTP-EVAL$ (REWRITE) (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS LISTP . LISTP-EVAL$))))) (PUT1-LST (QUOTE EVAL$-QUOTE-OFF) (QUOTE (IDATE 1000402193738 EVENT (TOGGLE EVAL$-QUOTE-OFF EVAL$-QUOTE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-QUOTE-OFF) (DISABLED-LEMMAS NIL EVAL$-QUOTE EVAL$-QUOTE-OFF . T))))) (PUT1-LST (QUOTE EVAL$-QUOTE) (QUOTE (IDATE 1000402193738 IMMEDIATE-DEPENDENTS0 (EVAL$-QUOTE-OFF2 EVAL$-QUOTE-ON1 DUAL-APPLY-STATE-DP-RAM-16X32-LEMMA-2 DUAL-APPLY-VALUE-DP-RAM-16X32-LEMMA-2 EVAL$-QUOTE-OFF1 MATH-THEORY INTEGERS CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY IPLUS-LIST-EVAL$-CAR-SPLIT-OUT-INEG-TERMS CORRECTNESS-OF-CANCEL-FACTORS-ILESSP-0 CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR CORRECTNESS-OF-CANCEL-FACTORS-0 EVAL$-DISJOIN-EQUALITIES-WITH-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-FACTORS ITIMES-LIST-EVAL$-FACTORS ITIMES-EVAL$-ITIMES-TREE-INEG EVAL$-ITIMES-TREE-INEG CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY EVAL$-ITIMES-TREE-NO-FIX-INT-2 EVAL$-ITIMES-TREE-NO-FIX-INT-1 CORRECTNESS-OF-CANCEL-ITIMES CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY EVAL$-ITIMES-TREE EVAL$-ILESSP-IPLUS-TREE-NO-FIX-INT EVAL$-CANCEL-IPLUS EVAL$-IPLUS-TREE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN EVAL$-QUOTE-ON CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS EVAL$-QUOTE-OFF) EVENT (PROVE-LEMMA EVAL$-QUOTE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-QUOTE))))) (PUT1-LST (QUOTE CADR-EVAL$-LIST-OFF) (QUOTE (IDATE 1000402193738 EVENT (TOGGLE CADR-EVAL$-LIST-OFF CADR-EVAL$-LIST T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CADR-EVAL$-LIST . CADR-EVAL$-LIST-OFF) (DISABLED-LEMMAS NIL CADR-EVAL$-LIST CADR-EVAL$-LIST-OFF . T))))) (PUT1-LST (QUOTE CADR-EVAL$-LIST) (QUOTE (IDATE 1000402193738 IMMEDIATE-DEPENDENTS0 (CADR-EVAL$-LIST-OFF) EVENT (PROVE-LEMMA CADR-EVAL$-LIST (REWRITE) (AND (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0)))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS CDR . CADR-EVAL$-LIST) (LEMMAS CAR . CADR-EVAL$-LIST))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-NUMBERP-OFF) (QUOTE (IDATE 1000402193738 EVENT (TOGGLE MEMBER-IMPLIES-NUMBERP-OFF MEMBER-IMPLIES-NUMBERP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-NUMBERP . MEMBER-IMPLIES-NUMBERP-OFF) (DISABLED-LEMMAS NIL MEMBER-IMPLIES-NUMBERP MEMBER-IMPLIES-NUMBERP-OFF . T))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-NUMBERP) (QUOTE (IDATE 1000402193738 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP-OFF) EVENT (PROVE-LEMMA MEMBER-IMPLIES-NUMBERP (REWRITE) (IMPLIES (AND (MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE PLUS-FRINGE NUMBERP-EVAL$-PLUS) (INDUCT (PLUS-FRINGE X)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . MEMBER-IMPLIES-NUMBERP) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . MEMBER-IMPLIES-NUMBERP) (LEMMAS NUMBERP . MEMBER-IMPLIES-NUMBERP))))) (PUT1-LST (QUOTE PLUS-TREE-PLUS-FRINGE-OFF) (QUOTE (IDATE 1000402193738 EVENT (TOGGLE PLUS-TREE-PLUS-FRINGE-OFF PLUS-TREE-PLUS-FRINGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . PLUS-TREE-PLUS-FRINGE-OFF) (DISABLED-LEMMAS NIL PLUS-TREE-PLUS-FRINGE PLUS-TREE-PLUS-FRINGE-OFF . T))))) (PUT1-LST (QUOTE PLUS-TREE-PLUS-FRINGE) (QUOTE (IDATE 1000402193738 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-PLUS-FRINGE-OFF) EVENT (PROVE-LEMMA PLUS-TREE-PLUS-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE PLUS-ZERO-ARG2 COMMUTATIVITY-OF-PLUS PLUS-FRINGE PLUS-TREE NUMBERP-EVAL$-PLUS NUMBERP-EVAL$-BRIDGE EVAL$-PLUS-TREE-APPEND) (INDUCT (PLUS-FRINGE X)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-PLUS-TREE-APPEND . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-PLUS-FRINGE) (LEMMAS EVAL$ . PLUS-TREE-PLUS-FRINGE))))) (PUT1-LST (QUOTE EVAL$-PLUS-TREE-APPEND-OFF) (QUOTE (IDATE 1000402193736 EVENT (TOGGLE EVAL$-PLUS-TREE-APPEND-OFF EVAL$-PLUS-TREE-APPEND T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-PLUS-TREE-APPEND . EVAL$-PLUS-TREE-APPEND-OFF) (DISABLED-LEMMAS NIL EVAL$-PLUS-TREE-APPEND EVAL$-PLUS-TREE-APPEND-OFF . T))))) (PUT1-LST (QUOTE EVAL$-PLUS-TREE-APPEND) (QUOTE (IDATE 1000402193736 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND-OFF) EVENT (PROVE-LEMMA EVAL$-PLUS-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) ((ENABLE PLUS-ZERO-ARG2 COMMUTATIVITY2-OF-PLUS COMMUTATIVITY-OF-PLUS EQUAL-PLUS-0 PLUS-CANCELLATION PLUS-TREE NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-BRIDGE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-CANCELLATION . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (LEMMAS EVAL$ . EVAL$-PLUS-TREE-APPEND))))) (PUT1-LST (QUOTE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (QUOTE (IDATE 1000402193730 EVENT (TOGGLE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (DISABLED-LEMMAS NIL BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T))))) (PUT1-LST (QUOTE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (QUOTE (IDATE 1000402193730 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) EVENT (PROVE-LEMMA BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP (REWRITE) (IMPLIES (AND (SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE))) ((ENABLE SUBBAGP PLUS-FRINGE PLUS-TREE SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 SUBBAGP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (LEMMAS LESSP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-BRIDGE-OFF) (QUOTE (IDATE 1000402193730 EVENT (TOGGLE NUMBERP-EVAL$-BRIDGE-OFF NUMBERP-EVAL$-BRIDGE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . NUMBERP-EVAL$-BRIDGE-OFF) (DISABLED-LEMMAS NIL NUMBERP-EVAL$-BRIDGE NUMBERP-EVAL$-BRIDGE-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-BRIDGE) (QUOTE (IDATE 1000402193730 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND NUMBERP-EVAL$-BRIDGE-OFF) EVENT (PROVE-LEMMA NUMBERP-EVAL$-BRIDGE (REWRITE) (IMPLIES (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A))) ((ENABLE PLUS-TREE NUMBERP-EVAL$-PLUS-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (LEMMAS NUMBERP . NUMBERP-EVAL$-BRIDGE))))) (PUT1-LST (QUOTE PLUS-TREE-BAGDIFF-OFF) (QUOTE (IDATE 1000402193725 EVENT (TOGGLE PLUS-TREE-BAGDIFF-OFF PLUS-TREE-BAGDIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . PLUS-TREE-BAGDIFF-OFF) (DISABLED-LEMMAS NIL PLUS-TREE-BAGDIFF PLUS-TREE-BAGDIFF-OFF . T))))) (PUT1-LST (QUOTE PLUS-TREE-BAGDIFF) (QUOTE (IDATE 1000402193725 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF-OFF) EVENT (PROVE-LEMMA PLUS-TREE-BAGDIFF (REWRITE) (IMPLIES (SUBBAGP X Y) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)))) ((ENABLE BAGDIFF PLUS-TREE SUBBAGP COMMUTATIVITY-OF-PLUS DIFF-DIFF-ARG1 DIFFERENCE-LESSP-ARG1 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE PLUS-TREE-DELETE PLUS-ZERO-ARG2 SUBBAGP-CDR2 SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . PLUS-TREE-BAGDIFF) (LEMMAS EVAL$ . PLUS-TREE-BAGDIFF))))) (PUT1-LST (QUOTE SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (QUOTE (IDATE 1000402193719 EVENT (TOGGLE SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (DISABLED-LEMMAS NIL SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T))))) (PUT1-LST (QUOTE SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (QUOTE (IDATE 1000402193719 IMMEDIATE-DEPENDENTS0 (BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP-OFF) EVENT (PROVE-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP (REWRITE) (IMPLIES (SUBBAGP X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)))) ((ENABLE PLUS-TREE SUBBAGP MEMBER-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE PLUS-ZERO-ARG2 SUBBAGP-CDR2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP))))) (PUT1-LST (QUOTE PLUS-TREE-DELETE-OFF) (QUOTE (IDATE 1000402193717 EVENT (TOGGLE PLUS-TREE-DELETE-OFF PLUS-TREE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . PLUS-TREE-DELETE-OFF) (DISABLED-LEMMAS NIL PLUS-TREE-DELETE PLUS-TREE-DELETE-OFF . T))))) (PUT1-LST (QUOTE PLUS-TREE-DELETE) (QUOTE (IDATE 1000402193717 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE-OFF) EVENT (PROVE-LEMMA PLUS-TREE-DELETE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) ((ENABLE DELETE PLUS-TREE DELETE-NON-MEMBER DIFFERENCE-PLUS-CANCELLATION EQUAL-DIFFERENCE-0 EQUAL-PLUS-0 LISTP-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE PLUS-ZERO-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-PLUS-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 LISTP-DELETE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-DELETE) (LEMMAS EVAL$ . PLUS-TREE-DELETE))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (QUOTE (IDATE 1000402193704 EVENT (TOGGLE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF MEMBER-IMPLIES-PLUS-TREE-GREATEREQP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF) (DISABLED-LEMMAS NIL MEMBER-IMPLIES-PLUS-TREE-GREATEREQP MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF . T))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (QUOTE (IDATE 1000402193704 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP-OFF) EVENT (PROVE-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP (REWRITE) (IMPLIES (MEMBER X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)))) ((ENABLE PLUS-TREE PLUS-ZERO-ARG2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS-TREE-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE NUMBERP-EVAL$-PLUS-TREE-OFF NUMBERP-EVAL$-PLUS-TREE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . NUMBERP-EVAL$-PLUS-TREE-OFF) (DISABLED-LEMMAS NIL NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS-TREE-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS-TREE) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF PLUS-TREE-DELETE NUMBERP-EVAL$-PLUS-TREE-OFF) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS-TREE (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A)) ((ENABLE PLUS-TREE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-PLUS-TREE) (LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS-TREE))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE NUMBERP-EVAL$-PLUS-OFF NUMBERP-EVAL$-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . NUMBERP-EVAL$-PLUS-OFF) (DISABLED-LEMMAS NIL NUMBERP-EVAL$-PLUS NUMBERP-EVAL$-PLUS-OFF . T))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE NUMBERP-EVAL$-PLUS-OFF) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS (REWRITE) (IMPLIES (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (MAIN-EVENT PLUS-TREE))) (PUT1-LST (QUOTE PLUS-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-TREE 16 NIL)) TOTALP-LST ((PLUS-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (LISTP (CDR L)) (IF (LISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 0)))) LISP-CODE *1*PLUS-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NLISTP (CDR (CDR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NOT (NLISTP (CDR (CDR L))))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402193703 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-TREE) IMMEDIATE-DEPENDENTS0 (G*1*PLUS-TREE-OFF1 PLUS-TREE-OFF1 G*1*PLUS-TREE-ON PLUS-TREE-ON G*1*PLUS-TREE-OFF PLUS-TREE-OFF MATH-THEORY CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE) EVENT (DEFN PLUS-TREE (L) (IF (NLISTP L) (QUOTE (QUOTE 0)) (IF (NLISTP (CDR L)) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL))) (IF (NLISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-TREE))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (MAIN-EVENT PLUS-FRINGE))) (PUT1-LST (QUOTE PLUS-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-FRINGE 16 NIL)) TOTALP-LST ((PLUS-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE PLUS)) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*PLUS-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402193703 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-FRINGE) IMMEDIATE-DEPENDENTS0 (G*1*PLUS-FRINGE-OFF1 PLUS-FRINGE-OFF1 G*1*PLUS-FRINGE-ON PLUS-FRINGE-ON G*1*PLUS-FRINGE-OFF PLUS-FRINGE-OFF MATH-THEORY CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP) EVENT (DEFN PLUS-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-FRINGE))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-ARG1-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFFERENCE-LESSP-ARG1-OFF DIFFERENCE-LESSP-ARG1 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-ARG1 . DIFFERENCE-LESSP-ARG1-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-LESSP-ARG1 DIFFERENCE-LESSP-ARG1-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-ARG1) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-LESSP-ARG1-OFF) EVENT (PROVE-LEMMA DIFFERENCE-LESSP-ARG1 (REWRITE) (IMPLIES (LESSP A B) (EQUAL (DIFFERENCE A B) (QUOTE 0))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-LESSP-ARG1))))) (PUT1-LST (QUOTE DIFF-DIFF-DIFF-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFF-DIFF-DIFF-OFF DIFF-DIFF-DIFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-DIFF-DIFF . DIFF-DIFF-DIFF-OFF) (DISABLED-LEMMAS NIL DIFF-DIFF-DIFF DIFF-DIFF-DIFF-OFF . T))))) (PUT1-LST (QUOTE DIFF-DIFF-DIFF) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS DIFF-DIFF-DIFF-OFF) EVENT (PROVE-LEMMA DIFF-DIFF-DIFF (REWRITE) (IMPLIES (AND (IF (LESSP A B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP C D) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (EQUAL (DIFFERENCE (DIFFERENCE A B) (DIFFERENCE C D)) (DIFFERENCE (PLUS A D) (PLUS B C)))) ((ENABLE DIFF-DIFF-ARG1 DIFF-DIFF-ARG2 PLUS-DIFFERENCE-ARG2 PLUS-ZERO-ARG2) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . DIFF-DIFF-DIFF) (IMMEDIATE-DEPENDENTS0 PLUS-DIFFERENCE-ARG2 . DIFF-DIFF-DIFF) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG2 . DIFF-DIFF-DIFF) (IMMEDIATE-DEPENDENTS0 DIFF-DIFF-ARG1 . DIFF-DIFF-DIFF) (LEMMAS DIFFERENCE . DIFF-DIFF-DIFF))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG2) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFF-DIFF-ARG2-OFF1 DIFF-DIFF-ARG2-ON DIFF-DIFF-ARG2-OFF MATH-THEORY ADDITION DIFFERENCE-DIFFERENCE-ARG2 DIFF-DIFF-DIFF) EVENT (PROVE-LEMMA DIFF-DIFF-ARG2 (REWRITE) (EQUAL (DIFFERENCE A (DIFFERENCE B C)) (IF (LESSP B C) (FIX A) (DIFFERENCE (PLUS A C) B))) ((ENABLE DIFF-SUB1-ARG2 PLUS-ZERO-ARG2) (INDUCT (DIFFERENCE A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-SUB1-ARG2 . DIFF-DIFF-ARG2) (IMMEDIATE-DEPENDENTS0 PLUS-ZERO-ARG2 . DIFF-DIFF-ARG2) (LEMMAS DIFFERENCE . DIFF-DIFF-ARG2))))) (PUT1-LST (QUOTE DIFF-DIFF-ARG1) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFF-DIFF-ARG1-OFF1 DIFF-DIFF-ARG1-ON DIFF-DIFF-ARG1-OFF MATH-THEORY ADDITION DIFFERENCE-DIFFERENCE-ARG1 PLUS-TREE-BAGDIFF DIFF-DIFF-DIFF) EVENT (PROVE-LEMMA DIFF-DIFF-ARG1 (REWRITE) (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFF-DIFF-ARG1))))) (PUT1-LST (QUOTE DIFF-SUB1-ARG2-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFF-SUB1-ARG2-OFF DIFF-SUB1-ARG2 T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFF-SUB1-ARG2 . DIFF-SUB1-ARG2-OFF) (DISABLED-LEMMAS NIL DIFF-SUB1-ARG2 DIFF-SUB1-ARG2-OFF . T))))) (PUT1-LST (QUOTE DIFF-SUB1-ARG2) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-SUB1-ARG2 DIFF-DIFF-ARG2 DIFF-SUB1-ARG2-OFF) EVENT (PROVE-LEMMA DIFF-SUB1-ARG2 (REWRITE) (EQUAL (DIFFERENCE A (SUB1 B)) (IF (ZEROP B) (FIX A) (IF (LESSP A B) (QUOTE 0) (ADD1 (DIFFERENCE A B))))) ((INDUCT (DIFFERENCE A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFF-SUB1-ARG2))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK . DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK-OFF) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK (REWRITE) (EQUAL (DIFFERENCE (PLUS W (PLUS X A)) (PLUS Y (PLUS Z A))) (DIFFERENCE (PLUS W X) (PLUS Y Z))) ((ENABLE COMMUTATIVITY-OF-PLUS COMMUTATIVITY2-OF-PLUS DIFFERENCE-PLUS-PLUS-CANCELLATION) (DO-NOT-INDUCT T) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK) (IMMEDIATE-DEPENDENTS0 COMMUTATIVITY2-OF-PLUS . DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION . DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-PLUS-CANCELLATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION . DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-PLUS-CANCELLATION DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION-OFF) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-PLUS-CANCELLATION (REWRITE) (AND (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) (AND (EQUAL (DIFFERENCE (PLUS Y X) (PLUS X Z)) (DIFFERENCE Y Z)) (AND (EQUAL (DIFFERENCE (PLUS X Y) (PLUS Z X)) (DIFFERENCE Y Z)) (EQUAL (DIFFERENCE (PLUS Y X) (PLUS Z X)) (DIFFERENCE Y Z))))) ((USE (DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF (X X) (Y Y) (Z Z))) (ENABLE COMMUTATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . DIFFERENCE-PLUS-PLUS-CANCELLATION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-PLUS-CANCELLATION))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF-OFF MATH-THEORY DIFFERENCE-PLUS-PLUS-CANCELLATION) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-PLUS-CANCELLATION-PROOF NIL (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFFERENCE-PLUS-CANCELLATION-OFF DIFFERENCE-PLUS-CANCELLATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION . DIFFERENCE-PLUS-CANCELLATION-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-PLUS-CANCELLATION DIFFERENCE-PLUS-CANCELLATION-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-INSTANCE-TEMP-PROOF REMAINDER-TIMES1-INSTANCE-PROOF PLUS-TREE-DELETE DIFFERENCE-PLUS-CANCELLATION-OFF) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCELLATION (REWRITE) (AND (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS Y X) X) (FIX Y))) ((USE (DIFFERENCE-PLUS-CANCELLATION-PROOF (X X) (Y Y))) (ENABLE COMMUTATIVITY-OF-PLUS) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 COMMUTATIVITY-OF-PLUS . DIFFERENCE-PLUS-CANCELLATION) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCELLATION-PROOF . DIFFERENCE-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCELLATION) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCELLATION))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCELLATION-PROOF) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF1 DIFFERENCE-PLUS-CANCELLATION-PROOF-ON DIFFERENCE-PLUS-CANCELLATION-PROOF-OFF MATH-THEORY DIFFERENCE-PLUS-CANCELLATION) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCELLATION-PROOF NIL (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T)))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG2) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (PLUS-DIFFERENCE-ARG2-OFF1 V-ALU-CORRECT-INT-ADDER-OVERFLOWP IPLUS3-PLUS-DIFFERENCE DIVIDES-PLUS-PLUS PLUS-DIFFERENCE-ARG2-ON PLUS-DIFFERENCE-ARG2-OFF MATH-THEORY IPLUS-INEG3 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS GCD-PLUS-INSTANCE-TEMP-PROOF QUOTIENT-PLUS-FACT QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-PLUS-PROOF REMAINDER-PLUS-FACT LESSP-PLUS-FACT REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF ADDITION DIFF-DIFF-DIFF) EVENT (PROVE-LEMMA PLUS-DIFFERENCE-ARG2 (REWRITE) (EQUAL (PLUS A (DIFFERENCE B C)) (IF (LESSP C B) (DIFFERENCE (PLUS A B) C) (PLUS A (QUOTE 0)))) ((INDUCT (PLUS A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-DIFFERENCE-ARG2))))) (PUT1-LST (QUOTE PLUS-DIFFERENCE-ARG1) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (PLUS-DIFFERENCE-ARG1-OFF1 DIVIDES-PLUS-PLUS PLUS-DIFFERENCE-ARG1-ON PLUS-DIFFERENCE-ARG1-OFF MATH-THEORY ASSOCIATIVITY-OF-IPLUS GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF ADDITION) EVENT (PROVE-LEMMA PLUS-DIFFERENCE-ARG1 (REWRITE) (EQUAL (PLUS (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (PLUS A C) B) (PLUS (QUOTE 0) C))) ((INDUCT (DIFFERENCE A B)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-DIFFERENCE-ARG1))))) (PUT1-LST (QUOTE ASSOCIATIVITY-OF-PLUS) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (ASSOCIATIVITY-OF-PLUS-OFF1 V-ALU-CORRECT-INT-ADDER-OUTPUT V-ALU-CORRECT-INT-ADDER-OVERFLOWP PLUS-QUOTIENT-2 IPLUS3-PLUS-DIFFERENCE V-TO-NAT-V-NOT-LEMMA V-TO-NAT-OF-NAT-TO-V V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN V-TO-NAT-FIRSTN-HACK2 V-TO-NAT-FIRSTN-HACK1 ASSOCIATIVITY-OF-PLUS-ON ASSOCIATIVITY-OF-PLUS-OFF MATH-THEORY IPLUS-CANCELLATION-1-FOR-ILESSP ASSOCIATIVITY-OF-IPLUS QUOTIENT-REMAINDER-TIMES QUOTIENT-PLUS REMAINDER-REMAINDER REMAINDER-PLUS TIMES-DISTRIBUTES-OVER-PLUS-PROOF ADDITION CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (PROVE-LEMMA ASSOCIATIVITY-OF-PLUS (REWRITE) (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . ASSOCIATIVITY-OF-PLUS))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG2) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (PLUS-ADD1-ARG2-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT PLUS-ADD1-ARG2-ON PLUS-ADD1-ARG2-OFF MATH-THEORY ILESSP-ADD1-IPLUS QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 ADDITION) EVENT (PROVE-LEMMA PLUS-ADD1-ARG2 (REWRITE) (EQUAL (PLUS X (ADD1 Y)) (IF (NUMBERP Y) (ADD1 (PLUS X Y)) (ADD1 X))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1-ARG2))))) (PUT1-LST (QUOTE PLUS-ADD1-ARG1) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (PLUS-ADD1-ARG1-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT V-TO-NAT-OF-NAT-TO-V-HACK PLUS-ADD1-ARG1-ON PLUS-ADD1-ARG1-OFF MATH-THEORY ILESSP-ADD1-IPLUS LOG-QUOTIENT-EXP ADDITION) EVENT (PROVE-LEMMA PLUS-ADD1-ARG1 (REWRITE) (EQUAL (PLUS (ADD1 A) B) (ADD1 (PLUS A B))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1-ARG1))))) (PUT1-LST (QUOTE PLUS-ZERO-ARG2) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (PLUS-ZERO-ARG2-OFF1 V-ALU-CORRECT-INT-NOT-OUTPUT PLUS-ZERO-ARG2-ON PLUS-ZERO-ARG2-OFF MATH-THEORY IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS QUOTIENT-REMAINDER-UNIQUENESS ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1 IPLUS-INEG3 IPLUS-FIX-INT2 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS IPLUS-RIGHT-ID INEG-IPLUS GCD-PLUS-INSTANCE-TEMP-PROOF LOG-QUOTIENT-TIMES-PROOF QUOTIENT-QUOTIENT QUOTIENT-PLUS-FACT QUOTIENT-REMAINDER QUOTIENT-REMAINDER-TIMES QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-PLUS-PROOF QUOTIENT-SUB1 REMAINDER-PLUS-FACT LESSP-PLUS-FACT EQUAL-REMAINDER-DIFFERENCE-0 REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 EQUAL-REMAINDER-PLUS-REMAINDER-PROOF REMAINDER-PLUS-PROOF LESSP-PLUS-TIMES-PROOF TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF TIMES-ADD1 TIMES-ZERO ADDITION PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP DIFF-DIFF-DIFF DIFF-DIFF-ARG2) EVENT (PROVE-LEMMA PLUS-ZERO-ARG2 (REWRITE) (IMPLIES (ZEROP Y) (EQUAL (PLUS X Y) (FIX X))) ((INDUCT (PLUS X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ZERO-ARG2))))) (PUT1-LST (QUOTE COMMUTATIVITY2-OF-PLUS) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY2-OF-PLUS-OFF1 V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OVERFLOWP PLUS-QUOTIENT-2 IPLUS3-PLUS-DIFFERENCE V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-TO-NAT-APPEND V-TO-NAT-FIRSTN COMMUTATIVITY2-OF-PLUS-ON COMMUTATIVITY2-OF-PLUS-OFF MATH-THEORY IPLUS-CANCELLATION-1-FOR-ILESSP COMMUTATIVITY2-OF-IPLUS QUOTIENT-PLUS EQUAL-REMAINDER-PLUS-0 REMAINDER-PLUS PLUS-REMAINDER-TIMES-QUOTIENT LESSP-PLUS-TIMES-PROOF TIMES-DISTRIBUTES-OVER-PLUS-PROOF ADDITION EVAL$-PLUS-TREE-APPEND DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK) EVENT (PROVE-LEMMA COMMUTATIVITY2-OF-PLUS (REWRITE) (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . COMMUTATIVITY2-OF-PLUS))))) (PUT1-LST (QUOTE COMMUTATIVITY-OF-PLUS) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (COMMUTATIVITY-OF-PLUS-OFF1 V-ALU-CORRECT-INT-ASR-OUTPUT V-ALU-CORRECT-INT-ADDER V-ALU-CORRECT-INT-ADDER-OVERFLOWP PLUS-QUOTIENT-2 PLUS-QUOTIENT-2-LEMMA V-ALU-CORRECT-INT-SUBTRACTER-OVERFLOWP-LEMMA V-TO-INT-V-NOT IPLUS3-PLUS-DIFFERENCE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT V-ALU-CORRECT-NAT-SUBTRACTER-CARRY-OUT V-ALU-CORRECT-NAT-ADDER-OUTPUT V-ALU-CORRECT-NAT-ADDER-CARRY-OUT V-TO-NAT-APPEND REMAINDER-ADD1-PLUS-MULTIPLE REMAINDER-PLUS-MULTIPLE COMMUTATIVITY-OF-PLUS-ON COMMUTATIVITY-OF-PLUS-OFF MATH-THEORY ILESSP-ADD1-IPLUS IQUO-IREM-UNIQUENESS IDIV-IMOD-UNIQUENESS IQUOTIENT-IREMAINDER-UNIQUENESS IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED IPLUS-INEG7 IPLUS-INEG3 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF GCD-PLUS GCD-PLUS-INSTANCE-TEMP LOG-TIMES-EXP-PROOF QUOTIENT-PLUS-TIMES-TIMES-INSTANCE QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-PLUS REMAINDER-DIFFERENCE3 REMAINDER-DIFFERENCE2 EQUAL-REMAINDER-PLUS-REMAINDER EQUAL-REMAINDER-PLUS-0 REMAINDER-PLUS PLUS-REMAINDER-TIMES-QUOTIENT LESSP-PLUS-TIMES2 LESSP-PLUS-TIMES1 ADDITION CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS EVAL$-PLUS-TREE-APPEND DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK DIFFERENCE-PLUS-PLUS-CANCELLATION DIFFERENCE-PLUS-CANCELLATION) EVENT (PROVE-LEMMA COMMUTATIVITY-OF-PLUS (REWRITE) (EQUAL (PLUS X Y) (PLUS Y X)) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . COMMUTATIVITY-OF-PLUS))))) (PUT1-LST (QUOTE DIFFERENCE-CANCELLATION-OFF) (QUOTE (IDATE 1000402193703 EVENT (TOGGLE DIFFERENCE-CANCELLATION-OFF DIFFERENCE-CANCELLATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-CANCELLATION . DIFFERENCE-CANCELLATION-OFF) (DISABLED-LEMMAS NIL DIFFERENCE-CANCELLATION DIFFERENCE-CANCELLATION-OFF . T))))) (PUT1-LST (QUOTE DIFFERENCE-CANCELLATION) (QUOTE (IDATE 1000402193703 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS DIFFERENCE-CANCELLATION-OFF) EVENT (PROVE-LEMMA DIFFERENCE-CANCELLATION (REWRITE) (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))))) ((ENABLE EQUAL-DIFFERENCE-0) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-DIFFERENCE-0 . DIFFERENCE-CANCELLATION) (LEMMAS EQUAL . DIFFERENCE-CANCELLATION))))) (PUT1-LST (QUOTE EQUAL-DIFFERENCE-0) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (EQUAL-DIFFERENCE-0-OFF1 EQUAL-DIFFERENCE-0-ON EQUAL-DIFFERENCE-0-OFF MATH-THEORY CANCEL-CONSTANTS-ILESSP-LEMMA-2 ILESSP-ADD1-IPLUS IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART2 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 IQUOTIENT-IREMAINDER-UNIQUENESS DIVISION-THEOREM-PART3 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1 IPLUS-INEG7 ASSOCIATIVITY-OF-IPLUS EQUAL-GCD-0 LOG-QUOTIENT-EXP QUOTIENT-DIFFERENCE3 QUOTIENT-DIFFERENCE2 QUOTIENT-DIFFERENCE1 QUOTIENT-SUB1 REMAINDER-X-X TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF ADDITION CORRECTNESS-OF-CANCEL-LESSP-PLUS LESSP-DIFFERENCE-CANCELLATION CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-DELETE DIFFERENCE-CANCELLATION) EVENT (PROVE-LEMMA EQUAL-DIFFERENCE-0 (REWRITE) (AND (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 0)) (NOT (LESSP Y X))) (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (NOT (LESSP Y X)))) ((INDUCT (DIFFERENCE X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . EQUAL-DIFFERENCE-0) (LEMMAS EQUAL . EQUAL-DIFFERENCE-0))))) (PUT1-LST (QUOTE PLUS-CANCELLATION-OFF) (QUOTE (IDATE 1000402193702 EVENT (TOGGLE PLUS-CANCELLATION-OFF PLUS-CANCELLATION T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-CANCELLATION . PLUS-CANCELLATION-OFF) (DISABLED-LEMMAS NIL PLUS-CANCELLATION PLUS-CANCELLATION-OFF . T))))) (PUT1-LST (QUOTE PLUS-CANCELLATION) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND PLUS-CANCELLATION-OFF) EVENT (PROVE-LEMMA PLUS-CANCELLATION (REWRITE) (EQUAL (EQUAL (PLUS A B) (PLUS A C)) (EQUAL (FIX B) (FIX C))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . PLUS-CANCELLATION))))) (PUT1-LST (QUOTE EQUAL-PLUS-0) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (EQUAL-PLUS-0-OFF1 V-TO-NAT-OF-NAT-TO-V-HACK V-TO-NAT-FIRSTN-HACK2 EQUAL-PLUS-0-ON EQUAL-PLUS-0-OFF MATH-THEORY IQUO-IREM-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-ZERO-PART3 IDIV-IMOD-UNIQUENESS DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART3 DIVISION-THEOREM-FOR-TRUNCATE-TO-NEGINF-PART2 DIVISION-THEOREM-PART3 DIVISION-THEOREM-PART2 ITIMES-DISTRIBUTES-OVER-IPLUS-PROOF IPLUS-CANCELLATION-1-FOR-ILESSP LESSP-DIFFERENCE-PLUS-ARG1 IPLUS-INEG7 IPLUS-CANCELLATION-1 ASSOCIATIVITY-OF-IPLUS GCD-IDEMPOTENCE DISTRIBUTIVITY-OF-TIMES-OVER-GCD-PROOF REMAINDER-GCD GCD-PLUS-PROOF GCD-PLUS-INSTANCE-TEMP-PROOF LOG-TIMES-EXP-PROOF QUOTIENT-DIFFERENCE2 REMAINDER-DIFFERENCE2 LESSP-TIMES3-PROOF1 TIMES-DISTRIBUTES-OVER-DIFFERENCE-PROOF EQUAL-TIMES-0 ADDITION EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE) EVENT (PROVE-LEMMA EQUAL-PLUS-0 (REWRITE) (EQUAL (EQUAL (PLUS A B) (QUOTE 0)) (AND (ZEROP A) (ZEROP B))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . EQUAL-PLUS-0))))) (PUT1-LST (QUOTE BAGS) (QUOTE (IDATE 1000402193702 EVENT (DEFTHEORY BAGS (OCCURRENCES-BAGINT BAGDIFF-DELETE OCCURRENCES-BAGDIFF MEMBER-BAGINT MEMBER-BAGDIFF SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGINT . BAGS) (IMMEDIATE-DEPENDENTS0 BAGDIFF-DELETE . BAGS) (IMMEDIATE-DEPENDENTS0 OCCURRENCES-BAGDIFF . BAGS) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGINT . BAGS) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . BAGS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . BAGS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . BAGS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . BAGS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . BAGS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . BAGS))))) (PUT1-LST (QUOTE MEMBER-BAGINT) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (MEMBER-BAGINT-OFF1 MEMBER-BAGINT-ON MEMBER-BAGINT-OFF MATH-THEORY MEMBER-0-ITIMES-FACTORS-YIELDS-0 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP BAGS) EVENT (PROVE-LEMMA MEMBER-BAGINT (REWRITE) (EQUAL (MEMBER X (BAGINT A B)) (AND (MEMBER X A) (MEMBER X B))) ((ENABLE BAGINT MEMBER-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-NON-LIST . MEMBER-BAGINT) (IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . MEMBER-BAGINT) (IMMEDIATE-DEPENDENTS0 BAGINT . MEMBER-BAGINT) (LEMMAS MEMBER . MEMBER-BAGINT))))) (PUT1-LST (QUOTE OCCURRENCES-BAGDIFF) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (OCCURRENCES-BAGDIFF-OFF1 OCCURRENCES-BAGDIFF-ON OCCURRENCES-BAGDIFF-OFF MATH-THEORY BAGS) EVENT (PROVE-LEMMA OCCURRENCES-BAGDIFF (REWRITE) (EQUAL (OCCURRENCES X (BAGDIFF A B)) (DIFFERENCE (OCCURRENCES X A) (OCCURRENCES X B))) ((ENABLE OCCURRENCES BAGDIFF EQUAL-OCCURRENCES-ZERO OCCURRENCES-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . OCCURRENCES-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . OCCURRENCES-BAGDIFF) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . OCCURRENCES-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . OCCURRENCES-BAGDIFF) (IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-BAGDIFF) (LEMMAS OCCURRENCES . OCCURRENCES-BAGDIFF))))) (PUT1-LST (QUOTE OCCURRENCES-BAGINT) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (OCCURRENCES-BAGINT-OFF1 OCCURRENCES-BAGINT-ON OCCURRENCES-BAGINT-OFF MATH-THEORY BAGS) EVENT (PROVE-LEMMA OCCURRENCES-BAGINT (REWRITE) (EQUAL (OCCURRENCES X (BAGINT A B)) (IF (LESSP (OCCURRENCES X A) (OCCURRENCES X B)) (OCCURRENCES X A) (OCCURRENCES X B))) ((ENABLE OCCURRENCES BAGINT EQUAL-OCCURRENCES-ZERO OCCURRENCES-DELETE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . OCCURRENCES-BAGINT) (IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . OCCURRENCES-BAGINT) (IMMEDIATE-DEPENDENTS0 BAGINT . OCCURRENCES-BAGINT) (IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-BAGINT) (LEMMAS OCCURRENCES . OCCURRENCES-BAGINT))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (SUBBAGP-BAGINT2-OFF1 SUBBAGP-BAGINT2-ON SUBBAGP-BAGINT2-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-FOR-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0 ITIMES-LIST-EVAL$-FACTORS-LEMMA CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS BAGS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT2 (REWRITE) (SUBBAGP (BAGINT X Y) Y) ((ENABLE SUBBAGP BAGINT SUBBAGP-CDR2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT2) (LEMMAS SUBBAGP . SUBBAGP-BAGINT2))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (SUBBAGP-BAGINT1-OFF1 SUBBAGP-BAGINT1-ON SUBBAGP-BAGINT1-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-FOR-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-FACTORS EVAL$-LIST-BAGINT-0 ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME CORRECTNESS-OF-CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 CORRECTNESS-OF-CANCEL-IPLUS-ILESSP CORRECTNESS-OF-CANCEL-IPLUS-ILESSP-LEMMA CORRECTNESS-OF-CANCEL-IPLUS CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS BAGS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT1 (REWRITE) (SUBBAGP (BAGINT X Y) X) ((ENABLE DELETE SUBBAGP BAGINT SUBBAGP-CDR2) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT1) (LEMMAS SUBBAGP . SUBBAGP-BAGINT1))))) (PUT1-LST (QUOTE SUBBAGP-CDR2) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR2-OFF1 SUBBAGP-CDR2-ON SUBBAGP-CDR2-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF SUBBAGP-SUBSETP ITIMES-LIST-BAGDIFF EVAL$-IPLUS-LIST-BAGDIFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP BAGS SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (PROVE-LEMMA SUBBAGP-CDR2 (REWRITE) (IMPLIES (SUBBAGP X (CDR Y)) (SUBBAGP X Y)) ((ENABLE DELETE SUBBAGP DELETE-NON-MEMBER SUBBAGP-CDR1) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR2) (LEMMAS SUBBAGP . SUBBAGP-CDR2))))) (PUT1-LST (QUOTE SUBBAGP-CDR1) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR1-OFF1 SUBBAGP-CDR1-ON SUBBAGP-CDR1-OFF MATH-THEORY SUBBAGP-SUBSETP ITIMES-LIST-BAGDIFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF BAGS SUBBAGP-CDR2) EVENT (PROVE-LEMMA SUBBAGP-CDR1 (REWRITE) (IMPLIES (SUBBAGP X Y) (SUBBAGP (CDR X) Y)) ((ENABLE SUBBAGP SUBBAGP-DELETE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-CDR1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR1) (LEMMAS SUBBAGP . SUBBAGP-CDR1))))) (PUT1-LST (QUOTE SUBBAGP-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (SUBBAGP-DELETE-OFF1 SUBBAGP-DELETE-ON SUBBAGP-DELETE-OFF MATH-THEORY BAGS SUBBAGP-CDR1) EVENT (PROVE-LEMMA SUBBAGP-DELETE (REWRITE) (IMPLIES (SUBBAGP X (DELETE U Y)) (SUBBAGP X Y)) ((ENABLE DELETE SUBBAGP DELETE-DELETE MEMBER-DELETE-IMPLIES-MEMBERSHIP) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE-IMPLIES-MEMBERSHIP . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-DELETE) (LEMMAS SUBBAGP . SUBBAGP-DELETE))))) (PUT1-LST (QUOTE BAGDIFF-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (BAGDIFF-DELETE-OFF1 BAGDIFF-DELETE-ON BAGDIFF-DELETE-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 ITIMES-LIST-BAGDIFF EVAL$-IPLUS-LIST-BAGDIFF BAGS) EVENT (PROVE-LEMMA BAGDIFF-DELETE (REWRITE) (EQUAL (BAGDIFF (DELETE E X) Y) (DELETE E (BAGDIFF X Y))) ((ENABLE BAGDIFF DELETE DELETE-DELETE DELETE-NON-MEMBER MEMBER-BAGDIFF MEMBER-DELETE OCCURRENCES-DELETE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-BAGDIFF . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-DELETE . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . BAGDIFF-DELETE) (IMMEDIATE-DEPENDENTS0 BAGDIFF . BAGDIFF-DELETE) (LEMMAS BAGDIFF . BAGDIFF-DELETE))))) (PUT1-LST (QUOTE MEMBER-BAGDIFF) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (MEMBER-BAGDIFF-OFF1 MEMBER-BAGDIFF-ON MEMBER-BAGDIFF-OFF MATH-THEORY BAGS OCCURRENCES-BAGDIFF BAGDIFF-DELETE) EVENT (PROVE-LEMMA MEMBER-BAGDIFF (REWRITE) (EQUAL (MEMBER X (BAGDIFF A B)) (LESSP (OCCURRENCES X B) (OCCURRENCES X A))) ((ENABLE BAGDIFF OCCURRENCES EQUAL-OCCURRENCES-ZERO OCCURRENCES-DELETE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES-DELETE . MEMBER-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . MEMBER-BAGDIFF) (IMMEDIATE-DEPENDENTS0 OCCURRENCES . MEMBER-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . MEMBER-BAGDIFF) (LEMMAS MEMBER . MEMBER-BAGDIFF))))) (PUT1-LST (QUOTE OCCURRENCES-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (OCCURRENCES-DELETE-OFF1 OCCURRENCES-DELETE-ON OCCURRENCES-DELETE-OFF MATH-THEORY OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT BAGDIFF-DELETE MEMBER-BAGDIFF) EVENT (PROVE-LEMMA OCCURRENCES-DELETE (REWRITE) (EQUAL (OCCURRENCES X (DELETE Y L)) (IF (EQUAL X Y) (IF (MEMBER X L) (SUB1 (OCCURRENCES X L)) (QUOTE 0)) (OCCURRENCES X L))) ((ENABLE OCCURRENCES DELETE EQUAL-OCCURRENCES-ZERO) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-OCCURRENCES-ZERO . OCCURRENCES-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . OCCURRENCES-DELETE) (IMMEDIATE-DEPENDENTS0 OCCURRENCES . OCCURRENCES-DELETE) (LEMMAS OCCURRENCES . OCCURRENCES-DELETE))))) (PUT1-LST (QUOTE MEMBER-DELETE-IMPLIES-MEMBERSHIP) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF1 MEMBER-DELETE-IMPLIES-MEMBERSHIP-ON MEMBER-DELETE-IMPLIES-MEMBERSHIP-OFF MATH-THEORY SUBBAGP-DELETE) EVENT (PROVE-LEMMA MEMBER-DELETE-IMPLIES-MEMBERSHIP (REWRITE) (IMPLIES (MEMBER X (DELETE Y L)) (MEMBER X L)) ((ENABLE DELETE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . MEMBER-DELETE-IMPLIES-MEMBERSHIP) (LEMMAS MEMBER . MEMBER-DELETE-IMPLIES-MEMBERSHIP))))) (PUT1-LST (QUOTE MEMBER-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (MEMBER-DELETE-OFF1 MEMBER-DELETE-ON MEMBER-DELETE-OFF MATH-THEORY CORRECTNESS-OF-CANCEL-IPLUS MEMBER-BAGINT BAGDIFF-DELETE) EVENT (PROVE-LEMMA MEMBER-DELETE (REWRITE) (EQUAL (MEMBER X (DELETE Y L)) (IF (MEMBER X L) (IF (EQUAL X Y) (LESSP (QUOTE 1) (OCCURRENCES X L)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) ((ENABLE DELETE OCCURRENCES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . MEMBER-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . MEMBER-DELETE) (LEMMAS MEMBER . MEMBER-DELETE))))) (PUT1-LST (QUOTE MEMBER-NON-LIST) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (MEMBER-NON-LIST-OFF1 MEMBER-NON-LIST-ON MEMBER-NON-LIST-OFF MATH-THEORY BAGINT-SINGLETON MEMBER-0-EVAL$-LIST MEMBERSHIP-OF-0-IMPLIES-ITIMES-LIST-IS-0 ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 LISTP-BAGINT-WITH-SINGLETON-MEMBER LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER IZEROP-EVAL-OF-MEMBER-IMPLIES-ITIMES-LIST-0 MEMBER-IZEROP-ITIMES-FRINGE MEMBER-APPEND ITIMES-LIST-EVAL$-DELETE CORRECTNESS-OF-CANCEL-IPLUS EVAL$-IPLUS-LIST-DELETE EVAL$-TIMES-MEMBER MEMBER-BAGINT) EVENT (PROVE-LEMMA MEMBER-NON-LIST (REWRITE) (IMPLIES (NOT (LISTP L)) (NOT (MEMBER X L))) ((ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS MEMBER . MEMBER-NON-LIST))))) (PUT1-LST (QUOTE EQUAL-OCCURRENCES-ZERO) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (EQUAL-OCCURRENCES-ZERO-OFF1 EQUAL-OCCURRENCES-ZERO-ON EQUAL-OCCURRENCES-ZERO-OFF MATH-THEORY OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT MEMBER-BAGDIFF OCCURRENCES-DELETE) EVENT (PROVE-LEMMA EQUAL-OCCURRENCES-ZERO (REWRITE) (EQUAL (EQUAL (OCCURRENCES X L) (QUOTE 0)) (NOT (MEMBER X L))) ((ENABLE OCCURRENCES) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OCCURRENCES . EQUAL-OCCURRENCES-ZERO) (LEMMAS EQUAL . EQUAL-OCCURRENCES-ZERO))))) (PUT1-LST (QUOTE DELETE-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (DELETE-DELETE-OFF1 DELETE-DELETE-ON DELETE-DELETE-OFF MATH-THEORY SUBBAGP-DELETE BAGDIFF-DELETE) EVENT (PROVE-LEMMA DELETE-DELETE (REWRITE) (EQUAL (DELETE Y (DELETE X Z)) (DELETE X (DELETE Y Z))) ((ENABLE DELETE DELETE-NON-MEMBER) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . DELETE-DELETE) (LEMMAS DELETE . DELETE-DELETE))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (DELETE-NON-MEMBER-OFF1 DELETE-NON-MEMBER-ON DELETE-NON-MEMBER-OFF MATH-THEORY EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-TIMES-MEMBER PLUS-TREE-DELETE SUBBAGP-CDR2 BAGDIFF-DELETE DELETE-DELETE) EVENT (PROVE-LEMMA DELETE-NON-MEMBER (REWRITE) (IMPLIES (NOT (MEMBER X Y)) (EQUAL (DELETE X Y) Y)) ((ENABLE DELETE) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-NON-MEMBER) (LEMMAS DELETE . DELETE-NON-MEMBER))))) (PUT1-LST (QUOTE LISTP-DELETE-OFF) (QUOTE (IDATE 1000402193702 EVENT (TOGGLE LISTP-DELETE-OFF LISTP-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LISTP-DELETE . LISTP-DELETE-OFF) (DISABLED-LEMMAS NIL LISTP-DELETE LISTP-DELETE-OFF . T))))) (PUT1-LST (QUOTE LISTP-DELETE) (QUOTE (IDATE 1000402193702 IMMEDIATE-DEPENDENTS0 (EVAL$-TIMES-MEMBER PLUS-TREE-DELETE LISTP-DELETE-OFF) EVENT (PROVE-LEMMA LISTP-DELETE (REWRITE) (EQUAL (LISTP (DELETE X L)) (IF (LISTP L) (OR (NOT (EQUAL X (CAR L))) (LISTP (CDR L))) (QUOTE *1*FALSE))) ((ENABLE DELETE) (INDUCT (DELETE X L)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . LISTP-DELETE) (LEMMAS LISTP . LISTP-DELETE))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (MAIN-EVENT SUBBAGP))) (PUT1-LST (QUOTE SUBBAGP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBBAGP 3 NIL NIL)) LEMMAS ((REWRITE-RULE SUBBAGP-BAGINT2 NIL (SUBBAGP (BAGINT X Y) Y) NIL) (REWRITE-RULE SUBBAGP-BAGINT1 NIL (SUBBAGP (BAGINT X Y) X) NIL) (REWRITE-RULE SUBBAGP-CDR2 ((SUBBAGP X (CDR Y))) (SUBBAGP X Y) NIL) (REWRITE-RULE SUBBAGP-CDR1 ((SUBBAGP X Y)) (SUBBAGP (CDR X) Y) NIL) (REWRITE-RULE SUBBAGP-DELETE ((SUBBAGP X (DELETE U Y))) (SUBBAGP X Y) NIL)) TOTALP-LST ((SUBBAGP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBBAGP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193702 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBBAGP) IMMEDIATE-DEPENDENTS0 (G*1*SUBBAGP-OFF1 SUBBAGP-OFF1 G*1*SUBBAGP-ON SUBBAGP-ON G*1*SUBBAGP-OFF SUBBAGP-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 SUBBAGP-SUBSETP ITIMES-LIST-BAGDIFF EVAL$-IPLUS-LIST-BAGDIFF EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO2 ZEROP-MAKES-TIMES-TREE-ZERO BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE) EVENT (DEFN SUBBAGP (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP) (DCELL . *1*SUBBAGP))))) (PUT1-LST (QUOTE *1*OCCURRENCES) (QUOTE (MAIN-EVENT OCCURRENCES))) (PUT1-LST (QUOTE OCCURRENCES) (QUOTE (TYPE-PRESCRIPTION-LST ((OCCURRENCES 4 NIL NIL)) LEMMAS ((REWRITE-RULE OCCURRENCES-BAGDIFF NIL (EQUAL (OCCURRENCES X (BAGDIFF A B)) (DIFFERENCE (OCCURRENCES X A) (OCCURRENCES X B))) NIL) (REWRITE-RULE OCCURRENCES-BAGINT NIL (EQUAL (OCCURRENCES X (BAGINT A B)) (IF (LESSP (OCCURRENCES X A) (OCCURRENCES X B)) (OCCURRENCES X A) (OCCURRENCES X B))) NIL) (REWRITE-RULE OCCURRENCES-DELETE NIL (EQUAL (OCCURRENCES X (DELETE Y L)) (IF (EQUAL X Y) (IF (MEMBER X L) (SUB1 (OCCURRENCES X L)) (QUOTE 0)) (OCCURRENCES X L))) NIL)) TOTALP-LST ((OCCURRENCES . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (ADD1 (OCCURRENCES X (CDR L))) (OCCURRENCES X (CDR L))) (QUOTE 0))) LISP-CODE *1*OCCURRENCES SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L) (EQUAL X (CAR L))) ((X (CDR L)))) (TESTS-AND-CASES ((LISTP L) (NOT (EQUAL X (CAR L)))) ((X (CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193702 CONTROLLER-POCKETS (2) SATELLITES (*1*OCCURRENCES) IMMEDIATE-DEPENDENTS0 (G*1*OCCURRENCES-OFF1 OCCURRENCES-OFF1 G*1*OCCURRENCES-ON OCCURRENCES-ON G*1*OCCURRENCES-OFF OCCURRENCES-OFF MATH-THEORY OCCURRENCES-BAGDIFF OCCURRENCES-BAGINT MEMBER-BAGDIFF OCCURRENCES-DELETE MEMBER-DELETE EQUAL-OCCURRENCES-ZERO) EVENT (DEFN OCCURRENCES (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (ADD1 (OCCURRENCES X (CDR L))) (OCCURRENCES X (CDR L))) (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*OCCURRENCES))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (MAIN-EVENT BAGINT))) (PUT1-LST (QUOTE BAGINT) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGINT 24 NIL NIL)) LEMMAS ((REWRITE-RULE BAGINT-SINGLETON NIL (EQUAL (BAGINT X (CONS Y (QUOTE NIL))) (IF (MEMBER Y X) (CONS Y (QUOTE NIL)) (QUOTE NIL))) NIL)) TOTALP-LST ((BAGINT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LISP-CODE *1*BAGINT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402193702 CONTROLLER-POCKETS (1) SATELLITES (*1*BAGINT) IMMEDIATE-DEPENDENTS0 (G*1*BAGINT-OFF1 BAGINT-OFF1 G*1*BAGINT-ON BAGINT-ON G*1*BAGINT-OFF BAGINT-OFF MATH-THEORY LISTP-CDR-FACTORS-IMPLIES-INTEGERP CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL-FOR-ILESSP-LEMMA EVAL$-LIST-BAGINT-0-FOR-ILESSP MEMBER-0-ITIMES-FACTORS-YIELDS-0 BAGINT-SINGLETON CANCEL-ITIMES-ILESSP-FACTORS EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL EVAL$-LIST-BAGINT-0 ITIMES-LIST-EVAL$-FACTORS ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA CANCEL-ITIMES-FACTORS-EXPANDED CANCEL-ITIMES-FACTORS ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP LISTP-BAGINT-WITH-SINGLETON-MEMBER LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER CANCEL-ITIMES-ILESSP CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-2 EQUAL-0-ITIMES-LIST-EVAL$-BAGINT-1 CANCEL-ITIMES CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER MAKE-CANCEL-IPLUS-INEQUALITY-1 CORRECTNESS-OF-CANCEL-IPLUS EVAL$-CANCEL-IPLUS CANCEL-IPLUS ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE CANCEL-QUOTIENT-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-EQUAL-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CANCEL-LESSP-TIMES CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS MEMBER-BAGINT OCCURRENCES-BAGINT SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (DEFN BAGINT (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGINT) (DCELL . *1*BAGINT))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (MAIN-EVENT BAGDIFF))) (PUT1-LST (QUOTE BAGDIFF) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGDIFF -1 T NIL)) LEMMAS ((REWRITE-RULE BAGDIFF-DELETE NIL (EQUAL (BAGDIFF (DELETE E X) Y) (DELETE E (BAGDIFF X Y))) NIL)) TOTALP-LST ((BAGDIFF . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LISP-CODE *1*BAGDIFF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP Y) (MEMBER (CAR Y) X)) (((DELETE (CAR Y) X) (CDR Y)))) (TESTS-AND-CASES ((LISTP Y) (NOT (MEMBER (CAR Y) X))) ((X (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP Y))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402193702 CONTROLLER-POCKETS (2) SATELLITES (*1*BAGDIFF) IMMEDIATE-DEPENDENTS0 (G*1*BAGDIFF-OFF1 BAGDIFF-OFF1 G*1*BAGDIFF-ON BAGDIFF-ON G*1*BAGDIFF-OFF BAGDIFF-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-2 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF-COROLLARY-1 ILESSP-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-LIST-EVAL$-FACTORS-LEMMA-PRIME ITIMES-LIST-EVAL$-FACTORS-LEMMA EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ITIMES-FACTORS CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-4 CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-1 EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY MAKE-CANCEL-ITIMES-INEQUALITY CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY ITIMES-LIST-BAGDIFF MAKE-CANCEL-ITIMES-EQUALITY CANCEL-IPLUS-ILESSP MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER MAKE-CANCEL-IPLUS-INEQUALITY-1 EVAL$-IPLUS-LIST-BAGDIFF EVAL$-CANCEL-IPLUS CANCEL-IPLUS EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF CANCEL-QUOTIENT-TIMES CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-EQUAL-TIMES EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF OCCURRENCES-BAGDIFF BAGDIFF-DELETE MEMBER-BAGDIFF) EVENT (DEFN BAGDIFF (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGDIFF) (DCELL . *1*BAGDIFF))))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (MAIN-EVENT DELETE))) (PUT1-LST (QUOTE DELETE) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE -1 NIL T)) LEMMAS ((REWRITE-RULE DELETE-DELETE NIL (EQUAL (DELETE Y (DELETE X Z)) (DELETE X (DELETE Y Z))) ((Y . X))) (REWRITE-RULE DELETE-NON-MEMBER ((NOT (MEMBER X Y))) (EQUAL (DELETE X Y) Y) NIL)) TOTALP-LST ((DELETE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (CDR L) (CONS (CAR L) (DELETE X (CDR L)))) L)) LISP-CODE *1*DELETE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP L) (EQUAL X (CAR L))) NIL) (TESTS-AND-CASES ((LISTP L) (NOT (EQUAL X (CAR L)))) ((X (CDR L)))) (TESTS-AND-CASES ((NOT (LISTP L))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (ZERO CDR-LESSP))) IDATE 1000402193702 CONTROLLER-POCKETS (2) SATELLITES (*1*DELETE) IMMEDIATE-DEPENDENTS0 (G*1*DELETE-OFF1 DELETE-OFF1 G*1*DELETE-ON DELETE-ON G*1*DELETE-OFF DELETE-OFF MATH-THEORY ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE-PRIME ILESSP-ITIMES-LIST-EVAL$-LIST-DELETE BAGINT-SINGLETON ITIMES-ITIMES-LIST-EVAL$-LIST-DELETE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 LISTP-BAGINT-WITH-SINGLETON-MEMBER LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ITIMES-LIST-EVAL$-DELETE EVAL$-IPLUS-LIST-DELETE EVAL$-CANCEL-IPLUS CANCEL-IPLUS ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-TIMES-MEMBER CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-DELETE SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-DELETE BAGDIFF-DELETE OCCURRENCES-DELETE MEMBER-DELETE-IMPLIES-MEMBERSHIP MEMBER-DELETE DELETE-DELETE DELETE-NON-MEMBER LISTP-DELETE SUBBAGP BAGINT BAGDIFF) EVENT (DEFN DELETE (X L) (IF (LISTP L) (IF (EQUAL X (CAR L)) (CDR L) (CONS (CAR L) (DELETE X (CDR L)))) L)) LOCAL-UNDO-TUPLES ((DCELL . *1*DELETE))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IDENTITY) (QUOTE (TYPE-PRESCRIPTION-LST ((IDENTITY 0 T)) TOTALP-LST ((IDENTITY . T)) SDEFN (LAMBDA (X) X) LISP-CODE *1*IDENTITY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FOR) (QUOTE (TYPE-PRESCRIPTION-LST ((FOR -1 NIL NIL NIL NIL T NIL)) TOTALP-LST ((FOR)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (VAR RANGE CONDITION OP BODY ALIST) (IF (LISTP RANGE) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (QUANTIFIER-INITIAL-VALUE OP))) LISP-CODE *1*FOR SUBRP *1*FALSE BODY (IF (NLISTP RANGE) (QUANTIFIER-INITIAL-VALUE OP) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST))) INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP RANGE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST))) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (NOT (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST)))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (RANGE) (COUNT RANGE) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-OPERATION) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-OPERATION 23 NIL T T)) TOTALP-LST ((QUANTIFIER-OPERATION . T)) SDEFN (LAMBDA (FN ARG REST) (IF (EQUAL FN (QUOTE ADD-TO-SET)) (ADD-TO-SET ARG REST) (IF (EQUAL FN (QUOTE ALWAYS)) (IF ARG (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL FN (QUOTE APPEND)) (APPEND ARG REST) (IF (EQUAL FN (QUOTE COLLECT)) (CONS ARG REST) (IF (EQUAL FN (QUOTE COUNT)) (IF ARG (ADD1 REST) REST) (IF (EQUAL FN (QUOTE DO-RETURN)) ARG (IF (EQUAL FN (QUOTE EXISTS)) (IF ARG (QUOTE *1*TRUE) (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL FN (QUOTE MAX)) (MAX ARG REST) (IF (EQUAL FN (QUOTE SUM)) (PLUS ARG REST) (IF (EQUAL FN (QUOTE MULTIPLY)) (TIMES ARG REST) (IF (EQUAL FN (QUOTE UNION)) (UNION ARG REST) (QUOTE 0))))))))))))) LISP-CODE *1*QUANTIFIER-OPERATION SUBRP *1*TRUE LEVEL-NO 2 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNION) (QUOTE (TYPE-PRESCRIPTION-LST ((UNION 16 NIL T)) TOTALP-LST ((UNION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (UNION (CDR X) Y) (CONS (CAR X) (UNION (CDR X) Y))) Y)) LISP-CODE *1*UNION SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP-MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MAX) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBERP-MAX 4 NIL NIL) (MAX 4 NIL T)) TOTALP-LST ((MAX . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) Y (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*MAX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPEND) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND 16 NIL T)) LEMMAS ((REWRITE-RULE APPEND-SUM ((EQUAL (LENGTH A) (LENGTH B)) (EQUAL C2 (V-CARRY C1 A B))) (EQUAL (APPEND (V-SUM C1 A B) (V-SUM C2 C D)) (V-SUM C1 (APPEND A C) (APPEND B D))) NIL) (REWRITE-RULE DP-RAM-16X32-ARGS-CROCK ((EQUAL (LENGTH A) (QUOTE 4)) (PROPERP A) (EQUAL (LENGTH B) (QUOTE 4)) (PROPERP B) (EQUAL (LENGTH C) (QUOTE 32)) (PROPERP C)) (EQUAL (APPEND A (APPEND B (CONS X C))) (APPEND (LIST-AS-COLLECTED-NTH A (QUOTE 4) (QUOTE 0)) (APPEND (LIST-AS-COLLECTED-NTH B (QUOTE 4) (QUOTE 0)) (CONS X (LIST-AS-COLLECTED-NTH C (QUOTE 32) (QUOTE 0)))))) NIL) (REWRITE-RULE APPEND-V-THREEFIX NIL (EQUAL (APPEND (V-THREEFIX A) (V-THREEFIX B)) (V-THREEFIX (APPEND A B))) NIL) (REWRITE-RULE V-IF-APPEND-HELP ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (APPEND (V-IF C A B) (V-IF C D E)) (V-IF C (APPEND A D) (APPEND B E))) NIL) (REWRITE-RULE V-BUF-APPEND-HELP NIL (EQUAL (APPEND (V-BUF A) (V-BUF B)) (V-BUF (APPEND A B))) NIL) (REWRITE-RULE V-NOT-APPEND-HELP NIL (EQUAL (APPEND (V-NOT A) (V-NOT B)) (V-NOT (APPEND A B))) NIL) (REWRITE-RULE V-XOR-APPEND-HELP ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (APPEND (V-XOR A B) (V-XOR D E)) (V-XOR (APPEND A D) (APPEND B E))) NIL) (REWRITE-RULE V-OR-APPEND-HELP ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (APPEND (V-OR A B) (V-OR D E)) (V-OR (APPEND A D) (APPEND B E))) NIL) (REWRITE-RULE V-AND-APPEND-HELP ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (APPEND (V-AND A B) (V-AND D E)) (V-AND (APPEND A D) (APPEND B E))) NIL) (REWRITE-RULE MAKE-LIST-APPEND NIL (EQUAL (APPEND (MAKE-LIST N VALUE) (MAKE-LIST M VALUE)) (MAKE-LIST (PLUS N M) VALUE)) NIL) (REWRITE-RULE APPEND-FIRSTN-RESTN NIL (EQUAL (APPEND (FIRSTN N L) (RESTN N L)) L) NIL) (REWRITE-RULE PROPERP-APPEND-NIL ((PROPERP A)) (EQUAL (APPEND A (QUOTE NIL)) A) NIL) (REWRITE-RULE ASSOCIATIVITY-OF-APPEND NIL (EQUAL (APPEND (APPEND A B) C) (APPEND A (APPEND B C))) NIL) (REWRITE-RULE APPEND-CONS NIL (EQUAL (APPEND (CONS A B) C) (CONS A (APPEND B C))) NIL) (REWRITE-RULE APPEND-NLISTP ((NOT (LISTP A))) (EQUAL (APPEND A B) B) NIL)) TOTALP-LST ((APPEND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CAR X) (APPEND (CDR X) Y)) Y)) LISP-CODE *1*APPEND SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD-TO-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-TO-SET 16 NIL T)) TOTALP-LST ((ADD-TO-SET . T)) SDEFN (LAMBDA (X SET) (IF (MEMBER X SET) SET (CONS X SET))) LISP-CODE *1*ADD-TO-SET SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-INITIAL-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-INITIAL-VALUE -1 NIL)) TOTALP-LST ((QUANTIFIER-INITIAL-VALUE . T)) SDEFN (LAMBDA (FN) (CDR (ASSOC FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION)))))) LISP-CODE *1*QUANTIFIER-INITIAL-VALUE SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-SUBRP-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EVAL$) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$ -1 NIL T NIL)) LEMMAS ((REWRITE-RULE EVAL$-APPEND-2 ((LITATOM X) (NOT (MEMBER X LST))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (APPEND (PAIRLIST LST Y) Z)) (EVAL$ (QUOTE *1*TRUE) X Z)) NIL) (REWRITE-RULE EVAL$-PAIRLIST-CONS ((LITATOM X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST (CONS C LST) Y)) (IF (EQUAL X C) (CAR Y) (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST LST (CDR Y))))) NIL) (REWRITE-RULE EVAL$-APPEND ((LITATOM X) (MEMBER X LST)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X (APPEND (PAIRLIST LST Y) Z)) (EVAL$ (QUOTE *1*TRUE) X (PAIRLIST LST Y))) NIL) (REWRITE-RULE CONJOIN-INEQUALITIES-WITH-0-ELIMINATOR ((LISTP X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONJOIN-INEQUALITIES-WITH-0 X PARITY) A) (IF PARITY (ILESSP (QUOTE 0) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) (ILESSP (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (QUOTE 0)))) NIL) (REWRITE-RULE EVAL$-DISJOIN-EQUALITIES-WITH-0 ((LISTP LST)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (DISJOIN-EQUALITIES-WITH-0 LST) A) (SOME-EVAL$S-TO-0 LST A)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-ILESSP-HACK-2-LEMMA ((MEMBER (QUOTE 0) (ITIMES-FRINGE W))) (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) NIL) (REWRITE-RULE EVAL$-MAKE-CANCEL-ITIMES-INEQUALITY NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-INEQUALITY X Y IN-BOTH) A) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE ((QUOTE 0))))) A) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) A) (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) A)) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (ITIMES-TREE-NO-FIX-INT IN-BOTH) (QUOTE NIL)))) A) (ILESSP (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF X IN-BOTH)) A) (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-NO-FIX-INT (BAGDIFF Y IN-BOTH)) A)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE EVAL$-EQUAL-ITIMES-TREE-ITIMES-FRINGE-0 ((EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (ITIMES-FRINGE X)) (QUOTE ((QUOTE 0))))) A) (EQUAL (CAR X) (QUOTE ITIMES))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0)) NIL) (REWRITE-RULE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-2 NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY X (CONS Y (QUOTE NIL)) (CONS Y (QUOTE NIL))) A) (IF (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) Y A)) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (QUOTE 1) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE Y X) A))))) NIL) (REWRITE-RULE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY-1 NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY (CONS X (QUOTE NIL)) Y (CONS X (QUOTE NIL))) A) (IF (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) X A)) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (QUOTE 1) (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE X Y) A))))) NIL) (REWRITE-RULE EVAL$-MAKE-CANCEL-ITIMES-EQUALITY NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-ITIMES-EQUALITY X Y IN-BOTH) A) (IF (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE IN-BOTH) (QUOTE ((QUOTE 0))))) A) (QUOTE *1*TRUE) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF X IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF Y IN-BOTH) A))))) NIL) (REWRITE-RULE EVAL$-ITIMES-TREE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE X) A) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A))) NIL) (REWRITE-RULE EVAL$-ITIMES-TREE-REC ((LISTP X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (ITIMES-TREE-REC X) A) (IF (LISTP (CDR X)) (ITIMES-LIST (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A))) NIL) (REWRITE-RULE MAKE-CANCEL-IPLUS-INEQUALITY-SIMPLIFIER NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (MAKE-CANCEL-IPLUS-INEQUALITY-1 X Y) A) (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE ILESSP) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF X (BAGINT X Y))) (CONS (IPLUS-TREE-NO-FIX-INT (BAGDIFF Y (BAGINT X Y))) (QUOTE NIL)))) A)) NIL) (REWRITE-RULE EVAL$-IPLUS ((LISTP X) (EQUAL (CAR X) (QUOTE IPLUS))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (IPLUS (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))) NIL) (REWRITE-RULE EVAL$-CANCEL-IPLUS NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (CANCEL-IPLUS X) A) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE IPLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (LISTP (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (IPLUS-FRINGE (CAR (CDR X))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) A)) (IPLUS-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (IPLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (IPLUS-FRINGE (CAR (CDR X))) (IPLUS-FRINGE (CAR (CDR (CDR X)))))) A))) (EVAL$ (QUOTE *1*TRUE) X A)) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) A)) (QUOTE 0)) (QUOTE *1*FALSE)) (EVAL$ (QUOTE *1*TRUE) X A))) (IF (MEMBER (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (EQUAL (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR (CDR X))) (IPLUS-FRINGE (CAR (CDR X)))) A)) (QUOTE 0)) (QUOTE *1*FALSE)) (EVAL$ (QUOTE *1*TRUE) X A))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (EQUAL (QUOTE 0) (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) A))) (QUOTE *1*FALSE)) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A))) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE IPLUS)) (IF (MEMBER (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) (IF (INTEGERP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (EQUAL (QUOTE 0) (IPLUS-LIST (EVAL$ (QUOTE LIST) (DELETE (CAR (CDR X)) (IPLUS-FRINGE (CAR (CDR (CDR X))))) A))) (QUOTE *1*FALSE)) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A))) NIL) (REWRITE-RULE EVAL$-LIST-APPEND NIL (EQUAL (EVAL$ (QUOTE LIST) (APPEND X Y) A) (APPEND (EVAL$ (QUOTE LIST) X A) (EVAL$ (QUOTE LIST) Y A))) NIL) (REWRITE-RULE EVAL$-IPLUS-TREE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE X) A) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A))) NIL) (REWRITE-RULE EVAL$-IPLUS-TREE-REC NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (IPLUS-TREE-REC X) A) (IF (LISTP X) (IF (LISTP (CDR X)) (IPLUS-LIST (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-CANCEL-INEG-AUX-IS-ITS-FN ((NOT (EQUAL (CANCEL-INEG-AUX X Y) (QUOTE *1*FALSE)))) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CANCEL-INEG-AUX X Y) A) (EVAL$-CANCEL-INEG-AUX-FN X Y A)) NIL) (REWRITE-RULE EVAL$-OTHER ((NOT (LITATOM X)) (NOT (LISTP X))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) X) NIL) (REWRITE-RULE EVAL$-LITATOM ((LITATOM X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (CDR (ASSOC X A))) NIL) (REWRITE-RULE EVAL$-LIST-NLISTP ((NOT (LISTP X))) (EQUAL (EVAL$ (QUOTE LIST) X A) (QUOTE NIL)) NIL) (REWRITE-RULE EVAL$-LIST-CONS NIL (EQUAL (EVAL$ (QUOTE LIST) (CONS X Y) A) (CONS (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE LIST) Y A))) NIL) (REWRITE-RULE TIMES-TREE-OF-TIMES-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE TIMES-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A))) NIL) (REWRITE-RULE ZEROP-MAKES-TIMES-TREE-ZERO2 ((EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)) NIL) (REWRITE-RULE OR-ZEROP-TREE-IS-NOT-ZEROP-TREE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A) (IF (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE ZEROP-MAKES-TIMES-TREE-ZERO ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)) NIL) (REWRITE-RULE EVAL$-TIMES-MEMBER ((MEMBER E X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A))) NIL) (REWRITE-RULE EVAL$-IF ((EQUAL (CAR X) (QUOTE IF))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (IF (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) A))) NIL) (REWRITE-RULE EVAL$-QUOTIENT ((EQUAL (CAR X) (QUOTE QUOTIENT))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))) NIL) (REWRITE-RULE EVAL$-LESSP ((EQUAL (CAR X) (QUOTE LESSP))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (LESSP (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))) NIL) (REWRITE-RULE EVAL$-EQUAL ((EQUAL (CAR X) (QUOTE EQUAL))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))) NIL) (REWRITE-RULE EVAL$-OR ((EQUAL (CAR X) (QUOTE OR))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (IF (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (QUOTE *1*TRUE) (IF (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A) (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE EVAL$-TIMES ((EQUAL (CAR X) (QUOTE TIMES))) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A))) NIL) (REWRITE-RULE EVAL$-QUOTE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS)) NIL) (REWRITE-RULE PLUS-TREE-PLUS-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-PLUS-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL) (REWRITE-RULE PLUS-TREE-BAGDIFF ((SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) NIL) (REWRITE-RULE PLUS-TREE-DELETE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL)) TOTALP-LST ((EVAL$)) LINEAR-LEMMAS ((LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) X A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (FLG X A) (IF (EQUAL FLG (QUOTE LIST)) (IF (LISTP X) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A)) (QUOTE NIL)) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A))) X)))) LISP-CODE *1*EVAL$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A))) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (NLISTP X) X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A)))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) A) ((QUOTE *1*TRUE) (CAR X) A))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE)))) (((QUOTE LIST) (CDR X) A)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY$ -1 NIL NIL)) TOTALP-LST ((APPLY$)) SDEFN (LAMBDA (FN ARGS) (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0))))) LISP-CODE *1*APPLY$ SUBRP *1*FALSE BODY (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0)))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C-APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C-APPLY$ 17 NIL NIL)) TOTALP-LST ((V&C-APPLY$)) SDEFN (LAMBDA (FN ARGS) (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (IF (CAR (CAR ARGS)) (FIX-COST (CAR (CDR ARGS)) (ADD1 (CDR (CAR ARGS)))) (FIX-COST (CAR (CDR (CDR ARGS))) (ADD1 (CDR (CAR ARGS))))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS))))))) LISP-CODE *1*V&C-APPLY$ SUBRP *1*FALSE BODY (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (FIX-COST (IF (CAR (CAR ARGS)) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (ADD1 (CDR (CAR ARGS)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS)))))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C$ 25 NIL NIL NIL)) TOTALP-LST ((V&C$)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (FLG X VA) (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (V&C-APPLY$ (CAR X) (V&C$ (QUOTE LIST) (CDR X) VA))))))) LISP-CODE *1*V&C$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE IF)) (IF (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA) (FIX-COST (IF (CAR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA)) (ADD1 (CDR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA)) (QUOTE *1*FALSE) (IF (SUBRP (CAR X)) (CONS (APPLY-SUBR (CAR X) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA)))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA))))))))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) VA) ((QUOTE *1*TRUE) (CAR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (((QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA) ((QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) ((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (NOT (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA))) (((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (SUBRP (CAR X))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (NOT (SUBRP (CAR X)))) (((QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) ((QUOTE LIST) (CDR X) VA)))) LEVEL-NO 3 CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUM-CDRS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-CDRS 4 NIL)) TOTALP-LST ((SUM-CDRS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (PLUS (CDR (CAR L)) (SUM-CDRS (CDR L))) (QUOTE 0))) LISP-CODE *1*SUM-CDRS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE STRIP-CARS) (QUOTE (TYPE-PRESCRIPTION-LST ((STRIP-CARS 24 NIL)) TOTALP-LST ((STRIP-CARS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (CONS (CAR (CAR L)) (STRIP-CARS (CDR L))) (QUOTE NIL))) LISP-CODE *1*STRIP-CARS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX-COST) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-COST 17 NIL NIL)) TOTALP-LST ((FIX-COST . T)) SDEFN (LAMBDA (X N) (IF X (CONS (CAR X) (PLUS N (CDR X))) (QUOTE *1*FALSE))) LISP-CODE *1*FIX-COST SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((BODY -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-BODY ((SUBRP FN)) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-BODY ((NOT (LITATOM FN))) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((BODY . T)) LISP-CODE *1*BODY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FORMALS) (QUOTE (TYPE-PRESCRIPTION-LST ((FORMALS -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-FORMALS ((SUBRP FN)) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-FORMALS ((NOT (LITATOM FN))) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((FORMALS . T)) LISP-CODE *1*FORMALS SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY-SUBR) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY-SUBR -1 NIL NIL)) LEMMAS ((REWRITE-RULE NOT-SUBRP-APPLY-SUBR ((NOT (SUBRP FN))) (EQUAL (APPLY-SUBR FN X) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((APPLY-SUBR . T)) LISP-CODE *1*APPLY-SUBR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BOOLEAN) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBRP-BOOLEAN 3 NIL) (SUBRP -1 NIL)) LEMMAS ((REWRITE-RULE NOT-LITATOM-SUBRP ((NOT (LITATOM FN))) (EQUAL (SUBRP FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((SUBRP . T)) LISP-CODE *1*SUBRP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PAIRLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PAIRLIST 24 NIL NIL)) LEMMAS ((REWRITE-RULE PAIRLIST-APPEND ((EQUAL (LENGTH A) (LENGTH C))) (EQUAL (PAIRLIST (APPEND A B) (APPEND C D)) (APPEND (PAIRLIST A C) (PAIRLIST B D))) NIL) (REWRITE-RULE PAIRLIST-CONS NIL (EQUAL (PAIRLIST (CONS X Y) Z) (CONS (CONS X (CAR Z)) (PAIRLIST Y (CDR Z)))) NIL) (REWRITE-RULE PAIRLIST-NLISTP ((NOT (LISTP A))) (EQUAL (PAIRLIST A B) (QUOTE NIL)) NIL)) TOTALP-LST ((PAIRLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CONS (CAR X) (CAR Y)) (PAIRLIST (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*PAIRLIST SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ASSOC) (QUOTE (TYPE-PRESCRIPTION-LST ((ASSOC -1 NIL NIL)) TOTALP-LST ((ASSOC . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR (CAR L))) (CAR L) (ASSOC X (CDR L))) (QUOTE *1*FALSE))) LISP-CODE *1*ASSOC SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (EQUAL X (CAR (CAR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR (CAR L))))) ((X (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORDINALP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORDINALP 3 NIL)) TOTALP-LST ((ORDINALP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (ORDINALP (CAR X)) (IF (EQUAL (CAR X) (QUOTE 0)) (QUOTE *1*FALSE) (IF (ORDINALP (CDR X)) (IF (LISTP (CDR X)) (IF (ORD-LESSP (CAR X) (CAR (CDR X))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (NUMBERP X))) LISP-CODE *1*ORDINALP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)) ((CAR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORD-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORD-LESSP 3 NIL NIL)) TOTALP-LST ((ORD-LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (ORD-LESSP (CAR X) (CAR Y)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (CAR Y)) (IF (ORD-LESSP (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (IF (LISTP Y) (QUOTE *1*TRUE) (LESSP X Y)))) LISP-CODE *1*ORD-LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NOT (LISTP X)) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (LISTP Y)) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (ORD-LESSP (CAR X) (CAR Y))) (((CAR X) (CAR Y)))) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (NOT (ORD-LESSP (CAR X) (CAR Y)))) (((CAR X) (CAR Y)) ((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP ZERO CAR-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP ZERO CAR-LESSP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IFF) (QUOTE (TYPE-PRESCRIPTION-LST ((IFF 3 NIL NIL)) TOTALP-LST ((IFF . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Q (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*IFF SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MEMBER) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMBER 3 NIL NIL)) LEMMAS ((REWRITE-RULE MIN-TOKEN-LEMMA ((LISTP LST)) (MEMBER (MIN-TOKEN LST) LST) NIL) (REWRITE-RULE MEMBER-INDICES NIL (EQUAL (MEMBER X (INDICES NAME FROM N)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP N) (IF (INDEXP X) (IF (EQUAL (I-NAME X) (LNFIX NAME)) (IF (LESSP (I-NUM X) FROM) (QUOTE *1*FALSE) (LESSP (I-NUM X) (PLUS FROM N))) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE NOT-MEMBER-SUBRANGE ((LESSP N (LENGTH V)) (NOT (MEMBER X V))) (NOT (MEMBER X (SUBRANGE V M N))) NIL) (REWRITE-RULE NOT-MEMBER-RESTN ((NOT (MEMBER X Y))) (NOT (MEMBER X (RESTN N Y))) NIL) (REWRITE-RULE NOT-MEMBER-FIRSTN ((NOT (MEMBER X Y))) (NOT (MEMBER X (FIRSTN N Y))) NIL) (REWRITE-RULE OUR-MEMBER-APPEND NIL (EQUAL (MEMBER A (APPEND B C)) (IF (MEMBER A B) (QUOTE *1*TRUE) (MEMBER A C))) NIL) (REWRITE-RULE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-2 ((ILESSP (QUOTE 0) (EVAL$ (QUOTE *1*TRUE) W A))) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W))) NIL) (REWRITE-RULE MEMBER-0-ITIMES-FACTORS-YIELDS-0-ILESSP-CONSEQUENCE-1 ((ILESSP (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0))) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W))) NIL) (REWRITE-RULE MEMBER-0-ITIMES-FACTORS-YIELDS-0 ((NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)))) (NOT (MEMBER (QUOTE 0) (ITIMES-FACTORS W))) NIL) (REWRITE-RULE MEMBER-0-EVAL$-LIST ((MEMBER (QUOTE 0) X)) (MEMBER (QUOTE 0) (EVAL$ (QUOTE LIST) X A)) NIL) (REWRITE-RULE LISTP-BAGINT-WITH-SINGLETON-IMPLIES-MEMBER ((LISTP (BAGINT Y (CONS Z (QUOTE NIL))))) (MEMBER Z Y) NIL) (REWRITE-RULE MEMBER-APPEND NIL (EQUAL (MEMBER A (APPEND X Y)) (IF (MEMBER A X) (QUOTE *1*TRUE) (MEMBER A Y))) NIL) (REWRITE-RULE MEMBER-BAGINT NIL (EQUAL (MEMBER X (BAGINT A B)) (IF (MEMBER X A) (MEMBER X B) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE MEMBER-BAGDIFF NIL (EQUAL (MEMBER X (BAGDIFF A B)) (LESSP (OCCURRENCES X B) (OCCURRENCES X A))) NIL) (REWRITE-RULE MEMBER-DELETE-IMPLIES-MEMBERSHIP ((MEMBER X (DELETE Y L))) (MEMBER X L) NIL) (REWRITE-RULE MEMBER-DELETE NIL (EQUAL (MEMBER X (DELETE Y L)) (IF (MEMBER X L) (IF (EQUAL X Y) (LESSP (QUOTE 1) (OCCURRENCES X L)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE MEMBER-NON-LIST ((NOT (LISTP L))) (NOT (MEMBER X L)) NIL)) TOTALP-LST ((MEMBER . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X LST) (IF (LISTP LST) (IF (EQUAL X (CAR LST)) (QUOTE *1*TRUE) (MEMBER X (CDR LST))) (QUOTE *1*FALSE))) LISP-CODE *1*MEMBER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (EQUAL X (CAR LST))) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (EQUAL X (CAR LST)))) ((X (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*REMAINDER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((REMAINDER 4 NIL NIL)) LEMMAS ((REWRITE-RULE REMAINDER-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y ((LESSP (ADD1 (PLUS Y Y)) (PLUS X X))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X X) (ADD1 (PLUS Y Y))) (QUOTE 2)) (QUOTE 1)) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-PLUS-X-X-PLUS-Y-Y NIL (EQUAL (REMAINDER (DIFFERENCE (PLUS X X) (PLUS Y Y)) (QUOTE 2)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-THEOREM-FOR-SUBB ((LESSP A B) (LESSP B C)) (EQUAL (REMAINDER (DIFFERENCE (PLUS B C) A) C) (DIFFERENCE B A)) NIL) (REWRITE-RULE REMAINDER-PLUS-X-X-2 NIL (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0)) NIL) (REWRITE-RULE V-TO-NAT-OF-NAT-TO-V-HACK ((LESSP V (EXP (QUOTE 2) X))) (EQUAL (REMAINDER (ADD1 (PLUS V (PLUS V (PLUS (TIMES W (EXP (QUOTE 2) X)) (TIMES W (EXP (QUOTE 2) X)))))) (PLUS (EXP (QUOTE 2) X) (EXP (QUOTE 2) X))) (ADD1 (PLUS V V))) NIL) (REWRITE-RULE V-TO-NAT-FIRSTN-HACK2 ((LESSP Z Y)) (EQUAL (REMAINDER (ADD1 (PLUS Z (PLUS Z (PLUS (TIMES D Y) (TIMES D Y))))) (PLUS Y Y)) (ADD1 (PLUS Z Z))) NIL) (REWRITE-RULE V-TO-NAT-FIRSTN-HACK1 ((LESSP Z Y)) (EQUAL (REMAINDER (PLUS Z (PLUS Z (PLUS (TIMES W Y) (TIMES W Y)))) (PLUS Y Y)) (PLUS Z Z)) NIL) (REWRITE-RULE DIVIDES-PLUS-PLUS ((EQUAL (REMAINDER X Y) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X X) (PLUS Y Y)) (QUOTE 0)) NIL) (REWRITE-RULE COMMON-DIVISOR-DIVIDES-GCD ((EQUAL (REMAINDER X Z) (QUOTE 0)) (EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (REMAINDER (GCD X Y) Z) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-GCD NIL (EQUAL (REMAINDER B (GCD A B)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-GCD NIL (EQUAL (REMAINDER A (GCD A B)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-EXP-EXP ((NOT (LESSP J I))) (EQUAL (REMAINDER (EXP A J) (EXP A I)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-EXP ((NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (EQUAL (REMAINDER (EXP N K) N) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-X-X NIL (EQUAL (REMAINDER X X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1-ARG2 NIL (EQUAL (REMAINDER Y (QUOTE 1)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1-ARG1 NIL (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE REMAINDER-REMAINDER ((EQUAL (REMAINDER B A) (QUOTE 0))) (EQUAL (REMAINDER (REMAINDER N B) A) (REMAINDER N A)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-TIMES-INSTANCE ((LESSP A B)) (EQUAL (REMAINDER (PLUS A (PLUS (TIMES C B) (TIMES D B))) (TIMES E B)) (PLUS A (TIMES B (REMAINDER (PLUS C D) E)))) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-TIMES-INSTANCE ((LESSP A B)) (EQUAL (REMAINDER (PLUS A (PLUS (TIMES B C) (TIMES B D))) (TIMES B E)) (PLUS A (TIMES B (REMAINDER (PLUS C D) E)))) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-TIMES ((LESSP A B)) (EQUAL (REMAINDER (PLUS A (TIMES C B)) (TIMES D B)) (PLUS A (REMAINDER (TIMES C B) (TIMES D B)))) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES-TIMES ((LESSP A B)) (EQUAL (REMAINDER (PLUS A (TIMES B C)) (TIMES B D)) (PLUS A (REMAINDER (TIMES B C) (TIMES B D)))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE3 ((EQUAL (REMAINDER B C) (QUOTE 0)) (NOT (EQUAL (REMAINDER A C) (QUOTE 0)))) (EQUAL (REMAINDER (DIFFERENCE A B) C) (IF (LESSP B A) (REMAINDER A C) (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE2 ((EQUAL (REMAINDER A C) (QUOTE 0)) (NOT (EQUAL (REMAINDER B C) (QUOTE 0)))) (EQUAL (REMAINDER (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE C (REMAINDER B C)) (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE1 ((EQUAL (REMAINDER A C) (REMAINDER B C))) (EQUAL (REMAINDER (DIFFERENCE A B) C) (DIFFERENCE (REMAINDER A C) (REMAINDER B C))) NIL) (REWRITE-RULE REMAINDER-TIMES2-INSTANCE NIL (EQUAL (REMAINDER (TIMES X Z) (TIMES Y Z)) (TIMES (REMAINDER X Y) Z)) NIL) (REWRITE-RULE REMAINDER-TIMES2-INSTANCE NIL (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) NIL) (REWRITE-RULE REMAINDER-TIMES2 ((EQUAL (REMAINDER A Z) (QUOTE 0))) (EQUAL (REMAINDER A (TIMES Z Y)) (TIMES Z (REMAINDER (QUOTIENT A Z) Y))) NIL) (REWRITE-RULE REMAINDER-TIMES2 ((EQUAL (REMAINDER A Z) (QUOTE 0))) (EQUAL (REMAINDER A (TIMES Y Z)) (TIMES Z (REMAINDER (QUOTIENT A Z) Y))) NIL) (REWRITE-RULE REMAINDER-TIMES-TIMES NIL (EQUAL (REMAINDER (TIMES X Z) (TIMES Y Z)) (TIMES (REMAINDER X Y) Z)) NIL) (REWRITE-RULE REMAINDER-TIMES-TIMES NIL (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) NIL) (REWRITE-RULE REMAINDER-TIMES1-INSTANCE NIL (EQUAL (REMAINDER (TIMES X Y) X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-TIMES1-INSTANCE NIL (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-TIMES1 ((EQUAL (REMAINDER B C) (QUOTE 0))) (EQUAL (REMAINDER (TIMES B A) C) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-TIMES1 ((EQUAL (REMAINDER B C) (QUOTE 0))) (EQUAL (REMAINDER (TIMES A B) C) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X (PLUS Y A)) C) (REMAINDER (PLUS X Y) C)) NIL) (REWRITE-RULE REMAINDER-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (REMAINDER (PLUS B A) C) (REMAINDER B C)) NIL) (REWRITE-RULE REMAINDER-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER B C)) NIL) (REWRITE-RULE REMAINDER-ADD1 ((EQUAL (REMAINDER A B) (QUOTE 0))) (EQUAL (REMAINDER (ADD1 A) B) (REMAINDER (QUOTE 1) B)) NIL) (REWRITE-RULE REMAINDER-ZERO ((ZEROP X)) (EQUAL (REMAINDER Y X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-OF-NON-NUMBER ((NOT (NUMBERP A))) (EQUAL (REMAINDER A N) (REMAINDER (QUOTE 0) N)) NIL) (REWRITE-RULE REMAINDER-NOOP ((LESSP A B)) (EQUAL (REMAINDER A B) (IF (NUMBERP A) A (QUOTE 0))) NIL)) TOTALP-LST ((REMAINDER . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (IF (NUMBERP J) (IF (LESSP I J) (IF (NUMBERP I) I (QUOTE 0)) (REMAINDER (DIFFERENCE I J) J)) (IF (NUMBERP I) I (QUOTE 0))))) LISP-CODE *1*REMAINDER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((REMAINDER X Y) (QUOTIENT X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUOTIENT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOTIENT 4 NIL NIL)) LEMMAS ((REWRITE-RULE QUOTIENT-ADD1-PLUS-X-X-2 NIL (EQUAL (QUOTIENT (ADD1 (PLUS X X)) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS-X-X-ADD1-PLUS-Y-Y-2 NIL (EQUAL (QUOTIENT (DIFFERENCE (PLUS X X) (ADD1 (PLUS Y Y))) (QUOTE 2)) (SUB1 (DIFFERENCE X Y))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS-X-X-PLUS-Y-Y-2 NIL (EQUAL (QUOTIENT (DIFFERENCE (PLUS X X) (PLUS Y Y)) (QUOTE 2)) (DIFFERENCE X Y)) NIL) (REWRITE-RULE PLUS-QUOTIENT-2-LEMMA NIL (EQUAL (QUOTIENT (PLUS V (TIMES (QUOTE 2) Z)) (QUOTE 2)) (PLUS Z (QUOTIENT V (QUOTE 2)))) NIL) (REWRITE-RULE QUOTIENT-PLUS-X-X-2-WITH-EXTRA-ARG NIL (EQUAL (QUOTIENT (PLUS X (PLUS X Y)) (QUOTE 2)) (PLUS X (QUOTIENT Y (QUOTE 2)))) NIL) (REWRITE-RULE QUOTIENT-PLUS-X-X-2 NIL (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-LESSP-ARG2 ((EQUAL (REMAINDER A C) (QUOTE 0)) (LESSP B C)) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (EQUAL B (QUOTE 0)) (QUOTIENT A C) (IF (NUMBERP B) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (ADD1 (QUOTIENT B C))) (QUOTE 0)) (QUOTIENT A C)))) NIL) (REWRITE-RULE QUOTIENT-EXP ((NUMBERP K) (NOT (EQUAL K (QUOTE 0)))) (EQUAL (QUOTIENT (EXP N K) N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (EXP N (SUB1 K)) (QUOTE 0)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-QUOTIENT-TIMES NIL *1*CANCEL-QUOTIENT-TIMES NIL) (REWRITE-RULE EVAL$-QUOTIENT-TIMES-TREE-BAGDIFF ((SUBBAGP X Y) (SUBBAGP X Z) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (EQUAL (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (QUOTIENT (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE ZEROP-MAKES-QUOTIENT-ZERO-BRIDGE ((EQUAL (CAR X) (QUOTE TIMES)) (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A))) (EQUAL (QUOTIENT (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-X-X ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (QUOTIENT X X) (QUOTE 1)) NIL) (REWRITE-RULE QUOTIENT-1-ARG1 NIL (EQUAL (QUOTIENT (QUOTE 1) N) (IF (EQUAL N (QUOTE 1)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-1-ARG2 NIL (EQUAL (QUOTIENT N (QUOTE 1)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-QUOTIENT NIL (EQUAL (QUOTIENT (QUOTIENT B A) C) (QUOTIENT B (TIMES A C))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE ((LESSP A B)) (EQUAL (QUOTIENT (PLUS A (PLUS (TIMES C B) (TIMES D B))) (TIMES E B)) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (QUOTIENT (PLUS D C) E) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-TIMES-INSTANCE ((LESSP A B)) (EQUAL (QUOTIENT (PLUS A (PLUS (TIMES B C) (TIMES B D))) (TIMES B E)) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (QUOTIENT (PLUS C D) E) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-TIMES ((LESSP A B)) (EQUAL (QUOTIENT (PLUS A (TIMES B C)) (TIMES B D)) (QUOTIENT (TIMES B C) (TIMES B D))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES-TIMES ((LESSP A B)) (EQUAL (QUOTIENT (PLUS A (TIMES B C)) (TIMES B D)) (QUOTIENT (TIMES B C) (TIMES B D))) NIL) (REWRITE-RULE QUOTIENT-REMAINDER-INSTANCE NIL (EQUAL (QUOTIENT (REMAINDER X (TIMES A B)) A) (REMAINDER (QUOTIENT X A) B)) NIL) (REWRITE-RULE QUOTIENT-REMAINDER ((EQUAL (REMAINDER C A) (QUOTE 0))) (EQUAL (QUOTIENT (REMAINDER B C) A) (REMAINDER (QUOTIENT B A) (QUOTIENT C A))) NIL) (REWRITE-RULE QUOTIENT-REMAINDER-TIMES NIL (EQUAL (QUOTIENT (REMAINDER X (TIMES A B)) A) (REMAINDER (QUOTIENT X A) B)) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE3 ((EQUAL (REMAINDER B C) (QUOTE 0)) (NOT (EQUAL (REMAINDER A C) (QUOTE 0)))) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (QUOTIENT B C)) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE2 ((EQUAL (REMAINDER A C) (QUOTE 0)) (NOT (EQUAL (REMAINDER B C) (QUOTE 0)))) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (QUOTIENT A C) (ADD1 (QUOTIENT B C))) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-LESSP-ARG1 ((LESSP A B)) (EQUAL (QUOTIENT A B) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE1 ((EQUAL (REMAINDER A C) (REMAINDER B C))) (EQUAL (QUOTIENT (DIFFERENCE A B) C) (DIFFERENCE (QUOTIENT A C) (QUOTIENT B C))) NIL) (REWRITE-RULE QUOTIENT-TIMES-TIMES NIL (EQUAL (QUOTIENT (TIMES X Z) (TIMES Y Z)) (IF (EQUAL Z (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Z) (QUOTIENT X Y) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES-TIMES NIL (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (QUOTIENT Y Z) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES-INSTANCE NIL (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES-INSTANCE NIL (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (QUOTIENT (TIMES B A) C) (TIMES B (QUOTIENT A C))) NIL) (REWRITE-RULE QUOTIENT-TIMES ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (QUOTIENT (TIMES A B) C) (TIMES B (QUOTIENT A C))) NIL) (REWRITE-RULE QUOTIENT-TIMES-INSTANCE-TEMP NIL (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES-INSTANCE-TEMP NIL (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS X (PLUS Y A)) C) (PLUS (QUOTIENT (PLUS X Y) C) (QUOTIENT A C))) NIL) (REWRITE-RULE QUOTIENT-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS B A) C) (PLUS (QUOTIENT A C) (QUOTIENT B C))) NIL) (REWRITE-RULE QUOTIENT-PLUS ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS A B) C) (PLUS (QUOTIENT A C) (QUOTIENT B C))) NIL) (REWRITE-RULE QUOTIENT-SUB1 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (EQUAL (QUOTIENT (SUB1 A) B) (IF (EQUAL (REMAINDER A B) (QUOTE 0)) (SUB1 (QUOTIENT A B)) (QUOTIENT A B))) NIL) (REWRITE-RULE QUOTIENT-ADD1 ((EQUAL (REMAINDER A B) (QUOTE 0))) (EQUAL (QUOTIENT (ADD1 A) B) (IF (EQUAL B (QUOTE 1)) (ADD1 (QUOTIENT A B)) (QUOTIENT A B))) NIL) (REWRITE-RULE QUOTIENT-ZERO ((ZEROP X)) (EQUAL (QUOTIENT Y X) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-OF-NON-NUMBER ((NOT (NUMBERP A))) (EQUAL (QUOTIENT A N) (QUOTIENT (QUOTE 0) N)) NIL) (REWRITE-RULE QUOTIENT-NOOP ((EQUAL B (QUOTE 1))) (EQUAL (QUOTIENT A B) (IF (NUMBERP A) A (QUOTE 0))) NIL)) TOTALP-LST ((QUOTIENT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA V-NZEROP-NAT-TO-V$HELP ((NUMBERP L) (NOT (EQUAL L (QUOTE 0))) (NUMBERP N) (NOT (EQUAL N (QUOTE 0))) (EQUAL (REMAINDER N (QUOTE 2)) (QUOTE 0)) (LESSP N (EXP (QUOTE 2) L))) (LESSP (QUOTIENT N (QUOTE 2)) (EXP (QUOTE 2) (SUB1 L))) (QUOTIENT N (QUOTE 2))) (LINEAR-LEMMA NOT-LESSP-QUOTIENT NIL (NOT (LESSP N (QUOTIENT N K))) (QUOTIENT N K)) (LINEAR-LEMMA QUOTIENT-STUFF ((NOT (EQUAL N (QUOTE 0))) (NUMBERP N)) (LESSP (QUOTIENT N (QUOTE 2)) N) (QUOTIENT N (QUOTE 2))) (LINEAR-LEMMA QUOTIENT-LESSP ((LESSP (QUOTE 1) BASE) (NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (LESSP (QUOTIENT N BASE) N) (QUOTIENT N BASE))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (QUOTE 0) (IF (NUMBERP J) (IF (LESSP I J) (QUOTE 0) (ADD1 (QUOTIENT (DIFFERENCE I J) J))) (QUOTE 0)))) LISP-CODE *1*QUOTIENT SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((QUOTIENT X Y) (REMAINDER X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TIMES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES 4 NIL NIL)) LEMMAS ((REWRITE-RULE TIMES-2 NIL (EQUAL (TIMES (QUOTE 2) X) (PLUS X X)) NIL) (REWRITE-RULE TIMES-COMMUTES NIL (EQUAL (TIMES A B) (TIMES B A)) ((A . B))) (REWRITE-RULE TIMES-ADD1-AGAIN NIL (EQUAL (TIMES A (ADD1 B)) (PLUS A (TIMES A B))) NIL) (REWRITE-RULE TIMES-1 NIL (EQUAL (TIMES (QUOTE 1) A) (IF (NUMBERP A) A (QUOTE 0))) NIL) (REWRITE-RULE TIMES-1 NIL (EQUAL (TIMES A (QUOTE 1)) (IF (NUMBERP A) A (QUOTE 0))) NIL) (REWRITE-RULE TIMES-1-ARG1 NIL (EQUAL (TIMES (QUOTE 1) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-QUOTIENT ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (EQUAL (REMAINDER X Y) (QUOTE 0))) (EQUAL (TIMES Y (QUOTIENT X Y)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-QUOTIENT ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (EQUAL (REMAINDER X Y) (QUOTE 0))) (EQUAL (TIMES (QUOTIENT X Y) Y) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-OVER-DIFFERENCE NIL (EQUAL (TIMES A (DIFFERENCE B C)) (DIFFERENCE (TIMES A B) (TIMES A C))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-OVER-DIFFERENCE NIL (EQUAL (TIMES (DIFFERENCE A B) C) (DIFFERENCE (TIMES A C) (TIMES B C))) NIL) (REWRITE-RULE ASSOCIATIVITY-OF-TIMES NIL (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) NIL) (REWRITE-RULE COMMUTATIVITY2-OF-TIMES NIL (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z))) ((X . Y))) (REWRITE-RULE TIMES-DISTRIBUTES-OVER-PLUS NIL (EQUAL (TIMES (PLUS X Y) Z) (PLUS (TIMES X Z) (TIMES Y Z))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-OVER-PLUS NIL (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) NIL) (REWRITE-RULE COMMUTATIVITY-OF-TIMES NIL (EQUAL (TIMES Y X) (TIMES X Y)) ((Y . X))) (REWRITE-RULE TIMES-ADD1 NIL (EQUAL (TIMES X (ADD1 Y)) (IF (NUMBERP Y) (PLUS X (TIMES X Y)) (IF (NUMBERP X) X (QUOTE 0)))) NIL) (REWRITE-RULE TIMES-ZERO ((ZEROP Y)) (EQUAL (TIMES X Y) (QUOTE 0)) NIL)) TOTALP-LST ((TIMES . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (PLUS J (TIMES (SUB1 I) J)) (QUOTE 0)))) LISP-CODE *1*TIMES SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((SUB1 I) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*DIFFERENCE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE DIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((DIFFERENCE 4 NIL NIL)) LEMMAS ((REWRITE-RULE TREE-SIZE-LEMMAS ((LISTP TREE) (EQUAL SIZE (TREE-SIZE TREE))) (EQUAL (DIFFERENCE SIZE (TREE-SIZE (CDR TREE))) (TREE-SIZE (CAR TREE))) NIL) (REWRITE-RULE TREE-SIZE-LEMMAS ((LISTP TREE) (EQUAL SIZE (TREE-SIZE TREE))) (EQUAL (DIFFERENCE SIZE (TREE-SIZE (CAR TREE))) (TREE-SIZE (CDR TREE))) NIL) (REWRITE-RULE LESSP-DIFFERENCE=0 ((NOT (LESSP Y X))) (EQUAL (DIFFERENCE X Y) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-ADD1-ADD1 NIL (EQUAL (DIFFERENCE (ADD1 X) (ADD1 Y)) (DIFFERENCE X Y)) NIL) (REWRITE-RULE DIFFERENCE-0 ((ZEROP Z)) (EQUAL (DIFFERENCE X Z) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE OUR-DIFFERENCE-X-X NIL (EQUAL (DIFFERENCE X X) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-X-1 NIL (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X)) NIL) (REWRITE-RULE DIFFERENCE-IDIFFERENCE ((NUMBERP X) (NUMBERP Y) (NOT (LESSP Y X))) (EQUAL (DIFFERENCE Y X) (IDIFFERENCE Y X)) NIL) (REWRITE-RULE DIFFERENCE-X-X NIL (EQUAL (DIFFERENCE X X) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE-ARG2 NIL (EQUAL (DIFFERENCE A (DIFFERENCE B C)) (IF (LESSP B C) (IF (NUMBERP A) A (QUOTE 0)) (DIFFERENCE (PLUS A C) B))) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE-ARG1 NIL (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) NIL) (REWRITE-RULE DIFFERENCE-SUB1-ARG2 NIL (EQUAL (DIFFERENCE A (SUB1 B)) (IF (EQUAL B (QUOTE 0)) (IF (NUMBERP A) A (QUOTE 0)) (IF (NUMBERP B) (IF (LESSP A B) (QUOTE 0) (ADD1 (DIFFERENCE A B))) (IF (NUMBERP A) A (QUOTE 0))))) NIL) (REWRITE-RULE DIFFERENCE-ADD1-ARG2 NIL (EQUAL (DIFFERENCE A (ADD1 B)) (IF (LESSP B A) (SUB1 (DIFFERENCE A B)) (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-LEQ-ARG1 ((NOT (LESSP B A))) (EQUAL (DIFFERENCE A B) (QUOTE 0)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS NIL *1*CANCEL-DIFFERENCE-PLUS NIL) (REWRITE-RULE DIFFERENCE-LESSP-ARG1 ((LESSP A B)) (EQUAL (DIFFERENCE A B) (QUOTE 0)) NIL) (REWRITE-RULE DIFF-DIFF-DIFF ((NOT (LESSP A B)) (NOT (LESSP C D))) (EQUAL (DIFFERENCE (DIFFERENCE A B) (DIFFERENCE C D)) (DIFFERENCE (PLUS A D) (PLUS B C))) NIL) (REWRITE-RULE DIFF-DIFF-ARG2 NIL (EQUAL (DIFFERENCE A (DIFFERENCE B C)) (IF (LESSP B C) (IF (NUMBERP A) A (QUOTE 0)) (DIFFERENCE (PLUS A C) B))) NIL) (REWRITE-RULE DIFF-DIFF-ARG1 NIL (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) NIL) (REWRITE-RULE DIFF-SUB1-ARG2 NIL (EQUAL (DIFFERENCE A (SUB1 B)) (IF (EQUAL B (QUOTE 0)) (IF (NUMBERP A) A (QUOTE 0)) (IF (NUMBERP B) (IF (LESSP A B) (QUOTE 0) (ADD1 (DIFFERENCE A B))) (IF (NUMBERP A) A (QUOTE 0))))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-PLUS-CANCELLATION-HACK NIL (EQUAL (DIFFERENCE (PLUS W (PLUS X A)) (PLUS Y (PLUS Z A))) (DIFFERENCE (PLUS W X) (PLUS Y Z))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS Y X) (PLUS Z X)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS X Y) (PLUS Z X)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS Y X) (PLUS X Z)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS Y X) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCELLATION NIL (EQUAL (DIFFERENCE (PLUS X Y) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL)) TOTALP-LST ((DIFFERENCE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) I (IF (NUMBERP J) (DIFFERENCE (SUB1 I) (SUB1 J)) I)) (QUOTE 0)))) LISP-CODE *1*DIFFERENCE SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (NOT (ZEROP J))) (((SUB1 I) (SUB1 J))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP)) (JUSTIFICATION (J) (COUNT J) LESSP (ZERO ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE DIFFERENCE-ELIM ((NUMBERP Y) (NOT (LESSP Y X))) (EQUAL (PLUS X (DIFFERENCE Y X)) Y) NIL) ELIMINATE-DESTRUCTORS-DESTS ((DIFFERENCE Y X)) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-NNEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 4 NIL)) LEMMAS ((REWRITE-RULE NEGATIVE-GUTS-NNEGATIVEP ((NOT (NEGATIVEP X))) (EQUAL (NEGATIVE-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE NEGATIVE-GUTS-MINUS NIL (EQUAL (NEGATIVE-GUTS (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) NEGATIVE-GUTS (QUOTE 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVE-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE NEGATIVE-GUTS-ELIM ((NEGATIVEP X)) (EQUAL (MINUS (NEGATIVE-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((NEGATIVE-GUTS X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 3 NIL)) LEMMAS ((REWRITE-RULE NEGATIVEP-IDIFFERENCE-ON-NUMBERPS ((NUMBERP A) (NUMBERP B)) (EQUAL (NEGATIVEP (IDIFFERENCE A B)) (LESSP A B)) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 32 NIL)) LEMMAS ((REWRITE-RULE MINUS-INEG ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (MINUS X) (INEG X)) NIL) (REWRITE-RULE MINUS-NEGATIVE-GUTS NIL (EQUAL (MINUS (NEGATIVE-GUTS X)) (IF (NEGATIVEP X) X (QUOTE (*1*QUOTE MINUS 0)))) NIL) (REWRITE-RULE NEGATIVE-GUTS-TYPE-RESTRICTION ((NOT (NUMBERP NEGATIVE-GUTS))) (EQUAL (MINUS NEGATIVE-GUTS) (QUOTE (*1*QUOTE MINUS 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*MINUS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NLISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((NLISTP 3 NIL)) TOTALP-LST ((NLISTP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NLISTP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CDR-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-CAR-CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE CHIP$VALUE ((CHIP& NETLIST) (MACHINE-STATE-INVARIANT (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL)))))))))))))) (PROPERP PC-REG-IN) (EQUAL (LENGTH PC-REG-IN) (QUOTE 4)) (PROPERP DATA-IN) (EQUAL (LENGTH DATA-IN) (QUOTE 32))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (QUOTE CHIP) (CONS CLK (CONS TI (CONS TE (CONS DTACK- (CONS RESET- (CONS HOLD- (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND PC-REG-IN DATA-IN))))))))) (CONS (CONS REGS-REGS (CONS REGS-WE (CONS REGS-DATA (CONS REGS-ADDR (QUOTE NIL))))) (CONS FLAGS (CONS A-REG (CONS B-REG (CONS I-REG (CONS DATA-OUT (CONS ADDR-OUT (CONS LAST-RESET- (CONS LAST-DTACK- (CONS LAST-HOLD- (CONS LAST-PC-REG (CONS CNTL-STATE (QUOTE NIL))))))))))))) NETLIST)) (CONS (F-BUF (NTH (QUOTE 3) (V-THREEFIX LAST-PC-REG))) (CONS (F-BUF (NTH (QUOTE 2) (F$CORE-ALU (ALU-C (V-THREEFIX CNTL-STATE)) (V-THREEFIX A-REG) (V-THREEFIX B-REG) (ALU-ZERO (V-THREEFIX CNTL-STATE)) (ALU-MPG (V-THREEFIX CNTL-STATE)) (ALU-OP (V-THREEFIX CNTL-STATE)) (MAKE-TREE (QUOTE 32))))) (CONS (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (CONS (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (CONS (FT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (STROBE- (V-THREEFIX CNTL-STATE))) (APPEND5 (VFT-BUF (F-BUF (HDACK- (V-THREEFIX CNTL-STATE))) (V-THREEFIX ADDR-OUT)) (VFT-BUF (F-NOT (F-BUF (RW- (V-THREEFIX CNTL-STATE)))) (V-THREEFIX DATA-OUT)) (V-THREEFIX FLAGS) (V-THREEFIX (STATE (V-THREEFIX CNTL-STATE))) (V-THREEFIX (SUBRANGE (V-THREEFIX I-REG) (QUOTE 28) (QUOTE 31)))))))))) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS$VALUE ((TTL-BIDIRECT-PADS& NETLIST N) (EQUAL (LENGTH DATA) N) (PROPERP DATA) (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS)) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-BIDIRECT-PADS) N) (CONS ENABLE (CONS PI (APPEND DATA INPUTS))) STATE-BINDINGS NETLIST)) (APPEND (VFT-BUF (F-NOT ENABLE) INPUTS) (V-THREEFIX (V-WIRE DATA (VFT-BUF (F-NOT ENABLE) INPUTS))))) NIL) (REWRITE-RULE TTL-INPUT-PADS$VALUE ((TTL-INPUT-PADS& NETLIST N) (EQUAL (LENGTH INPUTS) N) (PROPERP INPUTS)) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (INDEX (QUOTE TTL-INPUT-PADS) N) (CONS PI INPUTS) STATE NETLIST)) (V-THREEFIX INPUTS)) NIL) (REWRITE-RULE REGFILE$VALUE ((REGFILE& NETLIST) (EQUAL TEST-REGFILE- (QUOTE *1*TRUE)) (EQUAL DISABLE-REGFILE- (QUOTE *1*TRUE)) (MEMORY-PROPERP (QUOTE 4) (QUOTE 32) MEM) (PROPERP LAST-DATA) (EQUAL (LENGTH LAST-DATA) (QUOTE 32)) (PROPERP ADDRESS) (EQUAL (LENGTH ADDRESS) (QUOTE 4)) (PROPERP LAST-ADDRESS) (EQUAL (LENGTH LAST-ADDRESS) (QUOTE 4))) (EQUAL (CDR (DUAL-EVAL (QUOTE 0) (QUOTE REGFILE) (CONS CLK (CONS TE (CONS TI (CONS WE (CONS DISABLE-REGFILE- (CONS TEST-REGFILE- (APPEND ADDRESS DATA))))))) (CONS MEM (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))) NETLIST)) (F$READ-REGS ADDRESS (CONS MEM (CONS LAST-WE (CONS LAST-DATA (CONS LAST-ADDRESS (QUOTE NIL))))))) NIL) (REWRITE-RULE TV-ALU-HELP-V-BUF-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-BUF A)) NIL) (REWRITE-RULE TV-ALU-HELP-V-NOT-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-NOT A)) NIL) (REWRITE-RULE TV-ALU-HELP-V-XOR-WORKS ((EQUAL MPG (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-XOR A B)) NIL) (REWRITE-RULE TV-ALU-HELP-V-OR-WORKS ((EQUAL MPG (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-OR A B)) NIL) (REWRITE-RULE TV-ALU-HELP-V-AND-WORKS ((BV2P A B) (EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL MPG (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))) (EQUAL (CDR (CDR (TV-ALU-HELP C A B MPG TREE))) (V-AND A B)) NIL) (REWRITE-RULE TV-DEC-PASS-NG-WORKS-1 ((BVP A) (EQUAL (LENGTH A) (TREE-SIZE TREE)) MAKE-G) (EQUAL (CDR (TV-DEC-PASS-NG C A TREE MAKE-G)) (IF C (V-BUF A) (V-DEC A))) NIL) (REWRITE-RULE TV-DEC-PASS-WORKS ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (BVP A)) (EQUAL (CDR (TV-DEC-PASS C A TREE)) (IF C (V-BUF A) (V-DEC A))) NIL) (REWRITE-RULE CDDR-TV-ADDER-AS-SUM ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CDR (CDR (TV-ADDER C A B TREE))) (V-SUM C A B)) NIL) (REWRITE-RULE CDR-NTHCDR NIL (EQUAL (CDR (NTHCDR N L)) (NTHCDR (ADD1 N) L)) NIL) (REWRITE-RULE CDR-RESTN ((LESSP N (LENGTH V))) (EQUAL (CDR (RESTN N V)) (RESTN (ADD1 N) V)) NIL) (REWRITE-RULE CAR-CDR-IF-CONS NIL (EQUAL (CDR (IF X (CONS A B) (CONS C D))) (IF X B D)) NIL) (REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0))) NIL) (REWRITE-RULE CDR-NLISTP ((NOT (LISTP X))) (EQUAL (CDR X) (QUOTE 0)) NIL) (REWRITE-RULE CDR-CONS NIL (EQUAL (CDR (CONS CAR CDR)) CDR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CDR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CDR X) (CAR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CAR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE XS-SUFFICE-FOR-RESET-CHIP-FINAL-STATE-FOR-ANY-UNKNOWN-STATE-BETTER ((NEW-MACHINE-STATE-INVARIANT STATE)) (EQUAL (CAR (CDR (NTH (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (SIMULATE (QUOTE CHIP) (RESET-SEQUENCE-CHIP-1) STATE (CHIP$NETLIST))))) (INITIALIZED-MACHINE-STATE)) NIL) (REWRITE-RULE CHIP-SYSTEM*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP-SYSTEM*)))))) (QUOTE (FM9001 MEM))) NIL) (REWRITE-RULE CHIP-SYSTEM*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CHIP-SYSTEM*))))) (CONS (CONS (QUOTE FM9001) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PULLUP-RW- (RW-BUS) PULLUP (RW-))) (CONS (QUOTE (PULLUP-STROBE- (STROBE-BUS) PULLUP (STROBE-))) (CONS (CONS (QUOTE ADDRESS) (CONS (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (CONS (CONS (QUOTE MEM) (CONS (CONS (QUOTE DTACK-) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE MEM-32X32) (CONS (CONS (QUOTE RW-BUS) (CONS (QUOTE STROBE-BUS) (APPEND (INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-WIRE) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-WIRE 32)) (CONS (APPEND (INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA) (CONS (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS (INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32)) (QUOTE NIL))))) (QUOTE NIL))))))))) NIL) (REWRITE-RULE CHIP-SYSTEM*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CHIP-SYSTEM*)))) (QUOTE NIL)) NIL) (REWRITE-RULE CHIP-SYSTEM*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CHIP-SYSTEM*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)))))))))) NIL) (REWRITE-RULE CHIP-SYSTEM*$DESTRUCTURE NIL (EQUAL (CAR (CHIP-SYSTEM*)) (QUOTE CHIP-SYSTEM)) NIL) (REWRITE-RULE CHIP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP*)))))) (QUOTE BODY)) NIL) (REWRITE-RULE CHIP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CHIP*))))) (CONS (CONS (QUOTE BODY) (CONS (CONS (QUOTE I-TO) (CONS (QUOTE I-TIMING) (CONS (QUOTE I-HDACK-) (CONS (QUOTE I-EN-ADDR-OUT-) (CONS (QUOTE I-RW-) (CONS (QUOTE I-STROBE-) (APPEND (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE I-CLK) (CONS (QUOTE I-TI) (CONS (QUOTE I-TE) (CONS (QUOTE I-DTACK-) (CONS (QUOTE I-RESET-) (CONS (QUOTE I-HOLD-) (CONS (QUOTE I-DISABLE-REGFILE-) (CONS (QUOTE I-TEST-REGFILE-) (APPEND (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PLUS-5 (B-TRUE-P) VDD-PARAMETRIC NIL)) (CONS (QUOTE (CLOCK-PAD (I-CLK CLK-PO) TTL-CLK-INPUT (CLK B-TRUE-P))) (CONS (QUOTE (TI-PAD (I-TI TI-PO) TTL-INPUT (TI B-TRUE-P))) (CONS (QUOTE (TE-PAD (I-TE TE-PO) TTL-INPUT (TE TI-PO))) (CONS (QUOTE (DTACK-PAD (I-DTACK- DTACK-PO) TTL-INPUT (DTACK- TE-PO))) (CONS (QUOTE (RESET-PAD (I-RESET- RESET-PO) TTL-INPUT (RESET- DTACK-PO))) (CONS (QUOTE (HOLD-PAD (I-HOLD- HOLD-PO) TTL-INPUT (HOLD- RESET-PO))) (CONS (QUOTE (DISABLE-REGFILE-PAD (I-DISABLE-REGFILE- DISABLE-REGFILE-PO) TTL-INPUT (DISABLE-REGFILE- HOLD-PO))) (CONS (QUOTE (TEST-REGFILE-PAD (I-TEST-REGFILE- TEST-REGFILE-PO) TTL-INPUT (TEST-REGFILE- DISABLE-REGFILE-PO))) (CONS (CONS (QUOTE DATA-BUS-PADS) (CONS (CONS (QUOTE DATA-BUS-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE (*1*QUOTE INDEX TTL-BIDIRECT-PADS 32)) (CONS (CONS (QUOTE I-RW-) (CONS (QUOTE TEST-REGFILE-PO) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE PC-REG-PADS) (CONS (CONS (QUOTE PC-REG-PO) (INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX TTL-INPUT-PADS 4)) (CONS (CONS (QUOTE DATA-BUS-PO) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MONITOR (I-PO) PROCMON (PC-REG-PO CLK-PO B-TRUE-P B-TRUE-P))) (CONS (QUOTE (PO-PAD (PO) TTL-OUTPUT-PARAMETRIC (I-PO))) (CONS (QUOTE (TO-PAD (TO) TTL-OUTPUT (I-TO))) (CONS (QUOTE (TIMING-PAD (TIMING) TTL-OUTPUT-FAST (I-TIMING))) (CONS (QUOTE (HDACK-PAD (HDACK-) TTL-OUTPUT-FAST (I-HDACK-))) (CONS (QUOTE (RW-PAD (RW-) TTL-TRI-OUTPUT-FAST (I-RW- I-EN-ADDR-OUT-))) (CONS (QUOTE (STROBE-PAD (STROBE-) TTL-TRI-OUTPUT-FAST (I-STROBE- I-EN-ADDR-OUT-))) (CONS (CONS (QUOTE ADDR-OUT-PADS) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX TTL-TRI-OUTPUT-PADS 32)) (CONS (CONS (QUOTE I-EN-ADDR-OUT-) (INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (CONS (QUOTE FLAGS-PADS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4)) (QUOTE NIL))))) (CONS (CONS (QUOTE CNTL-STATE-PADS) (CONS (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 5)) (CONS (INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5)) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG-PADS) (CONS (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS (INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4)) (QUOTE NIL))))) (QUOTE NIL))))))))))))))))))))))))) NIL) (REWRITE-RULE CHIP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CHIP*)))) (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4))))))))))))) NIL) (REWRITE-RULE CHIP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CHIP*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)))))))))))) NIL) (REWRITE-RULE CHIP*$DESTRUCTURE NIL (EQUAL (CAR (CHIP*)) (QUOTE CHIP)) NIL) (REWRITE-RULE CHIP-MODULE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (CHIP-MODULE*)))))) (QUOTE (REGS CVNZ-FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET-LATCH DTACK-LATCH HOLD-LATCH PC-REG CNTL-STATE))) NIL) (REWRITE-RULE CHIP-MODULE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CHIP-MODULE*))))) (CONS (CONS (QUOTE CNTL-STATE) (CONS (CONS (QUOTE RW-SIG-) (CONS (QUOTE STROBE-) (CONS (QUOTE HDACK-) (CONS (QUOTE WE-REGS) (CONS (QUOTE WE-A-REG) (CONS (QUOTE WE-B-REG) (CONS (QUOTE WE-I-REG) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE WE-HOLD-) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE DATA-IN-SELECT) (CONS (QUOTE DEC-ADDR-OUT) (CONS (QUOTE SELECT-IMMEDIATE) (CONS (QUOTE ALU-C) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)))))))))))))))))))))) (CONS (QUOTE (*1*QUOTE INDEX REG 40)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE TI) (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40))))) (QUOTE NIL))))) (CONS (CONS (QUOTE REGS) (CONS (CONS (QUOTE REGFILE-TO) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX ALU-MPG 6)) (CONS (QUOTE WE-REGS) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVNZ-FLAGS) (CONS (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE REGFILE-TO) (APPEND (INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE A-REG) (CONS (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-A-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX FLAGS 3)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE B-REG) (CONS (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-B-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX A-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG) (CONS (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-I-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX B-REG 31)) (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-OUT) (CONS (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX I-REG 31)) (BV (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE ADDR-OUT) (CONS (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX DATA-OUT 31)) (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (RESET-LATCH (LAST-RESET- LAST-RESET-INV) FD1S (RESET- CLK (*1*QUOTE INDEX ADDR-OUT 31) TE-SIG))) (CONS (QUOTE (DTACK--OR (DTACK--OR-STROBE-) B-OR (STROBE- DTACK-))) (CONS (QUOTE (DTACK-LATCH (LAST-DTACK- LAST-DTACK-INV) FD1S (DTACK--OR-STROBE- CLK LAST-RESET- TE-SIG))) (CONS (QUOTE (HOLD-LATCH (LAST-HOLD- LAST-HOLD-INV) FD1SLP (HOLD- CLK WE-HOLD- LAST-DTACK- TE-SIG))) (CONS (CONS (QUOTE PC-REG) (CONS (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE LAST-HOLD-) (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE IMMEDIATE-PASS) (CONS (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (A-IMMEDIATE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DEC-PASS) (CONS (INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX DEC-PASS 32)) (CONS (CONS (QUOTE DEC-ADDR-OUT) (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CNTL (ABI-CNTL) B-NAND (DATA-IN-SELECT LAST-DTACK-INV))) (CONS (CONS (QUOTE DATA-IN-MUX) (CONS (INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ABI-CNTL) (APPEND (INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (CONS (CONS (QUOTE ALU) (CONS (INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)) (CONS (INDEX (QUOTE CORE-ALU) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE ALU-C) (APPEND (INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE ALU-ZERO) (APPEND (INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE NEXT-STATE) (CONS (INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40)) (CONS (QUOTE NEXT-CNTL-STATE) (CONS (CONS (QUOTE LAST-RESET-) (CONS (QUOTE LAST-DTACK-) (CONS (QUOTE LAST-HOLD-) (CONS (QUOTE RW-SIG-) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (APPEND (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))))))))) (QUOTE NIL))))) (QUOTE ((TE-BUFFER (TE-SIG) B-BUF-PWR (TE)) (RW-BUFFER (RW-) B-BUF (RW-SIG-)) (EN-ADDR-OUT-GATE (EN-ADDR-OUT-) B-NOT (HDACK-)) (TIMING-GATE (TIMING) ID ((*1*QUOTE INDEX ALU-BUS 2))) (SCANOUT (TO) ID ((*1*QUOTE INDEX PC-REG 3))))))))))))))))))))))))) NIL) (REWRITE-RULE CHIP-MODULE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CHIP-MODULE*)))) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE EN-ADDR-OUT-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (APPEND (INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32)) (APPEND (INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (SUBRANGE (INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32)) (QUOTE 28) (QUOTE 31))))))))))))) NIL) (REWRITE-RULE CHIP-MODULE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CHIP-MODULE*))) (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))))))))))) NIL) (REWRITE-RULE CHIP-MODULE*$DESTRUCTURE NIL (EQUAL (CAR (CHIP-MODULE*)) (QUOTE CHIP-MODULE)) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-BIDIRECT-PADS* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TTL-BIDIRECT-PADS* N))))) (IF (LESSP N (QUOTE 8)) (CONS (QUOTE (ENABLE-BUF (BUF-ENABLE) B-BUF (ENABLE))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI))) (CONS (QUOTE (ENABLE-BUF (BUF-ENABLE) B-BUF-PWR (ENABLE))) (TTL-BIDIRECT-PADS-BODY (QUOTE 0) N (QUOTE PI))))) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TTL-BIDIRECT-PADS* N)))) (CONS (INDEX (QUOTE PO) (SUB1 N)) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE OUT) (QUOTE 0) N)))) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TTL-BIDIRECT-PADS* N))) (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (APPEND (INDICES (QUOTE DATA) (QUOTE 0) N) (INDICES (QUOTE IN) (QUOTE 0) N))))) NIL) (REWRITE-RULE TTL-BIDIRECT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (TTL-BIDIRECT-PADS* N)) (INDEX (QUOTE TTL-BIDIRECT-PADS) N)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N))))) (IF (LESSP N (QUOTE 8)) (CONS (QUOTE (ENABLE-BUFFER (ENABLE-BUF) B-BUF (ENABLE))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N)) (CONS (QUOTE (ENABLE-BUFFER (ENABLE-BUF) B-BUF-PWR (ENABLE))) (TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) N)))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TTL-TRI-OUTPUT-PADS* N)))) (INDICES (QUOTE OUT) (QUOTE 0) N)) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TTL-TRI-OUTPUT-PADS* N))) (CONS (QUOTE ENABLE) (INDICES (QUOTE IN) (QUOTE 0) N))) NIL) (REWRITE-RULE TTL-TRI-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (TTL-TRI-OUTPUT-PADS* N)) (INDEX (QUOTE TTL-TRI-OUTPUT-PADS) N)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-OUTPUT-PADS* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TTL-OUTPUT-PADS* N))))) (TTL-OUTPUT-PADS-BODY (QUOTE 0) N)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TTL-OUTPUT-PADS* N)))) (INDICES (QUOTE OUT) (QUOTE 0) N)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TTL-OUTPUT-PADS* N))) (INDICES (QUOTE IN) (QUOTE 0) N)) NIL) (REWRITE-RULE TTL-OUTPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (TTL-OUTPUT-PADS* N)) (INDEX (QUOTE TTL-OUTPUT-PADS) N)) NIL) (REWRITE-RULE TTL-INPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TTL-INPUT-PADS* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TTL-INPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TTL-INPUT-PADS* N))))) (TTL-INPUT-PADS-BODY (QUOTE 0) N (QUOTE PI))) NIL) (REWRITE-RULE TTL-INPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TTL-INPUT-PADS* N)))) (CONS (INDEX (QUOTE PO) (SUB1 N)) (INDICES (QUOTE B-OUT) (QUOTE 0) N))) NIL) (REWRITE-RULE TTL-INPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TTL-INPUT-PADS* N))) (CONS (QUOTE PI) (INDICES (QUOTE IN) (QUOTE 0) N))) NIL) (REWRITE-RULE TTL-INPUT-PADS*$DESTRUCTURE NIL (EQUAL (CAR (TTL-INPUT-PADS* N)) (INDEX (QUOTE TTL-INPUT-PADS) N)) NIL) (REWRITE-RULE EXTEND-IMMEDIATE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (EXTEND-IMMEDIATE*)))))) (QUOTE NIL)) NIL) (REWRITE-RULE EXTEND-IMMEDIATE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (EXTEND-IMMEDIATE*))))) (CONS (QUOTE (BUFFER (SIGN-BIT) B-BUF-PWR ((*1*QUOTE INDEX IMMEDIATE 8)))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (MAKE-LIST (QUOTE 23) (QUOTE SIGN-BIT))) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE EXTEND-IMMEDIATE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (EXTEND-IMMEDIATE*)))) (INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32))) NIL) (REWRITE-RULE EXTEND-IMMEDIATE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (EXTEND-IMMEDIATE*))) (CONS (QUOTE SELECT-IMMEDIATE) (APPEND (INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9)) (INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32))))) NIL) (REWRITE-RULE EXTEND-IMMEDIATE*$DESTRUCTURE NIL (EQUAL (CAR (EXTEND-IMMEDIATE*)) (QUOTE EXTEND-IMMEDIATE)) NIL) (REWRITE-RULE FLAGS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (FLAGS*)))))) (QUOTE (Z-LATCH N-LATCH V-LATCH C-LATCH))) NIL) (REWRITE-RULE FLAGS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (FLAGS*))))) (CONS (CONS (QUOTE Z-LATCH) (CONS (QUOTE (Z ZB)) (CONS (QUOTE FD1SLP) (CONS (CONS (ZB (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (Z-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (TI TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE N-LATCH) (CONS (QUOTE (N NB)) (CONS (QUOTE FD1SLP) (CONS (CONS (QUOTE (*1*QUOTE INDEX CVZBV 34)) (CONS (QUOTE CLK) (CONS (N-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (Z TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE V-LATCH) (CONS (QUOTE (V VB)) (CONS (QUOTE FD1SLP) (CONS (CONS (V (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (V-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (N TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE C-LATCH) (CONS (QUOTE (C CB)) (CONS (QUOTE FD1SLP) (CONS (CONS (C (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))) (CONS (QUOTE CLK) (CONS (C-SET (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (V TE))))) (QUOTE NIL))))) (QUOTE NIL)))))) NIL) (REWRITE-RULE FLAGS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (FLAGS*)))) (QUOTE (Z N V C))) NIL) (REWRITE-RULE FLAGS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (FLAGS*))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (APPEND (INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))))))) NIL) (REWRITE-RULE FLAGS*$DESTRUCTURE NIL (EQUAL (CAR (FLAGS*)) (QUOTE FLAGS)) NIL) (REWRITE-RULE REGFILE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (REGFILE*)))))) (QUOTE (RAM WE-LATCH DATA-LATCH ADDRESS-LATCH))) NIL) (REWRITE-RULE REGFILE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (REGFILE*))))) (CONS (QUOTE (WE-LATCH (WE-DP-RAM WE-DP-RAM-) FD1S (WE CLK TI TE))) (CONS (CONS (QUOTE ADDRESS-LATCH) (CONS (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE WE-DP-RAM) (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-LATCH) (CONS (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE (*1*QUOTE INDEX ADDRESS-DP-RAM 3)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))) (QUOTE NIL))))) (CONS (QUOTE (REG-EN-CIRCUIT (WE-) RAM-ENABLE-CIRCUIT (CLK TEST-REGFILE- DISABLE-REGFILE- WE-DP-RAM))) (CONS (CONS (QUOTE RAM) (CONS (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)) (CONS (QUOTE DP-RAM-16X32) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (APPEND (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4)) (CONS (QUOTE WE-) (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32))))) (QUOTE NIL))))) (CONS (CONS (QUOTE COMPARE) (CONS (QUOTE (READ-EQUAL-WRITE)) (CONS (QUOTE (*1*QUOTE INDEX V-EQUAL 4)) (CONS (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4))) (QUOTE NIL))))) (CONS (QUOTE (MUX-CONTROL (S) B-AND3 (WE-DP-RAM READ-EQUAL-WRITE TEST-REGFILE-))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER (MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE S) (APPEND (INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32)) (INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32)))) (QUOTE NIL))))) (QUOTE ((SCANOUT (TO) ID ((*1*QUOTE INDEX DATA-DP-RAM 31)))))))))))))) NIL) (REWRITE-RULE REGFILE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (REGFILE*)))) (CONS (QUOTE TO) (INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)))) NIL) (REWRITE-RULE REGFILE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (REGFILE*))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (CONS (QUOTE WE) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (APPEND (INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4)) (INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))))))) NIL) (REWRITE-RULE REGFILE*$DESTRUCTURE NIL (EQUAL (CAR (REGFILE*)) (QUOTE REGFILE)) NIL) (REWRITE-RULE CORE-ALU*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (CORE-ALU* TREE)))))) (QUOTE NIL)) NIL) (REWRITE-RULE CORE-ALU*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CORE-ALU* TREE))))) (CONS (CONS (QUOTE M-ALU) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)))) (CONS (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (CONS (QUOTE (M-ALU-CARRY (ALU-CARRY) T-CARRY (C P G))) (CONS (QUOTE (M-CARRY-OUT-HELP (CARRY) CARRY-OUT-HELP ((*1*QUOTE INDEX A 0) ALU-CARRY ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))) (CONS (CONS (QUOTE M-OVERFLOW-HELP) (CONS (QUOTE (OVERFLOW)) (CONS (QUOTE OVERFLOW-HELP) (CONS (CONS (INDEX (QUOTE ALU-OUT) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (CONS (INDEX (QUOTE B) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-SHIFT) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE C) (APPEND (INDICES (QUOTE ALU-OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE A) (SUB1 (TREE-SIZE TREE))) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-ZEROP) (CONS (QUOTE (ZEROP)) (CONS (INDEX (QUOTE FAST-ZERO) (TREE-SIZE TREE)) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL)))))))) NIL) (REWRITE-RULE CORE-ALU*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CORE-ALU* TREE)))) (CONS (QUOTE CARRY) (CONS (QUOTE OVERFLOW) (CONS (QUOTE ZEROP) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)))))) NIL) (REWRITE-RULE CORE-ALU*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CORE-ALU* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (CONS (QUOTE ZERO) (APPEND (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)) (INDICES (QUOTE OP) (QUOTE 0) (QUOTE 4)))))))) NIL) (REWRITE-RULE CORE-ALU*$DESTRUCTURE NIL (EQUAL (CAR (CORE-ALU* TREE)) (INDEX (QUOTE CORE-ALU) (TREE-NUMBER TREE))) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-SHIFT-OR-BUF* TREE)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TV-SHIFT-OR-BUF* TREE))))) (CONS (QUOTE (CNTL (CTL SI) SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3))) (CONS (CONS (QUOTE MUX) (CONS (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE)) (CONS (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE)) (CONS (CONS (QUOTE CTL) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (V-SHIFT-RIGHT-NAMES (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE SI)))) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TV-SHIFT-OR-BUF* TREE)))) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TV-SHIFT-OR-BUF* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE (AN ZERO OP0 OP1 OP2 OP3))))) NIL) (REWRITE-RULE TV-SHIFT-OR-BUF*$DESTRUCTURE NIL (EQUAL (CAR (TV-SHIFT-OR-BUF* TREE)) (INDEX (QUOTE TV-SHIFT-OR-BUF) (TREE-NUMBER TREE))) NIL) (REWRITE-RULE SHIFT-OR-BUF-CNTL$VALUE-ZERO ((SHIFT-OR-BUF-CNTL& NETLIST)) (EQUAL (CAR (DUAL-EVAL (QUOTE 0) (QUOTE SHIFT-OR-BUF-CNTL) (CONS C (CONS AN (CONS (QUOTE *1*TRUE) (CONS OP0 (CONS OP1 (CONS OP2 (CONS OP3 (QUOTE NIL)))))))) STATE NETLIST)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE TV-ALU-HELP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-ALU-HELP* TREE)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TV-ALU-HELP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TV-ALU-HELP* TREE))))) (TV-ALU-HELP-BODY TREE)) NIL) (REWRITE-RULE TV-ALU-HELP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TV-ALU-HELP* TREE)))) (CONS (QUOTE P) (CONS (QUOTE G) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))))) NIL) (REWRITE-RULE TV-ALU-HELP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TV-ALU-HELP* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (APPEND (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7)))))) NIL) (REWRITE-RULE TV-ALU-HELP*$DESTRUCTURE NIL (EQUAL (CAR (TV-ALU-HELP* TREE)) (INDEX (QUOTE TV-ALU-HELP) (TREE-NUMBER TREE))) NIL) (REWRITE-RULE WE-REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (WE-REG* N)))))) (INDICES (QUOTE G) (QUOTE 0) N)) NIL) (REWRITE-RULE WE-REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (WE-REG* N))))) (IF (LESSP N (QUOTE 8)) (CONS (QUOTE (WE-BUFFER (WE-BUF) B-BUF (WE))) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF))))) (CONS (QUOTE (WE-BUFFER (WE-BUF) B-BUF-PWR (WE))) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF-PWR (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (WE-REG-BODY (QUOTE 0) N (QUOTE TI-BUF))))))) NIL) (REWRITE-RULE WE-REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (WE-REG* N)))) (INDICES (QUOTE Q) (QUOTE 0) N)) NIL) (REWRITE-RULE WE-REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (WE-REG* N))) (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N)))))) NIL) (REWRITE-RULE WE-REG*$DESTRUCTURE NIL (EQUAL (CAR (WE-REG* N)) (INDEX (QUOTE WE-REG) N)) NIL) (REWRITE-RULE REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (REG* N)))))) (INDICES (QUOTE G) (QUOTE 0) N)) NIL) (REWRITE-RULE REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (REG* N))))) (IF (LESSP N (QUOTE 8)) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)))) (CONS (QUOTE (TE-BUFFER (TE-BUF) B-BUF-PWR (TE))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (REG-BODY (QUOTE 0) N (QUOTE TI-BUF) (QUOTE TE-BUF)))))) NIL) (REWRITE-RULE REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (REG* N)))) (INDICES (QUOTE Q) (QUOTE 0) N)) NIL) (REWRITE-RULE REG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (REG* N))) (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (INDICES (QUOTE D) (QUOTE 0) N))))) NIL) (REWRITE-RULE REG*$DESTRUCTURE NIL (EQUAL (CAR (REG* N)) (INDEX (QUOTE REG) N)) NIL) (REWRITE-RULE DEC-PASS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (DEC-PASS* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE DEC-PASS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (DEC-PASS* N))))) (CONS (QUOTE (M0 (CN) B-NOT (C))) (CONS (CONS (QUOTE M1) (CONS (INDICES (QUOTE Z) (QUOTE 0) N) (CONS (INDEX (QUOTE TV-DEC-PASS-NG) (TREE-NUMBER (MAKE-TREE N))) (CONS (CONS (QUOTE CN) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE DEC-PASS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (DEC-PASS* N)))) (INDICES (QUOTE Z) (QUOTE 0) N)) NIL) (REWRITE-RULE DEC-PASS*$DESTRUCTURE NIL (EQUAL (CAR (CDR (DEC-PASS* N))) (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) N))) NIL) (REWRITE-RULE DEC-PASS*$DESTRUCTURE NIL (EQUAL (CAR (DEC-PASS* N)) (INDEX (QUOTE DEC-PASS) N)) NIL) (REWRITE-RULE TV-DEC-PASS-NG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TV-DEC-PASS-NG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G))))) (TV-DEC-PASS-NG-BODY TREE MAKE-G)) NIL) (REWRITE-RULE TV-DEC-PASS-NG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TV-DEC-PASS-NG* TREE MAKE-G)))) (IF MAKE-G (CONS (QUOTE G) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE))) (INDICES (QUOTE Z) (QUOTE 0) (TREE-SIZE TREE)))) NIL) (REWRITE-RULE TV-DEC-PASS-NG*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TV-DEC-PASS-NG* TREE MAKE-G))) (CONS (QUOTE C) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)))) NIL) (REWRITE-RULE TV-DEC-PASS-NG*$DESTRUCTURE NIL (EQUAL (CAR (TV-DEC-PASS-NG* TREE MAKE-G)) (TV-DEC-PASS-NAME TREE MAKE-G)) NIL) (REWRITE-RULE V-EQUAL*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-EQUAL* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-EQUAL*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-EQUAL* N))))) (CONS (CONS (QUOTE G0) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (CONS (INDEX (QUOTE V-XOR) N) (CONS (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE G1) (CONS (QUOTE (EQUAL)) (CONS (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER (MAKE-TREE N))) (CONS (INDICES (QUOTE X) (QUOTE 0) N) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE V-EQUAL*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-EQUAL* N)))) (QUOTE (EQUAL))) NIL) (REWRITE-RULE V-EQUAL*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-EQUAL* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) NIL) (REWRITE-RULE V-EQUAL*$DESTRUCTURE NIL (EQUAL (CAR (V-EQUAL* N)) (INDEX (QUOTE V-EQUAL) N)) NIL) (REWRITE-RULE FAST-ZERO*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (FAST-ZERO* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE FAST-ZERO*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (FAST-ZERO* N))))) (CONS (CONS (QUOTE FRONT) (CONS (QUOTE (ZFRONT)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER (MAKE-TREE (SUB1 (SUB1 N))))) (CONS (FIRSTN (SUB1 (SUB1 N)) (INDICES (QUOTE A) (QUOTE 0) N)) (QUOTE NIL))))) (CONS (CONS (QUOTE RESULT) (CONS (QUOTE (Z)) (CONS (QUOTE B-NOR3) (CONS (CONS (QUOTE ZFRONT) (CONS (INDEX (QUOTE A) (SUB1 (SUB1 N))) (CONS (INDEX (QUOTE A) (SUB1 N)) (QUOTE NIL)))) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE FAST-ZERO*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (FAST-ZERO* N)))) (QUOTE (Z))) NIL) (REWRITE-RULE FAST-ZERO*$DESTRUCTURE NIL (EQUAL (CAR (CDR (FAST-ZERO* N))) (INDICES (QUOTE A) (QUOTE 0) N)) NIL) (REWRITE-RULE FAST-ZERO*$DESTRUCTURE NIL (EQUAL (CAR (FAST-ZERO* N)) (INDEX (QUOTE FAST-ZERO) N)) NIL) (REWRITE-RULE TV-ZEROP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-ZEROP* TREE)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TV-ZEROP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TV-ZEROP* TREE))))) (IF (EQUAL (REMAINDER (TREE-HEIGHT TREE) (QUOTE 2)) (QUOTE 1)) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT-)) (CONS (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE ((G1 (OUT) B-NOT (OUT-))))) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT)) (CONS (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (CONS (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE)) (QUOTE NIL))))) (QUOTE NIL)))) NIL) (REWRITE-RULE TV-ZEROP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TV-ZEROP* TREE)))) (QUOTE (OUT))) NIL) (REWRITE-RULE TV-ZEROP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TV-ZEROP* TREE))) (INDICES (QUOTE IN) (QUOTE 0) (TREE-SIZE TREE))) NIL) (REWRITE-RULE TV-ZEROP*$DESTRUCTURE NIL (EQUAL (CAR (TV-ZEROP* TREE)) (INDEX (QUOTE TV-ZEROP) (TREE-NUMBER TREE))) NIL) (REWRITE-RULE T-OR-NOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (T-OR-NOR* TREE PARITY)))))) (QUOTE NIL)) NIL) (REWRITE-RULE T-OR-NOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (T-OR-NOR* TREE PARITY))))) (T-OR-NOR-BODY TREE PARITY)) NIL) (REWRITE-RULE T-OR-NOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (T-OR-NOR* TREE PARITY)))) (QUOTE (OUT))) NIL) (REWRITE-RULE T-OR-NOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (T-OR-NOR* TREE PARITY))) (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE))) NIL) (REWRITE-RULE T-OR-NOR*$DESTRUCTURE NIL (EQUAL (CAR (T-OR-NOR* TREE PARITY)) (IF PARITY (INDEX (QUOTE T-NOR) (TREE-NUMBER TREE)) (INDEX (QUOTE T-OR) (TREE-NUMBER TREE)))) NIL) (REWRITE-RULE TV-IF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (TV-IF* TREE)))))) (QUOTE NIL)) NIL) (REWRITE-RULE TV-IF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (TV-IF* TREE))))) (TV-IF-BODY TREE)) NIL) (REWRITE-RULE TV-IF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (TV-IF* TREE)))) (INDICES (QUOTE OUT) (QUOTE 0) (TREE-SIZE TREE))) NIL) (REWRITE-RULE TV-IF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (TV-IF* TREE))) (CONS (QUOTE C) (APPEND (INDICES (QUOTE A) (QUOTE 0) (TREE-SIZE TREE)) (INDICES (QUOTE B) (QUOTE 0) (TREE-SIZE TREE))))) NIL) (REWRITE-RULE TV-IF*$DESTRUCTURE NIL (EQUAL (CAR (TV-IF* TREE)) (INDEX (QUOTE TV-IF) (TREE-NUMBER TREE))) NIL) (REWRITE-RULE CADR-TV-ADDER-AS-G ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CAR (CDR (TV-ADDER C A B TREE))) (V-GENERATE A B)) NIL) (REWRITE-RULE CAR-TV-ADDER-AS-P ((EQUAL (LENGTH A) (TREE-SIZE TREE)) (EQUAL (LENGTH B) (TREE-SIZE TREE))) (EQUAL (CAR (TV-ADDER C A B TREE)) (V-PROPAGATE A B)) NIL) (REWRITE-RULE BV-ADDER*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (BV-ADDER* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE BV-ADDER*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (BV-ADDER* N))))) (BV-ADDER-BODY (QUOTE 0) N)) NIL) (REWRITE-RULE BV-ADDER*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (BV-ADDER* N)))) (APPEND (INDICES (QUOTE SUM) (QUOTE 0) N) (CONS (INDEX (QUOTE CARRY) N) (QUOTE NIL)))) NIL) (REWRITE-RULE BV-ADDER*$DESTRUCTURE NIL (EQUAL (CAR (CDR (BV-ADDER* N))) (CONS (QUOTE (*1*QUOTE INDEX CARRY 0)) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N)))) NIL) (REWRITE-RULE BV-ADDER*$DESTRUCTURE NIL (EQUAL (CAR (BV-ADDER* N)) (INDEX (QUOTE BV-ADDER) N)) NIL) (REWRITE-RULE V-WIRE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-WIRE* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-WIRE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-WIRE* N))))) (V-WIRE$BODY (QUOTE 0) N)) NIL) (REWRITE-RULE V-WIRE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-WIRE* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) NIL) (REWRITE-RULE V-WIRE*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-WIRE* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) NIL) (REWRITE-RULE V-WIRE*$DESTRUCTURE NIL (EQUAL (CAR (V-WIRE* N)) (INDEX (QUOTE V-WIRE) N)) NIL) (REWRITE-RULE V-PULLUP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-PULLUP* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-PULLUP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-PULLUP* N))))) (V-PULLUP$BODY (QUOTE 0) N)) NIL) (REWRITE-RULE V-PULLUP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-PULLUP* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) NIL) (REWRITE-RULE V-PULLUP*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-PULLUP* N))) (INDICES (QUOTE A) (QUOTE 0) N)) NIL) (REWRITE-RULE V-PULLUP*$DESTRUCTURE NIL (EQUAL (CAR (V-PULLUP* N)) (INDEX (QUOTE V-PULLUP) N)) NIL) (REWRITE-RULE V-XOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-XOR* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-XOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-XOR* N))))) (V-XOR$BODY (QUOTE 0) N)) NIL) (REWRITE-RULE V-XOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-XOR* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) NIL) (REWRITE-RULE V-XOR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-XOR* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) NIL) (REWRITE-RULE V-XOR*$DESTRUCTURE NIL (EQUAL (CAR (V-XOR* N)) (INDEX (QUOTE V-XOR) N)) NIL) (REWRITE-RULE V-OR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-OR* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-OR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-OR* N))))) (V-OR$BODY (QUOTE 0) N)) NIL) (REWRITE-RULE V-OR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-OR* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) NIL) (REWRITE-RULE V-OR*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-OR* N))) (APPEND (INDICES (QUOTE A) (QUOTE 0) N) (INDICES (QUOTE B) (QUOTE 0) N))) NIL) (REWRITE-RULE V-OR*$DESTRUCTURE NIL (EQUAL (CAR (V-OR* N)) (INDEX (QUOTE V-OR) N)) NIL) (REWRITE-RULE V-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (CDR (V-BUF* N)))))) (QUOTE NIL)) NIL) (REWRITE-RULE V-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (CDR (V-BUF* N))))) (V-BUF$BODY (QUOTE 0) N)) NIL) (REWRITE-RULE V-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (CDR (V-BUF* N)))) (INDICES (QUOTE Y) (QUOTE 0) N)) NIL) (REWRITE-RULE V-BUF*$DESTRUCTURE NIL (EQUAL (CAR (CDR (V-BUF* N))) (INDICES (QUOTE A) (QUOTE 0) N)) NIL) (REWRITE-RULE V-BUF*$DESTRUCTURE NIL (EQUAL (CAR (V-BUF* N)) (INDEX (QUOTE V-BUF) N)) NIL) (REWRITE-RULE CAR-NAT-TO-V-0-IS-F ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (NOT (CAR (NAT-TO-V (QUOTE 0) N))) NIL) (REWRITE-RULE CAR-FIRSTN NIL (EQUAL (CAR (FIRSTN N A)) (IF (LISTP A) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (CAR A) (QUOTE 0))) (QUOTE 0))) NIL) (REWRITE-RULE CAR-CDR-IF-CONS NIL (EQUAL (CAR (IF X (CONS A B) (CONS C D))) (IF X A C)) NIL) (REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) NIL) (REWRITE-RULE CAR-NLISTP ((NOT (LISTP X))) (EQUAL (CAR X) (QUOTE 0)) NIL) (REWRITE-RULE CAR-CONS NIL (EQUAL (CAR (CONS CAR CDR)) CAR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CAR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CAR X) (CDR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 3 NIL)) LEMMAS ((REWRITE-RULE LISTP-COLLECT-VALUE NIL (EQUAL (LISTP (COLLECT-VALUE ARGS ALIST)) (LISTP ARGS)) NIL) (REWRITE-RULE LISTP-INDICES NIL (EQUAL (LISTP (INDICES NAME FROM N)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N))) NIL) (REWRITE-RULE LISTP-MAKE-TREE NIL (EQUAL (LISTP (MAKE-TREE N)) (IF (LESSP N (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE LISTP-SUBRANGE NIL (EQUAL (LISTP (SUBRANGE L N M)) (IF (LESSP M N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE LISTP-NTHCDR NIL (EQUAL (LISTP (NTHCDR N L)) (LESSP N (LENGTH L))) NIL) (REWRITE-RULE LISTP-BAGINT-WITH-SINGLETON-MEMBER NIL (EQUAL (LISTP (BAGINT Y (CONS Z (QUOTE NIL)))) (MEMBER Z Y)) NIL) (REWRITE-RULE LISTP-EVAL$ NIL (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X)) NIL) (REWRITE-RULE LISTP-DELETE NIL (EQUAL (LISTP (DELETE X L)) (IF (LISTP L) (IF (EQUAL X (CAR L)) (LISTP (CDR L)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*LISTP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 16 NIL NIL)) LEMMAS ((REWRITE-RULE LIST-32-NTH-COLLAPSE ((PROPERP ARGS) (EQUAL (LENGTH ARGS) (QUOTE 32))) (EQUAL (CONS (NTH (QUOTE 0) ARGS) (CONS (NTH (QUOTE 1) ARGS) (CONS (NTH (QUOTE 2) ARGS) (CONS (NTH (QUOTE 3) ARGS) (CONS (NTH (QUOTE 4) ARGS) (CONS (NTH (QUOTE 5) ARGS) (CONS (NTH (QUOTE 6) ARGS) (CONS (NTH (QUOTE 7) ARGS) (CONS (NTH (QUOTE 8) ARGS) (CONS (NTH (QUOTE 9) ARGS) (CONS (NTH (QUOTE 10) ARGS) (CONS (NTH (QUOTE 11) ARGS) (CONS (NTH (QUOTE 12) ARGS) (CONS (NTH (QUOTE 13) ARGS) (CONS (NTH (QUOTE 14) ARGS) (CONS (NTH (QUOTE 15) ARGS) (CONS (NTH (QUOTE 16) ARGS) (CONS (NTH (QUOTE 17) ARGS) (CONS (NTH (QUOTE 18) ARGS) (CONS (NTH (QUOTE 19) ARGS) (CONS (NTH (QUOTE 20) ARGS) (CONS (NTH (QUOTE 21) ARGS) (CONS (NTH (QUOTE 22) ARGS) (CONS (NTH (QUOTE 23) ARGS) (CONS (NTH (QUOTE 24) ARGS) (CONS (NTH (QUOTE 25) ARGS) (CONS (NTH (QUOTE 26) ARGS) (CONS (NTH (QUOTE 27) ARGS) (CONS (NTH (QUOTE 28) ARGS) (CONS (NTH (QUOTE 29) ARGS) (CONS (NTH (QUOTE 30) ARGS) (CONS (NTH (QUOTE 31) ARGS) (QUOTE NIL))))))))))))))))))))))))))))))))) ARGS) NIL) (REWRITE-RULE MEM-32X32-ARGS-CROCK ((EQUAL (LENGTH ADDR) (QUOTE 32)) (PROPERP ADDR) (EQUAL (LENGTH DATA) (QUOTE 32)) (PROPERP DATA)) (EQUAL (CONS RW- (CONS STROBE- (APPEND ADDR DATA))) (CONS RW- (CONS STROBE- (APPEND (LIST-AS-COLLECTED-NTH ADDR (QUOTE 32) (QUOTE 0)) (LIST-AS-COLLECTED-NTH DATA (QUOTE 32) (QUOTE 0)))))) NIL) (REWRITE-RULE LIST-REWRITE-4 ((PROPERP A) (EQUAL (LENGTH A) (QUOTE 4))) (EQUAL (CONS (CAR A) (CONS (CAR (CDR A)) (CONS (CAR (CDR (CDR A))) (CONS (CAR (CDR (CDR (CDR A)))) (QUOTE NIL))))) A) NIL) (REWRITE-RULE CONS-CAR-CDR NIL (EQUAL (CONS (CAR X) (CDR X)) (IF (LISTP X) X (QUOTE (0 . 0)))) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CONS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0)) (TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-NLITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK -1 NIL)) LEMMAS ((REWRITE-RULE UNPACK-NLITATOM ((NOT (LITATOM X))) (EQUAL (UNPACK X) (QUOTE 0)) NIL) (REWRITE-RULE UNPACK-PACK NIL (EQUAL (UNPACK (PACK UNPACK)) UNPACK) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*UNPACK SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE UNPACK-ELIM ((LITATOM X)) (EQUAL (PACK (UNPACK X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((UNPACK X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LITATOM) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 3 NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*LITATOM SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 8 NIL)) LEMMAS ((REWRITE-RULE PACK-UNPACK NIL (EQUAL (PACK (UNPACK X)) (IF (LITATOM X) X (QUOTE (*1*QUOTE PACK 0)))) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*PACK SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NOT-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PLUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS 4 NIL NIL)) LEMMAS ((REWRITE-RULE PLUS-QUOTIENT-2 ((NOT (LESSP A0 EXP))) (EQUAL (PLUS EXP (QUOTIENT (DIFFERENCE A0 EXP) (QUOTE 2))) (QUOTIENT (PLUS A0 EXP) (QUOTE 2))) NIL) (REWRITE-RULE V-ALU-CORRECT-NAT-SUBTRACTER-OUTPUT-LEMMA ((LESSP A-NAT BOUND) (LESSP B-NAT BOUND)) (EQUAL (PLUS B-NAT (SUB1 (DIFFERENCE BOUND A-NAT))) (SUB1 (DIFFERENCE (PLUS B-NAT BOUND) A-NAT))) NIL) (REWRITE-RULE PLUS-ADD1-SUB1 ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (PLUS (ADD1 M) (SUB1 N)) (PLUS M N)) NIL) (REWRITE-RULE PLUS-ADD1-SUB1 ((NUMBERP N) (NOT (EQUAL N (QUOTE 0)))) (EQUAL (PLUS (SUB1 N) (ADD1 M)) (PLUS N M)) NIL) (REWRITE-RULE PLUS-ADD1 NIL (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y))) NIL) (REWRITE-RULE PLUS-ADD1 NIL (EQUAL (PLUS (ADD1 X) Y) (ADD1 (PLUS X Y))) NIL) (REWRITE-RULE PLUS-0 ((ZEROP ZERO)) (EQUAL (PLUS ZERO X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE PLUS-0 ((ZEROP ZERO)) (EQUAL (PLUS X ZERO) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE PLUS-IPLUS ((NUMBERP I) (NUMBERP J)) (EQUAL (PLUS I J) (IPLUS I J)) NIL) (REWRITE-RULE PLUS-REMAINDER-TIMES-QUOTIENT NIL (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE PLUS-DIFFERENCE-ARG2 NIL (EQUAL (PLUS A (DIFFERENCE B C)) (IF (LESSP C B) (DIFFERENCE (PLUS A B) C) (PLUS A (QUOTE 0)))) NIL) (REWRITE-RULE PLUS-DIFFERENCE-ARG1 NIL (EQUAL (PLUS (DIFFERENCE A B) C) (IF (LESSP B A) (DIFFERENCE (PLUS A C) B) (PLUS (QUOTE 0) C))) NIL) (REWRITE-RULE ASSOCIATIVITY-OF-PLUS NIL (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) NIL) (REWRITE-RULE PLUS-ADD1-ARG2 NIL (EQUAL (PLUS X (ADD1 Y)) (IF (NUMBERP Y) (ADD1 (PLUS X Y)) (ADD1 X))) NIL) (REWRITE-RULE PLUS-ADD1-ARG1 NIL (EQUAL (PLUS (ADD1 A) B) (ADD1 (PLUS A B))) NIL) (REWRITE-RULE PLUS-ZERO-ARG2 ((ZEROP Y)) (EQUAL (PLUS X Y) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE COMMUTATIVITY2-OF-PLUS NIL (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z))) ((X . Y))) (REWRITE-RULE COMMUTATIVITY-OF-PLUS NIL (EQUAL (PLUS X Y) (PLUS Y X)) ((X . Y)))) TOTALP-LST ((PLUS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (ADD1 (PLUS (SUB1 X) Y)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*PLUS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X))) (((SUB1 X) Y)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP ZEROP ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX 4 NIL)) TOTALP-LST ((FIX . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*FIX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZEROP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((ZEROP 3 NIL)) TOTALP-LST ((ZEROP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*ZEROP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((GEQ 3 NIL NIL)) TOTALP-LST ((GEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*GEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((LEQ 3 NIL NIL)) TOTALP-LST ((LEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*LEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GREATERP) (QUOTE (TYPE-PRESCRIPTION-LST ((GREATERP 3 NIL NIL)) TOTALP-LST ((GREATERP . T)) SDEFN (LAMBDA (X Y) (LESSP Y X)) LISP-CODE *1*GREATERP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((LESSP 3 NIL NIL)) LEMMAS ((REWRITE-RULE LESSP-QUOTIENT-TEST ((LESSP N M)) (EQUAL (LESSP (QUOTIENT N K) M) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-A-PLUS-A-A NIL (EQUAL (LESSP A (PLUS A A)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP A))) NIL) (REWRITE-RULE LESSP-1-PLUS-X-X NIL (EQUAL (LESSP (QUOTE 1) (PLUS X X)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE DIFFERENCE-LINEAR ((LESSP A B)) (EQUAL (LESSP (DIFFERENCE A C) B) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-V-TO-NAT-EXP-2-LENGTH-A ((EQUAL L (LENGTH A))) (EQUAL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) L)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-SUB1-PLUS-A-B-B NIL (EQUAL (LESSP (SUB1 (PLUS A B)) B) (IF (EQUAL A (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP B)) (IF (NUMBERP A) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP B))))) NIL) (REWRITE-RULE LESSP-QUOTIENT-2 NIL (IFF (LESSP (QUOTIENT X (QUOTE 2)) Y) (LESSP X (PLUS Y Y))) NIL) (REWRITE-RULE LESSP-V-TO-NAT-EXP-REWRITE ((BVP A) (EQUAL (LENGTH A) LEN)) (EQUAL (LESSP (V-TO-NAT A) (EXP (QUOTE 2) LEN)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE FOR-FINAL-1-OF-RESET-SEQUENCE-CHIP NIL (EQUAL (LESSP (SUB1 (LENGTH (RESET-SEQUENCE-CHIP-1))) (LENGTH (RESET-SEQUENCE-CHIP-1))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE TYPE-COUNT-LESSP3 ((LESSP (COUNT T2) (COUNT T1))) (EQUAL (LESSP (TYPE-COUNT WTYPE T2) (TYPE-COUNT T1 WTYPE)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE A-HELPFUL-LEMMA-FOR-TREE-INDUCTIONS ((EQUAL (LENGTH A) (TREE-SIZE TREE))) (EQUAL (LESSP (LENGTH A) (TREE-SIZE (CAR TREE))) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LENGTH-CDR-LEMMAS NIL (EQUAL (LESSP (LENGTH (CDR X)) (LENGTH X)) (LISTP X)) NIL) (REWRITE-RULE LEQ-LESSP-DIFFERENCE ((NOT (LESSP Y X)) (NUMBERP Z) (NOT (EQUAL Z (QUOTE 0))) (NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (EQUAL (LESSP (DIFFERENCE X Z) Y) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-X-1 NIL (EQUAL (LESSP X (QUOTE 1)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE LESSP-SUB1-X-X NIL (EQUAL (LESSP (SUB1 X) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE LESSP-SUB1-X-Y-CROCK ((EQUAL X Y)) (EQUAL (LESSP (SUB1 X) Y) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE LESSP-X-X NIL (EQUAL (LESSP X X) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LESSP-DIFFERENCE NIL (EQUAL (LESSP X (DIFFERENCE X Y)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-DIFFERENCE-PLUS-ARG1-COMMUTED NIL (EQUAL (LESSP W (DIFFERENCE (PLUS Y W) X)) (LESSP X Y)) NIL) (REWRITE-RULE LESSP-DIFFERENCE-PLUS-ARG1 NIL (EQUAL (LESSP W (DIFFERENCE (PLUS W Y) X)) (LESSP X Y)) NIL) (REWRITE-RULE LESSP-GCD ((NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (EQUAL (LESSP B (GCD B A)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-GCD ((NUMBERP B) (NOT (EQUAL B (QUOTE 0)))) (EQUAL (LESSP B (GCD A B)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-QUOTIENT NIL (EQUAL (LESSP (QUOTIENT I J) I) (IF (EQUAL I (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-PLUS-FACT ((EQUAL (REMAINDER B X) (QUOTE 0)) (EQUAL (REMAINDER C X) (QUOTE 0)) (LESSP B C) (LESSP A X)) (EQUAL (LESSP (PLUS A B) C) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-REMAINDER NIL (EQUAL (LESSP (REMAINDER X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-TIMES NIL *1*CANCEL-LESSP-TIMES NIL) (REWRITE-RULE ZEROP-MAKES-LESSP-FALSE-BRIDGE ((EQUAL (CAR X) (QUOTE TIMES)) (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A))) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE EVAL$-LESSP-TIMES-TREE-BAGDIFF ((SUBBAGP X Y) (SUBBAGP X Z) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE LESSP-1-TIMES NIL (EQUAL (LESSP (QUOTE 1) (TIMES A B)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP B) (IF (EQUAL A (QUOTE 1)) (IF (EQUAL B (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS (TIMES B A) X) (TIMES C A)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS (TIMES A B) X) (TIMES C A)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS (TIMES B A) X) (TIMES A C)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS (TIMES A B) X) (TIMES A C)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS X (TIMES B A)) (TIMES C A)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS X (TIMES A B)) (TIMES C A)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS X (TIMES B A)) (TIMES A C)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES2 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0))) (LESSP X A)) (EQUAL (LESSP (PLUS X (TIMES A B)) (TIMES A C)) (LESSP B C)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES1 NIL (EQUAL (LESSP (PLUS (TIMES B C) A) B) (IF (LESSP A B) (IF (EQUAL C (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP C) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LESSP-PLUS-TIMES1 NIL (EQUAL (LESSP (PLUS (TIMES C B) A) B) (IF (LESSP A B) (IF (EQUAL C (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP C) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LESSP-PLUS-TIMES1 NIL (EQUAL (LESSP (PLUS A (TIMES C B)) B) (IF (LESSP A B) (IF (EQUAL C (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP C) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LESSP-PLUS-TIMES1 NIL (EQUAL (LESSP (PLUS A (TIMES B C)) B) (IF (LESSP A B) (IF (EQUAL C (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP C) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LESSP-TIMES-CANCELLATION1 NIL (EQUAL (LESSP (TIMES Z X) (TIMES Z Y)) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (LESSP X Y) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES-CANCELLATION1 NIL (EQUAL (LESSP (TIMES X Z) (TIMES Z Y)) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (LESSP X Y) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES-CANCELLATION1 NIL (EQUAL (LESSP (TIMES Z X) (TIMES Y Z)) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (LESSP X Y) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES-CANCELLATION1 NIL (EQUAL (LESSP (TIMES X Z) (TIMES Y Z)) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (LESSP X Y) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES3 NIL (EQUAL (LESSP A (TIMES B A)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP A) (LESSP (QUOTE 1) B) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES3 NIL (EQUAL (LESSP A (TIMES A B)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP A) (LESSP (QUOTE 1) B) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-TIMES2 ((NOT (LESSP B A)) (NUMBERP C) (NOT (EQUAL C (QUOTE 0)))) (EQUAL (LESSP (TIMES C B) A) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-TIMES2 ((NOT (LESSP B A)) (NUMBERP C) (NOT (EQUAL C (QUOTE 0)))) (EQUAL (LESSP (TIMES B C) A) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE LESSP-TIMES1 ((LESSP A B) (NUMBERP C) (NOT (EQUAL C (QUOTE 0)))) (EQUAL (LESSP A (TIMES C B)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LESSP-TIMES1 ((LESSP A B) (NUMBERP C) (NOT (EQUAL C (QUOTE 0)))) (EQUAL (LESSP A (TIMES B C)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-PLUS NIL *1*CANCEL-LESSP-PLUS NIL) (REWRITE-RULE LESSP-DIFFERENCE-CANCELLATION NIL (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (LESSP A C) (LESSP C B) (LESSP A B))) NIL) (REWRITE-RULE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GREATEREQP ((SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (LESSP (SUB1 X) (SUB1 Y)) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) LISP-CODE *1*LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (NOT (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X))))) (((SUB1 X) (SUB1 Y))))) LEVEL-NO 0 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-NNUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZERO) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZERO) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ZERO SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE SUB1-NNUMBERP ((NOT (NUMBERP X))) (EQUAL (SUB1 X) (QUOTE 0)) NIL) (REWRITE-RULE SUB1-ADD1 NIL (EQUAL (SUB1 (ADD1 SUB1)) (IF (NUMBERP SUB1) SUB1 (QUOTE 0))) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*SUB1 SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE SUB1-ELIM ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (ADD1 (SUB1 X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((SUB1 X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 3 NIL)) LEMMAS ((REWRITE-RULE NUMBERP-EVAL$-TIMES-TREE NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-TIMES ((EQUAL (CAR X) (QUOTE TIMES))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE MEMBER-IMPLIES-NUMBERP ((MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-BRIDGE ((EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS-TREE NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS ((LISTP X) (EQUAL (CAR X) (QUOTE PLUS))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*NUMBERP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE ADD1-SUB1 NIL (EQUAL (ADD1 (SUB1 X)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (QUOTE 1) X) (QUOTE 1))) NIL) (REWRITE-RULE SUB1-TYPE-RESTRICTION ((NOT (NUMBERP SUB1))) (EQUAL (ADD1 SUB1) (QUOTE 1)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ADD1 SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (ZERO))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IMPLIES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IMPLIES) (QUOTE (TYPE-PRESCRIPTION-LST ((IMPLIES 3 NIL NIL)) TOTALP-LST ((IMPLIES . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*IMPLIES SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*OR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE OR) (QUOTE (TYPE-PRESCRIPTION-LST ((OR 3 NIL NIL)) TOTALP-LST ((OR . T)) SDEFN (LAMBDA (P Q) (IF P (QUOTE *1*TRUE) (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*OR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*AND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE AND) (QUOTE (TYPE-PRESCRIPTION-LST ((AND 3 NIL NIL)) TOTALP-LST ((AND . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*AND SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NOT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT 3 NIL)) TOTALP-LST ((NOT . T)) SDEFN (LAMBDA (P) (IF P (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NOT SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 3 NIL)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUE) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 2)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 3 NIL)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSE) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 1)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*COUNT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 4 NIL)) LEMMAS ((REWRITE-RULE LOCAL-DELAY-COUNT-HELP-0 ((LISTP X)) (EQUAL (COUNT X) (ADD1 (PLUS (COUNT (CAR X)) (COUNT (CDR X))))) NIL) (REWRITE-RULE COUNT-IO-OUT NIL (EQUAL (COUNT (IO-OUT IO-OUT-SIGNAL)) (ADD1 (COUNT IO-OUT-SIGNAL))) NIL) (REWRITE-RULE COUNT-NET-ERROR NIL (EQUAL (COUNT (NET-ERROR ERROR-LABEL ERROR-BODY)) (ADD1 (PLUS (COUNT ERROR-LABEL) (COUNT ERROR-BODY)))) NIL) (REWRITE-RULE COUNT-STUB NIL (EQUAL (COUNT (STUB STUB-GUTS)) (ADD1 (COUNT STUB-GUTS))) NIL) (REWRITE-RULE COUNT-RAM NIL (EQUAL (COUNT (RAM RAM-GUTS)) (ADD1 (COUNT RAM-GUTS))) NIL) (REWRITE-RULE COUNT-ROM NIL (EQUAL (COUNT (ROM ROM-GUTS)) (ADD1 (COUNT ROM-GUTS))) NIL) (REWRITE-RULE COUNT-INDEX NIL (EQUAL (COUNT (INDEX I-NAME I-NUM)) (IF (NUMBERP I-NAME) (IF (NUMBERP I-NUM) (ADD1 (PLUS (COUNT I-NAME) (COUNT I-NUM))) (ADD1 (PLUS (COUNT I-NAME) (QUOTE 0)))) (IF (LITATOM I-NAME) (IF (NUMBERP I-NUM) (ADD1 (PLUS (COUNT I-NAME) (COUNT I-NUM))) (ADD1 (PLUS (COUNT I-NAME) (QUOTE 0)))) (IF (NUMBERP I-NUM) (ADD1 (PLUS (QUOTE 0) (COUNT I-NUM))) (ADD1 (PLUS (QUOTE 0) (QUOTE 0))))))) NIL) (REWRITE-RULE COUNT-MINUS NIL (EQUAL (COUNT (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) (ADD1 (COUNT NEGATIVE-GUTS)) (QUOTE 1))) NIL) (REWRITE-RULE COUNT-CONS NIL (EQUAL (COUNT (CONS CAR CDR)) (ADD1 (PLUS (COUNT CAR) (COUNT CDR)))) NIL) (REWRITE-RULE COUNT-PACK NIL (EQUAL (COUNT (PACK UNPACK)) (ADD1 (COUNT UNPACK))) NIL) (REWRITE-RULE COUNT-NUMBERP ((NUMBERP I)) (EQUAL (COUNT I) I) NIL) (REWRITE-RULE COUNT-ADD1 NIL (EQUAL (COUNT (ADD1 SUB1)) (IF (NUMBERP SUB1) (ADD1 (COUNT SUB1)) (QUOTE 1))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LINEAR-LEMMAS ((LINEAR-LEMMA IO-OUT-SIGNAL-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (IO-OUT-SIGNAL X)))) (COUNT (IO-OUT-SIGNAL X))) (LINEAR-LEMMA IO-OUT-SIGNAL-LESSP ((IO-OUTP X)) (LESSP (COUNT (IO-OUT-SIGNAL X)) (COUNT X)) (COUNT (IO-OUT-SIGNAL X))) (LINEAR-LEMMA ERROR-BODY-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (ERROR-BODY X)))) (COUNT (ERROR-BODY X))) (LINEAR-LEMMA ERROR-BODY-LESSP ((NET-ERRORP X)) (LESSP (COUNT (ERROR-BODY X)) (COUNT X)) (COUNT (ERROR-BODY X))) (LINEAR-LEMMA ERROR-LABEL-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (ERROR-LABEL X)))) (COUNT (ERROR-LABEL X))) (LINEAR-LEMMA ERROR-LABEL-LESSP ((NET-ERRORP X)) (LESSP (COUNT (ERROR-LABEL X)) (COUNT X)) (COUNT (ERROR-LABEL X))) (LINEAR-LEMMA DELETE*-LEMMA ((MEMBER E LST)) (LESSP (COUNT (DELETE* E LST)) (COUNT LST)) (COUNT (DELETE* E LST))) (LINEAR-LEMMA DELETE*-COUNT NIL (LESSP (COUNT (DELETE* E X)) (COUNT (CONS E X))) (COUNT (CONS E X))) (LINEAR-LEMMA DELETE*-COUNT NIL (LESSP (COUNT (DELETE* E X)) (COUNT (CONS E X))) (COUNT (DELETE* E X))) (LINEAR-LEMMA LESSP-UNBIND-LIST-COUNT ((NOT (MEMBER K U)) (BOUNDP K M)) (LESSP (COUNT (UNBIND-LIST (CONS K U) M)) (COUNT (UNBIND-LIST U M))) (COUNT (UNBIND-LIST (CONS K U) M))) (LINEAR-LEMMA DELETE-MODULE-LOOKUP-MODULE-COUNT ((LOOKUP-MODULE NAME NETLIST)) (LESSP (COUNT (DELETE-MODULE NAME NETLIST)) (COUNT NETLIST)) (COUNT (DELETE-MODULE NAME NETLIST))) (LINEAR-LEMMA STUB-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (STUB-GUTS X)))) (COUNT (STUB-GUTS X))) (LINEAR-LEMMA STUB-GUTS-LESSP ((STUBP X)) (LESSP (COUNT (STUB-GUTS X)) (COUNT X)) (COUNT (STUB-GUTS X))) (LINEAR-LEMMA RAM-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (RAM-GUTS X)))) (COUNT (RAM-GUTS X))) (LINEAR-LEMMA RAM-GUTS-LESSP ((RAMP X)) (LESSP (COUNT (RAM-GUTS X)) (COUNT X)) (COUNT (RAM-GUTS X))) (LINEAR-LEMMA ROM-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (ROM-GUTS X)))) (COUNT (ROM-GUTS X))) (LINEAR-LEMMA ROM-GUTS-LESSP ((ROMP X)) (LESSP (COUNT (ROM-GUTS X)) (COUNT X)) (COUNT (ROM-GUTS X))) (LINEAR-LEMMA I-NUM-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (I-NUM X)))) (COUNT (I-NUM X))) (LINEAR-LEMMA I-NUM-LESSP ((INDEXP X)) (LESSP (COUNT (I-NUM X)) (COUNT X)) (COUNT (I-NUM X))) (LINEAR-LEMMA I-NAME-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (I-NAME X)))) (COUNT (I-NAME X))) (LINEAR-LEMMA I-NAME-LESSP ((INDEXP X)) (LESSP (COUNT (I-NAME X)) (COUNT X)) (COUNT (I-NAME X))) (LINEAR-LEMMA LESSP-COUNT-LISTP-CDR ((LISTP (CDR X))) (LESSP (COUNT (CDR X)) (COUNT X)) (COUNT (CDR X))) (LINEAR-LEMMA NEGATIVE-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (NEGATIVE-GUTS X)))) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA NEGATIVE-GUTS-LESSP ((NEGATIVEP X)) (LESSP (COUNT (NEGATIVE-GUTS X)) (COUNT X)) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA CDR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CDR X)))) (COUNT (CDR X))) (LINEAR-LEMMA CDR-LESSP ((LISTP X)) (LESSP (COUNT (CDR X)) (COUNT X)) (COUNT (CDR X))) (LINEAR-LEMMA CAR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CAR X)))) (COUNT (CAR X))) (LINEAR-LEMMA CAR-LESSP ((LISTP X)) (LESSP (COUNT (CAR X)) (COUNT X)) (COUNT (CAR X))) (LINEAR-LEMMA UNPACK-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (UNPACK X)))) (COUNT (UNPACK X))) (LINEAR-LEMMA UNPACK-LESSP ((LITATOM X)) (LESSP (COUNT (UNPACK X)) (COUNT X)) (COUNT (UNPACK X))) (LINEAR-LEMMA COUNT-NOT-LESSP NIL (NOT (LESSP (COUNT I) I)) (COUNT I)) (LINEAR-LEMMA SUB1-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (SUB1 X)))) (COUNT (SUB1 X))) (LINEAR-LEMMA SUB1-LESSP ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (LESSP (COUNT (SUB1 X)) (COUNT X)) (COUNT (SUB1 X)))) LISP-CODE *1*COUNT SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTE) (QUOTE (SUBRP *1*FALSE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 3 NIL NIL)) LEMMAS ((REWRITE-RULE EQUAL-SUB1-PLUS-X-X NIL (EQUAL (EQUAL (SUB1 (PLUS X X)) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-IDIV-2-0 NIL (EQUAL (EQUAL (IDIV I (QUOTE 2)) (QUOTE 0)) (IF (IZEROP I) (QUOTE *1*TRUE) (EQUAL I (QUOTE 1)))) NIL) (REWRITE-RULE INT-DEC-RANGEP-LEMMAS ((NOT (NEGATIVEP (IPLUS (QUOTE -1) (V-TO-INT A)))) (V-NZEROP (INT-TO-V (IPLUS (QUOTE -1) (V-TO-INT A)) (LENGTH A)))) (NOT (EQUAL (IPLUS (QUOTE -1) (V-TO-INT A)) (QUOTE 0))) NIL) (REWRITE-RULE NOT-EQUAL-IPLUS-MINUS-0 NIL (NOT (EQUAL (IPLUS A B) (QUOTE (*1*QUOTE MINUS 0)))) NIL) (REWRITE-RULE REWRITE-EQUAL-V-TO-INT-0 NIL (EQUAL (EQUAL (V-TO-INT A) (QUOTE 0)) (V-ZEROP A)) NIL) (REWRITE-RULE IDIFFERENCE-0 ((INTEGERP A) (INTEGERP B)) (EQUAL (EQUAL (IDIFFERENCE A B) (QUOTE 0)) (EQUAL A B)) NIL) (REWRITE-RULE WHEN-THE-MANTISSA-ISNT-0-THEN-NEITHER-IS-THE-EXPONENTIAL ((NUMBERP MANTISSA) (NOT (EQUAL MANTISSA (QUOTE 0)))) (NOT (EQUAL (EXP MANTISSA EXPONENT) (QUOTE 0))) NIL) (REWRITE-RULE REWRITE-EQUAL-V-TO-NAT-0 NIL (EQUAL (EQUAL (V-TO-NAT A) (QUOTE 0)) (V-ZEROP A)) NIL) (REWRITE-RULE V-TO-NAT-EQUAL ((BV2P A B)) (EQUAL (EQUAL (V-TO-NAT A) (V-TO-NAT B)) (EQUAL A B)) NIL) (REWRITE-RULE EQUAL-IFF ((BOOLP X) (BOOLP Y)) (EQUAL (EQUAL X Y) (IF X (IF Y (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Y (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-NAT-TO-V-INVERTER NIL (IFF (EQUAL V (NAT-TO-V N LEN)) (IF (BVP V) (IF (NUMBERP LEN) (IF (EQUAL (LENGTH V) LEN) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN))) (QUOTE *1*FALSE)) (IF (EQUAL (LENGTH V) (QUOTE 0)) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-NAT-TO-V-INVERTER-HACK2 ((BVP V) (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) (LENGTH V))))) (EQUAL (EQUAL V (NAT-TO-V N (LENGTH V))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EQUAL-NAT-TO-V-INVERTER-HACK1 ((NUMBERP LEN) (EQUAL V (NAT-TO-V N LEN))) (EQUAL (EQUAL (V-TO-NAT V) (REMAINDER N (EXP (QUOTE 2) LEN))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE MEM-WIDTH-NON-ZERO NIL (NOT (EQUAL (MEM-WIDTH) (QUOTE 0))) NIL) (REWRITE-RULE EQUAL-LENGTH-READ-MEM ((S-APPROX S1 S2)) (EQUAL (EQUAL (LENGTH (READ-MEM A S2)) (LENGTH (READ-MEM A S1))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EQUAL-LENGTH-READ-MEM1 ((S-APPROX S1 S2)) (EQUAL (EQUAL (LENGTH (READ-MEM1 A S2)) (LENGTH (READ-MEM1 A S1))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE FM9001-STATEP-IMPLIES-MACROCYCLE-INVARIANT-LEMMA1 NIL (EQUAL (EQUAL (CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (CV_FETCH1 (QUOTE *1*TRUE) (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) Z (MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE FM9001-STEP*-LEMMA NIL (EQUAL (EQUAL (CONS X Y) (FM9001-STEP* STATE PC-REG)) (EQUAL (CONS X Y) (FM9001-STEP STATE PC-REG))) NIL) (REWRITE-RULE CARRY-OUT-HELP-CONGRUENCE (X) (EQUAL (EQUAL (CARRY-OUT-HELP X A ZERO OP0 OP1 OP2 OP3) (CARRY-OUT-HELP (QUOTE *1*TRUE) A ZERO OP0 OP1 OP2 OP3)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE T-CARRY-CONGRUENCE (X) (EQUAL (EQUAL (T-CARRY X P G) (T-CARRY (QUOTE *1*TRUE) P G)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE V-SUM-CONGRUENCE (C) (EQUAL (EQUAL (V-SUM C A B) (V-SUM (QUOTE *1*TRUE) A B)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LOCAL-DELAY-COUNT-HELP ((LISTP X)) (EQUAL (EQUAL (COUNT X) (QUOTE 0)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE IO-OUT-EQUAL NIL (EQUAL (EQUAL (IO-OUT IO-OUT-SIGNAL) (IO-OUT IO-OUT-SIGNAL-)) (EQUAL IO-OUT-SIGNAL IO-OUT-SIGNAL-)) NIL) (REWRITE-RULE NET-ERROR-EQUAL NIL (EQUAL (EQUAL (NET-ERROR ERROR-LABEL ERROR-BODY) (NET-ERROR ERROR-LABEL- ERROR-BODY-)) (IF (EQUAL ERROR-LABEL ERROR-LABEL-) (EQUAL ERROR-BODY ERROR-BODY-) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-MEMORY-VALUE ((EQUAL (LENGTH DATA1) (LENGTH DATA2))) (EQUAL (EQUAL (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA1) (MEMORY-VALUE STATE STROBE RW- ADDRESS DATA2)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE STUB-EQUAL NIL (EQUAL (EQUAL (STUB STUB-GUTS) (STUB STUB-GUTS-)) (EQUAL STUB-GUTS STUB-GUTS-)) NIL) (REWRITE-RULE RAM-EQUAL NIL (EQUAL (EQUAL (RAM RAM-GUTS) (RAM RAM-GUTS-)) (EQUAL RAM-GUTS RAM-GUTS-)) NIL) (REWRITE-RULE ROM-EQUAL NIL (EQUAL (EQUAL (ROM ROM-GUTS) (ROM ROM-GUTS-)) (EQUAL ROM-GUTS ROM-GUTS-)) NIL) (REWRITE-RULE EQUAL-COLLECT-VALUE-PROMOTE-ALISTS ((EQUAL ALIST1 ALIST2)) (EQUAL (EQUAL (COLLECT-VALUE ARGS ALIST1) (COLLECT-VALUE ARGS ALIST2)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE V-IF-C-CONGRUENCE (C) (EQUAL (EQUAL (V-IF C A B) (V-IF (QUOTE *1*TRUE) A B)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE ANOTHER-WAY-TO-LOOK-AT-BOOLP-NTH ((BVP V) (LESSP N (LENGTH V))) (EQUAL (EQUAL (IF (NTH N V) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (NTH N V)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE THREEFIX=X NIL (EQUAL (EQUAL (QUOTE (*1*QUOTE X)) (THREEFIX X)) (IF (BOOLP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE BOOLP-IMPLIES-NOT-EQUAL-Z ((BOOLP X)) (NOT (EQUAL X (QUOTE (*1*QUOTE Z)))) NIL) (REWRITE-RULE BOOLP-LEMMAS ((BOOLP B)) (EQUAL (EQUAL B (QUOTE *1*FALSE)) (IF B (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE BOOLP-LEMMAS ((BOOLP B)) (EQUAL (EQUAL B (QUOTE *1*TRUE)) B) NIL) (REWRITE-RULE INDEX-EQUAL NIL (EQUAL (EQUAL (INDEX I-NAME I-NUM) (INDEX I-NAME- I-NUM-)) (IF (NUMBERP I-NAME) (IF (NUMBERP I-NAME-) (IF (EQUAL I-NAME I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (LITATOM I-NAME-) (IF (EQUAL I-NAME I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (EQUAL I-NAME (QUOTE 0)) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) (IF (LITATOM I-NAME) (IF (NUMBERP I-NAME-) (IF (EQUAL I-NAME I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (LITATOM I-NAME-) (IF (EQUAL I-NAME I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (EQUAL I-NAME (QUOTE 0)) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) (IF (NUMBERP I-NAME-) (IF (EQUAL (QUOTE 0) I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (LITATOM I-NAME-) (IF (EQUAL (QUOTE 0) I-NAME-) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (NUMBERP I-NUM) (IF (NUMBERP I-NUM-) (EQUAL I-NUM I-NUM-) (EQUAL I-NUM (QUOTE 0))) (IF (NUMBERP I-NUM-) (EQUAL (QUOTE 0) I-NUM-) (QUOTE *1*TRUE)))))))) NIL) (REWRITE-RULE LIST-ELIM-4 NIL (EQUAL (EQUAL L (CONS A (CONS B (CONS C (CONS D (QUOTE NIL)))))) (IF (EQUAL (CAR L) A) (IF (EQUAL (CAR (CDR L)) B) (IF (EQUAL (CAR (CDR (CDR L))) C) (IF (EQUAL (CAR (CDR (CDR (CDR L)))) D) (EQUAL (CDR (CDR (CDR (CDR L)))) (QUOTE NIL)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE TREE-SIZE-1-CROCK NIL (NOT (EQUAL (QUOTE 1) (TREE-SIZE (CONS A B)))) NIL) (REWRITE-RULE NOT-EQUAL-TREE-SIZE-TREE-0 NIL (NOT (EQUAL (TREE-SIZE TREE) (QUOTE 0))) NIL) (REWRITE-RULE PAIRLISTS-ARE-EQUAL-WHEN-THEIR-2ND-LISTS-ARE-NLISTP ((NOT (LISTP L1)) (NOT (LISTP L2))) (EQUAL (EQUAL (PAIRLIST A L1) (PAIRLIST A L2)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE FIRSTN-BOTTOM NIL (EQUAL (EQUAL (FIRSTN N L) (QUOTE NIL)) (IF (LISTP L) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE EQUAL-LENGTH-CDR ((EQUAL (LENGTH A) (LENGTH B))) (EQUAL (EQUAL (LENGTH (CDR A)) (LENGTH (CDR B))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE LENGTH-CDR NIL (EQUAL (EQUAL (LENGTH (CDR V)) (SUB1 (LENGTH V))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EQUAL-LENGTH-ADD1 NIL (EQUAL (EQUAL (LENGTH X) (ADD1 Y)) (IF (LISTP X) (IF (NUMBERP Y) (EQUAL (LENGTH (CDR X)) Y) (EQUAL (LENGTH (CDR X)) (QUOTE 0))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LENGTH-CDR-LEMMAS NIL (EQUAL (EQUAL (LENGTH (CDR X)) (LENGTH X)) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE LENGTH-1 NIL (EQUAL (EQUAL (LENGTH A) (QUOTE 1)) (IF (LISTP A) (IF (LISTP (CDR A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE LENGTH-BOTTOM NIL (EQUAL (EQUAL (LENGTH X) (QUOTE 0)) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE EQUAL-APPEND-X-X NIL (EQUAL (EQUAL (APPEND A B) (APPEND A C)) (EQUAL B C)) NIL) (REWRITE-RULE ZEROP-QUOTIENT NIL (EQUAL (EQUAL (QUOTIENT N M) (QUOTE 0)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (LESSP N M) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE TIMES-BOTTOM NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE OUR-EQUAL-DIFFERENCE-0 NIL (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 0)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE PLUS-BOTTOM NIL (EQUAL (EQUAL (PLUS A B) (QUOTE 0)) (IF (EQUAL A (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP A) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE OUR-CAR-CDR-ELIM NIL (EQUAL (EQUAL L (CONS (CAR L) X)) (IF (LISTP L) (EQUAL X (CDR L)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE CANCEL-CONSTANTS-EQUAL NIL (EQUAL (EQUAL (IPLUS (ADD1 I) X) (IPLUS (ADD1 J) Y)) (IF (LESSP I J) (EQUAL (FIX-INT X) (IPLUS (DIFFERENCE J I) Y)) (EQUAL (IPLUS (DIFFERENCE I J) X) (FIX-INT Y)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-INEG-TERMS-FROM-EQUALITY NIL *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-FACTORS-0 NIL *1*CANCEL-FACTORS-0 NIL) (REWRITE-RULE IZEROP-ILESSP-0-RELATIONSHIP NIL (EQUAL (EQUAL (FIX-INT X) (QUOTE 0)) (IF (ILESSP X (QUOTE 0)) (QUOTE *1*FALSE) (IF (ILESSP (QUOTE 0) X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-FACTORS NIL *1*CANCEL-ITIMES-FACTORS-EXPANDED NIL) (REWRITE-RULE EVAL$-LIST-BAGINT-0-IMPLIES-EQUAL ((EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGINT (ITIMES-FACTORS V) (ITIMES-FACTORS W)) A)) (QUOTE 0)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) V A)) (INTEGERP (EVAL$ (QUOTE *1*TRUE) W A))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) V A) (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EQUAL-ITIMES-LIST-EVAL$-LIST-BAGDIFF ((SUBBAGP IN-BOTH BAG1) (SUBBAGP IN-BOTH BAG2) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) IN-BOTH A)) (QUOTE 0)))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG1 IN-BOTH) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF BAG2 IN-BOTH) A))) (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG1 A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG2 A)))) NIL) (REWRITE-RULE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-2 ((NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) ELT A)) (QUOTE 0)))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE ELT BAG) A)) X) (IF (MEMBER ELT BAG) (IF (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) ELT A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (QUOTE *1*FALSE)) (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))))) NIL) (REWRITE-RULE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE-NEW-1 ((NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) ELT A)) (QUOTE 0)))) (EQUAL (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE ELT BAG) A))) (IF (MEMBER ELT BAG) (IF (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) ELT A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))) (QUOTE *1*FALSE)) (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) BAG A))))) NIL) (REWRITE-RULE EQUAL-INEG-INEG NIL (EQUAL (EQUAL (INEG X) (INEG Y)) (EQUAL (FIX-INT X) (FIX-INT Y))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES NIL *1*CANCEL-ITIMES NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3 ((LISTP U) (EQUAL (CAR U) (QUOTE ITIMES)) (LISTP V) (EQUAL (CAR V) (QUOTE ITIMES)) (EQUAL (EVAL$ (QUOTE *1*TRUE) U A) (EVAL$ (QUOTE *1*TRUE) V A)) (NOT (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE EQUAL) (CONS (ITIMES-TREE (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) (QUOTE ((QUOTE 0))))) A))) (EQUAL (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE U) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE V) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-HACK-3-LEMMA ((EQUAL U (ITIMES A B)) (NOT (EQUAL (FIX-INT A) (QUOTE 0)))) (EQUAL (EQUAL U (ITIMES A C)) (EQUAL (FIX-INT B) (FIX-INT C))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-ITIMES-HACK-2 ((LISTP U) (EQUAL (CAR U) (QUOTE ITIMES)) (LISTP V) (EQUAL (CAR V) (QUOTE ITIMES)) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) U A) (EVAL$ (QUOTE *1*TRUE) V A)))) (NOT (EQUAL (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE U) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) (BAGDIFF (ITIMES-FRINGE V) (BAGINT (ITIMES-FRINGE U) (ITIMES-FRINGE V))) A)))) NIL) (REWRITE-RULE EQUAL-FIX-INT NIL (EQUAL (EQUAL (FIX-INT X) X) (INTEGERP X)) NIL) (REWRITE-RULE EQUAL-ITIMES-LIST-EVAL$-LIST-DELETE ((MEMBER C Y) (NOT (EQUAL (FIX-INT (EVAL$ (QUOTE *1*TRUE) C A)) (QUOTE 0)))) (EQUAL (EQUAL X (ITIMES-LIST (EVAL$ (QUOTE LIST) (DELETE C Y) A))) (IF (INTEGERP X) (EQUAL (ITIMES X (EVAL$ (QUOTE *1*TRUE) C A)) (ITIMES-LIST (EVAL$ (QUOTE LIST) Y A))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE NOT-INTEGERP-IMPLIES-NOT-EQUAL-ITIMES ((NOT (INTEGERP A))) (EQUAL (EQUAL A (ITIMES B C)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE ITIMES-CANCELLATION-3 NIL (EQUAL (EQUAL (ITIMES A B) (ITIMES C A)) (IF (EQUAL (FIX-INT A) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (FIX-INT B) (FIX-INT C)))) NIL) (REWRITE-RULE ITIMES-CANCELLATION-2 NIL (EQUAL (EQUAL (ITIMES B A) (ITIMES C A)) (IF (EQUAL (FIX-INT A) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (FIX-INT B) (FIX-INT C)))) NIL) (REWRITE-RULE ITIMES-CANCELLATION-1 NIL (EQUAL (EQUAL (ITIMES A B) (ITIMES A C)) (IF (EQUAL (FIX-INT A) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (FIX-INT B) (FIX-INT C)))) NIL) (REWRITE-RULE EQUAL-ITIMES-MINUS-1 NIL (EQUAL (EQUAL (ITIMES A B) (QUOTE -1)) (IF (EQUAL A (QUOTE -1)) (IF (EQUAL B (QUOTE 1)) (QUOTE *1*TRUE) (IF (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE -1)) (QUOTE *1*FALSE))) (IF (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE -1)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE EQUAL-ITIMES-1 NIL (EQUAL (EQUAL (ITIMES A B) (QUOTE 1)) (IF (EQUAL A (QUOTE 1)) (IF (EQUAL B (QUOTE 1)) (QUOTE *1*TRUE) (IF (EQUAL A (QUOTE -1)) (EQUAL B (QUOTE -1)) (QUOTE *1*FALSE))) (IF (EQUAL A (QUOTE -1)) (EQUAL B (QUOTE -1)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE EQUAL-ITIMES-0 NIL (EQUAL (EQUAL (ITIMES X Y) (QUOTE 0)) (IF (EQUAL (FIX-INT X) (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL (FIX-INT Y) (QUOTE 0)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-IPLUS NIL *1*CANCEL-IPLUS NIL) (REWRITE-RULE IPLUS-INEG7 NIL (EQUAL (EQUAL (QUOTE 0) (IPLUS X (INEG Y))) (EQUAL (FIX-INT Y) (FIX-INT X))) NIL) (REWRITE-RULE IPLUS-INEG6 ((INTEGERP X)) (EQUAL (EQUAL X (IPLUS Y (IPLUS W (INEG Z)))) (EQUAL (IPLUS X Z) (IPLUS Y W))) NIL) (REWRITE-RULE IPLUS-INEG5 ((INTEGERP X)) (EQUAL (EQUAL X (IPLUS Y (IPLUS (INEG Z) W))) (EQUAL (IPLUS X Z) (IPLUS Y W))) NIL) (REWRITE-RULE IPLUS-INEG5-LEMMA-2 ((INTEGERP X) (INTEGERP V)) (EQUAL (EQUAL X (IPLUS (INEG Z) V)) (EQUAL (IPLUS X Z) V)) NIL) (REWRITE-RULE IPLUS-INEG5-LEMMA-1 ((INTEGERP X)) (EQUAL (EQUAL X (IPLUS Y (IPLUS (INEG Z) W))) (EQUAL X (IPLUS (INEG Z) (IPLUS Y W)))) NIL) (REWRITE-RULE NOT-INTEGERP-IMPLIES-NOT-EQUAL-IPLUS ((NOT (INTEGERP A))) (EQUAL (EQUAL A (IPLUS B C)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE IPLUS-CANCELLATION-2 NIL (EQUAL (EQUAL (IPLUS B A) (IPLUS C A)) (EQUAL (FIX-INT B) (FIX-INT C))) NIL) (REWRITE-RULE IPLUS-CANCELLATION-1 NIL (EQUAL (EQUAL (IPLUS A B) (IPLUS A C)) (EQUAL (FIX-INT B) (FIX-INT C))) NIL) (REWRITE-RULE EQUAL-GCD-0 NIL (EQUAL (EQUAL (GCD A B) (QUOTE 0)) (IF (EQUAL A (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP A) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE EQUAL-LOG-0 NIL (EQUAL (EQUAL (LOG BASE N) (QUOTE 0)) (IF (LESSP BASE (QUOTE 2)) (QUOTE *1*TRUE) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) NIL) (REWRITE-RULE EQUAL-EXP-1 NIL (EQUAL (EQUAL (EXP N K) (QUOTE 1)) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (EQUAL N (QUOTE 1)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-EXP-0 NIL (EQUAL (EQUAL (EXP N K) (QUOTE 0)) (IF (EQUAL N (QUOTE 0)) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP K)) (IF (NUMBERP N) (QUOTE *1*FALSE) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP K))))) NIL) (REWRITE-RULE REMAINDER-EQUALS-ITS-FIRST-ARGUMENT NIL (EQUAL (EQUAL A (REMAINDER A B)) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (LESSP A B) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-QUOTIENT-0 NIL (EQUAL (EQUAL (QUOTIENT A B) (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (LESSP A B) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-REMAINDER-DIFFERENCE-0 NIL (EQUAL (EQUAL (REMAINDER (DIFFERENCE A B) C) (QUOTE 0)) (IF (LESSP A B) (QUOTE *1*TRUE) (EQUAL (REMAINDER A C) (REMAINDER B C)))) NIL) (REWRITE-RULE EQUAL-REMAINDER-PLUS-REMAINDER ((LESSP A C)) (EQUAL (EQUAL (REMAINDER (PLUS B A) C) (REMAINDER B C)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-REMAINDER-PLUS-REMAINDER ((LESSP A C)) (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (REMAINDER B C)) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-REMAINDER-PLUS-0 ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (EQUAL (REMAINDER (PLUS X (PLUS Y A)) C) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X Y) C) (QUOTE 0))) NIL) (REWRITE-RULE EQUAL-REMAINDER-PLUS-0 ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (EQUAL (REMAINDER (PLUS B A) C) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0))) NIL) (REWRITE-RULE EQUAL-REMAINDER-PLUS-0 ((EQUAL (REMAINDER A C) (QUOTE 0))) (EQUAL (EQUAL (REMAINDER (PLUS A B) C) (QUOTE 0)) (EQUAL (REMAINDER B C) (QUOTE 0))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-TIMES NIL *1*CANCEL-EQUAL-TIMES NIL) (REWRITE-RULE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY-BRIDGE ((EQUAL (CAR X) (QUOTE TIMES)) (EQUAL (CAR Y) (QUOTE TIMES)) (NOT (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))))) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF (TIMES-FRINGE X) (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y)))) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF (TIMES-FRINGE Y) (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y)))) A))) NIL) (REWRITE-RULE CANCEL-EQUAL-TIMES-PRESERVES-INEQUALITY ((SUBBAGP Z X) (SUBBAGP Z Y) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A)))) (NOT (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF X Z)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y Z)) A))) NIL) (REWRITE-RULE EVAL$-EQUAL-TIMES-TREE-BAGDIFF ((SUBBAGP X Y) (SUBBAGP X Z) (NOT (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE X) A))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ((EQUAL (CAR X) (QUOTE TIMES)) (EQUAL (CAR Y) (QUOTE TIMES)) (EVAL$ (QUOTE *1*TRUE) (OR-ZEROP-TREE (BAGINT (TIMES-FRINGE X) (TIMES-FRINGE Y))) A)) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR (CDR Y))) A))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EQUAL-TIMES-BRIDGE NIL (EQUAL (EQUAL (TIMES A B) (TIMES C (TIMES A D))) (IF (EQUAL A (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP A) (IF (NUMBERP B) (EQUAL B (TIMES C D)) (EQUAL (QUOTE 0) (TIMES C D))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-TIMES-ARG1 ((NUMBERP A) (NOT (EQUAL A (QUOTE 0)))) (EQUAL (EQUAL (TIMES A X) (TIMES A Y)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-SUB1-0 NIL (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (EQUAL X (QUOTE 1)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-TIMES-1 NIL (EQUAL (EQUAL (TIMES A B) (QUOTE 1)) (IF (EQUAL A (QUOTE 1)) (EQUAL B (QUOTE 1)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-TIMES-0 NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-PLUS NIL *1*CANCEL-EQUAL-PLUS NIL) (REWRITE-RULE DIFFERENCE-CANCELLATION NIL (EQUAL (EQUAL (DIFFERENCE X Y) (DIFFERENCE Z Y)) (IF (LESSP X Y) (IF (LESSP Y Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP Z Y) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (NUMBERP X) (IF (NUMBERP Z) (EQUAL X Z) (EQUAL X (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE EQUAL-DIFFERENCE-0 NIL (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE EQUAL-DIFFERENCE-0 NIL (EQUAL (EQUAL (DIFFERENCE X Y) (QUOTE 0)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE PLUS-CANCELLATION NIL (EQUAL (EQUAL (PLUS A B) (PLUS A C)) (IF (NUMBERP B) (IF (NUMBERP C) (EQUAL B C) (EQUAL B (QUOTE 0))) (IF (NUMBERP C) (EQUAL (QUOTE 0) C) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE EQUAL-PLUS-0 NIL (EQUAL (EQUAL (PLUS A B) (QUOTE 0)) (IF (EQUAL A (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP A) (QUOTE *1*FALSE) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE EQUAL-OCCURRENCES-ZERO NIL (EQUAL (EQUAL (OCCURRENCES X L) (QUOTE 0)) (IF (MEMBER X L) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE MINUS-EQUAL NIL (EQUAL (EQUAL (MINUS NEGATIVE-GUTS) (MINUS NEGATIVE-GUTS-)) (IF (NUMBERP NEGATIVE-GUTS) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS (QUOTE 0))) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL (QUOTE 0) NEGATIVE-GUTS-) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CONS-EQUAL NIL (EQUAL (EQUAL (CONS CAR CDR) (CONS CAR- CDR-)) (IF (EQUAL CAR CAR-) (EQUAL CDR CDR-) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PACK-EQUAL NIL (EQUAL (EQUAL (PACK UNPACK) (PACK UNPACK-)) (EQUAL UNPACK UNPACK-)) NIL) (REWRITE-RULE ADD1-EQUAL NIL (EQUAL (EQUAL (ADD1 SUB1) (ADD1 SUB1-)) (IF (NUMBERP SUB1) (IF (NUMBERP SUB1-) (EQUAL SUB1 SUB1-) (EQUAL SUB1 (QUOTE 0))) (IF (NUMBERP SUB1-) (EQUAL (QUOTE 0) SUB1-) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*EQUAL SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IF-ERROR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IF) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 0 NIL T T)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*IF-ERROR SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GROUND-ZERO) (QUOTE (IDATE 1000402193702 SATELLITES (*1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF) EVENT (BOOT-STRAP NQTHM)))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*LESSP *3*Y *3*X))))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*Y *3*X)))))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*X *3*Y)))))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (SEXPR (LAMBDA (*3*X *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE *1*FALSE)) ((EQUAL *3*X (*1*CAR *3*LST)) (QUOTE *1*TRUE)) (T (*1*MEMBER *3*X (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (SEXPR (LAMBDA (*3*P *3*Q) (COND ((NOT (EQ *3*P *1*F)) (COND ((NOT (EQ *3*Q *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ *3*Q *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*LESSP *3*X *3*Y)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*ORD-LESSP (CAR *3*X) (CAR *3*Y)) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQUAL (CAR *3*X) (CAR *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ORD-LESSP (CDR *3*X) (CDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (*1*ORDINALP (CAR *3*X)) (*1*AND (*1*NOT (COND ((EQUAL (CAR *3*X) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*ORDINALP (CDR *3*X)) (*1*OR (*1*NLISTP (CDR *3*X)) (*1*NOT (*1*ORD-LESSP (CAR *3*X) (*1*CAR (CDR *3*X))))))))) (T (*1*NUMBERP *3*X))))))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (SEXPR (LAMBDA (X L) (*1**ASSOC X L))))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CONS (CAR *3*X) (*1*CAR *3*Y)) (*1*PAIRLIST (CDR *3*X) (*1*CDR *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (SEXPR (LAMBDA (X) (*1**SUBRP X))))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (SEXPR (LAMBDA (FN ARGS) (*1**APPLY-SUBR FN ARGS))))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (SEXPR (LAMBDA (FN) (*1**FORMALS FN))))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (SEXPR (LAMBDA (FN) (*1**BODY FN))))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ *3*X *1*F)) (CONS (*1*CAR *3*X) (*1*PLUS *3*N (*1*CDR *3*X)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE NIL)) (T (CONS (*1*CAR (*1*CAR *3*L)) (*1*STRIP-CARS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*CDR (*1*CAR *3*L)) (*1*SUM-CDRS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X *3*VA) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQ *3*FLG (QUOTE LIST)) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR *3*X) *3*VA) (*1*V&C$ (QUOTE LIST) (*1*CDR *3*X) *3*VA))))) ((NOT (EQ (*1*LITATOM *3*X) *1*F)) (CONS (*1*CDR (*1*ASSOC *3*X *3*VA)) (QUOTE 0))) ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (CONS *3*X (QUOTE 0))) ((EQ (SETQ *2*TEMP5 (*1*CAR *3*X)) (QUOTE QUOTE)) (CONS (*1*CAR (*1*CDR *3*X)) (QUOTE 0))) ((EQ *2*TEMP5 (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*V&C$ (QUOTE *1*TRUE) (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*X)))) *3*VA)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP3)) *3*VA)) (T (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR (*1*CDR *2*TEMP3))) *3*VA))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) (SETQ *2*TEMP4 (*1*V&C$ (QUOTE LIST) (SETQ *2*TEMP3 (*1*CDR *3*X)) *3*VA))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *2*TEMP5) *1*F)) (CONS (*1*APPLY-SUBR *2*TEMP5 (*1*STRIP-CARS *2*TEMP4)) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *2*TEMP5) (*1*PAIRLIST (*1*FORMALS *2*TEMP5) (*1*STRIP-CARS *2*TEMP4))) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4))))))))))))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARGS) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C-APPLY$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ *3*FN (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*CAR *3*ARGS)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*CAR (*1*CDR *3*ARGS))) (T (*1*CAR (*1*CDR (*1*CDR *3*ARGS))))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) *3*ARGS) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *3*FN) *1*F)) (CONS (*1*APPLY-SUBR *3*FN (*1*STRIP-CARS *3*ARGS)) (*1*ADD1 (*1*SUM-CDRS *3*ARGS)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *3*FN) (*1*PAIRLIST (*1*FORMALS *3*FN) (*1*STRIP-CARS *3*ARGS))) (*1*ADD1 (*1*SUM-CDRS *3*ARGS))))))))))))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (SEXPR (LAMBDA (FLG X VA) (COND ((EQ FLG (QUOTE LIST)) (*1**EVLIST$ X VA)) (T (*1**EVAL$ X VA))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (SEXPR (LAMBDA (*3*FN) (*1*CDR (*1*ASSOC *3*FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION))))))))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (SEXPR (LAMBDA (*3*X *3*SET) (COND ((NOT (EQ (*1*MEMBER *3*X *3*SET) *1*F)) *3*SET) (T (CONS *3*X *3*SET))))))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CAR *3*X) (*1*APPEND (CDR *3*X) *3*Y))) (T *3*Y)))))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*LESSP *3*X *3*Y) *1*F)) *3*Y) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*UNION (CDR *3*X) *3*Y)) (T (CONS (CAR *3*X) (*1*UNION (CDR *3*X) *3*Y))))) (T *3*Y))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARG *3*REST) (COND ((EQ *3*FN (QUOTE ADD-TO-SET)) (*1*ADD-TO-SET *3*ARG *3*REST)) ((EQ *3*FN (QUOTE ALWAYS)) (*1*AND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE APPEND)) (*1*APPEND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COLLECT)) (CONS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COUNT)) (COND ((NOT (EQ *3*ARG *1*F)) (*1*ADD1 *3*REST)) (T *3*REST))) ((EQ *3*FN (QUOTE DO-RETURN)) *3*ARG) ((EQ *3*FN (QUOTE EXISTS)) (*1*OR *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MAX)) (*1*MAX *3*ARG *3*REST)) ((EQ *3*FN (QUOTE SUM)) (*1*PLUS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MULTIPLY)) (*1*TIMES *3*ARG *3*REST)) ((EQ *3*FN (QUOTE UNION)) (*1*UNION *3*ARG *3*REST)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (SEXPR (LAMBDA (*3*VAR *3*RANGE *3*CONDITION *3*OP *3*BODY *3*ALIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE FOR) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*RANGE) *1*F)) (*1*QUANTIFIER-INITIAL-VALUE *3*OP)) ((NOT (EQ (*1*EVAL$ (QUOTE *1*TRUE) *3*CONDITION (SETQ *2*TEMP1 (CONS (CONS *3*VAR (*1*CAR *3*RANGE)) *3*ALIST))) *1*F)) (*1*QUANTIFIER-OPERATION *3*OP (*1*EVAL$ (QUOTE *1*TRUE) *3*BODY *2*TEMP1) (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))) (T (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))))))))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (SEXPR (LAMBDA (*3*X) *3*X)))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (SEXPR (LAMBDA (*3*X *3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((EQUAL *3*X (CAR *3*L)) (CDR *3*L)) (T (CONS (CAR *3*L) (*1*DELETE *3*X (CDR *3*L)))))) (T *3*L)))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*Y) *3*X) *1*F)) (*1*BAGDIFF (*1*DELETE (CAR *3*Y) *3*X) (CDR *3*Y))) (T (*1*BAGDIFF *3*X (CDR *3*Y))))) (T *3*X)))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (CONS (CAR *3*X) (*1*BAGINT (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y)))) (T (*1*BAGINT (CDR *3*X) *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*OCCURRENCES) (QUOTE (SEXPR (LAMBDA (*3*X *3*L) (LET NIL (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((EQUAL *3*X (CAR *3*L)) (*1*ADD1 (*1*OCCURRENCES *3*X (CDR *3*L)))) (T (*1*OCCURRENCES *3*X (CDR *3*L))))) (T (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SUBBAGP (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*PLUS-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*PLUS-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE (QUOTE 0))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*L) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*PLUS-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP6 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3)) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE))))))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP11 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE DIFFERENCE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE DIFFERENCE) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (*1*PLUS-FRINGE *2*TEMP6)))) *1*F)) (QUOTE (QUOTE 0))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE LESSP) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (*1*PLUS-FRINGE *2*TEMP11)))) *1*F)) (QUOTE (QUOTE *1*FALSE))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL))) (QUOTE NIL)))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (QUOTE 1))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*X) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*TIMES-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*TIMES-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*TIMES-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*OR-ZEROP-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (FALSE))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))) (QUOTE NIL))))) (T (CONS (QUOTE OR) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (CONS (*1*OR-ZEROP-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (TRUE))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL)))) (T (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL))) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP6 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *3*X))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP5)))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP6)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE AND) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE LESSP) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP6 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *3*X))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP5)))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP6)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE OR) (CONS (*1*OR-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*DOUBLE-REMAINDER-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (COND ((NOT (EQ (*1*ZEROP *3*C) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*LESSP *3*A *3*C) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*LESSP *3*B *3*C) *1*F)) (QUOTE 0)) (T (*1*DOUBLE-REMAINDER-INDUCTION (*1*DIFFERENCE *3*A *3*C) (*1*DIFFERENCE *3*B *3*C) *3*C))))))) (PUT1-LST (QUOTE *1*CANCEL-QUOTIENT-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((EQ (*1*CAR *3*X) (QUOTE QUOTIENT)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP6 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *3*X))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP5)))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP6)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE QUOTIENT) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((ZERO))))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (COND ((NOT (EQ (*1*ZEROP *3*J) *1*F)) (QUOTE 1)) (T (*1*TIMES *3*I (*1*EXP *3*I (*1*SUB1 *3*J))))))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (SEXPR (LAMBDA (*3*BASE *3*N) (COND ((NOT (EQ (*1*LESSP *3*BASE (QUOTE 2)) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LOG *3*BASE (*1*QUOTIENT *3*N *3*BASE))))))))) (PUT1-LST (QUOTE *1*GCD) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*X) *1*F)) (*1*FIX *3*Y)) ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) *3*X) ((NOT (EQ (*1*LESSP *3*X *3*Y) *1*F)) (*1*GCD *3*X (*1*DIFFERENCE *3*Y *3*X))) (T (*1*GCD (*1*DIFFERENCE *3*X *3*Y) *3*Y))))))) (PUT1-LST (QUOTE *1*DOUBLE-NUMBER-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (COND ((NOT (EQ (*1*ZEROP *3*I) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*ZEROP *3*J) *1*F)) (QUOTE 0)) (T (*1*DOUBLE-NUMBER-INDUCTION (*1*SUB1 *3*I) (*1*SUB1 *3*J)))))))) (PUT1-LST (QUOTE *1*DOUBLE-LOG-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*BASE *3*A *3*B) (COND ((NOT (EQ (*1*LESSP *3*BASE (QUOTE 2)) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*ZEROP *3*A) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*ZEROP *3*B) *1*F)) (QUOTE 0)) (T (*1*DOUBLE-LOG-INDUCTION *3*BASE (*1*QUOTIENT *3*A *3*BASE) (*1*QUOTIENT *3*B *3*BASE)))))))) (PUT1-LST (QUOTE *1*SINGLE-NUMBER-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*SINGLE-NUMBER-INDUCTION (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NUMBERP *3*X) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*NOT (*1*ZEROP (*1*NEGATIVE-GUTS *3*X)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*INTEGERP *3*X) *1*F)) *3*X) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (SEXPR (LAMBDA (*3*I) (COND ((EQUAL (*1*FIX-INT *3*I) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET NIL (COND ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*LESSP (*1*NEGATIVE-GUTS *3*J) (*1*NEGATIVE-GUTS *3*I))) ((EQUAL *3*I (QUOTE (*1*QUOTE MINUS 0))) (*1*LESSP (QUOTE 0) *3*J)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (QUOTE *1*FALSE)) (T (*1*LESSP *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*NOT (*1*ILESSP *3*J *3*I)))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*Y) *1*F)) (COND ((NOT (EQ (*1*AND (*1*ZEROP (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*X))) (*1*ZEROP (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*Y)))) *1*F)) (QUOTE 0)) (T (*1*MINUS (*1*PLUS *2*TEMP2 *2*TEMP1))))) ((NOT (EQ (*1*LESSP *3*Y (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*X))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP2 *3*Y))) (T (*1*DIFFERENCE *3*Y *2*TEMP2)))) ((NOT (EQ (*1*NEGATIVEP *3*Y) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*X (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*Y))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP1 *3*X))) (T (*1*DIFFERENCE *3*X *2*TEMP1)))) (T (*1*PLUS *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) ((NOT (EQ (*1*ZEROP *3*X) *1*F)) (QUOTE 0)) (T (*1*MINUS *3*X))))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*IPLUS *3*X (*1*INEG *3*Y)))))) (PUT1-LST (QUOTE *1*IABS) (QUOTE (SEXPR (LAMBDA (*3*I) (COND ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (*1*NEGATIVE-GUTS *3*I)) (T (*1*FIX *3*I))))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET NIL (COND ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*TIMES (*1*NEGATIVE-GUTS *3*I) (*1*NEGATIVE-GUTS *3*J))) (T (*1*FIX-INT (*1*MINUS (*1*TIMES (*1*NEGATIVE-GUTS *3*I) *3*J)))))) ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*FIX-INT (*1*MINUS (*1*TIMES *3*I (*1*NEGATIVE-GUTS *3*J))))) (T (*1*TIMES *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (*1*FIX-INT *3*J) (QUOTE 0)) (QUOTE 0)) ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (COND ((EQUAL (*1*REMAINDER (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*I)) (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*J))) (QUOTE 0)) (*1*QUOTIENT *2*TEMP2 *2*TEMP1)) (T (*1*ADD1 (*1*QUOTIENT *2*TEMP2 *2*TEMP1))))) ((EQUAL (*1*REMAINDER (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*I)) *3*J) (QUOTE 0)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *2*TEMP2 *3*J)))) (T (*1*FIX-INT (*1*MINUS (*1*ADD1 (*1*QUOTIENT *2*TEMP2 *3*J))))))) ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *3*I (*1*NEGATIVE-GUTS *3*J))))) (T (*1*QUOTIENT *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*IDIFFERENCE *3*I (*1*ITIMES *3*J (*1*IQUOTIENT *3*I *3*J))))))) (PUT1-LST (QUOTE *1*IDIV) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (*1*FIX-INT *3*J) (QUOTE 0)) (QUOTE 0)) ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*I) (*1*NEGATIVE-GUTS *3*J))) ((EQUAL (*1*REMAINDER (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*I)) *3*J) (QUOTE 0)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *2*TEMP2 *3*J)))) (T (*1*FIX-INT (*1*MINUS (*1*ADD1 (*1*QUOTIENT *2*TEMP2 *3*J))))))) ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (COND ((EQUAL (*1*REMAINDER *3*I (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*J))) (QUOTE 0)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *3*I *2*TEMP1)))) (T (*1*FIX-INT (*1*MINUS (*1*ADD1 (*1*QUOTIENT *3*I *2*TEMP1))))))) (T (*1*QUOTIENT *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*IMOD) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*IDIFFERENCE (*1*FIX-INT *3*I) (*1*ITIMES *3*J (*1*IDIV *3*I *3*J))))))) (PUT1-LST (QUOTE *1*IQUO) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET NIL (COND ((EQUAL (*1*FIX-INT *3*J) (QUOTE 0)) (QUOTE 0)) ((NOT (EQ (*1*NEGATIVEP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*I) (*1*NEGATIVE-GUTS *3*J))) (T (*1*FIX-INT (*1*MINUS (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*I) *3*J)))))) ((NOT (EQ (*1*NEGATIVEP *3*J) *1*F)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *3*I (*1*NEGATIVE-GUTS *3*J))))) (T (*1*QUOTIENT *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*IDIFFERENCE (*1*FIX-INT *3*I) (*1*ITIMES *3*J (*1*IQUO *3*I *3*J))))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-AUX) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE INEG)) (COND ((EQUAL *3*Y (SETQ *2*TEMP9 (*1*CAR (CDR *3*X)))) (QUOTE (QUOTE 0))) ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*Y) (QUOTE IPLUS)) (COND ((EQUAL (SETQ *2*TEMP8 (*1*CAR (CDR *3*Y))) *2*TEMP9) (CONS (QUOTE FIX-INT) (CONS (*1*CAR (*1*CDR (CDR *3*Y))) (QUOTE NIL)))) ((NOT (EQ (SETQ *2*TEMP6 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP7 (*1*CAR (*1*CDR (CDR *3*Y)))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP8 (CONS *2*TEMP6 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*NLISTP *3*Y) *1*F)) (QUOTE *1*FALSE)) ((EQ (SETQ *2*TEMP5 (*1*CAR *3*Y)) (QUOTE INEG)) (COND ((EQUAL *3*X (*1*CAR (*1*CDR *3*Y))) (QUOTE (QUOTE 0))) (T (QUOTE *1*FALSE)))) ((EQ *2*TEMP5 (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*Y))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP4) (QUOTE INEG)) (COND ((EQUAL *3*X (*1*CAR (CDR *2*TEMP4))) (CONS (QUOTE FIX-INT) (CONS (*1*CAR (*1*CDR *2*TEMP3)) (QUOTE NIL)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*NLISTP *3*Y) *1*F)) (QUOTE *1*FALSE)) ((EQ (SETQ *2*TEMP5 (*1*CAR *3*Y)) (QUOTE INEG)) (COND ((EQUAL *3*X (*1*CAR (*1*CDR *3*Y))) (QUOTE (QUOTE 0))) (T (QUOTE *1*FALSE)))) ((EQ *2*TEMP5 (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*Y))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP4) (QUOTE INEG)) (COND ((EQUAL *3*X (*1*CAR (CDR *2*TEMP4))) (CONS (QUOTE FIX-INT) (CONS (*1*CAR (*1*CDR *2*TEMP3)) (QUOTE NIL)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX *3*X (SETQ *2*TEMP2 (*1*CAR (*1*CDR *2*TEMP3))))) *1*F)) (CONS (QUOTE IPLUS) (CONS *2*TEMP4 (CONS *2*TEMP1 (QUOTE NIL))))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*CANCEL-INEG) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE IPLUS)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*CANCEL-INEG-AUX (*1*CAR (CDR *3*X)) (*1*CAR (*1*CDR (CDR *3*X))))) *1*F)) *2*TEMP1) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EVAL$-CANCEL-INEG-AUX-FN) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE EVAL$-CANCEL-INEG-AUX-FN) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE INEG)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((EQUAL *3*Y (SETQ *2*TEMP3 (*1*CAR (*1*CDR *3*X)))) (QUOTE 0)) ((EQUAL (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*Y))) *2*TEMP3) (*1*FIX-INT (*1*EVAL$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP1)) *3*A))) ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (*1*IPLUS (*1*EVAL$ (QUOTE *1*TRUE) (*1*CAR (CDR *3*Y)) *3*A) (*1*EVAL$-CANCEL-INEG-AUX-FN *3*X (*1*CAR (*1*CDR (CDR *3*Y))) *3*A))) (T (QUOTE 0)))) ((EQ (*1*CAR *3*Y) (QUOTE INEG)) (QUOTE 0)) ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*Y))))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *2*TEMP2) (QUOTE INEG)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (*1*CAR (*1*CDR *2*TEMP2))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*FIX-INT (*1*EVAL$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP1)) *3*A))) ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (*1*IPLUS (*1*EVAL$ (QUOTE *1*TRUE) (*1*CAR (CDR *3*Y)) *3*A) (*1*EVAL$-CANCEL-INEG-AUX-FN *3*X (*1*CAR (*1*CDR (CDR *3*Y))) *3*A))) (T (QUOTE 0))))))))))) (PUT1-LST (QUOTE *1*IPLUS-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE IPLUS)) (*1*APPEND (*1*IPLUS-FRINGE (*1*CAR (CDR *3*X))) (*1*IPLUS-FRINGE (*1*CAR (*1*CDR (CDR *3*X)))))) (T (CONS *3*X (QUOTE NIL))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*IPLUS-TREE-REC) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (*1*CAR *3*L)) (T (CONS (QUOTE IPLUS) (CONS (*1*CAR *3*L) (CONS (*1*IPLUS-TREE-REC *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*IPLUS-TREE) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (CDR *3*L)) (NOT (EQ (CAR (CDR *3*L)) (QUOTE *1*QUOTE)))) (*1*IPLUS-TREE-REC *3*L)) (T (CONS (QUOTE FIX-INT) (CONS (CAR *3*L) (QUOTE NIL)))))) (T (QUOTE (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*IPLUS-LIST) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*IPLUS (CAR *3*X) (*1*IPLUS-LIST (CDR *3*X)))) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE EQUAL)) (COND ((AND (CONSP (SETQ *2*TEMP5 (*1*CAR (CDR *3*X)))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP5) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP4) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*IPLUS-FRINGE *2*TEMP5)) (SETQ *2*TEMP1 (*1*IPLUS-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL))))) (T *3*X))) ((NOT (EQ (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*IPLUS-FRINGE *2*TEMP5))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((NOT (EQ (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*IPLUS-FRINGE *2*TEMP5))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP4 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP4) (QUOTE IPLUS)) (COND ((NOT (EQ (*1*MEMBER *2*TEMP5 (SETQ *2*TEMP1 (*1*IPLUS-FRINGE *2*TEMP4))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP5 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (*1*IPLUS-TREE (*1*DELETE *2*TEMP5 *2*TEMP1)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP4 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP4) (QUOTE IPLUS)) (COND ((NOT (EQ (*1*MEMBER *2*TEMP5 (SETQ *2*TEMP1 (*1*IPLUS-FRINGE *2*TEMP4))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP5 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (*1*IPLUS-TREE (*1*DELETE *2*TEMP5 *2*TEMP1)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-IPLUS-INEQUALITY-1) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*BAGDIFF *3*X (SETQ *2*TEMP1 (*1*BAGINT *3*X *3*Y)))) (CONS (*1*IPLUS-TREE (*1*BAGDIFF *3*Y *2*TEMP1)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS-ILESSP-1) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (*1*MAKE-CANCEL-IPLUS-INEQUALITY-1 (*1*IPLUS-FRINGE (*1*CAR (CDR *3*X))) (*1*IPLUS-FRINGE (*1*CAR (*1*CDR (CDR *3*X)))))) (T *3*X))) (T *3*X)))))) (PUT1-LST (QUOTE *1*IPLUS-TREE-NO-FIX-INT) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (*1*IPLUS-TREE-REC *3*L)) (T (QUOTE (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*CANCEL-IPLUS-ILESSP) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*IPLUS-FRINGE (*1*CAR (CDR *3*X)))) (SETQ *2*TEMP1 (*1*IPLUS-FRINGE (*1*CAR (*1*CDR (CDR *3*X)))))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE-NO-FIX-INT (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*IPLUS-TREE-NO-FIX-INT (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL))))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*ITIMES-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ITIMES)) (*1*APPEND (*1*ITIMES-FRINGE (*1*CAR (CDR *3*X))) (*1*ITIMES-FRINGE (*1*CAR (*1*CDR (CDR *3*X)))))) (T (CONS *3*X (QUOTE NIL))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-REC) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (*1*CAR *3*L)) (T (CONS (QUOTE ITIMES) (CONS (*1*CAR *3*L) (CONS (*1*ITIMES-TREE-REC *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*ITIMES-TREE) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (CDR *3*L)) (NOT (EQ (CAR (CDR *3*L)) (QUOTE *1*QUOTE)))) (*1*ITIMES-TREE-REC *3*L)) (T (CONS (QUOTE FIX-INT) (CONS (CAR *3*L) (QUOTE NIL)))))) (T (QUOTE (QUOTE 1)))))))) (PUT1-LST (QUOTE *1*ITIMES-LIST) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*ITIMES (CAR *3*X) (*1*ITIMES-LIST (CDR *3*X)))) (T (QUOTE 1))))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-ITIMES-EQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*IN-BOTH) (CONS (QUOTE IF) (CONS (CONS (QUOTE EQUAL) (CONS (*1*ITIMES-TREE *3*IN-BOTH) (QUOTE ((QUOTE 0))))) (CONS (QUOTE (QUOTE *1*TRUE)) (CONS (CONS (QUOTE EQUAL) (CONS (*1*ITIMES-TREE (*1*BAGDIFF *3*X *3*IN-BOTH)) (CONS (*1*ITIMES-TREE (*1*BAGDIFF *3*Y *3*IN-BOTH)) (QUOTE NIL)))) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE EQUAL)) (COND ((AND (CONSP (SETQ *2*TEMP7 (*1*CAR (CDR *3*X)))) (NOT (EQ (CAR *2*TEMP7) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP7) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP6) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP5 (*1*BAGINT (SETQ *2*TEMP4 (*1*ITIMES-FRINGE *2*TEMP7)) (SETQ *2*TEMP3 (*1*ITIMES-FRINGE *2*TEMP6))))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP4 *2*TEMP3 *2*TEMP5)) (T *3*X))) ((NOT (EQ (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP4 (*1*ITIMES-FRINGE *2*TEMP7))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (SETQ *2*TEMP2 (CONS *2*TEMP6 (QUOTE NIL)))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP4 *2*TEMP2 *2*TEMP2) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((NOT (EQ (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP4 (*1*ITIMES-FRINGE *2*TEMP7))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (SETQ *2*TEMP2 (CONS *2*TEMP6 (QUOTE NIL)))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP4 *2*TEMP2 *2*TEMP2) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP6) (QUOTE ITIMES)) (COND ((NOT (EQ (*1*MEMBER *2*TEMP7 (SETQ *2*TEMP3 (*1*ITIMES-FRINGE *2*TEMP6))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (SETQ *2*TEMP1 (CONS *2*TEMP7 (QUOTE NIL)))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP1 *2*TEMP3 *2*TEMP1) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP6) (QUOTE ITIMES)) (COND ((NOT (EQ (*1*MEMBER *2*TEMP7 (SETQ *2*TEMP3 (*1*ITIMES-FRINGE *2*TEMP6))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (SETQ *2*TEMP1 (CONS *2*TEMP7 (QUOTE NIL)))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP1 *2*TEMP3 *2*TEMP1) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*SUBSETP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*MEMBER (*1*CAR *3*X) *3*Y) *1*F)) (*1*SUBSETP (*1*CDR *3*X) *3*Y)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-NO-FIX-INT) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (*1*ITIMES-TREE-REC *3*L)) (T (QUOTE (QUOTE 1)))))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-ITIMES-INEQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*IN-BOTH) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (SETQ *2*TEMP3 (*1*ITIMES-TREE-NO-FIX-INT *3*IN-BOTH)) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE ILESSP) (CONS (SETQ *2*TEMP2 (*1*ITIMES-TREE-NO-FIX-INT (*1*BAGDIFF *3*Y *3*IN-BOTH))) (CONS (SETQ *2*TEMP1 (*1*ITIMES-TREE-NO-FIX-INT (*1*BAGDIFF *3*X *3*IN-BOTH))) (QUOTE NIL)))) (CONS (CONS (QUOTE IF) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS *2*TEMP3 (QUOTE NIL)))) (CONS (CONS (QUOTE ILESSP) (CONS *2*TEMP1 (CONS *2*TEMP2 (QUOTE NIL)))) (QUOTE ((FALSE)))))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-ILESSP) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*ITIMES-FRINGE (*1*CAR (CDR *3*X)))) (SETQ *2*TEMP1 (*1*ITIMES-FRINGE (*1*CAR (*1*CDR (CDR *3*X)))))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (*1*MAKE-CANCEL-ITIMES-INEQUALITY *2*TEMP2 *2*TEMP1 *2*TEMP3)) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*ITIMES-TREE-INEG) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((EQUAL (CAR *3*L) (QUOTE (QUOTE -1))) (COND ((AND (CONSP (CDR *3*L)) (NOT (EQ (CAR (CDR *3*L)) (QUOTE *1*QUOTE)))) (CONS (QUOTE INEG) (CONS (*1*ITIMES-TREE-REC (CDR *3*L)) (QUOTE NIL)))) (T (CAR *3*L)))) (T (*1*ITIMES-TREE-REC *3*L)))) (T (QUOTE (QUOTE 1)))))))) (PUT1-LST (QUOTE *1*ITIMES-FACTORS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ITIMES)) (*1*APPEND (*1*ITIMES-FACTORS (*1*CAR (CDR *3*X))) (*1*ITIMES-FACTORS (*1*CAR (*1*CDR (CDR *3*X)))))) ((EQ (CAR *3*X) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*BAGINT (SETQ *2*TEMP3 (*1*ITIMES-FACTORS (*1*CAR (CDR *3*X)))) (SETQ *2*TEMP2 (*1*ITIMES-FACTORS (*1*CAR (*1*CDR (CDR *3*X)))))))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS (CONS (QUOTE IPLUS) (CONS (*1*ITIMES-TREE-INEG (*1*BAGDIFF *2*TEMP3 *2*TEMP1)) (CONS (*1*ITIMES-TREE-INEG (*1*BAGDIFF *2*TEMP2 *2*TEMP1)) (QUOTE NIL)))) *2*TEMP1)) (T (CONS *3*X (QUOTE NIL))))) ((EQ (CAR *3*X) (QUOTE INEG)) (CONS (QUOTE (QUOTE -1)) (*1*ITIMES-FACTORS (*1*CAR (CDR *3*X))))) (T (CONS *3*X (QUOTE NIL))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*IPLUS-OR-ITIMES-TERM) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE IPLUS)) (QUOTE *1*TRUE)) ((EQ (CAR *3*X) (QUOTE ITIMES)) (QUOTE *1*TRUE)) ((EQ (CAR *3*X) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR (CDR *3*X)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE ITIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-FACTORS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*IPLUS-OR-ITIMES-TERM (SETQ *2*TEMP6 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *3*X))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*BAGINT (SETQ *2*TEMP3 (*1*ITIMES-FACTORS *2*TEMP6)) (SETQ *2*TEMP2 (*1*ITIMES-FACTORS (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP5)))))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*IPLUS-OR-ITIMES-TERM *2*TEMP1) *1*F)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP3 *2*TEMP2 *2*TEMP4)) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP3 *2*TEMP2 *2*TEMP4) (QUOTE ((QUOTE *1*FALSE))))))))) (T *3*X))) ((NOT (EQ (*1*IPLUS-OR-ITIMES-TERM (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP5)))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*BAGINT (SETQ *2*TEMP3 (*1*ITIMES-FACTORS *2*TEMP6)) (SETQ *2*TEMP2 (*1*ITIMES-FACTORS *2*TEMP1))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP6 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP3 *2*TEMP2 *2*TEMP4) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-FACTORS-EXPANDED) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE EQUAL)) (COND ((AND (CONSP (SETQ *2*TEMP7 (*1*CAR (CDR *3*X)))) (NOT (EQ (CAR *2*TEMP7) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP7) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP *2*TEMP3) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T *3*X))) ((EQ (CAR *2*TEMP7) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP *2*TEMP3) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T *3*X))) ((EQ (CAR *2*TEMP7) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR (CDR *2*TEMP7)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP *2*TEMP3) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6)) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CAR (CDR *2*TEMP3)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE ITIMES)) (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*BAGINT (SETQ *2*TEMP5 (*1*ITIMES-FACTORS *2*TEMP7)) (SETQ *2*TEMP4 (*1*ITIMES-FACTORS *2*TEMP3))))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP7 (QUOTE NIL))) (CONS (*1*MAKE-CANCEL-ITIMES-EQUALITY *2*TEMP5 *2*TEMP4 *2*TEMP6) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-ITIMES-ILESSP-FACTORS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*ITIMES-FACTORS (*1*CAR (CDR *3*X)))) (SETQ *2*TEMP1 (*1*ITIMES-FACTORS (*1*CAR (*1*CDR (CDR *3*X)))))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (*1*MAKE-CANCEL-ITIMES-INEQUALITY *2*TEMP2 *2*TEMP1 *2*TEMP3)) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*DISJOIN-EQUALITIES-WITH-0) (QUOTE (SEXPR (LAMBDA (*3*FACTORS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CDR *3*FACTORS))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (*1*CAR *3*FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0))))) (CONS (*1*DISJOIN-EQUALITIES-WITH-0 *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE EQUAL) (CONS (CONS (QUOTE FIX-INT) (CONS (*1*CAR *3*FACTORS) (QUOTE NIL))) (QUOTE ((QUOTE 0)))))))))))) (PUT1-LST (QUOTE *1*CANCEL-FACTORS-0) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE EQUAL)) (COND ((EQUAL (SETQ *2*TEMP6 (*1*CAR (CDR *3*X))) (QUOTE (QUOTE 0))) (COND ((AND (CONSP (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*ITIMES-FACTORS (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))))))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (*1*DISJOIN-EQUALITIES-WITH-0 *2*TEMP4)) (T *3*X))) ((EQUAL (*1*CAR (*1*CDR (CDR *3*X))) (QUOTE (QUOTE 0))) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ITIMES-FACTORS *2*TEMP6))))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (*1*DISJOIN-EQUALITIES-WITH-0 *2*TEMP1)) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*SOME-EVAL$S-TO-0) (QUOTE (SEXPR (LAMBDA (*3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE SOME-EVAL$S-TO-0) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*OR (COND ((EQUAL (*1*FIX-INT (*1*EVAL$ (QUOTE *1*TRUE) (CAR *3*X) *3*A)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*SOME-EVAL$S-TO-0 (CDR *3*X) *3*A))) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*CONJOIN-INEQUALITIES-WITH-0) (QUOTE (SEXPR (LAMBDA (*3*FACTORS *3*PARITY) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CDR *3*FACTORS))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ *3*PARITY *1*F)) (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (SETQ *2*TEMP1 (*1*CAR *3*FACTORS)) (QUOTE NIL)))) (CONS (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP2 (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS *2*TEMP1 (QUOTE ((QUOTE 0))))) (CONS (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP2 (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL))))) (T (CONS (QUOTE OR) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (SETQ *2*TEMP1 (*1*CAR *3*FACTORS)) (QUOTE ((QUOTE 0))))) (CONS (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP2 (QUOTE *1*TRUE)) (QUOTE NIL)))) (CONS (CONS (QUOTE AND) (CONS (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS *2*TEMP1 (QUOTE NIL)))) (CONS (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP2 (QUOTE *1*FALSE)) (QUOTE NIL)))) (QUOTE NIL))))))) ((NOT (EQ *3*PARITY *1*F)) (CONS (QUOTE ILESSP) (CONS (QUOTE (QUOTE 0)) (CONS (*1*CAR *3*FACTORS) (QUOTE NIL))))) (T (CONS (QUOTE ILESSP) (CONS (*1*CAR *3*FACTORS) (QUOTE ((QUOTE 0)))))))))))) (PUT1-LST (QUOTE *1*CANCEL-FACTORS-ILESSP-0) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (COND ((EQUAL (SETQ *2*TEMP6 (*1*CAR (CDR *3*X))) (QUOTE (QUOTE 0))) (COND ((AND (CONSP (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*ITIMES-FACTORS (SETQ *2*TEMP3 (*1*CAR (*1*CDR (CDR *3*X))))))))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP4 (QUOTE *1*TRUE))) (T *3*X))) ((EQUAL (*1*CAR (*1*CDR (CDR *3*X))) (QUOTE (QUOTE 0))) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ITIMES-FACTORS *2*TEMP6))))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (*1*CONJOIN-INEQUALITIES-WITH-0 *2*TEMP1 (QUOTE *1*FALSE))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*SPLIT-OUT-INEG-TERMS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (CAR *3*X)) (NOT (EQ (CAR (CAR *3*X)) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR (CAR *3*X)) (QUOTE INEG)) (CONS (*1*CAR (SETQ *2*TEMP3 (*1*SPLIT-OUT-INEG-TERMS (CDR *3*X)))) (CONS (*1*CAR (CDR (CAR *3*X))) (*1*CDR *2*TEMP3)))) ((NOT (EQ (*1*AND (COND ((EQ (CAR (CAR *3*X)) (QUOTE QUOTE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NEGATIVEP (SETQ *2*TEMP2 (*1*CAR (CDR (CAR *3*X))))) (*1*NOT (COND ((EQUAL (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *2*TEMP2)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (CONS (*1*CAR (SETQ *2*TEMP3 (*1*SPLIT-OUT-INEG-TERMS (CDR *3*X)))) (CONS (CONS (QUOTE QUOTE) (CONS *2*TEMP1 (QUOTE NIL))) (*1*CDR *2*TEMP3)))) (T (CONS (CONS (CAR *3*X) (*1*CAR (SETQ *2*TEMP3 (*1*SPLIT-OUT-INEG-TERMS (CDR *3*X))))) (*1*CDR *2*TEMP3))))) (T (CONS (CONS (CAR *3*X) (*1*CAR (SETQ *2*TEMP3 (*1*SPLIT-OUT-INEG-TERMS (CDR *3*X))))) (*1*CDR *2*TEMP3))))) (T (QUOTE (NIL))))))))) (PUT1-LST (QUOTE *1*REMOVE-INEGS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP (SETQ *2*TEMP4 (*1*CDR (SETQ *2*TEMP3 (*1*SPLIT-OUT-INEG-TERMS *3*X))))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*SPLIT-OUT-INEG-TERMS *3*Y))))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (CONS (*1*APPEND *2*TEMP2 (*1*CAR *2*TEMP3)) (*1*APPEND *2*TEMP4 (*1*CAR *2*TEMP1)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*IPLUS-OR-INEG-TERM) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*X)) (QUOTE INEG)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *2*TEMP1 (QUOTE IPLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-INEG-TERMS-EQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP4 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*X))))) (*1*IPLUS-FRINGE (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))))) *1*F)) (COND ((NOT (EQ (*1*IPLUS-OR-INEG-TERM *2*TEMP3) *1*F)) (COND ((NOT (EQ (*1*IPLUS-OR-INEG-TERM *2*TEMP1) *1*F)) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP4)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP4)) (QUOTE NIL))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP4)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP4)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))))) ((NOT (EQ (*1*IPLUS-OR-INEG-TERM *2*TEMP1) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP3 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP4)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP4)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-EQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*MAKE-CANCEL-INEG-TERMS-EQUALITY *3*X)) (T *3*X)))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-EQUALITY-EXPANDED) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE EQUAL)) (COND ((NOT (EQ (SETQ *2*TEMP3 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE (SETQ *2*TEMP2 (*1*CAR (CDR *3*X)))) (*1*IPLUS-FRINGE (SETQ *2*TEMP1 (*1*CAR (*1*CDR (CDR *3*X))))))) *1*F)) (COND ((AND (CONSP *2*TEMP2) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP2) (QUOTE INEG)) (COND ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL))))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))))) ((EQ (CAR *2*TEMP2) (QUOTE IPLUS)) (COND ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL))))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))))) (T (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))))) ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (CONS (QUOTE IF) (CONS (CONS (QUOTE INTEGERP) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP3)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*MAKE-CANCEL-INEG-TERMS-INEQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*IPLUS-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE ILESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*IPLUS-OR-INEG-TERM (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) *1*F)) (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY *3*X)) ((NOT (EQ (*1*IPLUS-OR-INEG-TERM (*1*CAR (*1*CDR *2*TEMP1))) *1*F)) (*1*MAKE-CANCEL-INEG-TERMS-INEQUALITY *3*X)) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-INEG-TERMS-FROM-INEQUALITY-EXPANDED) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE ILESSP)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*CAR (CDR *3*X)))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP3) (QUOTE INEG)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE (SETQ *2*TEMP1 (*1*CAR (*1*CDR (CDR *3*X))))))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) ((EQ (CAR *2*TEMP3) (QUOTE IPLUS)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE (SETQ *2*TEMP1 (*1*CAR (*1*CDR (CDR *3*X))))))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE *2*TEMP1))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE *2*TEMP1))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) (T *3*X))) (T *3*X))) ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR (*1*CDR (CDR *3*X))))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *2*TEMP1) (QUOTE INEG)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE *2*TEMP1))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) ((EQ (CAR *2*TEMP1) (QUOTE IPLUS)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*REMOVE-INEGS (*1*IPLUS-FRINGE *2*TEMP3) (*1*IPLUS-FRINGE *2*TEMP1))) *1*F)) (CONS (QUOTE ILESSP) (CONS (*1*IPLUS-TREE (*1*CAR *2*TEMP2)) (CONS (*1*IPLUS-TREE (*1*CDR *2*TEMP2)) (QUOTE NIL))))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*IF*) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (COND ((NOT (EQ *3*A *1*F)) *3*B) (T *3*C)))))) (PUT1-LST (QUOTE *1*OR*) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*IF* *3*A (QUOTE *1*TRUE) (*1*IF* *3*B (QUOTE *1*TRUE) (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*AND*) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*IF* *3*A (*1*IF* *3*B (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)))))) (PUT1-LST (QUOTE *1*NOT*) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*IF* *3*A (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*APPEND5) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E) (*1*APPEND *3*A (*1*APPEND *3*B (*1*APPEND *3*C (*1*APPEND *3*D *3*E)))))))) (PUT1-LST (QUOTE *1*APPEND6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G) (*1*APPEND *3*A (*1*APPEND *3*B (*1*APPEND *3*C (*1*APPEND *3*D (*1*APPEND *3*E *3*G))))))))) (PUT1-LST (QUOTE *1*APPEND7) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H) (*1*APPEND *3*A (*1*APPEND *3*B (*1*APPEND *3*C (*1*APPEND *3*D (*1*APPEND *3*E (*1*APPEND *3*G *3*H)))))))))) (PUT1-LST (QUOTE *1*APPEND8) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H *3*I) (*1*APPEND *3*A (*1*APPEND *3*B (*1*APPEND *3*C (*1*APPEND *3*D (*1*APPEND *3*E (*1*APPEND *3*G (*1*APPEND *3*H *3*I))))))))))) (PUT1-LST (QUOTE *1*PROPERP) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (*1*PROPERP (CDR *3*L))) ((EQ *3*L (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*POSITION) (QUOTE (SEXPR (LAMBDA (*3*X *3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE *1*FALSE)) ((EQUAL *3*X (*1*CAR *3*L)) (QUOTE 0)) ((NOT (EQ (SETQ *2*TEMP1 (*1*POSITION *3*X (*1*CDR *3*L))) *1*F)) (*1*ADD1 *2*TEMP1)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*LENGTH) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (*1*ADD1 (*1*LENGTH (CDR *3*L)))) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*REV1) (QUOTE (SEXPR (LAMBDA (*3*X *3*SPONGE) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) *3*SPONGE) (T (*1*REV1 (*1*CDR *3*X) (CONS (*1*CAR *3*X) *3*SPONGE)))))))) (PUT1-LST (QUOTE *1*REVERSE) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*REV1 *3*X (QUOTE NIL)))))) (PUT1-LST (QUOTE *1*DELETE*) (QUOTE (SEXPR (LAMBDA (*3*X *3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) *3*L) ((EQUAL *3*X (SETQ *2*TEMP1 (*1*CAR *3*L))) (*1*DELETE* *3*X (*1*CDR *3*L))) (T (CONS *2*TEMP1 (*1*DELETE* *3*X (*1*CDR *3*L)))))))))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (SEXPR (LAMBDA (*3*L1 *3*L2) (COND ((NOT (EQ (*1*NLISTP *3*L1) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*MEMBER (*1*CAR *3*L1) *3*L2) (*1*SUBSET (*1*CDR *3*L1) *3*L2)))))))) (PUT1-LST (QUOTE *1*DISJOINT) (QUOTE (SEXPR (LAMBDA (*3*L1 *3*L2) (COND ((NOT (EQ (*1*NLISTP *3*L1) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*NOT (*1*MEMBER (*1*CAR *3*L1) *3*L2)) (*1*DISJOINT (*1*CDR *3*L1) *3*L2)))))))) (PUT1-LST (QUOTE *1*DUPLICATES?) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE *1*FALSE)) (T (*1*OR (*1*MEMBER (*1*CAR *3*L) (SETQ *2*TEMP1 (*1*CDR *3*L))) (*1*DUPLICATES? *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*FIRSTN) (QUOTE (SEXPR (LAMBDA (*3*N *3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CAR *3*L) (*1*FIRSTN (*1*SUB1 *3*N) (CDR *3*L)))))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*RESTN) (QUOTE (SEXPR (LAMBDA (*3*N *3*L) (COND ((AND (CONSP *3*L) (NOT (EQ (CAR *3*L) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*L) (T (*1*RESTN (*1*SUB1 *3*N) (CDR *3*L))))) (T *3*L)))))) (PUT1-LST (QUOTE *1*NTH) (QUOTE (SEXPR (LAMBDA (*3*N *3*LIST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*CAR *3*LIST)) (T (*1*NTH (*1*SUB1 *3*N) (*1*CDR *3*LIST)))))))) (PUT1-LST (QUOTE *1*NTHCDR) (QUOTE (SEXPR (LAMBDA (*3*N *3*L) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*L) (T (*1*NTHCDR (*1*SUB1 *3*N) (*1*CDR *3*L)))))))) (PUT1-LST (QUOTE *1*SUBRANGE) (QUOTE (SEXPR (LAMBDA (*3*L *3*N *3*M) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*M *3*N) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((NOT (EQ (*1*ZEROP *3*M) *1*F)) (CONS (*1*CAR *3*L) (QUOTE NIL))) (T (CONS (*1*CAR *3*L) (*1*SUBRANGE (*1*CDR *3*L) (QUOTE 0) (*1*SUB1 *3*M)))))) (T (*1*SUBRANGE (*1*CDR *3*L) (*1*SUB1 *3*N) (*1*SUB1 *3*M))))))))) (PUT1-LST (QUOTE *1*UPDATE-NTH) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST *3*VALUE) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (CONS *3*VALUE (CDR *3*LST))) (T (CONS (CAR *3*LST) (*1*UPDATE-NTH (*1*SUB1 *3*N) (CDR *3*LST) *3*VALUE))))) (T *3*LST)))))) (PUT1-LST (QUOTE *1*MAKE-LIST) (QUOTE (SEXPR (LAMBDA (*3*N *3*VALUE) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS *3*VALUE (*1*MAKE-LIST (*1*SUB1 *3*N) *3*VALUE)))))))) (PUT1-LST (QUOTE *1*TREE-SIZE) (QUOTE (SEXPR (LAMBDA (*3*TREE) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE 1)) (T (*1*PLUS (*1*TREE-SIZE (*1*CAR *3*TREE)) (*1*TREE-SIZE (*1*CDR *3*TREE))))))))) (PUT1-LST (QUOTE *1*TFIRSTN) (QUOTE (SEXPR (LAMBDA (*3*LIST *3*TREE) (*1*FIRSTN (*1*TREE-SIZE (*1*CAR *3*TREE)) *3*LIST))))) (PUT1-LST (QUOTE *1*TRESTN) (QUOTE (SEXPR (LAMBDA (*3*LIST *3*TREE) (*1*RESTN (*1*TREE-SIZE (*1*CAR *3*TREE)) *3*LIST))))) (PUT1-LST (QUOTE *1*TREE-HEIGHT) (QUOTE (SEXPR (LAMBDA (*3*TREE) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE 1)) (T (*1*ADD1 (*1*MAX (*1*TREE-HEIGHT (*1*CAR *3*TREE)) (*1*TREE-HEIGHT (*1*CDR *3*TREE)))))))))) (PUT1-LST (QUOTE *1*MAKE-TREE) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) ((EQUAL *3*N (QUOTE 1)) (QUOTE 0)) (T (CONS (*1*MAKE-TREE (SETQ *2*TEMP1 (*1*QUOTIENT *3*N (QUOTE 2)))) (*1*MAKE-TREE (*1*DIFFERENCE *3*N *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*LIST-AS-COLLECTED-NTH) (QUOTE (SEXPR (LAMBDA (*3*L *3*LENGTH *3*N) (COND ((NOT (EQ (*1*ZEROP *3*LENGTH) *1*F)) (QUOTE NIL)) (T (CONS (*1*NTH *3*N *3*L) (*1*LIST-AS-COLLECTED-NTH *3*L (*1*SUB1 *3*LENGTH) (*1*ADD1 *3*N))))))))) (PUT1-LST (QUOTE *1*INDEXP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE INDEX))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*I-NAME) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*INDEXP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*ZERO))))))) (PUT1-LST (QUOTE *1*I-NUM) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*INDEXP X) *1*T) (CAR (CDR (CDR (CDR X))))) (T (*1*ZERO))))))) (PUT1-LST (QUOTE *1*INDEX) (QUOTE (SEXPR (LAMBDA (I-NAME I-NUM) (LIST *1*SHELL-QUOTE-MARK (QUOTE INDEX) (IF (OR (EQ *1*T (*1*NUMBERP I-NAME)) (EQ *1*T (*1*LITATOM I-NAME))) I-NAME (*1*ZERO)) (IF (OR (EQ *1*T (*1*NUMBERP I-NUM))) I-NUM (*1*ZERO))))))) (PUT1-LST (QUOTE *1*LNFIX) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*OR (*1*NUMBERP *3*X) (*1*LITATOM *3*X)) *1*F)) *3*X) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*INDICES) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*FROM *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*INDEX *3*NAME *3*FROM) (*1*INDICES *3*NAME (*1*ADD1 *3*FROM) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*XP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE X))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*X) (QUOTE (SEXPR (LAMBDA NIL (LIST *1*SHELL-QUOTE-MARK (QUOTE X)))))) (PUT1-LST (QUOTE *1*ZP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE Z))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*Z) (QUOTE (SEXPR (LAMBDA NIL (LIST *1*SHELL-QUOTE-MARK (QUOTE Z)))))) (PUT1-LST (QUOTE *1*BOOLP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQ *3*X (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*X (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*BOOLFIX) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ *3*X *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*THREEP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQ *3*X (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQ *3*X (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (QUOTE (*1*QUOTE X))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*THREEFIX) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*BOOLP *3*X) *1*F)) *3*X) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*FOURP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQ *3*X (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQ *3*X (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*X (QUOTE (*1*QUOTE X))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*FOURFIX) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*FOURP *3*X) *1*F)) *3*X) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*BVP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (COND ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*AND (*1*BOOLP (*1*CAR *3*X)) (*1*BVP (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*BV2P) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*AND (*1*BVP *3*X) (*1*AND (*1*BVP *3*Y) (COND ((EQUAL (*1*LENGTH *3*X) (*1*LENGTH *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*BVP-LENGTH) (QUOTE (SEXPR (LAMBDA (*3*BVP *3*N) (*1*AND (*1*BVP *3*BVP) (COND ((NOT (EQ (*1*LESSP (*1*LENGTH *3*BVP) *3*N) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*XOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ *3*A *1*F)) (COND ((NOT (EQ *3*B *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) ((NOT (EQ *3*B *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*B-BUF) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ *3*X *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*NOT *3*X))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*NOT (*1*AND *3*A *3*B)))))) (PUT1-LST (QUOTE *1*B-NAND3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*NOT (*1*AND *3*A (*1*AND *3*B *3*C))))))) (PUT1-LST (QUOTE *1*B-NAND4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*NOT (*1*AND *3*A (*1*AND *3*B (*1*AND *3*C *3*D)))))))) (PUT1-LST (QUOTE *1*B-NAND5) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E) (*1*NOT (*1*AND *3*A (*1*AND *3*B (*1*AND *3*C (*1*AND *3*D *3*E))))))))) (PUT1-LST (QUOTE *1*B-NAND6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G) (*1*NOT (*1*AND *3*A (*1*AND *3*B (*1*AND *3*C (*1*AND *3*D (*1*AND *3*E *3*G)))))))))) (PUT1-LST (QUOTE *1*B-NAND8) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H *3*I) (*1*NOT (*1*AND *3*A (*1*AND *3*B (*1*AND *3*C (*1*AND *3*D (*1*AND *3*E (*1*AND *3*G (*1*AND *3*H *3*I)))))))))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*OR *3*A *3*B))))) (PUT1-LST (QUOTE *1*B-OR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*OR *3*A (*1*OR *3*B *3*C)))))) (PUT1-LST (QUOTE *1*B-OR4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*OR *3*A (*1*OR *3*B (*1*OR *3*C *3*D))))))) (PUT1-LST (QUOTE *1*B-XOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ *3*X *1*F)) (COND ((NOT (EQ *3*Y *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) ((NOT (EQ *3*Y *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*B-XOR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*B-XOR (*1*B-XOR *3*A *3*B) *3*C))))) (PUT1-LST (QUOTE *1*B-EQUV) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ *3*X *1*F)) (COND ((NOT (EQ *3*Y *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ *3*Y *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*B-EQUV3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*B-EQUV *3*A (*1*B-XOR *3*B *3*C)))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*AND *3*A *3*B))))) (PUT1-LST (QUOTE *1*B-AND3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*AND *3*A (*1*AND *3*B *3*C)))))) (PUT1-LST (QUOTE *1*B-AND4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*AND *3*A (*1*AND *3*B (*1*AND *3*C *3*D))))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*NOT (*1*OR *3*A *3*B)))))) (PUT1-LST (QUOTE *1*B-NOR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*NOT (*1*OR *3*A (*1*OR *3*B *3*C))))))) (PUT1-LST (QUOTE *1*B-NOR4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*NOT (*1*OR *3*A (*1*OR *3*B (*1*OR *3*C *3*D)))))))) (PUT1-LST (QUOTE *1*B-NOR5) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E) (*1*NOT (*1*OR *3*A (*1*OR *3*B (*1*OR *3*C (*1*OR *3*D *3*E))))))))) (PUT1-LST (QUOTE *1*B-NOR6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G) (*1*NOT (*1*OR *3*A (*1*OR *3*B (*1*OR *3*C (*1*OR *3*D (*1*OR *3*E *3*G)))))))))) (PUT1-LST (QUOTE *1*B-NOR8) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H *3*I) (*1*NOT (*1*OR *3*A (*1*OR *3*B (*1*OR *3*C (*1*OR *3*D (*1*OR *3*E (*1*OR *3*G (*1*OR *3*H *3*I)))))))))))) (PUT1-LST (QUOTE *1*B-IF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (COND ((NOT (EQ *3*C *1*F)) (COND ((NOT (EQ *3*A *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ *3*B *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ID) (QUOTE (SEXPR (LAMBDA (*3*X) *3*X)))) (PUT1-LST (QUOTE *1*AO2) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*B-NOR (*1*B-AND *3*A *3*B) (*1*B-AND *3*C *3*D)))))) (PUT1-LST (QUOTE *1*AO4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*B-NAND (*1*B-OR *3*A *3*B) (*1*B-OR *3*C *3*D)))))) (PUT1-LST (QUOTE *1*AO6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*B-NOR (*1*B-AND *3*A *3*B) *3*C))))) (PUT1-LST (QUOTE *1*AO7) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*B-NAND (*1*B-OR *3*A *3*B) *3*C))))) (PUT1-LST (QUOTE *1*VSS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE *1*FALSE))))) (PUT1-LST (QUOTE *1*VDD) (QUOTE (SEXPR (LAMBDA NIL (QUOTE *1*TRUE))))) (PUT1-LST (QUOTE *1*V-BUF) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-BUF (*1*CAR *3*X)) (*1*V-BUF (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*V-NOT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-NOT (*1*CAR *3*X)) (*1*V-NOT (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*V-AND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-AND (*1*CAR *3*X) (*1*CAR *3*Y)) (*1*V-AND (*1*CDR *3*X) (*1*CDR *3*Y))))))))) (PUT1-LST (QUOTE *1*V-OR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-OR (*1*CAR *3*X) (*1*CAR *3*Y)) (*1*V-OR (*1*CDR *3*X) (*1*CDR *3*Y))))))))) (PUT1-LST (QUOTE *1*V-XOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-XOR (*1*CAR *3*X) (*1*CAR *3*Y)) (*1*V-XOR (*1*CDR *3*X) (*1*CDR *3*Y))))))))) (PUT1-LST (QUOTE *1*V-SHIFT-RIGHT) (QUOTE (SEXPR (LAMBDA (*3*A *3*SI) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (*1*APPEND (*1*V-BUF (*1*CDR *3*A)) (CONS (*1*BOOLFIX *3*SI) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*V-LSR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-SHIFT-RIGHT *3*A (QUOTE *1*FALSE)))))) (PUT1-LST (QUOTE *1*V-ROR) (QUOTE (SEXPR (LAMBDA (*3*A *3*SI) (*1*V-SHIFT-RIGHT *3*A *3*SI))))) (PUT1-LST (QUOTE *1*V-ASR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-SHIFT-RIGHT *3*A (*1*NTH (*1*SUB1 (*1*LENGTH *3*A)) *3*A)))))) (PUT1-LST (QUOTE *1*V-IF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (COND ((COND ((NOT (EQ *3*C *1*F)) (NOT (EQ (*1*CAR *3*A) *1*F))) (T (NOT (EQ (*1*CAR *3*B) *1*F)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*V-IF *3*C (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*V-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*V) (COND ((NOT (EQ (*1*NLISTP *3*V) *1*F)) (QUOTE 0)) (T (*1*PLUS (COND ((NOT (EQ (*1*CAR *3*V) *1*F)) (QUOTE 1)) (T (QUOTE 0))) (*1*TIMES (QUOTE 2) (*1*V-TO-NAT (*1*CDR *3*V)))))))))) (PUT1-LST (QUOTE *1*NAT-TO-V) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*NOT (*1*ZEROP (*1*REMAINDER *3*X (QUOTE 2)))) (*1*NAT-TO-V (*1*QUOTIENT *3*X (QUOTE 2)) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-NTH) (QUOTE (SEXPR (LAMBDA (*3*V-N *3*LST) (*1*NTH (*1*V-TO-NAT *3*V-N) *3*LST))))) (PUT1-LST (QUOTE *1*UPDATE-V-NTH) (QUOTE (SEXPR (LAMBDA (*3*V-N *3*LST *3*VALUE) (*1*UPDATE-NTH (*1*V-TO-NAT *3*V-N) *3*LST *3*VALUE))))) (PUT1-LST (QUOTE *1*V-NZEROP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE *1*FALSE)) (T (*1*OR (*1*CAR *3*X) (*1*V-NZEROP (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*V-ZEROP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*NOT (*1*V-NZEROP *3*X)))))) (PUT1-LST (QUOTE *1*V-NEGP) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (*1*CAR *3*X)) (T (*1*V-NEGP *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SIGN-EXTEND) (QUOTE (SEXPR (LAMBDA (*3*V *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*NLISTP *3*V) *1*F)) (*1*MAKE-LIST *3*N (QUOTE *1*FALSE))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP2 (*1*CDR *3*V))) *1*F)) (CONS (SETQ *2*TEMP1 (*1*BOOLFIX (*1*CAR *3*V))) (*1*MAKE-LIST (*1*SUB1 *3*N) *2*TEMP1))) (T (CONS (*1*BOOLFIX (*1*CAR *3*V)) (*1*SIGN-EXTEND *2*TEMP2 (*1*SUB1 *3*N)))))))))) (PUT1-LST (QUOTE *1*V-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (CONS (*1*BOOLFIX *3*C) (QUOTE NIL))) (T (CONS (*1*B-XOR3 *3*C (SETQ *2*TEMP2 (*1*CAR *3*A)) (SETQ *2*TEMP1 (*1*CAR *3*B))) (*1*V-ADDER (*1*B-OR (*1*B-AND *2*TEMP2 *2*TEMP1) (*1*B-OR (*1*B-AND *2*TEMP2 *3*C) (*1*B-AND *2*TEMP1 *3*C))) (*1*CDR *3*A) (*1*CDR *3*B)))))))))) (PUT1-LST (QUOTE *1*V-ADDER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*FIRSTN (*1*LENGTH *3*A) (*1*V-ADDER *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ADDER-CARRY-OUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*NTH (*1*LENGTH *3*A) (*1*V-ADDER *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ADDER-OVERFLOWP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*B-AND (*1*B-EQUV (SETQ *2*TEMP2 (*1*NTH (SETQ *2*TEMP1 (*1*SUB1 (*1*LENGTH *3*A))) *3*A)) (*1*NTH (*1*SUB1 (*1*LENGTH *3*B)) *3*B)) (*1*B-XOR *2*TEMP2 (*1*NTH *2*TEMP1 (*1*V-ADDER-OUTPUT *3*C *3*A *3*B))))))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*V-ADDER-OUTPUT (*1*B-NOT *3*C) (*1*V-NOT *3*A) *3*B))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-CARRY-OUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*B-NOT (*1*V-ADDER-CARRY-OUT (*1*B-NOT *3*C) (*1*V-NOT *3*A) *3*B)))))) (PUT1-LST (QUOTE *1*V-SUBTRACTER-OVERFLOWP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*V-ADDER-OVERFLOWP (*1*B-NOT *3*C) (*1*V-NOT *3*A) *3*B))))) (PUT1-LST (QUOTE *1*V-INC) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*V-ADDER-OUTPUT (QUOTE *1*TRUE) *3*X (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*X))))))) (PUT1-LST (QUOTE *1*V-DEC) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*V-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*X)) *3*X))))) (PUT1-LST (QUOTE *1*V-THREEFIX) (QUOTE (SEXPR (LAMBDA (*3*V) (COND ((NOT (EQ (*1*NLISTP *3*V) *1*F)) (QUOTE NIL)) (T (CONS (*1*THREEFIX (*1*CAR *3*V)) (*1*V-THREEFIX (*1*CDR *3*V))))))))) (PUT1-LST (QUOTE *1*V-FOURFIX) (QUOTE (SEXPR (LAMBDA (*3*V) (COND ((NOT (EQ (*1*NLISTP *3*V) *1*F)) (QUOTE NIL)) (T (CONS (*1*FOURFIX (*1*CAR *3*V)) (*1*V-FOURFIX (*1*CDR *3*V))))))))) (PUT1-LST (QUOTE *1*V-IFF) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*IFF (*1*CAR *3*A) (*1*CAR *3*B)) (*1*V-IFF (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*VALUE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*ALIST) *1*F)) (QUOTE 0)) ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR *3*ALIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((EQUAL (CAR *2*TEMP1) *3*NAME) (CDR *2*TEMP1)) (T (*1*VALUE *3*NAME (*1*CDR *3*ALIST))))) (T (*1*VALUE *3*NAME (*1*CDR *3*ALIST))))))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*ALIST) (COND ((NOT (EQ (*1*NLISTP *3*ARGS) *1*F)) (QUOTE NIL)) (T (CONS (*1*VALUE (*1*CAR *3*ARGS) *3*ALIST) (*1*COLLECT-VALUE (*1*CDR *3*ARGS) *3*ALIST)))))))) (PUT1-LST (QUOTE *1*CDR-CDR-SUB1-SUB1-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*L1 *3*N *3*M *3*L2) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*M *3*N) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((NOT (EQ (*1*ZEROP *3*M) *1*F)) (QUOTE *1*TRUE)) (T (*1*CDR-CDR-SUB1-SUB1-INDUCTION (*1*CDR *3*L1) (QUOTE 0) (*1*SUB1 *3*M) (*1*CDR *3*L2))))) (T (*1*CDR-CDR-SUB1-SUB1-INDUCTION (*1*CDR *3*L1) (*1*SUB1 *3*N) (*1*SUB1 *3*M) (*1*CDR *3*L2))))))))) (PUT1-LST (QUOTE *1*ROMP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE ROM))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*ROM-GUTS) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*ROMP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*ZERO))))))) (PUT1-LST (QUOTE *1*ROM) (QUOTE (SEXPR (LAMBDA (ROM-GUTS) (LIST *1*SHELL-QUOTE-MARK (QUOTE ROM) ROM-GUTS))))) (PUT1-LST (QUOTE *1*RAMP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE RAM))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*RAM-GUTS) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*RAMP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*ZERO))))))) (PUT1-LST (QUOTE *1*RAM) (QUOTE (SEXPR (LAMBDA (RAM-GUTS) (LIST *1*SHELL-QUOTE-MARK (QUOTE RAM) RAM-GUTS))))) (PUT1-LST (QUOTE *1*STUBP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE STUB))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*STUB-GUTS) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*STUBP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*ZERO))))))) (PUT1-LST (QUOTE *1*STUB) (QUOTE (SEXPR (LAMBDA (STUB-GUTS) (LIST *1*SHELL-QUOTE-MARK (QUOTE STUB) STUB-GUTS))))) (PUT1-LST (QUOTE *1*MEMORY-PROPERP) (QUOTE (SEXPR (LAMBDA (*3*N *3*WIDTH *3*MEM) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (*1*AND (*1*PROPERP (SETQ *2*TEMP4 (*1*STUB-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP4) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*AND (*1*PROPERP (SETQ *2*TEMP3 (*1*RAM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP3) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ROMP *3*MEM) *1*F)) (*1*AND (*1*PROPERP (SETQ *2*TEMP2 (*1*ROM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP2) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (T (QUOTE *1*FALSE)))) (T (*1*AND (COND ((AND (CONSP *3*MEM) (NOT (EQ (CAR *3*MEM) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*MEMORY-PROPERP (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*WIDTH (*1*CAR *3*MEM)) (*1*MEMORY-PROPERP *2*TEMP1 *3*WIDTH (*1*CDR *3*MEM))))))))))) (PUT1-LST (QUOTE *1*MEMORY-OKP) (QUOTE (SEXPR (LAMBDA (*3*N *3*WIDTH *3*MEM) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (*1*AND (*1*BVP (SETQ *2*TEMP4 (*1*STUB-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP4) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*RAM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP3) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ROMP *3*MEM) *1*F)) (*1*AND (*1*BVP (SETQ *2*TEMP2 (*1*ROM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP2) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (T (QUOTE *1*FALSE)))) (T (*1*AND (COND ((AND (CONSP *3*MEM) (NOT (EQ (CAR *3*MEM) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*MEMORY-OKP (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*WIDTH (*1*CAR *3*MEM)) (*1*MEMORY-OKP *2*TEMP1 *3*WIDTH (*1*CDR *3*MEM))))))))))) (PUT1-LST (QUOTE *1*READ-MEM1) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM) (LET NIL (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (*1*STUB-GUTS *3*MEM)) ((NOT (EQ (*1*NLISTP *3*V-ADDR) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*RAM-GUTS *3*MEM)) ((NOT (EQ (*1*ROMP *3*MEM) *1*F)) (*1*ROM-GUTS *3*MEM)) (T (QUOTE 0)))) ((NOT (EQ (*1*NLISTP *3*MEM) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (*1*READ-MEM1 (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM))) (T (*1*READ-MEM1 (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM))))))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM) (*1*READ-MEM1 (*1*REVERSE *3*V-ADDR) *3*MEM))))) (PUT1-LST (QUOTE *1*WRITE-MEM1) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM *3*VALUE) (LET NIL (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) *3*MEM) ((NOT (EQ (*1*NLISTP *3*V-ADDR) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*RAM *3*VALUE)) (T *3*MEM))) ((NOT (EQ (*1*NLISTP *3*MEM) *1*F)) *3*MEM) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (CONS (*1*CAR *3*MEM) (*1*WRITE-MEM1 (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM) *3*VALUE))) (T (CONS (*1*WRITE-MEM1 (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM) *3*VALUE) (*1*CDR *3*MEM))))))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM *3*VALUE) (*1*WRITE-MEM1 (*1*REVERSE *3*V-ADDR) *3*MEM *3*VALUE))))) (PUT1-LST (QUOTE *1*RAMP-MEM1) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM) (LET NIL (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*NLISTP *3*V-ADDR) *1*F)) (*1*RAMP *3*MEM)) ((NOT (EQ (*1*NLISTP *3*MEM) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (*1*RAMP-MEM1 (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM))) (T (*1*RAMP-MEM1 (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM))))))))) (PUT1-LST (QUOTE *1*RAMP-MEM) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM) (*1*RAMP-MEM1 (*1*REVERSE *3*V-ADDR) *3*MEM))))) (PUT1-LST (QUOTE *1*ALL-RAMP-MEM) (QUOTE (SEXPR (LAMBDA (*3*N *3*MEM) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*RAMP *3*MEM)) ((NOT (EQ (*1*NLISTP *3*MEM) *1*F)) (QUOTE *1*FALSE)) (T (*1*AND (*1*ALL-RAMP-MEM (SETQ *2*TEMP1 (*1*SUB1 *3*N)) (*1*CAR *3*MEM)) (*1*ALL-RAMP-MEM *2*TEMP1 (*1*CDR *3*MEM)))))))))) (PUT1-LST (QUOTE *1*CONSTANT-RAM) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*VALUE) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*RAM *3*VALUE)) ((NOT (EQ (*1*NLISTP *3*MEM) *1*F)) *3*MEM) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*MEM) *3*VALUE) (*1*CONSTANT-RAM (*1*CDR *3*MEM) *3*VALUE)))))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-VALUE) (QUOTE (SEXPR (LAMBDA (*3*BITS *3*ADDRESS-LINES *3*ARGS *3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NOT (*1*BVP (SETQ *2*TEMP4 (*1*SUBRANGE *3*ARGS (QUOTE 0) (*1*SUB1 *3*ADDRESS-LINES))))) (*1*AND (*1*NOT (COND ((EQ (*1*NTH (SETQ *2*TEMP3 (*1*TIMES (QUOTE 2) *3*ADDRESS-LINES)) *3*ARGS) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*OR (*1*NOT (*1*BVP (SETQ *2*TEMP2 (*1*SUBRANGE *3*ARGS *3*ADDRESS-LINES (*1*SUB1 *2*TEMP3))))) (COND ((EQUAL *2*TEMP4 *2*TEMP2) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X)))) ((NOT (EQ (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*READ-MEM *2*TEMP4 *3*STATE))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) *3*BITS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) *2*TEMP1) (T (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X)))))))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-STATE) (QUOTE (SEXPR (LAMBDA (*3*BITS *3*ADDRESS-LINES *3*ARGS *3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP3 (*1*NTH (SETQ *2*TEMP2 (*1*TIMES (QUOTE 2) *3*ADDRESS-LINES)) *3*ARGS)) (QUOTE *1*TRUE)) *3*STATE) ((NOT (EQ (*1*NOT (*1*BVP (SETQ *2*TEMP1 (*1*SUBRANGE *3*ARGS *3*ADDRESS-LINES (*1*SUB1 *2*TEMP2))))) *1*F)) (*1*CONSTANT-RAM *3*STATE (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X))))) ((EQ *2*TEMP3 (QUOTE *1*FALSE)) (*1*WRITE-MEM *2*TEMP1 *3*STATE (*1*SUBRANGE *3*ARGS (*1*ADD1 *2*TEMP2) (*1*PLUS *2*TEMP2 *3*BITS)))) (T (*1*WRITE-MEM *2*TEMP1 *3*STATE (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X))))))))))) (PUT1-LST (QUOTE *1*NEXT-MEMORY-STATE) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*STROBE- *3*RW- *3*ADDRESS *3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (*1*BOOLP *3*STROBE-) (SETQ *2*TEMP13 (*1*BOOLP *3*RW-))) *1*F)) (COND ((EQUAL (SETQ *2*TEMP12 (*1*CAR (SETQ *2*TEMP11 (*1*CDR *3*STATE)))) (QUOTE 0)) (COND ((NOT (EQ *3*STROBE- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ *3*RW- *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))))))) (*1*BOOLP *2*TEMP4)) *1*F)) (COND ((NOT (EQ (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *2*TEMP6))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 1) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR *2*TEMP6))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ (*1*AND (*1*NOT (*1*CAR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))))))) (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *2*TEMP6))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 2) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((EQUAL *2*TEMP12 (QUOTE 1)) (COND ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (COND ((NOT (EQ (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 1) (CONS (*1*CAR *2*TEMP9) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR *2*TEMP5))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((EQUAL *2*TEMP12 (QUOTE 2)) (COND ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*ZEROP (*1*CAR *2*TEMP5)))) *1*F)) (CONS (*1*WRITE-MEM *3*ADDRESS (*1*CAR *3*STATE) *3*DATA) (CONS (QUOTE 0) (CONS (*1*CAR *2*TEMP9) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR *2*TEMP9) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 2) (CONS (*1*CAR *2*TEMP9) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR *2*TEMP5))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *2*TEMP9))))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP5))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR (SETQ *2*TEMP11 (*1*CDR *3*STATE))))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))))))) (PUT1-LST (QUOTE *1*MEMORY-VALUE) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*STROBE- *3*RW- *3*ADDRESS *3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X))) (*1*IF* (*1*AND* (*1*BOOLP *3*STROBE-) (*1*BOOLP *3*RW-)) (COND ((EQUAL (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*STATE)))) (QUOTE 0)) (*1*IF* *3*STROBE- (CONS (QUOTE (*1*QUOTE X)) (SETQ *2*TEMP9 (*1*MAKE-LIST (SETQ *2*TEMP8 (*1*LENGTH *3*DATA)) (QUOTE (*1*QUOTE Z))))) (CONS (*1*IF* (*1*ZEROP (*1*CAR (*1*CAR (*1*CDR *2*TEMP10)))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (*1*IF* *3*RW- (SETQ *2*TEMP6 (*1*MAKE-LIST *2*TEMP8 (QUOTE (*1*QUOTE X)))) *2*TEMP9)))) ((EQUAL *2*TEMP11 (QUOTE 1)) (*1*IF* *3*STROBE- (CONS (QUOTE (*1*QUOTE X)) (SETQ *2*TEMP9 (*1*MAKE-LIST (SETQ *2*TEMP8 (*1*LENGTH *3*DATA)) (QUOTE (*1*QUOTE Z))))) (*1*IF* *3*RW- (*1*IF* (*1*AND* (COND ((EQUAL *3*ADDRESS (SETQ *2*TEMP5 (*1*CAR (*1*CDR (*1*CDR (SETQ *2*TEMP4 (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP7 (*1*CDR *2*TEMP10))))))))))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND* (*1*BVP *3*ADDRESS) (*1*BVP *2*TEMP5))) (*1*IF* (SETQ *2*TEMP2 (*1*ZEROP (*1*CAR *2*TEMP3))) (CONS (QUOTE *1*FALSE) (*1*IF* (*1*CAR *2*TEMP4) (*1*READ-MEM *3*ADDRESS (*1*CAR *3*STATE)) (SETQ *2*TEMP6 (*1*MAKE-LIST *2*TEMP8 (QUOTE (*1*QUOTE X)))))) (SETQ *2*TEMP1 (CONS (QUOTE *1*TRUE) *2*TEMP6))) (*1*IF* *2*TEMP2 (CONS (QUOTE *1*FALSE) *2*TEMP6) *2*TEMP1)) (*1*IF* *2*TEMP2 (CONS (QUOTE *1*FALSE) *2*TEMP9) (CONS (QUOTE *1*TRUE) *2*TEMP9))))) ((EQUAL *2*TEMP11 (QUOTE 2)) (*1*IF* *3*STROBE- (CONS (QUOTE (*1*QUOTE X)) (SETQ *2*TEMP9 (*1*MAKE-LIST (SETQ *2*TEMP8 (*1*LENGTH *3*DATA)) (QUOTE (*1*QUOTE Z))))) (*1*IF* (*1*ZEROP (*1*CAR (*1*CDR (*1*CDR *2*TEMP10)))) (CONS (QUOTE *1*FALSE) *2*TEMP9) (CONS (QUOTE *1*TRUE) *2*TEMP9)))) (T (*1*IF* *3*STROBE- (CONS (QUOTE (*1*QUOTE X)) (SETQ *2*TEMP9 (*1*MAKE-LIST (SETQ *2*TEMP8 (*1*LENGTH *3*DATA)) (QUOTE (*1*QUOTE Z))))) (*1*IF* *3*RW- (*1*IF* (SETQ *2*TEMP2 (*1*ZEROP (*1*CAR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP7 (*1*CDR *2*TEMP10))))))) (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP6 (*1*MAKE-LIST *2*TEMP8 (QUOTE (*1*QUOTE X))))) (CONS (QUOTE *1*TRUE) *2*TEMP6)) (*1*IF* *2*TEMP2 (CONS (QUOTE *1*FALSE) *2*TEMP9) (CONS (QUOTE *1*TRUE) *2*TEMP9)))))) (CONS (QUOTE (*1*QUOTE X)) (COND ((NOT (EQ *2*TEMP6 (QUOTE *1*X))) *2*TEMP6) (T (*1*MAKE-LIST *2*TEMP8 (QUOTE (*1*QUOTE X)))))))))))) (PUT1-LST (QUOTE *1*MEM-VALUE) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*STATE) (*1*MEMORY-VALUE *3*STATE (*1*CAR (*1*CDR *3*ARGS)) (*1*CAR *3*ARGS) (*1*SUBRANGE *3*ARGS (QUOTE 2) (QUOTE 33)) (*1*SUBRANGE *3*ARGS (QUOTE 34) (QUOTE 65))))))) (PUT1-LST (QUOTE *1*MEM-STATE) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*STATE) (*1*NEXT-MEMORY-STATE *3*STATE (*1*CAR (*1*CDR *3*ARGS)) (*1*CAR *3*ARGS) (*1*SUBRANGE *3*ARGS (QUOTE 2) (QUOTE 33)) (*1*SUBRANGE *3*ARGS (QUOTE 34) (QUOTE 65))))))) (PUT1-LST (QUOTE *1*NEXT-MEMORY-STATE$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*STROBE- *3*RW- *3*ADDRESS *3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP14 (*1*AND (*1*BOOLP *3*STROBE-) (SETQ *2*TEMP13 (*1*BOOLP *3*RW-)))) *1*F)) (COND ((EQUAL (SETQ *2*TEMP12 (*1*CAR (SETQ *2*TEMP11 (*1*CDR *3*STATE)))) (QUOTE 0)) (COND ((NOT (EQ *3*STROBE- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ *3*RW- *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))))))) (*1*BOOLP *2*TEMP4)) *1*F)) (COND ((NOT (EQ (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *2*TEMP6))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 1) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR *2*TEMP6))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ (*1*AND (*1*NOT (*1*CAR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))))))) (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *2*TEMP6))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 2) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((EQUAL *2*TEMP12 (QUOTE 1)) (COND ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (COND ((NOT (EQ (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 1) (CONS (*1*CAR *2*TEMP9) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR *2*TEMP5))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR *2*TEMP7)))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((EQUAL *2*TEMP12 (QUOTE 2)) (COND ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*ZEROP (*1*CAR *2*TEMP5)))) *1*F)) (CONS (*1*WRITE-MEM *3*ADDRESS (*1*CAR *3*STATE) *3*DATA) (CONS (QUOTE 0) (CONS (*1*CAR *2*TEMP9) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR *2*TEMP9) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) ((NOT (EQ (*1*AND (*1*AND (*1*BVP *3*ADDRESS) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11)))))))))))) (COND ((EQUAL *3*ADDRESS *2*TEMP3) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*AND (*1*BVP *3*DATA) (*1*AND (*1*BVP (SETQ *2*TEMP8 (*1*CAR (*1*CDR *2*TEMP7)))) (COND ((EQUAL *3*DATA *2*TEMP8) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 2) (CONS (*1*CAR *2*TEMP9) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR *2*TEMP5))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR *2*TEMP9))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX *2*TEMP8)) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*STROBE- *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ *3*RW- *1*F)) (CONS (*1*CAR *3*STATE) (CONS (QUOTE 3) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))) (CONS (*1*SUB1 (SETQ *2*TEMP1 (*1*CAR (SETQ *2*TEMP5 (*1*CDR *2*TEMP9))))) (CONS (*1*ZEROP *2*TEMP1) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP5))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 3) (CONS (*1*CDR (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (CONS (*1*SUB1 (SETQ *2*TEMP2 (*1*CAR *2*TEMP10))) (CONS (*1*ZEROP *2*TEMP2) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))))) ((NOT (EQ (*1*NOT *2*TEMP14) *1*F)) (CONS (*1*CONSTANT-RAM (*1*CAR *3*STATE) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS (QUOTE 0) (CONS (*1*CAR (SETQ *2*TEMP9 (*1*CDR (SETQ *2*TEMP11 (*1*CDR *3*STATE))))) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (*1*THREEFIX *3*RW-) (CONS (*1*V-THREEFIX *3*ADDRESS) (CONS (COND ((NOT (EQ *2*TEMP13 *1*F)) (COND ((NOT (EQ *3*RW- *1*F)) (*1*V-THREEFIX (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP9)))))))) (T (*1*V-THREEFIX *3*DATA)))) (T (*1*MAKE-LIST (*1*LENGTH *3*DATA) (QUOTE (*1*QUOTE X))))) (QUOTE NIL)))))))))) (T (*1*NEXT-MEMORY-STATE$INDUCTION (*1*SUB1 *3*STATE) *3*STROBE- *3*RW- *3*ADDRESS *3*DATA)))))))) (PUT1-LST (QUOTE *1*FIX-BREADTH-TREE-STACK) (QUOTE (SEXPR (LAMBDA (*3*STACK *3*N) (COND ((NOT (EQ (*1*NLISTP *3*STACK) *1*F)) (QUOTE NIL)) (T (CONS (*1*APPEND (*1*MAKE-LIST *3*N (QUOTE *1*FALSE)) (*1*CAR *3*STACK)) (*1*FIX-BREADTH-TREE-STACK (*1*CDR *3*STACK) (*1*TIMES (QUOTE 2) *3*N))))))))) (PUT1-LST (QUOTE *1*BREADTH-TREE) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*STACK *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (CONS (QUOTE *1*TRUE) (COND ((NOT (EQ (*1*NLISTP *3*STACK) *1*F)) (*1*MAKE-LIST *3*N (QUOTE *1*FALSE))) (T (*1*CAR *3*STACK)))) (*1*FIX-BREADTH-TREE-STACK (*1*CDR *3*STACK) (QUOTE 2)))) (T (CONS (CONS (QUOTE *1*TRUE) (COND ((NOT (EQ (*1*NLISTP *3*STACK) *1*F)) (*1*MAKE-LIST *3*N (QUOTE *1*FALSE))) (T (*1*CAR *3*STACK)))) (*1*BREADTH-TREE (*1*CDR *3*TREE) (*1*BREADTH-TREE (*1*CAR *3*TREE) (*1*CDR *3*STACK) (SETQ *2*TEMP1 (*1*TIMES (QUOTE 2) *3*N))) (*1*ADD1 *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*COLLECT-BREADTH-TREE) (QUOTE (SEXPR (LAMBDA (*3*STACK *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*STACK) *1*F)) (QUOTE NIL)) ((EQUAL (SETQ *2*TEMP1 (*1*CAR *3*STACK)) (*1*MAKE-LIST *3*N (QUOTE *1*TRUE))) (CONS (QUOTE *1*TRUE) (*1*COLLECT-BREADTH-TREE (*1*CDR *3*STACK) (*1*TIMES (QUOTE 2) *3*N)))) (T (CONS (QUOTE *1*FALSE) (*1*APPEND *2*TEMP1 (*1*COLLECT-BREADTH-TREE (*1*CDR *3*STACK) (*1*TIMES (QUOTE 2) *3*N))))))))))) (PUT1-LST (QUOTE *1*TREE-NUMBER) (QUOTE (SEXPR (LAMBDA (*3*TREE) (*1*QUOTIENT (*1*ADD1 (*1*V-TO-NAT (*1*COLLECT-BREADTH-TREE (*1*BREADTH-TREE *3*TREE (QUOTE NIL) (QUOTE 0)) (QUOTE 1)))) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*F-BUF) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*THREEFIX *3*A))))) (PUT1-LST (QUOTE *1*F-AND) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*OR (COND ((EQ *3*A (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*B (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*AND (COND ((EQ *3*A (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*B (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*TRUE)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*F-AND3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-AND *3*A (*1*F-AND *3*B *3*C)))))) (PUT1-LST (QUOTE *1*F-AND4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*F-AND *3*A (*1*F-AND *3*B (*1*F-AND *3*C *3*D))))))) (PUT1-LST (QUOTE *1*F-NOT) (QUOTE (SEXPR (LAMBDA (*3*A) (COND ((NOT (EQ (*1*BOOLP *3*A) *1*F)) (*1*NOT *3*A)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*F-NAND) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*F-NOT (*1*F-AND *3*A *3*B)))))) (PUT1-LST (QUOTE *1*F-NAND3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-NOT (*1*F-AND *3*A (*1*F-AND *3*B *3*C))))))) (PUT1-LST (QUOTE *1*F-NAND4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*F-NOT (*1*F-AND *3*A (*1*F-AND *3*B (*1*F-AND *3*C *3*D)))))))) (PUT1-LST (QUOTE *1*F-NAND5) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E) (*1*F-NOT (*1*F-AND *3*A (*1*F-AND *3*B (*1*F-AND *3*C (*1*F-AND *3*D *3*E))))))))) (PUT1-LST (QUOTE *1*F-NAND6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G) (*1*F-NOT (*1*F-AND *3*A (*1*F-AND *3*B (*1*F-AND *3*C (*1*F-AND *3*D (*1*F-AND *3*E *3*G)))))))))) (PUT1-LST (QUOTE *1*F-NAND8) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H *3*I) (*1*F-NOT (*1*F-AND *3*A (*1*F-AND *3*B (*1*F-AND *3*C (*1*F-AND *3*D (*1*F-AND *3*E (*1*F-AND *3*G (*1*F-AND *3*H *3*I)))))))))))) (PUT1-LST (QUOTE *1*F-OR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*OR (COND ((EQ *3*A (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*B (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*AND (COND ((EQ *3*A (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*B (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*F-OR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-OR *3*A (*1*F-OR *3*B *3*C)))))) (PUT1-LST (QUOTE *1*F-OR4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*F-OR *3*A (*1*F-OR *3*B (*1*F-OR *3*C *3*D))))))) (PUT1-LST (QUOTE *1*F-NOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*F-NOT (*1*F-OR *3*A *3*B)))))) (PUT1-LST (QUOTE *1*F-NOR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-NOT (*1*F-OR *3*A (*1*F-OR *3*B *3*C))))))) (PUT1-LST (QUOTE *1*F-NOR4) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*F-NOT (*1*F-OR *3*A (*1*F-OR *3*B (*1*F-OR *3*C *3*D)))))))) (PUT1-LST (QUOTE *1*F-NOR5) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E) (*1*F-NOT (*1*F-OR *3*A (*1*F-OR *3*B (*1*F-OR *3*C (*1*F-OR *3*D *3*E))))))))) (PUT1-LST (QUOTE *1*F-NOR6) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G) (*1*F-NOT (*1*F-OR *3*A (*1*F-OR *3*B (*1*F-OR *3*C (*1*F-OR *3*D (*1*F-OR *3*E *3*G)))))))))) (PUT1-LST (QUOTE *1*F-NOR8) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D *3*E *3*G *3*H *3*I) (*1*F-NOT (*1*F-OR *3*A (*1*F-OR *3*B (*1*F-OR *3*C (*1*F-OR *3*D (*1*F-OR *3*E (*1*F-OR *3*G (*1*F-OR *3*H *3*I)))))))))))) (PUT1-LST (QUOTE *1*F-XOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((EQ *3*A (QUOTE *1*TRUE)) (*1*F-NOT *3*B)) ((EQ *3*A (QUOTE *1*FALSE)) (*1*THREEFIX *3*B)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*F-XOR3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-XOR *3*A (*1*F-XOR *3*B *3*C)))))) (PUT1-LST (QUOTE *1*F-EQUV) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((EQ *3*A (QUOTE *1*TRUE)) (*1*THREEFIX *3*B)) ((EQ *3*A (QUOTE *1*FALSE)) (*1*F-NOT *3*B)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*F-EQUV3) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (*1*F-EQUV *3*A (*1*F-XOR *3*B *3*C)))))) (PUT1-LST (QUOTE *1*F-IF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (COND ((EQ *3*C (QUOTE *1*TRUE)) (*1*THREEFIX *3*A)) ((EQ *3*C (QUOTE *1*FALSE)) (*1*THREEFIX *3*B)) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*FT-BUF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A) (COND ((EQ *3*C (QUOTE *1*TRUE)) (*1*THREEFIX *3*A)) ((EQ *3*C (QUOTE *1*FALSE)) (QUOTE (*1*QUOTE Z))) (T (QUOTE (*1*QUOTE X)))))))) (PUT1-LST (QUOTE *1*FT-WIRE) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (LET NIL (COND ((EQUAL *3*A *3*B) (*1*FOURFIX *3*A)) ((EQUAL *3*A (QUOTE (*1*QUOTE Z))) (*1*FOURFIX *3*B)) ((EQUAL *3*B (QUOTE (*1*QUOTE Z))) (*1*FOURFIX *3*A)) (T (QUOTE (*1*QUOTE X))))))))) (PUT1-LST (QUOTE *1*F-PULLUP) (QUOTE (SEXPR (LAMBDA (*3*A) (COND ((EQUAL *3*A (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE)) (T (*1*THREEFIX *3*A))))))) (PUT1-LST (QUOTE *1*F$AO2) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C *3*D) (*1*F-NOR (*1*F-AND *3*A *3*B) (*1*F-AND *3*C *3*D)))))) (PUT1-LST (QUOTE *1*FV-OR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*F-OR (*1*CAR *3*A) (*1*CAR *3*B)) (*1*FV-OR (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*FV-XOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*F-XOR (*1*CAR *3*A) (*1*CAR *3*B)) (*1*FV-XOR (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*FV-IF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*F-IF *3*C (*1*CAR *3*A) (*1*CAR *3*B)) (*1*FV-IF *3*C (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*V-WIRE) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*FT-WIRE (*1*CAR *3*A) (*1*CAR *3*B)) (*1*V-WIRE (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*V-PULLUP) (QUOTE (SEXPR (LAMBDA (*3*V) (COND ((NOT (EQ (*1*NLISTP *3*V) *1*F)) (QUOTE NIL)) (T (CONS (*1*F-PULLUP (*1*CAR *3*V)) (*1*V-PULLUP (*1*CDR *3*V))))))))) (PUT1-LST (QUOTE *1*FV-SHIFT-RIGHT) (QUOTE (SEXPR (LAMBDA (*3*A *3*SI) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (*1*APPEND (*1*V-THREEFIX (*1*CDR *3*A)) (CONS (*1*THREEFIX *3*SI) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*VFT-BUF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*FT-BUF *3*C (*1*CAR *3*A)) (*1*VFT-BUF *3*C (*1*CDR *3*A))))))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE ((AO2 (DELAYS ((263 737) (83 392))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO2) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) (F-AND C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO4 (DELAYS ((260 895) (82 311))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AO4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) (F-OR C D)) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (AO6 (DELAYS ((260 745) (82 202))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO6) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR (F-AND A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (AO7 (DELAYS ((261 486) (83 293))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AO7) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND (F-OR A B) C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND (DELAYS ((144 422) (54 707))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . AN2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-AND3 (DELAYS ((146 663) (58 809))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . AN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-AND4 (DELAYS ((149 934) (60 870))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . AN4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-AND4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-EQUV (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EN) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-EQUV3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EN3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-EQUV3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-IF (DELAYS ((70 775) (60 1040))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS S A B) (LOADINGS 2 1 1) (LSI-NAME MUX21H B A S) (OUT-DEPENDS (A B S)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-IF S A B) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NAND (DELAYS ((141 420) (82 161))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . ND2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NAND3 (DELAYS ((142 537) (109 322))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . ND3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NAND4 (DELAYS ((144 588) (144 418))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . ND4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NAND5 (DELAYS ((144 1002) (59 1120))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . ND5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NAND6 (DELAYS ((144 982) (59 1090))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . ND6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NAND8 (DELAYS ((144 1042) (60 1360))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . ND8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NAND8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NBUF (DELAYS ((142 447) (57 213)) ((143 302) (52 366))) (DRIVES 9 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . IVDA) (OUT-DEPENDS (A) (A)) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Y Z) (RESULTS CONS (F-NOT A) (CONS (F-BUF A) (QUOTE NIL))) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR (DELAYS ((260 460) (59 170))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . NR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR A B) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 4)) (B-NOR3 (DELAYS ((384 798) (59 224))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . NR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-NOR4 (DELAYS ((510 1072) (59 225))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . NR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR4 A B C D) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-NOR5 (DELAYS ((145 1493) (55 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E) (LOADINGS 1 1 1 1 1) (LSI-NAME . NR5) (OUT-DEPENDS (A B C D E)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR5 A B C D E) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (B-NOR6 (DELAYS ((146 1593) (55 807))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G) (LOADINGS 1 1 1 1 1 1) (LSI-NAME . NR6) (OUT-DEPENDS (A B C D E G)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR6 A B C D E G) (QUOTE NIL)) (GATES . 5) (PRIMITIVES . 1) (TRANSISTORS . 18)) (B-NOR8 (DELAYS ((146 1853) (54 767))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D E G H I) (LOADINGS 1 1 1 1 1 1 1 1) (LSI-NAME . NR8) (OUT-DEPENDS (A B C D E G H I)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOR8 A B C D E G H I) (QUOTE NIL)) (GATES . 6) (PRIMITIVES . 1) (TRANSISTORS . 22)) (B-NOT (DELAYS ((70 235) (57 198))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 2) (LSI-NAME . IVA) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 1) (PRIMITIVES . 1) (TRANSISTORS . 3)) (B-NOT-B4IP (DELAYS ((17 333) (12 124))) (DRIVES 128) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 8) (LSI-NAME . B4IP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-NOT-IVAP (DELAYS ((38 208) (35 126))) (DRIVES 20) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . IVAP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-NOT A) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR (DELAYS ((143 332) (58 819))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . OR2) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR A B) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 6)) (B-OR3 (DELAYS ((144 422) (70 1185))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 1 1) (LSI-NAME . OR3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR3 A B C) (QUOTE NIL)) (GATES . 2) (PRIMITIVES . 1) (TRANSISTORS . 8)) (B-OR4 (DELAYS ((143 352) (78 1329))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP) (INPUTS A B C D) (LOADINGS 1 1 1 1) (LSI-NAME . OR4) (OUT-DEPENDS (A B C D)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-OR4 A B C D) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 10)) (B-XOR (DELAYS ((145 742) (67 973))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS A B) (LOADINGS 1 2) (LSI-NAME . EO) (OUT-DEPENDS (A B)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR A B) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (B-XOR3 (DELAYS ((151 1806) (79 1580))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP BOOLP) (INPUTS A B C) (LOADINGS 1 3 2) (LSI-NAME . EO3) (OUT-DEPENDS (A B C)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-XOR3 A B C) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 22)) (DEL2 (DELAYS ((70 2035) (38 2199))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL2) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 4) (PRIMITIVES . 1) (TRANSISTORS . 16)) (DEL4 (DELAYS ((73 4017) (38 4179))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL4) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 28)) (DEL10 (DELAYS ((60 10530) (49 10424))) (DRIVES 10) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 1) (LSI-NAME . DEL10) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 19) (PRIMITIVES . 1) (TRANSISTORS . 76)) (PROCMON (DELAYS ((70 25000) (60 25000))) (DRIVES 10) (INPUT-TYPES PARAMETRIC PARAMETRIC PARAMETRIC PARAMETRIC) (INPUTS A E S N) (LOADINGS 2 2 2 1) (LSI-NAME . PROCMON) (OUT-DEPENDS (A E S N)) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (F-IF S (F-IF E (F-IF A (QUOTE *1*FALSE) (QUOTE *1*FALSE)) A) N) (QUOTE NIL)) (GATES . 100) (PRIMITIVES . 1) (TRANSISTORS . 400)) (DP-RAM-16X32 (DELAYS ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500)) ((35 7500) (21 7500))) (DRIVES 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP LEVEL BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS READ-A0 READ-A1 READ-A2 READ-A3 WRITE-B0 WRITE-B1 WRITE-B2 WRITE-B3 WEN D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 2 2 2 2 2 2 2 2 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . CMRB100A) (NEW-STATES DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (OUTPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (OUT-DEPENDS (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3) (READ-A0 READ-A1 READ-A2 READ-A3)) (OUTPUTS O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (CONS READ-A0 (CONS READ-A1 (CONS READ-A2 (CONS READ-A3 (CONS WRITE-B0 (CONS WRITE-B1 (CONS WRITE-B2 (CONS WRITE-B3 (CONS WEN (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES ADDRESSED-STATE 4 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) (STATES . STATE) (GATES . 2368) (PRIMITIVES . 1) (TRANSISTORS . 9472)) (FD1 (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK) (INPUTS D CP) (LOADINGS 1 1) (LSI-NAME . FD1) (NEW-STATES F-BUF D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 7) (PRIMITIVES . 1) (TRANSISTORS . 26)) (FD1S (DELAYS ((147 1024) (55 1288)) ((145 1432) (53 1447))) (DRIVES 10 10) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1S) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 9) (PRIMITIVES . 1) (TRANSISTORS . 34)) (FD1SP (DELAYS ((68 1084) (34 1327)) ((65 1712) (32 1596))) (DRIVES 16 16) (INPUT-TYPES BOOLP CLK BOOLP BOOLP) (INPUTS D CP TI TE) (LOADINGS 1 1 1 2) (LSI-NAME . FD1SP) (NEW-STATES F-IF TE TI D) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 10) (PRIMITIVES . 1) (TRANSISTORS . 38)) (FD1SLP (DELAYS ((70 1085) (45 982)) ((67 1493) (35 1568))) (DRIVES 12 12) (INPUT-TYPES BOOLP CLK BOOLP BOOLP BOOLP) (INPUTS D CP LD TI TE) (LOADINGS 1 1 2 1 2) (LSI-NAME . FD1SLP) (NEW-STATES F-IF TE TI (F-IF LD D STATE)) (OUT-DEPENDS NIL NIL) (OUTPUT-TYPES BOOLP BOOLP) (OUTPUTS Q QN) (RESULTS CONS (F-BUF STATE) (CONS (F-NOT STATE) (QUOTE NIL))) (STATE-TYPES . BOOLP) (STATES . STATE) (GATES . 12) (PRIMITIVES . 1) (TRANSISTORS . 40)) (ID (DELAYS A) (DRIVES A) (INPUT-TYPES FREE) (INPUTS A) (LOADINGS 0) (LSI-NAME . ID) (OUT-DEPENDS (A)) (OUTPUT-TYPES (A)) (OUTPUTS Z) (RESULTS CONS A (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (MEM-32X32 (DELAYS ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000)) ((1410 20000) (820 20000))) (DRIVES 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10) (INPUT-TYPES BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (INPUTS RW- STROBE- A0 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 D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31) (LOADINGS 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (LSI-NAME . MEM-32X32) (NEW-STATES MEM-STATE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (OUT-DEPENDS (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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) (RW- STROBE- A0 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)) (OUTPUT-TYPES BOOLP TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE TRI-STATE) (OUTPUTS DTACK- O0 O1 O2 O3 O4 O5 O6 O7 O8 O9 O10 O11 O12 O13 O14 O15 O16 O17 O18 O19 O20 O21 O22 O23 O24 O25 O26 O27 O28 O29 O30 O31) (RESULTS MEM-VALUE (CONS RW- (CONS STROBE- (CONS A0 (CONS A1 (CONS A2 (CONS A3 (CONS A4 (CONS A5 (CONS A6 (CONS A7 (CONS A8 (CONS A9 (CONS A10 (CONS A11 (CONS A12 (CONS A13 (CONS A14 (CONS A15 (CONS A16 (CONS A17 (CONS A18 (CONS A19 (CONS A20 (CONS A21 (CONS A22 (CONS A23 (CONS A24 (CONS A25 (CONS A26 (CONS A27 (CONS A28 (CONS A29 (CONS A30 (CONS A31 (CONS D0 (CONS D1 (CONS D2 (CONS D3 (CONS D4 (CONS D5 (CONS D6 (CONS D7 (CONS D8 (CONS D9 (CONS D10 (CONS D11 (CONS D12 (CONS D13 (CONS D14 (CONS D15 (CONS D16 (CONS D17 (CONS D18 (CONS D19 (CONS D20 (CONS D21 (CONS D22 (CONS D23 (CONS D24 (CONS D25 (CONS D26 (CONS D27 (CONS D28 (CONS D29 (CONS D30 (CONS D31 (QUOTE NIL))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) STATE) (STATE-TYPES (ADDRESSED-STATE 32 (RAM (QUOTE (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)))) NUMBERP NUMBER-LISTP NUMBERP BOOLP BOOLP (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP) (BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP BOOLP)) (STATES . STATE) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (RAM-ENABLE-CIRCUIT (DELAYS ((68 12000) (54 12000))) (DRIVES 10) (INPUT-TYPES CLK BOOLP BOOLP BOOLP) (INPUTS CLK TEST-REGFILE- DISABLE-REGFILE- WE) (LOADINGS 1 2 2 2) (LSI-NAME . RAM-ENABLE-CIRCUIT) (OUT-DEPENDS (CLK TEST-REGFILE- DISABLE-REGFILE- WE)) (OUTPUT-TYPES LEVEL) (OUTPUTS Z) (RESULTS CONS (F-NAND DISABLE-REGFILE- WE) (QUOTE NIL)) (GATES . 24) (PRIMITIVES . 1) (TRANSISTORS . 97)) (T-BUF (DELAYS ((146 313) (57 728))) (DRIVES 10) (INPUT-TYPES BOOLP BOOLP) (INPUTS E A) (LOADINGS 2 2) (LSI-NAME BTS4 A E) (OUT-DEPENDS (A E)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF E A) (QUOTE NIL)) (GATES . 3) (PRIMITIVES . 1) (TRANSISTORS . 12)) (T-WIRE (DELAYS (OR A B)) (DRIVES (MIN A B)) (INPUT-TYPES TRI-STATE TRI-STATE) (INPUTS A B) (LOADINGS 1 1) (LSI-NAME . T-WIRE) (OUT-DEPENDS (A B)) (OUTPUT-TYPES TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-WIRE A B) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (PULLUP (DELAYS A) (DRIVES A) (INPUT-TYPES TRI-STATE) (INPUTS A) (LOADINGS 1) (LSI-NAME . PULLUP) (OUT-DEPENDS (A)) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (F-PULLUP A) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 0) (TRANSISTORS . 0)) (TTL-BIDIRECT (DELAYS (((61 PS-PF) 1633) ((41 PS-PF) 2253)) ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES (8 MA) 10 10) (INPUT-TYPES TTL-TRI-STATE BOOLP BOOLP PARAMETRIC) (INPUTS IO A EN PI) (LOADINGS (3 PF) 1 1 1) (LSI-NAME . BD8TRP) (OUT-DEPENDS (EN A) (EN A IO) (EN A IO PI)) (OUTPUT-TYPES TTL-TRI-STATE BOOLP PARAMETRIC) (OUTPUTS IO ZI PO) (RESULTS CONS (FT-BUF (F-NOT EN) A) (CONS (F-BUF (FT-WIRE IO (FT-BUF (F-NOT EN) A))) (CONS (F-NAND (FT-WIRE IO (FT-BUF (F-NOT EN) A)) PI) (QUOTE NIL)))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-CLK-INPUT (DELAYS ((4 1225) (4 1152)) ((202 1050) (117 741))) (DRIVES 400 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . DRVT8) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES CLK PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 2) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-INPUT (DELAYS ((43 633) (20 638)) ((141 1053) (82 799))) (DRIVES 10 10) (INPUT-TYPES TTL PARAMETRIC) (INPUTS A PI) (LOADINGS (3 PF) 1) (LSI-NAME . TLCHT) (OUT-DEPENDS (A) (A PI)) (OUTPUT-TYPES BOOLP PARAMETRIC) (OUTPUTS Z PO) (RESULTS CONS (F-BUF A) (CONS (F-NAND A PI) (QUOTE NIL))) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT (DELAYS (((61 PS-PF) 812) ((42 PS-PF) 1155))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 5) (LSI-NAME . B8RP) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-PARAMETRIC (DELAYS (((64 PS-PF) 737) ((42 PS-PF) 1125))) (DRIVES (4 MA)) (INPUT-TYPES PARAMETRIC) (INPUTS A) (LOADINGS 3) (LSI-NAME . B4) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-OUTPUT-FAST (DELAYS (((36 PS-PF) 991) ((24 PS-PF) 1488))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP) (INPUTS A) (LOADINGS 3) (LSI-NAME . B8) (OUT-DEPENDS (A)) (OUTPUT-TYPES TTL) (OUTPUTS Z) (RESULTS CONS (F-BUF A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT (DELAYS (((61 PS-PF) 1602) ((41 PS-PF) 2233))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8RP) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (TTL-TRI-OUTPUT-FAST (DELAYS (((36 PS-PF) 1581) ((24 PS-PF) 2198))) (DRIVES (8 MA)) (INPUT-TYPES BOOLP BOOLP) (INPUTS A EN) (LOADINGS 1 1) (LSI-NAME . BT8) (OUT-DEPENDS (A EN)) (OUTPUT-TYPES TTL-TRI-STATE) (OUTPUTS Z) (RESULTS CONS (FT-BUF (F-NOT EN) A) (QUOTE NIL)) (GATES . 0) (PADS . 1) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VDD-PARAMETRIC (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VDD) (OUT-DEPENDS NIL) (OUTPUT-TYPES PARAMETRIC) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*TRUE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)) (VSS (DELAYS ((0 0) (0 0))) (DRIVES 50) (INPUT-TYPES) (INPUTS) (LOADINGS) (LSI-NAME . VSS) (OUT-DEPENDS NIL) (OUTPUT-TYPES BOOLP) (OUTPUTS Z) (RESULTS CONS (QUOTE *1*FALSE) (QUOTE NIL)) (GATES . 0) (PRIMITIVES . 1) (TRANSISTORS . 0)))))))) (PUT1-LST (QUOTE *1*LOOKUP-MODULE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*CAR *2*TEMP1) *3*NAME) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) *2*TEMP1) (T (*1*LOOKUP-MODULE *3*NAME (*1*CDR *3*NETLIST))))))))) (PUT1-LST (QUOTE *1*DELETE-MODULE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) *3*NETLIST) ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*CAR *2*TEMP1) *3*NAME) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*CDR *3*NETLIST)) (T (CONS *2*TEMP1 (*1*DELETE-MODULE *3*NAME (*1*CDR *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*PAIRSTATES) (QUOTE (SEXPR (LAMBDA (*3*STATENAMES *3*STATE) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP *3*STATENAMES) (NOT (EQ (CAR *3*STATENAMES) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*STATENAMES (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*PAIRLIST *3*STATENAMES *3*STATE)) (T (CONS (CONS *3*STATENAMES *3*STATE) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*COLLECT-STATES) (QUOTE (SEXPR (LAMBDA (*3*STATENAMES *3*STATE-BINDINGS) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP *3*STATENAMES) (NOT (EQ (CAR *3*STATENAMES) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*STATENAMES (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*COLLECT-VALUE *3*STATENAMES *3*STATE-BINDINGS)) (T (*1*VALUE *3*STATENAMES *3*STATE-BINDINGS))))))) (PUT1-LST (QUOTE *1*MODULE-NAME) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR *3*MODULE))))) (PUT1-LST (QUOTE *1*MODULE-INPUTS) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR (*1*CDR *3*MODULE)))))) (PUT1-LST (QUOTE *1*MODULE-OUTPUTS) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR (*1*CDR (*1*CDR *3*MODULE))))))) (PUT1-LST (QUOTE *1*MODULE-OCCURRENCES) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR (*1*CDR (*1*CDR (*1*CDR *3*MODULE)))))))) (PUT1-LST (QUOTE *1*MODULE-STATENAMES) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*MODULE))))))))) (PUT1-LST (QUOTE *1*MODULE-ANNOTATION) (QUOTE (SEXPR (LAMBDA (*3*MODULE) (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*MODULE)))))))))) (PUT1-LST (QUOTE *1*OCC-NAME) (QUOTE (SEXPR (LAMBDA (*3*OCCURRENCE) (*1*CAR *3*OCCURRENCE))))) (PUT1-LST (QUOTE *1*OCC-OUTPUTS) (QUOTE (SEXPR (LAMBDA (*3*OCCURRENCE) (*1*CAR (*1*CDR *3*OCCURRENCE)))))) (PUT1-LST (QUOTE *1*OCC-FUNCTION) (QUOTE (SEXPR (LAMBDA (*3*OCCURRENCE) (*1*CAR (*1*CDR (*1*CDR *3*OCCURRENCE))))))) (PUT1-LST (QUOTE *1*OCC-INPUTS) (QUOTE (SEXPR (LAMBDA (*3*OCCURRENCE) (*1*CAR (*1*CDR (*1*CDR (*1*CDR *3*OCCURRENCE)))))))) (PUT1-LST (QUOTE *1*OCC-ANNOTATION) (QUOTE (SEXPR (LAMBDA (*3*OCCURRENCE) (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*OCCURRENCE))))))))) (PUT1-LST (QUOTE *1*PRIMP) (QUOTE (SEXPR (LAMBDA (*3*FN) (*1*LOOKUP-MODULE *3*FN (*1*PRIMP-DATABASE)))))) (PUT1-LST (QUOTE *1*PRIMP-LOOKUP) (QUOTE (SEXPR (LAMBDA (*3*FN *3*NAME) (*1*LOOKUP-MODULE *3*NAME (*1*CDR (*1*PRIMP *3*FN))))))) (PUT1-LST (QUOTE *1*PRIMP2) (QUOTE (SEXPR (LAMBDA (*3*FN *3*NAME) (*1*CDR (*1*PRIMP-LOOKUP *3*FN *3*NAME)))))) (PUT1-LST (QUOTE *1*DUAL-APPLY-VALUE) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARGS *3*STATE) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DUAL-APPLY-VALUE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*EVAL$ (QUOTE *1*TRUE) (*1*PRIMP2 *3*FN (QUOTE RESULTS)) (*1*APPEND (*1*PAIRLIST (*1*PRIMP2 *3*FN (QUOTE INPUTS)) *3*ARGS) (*1*PAIRSTATES (*1*PRIMP2 *3*FN (QUOTE STATES)) *3*STATE)))))))))) (PUT1-LST (QUOTE *1*DUAL-APPLY-STATE) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARGS *3*STATE) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DUAL-APPLY-STATE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*EVAL$ (QUOTE *1*TRUE) (*1*PRIMP2 *3*FN (QUOTE NEW-STATES)) (*1*APPEND (*1*PAIRLIST (*1*PRIMP2 *3*FN (QUOTE INPUTS)) *3*ARGS) (*1*PAIRSTATES (*1*PRIMP2 *3*FN (QUOTE STATES)) *3*STATE)))))))))) (PUT1-LST (QUOTE *1*DUAL-EVAL) (QUOTE (SEXPR (LAMBDA (*3*FLAG *3*X0 *3*X1 *3*X2 *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DUAL-EVAL) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((EQUAL *3*FLAG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*DUAL-APPLY-VALUE *3*X0 *3*X1 *3*X2)) ((AND (CONSP (SETQ *2*TEMP6 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (*1*COLLECT-VALUE (*1*MODULE-OUTPUTS *2*TEMP6) (*1*DUAL-EVAL (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP6) (*1*PAIRLIST (*1*MODULE-INPUTS *2*TEMP6) *3*X1) (*1*PAIRSTATES (*1*MODULE-STATENAMES *2*TEMP6) *3*X2) (*1*DELETE-MODULE *3*X0 *3*NETLIST)))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLAG (QUOTE 1)) (COND ((AND (CONSP *3*X0) (NOT (EQ (CAR *3*X0) (QUOTE *1*QUOTE)))) (*1*DUAL-EVAL (QUOTE 1) (CDR *3*X0) (*1*APPEND (*1*PAIRLIST (*1*OCC-OUTPUTS (CAR *3*X0)) (*1*DUAL-EVAL (QUOTE 0) (*1*OCC-FUNCTION (CAR *3*X0)) (*1*COLLECT-VALUE (*1*OCC-INPUTS (CAR *3*X0)) *3*X1) (*1*VALUE (*1*OCC-NAME (CAR *3*X0)) *3*X2) *3*NETLIST)) *3*X1) *3*X2 *3*NETLIST)) (T *3*X1))) ((EQUAL *3*FLAG (QUOTE 2)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*DUAL-APPLY-STATE *3*X0 *3*X1 *3*X2)) ((AND (CONSP (SETQ *2*TEMP6 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (*1*COLLECT-STATES (SETQ *2*TEMP3 (*1*MODULE-STATENAMES *2*TEMP6)) (*1*DUAL-EVAL (QUOTE 3) (SETQ *2*TEMP5 (*1*MODULE-OCCURRENCES *2*TEMP6)) (*1*DUAL-EVAL (QUOTE 1) *2*TEMP5 (*1*PAIRLIST (*1*MODULE-INPUTS *2*TEMP6) *3*X1) (SETQ *2*TEMP4 (*1*PAIRSTATES *2*TEMP3 *3*X2)) (SETQ *2*TEMP2 (*1*DELETE-MODULE *3*X0 *3*NETLIST))) *2*TEMP4 *2*TEMP2))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLAG (QUOTE 3)) (COND ((AND (CONSP *3*X0) (NOT (EQ (CAR *3*X0) (QUOTE *1*QUOTE)))) (CONS (CONS (SETQ *2*TEMP1 (*1*OCC-NAME (CAR *3*X0))) (*1*DUAL-EVAL (QUOTE 2) (*1*OCC-FUNCTION (CAR *3*X0)) (*1*COLLECT-VALUE (*1*OCC-INPUTS (CAR *3*X0)) *3*X1) (*1*VALUE *2*TEMP1 *3*X2) *3*NETLIST)) (*1*DUAL-EVAL (QUOTE 3) (CDR *3*X0) *3*X1 *3*X2 *3*NETLIST))) (T (QUOTE NIL)))) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*DUAL-EVAL-BODY-BINDINGS) (QUOTE (SEXPR (LAMBDA (*3*N *3*BODY *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DUAL-EVAL-BODY-BINDINGS) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*BINDINGS) (T (*1*DUAL-EVAL-BODY-BINDINGS (*1*SUB1 *3*N) (*1*CDR *3*BODY) (*1*APPEND (*1*PAIRLIST (*1*OCC-OUTPUTS (SETQ *2*TEMP1 (*1*CAR *3*BODY))) (*1*DUAL-EVAL (QUOTE 0) (*1*OCC-FUNCTION *2*TEMP1) (*1*COLLECT-VALUE (*1*OCC-INPUTS *2*TEMP1) *3*BINDINGS) (*1*VALUE (*1*OCC-NAME *2*TEMP1) *3*STATE-BINDINGS) *3*NETLIST)) *3*BINDINGS) *3*STATE-BINDINGS *3*NETLIST))))))))))) (PUT1-LST (QUOTE *1*SIMULATE) (QUOTE (SEXPR (LAMBDA (*3*FN *3*INPUTS *3*STATE *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE SIMULATE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*INPUTS) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*DUAL-EVAL (QUOTE 0) *3*FN (SETQ *2*TEMP2 (*1*CAR *3*INPUTS)) *3*STATE *3*NETLIST) (CONS (SETQ *2*TEMP1 (*1*DUAL-EVAL (QUOTE 2) *3*FN *2*TEMP2 *3*STATE *3*NETLIST)) (QUOTE NIL))) (*1*SIMULATE *3*FN (*1*CDR *3*INPUTS) *2*TEMP1 *3*NETLIST)))))))))))) (PUT1-LST (QUOTE *1*SIMULATE-DUAL-EVAL-2) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*INPUTS *3*STATE *3*NETLIST *3*N) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE SIMULATE-DUAL-EVAL-2) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*STATE) (T (*1*SIMULATE-DUAL-EVAL-2 *3*MODULE (*1*CDR *3*INPUTS) (*1*DUAL-EVAL (QUOTE 2) *3*MODULE (*1*CAR *3*INPUTS) *3*STATE *3*NETLIST) *3*NETLIST (*1*SUB1 *3*N))))))))))) (PUT1-LST (QUOTE *1*MIN) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*LESSP *3*Y *3*X) *1*F)) *3*Y) (T *3*X)))))) (PUT1-LST (QUOTE *1*INSERT) (QUOTE (SEXPR (LAMBDA (*3*E *3*X) (COND ((NOT (EQ (*1*MEMBER *3*E *3*X) *1*F)) *3*X) (T (CONS *3*E *3*X))))))) (PUT1-LST (QUOTE *1*SET-EQUAL) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*AND (*1*SUBSET *3*X *3*Y) (*1*SUBSET *3*Y *3*X)))))) (PUT1-LST (QUOTE *1*SET-DIFF) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SET-DIFF (CDR *3*X) *3*Y)) (T (CONS (CAR *3*X) (*1*SET-DIFF (CDR *3*X) *3*Y))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*INTERSECTION) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (CONS (CAR *3*X) (*1*INTERSECTION (CDR *3*X) *3*Y))) (T (*1*INTERSECTION (CDR *3*X) *3*Y)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LAST-CDR) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*LAST-CDR (CDR *3*X))) (T *3*X)))))) (PUT1-LST (QUOTE *1*LIST-DUPLICATES) (QUOTE (SEXPR (LAMBDA (*3*X *3*DUPLICATES) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*LIST-DUPLICATES (CDR *3*X) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) (CDR *3*X)) *1*F)) (*1*INSERT (CAR *3*X) *3*DUPLICATES)) (T *3*DUPLICATES)))) (T *3*DUPLICATES)))))) (PUT1-LST (QUOTE *1*REMOVE-DUPLICATES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) (CDR *3*X)) *1*F)) (*1*REMOVE-DUPLICATES (CDR *3*X))) (T (CONS (CAR *3*X) (*1*REMOVE-DUPLICATES (CDR *3*X)))))) (T *3*X))))))) (PUT1-LST (QUOTE *1*APPEND-LIST) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*APPEND (CAR *3*X) (*1*APPEND-LIST (CDR *3*X)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*FLATTEN-LIST) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*REMOVE-DUPLICATES (*1*APPEND-LIST *3*X)))))) (PUT1-LST (QUOTE *1*IS-HEAD) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*AND (COND ((EQUAL (*1*CAR *3*X) (*1*CAR *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*IS-HEAD (*1*CDR *3*X) (*1*CDR *3*Y)))) (T (*1*NLISTP *3*X))))))) (PUT1-LST (QUOTE *1*LISTIFY) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CONS (CAR *3*X) (QUOTE NIL)) (*1*LISTIFY (CDR *3*X)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*ALISTP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP (CAR *3*X)) (NOT (EQ (CAR (CAR *3*X)) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ALISTP (CDR *3*X)))) ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*BOUNDP) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*KEY *3*ALIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*ALIST-ENTRY) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*ALIST) (*1*LOOKUP-MODULE *3*KEY *3*ALIST))))) (PUT1-LST (QUOTE *1*UNBIND) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*ALIST) (*1*DELETE-MODULE *3*KEY *3*ALIST))))) (PUT1-LST (QUOTE *1*SET-VALUE) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*VALUE *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*ALIST-ENTRY *3*KEY *3*ALIST))) *1*F)) (CONS (CONS *3*KEY *3*VALUE) *3*ALIST)) ((EQUAL *3*VALUE (*1*CDR *2*TEMP1)) *3*ALIST) (T (CONS (CONS *3*KEY *3*VALUE) (*1*UNBIND *3*KEY *3*ALIST))))))))) (PUT1-LST (QUOTE *1*UNION-VALUES) (QUOTE (SEXPR (LAMBDA (*3*KEYS *3*ALIST) (COND ((AND (CONSP *3*KEYS) (NOT (EQ (CAR *3*KEYS) (QUOTE *1*QUOTE)))) (*1*UNION (*1*VALUE (CAR *3*KEYS) *3*ALIST) (*1*UNION-VALUES (CDR *3*KEYS) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*LIST-UNION-VALUES) (QUOTE (SEXPR (LAMBDA (*3*LIST-OF-ARGS *3*ALIST) (COND ((AND (CONSP *3*LIST-OF-ARGS) (NOT (EQ (CAR *3*LIST-OF-ARGS) (QUOTE *1*QUOTE)))) (CONS (*1*UNION-VALUES (CAR *3*LIST-OF-ARGS) *3*ALIST) (*1*LIST-UNION-VALUES (CDR *3*LIST-OF-ARGS) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*UNBOUND-KEYS) (QUOTE (SEXPR (LAMBDA (*3*KEYS *3*ALIST) (LET NIL (COND ((AND (CONSP *3*KEYS) (NOT (EQ (CAR *3*KEYS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*BOUNDP (CAR *3*KEYS) *3*ALIST) *1*F)) (*1*UNBOUND-KEYS (CDR *3*KEYS) *3*ALIST)) (T (*1*INSERT (CAR *3*KEYS) (*1*UNBOUND-KEYS (CDR *3*KEYS) *3*ALIST))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*UNBIND-LIST) (QUOTE (SEXPR (LAMBDA (*3*KEYS *3*ALIST) (COND ((AND (CONSP *3*KEYS) (NOT (EQ (CAR *3*KEYS) (QUOTE *1*QUOTE)))) (*1*UNBIND (CAR *3*KEYS) (*1*UNBIND-LIST (CDR *3*KEYS) *3*ALIST))) (T *3*ALIST)))))) (PUT1-LST (QUOTE *1*M-STATES-LIST) (QUOTE (SEXPR (LAMBDA (*3*M-STATES) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP *3*M-STATES) (NOT (EQ (CAR *3*M-STATES) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*M-STATES (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) *3*M-STATES) (T (CONS *3*M-STATES (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LIST-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*LESSP (CAR *3*X) (CAR *3*Y)) *1*F)) (QUOTE *1*TRUE)) ((EQUAL (CAR *3*X) (CAR *3*Y)) (*1*LIST-LESSP (CDR *3*X) (CDR *3*Y))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*TOKEN-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP6 (*1*LITATOM *3*X)) (SETQ *2*TEMP5 (*1*LITATOM *3*Y))) *1*F)) (*1*LIST-LESSP (*1*UNPACK *3*X) (*1*UNPACK *3*Y))) ((NOT (EQ (*1*AND *2*TEMP6 (SETQ *2*TEMP4 (*1*INDEXP *3*Y))) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*AND (SETQ *2*TEMP3 (*1*INDEXP *3*X)) *2*TEMP5) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*AND *2*TEMP3 *2*TEMP4) *1*F)) (COND ((EQUAL (SETQ *2*TEMP2 (*1*I-NAME *3*X)) (SETQ *2*TEMP1 (*1*I-NAME *3*Y))) (*1*LESSP (*1*I-NUM *3*X) (*1*I-NUM *3*Y))) (T (*1*LIST-LESSP (*1*UNPACK *2*TEMP2) (*1*UNPACK *2*TEMP1))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*MIN-TOKEN-HELP) (QUOTE (SEXPR (LAMBDA (*3*SEED *3*LIST) (COND ((AND (CONSP *3*LIST) (NOT (EQ (CAR *3*LIST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*TOKEN-LESSP *3*SEED (CAR *3*LIST)) *1*F)) (*1*MIN-TOKEN-HELP *3*SEED (CDR *3*LIST))) (T (*1*MIN-TOKEN-HELP (CAR *3*LIST) (CDR *3*LIST))))) (T *3*SEED)))))) (PUT1-LST (QUOTE *1*MIN-TOKEN) (QUOTE (SEXPR (LAMBDA (*3*LIST) (COND ((AND (CONSP *3*LIST) (NOT (EQ (CAR *3*LIST) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (CDR *3*LIST)) (NOT (EQ (CAR (CDR *3*LIST)) (QUOTE *1*QUOTE)))) (*1*MIN-TOKEN-HELP (CAR *3*LIST) (CDR *3*LIST))) (T (CAR *3*LIST)))) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*LIST-SORT) (QUOTE (SEXPR (LAMBDA (*3*LIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*LIST) (NOT (EQ (CAR *3*LIST) (QUOTE *1*QUOTE)))) (CONS (SETQ *2*TEMP1 (*1*MIN-TOKEN *3*LIST)) (*1*LIST-SORT (*1*DELETE* *2*TEMP1 *3*LIST)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LIST-LIST-SORT) (QUOTE (SEXPR (LAMBDA (*3*LIST) (COND ((AND (CONSP *3*LIST) (NOT (EQ (CAR *3*LIST) (QUOTE *1*QUOTE)))) (CONS (*1*LIST-SORT (CAR *3*LIST)) (*1*LIST-LIST-SORT (CDR *3*LIST)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*NET-ERRORP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE NET-ERROR))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*ERROR-LABEL) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*NET-ERRORP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*FALSE))))))) (PUT1-LST (QUOTE *1*ERROR-BODY) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*NET-ERRORP X) *1*T) (CAR (CDR (CDR (CDR X))))) (T (*1*TRUE))))))) (PUT1-LST (QUOTE *1*NET-ERROR) (QUOTE (SEXPR (LAMBDA (ERROR-LABEL ERROR-BODY) (LIST *1*SHELL-QUOTE-MARK (QUOTE NET-ERROR) ERROR-LABEL ERROR-BODY))))) (PUT1-LST (QUOTE *1*REPORT-ERROR) (QUOTE (SEXPR (LAMBDA (*3*ERR) *3*ERR)))) (PUT1-LST (QUOTE *1*PRED-ERROR) (QUOTE (SEXPR (LAMBDA (*3*LABEL *3*BODY) (*1*REPORT-ERROR (*1*NET-ERROR *3*LABEL *3*BODY)))))) (PUT1-LST (QUOTE *1*ERROR-ENTRY) (QUOTE (SEXPR (LAMBDA (*3*LST *3*LABEL) (LET NIL (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (CAR *3*LST)) *1*F)) (COND ((EQUAL (*1*ERROR-LABEL (CAR *3*LST)) *3*LABEL) (CAR *3*LST)) (T (*1*ERROR-ENTRY (CDR *3*LST) *3*LABEL)))) (T (*1*ERROR-ENTRY (CDR *3*LST) *3*LABEL)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*NET-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*LST) (LET NIL (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (CAR *3*LST)) *1*F)) (CONS (CAR *3*LST) (*1*NET-ERRORS (CDR *3*LST)))) (T (*1*NET-ERRORS (CDR *3*LST))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*COLLECT-NET-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (*1*APPEND (*1*NET-ERRORS (CAR *3*LST)) (*1*COLLECT-NET-ERRORS (CDR *3*LST)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*ERR-AND) (QUOTE (SEXPR (LAMBDA (*3*LST *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*NET-ERRORS *3*LST))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*T-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*P *3*LABEL *3*BODY) (COND ((NOT (EQ (*1*AND *3*P (*1*NOT (*1*NET-ERRORP *3*P))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *3*BODY))))))) (PUT1-LST (QUOTE *1*NLISTP-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*X *3*LABEL) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *3*X))))))) (PUT1-LST (QUOTE *1*NIL-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*X *3*LABEL) (COND ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *3*X))))))) (PUT1-LST (QUOTE *1*SUBSET-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*SET-DIFF *3*X *3*Y))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*NO-DUPLICATES-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*X *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*LIST-DUPLICATES *3*X (QUOTE NIL)))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*DISJOINT-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*INTERSECTION *3*X *3*Y))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ALL-BOUND-OR-ERR) (QUOTE (SEXPR (LAMBDA (*3*KEYS *3*ALIST *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*UNBOUND-KEYS *3*KEYS *3*ALIST))) *1*F)) (QUOTE *1*TRUE)) (T (*1*PRED-ERROR *3*LABEL *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*LABEL-ERROR) (QUOTE (SEXPR (LAMBDA (*3*X *3*LABEL) (COND ((NOT (EQ (*1*NET-ERRORP *3*X) *1*F)) (*1*PRED-ERROR *3*LABEL *3*X)) (T *3*X)))))) (PUT1-LST (QUOTE *1*LIST-COLLECT-VALUE) (QUOTE (SEXPR (LAMBDA (*3*LIST-OF-ARGS *3*ALIST) (COND ((NOT (EQ (*1*NLISTP *3*LIST-OF-ARGS) *1*F)) (QUOTE NIL)) (T (CONS (*1*FLATTEN-LIST (*1*COLLECT-VALUE (*1*CAR *3*LIST-OF-ARGS) *3*ALIST)) (*1*LIST-COLLECT-VALUE (*1*CDR *3*LIST-OF-ARGS) *3*ALIST)))))))) (PUT1-LST (QUOTE *1*NAME-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*NAME) (*1*OR (*1*LITATOM *3*NAME) (*1*AND (*1*INDEXP *3*NAME) (*1*LITATOM (*1*I-NAME *3*NAME)))))))) (PUT1-LST (QUOTE *1*NAME-LIST-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NAME-LIST) *1*F)) (COND ((EQ *3*NAME-LIST (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*AND (*1*NAME-SIMPLE-OKP (SETQ *2*TEMP2 (*1*CAR *3*NAME-LIST))) (*1*AND (*1*NOT (*1*MEMBER *2*TEMP2 (SETQ *2*TEMP1 (*1*CDR *3*NAME-LIST)))) (*1*NAME-LIST-SIMPLE-OKP *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (*1*AND (*1*OR (COND ((EQUAL (QUOTE 4) (SETQ *2*TEMP5 (*1*LENGTH *3*OCC))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (QUOTE 5) *2*TEMP5) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ALISTP (*1*OCC-ANNOTATION *3*OCC)))) (*1*AND (*1*PROPERP *3*OCC) (*1*AND (*1*NAME-SIMPLE-OKP (*1*OCC-NAME *3*OCC)) (*1*AND (*1*NAME-LIST-SIMPLE-OKP (SETQ *2*TEMP4 (*1*OCC-OUTPUTS *3*OCC))) (*1*AND (*1*PROPERP (SETQ *2*TEMP3 (*1*OCC-INPUTS *3*OCC))) (COND ((NOT (EQ (*1*PRIMP (SETQ *2*TEMP2 (*1*OCC-FUNCTION *3*OCC))) *1*F)) (*1*AND (COND ((EQUAL (*1*LENGTH (*1*PRIMP2 *2*TEMP2 (QUOTE INPUTS))) (*1*LENGTH *2*TEMP3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*LENGTH (*1*PRIMP2 *2*TEMP2 (QUOTE OUTPUTS))) (*1*LENGTH *2*TEMP4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (T (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *2*TEMP2 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*LENGTH (*1*MODULE-INPUTS *2*TEMP1)) (*1*LENGTH *2*TEMP3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*LENGTH (*1*MODULE-OUTPUTS *2*TEMP1)) (*1*LENGTH *2*TEMP4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))))))) (PUT1-LST (QUOTE *1*OCC-BODY-SYNTAX-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*SIGNALS *3*NON-DEPENDS *3*OCC-NAMES *3*OUTPUTS *3*STATES *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*BODY) *1*F)) (*1*AND (COND ((EQ *3*BODY (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*SUBSET *3*OUTPUTS *3*SIGNALS) (*1*AND (*1*SUBSET *3*NON-DEPENDS *3*SIGNALS) (*1*AND (*1*SUBSET *3*STATES *3*OCC-NAMES) (*1*AND (*1*NOT (*1*DUPLICATES? *3*SIGNALS)) (*1*NOT (*1*DUPLICATES? *3*OCC-NAMES)))))))) ((NOT (EQ (*1*OCC-SYNTAX-SIMPLE-OKP (SETQ *2*TEMP1 (*1*CAR *3*BODY)) *3*NETLIST) *1*F)) (*1*OCC-BODY-SYNTAX-SIMPLE-OKP (*1*CDR *3*BODY) (*1*APPEND (*1*OCC-OUTPUTS *2*TEMP1) *3*SIGNALS) (*1*APPEND (*1*SET-DIFF (*1*OCC-INPUTS *2*TEMP1) *3*SIGNALS) *3*NON-DEPENDS) (CONS (*1*OCC-NAME *2*TEMP1) *3*OCC-NAMES) *3*OUTPUTS *3*STATES *3*NETLIST)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (*1*AND (*1*OR (COND ((EQUAL (SETQ *2*TEMP8 (*1*LENGTH (SETQ *2*TEMP7 (*1*CAR *3*NETLIST)))) (QUOTE 5)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL *2*TEMP8 (QUOTE 6)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ALISTP (*1*MODULE-ANNOTATION *2*TEMP7)))) (*1*AND (*1*PROPERP *2*TEMP7) (*1*AND (*1*NAME-SIMPLE-OKP (SETQ *2*TEMP6 (*1*MODULE-NAME *2*TEMP7))) (*1*AND (*1*NOT (*1*LOOKUP-MODULE *2*TEMP6 (SETQ *2*TEMP5 (*1*CDR *3*NETLIST)))) (*1*AND (*1*NOT (*1*PRIMP *2*TEMP6)) (*1*AND (*1*NAME-LIST-SIMPLE-OKP (SETQ *2*TEMP4 (*1*MODULE-INPUTS *2*TEMP7))) (*1*AND (*1*NAME-LIST-SIMPLE-OKP (SETQ *2*TEMP3 (*1*MODULE-OUTPUTS *2*TEMP7))) (*1*AND (*1*NAME-LIST-SIMPLE-OKP (SETQ *2*TEMP2 (*1*M-STATES-LIST (*1*MODULE-STATENAMES *2*TEMP7)))) (*1*AND (*1*DISJOINT *2*TEMP4 *2*TEMP3) (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*MODULE-OCCURRENCES *2*TEMP7))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OCC-BODY-SYNTAX-SIMPLE-OKP *2*TEMP1 *2*TEMP4 (QUOTE NIL) (QUOTE NIL) *2*TEMP3 *2*TEMP2 *2*TEMP5)))))))))))))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (COND ((EQ *3*NETLIST (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MODULE-SYNTAX-SIMPLE-OKP *3*NETLIST) *1*F)) (*1*NETLIST-SYNTAX-SIMPLE-OKP (*1*CDR *3*NETLIST))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*NETLIST *3*MODULE-DATABASE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*LIST-COLLECT-VALUE (*1*PRIMP2 *3*X0 (QUOTE OUT-DEPENDS)) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1))) ((NOT (EQ (SETQ *2*TEMP7 (*1*LOOKUP-MODULE (QUOTE OUT-DEPENDS) (*1*CDR (*1*LOOKUP-MODULE *3*X0 *3*MODULE-DATABASE)))) *1*F)) (*1*LIST-COLLECT-VALUE (*1*CDR *2*TEMP7) (*1*PAIRLIST (*1*MODULE-INPUTS (*1*LOOKUP-MODULE *3*X0 *3*NETLIST)) *3*X1))) ((AND (CONSP (SETQ *2*TEMP5 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP4 (*1*OUT-DEPENDS-SIMPLE (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP5) (SETQ *2*TEMP6 (*1*PAIRLIST (*1*MODULE-INPUTS *2*TEMP5) *3*X1)) (*1*DELETE-MODULE *3*X0 *3*NETLIST) *3*MODULE-DATABASE)) (*1*SUBSET (SETQ *2*TEMP3 (*1*MODULE-OUTPUTS *2*TEMP5)) (*1*STRIP-CARS *2*TEMP4))) *1*F)) (*1*COLLECT-VALUE *2*TEMP3 *2*TEMP4)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) *3*X1) ((NOT (EQ (*1*AND (*1*SUBSET (*1*FLATTEN-LIST (SETQ *2*TEMP2 (*1*OUT-DEPENDS-SIMPLE (QUOTE 0) (*1*OCC-FUNCTION (SETQ *2*TEMP1 (*1*CAR *3*X0))) (*1*LISTIFY (*1*OCC-INPUTS *2*TEMP1)) *3*NETLIST *3*MODULE-DATABASE))) (*1*STRIP-CARS *3*X1)) *2*TEMP2) *1*F)) (*1*OUT-DEPENDS-SIMPLE (QUOTE 1) (*1*CDR *3*X0) (*1*APPEND (*1*PAIRLIST (*1*OCC-OUTPUTS *2*TEMP1) (*1*LIST-COLLECT-VALUE *2*TEMP2 *3*X1)) *3*X1) *3*NETLIST *3*MODULE-DATABASE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*SIMPLE-DEPENDENCY-TABLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (SETQ *2*TEMP4 (*1*SIMPLE-DEPENDENCY-TABLE (*1*CDR *3*NETLIST))) *1*F)) (COND ((NOT (EQ (SETQ *2*TEMP3 (*1*OUT-DEPENDS-SIMPLE (QUOTE 0) (SETQ *2*TEMP2 (*1*MODULE-NAME (SETQ *2*TEMP1 (*1*CAR *3*NETLIST)))) (*1*LISTIFY (*1*MODULE-INPUTS *2*TEMP1)) *3*NETLIST *2*TEMP4)) *1*F)) (CONS (CONS *2*TEMP2 (CONS (CONS (QUOTE OUT-DEPENDS) *2*TEMP3) (QUOTE NIL))) *2*TEMP4)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*OUTPUT-DEPENDENCIES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*MODULE-NAME *3*ARGS *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*AND (*1*PRIMP *3*MODULE-NAME) (COND ((EQUAL (SETQ *2*TEMP2 (*1*LENGTH *3*ARGS)) (*1*LENGTH (*1*PRIMP2 *3*MODULE-NAME (QUOTE INPUTS)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*MODULE-NAME *3*NETLIST)) (COND ((EQUAL *2*TEMP2 (*1*LENGTH (*1*MODULE-INPUTS *2*TEMP1))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*LIST-LIST-SORT (*1*OUT-DEPENDS-SIMPLE (QUOTE 0) *3*MODULE-NAME *3*ARGS *3*NETLIST (*1*SIMPLE-DEPENDENCY-TABLE *3*NETLIST)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*TYPE-VALUE-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*N *3*ALIST *3*DEFAULT) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP3 (*1*LOOKUP-MODULE *3*N *3*ALIST))) *1*F)) (COND ((NOT (EQ *3*DEFAULT *1*F)) (QUOTE FREE)) (T (CONS *3*N (QUOTE NIL))))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP2 (*1*CDR *2*TEMP3))) *1*F)) *2*TEMP2) ((EQUAL (SETQ *2*TEMP1 (*1*CAR *2*TEMP2)) *3*N) (COND ((NOT (EQ *3*DEFAULT *1*F)) (QUOTE FREE)) (T *2*TEMP2))) (T (*1*TYPE-VALUE-SIMPLE *2*TEMP1 (*1*DELETE-MODULE *3*N *3*ALIST) *3*DEFAULT)))))))) (PUT1-LST (QUOTE *1*COLLECT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*ALIST *3*DEFAULT) (COND ((NOT (EQ (*1*NLISTP *3*NAMES) *1*F)) (QUOTE NIL)) (T (CONS (*1*TYPE-VALUE-SIMPLE (*1*CAR *3*NAMES) *3*ALIST *3*DEFAULT) (*1*COLLECT-TYPES (*1*CDR *3*NAMES) *3*ALIST *3*DEFAULT)))))))) (PUT1-LST (QUOTE *1*ADD-NEW-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NEW-TYPE-ENTRY *3*KNOWN-TYPES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP5 (*1*CDR *3*NEW-TYPE-ENTRY)) (QUOTE FREE)) *3*KNOWN-TYPES) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP4 (*1*LOOKUP-MODULE (SETQ *2*TEMP3 (*1*CAR *3*NEW-TYPE-ENTRY)) *3*KNOWN-TYPES))) *1*F)) (CONS *3*NEW-TYPE-ENTRY *3*KNOWN-TYPES)) ((EQUAL *2*TEMP5 (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))) *3*KNOWN-TYPES) ((AND (CONSP *2*TEMP5) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (CONS (CONS (CAR *2*TEMP5) *2*TEMP2) *3*KNOWN-TYPES)) ((AND (CONSP *2*TEMP2) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*ADD-NEW-TYPE (CONS (CAR *2*TEMP2) *2*TEMP5) (*1*DELETE-MODULE *2*TEMP3 *3*KNOWN-TYPES))) *1*F)) (CONS *3*NEW-TYPE-ENTRY *2*TEMP1)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*UPDATE-KNOWN-TYPES) (QUOTE (SEXPR (LAMBDA (*3*NEW-TYPES *3*KNOWN-TYPES) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*NEW-TYPES) (*1*FALSEP *3*KNOWN-TYPES)) *1*F)) *3*KNOWN-TYPES) (T (*1*UPDATE-KNOWN-TYPES (*1*CDR *3*NEW-TYPES) (*1*ADD-NEW-TYPE (*1*CAR *3*NEW-TYPES) *3*KNOWN-TYPES)))))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TYPES) *1*F)) (QUOTE NIL)) ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR *3*TYPES))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS (*1*VALUE (CAR *2*TEMP1) *3*ALIST) (*1*FIX-DEPENDENT-TYPES (*1*CDR *3*TYPES) *3*ALIST))) (T (CONS *2*TEMP1 (*1*FIX-DEPENDENT-TYPES (*1*CDR *3*TYPES) *3*ALIST))))))))) (PUT1-LST (QUOTE *1*IO-TYPES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*NETLIST *3*TYPE-TABLE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (CONS (*1*PRIMP2 *3*X0 (QUOTE INPUT-TYPES)) (*1*FIX-DEPENDENT-TYPES (*1*PRIMP2 *3*X0 (QUOTE OUTPUT-TYPES)) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1)))) ((NOT (EQ (*1*AND (SETQ *2*TEMP10 (*1*LOOKUP-MODULE (QUOTE INPUT-TYPES) (SETQ *2*TEMP9 (*1*CDR (*1*LOOKUP-MODULE *3*X0 *3*TYPE-TABLE))))) (SETQ *2*TEMP8 (*1*LOOKUP-MODULE (QUOTE OUTPUT-TYPES) *2*TEMP9))) *1*F)) (CONS (*1*CDR *2*TEMP10) (*1*FIX-DEPENDENT-TYPES (*1*CDR *2*TEMP8) (*1*PAIRLIST (*1*MODULE-INPUTS (*1*LOOKUP-MODULE *3*X0 *3*NETLIST)) *3*X1)))) ((AND (CONSP (SETQ *2*TEMP6 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (SETQ *2*TEMP5 (*1*IO-TYPES-SIMPLE (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP6) (QUOTE NIL) (*1*DELETE-MODULE *3*X0 *3*NETLIST) *3*TYPE-TABLE)) *1*F)) (CONS (*1*COLLECT-TYPES (SETQ *2*TEMP7 (*1*MODULE-INPUTS *2*TEMP6)) *2*TEMP5 (QUOTE *1*TRUE)) (*1*FIX-DEPENDENT-TYPES (*1*COLLECT-TYPES (*1*MODULE-OUTPUTS *2*TEMP6) *2*TEMP5 (QUOTE *1*FALSE)) (*1*PAIRLIST *2*TEMP7 *3*X1)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) *3*X1) ((AND (CONSP (SETQ *2*TEMP4 (*1*IO-TYPES-SIMPLE (QUOTE 0) (*1*OCC-FUNCTION (SETQ *2*TEMP3 (*1*CAR *3*X0))) (*1*COLLECT-TYPES (SETQ *2*TEMP2 (*1*OCC-INPUTS *2*TEMP3)) *3*X1 (QUOTE *1*FALSE)) *3*NETLIST *3*TYPE-TABLE))) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*UPDATE-KNOWN-TYPES (*1*PAIRLIST (*1*OCC-OUTPUTS *2*TEMP3) (CDR *2*TEMP4)) (*1*UPDATE-KNOWN-TYPES (*1*PAIRLIST *2*TEMP2 (CAR *2*TEMP4)) *3*X1))) *1*F)) (*1*IO-TYPES-SIMPLE (QUOTE 1) (*1*CDR *3*X0) *2*TEMP1 *3*NETLIST *3*TYPE-TABLE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-TABLE-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (SETQ *2*TEMP4 (*1*NETLIST-TYPE-TABLE-SIMPLE (*1*CDR *3*NETLIST))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*IO-TYPES-SIMPLE (QUOTE 0) (SETQ *2*TEMP2 (*1*MODULE-NAME (SETQ *2*TEMP1 (*1*CAR *3*NETLIST)))) (*1*LISTIFY (*1*MODULE-INPUTS *2*TEMP1)) *3*NETLIST *2*TEMP4))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (CONS *2*TEMP2 (CONS (CONS (QUOTE INPUT-TYPES) (CAR *2*TEMP3)) (CONS (CONS (QUOTE OUTPUT-TYPES) (CDR *2*TEMP3)) (QUOTE NIL)))) *2*TEMP4)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*TYPES-ACCEPTABLEP) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*NETLIST *3*ACCEPTABLE-TYPES *3*CHECKED-MODULES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*AND (*1*SUBSET (SETQ *2*TEMP2 (*1*PRIMP2 *3*X0 (QUOTE INPUT-TYPES))) *3*ACCEPTABLE-TYPES) (*1*SUBSET (*1*FIX-DEPENDENT-TYPES (*1*PRIMP2 *3*X0 (QUOTE OUTPUT-TYPES)) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *2*TEMP2)) *3*ACCEPTABLE-TYPES))) ((NOT (EQ (*1*MEMBER *3*X0 *3*CHECKED-MODULES) *1*F)) (QUOTE *1*TRUE)) ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*TYPES-ACCEPTABLEP (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP1) (*1*DELETE-MODULE *3*X0 *3*NETLIST) *3*ACCEPTABLE-TYPES *3*CHECKED-MODULES)) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*TYPES-ACCEPTABLEP (QUOTE 0) (*1*OCC-FUNCTION (*1*CAR *3*X0)) *3*NETLIST *3*ACCEPTABLE-TYPES *3*CHECKED-MODULES) *1*F)) (*1*TYPES-ACCEPTABLEP (QUOTE 1) (*1*CDR *3*X0) *3*NETLIST *3*ACCEPTABLE-TYPES *3*CHECKED-MODULES)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*NETLIST-TYPES-ACCEPTABLE-LIST) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (SETQ *2*TEMP2 (*1*NETLIST-TYPES-ACCEPTABLE-LIST (*1*CDR *3*NETLIST))) *1*F)) (COND ((NOT (EQ (*1*TYPES-ACCEPTABLEP (QUOTE 0) (SETQ *2*TEMP1 (*1*MODULE-NAME (*1*CAR *3*NETLIST))) *3*NETLIST (QUOTE (BOOLP CLK LEVEL CLK-10 FREE)) *2*TEMP2) *1*F)) (CONS *2*TEMP1 *2*TEMP2)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-CHECK-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (COND ((NOT (EQ (*1*NETLIST-TYPES-ACCEPTABLE-LIST *3*NETLIST) *1*F)) (*1*NETLIST-TYPE-TABLE-SIMPLE *3*NETLIST)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ARG-TYPES-MATCH-SIMPLEP) (QUOTE (SEXPR (LAMBDA (*3*ACTUALS *3*FORMALS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*ACTUALS) (*1*NLISTP *3*FORMALS)) *1*F)) (COND ((EQUAL *3*ACTUALS *3*FORMALS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*AND (*1*OR (COND ((EQUAL (*1*CAR *3*ACTUALS) (SETQ *2*TEMP1 (*1*CAR *3*FORMALS))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *2*TEMP1 (QUOTE FREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*ARG-TYPES-MATCH-SIMPLEP (*1*CDR *3*ACTUALS) (*1*CDR *3*FORMALS)))))))))) (PUT1-LST (QUOTE *1*ARG-TYPES-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARG-TYPES *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NOT (*1*SUBSET *3*ARG-TYPES (QUOTE (BOOLP CLK LEVEL CLK-10)))) *1*F)) (QUOTE *1*FALSE)) ((AND (CONSP (SETQ *2*TEMP1 (*1*IO-TYPES-SIMPLE (QUOTE 0) *3*FN *3*ARG-TYPES *3*NETLIST (*1*NETLIST-TYPE-TABLE-SIMPLE *3*NETLIST)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*ARG-TYPES-MATCH-SIMPLEP *3*ARG-TYPES (CAR *2*TEMP1))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*MAKE-RAM-STATE) (QUOTE (SEXPR (LAMBDA (*3*STRUCTURE *3*WIDTH *3*BIT-VALUE) (COND ((NOT (EQ (*1*NLISTP *3*STRUCTURE) *1*F)) (*1*RAM (*1*MAKE-LIST *3*WIDTH *3*BIT-VALUE))) (T (CONS (*1*MAKE-RAM-STATE (*1*CAR *3*STRUCTURE) *3*WIDTH *3*BIT-VALUE) (*1*MAKE-RAM-STATE (*1*CDR *3*STRUCTURE) *3*WIDTH *3*BIT-VALUE)))))))) (PUT1-LST (QUOTE *1*STATE-TYPE-REQUIREMENT-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*NETLIST *3*TYPE-TABLE) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE STATE-TYPE-REQUIREMENT-SIMPLE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (SETQ *2*TEMP9 (*1*PRIMP *3*X0)) *1*F)) (COND ((NOT (EQ (SETQ *2*TEMP8 (*1*LOOKUP-MODULE (QUOTE STATE-TYPES) (*1*CDR *2*TEMP9))) *1*F)) (*1*EVAL$ (QUOTE *1*TRUE) (*1*CDR *2*TEMP8) (QUOTE NIL))) (T (QUOTE *1*TRUE)))) ((NOT (EQ (SETQ *2*TEMP7 (*1*LOOKUP-MODULE *3*X0 *3*TYPE-TABLE)) *1*F)) (COND ((NOT (EQ (SETQ *2*TEMP6 (*1*LOOKUP-MODULE (QUOTE STATE-TYPES) (*1*CDR *2*TEMP7))) *1*F)) (*1*CDR *2*TEMP6)) (T (QUOTE *1*TRUE)))) ((AND (CONSP (SETQ *2*TEMP5 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*SET-EQUAL (*1*M-STATES-LIST (SETQ *2*TEMP4 (*1*MODULE-STATENAMES *2*TEMP5))) (*1*STRIP-CARS (SETQ *2*TEMP3 (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP5) (QUOTE NIL) (*1*DELETE-MODULE *3*X0 *3*NETLIST) *3*TYPE-TABLE)))) *1*F)) (COND ((EQ *2*TEMP4 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (*1*COLLECT-STATES *2*TEMP4 *2*TEMP3)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) *3*X1) ((NOT (EQ (*1*TRUEP (SETQ *2*TEMP2 (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (*1*OCC-FUNCTION (SETQ *2*TEMP1 (*1*CAR *3*X0))) (QUOTE NIL) *3*NETLIST *3*TYPE-TABLE))) *1*F)) (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (*1*CDR *3*X0) *3*X1 *3*NETLIST *3*TYPE-TABLE)) ((NOT (EQ *2*TEMP2 *1*F)) (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 1) (*1*CDR *3*X0) (CONS (CONS (*1*OCC-NAME *2*TEMP1) *2*TEMP2) *3*X1) *3*NETLIST *3*TYPE-TABLE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*NETLIST-STATE-TYPES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE NETLIST-STATE-TYPES-SIMPLE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (SETQ *2*TEMP3 (*1*NETLIST-STATE-TYPES-SIMPLE (*1*CDR *3*NETLIST))) *1*F)) (COND ((NOT (EQ (*1*TRUEP (SETQ *2*TEMP2 (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) (SETQ *2*TEMP1 (*1*MODULE-NAME (*1*CAR *3*NETLIST))) (QUOTE NIL) *3*NETLIST *2*TEMP3))) *1*F)) *2*TEMP3) ((NOT (EQ *2*TEMP2 *1*F)) (CONS (CONS *2*TEMP1 (CONS (CONS (QUOTE STATE-TYPES) *2*TEMP2) (QUOTE NIL))) *2*TEMP3)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*STATE-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*TYPE) (LET NIL (COND ((NOT (EQ (*1*TRUEP *3*TYPE) *1*F)) (COND ((EQ *3*STATE (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((EQ *3*TYPE (QUOTE BOOLP)) (*1*BOOLP *3*STATE)) ((NOT (EQ (*1*RAMP *3*TYPE) *1*F)) (*1*AND (*1*RAMP *3*STATE) (*1*STATE-SIMPLE-OKP (*1*RAM-GUTS *3*STATE) (*1*RAM-GUTS *3*TYPE)))) ((NOT (EQ (*1*ROMP *3*TYPE) *1*F)) (*1*AND (*1*ROMP *3*STATE) (*1*STATE-SIMPLE-OKP (*1*ROM-GUTS *3*STATE) (*1*ROM-GUTS *3*TYPE)))) ((NOT (EQ (*1*STUBP *3*TYPE) *1*F)) (*1*AND (*1*STUBP *3*STATE) (*1*STATE-SIMPLE-OKP (*1*STUB-GUTS *3*STATE) (*1*STUB-GUTS *3*TYPE)))) ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*STATE) (NOT (EQ (CAR *3*STATE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*STATE-SIMPLE-OKP (*1*CAR *3*STATE) (CAR *3*TYPE)) (*1*STATE-SIMPLE-OKP (*1*CDR *3*STATE) (CDR *3*TYPE))))) ((EQ *3*TYPE (QUOTE NIL)) (COND ((EQ *3*STATE (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*APPLY-STATE-SIMPLE-OKP) (QUOTE (SEXPR (LAMBDA (*3*FN *3*STATE *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE APPLY-STATE-SIMPLE-OKP) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*STATE-SIMPLE-OKP *3*STATE (*1*STATE-TYPE-REQUIREMENT-SIMPLE (QUOTE 0) *3*FN (QUOTE NIL) *3*NETLIST (*1*NETLIST-STATE-TYPES-SIMPLE *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-LDS) (QUOTE (SEXPR (LAMBDA (*3*LDS *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LDS) *1*F)) *3*LDS) (T (CONS (COND ((NOT (EQ (*1*OR (*1*LITATOM (SETQ *2*TEMP1 (*1*CAR *3*LDS))) (*1*INDEXP *2*TEMP1)) *1*F)) (*1*VALUE *2*TEMP1 *3*ALIST)) ((NOT (EQ (*1*NLISTP *2*TEMP1) *1*F)) *2*TEMP1) (T (*1*FIX-DEPENDENT-LDS *2*TEMP1 *3*ALIST))) (*1*FIX-DEPENDENT-LDS (*1*CDR *3*LDS) *3*ALIST))))))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*SLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*NAME *3*SLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*OR (*1*LITATOM (CDR *2*TEMP1)) (*1*INDEXP (CDR *2*TEMP1))) *1*F)) (*1*PARENT-SYNONYM-SIMPLE (CDR *2*TEMP1) (*1*DELETE-MODULE *3*NAME *3*SLIST))) (T *3*NAME))) (T *3*NAME))))))) (PUT1-LST (QUOTE *1*ADD-LOADING-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*LOADING *3*LD-LIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*NAME *3*LD-LIST))) *1*F)) (CONS (CONS *3*NAME (COND ((AND (CONSP *3*LOADING) (NOT (EQ (CAR *3*LOADING) (QUOTE *1*QUOTE)))) *3*LOADING) (T (CONS *3*LOADING (QUOTE NIL))))) *3*LD-LIST)) (T (CONS (CONS *3*NAME (COND ((AND (CONSP *3*LOADING) (NOT (EQ (CAR *3*LOADING) (QUOTE *1*QUOTE)))) (*1*APPEND *3*LOADING (*1*CDR *2*TEMP1))) (T (CONS *3*LOADING (*1*CDR *2*TEMP1))))) (*1*DELETE-MODULE *3*NAME *3*LD-LIST))))))))) (PUT1-LST (QUOTE *1*ADD-LOADING-SIMPLES) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*LOADINGS *3*LD-LIST) (COND ((NOT (EQ (*1*NLISTP *3*NAMES) *1*F)) *3*LD-LIST) (T (*1*ADD-LOADING-SIMPLES (*1*CDR *3*NAMES) (*1*CDR *3*LOADINGS) (*1*ADD-LOADING-SIMPLE (*1*CAR *3*NAMES) (*1*CAR *3*LOADINGS) *3*LD-LIST)))))))) (PUT1-LST (QUOTE *1*SUM-NUMBERS) (QUOTE (SEXPR (LAMBDA (*3*LST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*NUMBERP (SETQ *2*TEMP1 (*1*CAR *3*LST))) *1*F)) (*1*PLUS *2*TEMP1 (*1*SUM-NUMBERS (*1*CDR *3*LST)))) (T (*1*SUM-NUMBERS (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*EXTRACT-NAMES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*LST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*AND (*1*OR (*1*LITATOM (SETQ *2*TEMP2 (*1*CAR *3*LST))) (*1*INDEXP *2*TEMP2)) (*1*NOT (*1*MEMBER *2*TEMP2 (SETQ *2*TEMP1 (*1*CDR *3*LST))))) *1*F)) (CONS *2*TEMP2 (*1*EXTRACT-NAMES-SIMPLE *2*TEMP1))) (T (*1*EXTRACT-NAMES-SIMPLE *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUM-LOADING) (QUOTE (SEXPR (LAMBDA (*3*LD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (*1*CAR *3*LD) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP3 (*1*EXTRACT-NAMES-SIMPLE (SETQ *2*TEMP2 (*1*CDR *3*LD))))) *1*F)) (CONS (*1*SUM-NUMBERS *2*TEMP2) (QUOTE NIL))) ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP1 (*1*SUM-NUMBERS *2*TEMP2))) *1*F)) *2*TEMP3) (T (CONS *2*TEMP1 *2*TEMP3))))))))) (PUT1-LST (QUOTE *1*SUM-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*LDS) (COND ((NOT (EQ (*1*NLISTP *3*LDS) *1*F)) (QUOTE NIL)) (T (CONS (*1*SUM-LOADING (*1*CAR *3*LDS)) (*1*SUM-LOADINGS (*1*CDR *3*LDS))))))))) (PUT1-LST (QUOTE *1*FIX-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*SLIST *3*LDS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*SLIST) *1*F)) (*1*SUM-LOADINGS *3*LDS)) ((NOT (EQ (*1*OR (*1*LITATOM (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CAR *3*SLIST))))) (*1*INDEXP *2*TEMP3)) *1*F)) (*1*FIX-LOADINGS (*1*CDR *3*SLIST) (*1*ADD-LOADING-SIMPLE *2*TEMP3 (*1*VALUE (SETQ *2*TEMP1 (*1*CAR *2*TEMP2)) *3*LDS) (*1*DELETE-MODULE *2*TEMP1 *3*LDS)))) (T (*1*FIX-LOADINGS (*1*CDR *3*SLIST) *3*LDS)))))))) (PUT1-LST (QUOTE *1*FIX-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*DRS *3*SLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*DRS) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*OR (*1*LITATOM (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*CAR *3*DRS))))) (*1*INDEXP *2*TEMP2)) *1*F)) (CONS (CONS (*1*CAR *2*TEMP1) (*1*PARENT-SYNONYM-SIMPLE *2*TEMP2 *3*SLIST)) (*1*FIX-DRIVES (*1*CDR *3*DRS) *3*SLIST))) (T (CONS *2*TEMP1 (*1*FIX-DRIVES (*1*CDR *3*DRS) *3*SLIST))))))))) (PUT1-LST (QUOTE *1*NET-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*DRS *3*LDS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*DRS) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*NUMBERP (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CAR *3*DRS))))) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP5 (SETQ *2*TEMP3 (*1*SUM-NUMBERS (*1*VALUE (SETQ *2*TEMP2 (*1*CAR *2*TEMP4)) *3*LDS)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (SETQ *2*TEMP1 (*1*NET-DRIVES (*1*CDR *3*DRS) *3*LDS)) *1*F)) (CONS (CONS *2*TEMP2 (*1*DIFFERENCE *2*TEMP5 *2*TEMP3)) *2*TEMP1)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP1 (*1*NET-DRIVES (*1*CDR *3*DRS) *3*LDS)) *1*F)) (CONS *2*TEMP4 *2*TEMP1)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*EXTERNAL-LOADING) (QUOTE (SEXPR (LAMBDA (*3*LD-LST *3*EXTERNAL-NAMES) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LD-LST) *1*F)) *3*LD-LST) ((NOT (EQ (*1*AND (*1*OR (*1*LITATOM (SETQ *2*TEMP1 (*1*CAR *3*LD-LST))) (*1*INDEXP *2*TEMP1)) (*1*NOT (*1*MEMBER *2*TEMP1 *3*EXTERNAL-NAMES))) *1*F)) (*1*EXTERNAL-LOADING (*1*CDR *3*LD-LST) *3*EXTERNAL-NAMES)) (T (CONS *2*TEMP1 (*1*EXTERNAL-LOADING (*1*CDR *3*LD-LST) *3*EXTERNAL-NAMES))))))))) (PUT1-LST (QUOTE *1*COLLECT-LOADINGS-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*LOADINGS *3*EXTERNAL-NAMES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NAMES) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*CAR *3*NAMES)) *3*LOADINGS) *1*F)) (CONS (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*EXTERNAL-LOADING (*1*VALUE *2*TEMP2 *3*LOADINGS) *3*EXTERNAL-NAMES))) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (*1*CAR *2*TEMP1)) (T *2*TEMP1)) (*1*COLLECT-LOADINGS-SIMPLE (*1*CDR *3*NAMES) *3*LOADINGS *3*EXTERNAL-NAMES))) (T (CONS (QUOTE 0) (*1*COLLECT-LOADINGS-SIMPLE (*1*CDR *3*NAMES) *3*LOADINGS *3*EXTERNAL-NAMES))))))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*DRIVES *3*EXTERNAL-NAMES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NAMES) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*OR (*1*NOT (*1*OR (*1*LITATOM (SETQ *2*TEMP4 (*1*VALUE (SETQ *2*TEMP3 (*1*CAR *3*NAMES)) *3*DRIVES))) (*1*INDEXP *2*TEMP4))) (*1*MEMBER *2*TEMP4 *3*EXTERNAL-NAMES)) *1*F)) (CONS *2*TEMP4 (*1*COLLECT-DRIVES-SIMPLE (*1*CDR *3*NAMES) *3*DRIVES *3*EXTERNAL-NAMES))) ((EQUAL (SETQ *2*TEMP2 (*1*PARENT-SYNONYM-SIMPLE *2*TEMP4 *3*DRIVES)) *2*TEMP4) (CONS (SETQ *2*TEMP1 (*1*VALUE *2*TEMP4 *3*DRIVES)) (*1*COLLECT-DRIVES-SIMPLE (*1*CDR *3*NAMES) (CONS (CONS *2*TEMP4 *2*TEMP3) (CONS (CONS *2*TEMP3 *2*TEMP1) (*1*DELETE-MODULE *2*TEMP3 (*1*DELETE-MODULE *2*TEMP4 *3*DRIVES)))) *3*EXTERNAL-NAMES))) (T (CONS *2*TEMP2 (*1*COLLECT-DRIVES-SIMPLE (*1*CDR *3*NAMES) *3*DRIVES *3*EXTERNAL-NAMES))))))))) (PUT1-LST (QUOTE *1*LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*X2 *3*NETLIST *3*LDS-TABLE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (CONS (*1*FIX-DEPENDENT-LDS (*1*PRIMP2 *3*X0 (QUOTE LOADINGS)) (SETQ *2*TEMP16 (*1*APPEND (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE OUTPUTS)) *3*X2)))) (*1*FIX-DEPENDENT-LDS (*1*PRIMP2 *3*X0 (QUOTE DRIVES)) *2*TEMP16))) ((NOT (EQ (*1*AND (SETQ *2*TEMP15 (*1*LOOKUP-MODULE (QUOTE LOADINGS) (SETQ *2*TEMP14 (*1*CDR (*1*LOOKUP-MODULE *3*X0 *3*LDS-TABLE))))) (SETQ *2*TEMP13 (*1*LOOKUP-MODULE (QUOTE DRIVES) *2*TEMP14))) *1*F)) (CONS (*1*FIX-DEPENDENT-LDS (*1*CDR *2*TEMP15) (SETQ *2*TEMP12 (*1*APPEND (*1*PAIRLIST (SETQ *2*TEMP11 (*1*MODULE-INPUTS (SETQ *2*TEMP10 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST)))) *3*X1) (*1*PAIRLIST (SETQ *2*TEMP9 (*1*MODULE-OUTPUTS *2*TEMP10)) *3*X2)))) (*1*FIX-DEPENDENT-LDS (*1*CDR *2*TEMP13) *2*TEMP12))) ((AND (CONSP (SETQ *2*TEMP10 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP10) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (SETQ *2*TEMP8 (*1*LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP10) (QUOTE NIL) (QUOTE NIL) (*1*DELETE-MODULE *3*X0 *3*NETLIST) *3*LDS-TABLE)) *1*F)) (CONS (*1*FIX-DEPENDENT-LDS (*1*COLLECT-LOADINGS-SIMPLE (SETQ *2*TEMP11 (*1*MODULE-INPUTS *2*TEMP10)) (*1*CAR *2*TEMP8) (SETQ *2*TEMP9 (*1*MODULE-OUTPUTS *2*TEMP10))) (SETQ *2*TEMP12 (*1*APPEND (*1*PAIRLIST *2*TEMP11 *3*X1) (*1*PAIRLIST *2*TEMP9 *3*X2)))) (*1*FIX-DEPENDENT-LDS (*1*COLLECT-DRIVES-SIMPLE *2*TEMP9 (*1*CDR *2*TEMP8) (*1*APPEND *2*TEMP11 *2*TEMP9)) *2*TEMP12))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP7 (*1*FIX-LOADINGS (SETQ *2*TEMP6 (*1*FIX-DRIVES *3*X2 *3*X2)) *3*X1)) (SETQ *2*TEMP5 (*1*NET-DRIVES *2*TEMP6 *2*TEMP7))) *1*F)) (CONS *2*TEMP7 *2*TEMP5)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (SETQ *2*TEMP4 (*1*LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (*1*OCC-FUNCTION (SETQ *2*TEMP3 (*1*CAR *3*X0))) (SETQ *2*TEMP2 (*1*OCC-INPUTS *2*TEMP3)) (SETQ *2*TEMP1 (*1*OCC-OUTPUTS *2*TEMP3)) *3*NETLIST *3*LDS-TABLE)) *1*F)) (*1*LOADINGS-AND-DRIVES-SIMPLE (QUOTE 1) (*1*CDR *3*X0) (*1*ADD-LOADING-SIMPLES *2*TEMP2 (*1*CAR *2*TEMP4) *3*X1) (*1*APPEND (*1*PAIRLIST *2*TEMP1 (*1*CDR *2*TEMP4)) *3*X2) *3*NETLIST *3*LDS-TABLE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (SETQ *2*TEMP4 (*1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE (*1*CDR *3*NETLIST))) *1*F)) (COND ((NOT (EQ (SETQ *2*TEMP3 (*1*LOADINGS-AND-DRIVES-SIMPLE (QUOTE 0) (SETQ *2*TEMP2 (*1*MODULE-NAME (SETQ *2*TEMP1 (*1*CAR *3*NETLIST)))) (*1*MODULE-INPUTS *2*TEMP1) (*1*MODULE-OUTPUTS *2*TEMP1) *3*NETLIST *2*TEMP4)) *1*F)) (CONS (CONS *2*TEMP2 (CONS (CONS (QUOTE LOADINGS) (*1*CAR *2*TEMP3)) (CONS (CONS (QUOTE DRIVES) (*1*CDR *2*TEMP3)) (QUOTE NIL)))) *2*TEMP4)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*TOP-LEVEL-PREDICATE-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE TOP-LEVEL-PREDICATE-SIMPLE) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*NOT (*1*NETLIST-SYNTAX-SIMPLE-OKP *3*NETLIST)) *1*F)) (QUOTE NETLIST-SYNTAX-SIMPLE-OKP-ERROR)) ((NOT (EQ (*1*NOT (*1*SIMPLE-DEPENDENCY-TABLE *3*NETLIST)) *1*F)) (QUOTE DEPENDENCY-TABLE-SIMPLE-ERROR)) ((NOT (EQ (*1*NOT (*1*NETLIST-TYPE-CHECK-SIMPLE-OKP *3*NETLIST)) *1*F)) (QUOTE NETLIST-TYPE-CHECK-SIMPLE-OKP-ERROR)) ((NOT (EQ (*1*NOT (*1*NETLIST-STATE-TYPES-SIMPLE *3*NETLIST)) *1*F)) (QUOTE NETLIST-STATE-TYPES-SIMPLE-ERROR)) ((NOT (EQ (*1*NOT (*1*NETLIST-LOADINGS-AND-DRIVES-SIMPLE *3*NETLIST)) *1*F)) (QUOTE NETLIST-LOADINGS-AND-DRIVES-SIMPLE-ERROR)) (T (QUOTE *1*TRUE)))))))))) (PUT1-LST (QUOTE *1*NAME-OKP) (QUOTE (SEXPR (LAMBDA (*3*NAME) (COND ((NOT (EQ (*1*LITATOM *3*NAME) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*INDEXP *3*NAME) (*1*LITATOM (*1*I-NAME *3*NAME))))))))) (PUT1-LST (QUOTE *1*BAD-NAMES) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST) (LET NIL (COND ((AND (CONSP *3*NAME-LIST) (NOT (EQ (CAR *3*NAME-LIST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NAME-OKP (CAR *3*NAME-LIST)) *1*F)) (*1*BAD-NAMES (CDR *3*NAME-LIST))) (T (*1*INSERT (CAR *3*NAME-LIST) (*1*BAD-NAMES (CDR *3*NAME-LIST)))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*NAME-LIST-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST *3*DUPLICATES-OK?) (CONS (*1*NLISTP-OR-ERR (*1*BAD-NAMES *3*NAME-LIST) (QUOTE BAD-NAMES)) (CONS (COND ((NOT (EQ *3*DUPLICATES-OK? *1*F)) (QUOTE *1*TRUE)) (T (*1*NO-DUPLICATES-OR-ERR *3*NAME-LIST (QUOTE DUPLICATES)))) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*NAME-LIST-OK) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST *3*LABEL *3*DUPLICATES-OK?) (*1*ERR-AND (*1*NAME-LIST-ERRORS *3*NAME-LIST *3*DUPLICATES-OK?) *3*LABEL))))) (PUT1-LST (QUOTE *1*OCC-ARG-LENGTH-ERROR) (QUOTE (SEXPR (LAMBDA (*3*FN *3*EXPECTED-ARGS *3*ACTUAL-ARGS *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*T-OR-ERR (COND ((EQUAL (SETQ *2*TEMP2 (*1*LENGTH *3*EXPECTED-ARGS)) (SETQ *2*TEMP1 (*1*LENGTH *3*ACTUAL-ARGS))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) *3*LABEL (CONS (QUOTE OCC-FUNCTION) (CONS *3*FN (CONS (CONS (QUOTE EXPECTED) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE GOT) (CONS *2*TEMP1 (QUOTE NIL))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*OCC-FORM-OK) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*O-LENGTH) (*1*ERR-AND (CONS (*1*T-OR-ERR (*1*OR (COND ((EQUAL (QUOTE 4) *3*O-LENGTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (QUOTE 5) *3*O-LENGTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (QUOTE BAD-OCCURRENCE-LENGTH) *3*O-LENGTH) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*OCC) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE OCCURRENCE-FORM)))))) (PUT1-LST (QUOTE *1*OCC-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*O-NAME *3*O-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 1)) *1*F)) NIL) (T T)) (*1*LABEL-ERROR (*1*T-OR-ERR (*1*NAME-OKP *3*O-NAME) (QUOTE BAD-NAME) *3*O-NAME) (QUOTE OCCURRENCE-NAME))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*OCC-OUTPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*O-OUTS *3*O-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 2)) *1*F)) NIL) (T T)) (*1*NAME-LIST-OK *3*O-OUTS (QUOTE OCCURRENCE-OUTPUTS) (QUOTE *1*FALSE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*OCC-INPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*O-INS *3*O-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (*1*NAME-LIST-OK *3*O-INS (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*OCC-FUNCTION-OK) (QUOTE (SEXPR (LAMBDA (*3*O-FN *3*O-INS *3*O-OUTS *3*O-LENGTH *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 3)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*PRIMP *3*O-FN) *1*F)) (*1*ERR-AND (CONS (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (*1*OCC-ARG-LENGTH-ERROR *3*O-FN (*1*PRIMP2 *3*O-FN (QUOTE INPUTS)) *3*O-INS (QUOTE WRONG-NUMBER-OF-INPUTS))) (T (QUOTE *1*TRUE))) (CONS (*1*OCC-ARG-LENGTH-ERROR *3*O-FN (*1*PRIMP2 *3*O-FN (QUOTE OUTPUTS)) *3*O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION))) ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*O-FN *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*ERR-AND (CONS (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (*1*OCC-ARG-LENGTH-ERROR *3*O-FN (*1*MODULE-INPUTS *2*TEMP1) *3*O-INS (QUOTE WRONG-NUMBER-OF-INPUTS))) (T (QUOTE *1*TRUE))) (CONS (*1*OCC-ARG-LENGTH-ERROR *3*O-FN (*1*MODULE-OUTPUTS *2*TEMP1) *3*O-OUTS (QUOTE WRONG-NUMBER-OF-OUTPUTS)) (QUOTE NIL))) (QUOTE OCCURRENCE-FUNCTION))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-OCCURRENCE-FUNCTION) *3*O-FN)))))))) (PUT1-LST (QUOTE *1*OCC-ANNOTATION-OK) (QUOTE (SEXPR (LAMBDA (*3*O-ANNO *3*O-LENGTH) (COND ((EQUAL *3*O-LENGTH (QUOTE 5)) (*1*LABEL-ERROR (*1*T-OR-ERR (*1*ALISTP *3*O-ANNO) (QUOTE NOT-ALIST) *3*O-ANNO) (QUOTE OCCURRENCE-ANNOTATION))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (*1*OCC-FORM-OK *3*OCC (SETQ *2*TEMP3 (*1*LENGTH *3*OCC))) (CONS (*1*OCC-NAME-OK (*1*OCC-NAME *3*OCC) *2*TEMP3) (CONS (*1*OCC-OUTPUTS-OK (SETQ *2*TEMP2 (*1*OCC-OUTPUTS *3*OCC)) *2*TEMP3) (CONS (*1*OCC-INPUTS-OK (SETQ *2*TEMP1 (*1*OCC-INPUTS *3*OCC)) *2*TEMP3) (CONS (*1*OCC-FUNCTION-OK (*1*OCC-FUNCTION *3*OCC) *2*TEMP1 *2*TEMP2 *2*TEMP3 *3*NETLIST) (CONS (*1*OCC-ANNOTATION-OK (*1*OCC-ANNOTATION *3*OCC) *2*TEMP3) (QUOTE NIL)))))))))))) (PUT1-LST (QUOTE *1*OCC-SYNTAX-OK) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*NETLIST) (*1*ERR-AND (*1*OCC-SYNTAX-ERRORS *3*OCC *3*NETLIST) (CONS (QUOTE OCCURRENCE) (CONS (*1*OCC-NAME *3*OCC) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-SYNTAX-DATA) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-OUTS) (CONS (CONS (QUOTE SIGNALS) *3*M-INS) (CONS (CONS (QUOTE PENDING-IO) (*1*INTERSECTION *3*M-INS *3*M-OUTS)) (QUOTE ((NON-DEPENDS) (OCC-NAMES))))))))) (PUT1-LST (QUOTE *1*UPDATE-OCC-SYNTAX-DATA) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*OCC-DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (CONS (QUOTE SIGNALS) (*1*APPEND (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*VALUE (QUOTE PENDING-IO) *3*OCC-DATA))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (*1*SET-DIFF (SETQ *2*TEMP2 (*1*OCC-OUTPUTS *3*OCC)) *2*TEMP3)) (T (SETQ *2*TEMP2 (*1*OCC-OUTPUTS *3*OCC)))) (SETQ *2*TEMP1 (*1*VALUE (QUOTE SIGNALS) *3*OCC-DATA)))) (CONS (CONS (QUOTE PENDING-IO) (*1*SET-DIFF *2*TEMP3 *2*TEMP2)) (CONS (CONS (QUOTE NON-DEPENDS) (*1*APPEND (*1*SET-DIFF (*1*OCC-INPUTS *3*OCC) *2*TEMP1) (*1*VALUE (QUOTE NON-DEPENDS) *3*OCC-DATA))) (CONS (CONS (QUOTE OCC-NAMES) (CONS (*1*OCC-NAME *3*OCC) (*1*VALUE (QUOTE OCC-NAMES) *3*OCC-DATA))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*OCC-DATA *3*OUTPUTS *3*STATES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*NIL-OR-ERR *3*BODY (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR (*1*VALUE (QUOTE PENDING-IO) *3*OCC-DATA) (QUOTE IO-SIGNALS-NOT-IN-OUTPUTS)) (CONS (*1*SUBSET-OR-ERR *3*OUTPUTS (SETQ *2*TEMP2 (*1*VALUE (QUOTE SIGNALS) *3*OCC-DATA)) (QUOTE OUTPUTS-NOT-IN-SIGNALS)) (CONS (*1*SUBSET-OR-ERR (*1*VALUE (QUOTE NON-DEPENDS) *3*OCC-DATA) *2*TEMP2 (QUOTE NON-DEPENDS-NOT-IN-SIGNALS)) (CONS (*1*SUBSET-OR-ERR *3*STATES (SETQ *2*TEMP1 (*1*VALUE (QUOTE OCC-NAMES) *3*OCC-DATA)) (QUOTE STATES-NOT-IN-OCC-NAMES)) (CONS (*1*NO-DUPLICATES-OR-ERR *2*TEMP2 (QUOTE DUPLICATES-IN-SIGNALS)) (CONS (*1*NO-DUPLICATES-OR-ERR *2*TEMP1 (QUOTE DUPLICATES-IN-OCC-NAMES)) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*OCC-BODY-SYNTAX-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*OCC-DATA *3*OUTPUTS *3*STATES *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*BODY) *1*F)) (*1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS *3*BODY *3*OCC-DATA *3*OUTPUTS *3*STATES)) (T (CONS (*1*OCC-SYNTAX-OK (SETQ *2*TEMP1 (*1*CAR *3*BODY)) *3*NETLIST) (*1*OCC-BODY-SYNTAX-ERRORS (*1*CDR *3*BODY) (*1*UPDATE-OCC-SYNTAX-DATA *2*TEMP1 *3*OCC-DATA) *3*OUTPUTS *3*STATES *3*NETLIST))))))))) (PUT1-LST (QUOTE *1*MODULE-FORM-OK) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*M-LENGTH) (*1*ERR-AND (CONS (*1*T-OR-ERR (*1*OR (COND ((EQUAL *3*M-LENGTH (QUOTE 5)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*M-LENGTH (QUOTE 6)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (QUOTE BAD-MODULE-LENGTH) *3*M-LENGTH) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*MODULE) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) (QUOTE MODULE-FORM)))))) (PUT1-LST (QUOTE *1*MODULE-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*M-NAME *3*M-LENGTH *3*NETLIST) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 1)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*T-OR-ERR (*1*NAME-OKP *3*M-NAME) (QUOTE BAD-NAME) *3*M-NAME) (CONS (*1*T-OR-ERR (*1*NOT (*1*LOOKUP-MODULE *3*M-NAME *3*NETLIST)) (QUOTE DUPLICATE-MODULE-DEFNS) *3*M-NAME) (CONS (*1*T-OR-ERR (*1*NOT (*1*PRIMP *3*M-NAME)) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) *3*M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MODULE-INPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 2)) *1*F)) NIL) (T T)) (*1*NAME-LIST-OK *3*M-INS (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MODULE-OUTPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*M-OUTS *3*M-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 3)) *1*F)) NIL) (T T)) (*1*NAME-LIST-OK *3*M-OUTS (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*STATES-LIST-OR-NIL) (QUOTE (SEXPR (LAMBDA (*3*M-STATES *3*M-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 5)) *1*F)) NIL) (T T)) (*1*M-STATES-LIST *3*M-STATES)) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MODULE-OCCURRENCES-OK) (QUOTE (SEXPR (LAMBDA (*3*M-OCCS *3*M-INS *3*M-OUTS *3*M-STATES *3*M-LENGTH *3*NETLIST) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*T-OR-ERR (COND ((AND (CONSP *3*M-OCCS) (NOT (EQ (CAR *3*M-OCCS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE NO-OCCURRENCES) *3*M-OCCS) (*1*OCC-BODY-SYNTAX-ERRORS *3*M-OCCS (*1*INITIAL-OCC-SYNTAX-DATA *3*M-INS *3*M-OUTS) *3*M-OUTS (*1*STATES-LIST-OR-NIL *3*M-STATES *3*M-LENGTH) *3*NETLIST)) (QUOTE MODULE-OCCURRENCES))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MODULE-STATENAMES-OK) (QUOTE (SEXPR (LAMBDA (*3*M-STATES *3*M-LENGTH) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 5)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*T-OR-ERR (COND ((AND (CONSP *3*M-STATES) (NOT (EQ (CAR *3*M-STATES) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (CDR *3*M-STATES)) (NOT (EQ (CAR (CDR *3*M-STATES)) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) *3*M-STATES) (*1*NAME-LIST-ERRORS (*1*M-STATES-LIST *3*M-STATES) (QUOTE *1*FALSE))) (QUOTE MODULE-STATENAMES))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MODULE-ANNOTATION-OK) (QUOTE (SEXPR (LAMBDA (*3*M-ANNO *3*M-LENGTH) (COND ((EQUAL *3*M-LENGTH (QUOTE 6)) (*1*LABEL-ERROR (*1*T-OR-ERR (*1*ALISTP *3*M-ANNO) (QUOTE NOT-ALIST) *3*M-ANNO) (QUOTE MODULE-ANNOTATION))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*MODULE-FORM-OK *3*MODULE (SETQ *2*TEMP4 (*1*LENGTH *3*MODULE))) (CONS (*1*MODULE-NAME-OK (*1*MODULE-NAME *3*MODULE) *2*TEMP4 *3*NETLIST) (CONS (*1*MODULE-INPUTS-OK (SETQ *2*TEMP3 (*1*MODULE-INPUTS *3*MODULE)) *2*TEMP4) (CONS (*1*MODULE-OUTPUTS-OK (SETQ *2*TEMP2 (*1*MODULE-OUTPUTS *3*MODULE)) *2*TEMP4) (CONS (*1*MODULE-OCCURRENCES-OK (*1*MODULE-OCCURRENCES *3*MODULE) *2*TEMP3 *2*TEMP2 (SETQ *2*TEMP1 (*1*MODULE-STATENAMES *3*MODULE)) *2*TEMP4 *3*NETLIST) (CONS (*1*MODULE-STATENAMES-OK *2*TEMP1 *2*TEMP4) (CONS (*1*MODULE-ANNOTATION-OK (*1*MODULE-ANNOTATION *3*MODULE) *2*TEMP4) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*MODULE-SYNTAX-OK) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*NETLIST) (*1*ERR-AND (*1*MODULE-SYNTAX-ERRORS *3*MODULE *3*NETLIST) (CONS (QUOTE MODULE) (CONS (*1*MODULE-NAME *3*MODULE) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (COND ((AND (CONSP *3*NETLIST) (NOT (EQ (CAR *3*NETLIST) (QUOTE *1*QUOTE)))) (CONS (*1*MODULE-SYNTAX-OK (CAR *3*NETLIST) (CDR *3*NETLIST)) (*1*NETLIST-SYNTAX-ERRORS (CDR *3*NETLIST)))) (T (CONS (*1*NIL-OR-ERR *3*NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*NETLIST-SYNTAX-OK) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*ERR-AND (*1*NETLIST-SYNTAX-ERRORS *3*NETLIST) (QUOTE NETLIST-SYNTAX-ERRORS)))))) (PUT1-LST (QUOTE *1*LETTERP) (QUOTE (SEXPR (LAMBDA (*3*CHAR) (*1*MEMBER *3*CHAR (*1*UNPACK (QUOTE ABCDEFGHIJKLMNOPQRSTUVWXYZ))))))) (PUT1-LST (QUOTE *1*DIGITP) (QUOTE (SEXPR (LAMBDA (*3*CHAR) (*1*MEMBER *3*CHAR (*1*CDR (*1*UNPACK (QUOTE A0123456789)))))))) (PUT1-LST (QUOTE *1*BAD-LSI-NAME-CHARS) (QUOTE (SEXPR (LAMBDA (*3*CHAR-LIST *3*SPECIAL-CHARACTERS) (LET NIL (COND ((AND (CONSP *3*CHAR-LIST) (NOT (EQ (CAR *3*CHAR-LIST) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*OR (*1*LETTERP (CAR *3*CHAR-LIST)) (*1*OR (*1*DIGITP (CAR *3*CHAR-LIST)) (*1*MEMBER (CAR *3*CHAR-LIST) *3*SPECIAL-CHARACTERS))) *1*F)) (*1*BAD-LSI-NAME-CHARS (CDR *3*CHAR-LIST) *3*SPECIAL-CHARACTERS)) (T (*1*INSERT (CAR *3*CHAR-LIST) (*1*BAD-LSI-NAME-CHARS (CDR *3*CHAR-LIST) *3*SPECIAL-CHARACTERS))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LSI-KEYWORDS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (ACTION ANGLE ANNOTATIONS BLOAT BLOCK BUS CELL CELSTAT CHKSUM CLK_LINE DIRECTION DUMMY END FLIP FUNCTION HM_BIDI HM_INPUT HM_OUTPUT LIBRARY NAME NC NET PIN POWERCELLS PRIORITY PSECURED REGION SCALE TECHNOLOGY TSECURED VIA WIRE)))))) (PUT1-LST (QUOTE *1*LSI-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*TOKEN-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER *3*NAME (*1*LSI-KEYWORDS)) *1*F)) (*1*PRED-ERROR (QUOTE LSI-NAME-IS-KEYWORD) *3*NAME)) ((NOT (EQ (*1*LITATOM *3*NAME) *1*F)) (*1*ERR-AND (CONS (*1*T-OR-ERR (COND ((NOT (EQ (*1*LESSP *3*TOKEN-SIZE (SETQ *2*TEMP4 (*1*LENGTH (SETQ *2*TEMP3 (*1*UNPACK *3*NAME))))) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))) (QUOTE NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS *3*TOKEN-SIZE (QUOTE NIL))) (QUOTE NIL)))) (CONS (*1*T-OR-ERR (*1*LETTERP (SETQ *2*TEMP2 (*1*CAR *2*TEMP3))) (QUOTE NAME-BEGINS-WITH-NONLETTER) *2*TEMP2) (CONS (*1*NLISTP-OR-ERR (*1*BAD-LSI-NAME-CHARS (*1*CDR *2*TEMP3) (*1*CDR (*1*UNPACK (QUOTE A-_)))) (QUOTE ILLEGAL-CHARS-IN-NAME)) (CONS (*1*T-OR-ERR (COND ((EQUAL (SETQ *2*TEMP1 (*1*LAST-CDR *2*TEMP3)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE NOT-STANDARD-LITATOM) (CONS (QUOTE LAST-CDR) (CONS *2*TEMP1 (QUOTE NIL)))) (QUOTE NIL))))) (CONS (QUOTE BAD-LSI-NAME) (CONS *3*NAME (QUOTE NIL))))) (T (*1*PRED-ERROR (QUOTE LSI-NAME-NOT-LITATOM) *3*NAME)))))))) (PUT1-LST (QUOTE *1*LSI-BAD-NAMES) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST *3*TOKEN-SIZE) (COND ((AND (CONSP *3*NAME-LIST) (NOT (EQ (CAR *3*NAME-LIST) (QUOTE *1*QUOTE)))) (CONS (*1*LSI-NAME-OK (CAR *3*NAME-LIST) *3*TOKEN-SIZE) (*1*LSI-BAD-NAMES (CDR *3*NAME-LIST) *3*TOKEN-SIZE))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*LSI-NAME-LIST-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST *3*TOKEN-SIZE *3*DUPLICATES-OK?) (CONS (*1*ERR-AND (*1*LSI-BAD-NAMES *3*NAME-LIST *3*TOKEN-SIZE) (QUOTE BAD-LSI-NAMES)) (CONS (COND ((NOT (EQ *3*DUPLICATES-OK? *1*F)) (QUOTE *1*TRUE)) (T (*1*NO-DUPLICATES-OR-ERR *3*NAME-LIST (QUOTE DUPLICATES)))) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*NAME-LIST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LSI-NAME-LIST-OK) (QUOTE (SEXPR (LAMBDA (*3*NAME-LIST *3*TOKEN-SIZE *3*LABEL *3*DUPLICATES-OK?) (*1*ERR-AND (*1*LSI-NAME-LIST-ERRORS *3*NAME-LIST *3*TOKEN-SIZE *3*DUPLICATES-OK?) *3*LABEL))))) (PUT1-LST (QUOTE *1*LSI-FUNCTION-NAME) (QUOTE (SEXPR (LAMBDA (*3*FNAME) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (*1*PRIMP *3*FNAME) (*1*PRIMP-LOOKUP *3*FNAME (QUOTE LSI-NAME))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*PRIMP2 *3*FNAME (QUOTE LSI-NAME)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CAR *2*TEMP1)) (T *2*TEMP1))) (T *3*FNAME))))))) (PUT1-LST (QUOTE *1*NAME-LENGTH) (QUOTE (SEXPR (LAMBDA (*3*NAME) (*1*LENGTH (*1*UNPACK *3*NAME)))))) (PUT1-LST (QUOTE *1*HIERARCHICAL-NAME-MAX) (QUOTE (SEXPR (LAMBDA (*3*N1 *3*N2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP2 (*1*NLISTP *3*N1)) (SETQ *2*TEMP1 (*1*NLISTP *3*N2))) *1*F)) (QUOTE 0)) ((NOT (EQ *2*TEMP2 *1*F)) *3*N2) ((NOT (EQ *2*TEMP1 *1*F)) *3*N1) ((NOT (EQ (*1*LESSP (*1*CAR *3*N1) (*1*CAR *3*N2)) *1*F)) *3*N2) (T *3*N1))))))) (PUT1-LST (QUOTE *1*MAX-HIERARCHICAL-LENGTH-AND-NAME) (QUOTE (SEXPR (LAMBDA (*3*NAMES) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (*1*HIERARCHICAL-NAME-MAX (CONS (*1*ADD1 (*1*NAME-LENGTH (CAR *3*NAMES))) (CONS (CAR *3*NAMES) (QUOTE NIL))) (*1*MAX-HIERARCHICAL-LENGTH-AND-NAME (CDR *3*NAMES)))) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*MAX-OCC-HIERARCHICAL-NAME) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP5 (COND ((NOT (EQ (SETQ *2*TEMP4 (*1*PRIMP (SETQ *2*TEMP3 (*1*OCC-FUNCTION *3*OCC)))) *1*F)) (*1*MAX-HIERARCHICAL-LENGTH-AND-NAME (*1*APPEND (*1*OCC-INPUTS *3*OCC) (*1*OCC-OUTPUTS *3*OCC)))) (T (*1*VALUE *2*TEMP3 *3*HIERARCHICAL-TABLE))))) (NOT (EQ (CAR *2*TEMP5) (QUOTE *1*QUOTE)))) (COND ((COND ((NOT (EQ (*1*LESSP *3*HIERARCHICAL-SIZE (SETQ *2*TEMP2 (*1*PLUS (*1*ADD1 (*1*NAME-LENGTH (SETQ *2*TEMP1 (*1*OCC-NAME *3*OCC)))) (CAR *2*TEMP5)))) *1*F)) NIL) (T T)) (CONS *2*TEMP2 (CONS *2*TEMP1 (CDR *2*TEMP5)))) (T (*1*PRED-ERROR (QUOTE HIERARCHICAL-NAME-TOO-LONG) (CONS (CONS (QUOTE NAME-LENGTH) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE MAX-ALLOWED-LENGTH) (CONS *3*HIERARCHICAL-SIZE (QUOTE NIL))) (CONS (CONS (QUOTE NAME) (CONS (CONS *2*TEMP1 (CDR *2*TEMP5)) (QUOTE NIL))) (QUOTE NIL)))))))) (T (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*LSI-OCC-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*O-NAME *3*O-LENGTH *3*O-OUTS *3*OCC-DATA *3*TOKEN-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 1)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*LSI-NAME-OK *3*O-NAME *3*TOKEN-SIZE) (CONS (*1*T-OR-ERR (*1*NOT (*1*MEMBER *3*O-NAME (*1*VALUE (QUOTE SIGNALS) *3*OCC-DATA))) (QUOTE OCC-NAME-IS-SIGNAL) *3*O-NAME) (CONS (*1*T-OR-ERR (*1*OR (COND ((EQ (*1*CDR *3*O-OUTS) (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (*1*MEMBER *3*O-NAME *3*O-OUTS))) (QUOTE OCC-NAME-IS-SAME-AS-OUTPUT-NAME) *3*O-NAME) (QUOTE NIL)))) (QUOTE OCCURRENCE-NAME))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-OCC-OUTPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*O-OUTS *3*O-LENGTH *3*OCC-DATA *3*TOKEN-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 2)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*LSI-NAME-LIST-OK *3*O-OUTS *3*TOKEN-SIZE (QUOTE OCC-OUTPUTS) (QUOTE *1*FALSE)) (CONS (*1*DISJOINT-OR-ERR *3*O-OUTS (*1*VALUE (QUOTE OCC-NAMES) *3*OCC-DATA) (QUOTE OCC-OUTPUTS-IN-OCC-NAMES)) (QUOTE NIL))) (QUOTE OCCURRENCE-OUTPUTS))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-OCC-INPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*O-INS *3*O-LENGTH *3*TOKEN-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*O-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (*1*LSI-NAME-LIST-OK *3*O-INS *3*TOKEN-SIZE (QUOTE OCCURRENCE-INPUTS) (QUOTE *1*TRUE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-OCC-SYNTAX-OK) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*HIERARCHICAL-NAME-ERROR *3*OCC-DATA *3*NETLIST *3*TOKEN-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (*1*ERR-AND (CONS (*1*OCC-FORM-OK *3*OCC (SETQ *2*TEMP4 (*1*LENGTH *3*OCC))) (CONS (*1*LSI-OCC-NAME-OK (SETQ *2*TEMP3 (*1*OCC-NAME *3*OCC)) *2*TEMP4 (SETQ *2*TEMP2 (*1*OCC-OUTPUTS *3*OCC)) *3*OCC-DATA *3*TOKEN-SIZE) (CONS (*1*LSI-OCC-OUTPUTS-OK *2*TEMP2 *2*TEMP4 *3*OCC-DATA *3*TOKEN-SIZE) (CONS (*1*LSI-OCC-INPUTS-OK (SETQ *2*TEMP1 (*1*OCC-INPUTS *3*OCC)) *2*TEMP4 *3*TOKEN-SIZE) (CONS (*1*OCC-FUNCTION-OK (*1*OCC-FUNCTION *3*OCC) *2*TEMP1 *2*TEMP2 *2*TEMP4 *3*NETLIST) (CONS (*1*OCC-ANNOTATION-OK (*1*OCC-ANNOTATION *3*OCC) *2*TEMP4) (CONS *3*HIERARCHICAL-NAME-ERROR (QUOTE NIL)))))))) (CONS (QUOTE OCCURRENCE) (CONS *2*TEMP3 (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*INITIAL-LSI-OCC-SYNTAX-DATA) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-OUTS) (CONS (QUOTE (OCC-FNS)) (CONS (QUOTE (HIERARCHICAL-NAME . 0)) (*1*INITIAL-OCC-SYNTAX-DATA *3*M-INS *3*M-OUTS))))))) (PUT1-LST (QUOTE *1*UPDATE-LSI-OCC-SYNTAX-DATA) (QUOTE (SEXPR (LAMBDA (*3*OCC *3*O-HNAME *3*OCC-DATA) (CONS (CONS (QUOTE OCC-FNS) (CONS (*1*LSI-FUNCTION-NAME (*1*OCC-FUNCTION *3*OCC)) (*1*VALUE (QUOTE OCC-FNS) *3*OCC-DATA))) (CONS (CONS (QUOTE HIERARCHICAL-NAME) (*1*HIERARCHICAL-NAME-MAX (*1*VALUE (QUOTE HIERARCHICAL-NAME) *3*OCC-DATA) *3*O-HNAME)) (*1*UPDATE-OCC-SYNTAX-DATA *3*OCC *3*OCC-DATA))))))) (PUT1-LST (QUOTE *1*LSI-OCC-BODY-SYNTAX-CHECK) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*OCC-DATA *3*OUTPUTS *3*STATES *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*BODY) *1*F)) (*1*APPEND (*1*COMPOSITE-OCC-BODY-SYNTAX-ERRORS *3*BODY *3*OCC-DATA *3*OUTPUTS *3*STATES) (CONS (*1*ALIST-ENTRY (QUOTE HIERARCHICAL-NAME) *3*OCC-DATA) (CONS (*1*DISJOINT-OR-ERR (*1*VALUE (QUOTE SIGNALS) *3*OCC-DATA) (SETQ *2*TEMP3 (*1*VALUE (QUOTE OCC-FNS) *3*OCC-DATA)) (QUOTE SIGNAL-OCC-FN-OVERLAP)) (CONS (*1*DISJOINT-OR-ERR (*1*VALUE (QUOTE OCC-NAMES) *3*OCC-DATA) *2*TEMP3 (QUOTE OCC-NAME-OCC-FN-OVERLAP)) (QUOTE NIL)))))) (T (CONS (*1*LSI-OCC-SYNTAX-OK (SETQ *2*TEMP2 (*1*CAR *3*BODY)) (SETQ *2*TEMP1 (*1*MAX-OCC-HIERARCHICAL-NAME *2*TEMP2 *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE)) *3*OCC-DATA *3*NETLIST *3*TOKEN-SIZE) (*1*LSI-OCC-BODY-SYNTAX-CHECK (*1*CDR *3*BODY) (*1*UPDATE-LSI-OCC-SYNTAX-DATA *2*TEMP2 *2*TEMP1 *3*OCC-DATA) *3*OUTPUTS *3*STATES *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE))))))))) (PUT1-LST (QUOTE *1*LSI-MODULE-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*M-NAME *3*M-LENGTH *3*TOKEN-SIZE *3*NETLIST) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 1)) *1*F)) NIL) (T T)) (*1*ERR-AND (CONS (*1*LSI-NAME-OK *3*M-NAME *3*TOKEN-SIZE) (CONS (*1*T-OR-ERR (*1*NOT (*1*LOOKUP-MODULE *3*M-NAME *3*NETLIST)) (QUOTE DUPLICATE-MODULE-DEFNS) *3*M-NAME) (CONS (*1*T-OR-ERR (*1*NOT (*1*PRIMP *3*M-NAME)) (QUOTE MODULE-NAME-SAME-AS-PRIMITIVE) *3*M-NAME) (QUOTE NIL)))) (QUOTE MODULE-NAME))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-MODULE-INPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-LENGTH *3*TOKEN-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 2)) *1*F)) NIL) (T T)) (*1*LSI-NAME-LIST-OK *3*M-INS *3*TOKEN-SIZE (QUOTE MODULE-INPUTS) (QUOTE *1*FALSE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-MODULE-OUTPUTS-OK) (QUOTE (SEXPR (LAMBDA (*3*M-OUTS *3*M-LENGTH *3*TOKEN-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 3)) *1*F)) NIL) (T T)) (*1*LSI-NAME-LIST-OK *3*M-OUTS *3*TOKEN-SIZE (QUOTE MODULE-OUTPUTS) (QUOTE *1*FALSE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-MODULE-OCCURRENCES-CHECK) (QUOTE (SEXPR (LAMBDA (*3*M-OCCS *3*M-INS *3*M-OUTS *3*M-STATES *3*M-LENGTH *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE) (COND ((COND ((NOT (EQ (*1*LESSP *3*M-LENGTH (QUOTE 4)) *1*F)) NIL) (T T)) (CONS (*1*T-OR-ERR (COND ((AND (CONSP *3*M-OCCS) (NOT (EQ (CAR *3*M-OCCS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE NO-OCCURRENCES) *3*M-OCCS) (*1*LSI-OCC-BODY-SYNTAX-CHECK *3*M-OCCS (*1*INITIAL-LSI-OCC-SYNTAX-DATA *3*M-INS *3*M-OUTS) *3*M-OUTS (*1*STATES-LIST-OR-NIL *3*M-STATES *3*M-LENGTH) *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*LSI-MODULE-SYNTAX-CHECK) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (CONS (CONS (SETQ *2*TEMP6 (*1*MODULE-NAME *3*MODULE)) (*1*VALUE (QUOTE HIERARCHICAL-NAME) (SETQ *2*TEMP5 (*1*LSI-MODULE-OCCURRENCES-CHECK (*1*MODULE-OCCURRENCES *3*MODULE) (SETQ *2*TEMP4 (*1*MODULE-INPUTS *3*MODULE)) (SETQ *2*TEMP3 (*1*MODULE-OUTPUTS *3*MODULE)) (SETQ *2*TEMP2 (*1*MODULE-STATENAMES *3*MODULE)) (SETQ *2*TEMP1 (*1*LENGTH *3*MODULE)) *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-TABLE *3*HIERARCHICAL-SIZE)))) (CONS (*1*ERR-AND (CONS (*1*MODULE-FORM-OK *3*MODULE *2*TEMP1) (CONS (*1*LSI-MODULE-NAME-OK *2*TEMP6 *2*TEMP1 *3*TOKEN-SIZE *3*NETLIST) (CONS (*1*LSI-MODULE-INPUTS-OK *2*TEMP4 *2*TEMP1 *3*TOKEN-SIZE) (CONS (*1*LSI-MODULE-OUTPUTS-OK *2*TEMP3 *2*TEMP1 *3*TOKEN-SIZE) (CONS (*1*ERR-AND *2*TEMP5 (QUOTE MODULE-OCCURRENCES)) (CONS (*1*MODULE-STATENAMES-OK *2*TEMP2 *2*TEMP1) (CONS (*1*MODULE-ANNOTATION-OK (*1*MODULE-ANNOTATION *3*MODULE) *2*TEMP1) (QUOTE NIL)))))))) (CONS (QUOTE MODULE) (CONS *2*TEMP6 (QUOTE NIL)))) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*LSI-NETLIST-SYNTAX-CHECK) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-SIZE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*NETLIST) (NOT (EQ (CAR *3*NETLIST) (QUOTE *1*QUOTE)))) (*1*APPEND (*1*LSI-MODULE-SYNTAX-CHECK (CAR *3*NETLIST) (CDR *3*NETLIST) *3*TOKEN-SIZE (SETQ *2*TEMP1 (*1*LSI-NETLIST-SYNTAX-CHECK (CDR *3*NETLIST) *3*TOKEN-SIZE *3*HIERARCHICAL-SIZE)) *3*HIERARCHICAL-SIZE) *2*TEMP1)) (T (CONS (*1*NIL-OR-ERR *3*NETLIST (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*LSI-NETLIST-SYNTAX-OK) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-SIZE) (*1*ERR-AND (*1*LSI-NETLIST-SYNTAX-CHECK *3*NETLIST *3*TOKEN-SIZE *3*HIERARCHICAL-SIZE) (QUOTE LSI-NETLIST-SYNTAX-ERRORS)))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROPERTIES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS LSI-NAME NEW-STATES OUT-DEPENDS OUTPUT-TYPES OUTPUTS RESULTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS)))))) (PUT1-LST (QUOTE *1*ALL-MODULE-PROPS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DELAYS DRIVES INPUT-TYPES INPUTS LOADINGS OUT-DEPENDS OUTPUT-TYPES OUTPUTS STATE-TYPES STATES GATES PADS PRIMITIVES TRANSISTORS)))))) (PUT1-LST (QUOTE *1*UNKNOWNP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE UNKNOWN))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*UNKNOWN) (QUOTE (SEXPR (LAMBDA NIL (LIST *1*SHELL-QUOTE-MARK (QUOTE UNKNOWN)))))) (PUT1-LST (QUOTE *1*VALUE-OR-UNKNOWN) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*ALIST) (COND ((NOT (EQ (*1*BOUNDP *3*KEY *3*ALIST) *1*F)) (*1*VALUE *3*KEY *3*ALIST)) (T (QUOTE (*1*QUOTE UNKNOWN)))))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE-OR-UNKNOWN) (QUOTE (SEXPR (LAMBDA (*3*KEYS *3*ALIST) (COND ((AND (CONSP *3*KEYS) (NOT (EQ (CAR *3*KEYS) (QUOTE *1*QUOTE)))) (CONS (*1*VALUE-OR-UNKNOWN (CAR *3*KEYS) *3*ALIST) (*1*COLLECT-VALUE-OR-UNKNOWN (CDR *3*KEYS) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*IO-OUTP) (QUOTE (SEXPR (LAMBDA (X) (COND ((AND (CONSP X) (EQ (CAR X) *1*SHELL-QUOTE-MARK) (EQ (CADR X) (QUOTE IO-OUT))) *1*T) (T *1*F)))))) (PUT1-LST (QUOTE *1*IO-OUT-SIGNAL) (QUOTE (SEXPR (LAMBDA (X) (COND ((EQ (*1*IO-OUTP X) *1*T) (CAR (CDR (CDR X)))) (T (*1*FALSE))))))) (PUT1-LST (QUOTE *1*IO-OUT) (QUOTE (SEXPR (LAMBDA (IO-OUT-SIGNAL) (LIST *1*SHELL-QUOTE-MARK (QUOTE IO-OUT) IO-OUT-SIGNAL))))) (PUT1-LST (QUOTE *1*MARK-IO-OUT) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*IO-OUTS) (COND ((NOT (EQ (*1*MEMBER *3*NAME *3*IO-OUTS) *1*F)) (*1*IO-OUT *3*NAME)) (T *3*NAME)))))) (PUT1-LST (QUOTE *1*MARK-IO-OUTS-0) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*IO-OUTS) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (CONS (*1*MARK-IO-OUT (CAR *3*NAMES) *3*IO-OUTS) (*1*MARK-IO-OUTS-0 (CDR *3*NAMES) *3*IO-OUTS))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MARK-IO-OUTS) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*IO-OUTS) (COND ((NOT (EQ (*1*DISJOINT *3*IO-OUTS *3*NAMES) *1*F)) *3*NAMES) (T (*1*MARK-IO-OUTS-0 *3*NAMES *3*IO-OUTS))))))) (PUT1-LST (QUOTE *1*UNMARK-IO-OUT) (QUOTE (SEXPR (LAMBDA (*3*NAME) (COND ((NOT (EQ (*1*IO-OUTP *3*NAME) *1*F)) (*1*IO-OUT-SIGNAL *3*NAME)) (T *3*NAME)))))) (PUT1-LST (QUOTE *1*UNMARK-IO-OUTS) (QUOTE (SEXPR (LAMBDA (*3*NAMES) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*AND (COND ((EQUAL (SETQ *2*TEMP2 (*1*UNMARK-IO-OUT (CAR *3*NAMES))) (CAR *3*NAMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*UNMARK-IO-OUTS (CDR *3*NAMES))) (CDR *3*NAMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) *3*NAMES) (T (CONS *2*TEMP2 *2*TEMP1)))) (T *3*NAMES))))))) (PUT1-LST (QUOTE *1*VALUE2) (QUOTE (SEXPR (LAMBDA (*3*S *3*IN-MAP *3*OUT-MAP) (COND ((NOT (EQ (*1*BOUNDP *3*S *3*IN-MAP) *1*F)) (*1*VALUE *3*S *3*IN-MAP)) (T (*1*VALUE (*1*UNMARK-IO-OUT *3*S) *3*OUT-MAP))))))) (PUT1-LST (QUOTE *1*COLLECT-VALUE2) (QUOTE (SEXPR (LAMBDA (*3*LST *3*IN-MAP *3*OUT-MAP) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (CONS (*1*VALUE2 (CAR *3*LST) *3*IN-MAP *3*OUT-MAP) (*1*COLLECT-VALUE2 (CDR *3*LST) *3*IN-MAP *3*OUT-MAP))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*SIGNAL-NAMEP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*LITATOM *3*X) (*1*OR (*1*INDEXP *3*X) (*1*IO-OUTP *3*X))))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM0) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*SLIST *3*USED-NAMES) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER *3*NAME *3*USED-NAMES) *1*F)) *3*NAME) ((NOT (EQ (*1*BOUNDP *3*NAME *3*SLIST) *1*F)) (COND ((NOT (EQ (*1*SIGNAL-NAMEP (SETQ *2*TEMP1 (*1*VALUE *3*NAME *3*SLIST))) *1*F)) (*1*PARENT-SYNONYM0 *2*TEMP1 *3*SLIST (CONS *3*NAME *3*USED-NAMES))) (T *3*NAME))) (T *3*NAME))))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYM) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*SLIST) (*1*PARENT-SYNONYM0 *3*NAME *3*SLIST (QUOTE NIL)))))) (PUT1-LST (QUOTE *1*PARENT-SYNONYMS-LIST) (QUOTE (SEXPR (LAMBDA (*3*LST *3*SLIST) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (CONS (*1*PARENT-SYNONYM (CAR *3*LST) *3*SLIST) (*1*PARENT-SYNONYMS-LIST (CDR *3*LST) *3*SLIST))) (T *3*LST)))))) (PUT1-LST (QUOTE *1*EXTRACT-NAMES) (QUOTE (SEXPR (LAMBDA (*3*LST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*SIGNAL-NAMEP (SETQ *2*TEMP1 (*1*CAR *3*LST))) *1*F)) (*1*INSERT *2*TEMP1 (*1*EXTRACT-NAMES (*1*CDR *3*LST)))) (T (*1*EXTRACT-NAMES (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*EXTERNALIZE-PARENTS) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*ALIST *3*INPUTS *3*OUTPUTS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (*1*EXTERNALIZE-PARENTS (CDR *3*NAMES) (COND ((NOT (EQ (*1*OR (*1*MEMBER (SETQ *2*TEMP1 (*1*PARENT-SYNONYM (CAR *3*NAMES) *3*ALIST)) *3*INPUTS) (*1*MEMBER *2*TEMP1 *3*OUTPUTS)) *1*F)) *3*ALIST) (T (CONS (CONS *2*TEMP1 (CAR *3*NAMES)) (CONS (CONS (CAR *3*NAMES) (*1*VALUE-OR-UNKNOWN *2*TEMP1 *3*ALIST)) (*1*UNBIND (CAR *3*NAMES) (*1*UNBIND *2*TEMP1 *3*ALIST)))))) *3*INPUTS *3*OUTPUTS)) (T *3*ALIST))))))) (PUT1-LST (QUOTE *1*SUBTYPE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((EQ *3*Y (QUOTE FREE)) (QUOTE *1*TRUE)) ((EQ *3*X (QUOTE BOOLP)) (*1*MEMBER *3*Y (QUOTE (BOOLP TRI-STATE TTL-TRI-STATE TTL)))) ((EQ *3*X (QUOTE TTL-TRI-STATE)) (*1*MEMBER *3*Y (QUOTE (TRI-STATE TTL-TRI-STATE)))) ((EQUAL *3*X *3*Y) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*TYPES-COMPATIBLEP) (QUOTE (SEXPR (LAMBDA (*3*T1 *3*T2) (COND ((EQUAL *3*T1 *3*T2) (QUOTE *1*TRUE)) ((NOT (EQ (*1*OR (COND ((EQ *3*T1 (QUOTE FREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*T2 (QUOTE FREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*TRUE)) ((EQ *3*T1 (QUOTE TRI-STATE)) (COND ((EQ *3*T2 (QUOTE TTL-TRI-STATE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((EQ *3*T2 (QUOTE TRI-STATE)) (COND ((EQ *3*T1 (QUOTE TTL-TRI-STATE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*TRI-STATE-TYPEP) (QUOTE (SEXPR (LAMBDA (*3*TYPE) (*1*MEMBER *3*TYPE (QUOTE (TRI-STATE TTL-TRI-STATE))))))) (PUT1-LST (QUOTE *1*TYPE-VALUE0) (QUOTE (SEXPR (LAMBDA (*3*N *3*ALIST *3*FREE *3*USED-NAMES) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*MEMBER *3*N *3*USED-NAMES) (*1*NOT (*1*BOUNDP *3*N *3*ALIST))) *1*F)) (COND ((NOT (EQ *3*FREE *1*F)) (QUOTE FREE)) (T (CONS *3*N (QUOTE NIL))))) ((AND (CONSP (SETQ *2*TEMP1 (*1*VALUE *3*N *3*ALIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*TYPE-VALUE0 (CAR *2*TEMP1) *3*ALIST *3*FREE (CONS *3*N *3*USED-NAMES))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*TYPE-VALUE) (QUOTE (SEXPR (LAMBDA (*3*N *3*ALIST *3*FREE) (*1*TYPE-VALUE0 *3*N *3*ALIST *3*FREE (QUOTE NIL)))))) (PUT1-LST (QUOTE *1*INPUT-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*ALIST) (*1*TYPE-VALUE (*1*UNMARK-IO-OUT *3*NAME) *3*ALIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OUTPUT-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*OUT-MAP *3*IN-MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*TYPE-VALUE *3*NAME *3*OUT-MAP (QUOTE *1*FALSE)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*TYPE-VALUE (CAR *2*TEMP1) *3*IN-MAP (QUOTE *1*FALSE))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-IN-TYPES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-OUT-TYPES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*ADD-IN-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*TYPE *3*TYPE-MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQ *3*TYPE (QUOTE FREE)) *3*TYPE-MAP) ((NOT (EQ (*1*BOUNDP (SETQ *2*TEMP2 (*1*UNMARK-IO-OUT *3*NAME)) *3*TYPE-MAP) *1*F)) (COND ((NOT (EQ (*1*OR (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE *2*TEMP2 *3*TYPE-MAP))) (*1*SUBTYPE *2*TEMP1 *3*TYPE)) *1*F)) *3*TYPE-MAP) ((NOT (EQ (*1*OR (*1*UNKNOWNP *3*TYPE) (*1*SUBTYPE *3*TYPE *2*TEMP1)) *1*F)) (CONS (CONS *2*TEMP2 *3*TYPE) (*1*UNBIND *2*TEMP2 *3*TYPE-MAP))) (T (CONS (*1*PRED-ERROR (CONS (QUOTE SIGNAL) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE OLD-TYPE) (CONS *2*TEMP1 (QUOTE NIL))) (CONS (CONS (QUOTE NEW-TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL)))) (CONS (CONS *2*TEMP2 (QUOTE (*1*QUOTE UNKNOWN))) (*1*UNBIND *2*TEMP2 *3*TYPE-MAP)))))) (T (CONS (CONS *2*TEMP2 *3*TYPE) *3*TYPE-MAP)))))))) (PUT1-LST (QUOTE *1*ADD-IN-TYPES) (QUOTE (SEXPR (LAMBDA (*3*INPUTS *3*TYPES *3*TYPE-MAP) (COND ((AND (CONSP *3*INPUTS) (NOT (EQ (CAR *3*INPUTS) (QUOTE *1*QUOTE)))) (*1*ADD-IN-TYPES (CDR *3*INPUTS) (*1*CDR *3*TYPES) (*1*ADD-IN-TYPE (CAR *3*INPUTS) (*1*CAR *3*TYPES) *3*TYPE-MAP))) (T *3*TYPE-MAP)))))) (PUT1-LST (QUOTE *1*UPDATE-IN-TYPES) (QUOTE (SEXPR (LAMBDA (*3*IN-TYPES *3*O-INS *3*O-FN-PROPS) (*1*ADD-IN-TYPES *3*O-INS (*1*VALUE (QUOTE INPUT-TYPES) *3*O-FN-PROPS) *3*IN-TYPES))))) (PUT1-LST (QUOTE *1*ADD-OUT-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*TYPE *3*ARG-MAP *3*TYPE-MAP) (CONS (CONS *3*NAME (COND ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (*1*COLLECT-VALUE *3*TYPE *3*ARG-MAP)) (T *3*TYPE))) *3*TYPE-MAP))))) (PUT1-LST (QUOTE *1*ADD-OUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*TYPES *3*ARG-MAP *3*TYPE-MAP) (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (*1*ADD-OUT-TYPES (CDR *3*OUTPUTS) (*1*CDR *3*TYPES) *3*ARG-MAP (*1*ADD-OUT-TYPE (CAR *3*OUTPUTS) (*1*CAR *3*TYPES) *3*ARG-MAP *3*TYPE-MAP))) (T *3*TYPE-MAP)))))) (PUT1-LST (QUOTE *1*UPDATE-OUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*OUT-TYPES *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP) (*1*ADD-OUT-TYPES *3*O-OUTS (*1*VALUE (QUOTE OUTPUT-TYPES) *3*O-FN-PROPS) *3*IN-MAP *3*OUT-TYPES))))) (PUT1-LST (QUOTE *1*IO-TYPE-ERROR) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*IN-TYPE *3*OUT-TYPE) (*1*PRED-ERROR (CONS (COND ((NOT (EQ (*1*IO-OUTP *3*NAME) *1*F)) (QUOTE IO-SIGNAL)) (T (QUOTE SIGNAL))) (CONS (*1*UNMARK-IO-OUT *3*NAME) (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS *3*IN-TYPE (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS *3*OUT-TYPE (QUOTE NIL))) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*IO-TYPES-COMPATIBLE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*IN-TYPE *3*OUT-TYPE *3*T-WIRE-INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*UNKNOWNP *3*IN-TYPE)) *1*F)) (*1*UNKNOWNP *3*OUT-TYPE)) ((NOT (EQ (*1*UNKNOWNP *3*OUT-TYPE) *1*F)) *2*TEMP1) ((NOT (EQ (*1*IO-OUTP *3*NAME) *1*F)) (COND ((NOT (EQ (*1*AND (*1*TRI-STATE-TYPEP *3*OUT-TYPE) (*1*SUBTYPE *3*OUT-TYPE *3*IN-TYPE)) *1*F)) (QUOTE *1*TRUE)) (T (*1*IO-TYPE-ERROR *3*NAME *3*IN-TYPE *3*OUT-TYPE)))) ((NOT (EQ (*1*MEMBER *3*NAME *3*T-WIRE-INS) *1*F)) (COND ((NOT (EQ (*1*AND (*1*TRI-STATE-TYPEP *3*IN-TYPE) (*1*TYPES-COMPATIBLEP *3*IN-TYPE *3*OUT-TYPE)) *1*F)) (QUOTE *1*TRUE)) (T (*1*IO-TYPE-ERROR *3*NAME *3*IN-TYPE *3*OUT-TYPE)))) ((NOT (EQ (*1*SUBTYPE *3*OUT-TYPE *3*IN-TYPE) *1*F)) (QUOTE *1*TRUE)) (T (*1*IO-TYPE-ERROR *3*NAME *3*IN-TYPE *3*OUT-TYPE)))))))) (PUT1-LST (QUOTE *1*OK-IN-TYPE) (QUOTE (SEXPR (LAMBDA (*3*OK *3*NAME *3*OUT-TYPE *3*IN-MAP) (LET NIL (COND ((NOT (EQ (*1*OR (*1*NOT *3*OK) (*1*NET-ERRORP *3*OK)) *1*F)) (*1*SET-VALUE (*1*UNMARK-IO-OUT *3*NAME) (QUOTE (*1*QUOTE UNKNOWN)) *3*IN-MAP)) ((NOT (EQ (*1*IO-OUTP *3*NAME) *1*F)) (*1*SET-VALUE (*1*UNMARK-IO-OUT *3*NAME) *3*OUT-TYPE *3*IN-MAP)) (T *3*IN-MAP))))))) (PUT1-LST (QUOTE *1*OK-OUT-TYPE) (QUOTE (SEXPR (LAMBDA (*3*OK *3*NAME *3*OUT-MAP) (LET NIL (COND ((NOT (EQ (*1*NET-ERRORP *3*OK) *1*F)) (CONS *3*OK (*1*SET-VALUE *3*NAME (QUOTE (*1*QUOTE UNKNOWN)) *3*OUT-MAP))) ((NOT (EQ *3*OK *1*F)) *3*OUT-MAP) (T (*1*SET-VALUE *3*NAME (QUOTE (*1*QUOTE UNKNOWN)) *3*OUT-MAP)))))))) (PUT1-LST (QUOTE *1*TRANSFER-IN-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*OUT-TYPE *3*IN-MAP) (COND ((AND (CONSP *3*OUT-TYPE) (NOT (EQ (CAR *3*OUT-TYPE) (QUOTE *1*QUOTE)))) (*1*ADD-IN-TYPE (CAR *3*OUT-TYPE) (*1*INPUT-TYPE *3*NAME *3*IN-MAP) *3*IN-MAP)) (T *3*IN-MAP)))))) (PUT1-LST (QUOTE *1*COMPOSE-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*TYPE *3*MAPS *3*T-WIRE-INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*OK-IN-TYPE (SETQ *2*TEMP4 (*1*IO-TYPES-COMPATIBLE *3*NAME (*1*INPUT-TYPE *3*NAME (SETQ *2*TEMP3 (*1*CAR *3*MAPS))) (COND ((AND (CONSP (SETQ *2*TEMP2 (COND ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (*1*OUTPUT-TYPE (CAR *3*TYPE) (SETQ *2*TEMP1 (*1*CDR *3*MAPS)) *2*TEMP3)) (T *3*TYPE)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (QUOTE FREE)) (T *2*TEMP2)) *3*T-WIRE-INS)) *3*NAME *2*TEMP2 *2*TEMP3) (*1*OK-OUT-TYPE *2*TEMP4 *3*NAME (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*CDR *3*MAPS)))))))))) (PUT1-LST (QUOTE *1*COMPOSED-TYPE-MAPS) (QUOTE (SEXPR (LAMBDA (*3*OUT-TYPES *3*IN-MAP *3*OUT-MAP *3*T-WIRE-INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*OUT-TYPES) (NOT (EQ (CAR *3*OUT-TYPES) (QUOTE *1*QUOTE)))) (*1*COMPOSE-TYPE (SETQ *2*TEMP2 (*1*CAR (CAR *3*OUT-TYPES))) (SETQ *2*TEMP1 (*1*CDR (CAR *3*OUT-TYPES))) (*1*COMPOSED-TYPE-MAPS (CDR *3*OUT-TYPES) (*1*TRANSFER-IN-TYPE *2*TEMP2 *2*TEMP1 *3*IN-MAP) *3*OUT-MAP *3*T-WIRE-INS) *3*T-WIRE-INS)) (T (CONS *3*IN-MAP *3*OUT-MAP)))))))) (PUT1-LST (QUOTE *1*COMPOSE-IO-TYPES) (QUOTE (SEXPR (LAMBDA (*3*IN-MAP *3*OUT-MAP *3*T-WIRE-INS) (*1*COMPOSED-TYPE-MAPS *3*OUT-MAP *3*IN-MAP *3*OUT-MAP *3*T-WIRE-INS))))) (PUT1-LST (QUOTE *1*COLLECT-IN-TYPES) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*ALIST) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (CONS (*1*TYPE-VALUE (CAR *3*NAMES) *3*ALIST (QUOTE *1*TRUE)) (*1*COLLECT-IN-TYPES (CDR *3*NAMES) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-TYPE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*OUT-MAP *3*INPUTS *3*IN-MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*OUTPUT-TYPE *3*NAME *3*OUT-MAP *3*IN-MAP))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (*1*MEMBER (*1*CAR *2*TEMP1) *3*INPUTS))) *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*OUT-MAP *3*INPUTS *3*IN-MAP) (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (CONS (*1*COLLECT-OUT-TYPE (CAR *3*OUTPUTS) *3*OUT-MAP *3*INPUTS *3*IN-MAP) (*1*COLLECT-OUT-TYPES (CDR *3*OUTPUTS) *3*OUT-MAP *3*INPUTS *3*IN-MAP))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*IN-TYPES-ERROR) (QUOTE (SEXPR (LAMBDA (*3*IN-MAP) (*1*ERR-AND *3*IN-MAP (QUOTE INPUT-TYPE-CONFLICTS)))))) (PUT1-LST (QUOTE *1*OUT-TYPES-ERROR) (QUOTE (SEXPR (LAMBDA (*3*OUT-MAP) (*1*ERR-AND *3*OUT-MAP (QUOTE IO-TYPE-CONFLICTS)))))) (PUT1-LST (QUOTE *1*MAP) (QUOTE (SEXPR (LAMBDA (*3*DR) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP4 (*1*LENGTH *3*DR)) (QUOTE 2)) (*1*AND (*1*NUMBERP (*1*CAR *3*DR)) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*DR))) (QUOTE MA)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CDR *2*TEMP2) (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) ((EQUAL *2*TEMP4 (QUOTE 3)) (*1*AND (*1*NUMBERP (*1*CAR *3*DR)) (*1*AND (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*DR))))) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *2*TEMP3) (QUOTE POINT)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP (*1*CAR (*1*CDR *2*TEMP3))))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) (QUOTE MA)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CDR *2*TEMP1) (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*PFP) (QUOTE (SEXPR (LAMBDA (*3*LD) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (*1*LENGTH *3*LD) (QUOTE 2)) (*1*AND (*1*NUMBERP (*1*CAR *3*LD)) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*LD))) (QUOTE PF)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CDR *2*TEMP1) (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*MA-TO-PF) (QUOTE (SEXPR (LAMBDA (*3*X) (CONS (*1*PLUS (*1*TIMES (*1*CAR *3*X) (QUOTE 10)) (*1*CAR (*1*CDR (*1*CAR (*1*CDR *3*X))))) (QUOTE (PF))))))) (PUT1-LST (QUOTE *1*PF-TO-MA) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP2 (*1*REMAINDER (SETQ *2*TEMP1 (*1*CAR *3*X)) (QUOTE 10)))) *1*F)) (CONS (*1*QUOTIENT *2*TEMP1 (QUOTE 10)) (QUOTE (MA)))) (T (CONS (*1*QUOTIENT *2*TEMP1 (QUOTE 10)) (CONS (CONS (QUOTE POINT) (CONS *2*TEMP2 (QUOTE NIL))) (QUOTE (MA))))))))))) (PUT1-LST (QUOTE *1*STD-LOAD-TO-PF) (QUOTE (SEXPR (LAMBDA (*3*X) (CONS (*1*TIMES *3*X (QUOTE 10)) (QUOTE (PF))))))) (PUT1-LST (QUOTE *1*PF-TO-STD-LOAD) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (*1*REMAINDER (SETQ *2*TEMP1 (*1*CAR *3*X)) (QUOTE 10)) (QUOTE 5)) *1*F)) (*1*QUOTIENT *2*TEMP1 (QUOTE 10))) (T (*1*PLUS (*1*QUOTIENT *2*TEMP1 (QUOTE 10)) (QUOTE 1))))))))) (PUT1-LST (QUOTE *1*MA-TO-STD-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*CAR *3*X))))) (PUT1-LST (QUOTE *1*STD-DRIVE-TO-MA) (QUOTE (SEXPR (LAMBDA (*3*X) (CONS *3*X (QUOTE (MA))))))) (PUT1-LST (QUOTE *1*ZERO-LOADINGP) (QUOTE (SEXPR (LAMBDA (*3*A) (COND ((NOT (EQ (*1*PFP *3*A) *1*F)) (*1*ZEROP (*1*CAR *3*A))) (T (*1*ZEROP *3*A))))))) (PUT1-LST (QUOTE *1*PF-PLUS) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (CONS (*1*PLUS (*1*CAR *3*A) (*1*CAR *3*B)) (QUOTE (PF))))))) (PUT1-LST (QUOTE *1*PF-DIFFERENCE) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (CONS (*1*DIFFERENCE (*1*CAR *3*A) (*1*CAR *3*B)) (QUOTE (PF))))))) (PUT1-LST (QUOTE *1*PF-LESSP) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*LESSP (*1*CAR *3*A) (*1*CAR *3*B)))))) (PUT1-LST (QUOTE *1*MA-LESSP) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP2 (*1*CAR *3*A)) (SETQ *2*TEMP1 (*1*CAR *3*B))) *1*F)) (QUOTE *1*TRUE)) ((EQUAL *2*TEMP2 *2*TEMP1) (*1*LESSP (*1*CAR (*1*CDR (*1*CAR (*1*CDR *3*A)))) (*1*CAR (*1*CDR (*1*CAR (*1*CDR *3*B)))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*LOADING-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NUMBERP *3*X) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*Y) *1*F)) (*1*PLUS *3*X *3*Y)) ((NOT (EQ (*1*PFP *3*Y) *1*F)) (*1*PF-PLUS (*1*STD-LOAD-TO-PF *3*X) *3*Y)) (T *3*X))) ((NOT (EQ (*1*PFP *3*X) *1*F)) (COND ((NOT (EQ (*1*PFP *3*Y) *1*F)) (*1*PF-PLUS *3*X *3*Y)) ((NOT (EQ (*1*NUMBERP *3*Y) *1*F)) (*1*PF-PLUS *3*X (*1*STD-LOAD-TO-PF *3*Y))) (T *3*X))) ((NOT (EQ (*1*OR (*1*NUMBERP *3*Y) (*1*PFP *3*Y)) *1*F)) *3*Y) (T (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-LOADINGS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DRIVES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*ADD-LOADING) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*LOADING *3*LOAD-MAP) (COND ((NOT (EQ (*1*ZERO-LOADINGP *3*LOADING) *1*F)) *3*LOAD-MAP) ((NOT (EQ (*1*BOUNDP *3*NAME *3*LOAD-MAP) *1*F)) (CONS (CONS *3*NAME (*1*LOADING-PLUS *3*LOADING (*1*VALUE *3*NAME *3*LOAD-MAP))) (*1*UNBIND *3*NAME *3*LOAD-MAP))) (T (CONS (CONS *3*NAME *3*LOADING) *3*LOAD-MAP))))))) (PUT1-LST (QUOTE *1*ADD-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*LOADINGS *3*LOAD-MAP) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (*1*ADD-LOADINGS (CDR *3*NAMES) (*1*CDR *3*LOADINGS) (*1*ADD-LOADING (CAR *3*NAMES) (*1*CAR *3*LOADINGS) *3*LOAD-MAP))) (T *3*LOAD-MAP)))))) (PUT1-LST (QUOTE *1*UPDATE-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS *3*O-INS *3*O-FN-PROPS) (*1*ADD-LOADINGS *3*O-INS (*1*VALUE (QUOTE LOADINGS) *3*O-FN-PROPS) *3*LOADINGS))))) (PUT1-LST (QUOTE *1*LOCAL-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*LISTP *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP) (LET NIL (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (CONS (*1*LOCAL-DRIVE (CAR *3*DRIVE) (QUOTE *1*FALSE) *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP) (*1*LOCAL-DRIVE (CDR *3*DRIVE) (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP))) (T (QUOTE NIL)))) ((NOT (EQ (*1*SIGNAL-NAMEP *3*DRIVE) *1*F)) (*1*PARENT-SYNONYM (*1*VALUE2 *3*DRIVE *3*IN-MAP *3*OUT-MAP) *3*DRIVE-MAP)) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*DRIVE) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (CONS (QUOTE MIN) (*1*LOCAL-DRIVE (*1*CDR *3*DRIVE) (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP))) (T *3*DRIVE))))))) (PUT1-LST (QUOTE *1*ADD-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*DRIVES *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP) (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (*1*ADD-DRIVES (CDR *3*OUTPUTS) (*1*CDR *3*DRIVES) *3*IN-MAP *3*OUT-MAP (CONS (CONS (CAR *3*OUTPUTS) (*1*LOCAL-DRIVE (*1*CAR *3*DRIVES) (QUOTE *1*FALSE) *3*IN-MAP *3*OUT-MAP *3*DRIVE-MAP)) *3*DRIVE-MAP))) (T *3*DRIVE-MAP)))))) (PUT1-LST (QUOTE *1*UPDATE-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*DRIVES *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP) (*1*ADD-DRIVES *3*O-OUTS (*1*VALUE (QUOTE DRIVES) *3*O-FN-PROPS) *3*IN-MAP *3*OUT-MAP *3*DRIVES))))) (PUT1-LST (QUOTE *1*TRANSFER-LOADING) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*LISTP *3*LOAD *3*LOADINGS) (LET NIL (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (*1*TRANSFER-LOADING (CDR *3*DRIVE) (QUOTE *1*TRUE) *3*LOAD (*1*TRANSFER-LOADING (CAR *3*DRIVE) (QUOTE *1*FALSE) *3*LOAD *3*LOADINGS))) (T *3*LOADINGS))) ((NOT (EQ (*1*SIGNAL-NAMEP *3*DRIVE) *1*F)) (*1*ADD-LOADING *3*DRIVE *3*LOAD *3*LOADINGS)) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*DRIVE) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*TRANSFER-LOADING (*1*CDR *3*DRIVE) (QUOTE *1*TRUE) *3*LOAD *3*LOADINGS)) (T *3*LOADINGS))))))) (PUT1-LST (QUOTE *1*TRANSFER-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS *3*DRIVES) (COND ((AND (CONSP *3*DRIVES) (NOT (EQ (CAR *3*DRIVES) (QUOTE *1*QUOTE)))) (*1*TRANSFER-LOADINGS (*1*TRANSFER-LOADING (*1*CDR (CAR *3*DRIVES)) (QUOTE *1*FALSE) (*1*VALUE (*1*CAR (CAR *3*DRIVES)) *3*LOADINGS) *3*LOADINGS) (CDR *3*DRIVES))) (T *3*LOADINGS)))))) (PUT1-LST (QUOTE *1*LITERAL-NET-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*LOAD *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NUMBERP *3*DRIVE) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*DRIVE (SETQ *2*TEMP5 (COND ((NOT (EQ (SETQ *2*TEMP4 (*1*NUMBERP *3*LOAD)) *1*F)) *3*LOAD) ((NOT (EQ (SETQ *2*TEMP3 (*1*PFP *3*LOAD)) *1*F)) (*1*PF-TO-STD-LOAD *3*LOAD)) (T (QUOTE 0))))) *1*F)) (*1*PRED-ERROR *3*LABEL (CONS (CONS (QUOTE DRIVE) (CONS *3*DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE LOADING) (CONS *3*LOAD (COND ((EQUAL *3*LOAD *2*TEMP5) (QUOTE NIL)) (T (CONS *2*TEMP5 (QUOTE NIL)))))) (QUOTE NIL))))) (T (*1*DIFFERENCE *3*DRIVE *2*TEMP5)))) ((NOT (EQ (*1*MAP *3*DRIVE) *1*F)) (COND ((NOT (EQ (*1*PF-LESSP (SETQ *2*TEMP2 (*1*MA-TO-PF *3*DRIVE)) (SETQ *2*TEMP1 (COND ((NOT (EQ (SETQ *2*TEMP3 (*1*PFP *3*LOAD)) *1*F)) *3*LOAD) ((NOT (EQ (SETQ *2*TEMP4 (*1*NUMBERP *3*LOAD)) *1*F)) (*1*STD-LOAD-TO-PF *3*LOAD)) (T (QUOTE (0 PF)))))) *1*F)) (*1*PRED-ERROR *3*LABEL (CONS (CONS (QUOTE DRIVE) (CONS *3*DRIVE (CONS *2*TEMP2 (QUOTE NIL)))) (CONS (CONS (QUOTE LOADING) (CONS *3*LOAD (COND ((EQUAL *3*LOAD *2*TEMP1) (QUOTE NIL)) (T (CONS *2*TEMP1 (QUOTE NIL)))))) (QUOTE NIL))))) (T (*1*PF-TO-MA (*1*PF-DIFFERENCE *2*TEMP2 *2*TEMP1))))) (T (QUOTE (*1*QUOTE UNKNOWN))))))))) (PUT1-LST (QUOTE *1*NET-MIN-ARGS) (QUOTE (SEXPR (LAMBDA (*3*A *3*LOAD *3*LISTP) (LET NIL (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (*1*UNION (*1*NET-MIN-ARGS (CAR *3*A) *3*LOAD (QUOTE *1*FALSE)) (*1*NET-MIN-ARGS (CDR *3*A) *3*LOAD (QUOTE *1*TRUE)))) (T (QUOTE NIL)))) ((NOT (EQ (*1*OR (*1*NUMBERP *3*A) (*1*MAP *3*A)) *1*F)) (CONS (*1*LITERAL-NET-DRIVE *3*A *3*LOAD (QUOTE MIN-ARG)) (QUOTE NIL))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*A) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*NET-MIN-ARGS (*1*CDR *3*A) *3*LOAD (QUOTE *1*TRUE))) (T (CONS *3*A (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ADD-NET-MIN-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*ARGS *3*LOAD *3*DRIVE-MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*ERR-AND (SETQ *2*TEMP2 (*1*NET-MIN-ARGS *3*ARGS *3*LOAD (QUOTE *1*TRUE))) (CONS (QUOTE SIGNAL) (CONS *3*NAME (QUOTE NIL)))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*EXTRACT-NAMES *2*TEMP2))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS *2*TEMP3 (CONS (CONS *3*NAME (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) *2*TEMP1))) *3*DRIVE-MAP))) (T (CONS *2*TEMP3 *3*DRIVE-MAP)))) (T (CONS (CONS *3*NAME (CONS (QUOTE MIN) *2*TEMP2)) *3*DRIVE-MAP)))))))) (PUT1-LST (QUOTE *1*ADD-NET-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*LOADINGS *3*DRIVE-MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*OR (*1*NUMBERP (CDR *3*DRIVE)) (*1*MAP (CDR *3*DRIVE))) *1*F)) (CONS (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*LITERAL-NET-DRIVE (CDR *3*DRIVE) (SETQ *2*TEMP1 (*1*VALUE (CAR *3*DRIVE) *3*LOADINGS)) (CONS (QUOTE SIGNAL) (CONS (CAR *3*DRIVE) (QUOTE NIL)))))) *1*F)) *2*TEMP2) (T (CONS (CAR *3*DRIVE) *2*TEMP2))) *3*DRIVE-MAP)) ((EQ (*1*CAR (CDR *3*DRIVE)) (QUOTE MIN)) (*1*ADD-NET-MIN-DRIVE (CAR *3*DRIVE) (*1*CDR (CDR *3*DRIVE)) (*1*VALUE (CAR *3*DRIVE) *3*LOADINGS) *3*DRIVE-MAP)) (T (CONS *3*DRIVE *3*DRIVE-MAP)))) (T (CONS *3*DRIVE *3*DRIVE-MAP)))))))) (PUT1-LST (QUOTE *1*NET-DRIVES-SIMPLE) (QUOTE (SEXPR (LAMBDA (*3*DRS *3*LDS) (COND ((AND (CONSP *3*DRS) (NOT (EQ (CAR *3*DRS) (QUOTE *1*QUOTE)))) (*1*ADD-NET-DRIVE (CAR *3*DRS) *3*LDS (*1*NET-DRIVES-SIMPLE (CDR *3*DRS) *3*LDS))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*TYPE-LOADING) (QUOTE (SEXPR (LAMBDA (*3*LOAD *3*TYPE) (COND ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) *1*F)) (COND ((NOT (EQ (*1*PFP *3*LOAD) *1*F)) (*1*PF-TO-STD-LOAD *3*LOAD)) (T *3*LOAD))) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*LOAD) *1*F)) (*1*STD-LOAD-TO-PF *3*LOAD)) (T *3*LOAD))) (T *3*LOAD)))))) (PUT1-LST (QUOTE *1*COLLECT-LOADINGS) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*TYPES *3*LOADINGS) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (CONS (*1*TYPE-LOADING (*1*VALUE (CAR *3*NAMES) *3*LOADINGS) (*1*CAR *3*TYPES)) (*1*COLLECT-LOADINGS (CDR *3*NAMES) (*1*CDR *3*TYPES) *3*LOADINGS))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*LOADINGS-ERROR) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS) (*1*ERR-AND *3*LOADINGS (QUOTE BAD-LOADINGS)))))) (PUT1-LST (QUOTE *1*COLLECT-MIN-ARGS) (QUOTE (SEXPR (LAMBDA (*3*A *3*LISTP *3*DRIVES *3*USED-NAMES *3*INPUTS *3*OUTPUTS) (LET NIL (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (*1*UNION (*1*COLLECT-MIN-ARGS (CAR *3*A) (QUOTE *1*FALSE) *3*DRIVES *3*USED-NAMES *3*INPUTS *3*OUTPUTS) (*1*COLLECT-MIN-ARGS (CDR *3*A) (QUOTE *1*TRUE) *3*DRIVES *3*USED-NAMES *3*INPUTS *3*OUTPUTS))) (T (QUOTE NIL)))) ((NOT (EQ (*1*SIGNAL-NAMEP *3*A) *1*F)) (COND ((NOT (EQ (*1*MEMBER *3*A *3*INPUTS) *1*F)) (CONS *3*A (QUOTE NIL))) ((NOT (EQ (*1*AND (*1*NOT (*1*OR (*1*MEMBER *3*A *3*OUTPUTS) (*1*MEMBER *3*A *3*USED-NAMES))) (*1*BOUNDP *3*A *3*DRIVES)) *1*F)) (*1*COLLECT-MIN-ARGS (*1*VALUE *3*A *3*DRIVES) (QUOTE *1*FALSE) *3*DRIVES (CONS *3*A *3*USED-NAMES) *3*INPUTS *3*OUTPUTS)) (T (QUOTE ((*1*QUOTE UNKNOWN)))))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*A) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*COLLECT-MIN-ARGS (*1*CDR *3*A) (QUOTE *1*TRUE) *3*DRIVES *3*USED-NAMES *3*INPUTS *3*OUTPUTS)) ((NOT (EQ (*1*OR (*1*NUMBERP *3*A) (*1*MAP *3*A)) *1*F)) (CONS *3*A (QUOTE NIL))) (T (QUOTE ((*1*QUOTE UNKNOWN)))))))))) (PUT1-LST (QUOTE *1*NUMERIC-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*DRS) (LET NIL (COND ((AND (CONSP *3*DRS) (NOT (EQ (CAR *3*DRS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*OR (*1*NUMBERP (CAR *3*DRS)) (*1*MAP (CAR *3*DRS))) *1*F)) (CONS (CAR *3*DRS) (*1*NUMERIC-DRIVES (CDR *3*DRS)))) (T (*1*NUMERIC-DRIVES (CDR *3*DRS))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*TYPE-DRIVE) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*TYPE) (COND ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) *1*F)) (COND ((NOT (EQ (*1*MAP *3*DRIVE) *1*F)) (*1*MA-TO-STD-DRIVE *3*DRIVE)) (T *3*DRIVE))) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*DRIVE) *1*F)) (*1*STD-DRIVE-TO-MA *3*DRIVE)) (T *3*DRIVE))) (T *3*DRIVE)))))) (PUT1-LST (QUOTE *1*DRIVE-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*AND (*1*NUMBERP *3*X) (*1*NUMBERP *3*Y)) *1*F)) (*1*LESSP *3*X *3*Y)) ((NOT (EQ (*1*AND (*1*MAP *3*X) (*1*MAP *3*Y)) *1*F)) (*1*MA-LESSP *3*X *3*Y)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*DRIVE-MIN) (QUOTE (SEXPR (LAMBDA (*3*LST *3*TYPE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP3 (*1*CDR *3*LST))) *1*F)) (*1*TYPE-DRIVE (*1*CAR *3*LST) *3*TYPE)) ((NOT (EQ (*1*DRIVE-LESSP (SETQ *2*TEMP2 (*1*TYPE-DRIVE (*1*CAR *3*LST) *3*TYPE)) (SETQ *2*TEMP1 (*1*DRIVE-MIN *2*TEMP3 *3*TYPE))) *1*F)) *2*TEMP2) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*MAKE-DRIVE-MIN) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*TYPE *3*DRIVES *3*INPUTS *3*OUTPUTS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP4 (*1*EXTRACT-NAMES (SETQ *2*TEMP3 (*1*COLLECT-MIN-ARGS *3*ARGS (QUOTE *1*TRUE) *3*DRIVES (QUOTE NIL) *3*INPUTS *3*OUTPUTS))))) *1*F)) (*1*DRIVE-MIN (*1*NUMERIC-DRIVES *2*TEMP3) *3*TYPE)) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP2 (*1*NUMERIC-DRIVES *2*TEMP3))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CDR *2*TEMP4))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS (QUOTE MIN) *2*TEMP4)) (T (CONS (QUOTE MIN) (CONS (QUOTE (*1*QUOTE UNKNOWN)) *2*TEMP4))))) (T (CONS (QUOTE MIN) (CONS (*1*DRIVE-MIN *2*TEMP2 *3*TYPE) *2*TEMP4))))))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES-0) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*OUTPUT-TYPES *3*DRIVES *3*INPUTS *3*OUTPUTS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (CONS (COND ((NOT (EQ (*1*OR (*1*NUMBERP (SETQ *2*TEMP1 (*1*VALUE-OR-UNKNOWN (CAR *3*NAMES) *3*DRIVES))) (*1*MAP *2*TEMP1)) *1*F)) (*1*TYPE-DRIVE *2*TEMP1 (*1*CAR *3*OUTPUT-TYPES))) ((NOT (EQ (*1*SIGNAL-NAMEP *2*TEMP1) *1*F)) (*1*PARENT-SYNONYM *2*TEMP1 *3*DRIVES)) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *2*TEMP1) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*MAKE-DRIVE-MIN (*1*CDR *2*TEMP1) (*1*CAR *3*OUTPUT-TYPES) *3*DRIVES *3*INPUTS *3*OUTPUTS)) (T (QUOTE (*1*QUOTE UNKNOWN)))) (*1*COLLECT-DRIVES-0 (CDR *3*NAMES) (*1*CDR *3*OUTPUT-TYPES) *3*DRIVES *3*INPUTS *3*OUTPUTS))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*COLLECT-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*OUTPUT-TYPES *3*DRIVES *3*INPUTS) (*1*COLLECT-DRIVES-0 *3*OUTPUTS *3*OUTPUT-TYPES (*1*EXTERNALIZE-PARENTS *3*OUTPUTS *3*DRIVES *3*INPUTS *3*OUTPUTS) *3*INPUTS *3*OUTPUTS))))) (PUT1-LST (QUOTE *1*DRIVES-ERROR) (QUOTE (SEXPR (LAMBDA (*3*DRIVES) (*1*ERR-AND *3*DRIVES (QUOTE BAD-DRIVES)))))) (PUT1-LST (QUOTE *1*PS-PFP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*AND (*1*PROPERP *3*X) (*1*AND (COND ((EQUAL (*1*LENGTH *3*X) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NUMBERP (*1*CAR *3*X)) (COND ((EQ (*1*CAR (*1*CDR *3*X)) (QUOTE PS-PF)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*DELAY-LH) (QUOTE (SEXPR (LAMBDA (*3*D) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*D)) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) *2*TEMP1) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*DELAY-HL) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CAR (*1*CDR *3*D))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*DELAY-SLOPE-LH) (QUOTE (SEXPR (LAMBDA (*3*D) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*D)) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CAR *2*TEMP1)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*DELAY-SLOPE-HL) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CAR (*1*CAR (*1*CDR *3*D)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*DELAY-INTERCEPT-LH) (QUOTE (SEXPR (LAMBDA (*3*D) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*D)) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CAR (*1*CDR *2*TEMP1))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*DELAY-INTERCEPT-HL) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CAR (*1*CDR (*1*CAR (*1*CDR *3*D))))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*DELAY-DEPENDENCIES) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NOT (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*CDR (*1*CDR *3*D))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MAKE-DELAY-0) (QUOTE (SEXPR (LAMBDA (*3*LH *3*HL *3*DEPS) (CONS *3*LH (CONS *3*HL *3*DEPS)))))) (PUT1-LST (QUOTE *1*MAKE-DELAY) (QUOTE (SEXPR (LAMBDA (*3*S-LH *3*I-LH *3*S-HL *3*I-HL *3*DEPS) (*1*MAKE-DELAY-0 (CONS *3*S-LH (CONS *3*I-LH (QUOTE NIL))) (CONS *3*S-HL (CONS *3*I-HL (QUOTE NIL))) *3*DEPS))))) (PUT1-LST (QUOTE *1*DETERMINED-DELAYP) (QUOTE (SEXPR (LAMBDA (*3*D) (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NOT (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*NLISTP (*1*DELAY-DEPENDENCIES *3*D)))))))) (PUT1-LST (QUOTE *1*MAKE-RANGE) (QUOTE (SEXPR (LAMBDA (*3*LO *3*HI *3*DEPS) (COND ((NOT (EQ (*1*AND (COND ((EQUAL *3*LO *3*HI) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NLISTP *3*DEPS)) *1*F)) *3*LO) (T (CONS (QUOTE RANGE) (CONS *3*LO (CONS *3*HI *3*DEPS))))))))) (PUT1-LST (QUOTE *1*RANGEP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*X) (QUOTE RANGE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*RANGE-MIN) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*RANGEP *3*X) *1*F)) (*1*CAR (*1*CDR *3*X))) (T *3*X)))))) (PUT1-LST (QUOTE *1*RANGE-MAX) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*RANGEP *3*X) *1*F)) (*1*CAR (*1*CDR (*1*CDR *3*X)))) (T *3*X)))))) (PUT1-LST (QUOTE *1*RANGE-DEPENDENCIES) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*RANGEP *3*X) *1*F)) (*1*CDR (*1*CDR (*1*CDR *3*X)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*DETERMINED-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*RANGEP *3*X) *1*F)) (*1*NLISTP (*1*RANGE-DEPENDENCIES *3*X))) (T (*1*NUMBERP *3*X))))))) (PUT1-LST (QUOTE *1*PER-STD-LOAD-DELAY-SLOPE) (QUOTE (SEXPR (LAMBDA (*3*SLOPE) (COND ((NOT (EQ (*1*PS-PFP *3*SLOPE) *1*F)) (*1*TIMES (*1*CAR *3*SLOPE) (QUOTE 10))) (T *3*SLOPE)))))) (PUT1-LST (QUOTE *1*PER-PF-DELAY-SLOPE) (QUOTE (SEXPR (LAMBDA (*3*SLOPE) (LET NIL (COND ((NOT (EQ (*1*NUMBERP *3*SLOPE) *1*F)) (CONS (COND ((NOT (EQ (*1*LESSP (*1*REMAINDER *3*SLOPE (QUOTE 10)) (QUOTE 5)) *1*F)) (*1*QUOTIENT *3*SLOPE (QUOTE 10))) (T (*1*ADD1 (*1*QUOTIENT *3*SLOPE (QUOTE 10))))) (QUOTE (PS-PF)))) (T *3*SLOPE))))))) (PUT1-LST (QUOTE *1*RANGE-PLUS) (QUOTE (SEXPR (LAMBDA (*3*I1 *3*I2 *3*DEPS) (*1*MAKE-RANGE (*1*PLUS (*1*RANGE-MIN *3*I1) (*1*RANGE-MIN *3*I2)) (*1*PLUS (*1*RANGE-MAX *3*I1) (*1*RANGE-MAX *3*I2)) *3*DEPS))))) (PUT1-LST (QUOTE *1*SLOPE-TIMES-LOAD) (QUOTE (SEXPR (LAMBDA (*3*SLOPE *3*LOAD) (LET NIL (COND ((NOT (EQ (*1*NUMBERP *3*SLOPE) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*LOAD) *1*F)) (*1*TIMES *3*SLOPE *3*LOAD)) ((NOT (EQ (*1*PFP *3*LOAD) *1*F)) (*1*TIMES *3*SLOPE (*1*PF-TO-STD-LOAD *3*LOAD))) (T (QUOTE 0)))) ((NOT (EQ (*1*PS-PFP *3*SLOPE) *1*F)) (COND ((NOT (EQ (*1*PFP *3*LOAD) *1*F)) (*1*TIMES (*1*CAR *3*SLOPE) (*1*CAR *3*LOAD))) ((NOT (EQ (*1*NUMBERP *3*LOAD) *1*F)) (*1*TIMES (*1*CAR *3*SLOPE) (*1*CAR (*1*STD-LOAD-TO-PF *3*LOAD)))) (T (QUOTE 0)))) (T (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DELAYS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*LOCAL-DELAY) (QUOTE (SEXPR (LAMBDA (*3*DELAY *3*OUT-DEPENDS *3*LISTP *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*DELAY) (NOT (EQ (CAR *3*DELAY) (QUOTE *1*QUOTE)))) (CONS (*1*LOCAL-DELAY (CAR *3*DELAY) *3*OUT-DEPENDS (QUOTE *1*FALSE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP) (*1*LOCAL-DELAY (CDR *3*DELAY) *3*OUT-DEPENDS (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP))) (T (QUOTE NIL)))) ((NOT (EQ (*1*SIGNAL-NAMEP *3*DELAY) *1*F)) (*1*PARENT-SYNONYM (*1*VALUE2 *3*DELAY *3*IN-MAP *3*OUT-MAP) *3*DELAY-MAP)) ((NOT (EQ (*1*NLISTP *3*DELAY) *1*F)) *3*DELAY) ((EQ (*1*CAR *3*DELAY) (QUOTE OR)) (CONS (QUOTE OR) (*1*LOCAL-DELAY (*1*CDR *3*DELAY) (QUOTE *1*FALSE) (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP))) ((NOT (EQ (*1*RANGEP *3*DELAY) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*RANGE-DEPENDENCIES *3*DELAY))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (*1*MAKE-RANGE (*1*RANGE-MIN *3*DELAY) (*1*RANGE-MAX *3*DELAY) (*1*LOCAL-DELAY *2*TEMP3 (QUOTE *1*FALSE) (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP))) (T *3*DELAY))) ((AND (CONSP (SETQ *2*TEMP2 (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*DELAY-DEPENDENCIES *3*DELAY))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) *2*TEMP1) (T *3*OUT-DEPENDS)))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (*1*MAKE-DELAY-0 (*1*DELAY-LH *3*DELAY) (*1*DELAY-HL *3*DELAY) (*1*LOCAL-DELAY *2*TEMP2 (QUOTE *1*FALSE) (QUOTE *1*TRUE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP))) (T *3*DELAY))))))) (PUT1-LST (QUOTE *1*ADD-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*DELAYS *3*OUT-DEPENDS *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP) (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (*1*ADD-DELAYS (CDR *3*OUTPUTS) (*1*CDR *3*DELAYS) (*1*CDR *3*OUT-DEPENDS) *3*IN-MAP *3*OUT-MAP (CONS (CONS (CAR *3*OUTPUTS) (*1*LOCAL-DELAY (*1*CAR *3*DELAYS) (*1*CAR *3*OUT-DEPENDS) (QUOTE *1*FALSE) *3*IN-MAP *3*OUT-MAP *3*DELAY-MAP)) *3*DELAY-MAP))) (T *3*DELAY-MAP)))))) (PUT1-LST (QUOTE *1*UPDATE-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*DELAYS *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP) (*1*ADD-DELAYS *3*O-OUTS (*1*VALUE (QUOTE DELAYS) *3*O-FN-PROPS) (*1*VALUE (QUOTE OUT-DEPENDS) *3*O-FN-PROPS) *3*IN-MAP *3*OUT-MAP *3*DELAYS))))) (PUT1-LST (QUOTE *1*ADD-LOAD-DELAY) (QUOTE (SEXPR (LAMBDA (*3*DELAY *3*LOAD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZERO-LOADINGP *3*LOAD) *1*F)) *3*DELAY) (T (*1*MAKE-DELAY (SETQ *2*TEMP2 (*1*DELAY-SLOPE-LH *3*DELAY)) (*1*RANGE-PLUS (*1*DELAY-INTERCEPT-LH *3*DELAY) (*1*SLOPE-TIMES-LOAD *2*TEMP2 *3*LOAD) (QUOTE NIL)) (SETQ *2*TEMP1 (*1*DELAY-SLOPE-HL *3*DELAY)) (*1*RANGE-PLUS (*1*DELAY-INTERCEPT-HL *3*DELAY) (*1*SLOPE-TIMES-LOAD *2*TEMP1 *3*LOAD) (QUOTE NIL)) (*1*DELAY-DEPENDENCIES *3*DELAY))))))))) (PUT1-LST (QUOTE *1*LOADED-DELAY) (QUOTE (SEXPR (LAMBDA (*3*DELAY *3*LOAD *3*LISTP) (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*DELAY) (NOT (EQ (CAR *3*DELAY) (QUOTE *1*QUOTE)))) (CONS (*1*LOADED-DELAY (CAR *3*DELAY) *3*LOAD (QUOTE *1*FALSE)) (*1*LOADED-DELAY (CDR *3*DELAY) *3*LOAD (QUOTE *1*TRUE)))) (T (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP *3*DELAY) *1*F)) *3*DELAY) ((EQ (*1*CAR *3*DELAY) (QUOTE OR)) (CONS (QUOTE OR) (*1*LOADED-DELAY (*1*CDR *3*DELAY) *3*LOAD (QUOTE *1*TRUE)))) (T (*1*ADD-LOAD-DELAY *3*DELAY *3*LOAD))))))) (PUT1-LST (QUOTE *1*LOADED-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*DELAYS *3*LOADINGS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*DELAYS) (NOT (EQ (CAR *3*DELAYS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NLISTP (CAR *3*DELAYS)) *1*F)) (CONS (CAR *3*DELAYS) (*1*LOADED-DELAYS (CDR *3*DELAYS) *3*LOADINGS))) (T (CONS (CONS (SETQ *2*TEMP1 (*1*CAR (CAR *3*DELAYS))) (*1*LOADED-DELAY (*1*CDR (CAR *3*DELAYS)) (*1*VALUE *2*TEMP1 *3*LOADINGS) (QUOTE *1*FALSE))) (*1*LOADED-DELAYS (CDR *3*DELAYS) *3*LOADINGS))))) (T *3*DELAYS))))))) (PUT1-LST (QUOTE *1*MERGE-INPUT-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*R1 *3*R2 *3*OR-ARGS?) (LET NIL (COND ((NOT (EQ (*1*OR (*1*RANGEP *3*R1) (*1*NUMBERP *3*R1)) *1*F)) (COND ((NOT (EQ (*1*OR (*1*RANGEP *3*R2) (*1*NUMBERP *3*R2)) *1*F)) (*1*MAKE-RANGE (COND ((NOT (EQ *3*OR-ARGS? *1*F)) (*1*MIN (*1*RANGE-MIN *3*R1) (*1*RANGE-MIN *3*R2))) (T (*1*MAX (*1*RANGE-MIN *3*R1) (*1*RANGE-MIN *3*R2)))) (*1*MAX (*1*RANGE-MAX *3*R1) (*1*RANGE-MAX *3*R2)) (*1*UNION (*1*RANGE-DEPENDENCIES *3*R1) (*1*RANGE-DEPENDENCIES *3*R2)))) (T (*1*MAKE-RANGE (*1*RANGE-MIN *3*R1) (*1*RANGE-MAX *3*R1) (*1*INSERT *3*R2 (*1*RANGE-DEPENDENCIES *3*R1)))))) ((NOT (EQ (*1*OR (*1*RANGEP *3*R2) (*1*NUMBERP *3*R2)) *1*F)) (*1*MAKE-RANGE (*1*RANGE-MIN *3*R2) (*1*RANGE-MAX *3*R2) (*1*INSERT *3*R1 (*1*RANGE-DEPENDENCIES *3*R2)))) (T (*1*MAKE-RANGE (QUOTE 0) (QUOTE 0) (*1*INSERT *3*R1 (CONS *3*R2 (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*MERGEABLE-INPUT-DELAY-P) (QUOTE (SEXPR (LAMBDA (*3*D *3*APPROXP) (COND ((NOT (EQ *3*APPROXP *1*F)) (*1*OR (*1*RANGEP *3*D) (*1*OR (*1*NUMBERP *3*D) (*1*SIGNAL-NAMEP *3*D)))) (T (*1*DETERMINED-RANGEP *3*D))))))) (PUT1-LST (QUOTE *1*INSERT-INPUT-DELAY) (QUOTE (SEXPR (LAMBDA (*3*D *3*DLIST *3*OR-ARGS? *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*UNKNOWNP *3*D) *1*F)) *3*DLIST) ((NOT (EQ (*1*NLISTP *3*DLIST) *1*F)) (COND ((NOT (EQ (*1*AND *3*OR-ARGS? (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*CDR *3*D)) (T (CONS *3*D (QUOTE NIL))))) ((NOT (EQ (*1*AND *3*OR-ARGS? (*1*AND (COND ((AND (CONSP *3*D) (NOT (EQ (CAR *3*D) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*D) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (*1*INSERT-INPUT-DELAY (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*D))) (*1*INSERT (*1*CAR *3*DLIST) (*1*UNION (*1*CDR *2*TEMP3) (*1*CDR *3*DLIST))) *3*OR-ARGS? *3*APPROXP)) ((NOT (EQ (*1*MERGEABLE-INPUT-DELAY-P *3*D (SETQ *2*TEMP1 (*1*AND *3*APPROXP (*1*NOT *3*OR-ARGS?)))) *1*F)) (COND ((NOT (EQ (*1*MERGEABLE-INPUT-DELAY-P (SETQ *2*TEMP2 (*1*CAR *3*DLIST)) *2*TEMP1) *1*F)) (CONS (*1*MERGE-INPUT-DELAYS *3*D *2*TEMP2 *3*OR-ARGS?) (*1*CDR *3*DLIST))) (T (CONS *3*D *3*DLIST)))) ((NOT (EQ (*1*MERGEABLE-INPUT-DELAY-P (SETQ *2*TEMP2 (*1*CAR *3*DLIST)) *2*TEMP1) *1*F)) (CONS *2*TEMP2 (*1*INSERT *3*D (*1*CDR *3*DLIST)))) (T (*1*INSERT *3*D *3*DLIST)))))))) (PUT1-LST (QUOTE *1*LITERAL-DELAY-TO-RANGE) (QUOTE (SEXPR (LAMBDA (*3*D) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*MAKE-RANGE (*1*MIN (*1*RANGE-MIN (SETQ *2*TEMP2 (*1*DELAY-INTERCEPT-LH *3*D))) (*1*RANGE-MIN (SETQ *2*TEMP1 (*1*DELAY-INTERCEPT-HL *3*D)))) (*1*MAX (*1*RANGE-MAX *2*TEMP2) (*1*RANGE-MAX *2*TEMP1)) (*1*DELAY-DEPENDENCIES *3*D))))))) (PUT1-LST (QUOTE *1*OR-DELAY-ARGS-TO-RANGES) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*RESULT) (LET NIL (COND ((AND (CONSP *3*ARGS) (NOT (EQ (CAR *3*ARGS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NLISTP (CAR *3*ARGS)) *1*F)) (*1*INSERT-INPUT-DELAY (CAR *3*ARGS) (*1*OR-DELAY-ARGS-TO-RANGES (CDR *3*ARGS) *3*RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE))) ((EQ (*1*CAR (CAR *3*ARGS)) (QUOTE OR)) (*1*OR-DELAY-ARGS-TO-RANGES (*1*CDR (CAR *3*ARGS)) (*1*OR-DELAY-ARGS-TO-RANGES (CDR *3*ARGS) *3*RESULT))) (T (*1*INSERT-INPUT-DELAY (*1*LITERAL-DELAY-TO-RANGE (CAR *3*ARGS)) (*1*OR-DELAY-ARGS-TO-RANGES (CDR *3*ARGS) *3*RESULT) (QUOTE *1*TRUE) (QUOTE *1*FALSE))))) (T *3*RESULT))))))) (PUT1-LST (QUOTE *1*MAKE-DELAY-OR) (QUOTE (SEXPR (LAMBDA (*3*ARGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*ARGS) *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) ((AND (CONSP (SETQ *2*TEMP2 (*1*CDR *3*ARGS))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (CONS (QUOTE OR) *3*ARGS)) ((NOT (EQ (*1*SIGNAL-NAMEP (SETQ *2*TEMP1 (*1*CAR *3*ARGS))) *1*F)) (CONS (QUOTE OR) (CONS (QUOTE (*1*QUOTE UNKNOWN)) *3*ARGS))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*DELAY-TO-RANGE) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*NLISTP *3*D) *1*F)) *3*D) ((EQ (*1*CAR *3*D) (QUOTE OR)) (*1*MAKE-DELAY-OR (*1*OR-DELAY-ARGS-TO-RANGES (*1*CDR *3*D) (QUOTE NIL)))) (T (*1*LITERAL-DELAY-TO-RANGE *3*D))))))) (PUT1-LST (QUOTE *1*ADDABLE-INPUT-DELAY) (QUOTE (SEXPR (LAMBDA (*3*IN-DELAYS *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*IN-DELAYS) (NOT (EQ (CAR *3*IN-DELAYS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NLISTP (*1*CDR *3*IN-DELAYS))) *1*F)) (COND ((COND ((NOT (EQ *3*APPROXP *1*F)) (NOT (EQ (*1*OR (*1*RANGEP (SETQ *2*TEMP1 (*1*CAR *3*IN-DELAYS))) (*1*NUMBERP *2*TEMP1)) *1*F))) (T (NOT (EQ (*1*DETERMINED-RANGEP (SETQ *2*TEMP1 (*1*CAR *3*IN-DELAYS))) *1*F)))) *2*TEMP1) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*INPUT-DELAY0) (QUOTE (SEXPR (LAMBDA (*3*DEP *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? *3*LIST? *3*USED-NAMES *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ *3*LIST? *1*F)) (COND ((AND (CONSP *3*DEP) (NOT (EQ (CAR *3*DEP) (QUOTE *1*QUOTE)))) (*1*INSERT-INPUT-DELAY (*1*INPUT-DELAY0 (CAR *3*DEP) *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? (QUOTE *1*FALSE) *3*USED-NAMES *3*APPROXP) (*1*INPUT-DELAY0 (CDR *3*DEP) *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? (QUOTE *1*TRUE) *3*USED-NAMES *3*APPROXP) *3*OR-ARGS? *3*APPROXP)) (T (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP *3*DEP) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*DEP) *1*F)) *3*DEP) ((NOT (EQ (*1*MEMBER *3*DEP *3*INPUTS) *1*F)) *3*DEP) ((NOT (EQ (*1*MEMBER *3*DEP *3*USED-NAMES) *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) ((NOT (EQ (*1*MEMBER *3*DEP *3*OUTPUTS) *1*F)) (COND ((NOT (EQ *3*OR-ARGS? *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) (T (*1*PARENT-SYNONYM *3*DEP *3*DELAYS)))) ((NOT (EQ (*1*BOUNDP *3*DEP *3*DELAYS) *1*F)) (*1*INPUT-DELAY0 (*1*DELAY-TO-RANGE (*1*VALUE *3*DEP *3*DELAYS)) *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? (QUOTE *1*FALSE) (CONS *3*DEP *3*USED-NAMES) *3*APPROXP)) (T (QUOTE (*1*QUOTE UNKNOWN))))) ((EQ (*1*CAR *3*DEP) (QUOTE OR)) (*1*MAKE-DELAY-OR (*1*INPUT-DELAY0 (*1*CDR *3*DEP) *3*DELAYS *3*INPUTS *3*OUTPUTS (QUOTE *1*TRUE) (QUOTE *1*TRUE) *3*USED-NAMES *3*APPROXP))) ((NOT (EQ (*1*RANGEP *3*DEP) *1*F)) (COND ((NOT (EQ (SETQ *2*TEMP2 (*1*ADDABLE-INPUT-DELAY (SETQ *2*TEMP1 (*1*INPUT-DELAY0 (*1*RANGE-DEPENDENCIES *3*DEP) *3*DELAYS *3*INPUTS *3*OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) *3*USED-NAMES *3*APPROXP)) *3*APPROXP)) *1*F)) (*1*RANGE-PLUS *3*DEP *2*TEMP2 (*1*RANGE-DEPENDENCIES *2*TEMP2))) (T (*1*MAKE-RANGE (*1*RANGE-MIN *3*DEP) (*1*RANGE-MAX *3*DEP) *2*TEMP1)))) (T (QUOTE (*1*QUOTE UNKNOWN))))))))) (PUT1-LST (QUOTE *1*INPUT-DELAY) (QUOTE (SEXPR (LAMBDA (*3*DEP *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? *3*LIST? *3*USED-NAMES *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP2 (*1*INPUT-DELAY0 *3*DEP *3*DELAYS *3*INPUTS *3*OUTPUTS *3*OR-ARGS? *3*LIST? *3*USED-NAMES *3*APPROXP))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*RANGEP (SETQ *2*TEMP1 (*1*CAR *2*TEMP2)))) *1*F)) (COND ((NOT (EQ (*1*AND (COND ((EQUAL (*1*RANGE-MIN *2*TEMP1) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*RANGE-MAX *2*TEMP1) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*UNION (*1*RANGE-DEPENDENCIES *2*TEMP1) (*1*CDR *2*TEMP2))) (T *2*TEMP2))) (T *2*TEMP2))))))) (PUT1-LST (QUOTE *1*TYPE-DELAY-SLOPE) (QUOTE (SEXPR (LAMBDA (*3*SLOPE *3*TYPE) (COND ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) *1*F)) (*1*PER-STD-LOAD-DELAY-SLOPE *3*SLOPE)) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (*1*PER-PF-DELAY-SLOPE *3*SLOPE)) (T *3*SLOPE)))))) (PUT1-LST (QUOTE *1*MAKE-OUTPUT-DELAY) (QUOTE (SEXPR (LAMBDA (*3*DELAY *3*TYPE *3*INPUT-DELAY-LIST *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*ADDABLE-INPUT-DELAY *3*INPUT-DELAY-LIST *3*APPROXP)) *1*F)) (*1*MAKE-DELAY (*1*TYPE-DELAY-SLOPE (*1*DELAY-SLOPE-LH *3*DELAY) *3*TYPE) (*1*RANGE-PLUS (*1*DELAY-INTERCEPT-LH *3*DELAY) *2*TEMP1 (QUOTE NIL)) (*1*TYPE-DELAY-SLOPE (*1*DELAY-SLOPE-HL *3*DELAY) *3*TYPE) (*1*RANGE-PLUS (*1*DELAY-INTERCEPT-HL *3*DELAY) *2*TEMP1 (QUOTE NIL)) (*1*RANGE-DEPENDENCIES *2*TEMP1))) (T (*1*MAKE-DELAY (*1*TYPE-DELAY-SLOPE (*1*DELAY-SLOPE-LH *3*DELAY) *3*TYPE) (*1*DELAY-INTERCEPT-LH *3*DELAY) (*1*TYPE-DELAY-SLOPE (*1*DELAY-SLOPE-HL *3*DELAY) *3*TYPE) (*1*DELAY-INTERCEPT-HL *3*DELAY) *3*INPUT-DELAY-LIST)))))))) (PUT1-LST (QUOTE *1*OR-DELAY-ARGS) (QUOTE (SEXPR (LAMBDA (*3*A *3*LISTP *3*TYPE *3*DELAYS *3*USED-NAMES *3*INPUTS *3*OUTPUTS *3*APPROXP) (COND ((NOT (EQ *3*LISTP *1*F)) (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (*1*UNION (*1*OR-DELAY-ARGS (CAR *3*A) (QUOTE *1*FALSE) *3*TYPE *3*DELAYS *3*USED-NAMES *3*INPUTS *3*OUTPUTS *3*APPROXP) (*1*OR-DELAY-ARGS (CDR *3*A) (QUOTE *1*TRUE) *3*TYPE *3*DELAYS *3*USED-NAMES *3*INPUTS *3*OUTPUTS *3*APPROXP))) (T (QUOTE NIL)))) ((NOT (EQ (*1*SIGNAL-NAMEP *3*A) *1*F)) (COND ((NOT (EQ (*1*MEMBER *3*A *3*INPUTS) *1*F)) (CONS *3*A (QUOTE NIL))) ((NOT (EQ (*1*AND (*1*NOT (*1*OR (*1*MEMBER *3*A *3*OUTPUTS) (*1*MEMBER *3*A *3*USED-NAMES))) (*1*BOUNDP *3*A *3*DELAYS)) *1*F)) (*1*OR-DELAY-ARGS (*1*VALUE *3*A *3*DELAYS) (QUOTE *1*FALSE) *3*TYPE *3*DELAYS (CONS *3*A *3*USED-NAMES) *3*INPUTS *3*OUTPUTS *3*APPROXP)) (T (QUOTE ((*1*QUOTE UNKNOWN)))))) ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE ((*1*QUOTE UNKNOWN)))) ((EQ (*1*CAR *3*A) (QUOTE OR)) (*1*OR-DELAY-ARGS (*1*CDR *3*A) (QUOTE *1*TRUE) *3*TYPE *3*DELAYS *3*USED-NAMES *3*INPUTS *3*OUTPUTS *3*APPROXP)) (T (CONS (*1*MAKE-OUTPUT-DELAY *3*A *3*TYPE (*1*INPUT-DELAY (*1*DELAY-DEPENDENCIES *3*A) *3*DELAYS *3*INPUTS *3*OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) *3*USED-NAMES *3*APPROXP) *3*APPROXP) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*OUTPUT-DELAY) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*TYPE *3*DELAYS *3*INPUTS *3*OUTPUTS *3*APPROXP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SIGNAL-NAMEP (SETQ *2*TEMP1 (*1*VALUE-OR-UNKNOWN *3*NAME *3*DELAYS))) *1*F)) (*1*PARENT-SYNONYM *2*TEMP1 *3*DELAYS)) ((NOT (EQ (*1*NLISTP *2*TEMP1) *1*F)) (QUOTE (*1*QUOTE UNKNOWN))) ((EQ (*1*CAR *2*TEMP1) (QUOTE OR)) (*1*MAKE-DELAY-OR (*1*OR-DELAY-ARGS (*1*CDR *2*TEMP1) (QUOTE *1*TRUE) *3*TYPE *3*DELAYS (CONS *3*NAME (QUOTE NIL)) *3*INPUTS *3*OUTPUTS *3*APPROXP))) (T (*1*MAKE-OUTPUT-DELAY *2*TEMP1 *3*TYPE (*1*INPUT-DELAY (*1*DELAY-DEPENDENCIES *2*TEMP1) *3*DELAYS *3*INPUTS *3*OUTPUTS (QUOTE *1*FALSE) (QUOTE *1*TRUE) (CONS *3*NAME (QUOTE NIL)) *3*APPROXP) *3*APPROXP)))))))) (PUT1-LST (QUOTE *1*COLLECT-DELAYS-0) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*TYPES *3*DELAYS *3*INPUTS *3*OUTPUTS *3*APPROXP) (COND ((AND (CONSP *3*NAMES) (NOT (EQ (CAR *3*NAMES) (QUOTE *1*QUOTE)))) (CONS (*1*OUTPUT-DELAY (CAR *3*NAMES) (*1*CAR *3*TYPES) *3*DELAYS *3*INPUTS *3*OUTPUTS *3*APPROXP) (*1*COLLECT-DELAYS-0 (CDR *3*NAMES) (*1*CDR *3*TYPES) *3*DELAYS *3*INPUTS *3*OUTPUTS *3*APPROXP))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*COLLECT-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*OUTPUT-TYPES *3*DELAYS *3*INPUTS *3*APPROXP) (*1*COLLECT-DELAYS-0 *3*OUTPUTS *3*OUTPUT-TYPES (*1*EXTERNALIZE-PARENTS *3*OUTPUTS *3*DELAYS *3*INPUTS *3*OUTPUTS) *3*INPUTS *3*OUTPUTS *3*APPROXP))))) (PUT1-LST (QUOTE *1*DELAYS-ERROR) (QUOTE (SEXPR (LAMBDA (*3*DELAYS) (*1*ERR-AND *3*DELAYS (QUOTE BAD-DELAYS)))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-OUTS) (CONS *3*M-OUTS (*1*PAIRLIST *3*M-INS (*1*LISTIFY *3*M-INS))))))) (PUT1-LST (QUOTE *1*ADD-OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*OUT-DEPENDS *3*ARG-MAP *3*DEPS-MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (*1*ADD-OUT-DEPENDS (CDR *3*OUTPUTS) (*1*CDR *3*OUT-DEPENDS) *3*ARG-MAP (CONS (CONS (CAR *3*OUTPUTS) (*1*UNION-VALUES (SETQ *2*TEMP1 (*1*COLLECT-VALUE (*1*CAR *3*OUT-DEPENDS) *3*ARG-MAP)) *3*DEPS-MAP)) (CONS (*1*ALL-BOUND-OR-ERR *2*TEMP1 *3*DEPS-MAP (CONS (QUOTE OUTPUT) (CONS (CAR *3*OUTPUTS) (QUOTE NIL)))) *3*DEPS-MAP)))) (T *3*DEPS-MAP))))))) (PUT1-LST (QUOTE *1*UPDATE-OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*OUT-DEPENDS *3*O-OUTS *3*O-FN-PROPS *3*O-INS *3*ARG-MAP) (CONS (*1*UNION *3*O-INS (*1*CAR *3*OUT-DEPENDS)) (*1*ADD-OUT-DEPENDS *3*O-OUTS (*1*VALUE (QUOTE OUT-DEPENDS) *3*O-FN-PROPS) *3*ARG-MAP (*1*CDR *3*OUT-DEPENDS))))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*OUTPUTS *3*DEPENDENCIES) (*1*COLLECT-VALUE *3*OUTPUTS (*1*CDR *3*DEPENDENCIES)))))) (PUT1-LST (QUOTE *1*COLLECT-OUT-DEPENDS-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*DEPS-MAP *3*USED-SIGNALS) (LET NIL (COND ((AND (CONSP *3*DEPS-MAP) (NOT (EQ (CAR *3*DEPS-MAP) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (CAR *3*DEPS-MAP)) *1*F)) (COND ((NOT (EQ (*1*MEMBER (*1*CAR (*1*CDR (*1*ERROR-LABEL (CAR *3*DEPS-MAP)))) *3*USED-SIGNALS) *1*F)) (CONS (CAR *3*DEPS-MAP) (*1*COLLECT-OUT-DEPENDS-ERRORS (CDR *3*DEPS-MAP) *3*USED-SIGNALS))) (T (*1*COLLECT-OUT-DEPENDS-ERRORS (CDR *3*DEPS-MAP) *3*USED-SIGNALS)))) (T (*1*COLLECT-OUT-DEPENDS-ERRORS (CDR *3*DEPS-MAP) *3*USED-SIGNALS)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS-ERROR) (QUOTE (SEXPR (LAMBDA (*3*DEPENDENCIES) (*1*NLISTP-OR-ERR (*1*COLLECT-OUT-DEPENDS-ERRORS (*1*CDR *3*DEPENDENCIES) (*1*CAR *3*DEPENDENCIES)) (QUOTE UNBOUND-OUTPUT-DEPENDENCIES)))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-STATE-TYPES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*UPDATE-STATE-TYPES) (QUOTE (SEXPR (LAMBDA (*3*STATE-TYPES *3*O-NAME *3*O-FN-PROPS) (COND ((NOT (EQ (*1*BOUNDP (QUOTE STATE-TYPES) *3*O-FN-PROPS) *1*F)) (CONS (CONS *3*O-NAME (*1*VALUE (QUOTE STATE-TYPES) *3*O-FN-PROPS)) *3*STATE-TYPES)) (T *3*STATE-TYPES)))))) (PUT1-LST (QUOTE *1*COLLECT-STATE-TYPES) (QUOTE (SEXPR (LAMBDA (*3*STATES *3*STATE-TYPES) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP *3*STATES) (NOT (EQ (CAR *3*STATES) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*STATES (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*COLLECT-VALUE-OR-UNKNOWN *3*STATES *3*STATE-TYPES)) (T (*1*VALUE-OR-UNKNOWN *3*STATES *3*STATE-TYPES))))))) (PUT1-LST (QUOTE *1*STATE-TYPES-ERROR) (QUOTE (SEXPR (LAMBDA (*3*STATE-TYPES *3*STATES) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*T-OR-ERR (*1*SET-EQUAL (SETQ *2*TEMP1 (*1*STRIP-CARS *3*STATE-TYPES)) (*1*M-STATES-LIST *3*STATES)) (QUOTE BAD-STATE-TYPES) (CONS (CONS (QUOTE MODULE-STATES) (CONS *3*STATES (QUOTE NIL))) (CONS (CONS (QUOTE COMPUTED-STATES) (CONS *2*TEMP1 (QUOTE NIL))) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-TRI-STATE-DATA) (QUOTE (SEXPR (LAMBDA (*3*M-OUTS) (CONS (CONS (QUOTE FREE-SIGNALS) *3*M-OUTS) (QUOTE ((T-WIRE-INS) (SYNONYMS)))))))) (PUT1-LST (QUOTE *1*FUNCTION-T-WIRE-INS) (QUOTE (SEXPR (LAMBDA (*3*FN *3*DATA) (COND ((NOT (EQ (*1*BOUNDP (QUOTE TRI-STATE-DATA) *3*DATA) *1*F)) (*1*VALUE (QUOTE T-WIRE-INS) (*1*VALUE (QUOTE TRI-STATE-DATA) *3*DATA))) ((EQ *3*FN (QUOTE T-WIRE)) (*1*VALUE (QUOTE INPUTS) *3*DATA)) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*FUNCTION-SYNONYMS) (QUOTE (SEXPR (LAMBDA (*3*FN *3*DATA) (COND ((NOT (EQ (*1*BOUNDP (QUOTE TRI-STATE-DATA) *3*DATA) *1*F)) (*1*VALUE (QUOTE SYNONYMS) (*1*VALUE (QUOTE TRI-STATE-DATA) *3*DATA))) ((EQ *3*FN (QUOTE ID)) (*1*PAIRLIST (*1*VALUE (QUOTE OUTPUTS) *3*DATA) (*1*VALUE (QUOTE INPUTS) *3*DATA))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*ADD-SYNONYMS) (QUOTE (SEXPR (LAMBDA (*3*F-SYNONYMS *3*IN-MAP *3*OUT-MAP *3*SLIST) (COND ((AND (CONSP *3*F-SYNONYMS) (NOT (EQ (CAR *3*F-SYNONYMS) (QUOTE *1*QUOTE)))) (*1*ADD-SYNONYMS (CDR *3*F-SYNONYMS) *3*IN-MAP *3*OUT-MAP (CONS (CONS (*1*VALUE (*1*CAR (CAR *3*F-SYNONYMS)) *3*OUT-MAP) (*1*VALUE2 (*1*CDR (CAR *3*F-SYNONYMS)) *3*IN-MAP *3*OUT-MAP)) *3*SLIST))) (T *3*SLIST)))))) (PUT1-LST (QUOTE *1*UPDATE-TRI-STATE-DATA) (QUOTE (SEXPR (LAMBDA (*3*DATA *3*O-INS *3*O-FN *3*O-FN-DATA *3*IN-MAP *3*OUT-MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (CONS (QUOTE FREE-SIGNALS) (*1*UNION (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*COLLECT-VALUE2 (*1*FUNCTION-T-WIRE-INS *3*O-FN *3*O-FN-DATA) *3*IN-MAP *3*OUT-MAP))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*SET-DIFF *3*O-INS *2*TEMP1)) ((EQ *3*O-FN (QUOTE ID)) (QUOTE NIL)) (T *3*O-INS)) (*1*VALUE (QUOTE FREE-SIGNALS) *3*DATA))) (CONS (CONS (QUOTE T-WIRE-INS) (*1*APPEND *2*TEMP1 (*1*VALUE (QUOTE T-WIRE-INS) *3*DATA))) (CONS (CONS (QUOTE SYNONYMS) (*1*ADD-SYNONYMS (*1*FUNCTION-SYNONYMS *3*O-FN *3*O-FN-DATA) *3*IN-MAP *3*OUT-MAP (*1*VALUE (QUOTE SYNONYMS) *3*DATA))) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*IO-SIGNAL-RENAMES) (QUOTE (SEXPR (LAMBDA (*3*SYNONYMS *3*IO-SIGNALS *3*SLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*SYNONYMS) (NOT (EQ (CAR *3*SYNONYMS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*AND (*1*OR (*1*IO-OUTP (SETQ *2*TEMP2 (*1*CAR (CAR *3*SYNONYMS)))) (*1*OR (*1*IO-OUTP (SETQ *2*TEMP1 (*1*PARENT-SYNONYM (*1*CDR (CAR *3*SYNONYMS)) *3*SLIST))) (*1*MEMBER *2*TEMP1 *3*IO-SIGNALS))) (*1*NOT (COND ((EQUAL *2*TEMP2 *2*TEMP1) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (CONS (CONS *2*TEMP2 *2*TEMP1) (*1*IO-SIGNAL-RENAMES (CDR *3*SYNONYMS) *3*IO-SIGNALS *3*SLIST))) (T (*1*IO-SIGNAL-RENAMES (CDR *3*SYNONYMS) *3*IO-SIGNALS *3*SLIST)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*IO-RENAME-ERROR) (QUOTE (SEXPR (LAMBDA (*3*SYNONYMS *3*IO-SIGNALS) (*1*NLISTP-OR-ERR (*1*IO-SIGNAL-RENAMES *3*SYNONYMS *3*IO-SIGNALS *3*SYNONYMS) (QUOTE RENAMED-IO-SIGNALS)))))) (PUT1-LST (QUOTE *1*T-WIRE-ERROR) (QUOTE (SEXPR (LAMBDA (*3*FREE-SIGNALS *3*T-WIRE-INS) (*1*ERR-AND (CONS (*1*DISJOINT-OR-ERR (*1*REMOVE-DUPLICATES *3*T-WIRE-INS) *3*FREE-SIGNALS (QUOTE T-WIRE-INS-USED-ELSEWHERE)) (CONS (*1*NO-DUPLICATES-OR-ERR *3*T-WIRE-INS (QUOTE DUPLICATE-T-WIRE-INPUTS)) (QUOTE NIL))) (QUOTE T-WIRE-ERRORS)))))) (PUT1-LST (QUOTE *1*COMPOSE-TRI-STATE-DATA) (QUOTE (SEXPR (LAMBDA (*3*DATA *3*IO-SIGNALS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (CONS (QUOTE FREE-SIGNALS) (SETQ *2*TEMP3 (*1*PARENT-SYNONYMS-LIST (*1*VALUE (QUOTE FREE-SIGNALS) *3*DATA) (SETQ *2*TEMP2 (*1*VALUE (QUOTE SYNONYMS) *3*DATA))))) (CONS (CONS (QUOTE T-WIRE-INS) (SETQ *2*TEMP1 (*1*PARENT-SYNONYMS-LIST (*1*VALUE (QUOTE T-WIRE-INS) *3*DATA) *2*TEMP2))) (CONS (CONS (QUOTE SYNONYMS) *2*TEMP2) (CONS (*1*IO-RENAME-ERROR *2*TEMP2 *3*IO-SIGNALS) (CONS (*1*T-WIRE-ERROR *2*TEMP3 *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*COLLECT-SYNONYMS) (QUOTE (SEXPR (LAMBDA (*3*M-OUTS *3*SYNONYMS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*M-OUTS) (NOT (EQ (CAR *3*M-OUTS) (QUOTE *1*QUOTE)))) (COND ((EQUAL (CAR *3*M-OUTS) (SETQ *2*TEMP1 (*1*PARENT-SYNONYM (CAR *3*M-OUTS) *3*SYNONYMS))) (*1*COLLECT-SYNONYMS (CDR *3*M-OUTS) *3*SYNONYMS)) (T (CONS (CONS (CAR *3*M-OUTS) *2*TEMP1) (*1*COLLECT-SYNONYMS (CDR *3*M-OUTS) *3*SYNONYMS))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*COLLECT-TRI-STATE-DATA) (QUOTE (SEXPR (LAMBDA (*3*M-INS *3*M-OUTS *3*DATA) (CONS (CONS (QUOTE T-WIRE-INS) (*1*INTERSECTION *3*M-INS (*1*VALUE (QUOTE T-WIRE-INS) *3*DATA))) (CONS (CONS (QUOTE SYNONYMS) (*1*COLLECT-SYNONYMS *3*M-OUTS (*1*EXTERNALIZE-PARENTS *3*M-OUTS (*1*VALUE (QUOTE SYNONYMS) *3*DATA) *3*M-INS *3*M-OUTS))) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*TRI-STATE-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP4 (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*ERROR-ENTRY *3*DATA (QUOTE RENAMED-IO-SIGNALS))))) (SETQ *2*TEMP2 (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*ERROR-ENTRY *3*DATA (QUOTE T-WIRE-ERRORS)))))) *1*F)) (CONS *2*TEMP3 (CONS *2*TEMP1 (QUOTE NIL)))) ((NOT (EQ *2*TEMP4 *1*F)) *2*TEMP3) ((NOT (EQ *2*TEMP2 *1*F)) *2*TEMP1) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*INITIAL-OCC-DATA) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*M-INS *3*M-OUTS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*PROPS) (NOT (EQ (CAR *3*PROPS) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (SETQ *2*TEMP2 (COND ((EQ (CAR *3*PROPS) (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (*1*INITIAL-OCC-DELAYS))) ((EQ (CAR *3*PROPS) (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (*1*INITIAL-OCC-DRIVES))) ((EQ (CAR *3*PROPS) (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) (*1*INITIAL-OCC-IN-TYPES))) ((EQ (CAR *3*PROPS) (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (*1*INITIAL-OCC-LOADINGS))) ((EQ (CAR *3*PROPS) (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (*1*INITIAL-OCC-OUT-DEPENDS *3*M-INS *3*M-OUTS))) ((EQ (CAR *3*PROPS) (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) (*1*INITIAL-OCC-OUT-TYPES))) ((EQ (CAR *3*PROPS) (QUOTE STATE-TYPES)) (CONS (QUOTE STATE-TYPES) (*1*INITIAL-OCC-STATE-TYPES))) ((EQ (CAR *3*PROPS) (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (*1*INITIAL-OCC-TRI-STATE-DATA *3*M-OUTS))) ((NOT (EQ (SETQ *2*TEMP1 (*1*MEMBER (CAR *3*PROPS) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS)))) *1*F)) (CONS (CAR *3*PROPS) (QUOTE 0))) (T (QUOTE NIL))))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (CONS *2*TEMP2 (*1*INITIAL-OCC-DATA (CDR *3*PROPS) *3*M-INS *3*M-OUTS))) (T (*1*INITIAL-OCC-DATA (CDR *3*PROPS) *3*M-INS *3*M-OUTS)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*UPDATE-OPROP-BINDING) (QUOTE (SEXPR (LAMBDA (*3*O-NAME *3*O-INS *3*O-OUTS *3*O-FN *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP *3*BINDING) (COND ((AND (CONSP *3*BINDING) (NOT (EQ (CAR *3*BINDING) (QUOTE *1*QUOTE)))) (CONS (CAR *3*BINDING) (COND ((EQ (CAR *3*BINDING) (QUOTE DELAYS)) (*1*UPDATE-DELAYS (CDR *3*BINDING) *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP)) ((EQ (CAR *3*BINDING) (QUOTE DRIVES)) (*1*UPDATE-DRIVES (CDR *3*BINDING) *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP)) ((EQ (CAR *3*BINDING) (QUOTE INPUT-TYPES)) (*1*UPDATE-IN-TYPES (CDR *3*BINDING) *3*O-INS *3*O-FN-PROPS)) ((EQ (CAR *3*BINDING) (QUOTE LOADINGS)) (*1*UPDATE-LOADINGS (CDR *3*BINDING) *3*O-INS *3*O-FN-PROPS)) ((EQ (CAR *3*BINDING) (QUOTE OUT-DEPENDS)) (*1*UPDATE-OUT-DEPENDS (CDR *3*BINDING) *3*O-OUTS *3*O-FN-PROPS *3*O-INS *3*IN-MAP)) ((EQ (CAR *3*BINDING) (QUOTE OUTPUT-TYPES)) (*1*UPDATE-OUT-TYPES (CDR *3*BINDING) *3*O-OUTS *3*O-FN-PROPS *3*IN-MAP)) ((EQ (CAR *3*BINDING) (QUOTE STATE-TYPES)) (*1*UPDATE-STATE-TYPES (CDR *3*BINDING) *3*O-NAME *3*O-FN-PROPS)) ((EQ (CAR *3*BINDING) (QUOTE TRI-STATE-DATA)) (*1*UPDATE-TRI-STATE-DATA (CDR *3*BINDING) *3*O-INS *3*O-FN *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP)) ((NOT (EQ (*1*MEMBER (CAR *3*BINDING) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) *1*F)) (*1*PLUS (*1*VALUE (CAR *3*BINDING) *3*O-FN-PROPS) (CDR *3*BINDING))) (T (CDR *3*BINDING))))) (T *3*BINDING)))))) (PUT1-LST (QUOTE *1*UPDATE-OCC-BINDINGS) (QUOTE (SEXPR (LAMBDA (*3*O-NAME *3*O-INS *3*O-OUTS *3*O-FN *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP *3*BINDINGS) (COND ((AND (CONSP *3*BINDINGS) (NOT (EQ (CAR *3*BINDINGS) (QUOTE *1*QUOTE)))) (CONS (*1*UPDATE-OPROP-BINDING *3*O-NAME *3*O-INS *3*O-OUTS *3*O-FN *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP (CAR *3*BINDINGS)) (*1*UPDATE-OCC-BINDINGS *3*O-NAME *3*O-INS *3*O-OUTS *3*O-FN *3*O-FN-PROPS *3*IN-MAP *3*OUT-MAP (CDR *3*BINDINGS)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*FUNCTION-PROPERTIES) (QUOTE (SEXPR (LAMBDA (*3*FN *3*DATABASE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*PRIMP *3*FN)) *1*F)) (*1*CDR *2*TEMP1)) (T (*1*VALUE *3*FN *3*DATABASE)))))))) (PUT1-LST (QUOTE *1*COLLECT-OCCURRENCE-DATA) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*BINDINGS *3*IO-OUTPUTS *3*IO-SIGNALS *3*DATABASE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((AND (CONSP *3*BODY) (NOT (EQ (CAR *3*BODY) (QUOTE *1*QUOTE)))) (*1*COLLECT-OCCURRENCE-DATA (CDR *3*BODY) (*1*UPDATE-OCC-BINDINGS (*1*OCC-NAME (CAR *3*BODY)) (SETQ *2*TEMP5 (*1*MARK-IO-OUTS (*1*OCC-INPUTS (CAR *3*BODY)) *3*IO-OUTPUTS)) (SETQ *2*TEMP4 (*1*MARK-IO-OUTS (SETQ *2*TEMP3 (*1*OCC-OUTPUTS (CAR *3*BODY))) *3*IO-SIGNALS)) (SETQ *2*TEMP2 (*1*OCC-FUNCTION (CAR *3*BODY))) (SETQ *2*TEMP1 (*1*FUNCTION-PROPERTIES *2*TEMP2 *3*DATABASE)) (*1*PAIRLIST (*1*VALUE (QUOTE INPUTS) *2*TEMP1) *2*TEMP5) (*1*PAIRLIST (*1*VALUE (QUOTE OUTPUTS) *2*TEMP1) *2*TEMP4) *3*BINDINGS) (*1*APPEND (*1*INTERSECTION *3*IO-SIGNALS *2*TEMP3) *3*IO-OUTPUTS) *3*IO-SIGNALS *3*DATABASE)) (T *3*BINDINGS))))))) (PUT1-LST (QUOTE *1*COMPOSED-IO-TYPES) (QUOTE (SEXPR (LAMBDA (*3*IN-TYPES *3*OUT-TYPES *3*TRI-STATE-DATA *3*IO-SIGNALS) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (CONS (QUOTE TRI-STATE-DATA) (*1*COMPOSE-TRI-STATE-DATA *3*TRI-STATE-DATA *3*IO-SIGNALS)) (CONS (CONS (QUOTE INPUT-TYPES) (*1*CAR (SETQ *2*TEMP1 (*1*COMPOSE-IO-TYPES *3*IN-TYPES *3*OUT-TYPES (*1*VALUE (QUOTE T-WIRE-INS) *3*TRI-STATE-DATA))))) (CONS (CONS (QUOTE OUTPUT-TYPES) (*1*CDR *2*TEMP1)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*COMPOSED-LOADINGS-DRIVES-DELAYS) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS *3*DRIVES *3*DELAYS) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (CONS (QUOTE DELAYS) (*1*LOADED-DELAYS *3*DELAYS (SETQ *2*TEMP1 (*1*TRANSFER-LOADINGS *3*LOADINGS *3*DRIVES)))) (CONS (CONS (QUOTE DRIVES) (*1*NET-DRIVES-SIMPLE *3*DRIVES *2*TEMP1)) (CONS (CONS (QUOTE LOADINGS) *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ADD-COMPOSED-DATA) (QUOTE (SEXPR (LAMBDA (*3*PROP-NAME *3*BINDINGS *3*IO-SIGNALS *3*RESULT) (COND ((NOT (EQ (*1*OR (*1*BOUNDP *3*PROP-NAME *3*RESULT) (*1*NOT (*1*BOUNDP *3*PROP-NAME *3*BINDINGS))) *1*F)) *3*RESULT) ((NOT (EQ (*1*MEMBER *3*PROP-NAME (QUOTE (INPUT-TYPES OUTPUT-TYPES TRI-STATE-DATA))) *1*F)) (*1*APPEND (*1*COMPOSED-IO-TYPES (*1*VALUE (QUOTE INPUT-TYPES) *3*BINDINGS) (*1*VALUE (QUOTE OUTPUT-TYPES) *3*BINDINGS) (*1*VALUE (QUOTE TRI-STATE-DATA) *3*BINDINGS) *3*IO-SIGNALS) *3*RESULT)) ((NOT (EQ (*1*MEMBER *3*PROP-NAME (QUOTE (LOADINGS DRIVES DELAYS))) *1*F)) (*1*APPEND (*1*COMPOSED-LOADINGS-DRIVES-DELAYS (*1*VALUE (QUOTE LOADINGS) *3*BINDINGS) (*1*VALUE (QUOTE DRIVES) *3*BINDINGS) (*1*VALUE (QUOTE DELAYS) *3*BINDINGS)) *3*RESULT)) (T (CONS (*1*ALIST-ENTRY *3*PROP-NAME *3*BINDINGS) *3*RESULT))))))) (PUT1-LST (QUOTE *1*COMPOSED-OCCURRENCE-DATA) (QUOTE (SEXPR (LAMBDA (*3*BINDINGS *3*IO-SIGNALS *3*RESULT) (COND ((AND (CONSP *3*BINDINGS) (NOT (EQ (CAR *3*BINDINGS) (QUOTE *1*QUOTE)))) (*1*COMPOSED-OCCURRENCE-DATA (CDR *3*BINDINGS) *3*IO-SIGNALS (COND ((NOT (EQ (*1*NLISTP (CAR *3*BINDINGS)) *1*F)) (CONS (CAR *3*BINDINGS) *3*RESULT)) (T (*1*ADD-COMPOSED-DATA (*1*CAR (CAR *3*BINDINGS)) *3*BINDINGS *3*IO-SIGNALS *3*RESULT))))) (T *3*RESULT)))))) (PUT1-LST (QUOTE *1*COMPOSE-OCCURRENCE-DATA) (QUOTE (SEXPR (LAMBDA (*3*BINDINGS *3*IO-SIGNALS) (*1*COMPOSED-OCCURRENCE-DATA *3*BINDINGS *3*IO-SIGNALS (QUOTE NIL)))))) (PUT1-LST (QUOTE *1*OCCURRENCE-DATA) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*BODY *3*M-INS *3*M-OUTS *3*IO-SIGNALS *3*DATABASE) (*1*COMPOSE-OCCURRENCE-DATA (*1*COLLECT-OCCURRENCE-DATA *3*BODY (*1*INITIAL-OCC-DATA *3*PROPS *3*M-INS *3*M-OUTS) (QUOTE NIL) *3*IO-SIGNALS *3*DATABASE) *3*IO-SIGNALS))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-PROP) (QUOTE (SEXPR (LAMBDA (*3*PROP-NAME *3*M-INS *3*IN-TYPES *3*M-OUTS *3*OUT-TYPES *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P) (LET NIL (COND ((EQ *3*PROP-NAME (QUOTE DELAYS)) (CONS (QUOTE DELAYS) (*1*COLLECT-DELAYS *3*M-OUTS *3*OUT-TYPES (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS)) *3*M-INS *3*APPROXIMATE-DELAYS-P))) ((EQ *3*PROP-NAME (QUOTE DRIVES)) (CONS (QUOTE DRIVES) (*1*COLLECT-DRIVES *3*M-OUTS *3*OUT-TYPES (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS)) *3*M-INS))) ((EQ *3*PROP-NAME (QUOTE INPUT-TYPES)) (CONS (QUOTE INPUT-TYPES) *3*IN-TYPES)) ((EQ *3*PROP-NAME (QUOTE INPUTS)) (CONS (QUOTE INPUTS) *3*M-INS)) ((EQ *3*PROP-NAME (QUOTE LOADINGS)) (CONS (QUOTE LOADINGS) (*1*COLLECT-LOADINGS *3*M-INS *3*IN-TYPES (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS))))) ((EQ *3*PROP-NAME (QUOTE OUT-DEPENDS)) (CONS (QUOTE OUT-DEPENDS) (*1*COLLECT-OUT-DEPENDS *3*M-OUTS (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS))))) ((EQ *3*PROP-NAME (QUOTE OUTPUT-TYPES)) (CONS (QUOTE OUTPUT-TYPES) *3*OUT-TYPES)) ((EQ *3*PROP-NAME (QUOTE OUTPUTS)) (CONS (QUOTE OUTPUTS) (*1*UNMARK-IO-OUTS *3*M-OUTS))) ((EQ *3*PROP-NAME (QUOTE STATE-TYPES)) (COND ((EQ *3*M-STATES (QUOTE NIL)) (QUOTE NIL)) (T (CONS (QUOTE STATE-TYPES) (*1*COLLECT-STATE-TYPES *3*M-STATES (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS))))))) ((EQ *3*PROP-NAME (QUOTE STATES)) (COND ((EQ *3*M-STATES (QUOTE NIL)) (QUOTE NIL)) (T (CONS (QUOTE STATES) *3*M-STATES)))) ((EQ *3*PROP-NAME (QUOTE TRI-STATE-DATA)) (CONS (QUOTE TRI-STATE-DATA) (*1*COLLECT-TRI-STATE-DATA *3*M-INS *3*M-OUTS (*1*CDR (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS))))) (T (*1*ALIST-ENTRY *3*PROP-NAME *3*OBINDINGS)))))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-PROPS) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*M-INS *3*IN-TYPES *3*M-OUTS *3*OUT-TYPES *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*PROPS) (NOT (EQ (CAR *3*PROPS) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*COLLECT-MODULE-PROP (CAR *3*PROPS) *3*M-INS *3*IN-TYPES *3*M-OUTS *3*OUT-TYPES *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS *2*TEMP1 (*1*COLLECT-MODULE-PROPS (CDR *3*PROPS) *3*M-INS *3*IN-TYPES *3*M-OUTS *3*OUT-TYPES *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P))) (T (*1*COLLECT-MODULE-PROPS (CDR *3*PROPS) *3*M-INS *3*IN-TYPES *3*M-OUTS *3*OUT-TYPES *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*MODULE-PROP-ERROR) (QUOTE (SEXPR (LAMBDA (*3*OBINDING *3*M-STATES) (COND ((AND (CONSP *3*OBINDING) (NOT (EQ (CAR *3*OBINDING) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*OBINDING) (QUOTE DELAYS)) (*1*DELAYS-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE DRIVES)) (*1*DRIVES-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE INPUT-TYPES)) (*1*IN-TYPES-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE LOADINGS)) (*1*LOADINGS-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE OUT-DEPENDS)) (*1*OUT-DEPENDS-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE OUTPUT-TYPES)) (*1*OUT-TYPES-ERROR (CDR *3*OBINDING))) ((EQ (CAR *3*OBINDING) (QUOTE STATE-TYPES)) (*1*STATE-TYPES-ERROR (CDR *3*OBINDING) *3*M-STATES)) ((EQ (CAR *3*OBINDING) (QUOTE TRI-STATE-DATA)) (*1*TRI-STATE-ERRORS (CDR *3*OBINDING))) (T (QUOTE NIL)))) (T *3*OBINDING)))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*OBINDINGS *3*M-STATES) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*OBINDINGS) (NOT (EQ (CAR *3*OBINDINGS) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*MODULE-PROP-ERROR (CAR *3*OBINDINGS) *3*M-STATES))) *1*F)) (CONS *2*TEMP1 (*1*COLLECT-MODULE-ERRORS (CDR *3*OBINDINGS) *3*M-STATES))) ((AND (CONSP *2*TEMP1) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*APPEND *2*TEMP1 (*1*COLLECT-MODULE-ERRORS (CDR *3*OBINDINGS) *3*M-STATES))) (T (*1*COLLECT-MODULE-ERRORS (CDR *3*OBINDINGS) *3*M-STATES)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*COLLECT-MODULE-DATA) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*M-NAME *3*M-INS *3*M-OUTS *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*NLISTP-OR-ERR (*1*COLLECT-MODULE-ERRORS *3*OBINDINGS *3*M-STATES) (CONS (QUOTE MODULE) (CONS *3*M-NAME (QUOTE NIL)))))) *1*F)) (CONS *3*M-NAME (CONS *2*TEMP2 (*1*COLLECT-MODULE-PROPS *3*PROPS *3*M-INS (COND ((NOT (EQ (*1*MEMBER (QUOTE INPUT-TYPES) *3*PROPS) *1*F)) (*1*COLLECT-IN-TYPES *3*M-INS (SETQ *2*TEMP1 (*1*VALUE (QUOTE INPUT-TYPES) *3*OBINDINGS)))) (T (QUOTE NIL))) *3*M-OUTS (COND ((NOT (EQ (*1*MEMBER (QUOTE OUTPUT-TYPES) *3*PROPS) *1*F)) (*1*COLLECT-OUT-TYPES *3*M-OUTS (*1*VALUE (QUOTE OUTPUT-TYPES) *3*OBINDINGS) *3*M-INS (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*VALUE (QUOTE INPUT-TYPES) *3*OBINDINGS))))) (T (QUOTE NIL))) *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P)))) (T (CONS *3*M-NAME (*1*COLLECT-MODULE-PROPS *3*PROPS *3*M-INS (COND ((NOT (EQ (*1*MEMBER (QUOTE INPUT-TYPES) *3*PROPS) *1*F)) (*1*COLLECT-IN-TYPES *3*M-INS (SETQ *2*TEMP1 (*1*VALUE (QUOTE INPUT-TYPES) *3*OBINDINGS)))) (T (QUOTE NIL))) *3*M-OUTS (COND ((NOT (EQ (*1*MEMBER (QUOTE OUTPUT-TYPES) *3*PROPS) *1*F)) (*1*COLLECT-OUT-TYPES *3*M-OUTS (*1*VALUE (QUOTE OUTPUT-TYPES) *3*OBINDINGS) *3*M-INS (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*VALUE (QUOTE INPUT-TYPES) *3*OBINDINGS))))) (T (QUOTE NIL))) *3*M-STATES *3*OBINDINGS *3*APPROXIMATE-DELAYS-P))))))))) (PUT1-LST (QUOTE *1*MODULE-DATA) (QUOTE (SEXPR (LAMBDA (*3*MODULE *3*PROPS *3*DATABASE *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (*1*COLLECT-MODULE-DATA *3*PROPS (*1*MODULE-NAME *3*MODULE) (SETQ *2*TEMP4 (*1*MODULE-INPUTS *3*MODULE)) (SETQ *2*TEMP3 (*1*MARK-IO-OUTS (SETQ *2*TEMP2 (*1*MODULE-OUTPUTS *3*MODULE)) (SETQ *2*TEMP1 (*1*INTERSECTION *2*TEMP4 *2*TEMP2)))) (*1*MODULE-STATENAMES *3*MODULE) (*1*OCCURRENCE-DATA *3*PROPS (*1*MODULE-OCCURRENCES *3*MODULE) *2*TEMP4 *2*TEMP3 *2*TEMP1 *3*DATABASE) *3*APPROXIMATE-DELAYS-P)))))) (PUT1-LST (QUOTE *1*MODULE-DATABASE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*PROPS *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*NETLIST) (NOT (EQ (CAR *3*NETLIST) (QUOTE *1*QUOTE)))) (CONS (*1*MODULE-DATA (CAR *3*NETLIST) *3*PROPS (SETQ *2*TEMP1 (*1*MODULE-DATABASE (CDR *3*NETLIST) *3*PROPS *3*APPROXIMATE-DELAYS-P)) *3*APPROXIMATE-DELAYS-P) *2*TEMP1)) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*REQUIRED-FOR-PROP) (QUOTE (SEXPR (LAMBDA (*3*PROP) (COND ((EQ *3*PROP (QUOTE DELAYS)) (QUOTE (DELAYS LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA))) ((EQ *3*PROP (QUOTE DRIVES)) (QUOTE (DRIVES LOADINGS INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA))) ((EQ *3*PROP (QUOTE INPUT-TYPES)) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA))) ((EQ *3*PROP (QUOTE LOADINGS)) (QUOTE (LOADINGS DRIVES INPUT-TYPES OUTPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA))) ((EQ *3*PROP (QUOTE OUT-DEPENDS)) (QUOTE (OUT-DEPENDS INPUTS OUTPUTS))) ((EQ *3*PROP (QUOTE OUTPUT-TYPES)) (QUOTE (OUTPUT-TYPES INPUT-TYPES INPUTS OUTPUTS TRI-STATE-DATA))) ((NOT (EQ (*1*MEMBER *3*PROP (*1*ALL-MODULE-PROPS)) *1*F)) (CONS *3*PROP (QUOTE NIL))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*GET-REQUIRED-PROPS) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*WANTED-PROPS) (COND ((AND (CONSP *3*PROPS) (NOT (EQ (CAR *3*PROPS) (QUOTE *1*QUOTE)))) (*1*UNION (*1*REQUIRED-FOR-PROP (CAR *3*PROPS)) (*1*GET-REQUIRED-PROPS (CDR *3*PROPS) *3*WANTED-PROPS))) (T *3*WANTED-PROPS)))))) (PUT1-LST (QUOTE *1*REQUIRED-PROPS) (QUOTE (SEXPR (LAMBDA (*3*PROPS) (*1*GET-REQUIRED-PROPS *3*PROPS *3*PROPS))))) (PUT1-LST (QUOTE *1*UNBIND-NETLIST-PROPS-0) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*DATABASE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((AND (CONSP *3*DATABASE) (NOT (EQ (CAR *3*DATABASE) (QUOTE *1*QUOTE)))) (CONS (CONS (*1*CAR (CAR *3*DATABASE)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*CDR (CAR *3*DATABASE)))))) *1*F)) (CONS *2*TEMP2 (*1*UNBIND-LIST *3*PROPS (*1*CDR *2*TEMP1)))) (T (*1*UNBIND-LIST *3*PROPS *2*TEMP1)))) (*1*UNBIND-NETLIST-PROPS-0 *3*PROPS (CDR *3*DATABASE)))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*UNBIND-NETLIST-PROPS) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*DATABASE) (COND ((AND (CONSP *3*PROPS) (NOT (EQ (CAR *3*PROPS) (QUOTE *1*QUOTE)))) (*1*UNBIND-NETLIST-PROPS-0 (*1*REVERSE *3*PROPS) *3*DATABASE)) (T *3*DATABASE)))))) (PUT1-LST (QUOTE *1*NETLIST-PROPERTIES) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*PROPS *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP4 (*1*SUBSET-OR-ERR *3*PROPS (*1*ALL-MODULE-PROPS) (QUOTE UNKNOWN-PROPERTIES)))) *1*F)) *2*TEMP4) ((AND (CONSP (SETQ *2*TEMP3 (*1*COLLECT-NET-ERRORS (SETQ *2*TEMP2 (*1*MODULE-DATABASE *3*NETLIST (SETQ *2*TEMP1 (*1*REQUIRED-PROPS *3*PROPS)) *3*APPROXIMATE-DELAYS-P))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (*1*PRED-ERROR (QUOTE NETLIST-ERRORS) *2*TEMP3)) (T (*1*UNBIND-NETLIST-PROPS (*1*SET-DIFF *2*TEMP1 *3*PROPS) *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*NETLIST-DATABASE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*APPROXIMATE-DELAYS-P) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*UNBIND-NETLIST-PROPS (*1*SET-DIFF (SETQ *2*TEMP2 (*1*REQUIRED-PROPS (SETQ *2*TEMP1 (*1*ALL-MODULE-PROPS)))) *2*TEMP1) (*1*MODULE-DATABASE *3*NETLIST *2*TEMP2 *3*APPROXIMATE-DELAYS-P))))))) (PUT1-LST (QUOTE *1*PREDICATE-PROPERTIES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DRIVES INPUT-TYPES LOADINGS OUT-DEPENDS OUTPUT-TYPES STATE-TYPES)))))) (PUT1-LST (QUOTE *1*TOP-LEVEL-PREDICATE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*NETLIST-SYNTAX-OK *3*NETLIST))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*NETLIST-PROPERTIES *3*NETLIST (*1*PREDICATE-PROPERTIES) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP1) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*LSI-TOP-LEVEL-PREDICATE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TOKEN-SIZE *3*MAX-HIERARCHICAL-NAME-LENGTH) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*LSI-NETLIST-SYNTAX-OK *3*NETLIST *3*TOKEN-SIZE *3*MAX-HIERARCHICAL-NAME-LENGTH))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*NETLIST-PROPERTIES *3*NETLIST (*1*PREDICATE-PROPERTIES) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP1) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*PNAME-LISTP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (*1*NAME-OKP (CAR *3*X)) (*1*AND (*1*NOT (*1*MEMBER (CAR *3*X) (CDR *3*X))) (*1*PNAME-LISTP (CDR *3*X))))) ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*FUNCTION-CALL-OK) (QUOTE (SEXPR (LAMBDA (*3*X *3*NUMBER-OF-ARGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*LITATOM (SETQ *2*TEMP2 (*1*CAR *3*X)))) *1*F)) (COND ((NOT (EQ (*1*PROPERP *3*X) *1*F)) (COND ((NOT (EQ (*1*NUMBERP *3*NUMBER-OF-ARGS) *1*F)) (*1*T-OR-ERR (COND ((EQUAL (SETQ *2*TEMP1 (*1*LENGTH (*1*CDR *3*X))) *3*NUMBER-OF-ARGS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (CONS (QUOTE FUNCTION) (CONS *2*TEMP2 (CONS (QUOTE HAS) (CONS *3*NUMBER-OF-ARGS (QUOTE (ARGS)))))) (CONS (QUOTE IT) (CONS (QUOTE IS) (CONS (QUOTE GIVEN) (CONS *2*TEMP1 (CONS (QUOTE IN) (CONS *3*X (QUOTE NIL))))))))) (T (QUOTE *1*TRUE)))) (T (*1*PRED-ERROR (QUOTE ILL-FORMED-FUNCTION-CALL) *3*X)))) (T (*1*PRED-ERROR (QUOTE NOT-FUNCTION-CALL) *3*X)))))))) (PUT1-LST (QUOTE *1*IO-LABEL) (QUOTE (SEXPR (LAMBDA (*3*ARG *3*WHAT) (LET NIL (COND ((NOT (EQ (*1*NUMBERP *3*ARG) *1*F)) (CONS (QUOTE UNKNOWN) (CONS *3*WHAT (CONS *3*ARG (QUOTE NIL))))) (T (CONS *3*WHAT (CONS *3*ARG (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*INPUT-LABEL) (QUOTE (SEXPR (LAMBDA (*3*INPUT) (*1*IO-LABEL *3*INPUT (QUOTE INPUT)))))) (PUT1-LST (QUOTE *1*OUTPUT-LABEL) (QUOTE (SEXPR (LAMBDA (*3*OUTPUT) (*1*IO-LABEL *3*OUTPUT (QUOTE OUTPUT)))))) (PUT1-LST (QUOTE *1*STATE-LABEL) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*IO-LABEL *3*STATE (QUOTE STATE)))))) (PUT1-LST (QUOTE *1*UCAR) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CAR *3*X)) (T (QUOTE (*1*QUOTE UNKNOWN)))))))) (PUT1-LST (QUOTE *1*UCDR) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CDR *3*X)) (T (QUOTE (*1*QUOTE UNKNOWN)))))))) (PUT1-LST (QUOTE *1*IO-CAR) (QUOTE (SEXPR (LAMBDA (*3*ARGS) (COND ((AND (CONSP *3*ARGS) (NOT (EQ (CAR *3*ARGS) (QUOTE *1*QUOTE)))) (CAR *3*ARGS)) ((NOT (EQ (*1*NUMBERP *3*ARGS) *1*F)) *3*ARGS) (T (QUOTE 1))))))) (PUT1-LST (QUOTE *1*IO-CDR) (QUOTE (SEXPR (LAMBDA (*3*ARGS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NUMBERP *3*ARGS) *1*F)) (*1*ADD1 *3*ARGS)) ((NOT (EQ (*1*NLISTP *3*ARGS) *1*F)) (QUOTE 2)) ((NOT (EQ (*1*NUMBERP (SETQ *2*TEMP1 (*1*CDR *3*ARGS))) *1*F)) (QUOTE NIL)) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*OUT-PROP-SIGNALS) (QUOTE (SEXPR (LAMBDA (*3*OUT-DEPENDS *3*INPUTS) (COND ((NOT (EQ (*1*UNKNOWNP *3*OUT-DEPENDS) *1*F)) *3*INPUTS) (T *3*OUT-DEPENDS)))))) (PUT1-LST (QUOTE *1*ID-OUT-PROP-SIGNALS) (QUOTE (SEXPR (LAMBDA (*3*OUTPUT-TYPE *3*OUT-DEPENDS *3*INPUTS) (COND ((AND (CONSP *3*OUTPUT-TYPE) (NOT (EQ (CAR *3*OUTPUT-TYPE) (QUOTE *1*QUOTE)))) *3*OUTPUT-TYPE) (T (*1*OUT-PROP-SIGNALS *3*OUT-DEPENDS *3*INPUTS))))))) (PUT1-LST (QUOTE *1*ALL-INPUT-TYPES) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE TTL TTL-TRI-STATE)))))) (PUT1-LST (QUOTE *1*ALL-OUTPUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*INPUTS) (*1*APPEND (*1*LISTIFY *3*INPUTS) (*1*DELETE* (QUOTE FREE) (*1*ALL-INPUT-TYPES))))))) (PUT1-LST (QUOTE *1*PIN-TYPE-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE *3*INPUT *3*IO-SIGNALS *3*FNAME) (*1*LABEL-ERROR (COND ((EQ *3*FNAME (QUOTE T-WIRE)) (*1*T-OR-ERR (COND ((EQ *3*TYPE (QUOTE TRI-STATE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE T-WIRE-INPUT-TYPE-NOT-TRI-STATE) *3*TYPE)) ((NOT (EQ (*1*MEMBER *3*INPUT *3*IO-SIGNALS) *1*F)) (*1*T-OR-ERR (*1*TRI-STATE-TYPEP *3*TYPE) (QUOTE BAD-IO-SIGNAL-TYPE) *3*TYPE)) (T (*1*T-OR-ERR (*1*MEMBER *3*TYPE (*1*ALL-INPUT-TYPES)) (QUOTE UNKNOWN-TYPE) *3*TYPE))) (*1*INPUT-LABEL *3*INPUT)))))) (PUT1-LST (QUOTE *1*PIN-TYPE-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*INPUTS *3*IO-SIGNALS *3*FNAME) (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*INPUTS) (NOT (EQ (CAR *3*INPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*INPUTS)) (QUOTE TOO-MANY-INPUT-TYPES) (CONS (*1*LENGTH *3*TYPES) (QUOTE (EXTRAS)))) (CONS (*1*PIN-TYPE-OK (CAR *3*TYPES) (*1*IO-CAR *3*INPUTS) *3*IO-SIGNALS *3*FNAME) (*1*PIN-TYPE-ERRORS (CDR *3*TYPES) (*1*IO-CDR *3*INPUTS) *3*IO-SIGNALS *3*FNAME)))) (T (CONS (*1*NIL-OR-ERR *3*TYPES (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*INPUTS (QUOTE INPUTS-WITHOUT-TYPES)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PIN-TYPES-OK) (QUOTE (SEXPR (LAMBDA (*3*IN-TYPES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (*1*PIN-TYPE-ERRORS *3*IN-TYPES (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE INPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP1)) (*1*INTERSECTION *2*TEMP1 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST)) (*1*VALUE (QUOTE PRIMP-NAME) *3*ALIST)) (QUOTE INPUT-TYPES))))))) (PUT1-LST (QUOTE *1*POUT-TYPE-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE *3*OUTPUT *3*OUT-DEPENDS *3*INPUTS *3*IO-SIGNALS *3*FNAME *3*IN-TYPE-MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*LABEL-ERROR (COND ((EQ *3*FNAME (QUOTE T-WIRE)) (*1*T-OR-ERR (COND ((EQ *3*TYPE (QUOTE TRI-STATE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE T-WIRE-OUTPUT-TYPE-NOT-TRI-STATE) *3*TYPE)) ((NOT (EQ (*1*MEMBER *3*OUTPUT *3*IO-SIGNALS) *1*F)) (COND ((NOT (EQ (*1*TRI-STATE-TYPEP *3*TYPE) *1*F)) (*1*T-OR-ERR (*1*OR (*1*NOT (*1*TRI-STATE-TYPEP (SETQ *2*TEMP2 (*1*VALUE *3*OUTPUT *3*IN-TYPE-MAP)))) (COND ((EQUAL *3*TYPE *2*TEMP2) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (QUOTE DIFFERENT-IO-SIGNAL-IN-AND-OUT-TYPES) (CONS (CONS (QUOTE INPUT-TYPE) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) (T (*1*PRED-ERROR (QUOTE BAD-IO-SIGNAL-TYPE) *3*TYPE)))) ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (*1*T-OR-ERR (*1*AND (*1*PROPERP *3*TYPE) (*1*AND (COND ((EQUAL (*1*LENGTH *3*TYPE) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*OUT-PROP-SIGNALS *3*OUT-DEPENDS *3*INPUTS))) *1*F)) (*1*NAME-OKP (CAR *3*TYPE))) (T (*1*MEMBER (CAR *3*TYPE) *2*TEMP1))))) (QUOTE UNKNOWN-TYPE) *3*TYPE)) (T (*1*T-OR-ERR (*1*MEMBER *3*TYPE (*1*ALL-OUTPUT-TYPES (QUOTE NIL))) (QUOTE UNKNOWN-TYPE) *3*TYPE))) (*1*OUTPUT-LABEL *3*OUTPUT))))))) (PUT1-LST (QUOTE *1*POUT-TYPE-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*OUTPUTS *3*OUT-DEPENDS *3*INPUTS *3*IO-SIGNALS *3*FNAME *3*IN-TYPE-MAP) (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*OUTPUTS)) (QUOTE TOO-MANY-OUTPUT-TYPES) (CONS (*1*LENGTH *3*TYPES) (QUOTE (EXTRAS)))) (CONS (*1*POUT-TYPE-OK (CAR *3*TYPES) (*1*IO-CAR *3*OUTPUTS) (*1*UCAR *3*OUT-DEPENDS) *3*INPUTS *3*IO-SIGNALS *3*FNAME *3*IN-TYPE-MAP) (*1*POUT-TYPE-ERRORS (CDR *3*TYPES) (*1*IO-CDR *3*OUTPUTS) (*1*UCDR *3*OUT-DEPENDS) *3*INPUTS *3*IO-SIGNALS *3*FNAME *3*IN-TYPE-MAP)))) (T (CONS (*1*NIL-OR-ERR *3*TYPES (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*OUTPUTS (QUOTE OUTPUTS-WITHOUT-TYPES)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*POUT-TYPES-OK) (QUOTE (SEXPR (LAMBDA (*3*OUT-TYPES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*ERR-AND (*1*POUT-TYPE-ERRORS *3*OUT-TYPES (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP2 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP2)) (*1*VALUE (QUOTE OUT-DEPENDS) *3*ALIST) (SETQ *2*TEMP1 (*1*VALUE (QUOTE INPUTS) *3*ALIST)) (*1*INTERSECTION *2*TEMP1 *2*TEMP2) (*1*VALUE (QUOTE PRIMP-NAME) *3*ALIST) (*1*PAIRLIST *2*TEMP1 (*1*VALUE (QUOTE INPUT-TYPES) *3*ALIST))) (QUOTE OUTPUT-TYPES))))))) (PUT1-LST (QUOTE *1*P-NAME-PROP-VALUE-OK) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*OUT-TYPE *3*OUT-DEPENDS *3*INPUTS *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*T-OR-ERR (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*ID-OUT-PROP-SIGNALS *3*OUT-TYPE *3*OUT-DEPENDS *3*INPUTS))) *1*F)) (*1*NAME-OKP *3*NAME)) (T (*1*MEMBER *3*NAME *2*TEMP1))) *3*LABEL *3*NAME)))))) (PUT1-LST (QUOTE *1*P-T-WIRE-ARGS-OK) (QUOTE (SEXPR (LAMBDA (*3*ARGS *3*OUT-DEPENDS *3*INPUTS *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*OUT-PROP-SIGNALS *3*OUT-DEPENDS *3*INPUTS))) *1*F)) (CONS (*1*NAME-LIST-OK *3*ARGS (QUOTE ILL-FORMED-ARGS) (QUOTE *1*FALSE)) (QUOTE NIL))) (T (CONS (*1*SUBSET-OR-ERR *3*ARGS *2*TEMP1 (QUOTE UNKNOWN-ARGS)) (CONS (*1*NO-DUPLICATES-OR-ERR *3*ARGS (QUOTE DUPLICATE-ARGS)) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*ARGS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))) *3*LABEL)))))) (PUT1-LST (QUOTE *1*PHALF-DELAY-OK) (QUOTE (SEXPR (LAMBDA (*3*D *3*TYPE *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (*1*LENGTH *3*D) (QUOTE 2)) (*1*ERR-AND (CONS (COND ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) *1*F)) (*1*T-OR-ERR (*1*NUMBERP (SETQ *2*TEMP2 (*1*CAR *3*D))) (QUOTE SLOPE-NOT-NUMBER) (CONS (CONS (QUOTE SLOPE) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (*1*T-OR-ERR (*1*PS-PFP (SETQ *2*TEMP2 (*1*CAR *3*D))) (QUOTE SLOPE-NOT-PS-PF) (CONS (CONS (QUOTE SLOPE) (CONS *2*TEMP2 (QUOTE NIL))) (CONS (CONS (QUOTE OUTPUT-TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) (T (*1*T-OR-ERR (*1*OR (*1*NUMBERP (SETQ *2*TEMP2 (*1*CAR *3*D))) (*1*PS-PFP *2*TEMP2)) (QUOTE SLOPE-NOT-NUMBER-OR-PS-PF) *2*TEMP2))) (CONS (*1*T-OR-ERR (*1*NUMBERP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *3*D)))) (QUOTE INTERCEPT-NOT-NUMBER) *2*TEMP1) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*D) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) *3*LABEL)) (T (*1*PRED-ERROR *3*LABEL (CONS (QUOTE LENGTH-NOT-2) (CONS *3*D (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*PDELAY-OK) (QUOTE (SEXPR (LAMBDA (*3*DELAY *3*OUTPUT *3*TYPE *3*OUT-DEPENDS *3*INPUTS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*LABEL-ERROR (COND ((NOT (EQ (*1*OR (*1*LITATOM *3*DELAY) (*1*INDEXP *3*DELAY)) *1*F)) (*1*P-NAME-PROP-VALUE-OK *3*DELAY *3*TYPE *3*OUT-DEPENDS *3*INPUTS (QUOTE UNKNOWN-DELAY))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*DELAY) (NOT (EQ (CAR *3*DELAY) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*DELAY)) (QUOTE OR)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*P-T-WIRE-ARGS-OK (*1*CDR *3*DELAY) *3*OUT-DEPENDS *3*INPUTS (QUOTE BAD-OR-DELAY))) ((EQUAL (*1*LENGTH *3*DELAY) (QUOTE 2)) (*1*ERR-AND (CONS (*1*NLISTP-OR-ERR *3*TYPE (QUOTE EXPECTED-LITERAL-TYPE)) (CONS (*1*PHALF-DELAY-OK *2*TEMP1 *3*TYPE (QUOTE LOW-TO-HIGH)) (CONS (*1*PHALF-DELAY-OK (*1*CAR (*1*CDR *3*DELAY)) *3*TYPE (QUOTE HIGH-TO-LOW)) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*DELAY) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))) (QUOTE BAD-LITERAL-DELAY))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-DELAY) *3*DELAY))) (*1*OUTPUT-LABEL *3*OUTPUT))))))) (PUT1-LST (QUOTE *1*PDELAYS-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*DELAYS *3*OUTPUTS *3*TYPES *3*OUT-DEPENDS *3*INPUTS) (COND ((AND (CONSP *3*DELAYS) (NOT (EQ (CAR *3*DELAYS) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*OUTPUTS)) (QUOTE TOO-MANY-DELAYS) (CONS (*1*LENGTH *3*DELAYS) (QUOTE (EXTRAS)))) (CONS (*1*PDELAY-OK (CAR *3*DELAYS) (*1*IO-CAR *3*OUTPUTS) (*1*UCAR *3*TYPES) (*1*UCAR *3*OUT-DEPENDS) *3*INPUTS) (*1*PDELAYS-ERRORS (CDR *3*DELAYS) (*1*IO-CDR *3*OUTPUTS) (*1*UCDR *3*TYPES) (*1*UCDR *3*OUT-DEPENDS) *3*INPUTS)))) (T (CONS (*1*NIL-OR-ERR *3*DELAYS (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*OUTPUTS (QUOTE OUTPUTS-WITHOUT-DELAYS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PDELAYS-OK) (QUOTE (SEXPR (LAMBDA (*3*DELAYS *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (*1*PDELAYS-ERRORS *3*DELAYS (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP1)) (*1*VALUE (QUOTE OUTPUT-TYPES) *3*ALIST) (*1*VALUE (QUOTE OUT-DEPENDS) *3*ALIST) (*1*VALUE (QUOTE INPUTS) *3*ALIST)) (QUOTE DELAYS))))))) (PUT1-LST (QUOTE *1*PDRIVE-OK) (QUOTE (SEXPR (LAMBDA (*3*DRIVE *3*OUTPUT *3*TYPE *3*OUT-DEPENDS *3*INPUTS) (LET NIL (*1*LABEL-ERROR (COND ((NOT (EQ (*1*OR (*1*LITATOM *3*DRIVE) (*1*INDEXP *3*DRIVE)) *1*F)) (*1*P-NAME-PROP-VALUE-OK *3*DRIVE *3*TYPE *3*OUT-DEPENDS *3*INPUTS (QUOTE UNKNOWN-DRIVE))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*DRIVE) (NOT (EQ (CAR *3*DRIVE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*DRIVE) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*P-T-WIRE-ARGS-OK (*1*CDR *3*DRIVE) *3*OUT-DEPENDS *3*INPUTS (QUOTE BAD-MIN-DRIVE))) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK LEVEL PARAMETRIC TRI-STATE))) *1*F)) (*1*T-OR-ERR (*1*NUMBERP *3*DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS *3*DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (*1*T-OR-ERR (*1*MAP *3*DRIVE) (QUOTE BAD-DRIVE) (CONS (CONS (QUOTE DRIVE) (CONS *3*DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) ((NOT (EQ (*1*OR (*1*NUMBERP *3*DRIVE) (*1*MAP *3*DRIVE)) *1*F)) (*1*T-OR-ERR (*1*NLISTP *3*TYPE) (QUOTE EXPECTED-LITERAL-TYPE) (CONS (CONS (QUOTE DRIVE) (CONS *3*DRIVE (QUOTE NIL))) (CONS (CONS (QUOTE TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-DRIVE) *3*DRIVE))) (*1*OUTPUT-LABEL *3*OUTPUT))))))) (PUT1-LST (QUOTE *1*PDRIVES-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*DRIVES *3*OUTPUTS *3*TYPES *3*OUT-DEPENDS *3*INPUTS) (COND ((AND (CONSP *3*DRIVES) (NOT (EQ (CAR *3*DRIVES) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*OUTPUTS)) (QUOTE TOO-MANY-DRIVES) (CONS (*1*LENGTH *3*DRIVES) (QUOTE (EXTRAS)))) (CONS (*1*PDRIVE-OK (CAR *3*DRIVES) (*1*IO-CAR *3*OUTPUTS) (*1*UCAR *3*TYPES) (*1*UCAR *3*OUT-DEPENDS) *3*INPUTS) (*1*PDRIVES-ERRORS (CDR *3*DRIVES) (*1*IO-CDR *3*OUTPUTS) (*1*UCDR *3*TYPES) (*1*UCDR *3*OUT-DEPENDS) *3*INPUTS)))) (T (CONS (*1*NIL-OR-ERR *3*DRIVES (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*OUTPUTS (QUOTE OUTPUTS-WITHOUT-DRIVES)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PDRIVES-OK) (QUOTE (SEXPR (LAMBDA (*3*DRIVES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (*1*PDRIVES-ERRORS *3*DRIVES (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP1)) (*1*VALUE (QUOTE OUTPUT-TYPES) *3*ALIST) (*1*VALUE (QUOTE OUT-DEPENDS) *3*ALIST) (*1*VALUE (QUOTE INPUTS) *3*ALIST)) (QUOTE DRIVES))))))) (PUT1-LST (QUOTE *1*PLOADING-OK) (QUOTE (SEXPR (LAMBDA (*3*LOADING *3*INPUT *3*TYPE) (LET NIL (*1*LABEL-ERROR (*1*T-OR-ERR (COND ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (BOOLP CLK FREE LEVEL PARAMETRIC TRI-STATE))) *1*F)) (*1*NUMBERP *3*LOADING)) ((NOT (EQ (*1*MEMBER *3*TYPE (QUOTE (TTL TTL-TRI-STATE))) *1*F)) (*1*PFP *3*LOADING)) (T (*1*OR (*1*NUMBERP *3*LOADING) (*1*PFP *3*LOADING)))) (QUOTE BAD-LOADING) (CONS (CONS (QUOTE LOADING) (CONS *3*LOADING (QUOTE NIL))) (CONS (CONS (QUOTE INPUT-TYPE) (CONS *3*TYPE (QUOTE NIL))) (QUOTE NIL)))) (*1*INPUT-LABEL *3*INPUT))))))) (PUT1-LST (QUOTE *1*PLOADINGS-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS *3*INPUTS *3*TYPES) (COND ((AND (CONSP *3*LOADINGS) (NOT (EQ (CAR *3*LOADINGS) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*INPUTS) (NOT (EQ (CAR *3*INPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*INPUTS)) (QUOTE TOO-MANY-LOADINGS) (CONS (*1*LENGTH *3*LOADINGS) (QUOTE (EXTRAS)))) (CONS (*1*PLOADING-OK (CAR *3*LOADINGS) (*1*IO-CAR *3*INPUTS) (*1*UCAR *3*TYPES)) (*1*PLOADINGS-ERRORS (CDR *3*LOADINGS) (*1*IO-CDR *3*INPUTS) (*1*UCDR *3*TYPES))))) (T (CONS (*1*NIL-OR-ERR *3*LOADINGS (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*INPUTS (QUOTE INPUTS-WITHOUT-LOADINGS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PLOADINGS-OK) (QUOTE (SEXPR (LAMBDA (*3*LOADINGS *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (*1*PLOADINGS-ERRORS *3*LOADINGS (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE INPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP1)) (*1*VALUE (QUOTE INPUT-TYPES) *3*ALIST)) (QUOTE LOADINGS))))))) (PUT1-LST (QUOTE *1*PLSI-NAME-OK) (QUOTE (SEXPR (LAMBDA (*3*LSI-NAME-ENTRY *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (*1*ERR-AND (CONS (*1*LSI-NAME-OK (SETQ *2*TEMP6 (COND ((AND (CONSP *3*LSI-NAME-ENTRY) (NOT (EQ (CAR *3*LSI-NAME-ENTRY) (QUOTE *1*QUOTE)))) (CAR *3*LSI-NAME-ENTRY)) (T *3*LSI-NAME-ENTRY))) (QUOTE 64)) (CONS (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*LSI-NAME-ENTRY) (SETQ *2*TEMP5 (*1*UNKNOWNP (SETQ *2*TEMP4 (*1*VALUE (QUOTE INPUTS) *3*ALIST))))) *1*F)) (QUOTE *1*TRUE)) (T (*1*T-OR-ERR (*1*SET-EQUAL (SETQ *2*TEMP3 (*1*CDR *3*LSI-NAME-ENTRY)) *2*TEMP4) (QUOTE INPUT-CONFLICT) (CONS (CONS (QUOTE INPUTS) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE LSI-INPUTS) (CONS *2*TEMP3 (QUOTE NIL))) (QUOTE NIL)))))) (CONS (COND ((NOT (EQ (*1*OR *2*TEMP5 (*1*UNKNOWNP (SETQ *2*TEMP2 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST)))) *1*F)) (QUOTE *1*TRUE)) (T (*1*T-OR-ERR (COND ((EQUAL (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*INTERSECTION *2*TEMP4 *2*TEMP2))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*IS-HEAD (*1*UNPACK (QUOTE BD)) (*1*UNPACK *2*TEMP6))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE BIDIRECT-CONFLICT) (CONS (CONS (QUOTE LSI-NAME) (CONS *2*TEMP6 (QUOTE NIL))) (CONS (CONS (QUOTE IO-SIGNALS) (CONS *2*TEMP1 (QUOTE NIL))) (QUOTE NIL)))))) (QUOTE NIL)))) (QUOTE LSI-NAME))))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-ONE-OK) (QUOTE (SEXPR (LAMBDA (*3*OUT-DEPENDS *3*OUTPUT *3*INPUTS) (LET NIL (COND ((NOT (EQ (*1*UNKNOWNP *3*INPUTS) *1*F)) (*1*NAME-LIST-OK *3*OUT-DEPENDS (*1*OUTPUT-LABEL *3*OUTPUT) (QUOTE *1*FALSE))) (T (*1*ERR-AND (CONS (*1*SUBSET-OR-ERR *3*OUT-DEPENDS *3*INPUTS (QUOTE UNKNOWN-OUTPUT-DEPENDENCIES)) (CONS (*1*NO-DUPLICATES-OR-ERR *3*OUT-DEPENDS (QUOTE DUPLICATES)) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*OUT-DEPENDS) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))) (*1*OUTPUT-LABEL *3*OUTPUT))))))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*OUT-DEPENDS *3*OUTPUTS *3*INPUTS) (COND ((AND (CONSP *3*OUT-DEPENDS) (NOT (EQ (CAR *3*OUT-DEPENDS) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*OUTPUTS)) (QUOTE TOO-MANY-OUT-DEPENDS) (CONS (*1*LENGTH *3*OUT-DEPENDS) (QUOTE (EXTRAS)))) (CONS (*1*POUT-DEPENDS-ONE-OK (CAR *3*OUT-DEPENDS) (*1*IO-CAR *3*OUTPUTS) *3*INPUTS) (*1*POUT-DEPENDS-ERRORS (CDR *3*OUT-DEPENDS) (*1*IO-CDR *3*OUTPUTS) *3*INPUTS)))) (T (CONS (*1*NIL-OR-ERR *3*OUT-DEPENDS (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*OUTPUTS (QUOTE OUTPUTS-WITHOUT-OUT-DEPENDS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*POUT-DEPENDS-OK) (QUOTE (SEXPR (LAMBDA (*3*OUT-DEPENDS *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (*1*POUT-DEPENDS-ERRORS *3*OUT-DEPENDS (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP1)) (*1*VALUE (QUOTE INPUTS) *3*ALIST)) (QUOTE OUT-DEPENDS))))))) (PUT1-LST (QUOTE *1*PSTATES-OK) (QUOTE (SEXPR (LAMBDA (*3*STATES) (COND ((AND (CONSP *3*STATES) (NOT (EQ (CAR *3*STATES) (QUOTE *1*QUOTE)))) (*1*ERR-AND (CONS (*1*T-OR-ERR (COND ((AND (CONSP (CDR *3*STATES)) (NOT (EQ (CAR (CDR *3*STATES)) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE LIST-OF-LENGTH-1-NOT-ALLOWED) *3*STATES) (*1*NAME-LIST-ERRORS *3*STATES (QUOTE *1*FALSE))) (QUOTE STATES))) ((EQ *3*STATES (QUOTE NIL)) (QUOTE *1*TRUE)) (T (*1*T-OR-ERR (*1*NAME-OKP *3*STATES) (QUOTE STATES) (CONS (QUOTE BAD-NAME) (CONS *3*STATES (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*ADDRESSED-STATE) (QUOTE (SEXPR (LAMBDA (*3*ADDRESS-BITS *3*WORD-VALUE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*ADDRESS-BITS) *1*F)) *3*WORD-VALUE) (T (CONS (SETQ *2*TEMP1 (*1*ADDRESSED-STATE (*1*SUB1 *3*ADDRESS-BITS) *3*WORD-VALUE)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*BOOLP-LIST-OK) (QUOTE (SEXPR (LAMBDA (*3*LST *3*LABEL) (*1*ERR-AND (CONS (*1*NLISTP-OR-ERR (*1*REMOVE-DUPLICATES (*1*DELETE* (QUOTE BOOLP) *3*LST)) (QUOTE NOT-BOOLP)) (CONS (*1*NIL-OR-ERR (*1*LAST-CDR *3*LST) (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))) *3*LABEL))))) (PUT1-LST (QUOTE *1*LITERAL-STATE-TYPE-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE) (COND ((NOT (EQ (*1*RAMP *3*TYPE) *1*F)) (*1*BOOLP-LIST-OK (*1*RAM-GUTS *3*TYPE) (QUOTE BAD-RAM-TYPE))) ((NOT (EQ (*1*ROMP *3*TYPE) *1*F)) (*1*BOOLP-LIST-OK (*1*ROM-GUTS *3*TYPE) (QUOTE BAD-ROM-TYPE))) ((NOT (EQ (*1*STUBP *3*TYPE) *1*F)) (*1*BOOLP-LIST-OK (*1*STUB-GUTS *3*TYPE) (QUOTE BAD-STUB-TYPE))) (T (*1*T-OR-ERR (COND ((EQ *3*TYPE (QUOTE BOOLP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (QUOTE UNKNOWN-TYPE) *3*TYPE))))))) (PUT1-LST (QUOTE *1*PMEMORY-WORD-CALL-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MEMBER (SETQ *2*TEMP4 (*1*CAR *3*TYPE)) (QUOTE (RAM ROM STUB)))) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*FUNCTION-CALL-OK *3*TYPE (QUOTE 1)))) *1*F)) *2*TEMP3) (T (*1*LABEL-ERROR (COND ((EQ (*1*CAR (SETQ *2*TEMP2 (*1*CAR (*1*CDR *3*TYPE)))) (QUOTE QUOTE)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*FUNCTION-CALL-OK *2*TEMP2 (QUOTE 1)))) *1*F)) *2*TEMP1) (T (*1*BOOLP-LIST-OK (*1*CAR (*1*CDR *2*TEMP2)) (QUOTE BAD-MEMORY-BIT-TYPES))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MEMORY-BITS-CALL) *2*TEMP2))) (CONS (QUOTE BAD) (CONS *2*TEMP4 (QUOTE (CALL)))))))) (T (*1*PRED-ERROR (QUOTE NOT-MEMORY-WORD-CALL) *3*TYPE)))))))) (PUT1-LST (QUOTE *1*PADDRESSED-STATE-CALL-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*TYPE) (QUOTE ADDRESSED-STATE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*FUNCTION-CALL-OK *3*TYPE (QUOTE 2)))) *1*F)) *2*TEMP3) (T (*1*ERR-AND (CONS (*1*T-OR-ERR (*1*NUMBERP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*TYPE))))) (QUOTE ADDRESS-BITS-NOT-NUMBER) *2*TEMP2) (CONS (*1*PMEMORY-WORD-CALL-OK (*1*CAR (*1*CDR *2*TEMP1))) (QUOTE NIL))) (QUOTE (BAD ADDRESSED-STATE CALL)))))) (T (*1*PRED-ERROR (QUOTE NOT-ADDRESSED-STATE-CALL) *3*TYPE)))))))) (PUT1-LST (QUOTE *1*ONE-PSTATE-TYPE-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TYPE) *1*F)) (*1*LITERAL-STATE-TYPE-OK *3*TYPE)) ((NOT (EQ (*1*MEMBER (SETQ *2*TEMP1 (*1*CAR *3*TYPE)) (QUOTE (RAM ROM STUB))) *1*F)) (*1*PMEMORY-WORD-CALL-OK *3*TYPE)) ((EQ *2*TEMP1 (QUOTE ADDRESSED-STATE)) (*1*PADDRESSED-STATE-CALL-OK *3*TYPE)) (T (*1*BOOLP-LIST-OK *3*TYPE (QUOTE BAD-TYPE-LIST))))))))) (PUT1-LST (QUOTE *1*PSTATE-TYPE-LIST-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*FNAME) (LET NIL (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*AND (COND ((EQ *3*FNAME (QUOTE MEM-32X32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*MEMBER (CAR *3*TYPES) (QUOTE (NUMBERP NUMBER-LISTP)))) *1*F)) (*1*PSTATE-TYPE-LIST-ERRORS (CDR *3*TYPES) *3*FNAME)) (T (*1*INSERT (*1*ONE-PSTATE-TYPE-OK (CAR *3*TYPES)) (*1*PSTATE-TYPE-LIST-ERRORS (CDR *3*TYPES) *3*FNAME))))) (T (CONS (*1*NIL-OR-ERR *3*TYPES (QUOTE NOT-PROPER-LIST)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PSTATE-TYPE-OK) (QUOTE (SEXPR (LAMBDA (*3*TYPE *3*STATE *3*FNAME) (LET NIL (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*TYPE) (*1*MEMBER (*1*CAR *3*TYPE) (QUOTE (RAM ROM STUB ADDRESSED-STATE)))) *1*F)) (*1*LABEL-ERROR (*1*ONE-PSTATE-TYPE-OK *3*TYPE) (*1*STATE-LABEL *3*STATE))) (T (*1*ERR-AND (*1*PSTATE-TYPE-LIST-ERRORS *3*TYPE *3*FNAME) (*1*STATE-LABEL *3*STATE))))))))) (PUT1-LST (QUOTE *1*PSTATE-TYPES-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*STATES *3*FNAME) (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*STATES) (NOT (EQ (CAR *3*STATES) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*STATES)) (QUOTE TOO-MANY-STATE-TYPES) (CONS (*1*LENGTH *3*TYPES) (QUOTE (EXTRAS)))) (CONS (*1*PSTATE-TYPE-OK (CAR *3*TYPES) (*1*IO-CAR *3*STATES) *3*FNAME) (*1*PSTATE-TYPES-ERRORS (CDR *3*TYPES) (*1*IO-CDR *3*STATES) *3*FNAME)))) (T (CONS (*1*NIL-OR-ERR *3*TYPES (QUOTE NOT-PROPER-LIST)) (CONS (*1*NLISTP-OR-ERR *3*STATES (QUOTE STATES-WITHOUT-TYPES)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PSTATE-TYPES-OK) (QUOTE (SEXPR (LAMBDA (*3*STATE-TYPES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*VALUE (QUOTE STATES) *3*ALIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *2*TEMP1 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*PSTATE-TYPES-ERRORS *3*STATE-TYPES *2*TEMP1 (*1*VALUE (QUOTE PRIMP-NAME) *3*ALIST))) (T (CONS (*1*PSTATE-TYPE-OK *3*STATE-TYPES *2*TEMP1 (*1*VALUE (QUOTE PRIMP-NAME) *3*ALIST)) (QUOTE NIL)))) (QUOTE STATE-TYPES))))))) (PUT1-LST (QUOTE *1*UNKNOWN-ARGS) (QUOTE (SEXPR (LAMBDA (*3*X *3*SIGNALS *3*STATES *3*ARG-LISTP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ *3*ARG-LISTP *1*F)) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*UNION (*1*UNKNOWN-ARGS (CAR *3*X) *3*SIGNALS *3*STATES (QUOTE *1*FALSE)) (*1*UNKNOWN-ARGS (CDR *3*X) *3*SIGNALS *3*STATES (QUOTE *1*TRUE)))) (T (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (COND ((NOT (EQ (*1*OR (*1*MEMBER *3*X *3*SIGNALS) (*1*MEMBER *3*X *3*STATES)) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*OR (*1*UNKNOWNP *3*SIGNALS) (*1*UNKNOWNP *3*STATES)) *1*F)) (COND ((NOT (EQ (*1*NAME-OKP *3*X) *1*F)) (QUOTE NIL)) (T (CONS *3*X (QUOTE NIL))))) (T (CONS *3*X (QUOTE NIL))))) ((EQ (SETQ *2*TEMP1 (*1*CAR *3*X)) (QUOTE QUOTE)) (QUOTE NIL)) ((NOT (EQ (*1*LITATOM *2*TEMP1) *1*F)) (*1*UNKNOWN-ARGS (*1*CDR *3*X) *3*SIGNALS *3*STATES (QUOTE *1*TRUE))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PRESULT-FORM-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*X *3*ARG-LISTP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ *3*ARG-LISTP *1*F)) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*PRESULT-FORM-ERRORS (CAR *3*X) (QUOTE *1*FALSE)))) *1*F)) (CONS *2*TEMP2 (*1*PRESULT-FORM-ERRORS (CDR *3*X) (QUOTE *1*TRUE)))) (T (*1*APPEND *2*TEMP2 (*1*PRESULT-FORM-ERRORS (CDR *3*X) (QUOTE *1*TRUE)))))) ((EQ *3*X (QUOTE NIL)) (QUOTE NIL)) (T (CONS (*1*PRED-ERROR (QUOTE NOT-PROPER-LIST) *3*X) (QUOTE NIL))))) ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*FUNCTION-CALL-OK *3*X (COND ((EQ (CAR *3*X) (QUOTE QUOTE)) (QUOTE 1)) ((EQ (CAR *3*X) (QUOTE CONS)) (QUOTE 2)) (T (QUOTE (*1*QUOTE UNKNOWN))))))) *1*F)) *2*TEMP1) ((EQ (CAR *3*X) (QUOTE QUOTE)) (QUOTE NIL)) (T (*1*PRESULT-FORM-ERRORS (CDR *3*X) (QUOTE *1*TRUE))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PRESULT-OK) (QUOTE (SEXPR (LAMBDA (*3*RESULT *3*SIGNALS *3*STATES *3*LABEL) (*1*ERR-AND (CONS (*1*NLISTP-OR-ERR (*1*UNKNOWN-ARGS *3*RESULT *3*SIGNALS *3*STATES (QUOTE *1*FALSE)) (QUOTE UNKNOWN-ARGS)) (*1*PRESULT-FORM-ERRORS (CONS *3*RESULT (QUOTE NIL)) (QUOTE *1*TRUE))) *3*LABEL))))) (PUT1-LST (QUOTE *1*RESULTS-LENGTH) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE 0)) ((EQ (*1*CAR *3*X) (QUOTE CONS)) (*1*ADD1 (*1*RESULTS-LENGTH (*1*CAR (*1*CDR (*1*CDR *3*X)))))) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*PRESULTS-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*RESULTS *3*OUTPUTS *3*OUT-DEPENDS *3*INPUTS *3*STATES *3*LABEL) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*RESULTS) *1*F)) (CONS (*1*PRED-ERROR (QUOTE UNKNOWN-DUAL-EVAL-FORM) *3*RESULTS) (QUOTE NIL))) ((EQUAL *3*RESULTS (QUOTE (QUOTE NIL))) (CONS (*1*NLISTP-OR-ERR *3*OUTPUTS (CONS (QUOTE MISSING) (CONS *3*LABEL (QUOTE (VALUES))))) (QUOTE NIL))) ((EQ (*1*CAR *3*RESULTS) (QUOTE CONS)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP2 (*1*FUNCTION-CALL-OK *3*RESULTS (QUOTE 2)))) *1*F)) (CONS *2*TEMP2 (QUOTE NIL))) (T (CONS (*1*T-OR-ERR (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*NUMBERP *3*OUTPUTS)) (QUOTE TOO-MANY-VALUES) (CONS (*1*RESULTS-LENGTH *3*RESULTS) (QUOTE (OR MORE EXTRAS)))) (CONS (*1*PRESULT-OK (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*RESULTS))) (*1*OUT-PROP-SIGNALS (*1*UCAR *3*OUT-DEPENDS) *3*INPUTS) *3*STATES (*1*IO-LABEL (*1*IO-CAR *3*OUTPUTS) *3*LABEL)) (*1*PRESULTS-ERRORS (*1*CAR (*1*CDR *2*TEMP1)) (*1*IO-CDR *3*OUTPUTS) (*1*UCDR *3*OUT-DEPENDS) *3*INPUTS *3*STATES *3*LABEL)))))) ((NOT (EQ (*1*OR (COND ((AND (CONSP *3*OUTPUTS) (NOT (EQ (CAR *3*OUTPUTS) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*OUTPUTS (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (CONS (*1*PRED-ERROR (CONS (QUOTE EVALUATION) (CONS (QUOTE SHOULD) (CONS (QUOTE RETURN) (CONS (*1*LENGTH *3*OUTPUTS) (QUOTE (RESULTS)))))) *3*RESULTS) (CONS (*1*PRESULT-OK *3*RESULTS *3*INPUTS *3*STATES (CONS *3*LABEL (CONS (QUOTE LIST) (CONS *3*OUTPUTS (QUOTE NIL))))) (QUOTE NIL)))) (T (CONS (*1*PRESULT-OK *3*RESULTS *3*INPUTS *3*STATES (QUOTE UNKNOWN-OUTPUTS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PRESULTS-OK) (QUOTE (SEXPR (LAMBDA (*3*RESULTS *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*ERR-AND (*1*PRESULTS-ERRORS *3*RESULTS (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP2 (*1*VALUE (QUOTE OUTPUTS) *3*ALIST))) *1*F)) (QUOTE 1)) (T *2*TEMP2)) (*1*VALUE (QUOTE OUT-DEPENDS) *3*ALIST) (*1*VALUE (QUOTE INPUTS) *3*ALIST) (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*VALUE (QUOTE STATES) *3*ALIST))) *1*F)) *2*TEMP1) (T (*1*M-STATES-LIST *2*TEMP1))) (QUOTE OUTPUT)) (QUOTE RESULTS))))))) (PUT1-LST (QUOTE *1*PNEW-STATES-OK) (QUOTE (SEXPR (LAMBDA (*3*NEW-STATES *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*ERR-AND (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*VALUE (QUOTE STATES) *3*ALIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *2*TEMP1 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*PRESULTS-ERRORS *3*NEW-STATES *2*TEMP1 (QUOTE (*1*QUOTE UNKNOWN)) (*1*VALUE (QUOTE INPUTS) *3*ALIST) *2*TEMP1 (QUOTE STATE))) ((NOT (EQ (*1*OR (*1*LITATOM *2*TEMP1) (*1*INDEXP *2*TEMP1)) *1*F)) (CONS (*1*PRESULT-OK *3*NEW-STATES (*1*VALUE (QUOTE INPUTS) *3*ALIST) (CONS *2*TEMP1 (QUOTE NIL)) (*1*STATE-LABEL *2*TEMP1)) (QUOTE NIL))) (T (*1*PRESULTS-ERRORS *3*NEW-STATES (QUOTE 1) (QUOTE (*1*QUOTE UNKNOWN)) (*1*VALUE (QUOTE INPUTS) *3*ALIST) (QUOTE (*1*QUOTE UNKNOWN)) (QUOTE STATE)))) (QUOTE NEW-STATES))))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROP-OK) (QUOTE (SEXPR (LAMBDA (*3*PROP *3*ALIST *3*KEYS) (COND ((AND (CONSP *3*PROP) (NOT (EQ (CAR *3*PROP) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*PROP) *3*KEYS) *1*F)) (*1*PRED-ERROR (QUOTE DUPLICATE-PROPERTY) *3*PROP)) ((EQ (CAR *3*PROP) (QUOTE DELAYS)) (*1*PDELAYS-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE DRIVES)) (*1*PDRIVES-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE INPUT-TYPES)) (*1*PIN-TYPES-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE INPUTS)) (*1*NAME-LIST-OK (CDR *3*PROP) (QUOTE INPUTS) (QUOTE *1*FALSE))) ((EQ (CAR *3*PROP) (QUOTE LOADINGS)) (*1*PLOADINGS-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE LSI-NAME)) (*1*PLSI-NAME-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE NEW-STATES)) (*1*PNEW-STATES-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE OUT-DEPENDS)) (*1*POUT-DEPENDS-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE OUTPUT-TYPES)) (*1*POUT-TYPES-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE OUTPUTS)) (*1*NAME-LIST-OK (CDR *3*PROP) (QUOTE OUTPUTS) (QUOTE *1*FALSE))) ((EQ (CAR *3*PROP) (QUOTE RESULTS)) (*1*PRESULTS-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE STATE-TYPES)) (*1*PSTATE-TYPES-OK (CDR *3*PROP) *3*ALIST)) ((EQ (CAR *3*PROP) (QUOTE STATES)) (*1*PSTATES-OK (CDR *3*PROP))) ((NOT (EQ (*1*MEMBER (CAR *3*PROP) (QUOTE (GATES PADS PRIMITIVES TRANSISTORS))) *1*F)) (*1*T-OR-ERR (*1*NUMBERP (CDR *3*PROP)) (CAR *3*PROP) (CONS (QUOTE VALUE-NOT-NUMBER) (CONS (CDR *3*PROP) (QUOTE NIL))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-PROPERTY) (CAR *3*PROP))))) (T (*1*PRED-ERROR (QUOTE NOT-KEY-VALUE-PAIR) *3*PROP))))))) (PUT1-LST (QUOTE *1*PRIMITIVE-PROP-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*PROPS *3*ALIST *3*KEYS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*PROPS) (NOT (EQ (CAR *3*PROPS) (QUOTE *1*QUOTE)))) (CONS (*1*PRIMITIVE-PROP-OK (CAR *3*PROPS) *3*ALIST *3*KEYS) (*1*PRIMITIVE-PROP-ERRORS (CDR *3*PROPS) *3*ALIST (CONS (*1*CAR (CAR *3*PROPS)) *3*KEYS)))) (T (CONS (*1*NLISTP-OR-ERR (*1*DELETE* (QUOTE PADS) (COND ((NOT (EQ (*1*SUBSET (QUOTE (NEW-STATES STATE-TYPES STATES)) (SETQ *2*TEMP1 (*1*SET-DIFF (*1*PRIMITIVE-PROPERTIES) *3*KEYS))) *1*F)) (*1*SET-DIFF *2*TEMP1 (QUOTE (NEW-STATES STATE-TYPES STATES)))) (T *2*TEMP1))) (QUOTE MISSING-PROPERTIES)) (CONS (*1*NIL-OR-ERR *3*PROPS (QUOTE NOT-PROPER-LIST)) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*OK-NAME-LIST) (QUOTE (SEXPR (LAMBDA (*3*PNAME *3*PROPS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PNAME-LISTP (SETQ *2*TEMP1 (*1*VALUE-OR-UNKNOWN *3*PNAME *3*PROPS))) *1*F)) *2*TEMP1) (T (QUOTE (*1*QUOTE UNKNOWN))))))))) (PUT1-LST (QUOTE *1*OK-STATES) (QUOTE (SEXPR (LAMBDA (*3*PROPS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BOUNDP (QUOTE STATES) *3*PROPS) *1*F)) (COND ((NOT (EQ (*1*OR (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*VALUE (QUOTE STATES) *3*PROPS))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *2*TEMP1 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*PNAME-LISTP *2*TEMP1) *1*F)) *2*TEMP1) (T (QUOTE (*1*QUOTE UNKNOWN))))) ((NOT (EQ (*1*NAME-OKP *2*TEMP1) *1*F)) *2*TEMP1) (T (QUOTE (*1*QUOTE UNKNOWN))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*OK-OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*ODS *3*INPUTS) (COND ((AND (CONSP *3*ODS) (NOT (EQ (CAR *3*ODS) (QUOTE *1*QUOTE)))) (CONS (COND ((NOT (EQ (*1*AND (*1*PNAME-LISTP (CAR *3*ODS)) (*1*OR (*1*UNKNOWNP *3*INPUTS) (*1*SUBSET (CAR *3*ODS) *3*INPUTS))) *1*F)) (CAR *3*ODS)) (T (QUOTE (*1*QUOTE UNKNOWN)))) (*1*OK-OUT-DEPENDS (CDR *3*ODS) *3*INPUTS))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*OK-INPUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*TYPES) (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (CONS (COND ((NOT (EQ (*1*MEMBER (CAR *3*TYPES) (*1*ALL-INPUT-TYPES)) *1*F)) (CAR *3*TYPES)) (T (QUOTE (*1*QUOTE UNKNOWN)))) (*1*OK-INPUT-TYPES (CDR *3*TYPES)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*OK-OUTPUT-TYPES) (QUOTE (SEXPR (LAMBDA (*3*OUT-TYPES *3*OUT-DEPENDS *3*INPUTS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*OUT-TYPES) (NOT (EQ (CAR *3*OUT-TYPES) (QUOTE *1*QUOTE)))) (CONS (COND ((COND ((AND (CONSP (CAR *3*OUT-TYPES)) (NOT (EQ (CAR (CAR *3*OUT-TYPES)) (QUOTE *1*QUOTE)))) (NOT (EQ (*1*AND (*1*PROPERP (CAR *3*OUT-TYPES)) (*1*AND (COND ((EQUAL (*1*LENGTH (CAR *3*OUT-TYPES)) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((NOT (EQ (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*OUT-PROP-SIGNALS (*1*UCAR *3*OUT-DEPENDS) *3*INPUTS))) *1*F)) (*1*NAME-OKP (CAR (CAR *3*OUT-TYPES)))) (T (*1*MEMBER (CAR (CAR *3*OUT-TYPES)) *2*TEMP1))))) *1*F))) (T (NOT (EQ (*1*MEMBER (CAR *3*OUT-TYPES) (*1*ALL-OUTPUT-TYPES (QUOTE NIL))) *1*F)))) (CAR *3*OUT-TYPES)) (T (QUOTE (*1*QUOTE UNKNOWN)))) (*1*OK-OUTPUT-TYPES (CDR *3*OUT-TYPES) (*1*UCDR *3*OUT-DEPENDS) *3*INPUTS))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PARENT-PROPS-ALIST) (QUOTE (SEXPR (LAMBDA (*3*PRIMP-ENTRY) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (CONS (QUOTE PRIMP-NAME) (*1*CAR *3*PRIMP-ENTRY)) (CONS (CONS (QUOTE INPUTS) (SETQ *2*TEMP3 (*1*OK-NAME-LIST (QUOTE INPUTS) (SETQ *2*TEMP2 (*1*CDR *3*PRIMP-ENTRY))))) (CONS (CONS (QUOTE OUTPUTS) (*1*OK-NAME-LIST (QUOTE OUTPUTS) *2*TEMP2)) (CONS (CONS (QUOTE STATES) (*1*OK-STATES *2*TEMP2)) (CONS (CONS (QUOTE OUT-DEPENDS) (SETQ *2*TEMP1 (*1*OK-OUT-DEPENDS (*1*VALUE (QUOTE OUT-DEPENDS) *2*TEMP2) *2*TEMP3))) (CONS (CONS (QUOTE INPUT-TYPES) (*1*OK-INPUT-TYPES (*1*VALUE (QUOTE INPUT-TYPES) *2*TEMP2))) (CONS (CONS (QUOTE OUTPUT-TYPES) (*1*OK-OUTPUT-TYPES (*1*VALUE (QUOTE OUTPUT-TYPES) *2*TEMP2) *2*TEMP1 *2*TEMP3)) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*PRIMITIVE-OK) (QUOTE (SEXPR (LAMBDA (*3*P) (COND ((AND (CONSP *3*P) (NOT (EQ (CAR *3*P) (QUOTE *1*QUOTE)))) (*1*ERR-AND (CONS (*1*T-OR-ERR (*1*NAME-OKP (CAR *3*P)) (QUOTE BAD-PRIMITIVE-NAME) (CAR *3*P)) (*1*PRIMITIVE-PROP-ERRORS (CDR *3*P) (*1*PARENT-PROPS-ALIST *3*P) (QUOTE NIL))) (CONS (QUOTE PRIMITIVE) (CONS (CAR *3*P) (QUOTE NIL))))) (T (*1*PRED-ERROR (QUOTE NOT-A-PRIMITIVE) *3*P))))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE-ERRORS) (QUOTE (SEXPR (LAMBDA (*3*D) (COND ((NOT (EQ (*1*NLISTP *3*D) *1*F)) (QUOTE NIL)) (T (CONS (*1*PRIMITIVE-OK (*1*CAR *3*D)) (*1*PRIMP-DATABASE-ERRORS (*1*CDR *3*D))))))))) (PUT1-LST (QUOTE *1*PRIMP-DATABASE-PREDICATE) (QUOTE (SEXPR (LAMBDA NIL (*1*ERR-AND (*1*PRIMP-DATABASE-ERRORS (*1*PRIMP-DATABASE)) (QUOTE PRIMP-DATABASE-ERRORS)))))) (PUT1-LST (QUOTE *1*SUBNET0) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*NETLIST *3*USED-MODULES *3*RESULT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*OR (*1*LOOKUP-MODULE *3*X0 *3*RESULT) (*1*MEMBER *3*X0 *3*USED-MODULES)) *1*F)) *3*RESULT) ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS *2*TEMP1 (*1*SUBNET0 (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP1) *3*NETLIST (CONS *3*X0 *3*USED-MODULES) *3*RESULT))) (T *3*RESULT))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) *3*RESULT) (T (*1*SUBNET0 (QUOTE 1) (*1*CDR *3*X0) *3*NETLIST *3*USED-MODULES (*1*SUBNET0 (QUOTE 0) (*1*OCC-FUNCTION (*1*CAR *3*X0)) *3*NETLIST *3*USED-MODULES *3*RESULT))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*SUBNET) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*NETLIST) (*1*SUBNET0 *3*FLG *3*X0 *3*NETLIST (QUOTE NIL) (QUOTE NIL)))))) (PUT1-LST (QUOTE *1*DELETE-NULL-ENTRIES) (QUOTE (SEXPR (LAMBDA (*3*DATABASE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*DATABASE) (NOT (EQ (CAR *3*DATABASE) (QUOTE *1*QUOTE)))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CDR (CAR *3*DATABASE)))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (CONS (CAR *3*DATABASE) (*1*DELETE-NULL-ENTRIES (CDR *3*DATABASE)))) (T (*1*DELETE-NULL-ENTRIES (CDR *3*DATABASE))))) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PRIMITIVE-COUNT) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*TYPE *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*PRIMP2 *3*X0 *3*TYPE)) ((NOT (EQ (*1*LOOKUP-MODULE *3*X0 *3*NETLIST) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*NETLIST-PROPERTIES (*1*SUBNET (QUOTE 0) *3*X0 *3*NETLIST) (SETQ *2*TEMP2 (CONS *3*TYPE (QUOTE NIL))) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP3) (T (*1*VALUE *3*TYPE (*1*VALUE *3*X0 *2*TEMP3))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*X0)))) ((EQUAL *3*FLG (QUOTE 1)) (*1*VALUE *3*TYPE (*1*OCCURRENCE-DATA (SETQ *2*TEMP1 (*1*REQUIRED-PROPS (SETQ *2*TEMP2 (CONS *3*TYPE (QUOTE NIL))))) *3*X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (*1*MODULE-DATABASE (*1*SUBNET (QUOTE 1) *3*X0 *3*NETLIST) *2*TEMP1 (QUOTE *1*TRUE))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS *3*FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS *3*X0 (QUOTE NIL))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*OUT-DEPENDS) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*X2 *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (*1*LIST-UNION-VALUES (*1*PRIMP2 *3*X0 (QUOTE OUT-DEPENDS)) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1))) ((NOT (EQ (*1*LOOKUP-MODULE *3*X0 *3*NETLIST) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP4 (*1*NETLIST-PROPERTIES (*1*SUBNET (QUOTE 0) *3*X0 *3*NETLIST) (QUOTE (OUT-DEPENDS INPUTS)) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP4) (T (*1*LIST-UNION-VALUES (*1*VALUE (QUOTE OUT-DEPENDS) (SETQ *2*TEMP3 (*1*VALUE *3*X0 *2*TEMP4))) (*1*PAIRLIST (*1*VALUE (QUOTE INPUTS) *2*TEMP3) *3*X1))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*X0)))) ((EQUAL *3*FLG (QUOTE 1)) (*1*VALUE (QUOTE OUT-DEPENDS) (*1*OCCURRENCE-DATA (SETQ *2*TEMP2 (*1*REQUIRED-PROPS (QUOTE (OUT-DEPENDS)))) *3*X0 *3*X1 (*1*MARK-IO-OUTS *3*X2 (SETQ *2*TEMP1 (*1*INTERSECTION *3*X1 *3*X2))) *2*TEMP1 (*1*MODULE-DATABASE (*1*SUBNET (QUOTE 1) *3*X0 *3*NETLIST) *2*TEMP2 (QUOTE *1*TRUE))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS *3*FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS *3*X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS *3*X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS *3*X2 (QUOTE NIL))) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*DEPENDENCY-TABLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*NETLIST-PROPERTIES *3*NETLIST (QUOTE (OUT-DEPENDS)) (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OUTPUT-DEPENDENCIES) (QUOTE (SEXPR (LAMBDA (*3*MODULE-NAME *3*ARGS *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP5 (COND ((NOT (EQ (SETQ *2*TEMP4 (*1*PRIMP *3*MODULE-NAME)) *1*F)) (*1*LENGTH (*1*PRIMP2 *3*MODULE-NAME (QUOTE INPUTS)))) ((NOT (EQ (SETQ *2*TEMP3 (*1*LOOKUP-MODULE *3*MODULE-NAME *3*NETLIST)) *1*F)) (*1*LENGTH (*1*MODULE-INPUTS *2*TEMP3))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*MODULE-NAME))))) *1*F)) *2*TEMP5) ((EQUAL (SETQ *2*TEMP2 (*1*LENGTH *3*ARGS)) *2*TEMP5) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*OUT-DEPENDS (QUOTE 0) *3*MODULE-NAME *3*ARGS (QUOTE NIL) *3*NETLIST))) *1*F)) *2*TEMP1) (T (*1*LIST-LIST-SORT *2*TEMP1)))) (T (*1*PRED-ERROR (QUOTE WRONG-NUMBER-OF-ARGS) (CONS (CONS *3*MODULE-NAME (CONS (QUOTE EXPECTS) (CONS *2*TEMP5 (QUOTE NIL)))) (CONS (CONS (QUOTE GOT) (CONS *2*TEMP2 (CONS *3*ARGS (QUOTE NIL)))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*IO-TYPES-COLLECTOR) (QUOTE (SEXPR (LAMBDA (*3*TYPES *3*ALIST) (COND ((AND (CONSP *3*TYPES) (NOT (EQ (CAR *3*TYPES) (QUOTE *1*QUOTE)))) (CONS (COND ((AND (CONSP (CAR *3*TYPES)) (NOT (EQ (CAR (CAR *3*TYPES)) (QUOTE *1*QUOTE)))) (*1*VALUE (CAR (CAR *3*TYPES)) *3*ALIST)) (T (CAR *3*TYPES))) (*1*IO-TYPES-COLLECTOR (CDR *3*TYPES) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*IO-TYPES) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*X2 *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (CONS (*1*PRIMP-LOOKUP *3*X0 (QUOTE INPUT-TYPES)) (CONS (CONS (QUOTE OUTPUT-TYPES) (*1*IO-TYPES-COLLECTOR (*1*PRIMP2 *3*X0 (QUOTE OUTPUT-TYPES)) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1))) (QUOTE NIL)))) ((NOT (EQ (*1*LOOKUP-MODULE *3*X0 *3*NETLIST) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP5 (*1*NETLIST-PROPERTIES (*1*SUBNET (QUOTE 0) *3*X0 *3*NETLIST) (QUOTE (INPUT-TYPES OUTPUT-TYPES INPUTS)) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP5) (T (CONS (*1*ALIST-ENTRY (QUOTE INPUT-TYPES) (SETQ *2*TEMP4 (*1*VALUE *3*X0 *2*TEMP5))) (CONS (CONS (QUOTE OUTPUT-TYPES) (*1*IO-TYPES-COLLECTOR (*1*VALUE (QUOTE OUTPUT-TYPES) *2*TEMP4) (*1*PAIRLIST (*1*VALUE (QUOTE INPUTS) *2*TEMP4) *3*X1))) (QUOTE NIL)))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*X0)))) ((EQUAL *3*FLG (QUOTE 1)) (CONS (*1*ALIST-ENTRY (QUOTE INPUT-TYPES) (SETQ *2*TEMP3 (*1*OCCURRENCE-DATA (SETQ *2*TEMP2 (*1*REQUIRED-PROPS (QUOTE (INPUT-TYPES OUTPUT-TYPES)))) *3*X0 *3*X1 (*1*MARK-IO-OUTS *3*X2 (SETQ *2*TEMP1 (*1*INTERSECTION *3*X1 *3*X2))) *2*TEMP1 (*1*MODULE-DATABASE (*1*SUBNET (QUOTE 1) *3*X0 *3*NETLIST) *2*TEMP2 (QUOTE *1*TRUE))))) (CONS (*1*ALIST-ENTRY (QUOTE OUTPUT-TYPES) *2*TEMP3) (QUOTE NIL)))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS *3*FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS *3*X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS *3*X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS *3*X2 (QUOTE NIL))) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*NETLIST-TYPE-TABLE) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*NETLIST-PROPERTIES *3*NETLIST (QUOTE (INPUT-TYPES OUTPUT-TYPES)) (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*ARG-TYPES-MATCHP) (QUOTE (SEXPR (LAMBDA (*3*ACTUALS *3*FORMALS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*ACTUALS) (*1*NLISTP *3*FORMALS)) *1*F)) (COND ((EQUAL *3*ACTUALS *3*FORMALS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*OR (*1*UNKNOWNP (SETQ *2*TEMP2 (*1*CAR *3*ACTUALS))) (*1*UNKNOWNP (SETQ *2*TEMP1 (*1*CAR *3*FORMALS)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*TYPES-COMPATIBLEP *2*TEMP2 *2*TEMP1) *1*F)) (*1*ARG-TYPES-MATCHP (*1*CDR *3*ACTUALS) (*1*CDR *3*FORMALS))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*ARG-TYPES-OKP) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARG-TYPES *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BOUNDP (QUOTE INPUT-TYPES) (SETQ *2*TEMP1 (*1*IO-TYPES (QUOTE 0) *3*FN *3*ARG-TYPES (QUOTE NIL) *3*NETLIST))) *1*F)) (*1*ARG-TYPES-MATCHP *3*ARG-TYPES (*1*VALUE (QUOTE INPUT-TYPES) *2*TEMP1))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STATE-TYPE-REQUIREMENT) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (COND ((NOT (EQ (*1*PRIMP-LOOKUP *3*X0 (QUOTE STATE-TYPES)) *1*F)) (*1*PRIMP2 *3*X0 (QUOTE STATE-TYPES))) (T (QUOTE NIL)))) ((NOT (EQ (*1*LOOKUP-MODULE *3*X0 *3*NETLIST) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP3 (*1*NETLIST-PROPERTIES (*1*SUBNET (QUOTE 0) *3*X0 *3*NETLIST) (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*BOUNDP (QUOTE STATE-TYPES) (SETQ *2*TEMP2 (*1*VALUE *3*X0 *2*TEMP3))) *1*F)) (*1*VALUE (QUOTE STATE-TYPES) *2*TEMP2)) (T (QUOTE NIL)))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*X0)))) ((EQUAL *3*FLG (QUOTE 1)) (*1*VALUE (QUOTE STATE-TYPES) (*1*OCCURRENCE-DATA (SETQ *2*TEMP1 (*1*REQUIRED-PROPS (QUOTE (STATE-TYPES)))) *3*X0 (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (*1*MODULE-DATABASE (*1*SUBNET (QUOTE 1) *3*X0 *3*NETLIST) *2*TEMP1 (QUOTE *1*TRUE))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS *3*FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS *3*X0 (QUOTE NIL))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*NETLIST-STATE-TYPES) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP1 (*1*NETLIST-PROPERTIES *3*NETLIST (QUOTE (STATE-TYPES)) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP1) (T (*1*DELETE-NULL-ENTRIES *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*TYPE-COUNT) (QUOTE (SEXPR (LAMBDA (*3*TYPE *3*WORD-TYPE) (*1*PLUS (*1*COUNT *3*TYPE) (*1*COUNT *3*WORD-TYPE)))))) (PUT1-LST (QUOTE *1*STATE-OKP-0) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*TYPE *3*ADDRESS-BITS *3*WORD-TYPE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ *3*TYPE (QUOTE NIL)) (COND ((EQ *3*STATE (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((EQ *3*TYPE (QUOTE BOOLP)) (*1*BOOLP *3*STATE)) ((AND (CONSP *3*TYPE) (NOT (EQ (CAR *3*TYPE) (QUOTE *1*QUOTE)))) (COND ((EQ (CAR *3*TYPE) (QUOTE ADDRESSED-STATE)) (*1*STATE-OKP-0 *3*STATE (CAR *3*TYPE) (*1*CAR (CDR *3*TYPE)) (*1*CAR (*1*CDR (CDR *3*TYPE))))) ((EQ (CAR *3*TYPE) (QUOTE RAM)) (*1*AND (*1*RAMP *3*STATE) (*1*STATE-OKP-0 (*1*RAM-GUTS *3*STATE) (*1*CAR (CDR *3*TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) ((EQ (CAR *3*TYPE) (QUOTE ROM)) (*1*AND (*1*ROMP *3*STATE) (*1*STATE-OKP-0 (*1*ROM-GUTS *3*STATE) (*1*CAR (CDR *3*TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) ((EQ (CAR *3*TYPE) (QUOTE STUB)) (*1*AND (*1*STUBP *3*STATE) (*1*STATE-OKP-0 (*1*STUB-GUTS *3*STATE) (*1*CAR (CDR *3*TYPE)) (QUOTE 0) (QUOTE *1*FALSE)))) ((EQ (CAR *3*TYPE) (QUOTE QUOTE)) (*1*STATE-OKP-0 *3*STATE (*1*CAR (CDR *3*TYPE)) (QUOTE 0) (QUOTE *1*FALSE))) ((AND (CONSP *3*STATE) (NOT (EQ (CAR *3*STATE) (QUOTE *1*QUOTE)))) (*1*AND (*1*STATE-OKP-0 (CAR *3*STATE) (CAR *3*TYPE) (QUOTE 0) (QUOTE *1*FALSE)) (*1*STATE-OKP-0 (CDR *3*STATE) (CDR *3*TYPE) (QUOTE 0) (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((EQ *3*TYPE (QUOTE ADDRESSED-STATE)) (COND ((NOT (EQ (*1*ZEROP *3*ADDRESS-BITS) *1*F)) (*1*STATE-OKP-0 *3*STATE *3*WORD-TYPE (QUOTE 0) (QUOTE *1*FALSE))) ((AND (CONSP *3*STATE) (NOT (EQ (CAR *3*STATE) (QUOTE *1*QUOTE)))) (*1*AND (*1*STATE-OKP-0 (CAR *3*STATE) *3*TYPE (SETQ *2*TEMP1 (*1*SUB1 *3*ADDRESS-BITS)) *3*WORD-TYPE) (*1*STATE-OKP-0 (CDR *3*STATE) *3*TYPE *2*TEMP1 *3*WORD-TYPE))) (T (QUOTE *1*FALSE)))) ((EQ *3*TYPE (QUOTE NUMBERP)) (*1*NUMBERP *3*STATE)) ((EQ *3*TYPE (QUOTE NUMBER-LISTP)) (COND ((NOT (EQ (*1*NLISTP *3*STATE) *1*F)) (COND ((EQ *3*STATE (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*NUMBERP (*1*CAR *3*STATE)) *1*F)) (*1*STATE-OKP-0 (*1*CDR *3*STATE) *3*TYPE (QUOTE 0) (QUOTE *1*FALSE))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*RAMP *3*TYPE) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*STATE) *1*F)) (*1*STATE-OKP-0 (*1*RAM-GUTS *3*STATE) (*1*RAM-GUTS *3*TYPE) (QUOTE 0) (QUOTE *1*FALSE))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*ROMP *3*TYPE) *1*F)) (COND ((NOT (EQ (*1*ROMP *3*STATE) *1*F)) (*1*STATE-OKP-0 (*1*ROM-GUTS *3*STATE) (*1*ROM-GUTS *3*TYPE) (QUOTE 0) (QUOTE *1*FALSE))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*STUBP *3*TYPE) *1*F)) (COND ((NOT (EQ (*1*STUBP *3*STATE) *1*F)) (*1*STATE-OKP-0 (*1*STUB-GUTS *3*STATE) (*1*STUB-GUTS *3*TYPE) (QUOTE 0) (QUOTE *1*FALSE))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*STATE-OKP) (QUOTE (SEXPR (LAMBDA (*3*FN *3*STATE *3*NETLIST) (*1*STATE-OKP-0 *3*STATE (*1*STATE-TYPE-REQUIREMENT (QUOTE 0) *3*FN *3*NETLIST) (QUOTE 0) (QUOTE *1*FALSE)))))) (PUT1-LST (QUOTE *1*FIX-DEPENDENT-DRS) (QUOTE (SEXPR (LAMBDA (*3*DRS *3*ALIST) (COND ((AND (CONSP *3*DRS) (NOT (EQ (CAR *3*DRS) (QUOTE *1*QUOTE)))) (CONS (COND ((NOT (EQ (*1*SIGNAL-NAMEP (CAR *3*DRS)) *1*F)) (*1*VALUE (CAR *3*DRS) *3*ALIST)) ((NOT (EQ (*1*AND (COND ((AND (CONSP (CAR *3*DRS)) (NOT (EQ (CAR (CAR *3*DRS)) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR (CAR *3*DRS)) (QUOTE MIN)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (CONS (QUOTE MIN) (*1*FIX-DEPENDENT-DRS (*1*CDR (CAR *3*DRS)) *3*ALIST))) (T (CAR *3*DRS))) (*1*FIX-DEPENDENT-DRS (CDR *3*DRS) *3*ALIST))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*LOADINGS-AND-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*X2 *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (CONS (*1*PRIMP-LOOKUP *3*X0 (QUOTE LOADINGS)) (CONS (CONS (QUOTE DRIVES) (*1*FIX-DEPENDENT-DRS (*1*PRIMP2 *3*X0 (QUOTE DRIVES)) (*1*APPEND (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE INPUTS)) *3*X1) (*1*PAIRLIST (*1*PRIMP2 *3*X0 (QUOTE OUTPUTS)) *3*X2)))) (QUOTE NIL)))) ((NOT (EQ (*1*LOOKUP-MODULE *3*X0 *3*NETLIST) *1*F)) (COND ((NOT (EQ (*1*NET-ERRORP (SETQ *2*TEMP5 (*1*NETLIST-PROPERTIES (*1*SUBNET (QUOTE 0) *3*X0 *3*NETLIST) (QUOTE (LOADINGS DRIVES INPUTS OUTPUTS)) (QUOTE *1*TRUE)))) *1*F)) *2*TEMP5) (T (CONS (*1*ALIST-ENTRY (QUOTE LOADINGS) (SETQ *2*TEMP4 (*1*VALUE *3*X0 *2*TEMP5))) (CONS (CONS (QUOTE DRIVES) (*1*FIX-DEPENDENT-DRS (*1*VALUE (QUOTE DRIVES) *2*TEMP4) (*1*APPEND (*1*PAIRLIST (*1*VALUE (QUOTE INPUTS) *2*TEMP4) *3*X1) (*1*PAIRLIST (*1*VALUE (QUOTE OUTPUTS) *2*TEMP4) *3*X2)))) (QUOTE NIL)))))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-MODULE) *3*X0)))) ((EQUAL *3*FLG (QUOTE 1)) (CONS (*1*ALIST-ENTRY (QUOTE LOADINGS) (SETQ *2*TEMP3 (*1*OCCURRENCE-DATA (SETQ *2*TEMP2 (*1*REQUIRED-PROPS (QUOTE (LOADINGS DRIVES)))) *3*X0 *3*X1 (*1*MARK-IO-OUTS *3*X2 (SETQ *2*TEMP1 (*1*INTERSECTION *3*X1 *3*X2))) *2*TEMP1 (*1*MODULE-DATABASE (*1*SUBNET (QUOTE 1) *3*X0 *3*NETLIST) *2*TEMP2 (QUOTE *1*TRUE))))) (CONS (*1*ALIST-ENTRY (QUOTE DRIVES) *2*TEMP3) (QUOTE NIL)))) (T (*1*PRED-ERROR (QUOTE UNKNOWN-FLAG) (CONS (CONS (QUOTE FLG) (CONS *3*FLG (QUOTE NIL))) (CONS (CONS (QUOTE X0) (CONS *3*X0 (QUOTE NIL))) (CONS (CONS (QUOTE X1) (CONS *3*X1 (QUOTE NIL))) (CONS (CONS (QUOTE X2) (CONS *3*X2 (QUOTE NIL))) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*NETLIST-LOADINGS-AND-DRIVES) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*NETLIST-PROPERTIES *3*NETLIST (QUOTE (LOADINGS DRIVES)) (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*AO2&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*AO2$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*AO4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*AO4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*AO6&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*AO6$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*AO7&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*AO7$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-AND&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-AND$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-AND3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-AND3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-AND4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-AND4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-EQUV&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-EQUV$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-EQUV3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-EQUV3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-IF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-IF$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND5&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND5$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND6&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND6$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NAND8&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NAND8$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NBUF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NBUF$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR5&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR5$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR6&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR6$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOR8&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOR8$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOT-B4IP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOT-B4IP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-NOT-IVAP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-NOT-IVAP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-OR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-OR$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-OR3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-OR3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-OR4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-OR4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-XOR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-XOR$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-XOR3&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*B-XOR3$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*DEL2&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*DEL2$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*DEL4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*DEL4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*DEL10&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*DEL10$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*PROCMON&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*PROCMON$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*DP-RAM-16X32&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*DP-RAM-16X32$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*FD1&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*FD1$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*FD1S&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*FD1S$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*FD1SP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*FD1SP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*FD1SLP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*FD1SLP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*ID&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*ID$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*MEM-32X32&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*MEM-32X32$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*RAM-ENABLE-CIRCUIT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*RAM-ENABLE-CIRCUIT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*T-BUF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*T-BUF$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*T-WIRE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*T-WIRE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*PULLUP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*PULLUP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-CLK-INPUT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-CLK-INPUT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-INPUT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-INPUT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PARAMETRIC&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PARAMETRIC$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-FAST&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-FAST$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-FAST&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-FAST$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*VDD&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*VDD$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*VDD-PARAMETRIC&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*VDD-PARAMETRIC$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*VSS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (PROGN *3*NETLIST (QUOTE *1*TRUE)))))) (PUT1-LST (QUOTE *1*VSS$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (QUOTE NIL))))) (PUT1-LST (QUOTE *1*B-BUF*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (B-BUF (IN) (OUT) ((G0 (OUT- OUT) B-NBUF (IN))) NIL)))))) (PUT1-LST (QUOTE *1*B-BUF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE B-BUF) *3*NETLIST) (*1*B-BUF*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*B-NBUF& (*1*DELETE-MODULE (QUOTE B-BUF) *3*NETLIST))))))) (PUT1-LST (QUOTE *1*B-BUF$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*B-BUF*) (*1*B-NBUF$NETLIST)))))) (PUT1-LST (QUOTE *1*B-BUF-PWR*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (B-BUF-PWR (IN) (OUT) ((G0 (OUT-) B-NOT (IN)) (G1 (OUT) B-NOT-B4IP (OUT-))) NIL)))))) (PUT1-LST (QUOTE *1*B-BUF-PWR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE B-BUF-PWR) *3*NETLIST) (*1*B-BUF-PWR*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE B-BUF-PWR) *3*NETLIST))) (*1*B-NOT-B4IP& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*B-BUF-PWR$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*B-BUF-PWR*) (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NOT-B4IP$NETLIST))))))) (PUT1-LST (QUOTE *1*UNBOUND-IN-BODY) (QUOTE (SEXPR (LAMBDA (*3*NAME *3*BODY) (COND ((NOT (EQ (*1*NLISTP *3*BODY) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*NOT (*1*MEMBER *3*NAME (*1*OCC-OUTPUTS (*1*CAR *3*BODY)))) (*1*UNBOUND-IN-BODY *3*NAME (*1*CDR *3*BODY))))))))) (PUT1-LST (QUOTE *1*ALL-UNBOUND-IN-BODY) (QUOTE (SEXPR (LAMBDA (*3*NAMES *3*BODY) (COND ((NOT (EQ (*1*NLISTP *3*BODY) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*DISJOINT *3*NAMES (*1*OCC-OUTPUTS (*1*CAR *3*BODY))) (*1*ALL-UNBOUND-IN-BODY *3*NAMES (*1*CDR *3*BODY))))))))) (PUT1-LST (QUOTE *1*VECTOR-MODULE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*BODY *3*M *3*N *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE VECTOR-MODULE-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*VECTOR-MODULE-INDUCTION (*1*CDR *3*BODY) (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 1) *3*BODY *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*V-BUF$BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE Y) *3*M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (QUOTE NIL)) (QUOTE NIL))))) (*1*V-BUF$BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-BUF*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE V-BUF) *3*N) (CONS (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (CONS (*1*INDICES (QUOTE Y) (QUOTE 0) *3*N) (CONS (*1*V-BUF$BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*V-BUF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE V-BUF) *3*N)) *3*NETLIST) (*1*V-BUF* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*B-BUF& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*V-BUF$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-BUF* *3*N) (*1*B-BUF$NETLIST)))))) (PUT1-LST (QUOTE *1*V-OR$BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE Y) *3*M) (QUOTE NIL)) (CONS (QUOTE B-OR) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (CONS (*1*INDEX (QUOTE B) *3*M) (QUOTE NIL))) (QUOTE NIL))))) (*1*V-OR$BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-OR*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE V-OR) *3*N) (CONS (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (*1*INDICES (QUOTE B) (QUOTE 0) *3*N)) (CONS (*1*INDICES (QUOTE Y) (QUOTE 0) *3*N) (CONS (*1*V-OR$BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*V-OR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE V-OR) *3*N)) *3*NETLIST) (*1*V-OR* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*B-OR& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*V-OR$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-OR* *3*N) (*1*B-OR$NETLIST)))))) (PUT1-LST (QUOTE *1*V-XOR$BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE Y) *3*M) (QUOTE NIL)) (CONS (QUOTE B-XOR) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (CONS (*1*INDEX (QUOTE B) *3*M) (QUOTE NIL))) (QUOTE NIL))))) (*1*V-XOR$BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-XOR*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE V-XOR) *3*N) (CONS (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (*1*INDICES (QUOTE B) (QUOTE 0) *3*N)) (CONS (*1*INDICES (QUOTE Y) (QUOTE 0) *3*N) (CONS (*1*V-XOR$BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*V-XOR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE V-XOR) *3*N)) *3*NETLIST) (*1*V-XOR* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*B-XOR& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*V-XOR$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-XOR* *3*N) (*1*B-XOR$NETLIST)))))) (PUT1-LST (QUOTE *1*V-PULLUP$BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE Y) *3*M) (QUOTE NIL)) (CONS (QUOTE PULLUP) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (QUOTE NIL)) (QUOTE NIL))))) (*1*V-PULLUP$BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-PULLUP*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE V-PULLUP) *3*N) (CONS (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (CONS (*1*INDICES (QUOTE Y) (QUOTE 0) *3*N) (CONS (*1*V-PULLUP$BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*V-PULLUP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE V-PULLUP) *3*N)) *3*NETLIST) (*1*V-PULLUP* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*PULLUP& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*V-PULLUP$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-PULLUP* *3*N) (*1*PULLUP$NETLIST)))))) (PUT1-LST (QUOTE *1*V-WIRE$BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE Y) *3*M) (QUOTE NIL)) (CONS (QUOTE T-WIRE) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (CONS (*1*INDEX (QUOTE B) *3*M) (QUOTE NIL))) (QUOTE NIL))))) (*1*V-WIRE$BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*V-WIRE*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE V-WIRE) *3*N) (CONS (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (*1*INDICES (QUOTE B) (QUOTE 0) *3*N)) (CONS (*1*INDICES (QUOTE Y) (QUOTE 0) *3*N) (CONS (*1*V-WIRE$BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*V-WIRE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE V-WIRE) *3*N)) *3*NETLIST) (*1*V-WIRE* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*T-WIRE& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*V-WIRE$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-WIRE* *3*N) (*1*T-WIRE$NETLIST)))))) (PUT1-LST (QUOTE *1*REV-0) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*REV1 *3*X (QUOTE 0)))))) (PUT1-LST (QUOTE *1*NUMBER-TO-DIGIT) (QUOTE (SEXPR (LAMBDA (*3*NUMBER) (*1*NTH *3*NUMBER (*1*CDR (*1*UNPACK (QUOTE A0123456789)))))))) (PUT1-LST (QUOTE *1*NUMBER-TO-LIST1) (QUOTE (SEXPR (LAMBDA (*3*NUMBER) (COND ((NOT (EQ (*1*ZEROP *3*NUMBER) *1*F)) (QUOTE 0)) (T (CONS (*1*NUMBER-TO-DIGIT (*1*REMAINDER *3*NUMBER (QUOTE 10))) (*1*NUMBER-TO-LIST1 (*1*QUOTIENT *3*NUMBER (QUOTE 10)))))))))) (PUT1-LST (QUOTE *1*NUMBER-TO-LIST) (QUOTE (SEXPR (LAMBDA (*3*NUMBER) (COND ((NOT (EQ (*1*ZEROP *3*NUMBER) *1*F)) (CONS (*1*CAR (*1*CDR (*1*UNPACK (QUOTE A0)))) (QUOTE 0))) (T (*1*REV-0 (*1*NUMBER-TO-LIST1 *3*NUMBER)))))))) (PUT1-LST (QUOTE *1*LISP-NETLIST) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (COND ((NOT (EQ (*1*INDEXP *3*NETLIST) *1*F)) (*1*PACK (*1*APPEND (*1*UNPACK (*1*I-NAME *3*NETLIST)) (CONS (*1*CAR (*1*CDR (*1*UNPACK (QUOTE A_)))) (*1*NUMBER-TO-LIST (*1*I-NUM *3*NETLIST)))))) ((NOT (EQ (*1*NLISTP *3*NETLIST) *1*F)) *3*NETLIST) (T (CONS (*1*LISP-NETLIST (*1*CAR *3*NETLIST)) (*1*LISP-NETLIST (*1*CDR *3*NETLIST))))))))) (PUT1-LST (QUOTE *1*COLLECT-PRIMITIVES) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*OR (*1*PRIMP *3*X0) (*1*NOT (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST)))) *1*F)) (CONS *3*X0 (QUOTE NIL))) (T (*1*FLATTEN-LIST (*1*COLLECT-PRIMITIVES (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP1) (*1*DELETE-MODULE *3*X0 *3*NETLIST)))))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) (QUOTE NIL)) (T (CONS (*1*COLLECT-PRIMITIVES (QUOTE 0) (*1*OCC-FUNCTION (*1*CAR *3*X0)) *3*NETLIST) (*1*COLLECT-PRIMITIVES (QUOTE 1) (*1*CDR *3*X0) *3*NETLIST))))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*COUNT-PRIMITIVES) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X0 *3*X1 *3*TYPE *3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL *3*FLG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*X0) *1*F)) (COND ((NOT (EQ (*1*PRIMP-LOOKUP *3*X0 *3*TYPE) *1*F)) (*1*PRIMP2 *3*X0 *3*TYPE)) (T (QUOTE *1*FALSE)))) ((AND (CONSP (SETQ *2*TEMP2 (*1*LOOKUP-MODULE *3*X0 *3*NETLIST))) (NOT (EQ (CAR *2*TEMP2) (QUOTE *1*QUOTE)))) (*1*COUNT-PRIMITIVES (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP2) (QUOTE 0) *3*TYPE (*1*DELETE-MODULE *3*X0 *3*NETLIST))) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLG (QUOTE 1)) (COND ((NOT (EQ (*1*NLISTP *3*X0) *1*F)) *3*X1) ((NOT (EQ (SETQ *2*TEMP1 (*1*COUNT-PRIMITIVES (QUOTE 0) (*1*OCC-FUNCTION (*1*CAR *3*X0)) (QUOTE NIL) *3*TYPE *3*NETLIST)) *1*F)) (*1*COUNT-PRIMITIVES (QUOTE 1) (*1*CDR *3*X0) (*1*PLUS *3*X1 *2*TEMP1) *3*TYPE *3*NETLIST)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*HALF-ADDER*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (HALF-ADDER (A B) (SUM CARRY) ((G0 (SUM) B-XOR (A B)) (G1 (CARRY) B-AND (A B))) NIL)))))) (PUT1-LST (QUOTE *1*HALF-ADDER$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*HALF-ADDER*) (*1*UNION (*1*B-XOR$NETLIST) (*1*B-AND$NETLIST))))))) (PUT1-LST (QUOTE *1*HALF-ADDER&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE HALF-ADDER) *3*NETLIST) (*1*HALF-ADDER*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-XOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE HALF-ADDER) *3*NETLIST))) (*1*B-AND& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*FULL-ADDER*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (FULL-ADDER (A B C) (SUM CARRY) ((T0 (SUM1 CARRY1) HALF-ADDER (A B)) (T1 (SUM CARRY2) HALF-ADDER (SUM1 C)) (T2 (CARRY) B-OR (CARRY1 CARRY2))) NIL)))))) (PUT1-LST (QUOTE *1*FULL-ADDER$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*FULL-ADDER*) (*1*UNION (*1*HALF-ADDER$NETLIST) (*1*B-OR$NETLIST))))))) (PUT1-LST (QUOTE *1*FULL-ADDER&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE FULL-ADDER) *3*NETLIST) (*1*FULL-ADDER*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*HALF-ADDER& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE FULL-ADDER) *3*NETLIST))) (*1*B-OR& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*F$FULL-ADDER) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*F-XOR (SETQ *2*TEMP1 (*1*F-XOR *3*A *3*B)) *3*C) (CONS (*1*F-OR (*1*F-AND *3*A *3*B) (*1*F-AND *2*TEMP1 *3*C)) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*FULL-ADDER) (QUOTE (SEXPR (LAMBDA (*3*A *3*B *3*C) (CONS (*1*B-XOR3 *3*A *3*B *3*C) (CONS (*1*B-OR (*1*B-AND *3*A (*1*B-OR *3*B *3*C)) (*1*B-AND *3*B *3*C)) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*M1*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (M1 (CLK EN SEL D Q) (Q) ((MUX (B) B-IF (SEL D Q)) (LATCH (A AN) FD1 (B CLK)) (TBUF (Q) T-BUF (EN A))) LATCH)))))) (PUT1-LST (QUOTE *1*M1$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*M1*) (*1*UNION (*1*UNION (*1*B-IF$NETLIST) (*1*FD1$NETLIST)) (*1*T-BUF$NETLIST))))))) (PUT1-LST (QUOTE *1*M1&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE M1) *3*NETLIST) (*1*M1*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-IF& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE M1) *3*NETLIST))) (*1*AND (*1*FD1& *2*TEMP1) (*1*T-BUF& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*M2*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (M2 (CLK EN0 EN1 SEL0 SEL1 D0 D1) (Q) ((OCC0 (Q0) M1 (CLK EN0 SEL0 D0 Q)) (OCC1 (Q1) M1 (CLK EN1 SEL1 D1 Q)) (WIRE (Q) T-WIRE (Q0 Q1))) (OCC0 OCC1))))))) (PUT1-LST (QUOTE *1*M2$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*M2*) (*1*UNION (*1*M1$NETLIST) (*1*T-WIRE$NETLIST))))))) (PUT1-LST (QUOTE *1*M2&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE M2) *3*NETLIST) (*1*M2*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*M1& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE M2) *3*NETLIST))) (*1*T-WIRE& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*BV-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (CONS *3*C (QUOTE NIL))) (T (CONS (*1*XOR *3*C (*1*XOR (SETQ *2*TEMP2 (*1*CAR *3*A)) (SETQ *2*TEMP1 (*1*CAR *3*B)))) (*1*BV-ADDER (*1*OR (*1*AND *2*TEMP2 *2*TEMP1) (*1*OR (*1*AND *2*TEMP2 *3*C) (*1*AND *2*TEMP1 *3*C))) (*1*CDR *3*A) (*1*CDR *3*B)))))))))) (PUT1-LST (QUOTE *1*BV-ADDER-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE SUM) *3*M) (CONS (*1*INDEX (QUOTE CARRY) (SETQ *2*TEMP1 (*1*ADD1 *3*M))) (QUOTE NIL))) (CONS (QUOTE FULL-ADDER) (CONS (CONS (*1*INDEX (QUOTE A) *3*M) (CONS (*1*INDEX (QUOTE B) *3*M) (CONS (*1*INDEX (QUOTE CARRY) *3*M) (QUOTE NIL)))) (QUOTE NIL))))) (*1*BV-ADDER-BODY *2*TEMP1 (*1*SUB1 *3*N)))))))))) (PUT1-LST (QUOTE *1*BV-ADDER*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE BV-ADDER) *3*N) (CONS (CONS (QUOTE (*1*QUOTE INDEX CARRY 0)) (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (*1*INDICES (QUOTE B) (QUOTE 0) *3*N))) (CONS (*1*APPEND (*1*INDICES (QUOTE SUM) (QUOTE 0) *3*N) (CONS (*1*INDEX (QUOTE CARRY) *3*N) (QUOTE NIL))) (CONS (*1*BV-ADDER-BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*BV-ADDER&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP1 (*1*INDEX (QUOTE BV-ADDER) *3*N)) *3*NETLIST) (*1*BV-ADDER* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*FULL-ADDER& (*1*DELETE-MODULE *2*TEMP1 *3*NETLIST)))))))) (PUT1-LST (QUOTE *1*BV-ADDER$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*BV-ADDER* *3*N) (*1*FULL-ADDER$NETLIST)))))) (PUT1-LST (QUOTE *1*BV-ADDER-BODY$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE BV-ADDER-BODY$INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*BINDINGS) (T (*1*BV-ADDER-BODY$INDUCTION (SETQ *2*TEMP1 (*1*ADD1 *3*M)) (*1*SUB1 *3*N) (*1*APPEND (*1*PAIRLIST (CONS (*1*INDEX (QUOTE SUM) *3*M) (CONS (*1*INDEX (QUOTE CARRY) *2*TEMP1) (QUOTE NIL))) (*1*DUAL-EVAL (QUOTE 0) (QUOTE FULL-ADDER) (*1*COLLECT-VALUE (CONS (*1*INDEX (QUOTE A) *3*M) (CONS (*1*INDEX (QUOTE B) *3*M) (CONS (*1*INDEX (QUOTE CARRY) *3*M) (QUOTE NIL)))) *3*BINDINGS) (*1*VALUE (*1*INDEX (QUOTE G) *3*M) *3*STATE-BINDINGS) *3*NETLIST)) *3*BINDINGS) *3*STATE-BINDINGS *3*NETLIST))))))))))) (PUT1-LST (QUOTE *1*V-SUM) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (CONS (*1*B-XOR *3*C (*1*B-XOR (SETQ *2*TEMP2 (*1*CAR *3*A)) (SETQ *2*TEMP1 (*1*CAR *3*B)))) (*1*V-SUM (*1*B-OR3 (*1*B-AND *2*TEMP2 *2*TEMP1) (*1*B-AND *2*TEMP2 *3*C) (*1*B-AND *2*TEMP1 *3*C)) (*1*CDR *3*A) (*1*CDR *3*B)))))))))) (PUT1-LST (QUOTE *1*V-CARRY) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (*1*BOOLFIX *3*C)) (T (*1*V-CARRY (*1*OR (*1*AND (SETQ *2*TEMP2 (*1*CAR *3*A)) (SETQ *2*TEMP1 (*1*CAR *3*B))) (*1*AND (*1*OR *2*TEMP2 *2*TEMP1) *3*C)) (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*V-PROPAGATE) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*OR (*1*CAR *3*A) (*1*CAR *3*B)) (*1*V-PROPAGATE (*1*CDR *3*A) (*1*CDR *3*B))))))))) (PUT1-LST (QUOTE *1*V-GENERATE) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE *1*FALSE)) (T (*1*OR (*1*V-GENERATE (SETQ *2*TEMP2 (*1*CDR *3*A)) (SETQ *2*TEMP1 (*1*CDR *3*B))) (*1*AND (*1*CAR *3*A) (*1*AND (*1*CAR *3*B) (*1*V-PROPAGATE *2*TEMP2 *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*F$T-CARRY) (QUOTE (SEXPR (LAMBDA (*3*C *3*PROP *3*GEN) (*1*F-OR (*1*F-AND *3*C *3*PROP) *3*GEN))))) (PUT1-LST (QUOTE *1*T-CARRY) (QUOTE (SEXPR (LAMBDA (*3*C *3*PROP *3*GEN) (*1*B-NOT (*1*AO6 *3*C *3*PROP *3*GEN)))))) (PUT1-LST (QUOTE *1*T-CARRY*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (T-CARRY (C PROP GEN) (Z) ((G0 (Z-) AO6 (C PROP GEN)) (G1 (Z) B-NOT (Z-))) NIL)))))) (PUT1-LST (QUOTE *1*T-CARRY&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE T-CARRY) *3*NETLIST) (*1*T-CARRY*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*AO6& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE T-CARRY) *3*NETLIST))) (*1*B-NOT& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*T-CARRY$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*T-CARRY*) (*1*UNION (*1*AO6$NETLIST) (*1*B-NOT$NETLIST))))))) (PUT1-LST (QUOTE *1*TV-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (*1*B-OR (SETQ *2*TEMP9 (*1*CAR *3*A)) (SETQ *2*TEMP8 (*1*CAR *3*B))) (CONS (*1*B-AND *2*TEMP9 *2*TEMP8) (CONS (*1*B-XOR *2*TEMP9 (*1*B-XOR *2*TEMP8 *3*C)) (QUOTE NIL))))) (T (CONS (*1*B-AND (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*TV-ADDER *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*TFIRSTN *3*B *3*TREE) (*1*CAR *3*TREE))))) (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*TV-ADDER (*1*T-CARRY *3*C *2*TEMP7 (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP6))))) (*1*TRESTN *3*A *3*TREE) (*1*TRESTN *3*B *3*TREE) (*1*CDR *3*TREE)))))) (CONS (*1*T-CARRY *2*TEMP3 *2*TEMP5 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP4)))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*TV-IF-BODY) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE ((LEAF ((*1*QUOTE INDEX OUT 0)) B-IF (C (*1*QUOTE INDEX A 0) (*1*QUOTE INDEX B 0)))))) (T (*1*APPEND (COND ((NOT (EQ (SETQ *2*TEMP6 (*1*ZEROP (*1*REMAINDER (*1*TREE-HEIGHT *3*TREE) (QUOTE 3)))) *1*F)) (QUOTE ((C-BUF (C-BUF) B-BUF (C))))) (T (QUOTE NIL))) (CONS (CONS (QUOTE LEFT) (CONS (*1*TFIRSTN (SETQ *2*TEMP5 (*1*INDICES (QUOTE OUT) (QUOTE 0) (SETQ *2*TEMP4 (*1*TREE-SIZE *3*TREE)))) *3*TREE) (CONS (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER (*1*CAR *3*TREE))) (CONS (CONS (SETQ *2*TEMP3 (COND ((NOT (EQ *2*TEMP6 *1*F)) (QUOTE C-BUF)) (T (QUOTE C)))) (*1*APPEND (*1*TFIRSTN (SETQ *2*TEMP2 (*1*INDICES (QUOTE A) (QUOTE 0) *2*TEMP4)) *3*TREE) (*1*TFIRSTN (SETQ *2*TEMP1 (*1*INDICES (QUOTE B) (QUOTE 0) *2*TEMP4)) *3*TREE))) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (*1*TRESTN *2*TEMP5 *3*TREE) (CONS (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER (*1*CDR *3*TREE))) (CONS (CONS *2*TEMP3 (*1*APPEND (*1*TRESTN *2*TEMP2 *3*TREE) (*1*TRESTN *2*TEMP1 *3*TREE))) (QUOTE NIL))))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*TV-IF*) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER *3*TREE)) (CONS (CONS (QUOTE C) (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) (SETQ *2*TEMP1 (*1*TREE-SIZE *3*TREE))) (*1*INDICES (QUOTE B) (QUOTE 0) *2*TEMP1))) (CONS (*1*INDICES (QUOTE OUT) (QUOTE 0) *2*TEMP1) (CONS (*1*TV-IF-BODY *3*TREE) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TV-IF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-IF* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*B-IF& (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)))) (T (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-IF* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-BUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*AND (*1*TV-IF& *2*TEMP1 (*1*CAR *3*TREE)) (*1*TV-IF& *2*TEMP1 (*1*CDR *3*TREE)))))))))))) (PUT1-LST (QUOTE *1*TV-IF$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET NIL (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (*1*TV-IF* *3*TREE) (*1*B-IF$NETLIST))) (T (CONS (*1*TV-IF* *3*TREE) (*1*UNION (*1*TV-IF$NETLIST (*1*CAR *3*TREE)) (*1*UNION (*1*TV-IF$NETLIST (*1*CDR *3*TREE)) (*1*B-BUF$NETLIST))))))))))) (PUT1-LST (QUOTE *1*TV-IF-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*C *3*A *3*B *3*STATE *3*NETLIST) (PROGN *3*STATE (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*TV-IF-INDUCTION (SETQ *2*TEMP7 (*1*CAR *3*TREE)) *3*C (SETQ *2*TEMP6 (*1*TFIRSTN *3*A *3*TREE)) (SETQ *2*TEMP5 (*1*TFIRSTN *3*B *3*TREE)) (QUOTE 0) (SETQ *2*TEMP4 (*1*DELETE-MODULE (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER *3*TREE)) *3*NETLIST))) (*1*AND (*1*TV-IF-INDUCTION *2*TEMP7 (QUOTE (*1*QUOTE X)) *2*TEMP6 *2*TEMP5 (QUOTE 0) *2*TEMP4) (*1*AND (*1*TV-IF-INDUCTION (SETQ *2*TEMP3 (*1*CDR *3*TREE)) *3*C (SETQ *2*TEMP2 (*1*TRESTN *3*A *3*TREE)) (SETQ *2*TEMP1 (*1*TRESTN *3*B *3*TREE)) (QUOTE 0) *2*TEMP4) (*1*TV-IF-INDUCTION *2*TEMP3 (QUOTE (*1*QUOTE X)) *2*TEMP2 *2*TEMP1 (QUOTE 0) *2*TEMP4)))))))))))) (PUT1-LST (QUOTE *1*T-OR-NOR-BODY) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*PARITY) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (OUT)) (CONS (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE B-NOT)) (T (QUOTE B-BUF))) (QUOTE (((*1*QUOTE INDEX A 0))))))) (QUOTE NIL))) ((NOT (EQ (*1*AND (*1*NLISTP (SETQ *2*TEMP4 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP3 (*1*CDR *3*TREE)))) *1*F)) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (OUT)) (CONS (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE B-NOR)) (T (QUOTE B-OR))) (QUOTE (((*1*QUOTE INDEX A 0) (*1*QUOTE INDEX A 1))))))) (QUOTE NIL))) (T (CONS (CONS (QUOTE LEFT) (CONS (QUOTE (LEFT-OUT)) (CONS (*1*INDEX (SETQ *2*TEMP2 (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE T-OR)) (T (QUOTE T-NOR)))) (*1*TREE-NUMBER *2*TEMP4)) (CONS (*1*TFIRSTN (SETQ *2*TEMP1 (*1*INDICES (QUOTE A) (QUOTE 0) (*1*TREE-SIZE *3*TREE))) *3*TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE RIGHT) (CONS (QUOTE (RIGHT-OUT)) (CONS (*1*INDEX *2*TEMP2 (*1*TREE-NUMBER *2*TEMP3)) (CONS (*1*TRESTN *2*TEMP1 *3*TREE) (QUOTE NIL))))) (CONS (CONS (QUOTE OUTPUT) (CONS (QUOTE (OUT)) (CONS (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE B-NOR)) (T (QUOTE B-NAND))) (QUOTE ((LEFT-OUT RIGHT-OUT)))))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*T-OR-NOR*) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*PARITY) (CONS (*1*INDEX (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE T-NOR)) (T (QUOTE T-OR))) (*1*TREE-NUMBER *3*TREE)) (CONS (*1*INDICES (QUOTE A) (QUOTE 0) (*1*TREE-SIZE *3*TREE)) (CONS (QUOTE (OUT)) (CONS (*1*T-OR-NOR-BODY *3*TREE *3*PARITY) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*T-OR-NOR&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE *3*PARITY) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*TREE) (*1*AND (*1*NLISTP (SETQ *2*TEMP5 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP4 (*1*CDR *3*TREE))))) *1*F)) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP3 (*1*INDEX (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE T-NOR)) (T (QUOTE T-OR))) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*T-OR-NOR* *3*TREE *3*PARITY)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP2 (*1*DELETE-MODULE *2*TEMP3 *3*NETLIST))) (*1*AND (*1*B-BUF& *2*TEMP2) (*1*AND (*1*B-NOR& *2*TEMP2) (*1*AND (*1*B-OR& *2*TEMP2) (*1*B-NAND& *2*TEMP2))))))) (T (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP3 (*1*INDEX (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE T-NOR)) (T (QUOTE T-OR))) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*T-OR-NOR* *3*TREE *3*PARITY)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*T-OR-NOR& (SETQ *2*TEMP2 (*1*DELETE-MODULE *2*TEMP3 *3*NETLIST)) *2*TEMP5 (SETQ *2*TEMP1 (*1*NOT *3*PARITY))) (*1*AND (*1*T-OR-NOR& *2*TEMP2 *2*TEMP4 *2*TEMP1) (*1*AND (*1*B-NOT& *2*TEMP2) (*1*AND (*1*B-BUF& *2*TEMP2) (*1*AND (*1*B-NOR& *2*TEMP2) (*1*AND (*1*B-OR& *2*TEMP2) (*1*B-NAND& *2*TEMP2))))))))))))))) (PUT1-LST (QUOTE *1*T-OR-NOR$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*PARITY) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*TREE) (*1*AND (*1*NLISTP (SETQ *2*TEMP3 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP2 (*1*CDR *3*TREE))))) *1*F)) (CONS (*1*T-OR-NOR* *3*TREE *3*PARITY) (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-BUF$NETLIST)) (*1*UNION (*1*B-NOR$NETLIST) (*1*B-OR$NETLIST))) (*1*B-NAND$NETLIST)))) (T (CONS (*1*T-OR-NOR* *3*TREE *3*PARITY) (*1*UNION (*1*T-OR-NOR$NETLIST *2*TEMP3 (SETQ *2*TEMP1 (*1*NOT *3*PARITY))) (*1*T-OR-NOR$NETLIST *2*TEMP2 *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*T-OR-NOR-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*PARITY *3*CALL-NAME *3*A *3*STATE *3*NETLIST) (PROGN *3*CALL-NAME *3*STATE (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*TREE) (*1*AND (*1*NLISTP (SETQ *2*TEMP5 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP4 (*1*CDR *3*TREE))))) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*T-OR-NOR-INDUCTION *2*TEMP5 (SETQ *2*TEMP3 (*1*NOT *3*PARITY)) (SETQ *2*TEMP2 (COND ((NOT (EQ *2*TEMP3 *1*F)) (QUOTE T-NOR)) (T (QUOTE T-OR)))) (*1*TFIRSTN *3*A *3*TREE) (QUOTE 0) (SETQ *2*TEMP1 (*1*DELETE-MODULE (*1*INDEX (COND ((NOT (EQ *3*PARITY *1*F)) (QUOTE T-NOR)) (T (QUOTE T-OR))) (*1*TREE-NUMBER *3*TREE)) *3*NETLIST))) (*1*T-OR-NOR-INDUCTION *2*TEMP4 *2*TEMP3 *2*TEMP2 (*1*TRESTN *3*A *3*TREE) (QUOTE 0) *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*TR-OR-NOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*PARITY *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (COND ((NOT (EQ *3*PARITY *1*F)) (*1*F-NOT (*1*CAR *3*A))) (T (*1*F-BUF (*1*CAR *3*A))))) ((NOT (EQ (*1*AND (*1*NLISTP (SETQ *2*TEMP3 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP2 (*1*CDR *3*TREE)))) *1*F)) (COND ((NOT (EQ *3*PARITY *1*F)) (*1*F-NOR (*1*CAR *3*A) (*1*CAR (*1*CDR *3*A)))) (T (*1*F-OR (*1*CAR *3*A) (*1*CAR (*1*CDR *3*A)))))) ((NOT (EQ *3*PARITY *1*F)) (*1*F-NOR (*1*TR-OR-NOR (*1*TFIRSTN *3*A *3*TREE) (SETQ *2*TEMP1 (*1*NOT *3*PARITY)) *2*TEMP3) (*1*TR-OR-NOR (*1*TRESTN *3*A *3*TREE) *2*TEMP1 *2*TEMP2))) (T (*1*F-NAND (*1*TR-OR-NOR (*1*TFIRSTN *3*A *3*TREE) (SETQ *2*TEMP1 (*1*NOT *3*PARITY)) *2*TEMP3) (*1*TR-OR-NOR (*1*TRESTN *3*A *3*TREE) *2*TEMP1 *2*TEMP2))))))))) (PUT1-LST (QUOTE *1*BTR-OR-NOR) (QUOTE (SEXPR (LAMBDA (*3*A *3*PARITY *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (COND ((NOT (EQ *3*PARITY *1*F)) (*1*B-NOT (*1*CAR *3*A))) (T (*1*B-BUF (*1*CAR *3*A))))) ((NOT (EQ (*1*AND (*1*NLISTP (SETQ *2*TEMP3 (*1*CAR *3*TREE))) (*1*NLISTP (SETQ *2*TEMP2 (*1*CDR *3*TREE)))) *1*F)) (COND ((NOT (EQ *3*PARITY *1*F)) (*1*B-NOR (*1*CAR *3*A) (*1*CAR (*1*CDR *3*A)))) (T (*1*B-OR (*1*CAR *3*A) (*1*CAR (*1*CDR *3*A)))))) ((NOT (EQ *3*PARITY *1*F)) (*1*B-NOR (*1*BTR-OR-NOR (*1*TFIRSTN *3*A *3*TREE) (SETQ *2*TEMP1 (*1*NOT *3*PARITY)) *2*TEMP3) (*1*BTR-OR-NOR (*1*TRESTN *3*A *3*TREE) *2*TEMP1 *2*TEMP2))) (T (*1*B-NAND (*1*BTR-OR-NOR (*1*TFIRSTN *3*A *3*TREE) (SETQ *2*TEMP1 (*1*NOT *3*PARITY)) *2*TEMP3) (*1*BTR-OR-NOR (*1*TRESTN *3*A *3*TREE) *2*TEMP1 *2*TEMP2))))))))) (PUT1-LST (QUOTE *1*TV-ZEROP*) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE TV-ZEROP) (SETQ *2*TEMP2 (*1*TREE-NUMBER *3*TREE))) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE IN) (QUOTE 0) (*1*TREE-SIZE *3*TREE))) (CONS (QUOTE (OUT)) (CONS (COND ((EQUAL (*1*REMAINDER (*1*TREE-HEIGHT *3*TREE) (QUOTE 2)) (QUOTE 1)) (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT-)) (CONS (*1*INDEX (QUOTE T-OR) *2*TEMP2) (CONS *2*TEMP1 (QUOTE NIL))))) (QUOTE ((G1 (OUT) B-NOT (OUT-)))))) (T (CONS (CONS (QUOTE G0) (CONS (QUOTE (OUT)) (CONS (*1*INDEX (QUOTE T-NOR) *2*TEMP2) (CONS *2*TEMP1 (QUOTE NIL))))) (QUOTE NIL)))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TV-ZEROP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-ZEROP) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-ZEROP* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*T-OR-NOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)) *3*TREE (*1*NOT (COND ((EQUAL (*1*REMAINDER (*1*TREE-HEIGHT *3*TREE) (QUOTE 2)) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*B-NOT& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*TV-ZEROP$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE) (CONS (*1*TV-ZEROP* *3*TREE) (*1*UNION (*1*T-OR-NOR$NETLIST *3*TREE (*1*NOT (COND ((EQUAL (*1*REMAINDER (*1*TREE-HEIGHT *3*TREE) (QUOTE 2)) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (*1*B-NOT$NETLIST))))))) (PUT1-LST (QUOTE *1*F$TV-ZEROP) (QUOTE (SEXPR (LAMBDA (*3*A *3*TREE) (COND ((EQUAL (*1*REMAINDER (*1*TREE-HEIGHT *3*TREE) (QUOTE 2)) (QUOTE 1)) (*1*F-NOT (*1*TR-OR-NOR *3*A (QUOTE *1*FALSE) *3*TREE))) (T (*1*TR-OR-NOR *3*A (QUOTE *1*TRUE) *3*TREE))))))) (PUT1-LST (QUOTE *1*F$FAST-ZERO) (QUOTE (SEXPR (LAMBDA (*3*V) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*F-NOR3 (*1*TR-OR-NOR (*1*FIRSTN (SETQ *2*TEMP2 (*1*SUB1 (SETQ *2*TEMP1 (*1*SUB1 (*1*LENGTH *3*V))))) *3*V) (QUOTE *1*FALSE) (*1*MAKE-TREE *2*TEMP2)) (*1*NTH *2*TEMP2 *3*V) (*1*NTH *2*TEMP1 *3*V))))))) (PUT1-LST (QUOTE *1*FAST-ZERO*) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE FAST-ZERO) *3*N) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE A) (QUOTE 0) *3*N)) (CONS (QUOTE (Z)) (CONS (CONS (CONS (QUOTE FRONT) (CONS (QUOTE (ZFRONT)) (CONS (*1*INDEX (QUOTE T-OR) (*1*TREE-NUMBER (*1*MAKE-TREE (SETQ *2*TEMP2 (*1*SUB1 (SETQ *2*TEMP1 (*1*SUB1 *3*N))))))) (CONS (*1*FIRSTN *2*TEMP2 *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE RESULT) (CONS (QUOTE (Z)) (CONS (QUOTE B-NOR3) (CONS (CONS (QUOTE ZFRONT) (CONS (*1*INDEX (QUOTE A) *2*TEMP2) (CONS (*1*INDEX (QUOTE A) *2*TEMP1) (QUOTE NIL)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*FAST-ZERO&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE FAST-ZERO) *3*N)) *3*NETLIST) (*1*FAST-ZERO* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*T-OR-NOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)) (*1*MAKE-TREE (*1*SUB1 (*1*SUB1 *3*N))) (QUOTE *1*FALSE)) (*1*B-NOR3& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*FAST-ZERO$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*FAST-ZERO* *3*N) (*1*UNION (*1*T-OR-NOR$NETLIST (*1*MAKE-TREE (*1*SUB1 (*1*SUB1 *3*N))) (QUOTE *1*FALSE)) (*1*B-NOR3$NETLIST))))))) (PUT1-LST (QUOTE *1*V-EQUAL*) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE V-EQUAL) *3*N) (CONS (SETQ *2*TEMP2 (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) *3*N) (*1*INDICES (QUOTE B) (QUOTE 0) *3*N))) (CONS (QUOTE (EQUAL)) (CONS (CONS (CONS (QUOTE G0) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE X) (QUOTE 0) *3*N)) (CONS (*1*INDEX (QUOTE V-XOR) *3*N) (CONS *2*TEMP2 (QUOTE NIL))))) (CONS (CONS (QUOTE G1) (CONS (QUOTE (EQUAL)) (CONS (*1*INDEX (QUOTE TV-ZEROP) (*1*TREE-NUMBER (*1*MAKE-TREE *3*N))) (CONS *2*TEMP1 (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*V-EQUAL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE V-EQUAL) *3*N)) *3*NETLIST) (*1*V-EQUAL* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-XOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)) *3*N) (*1*TV-ZEROP& *2*TEMP1 (*1*MAKE-TREE *3*N))))))))) (PUT1-LST (QUOTE *1*V-EQUAL$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*V-EQUAL* *3*N) (*1*UNION (*1*V-XOR$NETLIST *3*N) (*1*TV-ZEROP$NETLIST (*1*MAKE-TREE *3*N)))))))) (PUT1-LST (QUOTE *1*F$V-EQUAL) (QUOTE (SEXPR (LAMBDA (*3*A *3*B) (*1*F$TV-ZEROP (*1*FV-XOR *3*A *3*B) (*1*MAKE-TREE (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-INC4) (QUOTE (SEXPR (LAMBDA (*3*A0 *3*A1 *3*A2 *3*A3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (SETQ *2*TEMP3 (*1*B-NOT *3*A0)) (CONS (*1*B-XOR (SETQ *2*TEMP2 (*1*B-NOT *3*A1)) *2*TEMP3) (CONS (*1*B-EQUV (SETQ *2*TEMP1 (*1*B-NOT *3*A2)) (*1*B-NOR *2*TEMP3 *2*TEMP2)) (CONS (*1*B-EQUV (*1*B-NOT *3*A3) (*1*B-NOR3 *2*TEMP3 *2*TEMP2 *2*TEMP1)) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*F$V-INC4) (QUOTE (SEXPR (LAMBDA (*3*A0 *3*A1 *3*A2 *3*A3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (SETQ *2*TEMP3 (*1*F-NOT *3*A0)) (CONS (*1*F-XOR (SETQ *2*TEMP2 (*1*F-NOT *3*A1)) *2*TEMP3) (CONS (*1*F-EQUV (SETQ *2*TEMP1 (*1*F-NOT *3*A2)) (*1*F-NOR *2*TEMP3 *2*TEMP2)) (CONS (*1*F-EQUV (*1*F-NOT *3*A3) (*1*F-NOR3 *2*TEMP3 *2*TEMP2 *2*TEMP1)) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*V-INC4*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (V-INC4 (A0 A1 A2 A3) (W-10 W-3 W-8 W-14) ((G-12 (W-12) B-NOT (A2)) (G-11 (W-11) B-NOT (A1)) (G-10 (W-10) B-NOT (A0)) (G-13 (W-13) B-NOR3 (W-10 W-11 W-12)) (G-9 (W-9) B-NOT (A3)) (G-14 (W-14) B-EQUV (W-9 W-13)) (G-7 (W-7) B-NOR (W-10 W-11)) (G-8 (W-8) B-EQUV (W-12 W-7)) (G-3 (W-3) B-XOR (W-11 W-10))) NIL)))))) (PUT1-LST (QUOTE *1*V-INC4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE V-INC4) *3*NETLIST) (*1*V-INC4*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOR3& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE V-INC4) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*AND (*1*B-EQUV& *2*TEMP1) (*1*B-XOR& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*V-INC4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*V-INC4*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-NOR3$NETLIST) (*1*B-NOT$NETLIST)) (*1*B-NOR$NETLIST)) (*1*B-EQUV$NETLIST)) (*1*B-XOR$NETLIST))))))) (PUT1-LST (QUOTE *1*F$V-INC4$V) (QUOTE (SEXPR (LAMBDA (*3*A) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (SETQ *2*TEMP5 (*1*F-NOT (*1*CAR *3*A))) (CONS (*1*F-XOR (SETQ *2*TEMP4 (*1*F-NOT (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*A))))) *2*TEMP5) (CONS (*1*F-EQUV (SETQ *2*TEMP2 (*1*F-NOT (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP3))))) (*1*F-NOR *2*TEMP5 *2*TEMP4)) (CONS (*1*F-EQUV (*1*F-NOT (*1*CAR (*1*CDR *2*TEMP1))) (*1*F-NOR3 *2*TEMP5 *2*TEMP4 *2*TEMP2)) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (*1*B-BUF (SETQ *2*TEMP4 (*1*CAR *3*A))) (CONS (*1*B-EQUV *2*TEMP4 *3*C) (QUOTE NIL)))) (T (CONS (*1*B-OR (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*TV-DEC-PASS *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*CAR *3*TREE))))) (*1*CAR (SETQ *2*TEMP1 (*1*TV-DEC-PASS (*1*B-OR *3*C *2*TEMP3) (*1*TRESTN *3*A *3*TREE) (*1*CDR *3*TREE))))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*TREE *3*MAKE-G) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (COND ((NOT (EQ *3*MAKE-G *1*F)) (CONS (*1*B-BUF (SETQ *2*TEMP4 (*1*CAR *3*A))) (CONS (*1*B-EQUV *2*TEMP4 *3*C) (QUOTE NIL)))) (T (CONS (*1*B-EQUV (*1*CAR *3*A) *3*C) (QUOTE NIL))))) ((NOT (EQ *3*MAKE-G *1*F)) (CONS (*1*B-OR (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*TV-DEC-PASS-NG *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*CAR *3*TREE) (QUOTE *1*TRUE))))) (*1*CAR (SETQ *2*TEMP1 (*1*TV-DEC-PASS-NG (*1*B-OR *3*C *2*TEMP3) (*1*TRESTN *3*A *3*TREE) (*1*CDR *3*TREE) *3*MAKE-G)))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1)))) (T (*1*APPEND (*1*CDR (SETQ *2*TEMP2 (*1*TV-DEC-PASS-NG *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*CAR *3*TREE) (QUOTE *1*TRUE)))) (*1*TV-DEC-PASS-NG (*1*B-OR *3*C (*1*CAR *2*TEMP2)) (*1*TRESTN *3*A *3*TREE) (*1*CDR *3*TREE) *3*MAKE-G))))))))) (PUT1-LST (QUOTE *1*F$TV-DEC-PASS-NG) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*TREE *3*MAKE-G) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (COND ((NOT (EQ *3*MAKE-G *1*F)) (CONS (SETQ *2*TEMP4 (*1*CAR *3*A)) (CONS (*1*F-EQUV *2*TEMP4 *3*C) (QUOTE NIL)))) (T (CONS (*1*F-EQUV (*1*CAR *3*A) *3*C) (QUOTE NIL))))) ((NOT (EQ *3*MAKE-G *1*F)) (CONS (*1*F-OR (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*F$TV-DEC-PASS-NG *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*CAR *3*TREE) (QUOTE *1*TRUE))))) (*1*CAR (SETQ *2*TEMP1 (*1*F$TV-DEC-PASS-NG (*1*F-OR *3*C *2*TEMP3) (*1*TRESTN *3*A *3*TREE) (*1*CDR *3*TREE) *3*MAKE-G)))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1)))) (T (*1*APPEND (*1*CDR (SETQ *2*TEMP2 (*1*F$TV-DEC-PASS-NG *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*CAR *3*TREE) (QUOTE *1*TRUE)))) (*1*F$TV-DEC-PASS-NG (*1*F-OR *3*C (*1*CAR *2*TEMP2)) (*1*TRESTN *3*A *3*TREE) (*1*CDR *3*TREE) *3*MAKE-G))))))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DEC-PASS-CELL (C A) (G Z) ((G0 (G) ID (A)) (G1 (Z) B-EQUV (A C))) NIL)))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DEC-PASS-CELL) *3*NETLIST) (*1*DEC-PASS-CELL*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*ID& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DEC-PASS-CELL) *3*NETLIST))) (*1*B-EQUV& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*DEC-PASS-CELL$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DEC-PASS-CELL*) (*1*UNION (*1*ID$NETLIST) (*1*B-EQUV$NETLIST))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NAME) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*MAKE-G) (LET NIL (COND ((NOT (EQ *3*MAKE-G *1*F)) (*1*INDEX (QUOTE TV-DEC-PASS-G) (*1*TREE-NUMBER *3*TREE))) (T (*1*INDEX (QUOTE TV-DEC-PASS-NG) (*1*TREE-NUMBER *3*TREE))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG-BODY) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*MAKE-G) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE ((LEAF (G (*1*QUOTE INDEX Z 0)) DEC-PASS-CELL (C (*1*QUOTE INDEX A 0)))))) ((NOT (EQ *3*MAKE-G *1*F)) (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (*1*TFIRSTN (SETQ *2*TEMP3 (*1*INDICES (QUOTE Z) (QUOTE 0) (SETQ *2*TEMP2 (*1*TREE-SIZE *3*TREE)))) *3*TREE)) (CONS (*1*INDEX (QUOTE TV-DEC-PASS-G) (*1*TREE-NUMBER (*1*CAR *3*TREE))) (CONS (CONS (QUOTE C) (*1*TFIRSTN (SETQ *2*TEMP1 (*1*INDICES (QUOTE A) (QUOTE 0) *2*TEMP2)) *3*TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (CONS (QUOTE GR) (*1*TRESTN *2*TEMP3 *3*TREE)) (CONS (*1*INDEX (QUOTE TV-DEC-PASS-G) (*1*TREE-NUMBER (*1*CDR *3*TREE))) (CONS (CONS (QUOTE CX) (*1*TRESTN *2*TEMP1 *3*TREE)) (QUOTE NIL))))) (QUOTE ((GENERATE (G) B-OR (GL GR)))))))) (T (CONS (CONS (QUOTE LEFT) (CONS (CONS (QUOTE GL) (*1*TFIRSTN (SETQ *2*TEMP3 (*1*INDICES (QUOTE Z) (QUOTE 0) (SETQ *2*TEMP2 (*1*TREE-SIZE *3*TREE)))) *3*TREE)) (CONS (*1*INDEX (QUOTE TV-DEC-PASS-G) (*1*TREE-NUMBER (*1*CAR *3*TREE))) (CONS (CONS (QUOTE C) (*1*TFIRSTN (SETQ *2*TEMP1 (*1*INDICES (QUOTE A) (QUOTE 0) *2*TEMP2)) *3*TREE)) (QUOTE NIL))))) (CONS (QUOTE (CARRY (CX) B-OR (C GL))) (CONS (CONS (QUOTE RIGHT) (CONS (*1*TRESTN *2*TEMP3 *3*TREE) (CONS (*1*INDEX (QUOTE TV-DEC-PASS-NG) (*1*TREE-NUMBER (*1*CDR *3*TREE))) (CONS (CONS (QUOTE CX) (*1*TRESTN *2*TEMP1 *3*TREE)) (QUOTE NIL))))) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG*) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*MAKE-G) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*TV-DEC-PASS-NAME *3*TREE *3*MAKE-G) (CONS (CONS (QUOTE C) (*1*INDICES (QUOTE A) (QUOTE 0) (SETQ *2*TEMP1 (*1*TREE-SIZE *3*TREE)))) (CONS (COND ((NOT (EQ *3*MAKE-G *1*F)) (CONS (QUOTE G) (*1*INDICES (QUOTE Z) (QUOTE 0) *2*TEMP1))) (T (*1*INDICES (QUOTE Z) (QUOTE 0) *2*TEMP1))) (CONS (*1*TV-DEC-PASS-NG-BODY *3*TREE *3*MAKE-G) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE *3*MAKE-G) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*TV-DEC-PASS-NAME *3*TREE *3*MAKE-G)) *3*NETLIST) (*1*TV-DEC-PASS-NG* *3*TREE *3*MAKE-G)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*DEC-PASS-CELL& (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)))) (T (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*TV-DEC-PASS-NAME *3*TREE *3*MAKE-G)) *3*NETLIST) (*1*TV-DEC-PASS-NG* *3*TREE *3*MAKE-G)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TV-DEC-PASS-NG& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)) (*1*CAR *3*TREE) (QUOTE *1*TRUE)) (*1*AND (*1*TV-DEC-PASS-NG& *2*TEMP1 (*1*CDR *3*TREE) *3*MAKE-G) (*1*B-OR& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*C *3*A *3*MAKE-G *3*NAME *3*STATE *3*NETLIST) (PROGN *3*NAME *3*STATE (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*TV-DEC-PASS-NG-INDUCTION (SETQ *2*TEMP7 (*1*CAR *3*TREE)) *3*C (SETQ *2*TEMP6 (*1*TFIRSTN *3*A *3*TREE)) (QUOTE *1*TRUE) (*1*INDEX (QUOTE TV-DEC-PASS-G) (*1*TREE-NUMBER *2*TEMP7)) (QUOTE 0) (SETQ *2*TEMP5 (*1*DELETE-MODULE (*1*TV-DEC-PASS-NAME *3*TREE *3*MAKE-G) *3*NETLIST))) (*1*AND (*1*TV-DEC-PASS-NG-INDUCTION (SETQ *2*TEMP4 (*1*CDR *3*TREE)) (SETQ *2*TEMP3 (*1*F-OR *3*C (*1*CAR (*1*F$TV-DEC-PASS-NG *3*C *2*TEMP6 *2*TEMP7 (QUOTE *1*TRUE))))) (SETQ *2*TEMP2 (*1*TRESTN *3*A *3*TREE)) (QUOTE *1*TRUE) (*1*INDEX (QUOTE TV-DEC-PASS-G) (SETQ *2*TEMP1 (*1*TREE-NUMBER *2*TEMP4))) (QUOTE 0) *2*TEMP5) (*1*TV-DEC-PASS-NG-INDUCTION *2*TEMP4 *2*TEMP3 *2*TEMP2 (QUOTE *1*FALSE) (*1*INDEX (QUOTE TV-DEC-PASS-NG) *2*TEMP1) (QUOTE 0) *2*TEMP5))))))))))) (PUT1-LST (QUOTE *1*TV-DEC-PASS-NG$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*MAKE-G) (LET NIL (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (*1*TV-DEC-PASS-NG* *3*TREE *3*MAKE-G) (CONS (*1*DEC-PASS-CELL*) (QUOTE NIL)))) (T (CONS (*1*TV-DEC-PASS-NG* *3*TREE *3*MAKE-G) (*1*UNION (*1*TV-DEC-PASS-NG$NETLIST (*1*CAR *3*TREE) (QUOTE *1*TRUE)) (*1*TV-DEC-PASS-NG$NETLIST (*1*CDR *3*TREE) *3*MAKE-G)))))))))) (PUT1-LST (QUOTE *1*DEC-PASS*) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE DEC-PASS) *3*N) (CONS (CONS (QUOTE C) (SETQ *2*TEMP2 (*1*INDICES (QUOTE A) (QUOTE 0) *3*N))) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE Z) (QUOTE 0) *3*N)) (CONS (CONS (QUOTE (M0 (CN) B-NOT (C))) (CONS (CONS (QUOTE M1) (CONS *2*TEMP1 (CONS (*1*INDEX (QUOTE TV-DEC-PASS-NG) (*1*TREE-NUMBER (*1*MAKE-TREE *3*N))) (CONS (CONS (QUOTE CN) *2*TEMP2) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*DEC-PASS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE DEC-PASS) *3*N)) *3*NETLIST) (*1*DEC-PASS* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*TV-DEC-PASS-NG& *2*TEMP1 (*1*MAKE-TREE *3*N) (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*F$DEC-PASS) (QUOTE (SEXPR (LAMBDA (*3*C *3*A) (*1*F$TV-DEC-PASS-NG (*1*F-NOT *3*C) *3*A (*1*MAKE-TREE (*1*LENGTH *3*A)) (QUOTE *1*FALSE)))))) (PUT1-LST (QUOTE *1*DEC-PASS$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*DEC-PASS* *3*N) (*1*UNION (*1*B-NOT$NETLIST) (*1*TV-DEC-PASS-NG$NETLIST (*1*MAKE-TREE *3*N) (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*REG-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*TI *3*TE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (SETQ *2*TEMP1 (*1*INDEX (QUOTE Q) *3*M)) (CONS (*1*INDEX (QUOTE QB) *3*M) (QUOTE NIL))) (CONS (QUOTE FD1S) (CONS (CONS (*1*INDEX (QUOTE D) *3*M) (CONS (QUOTE CLK) (CONS *3*TI (CONS *3*TE (QUOTE NIL))))) (QUOTE NIL))))) (*1*REG-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N) *2*TEMP1 *3*TE))))))))) (PUT1-LST (QUOTE *1*REG*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE REG) *3*N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (*1*INDICES (QUOTE D) (QUOTE 0) *3*N)))) (CONS (*1*INDICES (QUOTE Q) (QUOTE 0) *3*N) (CONS (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (QUOTE B-BUF)) (T (QUOTE B-BUF-PWR))) (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (*1*REG-BODY (QUOTE 0) *3*N (QUOTE TI-BUF) (QUOTE TE-BUF)))) (CONS (*1*INDICES (QUOTE G) (QUOTE 0) *3*N) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*REG&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE REG) *3*N)) *3*NETLIST) (*1*REG* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)))) (T (*1*B-BUF-PWR& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))))) (*1*AND (*1*DEL4& *2*TEMP1) (*1*FD1S& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*REG$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*REG* *3*N) (*1*UNION (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF$NETLIST)) (T (*1*B-BUF-PWR$NETLIST))) (*1*UNION (*1*DEL4$NETLIST) (*1*FD1S$NETLIST)))))))) (PUT1-LST (QUOTE *1*REG-BODY-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*TI *3*TE *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE REG-BODY-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*REG-BODY-INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*INDEX (QUOTE Q) *3*M) *3*TE (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (*1*REG-BODY *3*M *3*N *3*TI *3*TE) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*WE-REG-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*TI) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (SETQ *2*TEMP1 (*1*INDEX (QUOTE Q) *3*M)) (CONS (*1*INDEX (QUOTE QB) *3*M) (QUOTE NIL))) (CONS (QUOTE FD1SLP) (CONS (CONS (*1*INDEX (QUOTE D) *3*M) (CONS (QUOTE CLK) (CONS (QUOTE WE-BUF) (CONS *3*TI (QUOTE (TE-BUF)))))) (QUOTE NIL))))) (*1*WE-REG-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N) *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WE-REG*) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE WE-REG) *3*N) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE TI) (*1*INDICES (QUOTE D) (QUOTE 0) *3*N))))) (CONS (*1*INDICES (QUOTE Q) (QUOTE 0) *3*N) (CONS (CONS (CONS (QUOTE WE-BUFFER) (CONS (QUOTE (WE-BUF)) (CONS (SETQ *2*TEMP2 (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*LESSP *3*N (QUOTE 8))) *1*F)) (QUOTE B-BUF)) (T (QUOTE B-BUF-PWR)))) (QUOTE ((WE)))))) (CONS (CONS (QUOTE TE-BUFFER) (CONS (QUOTE (TE-BUF)) (CONS *2*TEMP2 (QUOTE ((TE)))))) (CONS (QUOTE (TI-DEL (TI-BUF) DEL4 (TI))) (*1*WE-REG-BODY (QUOTE 0) *3*N (QUOTE TI-BUF))))) (CONS (*1*INDICES (QUOTE G) (QUOTE 0) *3*N) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*WE-REG&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE WE-REG) *3*N)) *3*NETLIST) (*1*WE-REG* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)))) (T (*1*B-BUF-PWR& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))))) (*1*AND (*1*DEL4& *2*TEMP1) (*1*FD1SLP& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WE-REG$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*WE-REG* *3*N) (*1*UNION (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF$NETLIST)) (T (*1*B-BUF-PWR$NETLIST))) (*1*UNION (*1*DEL4$NETLIST) (*1*FD1SLP$NETLIST)))))))) (PUT1-LST (QUOTE *1*WE-REG-BODY-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*TI *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE WE-REG-BODY-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*WE-REG-BODY-INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*INDEX (QUOTE Q) *3*M) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (*1*WE-REG-BODY *3*M *3*N *3*TI) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*CVZBV) (QUOTE (SEXPR (LAMBDA (*3*CARRY *3*OVERFLOW *3*VECTOR) (CONS *3*CARRY (CONS *3*OVERFLOW (CONS (*1*V-ZEROP *3*VECTOR) *3*VECTOR))))))) (PUT1-LST (QUOTE *1*C) (QUOTE (SEXPR (LAMBDA (*3*CVZBV) (*1*CAR *3*CVZBV))))) (PUT1-LST (QUOTE *1*V) (QUOTE (SEXPR (LAMBDA (*3*CVZBV) (*1*CAR (*1*CDR *3*CVZBV)))))) (PUT1-LST (QUOTE *1*BV) (QUOTE (SEXPR (LAMBDA (*3*CVZBV) (*1*CDR (*1*CDR (*1*CDR *3*CVZBV))))))) (PUT1-LST (QUOTE *1*N) (QUOTE (SEXPR (LAMBDA (*3*CVZBV) (*1*V-NEGP (*1*BV *3*CVZBV)))))) (PUT1-LST (QUOTE *1*ZB) (QUOTE (SEXPR (LAMBDA (*3*CVZBV) (*1*CAR (*1*CDR (*1*CDR *3*CVZBV))))))) (PUT1-LST (QUOTE *1*CVZBV-V-ROR) (QUOTE (SEXPR (LAMBDA (*3*C *3*A) (*1*CVZBV (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) *3*C) (T (*1*NTH (QUOTE 0) *3*A))) (QUOTE *1*FALSE) (*1*V-ROR *3*A *3*C)))))) (PUT1-LST (QUOTE *1*CVZBV-V-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-ADDER-CARRY-OUT *3*C *3*A *3*B) (*1*V-ADDER-OVERFLOWP *3*C *3*A *3*B) (*1*V-ADDER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*CVZBV-V-LSL) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV-V-ADDER (QUOTE *1*FALSE) *3*A *3*A))))) (PUT1-LST (QUOTE *1*CVZBV-V-SUBTRACTER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-SUBTRACTER-CARRY-OUT *3*C *3*A *3*B) (*1*V-SUBTRACTER-OVERFLOWP *3*C *3*A *3*B) (*1*V-SUBTRACTER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*CVZBV-INC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV-V-ADDER (QUOTE *1*TRUE) *3*A (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*CVZBV-NEG) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) *3*A (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*CVZBV-DEC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV-V-SUBTRACTER (QUOTE *1*TRUE) (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A)) *3*A))))) (PUT1-LST (QUOTE *1*CVZBV-V-NOT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-NOT *3*A)))))) (PUT1-LST (QUOTE *1*CVZBV-V-ASR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (*1*NTH (QUOTE 0) *3*A)) (T (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (*1*V-ASR *3*A)))))) (PUT1-LST (QUOTE *1*CVZBV-V-LSR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (COND ((AND (CONSP *3*A) (NOT (EQ (CAR *3*A) (QUOTE *1*QUOTE)))) (*1*NTH (QUOTE 0) *3*A)) (T (QUOTE *1*FALSE))) (QUOTE *1*FALSE) (*1*V-LSR *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*OP) (LET NIL (COND ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-BUF *3*A))) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (*1*CVZBV-INC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (*1*CVZBV-V-ADDER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (*1*CVZBV-V-ADDER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (*1*CVZBV-NEG *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (*1*CVZBV-DEC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (*1*CVZBV-V-SUBTRACTER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (*1*CVZBV-V-SUBTRACTER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (*1*CVZBV-V-ROR *3*C *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (*1*CVZBV-V-ASR *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (*1*CVZBV-V-LSR *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-XOR *3*A *3*B))) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-OR *3*A *3*B))) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-AND *3*A *3*B))) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (*1*CVZBV-V-NOT *3*A)) (T (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-BUF *3*A))))))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P) (QUOTE (SEXPR (LAMBDA (*3*OP-CODE) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQUAL *3*OP-CODE (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*OP-CODE (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))))) (PUT1-LST (QUOTE *1*V-ALU-1) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*OP-CODE) (*1*V-ALU *3*C *3*A *3*A *3*OP-CODE))))) (PUT1-LST (QUOTE *1*ALU-INC-OP) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*ALU-DEC-OP) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*DECODE-MODE) (QUOTE (SEXPR (LAMBDA (*3*OP0 *3*OP1 *3*OP2 *3*OP3) (*1*B-NOR (*1*B-NOR3 *3*OP0 *3*OP1 *3*OP2) *3*OP3))))) (PUT1-LST (QUOTE *1*F$DECODE-MODE) (QUOTE (SEXPR (LAMBDA (*3*OP0 *3*OP1 *3*OP2 *3*OP3) (*1*F-NOR (*1*F-NOR3 *3*OP0 *3*OP1 *3*OP2) *3*OP3))))) (PUT1-LST (QUOTE *1*DECODE-MODE*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DECODE-MODE (OP0 OP1 OP2 OP3) (W-1) ((G-0 (W-0) B-NOR3 (OP0 OP1 OP2)) (G-1 (W-1) B-NOR (W-0 OP3))) NIL)))))) (PUT1-LST (QUOTE *1*DECODE-MODE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DECODE-MODE) *3*NETLIST) (*1*DECODE-MODE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOR3& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DECODE-MODE) *3*NETLIST))) (*1*B-NOR& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*DECODE-MODE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DECODE-MODE*) (*1*UNION (*1*B-NOR3$NETLIST) (*1*B-NOR$NETLIST))))))) (PUT1-LST (QUOTE *1*DECODE-PROP) (QUOTE (SEXPR (LAMBDA (*3*ZERO *3*SWAP *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (CONS (*1*B-NAND3 (*1*B-NAND4 (SETQ *2*TEMP9 (*1*B-NOT *3*OP0)) (SETQ *2*TEMP8 (*1*B-NOT *3*OP1)) (SETQ *2*TEMP7 (*1*B-NOT (SETQ *2*TEMP6 (*1*B-NOT *3*OP2)))) (SETQ *2*TEMP5 (*1*B-NOT (SETQ *2*TEMP4 (*1*B-NOT *3*OP3))))) (*1*B-NAND (SETQ *2*TEMP3 (*1*B-NOT *2*TEMP8)) *2*TEMP4) (*1*B-NAND3 *2*TEMP6 *2*TEMP4 (SETQ *2*TEMP2 (*1*B-NOT (*1*B-NOT *3*SWAP))))) (CONS (*1*B-NOR *2*TEMP6 (*1*B-NOR *2*TEMP4 (*1*B-NOR (SETQ *2*TEMP1 (*1*B-NOT *2*TEMP9)) *2*TEMP8))) (CONS (*1*B-AND (*1*B-NAND3 (*1*B-NAND *2*TEMP5 (*1*B-EQUV *2*TEMP1 *2*TEMP3)) (*1*B-NAND *2*TEMP6 (*1*B-NAND *2*TEMP2 *2*TEMP4)) (*1*B-NAND4 *2*TEMP1 *2*TEMP8 *2*TEMP7 *2*TEMP4)) (*1*B-NOT *3*ZERO)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*F$DECODE-PROP) (QUOTE (SEXPR (LAMBDA (*3*ZERO *3*SWAP *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (CONS (*1*F-NAND3 (*1*F-NAND4 (SETQ *2*TEMP9 (*1*F-NOT *3*OP0)) (SETQ *2*TEMP8 (*1*F-NOT *3*OP1)) (SETQ *2*TEMP7 (*1*F-NOT (SETQ *2*TEMP6 (*1*F-NOT *3*OP2)))) (SETQ *2*TEMP5 (*1*F-NOT (SETQ *2*TEMP4 (*1*F-NOT *3*OP3))))) (*1*F-NAND (SETQ *2*TEMP3 (*1*F-NOT *2*TEMP8)) *2*TEMP4) (*1*F-NAND3 *2*TEMP6 *2*TEMP4 (SETQ *2*TEMP2 (*1*F-NOT (*1*F-NOT *3*SWAP))))) (CONS (*1*F-NOR *2*TEMP6 (*1*F-NOR *2*TEMP4 (*1*F-NOR (SETQ *2*TEMP1 (*1*F-NOT *2*TEMP9)) *2*TEMP8))) (CONS (*1*F-AND (*1*F-NAND3 (*1*F-NAND *2*TEMP5 (*1*F-EQUV *2*TEMP1 *2*TEMP3)) (*1*F-NAND *2*TEMP6 (*1*F-NAND *2*TEMP2 *2*TEMP4)) (*1*F-NAND4 *2*TEMP1 *2*TEMP8 *2*TEMP7 *2*TEMP4)) (*1*F-NOT *3*ZERO)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*DECODE-PROP*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3) (W-16 W-24 W-48) ((G-47 (W-47) B-NOT (ZERO)) (G-44 (W-44) B-NOT (OP3)) (G-42 (W-42) B-NOT (OP2)) (G-43 (W-43) B-NOT (W-42)) (G-41 (W-41) B-NOT (OP1)) (G-39 (W-39) B-NOT (OP0)) (G-40 (W-40) B-NOT (W-39)) (G-45 (W-45) B-NAND4 (W-40 W-41 W-43 W-44)) (G-34 (W-34) B-NOT (SWAP)) (G-35 (W-35) B-NOT (W-34)) (G-37 (W-37) B-NAND (W-35 W-44)) (G-38 (W-38) B-NAND (W-42 W-37)) (G-30 (W-30) B-NOT (W-41)) (G-31 (W-31) B-EQUV (W-40 W-30)) (G-26 (W-26) B-NOT (W-44)) (G-32 (W-32) B-NAND (W-26 W-31)) (G-46 (W-46) B-NAND3 (W-32 W-38 W-45)) (G-48 (W-48) B-AND (W-46 W-47)) (G-22 (W-22) B-NOR (W-40 W-41)) (G-23 (W-23) B-NOR (W-44 W-22)) (G-24 (W-24) B-NOR (W-42 W-23)) (G-15 (W-15) B-NAND3 (W-42 W-44 W-35)) (G-10 (W-10) B-NAND (W-30 W-44)) (G-6 (W-6) B-NAND4 (W-39 W-41 W-43 W-26)) (G-16 (W-16) B-NAND3 (W-6 W-10 W-15))) NIL)))))) (PUT1-LST (QUOTE *1*DECODE-PROP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DECODE-PROP) *3*NETLIST) (*1*DECODE-PROP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-EQUV& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DECODE-PROP) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-AND& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND4& *2*TEMP1) (*1*B-NAND3& *2*TEMP1))))))))))))) (PUT1-LST (QUOTE *1*DECODE-PROP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DECODE-PROP*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-EQUV$NETLIST) (*1*B-NOT$NETLIST)) (*1*B-AND$NETLIST)) (*1*B-NOR$NETLIST)) (*1*B-NAND$NETLIST)) (*1*B-NAND4$NETLIST)) (*1*B-NAND3$NETLIST))))))) (PUT1-LST (QUOTE *1*DECODE-GEN) (QUOTE (SEXPR (LAMBDA (*3*ZERO *3*SWAP *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X))) (CONS (*1*B-NAND3 (SETQ *2*TEMP11 (*1*B-NAND3 (SETQ *2*TEMP10 (*1*B-NOT (*1*B-NOT *3*OP0))) (SETQ *2*TEMP9 (*1*B-NOT (SETQ *2*TEMP8 (*1*B-NOT *3*OP3)))) (*1*B-XOR (SETQ *2*TEMP7 (*1*B-NOT (SETQ *2*TEMP6 (*1*B-NOT *3*OP1)))) (SETQ *2*TEMP5 (*1*B-NOT (SETQ *2*TEMP4 (*1*B-NOT *3*OP2))))))) (SETQ *2*TEMP3 (*1*B-NAND3 *2*TEMP5 *2*TEMP8 (*1*B-NAND *2*TEMP6 (*1*B-NOT *3*SWAP)))) (SETQ *2*TEMP2 (*1*B-NAND3 *2*TEMP7 *2*TEMP4 *2*TEMP8))) (CONS (*1*B-NOR (*1*B-NAND (*1*B-NAND4 *2*TEMP10 *2*TEMP7 *2*TEMP4 *2*TEMP9) *2*TEMP3) (SETQ *2*TEMP1 (*1*B-NOT (*1*B-NOT *3*ZERO)))) (CONS (*1*B-NOR (*1*B-NAND3 *2*TEMP11 (*1*B-NAND3 *2*TEMP10 *2*TEMP6 *2*TEMP5) *2*TEMP2) *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*F$DECODE-GEN) (QUOTE (SEXPR (LAMBDA (*3*ZERO *3*SWAP *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X))) (CONS (*1*F-NAND3 (SETQ *2*TEMP11 (*1*F-NAND3 (SETQ *2*TEMP10 (*1*F-NOT (*1*F-NOT *3*OP0))) (SETQ *2*TEMP9 (*1*F-NOT (SETQ *2*TEMP8 (*1*F-NOT *3*OP3)))) (*1*F-XOR (SETQ *2*TEMP7 (*1*F-NOT (SETQ *2*TEMP6 (*1*F-NOT *3*OP1)))) (SETQ *2*TEMP5 (*1*F-NOT (SETQ *2*TEMP4 (*1*F-NOT *3*OP2))))))) (SETQ *2*TEMP3 (*1*F-NAND3 *2*TEMP5 *2*TEMP8 (*1*F-NAND *2*TEMP6 (*1*F-NOT *3*SWAP)))) (SETQ *2*TEMP2 (*1*F-NAND3 *2*TEMP7 *2*TEMP4 *2*TEMP8))) (CONS (*1*F-NOR (*1*F-NAND (*1*F-NAND4 *2*TEMP10 *2*TEMP7 *2*TEMP4 *2*TEMP9) *2*TEMP3) (SETQ *2*TEMP1 (*1*F-NOT (*1*F-NOT *3*ZERO)))) (CONS (*1*F-NOR (*1*F-NAND3 *2*TEMP11 (*1*F-NAND3 *2*TEMP10 *2*TEMP6 *2*TEMP5) *2*TEMP2) *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*DECODE-GEN*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3) (W-22 W-41 W-66) ((G-64 (W-64) B-NOT (ZERO)) (G-65 (W-65) B-NOT (W-64)) (G-61 (W-61) B-NOT (OP3)) (G-60 (W-60) B-NOT (OP2)) (G-58 (W-58) B-NOT (OP1)) (G-59 (W-59) B-NOT (W-58)) (G-62 (W-62) B-NAND3 (W-59 W-60 W-61)) (G-56 (W-56) B-NOT (W-60)) (G-52 (W-52) B-NOT (OP0)) (G-53 (W-53) B-NOT (W-52)) (G-57 (W-57) B-NAND3 (W-53 W-58 W-56)) (G-50 (W-50) B-XOR (W-59 W-56)) (G-45 (W-45) B-NOT (W-61)) (G-51 (W-51) B-NAND3 (W-53 W-45 W-50)) (G-63 (W-63) B-NAND3 (W-51 W-57 W-62)) (G-66 (W-66) B-NOR (W-63 W-65)) (G-35 (W-35) B-NOT (SWAP)) (G-36 (W-36) B-NAND (W-58 W-35)) (G-37 (W-37) B-NAND3 (W-56 W-61 W-36)) (G-30 (W-30) B-NAND4 (W-53 W-59 W-60 W-45)) (G-38 (W-38) B-NAND (W-30 W-37)) (G-41 (W-41) B-NOR (W-38 W-65)) (G-22 (W-22) B-NAND3 (W-51 W-37 W-62))) NIL)))))) (PUT1-LST (QUOTE *1*DECODE-GEN&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DECODE-GEN) *3*NETLIST) (*1*DECODE-GEN*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-XOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DECODE-GEN) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-NAND4& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*B-NAND3& *2*TEMP1)))))))))))) (PUT1-LST (QUOTE *1*DECODE-GEN$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DECODE-GEN*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-XOR$NETLIST) (*1*B-NOT$NETLIST)) (*1*B-NAND4$NETLIST)) (*1*B-NAND$NETLIST)) (*1*B-NOR$NETLIST)) (*1*B-NAND3$NETLIST))))))) (PUT1-LST (QUOTE *1*F$MPG) (QUOTE (SEXPR (LAMBDA (*3*ZSOP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (*1*APPEND (*1*F$DECODE-GEN (SETQ *2*TEMP10 (*1*CAR *3*ZSOP)) (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CDR *3*ZSOP)))) (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP8)))) (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CDR *2*TEMP6)))) (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4)))) (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (*1*APPEND (*1*F$DECODE-PROP *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5 *2*TEMP3 *2*TEMP1) (CONS (*1*F$DECODE-MODE *2*TEMP7 *2*TEMP5 *2*TEMP3 *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MPG) (QUOTE (SEXPR (LAMBDA (*3*ZSOP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (*1*APPEND (*1*DECODE-GEN (SETQ *2*TEMP10 (*1*CAR *3*ZSOP)) (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CDR *3*ZSOP)))) (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP8)))) (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CDR *2*TEMP6)))) (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4)))) (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (*1*APPEND (*1*DECODE-PROP *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5 *2*TEMP3 *2*TEMP1) (CONS (*1*DECODE-MODE *2*TEMP7 *2*TEMP5 *2*TEMP3 *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MPG*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (MPG (ZERO SWAP OP0 OP1 OP2 OP3) (GBN GAN GA PB PAN PA MODE) ((M (MODE) DECODE-MODE (OP0 OP1 OP2 OP3)) (P (PB PAN PA) DECODE-PROP (ZERO SWAP OP0 OP1 OP2 OP3)) (G (GBN GAN GA) DECODE-GEN (ZERO SWAP OP0 OP1 OP2 OP3))) NIL)))))) (PUT1-LST (QUOTE *1*MPG&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE MPG) *3*NETLIST) (*1*MPG*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*DECODE-MODE& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE MPG) *3*NETLIST))) (*1*AND (*1*DECODE-PROP& *2*TEMP1) (*1*DECODE-GEN& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MPG$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*MPG*) (*1*UNION (*1*UNION (*1*DECODE-MODE$NETLIST) (*1*DECODE-PROP$NETLIST)) (*1*DECODE-GEN$NETLIST))))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP) (QUOTE (SEXPR (LAMBDA (*3*CZOP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (*1*B-OR (*1*B-NAND3 (*1*B-NAND3 (SETQ *2*TEMP10 (*1*B-NOT (*1*CAR (SETQ *2*TEMP9 (*1*CDR (SETQ *2*TEMP8 (*1*CDR (*1*CDR *3*CZOP)))))))) (SETQ *2*TEMP7 (*1*B-NOT (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP9))))) (SETQ *2*TEMP5 (*1*B-NOT (*1*CAR (*1*CDR *2*TEMP6))))) (*1*B-NAND3 (SETQ *2*TEMP4 (*1*B-NOT (*1*CAR *2*TEMP8))) *2*TEMP10 (SETQ *2*TEMP3 (*1*B-NOT *2*TEMP7))) (*1*B-NAND3 (*1*B-NOT *2*TEMP4) (*1*B-NOT *2*TEMP10) *2*TEMP3)) (*1*B-NAND3 (*1*B-NAND (*1*B-NOT *2*TEMP5) (SETQ *2*TEMP2 (*1*B-NOT (SETQ *2*TEMP1 (*1*B-NOT (*1*CAR *3*CZOP)))))) (*1*B-NAND3 *2*TEMP4 *2*TEMP7 *2*TEMP2) (*1*B-NAND3 *2*TEMP4 *2*TEMP3 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*F$CARRY-IN-HELP) (QUOTE (SEXPR (LAMBDA (*3*CZOP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (*1*F-OR (*1*F-NAND3 (*1*F-NAND3 (SETQ *2*TEMP10 (*1*F-NOT (*1*CAR (SETQ *2*TEMP9 (*1*CDR (SETQ *2*TEMP8 (*1*CDR (*1*CDR *3*CZOP)))))))) (SETQ *2*TEMP7 (*1*F-NOT (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP9))))) (SETQ *2*TEMP5 (*1*F-NOT (*1*CAR (*1*CDR *2*TEMP6))))) (*1*F-NAND3 (SETQ *2*TEMP4 (*1*F-NOT (*1*CAR *2*TEMP8))) *2*TEMP10 (SETQ *2*TEMP3 (*1*F-NOT *2*TEMP7))) (*1*F-NAND3 (*1*F-NOT *2*TEMP4) (*1*F-NOT *2*TEMP10) *2*TEMP3)) (*1*F-NAND3 (*1*F-NAND (*1*F-NOT *2*TEMP5) (SETQ *2*TEMP2 (*1*F-NOT (SETQ *2*TEMP1 (*1*F-NOT (*1*CAR *3*CZOP)))))) (*1*F-NAND3 *2*TEMP4 *2*TEMP7 *2*TEMP2) (*1*F-NAND3 *2*TEMP4 *2*TEMP3 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (CARRY-IN-HELP (CIN Z OP0IN OP1IN OP2IN OP3IN) (COUT) ((G0 (C- C) B-NBUF (CIN)) (G1 (OP0- OP0) B-NBUF (OP0IN)) (G2 (OP1- OP1) B-NBUF (OP1IN)) (G3 (OP2- OP2) B-NBUF (OP2IN)) (G4 (OP3- OP3) B-NBUF (OP3IN)) (G5 (S5) B-NAND3 (OP1- OP2- OP3-)) (G6 (S6) B-NAND3 (OP0- OP1- OP2)) (G7 (S7) B-NAND3 (OP0 OP1 OP2)) (G8 (S8) B-NAND3 (S5 S6 S7)) (G9 (S9) B-NAND (OP3 C)) (G10 (S10) B-NAND3 (OP0- OP2- C)) (G11 (S11) B-NAND3 (OP0- OP2 C-)) (G12 (S12) B-NAND3 (S9 S10 S11)) (G13 (COUT) B-OR (S8 S12))) NIL)))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CARRY-IN-HELP) *3*NETLIST) (*1*CARRY-IN-HELP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NBUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CARRY-IN-HELP) *3*NETLIST))) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*B-OR& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*CARRY-IN-HELP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CARRY-IN-HELP*) (*1*UNION (*1*UNION (*1*UNION (*1*B-NBUF$NETLIST) (*1*B-NAND$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-OR$NETLIST))))))) (PUT1-LST (QUOTE *1*P-CELL) (QUOTE (SEXPR (LAMBDA (*3*A *3*AN *3*B *3*PA *3*PAN *3*PB) (*1*B-NAND3 (*1*B-NAND *3*A *3*PA) (*1*B-NAND *3*AN *3*PAN) (*1*B-NAND *3*B *3*PB)))))) (PUT1-LST (QUOTE *1*F$P-CELL) (QUOTE (SEXPR (LAMBDA (*3*A *3*AN *3*B *3*PA *3*PAN *3*PB) (*1*F-NAND3 (*1*F-NAND *3*A *3*PA) (*1*F-NAND *3*AN *3*PAN) (*1*F-NAND *3*B *3*PB)))))) (PUT1-LST (QUOTE *1*P-CELL*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (P-CELL (A AN B PA PAN PB) (W-3) ((G-2 (W-2) B-NAND (B PB)) (G-1 (W-1) B-NAND (AN PAN)) (G-0 (W-0) B-NAND (A PA)) (G-3 (W-3) B-NAND3 (W-0 W-1 W-2))) NIL)))))) (PUT1-LST (QUOTE *1*P-CELL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE P-CELL) *3*NETLIST) (*1*P-CELL*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NAND& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE P-CELL) *3*NETLIST))) (*1*B-NAND3& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*P-CELL$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*P-CELL*) (*1*UNION (*1*B-NAND$NETLIST) (*1*B-NAND3$NETLIST))))))) (PUT1-LST (QUOTE *1*G-CELL) (QUOTE (SEXPR (LAMBDA (*3*A *3*AN *3*BN *3*GA *3*GAN *3*GBN) (*1*B-AND3 (*1*B-NAND *3*A *3*GA) (*1*B-NAND *3*AN *3*GAN) (*1*B-NAND *3*BN *3*GBN)))))) (PUT1-LST (QUOTE *1*F$G-CELL) (QUOTE (SEXPR (LAMBDA (*3*A *3*AN *3*BN *3*GA *3*GAN *3*GBN) (*1*F-AND3 (*1*F-NAND *3*A *3*GA) (*1*F-NAND *3*AN *3*GAN) (*1*F-NAND *3*BN *3*GBN)))))) (PUT1-LST (QUOTE *1*G-CELL*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (G-CELL (A AN BN GA GAN GBN) (W-3) ((G-2 (W-2) B-NAND (BN GBN)) (G-1 (W-1) B-NAND (AN GAN)) (G-0 (W-0) B-NAND (A GA)) (G-3 (W-3) B-AND3 (W-0 W-1 W-2))) NIL)))))) (PUT1-LST (QUOTE *1*G-CELL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE G-CELL) *3*NETLIST) (*1*G-CELL*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NAND& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE G-CELL) *3*NETLIST))) (*1*B-AND3& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*G-CELL$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*G-CELL*) (*1*UNION (*1*B-NAND$NETLIST) (*1*B-AND3$NETLIST))))))) (PUT1-LST (QUOTE *1*ALU-CELL) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*MPG) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (CONS (SETQ *2*TEMP8 (*1*P-CELL *3*A (SETQ *2*TEMP7 (*1*B-NOT *3*A)) *3*B (*1*CAR (SETQ *2*TEMP6 (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CDR *3*MPG))))))))))) (*1*CAR *2*TEMP5) (*1*CAR *2*TEMP4))) (CONS (SETQ *2*TEMP1 (*1*G-CELL *3*A *2*TEMP7 (*1*B-NOT *3*B) (*1*CAR *2*TEMP3) (*1*CAR *2*TEMP2) (*1*CAR *3*MPG))) (CONS (*1*B-EQUV3 (*1*B-NAND *3*C (*1*CAR (*1*CDR *2*TEMP6))) *2*TEMP8 *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*F$ALU-CELL) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*MPG) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (CONS (SETQ *2*TEMP8 (*1*F$P-CELL *3*A (SETQ *2*TEMP7 (*1*F-NOT *3*A)) *3*B (*1*CAR (SETQ *2*TEMP6 (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CDR *3*MPG))))))))))) (*1*CAR *2*TEMP5) (*1*CAR *2*TEMP4))) (CONS (SETQ *2*TEMP1 (*1*F$G-CELL *3*A *2*TEMP7 (*1*F-NOT *3*B) (*1*CAR *2*TEMP3) (*1*CAR *2*TEMP2) (*1*CAR *3*MPG))) (CONS (*1*F-EQUV3 (*1*F-NAND *3*C (*1*CAR (*1*CDR *2*TEMP6))) *2*TEMP8 *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ALU-CELL*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (ALU-CELL (C A B GBN GAN GA PB PAN PA M) (P G Z) ((N0 (AN) B-NOT (A)) (N1 (BN) B-NOT (B)) (P0 (P) P-CELL (A AN B PA PAN PB)) (G0 (G) G-CELL (A AN BN GA GAN GBN)) (M0 (MC) B-NAND (C M)) (Z0 (Z) B-EQUV3 (MC P G))) NIL)))))) (PUT1-LST (QUOTE *1*ALU-CELL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE ALU-CELL) *3*NETLIST) (*1*ALU-CELL*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE ALU-CELL) *3*NETLIST))) (*1*AND (*1*P-CELL& *2*TEMP1) (*1*AND (*1*G-CELL& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*B-EQUV3& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*ALU-CELL$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*ALU-CELL*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*P-CELL$NETLIST)) (*1*G-CELL$NETLIST)) (*1*B-NAND$NETLIST)) (*1*B-EQUV3$NETLIST))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*MPG *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (*1*ALU-CELL *3*C (*1*CAR *3*A) (*1*CAR *3*B) *3*MPG)) (T (CONS (*1*B-AND (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*TV-ALU-HELP *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*TFIRSTN *3*B *3*TREE) *3*MPG (*1*CAR *3*TREE))))) (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*TV-ALU-HELP (*1*T-CARRY *3*C *2*TEMP7 (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP6))))) (*1*TRESTN *3*A *3*TREE) (*1*TRESTN *3*B *3*TREE) *3*MPG (*1*CDR *3*TREE)))))) (CONS (*1*T-CARRY *2*TEMP3 *2*TEMP5 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP4)))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*F$TV-ALU-HELP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*MPG *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (*1*F$ALU-CELL *3*C (*1*CAR *3*A) (*1*CAR *3*B) *3*MPG)) (T (CONS (*1*F-AND (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*F$TV-ALU-HELP *3*C (*1*TFIRSTN *3*A *3*TREE) (*1*TFIRSTN *3*B *3*TREE) *3*MPG (*1*CAR *3*TREE))))) (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*F$TV-ALU-HELP (*1*F$T-CARRY *3*C *2*TEMP7 (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP6))))) (*1*TRESTN *3*A *3*TREE) (*1*TRESTN *3*B *3*TREE) *3*MPG (*1*CDR *3*TREE)))))) (CONS (*1*F$T-CARRY *2*TEMP3 *2*TEMP5 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP4)))) (*1*APPEND (*1*CDR *2*TEMP2) (*1*CDR *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP-BODY) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (CONS (QUOTE LEAF) (CONS (QUOTE (P G (*1*QUOTE INDEX OUT 0))) (CONS (QUOTE ALU-CELL) (CONS (CONS (QUOTE C) (CONS (QUOTE (*1*QUOTE INDEX A 0)) (CONS (QUOTE (*1*QUOTE INDEX B 0)) (*1*INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (QUOTE NIL))))) (QUOTE NIL))) (T (*1*APPEND (COND ((SETQ *2*TEMP7 (EQUAL (*1*REMAINDER (*1*SUB1 (*1*TREE-HEIGHT *3*TREE)) (QUOTE 3)) (QUOTE 0))) (CONS (CONS (QUOTE BUFFERMPG) (CONS (SETQ *2*TEMP6 (*1*INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7))) (CONS (QUOTE (*1*QUOTE INDEX V-BUF 7)) (CONS (SETQ *2*TEMP8 (*1*INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))) (QUOTE NIL))))) (QUOTE NIL))) (T (QUOTE NIL))) (CONS (CONS (QUOTE LHS) (CONS (CONS (QUOTE PL) (CONS (QUOTE GL) (*1*TFIRSTN (SETQ *2*TEMP5 (*1*INDICES (QUOTE OUT) (QUOTE 0) (SETQ *2*TEMP4 (*1*TREE-SIZE *3*TREE)))) *3*TREE))) (CONS (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER (*1*CAR *3*TREE))) (CONS (CONS (QUOTE C) (*1*APPEND (*1*TFIRSTN (SETQ *2*TEMP3 (*1*INDICES (QUOTE A) (QUOTE 0) *2*TEMP4)) *3*TREE) (*1*APPEND (*1*TFIRSTN (SETQ *2*TEMP2 (*1*INDICES (QUOTE B) (QUOTE 0) *2*TEMP4)) *3*TREE) (SETQ *2*TEMP1 (COND (*2*TEMP7 (COND ((NOT (EQ *2*TEMP6 (QUOTE *1*X))) *2*TEMP6) (T (SETQ *2*TEMP6 (*1*INDICES (QUOTE MPG-) (QUOTE 0) (QUOTE 7)))))) ((NOT (EQ *2*TEMP8 (QUOTE *1*X))) *2*TEMP8) (T (SETQ *2*TEMP8 (*1*INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))))))) (QUOTE NIL))))) (CONS (QUOTE (LHS-CARRY (CL) T-CARRY (C PL GL))) (CONS (CONS (QUOTE RHS) (CONS (CONS (QUOTE PR) (CONS (QUOTE GR) (*1*TRESTN *2*TEMP5 *3*TREE))) (CONS (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER (*1*CDR *3*TREE))) (CONS (CONS (QUOTE CL) (*1*APPEND (*1*TRESTN *2*TEMP3 *3*TREE) (*1*APPEND (*1*TRESTN *2*TEMP2 *3*TREE) *2*TEMP1))) (QUOTE NIL))))) (QUOTE ((P (P) B-AND (PL PR)) (G (G) T-CARRY (GL PR GR))))))))))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP*) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER *3*TREE)) (CONS (CONS (QUOTE C) (*1*APPEND (*1*INDICES (QUOTE A) (QUOTE 0) (SETQ *2*TEMP1 (*1*TREE-SIZE *3*TREE))) (*1*APPEND (*1*INDICES (QUOTE B) (QUOTE 0) *2*TEMP1) (*1*INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))))) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (*1*INDICES (QUOTE OUT) (QUOTE 0) *2*TEMP1))) (CONS (*1*TV-ALU-HELP-BODY *3*TREE) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-ALU-HELP* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ALU-CELL& (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)))) (T (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-ALU-HELP* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*T-CARRY& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*AND (*1*B-AND& *2*TEMP1) (*1*AND (*1*V-BUF& *2*TEMP1 (QUOTE 7)) (*1*AND (*1*TV-ALU-HELP& *2*TEMP1 (*1*CAR *3*TREE)) (*1*TV-ALU-HELP& *2*TEMP1 (*1*CDR *3*TREE)))))))))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET NIL (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (CONS (*1*TV-ALU-HELP* *3*TREE) (*1*ALU-CELL$NETLIST))) (T (CONS (*1*TV-ALU-HELP* *3*TREE) (*1*UNION (*1*TV-ALU-HELP$NETLIST (*1*CAR *3*TREE)) (*1*UNION (*1*TV-ALU-HELP$NETLIST (*1*CDR *3*TREE)) (*1*UNION (*1*T-CARRY$NETLIST) (*1*UNION (*1*B-AND$NETLIST) (*1*V-BUF$NETLIST (QUOTE 7)))))))))))))) (PUT1-LST (QUOTE *1*TV-ALU-HELP-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*TREE *3*C *3*A *3*B *3*MPG *3*STATE *3*NETLIST) (PROGN *3*STATE (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*TREE) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*TV-ALU-HELP-INDUCTION (SETQ *2*TEMP6 (*1*CAR *3*TREE)) *3*C (SETQ *2*TEMP5 (*1*TFIRSTN *3*A *3*TREE)) (SETQ *2*TEMP4 (*1*TFIRSTN *3*B *3*TREE)) (SETQ *2*TEMP3 (COND ((EQUAL (*1*REMAINDER (*1*SUB1 (*1*TREE-HEIGHT *3*TREE)) (QUOTE 3)) (QUOTE 0)) (*1*V-THREEFIX *3*MPG)) (T *3*MPG))) (QUOTE 0) (SETQ *2*TEMP2 (*1*DELETE-MODULE (*1*INDEX (QUOTE TV-ALU-HELP) (*1*TREE-NUMBER *3*TREE)) *3*NETLIST))) (*1*TV-ALU-HELP-INDUCTION (*1*CDR *3*TREE) (*1*F$T-CARRY *3*C (*1*CAR (SETQ *2*TEMP1 (*1*F$TV-ALU-HELP *3*C *2*TEMP5 *2*TEMP4 *2*TEMP3 *2*TEMP6))) (*1*CAR (*1*CDR *2*TEMP1))) (*1*TRESTN *3*A *3*TREE) (*1*TRESTN *3*B *3*TREE) *2*TEMP3 (QUOTE 0) *2*TEMP2)))))))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP) (QUOTE (SEXPR (LAMBDA (*3*A0 *3*RESULT *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (*1*B-AND (*1*B-NAND3 (*1*B-NAND4 (SETQ *2*TEMP4 (*1*B-NOT *3*OP3)) (*1*B-NAND (SETQ *2*TEMP3 (*1*B-NOT *3*OP0)) (SETQ *2*TEMP2 (*1*B-NOT *3*OP1))) (SETQ *2*TEMP1 (*1*B-NOT *3*OP2)) *3*RESULT) (*1*B-NAND3 *2*TEMP4 (*1*B-NOT *2*TEMP1) (*1*B-NOT *3*RESULT)) (*1*B-NAND4 (*1*B-NOT *2*TEMP4) *2*TEMP1 (*1*B-NAND (*1*B-NOT *2*TEMP3) (*1*B-NOT *2*TEMP2)) *3*A0)) (*1*B-NOT *3*ZERO))))))) (PUT1-LST (QUOTE *1*F$CARRY-OUT-HELP) (QUOTE (SEXPR (LAMBDA (*3*A0 *3*RESULT *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (*1*F-AND (*1*F-NAND3 (*1*F-NAND4 (SETQ *2*TEMP4 (*1*F-NOT *3*OP3)) (*1*F-NAND (SETQ *2*TEMP3 (*1*F-NOT *3*OP0)) (SETQ *2*TEMP2 (*1*F-NOT *3*OP1))) (SETQ *2*TEMP1 (*1*F-NOT *3*OP2)) *3*RESULT) (*1*F-NAND3 *2*TEMP4 (*1*F-NOT *2*TEMP1) (*1*F-NOT *3*RESULT)) (*1*F-NAND4 (*1*F-NOT *2*TEMP4) *2*TEMP1 (*1*F-NAND (*1*F-NOT *2*TEMP3) (*1*F-NOT *2*TEMP2)) *3*A0)) (*1*F-NOT *3*ZERO))))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (CARRY-OUT-HELP (A0 RESULT ZERO OP0 OP1 OP2 OP3) (W-22) ((G-21 (W-21) B-NOT (ZERO)) (G-16 (W-16) B-NOT (OP1)) (G-17 (W-17) B-NOT (W-16)) (G-14 (W-14) B-NOT (OP0)) (G-15 (W-15) B-NOT (W-14)) (G-18 (W-18) B-NAND (W-15 W-17)) (G-13 (W-13) B-NOT (OP2)) (G-11 (W-11) B-NOT (OP3)) (G-12 (W-12) B-NOT (W-11)) (G-19 (W-19) B-NAND4 (W-12 W-13 W-18 A0)) (G-9 (W-9) B-NOT (RESULT)) (G-8 (W-8) B-NOT (W-13)) (G-10 (W-10) B-NAND3 (W-11 W-8 W-9)) (G-3 (W-3) B-NAND (W-14 W-16)) (G-5 (W-5) B-NAND4 (W-11 W-3 W-13 RESULT)) (G-20 (W-20) B-NAND3 (W-5 W-10 W-19)) (G-22 (W-22) B-AND (W-20 W-21))) NIL)))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CARRY-OUT-HELP) *3*NETLIST) (*1*CARRY-OUT-HELP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CARRY-OUT-HELP) *3*NETLIST))) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND4& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*B-AND& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*CARRY-OUT-HELP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CARRY-OUT-HELP*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NAND$NETLIST)) (*1*B-NAND4$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-AND$NETLIST))))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP) (QUOTE (SEXPR (LAMBDA (*3*RN *3*AN *3*BN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (*1*B-IF *3*RN (*1*B-NOR (SETQ *2*TEMP8 (*1*B-NAND (*1*B-NOR (*1*B-NAND3 (*1*B-NOT *3*OP3) (*1*B-OR3 (SETQ *2*TEMP7 (*1*B-NOT *3*OP1)) (SETQ *2*TEMP6 (*1*B-NOT *3*OP2)) (SETQ *2*TEMP5 (*1*B-XOR (SETQ *2*TEMP4 (*1*B-NOT (SETQ *2*TEMP3 (*1*B-NOT *3*AN)))) *3*BN))) (*1*B-NAND3 *2*TEMP7 (SETQ *2*TEMP2 (*1*B-NOT *2*TEMP6)) *2*TEMP3)) (*1*B-NAND (*1*B-NAND3 *3*OP1 *2*TEMP6 *2*TEMP5) (*1*B-NAND3 *2*TEMP7 *2*TEMP6 *2*TEMP4))) (*1*B-NOT *3*ZERO))) (SETQ *2*TEMP1 (*1*B-NAND3 (*1*B-NAND *2*TEMP2 *2*TEMP3) (*1*B-NAND3 *3*OP0 *2*TEMP7 *2*TEMP4) (*1*B-NAND *2*TEMP6 *2*TEMP4)))) (*1*B-NOR *2*TEMP8 (*1*B-NOT *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*F$OVERFLOW-HELP) (QUOTE (SEXPR (LAMBDA (*3*RN *3*AN *3*BN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (*1*F-IF *3*RN (*1*F-NOR (SETQ *2*TEMP8 (*1*F-NAND (*1*F-NOR (*1*F-NAND3 (*1*F-NOT *3*OP3) (*1*F-OR3 (SETQ *2*TEMP7 (*1*F-NOT *3*OP1)) (SETQ *2*TEMP6 (*1*F-NOT *3*OP2)) (SETQ *2*TEMP5 (*1*F-XOR (SETQ *2*TEMP4 (*1*F-NOT (SETQ *2*TEMP3 (*1*F-NOT *3*AN)))) *3*BN))) (*1*F-NAND3 *2*TEMP7 (SETQ *2*TEMP2 (*1*F-NOT *2*TEMP6)) *2*TEMP3)) (*1*F-NAND (*1*F-NAND3 *3*OP1 *2*TEMP6 *2*TEMP5) (*1*F-NAND3 *2*TEMP7 *2*TEMP6 *2*TEMP4))) (*1*F-NOT *3*ZERO))) (SETQ *2*TEMP1 (*1*F-NAND3 (*1*F-NAND *2*TEMP2 *2*TEMP3) (*1*F-NAND3 *3*OP0 *2*TEMP7 *2*TEMP4) (*1*F-NAND *2*TEMP6 *2*TEMP4)))) (*1*F-NOR *2*TEMP8 (*1*F-NOT *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (OVERFLOW-HELP (RN AN BN ZERO OP0 OP1 OP2 OP3) (W-83) ((G-77 (W-77) B-NOT (AN)) (G-78 (W-78) B-NOT (W-77)) (G-76 (W-76) B-NOT (OP2)) (G-79 (W-79) B-NAND (W-76 W-78)) (G-72 (W-72) B-NOT (OP1)) (G-75 (W-75) B-NAND3 (OP0 W-72 W-78)) (G-69 (W-69) B-NOT (W-76)) (G-71 (W-71) B-NAND (W-69 W-77)) (G-80 (W-80) B-NAND3 (W-71 W-75 W-79)) (G-81 (W-81) B-NOT (W-80)) (G-66 (W-66) B-NOT (ZERO)) (G-63 (W-63) B-NAND3 (W-72 W-76 W-78)) (G-57 (W-57) B-XOR (W-78 BN)) (G-58 (W-58) B-NAND3 (OP1 W-76 W-57)) (G-64 (W-64) B-NAND (W-58 W-63)) (G-52 (W-52) B-NAND3 (W-72 W-69 W-77)) (G-47 (W-47) B-OR3 (W-72 W-76 W-57)) (G-41 (W-41) B-NOT (OP3)) (G-53 (W-53) B-NAND3 (W-41 W-47 W-52)) (G-65 (W-65) B-NOR (W-53 W-64)) (G-67 (W-67) B-NAND (W-65 W-66)) (G-82 (W-82) B-NOR (W-67 W-81)) (G-40 (W-40) B-NOR (W-67 W-80)) (G-83 (W-83) B-IF (RN W-40 W-82))) NIL)))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE OVERFLOW-HELP) *3*NETLIST) (*1*OVERFLOW-HELP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-XOR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE OVERFLOW-HELP) *3*NETLIST))) (*1*AND (*1*B-OR3& *2*TEMP1) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*B-IF& *2*TEMP1))))))))))))) (PUT1-LST (QUOTE *1*OVERFLOW-HELP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*OVERFLOW-HELP*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-XOR$NETLIST) (*1*B-OR3$NETLIST)) (*1*B-NOT$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-NAND$NETLIST)) (*1*B-NOR$NETLIST)) (*1*B-IF$NETLIST))))))) (PUT1-LST (QUOTE *1*V-SHIFT-RIGHT-NAMES) (QUOTE (SEXPR (LAMBDA (*3*A *3*SI) (COND ((NOT (EQ (*1*NLISTP *3*A) *1*F)) (QUOTE NIL)) (T (*1*APPEND (*1*CDR *3*A) (CONS *3*SI (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL) (QUOTE (SEXPR (LAMBDA (*3*C *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (CONS (*1*B-OR3 (*1*B-AND *3*OP0 *3*OP1) (*1*B-NAND (*1*B-NOT *3*OP2) *3*OP3) *3*ZERO) (CONS (*1*B-OR (*1*B-AND *3*OP0 *3*AN) (*1*B-AND (*1*B-AND (*1*B-NOT *3*OP0) (*1*B-NOT *3*OP1)) *3*C)) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*F$SHIFT-OR-BUF-CNTL) (QUOTE (SEXPR (LAMBDA (*3*C *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (CONS (*1*F-OR3 (*1*F-AND *3*OP0 *3*OP1) (*1*F-NAND (*1*F-NOT *3*OP2) *3*OP3) *3*ZERO) (CONS (*1*F-OR (*1*F-AND *3*OP0 *3*AN) (*1*F-AND (*1*F-AND (*1*F-NOT *3*OP0) (*1*F-NOT *3*OP1)) *3*C)) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3) (W-3 W-9) ((G-6 (W-6) B-NOT (OP1)) (G-5 (W-5) B-NOT (OP0)) (G-7 (W-7) B-AND (W-5 W-6)) (G-8 (W-8) B-AND (W-7 C)) (G-4 (W-4) B-AND (OP0 AN)) (G-9 (W-9) B-OR (W-4 W-8)) (G-1 (W-1) B-NOT (OP2)) (G-2 (W-2) B-NAND (W-1 OP3)) (G-0 (W-0) B-AND (OP0 OP1)) (G-3 (W-3) B-OR3 (W-0 W-2 ZERO))) NIL)))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE SHIFT-OR-BUF-CNTL) *3*NETLIST) (*1*SHIFT-OR-BUF-CNTL*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-OR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE SHIFT-OR-BUF-CNTL) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-AND& *2*TEMP1) (*1*B-OR3& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF-CNTL$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*SHIFT-OR-BUF-CNTL*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-OR$NETLIST) (*1*B-NOT$NETLIST)) (*1*B-NAND$NETLIST)) (*1*B-AND$NETLIST)) (*1*B-OR3$NETLIST))))))) (PUT1-LST (QUOTE *1*F$SHIFT-OR-BUF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*FV-IF (*1*CAR (SETQ *2*TEMP1 (*1*F$SHIFT-OR-BUF-CNTL *3*C *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3))) *3*A (*1*FV-SHIFT-RIGHT *3*A (*1*CAR (*1*CDR *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*SHIFT-OR-BUF) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*V-IF (*1*CAR (SETQ *2*TEMP1 (*1*SHIFT-OR-BUF-CNTL *3*C *3*AN *3*ZERO *3*OP0 *3*OP1 *3*OP2 *3*OP3))) *3*A (*1*V-SHIFT-RIGHT *3*A (*1*CAR (*1*CDR *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF*) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE TV-SHIFT-OR-BUF) (SETQ *2*TEMP4 (*1*TREE-NUMBER *3*TREE))) (CONS (CONS (QUOTE C) (*1*APPEND (SETQ *2*TEMP3 (*1*INDICES (QUOTE A) (QUOTE 0) (SETQ *2*TEMP2 (*1*TREE-SIZE *3*TREE)))) (QUOTE (AN ZERO OP0 OP1 OP2 OP3)))) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE OUT) (QUOTE 0) *2*TEMP2)) (CONS (CONS (QUOTE (CNTL (CTL SI) SHIFT-OR-BUF-CNTL (C AN ZERO OP0 OP1 OP2 OP3))) (CONS (CONS (QUOTE MUX) (CONS *2*TEMP1 (CONS (*1*INDEX (QUOTE TV-IF) *2*TEMP4) (CONS (CONS (QUOTE CTL) (*1*APPEND *2*TEMP3 (*1*V-SHIFT-RIGHT-NAMES *2*TEMP3 (QUOTE SI)))) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TV-SHIFT-OR-BUF) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*TV-SHIFT-OR-BUF* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*SHIFT-OR-BUF-CNTL& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*TV-IF& *2*TEMP1 *3*TREE)))))))) (PUT1-LST (QUOTE *1*TV-SHIFT-OR-BUF$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE) (CONS (*1*TV-SHIFT-OR-BUF* *3*TREE) (*1*UNION (*1*TV-IF$NETLIST *3*TREE) (*1*SHIFT-OR-BUF-CNTL$NETLIST))))))) (PUT1-LST (QUOTE *1*F$CORE-ALU) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*ZERO *3*MPG *3*OP *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (CONS (*1*F$CARRY-OUT-HELP (*1*NTH (QUOTE 0) *3*A) (*1*F$T-CARRY *3*C (*1*CAR (SETQ *2*TEMP12 (*1*F$TV-ALU-HELP *3*C *3*A *3*B *3*MPG *3*TREE))) (*1*CAR (SETQ *2*TEMP11 (*1*CDR *2*TEMP12)))) *3*ZERO (SETQ *2*TEMP10 (*1*CAR *3*OP)) (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CDR *3*OP)))) (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP8)))) (SETQ *2*TEMP5 (*1*CAR (*1*CDR *2*TEMP6)))) (CONS (*1*F$OVERFLOW-HELP (*1*NTH (SETQ *2*TEMP4 (*1*SUB1 (*1*LENGTH *3*A))) (SETQ *2*TEMP3 (*1*CDR *2*TEMP11))) (SETQ *2*TEMP2 (*1*NTH *2*TEMP4 *3*A)) (*1*NTH *2*TEMP4 *3*B) *3*ZERO *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5) (CONS (*1*F$FAST-ZERO (SETQ *2*TEMP1 (*1*F$SHIFT-OR-BUF *3*C *2*TEMP3 *2*TEMP2 *3*ZERO *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5))) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CORE-ALU) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*ZERO *3*MPG *3*OP *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (CONS (*1*CARRY-OUT-HELP (*1*NTH (QUOTE 0) *3*A) (*1*T-CARRY *3*C (*1*CAR (SETQ *2*TEMP12 (*1*TV-ALU-HELP *3*C *3*A *3*B *3*MPG *3*TREE))) (*1*CAR (SETQ *2*TEMP11 (*1*CDR *2*TEMP12)))) *3*ZERO (SETQ *2*TEMP10 (*1*CAR *3*OP)) (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CDR *3*OP)))) (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP8)))) (SETQ *2*TEMP5 (*1*CAR (*1*CDR *2*TEMP6)))) (CONS (*1*OVERFLOW-HELP (*1*NTH (SETQ *2*TEMP4 (*1*SUB1 (*1*LENGTH *3*A))) (SETQ *2*TEMP3 (*1*CDR *2*TEMP11))) (SETQ *2*TEMP2 (*1*NTH *2*TEMP4 *3*A)) (*1*NTH *2*TEMP4 *3*B) *3*ZERO *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5) (CONS (*1*V-ZEROP (SETQ *2*TEMP1 (*1*SHIFT-OR-BUF *3*C *2*TEMP3 *2*TEMP2 *3*ZERO *2*TEMP10 *2*TEMP9 *2*TEMP7 *2*TEMP5))) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CORE-ALU*) (QUOTE (SEXPR (LAMBDA (*3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE CORE-ALU) (SETQ *2*TEMP9 (*1*TREE-NUMBER *3*TREE))) (CONS (CONS (QUOTE C) (*1*APPEND (SETQ *2*TEMP8 (*1*INDICES (QUOTE A) (QUOTE 0) (SETQ *2*TEMP7 (*1*TREE-SIZE *3*TREE)))) (*1*APPEND (SETQ *2*TEMP6 (*1*INDICES (QUOTE B) (QUOTE 0) *2*TEMP7)) (CONS (QUOTE ZERO) (*1*APPEND (SETQ *2*TEMP5 (*1*INDICES (QUOTE MPG) (QUOTE 0) (QUOTE 7))) (*1*INDICES (QUOTE OP) (QUOTE 0) (QUOTE 4))))))) (CONS (CONS (QUOTE CARRY) (CONS (QUOTE OVERFLOW) (CONS (QUOTE ZEROP) (SETQ *2*TEMP4 (*1*INDICES (QUOTE OUT) (QUOTE 0) *2*TEMP7))))) (CONS (CONS (CONS (QUOTE M-ALU) (CONS (CONS (QUOTE P) (CONS (QUOTE G) (SETQ *2*TEMP3 (*1*INDICES (QUOTE ALU-OUT) (QUOTE 0) *2*TEMP7)))) (CONS (*1*INDEX (QUOTE TV-ALU-HELP) *2*TEMP9) (CONS (CONS (QUOTE C) (*1*APPEND *2*TEMP8 (*1*APPEND *2*TEMP6 *2*TEMP5))) (QUOTE NIL))))) (CONS (QUOTE (M-ALU-CARRY (ALU-CARRY) T-CARRY (C P G))) (CONS (QUOTE (M-CARRY-OUT-HELP (CARRY) CARRY-OUT-HELP ((*1*QUOTE INDEX A 0) ALU-CARRY ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))) (CONS (CONS (QUOTE M-OVERFLOW-HELP) (CONS (QUOTE (OVERFLOW)) (CONS (QUOTE OVERFLOW-HELP) (CONS (CONS (*1*INDEX (QUOTE ALU-OUT) (SETQ *2*TEMP2 (*1*SUB1 *2*TEMP7))) (CONS (SETQ *2*TEMP1 (*1*INDEX (QUOTE A) *2*TEMP2)) (CONS (*1*INDEX (QUOTE B) *2*TEMP2) (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-SHIFT) (CONS *2*TEMP4 (CONS (*1*INDEX (QUOTE TV-SHIFT-OR-BUF) *2*TEMP9) (CONS (CONS (QUOTE C) (*1*APPEND *2*TEMP3 (CONS *2*TEMP1 (QUOTE (ZERO (*1*QUOTE INDEX OP 0) (*1*QUOTE INDEX OP 1) (*1*QUOTE INDEX OP 2) (*1*QUOTE INDEX OP 3)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE M-ZEROP) (CONS (QUOTE (ZEROP)) (CONS (*1*INDEX (QUOTE FAST-ZERO) *2*TEMP7) (CONS *2*TEMP4 (QUOTE NIL))))) (QUOTE NIL))))))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*CORE-ALU&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*TREE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE CORE-ALU) (*1*TREE-NUMBER *3*TREE))) *3*NETLIST) (*1*CORE-ALU* *3*TREE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TV-ALU-HELP& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST)) *3*TREE) (*1*AND (*1*T-CARRY& *2*TEMP1) (*1*AND (*1*CARRY-OUT-HELP& *2*TEMP1) (*1*AND (*1*OVERFLOW-HELP& *2*TEMP1) (*1*AND (*1*TV-SHIFT-OR-BUF& *2*TEMP1 *3*TREE) (*1*FAST-ZERO& *2*TEMP1 (*1*TREE-SIZE *3*TREE))))))))))))) (PUT1-LST (QUOTE *1*CORE-ALU$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*TREE) (CONS (*1*CORE-ALU* *3*TREE) (*1*UNION (*1*TV-ALU-HELP$NETLIST *3*TREE) (*1*UNION (*1*T-CARRY$NETLIST) (*1*UNION (*1*CARRY-OUT-HELP$NETLIST) (*1*UNION (*1*OVERFLOW-HELP$NETLIST) (*1*UNION (*1*TV-SHIFT-OR-BUF$NETLIST *3*TREE) (*1*FAST-ZERO$NETLIST (*1*TREE-SIZE *3*TREE)))))))))))) (PUT1-LST (QUOTE *1*REG-SIZE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 4))))) (PUT1-LST (QUOTE *1*A-IMMEDIATE-P) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*NTH (QUOTE 9) *3*INSTRUCTION))))) (PUT1-LST (QUOTE *1*A-IMMEDIATE) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 0) (QUOTE 8)))))) (PUT1-LST (QUOTE *1*RN-A) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 0) (QUOTE 3)))))) (PUT1-LST (QUOTE *1*MODE-A) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 4) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*RN-B) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 10) (QUOTE 13)))))) (PUT1-LST (QUOTE *1*MODE-B) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 14) (QUOTE 15)))))) (PUT1-LST (QUOTE *1*SET-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 16) (QUOTE 19)))))) (PUT1-LST (QUOTE *1*STORE-CC) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 20) (QUOTE 23)))))) (PUT1-LST (QUOTE *1*OP-CODE) (QUOTE (SEXPR (LAMBDA (*3*INSTRUCTION) (*1*SUBRANGE *3*INSTRUCTION (QUOTE 24) (QUOTE 27)))))) (PUT1-LST (QUOTE *1*Z-SET) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (*1*NTH (QUOTE 0) *3*SET-FLAGS))))) (PUT1-LST (QUOTE *1*N-SET) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (*1*NTH (QUOTE 1) *3*SET-FLAGS))))) (PUT1-LST (QUOTE *1*V-SET) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (*1*NTH (QUOTE 2) *3*SET-FLAGS))))) (PUT1-LST (QUOTE *1*C-SET) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (*1*NTH (QUOTE 3) *3*SET-FLAGS))))) (PUT1-LST (QUOTE *1*Z-FLAG) (QUOTE (SEXPR (LAMBDA (*3*FLAGS) (*1*NTH (QUOTE 0) *3*FLAGS))))) (PUT1-LST (QUOTE *1*N-FLAG) (QUOTE (SEXPR (LAMBDA (*3*FLAGS) (*1*NTH (QUOTE 1) *3*FLAGS))))) (PUT1-LST (QUOTE *1*V-FLAG) (QUOTE (SEXPR (LAMBDA (*3*FLAGS) (*1*NTH (QUOTE 2) *3*FLAGS))))) (PUT1-LST (QUOTE *1*C-FLAG) (QUOTE (SEXPR (LAMBDA (*3*FLAGS) (*1*NTH (QUOTE 3) *3*FLAGS))))) (PUT1-LST (QUOTE *1*REG-DIRECT-P) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE (*1*FALSE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*REG-INDIRECT-P) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE (*1*TRUE *1*FALSE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*PRE-DEC-P) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE (*1*FALSE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*POST-INC-P) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE (*1*TRUE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STORE-RESULTP) (QUOTE (SEXPR (LAMBDA (*3*STORE-CC *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (*1*NOT (*1*C-FLAG *3*FLAGS))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (*1*C-FLAG *3*FLAGS)) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (*1*NOT (*1*V-FLAG *3*FLAGS))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (*1*V-FLAG *3*FLAGS)) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (*1*NOT (*1*N-FLAG *3*FLAGS))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (*1*N-FLAG *3*FLAGS)) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (*1*NOT (*1*Z-FLAG *3*FLAGS))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (*1*Z-FLAG *3*FLAGS)) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) (*1*AND (*1*NOT (*1*C-FLAG *3*FLAGS)) (*1*NOT (*1*Z-FLAG *3*FLAGS)))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (*1*OR (*1*C-FLAG *3*FLAGS) (*1*Z-FLAG *3*FLAGS))) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (*1*OR (*1*AND (SETQ *2*TEMP3 (*1*N-FLAG *3*FLAGS)) (SETQ *2*TEMP4 (*1*V-FLAG *3*FLAGS))) (*1*AND (*1*NOT *2*TEMP3) (*1*NOT *2*TEMP4)))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) (*1*OR (*1*AND (SETQ *2*TEMP3 (*1*N-FLAG *3*FLAGS)) (*1*NOT (SETQ *2*TEMP4 (*1*V-FLAG *3*FLAGS)))) (*1*AND (*1*NOT *2*TEMP3) *2*TEMP4))) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) (*1*OR (*1*AND (SETQ *2*TEMP3 (*1*N-FLAG *3*FLAGS)) (*1*AND (SETQ *2*TEMP4 (*1*V-FLAG *3*FLAGS)) (SETQ *2*TEMP2 (*1*NOT (SETQ *2*TEMP1 (*1*Z-FLAG *3*FLAGS)))))) (*1*AND (*1*NOT *2*TEMP3) (*1*AND (*1*NOT *2*TEMP4) *2*TEMP2)))) ((EQUAL *3*STORE-CC (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) (*1*OR (*1*Z-FLAG *3*FLAGS) (*1*OR (*1*AND (SETQ *2*TEMP3 (*1*N-FLAG *3*FLAGS)) (*1*NOT (SETQ *2*TEMP4 (*1*V-FLAG *3*FLAGS)))) (*1*AND (*1*NOT *2*TEMP3) *2*TEMP4)))) ((EQUAL *3*STORE-CC (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*UPDATE-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*FLAGS *3*SET-FLAGS *3*CVZBV) (CONS (*1*B-IF (*1*Z-SET *3*SET-FLAGS) (*1*ZB *3*CVZBV) (*1*Z-FLAG *3*FLAGS)) (CONS (*1*B-IF (*1*N-SET *3*SET-FLAGS) (*1*N *3*CVZBV) (*1*N-FLAG *3*FLAGS)) (CONS (*1*B-IF (*1*V-SET *3*SET-FLAGS) (*1*V *3*CVZBV) (*1*V-FLAG *3*FLAGS)) (CONS (*1*B-IF (*1*C-SET *3*SET-FLAGS) (*1*C *3*CVZBV) (*1*C-FLAG *3*FLAGS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*REGS) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 0) *3*STATE))))) (PUT1-LST (QUOTE *1*FLAGS) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 1) *3*STATE))))) (PUT1-LST (QUOTE *1*FM9001-ALU-OPERATION) (QUOTE (SEXPR (LAMBDA (*3*REGS *3*FLAGS *3*MEM *3*INS *3*OPERAND-A *3*OPERAND-B *3*B-ADDRESS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (CONS (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP4 (*1*STORE-RESULTP (*1*STORE-CC *3*INS) *3*FLAGS)) (SETQ *2*TEMP3 (*1*REG-DIRECT-P (*1*MODE-B *3*INS)))) *1*F)) (*1*WRITE-MEM (*1*RN-B *3*INS) *3*REGS (SETQ *2*TEMP2 (*1*BV (SETQ *2*TEMP1 (*1*V-ALU (*1*C-FLAG *3*FLAGS) *3*OPERAND-A *3*OPERAND-B (*1*OP-CODE *3*INS))))))) (T *3*REGS)) (CONS (*1*UPDATE-FLAGS *3*FLAGS (*1*SET-FLAGS *3*INS) (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (SETQ *2*TEMP1 (*1*V-ALU (*1*C-FLAG *3*FLAGS) *3*OPERAND-A *3*OPERAND-B (*1*OP-CODE *3*INS)))))) (QUOTE NIL))) (CONS (COND ((NOT (EQ (*1*AND *2*TEMP4 (*1*NOT *2*TEMP3)) *1*F)) (*1*WRITE-MEM *3*B-ADDRESS *3*MEM (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (*1*BV *2*TEMP1))))) (T *3*MEM)) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*FM9001-OPERAND-B) (QUOTE (SEXPR (LAMBDA (*3*REGS *3*FLAGS *3*MEM *3*INS *3*OPERAND-A) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (*1*FM9001-ALU-OPERATION (COND ((NOT (EQ (SETQ *2*TEMP6 (*1*PRE-DEC-P (SETQ *2*TEMP5 (*1*MODE-B *3*INS)))) *1*F)) (*1*WRITE-MEM (SETQ *2*TEMP4 (*1*RN-B *3*INS)) *3*REGS (SETQ *2*TEMP3 (*1*V-DEC (SETQ *2*TEMP2 (*1*READ-MEM *2*TEMP4 *3*REGS)))))) ((NOT (EQ (*1*POST-INC-P *2*TEMP5) *1*F)) (*1*WRITE-MEM (SETQ *2*TEMP4 (*1*RN-B *3*INS)) *3*REGS (*1*V-INC (SETQ *2*TEMP2 (*1*READ-MEM *2*TEMP4 *3*REGS))))) (T *3*REGS)) *3*FLAGS *3*MEM *3*INS *3*OPERAND-A (COND ((NOT (EQ (*1*REG-DIRECT-P *2*TEMP5) *1*F)) (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (SETQ *2*TEMP2 (*1*READ-MEM (COND ((NOT (EQ *2*TEMP4 (QUOTE *1*X))) *2*TEMP4) (T (SETQ *2*TEMP4 (*1*RN-B *3*INS)))) *3*REGS))))) (T (*1*READ-MEM (SETQ *2*TEMP1 (COND ((NOT (EQ *2*TEMP6 *1*F)) (COND ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (SETQ *2*TEMP3 (*1*V-DEC (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (SETQ *2*TEMP2 (*1*READ-MEM (COND ((NOT (EQ *2*TEMP4 (QUOTE *1*X))) *2*TEMP4) (T (SETQ *2*TEMP4 (*1*RN-B *3*INS)))) *3*REGS))))))))) ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (SETQ *2*TEMP2 (*1*READ-MEM (COND ((NOT (EQ *2*TEMP4 (QUOTE *1*X))) *2*TEMP4) (T (SETQ *2*TEMP4 (*1*RN-B *3*INS)))) *3*REGS))))) *3*MEM))) (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) ((NOT (EQ *2*TEMP6 *1*F)) (COND ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (*1*V-DEC *2*TEMP2)))) (T *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*FM9001-OPERAND-A) (QUOTE (SEXPR (LAMBDA (*3*REGS *3*FLAGS *3*MEM *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (*1*FM9001-OPERAND-B (COND ((NOT (EQ (SETQ *2*TEMP6 (*1*A-IMMEDIATE-P *3*INS)) *1*F)) *3*REGS) ((NOT (EQ (SETQ *2*TEMP5 (*1*PRE-DEC-P (SETQ *2*TEMP4 (*1*MODE-A *3*INS)))) *1*F)) (*1*WRITE-MEM (SETQ *2*TEMP3 (*1*RN-A *3*INS)) *3*REGS (SETQ *2*TEMP2 (*1*V-DEC (SETQ *2*TEMP1 (*1*READ-MEM *2*TEMP3 *3*REGS)))))) ((NOT (EQ (*1*POST-INC-P *2*TEMP4) *1*F)) (*1*WRITE-MEM (SETQ *2*TEMP3 (*1*RN-A *3*INS)) *3*REGS (*1*V-INC (SETQ *2*TEMP1 (*1*READ-MEM *2*TEMP3 *3*REGS))))) (T *3*REGS)) *3*FLAGS *3*MEM *3*INS (COND ((NOT (EQ *2*TEMP6 *1*F)) (*1*SIGN-EXTEND (*1*A-IMMEDIATE *3*INS) (QUOTE 32))) ((NOT (EQ (*1*REG-DIRECT-P (COND ((NOT (EQ *2*TEMP4 (QUOTE *1*X))) *2*TEMP4) (T (SETQ *2*TEMP4 (*1*MODE-A *3*INS))))) *1*F)) (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*READ-MEM (COND ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (*1*RN-A *3*INS))) *3*REGS)))) ((NOT (EQ (COND ((NOT (EQ *2*TEMP5 (QUOTE *1*X))) *2*TEMP5) (T (*1*PRE-DEC-P *2*TEMP4))) *1*F)) (*1*READ-MEM (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (*1*V-DEC (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*READ-MEM (COND ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (*1*RN-A *3*INS))) *3*REGS)))))) *3*MEM)) (T (*1*READ-MEM (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*READ-MEM (COND ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (*1*RN-A *3*INS))) *3*REGS))) *3*MEM))))))))) (PUT1-LST (QUOTE *1*FM9001-FETCH) (QUOTE (SEXPR (LAMBDA (*3*REGS *3*FLAGS *3*MEM *3*PC-REG) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*FM9001-OPERAND-A (*1*WRITE-MEM *3*PC-REG *3*REGS (*1*V-INC (SETQ *2*TEMP1 (*1*READ-MEM *3*PC-REG *3*REGS)))) *3*FLAGS *3*MEM (*1*READ-MEM *2*TEMP1 *3*MEM))))))) (PUT1-LST (QUOTE *1*FM9001-STEP) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC-REG) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*FM9001-FETCH (*1*REGS (SETQ *2*TEMP1 (*1*CAR *3*STATE))) (*1*FLAGS *2*TEMP1) (*1*CAR (*1*CDR *3*STATE)) *3*PC-REG)))))) (PUT1-LST (QUOTE *1*FM9001) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*STATE) (T (*1*FM9001 (*1*FM9001-STEP *3*STATE (*1*NAT-TO-V (QUOTE 15) (*1*REG-SIZE))) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*FM9001-INTERPRETER) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC-REG *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*STATE) (T (*1*FM9001-INTERPRETER (*1*FM9001-STEP *3*STATE *3*PC-REG) *3*PC-REG (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*FM9001-INTR) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC-REG-INPUT) (COND ((NOT (EQ (*1*NLISTP *3*PC-REG-INPUT) *1*F)) *3*STATE) (T (*1*FM9001-INTR (*1*FM9001-STEP *3*STATE (*1*CAR *3*PC-REG-INPUT)) (*1*CDR *3*PC-REG-INPUT)))))))) (PUT1-LST (QUOTE *1*INTP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*NUMBERP *3*X) (*1*NEGATIVEP *3*X)))))) (PUT1-LST (QUOTE *1*INT-TO-BV) (QUOTE (SEXPR (LAMBDA (*3*X *3*SIZE) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) (*1*NAT-TO-V (*1*NEGATIVE-GUTS *3*X) *3*SIZE) (*1*NAT-TO-V (QUOTE 0) *3*SIZE))) (T (*1*NAT-TO-V *3*X *3*SIZE))))))) (PUT1-LST (QUOTE *1*BV-TO-INT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NTH (*1*SUB1 (*1*LENGTH *3*X)) *3*X) *1*F)) (*1*MINUS (*1*V-TO-NAT (*1*V-INC (*1*V-NOT *3*X))))) (T (*1*V-TO-NAT *3*X))))))) (PUT1-LST (QUOTE *1*C10-TF) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (COND ((EQUAL (*1*CAR *3*X) (QUOTE 0)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))) (*1*C10-TF (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*C10-INT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*BV-TO-INT (*1*C10-TF *3*X)))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGATIVEP *3*Y) *1*F)) (*1*MINUS (*1*PLUS (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y)))) ((NOT (EQ (*1*LESSP *3*Y (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*X))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP2 *3*Y))) (T (*1*DIFFERENCE *3*Y *2*TEMP2)))) ((NOT (EQ (*1*NEGATIVEP *3*Y) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*X (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*Y))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP1 *3*X))) (T (*1*DIFFERENCE *3*X *2*TEMP1)))) (T (*1*PLUS *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*INTEGER-MINUS) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) ((NOT (EQ (*1*ZEROP *3*X) *1*F)) (QUOTE 0)) (T (*1*MINUS *3*X))))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*ADD *3*X (*1*INTEGER-MINUS *3*Y)))))) (PUT1-LST (QUOTE *1*EXP2) (QUOTE (SEXPR (LAMBDA (*3*Y) (COND ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) (QUOTE 1)) (T (*1*TIMES (QUOTE 2) (*1*EXP2 (*1*SUB1 *3*Y))))))))) (PUT1-LST (QUOTE *1*LOG2) (QUOTE (SEXPR (LAMBDA (*3*N) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*N) (COND ((EQUAL *3*N (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LOG2 (*1*QUOTIENT *3*N (QUOTE 2)))))))))) (PUT1-LST (QUOTE *1*ASM-REGISTER) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQ *3*X (QUOTE R0)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R1)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R2)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R3)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R4)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R5)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R6)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R7)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R8)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R9)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R10)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R11)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R12)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R13)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE LNK)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R14)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE TOS)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE R15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE PC)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQUAL *3*X (QUOTE (R0))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R1))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R2))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R3))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R4))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R5))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R6))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R7))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R8))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R9))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R10))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R11))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R12))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R13))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (LNK))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R14))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (TOS))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R15))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (PC))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQUAL *3*X (QUOTE (R0-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R1-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R2-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R3-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R4-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R5-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R6-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R7-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R8-))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R9-))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R10-))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R11-))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R12-))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R13-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (LNK-))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R14-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (TOS-))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R15-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (PC-))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQUAL *3*X (QUOTE (R0+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R1+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R2+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R3+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R4+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R5+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R6+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R7+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R8+))) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R9+))) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R10+))) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R11+))) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R12+))) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R13+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (LNK+))) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R14+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (TOS+))) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (R15+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) ((EQUAL *3*X (QUOTE (PC+))) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (T (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*ASM-REGISTER-A) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*INTP *3*X) *1*F)) (*1*APPEND (*1*INT-TO-BV *3*X (QUOTE 9)) (QUOTE (*1*TRUE)))) (T (*1*APPEND (*1*ASM-REGISTER *3*X) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*ASM-OP-CODE) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQ *3*X (QUOTE MOVE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE INC)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE ADDC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE ADD)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE NEG)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE DEC)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE SUBB)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE SUB)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE ROR)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE ASR)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE LSR)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE XOR)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE OR)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE AND)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE NOT)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE M15)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (T (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*ASM-STORE-CC) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQ *3*X (QUOTE CC)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE CS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE VC)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE VS)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) ((EQ *3*X (QUOTE PL)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE NC)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE MI)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE NS)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE NE)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE ZC)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE EQ)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE ZS)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) ((EQ *3*X (QUOTE HI)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE LS)) (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE GE)) (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE LT)) (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE))) ((EQ *3*X (QUOTE GT)) (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE LE)) (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE T)) (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) ((EQ *3*X (QUOTE F)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (T (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*ASM-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ *3*X (QUOTE T)) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (T (CONS (*1*MEMBER (*1*CAR (*1*UNPACK (QUOTE Z))) (SETQ *2*TEMP1 (*1*UNPACK *3*X))) (CONS (*1*MEMBER (*1*CAR (*1*UNPACK (QUOTE N))) *2*TEMP1) (CONS (*1*MEMBER (*1*CAR (*1*UNPACK (QUOTE V))) *2*TEMP1) (CONS (*1*MEMBER (*1*CAR (*1*UNPACK (QUOTE C))) *2*TEMP1) (QUOTE NIL)))))))))))) (PUT1-LST (QUOTE *1*RESOLVE-NAMES) (QUOTE (SEXPR (LAMBDA (*3*LIST *3*CNT *3*ALIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LIST) *1*F)) *3*ALIST) ((NOT (EQ (*1*LITATOM (SETQ *2*TEMP1 (*1*CAR *3*LIST))) *1*F)) (*1*RESOLVE-NAMES (*1*CDR *3*LIST) *3*CNT (CONS (CONS *2*TEMP1 *3*CNT) *3*ALIST))) (T (*1*RESOLVE-NAMES (*1*CDR *3*LIST) (*1*ADD1 *3*CNT) *3*ALIST)))))))) (PUT1-LST (QUOTE *1*UPDATE-LIST) (QUOTE (SEXPR (LAMBDA (*3*LIST *3*ALIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE UPDATE-LIST) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LIST) *1*F)) (QUOTE NIL)) (T (CONS (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CAR *3*LIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *2*TEMP1) (QUOTE VALUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*EVAL$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP1)) *3*ALIST)) (T *2*TEMP1)) (*1*UPDATE-LIST (*1*CDR *3*LIST) *3*ALIST)))))))))))) (PUT1-LST (QUOTE *1*ASM-LINE) (QUOTE (SEXPR (LAMBDA (*3*LINE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*INTP *3*LINE) *1*F)) (*1*INT-TO-BV *3*LINE (QUOTE 32))) (T (*1*APPEND (*1*ASM-REGISTER-A (*1*CAR (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*CDR *3*LINE))))))))) (*1*APPEND (*1*ASM-REGISTER (*1*CAR *2*TEMP3)) (*1*APPEND (*1*ASM-FLAGS (*1*CAR *2*TEMP2)) (*1*APPEND (*1*ASM-STORE-CC (*1*CAR *2*TEMP1)) (*1*APPEND (*1*ASM-OP-CODE (*1*CAR *3*LINE)) (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))))))))))) (PUT1-LST (QUOTE *1*ASM-LIST) (QUOTE (SEXPR (LAMBDA (*3*LIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*LIST) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*LITATOM (SETQ *2*TEMP1 (*1*CAR *3*LIST))) *1*F)) (*1*ASM-LIST (*1*CDR *3*LIST))) (T (CONS (*1*ASM-LINE *2*TEMP1) (*1*ASM-LIST (*1*CDR *3*LIST)))))))))) (PUT1-LST (QUOTE *1*ASM) (QUOTE (SEXPR (LAMBDA (*3*LIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE ASM) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*ASM-LIST (*1*UPDATE-LIST *3*LIST (*1*RESOLVE-NAMES *3*LIST (QUOTE 0) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*T-AND-F-TO-1-AND-0) (QUOTE (SEXPR (LAMBDA (*3*LIST) (COND ((NOT (EQ (*1*NLISTP *3*LIST) *1*F)) (QUOTE NIL)) (T (CONS (COND ((NOT (EQ (*1*FALSEP (*1*CAR *3*LIST)) *1*F)) (QUOTE 0)) (T (QUOTE 1))) (*1*T-AND-F-TO-1-AND-0 (*1*CDR *3*LIST))))))))) (PUT1-LST (QUOTE *1*ASM-TO-1-AND-0) (QUOTE (SEXPR (LAMBDA (*3*LIST) (COND ((NOT (EQ (*1*NLISTP *3*LIST) *1*F)) (QUOTE NIL)) (T (CONS (*1*T-AND-F-TO-1-AND-0 (*1*CAR *3*LIST)) (*1*ASM-TO-1-AND-0 (*1*CDR *3*LIST))))))))) (PUT1-LST (QUOTE *1*V-TO-NAT-ALL) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*V-TO-NAT (*1*CAR *3*X)) (*1*V-TO-NAT-ALL (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*V-TO-0S-THROUGH-FS) (QUOTE (SEXPR (LAMBDA (*3*X *3*COLLECT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) *3*COLLECT) (T (*1*V-TO-0S-THROUGH-FS (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*X)))) (CONS (COND ((EQUAL (SETQ *2*TEMP1 (*1*V-TO-NAT (*1*FIRSTN (QUOTE 4) *3*X))) (QUOTE 0)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X0))))) ((EQUAL *2*TEMP1 (QUOTE 1)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X1))))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X2))))) ((EQUAL *2*TEMP1 (QUOTE 3)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X3))))) ((EQUAL *2*TEMP1 (QUOTE 4)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X4))))) ((EQUAL *2*TEMP1 (QUOTE 5)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X5))))) ((EQUAL *2*TEMP1 (QUOTE 6)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X6))))) ((EQUAL *2*TEMP1 (QUOTE 7)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X7))))) ((EQUAL *2*TEMP1 (QUOTE 8)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X8))))) ((EQUAL *2*TEMP1 (QUOTE 9)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE X9))))) ((EQUAL *2*TEMP1 (QUOTE 10)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XA))))) ((EQUAL *2*TEMP1 (QUOTE 11)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XB))))) ((EQUAL *2*TEMP1 (QUOTE 12)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XC))))) ((EQUAL *2*TEMP1 (QUOTE 13)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XD))))) ((EQUAL *2*TEMP1 (QUOTE 14)) (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XE))))) (T (*1*CAR (*1*CDR (*1*UNPACK (QUOTE XF)))))) *3*COLLECT))))))))) (PUT1-LST (QUOTE *1*V-TO-HEX) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*PACK (CONS (*1*CAR (*1*UNPACK (QUOTE X))) (*1*V-TO-0S-THROUGH-FS *3*X (QUOTE 0)))))))) (PUT1-LST (QUOTE *1*V-TO-HEX-ALL) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*V-TO-HEX (*1*CAR *3*X)) (*1*V-TO-HEX-ALL (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*MAKE-PAIRS) (QUOTE (SEXPR (LAMBDA (*3*LIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NLISTP *3*LIST) (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*LIST)))) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*CAR *3*LIST) (*1*CAR *2*TEMP1)) (*1*MAKE-PAIRS (*1*CDR *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*ADD-RAM-MARKER) (QUOTE (SEXPR (LAMBDA (*3*LIST-MEM) (COND ((NOT (EQ (*1*NLISTP *3*LIST-MEM) *1*F)) (QUOTE NIL)) (T (CONS (*1*RAM (*1*CAR *3*LIST-MEM)) (*1*ADD-RAM-MARKER (*1*CDR *3*LIST-MEM))))))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM3) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*DEPTH) (COND ((NOT (EQ (*1*ZEROP *3*DEPTH) *1*F)) *3*MEM) (T (*1*LIST-TO-MEM3 (*1*MAKE-PAIRS *3*MEM) (*1*SUB1 *3*DEPTH)))))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM2) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*DEPTH) (*1*CAR (*1*LIST-TO-MEM3 *3*MEM *3*DEPTH)))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM1) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*DEFAULT) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*LIST-TO-MEM2 (*1*ADD-RAM-MARKER (*1*APPEND *3*MEM (*1*MAKE-LIST (*1*DIFFERENCE (*1*EXP2 (SETQ *2*TEMP2 (*1*ADD1 (*1*LOG2 (SETQ *2*TEMP1 (*1*LENGTH *3*MEM)))))) *2*TEMP1) *3*DEFAULT))) *2*TEMP2)))))) (PUT1-LST (QUOTE *1*STUB-RIGHT) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*LEVELS *3*DEFAULT) (COND ((NOT (EQ (*1*ZEROP *3*LEVELS) *1*F)) *3*MEM) (T (CONS (*1*STUB-RIGHT *3*MEM (*1*SUB1 *3*LEVELS) *3*DEFAULT) (*1*STUB *3*DEFAULT)))))))) (PUT1-LST (QUOTE *1*LIST-TO-MEM) (QUOTE (SEXPR (LAMBDA (*3*MEM *3*SIZE *3*DEFAULT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*SIZE (SETQ *2*TEMP1 (*1*ADD1 (*1*LOG2 (*1*LENGTH *3*MEM))))) *1*F)) (QUOTE (LIST-TO-MEM= INSUFFICIENT-SIZE))) (T (*1*STUB-RIGHT (*1*LIST-TO-MEM1 *3*MEM *3*DEFAULT) (*1*DIFFERENCE *3*SIZE *2*TEMP1) *3*DEFAULT)))))))) (PUT1-LST (QUOTE *1*LIST-TO-TREE-MEM) (QUOTE (SEXPR (LAMBDA (*3*MEM) (*1*LIST-TO-MEM *3*MEM (QUOTE 32) (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*MEM-TO-LIST) (QUOTE (SEXPR (LAMBDA (*3*MEM) (COND ((AND (CONSP *3*MEM) (NOT (EQ (CAR *3*MEM) (QUOTE *1*QUOTE)))) (*1*APPEND (*1*MEM-TO-LIST (CAR *3*MEM)) (*1*MEM-TO-LIST (CDR *3*MEM)))) ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (CONS (*1*RAM-GUTS *3*MEM) (QUOTE NIL))) ((NOT (EQ (*1*ROMP *3*MEM) *1*F)) (CONS (*1*ROM-GUTS *3*MEM) (QUOTE NIL))) (T *3*MEM)))))) (PUT1-LST (QUOTE *1*UN-FM9001) (QUOTE (SEXPR (LAMBDA (*3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (CONS (*1*V-TO-NAT-ALL (*1*MEM-TO-LIST (*1*REGS (SETQ *2*TEMP2 (*1*CAR *3*STATE))))) (CONS (*1*Z-FLAG (SETQ *2*TEMP1 (*1*FLAGS *2*TEMP2))) (CONS (*1*N-FLAG *2*TEMP1) (CONS (*1*V-FLAG *2*TEMP1) (CONS (*1*C-FLAG *2*TEMP1) (QUOTE NIL)))))) (CONS (*1*V-TO-HEX-ALL (*1*MEM-TO-LIST (*1*CAR (*1*CDR *3*STATE)))) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*EXECUTE-FM9001) (QUOTE (SEXPR (LAMBDA (*3*N *3*TREE-PGM) (*1*UN-FM9001 (*1*FM9001 (CONS (CONS (*1*LIST-TO-MEM (*1*MAKE-LIST (QUOTE 15) (*1*NAT-TO-V (QUOTE 0) (QUOTE 32))) (QUOTE 4) (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (QUOTE ((*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))) (CONS *3*TREE-PGM (QUOTE NIL))) *3*N)))))) (PUT1-LST (QUOTE *1*ASM-AND-FM9001) (QUOTE (SEXPR (LAMBDA (*3*N *3*PROGRAM) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE ASM-AND-FM9001) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*EXECUTE-FM9001 *3*N (*1*LIST-TO-MEM (*1*ASM *3*PROGRAM) (QUOTE 32) (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX) (QUOTE (SEXPR (LAMBDA (*3*S0 *3*S1 *3*S2 *3*D0 *3*D1 *3*D2 *3*D3 *3*D4 *3*D5 *3*D6) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AO2 (*1*B-NOT *3*S2) (*1*AO2 (SETQ *2*TEMP2 (*1*B-NOT *3*S1)) (*1*AO2 (SETQ *2*TEMP1 (*1*B-NOT *3*S0)) *3*D0 *3*S0 *3*D1) *3*S1 (*1*AO2 *2*TEMP1 *3*D2 *3*S0 *3*D3)) *3*S2 (*1*AO2 *2*TEMP2 (*1*AO2 *2*TEMP1 *3*D4 *3*S0 *3*D5) *3*S1 (*1*B-NAND *2*TEMP1 *3*D6)))))))) (PUT1-LST (QUOTE *1*F$STORE-RESULTP-MUX) (QUOTE (SEXPR (LAMBDA (*3*S0 *3*S1 *3*S2 *3*D0 *3*D1 *3*D2 *3*D3 *3*D4 *3*D5 *3*D6) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*F$AO2 (*1*F-NOT *3*S2) (*1*F$AO2 (SETQ *2*TEMP2 (*1*F-NOT *3*S1)) (*1*F$AO2 (SETQ *2*TEMP1 (*1*F-NOT *3*S0)) *3*D0 *3*S0 *3*D1) *3*S1 (*1*F$AO2 *2*TEMP1 *3*D2 *3*S0 *3*D3)) *3*S2 (*1*F$AO2 *2*TEMP2 (*1*F$AO2 *2*TEMP1 *3*D4 *3*S0 *3*D5) *3*S1 (*1*F-NAND *2*TEMP1 *3*D6)))))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (STORE-RESULTP-MUX (S0 S1 S2 D0 D1 D2 D3 D4 D5 D6) (W-13) ((G-10 (W-10) B-NOT (S0)) (G-11 (W-11) B-NAND (W-10 D6)) (G-9 (W-9) AO2 (W-10 D4 S0 D5)) (G-7 (W-7) B-NOT (S1)) (G-12 (W-12) AO2 (W-7 W-9 S1 W-11)) (G-5 (W-5) AO2 (W-10 D2 S0 D3)) (G-3 (W-3) AO2 (W-10 D0 S0 D1)) (G-6 (W-6) AO2 (W-7 W-3 S1 W-5)) (G-0 (W-0) B-NOT (S2)) (G-13 (W-13) AO2 (W-0 W-6 S2 W-12))) NIL)))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE STORE-RESULTP-MUX) *3*NETLIST) (*1*STORE-RESULTP-MUX*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NAND& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE STORE-RESULTP-MUX) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AO2& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*STORE-RESULTP-MUX$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*STORE-RESULTP-MUX*) (*1*UNION (*1*UNION (*1*B-NAND$NETLIST) (*1*B-NOT$NETLIST)) (*1*AO2$NETLIST))))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP) (QUOTE (SEXPR (LAMBDA (*3*STORE-CC *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (*1*B-XOR (*1*CAR *3*STORE-CC) (*1*STORE-RESULTP-MUX (*1*CAR (SETQ *2*TEMP9 (*1*CDR *3*STORE-CC))) (*1*CAR (SETQ *2*TEMP8 (*1*CDR *2*TEMP9))) (*1*CAR (*1*CDR *2*TEMP8)) (SETQ *2*TEMP7 (*1*CAR (*1*CDR (SETQ *2*TEMP6 (*1*CDR (SETQ *2*TEMP5 (*1*CDR *3*FLAGS))))))) (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (SETQ *2*TEMP3 (*1*CAR *2*TEMP5)) (SETQ *2*TEMP2 (*1*CAR *3*FLAGS)) (*1*B-OR *2*TEMP7 *2*TEMP2) (SETQ *2*TEMP1 (*1*B-XOR *2*TEMP3 *2*TEMP4)) (*1*B-OR *2*TEMP2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*F$B-STORE-RESULTP) (QUOTE (SEXPR (LAMBDA (*3*STORE-CC *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (*1*F-XOR (*1*CAR *3*STORE-CC) (*1*F$STORE-RESULTP-MUX (*1*CAR (SETQ *2*TEMP9 (*1*CDR *3*STORE-CC))) (*1*CAR (SETQ *2*TEMP8 (*1*CDR *2*TEMP9))) (*1*CAR (*1*CDR *2*TEMP8)) (SETQ *2*TEMP7 (*1*CAR (*1*CDR (SETQ *2*TEMP6 (*1*CDR (SETQ *2*TEMP5 (*1*CDR *3*FLAGS))))))) (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (SETQ *2*TEMP3 (*1*CAR *2*TEMP5)) (SETQ *2*TEMP2 (*1*CAR *3*FLAGS)) (*1*F-OR *2*TEMP7 *2*TEMP2) (SETQ *2*TEMP1 (*1*F-XOR *2*TEMP3 *2*TEMP4)) (*1*F-OR *2*TEMP2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (B-STORE-RESULTP (S0 S1 S2 S3 Z N V C) (RESULT) ((G0 (CZ) B-OR (C Z)) (G1 (NV) B-XOR (N V)) (G2 (ZNV) B-OR (Z NV)) (G3 (MUX) STORE-RESULTP-MUX (S1 S2 S3 C V N Z CZ NV ZNV)) (G4 (RESULT) B-XOR (S0 MUX))) NIL)))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE B-STORE-RESULTP) *3*NETLIST) (*1*B-STORE-RESULTP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-OR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE B-STORE-RESULTP) *3*NETLIST))) (*1*AND (*1*STORE-RESULTP-MUX& *2*TEMP1) (*1*B-XOR& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*B-STORE-RESULTP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*B-STORE-RESULTP*) (*1*UNION (*1*UNION (*1*B-OR$NETLIST) (*1*STORE-RESULTP-MUX$NETLIST)) (*1*B-XOR$NETLIST))))))) (PUT1-LST (QUOTE *1*F$UNARY-OP-CODE-P) (QUOTE (SEXPR (LAMBDA (*3*OP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (*1*F-NAND4 (*1*F-NAND (*1*F-NOT (SETQ *2*TEMP6 (*1*CAR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CDR *3*OP)))))))) (SETQ *2*TEMP3 (*1*F-NOT (SETQ *2*TEMP2 (*1*CAR *2*TEMP4))))) (*1*F-NAND (*1*F-NOT (SETQ *2*TEMP1 (*1*CAR *2*TEMP5))) *2*TEMP3) (*1*F-NAND3 *2*TEMP6 *2*TEMP2 (*1*F-NOT (*1*CAR *3*OP))) (*1*F-NAND3 *2*TEMP6 *2*TEMP1 *2*TEMP2))))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (UNARY-OP-CODE-P (OP0 OP1 OP2 OP3) (Z) ((G0 (OP0-) B-NOT (OP0)) (G1 (OP1-) B-NOT (OP1)) (G2 (OP2-) B-NOT (OP2)) (G3 (OP3-) B-NOT (OP3)) (G4 (S0) B-NAND (OP3- OP1-)) (G5 (S1) B-NAND (OP2- OP1-)) (G6 (S2) B-NAND3 (OP3 OP1 OP0-)) (G7 (S3) B-NAND3 (OP3 OP2 OP1)) (G8 (Z) B-NAND4 (S0 S1 S2 S3))) NIL)))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE UNARY-OP-CODE-P) *3*NETLIST) (*1*UNARY-OP-CODE-P*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE UNARY-OP-CODE-P) *3*NETLIST))) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*B-NAND4& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*UNARY-OP-CODE-P$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*UNARY-OP-CODE-P*) (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NAND$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-NAND4$NETLIST))))))) (PUT1-LST (QUOTE *1*F$DECODE-REG-MODE) (QUOTE (SEXPR (LAMBDA (*3*M) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*F-NOR (SETQ *2*TEMP2 (*1*CAR *3*M)) (SETQ *2*TEMP1 (*1*CAR (*1*CDR *3*M)))) (CONS (*1*F-NOR *2*TEMP2 (*1*F-NOT *2*TEMP1)) (CONS (*1*ID *2*TEMP1) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DECODE-REG-MODE (M0 M1) (DIRECT PRE-DEC SIDE-EFFECT) ((G0 (DIRECT) B-NOR (M0 M1)) (G1 (M1-) B-NOT (M1)) (G2 (PRE-DEC) B-NOR (M0 M1-)) (G3 (SIDE-EFFECT) ID (M1))) NIL)))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DECODE-REG-MODE) *3*NETLIST) (*1*DECODE-REG-MODE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DECODE-REG-MODE) *3*NETLIST))) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*ID& *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*DECODE-REG-MODE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DECODE-REG-MODE*) (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NOR$NETLIST)) (*1*ID$NETLIST))))))) (PUT1-LST (QUOTE *1*F$SELECT-OP-CODE) (QUOTE (SEXPR (LAMBDA (*3*SELECT *3*DEC *3*OP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*F-NAND *3*SELECT (*1*F-NOT (*1*CAR *3*OP))) (CONS (*1*F-AND *3*SELECT (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*OP)))) (CONS (*1*F-IF *3*SELECT (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) *3*DEC) (CONS (*1*F-AND *3*SELECT (*1*CAR (*1*CDR *2*TEMP1))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (SELECT-OP-CODE (SELECT DEC OP0 OP1 OP2 OP3) (Z0 Z1 Z2 Z3) ((I0 (OP0-) B-NOT (OP0)) (G0 (Z0) B-NAND (SELECT OP0-)) (G1 (Z1) B-AND (SELECT OP1)) (G2 (Z2) B-IF (SELECT OP2 DEC)) (G3 (Z3) B-AND (SELECT OP3))) NIL)))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE SELECT-OP-CODE) *3*NETLIST) (*1*SELECT-OP-CODE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE SELECT-OP-CODE) *3*NETLIST))) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-IF& *2*TEMP1) (*1*B-AND& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*SELECT-OP-CODE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*SELECT-OP-CODE*) (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NAND$NETLIST)) (*1*B-IF$NETLIST)) (*1*B-AND$NETLIST))))))) (PUT1-LST (QUOTE *1*V-IF-F-4*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (V-IF-F-4 (C A0 A1 A2 A3) (Z0 Z1 Z2 Z3) ((CB (C-) B-NOT (C)) (G0 (Z0) B-AND (C- A0)) (G1 (Z1) B-AND (C- A1)) (G2 (Z2) B-AND (C- A2)) (G3 (Z3) B-AND (C- A3))) NIL)))))) (PUT1-LST (QUOTE *1*V-IF-F-4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE V-IF-F-4) *3*NETLIST) (*1*V-IF-F-4*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE V-IF-F-4) *3*NETLIST))) (*1*B-AND& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*V-IF-F-4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*V-IF-F-4*) (*1*UNION (*1*B-NOT$NETLIST) (*1*B-AND$NETLIST))))))) (PUT1-LST (QUOTE *1*F$V-IF-F-4) (QUOTE (SEXPR (LAMBDA (*3*C *3*A) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (*1*F-AND (SETQ *2*TEMP3 (*1*F-NOT *3*C)) (*1*CAR *3*A)) (CONS (*1*F-AND *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*A)))) (CONS (*1*F-AND *2*TEMP3 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2)))) (CONS (*1*F-AND *2*TEMP3 (*1*CAR (*1*CDR *2*TEMP1))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*FANOUT-4*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (FANOUT-4 (A) (Z0 Z1 Z2 Z3) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA))) NIL)))))) (PUT1-LST (QUOTE *1*FANOUT-4&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE FANOUT-4) *3*NETLIST) (*1*FANOUT-4*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-BUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE FANOUT-4) *3*NETLIST))) (*1*ID& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*FANOUT-4$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*FANOUT-4*) (*1*UNION (*1*B-BUF$NETLIST) (*1*ID$NETLIST))))))) (PUT1-LST (QUOTE *1*FANOUT-5*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (FANOUT-5 (A) (Z0 Z1 Z2 Z3 Z4) ((AA (AA) B-BUF (A)) (G0 (Z0) ID (AA)) (G1 (Z1) ID (AA)) (G2 (Z2) ID (AA)) (G3 (Z3) ID (AA)) (G4 (Z4) ID (AA))) NIL)))))) (PUT1-LST (QUOTE *1*FANOUT-5&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE FANOUT-5) *3*NETLIST) (*1*FANOUT-5*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-BUF& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE FANOUT-5) *3*NETLIST))) (*1*ID& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*FANOUT-5$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*FANOUT-5*) (*1*UNION (*1*B-BUF$NETLIST) (*1*ID$NETLIST))))))) (PUT1-LST (QUOTE *1*FANOUT-32*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (FANOUT-32 (A) (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) ((GA (AA) B-BUF-PWR (A)) (G0 (S0) ID (AA)) (G1 (S1) ID (AA)) (G2 (S2) ID (AA)) (G3 (S3) ID (AA)) (G4 (S4) ID (AA)) (G5 (S5) ID (AA)) (G6 (S6) ID (AA)) (G7 (S7) ID (AA)) (G8 (S8) ID (AA)) (G9 (S9) ID (AA)) (G10 (S10) ID (AA)) (G11 (S11) ID (AA)) (G12 (S12) ID (AA)) (G13 (S13) ID (AA)) (G14 (S14) ID (AA)) (G15 (S15) ID (AA)) (G16 (S16) ID (AA)) (G17 (S17) ID (AA)) (G18 (S18) ID (AA)) (G19 (S19) ID (AA)) (G20 (S20) ID (AA)) (G21 (S21) ID (AA)) (G22 (S22) ID (AA)) (G23 (S23) ID (AA)) (G24 (S24) ID (AA)) (G25 (S25) ID (AA)) (G26 (S26) ID (AA)) (G27 (S27) ID (AA)) (G28 (S28) ID (AA)) (G29 (S29) ID (AA)) (G30 (S30) ID (AA)) (G31 (S31) ID (AA))) NIL)))))) (PUT1-LST (QUOTE *1*FANOUT-32&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE FANOUT-32) *3*NETLIST) (*1*FANOUT-32*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-BUF-PWR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE FANOUT-32) *3*NETLIST))) (*1*ID& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*FANOUT-32$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*FANOUT-32*) (*1*UNION (*1*B-BUF-PWR$NETLIST) (*1*ID$NETLIST))))))) (PUT1-LST (QUOTE *1*F$DECODE-5) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X))) (CONS (*1*F-NOR (SETQ *2*TEMP25 (*1*F-NAND (SETQ *2*TEMP24 (*1*F-NOT (*1*CAR *3*S))) (SETQ *2*TEMP23 (*1*F-NOT (*1*CAR (SETQ *2*TEMP22 (*1*CDR *3*S))))))) (SETQ *2*TEMP21 (*1*F-NAND3 (SETQ *2*TEMP20 (*1*F-NOT (*1*CAR (SETQ *2*TEMP19 (*1*CDR *2*TEMP22))))) (SETQ *2*TEMP18 (*1*F-NOT (*1*CAR (SETQ *2*TEMP17 (*1*CDR *2*TEMP19))))) (SETQ *2*TEMP16 (*1*F-NOT (*1*CAR (*1*CDR *2*TEMP17))))))) (CONS (*1*F-NOR (SETQ *2*TEMP15 (*1*F-NAND (SETQ *2*TEMP14 (*1*F-NOT *2*TEMP24)) *2*TEMP23)) *2*TEMP21) (CONS (*1*F-NOR (SETQ *2*TEMP13 (*1*F-NAND *2*TEMP24 (SETQ *2*TEMP12 (*1*F-NOT *2*TEMP23)))) *2*TEMP21) (CONS (*1*F-NOR (SETQ *2*TEMP11 (*1*F-NAND *2*TEMP14 *2*TEMP12)) *2*TEMP21) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP10 (*1*F-NAND3 (SETQ *2*TEMP9 (*1*F-NOT *2*TEMP20)) *2*TEMP18 *2*TEMP16))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP10) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP10) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP10) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP8 (*1*F-NAND3 *2*TEMP20 (SETQ *2*TEMP7 (*1*F-NOT *2*TEMP18)) *2*TEMP16))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP8) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP8) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP8) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP6 (*1*F-NAND3 *2*TEMP9 *2*TEMP7 *2*TEMP16))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP6) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP6) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP6) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP5 (*1*F-NAND3 *2*TEMP20 *2*TEMP18 (SETQ *2*TEMP4 (*1*F-NOT *2*TEMP16))))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP5) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP5) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP5) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP3 (*1*F-NAND3 *2*TEMP9 *2*TEMP18 *2*TEMP4))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP3) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP3) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP3) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP2 (*1*F-NAND3 *2*TEMP20 *2*TEMP7 *2*TEMP4))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP2) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP2) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP2) (CONS (*1*F-NOR *2*TEMP25 (SETQ *2*TEMP1 (*1*F-NAND3 *2*TEMP9 *2*TEMP7 *2*TEMP4))) (CONS (*1*F-NOR *2*TEMP15 *2*TEMP1) (CONS (*1*F-NOR *2*TEMP13 *2*TEMP1) (CONS (*1*F-NOR *2*TEMP11 *2*TEMP1) (QUOTE NIL)))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*DECODE-5) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X))) (CONS (*1*B-NOR (SETQ *2*TEMP25 (*1*B-NAND (SETQ *2*TEMP24 (*1*B-NOT (*1*CAR *3*S))) (SETQ *2*TEMP23 (*1*B-NOT (*1*CAR (SETQ *2*TEMP22 (*1*CDR *3*S))))))) (SETQ *2*TEMP21 (*1*B-NAND3 (SETQ *2*TEMP20 (*1*B-NOT (*1*CAR (SETQ *2*TEMP19 (*1*CDR *2*TEMP22))))) (SETQ *2*TEMP18 (*1*B-NOT (*1*CAR (SETQ *2*TEMP17 (*1*CDR *2*TEMP19))))) (SETQ *2*TEMP16 (*1*B-NOT (*1*CAR (*1*CDR *2*TEMP17))))))) (CONS (*1*B-NOR (SETQ *2*TEMP15 (*1*B-NAND (SETQ *2*TEMP14 (*1*B-NOT *2*TEMP24)) *2*TEMP23)) *2*TEMP21) (CONS (*1*B-NOR (SETQ *2*TEMP13 (*1*B-NAND *2*TEMP24 (SETQ *2*TEMP12 (*1*B-NOT *2*TEMP23)))) *2*TEMP21) (CONS (*1*B-NOR (SETQ *2*TEMP11 (*1*B-NAND *2*TEMP14 *2*TEMP12)) *2*TEMP21) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP10 (*1*B-NAND3 (SETQ *2*TEMP9 (*1*B-NOT *2*TEMP20)) *2*TEMP18 *2*TEMP16))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP10) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP10) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP10) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP8 (*1*B-NAND3 *2*TEMP20 (SETQ *2*TEMP7 (*1*B-NOT *2*TEMP18)) *2*TEMP16))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP8) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP8) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP8) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP6 (*1*B-NAND3 *2*TEMP9 *2*TEMP7 *2*TEMP16))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP6) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP6) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP6) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP5 (*1*B-NAND3 *2*TEMP20 *2*TEMP18 (SETQ *2*TEMP4 (*1*B-NOT *2*TEMP16))))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP5) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP5) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP5) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP3 (*1*B-NAND3 *2*TEMP9 *2*TEMP18 *2*TEMP4))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP3) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP3) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP3) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP2 (*1*B-NAND3 *2*TEMP20 *2*TEMP7 *2*TEMP4))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP2) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP2) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP2) (CONS (*1*B-NOR *2*TEMP25 (SETQ *2*TEMP1 (*1*B-NAND3 *2*TEMP9 *2*TEMP7 *2*TEMP4))) (CONS (*1*B-NOR *2*TEMP15 *2*TEMP1) (CONS (*1*B-NOR *2*TEMP13 *2*TEMP1) (CONS (*1*B-NOR *2*TEMP11 *2*TEMP1) (QUOTE NIL)))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*DECODE-5*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (DECODE-5 (S0 S1 S2 S3 S4) (X00 X10 X20 X30 X01 X11 X21 X31 X02 X12 X22 X32 X03 X13 X23 X33 X04 X14 X24 X34 X05 X15 X25 X35 X06 X16 X26 X36 X07 X17 X27 X37) ((GS0- (S0-) B-NOT (S0)) (GS1- (S1-) B-NOT (S1)) (GS2- (S2-) B-NOT (S2)) (GS3- (S3-) B-NOT (S3)) (GS4- (S4-) B-NOT (S4)) (GS0 (BS0) B-NOT (S0-)) (GS1 (BS1) B-NOT (S1-)) (GS2 (BS2) B-NOT (S2-)) (GS3 (BS3) B-NOT (S3-)) (GS4 (BS4) B-NOT (S4-)) (GL0 (L0) B-NAND (S0- S1-)) (GL1 (L1) B-NAND (BS0 S1-)) (GL2 (L2) B-NAND (S0- BS1)) (GL3 (L3) B-NAND (BS0 BS1)) (GH0 (H0) B-NAND3 (S2- S3- S4-)) (GH1 (H1) B-NAND3 (BS2 S3- S4-)) (GH2 (H2) B-NAND3 (S2- BS3 S4-)) (GH3 (H3) B-NAND3 (BS2 BS3 S4-)) (GH4 (H4) B-NAND3 (S2- S3- BS4)) (GH5 (H5) B-NAND3 (BS2 S3- BS4)) (GH6 (H6) B-NAND3 (S2- BS3 BS4)) (GH7 (H7) B-NAND3 (BS2 BS3 BS4)) (GX00 (X00) B-NOR (L0 H0)) (GX10 (X10) B-NOR (L1 H0)) (GX20 (X20) B-NOR (L2 H0)) (GX30 (X30) B-NOR (L3 H0)) (GX01 (X01) B-NOR (L0 H1)) (GX11 (X11) B-NOR (L1 H1)) (GX21 (X21) B-NOR (L2 H1)) (GX31 (X31) B-NOR (L3 H1)) (GX02 (X02) B-NOR (L0 H2)) (GX12 (X12) B-NOR (L1 H2)) (GX22 (X22) B-NOR (L2 H2)) (GX32 (X32) B-NOR (L3 H2)) (GX03 (X03) B-NOR (L0 H3)) (GX13 (X13) B-NOR (L1 H3)) (GX23 (X23) B-NOR (L2 H3)) (GX33 (X33) B-NOR (L3 H3)) (GX04 (X04) B-NOR (L0 H4)) (GX14 (X14) B-NOR (L1 H4)) (GX24 (X24) B-NOR (L2 H4)) (GX34 (X34) B-NOR (L3 H4)) (GX05 (X05) B-NOR (L0 H5)) (GX15 (X15) B-NOR (L1 H5)) (GX25 (X25) B-NOR (L2 H5)) (GX35 (X35) B-NOR (L3 H5)) (GX06 (X06) B-NOR (L0 H6)) (GX16 (X16) B-NOR (L1 H6)) (GX26 (X26) B-NOR (L2 H6)) (GX36 (X36) B-NOR (L3 H6)) (GX07 (X07) B-NOR (L0 H7)) (GX17 (X17) B-NOR (L1 H7)) (GX27 (X27) B-NOR (L2 H7)) (GX37 (X37) B-NOR (L3 H7))) NIL)))))) (PUT1-LST (QUOTE *1*DECODE-5&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE DECODE-5) *3*NETLIST) (*1*DECODE-5*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE DECODE-5) *3*NETLIST))) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*B-NOR& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*DECODE-5$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*DECODE-5*) (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-NAND$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-NOR$NETLIST))))))) (PUT1-LST (QUOTE *1*ENCODE-32) (QUOTE (SEXPR (LAMBDA (*3*S0 *3*S1 *3*S2 *3*S3 *3*S4 *3*S5 *3*S6 *3*S7 *3*S8 *3*S9 *3*S10 *3*S11 *3*S12 *3*S13 *3*S14 *3*S15 *3*S16 *3*S17 *3*S18 *3*S19 *3*S20 *3*S21 *3*S22 *3*S23 *3*S24 *3*S25 *3*S26 *3*S27 *3*S28 *3*S29 *3*S30 *3*S31) (PROGN *3*S0 *3*S26 *3*S27 *3*S31 (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*B-NAND4 (*1*B-NOR4 *3*S1 *3*S3 *3*S5 *3*S7) (*1*B-NOR4 *3*S9 *3*S11 *3*S13 *3*S15) (*1*B-NOR4 *3*S17 *3*S19 *3*S21 *3*S23) (*1*B-NOR *3*S25 *3*S29)) (CONS (*1*B-NAND4 (*1*B-NOR4 *3*S2 *3*S3 *3*S6 *3*S7) (*1*B-NOR4 *3*S10 *3*S11 *3*S14 *3*S15) (*1*B-NOR4 *3*S18 *3*S19 *3*S22 *3*S23) (*1*B-NOT *3*S30)) (CONS (*1*B-NAND4 (*1*B-NOR4 *3*S4 *3*S5 *3*S6 *3*S7) (SETQ *2*TEMP4 (*1*B-NOR4 *3*S12 *3*S13 *3*S14 *3*S15)) (SETQ *2*TEMP3 (*1*B-NOR4 *3*S20 *3*S21 *3*S22 *3*S23)) (SETQ *2*TEMP2 (*1*B-NOR3 *3*S28 *3*S29 *3*S30))) (CONS (*1*B-NAND4 (*1*B-NOR4 *3*S8 *3*S9 *3*S10 *3*S11) *2*TEMP4 (SETQ *2*TEMP1 (*1*B-NOR *3*S24 *3*S25)) *2*TEMP2) (CONS (*1*B-NAND4 (*1*B-NOR4 *3*S16 *3*S17 *3*S18 *3*S19) *2*TEMP3 *2*TEMP1 *2*TEMP2) (QUOTE NIL)))))))))))) (PUT1-LST (QUOTE *1*F$ENCODE-32) (QUOTE (SEXPR (LAMBDA (*3*S0 *3*S1 *3*S2 *3*S3 *3*S4 *3*S5 *3*S6 *3*S7 *3*S8 *3*S9 *3*S10 *3*S11 *3*S12 *3*S13 *3*S14 *3*S15 *3*S16 *3*S17 *3*S18 *3*S19 *3*S20 *3*S21 *3*S22 *3*S23 *3*S24 *3*S25 *3*S26 *3*S27 *3*S28 *3*S29 *3*S30 *3*S31) (PROGN *3*S0 *3*S26 *3*S27 *3*S31 (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*F-NAND4 (*1*F-NOR4 *3*S1 *3*S3 *3*S5 *3*S7) (*1*F-NOR4 *3*S9 *3*S11 *3*S13 *3*S15) (*1*F-NOR4 *3*S17 *3*S19 *3*S21 *3*S23) (*1*F-NOR *3*S25 *3*S29)) (CONS (*1*F-NAND4 (*1*F-NOR4 *3*S2 *3*S3 *3*S6 *3*S7) (*1*F-NOR4 *3*S10 *3*S11 *3*S14 *3*S15) (*1*F-NOR4 *3*S18 *3*S19 *3*S22 *3*S23) (*1*F-NOT *3*S30)) (CONS (*1*F-NAND4 (*1*F-NOR4 *3*S4 *3*S5 *3*S6 *3*S7) (SETQ *2*TEMP4 (*1*F-NOR4 *3*S12 *3*S13 *3*S14 *3*S15)) (SETQ *2*TEMP3 (*1*F-NOR4 *3*S20 *3*S21 *3*S22 *3*S23)) (SETQ *2*TEMP2 (*1*F-NOR3 *3*S28 *3*S29 *3*S30))) (CONS (*1*F-NAND4 (*1*F-NOR4 *3*S8 *3*S9 *3*S10 *3*S11) *2*TEMP4 (SETQ *2*TEMP1 (*1*F-NOR *3*S24 *3*S25)) *2*TEMP2) (CONS (*1*F-NAND4 (*1*F-NOR4 *3*S16 *3*S17 *3*S18 *3*S19) *2*TEMP3 *2*TEMP1 *2*TEMP2) (QUOTE NIL)))))))))))) (PUT1-LST (QUOTE *1*ENCODE-32*) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (ENCODE-32 (S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29 S30 S31) (W-4 W-9 W-14 W-19 W-24) ((G-23 (W-23) B-NOR3 (S28 S29 S30)) (G-22 (W-22) B-NOR (S24 S25)) (G-21 (W-21) B-NOR4 (S20 S21 S22 S23)) (G-20 (W-20) B-NOR4 (S16 S17 S18 S19)) (G-24 (W-24) B-NAND4 (W-20 W-21 W-22 W-23)) (G-16 (W-16) B-NOR4 (S12 S13 S14 S15)) (G-15 (W-15) B-NOR4 (S8 S9 S10 S11)) (G-19 (W-19) B-NAND4 (W-15 W-16 W-22 W-23)) (G-10 (W-10) B-NOR4 (S4 S5 S6 S7)) (G-14 (W-14) B-NAND4 (W-10 W-16 W-21 W-23)) (G-8 (W-8) B-NOT (S30)) (G-7 (W-7) B-NOR4 (S18 S19 S22 S23)) (G-6 (W-6) B-NOR4 (S10 S11 S14 S15)) (G-5 (W-5) B-NOR4 (S2 S3 S6 S7)) (G-9 (W-9) B-NAND4 (W-5 W-6 W-7 W-8)) (G-3 (W-3) B-NOR (S25 S29)) (G-2 (W-2) B-NOR4 (S17 S19 S21 S23)) (G-1 (W-1) B-NOR4 (S9 S11 S13 S15)) (G-0 (W-0) B-NOR4 (S1 S3 S5 S7)) (G-4 (W-4) B-NAND4 (W-0 W-1 W-2 W-3))) NIL)))))) (PUT1-LST (QUOTE *1*ENCODE-32&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE ENCODE-32) *3*NETLIST) (*1*ENCODE-32*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOR3& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE ENCODE-32) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*AND (*1*B-NOR4& *2*TEMP1) (*1*B-NAND4& *2*TEMP1))))))))))) (PUT1-LST (QUOTE *1*ENCODE-32$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*ENCODE-32*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-NOR3$NETLIST) (*1*B-NOT$NETLIST)) (*1*B-NOR$NETLIST)) (*1*B-NOR4$NETLIST)) (*1*B-NAND4$NETLIST))))))) (PUT1-LST (QUOTE *1*SET-SOME-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (*1*OR (*1*Z-SET *3*SET-FLAGS) (*1*OR (*1*N-SET *3*SET-FLAGS) (*1*OR (*1*V-SET *3*SET-FLAGS) (*1*C-SET *3*SET-FLAGS)))))))) (PUT1-LST (QUOTE *1*FLAGS-HYPS) (QUOTE (SEXPR (LAMBDA (*3*FLAGS) (*1*AND (COND ((EQUAL (*1*LENGTH *3*FLAGS) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*BVP *3*FLAGS)))))) (PUT1-LST (QUOTE *1*F$SET-SOME-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*SET-FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*F-OR4 (*1*CAR *3*SET-FLAGS) (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*SET-FLAGS))) (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) (*1*CAR (*1*CDR *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*F$ALL-T-REGS-ADDRESS) (QUOTE (SEXPR (LAMBDA (*3*REGS-ADDRESS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*F-AND4 (*1*CAR *3*REGS-ADDRESS) (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*REGS-ADDRESS))) (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) (*1*CAR (*1*CDR *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CV-HYPS) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (*1*AND (*1*BOOLP *3*RW-) (*1*AND (COND ((EQUAL (*1*LENGTH *3*REGS-ADDRESS) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP *3*REGS-ADDRESS) (*1*AND (COND ((EQUAL (*1*LENGTH *3*I-REG) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP *3*I-REG) (*1*AND (*1*FLAGS-HYPS *3*FLAGS) (*1*AND (COND ((EQUAL (*1*LENGTH *3*PC-REG) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*BVP *3*PC-REG)))))))))))) (PUT1-LST (QUOTE *1*V_FETCH0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_FETCH0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_FETCH1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_FETCH1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_FETCH2) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_FETCH2) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_FETCH3) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_FETCH3) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_DECODE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_DECODE) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_REGA) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_REGA) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_REGB) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_REGB) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_UPDATE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_UPDATE) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READA0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READA0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READA1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READA1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READA2) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READA2) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READA3) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READA3) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READB0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READB0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READB1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READB1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READB2) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READB2) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_READB3) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*N_READB3) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V_WRITE0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_WRITE0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_WRITE1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_WRITE1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_WRITE2) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_WRITE2) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_WRITE3) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_WRITE3) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_SEFA0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_SEFA0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_SEFA1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_SEFA1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_SEFB0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_SEFB0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_SEFB1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_SEFB1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_HOLD0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_HOLD0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_HOLD1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_HOLD1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_V11010) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_V11010) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_V11011) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_V11011) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_RESET0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_RESET0) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_RESET1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_RESET1) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_RESET2) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_RESET2) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V_V11111) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*N_V11111) (QUOTE (SEXPR (LAMBDA NIL (*1*V-TO-NAT (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE *1*TRUE))))))) (PUT1-LST (QUOTE *1*RW-) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 0) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*STROBE-) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 1) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*HDACK-) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 2) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-REGS) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 3) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-A-REG) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 4) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-B-REG) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 5) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-I-REG) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 6) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-DATA-OUT) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 7) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-ADDR-OUT) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 8) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-HOLD-) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 9) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*WE-PC-REG) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 10) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*DATA-IN-SELECT) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 11) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*DEC-ADDR-OUT) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 12) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*SELECT-IMMEDIATE) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 13) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*ALU-C) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 14) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*ALU-ZERO) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*NTH (QUOTE 15) *3*CNTL-STATE))))) (PUT1-LST (QUOTE *1*STATE) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*SUBRANGE *3*CNTL-STATE (QUOTE 16) (QUOTE 20)))))) (PUT1-LST (QUOTE *1*WE-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*SUBRANGE *3*CNTL-STATE (QUOTE 21) (QUOTE 24)))))) (PUT1-LST (QUOTE *1*REGS-ADDRESS) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*SUBRANGE *3*CNTL-STATE (QUOTE 25) (QUOTE 28)))))) (PUT1-LST (QUOTE *1*ALU-OP) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*SUBRANGE *3*CNTL-STATE (QUOTE 29) (QUOTE 32)))))) (PUT1-LST (QUOTE *1*ALU-MPG) (QUOTE (SEXPR (LAMBDA (*3*CNTL-STATE) (*1*SUBRANGE *3*CNTL-STATE (QUOTE 33) (QUOTE 39)))))) (PUT1-LST (QUOTE *1*CV_FETCH0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*REGS-ADDRESS *3*I-REG (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS *3*RW- (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (CONS (QUOTE *1*TRUE) (SETQ *2*TEMP1 (*1*ALU-INC-OP))))) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*V_FETCH0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) *2*TEMP1))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_FETCH1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_FETCH1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_FETCH2) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*I-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_FETCH2) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_FETCH3) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_FETCH3) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_DECODE) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_DECODE) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_REGA) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*A-IMMEDIATE-P *3*I-REG) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_REGA) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_REGB) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_REGB) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_UPDATE) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_UPDATE) (*1*APPEND (*1*SET-FLAGS *3*I-REG) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READA0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*PRE-DEC-P (*1*MODE-A *3*I-REG)) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READA0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READA1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (*1*AND* (*1*NOT* (*1*A-IMMEDIATE-P *3*I-REG)) (*1*OR* (SETQ *2*TEMP7 (*1*PRE-DEC-P (SETQ *2*TEMP6 (*1*MODE-A *3*I-REG)))) (*1*POST-INC-P *2*TEMP6))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*IF* *2*TEMP7 (*1*CARRY-IN-HELP (CONS (SETQ *2*TEMP5 (*1*C-FLAG *3*FLAGS)) (SETQ *2*TEMP4 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP3 (*1*ALU-DEC-OP)))))) (*1*CARRY-IN-HELP (CONS *2*TEMP5 (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP))))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READA1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND (*1*IF* *2*TEMP7 *2*TEMP3 *2*TEMP1) (*1*APPEND (*1*IF* *2*TEMP7 (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP4)) (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READA2) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READA2) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READA3) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READA3) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READB0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*PRE-DEC-P (*1*MODE-B *3*I-REG)) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READB0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READB1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (*1*OR* (SETQ *2*TEMP3 (*1*A-IMMEDIATE-P *3*I-REG)) (*1*REG-DIRECT-P (*1*MODE-A *3*I-REG))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS *2*TEMP3 (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READB1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READB2) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (*1*AND* (*1*NOT* (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS)) (*1*OR* (SETQ *2*TEMP5 (*1*PRE-DEC-P (SETQ *2*TEMP4 (*1*MODE-B *3*I-REG)))) (*1*POST-INC-P *2*TEMP4))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*IF* *2*TEMP5 (*1*CARRY-IN-HELP (CONS (SETQ *2*TEMP3 (*1*C-FLAG *3*FLAGS)) (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP2 (*1*ALU-DEC-OP))))) (*1*CARRY-IN-HELP (CONS *2*TEMP3 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READB2) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND (*1*IF* *2*TEMP5 *2*TEMP2 *2*TEMP1) (*1*APPEND (*1*IF* *2*TEMP5 (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP2))) (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP1)))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_READB3) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_READB3) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_WRITE0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*PRE-DEC-P (*1*MODE-B *3*I-REG)) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_WRITE0) (*1*APPEND (*1*SET-FLAGS *3*I-REG) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_WRITE1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (*1*OR* (SETQ *2*TEMP5 (*1*PRE-DEC-P (SETQ *2*TEMP4 (*1*MODE-B *3*I-REG)))) (*1*POST-INC-P *2*TEMP4)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*IF* *2*TEMP5 (*1*CARRY-IN-HELP (CONS (SETQ *2*TEMP3 (*1*C-FLAG *3*FLAGS)) (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP2 (*1*ALU-DEC-OP))))) (*1*CARRY-IN-HELP (CONS *2*TEMP3 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_WRITE1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND (*1*IF* *2*TEMP5 *2*TEMP2 *2*TEMP1) (*1*APPEND (*1*IF* *2*TEMP5 (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP2))) (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP1)))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_WRITE2) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_WRITE2) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_WRITE3) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_WRITE3) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_SEFA0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_SEFA0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_SEFA1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*IF* (SETQ *2*TEMP6 (*1*PRE-DEC-P (*1*MODE-A *3*I-REG))) (*1*CARRY-IN-HELP (CONS (SETQ *2*TEMP5 (*1*C-FLAG *3*FLAGS)) (SETQ *2*TEMP4 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP3 (*1*ALU-DEC-OP)))))) (*1*CARRY-IN-HELP (CONS *2*TEMP5 (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP))))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_SEFA1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-A *3*I-REG) (*1*APPEND (*1*IF* *2*TEMP6 *2*TEMP3 *2*TEMP1) (*1*APPEND (*1*IF* *2*TEMP6 (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP4)) (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_SEFB0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_SEFB0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_SEFB1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*IF* (SETQ *2*TEMP4 (*1*PRE-DEC-P (*1*MODE-B *3*I-REG))) (*1*CARRY-IN-HELP (CONS (SETQ *2*TEMP3 (*1*C-FLAG *3*FLAGS)) (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP2 (*1*ALU-DEC-OP))))) (*1*CARRY-IN-HELP (CONS *2*TEMP3 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*ALU-INC-OP)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_SEFB1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*RN-B *3*I-REG) (*1*APPEND (*1*IF* *2*TEMP4 *2*TEMP2 *2*TEMP1) (*1*APPEND (*1*IF* *2*TEMP4 (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP2))) (*1*MPG (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) *2*TEMP1)))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_HOLD0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_HOLD0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_HOLD1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_HOLD1) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_V11010) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_V11010) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_V11011) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_V11011) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_RESET0) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*I-REG *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (CONS (QUOTE *1*TRUE) (SETQ *2*TEMP1 (*1*ALU-INC-OP))))) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*V_RESET0) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) *2*TEMP1))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_RESET1) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS *3*I-REG *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (CONS (QUOTE *1*TRUE) (SETQ *2*TEMP2 (*1*ALU-INC-OP))))) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*V_RESET1) (*1*APPEND (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE))) (*1*APPEND *2*TEMP1 (*1*APPEND *2*TEMP2 (*1*APPEND (*1*MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) *2*TEMP2))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_RESET2) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*I-REG *3*PC-REG (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (CONS (QUOTE *1*TRUE) (SETQ *2*TEMP1 (*1*ALU-INC-OP))))) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*V_RESET2) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND (*1*V-INC *3*REGS-ADDRESS) (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) *2*TEMP1))) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV_V11111) (QUOTE (SEXPR (LAMBDA (*3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG) (PROGN *3*RW- *3*REGS-ADDRESS (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (*1*CARRY-IN-HELP (CONS (*1*C-FLAG *3*FLAGS) (SETQ *2*TEMP2 (CONS (QUOTE *1*FALSE) (SETQ *2*TEMP1 (*1*OP-CODE *3*I-REG)))))) (CONS (QUOTE *1*FALSE) (*1*APPEND (*1*V_V11111) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)) (*1*APPEND *3*PC-REG (*1*APPEND *2*TEMP1 (*1*APPEND (*1*MPG (CONS (QUOTE *1*FALSE) *2*TEMP2)) (QUOTE NIL)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*F$CONTROL-LET) (QUOTE (SEXPR (LAMBDA (*3*I-REG *3*FLAGS *3*REGS-ADDRESS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (SETQ *2*TEMP5 (*1*ID (*1*A-IMMEDIATE-P *3*I-REG))) (CONS (*1*F$B-STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) (CONS (*1*F$SET-SOME-FLAGS (*1*SET-FLAGS *3*I-REG)) (CONS (*1*F-OR *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*F$DECODE-REG-MODE (*1*MODE-A *3*I-REG))))) (CONS (*1*CAR (SETQ *2*TEMP3 (*1*F$DECODE-REG-MODE (*1*MODE-B *3*I-REG)))) (CONS (*1*F$UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG)) (CONS (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))) (CONS (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP3))) (CONS (*1*ID (*1*C-FLAG *3*FLAGS)) (CONS (*1*F$ALL-T-REGS-ADDRESS *3*REGS-ADDRESS) (CONS (*1*F-AND (*1*F-NOT *2*TEMP5) (*1*CAR (*1*CDR *2*TEMP2))) (CONS (*1*CAR (*1*CDR *2*TEMP1)) (QUOTE NIL)))))))))))))))))) (PUT1-LST (QUOTE *1*CONTROL-LET*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (QUOTE CONTROL-LET) (CONS (*1*APPEND (SETQ *2*TEMP3 (*1*INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP2 (*1*INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP1 (*1*INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4))))) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (CONS (CONS (QUOTE G0) (CONS (QUOTE (A-IMMEDIATE-P)) (CONS (QUOTE ID) (CONS (CONS (*1*A-IMMEDIATE-P *2*TEMP3) (QUOTE NIL)) (QUOTE NIL))))) (CONS (QUOTE (G1 (A-IMMEDIATE-P-) B-NOT (A-IMMEDIATE-P))) (CONS (CONS (QUOTE G2) (CONS (QUOTE (STORE)) (CONS (QUOTE B-STORE-RESULTP) (CONS (*1*APPEND (*1*STORE-CC *2*TEMP3) *2*TEMP2) (QUOTE NIL))))) (CONS (CONS (QUOTE G3) (CONS (QUOTE (SET-SOME-FLAGS)) (CONS (QUOTE B-OR4) (CONS (*1*SET-FLAGS *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE G4) (CONS (QUOTE (ALMOST-DIRECT-A PRE-DEC-A ALMOST-SIDE-EFFECT-A)) (CONS (QUOTE DECODE-REG-MODE) (CONS (*1*MODE-A *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE G5) (CONS (QUOTE (DIRECT-B PRE-DEC-B SIDE-EFFECT-B)) (CONS (QUOTE DECODE-REG-MODE) (CONS (*1*MODE-B *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE G6) (CONS (QUOTE (UNARY)) (CONS (QUOTE UNARY-OP-CODE-P) (CONS (*1*OP-CODE *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE G7) (CONS (QUOTE (C)) (CONS (QUOTE ID) (CONS (CONS (*1*C-FLAG *2*TEMP2) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (QUOTE G8) (CONS (QUOTE (ALL-T-REGS-ADDRESS)) (CONS (QUOTE B-AND4) (CONS *2*TEMP1 (QUOTE NIL))))) (QUOTE ((G9 (SIDE-EFFECT-A) B-AND (A-IMMEDIATE-P- ALMOST-SIDE-EFFECT-A)) (GA (DIRECT-A) B-OR (A-IMMEDIATE-P ALMOST-DIRECT-A))))))))))))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*CONTROL-LET&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CONTROL-LET) *3*NETLIST) (*1*CONTROL-LET*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-NOT& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CONTROL-LET) *3*NETLIST))) (*1*AND (*1*B-STORE-RESULTP& *2*TEMP1) (*1*AND (*1*B-OR4& *2*TEMP1) (*1*AND (*1*DECODE-REG-MODE& *2*TEMP1) (*1*AND (*1*UNARY-OP-CODE-P& *2*TEMP1) (*1*AND (*1*ID& *2*TEMP1) (*1*AND (*1*B-AND4& *2*TEMP1) (*1*AND (*1*B-AND& *2*TEMP1) (*1*B-OR& *2*TEMP1))))))))))))))) (PUT1-LST (QUOTE *1*CONTROL-LET$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CONTROL-LET*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*B-NOT$NETLIST) (*1*B-STORE-RESULTP$NETLIST)) (*1*B-OR4$NETLIST)) (*1*DECODE-REG-MODE$NETLIST)) (*1*UNARY-OP-CODE-P$NETLIST)) (*1*ID$NETLIST)) (*1*B-AND4$NETLIST)) (*1*B-AND$NETLIST)) (*1*B-OR$NETLIST))))))) (PUT1-LST (QUOTE *1*NEXT-STATE) (QUOTE (SEXPR (LAMBDA (*3*DECODED-STATE *3*STORE *3*SET-SOME-FLAGS *3*UNARY *3*DIRECT-A *3*DIRECT-B *3*SIDE-EFFECT-A *3*SIDE-EFFECT-B *3*ALL-T-REGS-ADDRESS *3*DTACK- *3*HOLD-) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X))) (CONS (*1*B-NAND (*1*B-AND4 (*1*B-NAND *3*ALL-T-REGS-ADDRESS (SETQ *2*TEMP23 (*1*NTH (QUOTE 30) *3*DECODED-STATE))) (*1*B-NOT (*1*NTH (QUOTE 25) *3*DECODED-STATE)) (*1*B-NOT (*1*NTH (QUOTE 23) *3*DECODED-STATE)) (*1*B-NAND (SETQ *2*TEMP22 (*1*B-NOT *3*SIDE-EFFECT-B)) (SETQ *2*TEMP21 (*1*NTH (QUOTE 21) *3*DECODED-STATE)))) (*1*B-AND3 (*1*B-NAND (SETQ *2*TEMP20 (*1*B-NOT *3*DTACK-)) (SETQ *2*TEMP19 (*1*NTH (QUOTE 19) *3*DECODED-STATE))) (*1*B-NAND (*1*B-NOT (SETQ *2*TEMP18 (*1*B-AND *3*SIDE-EFFECT-B *3*UNARY))) (SETQ *2*TEMP17 (*1*NTH (QUOTE 7) *3*DECODED-STATE))) (*1*B-NAND4 *2*TEMP22 (SETQ *2*TEMP16 (*1*B-NOT *3*SIDE-EFFECT-A)) (SETQ *2*TEMP15 (*1*B-NOT (SETQ *2*TEMP14 (*1*B-OR *3*STORE *3*SET-SOME-FLAGS)))) (SETQ *2*TEMP13 (*1*NTH (QUOTE 4) *3*DECODED-STATE))))) (CONS (*1*NTH (QUOTE 0) *3*DECODED-STATE) (CONS (*1*B-AND *3*HOLD- (SETQ *2*TEMP12 (*1*NTH (QUOTE 1) *3*DECODED-STATE))) (CONS (*1*B-NAND (*1*B-NAND *3*DTACK- (SETQ *2*TEMP11 (*1*NTH (QUOTE 3) *3*DECODED-STATE))) (*1*B-NOT (*1*NTH (QUOTE 2) *3*DECODED-STATE))) (CONS (*1*B-AND *2*TEMP20 *2*TEMP11) (CONS (*1*B-AND4 (SETQ *2*TEMP10 (*1*B-OR *3*DIRECT-B *3*UNARY)) *3*DIRECT-A *2*TEMP14 *2*TEMP13) (CONS (*1*B-AND3 (SETQ *2*TEMP9 (*1*B-NOT *3*UNARY)) *3*DIRECT-B (SETQ *2*TEMP8 (*1*NTH (QUOTE 5) *3*DECODED-STATE))) (CONS (*1*B-NAND6 (*1*B-NAND3 (SETQ *2*TEMP7 (*1*B-NOT *3*STORE)) *2*TEMP20 (SETQ *2*TEMP6 (*1*NTH (QUOTE 15) *3*DECODED-STATE))) (*1*B-NAND5 *2*TEMP7 *3*UNARY (SETQ *2*TEMP5 (*1*B-NOT *3*DIRECT-B)) *2*TEMP20 (SETQ *2*TEMP4 (*1*NTH (QUOTE 11) *3*DECODED-STATE))) (*1*B-NAND3 *3*DIRECT-B *2*TEMP20 *2*TEMP4) (*1*B-NOT (*1*NTH (QUOTE 6) *3*DECODED-STATE)) (*1*B-NAND3 *2*TEMP7 *2*TEMP5 *2*TEMP8) (*1*B-NAND3 *3*UNARY *3*DIRECT-B *2*TEMP8)) (CONS (*1*B-AND3 (*1*B-NOT *3*DIRECT-A) *2*TEMP14 *2*TEMP13) (CONS (*1*NTH (QUOTE 8) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 9) *3*DECODED-STATE) (CONS (*1*B-NAND (*1*B-NAND *3*DTACK- *2*TEMP4) (*1*B-NOT (*1*NTH (QUOTE 10) *3*DECODED-STATE))) (CONS (*1*B-NAND (*1*B-NAND4 *2*TEMP9 *2*TEMP5 *2*TEMP20 *2*TEMP4) (*1*B-NAND4 (*1*B-NOT *2*TEMP10) *3*DIRECT-A *2*TEMP14 *2*TEMP13)) (CONS (*1*NTH (QUOTE 12) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 13) *3*DECODED-STATE) (CONS (*1*B-NAND (*1*B-NAND *3*DTACK- *2*TEMP6) (*1*B-NOT (*1*NTH (QUOTE 14) *3*DECODED-STATE))) (CONS (*1*B-NAND3 (*1*B-NAND3 *3*STORE *2*TEMP20 *2*TEMP6) (*1*B-NAND5 *3*STORE *3*UNARY *2*TEMP5 *2*TEMP20 *2*TEMP4) (*1*B-NAND3 *3*STORE *2*TEMP5 *2*TEMP8)) (CONS (*1*NTH (QUOTE 16) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 17) *3*DECODED-STATE) (CONS (*1*B-NAND (*1*B-NAND *3*DTACK- *2*TEMP19) (*1*B-NOT (*1*NTH (QUOTE 18) *3*DECODED-STATE))) (CONS (*1*B-AND3 *3*SIDE-EFFECT-A *2*TEMP15 *2*TEMP13) (CONS (*1*NTH (QUOTE 20) *3*DECODED-STATE) (CONS (*1*B-NAND (*1*B-NAND *3*SIDE-EFFECT-B *2*TEMP21) (*1*B-NAND4 *3*SIDE-EFFECT-B *2*TEMP16 *2*TEMP15 *2*TEMP13)) (CONS (*1*B-NAND (*1*B-NOT (*1*NTH (QUOTE 22) *3*DECODED-STATE)) (*1*B-NAND *2*TEMP18 *2*TEMP17)) (CONS (*1*B-NAND (*1*B-NAND (SETQ *2*TEMP3 (*1*B-NOT *3*HOLD-)) (SETQ *2*TEMP2 (*1*NTH (QUOTE 24) *3*DECODED-STATE))) (*1*B-NAND *2*TEMP3 *2*TEMP12)) (CONS (*1*B-AND *3*HOLD- *2*TEMP2) (CONS (SETQ *2*TEMP1 (*1*VSS)) (CONS *2*TEMP1 (CONS (*1*B-NAND3 (*1*B-NOT (*1*NTH (QUOTE 31) *3*DECODED-STATE)) (*1*B-NOT (*1*NTH (QUOTE 27) *3*DECODED-STATE)) (*1*B-NOT (*1*NTH (QUOTE 26) *3*DECODED-STATE))) (CONS (*1*NTH (QUOTE 28) *3*DECODED-STATE) (CONS (*1*B-NAND (*1*B-NAND (*1*B-NOT *3*ALL-T-REGS-ADDRESS) *2*TEMP23) (*1*B-NOT (*1*NTH (QUOTE 29) *3*DECODED-STATE))) (CONS *2*TEMP1 (QUOTE NIL)))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*F$NEXT-STATE) (QUOTE (SEXPR (LAMBDA (*3*DECODED-STATE *3*STORE *3*SET-SOME-FLAGS *3*UNARY *3*DIRECT-A *3*DIRECT-B *3*SIDE-EFFECT-A *3*SIDE-EFFECT-B *3*ALL-T-REGS-ADDRESS *3*DTACK- *3*HOLD-) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X))) (CONS (*1*F-NAND (*1*F-AND4 (*1*F-NAND *3*ALL-T-REGS-ADDRESS (SETQ *2*TEMP23 (*1*NTH (QUOTE 30) *3*DECODED-STATE))) (*1*F-NOT (*1*NTH (QUOTE 25) *3*DECODED-STATE)) (*1*F-NOT (*1*NTH (QUOTE 23) *3*DECODED-STATE)) (*1*F-NAND (SETQ *2*TEMP22 (*1*F-NOT *3*SIDE-EFFECT-B)) (SETQ *2*TEMP21 (*1*NTH (QUOTE 21) *3*DECODED-STATE)))) (*1*F-AND3 (*1*F-NAND (SETQ *2*TEMP20 (*1*F-NOT *3*DTACK-)) (SETQ *2*TEMP19 (*1*NTH (QUOTE 19) *3*DECODED-STATE))) (*1*F-NAND (*1*F-NOT (SETQ *2*TEMP18 (*1*F-AND *3*SIDE-EFFECT-B *3*UNARY))) (SETQ *2*TEMP17 (*1*NTH (QUOTE 7) *3*DECODED-STATE))) (*1*F-NAND4 *2*TEMP22 (SETQ *2*TEMP16 (*1*F-NOT *3*SIDE-EFFECT-A)) (SETQ *2*TEMP15 (*1*F-NOT (SETQ *2*TEMP14 (*1*F-OR *3*STORE *3*SET-SOME-FLAGS)))) (SETQ *2*TEMP13 (*1*NTH (QUOTE 4) *3*DECODED-STATE))))) (CONS (*1*NTH (QUOTE 0) *3*DECODED-STATE) (CONS (*1*F-AND *3*HOLD- (SETQ *2*TEMP12 (*1*NTH (QUOTE 1) *3*DECODED-STATE))) (CONS (*1*F-NAND (*1*F-NAND *3*DTACK- (SETQ *2*TEMP11 (*1*NTH (QUOTE 3) *3*DECODED-STATE))) (*1*F-NOT (*1*NTH (QUOTE 2) *3*DECODED-STATE))) (CONS (*1*F-AND *2*TEMP20 *2*TEMP11) (CONS (*1*F-AND4 (SETQ *2*TEMP10 (*1*F-OR *3*DIRECT-B *3*UNARY)) *3*DIRECT-A *2*TEMP14 *2*TEMP13) (CONS (*1*F-AND3 (SETQ *2*TEMP9 (*1*F-NOT *3*UNARY)) *3*DIRECT-B (SETQ *2*TEMP8 (*1*NTH (QUOTE 5) *3*DECODED-STATE))) (CONS (*1*F-NAND6 (*1*F-NAND3 (SETQ *2*TEMP7 (*1*F-NOT *3*STORE)) *2*TEMP20 (SETQ *2*TEMP6 (*1*NTH (QUOTE 15) *3*DECODED-STATE))) (*1*F-NAND5 *2*TEMP7 *3*UNARY (SETQ *2*TEMP5 (*1*F-NOT *3*DIRECT-B)) *2*TEMP20 (SETQ *2*TEMP4 (*1*NTH (QUOTE 11) *3*DECODED-STATE))) (*1*F-NAND3 *3*DIRECT-B *2*TEMP20 *2*TEMP4) (*1*F-NOT (*1*NTH (QUOTE 6) *3*DECODED-STATE)) (*1*F-NAND3 *2*TEMP7 *2*TEMP5 *2*TEMP8) (*1*F-NAND3 *3*UNARY *3*DIRECT-B *2*TEMP8)) (CONS (*1*F-AND3 (*1*F-NOT *3*DIRECT-A) *2*TEMP14 *2*TEMP13) (CONS (*1*NTH (QUOTE 8) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 9) *3*DECODED-STATE) (CONS (*1*F-NAND (*1*F-NAND *3*DTACK- *2*TEMP4) (*1*F-NOT (*1*NTH (QUOTE 10) *3*DECODED-STATE))) (CONS (*1*F-NAND (*1*F-NAND4 *2*TEMP9 *2*TEMP5 *2*TEMP20 *2*TEMP4) (*1*F-NAND4 (*1*F-NOT *2*TEMP10) *3*DIRECT-A *2*TEMP14 *2*TEMP13)) (CONS (*1*NTH (QUOTE 12) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 13) *3*DECODED-STATE) (CONS (*1*F-NAND (*1*F-NAND *3*DTACK- *2*TEMP6) (*1*F-NOT (*1*NTH (QUOTE 14) *3*DECODED-STATE))) (CONS (*1*F-NAND3 (*1*F-NAND3 *3*STORE *2*TEMP20 *2*TEMP6) (*1*F-NAND5 *3*STORE *3*UNARY *2*TEMP5 *2*TEMP20 *2*TEMP4) (*1*F-NAND3 *3*STORE *2*TEMP5 *2*TEMP8)) (CONS (*1*NTH (QUOTE 16) *3*DECODED-STATE) (CONS (*1*NTH (QUOTE 17) *3*DECODED-STATE) (CONS (*1*F-NAND (*1*F-NAND *3*DTACK- *2*TEMP19) (*1*F-NOT (*1*NTH (QUOTE 18) *3*DECODED-STATE))) (CONS (*1*F-AND3 *3*SIDE-EFFECT-A *2*TEMP15 *2*TEMP13) (CONS (*1*NTH (QUOTE 20) *3*DECODED-STATE) (CONS (*1*F-NAND (*1*F-NAND *3*SIDE-EFFECT-B *2*TEMP21) (*1*F-NAND4 *3*SIDE-EFFECT-B *2*TEMP16 *2*TEMP15 *2*TEMP13)) (CONS (*1*F-NAND (*1*F-NOT (*1*NTH (QUOTE 22) *3*DECODED-STATE)) (*1*F-NAND *2*TEMP18 *2*TEMP17)) (CONS (*1*F-NAND (*1*F-NAND (SETQ *2*TEMP3 (*1*F-NOT *3*HOLD-)) (SETQ *2*TEMP2 (*1*NTH (QUOTE 24) *3*DECODED-STATE))) (*1*F-NAND *2*TEMP3 *2*TEMP12)) (CONS (*1*F-AND *3*HOLD- *2*TEMP2) (CONS (SETQ *2*TEMP1 (*1*VSS)) (CONS *2*TEMP1 (CONS (*1*F-NAND3 (*1*F-NOT (*1*NTH (QUOTE 31) *3*DECODED-STATE)) (*1*F-NOT (*1*NTH (QUOTE 27) *3*DECODED-STATE)) (*1*F-NOT (*1*NTH (QUOTE 26) *3*DECODED-STATE))) (CONS (*1*NTH (QUOTE 28) *3*DECODED-STATE) (CONS (*1*F-NAND (*1*F-NAND (*1*F-NOT *3*ALL-T-REGS-ADDRESS) *2*TEMP23) (*1*F-NOT (*1*NTH (QUOTE 29) *3*DECODED-STATE))) (CONS *2*TEMP1 (QUOTE NIL)))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*NEXT-STATE*) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE NEXT-STATE) (CONS (*1*APPEND (*1*INDICES (QUOTE S) (QUOTE 0) (QUOTE 32)) (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (CONS (QUOTE (W-17 W-18 W-19 W-22 W-24 W-27 W-29 W-44 W-47 W-48 W-49 W-52 W-61 W-62 W-63 W-66 W-74 W-75 W-76 W-79 W-82 W-83 W-89 W-93 W-98 W-99 W-112 W-113 W-105 W-106 W-110 W-111)) (CONS (*1*APPEND (QUOTE ((R-0 (FETCH0) ID ((*1*QUOTE INDEX S 0))) (R-1 (FETCH1) ID ((*1*QUOTE INDEX S 1))) (R-2 (FETCH2) ID ((*1*QUOTE INDEX S 2))) (R-3 (FETCH3) ID ((*1*QUOTE INDEX S 3))) (R-4 (DECODE) ID ((*1*QUOTE INDEX S 4))) (R-5 (REGA) ID ((*1*QUOTE INDEX S 5))) (R-6 (REGB) ID ((*1*QUOTE INDEX S 6))) (R-7 (UPDATE) ID ((*1*QUOTE INDEX S 7))) (R-8 (READA0) ID ((*1*QUOTE INDEX S 8))) (R-9 (READA1) ID ((*1*QUOTE INDEX S 9))) (R-10 (READA2) ID ((*1*QUOTE INDEX S 10))) (R-11 (READA3) ID ((*1*QUOTE INDEX S 11))) (R-12 (READB0) ID ((*1*QUOTE INDEX S 12))) (R-13 (READB1) ID ((*1*QUOTE INDEX S 13))) (R-14 (READB2) ID ((*1*QUOTE INDEX S 14))) (R-15 (READB3) ID ((*1*QUOTE INDEX S 15))) (R-16 (WRITE0) ID ((*1*QUOTE INDEX S 16))) (R-17 (WRITE1) ID ((*1*QUOTE INDEX S 17))) (R-18 (WRITE2) ID ((*1*QUOTE INDEX S 18))) (R-19 (WRITE3) ID ((*1*QUOTE INDEX S 19))) (R-20 (SEFA0) ID ((*1*QUOTE INDEX S 20))) (R-21 (SEFA1) ID ((*1*QUOTE INDEX S 21))) (R-22 (SEFB0) ID ((*1*QUOTE INDEX S 22))) (R-23 (SEFB1) ID ((*1*QUOTE INDEX S 23))) (R-24 (HOLD0) ID ((*1*QUOTE INDEX S 24))) (R-25 (HOLD1) ID ((*1*QUOTE INDEX S 25))) (R-26 (V11010) ID ((*1*QUOTE INDEX S 26))) (R-27 (V11011) ID ((*1*QUOTE INDEX S 27))) (R-28 (RESET0) ID ((*1*QUOTE INDEX S 28))) (R-29 (RESET1) ID ((*1*QUOTE INDEX S 29))) (R-30 (RESET2) ID ((*1*QUOTE INDEX S 30))) (R-31 (V11111) ID ((*1*QUOTE INDEX S 31))))) (QUOTE ((G-111 (W-111) VSS NIL) (G-109 (W-109) B-NOT (RESET1)) (G-107 (W-107) B-NOT (ALL-T-REGS-ADDRESS)) (G-108 (W-108) B-NAND (W-107 RESET2)) (G-110 (W-110) B-NAND (W-108 W-109)) (G-106 (W-106) ID (RESET0)) (G-104 (W-104) B-NOT (V11010)) (G-103 (W-103) B-NOT (V11011)) (G-102 (W-102) B-NOT (V11111)) (G-105 (W-105) B-NAND3 (W-102 W-103 W-104)) (G-99 (W-99) B-AND (HOLD- HOLD0)) (G-96 (W-96) B-NOT (HOLD-)) (G-97 (W-97) B-NAND (W-96 FETCH1)) (G-95 (W-95) B-NAND (W-96 HOLD0)) (G-98 (W-98) B-NAND (W-95 W-97)) (G-91 (W-91) B-AND (SIDE-EFFECT-B UNARY)) (G-92 (W-92) B-NAND (W-91 UPDATE)) (G-90 (W-90) B-NOT (SEFB0)) (G-93 (W-93) B-NAND (W-90 W-92)) (G-86 (W-86) B-OR (STORE SET-SOME-FLAGS)) (G-87 (W-87) B-NOT (W-86)) (G-85 (W-85) B-NOT (SIDE-EFFECT-A)) (G-88 (W-88) B-NAND4 (SIDE-EFFECT-B W-85 W-87 DECODE)) (G-84 (W-84) B-NAND (SIDE-EFFECT-B SEFA1)) (G-89 (W-89) B-NAND (W-84 W-88)) (G-83 (W-83) ID (SEFA0)) (G-82 (W-82) B-AND3 (SIDE-EFFECT-A W-87 DECODE)) (G-78 (W-78) B-NOT (WRITE2)) (G-77 (W-77) B-NAND (DTACK- WRITE3)) (G-79 (W-79) B-NAND (W-77 W-78)) (G-76 (W-76) ID (WRITE1)) (G-75 (W-75) ID (WRITE0)) (G-72 (W-72) B-NOT (DIRECT-B)) (G-73 (W-73) B-NAND3 (STORE W-72 REGA)) (G-70 (W-70) B-NOT (DTACK-)) (G-71 (W-71) B-NAND5 (STORE UNARY W-72 W-70 READA3)) (G-68 (W-68) B-NAND3 (STORE W-70 READB3)) (G-74 (W-74) B-NAND3 (W-68 W-71 W-73)) (G-65 (W-65) B-NOT (READB2)) (G-64 (W-64) B-NAND (DTACK- READB3)) (G-66 (W-66) B-NAND (W-64 W-65)) (G-63 (W-63) ID (READB1)) (G-62 (W-62) ID (READB0)) (G-57 (W-57) B-OR (DIRECT-B UNARY)) (G-58 (W-58) B-NOT (W-57)) (G-60 (W-60) B-NAND4 (W-58 DIRECT-A W-86 DECODE)) (G-53 (W-53) B-NOT (UNARY)) (G-56 (W-56) B-NAND4 (W-53 W-72 W-70 READA3)) (G-61 (W-61) B-NAND (W-56 W-60)) (G-51 (W-51) B-NOT (READA2)) (G-50 (W-50) B-NAND (DTACK- READA3)) (G-52 (W-52) B-NAND (W-50 W-51)) (G-49 (W-49) ID (READA1)) (G-48 (W-48) ID (READA0)) (G-45 (W-45) B-NOT (DIRECT-A)) (G-47 (W-47) B-AND3 (W-45 W-86 DECODE)) (G-43 (W-43) B-NAND3 (UNARY DIRECT-B REGA)) (G-40 (W-40) B-NOT (STORE)) (G-42 (W-42) B-NAND3 (W-40 W-72 REGA)) (G-39 (W-39) B-NOT (REGB)) (G-38 (W-38) B-NAND3 (DIRECT-B W-70 READA3)) (G-36 (W-36) B-NAND5 (W-40 UNARY W-72 W-70 READA3)) (G-32 (W-32) B-NAND3 (W-40 W-70 READB3)) (G-44 (W-44) B-NAND6 (W-32 W-36 W-38 W-39 W-42 W-43)) (G-29 (W-29) B-AND3 (W-53 DIRECT-B REGA)) (G-27 (W-27) B-AND4 (W-57 DIRECT-A W-86 DECODE)) (G-24 (W-24) B-AND (W-70 FETCH3)) (G-21 (W-21) B-NOT (FETCH2)) (G-20 (W-20) B-NAND (DTACK- FETCH3)) (G-22 (W-22) B-NAND (W-20 W-21)) (G-19 (W-19) B-AND (HOLD- FETCH1)) (G-18 (W-18) ID (FETCH0)) (G-11 (W-11) B-NOT (SIDE-EFFECT-B)) (G-15 (W-15) B-NAND4 (W-11 W-85 W-87 DECODE)) (G-9 (W-9) B-NOT (W-91)) (G-10 (W-10) B-NAND (W-9 UPDATE)) (G-7 (W-7) B-NAND (W-70 WRITE3)) (G-16 (W-16) B-AND3 (W-7 W-10 W-15)) (G-4 (W-4) B-NAND (W-11 SEFA1)) (G-2 (W-2) B-NOT (SEFB1)) (G-1 (W-1) B-NOT (HOLD1)) (G-0 (W-0) B-NAND (ALL-T-REGS-ADDRESS RESET2)) (G-5 (W-5) B-AND4 (W-0 W-1 W-2 W-4)) (G-17 (W-17) B-NAND (W-5 W-16)) (G-112 (W-112) ID (W-111)) (G-113 (W-113) ID (W-111))))) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*NEXT-STATE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE NEXT-STATE) *3*NETLIST) (*1*NEXT-STATE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*VSS& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE NEXT-STATE) *3*NETLIST))) (*1*AND (*1*B-OR& *2*TEMP1) (*1*AND (*1*B-NAND5& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*AND (*1*B-NAND6& *2*TEMP1) (*1*AND (*1*B-AND& *2*TEMP1) (*1*AND (*1*B-NAND4& *2*TEMP1) (*1*AND (*1*B-AND3& *2*TEMP1) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-AND4& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*ID& *2*TEMP1)))))))))))))))))) (PUT1-LST (QUOTE *1*NEXT-STATE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*NEXT-STATE*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*VSS$NETLIST) (*1*B-OR$NETLIST)) (*1*B-NAND5$NETLIST)) (*1*B-NAND3$NETLIST)) (*1*B-NAND6$NETLIST)) (*1*B-AND$NETLIST)) (*1*B-NAND4$NETLIST)) (*1*B-AND3$NETLIST)) (*1*B-NOT$NETLIST)) (*1*B-AND4$NETLIST)) (*1*B-NAND$NETLIST)) (*1*ID$NETLIST))))))) (PUT1-LST (QUOTE *1*CV) (QUOTE (SEXPR (LAMBDA (*3*DECODED-STATE *3*RN-A *3*RN-B *3*OP-CODE *3*PC-REG *3*REGS-ADDRESS *3*SET-FLAGS *3*STORE *3*C *3*A-IMMEDIATE-P *3*RW- *3*DIRECT-A *3*SIDE-EFFECT-A *3*SIDE-EFFECT-B *3*PRE-DEC-A *3*PRE-DEC-B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X)) (*2*TEMP26 (QUOTE *1*X)) (*2*TEMP27 (QUOTE *1*X)) (*2*TEMP28 (QUOTE *1*X)) (*2*TEMP29 (QUOTE *1*X)) (*2*TEMP30 (QUOTE *1*X)) (*2*TEMP31 (QUOTE *1*X))) (CONS (*1*B-AND (*1*B-NAND (*1*B-NOT *3*RW-) (SETQ *2*TEMP31 (*1*NTH (QUOTE 0) *3*DECODED-STATE))) (*1*B-NOR3 (SETQ *2*TEMP30 (*1*NTH (QUOTE 17) *3*DECODED-STATE)) (SETQ *2*TEMP29 (*1*NTH (QUOTE 18) *3*DECODED-STATE)) (SETQ *2*TEMP28 (*1*NTH (QUOTE 19) *3*DECODED-STATE)))) (CONS (*1*B-NOR8 (SETQ *2*TEMP27 (*1*NTH (QUOTE 2) *3*DECODED-STATE)) (SETQ *2*TEMP26 (*1*NTH (QUOTE 3) *3*DECODED-STATE)) (SETQ *2*TEMP25 (*1*NTH (QUOTE 10) *3*DECODED-STATE)) (SETQ *2*TEMP24 (*1*NTH (QUOTE 11) *3*DECODED-STATE)) (SETQ *2*TEMP23 (*1*NTH (QUOTE 14) *3*DECODED-STATE)) (SETQ *2*TEMP22 (*1*NTH (QUOTE 15) *3*DECODED-STATE)) *2*TEMP29 *2*TEMP28) (CONS (*1*B-NOT (SETQ *2*TEMP21 (*1*NTH (QUOTE 24) *3*DECODED-STATE))) (CONS (*1*B-NAND5 (*1*B-NAND *3*STORE (SETQ *2*TEMP20 (*1*NTH (QUOTE 7) *3*DECODED-STATE))) (*1*B-NAND *3*SIDE-EFFECT-A (SETQ *2*TEMP19 (*1*NTH (QUOTE 9) *3*DECODED-STATE))) (*1*B-NAND3 (*1*B-NOT *3*STORE) *3*SIDE-EFFECT-B *2*TEMP23) (*1*B-NAND *3*SIDE-EFFECT-B *2*TEMP30) (*1*B-NOR5 *2*TEMP27 (SETQ *2*TEMP18 (*1*NTH (QUOTE 21) *3*DECODED-STATE)) (SETQ *2*TEMP17 (*1*NTH (QUOTE 23) *3*DECODED-STATE)) (SETQ *2*TEMP16 (*1*NTH (QUOTE 28) *3*DECODED-STATE)) (SETQ *2*TEMP15 (*1*NTH (QUOTE 30) *3*DECODED-STATE)))) (CONS (*1*B-NAND (*1*B-NAND *3*DIRECT-A (SETQ *2*TEMP14 (*1*NTH (QUOTE 13) *3*DECODED-STATE))) (*1*B-NOR6 *2*TEMP31 (SETQ *2*TEMP13 (*1*NTH (QUOTE 5) *3*DECODED-STATE)) (SETQ *2*TEMP12 (*1*NTH (QUOTE 8) *3*DECODED-STATE)) *2*TEMP24 (SETQ *2*TEMP11 (*1*NTH (QUOTE 20) *3*DECODED-STATE)) (SETQ *2*TEMP10 (*1*NTH (QUOTE 29) *3*DECODED-STATE)))) (CONS (*1*B-NAND (*1*B-NOR4 (SETQ *2*TEMP9 (*1*NTH (QUOTE 6) *3*DECODED-STATE)) *2*TEMP20 *2*TEMP25 (SETQ *2*TEMP8 (*1*NTH (QUOTE 12) *3*DECODED-STATE))) (*1*B-NOR4 *2*TEMP22 (SETQ *2*TEMP7 (*1*NTH (QUOTE 16) *3*DECODED-STATE)) (SETQ *2*TEMP6 (*1*NTH (QUOTE 22) *3*DECODED-STATE)) *2*TEMP10)) (CONS (*1*B-OR *2*TEMP26 *2*TEMP10) (CONS (*1*B-OR *2*TEMP7 *2*TEMP16) (CONS (*1*B-NAND (*1*B-NOR3 *2*TEMP31 *2*TEMP12 *2*TEMP8) (*1*B-NOR *2*TEMP7 *2*TEMP10)) (CONS (*1*B-OR3 *2*TEMP31 *2*TEMP21 *2*TEMP16) (CONS (*1*B-OR *2*TEMP21 *2*TEMP16) (CONS (*1*B-OR3 *2*TEMP26 *2*TEMP24 *2*TEMP22) (CONS (*1*B-NAND (*1*B-NAND *3*PRE-DEC-A *2*TEMP12) (*1*B-NAND *3*PRE-DEC-B (*1*B-OR *2*TEMP8 *2*TEMP7))) (CONS (*1*B-AND *3*A-IMMEDIATE-P (*1*B-OR *2*TEMP13 *2*TEMP14)) (CONS (*1*CARRY-IN-HELP (CONS *3*C (CONS (SETQ *2*TEMP5 (*1*B-OR4 *2*TEMP31 *2*TEMP16 *2*TEMP10 *2*TEMP15)) (SETQ *2*TEMP4 (*1*V-IF (*1*B-NOR4 *2*TEMP27 (SETQ *2*TEMP3 (*1*B-OR *2*TEMP19 *2*TEMP18)) (SETQ *2*TEMP2 (*1*B-OR3 *2*TEMP23 *2*TEMP30 *2*TEMP17)) *2*TEMP5) *3*OP-CODE (*1*V-IF (*1*B-NAND (*1*B-NAND *2*TEMP3 *3*PRE-DEC-A) (*1*B-NAND *2*TEMP2 *3*PRE-DEC-B)) (*1*ALU-DEC-OP) (*1*ALU-INC-OP))))))) (CONS *2*TEMP5 (*1*APPEND (*1*ENCODE-32 *2*TEMP31 (*1*NTH (QUOTE 1) *3*DECODED-STATE) *2*TEMP27 *2*TEMP26 (*1*NTH (QUOTE 4) *3*DECODED-STATE) *2*TEMP13 *2*TEMP9 *2*TEMP20 *2*TEMP12 *2*TEMP19 *2*TEMP25 *2*TEMP24 *2*TEMP8 *2*TEMP14 *2*TEMP23 *2*TEMP22 *2*TEMP7 *2*TEMP30 *2*TEMP29 *2*TEMP28 *2*TEMP11 *2*TEMP18 *2*TEMP6 *2*TEMP17 *2*TEMP21 (*1*NTH (QUOTE 25) *3*DECODED-STATE) (*1*NTH (QUOTE 26) *3*DECODED-STATE) (*1*NTH (QUOTE 27) *3*DECODED-STATE) *2*TEMP16 *2*TEMP10 *2*TEMP15 (*1*NTH (QUOTE 31) *3*DECODED-STATE)) (*1*APPEND (*1*V-IF (*1*B-NOR *2*TEMP20 *2*TEMP7) (*1*V-IF *2*TEMP16 (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*FALSE)))) *3*SET-FLAGS) (*1*APPEND (*1*V-IF (*1*B-NAND (*1*B-NOR3 *2*TEMP13 *2*TEMP12 *2*TEMP19) (*1*B-NOR3 *2*TEMP14 *2*TEMP11 *2*TEMP18)) *3*RN-A (*1*V-IF (*1*B-NAND (*1*B-NOR5 *2*TEMP9 *2*TEMP20 *2*TEMP25 *2*TEMP8 *2*TEMP23) (*1*B-NOR4 *2*TEMP7 *2*TEMP30 *2*TEMP6 *2*TEMP17)) *3*RN-B (*1*V-IF (*1*B-OR *2*TEMP16 *2*TEMP10) *2*TEMP1 (*1*V-IF *2*TEMP15 (*1*V-INC *3*REGS-ADDRESS) *3*PC-REG)))) (*1*APPEND *2*TEMP4 (*1*MPG (CONS *2*TEMP5 (CONS *2*TEMP2 *2*TEMP4)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*F$CV) (QUOTE (SEXPR (LAMBDA (*3*DECODED-STATE *3*RN-A *3*RN-B *3*OP-CODE *3*PC-REG *3*REGS-ADDRESS *3*SET-FLAGS *3*STORE *3*C *3*A-IMMEDIATE-P *3*RW- *3*DIRECT-A *3*SIDE-EFFECT-A *3*SIDE-EFFECT-B *3*PRE-DEC-A *3*PRE-DEC-B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X)) (*2*TEMP26 (QUOTE *1*X)) (*2*TEMP27 (QUOTE *1*X)) (*2*TEMP28 (QUOTE *1*X)) (*2*TEMP29 (QUOTE *1*X)) (*2*TEMP30 (QUOTE *1*X))) (CONS (*1*F-AND (*1*F-NAND (*1*F-NOT *3*RW-) (SETQ *2*TEMP30 (*1*NTH (QUOTE 0) *3*DECODED-STATE))) (*1*F-NOR3 (SETQ *2*TEMP29 (*1*NTH (QUOTE 17) *3*DECODED-STATE)) (SETQ *2*TEMP28 (*1*NTH (QUOTE 18) *3*DECODED-STATE)) (SETQ *2*TEMP27 (*1*NTH (QUOTE 19) *3*DECODED-STATE)))) (CONS (*1*F-NOR8 (SETQ *2*TEMP26 (*1*NTH (QUOTE 2) *3*DECODED-STATE)) (SETQ *2*TEMP25 (*1*NTH (QUOTE 3) *3*DECODED-STATE)) (SETQ *2*TEMP24 (*1*NTH (QUOTE 10) *3*DECODED-STATE)) (SETQ *2*TEMP23 (*1*NTH (QUOTE 11) *3*DECODED-STATE)) (SETQ *2*TEMP22 (*1*NTH (QUOTE 14) *3*DECODED-STATE)) (SETQ *2*TEMP21 (*1*NTH (QUOTE 15) *3*DECODED-STATE)) *2*TEMP28 *2*TEMP27) (CONS (*1*F-NOT (SETQ *2*TEMP20 (*1*NTH (QUOTE 24) *3*DECODED-STATE))) (CONS (*1*F-NAND5 (*1*F-NAND *3*STORE (SETQ *2*TEMP19 (*1*NTH (QUOTE 7) *3*DECODED-STATE))) (*1*F-NAND *3*SIDE-EFFECT-A (SETQ *2*TEMP18 (*1*NTH (QUOTE 9) *3*DECODED-STATE))) (*1*F-NAND3 (*1*F-NOT *3*STORE) *3*SIDE-EFFECT-B *2*TEMP22) (*1*F-NAND *3*SIDE-EFFECT-B *2*TEMP29) (*1*F-NOR5 *2*TEMP26 (SETQ *2*TEMP17 (*1*NTH (QUOTE 21) *3*DECODED-STATE)) (SETQ *2*TEMP16 (*1*NTH (QUOTE 23) *3*DECODED-STATE)) (SETQ *2*TEMP15 (*1*NTH (QUOTE 28) *3*DECODED-STATE)) (SETQ *2*TEMP14 (*1*NTH (QUOTE 30) *3*DECODED-STATE)))) (CONS (*1*F-NAND (*1*F-NAND *3*DIRECT-A (SETQ *2*TEMP13 (*1*NTH (QUOTE 13) *3*DECODED-STATE))) (*1*F-NOR6 *2*TEMP30 (SETQ *2*TEMP12 (*1*NTH (QUOTE 5) *3*DECODED-STATE)) (SETQ *2*TEMP11 (*1*NTH (QUOTE 8) *3*DECODED-STATE)) *2*TEMP23 (SETQ *2*TEMP10 (*1*NTH (QUOTE 20) *3*DECODED-STATE)) (SETQ *2*TEMP9 (*1*NTH (QUOTE 29) *3*DECODED-STATE)))) (CONS (*1*F-NAND (*1*F-NOR4 (SETQ *2*TEMP8 (*1*NTH (QUOTE 6) *3*DECODED-STATE)) *2*TEMP19 *2*TEMP24 (SETQ *2*TEMP7 (*1*NTH (QUOTE 12) *3*DECODED-STATE))) (*1*F-NOR4 *2*TEMP21 (SETQ *2*TEMP6 (*1*NTH (QUOTE 16) *3*DECODED-STATE)) (SETQ *2*TEMP5 (*1*NTH (QUOTE 22) *3*DECODED-STATE)) *2*TEMP9)) (CONS (*1*F-OR *2*TEMP25 *2*TEMP9) (CONS (*1*F-OR *2*TEMP6 *2*TEMP15) (CONS (*1*F-NAND (*1*F-NOR3 *2*TEMP30 *2*TEMP11 *2*TEMP7) (*1*F-NOR *2*TEMP6 *2*TEMP9)) (CONS (*1*F-OR3 *2*TEMP30 *2*TEMP20 *2*TEMP15) (CONS (*1*F-OR *2*TEMP20 *2*TEMP15) (CONS (*1*F-OR3 *2*TEMP25 *2*TEMP23 *2*TEMP21) (CONS (*1*F-NAND (*1*F-NAND *3*PRE-DEC-A *2*TEMP11) (*1*F-NAND *3*PRE-DEC-B (*1*F-OR *2*TEMP7 *2*TEMP6))) (CONS (*1*F-AND *3*A-IMMEDIATE-P (*1*F-OR *2*TEMP12 *2*TEMP13)) (CONS (*1*F$CARRY-IN-HELP (CONS *3*C (CONS (SETQ *2*TEMP4 (*1*F-OR4 *2*TEMP30 *2*TEMP15 *2*TEMP9 *2*TEMP14)) (SETQ *2*TEMP3 (*1*F$SELECT-OP-CODE (*1*F-NOR4 *2*TEMP26 (SETQ *2*TEMP2 (*1*F-OR *2*TEMP18 *2*TEMP17)) (SETQ *2*TEMP1 (*1*F-OR3 *2*TEMP22 *2*TEMP29 *2*TEMP16)) *2*TEMP4) (*1*F-NAND (*1*F-NAND *2*TEMP2 *3*PRE-DEC-A) (*1*F-NAND *2*TEMP1 *3*PRE-DEC-B)) *3*OP-CODE))))) (CONS *2*TEMP4 (*1*APPEND (*1*F$ENCODE-32 *2*TEMP30 (*1*NTH (QUOTE 1) *3*DECODED-STATE) *2*TEMP26 *2*TEMP25 (*1*NTH (QUOTE 4) *3*DECODED-STATE) *2*TEMP12 *2*TEMP8 *2*TEMP19 *2*TEMP11 *2*TEMP18 *2*TEMP24 *2*TEMP23 *2*TEMP7 *2*TEMP13 *2*TEMP22 *2*TEMP21 *2*TEMP6 *2*TEMP29 *2*TEMP28 *2*TEMP27 *2*TEMP10 *2*TEMP17 *2*TEMP5 *2*TEMP16 *2*TEMP20 (*1*NTH (QUOTE 25) *3*DECODED-STATE) (*1*NTH (QUOTE 26) *3*DECODED-STATE) (*1*NTH (QUOTE 27) *3*DECODED-STATE) *2*TEMP15 *2*TEMP9 *2*TEMP14 (*1*NTH (QUOTE 31) *3*DECODED-STATE)) (*1*APPEND (*1*FV-IF (*1*F-NOR *2*TEMP19 *2*TEMP6) (*1*MAKE-LIST (QUOTE 4) (*1*THREEFIX *2*TEMP15)) *3*SET-FLAGS) (*1*APPEND (*1*FV-IF (*1*F-NAND (*1*F-NOR3 *2*TEMP12 *2*TEMP11 *2*TEMP18) (*1*F-NOR3 *2*TEMP13 *2*TEMP10 *2*TEMP17)) *3*RN-A (*1*FV-IF (*1*F-NAND (*1*F-NOR5 *2*TEMP8 *2*TEMP19 *2*TEMP24 *2*TEMP7 *2*TEMP22) (*1*F-NOR4 *2*TEMP6 *2*TEMP29 *2*TEMP5 *2*TEMP16)) *3*RN-B (*1*F$V-IF-F-4 (*1*F-OR *2*TEMP15 *2*TEMP9) (*1*FV-IF *2*TEMP14 (*1*F$V-INC4$V *3*REGS-ADDRESS) *3*PC-REG)))) (*1*APPEND *2*TEMP3 (*1*F$MPG (CONS *2*TEMP4 (CONS *2*TEMP1 *2*TEMP3)))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X))) (CONS (QUOTE CV) (CONS (*1*APPEND8 (SETQ *2*TEMP18 (*1*INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32))) (SETQ *2*TEMP17 (*1*INDICES (QUOTE RN-A) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP16 (*1*INDICES (QUOTE RN-B) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP15 (*1*INDICES (QUOTE OP-CODE) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP14 (*1*INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP13 (*1*INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP12 (*1*INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (CONS (*1*APPEND6 (QUOTE (NEW-RW- STROBE- HDACK- WE-REGS WE-A-REG WE-B-REG WE-I-REG WE-DATA-OUT WE-ADDR-OUT WE-HOLD- WE-PC-REG DATA-IN-SELECT DEC-ADDR-OUT SELECT-IMMEDIATE ALU-C ALU-ZERO)) (SETQ *2*TEMP11 (*1*INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5))) (SETQ *2*TEMP10 (*1*INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP9 (*1*INDICES (QUOTE NEW-REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP8 (*1*INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP7 (*1*INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7)))) (CONS (CONS (QUOTE (G-FETCH0 (FETCH0) ID ((*1*QUOTE INDEX DECODED-STATE 0)))) (CONS (QUOTE (G-FETCH1 (FETCH1) ID ((*1*QUOTE INDEX DECODED-STATE 1)))) (CONS (QUOTE (G-FETCH2 (FETCH2) ID ((*1*QUOTE INDEX DECODED-STATE 2)))) (CONS (QUOTE (G-FETCH3 (FETCH3) ID ((*1*QUOTE INDEX DECODED-STATE 3)))) (CONS (QUOTE (G-DECODE (DECODE) ID ((*1*QUOTE INDEX DECODED-STATE 4)))) (CONS (QUOTE (G-REGA (REGA) ID ((*1*QUOTE INDEX DECODED-STATE 5)))) (CONS (QUOTE (G-REGB (REGB) ID ((*1*QUOTE INDEX DECODED-STATE 6)))) (CONS (QUOTE (G-UPDATE (UPDATE) ID ((*1*QUOTE INDEX DECODED-STATE 7)))) (CONS (QUOTE (G-READA0 (READA0) ID ((*1*QUOTE INDEX DECODED-STATE 8)))) (CONS (QUOTE (G-READA1 (READA1) ID ((*1*QUOTE INDEX DECODED-STATE 9)))) (CONS (QUOTE (G-READA2 (READA2) ID ((*1*QUOTE INDEX DECODED-STATE 10)))) (CONS (QUOTE (G-READA3 (READA3) ID ((*1*QUOTE INDEX DECODED-STATE 11)))) (CONS (QUOTE (G-READB0 (READB0) ID ((*1*QUOTE INDEX DECODED-STATE 12)))) (CONS (QUOTE (G-READB1 (READB1) ID ((*1*QUOTE INDEX DECODED-STATE 13)))) (CONS (QUOTE (G-READB2 (READB2) ID ((*1*QUOTE INDEX DECODED-STATE 14)))) (CONS (QUOTE (G-READB3 (READB3) ID ((*1*QUOTE INDEX DECODED-STATE 15)))) (CONS (QUOTE (G-WRITE0 (WRITE0) ID ((*1*QUOTE INDEX DECODED-STATE 16)))) (CONS (QUOTE (G-WRITE1 (WRITE1) ID ((*1*QUOTE INDEX DECODED-STATE 17)))) (CONS (QUOTE (G-WRITE2 (WRITE2) ID ((*1*QUOTE INDEX DECODED-STATE 18)))) (CONS (QUOTE (G-WRITE3 (WRITE3) ID ((*1*QUOTE INDEX DECODED-STATE 19)))) (CONS (QUOTE (G-SEFA0 (SEFA0) ID ((*1*QUOTE INDEX DECODED-STATE 20)))) (CONS (QUOTE (G-SEFA1 (SEFA1) ID ((*1*QUOTE INDEX DECODED-STATE 21)))) (CONS (QUOTE (G-SEFB0 (SEFB0) ID ((*1*QUOTE INDEX DECODED-STATE 22)))) (CONS (QUOTE (G-SEFB1 (SEFB1) ID ((*1*QUOTE INDEX DECODED-STATE 23)))) (CONS (QUOTE (G-HOLD0 (HOLD0) ID ((*1*QUOTE INDEX DECODED-STATE 24)))) (CONS (QUOTE (G-HOLD1 (HOLD1) ID ((*1*QUOTE INDEX DECODED-STATE 25)))) (CONS (QUOTE (G-V11010 (V11010) ID ((*1*QUOTE INDEX DECODED-STATE 26)))) (CONS (QUOTE (G-V11011 (V11011) ID ((*1*QUOTE INDEX DECODED-STATE 27)))) (CONS (QUOTE (G-RESET0 (RESET0) ID ((*1*QUOTE INDEX DECODED-STATE 28)))) (CONS (QUOTE (G-RESET1 (RESET1) ID ((*1*QUOTE INDEX DECODED-STATE 29)))) (CONS (QUOTE (G-RESET2 (RESET2) ID ((*1*QUOTE INDEX DECODED-STATE 30)))) (CONS (QUOTE (G-V11111 (V11111) ID ((*1*QUOTE INDEX DECODED-STATE 31)))) (CONS (QUOTE (G0 (STORE-) B-NOT (STORE))) (CONS (QUOTE (G1 (ALU-ZERO) B-OR4 (FETCH0 RESET0 RESET1 RESET2))) (CONS (QUOTE (G2 (ALU-SWAP) B-OR3 (READB2 WRITE1 SEFB1))) (CONS (QUOTE (G3 (INCDECA) B-OR (READA1 SEFA1))) (CONS (QUOTE (G4 (S4) B-NOR4 (FETCH2 INCDECA ALU-SWAP ALU-ZERO))) (CONS (QUOTE (G5 (S5) B-NAND (INCDECA PRE-DEC-A))) (CONS (QUOTE (G6 (S6) B-NAND (ALU-SWAP PRE-DEC-B))) (CONS (QUOTE (G7 (S7) B-NAND (S5 S6))) (CONS (CONS (QUOTE G8) (CONS *2*TEMP8 (CONS (QUOTE SELECT-OP-CODE) (CONS (CONS (QUOTE S4) (CONS (QUOTE S7) *2*TEMP15)) (QUOTE NIL))))) (CONS (QUOTE (G10 (S10) B-NOT (RW-))) (CONS (QUOTE (G11 (S11) B-NAND (S10 FETCH0))) (CONS (QUOTE (G12 (S12) B-NOR3 (WRITE1 WRITE2 WRITE3))) (CONS (QUOTE (G13 (NEW-RW-) B-AND (S11 S12))) (CONS (QUOTE (G14 (STROBE-) B-NOR8 (FETCH2 FETCH3 READA2 READA3 READB2 READB3 WRITE2 WRITE3))) (CONS (QUOTE (G15 (HDACK-) B-NOT (HOLD0))) (CONS (QUOTE (G17 (S17) B-NAND (STORE UPDATE))) (CONS (QUOTE (G18 (S18) B-NAND (SIDE-EFFECT-A READA1))) (CONS (QUOTE (G19 (S19) B-NAND3 (STORE- SIDE-EFFECT-B READB2))) (CONS (QUOTE (G20 (S20) B-NAND (SIDE-EFFECT-B WRITE1))) (CONS (QUOTE (G21 (S21) B-NOR5 (FETCH2 SEFA1 SEFB1 RESET0 RESET2))) (CONS (QUOTE (G22 (WE-REGS) B-NAND5 (S17 S18 S19 S20 S21))) (CONS (QUOTE (G23 (S23) B-NAND (DIRECT-A READB1))) (CONS (QUOTE (G24 (S24) B-NOR6 (FETCH0 REGA READA0 READA3 SEFA0 RESET1))) (CONS (QUOTE (G25 (WE-A-REG) B-NAND (S23 S24))) (CONS (QUOTE (G26 (S26) B-NOR4 (REGB UPDATE READA2 READB0))) (CONS (QUOTE (G27 (S27) B-NOR4 (READB3 WRITE0 SEFB0 RESET1))) (CONS (QUOTE (G28 (WE-B-REG) B-NAND (S26 S27))) (CONS (QUOTE (G29 (WE-I-REG) B-OR (FETCH3 RESET1))) (CONS (QUOTE (G30 (WE-DATA-OUT) B-OR (WRITE0 RESET0))) (CONS (QUOTE (G31 (S31) B-NOR3 (FETCH0 READA0 READB0))) (CONS (QUOTE (G32 (S32) B-NOR (WRITE0 RESET1))) (CONS (QUOTE (G33 (WE-ADDR-OUT) B-NAND (S31 S32))) (CONS (QUOTE (G34 (WE-HOLD-) B-OR3 (FETCH0 HOLD0 RESET0))) (CONS (QUOTE (G35 (WE-PC-REG) B-OR (HOLD0 RESET0))) (CONS (QUOTE (G36 (DATA-IN-SELECT) B-OR3 (FETCH3 READA3 READB3))) (CONS (QUOTE (G37 (S37) B-NAND (PRE-DEC-A READA0))) (CONS (QUOTE (G38 (S38) B-OR (READB0 WRITE0))) (CONS (QUOTE (G39 (S39) B-NAND (PRE-DEC-B S38))) (CONS (QUOTE (G40 (DEC-ADDR-OUT) B-NAND (S37 S39))) (CONS (QUOTE (G41 (S41) B-OR (REGA READB1))) (CONS (QUOTE (G42 (SELECT-IMMEDIATE) B-AND (A-IMMEDIATE-P S41))) (CONS (CONS (QUOTE G43) (CONS (QUOTE (ALU-C)) (CONS (QUOTE CARRY-IN-HELP) (CONS (CONS (QUOTE C) (CONS (QUOTE ALU-ZERO) *2*TEMP8)) (QUOTE NIL))))) (CONS (CONS (QUOTE G44) (CONS *2*TEMP11 (CONS (QUOTE ENCODE-32) (CONS *2*TEMP18 (QUOTE NIL))))) (CONS (CONS (QUOTE G45) (CONS (SETQ *2*TEMP6 (*1*INDICES (QUOTE FANOUT-RESET0) (QUOTE 0) (QUOTE 4))) (QUOTE (FANOUT-4 (RESET0))))) (CONS (QUOTE (G46 (S46) B-NOR (UPDATE WRITE0))) (CONS (CONS (QUOTE G47) (CONS *2*TEMP10 (CONS (SETQ *2*TEMP5 (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER (*1*MAKE-TREE (QUOTE 4))))) (CONS (CONS (QUOTE S46) (*1*APPEND *2*TEMP6 *2*TEMP12)) (QUOTE NIL))))) (CONS (QUOTE (G48 (S48) B-NOR3 (REGA READA0 READA1))) (CONS (QUOTE (G49 (S49) B-NOR3 (READB1 SEFA0 SEFA1))) (CONS (QUOTE (G50 (SELECT-RN-A) B-NAND (S48 S49))) (CONS (QUOTE (G51 (S51) B-NOR5 (REGB UPDATE READA2 READB0 READB2))) (CONS (QUOTE (G52 (S52) B-NOR4 (WRITE0 WRITE1 SEFB0 SEFB1))) (CONS (QUOTE (G53 (SELECT-RN-B) B-NAND (S51 S52))) (CONS (QUOTE (G54 (SELECT-ALL-F) B-OR (RESET0 RESET1))) (CONS (CONS (QUOTE G55) (CONS (SETQ *2*TEMP4 (*1*INDICES (QUOTE V-INC-REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE V-INC4) (CONS *2*TEMP13 (QUOTE NIL))))) (CONS (CONS (QUOTE G56) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE S56) (QUOTE 0) (QUOTE 4))) (CONS *2*TEMP5 (CONS (CONS (QUOTE RESET2) (*1*APPEND *2*TEMP4 *2*TEMP14)) (QUOTE NIL))))) (CONS (CONS (QUOTE G57) (CONS (SETQ *2*TEMP2 (*1*INDICES (QUOTE S57) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE V-IF-F-4) (CONS (CONS (QUOTE SELECT-ALL-F) *2*TEMP3) (QUOTE NIL))))) (CONS (CONS (QUOTE G58) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE S58) (QUOTE 0) (QUOTE 4))) (CONS *2*TEMP5 (CONS (CONS (QUOTE SELECT-RN-B) (*1*APPEND *2*TEMP16 *2*TEMP2)) (QUOTE NIL))))) (CONS (CONS (QUOTE G59) (CONS *2*TEMP9 (CONS *2*TEMP5 (CONS (CONS (QUOTE SELECT-RN-A) (*1*APPEND *2*TEMP17 *2*TEMP1)) (QUOTE NIL))))) (CONS (CONS (QUOTE G60) (CONS *2*TEMP7 (CONS (QUOTE MPG) (CONS (CONS (QUOTE ALU-ZERO) (CONS (QUOTE ALU-SWAP) *2*TEMP8)) (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*CV&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CV) *3*NETLIST) (*1*CV*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*ID& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CV) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*B-OR& *2*TEMP1) (*1*AND (*1*B-OR3& *2*TEMP1) (*1*AND (*1*B-OR4& *2*TEMP1) (*1*AND (*1*B-NAND& *2*TEMP1) (*1*AND (*1*B-NAND3& *2*TEMP1) (*1*AND (*1*B-NAND5& *2*TEMP1) (*1*AND (*1*B-NOR& *2*TEMP1) (*1*AND (*1*B-NOR3& *2*TEMP1) (*1*AND (*1*B-NOR4& *2*TEMP1) (*1*AND (*1*B-NOR5& *2*TEMP1) (*1*AND (*1*B-NOR6& *2*TEMP1) (*1*AND (*1*B-NOR8& *2*TEMP1) (*1*AND (*1*B-AND& *2*TEMP1) (*1*AND (*1*SELECT-OP-CODE& *2*TEMP1) (*1*AND (*1*TV-IF& *2*TEMP1 (*1*MAKE-TREE (QUOTE 4))) (*1*AND (*1*CARRY-IN-HELP& *2*TEMP1) (*1*AND (*1*ENCODE-32& *2*TEMP1) (*1*AND (*1*FANOUT-4& *2*TEMP1) (*1*AND (*1*V-INC4& *2*TEMP1) (*1*AND (*1*V-IF-F-4& *2*TEMP1) (*1*MPG& *2*TEMP1))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CV$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CV*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*ID$NETLIST) (*1*B-NOT$NETLIST)) (*1*UNION (*1*B-OR$NETLIST) (*1*UNION (*1*B-OR3$NETLIST) (*1*B-OR4$NETLIST)))) (*1*UNION (*1*UNION (*1*B-NAND$NETLIST) (*1*B-NAND3$NETLIST)) (*1*UNION (*1*B-NOR$NETLIST) (*1*B-NOR3$NETLIST)))) (*1*UNION (*1*UNION (*1*UNION (*1*B-NOR4$NETLIST) (*1*B-NOR5$NETLIST)) (*1*UNION (*1*B-NOR6$NETLIST) (*1*B-NOR8$NETLIST))) (*1*UNION (*1*UNION (*1*B-AND$NETLIST) (*1*SELECT-OP-CODE$NETLIST)) (*1*UNION (*1*TV-IF$NETLIST (*1*MAKE-TREE (QUOTE 4))) (*1*CARRY-IN-HELP$NETLIST))))) (*1*UNION (*1*UNION (*1*UNION (*1*ENCODE-32$NETLIST) (*1*FANOUT-4$NETLIST)) (*1*UNION (*1*V-INC4$NETLIST) (*1*V-IF-F-4$NETLIST))) (*1*UNION (*1*MPG$NETLIST) (*1*B-NAND5$NETLIST))))))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE) (QUOTE (SEXPR (LAMBDA (*3*RESET- *3*DTACK- *3*HOLD- *3*RW- *3*STATE *3*I-REG *3*FLAGS *3*PC-REG *3*REGS-ADDRESS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X))) (*1*CV (*1*NEXT-STATE (*1*DECODE-5 (*1*V-IF *3*RESET- *3*STATE (*1*V_V11111))) (SETQ *2*TEMP11 (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS)) (*1*SET-SOME-FLAGS (SETQ *2*TEMP10 (*1*SET-FLAGS *3*I-REG))) (*1*UNARY-OP-CODE-P (SETQ *2*TEMP9 (*1*OP-CODE *3*I-REG))) (SETQ *2*TEMP8 (*1*OR* (SETQ *2*TEMP7 (*1*A-IMMEDIATE-P *3*I-REG)) (*1*REG-DIRECT-P (SETQ *2*TEMP6 (*1*MODE-A *3*I-REG))))) (*1*REG-DIRECT-P (SETQ *2*TEMP5 (*1*MODE-B *3*I-REG))) (SETQ *2*TEMP4 (*1*AND* (*1*NOT* *2*TEMP7) (*1*OR* (SETQ *2*TEMP3 (*1*PRE-DEC-P *2*TEMP6)) (*1*POST-INC-P *2*TEMP6)))) (SETQ *2*TEMP2 (*1*OR* (SETQ *2*TEMP1 (*1*PRE-DEC-P *2*TEMP5)) (*1*POST-INC-P *2*TEMP5))) (COND ((EQUAL *3*REGS-ADDRESS (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) *3*DTACK- *3*HOLD-) (*1*RN-A *3*I-REG) (*1*RN-B *3*I-REG) *2*TEMP9 *3*PC-REG *3*REGS-ADDRESS *2*TEMP10 *2*TEMP11 (*1*C-FLAG *3*FLAGS) *2*TEMP7 *3*RW- *2*TEMP8 *2*TEMP4 *2*TEMP2 *2*TEMP3 *2*TEMP1)))))) (PUT1-LST (QUOTE *1*F$NEXT-CNTL-STATE) (QUOTE (SEXPR (LAMBDA (*3*RESET- *3*DTACK- *3*HOLD- *3*RW- *3*STATE *3*I-REG *3*FLAGS *3*PC-REG *3*REGS-ADDRESS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X))) (*1*F$CV (*1*F$NEXT-STATE (*1*F$DECODE-5 (*1*FV-OR (*1*MAKE-LIST (QUOTE 5) (*1*F-NOT *3*RESET-)) *3*STATE)) (SETQ *2*TEMP15 (*1*CAR (SETQ *2*TEMP14 (*1*CDR (SETQ *2*TEMP13 (*1*F$CONTROL-LET *3*I-REG *3*FLAGS *3*REGS-ADDRESS)))))) (*1*CAR (SETQ *2*TEMP12 (*1*CDR *2*TEMP14))) (*1*CAR (SETQ *2*TEMP11 (*1*CDR (SETQ *2*TEMP10 (*1*CDR (SETQ *2*TEMP9 (*1*CDR *2*TEMP12))))))) (SETQ *2*TEMP8 (*1*CAR *2*TEMP9)) (*1*CAR *2*TEMP10) (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CDR *2*TEMP11)))))))))))) (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP6))) (*1*CAR *2*TEMP5) *3*DTACK- *3*HOLD-) (*1*RN-A *3*I-REG) (*1*RN-B *3*I-REG) (*1*OP-CODE *3*I-REG) *3*PC-REG *3*REGS-ADDRESS (*1*SET-FLAGS *3*I-REG) *2*TEMP15 (*1*CAR *2*TEMP4) (*1*CAR *2*TEMP13) *3*RW- *2*TEMP8 *2*TEMP7 *2*TEMP1 (*1*CAR *2*TEMP2) (*1*CAR *2*TEMP3))))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (CONS (QUOTE NEXT-CNTL-STATE) (CONS (*1*APPEND6 (QUOTE (RESET- DTACK- HOLD- RW-)) (SETQ *2*TEMP10 (*1*INDICES (QUOTE STATE) (QUOTE 0) (QUOTE 5))) (SETQ *2*TEMP9 (*1*INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (SETQ *2*TEMP8 (*1*INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP7 (*1*INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP6 (*1*INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4)))) (CONS (SETQ *2*TEMP5 (*1*INDICES (QUOTE NEXT-CNTL-STATE) (QUOTE 0) (QUOTE 40))) (CONS (CONS (CONS (QUOTE CONTROL-SIGNALS) (CONS (QUOTE (A-IMMEDIATE-P STORE SET-SOME-FLAGS DIRECT-A DIRECT-B UNARY PRE-DEC-A PRE-DEC-B C ALL-T-REGS-ADDRESS SIDE-EFFECT-A SIDE-EFFECT-B)) (CONS (QUOTE CONTROL-LET) (CONS (*1*APPEND *2*TEMP9 (*1*APPEND *2*TEMP8 *2*TEMP6)) (QUOTE NIL))))) (CONS (QUOTE (NOT-RESET (RESET) B-NOT (RESET-))) (CONS (CONS (QUOTE RESET5X) (CONS (SETQ *2*TEMP4 (*1*INDICES (QUOTE RESET5X) (QUOTE 0) (QUOTE 5))) (QUOTE (FANOUT-5 (RESET))))) (CONS (CONS (QUOTE XSTATE) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE XSTATE) (QUOTE 0) (QUOTE 5))) (CONS (QUOTE (*1*QUOTE INDEX V-OR 5)) (CONS (*1*APPEND *2*TEMP4 *2*TEMP10) (QUOTE NIL))))) (CONS (CONS (QUOTE DSTATE) (CONS (SETQ *2*TEMP2 (*1*INDICES (QUOTE DECODED-STATE) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE DECODE-5) (CONS *2*TEMP3 (QUOTE NIL))))) (CONS (CONS (QUOTE NXSTATE) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE NEXT-STATE) (CONS (*1*APPEND *2*TEMP2 (QUOTE (STORE SET-SOME-FLAGS UNARY DIRECT-A DIRECT-B SIDE-EFFECT-A SIDE-EFFECT-B ALL-T-REGS-ADDRESS DTACK- HOLD-))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVECTOR) (CONS *2*TEMP5 (CONS (QUOTE CV) (CONS (*1*APPEND8 *2*TEMP1 (*1*RN-A *2*TEMP9) (*1*RN-B *2*TEMP9) (*1*OP-CODE *2*TEMP9) *2*TEMP7 *2*TEMP6 (*1*SET-FLAGS *2*TEMP9) (QUOTE (STORE C A-IMMEDIATE-P RW- DIRECT-A SIDE-EFFECT-A SIDE-EFFECT-B PRE-DEC-A PRE-DEC-B))) (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE NEXT-CNTL-STATE) *3*NETLIST) (*1*NEXT-CNTL-STATE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*CONTROL-LET& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE NEXT-CNTL-STATE) *3*NETLIST))) (*1*AND (*1*B-NOT& *2*TEMP1) (*1*AND (*1*FANOUT-5& *2*TEMP1) (*1*AND (*1*V-OR& *2*TEMP1 (QUOTE 5)) (*1*AND (*1*DECODE-5& *2*TEMP1) (*1*AND (*1*NEXT-STATE& *2*TEMP1) (*1*CV& *2*TEMP1))))))))))))) (PUT1-LST (QUOTE *1*NEXT-CNTL-STATE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*NEXT-CNTL-STATE*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*CONTROL-LET$NETLIST) (*1*B-NOT$NETLIST)) (*1*UNION (*1*FANOUT-5$NETLIST) (*1*V-OR$NETLIST (QUOTE 5)))) (*1*UNION (*1*DECODE-5$NETLIST) (*1*NEXT-STATE$NETLIST))) (*1*CV$NETLIST))))))) (PUT1-LST (QUOTE *1*READ-REGS) (QUOTE (SEXPR (LAMBDA (*3*ADDRESS *3*REGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (*1*CAR (SETQ *2*TEMP2 (*1*CDR *3*REGS))) (*1*V-IFF *3*ADDRESS (*1*CAR (*1*CDR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2)))))) *1*F)) (*1*CAR *2*TEMP1)) (T (*1*READ-MEM *3*ADDRESS (*1*CAR *3*REGS))))))))) (PUT1-LST (QUOTE *1*WRITE-REGS) (QUOTE (SEXPR (LAMBDA (*3*WE *3*ADDRESS *3*REGS *3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (COND ((NOT (EQ (*1*CAR (SETQ *2*TEMP4 (*1*CDR *3*REGS))) *1*F)) (*1*WRITE-MEM (SETQ *2*TEMP3 (*1*CAR (*1*CDR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))))) (*1*CAR *3*REGS) (SETQ *2*TEMP1 (*1*CAR *2*TEMP2)))) (T (*1*CAR *3*REGS))) (CONS *3*WE (CONS (COND ((NOT (EQ *3*WE *1*F)) *3*DATA) ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*CAR (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))))))) (CONS (COND ((NOT (EQ *3*WE *1*F)) *3*ADDRESS) ((NOT (EQ *2*TEMP3 (QUOTE *1*X))) *2*TEMP3) (T (*1*CAR (*1*CDR (COND ((NOT (EQ *2*TEMP2 (QUOTE *1*X))) *2*TEMP2) (T (*1*CDR *2*TEMP4))))))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*REGFILE*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (CONS (QUOTE WE) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (*1*APPEND (SETQ *2*TEMP6 (*1*INDICES (QUOTE ADDRESS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP5 (*1*INDICES (QUOTE DATA) (QUOTE 0) (QUOTE 32)))))))))) (CONS (CONS (QUOTE TO) (SETQ *2*TEMP4 (*1*INDICES (QUOTE OUT) (QUOTE 0) (QUOTE 32)))) (CONS (CONS (QUOTE (WE-LATCH (WE-DP-RAM WE-DP-RAM-) FD1S (WE CLK TI TE))) (CONS (CONS (QUOTE ADDRESS-LATCH) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE ADDRESS-DP-RAM) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE WE-DP-RAM) *2*TEMP6)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-LATCH) (CONS (SETQ *2*TEMP2 (*1*INDICES (QUOTE DATA-DP-RAM) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE) (CONS (QUOTE TE) (CONS (QUOTE (*1*QUOTE INDEX ADDRESS-DP-RAM 3)) *2*TEMP5)))) (QUOTE NIL))))) (CONS (QUOTE (REG-EN-CIRCUIT (WE-) RAM-ENABLE-CIRCUIT (CLK TEST-REGFILE- DISABLE-REGFILE- WE-DP-RAM))) (CONS (CONS (QUOTE RAM) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE RAMOUT) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE DP-RAM-16X32) (CONS (*1*APPEND *2*TEMP6 (*1*APPEND *2*TEMP3 (CONS (QUOTE WE-) *2*TEMP2))) (QUOTE NIL))))) (CONS (CONS (QUOTE COMPARE) (CONS (QUOTE (READ-EQUAL-WRITE)) (CONS (QUOTE (*1*QUOTE INDEX V-EQUAL 4)) (CONS (*1*APPEND *2*TEMP6 *2*TEMP3) (QUOTE NIL))))) (CONS (QUOTE (MUX-CONTROL (S) B-AND3 (WE-DP-RAM READ-EQUAL-WRITE TEST-REGFILE-))) (CONS (CONS (QUOTE MUX) (CONS *2*TEMP4 (CONS (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER (*1*MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE S) (*1*APPEND *2*TEMP2 *2*TEMP1)) (QUOTE NIL))))) (QUOTE ((SCANOUT (TO) ID ((*1*QUOTE INDEX DATA-DP-RAM 31))))))))))))) (QUOTE ((RAM WE-LATCH DATA-LATCH ADDRESS-LATCH)))))))))))) (PUT1-LST (QUOTE *1*REGFILE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE REGFILE) *3*NETLIST) (*1*REGFILE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*FD1S& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE REGFILE) *3*NETLIST))) (*1*AND (*1*WE-REG& *2*TEMP1 (QUOTE 4)) (*1*AND (*1*WE-REG& *2*TEMP1 (QUOTE 32)) (*1*AND (*1*RAM-ENABLE-CIRCUIT& *2*TEMP1) (*1*AND (*1*DP-RAM-16X32& *2*TEMP1) (*1*AND (*1*V-EQUAL& *2*TEMP1 (QUOTE 4)) (*1*AND (*1*B-AND3& *2*TEMP1) (*1*AND (*1*TV-IF& *2*TEMP1 (*1*MAKE-TREE (QUOTE 32))) (*1*ID& *2*TEMP1))))))))))))))) (PUT1-LST (QUOTE *1*REGFILE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*REGFILE*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*FD1S$NETLIST) (*1*WE-REG$NETLIST (QUOTE 4))) (*1*UNION (*1*WE-REG$NETLIST (QUOTE 32)) (*1*RAM-ENABLE-CIRCUIT$NETLIST))) (*1*UNION (*1*DP-RAM-16X32$NETLIST) (*1*UNION (*1*V-EQUAL$NETLIST (QUOTE 4)) (*1*B-AND3$NETLIST)))) (*1*UNION (*1*TV-IF$NETLIST (*1*MAKE-TREE (QUOTE 32))) (*1*ID$NETLIST)))))))) (PUT1-LST (QUOTE *1*F$READ-REGS) (QUOTE (SEXPR (LAMBDA (*3*ADDRESS *3*REGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (*1*FV-IF (*1*F-AND3 (SETQ *2*TEMP5 (*1*F-BUF (*1*CAR (SETQ *2*TEMP4 (*1*CDR *3*REGS))))) (*1*F$V-EQUAL *3*ADDRESS (SETQ *2*TEMP3 (*1*V-THREEFIX (*1*CAR (*1*CDR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))))))) (QUOTE *1*TRUE)) (SETQ *2*TEMP1 (*1*V-THREEFIX (*1*CAR *2*TEMP2))) (*1*DUAL-PORT-RAM-VALUE (QUOTE 32) (QUOTE 4) (*1*APPEND *3*ADDRESS (*1*APPEND *2*TEMP3 (CONS (*1*F-NAND (QUOTE *1*TRUE) *2*TEMP5) *2*TEMP1))) (*1*CAR *3*REGS)))))))) (PUT1-LST (QUOTE *1*F$WRITE-REGS) (QUOTE (SEXPR (LAMBDA (*3*WE *3*ADDRESS *3*REGS *3*DATA) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (*1*DUAL-PORT-RAM-STATE (QUOTE 32) (QUOTE 4) (*1*APPEND *3*ADDRESS (*1*APPEND (*1*V-THREEFIX (SETQ *2*TEMP4 (*1*CAR (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*CDR *3*REGS)))))))) (CONS (*1*F-NAND (QUOTE *1*TRUE) (*1*F-BUF (*1*CAR *2*TEMP2))) (*1*V-THREEFIX (SETQ *2*TEMP1 (*1*CAR *2*TEMP3)))))) (*1*CAR *3*REGS)) (CONS (*1*THREEFIX *3*WE) (CONS (*1*FV-IF *3*WE *3*DATA *2*TEMP1) (CONS (*1*FV-IF *3*WE *3*ADDRESS *2*TEMP4) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*FLAGS*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE) (CONS (QUOTE TI) (*1*APPEND (SETQ *2*TEMP2 (*1*INDICES (QUOTE SET-FLAGS) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP1 (*1*INDICES (QUOTE CVZBV) (QUOTE 0) (QUOTE 35))))))) (CONS (QUOTE (Z N V C)) (CONS (CONS (CONS (QUOTE Z-LATCH) (CONS (QUOTE (Z ZB)) (CONS (QUOTE FD1SLP) (CONS (CONS (*1*ZB *2*TEMP1) (CONS (QUOTE CLK) (CONS (*1*Z-SET *2*TEMP2) (QUOTE (TI TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE N-LATCH) (CONS (QUOTE (N NB)) (CONS (QUOTE FD1SLP) (CONS (CONS (QUOTE (*1*QUOTE INDEX CVZBV 34)) (CONS (QUOTE CLK) (CONS (*1*N-SET *2*TEMP2) (QUOTE (Z TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE V-LATCH) (CONS (QUOTE (V VB)) (CONS (QUOTE FD1SLP) (CONS (CONS (*1*V *2*TEMP1) (CONS (QUOTE CLK) (CONS (*1*V-SET *2*TEMP2) (QUOTE (N TE))))) (QUOTE NIL))))) (CONS (CONS (QUOTE C-LATCH) (CONS (QUOTE (C CB)) (CONS (QUOTE FD1SLP) (CONS (CONS (*1*C *2*TEMP1) (CONS (QUOTE CLK) (CONS (*1*C-SET *2*TEMP2) (QUOTE (V TE))))) (QUOTE NIL))))) (QUOTE NIL))))) (QUOTE ((Z-LATCH N-LATCH V-LATCH C-LATCH)))))))))))) (PUT1-LST (QUOTE *1*FLAGS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE FLAGS) *3*NETLIST) (*1*FLAGS*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*FD1SLP& (*1*DELETE-MODULE (QUOTE FLAGS) *3*NETLIST))))))) (PUT1-LST (QUOTE *1*FLAGS$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*FLAGS*) (*1*FD1SLP$NETLIST)))))) (PUT1-LST (QUOTE *1*F$UPDATE-FLAGS) (QUOTE (SEXPR (LAMBDA (*3*FLAGS *3*SET-FLAGS *3*CVZBV) (CONS (*1*F-IF (*1*Z-SET *3*SET-FLAGS) (*1*ZB *3*CVZBV) (*1*Z-FLAG *3*FLAGS)) (CONS (*1*F-IF (*1*N-SET *3*SET-FLAGS) (*1*N *3*CVZBV) (*1*N-FLAG *3*FLAGS)) (CONS (*1*F-IF (*1*V-SET *3*SET-FLAGS) (*1*V *3*CVZBV) (*1*V-FLAG *3*FLAGS)) (CONS (*1*F-IF (*1*C-SET *3*SET-FLAGS) (*1*C *3*CVZBV) (*1*C-FLAG *3*FLAGS)) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (*1*APPEND (SETQ *2*TEMP3 (*1*INDICES (QUOTE IMMEDIATE) (QUOTE 0) (QUOTE 9))) (SETQ *2*TEMP2 (*1*INDICES (QUOTE REG-DATA) (QUOTE 0) (QUOTE 32))))) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE Z) (QUOTE 0) (QUOTE 32))) (CONS (CONS (QUOTE (BUFFER (SIGN-BIT) B-BUF-PWR ((*1*QUOTE INDEX IMMEDIATE 8)))) (CONS (CONS (QUOTE MUX) (CONS *2*TEMP1 (CONS (*1*INDEX (QUOTE TV-IF) (*1*TREE-NUMBER (*1*MAKE-TREE (QUOTE 32)))) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (*1*APPEND (*1*APPEND *2*TEMP3 (*1*MAKE-LIST (QUOTE 23) (QUOTE SIGN-BIT))) *2*TEMP2)) (QUOTE NIL))))) (QUOTE NIL))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE EXTEND-IMMEDIATE) *3*NETLIST) (*1*EXTEND-IMMEDIATE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-BUF-PWR& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE EXTEND-IMMEDIATE) *3*NETLIST))) (*1*TV-IF& *2*TEMP1 (*1*MAKE-TREE (QUOTE 32)))))))))) (PUT1-LST (QUOTE *1*EXTEND-IMMEDIATE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*EXTEND-IMMEDIATE*) (*1*UNION (*1*B-BUF-PWR$NETLIST) (*1*TV-IF$NETLIST (*1*MAKE-TREE (QUOTE 32))))))))) (PUT1-LST (QUOTE *1*F$EXTEND-IMMEDIATE) (QUOTE (SEXPR (LAMBDA (*3*SELECT-IMMEDIATE *3*IMMEDIATE *3*REG-DATA) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*FV-IF *3*SELECT-IMMEDIATE (*1*APPEND *3*IMMEDIATE (COND ((NOT (EQ (*1*BOOLP (SETQ *2*TEMP1 (*1*NTH (QUOTE 8) *3*IMMEDIATE))) *1*F)) (*1*MAKE-LIST (QUOTE 23) *2*TEMP1)) (T (*1*MAKE-LIST (QUOTE 23) (QUOTE (*1*QUOTE X)))))) *3*REG-DATA)))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*PI) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (SETQ *2*TEMP2 (*1*INDEX (QUOTE OUT) *3*M)) (CONS (SETQ *2*TEMP1 (*1*INDEX (QUOTE PO) *3*M)) (QUOTE NIL))) (CONS (QUOTE TTL-INPUT) (CONS (CONS (*1*INDEX (QUOTE IN) *3*M) (CONS *3*PI (QUOTE NIL))) (QUOTE NIL))))) (CONS (CONS (*1*INDEX (QUOTE B) *3*M) (CONS (CONS (*1*INDEX (QUOTE B-OUT) *3*M) (QUOTE NIL)) (CONS (QUOTE B-BUF) (CONS (CONS *2*TEMP2 (QUOTE NIL)) (QUOTE NIL))))) (*1*TTL-INPUT-PADS-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N) *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS-BODY$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*PI *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE TTL-INPUT-PADS-BODY$INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*TTL-INPUT-PADS-BODY$INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*INDEX (QUOTE PO) *3*M) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (*1*TTL-INPUT-PADS-BODY *3*M *3*N *3*PI) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE TTL-INPUT-PADS) *3*N) (CONS (CONS (QUOTE PI) (*1*INDICES (QUOTE IN) (QUOTE 0) *3*N)) (CONS (CONS (*1*INDEX (QUOTE PO) (*1*SUB1 *3*N)) (*1*INDICES (QUOTE B-OUT) (QUOTE 0) *3*N)) (CONS (*1*TTL-INPUT-PADS-BODY (QUOTE 0) *3*N (QUOTE PI)) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TTL-INPUT-PADS) *3*N)) *3*NETLIST) (*1*TTL-INPUT-PADS* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TTL-INPUT& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*B-BUF& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*TTL-INPUT-PADS$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*TTL-INPUT-PADS* *3*N) (*1*UNION (*1*TTL-INPUT$NETLIST) (*1*B-BUF$NETLIST))))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE B) *3*M) (CONS (SETQ *2*TEMP1 (CONS (*1*INDEX (QUOTE B-IN) *3*M) (QUOTE NIL))) (CONS (QUOTE B-BUF) (CONS (CONS (*1*INDEX (QUOTE IN) *3*M) (QUOTE NIL)) (QUOTE NIL))))) (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE OUT) *3*M) (QUOTE NIL)) (CONS (QUOTE TTL-OUTPUT) (CONS *2*TEMP1 (QUOTE NIL))))) (*1*TTL-OUTPUT-PADS-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE TTL-OUTPUT-PADS-BODY$INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*TTL-OUTPUT-PADS-BODY$INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 2) (*1*TTL-OUTPUT-PADS-BODY *3*M *3*N) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE TTL-OUTPUT-PADS) *3*N) (CONS (*1*INDICES (QUOTE IN) (QUOTE 0) *3*N) (CONS (*1*INDICES (QUOTE OUT) (QUOTE 0) *3*N) (CONS (*1*TTL-OUTPUT-PADS-BODY (QUOTE 0) *3*N) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TTL-OUTPUT-PADS) *3*N)) *3*NETLIST) (*1*TTL-OUTPUT-PADS* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TTL-OUTPUT& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (*1*B-BUF& *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*TTL-OUTPUT-PADS$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*TTL-OUTPUT-PADS* *3*N) (*1*UNION (*1*TTL-OUTPUT$NETLIST) (*1*B-BUF$NETLIST))))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (*1*INDEX (QUOTE OUT) *3*M) (QUOTE NIL)) (CONS (QUOTE TTL-TRI-OUTPUT) (CONS (CONS (*1*INDEX (QUOTE IN) *3*M) (QUOTE (ENABLE-BUF))) (QUOTE NIL))))) (*1*TTL-TRI-OUTPUT-PADS-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE TTL-TRI-OUTPUT-PADS-BODY$INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*TTL-TRI-OUTPUT-PADS-BODY$INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (*1*TTL-TRI-OUTPUT-PADS-BODY *3*M *3*N) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS*) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*INDEX (QUOTE TTL-TRI-OUTPUT-PADS) *3*N) (CONS (CONS (QUOTE ENABLE) (*1*INDICES (QUOTE IN) (QUOTE 0) *3*N)) (CONS (*1*INDICES (QUOTE OUT) (QUOTE 0) *3*N) (CONS (CONS (CONS (QUOTE ENABLE-BUFFER) (CONS (QUOTE (ENABLE-BUF)) (CONS (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (QUOTE B-BUF)) (T (QUOTE B-BUF-PWR))) (QUOTE ((ENABLE)))))) (*1*TTL-TRI-OUTPUT-PADS-BODY (QUOTE 0) *3*N)) (QUOTE (NIL)))))))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TTL-TRI-OUTPUT-PADS) *3*N)) *3*NETLIST) (*1*TTL-TRI-OUTPUT-PADS* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TTL-TRI-OUTPUT& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF& *2*TEMP1)) (T (*1*B-BUF-PWR& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*TTL-TRI-OUTPUT-PADS$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*TTL-TRI-OUTPUT-PADS* *3*N) (*1*UNION (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF$NETLIST)) (T (*1*B-BUF-PWR$NETLIST))) (*1*TTL-TRI-OUTPUT$NETLIST))))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS-BODY) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*PI) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (CONS (*1*INDEX (QUOTE G) *3*M) (CONS (CONS (SETQ *2*TEMP2 (*1*INDEX (QUOTE DATA) *3*M)) (CONS (*1*INDEX (QUOTE OUT) *3*M) (CONS (SETQ *2*TEMP1 (*1*INDEX (QUOTE PO) *3*M)) (QUOTE NIL)))) (CONS (QUOTE TTL-BIDIRECT) (CONS (CONS *2*TEMP2 (CONS (*1*INDEX (QUOTE IN) *3*M) (CONS (QUOTE BUF-ENABLE) (CONS *3*PI (QUOTE NIL))))) (QUOTE NIL))))) (*1*TTL-BIDIRECT-PADS-BODY (*1*ADD1 *3*M) (*1*SUB1 *3*N) *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS-BODY$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*M *3*N *3*PI *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE TTL-BIDIRECT-PADS-BODY$INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*TTL-BIDIRECT-PADS-BODY$INDUCTION (*1*ADD1 *3*M) (*1*SUB1 *3*N) (*1*INDEX (QUOTE PO) *3*M) (*1*DUAL-EVAL-BODY-BINDINGS (QUOTE 1) (*1*TTL-BIDIRECT-PADS-BODY *3*M *3*N *3*PI) *3*BINDINGS *3*STATE-BINDINGS *3*NETLIST) *3*STATE-BINDINGS *3*NETLIST)))))))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS*) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*INDEX (QUOTE TTL-BIDIRECT-PADS) *3*N) (CONS (CONS (QUOTE ENABLE) (CONS (QUOTE PI) (*1*APPEND (SETQ *2*TEMP1 (*1*INDICES (QUOTE DATA) (QUOTE 0) *3*N)) (*1*INDICES (QUOTE IN) (QUOTE 0) *3*N)))) (CONS (CONS (*1*INDEX (QUOTE PO) (*1*SUB1 *3*N)) (*1*APPEND *2*TEMP1 (*1*INDICES (QUOTE OUT) (QUOTE 0) *3*N))) (CONS (CONS (CONS (QUOTE ENABLE-BUF) (CONS (QUOTE (BUF-ENABLE)) (CONS (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (QUOTE B-BUF)) (T (QUOTE B-BUF-PWR))) (QUOTE ((ENABLE)))))) (*1*TTL-BIDIRECT-PADS-BODY (QUOTE 0) *3*N (QUOTE PI))) (QUOTE (NIL))))))))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (SETQ *2*TEMP2 (*1*INDEX (QUOTE TTL-BIDIRECT-PADS) *3*N)) *3*NETLIST) (*1*TTL-BIDIRECT-PADS* *3*N)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*TTL-BIDIRECT& (SETQ *2*TEMP1 (*1*DELETE-MODULE *2*TEMP2 *3*NETLIST))) (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF& *2*TEMP1)) (T (*1*B-BUF-PWR& *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*TTL-BIDIRECT-PADS$NETLIST) (QUOTE (SEXPR (LAMBDA (*3*N) (CONS (*1*TTL-BIDIRECT-PADS* *3*N) (*1*UNION (*1*TTL-BIDIRECT$NETLIST) (COND ((NOT (EQ (*1*LESSP *3*N (QUOTE 8)) *1*F)) (*1*B-BUF$NETLIST)) (T (*1*B-BUF-PWR$NETLIST))))))))) (PUT1-LST (QUOTE *1*A-REG) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 2) *3*STATE))))) (PUT1-LST (QUOTE *1*B-REG) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 3) *3*STATE))))) (PUT1-LST (QUOTE *1*I-REG) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 4) *3*STATE))))) (PUT1-LST (QUOTE *1*DATA-OUT) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 5) *3*STATE))))) (PUT1-LST (QUOTE *1*ADDR-OUT) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 6) *3*STATE))))) (PUT1-LST (QUOTE *1*RESET-) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 7) *3*STATE))))) (PUT1-LST (QUOTE *1*DTACK-) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 8) *3*STATE))))) (PUT1-LST (QUOTE *1*HOLD-) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 9) *3*STATE))))) (PUT1-LST (QUOTE *1*PC-REG) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 10) *3*STATE))))) (PUT1-LST (QUOTE *1*CNTL-STATE) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*NTH (QUOTE 11) *3*STATE))))) (PUT1-LST (QUOTE *1*RESET--INPUT) (QUOTE (SEXPR (LAMBDA (*3*EXT-IN) (*1*NTH (QUOTE 0) *3*EXT-IN))))) (PUT1-LST (QUOTE *1*HOLD--INPUT) (QUOTE (SEXPR (LAMBDA (*3*EXT-IN) (*1*NTH (QUOTE 1) *3*EXT-IN))))) (PUT1-LST (QUOTE *1*PC-REG-INPUT) (QUOTE (SEXPR (LAMBDA (*3*EXT-IN) (*1*SUBRANGE *3*EXT-IN (QUOTE 2) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*FM9001-NEXT-STATE) (QUOTE (SEXPR (LAMBDA (*3*TOTAL-STATE *3*EXTERNAL-INPUTS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X)) (*2*TEMP26 (QUOTE *1*X)) (*2*TEMP27 (QUOTE *1*X)) (*2*TEMP28 (QUOTE *1*X)) (*2*TEMP29 (QUOTE *1*X))) (CONS (CONS (*1*F$WRITE-REGS (*1*WE-REGS (SETQ *2*TEMP29 (*1*V-THREEFIX (*1*CNTL-STATE (SETQ *2*TEMP28 (*1*CAR *3*TOTAL-STATE)))))) (SETQ *2*TEMP27 (*1*REGS-ADDRESS *2*TEMP29)) (SETQ *2*TEMP26 (*1*REGS *2*TEMP28)) (SETQ *2*TEMP25 (*1*BV (SETQ *2*TEMP24 (*1*F$CORE-ALU (*1*ALU-C *2*TEMP29) (*1*V-THREEFIX (SETQ *2*TEMP23 (*1*A-REG *2*TEMP28))) (*1*V-THREEFIX (SETQ *2*TEMP22 (*1*B-REG *2*TEMP28))) (*1*ALU-ZERO *2*TEMP29) (*1*ALU-MPG *2*TEMP29) (*1*ALU-OP *2*TEMP29) (*1*MAKE-TREE (QUOTE 32))))))) (CONS (*1*F$UPDATE-FLAGS (SETQ *2*TEMP21 (*1*FLAGS *2*TEMP28)) (*1*WE-FLAGS *2*TEMP29) *2*TEMP24) (CONS (*1*FV-IF (*1*WE-A-REG *2*TEMP29) (SETQ *2*TEMP20 (*1*FV-IF (*1*F-NAND (*1*DATA-IN-SELECT *2*TEMP29) (*1*F-NOT (SETQ *2*TEMP19 (*1*DTACK- *2*TEMP28)))) (SETQ *2*TEMP18 (*1*F$EXTEND-IMMEDIATE (*1*SELECT-IMMEDIATE *2*TEMP29) (*1*A-IMMEDIATE (SETQ *2*TEMP17 (*1*V-THREEFIX (SETQ *2*TEMP16 (*1*I-REG *2*TEMP28))))) (*1*F$READ-REGS *2*TEMP27 *2*TEMP26))) (*1*V-THREEFIX (*1*V-WIRE (SETQ *2*TEMP15 (*1*V-PULLUP (*1*V-WIRE (SETQ *2*TEMP14 (*1*VFT-BUF (*1*F-NOT (SETQ *2*TEMP13 (*1*F-BUF (SETQ *2*TEMP12 (*1*RW- *2*TEMP29))))) (*1*V-THREEFIX (SETQ *2*TEMP11 (*1*DATA-OUT *2*TEMP28))))) (*1*CDR (SETQ *2*TEMP10 (*1*MEMORY-VALUE (SETQ *2*TEMP9 (*1*CAR (*1*CDR *3*TOTAL-STATE))) (SETQ *2*TEMP8 (*1*F-PULLUP (*1*FT-BUF (SETQ *2*TEMP7 (*1*F-BUF (*1*HDACK- *2*TEMP29))) (SETQ *2*TEMP6 (*1*STROBE- *2*TEMP29))))) (SETQ *2*TEMP5 (*1*F-PULLUP (*1*FT-BUF *2*TEMP7 *2*TEMP13))) (SETQ *2*TEMP4 (*1*V-PULLUP (*1*VFT-BUF *2*TEMP7 (*1*V-THREEFIX (SETQ *2*TEMP3 (*1*ADDR-OUT *2*TEMP28)))))) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))))))))) *2*TEMP14)))) *2*TEMP23) (CONS (*1*FV-IF (*1*WE-B-REG *2*TEMP29) *2*TEMP20 *2*TEMP22) (CONS (*1*FV-IF (*1*WE-I-REG *2*TEMP29) *2*TEMP20 *2*TEMP16) (CONS (*1*FV-IF (*1*WE-DATA-OUT *2*TEMP29) *2*TEMP25 *2*TEMP11) (CONS (*1*FV-IF (*1*WE-ADDR-OUT *2*TEMP29) (*1*F$DEC-PASS (*1*DEC-ADDR-OUT *2*TEMP29) *2*TEMP18) *2*TEMP3) (CONS (*1*F-BUF (*1*RESET--INPUT *3*EXTERNAL-INPUTS)) (CONS (*1*F-OR *2*TEMP6 (*1*F-BUF (*1*CAR *2*TEMP10))) (CONS (*1*F-IF (*1*WE-HOLD- *2*TEMP29) (*1*F-BUF (*1*HOLD--INPUT *3*EXTERNAL-INPUTS)) (SETQ *2*TEMP2 (*1*HOLD- *2*TEMP28))) (CONS (*1*FV-IF (*1*WE-PC-REG *2*TEMP29) (*1*PC-REG-INPUT *3*EXTERNAL-INPUTS) (SETQ *2*TEMP1 (*1*PC-REG *2*TEMP28))) (CONS (*1*V-THREEFIX (*1*F$NEXT-CNTL-STATE (*1*F-BUF (*1*RESET- *2*TEMP28)) (*1*F-BUF *2*TEMP19) (*1*F-BUF *2*TEMP2) *2*TEMP12 (*1*STATE *2*TEMP29) *2*TEMP17 (*1*V-THREEFIX *2*TEMP21) (*1*V-THREEFIX *2*TEMP1) *2*TEMP27)) (QUOTE NIL))))))))))))) (CONS (*1*NEXT-MEMORY-STATE *2*TEMP9 *2*TEMP8 *2*TEMP5 *2*TEMP4 *2*TEMP15) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*RUN-FM9001) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*INPUTS *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*STATE) (T (*1*RUN-FM9001 (*1*FM9001-NEXT-STATE *3*STATE (*1*CAR *3*INPUTS)) (*1*CDR *3*INPUTS) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*FM9001-STATE-STRUCTURE) (QUOTE (SEXPR (LAMBDA (*3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LENGTH *3*STATE) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP *3*STATE) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP3 (*1*CAR *3*STATE))) (QUOTE 12)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP *2*TEMP3) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP2 (*1*CAR (*1*CDR *3*STATE)))) (QUOTE 8)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP *2*TEMP2) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP1 (*1*CAR *2*TEMP3))) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*PROPERP *2*TEMP1))))))))))))) (PUT1-LST (QUOTE *1*CHIP-MODULE*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (*1*APPEND (SETQ *2*TEMP22 (*1*INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP21 (*1*INDICES (QUOTE DATA-IN) (QUOTE 0) (QUOTE 32)))))))))))) (CONS (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE EN-ADDR-OUT-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (*1*APPEND (SETQ *2*TEMP20 (*1*INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP19 (*1*INDICES (QUOTE DATA-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP18 (*1*INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (*1*APPEND (SETQ *2*TEMP17 (*1*INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5))) (*1*SUBRANGE (SETQ *2*TEMP16 (*1*INDICES (QUOTE I-REG) (QUOTE 0) (QUOTE 32))) (QUOTE 28) (QUOTE 31)))))))))))) (CONS (CONS (CONS (QUOTE CNTL-STATE) (CONS (CONS (QUOTE RW-SIG-) (CONS (QUOTE STROBE-) (CONS (QUOTE HDACK-) (CONS (QUOTE WE-REGS) (CONS (QUOTE WE-A-REG) (CONS (QUOTE WE-B-REG) (CONS (QUOTE WE-I-REG) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE WE-HOLD-) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE DATA-IN-SELECT) (CONS (QUOTE DEC-ADDR-OUT) (CONS (QUOTE SELECT-IMMEDIATE) (CONS (QUOTE ALU-C) (CONS (QUOTE ALU-ZERO) (*1*APPEND *2*TEMP17 (*1*APPEND (SETQ *2*TEMP15 (*1*INDICES (QUOTE WE-FLAGS) (QUOTE 0) (QUOTE 4))) (*1*APPEND (SETQ *2*TEMP14 (*1*INDICES (QUOTE REGS-ADDRESS) (QUOTE 0) (QUOTE 4))) (*1*APPEND (SETQ *2*TEMP13 (*1*INDICES (QUOTE ALU-OP) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP12 (*1*INDICES (QUOTE ALU-MPG) (QUOTE 0) (QUOTE 7))))))))))))))))))))))) (CONS (QUOTE (*1*QUOTE INDEX REG 40)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE TI) (SETQ *2*TEMP11 (*1*INDICES (QUOTE NEXT-STATE) (QUOTE 0) (QUOTE 40)))))) (QUOTE NIL))))) (CONS (CONS (QUOTE REGS) (CONS (CONS (QUOTE REGFILE-TO) (SETQ *2*TEMP10 (*1*INDICES (QUOTE REGFILE-OUT) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE REGFILE) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX ALU-MPG 6)) (CONS (QUOTE WE-REGS) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (*1*APPEND *2*TEMP14 (SETQ *2*TEMP9 (*1*BV (SETQ *2*TEMP8 (*1*INDICES (QUOTE ALU-BUS) (QUOTE 0) (QUOTE 35)))))))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE CVNZ-FLAGS) (CONS *2*TEMP18 (CONS (QUOTE FLAGS) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TE-SIG) (CONS (QUOTE REGFILE-TO) (*1*APPEND *2*TEMP15 *2*TEMP8)))) (QUOTE NIL))))) (CONS (CONS (QUOTE A-REG) (CONS (SETQ *2*TEMP7 (*1*INDICES (QUOTE A-REG) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-A-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX FLAGS 3)) (SETQ *2*TEMP6 (*1*INDICES (QUOTE ABI-BUS) (QUOTE 0) (QUOTE 32))))))) (QUOTE NIL))))) (CONS (CONS (QUOTE B-REG) (CONS (SETQ *2*TEMP5 (*1*INDICES (QUOTE B-REG) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-B-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX A-REG 31)) *2*TEMP6)))) (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG) (CONS *2*TEMP16 (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-I-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX B-REG 31)) *2*TEMP6)))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-OUT) (CONS *2*TEMP19 (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-DATA-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX I-REG 31)) *2*TEMP9)))) (QUOTE NIL))))) (CONS (CONS (QUOTE ADDR-OUT) (CONS *2*TEMP20 (CONS (QUOTE (*1*QUOTE INDEX WE-REG 32)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-ADDR-OUT) (CONS (QUOTE TE-SIG) (CONS (QUOTE (*1*QUOTE INDEX DATA-OUT 31)) (SETQ *2*TEMP4 (*1*INDICES (QUOTE ADDR-OUT-BUS) (QUOTE 0) (QUOTE 32))))))) (QUOTE NIL))))) (CONS (QUOTE (RESET-LATCH (LAST-RESET- LAST-RESET-INV) FD1S (RESET- CLK (*1*QUOTE INDEX ADDR-OUT 31) TE-SIG))) (CONS (QUOTE (DTACK--OR (DTACK--OR-STROBE-) B-OR (STROBE- DTACK-))) (CONS (QUOTE (DTACK-LATCH (LAST-DTACK- LAST-DTACK-INV) FD1S (DTACK--OR-STROBE- CLK LAST-RESET- TE-SIG))) (CONS (QUOTE (HOLD-LATCH (LAST-HOLD- LAST-HOLD-INV) FD1SLP (HOLD- CLK WE-HOLD- LAST-DTACK- TE-SIG))) (CONS (CONS (QUOTE PC-REG) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4))) (CONS (QUOTE (*1*QUOTE INDEX WE-REG 4)) (CONS (CONS (QUOTE CLK) (CONS (QUOTE WE-PC-REG) (CONS (QUOTE TE-SIG) (CONS (QUOTE LAST-HOLD-) *2*TEMP22)))) (QUOTE NIL))))) (CONS (CONS (QUOTE IMMEDIATE-PASS) (CONS (SETQ *2*TEMP2 (*1*INDICES (QUOTE REG-BUS) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE EXTEND-IMMEDIATE) (CONS (CONS (QUOTE SELECT-IMMEDIATE) (*1*APPEND (*1*A-IMMEDIATE *2*TEMP16) *2*TEMP10)) (QUOTE NIL))))) (CONS (CONS (QUOTE DEC-PASS) (CONS *2*TEMP4 (CONS (QUOTE (*1*QUOTE INDEX DEC-PASS 32)) (CONS (CONS (QUOTE DEC-ADDR-OUT) *2*TEMP2) (QUOTE NIL))))) (CONS (QUOTE (MUX-CNTL (ABI-CNTL) B-NAND (DATA-IN-SELECT LAST-DTACK-INV))) (CONS (CONS (QUOTE DATA-IN-MUX) (CONS *2*TEMP6 (CONS (*1*INDEX (QUOTE TV-IF) (SETQ *2*TEMP1 (*1*TREE-NUMBER (*1*MAKE-TREE (QUOTE 32))))) (CONS (CONS (QUOTE ABI-CNTL) (*1*APPEND *2*TEMP2 *2*TEMP21)) (QUOTE NIL))))) (CONS (CONS (QUOTE ALU) (CONS *2*TEMP8 (CONS (*1*INDEX (QUOTE CORE-ALU) *2*TEMP1) (CONS (CONS (QUOTE ALU-C) (*1*APPEND *2*TEMP7 (*1*APPEND *2*TEMP5 (CONS (QUOTE ALU-ZERO) (*1*APPEND *2*TEMP12 *2*TEMP13))))) (QUOTE NIL))))) (CONS (CONS (QUOTE NEXT-STATE) (CONS *2*TEMP11 (CONS (QUOTE NEXT-CNTL-STATE) (CONS (CONS (QUOTE LAST-RESET-) (CONS (QUOTE LAST-DTACK-) (CONS (QUOTE LAST-HOLD-) (CONS (QUOTE RW-SIG-) (*1*APPEND *2*TEMP17 (*1*APPEND *2*TEMP16 (*1*APPEND *2*TEMP18 (*1*APPEND *2*TEMP3 *2*TEMP14)))))))) (QUOTE NIL))))) (QUOTE ((TE-BUFFER (TE-SIG) B-BUF-PWR (TE)) (RW-BUFFER (RW-) B-BUF (RW-SIG-)) (EN-ADDR-OUT-GATE (EN-ADDR-OUT-) B-NOT (HDACK-)) (TIMING-GATE (TIMING) ID ((*1*QUOTE INDEX ALU-BUS 2))) (SCANOUT (TO) ID ((*1*QUOTE INDEX PC-REG 3)))))))))))))))))))))))) (QUOTE ((REGS CVNZ-FLAGS A-REG B-REG I-REG DATA-OUT ADDR-OUT RESET-LATCH DTACK-LATCH HOLD-LATCH PC-REG CNTL-STATE)))))))))))) (PUT1-LST (QUOTE *1*CHIP-MODULE&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CHIP-MODULE) *3*NETLIST) (*1*CHIP-MODULE*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*REGFILE& (SETQ *2*TEMP2 (*1*DELETE-MODULE (QUOTE CHIP-MODULE) *3*NETLIST))) (*1*AND (*1*FLAGS& *2*TEMP2) (*1*AND (*1*WE-REG& *2*TEMP2 (QUOTE 32)) (*1*AND (*1*FD1S& *2*TEMP2) (*1*AND (*1*FD1SLP& *2*TEMP2) (*1*AND (*1*WE-REG& *2*TEMP2 (QUOTE 4)) (*1*AND (*1*REG& *2*TEMP2 (QUOTE 40)) (*1*AND (*1*ID& *2*TEMP2) (*1*AND (*1*B-BUF-PWR& *2*TEMP2) (*1*AND (*1*B-BUF& *2*TEMP2) (*1*AND (*1*B-NOT& *2*TEMP2) (*1*AND (*1*EXTEND-IMMEDIATE& *2*TEMP2) (*1*AND (*1*DEC-PASS& *2*TEMP2 (QUOTE 32)) (*1*AND (*1*TV-IF& *2*TEMP2 (SETQ *2*TEMP1 (*1*MAKE-TREE (QUOTE 32)))) (*1*AND (*1*CORE-ALU& *2*TEMP2 *2*TEMP1) (*1*NEXT-CNTL-STATE& *2*TEMP2)))))))))))))))))))))) (PUT1-LST (QUOTE *1*CHIP-MODULE$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*CHIP-MODULE*) (*1*UNION (*1*REGFILE$NETLIST) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*FLAGS$NETLIST) (*1*WE-REG$NETLIST (QUOTE 32))) (*1*UNION (*1*FD1S$NETLIST) (*1*FD1SLP$NETLIST))) (*1*UNION (*1*UNION (*1*UNION (*1*WE-REG$NETLIST (QUOTE 4)) (*1*REG$NETLIST (QUOTE 40))) (*1*UNION (*1*ID$NETLIST) (*1*EXTEND-IMMEDIATE$NETLIST))) (*1*UNION (*1*UNION (*1*DEC-PASS$NETLIST (QUOTE 32)) (*1*TV-IF$NETLIST (SETQ *2*TEMP1 (*1*MAKE-TREE (QUOTE 32))))) (*1*UNION (*1*CORE-ALU$NETLIST *2*TEMP1) (*1*NEXT-CNTL-STATE$NETLIST))))) (*1*UNION (*1*B-BUF-PWR$NETLIST) (*1*UNION (*1*B-BUF$NETLIST) (*1*B-NOT$NETLIST))))))))))) (PUT1-LST (QUOTE *1*MACHINE-STATE-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*MACHINE-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X))) (*1*AND (*1*ALL-RAMP-MEM (QUOTE 4) (SETQ *2*TEMP20 (*1*CAR (SETQ *2*TEMP19 (*1*CAR *3*MACHINE-STATE))))) (*1*AND (*1*MEMORY-PROPERP (QUOTE 4) (QUOTE 32) *2*TEMP20) (*1*AND (*1*PROPERP (SETQ *2*TEMP18 (*1*CAR (SETQ *2*TEMP17 (*1*CDR (*1*CDR *2*TEMP19)))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP18) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP16 (*1*CAR (*1*CDR *2*TEMP17)))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP16) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP15 (*1*CAR (SETQ *2*TEMP14 (*1*CDR *3*MACHINE-STATE))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP15) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP13 (*1*CAR (SETQ *2*TEMP12 (*1*CDR *2*TEMP14))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP13) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *2*TEMP12))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP11) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CDR *2*TEMP10))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP9) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP7 (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP8))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP7) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CDR *2*TEMP6))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP5) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR (*1*CDR (*1*CDR (*1*CDR *2*TEMP4)))))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP3) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 40)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*CHIP*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (*1*APPEND (SETQ *2*TEMP13 (*1*INDICES (QUOTE PC-REG-IN) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP12 (*1*INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)))))))))))) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (*1*APPEND (SETQ *2*TEMP11 (*1*INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND *2*TEMP12 (*1*APPEND (SETQ *2*TEMP10 (*1*INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4))) (*1*APPEND (SETQ *2*TEMP9 (*1*INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5))) (SETQ *2*TEMP8 (*1*INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4))))))))))))) (CONS (CONS (CONS (QUOTE BODY) (CONS (CONS (QUOTE I-TO) (CONS (QUOTE I-TIMING) (CONS (QUOTE I-HDACK-) (CONS (QUOTE I-EN-ADDR-OUT-) (CONS (QUOTE I-RW-) (CONS (QUOTE I-STROBE-) (*1*APPEND (SETQ *2*TEMP7 (*1*INDICES (QUOTE I-ADDR-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP6 (*1*INDICES (QUOTE I-DATA-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP5 (*1*INDICES (QUOTE I-FLAGS) (QUOTE 0) (QUOTE 4))) (*1*APPEND (SETQ *2*TEMP4 (*1*INDICES (QUOTE I-CNTL-STATE) (QUOTE 0) (QUOTE 5))) (SETQ *2*TEMP3 (*1*INDICES (QUOTE I-I-REG) (QUOTE 28) (QUOTE 4))))))))))))) (CONS (QUOTE CHIP-MODULE) (CONS (CONS (QUOTE I-CLK) (CONS (QUOTE I-TI) (CONS (QUOTE I-TE) (CONS (QUOTE I-DTACK-) (CONS (QUOTE I-RESET-) (CONS (QUOTE I-HOLD-) (CONS (QUOTE I-DISABLE-REGFILE-) (CONS (QUOTE I-TEST-REGFILE-) (*1*APPEND (SETQ *2*TEMP2 (*1*INDICES (QUOTE I-PC-REG) (QUOTE 0) (QUOTE 4))) (SETQ *2*TEMP1 (*1*INDICES (QUOTE I-DATA-IN) (QUOTE 0) (QUOTE 32)))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PLUS-5 (B-TRUE-P) VDD-PARAMETRIC NIL)) (CONS (QUOTE (CLOCK-PAD (I-CLK CLK-PO) TTL-CLK-INPUT (CLK B-TRUE-P))) (CONS (QUOTE (TI-PAD (I-TI TI-PO) TTL-INPUT (TI B-TRUE-P))) (CONS (QUOTE (TE-PAD (I-TE TE-PO) TTL-INPUT (TE TI-PO))) (CONS (QUOTE (DTACK-PAD (I-DTACK- DTACK-PO) TTL-INPUT (DTACK- TE-PO))) (CONS (QUOTE (RESET-PAD (I-RESET- RESET-PO) TTL-INPUT (RESET- DTACK-PO))) (CONS (QUOTE (HOLD-PAD (I-HOLD- HOLD-PO) TTL-INPUT (HOLD- RESET-PO))) (CONS (QUOTE (DISABLE-REGFILE-PAD (I-DISABLE-REGFILE- DISABLE-REGFILE-PO) TTL-INPUT (DISABLE-REGFILE- HOLD-PO))) (CONS (QUOTE (TEST-REGFILE-PAD (I-TEST-REGFILE- TEST-REGFILE-PO) TTL-INPUT (TEST-REGFILE- DISABLE-REGFILE-PO))) (CONS (CONS (QUOTE DATA-BUS-PADS) (CONS (CONS (QUOTE DATA-BUS-PO) (*1*APPEND *2*TEMP12 *2*TEMP1)) (CONS (QUOTE (*1*QUOTE INDEX TTL-BIDIRECT-PADS 32)) (CONS (CONS (QUOTE I-RW-) (CONS (QUOTE TEST-REGFILE-PO) (*1*APPEND *2*TEMP12 *2*TEMP6))) (QUOTE NIL))))) (CONS (CONS (QUOTE PC-REG-PADS) (CONS (CONS (QUOTE PC-REG-PO) *2*TEMP2) (CONS (QUOTE (*1*QUOTE INDEX TTL-INPUT-PADS 4)) (CONS (CONS (QUOTE DATA-BUS-PO) *2*TEMP13) (QUOTE NIL))))) (CONS (QUOTE (MONITOR (I-PO) PROCMON (PC-REG-PO CLK-PO B-TRUE-P B-TRUE-P))) (CONS (QUOTE (PO-PAD (PO) TTL-OUTPUT-PARAMETRIC (I-PO))) (CONS (QUOTE (TO-PAD (TO) TTL-OUTPUT (I-TO))) (CONS (QUOTE (TIMING-PAD (TIMING) TTL-OUTPUT-FAST (I-TIMING))) (CONS (QUOTE (HDACK-PAD (HDACK-) TTL-OUTPUT-FAST (I-HDACK-))) (CONS (QUOTE (RW-PAD (RW-) TTL-TRI-OUTPUT-FAST (I-RW- I-EN-ADDR-OUT-))) (CONS (QUOTE (STROBE-PAD (STROBE-) TTL-TRI-OUTPUT-FAST (I-STROBE- I-EN-ADDR-OUT-))) (CONS (CONS (QUOTE ADDR-OUT-PADS) (CONS *2*TEMP11 (CONS (QUOTE (*1*QUOTE INDEX TTL-TRI-OUTPUT-PADS 32)) (CONS (CONS (QUOTE I-EN-ADDR-OUT-) *2*TEMP7) (QUOTE NIL))))) (CONS (CONS (QUOTE FLAGS-PADS) (CONS *2*TEMP10 (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS *2*TEMP5 (QUOTE NIL))))) (CONS (CONS (QUOTE CNTL-STATE-PADS) (CONS *2*TEMP9 (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 5)) (CONS *2*TEMP4 (QUOTE NIL))))) (CONS (CONS (QUOTE I-REG-PADS) (CONS *2*TEMP8 (CONS (QUOTE (*1*QUOTE INDEX TTL-OUTPUT-PADS 4)) (CONS *2*TEMP3 (QUOTE NIL))))) (QUOTE NIL)))))))))))))))))))))))) (QUOTE (BODY))))))))))) (PUT1-LST (QUOTE *1*CHIP&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CHIP) *3*NETLIST) (*1*CHIP*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*VDD-PARAMETRIC& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CHIP) *3*NETLIST))) (*1*AND (*1*TTL-CLK-INPUT& *2*TEMP1) (*1*AND (*1*TTL-INPUT& *2*TEMP1) (*1*AND (*1*TTL-INPUT-PADS& *2*TEMP1 (QUOTE 4)) (*1*AND (*1*CHIP-MODULE& *2*TEMP1) (*1*AND (*1*TTL-BIDIRECT-PADS& *2*TEMP1 (QUOTE 32)) (*1*AND (*1*TTL-OUTPUT-PARAMETRIC& *2*TEMP1) (*1*AND (*1*TTL-OUTPUT& *2*TEMP1) (*1*AND (*1*TTL-OUTPUT-FAST& *2*TEMP1) (*1*AND (*1*TTL-TRI-OUTPUT-FAST& *2*TEMP1) (*1*AND (*1*TTL-TRI-OUTPUT-PADS& *2*TEMP1 (QUOTE 32)) (*1*AND (*1*TTL-OUTPUT-PADS& *2*TEMP1 (QUOTE 4)) (*1*AND (*1*TTL-OUTPUT-PADS& *2*TEMP1 (QUOTE 5)) (*1*PROCMON& *2*TEMP1)))))))))))))))))))) (PUT1-LST (QUOTE *1*CHIP$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CHIP*) (*1*UNION (*1*UNION (*1*UNION (*1*UNION (*1*TTL-BIDIRECT-PADS$NETLIST (QUOTE 32)) (*1*CHIP-MODULE$NETLIST)) (*1*UNION (*1*TTL-INPUT$NETLIST) (*1*TTL-INPUT-PADS$NETLIST (QUOTE 4)))) (*1*UNION (*1*UNION (*1*TTL-CLK-INPUT$NETLIST) (*1*VDD-PARAMETRIC$NETLIST)) (*1*UNION (*1*TTL-OUTPUT-PARAMETRIC$NETLIST) (*1*TTL-OUTPUT$NETLIST)))) (*1*UNION (*1*UNION (*1*UNION (*1*TTL-OUTPUT-FAST$NETLIST) (*1*TTL-TRI-OUTPUT-FAST$NETLIST)) (*1*UNION (*1*TTL-TRI-OUTPUT-PADS$NETLIST (QUOTE 32)) (*1*TTL-OUTPUT-PADS$NETLIST (QUOTE 4)))) (*1*UNION (*1*TTL-OUTPUT-PADS$NETLIST (QUOTE 5)) (*1*PROCMON$NETLIST))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM*) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (CONS (QUOTE CHIP-SYSTEM) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (SETQ *2*TEMP7 (*1*INDICES (QUOTE PC-REG) (QUOTE 0) (QUOTE 4)))))))))) (CONS (QUOTE NIL) (CONS (CONS (CONS (QUOTE FM9001) (CONS (CONS (QUOTE PO) (CONS (QUOTE TO) (CONS (QUOTE TIMING) (CONS (QUOTE HDACK-) (CONS (QUOTE RW-) (CONS (QUOTE STROBE-) (*1*APPEND (SETQ *2*TEMP6 (*1*INDICES (QUOTE ADDR-OUT) (QUOTE 0) (QUOTE 32))) (*1*APPEND (SETQ *2*TEMP5 (*1*INDICES (QUOTE FM9001-DATA) (QUOTE 0) (QUOTE 32))) (*1*APPEND (*1*INDICES (QUOTE FLAGS) (QUOTE 0) (QUOTE 4)) (*1*APPEND (*1*INDICES (QUOTE CNTL-STATE) (QUOTE 0) (QUOTE 5)) (*1*INDICES (QUOTE I-REG) (QUOTE 28) (QUOTE 4)))))))))))) (CONS (QUOTE CHIP) (CONS (CONS (QUOTE CLK) (CONS (QUOTE TI) (CONS (QUOTE TE) (CONS (QUOTE DTACK-) (CONS (QUOTE RESET-) (CONS (QUOTE HOLD-) (CONS (QUOTE DISABLE-REGFILE-) (CONS (QUOTE TEST-REGFILE-) (*1*APPEND *2*TEMP7 (SETQ *2*TEMP4 (*1*INDICES (QUOTE DATA-BUS) (QUOTE 0) (QUOTE 32)))))))))))) (QUOTE NIL))))) (CONS (QUOTE (PULLUP-RW- (RW-BUS) PULLUP (RW-))) (CONS (QUOTE (PULLUP-STROBE- (STROBE-BUS) PULLUP (STROBE-))) (CONS (CONS (QUOTE ADDRESS) (CONS (SETQ *2*TEMP3 (*1*INDICES (QUOTE ADDR-BUS) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS *2*TEMP6 (QUOTE NIL))))) (CONS (CONS (QUOTE MEM) (CONS (CONS (QUOTE DTACK-) (SETQ *2*TEMP2 (*1*INDICES (QUOTE MEM-DATA) (QUOTE 0) (QUOTE 32)))) (CONS (QUOTE MEM-32X32) (CONS (CONS (QUOTE RW-BUS) (CONS (QUOTE STROBE-BUS) (*1*APPEND *2*TEMP3 *2*TEMP4))) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA-WIRE) (CONS (SETQ *2*TEMP1 (*1*INDICES (QUOTE DATA-WIRE) (QUOTE 0) (QUOTE 32))) (CONS (QUOTE (*1*QUOTE INDEX V-WIRE 32)) (CONS (*1*APPEND *2*TEMP5 *2*TEMP2) (QUOTE NIL))))) (CONS (CONS (QUOTE DATA) (CONS *2*TEMP4 (CONS (QUOTE (*1*QUOTE INDEX V-PULLUP 32)) (CONS *2*TEMP1 (QUOTE NIL))))) (QUOTE NIL)))))))) (QUOTE ((FM9001 MEM)))))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM&) (QUOTE (SEXPR (LAMBDA (*3*NETLIST) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LOOKUP-MODULE (QUOTE CHIP-SYSTEM) *3*NETLIST) (*1*CHIP-SYSTEM*)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*CHIP& (SETQ *2*TEMP1 (*1*DELETE-MODULE (QUOTE CHIP-SYSTEM) *3*NETLIST))) (*1*AND (*1*PULLUP& *2*TEMP1) (*1*AND (*1*V-PULLUP& *2*TEMP1 (QUOTE 32)) (*1*AND (*1*MEM-32X32& *2*TEMP1) (*1*V-WIRE& *2*TEMP1 (QUOTE 32)))))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM$NETLIST) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*CHIP-SYSTEM*) (*1*UNION (*1*PULLUP$NETLIST) (*1*UNION (*1*V-PULLUP$NETLIST (QUOTE 32)) (*1*UNION (*1*MEM-32X32$NETLIST) (*1*UNION (*1*V-WIRE$NETLIST (QUOTE 32)) (*1*CHIP$NETLIST)))))))))) (PUT1-LST (QUOTE *1*MEMORY-STATE-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*MEM-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*MEMORY-PROPERP (QUOTE 32) (QUOTE 32) (*1*CAR *3*MEM-STATE)) (*1*AND (*1*PROPERP (*1*CAR (SETQ *2*TEMP2 (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*MEM-STATE))))))))) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*AND (*1*MACHINE-STATE-INVARIANT (*1*CAR *3*STATE)) (*1*MEMORY-STATE-INVARIANT (*1*CAR (*1*CDR *3*STATE)))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-INPUT-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*INPUTS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP4 (*1*CDR (*1*CDR *3*INPUTS)))) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP3 (*1*CDR (*1*CDR (*1*CDR *2*TEMP4))))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP3))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM-OPERATING-INPUTS-P) (QUOTE (SEXPR (LAMBDA (*3*INPUTS *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*CHIP-SYSTEM-INPUT-INVARIANT (*1*CAR *3*INPUTS)) (*1*CHIP-SYSTEM-OPERATING-INPUTS-P (*1*CDR *3*INPUTS) (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*MAP-UP-1-INPUT) (QUOTE (SEXPR (LAMBDA (*3*INPUTS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*CAR (SETQ *2*TEMP2 (*1*CDR (*1*CDR (*1*CDR *3*INPUTS))))) (CONS (*1*CAR (SETQ *2*TEMP1 (*1*CDR *2*TEMP2))) (*1*CDR (*1*CDR (*1*CDR *2*TEMP1)))))))))) (PUT1-LST (QUOTE *1*MAP-UP-INPUTS) (QUOTE (SEXPR (LAMBDA (*3*INPUTS) (COND ((NOT (EQ (*1*NLISTP *3*INPUTS) *1*F)) (QUOTE NIL)) (T (CONS (*1*MAP-UP-1-INPUT (*1*CAR *3*INPUTS)) (*1*MAP-UP-INPUTS (*1*CDR *3*INPUTS))))))))) (PUT1-LST (QUOTE *1*CHIP-SYSTEM=RUN-FM9001$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*INPUTS *3*FM9001-INPUTS *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*CHIP-SYSTEM=RUN-FM9001$INDUCTION (*1*FM9001-NEXT-STATE *3*STATE (*1*CAR *3*FM9001-INPUTS)) (*1*CDR *3*INPUTS) (*1*CDR *3*FM9001-INPUTS) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*RUN-INPUTS-P) (QUOTE (SEXPR (LAMBDA (*3*INPUTS *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQ (*1*RESET--INPUT (SETQ *2*TEMP2 (*1*CAR *3*INPUTS))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*PC-REG-INPUT *2*TEMP2))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*RUN-INPUTS-P (*1*CDR *3*INPUTS) (*1*SUB1 *3*N)))))))))))) (PUT1-LST (QUOTE *1*REGFILE-OKP) (QUOTE (SEXPR (LAMBDA (*3*REGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LENGTH *3*REGS) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*MEMORY-OKP (QUOTE 4) (QUOTE 32) (SETQ *2*TEMP5 (*1*CAR *3*REGS))) (*1*AND (*1*ALL-RAMP-MEM (QUOTE 4) *2*TEMP5) (*1*AND (*1*BOOLP (*1*CAR (SETQ *2*TEMP4 (*1*CDR *3*REGS)))) (*1*AND (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))))) (COND ((EQUAL (*1*LENGTH *2*TEMP3) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*BVP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))))))) (PUT1-LST (QUOTE *1*READ-FN) (QUOTE (SEXPR (LAMBDA (*3*REG0 *3*REG1 *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*REG0) (T (*1*READ-FN *3*REG1 *3*REG1 (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*FETCH3$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*CLOCK *3*COUNT *3*INPUTS *3*REGS *3*A-REG *3*B-REG *3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS *3*LAST-DATA) (PROGN *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*FETCH3$INDUCTION (*1*SUB1 *3*N) *3*CLOCK (*1*SUB1 *3*COUNT) (*1*CDR *3*INPUTS) (*1*WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) *3*REGS (QUOTE 0)) *3*A-REG *3*B-REG (QUOTE *1*TRUE) *3*REGS-ADDRESS (*1*READ-REGS *3*PC-REG *3*REGS) *3*FLAGS *3*PC-REG *3*RW- *3*PC-REG *3*I-REG *3*FLAGS (*1*V-THREEFIX *3*LAST-DATA))))))))) (PUT1-LST (QUOTE *1*READA3$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*CLOCK *3*COUNT *3*INPUTS *3*REGS *3*A-REG *3*B-REG *3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS *3*LAST-DATA) (PROGN *3*A-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*READA3$INDUCTION (*1*SUB1 *3*N) *3*CLOCK (*1*SUB1 *3*COUNT) (*1*CDR *3*INPUTS) (*1*WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) *3*REGS (QUOTE 0)) (*1*READ-REGS *3*PC-REG *3*REGS) *3*B-REG (QUOTE *1*TRUE) *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*RW- *3*PC-REG *3*I-REG *3*FLAGS (*1*V-THREEFIX *3*LAST-DATA))))))))) (PUT1-LST (QUOTE *1*READB3$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*CLOCK *3*COUNT *3*INPUTS *3*REGS *3*A-REG *3*B-REG *3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS *3*LAST-DATA) (PROGN *3*B-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*READB3$INDUCTION (*1*SUB1 *3*N) *3*CLOCK (*1*SUB1 *3*COUNT) (*1*CDR *3*INPUTS) (*1*WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) *3*REGS (QUOTE 0)) *3*A-REG (*1*READ-REGS *3*PC-REG *3*REGS) (QUOTE *1*TRUE) *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*RW- *3*PC-REG *3*I-REG *3*FLAGS (*1*V-THREEFIX *3*LAST-DATA))))))))) (PUT1-LST (QUOTE *1*WRITE3$INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*CLOCK *3*COUNT *3*INPUTS *3*REGS *3*A-REG *3*B-REG *3*RW- *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS *3*LAST-DATA) (PROGN *3*LAST-RW- *3*LAST-REGS-ADDRESS *3*LAST-I-REG *3*LAST-FLAGS (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*WRITE3$INDUCTION (*1*SUB1 *3*N) *3*CLOCK (*1*SUB1 *3*COUNT) (*1*CDR *3*INPUTS) (*1*WRITE-REGS (QUOTE *1*FALSE) (QUOTE 0) *3*REGS (QUOTE 0)) *3*A-REG *3*B-REG (QUOTE *1*FALSE) *3*REGS-ADDRESS *3*I-REG *3*FLAGS *3*PC-REG *3*RW- *3*PC-REG *3*I-REG *3*FLAGS (*1*V-THREEFIX *3*LAST-DATA))))))))) (PUT1-LST (QUOTE *1*ZEROP-NOT-ZEROP-CASES) (QUOTE (SEXPR (LAMBDA (*3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*NOT *2*TEMP1) *1*F)) (QUOTE *1*TRUE)) (T (*1*ZEROP-NOT-ZEROP-CASES *3*N)))))))) (PUT1-LST (QUOTE *1*T_FETCH0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (PROGN *3*CLOCK *3*I-REG *3*FLAGS (QUOTE 1)))))) (PUT1-LST (QUOTE *1*T_SEFB1) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (*1*PLUS (QUOTE 1) (*1*T_FETCH0 *3*CLOCK *3*I-REG *3*FLAGS)))))) (PUT1-LST (QUOTE *1*T_SEFB0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (*1*PLUS (QUOTE 2) (*1*T_FETCH0 *3*CLOCK *3*I-REG *3*FLAGS)))))) (PUT1-LST (QUOTE *1*T_SEFA0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*PLUS (QUOTE 2) (COND ((NOT (EQ (*1*OR* (*1*PRE-DEC-P (SETQ *2*TEMP1 (*1*MODE-B *3*I-REG))) (*1*POST-INC-P *2*TEMP1)) *1*F)) (*1*T_SEFB0 *3*CLOCK *3*I-REG *3*FLAGS)) (T (*1*T_FETCH0 *3*CLOCK *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_WRITE0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (*1*PLUS (*1*ADD1 (*1*ADD1 (*1*ADD1 (*1*PLUS (*1*CAR *3*CLOCK) (QUOTE 1))))) (*1*T_FETCH0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)))))) (PUT1-LST (QUOTE *1*T_UPDATE) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*PLUS (QUOTE 1) (COND ((NOT (EQ (*1*B-AND (*1*OR* (*1*PRE-DEC-P (SETQ *2*TEMP1 (*1*MODE-B *3*I-REG))) (*1*POST-INC-P *2*TEMP1)) (*1*UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG))) *1*F)) (*1*T_SEFB1 *3*CLOCK *3*I-REG *3*FLAGS)) (T (*1*T_FETCH0 *3*CLOCK *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_READB0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET NIL (*1*PLUS (*1*ADD1 (*1*ADD1 (*1*ADD1 (*1*PLUS (*1*CAR *3*CLOCK) (QUOTE 1))))) (COND ((NOT (EQ (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) *1*F)) (*1*T_WRITE0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) (T (*1*T_UPDATE (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_READA0) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET NIL (*1*PLUS (*1*ADD1 (*1*ADD1 (*1*ADD1 (*1*PLUS (*1*CAR *3*CLOCK) (QUOTE 1))))) (COND ((NOT (EQ (*1*REG-DIRECT-P (*1*MODE-B *3*I-REG)) *1*F)) (*1*T_UPDATE (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) ((NOT (EQ (*1*UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG)) *1*F)) (COND ((NOT (EQ (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) *1*F)) (*1*T_WRITE0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) (T (*1*T_UPDATE (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)))) (T (*1*T_READB0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_REGB) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*PLUS (QUOTE 2) (COND ((NOT (EQ (*1*B-AND (*1*OR* (*1*PRE-DEC-P (SETQ *2*TEMP1 (*1*MODE-B *3*I-REG))) (*1*POST-INC-P *2*TEMP1)) (*1*UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG))) *1*F)) (*1*T_SEFB1 *3*CLOCK *3*I-REG *3*FLAGS)) (T (*1*T_FETCH0 *3*CLOCK *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_REGA) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET NIL (*1*PLUS (QUOTE 1) (COND ((NOT (EQ (*1*REG-DIRECT-P (*1*MODE-B *3*I-REG)) *1*F)) (COND ((NOT (EQ (*1*UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG)) *1*F)) (*1*T_UPDATE *3*CLOCK *3*I-REG *3*FLAGS)) (T (*1*T_REGB *3*CLOCK *3*I-REG *3*FLAGS)))) ((NOT (EQ (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) *1*F)) (*1*T_WRITE0 *3*CLOCK *3*I-REG *3*FLAGS)) (T (*1*T_UPDATE *3*CLOCK *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*T_FETCH1) (QUOTE (SEXPR (LAMBDA (*3*CLOCK *3*I-REG *3*FLAGS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*PLUS (*1*ADD1 (*1*ADD1 (*1*PLUS (*1*CAR *3*CLOCK) (QUOTE 2)))) (COND ((NOT (EQ (*1*B-OR (*1*STORE-RESULTP (*1*STORE-CC *3*I-REG) *3*FLAGS) (*1*SET-SOME-FLAGS (*1*SET-FLAGS *3*I-REG))) *1*F)) (COND ((NOT (EQ (*1*OR* (*1*A-IMMEDIATE-P *3*I-REG) (*1*REG-DIRECT-P (*1*MODE-A *3*I-REG))) *1*F)) (COND ((NOT (EQ (*1*B-OR (*1*REG-DIRECT-P (*1*MODE-B *3*I-REG)) (*1*UNARY-OP-CODE-P (*1*OP-CODE *3*I-REG))) *1*F)) (*1*T_REGA (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) (T (*1*T_READB0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)))) (T (*1*T_READA0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)))) ((NOT (EQ (*1*AND* (*1*NOT* (*1*A-IMMEDIATE-P *3*I-REG)) (*1*OR* (*1*PRE-DEC-P (SETQ *2*TEMP2 (*1*MODE-A *3*I-REG))) (*1*POST-INC-P *2*TEMP2))) *1*F)) (*1*T_SEFA0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) ((NOT (EQ (*1*OR* (*1*PRE-DEC-P (SETQ *2*TEMP1 (*1*MODE-B *3*I-REG))) (*1*POST-INC-P *2*TEMP1)) *1*F)) (*1*T_SEFB0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS)) (T (*1*T_FETCH0 (*1*CDR *3*CLOCK) *3*I-REG *3*FLAGS))))))))) (PUT1-LST (QUOTE *1*OPERATING-INPUTS-P) (QUOTE (SEXPR (LAMBDA (*3*INPUTS *3*N) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQ (*1*RESET--INPUT (SETQ *2*TEMP2 (*1*CAR *3*INPUTS))) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*HOLD--INPUT *2*TEMP2) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP1 (*1*PC-REG-INPUT *2*TEMP2))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OPERATING-INPUTS-P (*1*CDR *3*INPUTS) (*1*SUB1 *3*N))))))))))))) (PUT1-LST (QUOTE *1*MICROCYCLES) (QUOTE (SEXPR (LAMBDA (*3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*T_FETCH1 (*1*CAR (*1*CDR (*1*CDR (SETQ *2*TEMP3 (*1*CAR (*1*CDR *3*STATE)))))) (*1*READ-MEM (*1*READ-MEM (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*CAR *3*STATE)))))))))))))) (*1*CAR (*1*CAR *2*TEMP1))) (*1*CAR *2*TEMP3)) (*1*CAR *2*TEMP2))))))) (PUT1-LST (QUOTE *1*TOTAL-MICROCYCLES) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*INPUTS *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*PLUS (SETQ *2*TEMP1 (*1*MICROCYCLES *3*STATE)) (*1*TOTAL-MICROCYCLES (*1*RUN-FM9001 *3*STATE *3*INPUTS *2*TEMP1) (*1*NTHCDR *2*TEMP1 *3*INPUTS) (*1*SUB1 *3*N)))))))))) (PUT1-LST (QUOTE *1*MACROCYCLE-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X)) (*2*TEMP25 (QUOTE *1*X)) (*2*TEMP26 (QUOTE *1*X)) (*2*TEMP27 (QUOTE *1*X)) (*2*TEMP28 (QUOTE *1*X)) (*2*TEMP29 (QUOTE *1*X)) (*2*TEMP30 (QUOTE *1*X)) (*2*TEMP31 (QUOTE *1*X))) (*1*AND (*1*ALL-RAMP-MEM (QUOTE 4) (SETQ *2*TEMP31 (*1*CAR (SETQ *2*TEMP30 (*1*CAR (SETQ *2*TEMP29 (*1*CAR *3*STATE))))))) (*1*AND (*1*MEMORY-OKP (QUOTE 4) (QUOTE 32) *2*TEMP31) (*1*AND (COND ((EQ (*1*CAR (SETQ *2*TEMP28 (*1*CDR *2*TEMP30))) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP27 (*1*CAR (SETQ *2*TEMP26 (*1*CDR *2*TEMP28))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP27) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP25 (*1*CAR (*1*CDR *2*TEMP26)))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP25) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP24 (*1*CAR (SETQ *2*TEMP23 (*1*CDR *2*TEMP29))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP24) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR (SETQ *2*TEMP22 (*1*CDR *2*TEMP23))) (SETQ *2*TEMP21 (*1*READ-REGS (SETQ *2*TEMP20 (*1*CAR (SETQ *2*TEMP19 (*1*CDR (SETQ *2*TEMP18 (*1*CDR (SETQ *2*TEMP17 (*1*CDR (SETQ *2*TEMP16 (*1*CDR (SETQ *2*TEMP15 (*1*CDR (SETQ *2*TEMP14 (*1*CDR (SETQ *2*TEMP13 (*1*CDR (SETQ *2*TEMP12 (*1*CDR *2*TEMP22)))))))))))))))))) *2*TEMP30))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP11 (*1*CAR *2*TEMP12))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP11) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP10 (*1*CAR *2*TEMP13))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP10) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP (SETQ *2*TEMP9 (*1*CAR *2*TEMP14))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP9) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR *2*TEMP15) *2*TEMP21) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQ (*1*CAR *2*TEMP16) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BOOLP (*1*CAR *2*TEMP17)) (*1*AND (COND ((EQ (*1*CAR *2*TEMP18) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*BVP *2*TEMP20) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP20) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL *2*TEMP20 *3*PC) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR (*1*CDR *2*TEMP19)) (*1*CV_FETCH1 (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR (*1*CDR (SETQ *2*TEMP6 (*1*CDR (*1*CDR (SETQ *2*TEMP5 (*1*CDR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *3*STATE))))))))))))) *2*TEMP20 *2*TEMP10 *2*TEMP24 *2*TEMP20)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*MEMORY-OKP (QUOTE 32) (QUOTE 32) (*1*CAR *2*TEMP4)) (*1*AND (COND ((EQUAL (*1*CAR *2*TEMP5) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*NUMBERP (*1*CAR *2*TEMP6)) (*1*AND (*1*BOOLP *2*TEMP8) (*1*AND (*1*BVP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP7))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP3) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*MACROCYCLE-INVARIANT*) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC) (*1*MACROCYCLE-INVARIANT *3*STATE *3*PC))))) (PUT1-LST (QUOTE *1*P-MAP-UP) (QUOTE (SEXPR (LAMBDA (*3*P-STATE) (CONS (*1*CAR (*1*REGS *3*P-STATE)) (CONS (*1*FLAGS *3*P-STATE) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MEM-MAP-UP) (QUOTE (SEXPR (LAMBDA (*3*MEM-STATE) (*1*CAR *3*MEM-STATE))))) (PUT1-LST (QUOTE *1*MAP-UP) (QUOTE (SEXPR (LAMBDA (*3*STATE) (CONS (*1*P-MAP-UP (*1*CAR *3*STATE)) (CONS (*1*MEM-MAP-UP (*1*CAR (*1*CDR *3*STATE))) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*FM9001-STEP*) (QUOTE (SEXPR (LAMBDA (*3*STATE *3*PC-REG) (*1*FM9001-STEP *3*STATE *3*PC-REG))))) (PUT1-LST (QUOTE *1*MAP-DOWN-RELATION) (QUOTE (SEXPR (LAMBDA (*3*HIGH-LEVEL-STATE *3*LOW-LEVEL-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*REGS (SETQ *2*TEMP2 (*1*CAR *3*HIGH-LEVEL-STATE))) (*1*CAR (*1*REGS (SETQ *2*TEMP1 (*1*CAR *3*LOW-LEVEL-STATE))))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*FLAGS *2*TEMP2) (*1*FLAGS *2*TEMP1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*CAR (*1*CDR *3*HIGH-LEVEL-STATE)) (*1*CAR (*1*CAR (*1*CDR *3*LOW-LEVEL-STATE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*HIGH-LEVEL-STATE-STRUCTURE) (QUOTE (SEXPR (LAMBDA (*3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*PROPERP *3*STATE) (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*CAR *3*STATE))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL (*1*LENGTH *3*STATE) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))) (PUT1-LST (QUOTE *1*FM9001-MACHINE-STATEP) (QUOTE (SEXPR (LAMBDA (*3*P-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*PROPERP *3*P-STATE) (*1*AND (COND ((EQUAL (*1*LENGTH *3*P-STATE) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*ALL-RAMP-MEM (QUOTE 4) (SETQ *2*TEMP2 (*1*CAR *3*P-STATE))) (*1*AND (*1*MEMORY-OKP (QUOTE 4) (QUOTE 32) *2*TEMP2) (*1*AND (*1*BVP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *3*P-STATE)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))) (PUT1-LST (QUOTE *1*FM9001-STATEP) (QUOTE (SEXPR (LAMBDA (*3*STATE) (*1*AND (*1*PROPERP *3*STATE) (*1*AND (COND ((EQUAL (*1*LENGTH *3*STATE) (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*FM9001-MACHINE-STATEP (*1*CAR *3*STATE)) (*1*MEMORY-OKP (QUOTE 32) (QUOTE 32) (*1*CAR (*1*CDR *3*STATE)))))))))) (PUT1-LST (QUOTE *1*P-MAP-DOWN) (QUOTE (SEXPR (LAMBDA (*3*P-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (CONS (CONS (SETQ *2*TEMP4 (*1*CAR *3*P-STATE)) (CONS (QUOTE *1*FALSE) (CONS (SETQ *2*TEMP3 (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (SETQ *2*TEMP2 (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (QUOTE NIL))))) (CONS (*1*CAR (*1*CDR *3*P-STATE)) (CONS (SETQ *2*TEMP1 (*1*READ-MEM *2*TEMP2 *2*TEMP4)) (CONS *2*TEMP3 (CONS *2*TEMP3 (CONS *2*TEMP3 (CONS *2*TEMP1 (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS *2*TEMP2 (CONS (*1*CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) *2*TEMP3 (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) *2*TEMP2) (QUOTE NIL)))))))))))))))))) (PUT1-LST (QUOTE *1*MEM-MAP-DOWN) (QUOTE (SEXPR (LAMBDA (*3*MEMORY) (CONS *3*MEMORY (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)) (CONS (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL))))))))))))) (PUT1-LST (QUOTE *1*MAP-DOWN) (QUOTE (SEXPR (LAMBDA (*3*STATE) (CONS (*1*P-MAP-DOWN (*1*CAR *3*STATE)) (CONS (*1*MEM-MAP-DOWN (*1*CAR (*1*CDR *3*STATE))) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*NO-HOLDS-RESET-OR-TEST) (QUOTE (SEXPR (LAMBDA (*3*I *3*C) (*1*AND (*1*CHIP-SYSTEM-OPERATING-INPUTS-P *3*I *3*C) (*1*OPERATING-INPUTS-P (*1*MAP-UP-INPUTS *3*I) *3*C)))))) (PUT1-LST (QUOTE *1*B-KNOWNP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQ *3*X (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*OR (COND ((EQ *3*X (QUOTE *1*FALSE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (QUOTE (*1*QUOTE Z))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*B-APPROX) (QUOTE (SEXPR (LAMBDA (*3*A1 *3*A2) (COND ((NOT (EQ (*1*B-KNOWNP *3*A1) *1*F)) (COND ((EQUAL *3*A1 *3*A2) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*V-APPROX) (QUOTE (SEXPR (LAMBDA (*3*V1 *3*V2) (COND ((AND (CONSP *3*V1) (NOT (EQ (CAR *3*V1) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*V2) (NOT (EQ (CAR *3*V2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-APPROX (CAR *3*V1) (*1*CAR *3*V2)) (*1*V-APPROX (CDR *3*V1) (*1*CDR *3*V2))))) ((EQUAL *3*V1 *3*V2) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V-KNOWNP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (*1*B-KNOWNP (CAR *3*X)) (*1*V-KNOWNP (CDR *3*X)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*MEM-WIDTH) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 32))))) (PUT1-LST (QUOTE *1*S-APPROX) (QUOTE (SEXPR (LAMBDA (*3*S1 *3*S2) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (COND ((SETQ *2*TEMP8 (AND (CONSP *3*S1) (NOT (EQ (CAR *3*S1) (QUOTE *1*QUOTE))))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((SETQ *2*TEMP7 (AND (CONSP *3*S2) (NOT (EQ (CAR *3*S2) (QUOTE *1*QUOTE))))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND (*2*TEMP8 (COND (*2*TEMP7 (*1*AND (*1*S-APPROX (CAR *3*S1) (CAR *3*S2)) (*1*S-APPROX (CDR *3*S1) (CDR *3*S2)))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*OR (COND ((EQ *3*S1 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ *3*S2 (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((EQUAL *3*S1 *3*S2) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*OR (SETQ *2*TEMP6 (*1*RAMP *3*S1)) (SETQ *2*TEMP5 (*1*RAMP *3*S2))) *1*F)) (COND ((NOT (EQ *2*TEMP6 *1*F)) (COND ((NOT (EQ *2*TEMP5 *1*F)) (*1*V-APPROX (*1*RAM-GUTS *3*S1) (*1*RAM-GUTS *3*S2))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*OR (SETQ *2*TEMP4 (*1*ROMP *3*S1)) (SETQ *2*TEMP3 (*1*ROMP *3*S2))) *1*F)) (COND ((NOT (EQ *2*TEMP4 *1*F)) (COND ((NOT (EQ *2*TEMP3 *1*F)) (*1*V-APPROX (*1*ROM-GUTS *3*S1) (*1*ROM-GUTS *3*S2))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*OR (SETQ *2*TEMP2 (*1*STUBP *3*S1)) (SETQ *2*TEMP1 (*1*STUBP *3*S2))) *1*F)) (COND ((NOT (EQ *2*TEMP2 *1*F)) (COND ((NOT (EQ *2*TEMP1 *1*F)) (*1*V-APPROX (*1*STUB-GUTS *3*S1) (*1*STUB-GUTS *3*S2))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*FALSE)))) (T (*1*B-APPROX *3*S1 *3*S2)))))))) (PUT1-LST (QUOTE *1*GOOD-S) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((AND (CONSP *3*S) (NOT (EQ (CAR *3*S) (QUOTE *1*QUOTE)))) (*1*AND (*1*GOOD-S (CAR *3*S)) (*1*GOOD-S (CDR *3*S)))) ((NOT (EQ (*1*RAMP *3*S) *1*F)) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP3 (*1*RAM-GUTS *3*S))) (*1*MEM-WIDTH)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*PROPERP *2*TEMP3))) ((NOT (EQ (*1*ROMP *3*S) *1*F)) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP2 (*1*ROM-GUTS *3*S))) (*1*MEM-WIDTH)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*PROPERP *2*TEMP2))) ((NOT (EQ (*1*STUBP *3*S) *1*F)) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP1 (*1*STUB-GUTS *3*S))) (*1*MEM-WIDTH)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*PROPERP *2*TEMP1))) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*S-KNOWNP) (QUOTE (SEXPR (LAMBDA (*3*S) (COND ((AND (CONSP *3*S) (NOT (EQ (CAR *3*S) (QUOTE *1*QUOTE)))) (*1*AND (*1*S-KNOWNP (CAR *3*S)) (*1*S-KNOWNP (CDR *3*S)))) ((EQ *3*S (QUOTE NIL)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*RAMP *3*S) *1*F)) (*1*V-KNOWNP (*1*RAM-GUTS *3*S))) ((NOT (EQ (*1*ROMP *3*S) *1*F)) (*1*V-KNOWNP (*1*ROM-GUTS *3*S))) ((NOT (EQ (*1*STUBP *3*S) *1*F)) (*1*V-KNOWNP (*1*STUB-GUTS *3*S))) (T (*1*B-KNOWNP *3*S))))))) (PUT1-LST (QUOTE *1*V-APPROX-ALIST) (QUOTE (SEXPR (LAMBDA (*3*ALIST1 *3*ALIST2) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*ALIST1) (NOT (EQ (CAR *3*ALIST1) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*ALIST2) (NOT (EQ (CAR *3*ALIST2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR (CAR *3*ALIST1)) (*1*CAR (SETQ *2*TEMP1 (*1*CAR *3*ALIST2)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*B-APPROX (*1*CDR (CAR *3*ALIST1)) (*1*CDR *2*TEMP1)) (*1*V-APPROX-ALIST (CDR *3*ALIST1) (*1*CDR *3*ALIST2)))))) (T (*1*NLISTP *3*ALIST2)))))))) (PUT1-LST (QUOTE *1*S-APPROX-ALIST) (QUOTE (SEXPR (LAMBDA (*3*ALIST1 *3*ALIST2) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*ALIST1) (NOT (EQ (CAR *3*ALIST1) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*ALIST2) (NOT (EQ (CAR *3*ALIST2) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (COND ((EQUAL (*1*CAR (CAR *3*ALIST1)) (*1*CAR (SETQ *2*TEMP1 (*1*CAR *3*ALIST2)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*S-APPROX (*1*CDR (CAR *3*ALIST1)) (*1*CDR *2*TEMP1)) (*1*S-APPROX-ALIST (CDR *3*ALIST1) (*1*CDR *3*ALIST2)))))) (T (*1*NLISTP *3*ALIST2)))))))) (PUT1-LST (QUOTE *1*MONOTONICITY-PROPERTY) (QUOTE (SEXPR (LAMBDA (*3*FLAG *3*FN *3*NETLIST *3*A1 *3*A2 *3*S1 *3*S2) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE MONOTONICITY-PROPERTY) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET NIL (COND ((EQUAL *3*FLAG (QUOTE 0)) (*1*IMPLIES (*1*AND (*1*V-APPROX *3*A1 *3*A2) (*1*S-APPROX *3*S1 *3*S2)) (*1*V-APPROX (*1*DUAL-EVAL (QUOTE 0) *3*FN *3*A1 *3*S1 *3*NETLIST) (*1*DUAL-EVAL (QUOTE 0) *3*FN *3*A2 *3*S2 *3*NETLIST)))) ((EQUAL *3*FLAG (QUOTE 1)) (*1*IMPLIES (*1*AND (*1*V-APPROX-ALIST *3*A1 *3*A2) (*1*AND (*1*ALISTP *3*A1) (*1*AND (*1*ALISTP *3*A2) (*1*AND (*1*S-APPROX-ALIST *3*S1 *3*S2) (*1*AND (*1*ALISTP *3*S1) (*1*ALISTP *3*S2)))))) (*1*V-APPROX-ALIST (*1*DUAL-EVAL (QUOTE 1) *3*FN *3*A1 *3*S1 *3*NETLIST) (*1*DUAL-EVAL (QUOTE 1) *3*FN *3*A2 *3*S2 *3*NETLIST)))) ((EQUAL *3*FLAG (QUOTE 2)) (*1*IMPLIES (*1*AND (*1*V-APPROX *3*A1 *3*A2) (*1*S-APPROX *3*S1 *3*S2)) (*1*S-APPROX (*1*DUAL-EVAL (QUOTE 2) *3*FN *3*A1 *3*S1 *3*NETLIST) (*1*DUAL-EVAL (QUOTE 2) *3*FN *3*A2 *3*S2 *3*NETLIST)))) ((EQUAL *3*FLAG (QUOTE 3)) (*1*IMPLIES (*1*AND (*1*V-APPROX-ALIST *3*A1 *3*A2) (*1*AND (*1*ALISTP *3*A1) (*1*AND (*1*ALISTP *3*A2) (*1*AND (*1*S-APPROX-ALIST *3*S1 *3*S2) (*1*AND (*1*ALISTP *3*S1) (*1*ALISTP *3*S2)))))) (*1*S-APPROX-ALIST (*1*DUAL-EVAL (QUOTE 3) *3*FN *3*A1 *3*S1 *3*NETLIST) (*1*DUAL-EVAL (QUOTE 3) *3*FN *3*A2 *3*S2 *3*NETLIST)))) (T (QUOTE *1*TRUE))))))))))) (PUT1-LST (QUOTE *1*READ-MEM1-MONOTONE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM1 *3*MEM2) (LET NIL (COND ((NOT (EQ (*1*OR (*1*STUBP *3*MEM1) (*1*OR (*1*STUBP *3*MEM2) (*1*OR (*1*NLISTP *3*V-ADDR) (*1*OR (*1*NLISTP *3*MEM1) (*1*NLISTP *3*MEM2))))) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (*1*READ-MEM1-MONOTONE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM1) (*1*CDR *3*MEM2))) (T (*1*READ-MEM1-MONOTONE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM1) (*1*CAR *3*MEM2))))))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-VALUE-BODY) (QUOTE (SEXPR (LAMBDA (*3*BITS *3*A-ADDRESS *3*B-ADDRESS *3*WEN *3*STATE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*NOT (*1*BVP *3*A-ADDRESS)) (*1*AND (*1*NOT (COND ((EQ *3*WEN (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*OR (*1*NOT (*1*BVP *3*B-ADDRESS)) (COND ((EQUAL *3*A-ADDRESS *3*B-ADDRESS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))) *1*F)) (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X)))) ((NOT (EQ (*1*AND (*1*PROPERP (SETQ *2*TEMP1 (*1*READ-MEM *3*A-ADDRESS *3*STATE))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) *3*BITS) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) *2*TEMP1) (T (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X)))))))))) (PUT1-LST (QUOTE *1*WRITE-MEM1-MONOTONE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM1 *3*MEM2) (LET NIL (COND ((NOT (EQ (*1*OR (*1*STUBP *3*MEM1) (*1*STUBP *3*MEM2)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*NLISTP *3*V-ADDR) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MEM1) (*1*NLISTP *3*MEM2)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (*1*WRITE-MEM1-MONOTONE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM1) (*1*CDR *3*MEM2))) (T (*1*WRITE-MEM1-MONOTONE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM1) (*1*CAR *3*MEM2))))))))) (PUT1-LST (QUOTE *1*WRITE-MEM1-DOUBLE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*V-ADDR *3*MEM1 *3*MEM2) (LET NIL (COND ((NOT (EQ (*1*OR (*1*STUBP *3*MEM1) (*1*STUBP *3*MEM2)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*NLISTP *3*V-ADDR) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MEM1) (*1*NLISTP *3*MEM2)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*CAR *3*V-ADDR) *1*F)) (*1*WRITE-MEM1-DOUBLE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CDR *3*MEM1) (*1*CDR *3*MEM2))) (T (*1*WRITE-MEM1-DOUBLE-INDUCTION (*1*CDR *3*V-ADDR) (*1*CAR *3*MEM1) (*1*CAR *3*MEM2))))))))) (PUT1-LST (QUOTE *1*DUAL-PORT-RAM-STATE-BODY) (QUOTE (SEXPR (LAMBDA (*3*BITS *3*B-ADDRESS *3*WEN *3*DATA *3*STATE) (LET NIL (COND ((EQ *3*WEN (QUOTE *1*TRUE)) *3*STATE) ((NOT (EQ (*1*NOT (*1*BVP *3*B-ADDRESS)) *1*F)) (*1*CONSTANT-RAM *3*STATE (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X))))) ((EQ *3*WEN (QUOTE *1*FALSE)) (*1*WRITE-MEM *3*B-ADDRESS *3*STATE *3*DATA)) (T (*1*WRITE-MEM *3*B-ADDRESS *3*STATE (*1*MAKE-LIST *3*BITS (QUOTE (*1*QUOTE X))))))))))) (PUT1-LST (QUOTE *1*OK-NETLISTP) (QUOTE (SEXPR (LAMBDA (*3*FLAG *3*FN *3*NETLIST *3*EXCEPTIONS) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*FLAG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*FN) *1*F)) (*1*NOT (*1*MEMBER *3*FN *3*EXCEPTIONS))) ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*FN *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*OK-NETLISTP (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP1) (*1*DELETE-MODULE *3*FN *3*NETLIST) *3*EXCEPTIONS)) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLAG (QUOTE 1)) (COND ((AND (CONSP *3*FN) (NOT (EQ (CAR *3*FN) (QUOTE *1*QUOTE)))) (*1*AND (*1*OK-NETLISTP (QUOTE 0) (*1*OCC-FUNCTION (CAR *3*FN)) *3*NETLIST *3*EXCEPTIONS) (*1*OK-NETLISTP (QUOTE 1) (CDR *3*FN) *3*NETLIST *3*EXCEPTIONS))) (T (QUOTE *1*TRUE)))) ((EQUAL *3*FLAG (QUOTE 2)) (COND ((NOT (EQ (*1*PRIMP *3*FN) *1*F)) (*1*NOT (*1*MEMBER *3*FN *3*EXCEPTIONS))) ((AND (CONSP (SETQ *2*TEMP1 (*1*LOOKUP-MODULE *3*FN *3*NETLIST))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (*1*OK-NETLISTP (QUOTE 3) (*1*MODULE-OCCURRENCES *2*TEMP1) (*1*DELETE-MODULE *3*FN *3*NETLIST) *3*EXCEPTIONS)) (T (QUOTE *1*FALSE)))) ((EQUAL *3*FLAG (QUOTE 3)) (COND ((AND (CONSP *3*FN) (NOT (EQ (CAR *3*FN) (QUOTE *1*QUOTE)))) (*1*AND (*1*OK-NETLISTP (QUOTE 2) (*1*OCC-FUNCTION (CAR *3*FN)) *3*NETLIST *3*EXCEPTIONS) (*1*OK-NETLISTP (QUOTE 3) (CDR *3*FN) *3*NETLIST *3*EXCEPTIONS))) (T (QUOTE *1*TRUE)))) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*DUAL-EVAL-MONOTONE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*FLAG *3*FN *3*NETLIST *3*A1 *3*A2 *3*S1 *3*S2) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DUAL-EVAL-MONOTONE-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X))) (COND ((EQUAL *3*FLAG (QUOTE 0)) (COND ((NOT (EQ (*1*PRIMP *3*FN) *1*F)) (QUOTE *1*TRUE)) ((AND (CONSP (SETQ *2*TEMP17 (*1*LOOKUP-MODULE *3*FN *3*NETLIST))) (NOT (EQ (CAR *2*TEMP17) (QUOTE *1*QUOTE)))) (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (*1*MODULE-OCCURRENCES *2*TEMP17) (*1*DELETE-MODULE *3*FN *3*NETLIST) (*1*PAIRLIST (SETQ *2*TEMP13 (*1*MODULE-INPUTS *2*TEMP17)) *3*A1) (*1*PAIRLIST *2*TEMP13 *3*A2) (*1*PAIRSTATES (SETQ *2*TEMP10 (*1*MODULE-STATENAMES *2*TEMP17)) *3*S1) (*1*PAIRSTATES *2*TEMP10 *3*S2))) (T (QUOTE *1*TRUE)))) ((EQUAL *3*FLAG (QUOTE 1)) (COND ((AND (CONSP *3*FN) (NOT (EQ (CAR *3*FN) (QUOTE *1*QUOTE)))) (*1*AND (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 0) (SETQ *2*TEMP8 (*1*OCC-FUNCTION (CAR *3*FN))) *3*NETLIST (SETQ *2*TEMP7 (*1*COLLECT-VALUE (SETQ *2*TEMP6 (*1*OCC-INPUTS (CAR *3*FN))) *3*A1)) (SETQ *2*TEMP5 (*1*COLLECT-VALUE *2*TEMP6 *3*A2)) (SETQ *2*TEMP4 (*1*VALUE (SETQ *2*TEMP3 (*1*OCC-NAME (CAR *3*FN))) *3*S1)) (SETQ *2*TEMP2 (*1*VALUE *2*TEMP3 *3*S2))) (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (CDR *3*FN) *3*NETLIST (*1*APPEND (*1*PAIRLIST (SETQ *2*TEMP1 (*1*OCC-OUTPUTS (CAR *3*FN))) (*1*DUAL-EVAL (QUOTE 0) *2*TEMP8 *2*TEMP7 *2*TEMP4 *3*NETLIST)) *3*A1) (*1*APPEND (*1*PAIRLIST *2*TEMP1 (*1*DUAL-EVAL (QUOTE 0) *2*TEMP8 *2*TEMP5 *2*TEMP2 *3*NETLIST)) *3*A2) *3*S1 *3*S2))) (T (QUOTE *1*TRUE)))) ((EQUAL *3*FLAG (QUOTE 2)) (COND ((NOT (EQ (*1*PRIMP *3*FN) *1*F)) (QUOTE *1*TRUE)) ((AND (CONSP (SETQ *2*TEMP17 (*1*LOOKUP-MODULE *3*FN *3*NETLIST))) (NOT (EQ (CAR *2*TEMP17) (QUOTE *1*QUOTE)))) (*1*AND (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 1) (SETQ *2*TEMP16 (*1*MODULE-OCCURRENCES *2*TEMP17)) (SETQ *2*TEMP15 (*1*DELETE-MODULE *3*FN *3*NETLIST)) (SETQ *2*TEMP14 (*1*PAIRLIST (SETQ *2*TEMP13 (*1*MODULE-INPUTS *2*TEMP17)) *3*A1)) (SETQ *2*TEMP12 (*1*PAIRLIST *2*TEMP13 *3*A2)) (SETQ *2*TEMP11 (*1*PAIRSTATES (SETQ *2*TEMP10 (*1*MODULE-STATENAMES *2*TEMP17)) *3*S1)) (SETQ *2*TEMP9 (*1*PAIRSTATES *2*TEMP10 *3*S2))) (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) *2*TEMP16 *2*TEMP15 (*1*DUAL-EVAL (QUOTE 1) *2*TEMP16 *2*TEMP14 *2*TEMP11 *2*TEMP15) (*1*DUAL-EVAL (QUOTE 1) *2*TEMP16 *2*TEMP12 *2*TEMP9 *2*TEMP15) *2*TEMP11 *2*TEMP9))) (T (QUOTE *1*TRUE)))) ((EQUAL *3*FLAG (QUOTE 3)) (COND ((AND (CONSP *3*FN) (NOT (EQ (CAR *3*FN) (QUOTE *1*QUOTE)))) (*1*AND (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 2) (*1*OCC-FUNCTION (CAR *3*FN)) *3*NETLIST (*1*COLLECT-VALUE (SETQ *2*TEMP6 (*1*OCC-INPUTS (CAR *3*FN))) *3*A1) (*1*COLLECT-VALUE *2*TEMP6 *3*A2) (*1*VALUE (SETQ *2*TEMP3 (*1*OCC-NAME (CAR *3*FN))) *3*S1) (*1*VALUE *2*TEMP3 *3*S2)) (*1*DUAL-EVAL-MONOTONE-INDUCTION (QUOTE 3) (CDR *3*FN) *3*NETLIST *3*A1 *3*A2 *3*S1 *3*S2))) (T (QUOTE *1*TRUE)))) (T (QUOTE *1*TRUE))))))))))) (PUT1-LST (QUOTE *1*S-APPROX-LIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*S-APPROX (CAR *3*X) (*1*CAR *3*Y)) (*1*S-APPROX-LIST (CDR *3*X) (*1*CDR *3*Y))))) (T (*1*NLISTP *3*Y))))))) (PUT1-LST (QUOTE *1*DOUBLE-CDR-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*DOUBLE-CDR-INDUCTION (*1*CDR *3*X) (*1*CDR *3*Y))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*GOOD-S-ALIST) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP (CAR *3*X)) (NOT (EQ (CAR (CAR *3*X)) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*GOOD-S (*1*CDR (CAR *3*X))) (*1*GOOD-S-ALIST (CDR *3*X))))) ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*V-APPROX-LIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-APPROX (CAR *3*X) (*1*CAR *3*Y)) (*1*V-APPROX-LIST (CDR *3*X) (*1*CDR *3*Y))))) (T (*1*NLISTP *3*Y))))))) (PUT1-LST (QUOTE *1*V-S-APPROX-LIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-APPROX (*1*CAR (CAR *3*X)) (*1*CAR (SETQ *2*TEMP1 (*1*CAR *3*Y)))) (*1*AND (*1*S-APPROX (*1*CAR (*1*CDR (CAR *3*X))) (*1*CAR (*1*CDR *2*TEMP1))) (*1*V-S-APPROX-LIST (CDR *3*X) (*1*CDR *3*Y)))))) (T (QUOTE *1*TRUE)))))))) (PUT1-LST (QUOTE *1*NAT-LST-LST-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*N) (*1*OR (*1*NLISTP *3*X) (*1*NLISTP *3*Y))) *1*F)) (QUOTE *1*TRUE)) (T (*1*NAT-LST-LST-INDUCTION (*1*SUB1 *3*N) (*1*CDR *3*X) (*1*CDR *3*Y)))))))) (PUT1-LST (QUOTE *1*SIMULATE-MONOTONE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*FN *3*INPUTS-1 *3*STATE-1 *3*NETLIST *3*INPUTS-2 *3*STATE-2) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE SIMULATE-MONOTONE-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((AND (CONSP *3*INPUTS-1) (NOT (EQ (CAR *3*INPUTS-1) (QUOTE *1*QUOTE)))) (*1*SIMULATE-MONOTONE-INDUCTION *3*FN (CDR *3*INPUTS-1) (*1*DUAL-EVAL (QUOTE 2) *3*FN (CAR *3*INPUTS-1) *3*STATE-1 *3*NETLIST) *3*NETLIST (*1*CDR *3*INPUTS-2) (*1*DUAL-EVAL (QUOTE 2) *3*FN (*1*CAR *3*INPUTS-2) *3*STATE-2 *3*NETLIST))) (T (QUOTE *1*TRUE)))))))))) (PUT1-LST (QUOTE *1*DOUBLET-P) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQUAL *3*X (CONS (*1*CAR *3*X) (CONS (*1*CAR (*1*CDR *3*X)) (QUOTE NIL)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*DOUBLET-N-SIMULATE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*FN *3*INPUTS *3*STATE *3*NETLIST *3*N) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE DOUBLET-N-SIMULATE-INDUCTION) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*DOUBLET-N-SIMULATE-INDUCTION *3*FN (*1*CDR *3*INPUTS) (*1*DUAL-EVAL (QUOTE 2) *3*FN (*1*CAR *3*INPUTS) *3*STATE *3*NETLIST) *3*NETLIST (*1*SUB1 *3*N))))))))))) (PUT1-LST (QUOTE *1*COMPILE-UNCOMPILED-DEFNS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE *1*TRUE))))) (PUT1-LST (QUOTE *1*UNKNOWN-REGFILE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (CONS (SETQ *2*TEMP5 (CONS (SETQ *2*TEMP4 (CONS (SETQ *2*TEMP3 (CONS (SETQ *2*TEMP2 (*1*RAM (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))) *2*TEMP2)) *2*TEMP3)) *2*TEMP4)) *2*TEMP5) (CONS (QUOTE (*1*QUOTE X)) (CONS *2*TEMP1 (CONS (*1*MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*UNKNOWN-MACHINE-STATE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*UNKNOWN-REGFILE) (CONS (SETQ *2*TEMP2 (*1*MAKE-LIST (QUOTE 4) (QUOTE (*1*QUOTE X)))) (CONS (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS *2*TEMP1 (CONS *2*TEMP1 (CONS *2*TEMP1 (CONS *2*TEMP1 (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS *2*TEMP2 (CONS (*1*MAKE-LIST (QUOTE 40) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))))))) (PUT1-LST (QUOTE *1*UNKNOWN-MEMORY-STATE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*STUB (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))) (CONS *2*TEMP1 (QUOTE NIL)))))))))))))) (PUT1-LST (QUOTE *1*UNKNOWN-STATE) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*UNKNOWN-MACHINE-STATE) (CONS (*1*UNKNOWN-MEMORY-STATE) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*RESET-VECTOR) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))))))))))) (PUT1-LST (QUOTE *1*RUN-VECTOR) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))))))))))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*RESET-VECTOR) (*1*MAKE-LIST (QUOTE 19) (*1*RUN-VECTOR))))))) (PUT1-LST (QUOTE *1*INITIALIZED-REGFILE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (CONS (CONS (SETQ *2*TEMP5 (CONS (SETQ *2*TEMP4 (CONS (SETQ *2*TEMP3 (CONS (SETQ *2*TEMP2 (*1*RAM (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))))) *2*TEMP2)) *2*TEMP3)) *2*TEMP4)) *2*TEMP5) (CONS (QUOTE *1*FALSE) (CONS *2*TEMP1 (CONS (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*INITIALIZED-MACHINE-STATE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*INITIALIZED-REGFILE) (CONS (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) (CONS (SETQ *2*TEMP2 (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE))) (CONS *2*TEMP2 (CONS *2*TEMP2 (CONS *2*TEMP2 (CONS *2*TEMP2 (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE))) (CONS (*1*CV_FETCH1 (QUOTE *1*TRUE) (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)) *2*TEMP2 (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)) *2*TEMP1) (QUOTE NIL)))))))))))))))))) (PUT1-LST (QUOTE *1*INITIALIZED-MEMORY-STATE) (QUOTE (SEXPR (LAMBDA NIL (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*STUB (SETQ *2*TEMP1 (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*FALSE)))) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE 0) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS *2*TEMP1 (CONS (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X))) (QUOTE NIL)))))))))))))) (PUT1-LST (QUOTE *1*FINAL-STATE) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*INITIALIZED-MACHINE-STATE) (CONS (*1*INITIALIZED-MEMORY-STATE) (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*RESET-VECTOR-CHIP) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (*1*MAKE-LIST (QUOTE 32) (QUOTE (*1*QUOTE X)))))))))))))))) (PUT1-LST (QUOTE *1*RUN-VECTOR-CHIP-1) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE *1*TRUE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE))))))))))))))) (PUT1-LST (QUOTE *1*RUN-VECTOR-CHIP-2) (QUOTE (SEXPR (LAMBDA NIL (CONS (QUOTE *1*FALSE) (CONS (QUOTE (*1*QUOTE X)) (CONS (QUOTE *1*FALSE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (CONS (QUOTE *1*TRUE) (*1*APPEND (*1*MAKE-LIST (QUOTE 4) (QUOTE *1*TRUE)) (*1*MAKE-LIST (QUOTE 32) (QUOTE *1*TRUE))))))))))))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE-CHIP-1) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*RESET-VECTOR-CHIP) (*1*MAKE-LIST (QUOTE 19) (*1*RUN-VECTOR-CHIP-1))))))) (PUT1-LST (QUOTE *1*RESET-SEQUENCE-CHIP-2) (QUOTE (SEXPR (LAMBDA NIL (CONS (*1*RESET-VECTOR-CHIP) (*1*MAKE-LIST (QUOTE 19) (*1*RUN-VECTOR-CHIP-2))))))) (PUT1-LST (QUOTE *1*V-FOURP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (COND ((EQ *3*X (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*AND (*1*FOURP (*1*CAR *3*X)) (*1*V-FOURP (*1*CDR *3*X))))))))) (PUT1-LST (QUOTE *1*ALL-XS) (QUOTE (SEXPR (LAMBDA (*3*VEC) (COND ((NOT (EQ (*1*NLISTP *3*VEC) *1*F)) (COND ((EQ *3*VEC (QUOTE NIL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (T (*1*AND (COND ((EQUAL (*1*CAR *3*VEC) (QUOTE (*1*QUOTE X))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ALL-XS (*1*CDR *3*VEC))))))))) (PUT1-LST (QUOTE *1*MEMORY-V-FOURP) (QUOTE (SEXPR (LAMBDA (*3*N *3*WIDTH *3*MEM) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*STUBP *3*MEM) *1*F)) (*1*AND (*1*V-FOURP (SETQ *2*TEMP4 (*1*STUB-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP4) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((NOT (EQ (*1*RAMP *3*MEM) *1*F)) (*1*AND (*1*V-FOURP (SETQ *2*TEMP3 (*1*RAM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP3) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) ((NOT (EQ (*1*ROMP *3*MEM) *1*F)) (*1*AND (*1*V-FOURP (SETQ *2*TEMP2 (*1*ROM-GUTS *3*MEM))) (COND ((EQUAL (*1*LENGTH *2*TEMP2) *3*WIDTH) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) (T (QUOTE *1*FALSE)))) (T (*1*AND (COND ((AND (CONSP *3*MEM) (NOT (EQ (CAR *3*MEM) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*MEMORY-V-FOURP (SETQ *2*TEMP1 (*1*SUB1 *3*N)) *3*WIDTH (*1*CAR *3*MEM)) (*1*MEMORY-V-FOURP *2*TEMP1 *3*WIDTH (*1*CDR *3*MEM))))))))))) (PUT1-LST (QUOTE *1*NEW-MACHINE-STATE-INVARIANT) (QUOTE (SEXPR (LAMBDA (*3*MACHINE-STATE) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X)) (*2*TEMP13 (QUOTE *1*X)) (*2*TEMP14 (QUOTE *1*X)) (*2*TEMP15 (QUOTE *1*X)) (*2*TEMP16 (QUOTE *1*X)) (*2*TEMP17 (QUOTE *1*X)) (*2*TEMP18 (QUOTE *1*X)) (*2*TEMP19 (QUOTE *1*X)) (*2*TEMP20 (QUOTE *1*X)) (*2*TEMP21 (QUOTE *1*X)) (*2*TEMP22 (QUOTE *1*X)) (*2*TEMP23 (QUOTE *1*X)) (*2*TEMP24 (QUOTE *1*X))) (*1*AND (COND ((EQUAL (*1*LENGTH *3*MACHINE-STATE) (QUOTE 12)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP *3*MACHINE-STATE) (*1*AND (COND ((EQUAL (*1*LENGTH (SETQ *2*TEMP24 (*1*CAR *3*MACHINE-STATE))) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*PROPERP *2*TEMP24) (*1*AND (*1*ALL-RAMP-MEM (QUOTE 4) (SETQ *2*TEMP23 (*1*CAR *2*TEMP24))) (*1*AND (*1*FOURP (*1*CAR (SETQ *2*TEMP22 (*1*CDR *2*TEMP24)))) (*1*AND (*1*MEMORY-V-FOURP (QUOTE 4) (QUOTE 32) *2*TEMP23) (*1*AND (*1*V-FOURP (SETQ *2*TEMP21 (*1*CAR (SETQ *2*TEMP20 (*1*CDR *2*TEMP22))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP21) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP19 (*1*CAR (*1*CDR *2*TEMP20)))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP19) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP18 (*1*CAR (SETQ *2*TEMP17 (*1*CDR *3*MACHINE-STATE))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP18) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP16 (*1*CAR (SETQ *2*TEMP15 (*1*CDR *2*TEMP17))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP16) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP14 (*1*CAR (SETQ *2*TEMP13 (*1*CDR *2*TEMP15))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP14) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP12 (*1*CAR (SETQ *2*TEMP11 (*1*CDR *2*TEMP13))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP12) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP10 (*1*CAR (SETQ *2*TEMP9 (*1*CDR *2*TEMP11))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP10) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *2*TEMP9))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP8) (QUOTE 32)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*FOURP (*1*CAR (SETQ *2*TEMP6 (*1*CDR *2*TEMP7)))) (*1*AND (*1*FOURP (*1*CAR (SETQ *2*TEMP5 (*1*CDR *2*TEMP6)))) (*1*AND (*1*FOURP (*1*CAR (SETQ *2*TEMP4 (*1*CDR *2*TEMP5)))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*CDR *2*TEMP4))))) (*1*AND (COND ((EQUAL (*1*LENGTH *2*TEMP3) (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND (*1*V-FOURP (SETQ *2*TEMP1 (*1*CAR (*1*CDR *2*TEMP2)))) (COND ((EQUAL (*1*LENGTH *2*TEMP1) (QUOTE 40)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))))))))))))))))))))))))))))))) (PUT1-LST (QUOTE *1*B-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*C) (COND ((NOT (EQ *3*C *1*F)) (QUOTE 1)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-INT-BUF) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) *3*A))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*NAT-TO-V (*1*REMAINDER (*1*PLUS (*1*B-TO-NAT *3*C) (*1*PLUS (*1*V-TO-NAT *3*A) (*1*V-TO-NAT *3*B))) (*1*EXP (QUOTE 2) (SETQ *2*TEMP1 (*1*LENGTH *3*A)))) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER-CARRY-OUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*NOT (*1*LESSP (*1*PLUS (*1*B-TO-NAT *3*C) (*1*PLUS (*1*V-TO-NAT *3*A) (*1*V-TO-NAT *3*B))) (*1*EXP (QUOTE 2) (*1*LENGTH *3*A)))))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-ALU-NAT-ADDER-CARRY-OUT *3*C *3*A *3*B) (*1*V-ADDER-OVERFLOWP *3*C *3*A *3*B) (*1*V-ALU-NAT-ADDER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-INC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-NAT-ADDER (QUOTE *1*TRUE) *3*A (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*NAT-TO-V (*1*REMAINDER (*1*DIFFERENCE (*1*PLUS (*1*V-TO-NAT *3*B) (SETQ *2*TEMP2 (*1*EXP (QUOTE 2) (SETQ *2*TEMP1 (*1*LENGTH *3*A))))) (*1*PLUS (*1*V-TO-NAT *3*A) (*1*B-TO-NAT *3*C))) *2*TEMP2) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER-CARRY-OUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*LESSP (*1*V-TO-NAT *3*B) (*1*PLUS (*1*V-TO-NAT *3*A) (*1*B-TO-NAT *3*C))))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-SUBTRACTER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-ALU-NAT-SUBTRACTER-CARRY-OUT *3*C *3*A *3*B) (*1*V-SUBTRACTER-OVERFLOWP *3*C *3*A *3*B) (*1*V-ALU-NAT-SUBTRACTER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-DEC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-NAT-SUBTRACTER (QUOTE *1*TRUE) (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A)) *3*A))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*NAT-TO-V (*1*QUOTIENT (*1*V-TO-NAT *3*A) (QUOTE 2)) (*1*LENGTH *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR-CARRY-OUT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*NOT (COND ((EQUAL (*1*REMAINDER (*1*V-TO-NAT *3*A) (QUOTE 2)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-LSR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (*1*V-ALU-NAT-LSR-CARRY-OUT *3*A) (QUOTE *1*FALSE) (*1*V-ALU-NAT-LSR-OUTPUT *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-NOT-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*A) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*NAT-TO-V (*1*SUB1 (*1*DIFFERENCE (*1*EXP (QUOTE 2) (SETQ *2*TEMP1 (*1*LENGTH *3*A))) (*1*V-TO-NAT *3*A))) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT-NOT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-ALU-NAT-NOT-OUTPUT *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-NAT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*OP) (COND ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (*1*V-ALU-NAT-INT-BUF *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (*1*V-ALU-NAT-INC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (*1*V-ALU-NAT-ADDER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (*1*V-ALU-NAT-ADDER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (*1*V-ALU-NAT-DEC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (*1*V-ALU-NAT-SUBTRACTER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (*1*V-ALU-NAT-SUBTRACTER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE))) (*1*V-ALU-NAT-LSR *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (*1*V-ALU-NAT-NOT *3*A)) (T (*1*V-ALU *3*C *3*A *3*B *3*OP))))))) (PUT1-LST (QUOTE *1*INT-TO-V) (QUOTE (SEXPR (LAMBDA (*3*I *3*L) (COND ((NOT (EQ (*1*ILESSP *3*I (QUOTE 0)) *1*F)) (*1*NAT-TO-V (*1*IPLUS *3*I (*1*EXP (QUOTE 2) *3*L)) *3*L)) (T (*1*NAT-TO-V *3*I *3*L))))))) (PUT1-LST (QUOTE *1*V-TO-INT) (QUOTE (SEXPR (LAMBDA (*3*V) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP2 (*1*V-TO-NAT *3*V)) (*1*EXP (QUOTE 2) (*1*SUB1 (SETQ *2*TEMP1 (*1*LENGTH *3*V))))) *1*F)) *2*TEMP2) (T (*1*IDIFFERENCE *2*TEMP2 (*1*EXP (QUOTE 2) *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*INTEGER-IN-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*I *3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ILEQ (*1*INEG (SETQ *2*TEMP1 (*1*EXP (QUOTE 2) (*1*SUB1 *3*L)))) *3*I) (*1*ILESSP *3*I *2*TEMP1))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*INT-TO-V (*1*IPLUS (*1*B-TO-NAT *3*C) (*1*IPLUS (*1*V-TO-INT *3*A) (*1*V-TO-INT *3*B))) (*1*LENGTH *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER-OVERFLOWP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*NOT (*1*INTEGER-IN-RANGEP (*1*IPLUS (*1*B-TO-NAT *3*C) (*1*IPLUS (*1*V-TO-INT *3*A) (*1*V-TO-INT *3*B))) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ADDER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-ADDER-CARRY-OUT *3*C *3*A *3*B) (*1*V-ALU-INT-ADDER-OVERFLOWP *3*C *3*A *3*B) (*1*V-ALU-INT-ADDER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-INC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-INT-ADDER (QUOTE *1*TRUE) *3*A (*1*INT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*INT-TO-V (*1*IDIFFERENCE (*1*V-TO-INT *3*B) (*1*IPLUS (*1*V-TO-INT *3*A) (*1*B-TO-NAT *3*C))) (*1*LENGTH *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER-OVERFLOWP) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*NOT (*1*INTEGER-IN-RANGEP (*1*IDIFFERENCE (*1*V-TO-INT *3*B) (*1*IPLUS (*1*V-TO-INT *3*A) (*1*B-TO-NAT *3*C))) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-SUBTRACTER) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B) (*1*CVZBV (*1*V-SUBTRACTER-CARRY-OUT *3*C *3*A *3*B) (*1*V-ALU-INT-SUBTRACTER-OVERFLOWP *3*C *3*A *3*B) (*1*V-ALU-INT-SUBTRACTER-OUTPUT *3*C *3*A *3*B)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-DEC) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-INT-SUBTRACTER (QUOTE *1*TRUE) (*1*INT-TO-V (QUOTE 0) (*1*LENGTH *3*A)) *3*A))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ASR-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*INT-TO-V (*1*IDIV (*1*V-TO-INT *3*A) (QUOTE 2)) (*1*LENGTH *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-ASR) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (*1*V-ALU-NAT-LSR-CARRY-OUT *3*A) (QUOTE *1*FALSE) (*1*V-ALU-INT-ASR-OUTPUT *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NEG) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) *3*A (*1*INT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NOT-OUTPUT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-ALU-INT-SUBTRACTER-OUTPUT (QUOTE *1*TRUE) *3*A (*1*INT-TO-V (QUOTE 0) (*1*LENGTH *3*A))))))) (PUT1-LST (QUOTE *1*V-ALU-INT-NOT) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*CVZBV (QUOTE *1*FALSE) (QUOTE *1*FALSE) (*1*V-ALU-INT-NOT-OUTPUT *3*A)))))) (PUT1-LST (QUOTE *1*V-ALU-INT) (QUOTE (SEXPR (LAMBDA (*3*C *3*A *3*B *3*OP) (COND ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE))) (*1*V-ALU-NAT-INT-BUF *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE))) (*1*V-ALU-INT-INC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE))) (*1*V-ALU-INT-ADDER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE))) (*1*V-ALU-INT-ADDER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE))) (*1*V-ALU-INT-NEG *3*A)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE))) (*1*V-ALU-INT-DEC *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE))) (*1*V-ALU-INT-SUBTRACTER *3*C *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE))) (*1*V-ALU-INT-SUBTRACTER (QUOTE *1*FALSE) *3*A *3*B)) ((EQUAL *3*OP (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE))) (*1*V-ALU-INT-ASR *3*A)) ((EQUAL *3*OP (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE))) (*1*V-ALU-INT-NOT *3*A)) (T (*1*V-ALU *3*C *3*A *3*B *3*OP))))))) (PUT1-LST (QUOTE *1*CC-CC) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-CS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-VC) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-VS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-PL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-MI) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-NE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-EQ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*CC-HI) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-LS) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-GE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-LT) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-GT) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-LE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-T) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*CC-F) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-MOVE) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-INC) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-ADDC) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-ADD) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-NEG) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-DEC) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-SUBB) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-SUB) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*FALSE)))))) (PUT1-LST (QUOTE *1*OP-ROR) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-ASR) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-LSR) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-XOR) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*FALSE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-OR) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-AND) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*FALSE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-NOT) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*FALSE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*OP-M15) (QUOTE (SEXPR (LAMBDA NIL (QUOTE (*1*TRUE *1*TRUE *1*TRUE *1*TRUE)))))) (PUT1-LST (QUOTE *1*DOUBLE-DIFFERENCE-INDUCTION) (QUOTE (SEXPR (LAMBDA (*3*N *3*M *3*L) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*ZEROP *3*M) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*ZEROP *3*L) *1*F)) (QUOTE *1*TRUE)) (T (*1*DOUBLE-DIFFERENCE-INDUCTION (*1*DIFFERENCE *3*N *3*L) (*1*DIFFERENCE *3*M *3*L) *3*L))))))) (PUT1-LST (QUOTE *1*V-NEG) (QUOTE (SEXPR (LAMBDA (*3*A) (*1*V-SUBTRACTER-OUTPUT (QUOTE *1*FALSE) *3*A (*1*NAT-TO-V (QUOTE 0) (*1*LENGTH *3*A)))))))